uxn/projects/examples/devices/screen.tal

( Screen:
	Draws a table of all possible sprite arrangements. )

|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
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1

|0000

	@center &x $2 &y $2

|0100 ( -> )

	( vector )
	;on-frame .Screen/vector DEO2
	( theme )
	#f07f .System/r DEO2
	#f0e0 .System/g DEO2
	#f0c0 .System/b DEO2
	( gba screen size 00f0 x 00a0 )
	( nds screen size 0100 x 00c0 )
	#0100 .Screen/width DEO2
	#00b0 .Screen/height DEO2
	( find screen center )
	.Screen/width DEI2 #01 SFT2 .center/x STZ2
	.Screen/height DEI2 #01 SFT2 .center/y STZ2
	( draw )
	draw-size
	draw-sprites
	draw-1bpp
	draw-2bpp

BRK

(
@|vectors )

@on-frame ( -> )

	( scroll background )
	[ LIT2 &f $2 ] INC2k ,&f STR2
		#01 SFT2
		#001f AND2
		#0040 SUB2
			DUP2 .Screen/x DEO2
			.Screen/y DEO2
	;patt-icn draw-fill

	.center/x LDZ2 #0070 SUB2 .Screen/x DEO2
	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
	;anim-chr ,&f LDR2 #00ff AND2 #02 SFT #07 AND #40 SFT ADD2 .Screen/addr DEO2
	#8f .Screen/sprite DEO

	draw-size
	draw-sprites
	draw-1bpp
	draw-2bpp

BRK

(
@|drawing )

@draw-sprites ( -- )

	( horizontal )
	.center/x LDZ2 #0060 SUB2 .Screen/x DEO2
	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
	;font-icn .Screen/addr DEO2
	#f6 .Screen/auto DEO
	#05 .Screen/sprite DEO
	( vertical )
	.center/x LDZ2 #0070 SUB2 .Screen/x DEO2
	.center/y LDZ2 #0038 SUB2 .Screen/y DEO2
	;font-icn .Screen/addr DEO2
	#f5 .Screen/auto DEO
	#05 .Screen/sprite DEO
	( table )
	#00 .Screen/auto DEO
	;preview-chr .Screen/addr DEO2
	#00
	&loop
		( move ) #00 OVR #0f AND #30 SFT
			.center/x LDZ2 #0060 SUB2 ADD2 .Screen/x DEO2
		( move ) #00 OVR #f0 AND #01 SFT
			.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2
		( draw ) DUP .Screen/sprite DEO
		INC DUP ?&loop
	POP

JMP2r

@draw-1bpp ( -- )

	#1000
	&loop
		( color ) STHk
		( y ) #00 OVR #42 SFT2
			.center/y LDZ2 #0038 SUB2 ADD2 STH2
		( x ) #00 OVR #03 AND #40 SFT2 #0040 ADD2
			.center/x LDZ2 #0010 SUB2 ADD2
		STH2r STHr #00 draw-circle
		INC GTHk ?&loop
	POP2

JMP2r

@draw-2bpp ( -- )

	#1000
	&loop
		( color ) STHk
		( y ) #00 OVR #42 SFT2
			.center/y LDZ2 #0008 ADD2 ADD2 STH2
		( x ) #00 OVR #03 AND #40 SFT2 #0040 ADD2
			.center/x LDZ2 #0010 SUB2 ADD2
		STH2r STHr #80 draw-circle
		INC GTHk ?&loop
	POP2

JMP2r

@draw-circle ( x* y* color depth -- )

	ADD STH
	;preview-chr .Screen/addr DEO2
	.Screen/y DEO2
	.Screen/x DEO2
	#01 .Screen/auto DEO
	STHr .Screen/sprite DEOk
	#02 .Screen/auto DEO
	SWP #10 ADD SWP DEOk
	.Screen/x DEI2k #0008 SUB2 ROT DEO2
	#01 .Screen/auto DEO
	SWP #10 ADD SWP DEOk
	SWP #10 ADD SWP DEO

JMP2r

@draw-fill ( patt* color -- )

	.Screen/addr DEO2
	[ LIT2 01 -Screen/auto ] DEO
	.Screen/x DEI2 ,&anchor STR2
	.Screen/width DEI2 #03 SFT2 NIP #08 ADD ,&x STR
	.Screen/height DEI2 #03 SFT2 NIP #08 ADD #00
	&h
		DUP #02 SFT STH
		[ LIT &x $1 ] #00
		&w
			DUP #02 SFT STHkr ADD #01 AND .Screen/sprite DEO
			INC GTHk ?&w
			.Screen/y DEI2k #0008 ADD2 ROT DEO2
			[ LIT2 &anchor $2 ] .Screen/x DEO2
		POP2 POPr
		INC GTHk ?&h
	POP2

