uxn/projects/examples/demos/bitwise.tal

( 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

@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 ) 
	#0fe7 .System/r DEO2 
	#0fce .System/g DEO2 
	#0f2c .System/b DEO2

	;on-mouse   .Mouse/vector DEO2

	.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

	.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 
	
	.Mouse/state DEI #00 NEQ 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 SUB2
	#04 SFT2 NIP #07 SWP SUB STH

	.input/a LDZ 
		#01 [ STHr #40 SFT ] SFT EOR 
		.input/a STZ

	;redraw JSR2
	#00 .Mouse/state DEO

BRK

@on-touch-b ( -> )

	.Mouse/x DEI2 .b-frame/x LDZ2 SUB2
	#04 SFT2 NIP #07 SWP SUB STH

	.input/b LDZ 
		#01 [ STHr #40 SFT ] SFT EOR 
		.input/b STZ

	;redraw JSR2
	#00 .Mouse/state DEO

BRK

@redraw ( -- )

	.a-frame/x LDZ2  .Screen/x DEO2
	.a-frame/y LDZ2  .Screen/y DEO2
	.input/a LDZ #01 ;draw-byte JSR2

	.b-frame/x LDZ2 .Screen/x DEO2
	.b-frame/y LDZ2 .Screen/y DEO2
	.input/b LDZ #01 ;draw-byte JSR2

	.b-frame/x LDZ2 .Screen/x DEO2
	.Screen/y DEI2 #000d ADD2 .Screen/y DEO2
	.input LDZ2 AND #03 ;draw-byte JSR2

	.b-frame/x LDZ2 .Screen/x DEO2
	.Screen/y DEI2 #000d ADD2 .Screen/y DEO2
	.input LDZ2 ORA #03 ;draw-byte JSR2

	.b-frame/x LDZ2 .Screen/x DEO2
	.Screen/y DEI2 #000d ADD2 .Screen/y DEO2
	.input LDZ2 EOR #03 ;draw-byte JSR2

	( labels )
	#05 .Screen/auto DEO
	.b-frame/x LDZ2 #0020 SUB2 .Screen/x DEO2
	;names-icn/and .Screen/addr DEO2
	.b-frame/y2 LDZ2 #0004 ADD2 .Screen/y DEO2
	,&draw-label JSR
	.b-frame/y2 LDZ2 #0014 ADD2 .Screen/y DEO2
	,&draw-label JSR
	.b-frame/y2 LDZ2 #0024 ADD2 .Screen/y DEO2
	,&draw-label JSR
	#00 .Screen/auto DEO

JMP2r
	&draw-label
		.b-frame/x LDZ2 #0020 SUB2 .Screen/x DEO2
		#03 .Screen/sprite DEOk DEOk DEO
	JMP2r

@draw-byte ( value -- )

	STH STH
	#0800
	&loop
		#07 OVR SUB
		STHkr SWP SFT #01 AND OVRr STHr ;draw-bit JSR2
		INC GTHk ,&loop JCN
	POP2
	.Screen/y DEI2 #0003 ADD2 .Screen/y DEO2
	.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
	STHr ;draw-hex JSR2
	POPr

JMP2r

@draw-bit ( value color -- )

	STH STH

	#05 .Screen/auto DEO
	;button-icns/off [ #00 STHkr #50 SFT ADD2 ] .Screen/addr DEO2
	OVRr STHr .Screen/sprite DEO
	OVRr STHr .Screen/sprite DEO
	.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
	.Screen/x DEI2 #0010 SUB2 .Screen/x DEO2
	OVRr STHr .Screen/sprite DEO
	OVRr STHr .Screen/sprite DEO
	#00 .Screen/auto DEO
	.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2

	POP2r

JMP2r

@draw-hex ( value -- )

	#01 .Screen/auto DEO
	DUP #04 SFT ,&draw JSR
	#0f AND ,&draw JSR
	#01 .Screen/auto DEO

JMP2r
	&draw
		#00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
		( draw ) #01 .Screen/sprite DEO
	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 )
	#42 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/sprite DEO

JMP2r

@within-rect ( x* y* rect -- flag )
	
	STH
	( y < rect.y1 ) DUP2 STHkr INC INC 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 
JMP2r
	&skip
	POP2 POP2 POPr
	#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

@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
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`( bitwise )`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`\|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 ]`
Move DateTime to 0xc0, add second File to 0xb0. 2022-03-17 14:57:22 -04:00			`\|c0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`( variables )`

			`\|0000`

(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00			`@a-frame`
			`&x $2 &y $2 &x2 $2 &y2 $2`
			`@b-frame`
			`&x $2 &y $2 &x2 $2 &y2 $2`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00			`@input`
			`&a $1 &b $1`
			`@pointer`
			`&x $2 &y $2`

			`( program )`

			`\|0100 ( -> )`

			`( theme )`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00			`#0fe7 .System/r DEO2`
			`#0fce .System/g DEO2`
			`#0f2c .System/b DEO2`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`;on-mouse .Mouse/vector DEO2`

