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

Added drawing routines for each block

This commit is contained in:
Devine Lu Linvega 2023-05-22 11:00:37 -07:00
parent ef2dfe53eb
commit 3e100de392
1 changed files with 14 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
gui/dads/dads.tal
View File

@ -87,81 +87,23 @@ JMP2r
@to-screen ( x y -- )
#00 SWP #03 MUL #0008 ADD2 .Screen/y DEO2
#00 SWP #03 MUL #0008 ADD2 .Screen/x DEO2
#00 SWP #0018 MUL2 #0008 ADD2 .Screen/y DEO2
#00 SWP #0018 MUL2 #0008 ADD2 .Screen/x DEO2
JMP2r
@draw-a ( -- )
#56 .Screen/auto DEO
;blocks-chr/a .Screen/addr DEO2
#06 draw-times
JMP2r
@draw-c ( -- )
#56 .Screen/auto DEO
;blocks-chr/c .Screen/addr DEO2
#03 draw-times
JMP2r
@draw-z ( -- )
#56 .Screen/auto DEO
;blocks-chr/z .Screen/addr DEO2
#03 draw-times
JMP2r
@draw-y ( -- )
#56 .Screen/auto DEO
;blocks-chr/y .Screen/addr DEO2
#03 draw-times
JMP2r
@draw-x ( -- )
#56 .Screen/auto DEO
;blocks-chr/x .Screen/addr DEO2
#03 draw-times
JMP2r
@draw-v ( -- )
#56 .Screen/auto DEO
;blocks-chr/v .Screen/addr DEO2
#03 draw-times
JMP2r
@draw-b ( -- )
#56 .Screen/auto DEO
;blocks-chr/b .Screen/addr DEO2
#03 draw-times
JMP2r
@draw-d ( -- )
#26 .Screen/auto DEO
;blocks-chr/d .Screen/addr DEO2
#06 draw-times
JMP2r
@draw-w ( -- )
#26 .Screen/auto DEO
;blocks-chr/w .Screen/addr DEO2
#03 draw-times
JMP2r
@draw-a ( -- ) ;blocks-chr/a .Screen/addr DEO2 #56 .Screen/auto DEO #06 !draw-times
@draw-x ( -- ) ;blocks-chr/x !draw-11
@draw-w ( -- ) ;blocks-chr/w
@draw-11 ( addr* -- ) .Screen/addr DEO2 #26 .Screen/auto DEO #03 !draw-times
@draw-c ( -- ) ;blocks-chr/c !draw-21
@draw-v ( -- ) ;blocks-chr/v !draw-21
@draw-z ( -- ) ;blocks-chr/z !draw-21
@draw-b ( -- ) ;blocks-chr/b
@draw-21 ( addr* -- ) .Screen/addr DEO2 #56 .Screen/auto DEO #03 !draw-times
@draw-y ( -- ) ;blocks-chr/y !draw-12
@draw-d ( -- ) ;blocks-chr/d
@draw-12 ( addr* -- ) .Screen/addr DEO2 #26 .Screen/auto DEO #06 !draw-times
@draw-times ( times -- )