JMP2r

@draw-size ( -- )

	#01 .Screen/auto DEO
	.center/x LDZ2 #0030 ADD2 .Screen/x DEO2
	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
	.Screen/width DEI2 draw-dec
	;x-icn .Screen/addr DEO2
	#01 .Screen/sprite DEO
	.Screen/height DEI2

@draw-dec ( short* -- )

	#00 ,&z STR
	#2710 draw-dec/parse
	#03e8 draw-dec/parse
	#0064 draw-dec/parse
	#000a draw-dec/parse
	NIP
	&emit
		DUP [ LIT &z $1 ] EQU ?&skip
			#ff ,&z STR #00 OVR #30 SFT ;font-icn ADD2 .Screen/addr DEO2
			#01 .Screen/sprite DEO
			&skip
	POP

JMP2r
	&parse DIV2k DUP ,&emit JSR MUL2 SUB2 JMP2r

(
@|assets )

@patt-icn [
	aa55 aa55 aa55 aa55 ]
@x-icn [
	0000 0018 1800 0000 ]
@preview-chr [
	0f38 675f dfbf bfbf 0007 1820 2344 4848 ]
@font-icn ( 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 [
@anim-chr [
	0000 0018 1800 0000 c381 0000 0000 81c3 
	0000 183c 3c18 0000 0000 0000 0000 0000
	0018 3c7e 7e3c 1800 0000 0000 0000 0000 
	3c7e ffe7 e7ff 7e3c 0000 0018 1800 0000
	ffff e7c3 c3e7 ffff 0000 183c 3c18 0000 
	ffe7 c381 81c3 e7ff 0018 3c7e 7e3c 1800
	c381 0000 0000 81c3 3c7e ffe7 e7ff 7e3c 
	0000 0000 0000 0000 ffff e7c3 c3e7 ffff
	0000 0000 0000 0000 ffe7 c381 81c3 e7ff ]
(examples/devices) Revamped a lot of the device examples 2022-03-27 14:53:24 -04:00			`( Screen:`
			`Draws a table of all possible sprite arrangements. )`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`\|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`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`\|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
			`\|0000`

(screen.tal) Optimizations 2022-11-10 12:21:02 -05:00			`@center &x $2 &y $2`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
			`\|0100 ( -> )`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00
Added frame vector to screen.tal 2021-08-08 13:21:58 -04:00			`( vector )`
			`;on-frame .Screen/vector DEO2`
(screen.tal) Starting new auto-byte high nibble implementation 2022-03-06 12:56:50 -05:00			`( theme )`
Changed the screen.tal colors to fit the Varvara docs 2021-07-30 23:10:26 -04:00			`#f07f .System/r DEO2`
(screen.tal) Starting new auto-byte high nibble implementation 2022-03-06 12:56:50 -05:00			`#f0e0 .System/g DEO2`
			`#f0c0 .System/b DEO2`
(screen.tal) Centered 2022-03-15 12:57:33 -04:00			`( gba screen size 00f0 x 00a0 )`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`( nds screen size 0100 x 00c0 )`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`#0100 .Screen/width DEO2`
			`#00b0 .Screen/height DEO2`
Device events can now fire on read 2021-04-24 13:15:47 -04:00			`( find screen center )`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`.Screen/width DEI2 #01 SFT2 .center/x STZ2`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`.Screen/height DEI2 #01 SFT2 .center/y STZ2`
Device events can now fire on read 2021-04-24 13:15:47 -04:00			`( draw )`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`draw-size`
			`draw-sprites`
			`draw-1bpp`
			`draw-2bpp`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00
Device events can now fire on read 2021-04-24 13:15:47 -04:00			`BRK`

(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`(`
			`@\|vectors )`

Added frame vector to screen.tal 2021-08-08 13:21:58 -04:00			`@on-frame ( -> )`

(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`( scroll background )`
			`[ LIT2 &f $2 ] INC2k ,&f STR2`
			`#01 SFT2`
			`#001f AND2`
			`#0040 SUB2`
			`DUP2 .Screen/x DEO2`
			`.Screen/y DEO2`
			`;patt-icn draw-fill`

(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`.center/x LDZ2 #0070 SUB2 .Screen/x DEO2`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`.center/y LDZ2 #0048 SUB2 .Screen/y DEO2`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`;anim-chr ,&f LDR2 #00ff AND2 #02 SFT #07 AND #40 SFT ADD2 .Screen/addr DEO2`
			`#8f .Screen/sprite DEO`

			`draw-size`
			`draw-sprites`
			`draw-1bpp`
			`draw-2bpp`
Added frame vector to screen.tal 2021-08-08 13:21:58 -04:00
			`BRK`

(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`(`
			`@\|drawing )`

(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`@draw-sprites ( -- )`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00
(screen.tal) Improved layout 2022-03-26 21:29:38 -04:00			`( horizontal )`
			`.center/x LDZ2 #0060 SUB2 .Screen/x DEO2`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`.center/y LDZ2 #0048 SUB2 .Screen/y DEO2`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`;font-icn .Screen/addr DEO2`
(screen.tal) Optimizations 2022-03-06 14:00:02 -05:00			`#f6 .Screen/auto DEO`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`#05 .Screen/sprite DEO`
(screen.tal) Improved layout 2022-03-26 21:29:38 -04:00			`( vertical )`
			`.center/x LDZ2 #0070 SUB2 .Screen/x DEO2`
			`.center/y LDZ2 #0038 SUB2 .Screen/y DEO2`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`;font-icn .Screen/addr DEO2`
(screen.tal) Improved layout 2022-03-26 21:29:38 -04:00			`#f5 .Screen/auto DEO`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`#05 .Screen/sprite DEO`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`( table )`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`#00 .Screen/auto DEO`
			`;preview-chr .Screen/addr DEO2`
			`#00`
Changed the screen.tal colors to fit the Varvara docs 2021-07-30 23:10:26 -04:00			`&loop`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`( move ) #00 OVR #0f AND #30 SFT`
(screen.tal) Improved layout 2022-03-26 21:29:38 -04:00			`.center/x LDZ2 #0060 SUB2 ADD2 .Screen/x DEO2`
(screen.tal) Optimizations 2022-11-10 12:21:02 -05:00			`( move ) #00 OVR #f0 AND #01 SFT`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2`
Optimized screen.tal 2021-08-02 11:59:16 -04:00			`( draw ) DUP .Screen/sprite DEO`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`INC DUP ?&loop`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`POP`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`JMP2r`
Changed the screen.tal colors to fit the Varvara docs 2021-07-30 23:10:26 -04:00
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`@draw-1bpp ( -- )`

(screen.tal) Optimizations 2022-11-10 12:21:02 -05:00			`#1000`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`&loop`
Optimized screen.tal 2021-08-02 11:59:16 -04:00			`( color ) STHk`
(screen.tal) Optimizations 2022-11-10 12:21:02 -05:00			`( y ) #00 OVR #42 SFT2`
			`.center/y LDZ2 #0038 SUB2 ADD2 STH2`
			`( x ) #00 OVR #03 AND #40 SFT2 #0040 ADD2`
			`.center/x LDZ2 #0010 SUB2 ADD2`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`STH2r STHr #00 draw-circle`
			`INC GTHk ?&loop`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`POP2`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`JMP2r`
Pushed new blending modes 2021-08-01 14:00:07 -04:00
			`@draw-2bpp ( -- )`

(screen.tal) Optimizations 2022-11-10 12:21:02 -05:00			`#1000`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`&loop`
Optimized screen.tal 2021-08-02 11:59:16 -04:00			`( color ) STHk`
(screen.tal) Optimizations 2022-11-10 12:21:02 -05:00			`( y ) #00 OVR #42 SFT2`
			`.center/y LDZ2 #0008 ADD2 ADD2 STH2`
			`( x ) #00 OVR #03 AND #40 SFT2 #0040 ADD2`
			`.center/x LDZ2 #0010 SUB2 ADD2`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`STH2r STHr #80 draw-circle`
			`INC GTHk ?&loop`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`POP2`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`JMP2r`
Pushed new blending modes 2021-08-01 14:00:07 -04:00
(screen.tal) Optimizations 2022-03-06 14:00:02 -05:00			`@draw-circle ( x* y* color depth -- )`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00
(screen.tal) Optimizations 2022-03-06 14:00:02 -05:00			`ADD STH`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`;preview-chr .Screen/addr DEO2`
(screen.tal) Optimizations 2022-03-06 14:00:02 -05:00			`.Screen/y DEO2`
			`.Screen/x DEO2`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`#01 .Screen/auto DEO`
(screen.tal) Optimizations 2022-03-06 14:00:02 -05:00			`STHr .Screen/sprite DEOk`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`#02 .Screen/auto DEO`
			`SWP #10 ADD SWP DEOk`
			`.Screen/x DEI2k #0008 SUB2 ROT DEO2`
			`#01 .Screen/auto DEO`
			`SWP #10 ADD SWP DEOk`
			`SWP #10 ADD SWP DEO`

			`JMP2r`

(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`@draw-fill ( patt* color -- )`

			`.Screen/addr DEO2`
			`[ LIT2 01 -Screen/auto ] DEO`
			`.Screen/x DEI2 ,&anchor STR2`
			`.Screen/width DEI2 #03 SFT2 NIP #08 ADD ,&x STR`
			`.Screen/height DEI2 #03 SFT2 NIP #08 ADD #00`
			`&h`
			`DUP #02 SFT STH`
			`[ LIT &x $1 ] #00`
			`&w`
			`DUP #02 SFT STHkr ADD #01 AND .Screen/sprite DEO`
			`INC GTHk ?&w`
			`.Screen/y DEI2k #0008 ADD2 ROT DEO2`
			`[ LIT2 &anchor $2 ] .Screen/x DEO2`
			`POP2 POPr`
			`INC GTHk ?&h`
			`POP2`

			`JMP2r`

(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`@draw-size ( -- )`
Added mirroring to the PPU 2021-04-29 13:10:07 -04:00
(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`#01 .Screen/auto DEO`
			`.center/x LDZ2 #0030 ADD2 .Screen/x DEO2`
			`.center/y LDZ2 #0048 SUB2 .Screen/y DEO2`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`.Screen/width DEI2 draw-dec`
(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`;x-icn .Screen/addr DEO2`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`#01 .Screen/sprite DEO`
(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`.Screen/height DEI2`

			`@draw-dec ( short* -- )`

			`#00 ,&z STR`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`#2710 draw-dec/parse`
			`#03e8 draw-dec/parse`
			`#0064 draw-dec/parse`
			`#000a draw-dec/parse`
(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`NIP`
			`&emit`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`DUP [ LIT &z $1 ] EQU ?&skip`
(screen.tal) Housekeeping 2023-01-09 22:14:31 -05:00			`#ff ,&z STR #00 OVR #30 SFT ;font-icn ADD2 .Screen/addr DEO2`
(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`#01 .Screen/sprite DEO`
			`&skip`
			`POP`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00
			`JMP2r`
(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00			`&parse DIV2k DUP ,&emit JSR MUL2 SUB2 JMP2r`

			`(`
			`@\|assets )`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`@patt-icn [`
			`aa55 aa55 aa55 aa55 ]`
(screen.c) Improved readability of the code 2023-04-14 00:33:16 -04:00			`@x-icn [`
			`0000 0018 1800 0000 ]`
			`@preview-chr [`
			`0f38 675f dfbf bfbf 0007 1820 2344 4848 ]`
			`@font-icn ( 0-f ) [`
Added mirroring to the PPU 2021-04-29 13:10:07 -04:00			`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`
(screen.c) Improved readability of the code 2023-04-14 00:33:16 -04:00			`007c 8280 f080 827c 007c 8280 f080 8080 [`
			`@anim-chr [`
(screen.tal) Improved screen testing rom 2023-04-14 22:51:05 -04:00			`0000 0018 1800 0000 c381 0000 0000 81c3`
			`0000 183c 3c18 0000 0000 0000 0000 0000`
			`0018 3c7e 7e3c 1800 0000 0000 0000 0000`
			`3c7e ffe7 e7ff 7e3c 0000 0018 1800 0000`
			`ffff e7c3 c3e7 ffff 0000 183c 3c18 0000`
			`ffe7 c381 81c3 e7ff 0018 3c7e 7e3c 1800`
			`c381 0000 0000 81c3 3c7e ffe7 e7ff 7e3c`
			`0000 0000 0000 0000 ffff e7c3 c3e7 ffff`
(screen.c) Improved readability of the code 2023-04-14 00:33:16 -04:00			`0000 0000 0000 0000 ffe7 c381 81c3 e7ff ]`
(screen.tal) Display screen size 2023-01-09 22:04:52 -05:00