uxn/projects/examples/devices/screen.tal

( Screen )

|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

|0000

@count $2
@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 )
	#00f0 .Screen/width DEO2
	#00a0 .Screen/height DEO2
	( find screen center )
	.Screen/width DEI2 #01 SFT2 .center/x STZ2
	.Screen/height DEI2 #01 SFT2 .center/y STZ2
	( draw )
	;draw-sprites JSR2
	;draw-1bpp JSR2
	;draw-2bpp JSR2
	#00 .Screen/auto DEO
	
BRK

@on-frame ( -> )

	#01 .Screen/auto DEO
	.count LDZ2 INC2 [ DUP2 ] .count STZ2
	.center/x LDZ2 #0028 ADD2 .Screen/x DEO2
	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
	;draw-short JSR2

BRK

@draw-sprites ( -- )
	
	.center/x LDZ2 #0068 SUB2 .Screen/x DEO2
	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
	;font-hex .Screen/addr DEO2
	#f6 .Screen/auto DEO
	#01 .Screen/sprite DEO
	#00 .Screen/auto DEO
	( table )
	;preview_icn .Screen/addr DEO2
	#00 #00
	&loop
		( move ) DUP #0f AND #40 SFT #01 SFT #00 SWP
			.center/x LDZ2 #0068 SUB2 ADD2 .Screen/x DEO2
		( move ) DUP #f0 AND #01 SFT #00 SWP
			.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2
		( draw ) DUP .Screen/sprite DEO
		INC NEQk ,&loop JCN
	POP2
	
JMP2r

