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

(logic.tal) Input can be toggled

This commit is contained in:
Devine Lu Linvega 2021-11-20 16:06:45 -05:00
parent 6262078a04
commit 65d7de8176
1 changed files with 78 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
projects/examples/demos/logic.tal
View File

@ -20,6 +20,8 @@
%DEBUG { ;print-hex JSR2 #0a .Console/write DEO } %DEBUG { ;print-hex JSR2 #0a .Console/write DEO }
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO } %DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
%RELEASE-MOUSE { #0096 DEO }
%RTN { JMP2r } %RTN { JMP2r }
%TOS { #00 SWP } %TOS { #00 SWP }
@ -41,6 +43,10 @@
|0000 |0000
@a-frame
&x $2 &y $2 &x2 $2 &y2 $2
@b-frame
&x $2 &y $2 &x2 $2 &y2 $2
@input @input
&a $1 &b $1 &a $1 &b $1
@center @center
@ -48,19 +54,27 @@
@pointer @pointer
&x $2 &y $2 &x $2 &y $2
( program ) ( program )
|0100 ( -> ) |0100 ( -> )
( theme ) ( theme )
#0fe5 .System/r DEO2 #0fe7 .System/r DEO2
#0fc5 .System/g DEO2 #0fce .System/g DEO2
#0f25 .System/b DEO2 #0f2c .System/b DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
.Screen/width DEI2 2// .center/x STZ2 .Screen/width DEI2 2//
.Screen/height DEI2 2// .center/y STZ2 DUP2 .center/x STZ2
DUP2 #0040 -- .a-frame/x STZ2 DUP2 #0040 ++ .a-frame/x2 STZ2
DUP2 #0040 -- .b-frame/x STZ2 #0040 ++ .b-frame/x2 STZ2
.Screen/height DEI2 2//
DUP2 .center/y STZ2
DUP2 #0010 -- .a-frame/y STZ2 DUP2 #0000 ++ .a-frame/y2 STZ2
DUP2 .b-frame/y STZ2 #0010 ++ .b-frame/y2 STZ2
;redraw JSR2 ;redraw JSR2
@ -72,19 +86,50 @@ BRK
.Mouse/state DEI #00 ! JMP [ BRK ] .Mouse/state DEI #00 ! JMP [ BRK ]
.Mouse/x DEI2 .Mouse/y DEI2 .a-frame ;within-rect JSR2
;on-touch-a JCN2
.Mouse/x DEI2 .Mouse/y DEI2 .b-frame ;within-rect JSR2
;on-touch-b JCN2
BRK
@on-touch-a ( -> )
.Mouse/x DEI2 .a-frame/x LDZ2 --
10// NIP #07 SWP - STH
.input/a LDZ
#01 [ STHr #40 SFT ] SFT EOR
.input/a STZ
;redraw JSR2
RELEASE-MOUSE
BRK
@on-touch-b ( -> )
.Mouse/x DEI2 .b-frame/x LDZ2 --
10// NIP #07 SWP - STH
.input/b LDZ
#01 [ STHr #40 SFT ] SFT EOR
.input/b STZ
;redraw JSR2
RELEASE-MOUSE
BRK BRK
@redraw ( -- ) @redraw ( -- )
.center/x LDZ2 #0040 -- .Screen/x DEO2 .a-frame/x LDZ2 .Screen/x DEO2
.center/y LDZ2 #0010 -- .Screen/y DEO2 .a-frame/y LDZ2 .Screen/y DEO2
.input/a LDZ ;draw-byte JSR2
#4f ;draw-byte JSR2 .b-frame/x LDZ2 .Screen/x DEO2
.b-frame/y LDZ2 .Screen/y DEO2
.center/x LDZ2 #0040 -- .Screen/x DEO2 .input/b LDZ ;draw-byte JSR2
.center/y LDZ2 #0000 ++ .Screen/y DEO2
#e7 ;draw-byte JSR2
RTN RTN
@ -93,7 +138,8 @@ RTN
STH STH
#0800 #0800
&loop &loop
DUP STHkr SWP SFT #01 AND ;draw-bit JSR2 DUP #07 SWP -
STHkr SWP SFT #01 AND ;draw-bit JSR2
INC GTHk ,&loop JCN INC GTHk ,&loop JCN
POP2 POP2
.Screen/y DEI2 #0003 ++ .Screen/y DEO2 .Screen/y DEI2 #0003 ++ .Screen/y DEO2
@ -144,7 +190,24 @@ RTN
.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2 .Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2 .Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
( colorize on state ) ( colorize on state )
#41 [ .Mouse/state DEI #00 ! ] + .Screen/sprite DEO #42 [ .Mouse/state DEI #00 ! ] + .Screen/sprite DEO
RTN
@within-rect ( x* y* rect -- flag )
STH
( y < rect.y1 ) DUP2 STHkr #02 ADD LDZ2 LTH2 ,&skip JCN
( y > rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ,&skip JCN
SWP2
( x < rect.x1 ) DUP2 STHkr LDZ2 LTH2 ,&skip JCN
( x > rect.x2 ) DUP2 STHkr #04 ADD LDZ2 GTH2 ,&skip JCN
POP2 POP2 POPr
#01
RTN
&skip
POP2 POP2 POPr
#00
RTN RTN