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

Added frame vector to screen.tal

This commit is contained in:
neauoire 2021-08-08 10:21:58 -07:00
parent d3c3ece6ca
commit c66260982f
2 changed files with 42 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
projects/examples/devices/console.tal
View File

@ -8,12 +8,12 @@
|0100 ( -> ) |0100 ( -> )
;hello-word ;hello-word
&loop &while
( send ) LDAk .Console/write DEO ( send ) LDAk .Console/write DEO
( incr ) #0001 ADD2 ( incr ) #0001 ADD2
( loop ) LDAk ,&loop JCN ( loop ) LDAk ,&while JCN
POP2 POP2
#01 .System/debug DEO ( show debugger ) #01 .System/debug DEO
BRK BRK

36
projects/examples/devices/screen.tal
View File

@ -4,19 +4,24 @@
( devices ) ( devices )
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ] |00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ] |20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
( variables ) ( variables )
|0000 |0000
@center [ &x $2 &y $2 ] @count $2
@center
&x $2 &y $2
( init ) ( init )
|0100 ( -> ) |0100 ( -> )
( vector )
;on-frame .Screen/vector DEO2
( theme ) ( theme )
#f07f .System/r DEO2 #f07f .System/r DEO2
#f0e0 .System/g DEO2 #f0e0 .System/g DEO2
@ -35,6 +40,30 @@
BRK BRK
@on-frame ( -> )
.count LDZ2 #0001 ADD2 [ DUP2 ] .count STZ2
.center/x LDZ2 #0048 ADD2 .Screen/x DEO2
.center/y LDZ2 #0050 SUB2 .Screen/y DEO2
( color ) #01 STH
SWP
DUP #04 SFT [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
( draw ) STHkr .Screen/sprite DEO
#0f AND [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
( draw ) STHkr .Screen/sprite DEO
DUP #04 SFT [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
( draw ) STHkr .Screen/sprite DEO
#0f AND [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
( draw ) STHr .Screen/sprite DEO
BRK
@draw-table ( -- ) @draw-table ( -- )
#10 #00 #10 #00
@ -65,8 +94,7 @@ RTN
( move ) DUP #f0 AND #02 DIV #00 SWP ( move ) DUP #f0 AND #02 DIV #00 SWP
.center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2 .center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2
( draw ) DUP .Screen/sprite DEO ( draw ) DUP .Screen/sprite DEO
( incr ) #01 ADD #01 ADD NEQk ,&loop JCN
NEQk ,&loop JCN
POP2 POP2
RTN RTN