0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-12-05 03:57:25 +00:00
uxn/projects/examples/demos/bitwise.tal

251 lines
5.6 KiB
Tal
Raw Normal View History

2022-08-17 07:12:39 +00:00
( bitwise )
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|50 @Audio2 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|c0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
( variables )
|0000
2021-11-20 21:06:45 +00:00
@a-frame
&x $2 &y $2 &x2 $2 &y2 $2
@b-frame
&x $2 &y $2 &x2 $2 &y2 $2
@input
&a $1 &b $1
@pointer
&x $2 &y $2
( program )
|0100 ( -> )
( theme )
2021-11-20 21:06:45 +00:00
#0fe7 .System/r DEO2
#0fce .System/g DEO2
#0f2c .System/b DEO2
;on-mouse .Mouse/vector DEO2
2022-08-17 07:12:39 +00:00
.Screen/width DEI2 #01 SFT2
DUP2 #0040 SUB2 .a-frame/x STZ2 DUP2 #0040 ADD2 .a-frame/x2 STZ2
DUP2 #0040 SUB2 .b-frame/x STZ2 #0040 ADD2 .b-frame/x2 STZ2
2021-11-20 21:06:45 +00:00
2022-08-17 07:12:39 +00:00
.Screen/height DEI2 #01 SFT2 #0020 SUB2
DUP2 #0010 SUB2 .a-frame/y STZ2 DUP2 .a-frame/y2 STZ2
DUP2 .b-frame/y STZ2 #0010 ADD2 .b-frame/y2 STZ2
;redraw JSR2
BRK
@on-mouse ( -> )
;draw-cursor JSR2
2022-08-17 07:12:39 +00:00
.Mouse/state DEI #00 NEQ JMP [ BRK ]
2021-11-20 21:06:45 +00:00
.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
2021-11-20 21:06:45 +00:00
@on-touch-a ( -> )
2022-08-17 07:12:39 +00:00
.Mouse/x DEI2 .a-frame/x LDZ2 SUB2
#04 SFT2 NIP #07 SWP SUB STH
2021-11-20 21:06:45 +00:00
.input/a LDZ
#01 [ STHr #40 SFT ] SFT EOR
.input/a STZ
;redraw JSR2
2022-08-17 07:12:39 +00:00
#00 .Mouse/state DEO
2021-11-20 21:06:45 +00:00
BRK
@on-touch-b ( -> )
2022-08-17 07:12:39 +00:00
.Mouse/x DEI2 .b-frame/x LDZ2 SUB2
#04 SFT2 NIP #07 SWP SUB STH
2021-11-20 21:06:45 +00:00
.input/b LDZ
#01 [ STHr #40 SFT ] SFT EOR
.input/b STZ
2021-11-20 21:06:45 +00:00
;redraw JSR2
2022-08-17 07:12:39 +00:00
#00 .Mouse/state DEO
2021-11-20 21:06:45 +00:00
BRK
@redraw ( -- )
.a-frame/x LDZ2 .Screen/x DEO2
.a-frame/y LDZ2 .Screen/y DEO2
2021-11-20 21:17:26 +00:00
.input/a LDZ #01 ;draw-byte JSR2
2021-11-20 21:06:45 +00:00
.b-frame/x LDZ2 .Screen/x DEO2
.b-frame/y LDZ2 .Screen/y DEO2
2021-11-20 21:17:26 +00:00
.input/b LDZ #01 ;draw-byte JSR2
.b-frame/x LDZ2 .Screen/x DEO2
2022-08-17 07:12:39 +00:00
.Screen/y DEI2 #000d ADD2 .Screen/y DEO2
2021-11-20 21:17:26 +00:00
.input LDZ2 AND #03 ;draw-byte JSR2
.b-frame/x LDZ2 .Screen/x DEO2
2022-08-17 07:12:39 +00:00
.Screen/y DEI2 #000d ADD2 .Screen/y DEO2
2021-11-20 21:17:26 +00:00
.input LDZ2 ORA #03 ;draw-byte JSR2
.b-frame/x LDZ2 .Screen/x DEO2
2022-08-17 07:12:39 +00:00
.Screen/y DEI2 #000d ADD2 .Screen/y DEO2
2021-11-20 21:17:26 +00:00
.input LDZ2 EOR #03 ;draw-byte JSR2
2021-11-20 22:37:48 +00:00
( labels )
2022-08-17 07:12:39 +00:00
#05 .Screen/auto DEO
.b-frame/x LDZ2 #0020 SUB2 .Screen/x DEO2
2021-11-20 22:37:48 +00:00
;names-icn/and .Screen/addr DEO2
2022-08-17 07:12:39 +00:00
.b-frame/y2 LDZ2 #0004 ADD2 .Screen/y DEO2
2021-11-20 22:37:48 +00:00
,&draw-label JSR
2022-08-17 07:12:39 +00:00
.b-frame/y2 LDZ2 #0014 ADD2 .Screen/y DEO2
2021-11-20 22:37:48 +00:00
,&draw-label JSR
2022-08-17 07:12:39 +00:00
.b-frame/y2 LDZ2 #0024 ADD2 .Screen/y DEO2
2021-11-20 22:37:48 +00:00
,&draw-label JSR
2022-08-17 07:12:39 +00:00
#00 .Screen/auto DEO
2021-11-20 22:37:48 +00:00
2022-08-17 07:12:39 +00:00
JMP2r
2021-11-20 22:37:48 +00:00
&draw-label
2022-08-17 07:12:39 +00:00
.b-frame/x LDZ2 #0020 SUB2 .Screen/x DEO2
2021-11-20 22:37:48 +00:00
#03 .Screen/sprite DEOk DEOk DEO
2022-08-17 07:12:39 +00:00
JMP2r
@draw-byte ( value -- )
2021-11-20 21:17:26 +00:00
STH STH
#0800
&loop
2022-08-17 07:12:39 +00:00
#07 OVR SUB
2021-11-20 21:17:26 +00:00
STHkr SWP SFT #01 AND OVRr STHr ;draw-bit JSR2
INC GTHk ,&loop JCN
POP2
2022-08-17 07:12:39 +00:00
.Screen/y DEI2 #0003 ADD2 .Screen/y DEO2
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
STHr ;draw-hex JSR2
2021-11-20 21:17:26 +00:00
POPr
2022-08-17 07:12:39 +00:00
JMP2r
2021-11-20 21:17:26 +00:00
@draw-bit ( value color -- )
2021-11-20 21:17:26 +00:00
STH STH
2022-08-17 07:12:39 +00:00
#05 .Screen/auto DEO
;button-icns/off [ #00 STHkr #50 SFT ADD2 ] .Screen/addr DEO2
2021-11-20 21:17:26 +00:00
OVRr STHr .Screen/sprite DEO
OVRr STHr .Screen/sprite DEO
2022-08-17 07:12:39 +00:00
.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
.Screen/x DEI2 #0010 SUB2 .Screen/x DEO2
2021-11-20 21:17:26 +00:00
OVRr STHr .Screen/sprite DEO
OVRr STHr .Screen/sprite DEO
2022-08-17 07:12:39 +00:00
#00 .Screen/auto DEO
.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
2022-08-17 07:12:39 +00:00
POP2r
2022-08-17 07:12:39 +00:00
JMP2r
@draw-hex ( value -- )
2022-08-17 07:12:39 +00:00
#01 .Screen/auto DEO
2021-11-20 22:37:48 +00:00
DUP #04 SFT ,&draw JSR
#0f AND ,&draw JSR
2022-08-17 07:12:39 +00:00
#01 .Screen/auto DEO
2022-08-17 07:12:39 +00:00
JMP2r
2021-11-20 22:37:48 +00:00
&draw
2022-08-17 07:12:39 +00:00
#00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
2021-11-20 22:37:48 +00:00
( draw ) #01 .Screen/sprite DEO
2022-08-17 07:12:39 +00:00
JMP2r
@draw-cursor ( -- )
( clear last cursor )
;cursor .Screen/addr DEO2
.pointer/x LDZ2 .Screen/x DEO2
.pointer/y LDZ2 .Screen/y DEO2
#40 .Screen/sprite DEO
( record pointer positions )
.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
( colorize on state )
2022-08-17 07:12:39 +00:00
#42 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/sprite DEO
2021-11-20 21:06:45 +00:00
2022-08-17 07:12:39 +00:00
JMP2r
2021-11-20 21:06:45 +00:00
@within-rect ( x* y* rect -- flag )
STH
2022-08-17 07:12:39 +00:00
( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ,&skip JCN
2021-11-20 21:06:45 +00:00
( 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
2022-08-17 07:12:39 +00:00
JMP2r
2021-11-20 21:06:45 +00:00
&skip
POP2 POP2 POPr
#00
2022-08-17 07:12:39 +00:00
JMP2r
@cursor
80c0 e0f0 f8e0 1000
@button-icns
&off
3f40 8080 8080 8080
f804 0202 0202 0202
8080 8080 8040 3f00
0202 0202 0204 f800
&on
3f40 9fbf bfbf bfbf
f804 f2fa fafa fafa
bfbf bfbf 9f40 3f00
fafa fafa f204 f800
2021-11-20 22:37:48 +00:00
@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 )
007c 8282 8282 827c 0030 1010 1010 1010
007c 8202 7c80 80fe 007c 8202 1c02 827c
000c 1424 4484 fe04 00fe 8080 7c02 827c
007c 8280 fc82 827c 007c 8202 1e02 0202
007c 8282 7c82 827c 007c 8282 7e02 827c
007c 8202 7e82 827e 00fc 8282 fc82 82fc
007c 8280 8080 827c 00fc 8282 8282 82fc
007c 8280 f080 827c 007c 8280 f080 8080