@draw-1bpp ( -- )

	#10 #00
	&loop
		( color ) STHk
		( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
			[ .center/y LDZ2 #0038 SUB2 ADD2 ] STH2
		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
			[ .center/x LDZ2 #0018 SUB2 ADD2 ]
		STH2r STHr #00 ,draw-circle JSR
		INC GTHk ,&loop JCN
	POP2
	
JMP2r

@draw-2bpp ( -- )

	#10 #00
	&loop
		( color ) STHk
		( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
			[ .center/y LDZ2 #0008 ADD2 ADD2 ] STH2
		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
			[ .center/x LDZ2 #0018 SUB2 ADD2 ]
		STH2r STHr #80 ,draw-circle JSR
		INC GTHk ,&loop JCN
	POP2
	
JMP2r

@draw-circle ( x* y* color depth -- )
	
	ADD STH
	;preview_icn .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-short ( short* -- )

	SWP ,draw-byte JSR

@draw-byte ( byte -- )

	DUP #04 SFT ,draw-hex JSR #0f AND

@draw-hex ( char -- )

	#00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
	#01 .Screen/sprite DEO

JMP2r

@preview_icn
	0f38 675f dfbf bfbf 0007 1820 2344 4848

@font-hex
	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
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`( Screen )`
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`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
			`\|0000`

Added frame vector to screen.tal 2021-08-08 13:21:58 -04:00			`@count $2`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`@center &x $2 &y $2`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
			`\|0100 ( -> )`

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) Centered 2022-03-15 12:57:33 -04:00			`#00f0 .Screen/width DEO2`
			`#00a0 .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 )`
Reverted changes to screen.tal 2021-08-01 14:28:37 -04:00			`;draw-sprites JSR2`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`;draw-1bpp JSR2`
			`;draw-2bpp JSR2`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`#00 .Screen/auto DEO`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
			`BRK`

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

(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`#01 .Screen/auto DEO`
Examples cleanup 2021-08-17 22:40:07 -04:00			`.count LDZ2 INC2 [ DUP2 ] .count STZ2`
(screen.tal) Centered 2022-03-15 12:57:33 -04:00			`.center/x LDZ2 #0028 ADD2 .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`
			`;draw-short JSR2`
Added frame vector to screen.tal 2021-08-08 13:21:58 -04:00
			`BRK`

(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`@draw-sprites ( -- )`
Added mirroring to the PPU 2021-04-29 13:10:07 -04:00
(screen.tal) Centered 2022-03-15 12:57:33 -04:00			`.center/x LDZ2 #0068 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) Optimizations 2022-03-06 14:00:02 -05:00			`;font-hex .Screen/addr DEO2`
			`#f6 .Screen/auto DEO`
			`#01 .Screen/sprite DEO`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`#00 .Screen/auto DEO`
			`( table )`
Changed the screen.tal colors to fit the Varvara docs 2021-07-30 23:10:26 -04:00			`;preview_icn .Screen/addr DEO2`
			`#00 #00`
			`&loop`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`( move ) DUP #0f AND #40 SFT #01 SFT #00 SWP`
(screen.tal) Centered 2022-03-15 12:57:33 -04:00			`.center/x LDZ2 #0068 SUB2 ADD2 .Screen/x DEO2`
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`( move ) DUP #f0 AND #01 SFT #00 SWP`
			`.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`
Examples cleanup 2021-08-17 22:40:07 -04:00			`INC NEQk ,&loop JCN`
Changed the screen.tal colors to fit the Varvara docs 2021-07-30 23:10:26 -04:00			`POP2`

(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 ( -- )`

Optimized screen.tal 2021-08-02 11:59:16 -04:00			`#10 #00`
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) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2`
			`[ .center/y LDZ2 #0038 SUB2 ADD2 ] STH2`
			`( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2`
(screen.tal) Centered 2022-03-15 12:57:33 -04:00			`[ .center/x LDZ2 #0018 SUB2 ADD2 ]`
(screen.tal) Optimizations 2022-03-06 14:00:02 -05:00			`STH2r STHr #00 ,draw-circle JSR`
Examples cleanup 2021-08-17 22:40:07 -04:00			`INC GTHk ,&loop JCN`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`POP2`

(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 ( -- )`

Optimized screen.tal 2021-08-02 11:59:16 -04:00			`#10 #00`
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) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2`
			`[ .center/y LDZ2 #0008 ADD2 ADD2 ] STH2`
			`( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2`
(screen.tal) Centered 2022-03-15 12:57:33 -04:00			`[ .center/x LDZ2 #0018 SUB2 ADD2 ]`
(screen.tal) Optimizations 2022-03-06 14:00:02 -05:00			`STH2r STHr #80 ,draw-circle JSR`
Examples cleanup 2021-08-17 22:40:07 -04:00			`INC GTHk ,&loop JCN`
Pushed new blending modes 2021-08-01 14:00:07 -04:00			`POP2`
Reverted changes to screen.tal 2021-08-01 14:28:37 -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 -- )`

			`ADD STH`
			`;preview_icn .Screen/addr DEO2`
			`.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`

			`@draw-short ( short* -- )`
Added mirroring to the PPU 2021-04-29 13:10:07 -04:00
(screen.tal) Optimized to fit GBA screen 2022-03-14 17:02:43 -04:00			`SWP ,draw-byte JSR`

			`@draw-byte ( byte -- )`

			`DUP #04 SFT ,draw-hex JSR #0f AND`

			`@draw-hex ( char -- )`

			`#00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2`
			`#01 .Screen/sprite DEO`

			`JMP2r`
Device events can now fire on read 2021-04-24 13:15:47 -04:00
(screen.tal) Starting new auto-byte high nibble implementation 2022-03-06 12:56:50 -05:00			`@preview_icn`
			`0f38 675f dfbf bfbf 0007 1820 2344 4848`
Added mirroring to the PPU 2021-04-29 13:10:07 -04:00
(screen.tal) Starting new auto-byte high nibble implementation 2022-03-06 12:56:50 -05:00			`@font-hex`
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`
Started implementing the sprite port for the screen device 2021-07-30 22:23:02 -04:00			`007c 8280 f080 827c 007c 8280 f080 8080`