(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04: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`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04: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`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`;redraw JSR2`

			`BRK`

			`@on-mouse ( -> )`

			`;draw-cursor JSR2`

(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Mouse/state DEI #00 NEQ JMP [ BRK ]`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05: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`

(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00			`BRK`

(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00			`@on-touch-a ( -> )`

(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Mouse/x DEI2 .a-frame/x LDZ2 SUB2`
			`#04 SFT2 NIP #07 SWP SUB STH`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00
			`.input/a LDZ`
			`#01 [ STHr #40 SFT ] SFT EOR`
			`.input/a STZ`

			`;redraw JSR2`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#00 .Mouse/state DEO`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00
			`BRK`

			`@on-touch-b ( -> )`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Mouse/x DEI2 .b-frame/x LDZ2 SUB2`
			`#04 SFT2 NIP #07 SWP SUB STH`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00			`.input/b LDZ`
			`#01 [ STHr #40 SFT ] SFT EOR`
			`.input/b STZ`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00			`;redraw JSR2`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#00 .Mouse/state DEO`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00
			`BRK`

			`@redraw ( -- )`

			`.a-frame/x LDZ2 .Screen/x DEO2`
			`.a-frame/y LDZ2 .Screen/y DEO2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`.input/a LDZ #01 ;draw-byte JSR2`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00			`.b-frame/x LDZ2 .Screen/x DEO2`
			`.b-frame/y LDZ2 .Screen/y DEO2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`.input/b LDZ #01 ;draw-byte JSR2`

			`.b-frame/x LDZ2 .Screen/x DEO2`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Screen/y DEI2 #000d ADD2 .Screen/y DEO2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`.input LDZ2 AND #03 ;draw-byte JSR2`

			`.b-frame/x LDZ2 .Screen/x DEO2`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Screen/y DEI2 #000d ADD2 .Screen/y DEO2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`.input LDZ2 ORA #03 ;draw-byte JSR2`

			`.b-frame/x LDZ2 .Screen/x DEO2`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Screen/y DEI2 #000d ADD2 .Screen/y DEO2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`.input LDZ2 EOR #03 ;draw-byte JSR2`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`( labels )`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#05 .Screen/auto DEO`
			`.b-frame/x LDZ2 #0020 SUB2 .Screen/x DEO2`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`;names-icn/and .Screen/addr DEO2`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.b-frame/y2 LDZ2 #0004 ADD2 .Screen/y DEO2`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`,&draw-label JSR`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.b-frame/y2 LDZ2 #0014 ADD2 .Screen/y DEO2`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`,&draw-label JSR`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.b-frame/y2 LDZ2 #0024 ADD2 .Screen/y DEO2`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`,&draw-label JSR`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#00 .Screen/auto DEO`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`&draw-label`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.b-frame/x LDZ2 #0020 SUB2 .Screen/x DEO2`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`#03 .Screen/sprite DEOk DEOk DEO`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`@draw-byte ( value -- )`

(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`STH STH`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00			`#0800`
			`&loop`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#07 OVR SUB`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`STHkr SWP SFT #01 AND OVRr STHr ;draw-bit JSR2`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00			`INC GTHk ,&loop JCN`
			`POP2`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Screen/y DEI2 #0003 ADD2 .Screen/y DEO2`
			`.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00			`STHr ;draw-hex JSR2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`POPr`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`@draw-bit ( value color -- )`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`STH STH`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#05 .Screen/auto DEO`
			`;button-icns/off [ #00 STHkr #50 SFT ADD2 ] .Screen/addr DEO2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`OVRr STHr .Screen/sprite DEO`
			`OVRr STHr .Screen/sprite DEO`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2`
			`.Screen/x DEI2 #0010 SUB2 .Screen/x DEO2`
(logic.tal) Displaying basic gates 2021-11-20 16:17:26 -05:00			`OVRr STHr .Screen/sprite DEO`
			`OVRr STHr .Screen/sprite DEO`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#00 .Screen/auto DEO`
			`.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`POP2r`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`@draw-hex ( value -- )`

(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#01 .Screen/auto DEO`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`DUP #04 SFT ,&draw JSR`
			`#0f AND ,&draw JSR`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#01 .Screen/auto DEO`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`&draw`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2`
(logic.tal) Cleanup 2021-11-20 17:37:48 -05:00			`( draw ) #01 .Screen/sprite DEO`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`@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 )`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`#42 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/sprite DEO`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00
			`@within-rect ( x* y* rect -- flag )`

			`STH`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ,&skip JCN`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05: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`
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Input can be toggled 2021-11-20 16:06:45 -05:00			`&skip`
			`POP2 POP2 POPr`
			`#00`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
(logic.tal) Renamed to bitwise.tal 2022-08-17 03:12:39 -04:00			`JMP2r`
(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00
			`@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`

(logic.tal) Cleanup 2021-11-20 17:37:48 -05: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`

(logic.tal) Starting logic gates playground 2021-11-20 15:38:01 -05:00			`@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`