d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Moving blocks is working

This commit is contained in:
Devine Lu Linvega 2023-05-22 17:00:58 -07:00
parent 9b7ab8f4a1
commit c241ee4ae4
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gui/dads/dads.tal
View File

@ -96,8 +96,13 @@ JMP2r
POP2 POP2
JMP2r JMP2r
&move ( block* offset* -- ) &move ( block* xy -- )
phex #2018 DEO phex #0a18 DEO SWP2 STH2k clear-block
INC2r INC2r
SWP
LDAkr STHr ADD STH2kr STA INC2r
LDAkr STHr ADD STH2r STA
draw-blocks
JMP2r JMP2r
&blank ( block* -- ) &blank ( block* -- )
POP2 POP2
@ -154,6 +159,7 @@ JMP2r
( (
@|drawing ) @|drawing )
@draw-blocks ( -- ) @draw-blocks ( -- )
#0900 #0900
@ -164,6 +170,15 @@ JMP2r
JMP2r JMP2r
@clear-block ( id* -- )
#00 ;draw-times/color STA
INC2 INC2 LDA2k to-screen
INC2 INC2 LDA2 JSR2
#81 ;draw-times/color STA
JMP2r
@draw-block ( id* -- ) @draw-block ( id* -- )
#0006 MUL2 ;game ADD2 #0006 MUL2 ;game ADD2
@ -196,7 +211,7 @@ JMP2r
#00 SWP SUB #00 SWP SUB
&l &l
#81 .Screen/sprite DEO [ LIT &color 81 ] .Screen/sprite DEO
INC DUP ?&l INC DUP ?&l
POP POP