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

(controller.tal) Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-01-15 15:21:04 -08:00
parent 4a303fab90
commit 8212ca5edb
1 changed files with 90 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

167
projects/examples/devices/controller.tal
View File

@ -1,5 +1,4 @@
( Controller: ( Controller: Buttons should highlight on press and display the button and key bytes. )
Buttons should highlight on press and display the button and key bytes. )
|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 |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 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
@ -7,163 +6,157 @@
|0000 |0000
@center @center &x $2 &y $2
&x $2 &y $2 @frame &w $2 &h $2 &x0 $2 &y0 $2 &x1 $2 &y1 $2
@frame
&w $2 &h $2 &x0 $2 &y0 $2 &x1 $2 &y1 $2
|0100 ( -> ) |0100
( theme ) @on-reset ( -> )
( | theme )
#0fff .System/r DEO2 #0fff .System/r DEO2
#0f0f .System/g DEO2 #0f0f .System/g DEO2
#0f0f .System/b DEO2 #0f0f .System/b DEO2
( find center ) ( | find center )
.Screen/width DEI2 #01 SFT2 .center/x STZ2 .Screen/width DEI2 #01 SFT2 .center/x STZ2
.Screen/height DEI2 #01 SFT2 #0020 ADD2 .center/y STZ2 .Screen/height DEI2 #01 SFT2 .center/y STZ2
( place controller ) ( | place controller )
#0068 .frame/w STZ2 #0068 .frame/w STZ2
#0030 .frame/h STZ2 #0030 .frame/h STZ2
.center/x LDZ2 .frame/w LDZ2 #01 SFT2 SUB2 .frame/x0 STZ2 .center/x LDZ2 .frame/w LDZ2 #01 SFT2 SUB2 .frame/x0 STZ2
.center/y LDZ2 .frame/h LDZ2 #01 SFT2 SUB2 .frame/y0 STZ2 .center/y LDZ2 .frame/h LDZ2 #01 SFT2 SUB2 .frame/y0 STZ2
.frame/x0 LDZ2 .frame/w LDZ2 ADD2 .frame/x1 STZ2 .frame/x0 LDZ2 .frame/w LDZ2 ADD2 .frame/x1 STZ2
.frame/y0 LDZ2 .frame/h LDZ2 ADD2 .frame/y1 STZ2 .frame/y0 LDZ2 .frame/h LDZ2 ADD2 .frame/y1 STZ2
( vectors ) ( | vectors )
;on-button .Controller/vector DEO2 ;on-button .Controller/vector DEO2
( frame ) ( | frame )
.frame/x0 LDZ2 .frame/y0 LDZ2 .frame/x0 LDZ2 .frame/y0 LDZ2 .frame/x1 LDZ2 .frame/y1 LDZ2 #03 <line-rect>
.frame/x1 LDZ2 .frame/y1 LDZ2 <draw-controller>
#03 line-rect
draw-controller
BRK BRK
@on-button ( -> ) @on-button ( -> )
<draw-controller>
draw-controller ( | print stack on start button )
[ LIT2 08 -Controller/button ] DEI NEQ ?{ #010e DEO }
( print stack on start button )
.Controller/button DEI #08 EQU [ JMP BRK ] #010e DEO
BRK BRK
@draw-controller ( -- ) (
@|drawing )
@<draw-controller> ( -- )
.Controller/button DEI STH .Controller/button DEI STH
( | d-pad )
( d-pad )
.frame/x0 LDZ2 #0010 ADD2 .Screen/x DEO2 .frame/x0 LDZ2 #0010 ADD2 .Screen/x DEO2
.frame/y0 LDZ2 #0010 ADD2 .Screen/y DEO2 .frame/y0 LDZ2 #0010 ADD2 .Screen/y DEO2
;ctrl-icns/dpad-up .Screen/addr DEO2 ;dpad-up-icn .Screen/addr DEO2
#03 STHkr #04 SFT #01 AND SUB .Screen/sprite DEO #03 STHkr #04 SFT #01 AND SUB .Screen/sprite DEO
.Screen/y DEI2 #0010 ADD2 .Screen/y DEO2 .Screen/y DEI2 #0010 ADD2 .Screen/y DEO2
;ctrl-icns/dpad-down .Screen/addr DEO2 ;dpad-down-icn .Screen/addr DEO2
#03 STHkr #05 SFT #01 AND SUB .Screen/sprite DEO #03 STHkr #05 SFT #01 AND SUB .Screen/sprite DEO
.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2 .Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2 .Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
;ctrl-icns/dpad-left .Screen/addr DEO2 ;dpad-left-icn .Screen/addr DEO2
#03 STHkr #06 SFT #01 AND SUB .Screen/sprite DEO #03 STHkr #06 SFT #01 AND SUB .Screen/sprite DEO
.Screen/x DEI2 #0010 ADD2 .Screen/x DEO2 .Screen/x DEI2 #0010 ADD2 .Screen/x DEO2
;ctrl-icns/dpad-right .Screen/addr DEO2 ;dpad-right-icn .Screen/addr DEO2
#03 STHkr #07 SFT #01 AND SUB .Screen/sprite DEO #03 STHkr #07 SFT #01 AND SUB .Screen/sprite DEO
.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2 .Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
;ctrl-icns/dpad .Screen/addr DEO2 ;fill-icn .Screen/addr DEO2
[ LIT2 03 -Screen/sprite ] DEO [ LIT2 03 -Screen/sprite ] DEO
( | options )
( options )
.center/y LDZ2 #0009 ADD2 .Screen/y DEO2 .center/y LDZ2 #0009 ADD2 .Screen/y DEO2
.center/x LDZ2 #0009 SUB2 .Screen/x DEO2 .center/x LDZ2 #0009 SUB2 .Screen/x DEO2
;ctrl-icns/option .Screen/addr DEO2 ;option-icn .Screen/addr DEO2
#03 STHkr #03 SFT #01 AND SUB .Screen/sprite DEO #03 STHkr #03 SFT #01 AND SUB .Screen/sprite DEO
.center/x LDZ2 #0004 ADD2 .Screen/x DEO2 .center/x LDZ2 #0004 ADD2 .Screen/x DEO2
;ctrl-icns/option .Screen/addr DEO2 ;option-icn .Screen/addr DEO2
#03 STHkr #02 SFT #01 AND SUB .Screen/sprite DEO #03 STHkr #02 SFT #01 AND SUB .Screen/sprite DEO
( | buttons )
( buttons )
.center/y LDZ2 .Screen/y DEO2 .center/y LDZ2 .Screen/y DEO2
.center/x LDZ2 #0018 ADD2 .Screen/x DEO2 .center/x LDZ2 #0018 ADD2 .Screen/x DEO2
;ctrl-icns/button .Screen/addr DEO2 ;button-icn .Screen/addr DEO2
#03 STHkr #01 SFT #01 AND SUB .Screen/sprite DEO #03 STHkr #01 SFT #01 AND SUB .Screen/sprite DEO
.Screen/y DEI2 #000a ADD2 .Screen/y DEO2 .Screen/y DEI2 #000a ADD2 .Screen/y DEO2
;font-hex/b .Screen/addr DEO2 ;font-hex/b .Screen/addr DEO2
[ LIT2 03 -Screen/sprite ] DEO [ LIT2 03 -Screen/sprite ] DEO
.center/y LDZ2 .Screen/y DEO2 .center/y LDZ2 .Screen/y DEO2
.center/x LDZ2 #0024 ADD2 .Screen/x DEO2 .center/x LDZ2 #0024 ADD2 .Screen/x DEO2
;ctrl-icns/button .Screen/addr DEO2 ;button-icn .Screen/addr DEO2
#03 STHr #01 AND SUB .Screen/sprite DEO #03 STHr #01 AND SUB .Screen/sprite DEO
.Screen/y DEI2 #000a ADD2 .Screen/y DEO2 .Screen/y DEI2 #000a ADD2 .Screen/y DEO2
;font-hex/a .Screen/addr DEO2 ;font-hex/a .Screen/addr DEO2
[ LIT2 03 -Screen/sprite ] DEO [ LIT2 03 -Screen/sprite ] DEO
.center/x LDZ2 #0010 SUB2 .Screen/x DEO2 .center/x LDZ2 #0010 SUB2 .Screen/x DEO2
.center/y LDZ2 #0010 SUB2 .Screen/y DEO2 .center/y LDZ2 #0010 SUB2 .Screen/y DEO2
#01 .Screen/auto DEO [ LIT2 01 -Screen/auto ] DEO
.Controller/button DEI2 draw-short .Controller/button DEI2 <draw-short>
#00 .Screen/auto DEO [ LIT2 00 -Screen/auto ] DEO
JMP2r JMP2r
( generics ) @<draw-short> ( short* -- )
SWP <draw-byte>
@draw-short ( short* -- ) @<draw-byte> ( byte -- )
DUP #04 SFT <draw-hex>
SWP draw-byte
@draw-byte ( byte -- )
DUP #04 SFT draw-hex
@draw-hex ( char -- )
@<draw-hex> ( char -- )
#00 SWP #0f AND #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2 #00 SWP #0f AND #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
[ LIT2 03 -Screen/sprite ] DEO [ LIT2 03 -Screen/sprite ] DEO
JMP2r JMP2r
@line-rect ( x1* y1* x2* y2* color -- ) @<line-rect> ( x1* y1* x2* y2* color -- )
STH STH
DUP2 ,&ver-y2 STR2 ,&hor-y2 STR2 DUP2 ,&ver-y2 STR2
DUP2 ,&ver-x2 STR2 ,&hor-x2 STR2 ,&hor-y2 STR2
DUP2 ,&ver-y1 STR2 ,&hor-y1 STR2 DUP2 ,&ver-x2 STR2
DUP2 ,&ver-x1 STR2 ,&hor-x1 STR2 ,&hor-x2 STR2
( horizontal ) DUP2 ,&ver-y1 STR2
,&hor-y1 STR2
DUP2 ,&ver-x1 STR2
,&hor-x1 STR2
( | horizontal )
[ LIT2 &hor-x2 $2 ] INC2 [ LIT2 &hor-x1 $2 ] [ LIT2 &hor-x2 $2 ] INC2 [ LIT2 &hor-x1 $2 ]
&hor &hor ( -- )
DUP2 .Screen/x DEO2 DUP2 .Screen/x DEO2
[ LIT2 &hor-y1 $2 ] .Screen/y DEO2 STHkr .Screen/pixel DEOk [ LIT2 &hor-y1 $2 ] .Screen/y DEO2
[ LIT2 &hor-y2 $2 ] .Screen/y DEO2 DEO STHkr .Screen/pixel DEOk [ LIT2 &hor-y2 $2 ] .Screen/y DEO2
DEO
INC2 GTH2k ?&hor INC2 GTH2k ?&hor
POP2 POP2 POP2 POP2
( vertical ) ( | vertical )
[ LIT2 &ver-y2 $2 ] [ LIT2 &ver-y1 $2 ] [ LIT2 &ver-y2 $2 ] [ LIT2 &ver-y1 $2 ]
&ver &ver ( -- )
DUP2 .Screen/y DEO2 DUP2 .Screen/y DEO2
[ LIT2 &ver-x1 $2 ] .Screen/x DEO2 STHkr .Screen/pixel DEOk [ LIT2 &ver-x1 $2 ] .Screen/x DEO2
[ LIT2 &ver-x2 $2 ] .Screen/x DEO2 DEO STHkr .Screen/pixel DEOk [ LIT2 &ver-x2 $2 ] .Screen/x DEO2
DEO
INC2 GTH2k ?&ver INC2 GTH2k ?&ver
POP2 POP2 POP2 POP2 POPr JMP2r
POPr
JMP2r (
@|assets )
@ctrl-icns [ @fill-icn [ ffff ffff ffff ffff ]
&dpad ffff ffff ffff ffff
&dpad-up 7eff e7c3 ffff ffff
&dpad-down ffff ffff c3e7 ff7e
&dpad-left 7fff efcf cfef ff7f
&dpad-right feff f7f3 f3f7 fffe
&option 0000 7eff ff7e 0000
&button 3c7e ffff ffff 7e3c ]
@font-hex @dpad-up-icn [ 7eff e7c3 ffff ffff ]
@dpad-down-icn [ ffff ffff c3e7 ff7e ]
@dpad-left-icn [ 7fff efcf cfef ff7f ]
@dpad-right-icn [ feff f7f3 f3f7 fffe ]
@option-icn [ 0000 7eff ff7e 0000 ]
@button-icn [ 3c7e ffff ffff 7e3c ]
@font-hex [
007c 8282 8282 827c 0030 1010 1010 1010 007c 8282 8282 827c 0030 1010 1010 1010
007c 8202 7c80 80fe 007c 8202 1c02 827c 007c 8202 7c80 80fe 007c 8202 1c02 827c
000c 1424 4484 fe04 00fe 8080 7c02 827c 000c 1424 4484 fe04 00fe 8080 7c02 827c
007c 8280 fc82 827c 00fe 0202 0408 1010 007c 8280 fc82 827c 00fe 0202 0408 1010
007c 8282 7c82 827c 007c 8282 7e02 827c 007c 8282 7c82 827c 007c 8282 7e02 827c
&a 007c 8202 7e82 827e &b 00fc 8282 fc82 82fc &a 007c 8202 7e82 827e &b 00fc 8282
007c 8280 8080 827c 00fc 8282 8282 82fc fc82 82fc 007c 8280 8080 827c 00fc 8282
00fe 8080 fe80 80fe 00fe 8080 f080 8080 8282 82fc 00fe 8080 fe80 80fe 00fe 8080
f080 8080 ]