etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(logic.tal) Cleanup

This commit is contained in:
Devine Lu Linvega 2021-11-20 17:37:48 -05:00
parent a0ba0e4e79
commit baeed39e04
1 changed files with 44 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,10 +17,10 @@
%10** { #40 SFT2 } %10// { #04 SFT2 } %10** { #40 SFT2 } %10// { #04 SFT2 }
%20** { #50 SFT2 } %20// { #05 SFT2 } %20** { #50 SFT2 } %20// { #05 SFT2 }
%DEBUG { ;print-hex JSR2 #0a .Console/write DEO }
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
%RELEASE-MOUSE { #0096 DEO } %RELEASE-MOUSE { #0096 DEO }
%AUTO-X { #01 .Screen/auto DEO }
%AUTO-X-ADDR { #05 .Screen/auto DEO }
%AUTO-NONE { #00 .Screen/auto DEO }
%RTN { JMP2r } %RTN { JMP2r }
%TOS { #00 SWP } %TOS { #00 SWP }
@ -52,7 +52,6 @@
@pointer @pointer
&x $2 &y $2 &x $2 &y $2
( program ) ( program )
|0100 ( -> ) |0100 ( -> )
@ -139,7 +138,23 @@ BRK
.Screen/y DEI2 #000d ++ .Screen/y DEO2 .Screen/y DEI2 #000d ++ .Screen/y DEO2
.input LDZ2 EOR #03 ;draw-byte JSR2 .input LDZ2 EOR #03 ;draw-byte JSR2
( labels )
AUTO-X-ADDR
.b-frame/x LDZ2 #0020 -- .Screen/x DEO2
;names-icn/and .Screen/addr DEO2
.b-frame/y2 LDZ2 #0004 ++ .Screen/y DEO2
,&draw-label JSR
.b-frame/y2 LDZ2 #0014 ++ .Screen/y DEO2
,&draw-label JSR
.b-frame/y2 LDZ2 #0024 ++ .Screen/y DEO2
,&draw-label JSR
AUTO-NONE
RTN RTN
&draw-label
.b-frame/x LDZ2 #0020 -- .Screen/x DEO2
#03 .Screen/sprite DEOk DEOk DEO
RTN
@draw-byte ( value -- ) @draw-byte ( value -- )
@ -151,6 +166,7 @@ RTN
INC GTHk ,&loop JCN INC GTHk ,&loop JCN
POP2 POP2
.Screen/y DEI2 #0003 ++ .Screen/y DEO2 .Screen/y DEI2 #0003 ++ .Screen/y DEO2
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
STHr ;draw-hex JSR2 STHr ;draw-hex JSR2
POPr POPr
@ -160,7 +176,7 @@ RTN
STH STH STH STH
#05 .Screen/auto DEO AUTO-X-ADDR
;button-icns/off [ #00 STHkr 20* ++ ] .Screen/addr DEO2 ;button-icns/off [ #00 STHkr 20* ++ ] .Screen/addr DEO2
OVRr STHr .Screen/sprite DEO OVRr STHr .Screen/sprite DEO
OVRr STHr .Screen/sprite DEO OVRr STHr .Screen/sprite DEO
@ -168,7 +184,7 @@ RTN
.Screen/x DEI2 #0010 -- .Screen/x DEO2 .Screen/x DEI2 #0010 -- .Screen/x DEO2
OVRr STHr .Screen/sprite DEO OVRr STHr .Screen/sprite DEO
OVRr STHr .Screen/sprite DEO OVRr STHr .Screen/sprite DEO
#00 .Screen/auto DEO AUTO-NONE
.Screen/y DEI2 #0008 -- .Screen/y DEO2 .Screen/y DEI2 #0008 -- .Screen/y DEO2
POPr POPr POPr POPr
@ -177,14 +193,16 @@ RTN
@draw-hex ( value -- ) @draw-hex ( value -- )
DUP #04 SFT TOS 8** ;font-hex ++ .Screen/addr DEO2 AUTO-X
.Screen/x DEI2 #0008 ++ .Screen/x DEO2 DUP #04 SFT ,&draw JSR
( draw ) #01 .Screen/sprite DEO #0f AND ,&draw JSR
#0f AND TOS 8** ;font-hex ++ .Screen/addr DEO2 AUTO-X
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
( draw ) #01 .Screen/sprite DEO
RTN RTN
&draw
TOS 8** ;font-hex ++ .Screen/addr DEO2
( draw ) #01 .Screen/sprite DEO
RTN
@draw-cursor ( -- ) @draw-cursor ( -- )
@ -218,16 +236,6 @@ RTN
RTN RTN
@print-hex ( value -- )
STHk #04 SFT ,&parse JSR .Console/write DEO
STHr #0f AND ,&parse JSR .Console/write DEO
RTN
&parse ( value -- char )
DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN
RTN
@cursor @cursor
80c0 e0f0 f8e0 1000 80c0 e0f0 f8e0 1000
@ -243,6 +251,20 @@ RTN
bfbf bfbf 9f40 3f00 bfbf bfbf 9f40 3f00
fafa fafa f204 f800 fafa fafa f204 f800
@names-icn
&and
fc02 027e 8286 fa00
bcc2 8282 8282 8200
fc82 8282 8282 fc00
&ora
7c82 8282 8282 7c00
fc82 82fc 8282 8200
fc02 027e 8286 fa00
&eor
8282 4438 4482 8200
7c82 8282 8282 7c00
fc82 82fc 8282 8200
@font-hex ( 0-F ) @font-hex ( 0-F )
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
@ -253,4 +275,3 @@ RTN
007c 8280 8080 827c 00fc 8282 8282 82fc 007c 8280 8080 827c 00fc 8282 8282 82fc
007c 8280 f080 827c 007c 8280 f080 8080 007c 8280 f080 827c 007c 8280 f080 8080