uxn/projects/examples/devices/screen.tal

( dev/screen )

%RTN { JMP2r }
%2/  { #01 SFT }
%4/  { #02 SFT }

( devices )

|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 &pad   $2 &x      $2 &y     $2 &addr $2 &pixel $1 &sprite $1 ]

( variables )

|0000

@count $2
@center
	&x $2 &y $2

( init )

|0100 ( -> )
	
	( vector )
	;on-frame .Screen/vector DEO2

	( theme ) 
	#f07f .System/r DEO2
	#f0e0 .System/g DEO2 
	#f0c0 .System/b DEO2 

	( find screen center )
	.Screen/width DEI2 #01 SFT2 #0020 SUB2 .center/x STZ2
	.Screen/height DEI2 #01 SFT2 .center/y STZ2

	( draw )
	;draw-table JSR2
	;draw-sprites JSR2
	;draw-1bpp JSR2
	;draw-2bpp JSR2
	;draw-pixels JSR2
	
BRK

@on-frame ( -> )

	.count LDZ2 INC2 [ DUP2 ] .count STZ2
	
	.center/x LDZ2 #0048 ADD2 .Screen/x DEO2
	.center/y LDZ2 #0050 SUB2 .Screen/y DEO2

	( color ) #01 STH

	SWP 
	DUP #04 SFT [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
	( draw ) STHkr .Screen/sprite DEO
	#0f AND [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
	.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
	( draw ) STHkr .Screen/sprite DEO
	DUP #04 SFT [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
	.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
	( draw ) STHkr .Screen/sprite DEO
	#0f AND [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
	.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
	( draw ) STHr .Screen/sprite DEO

BRK

@draw-table ( -- )
	
	#10 #00
	&loop
		DUP #30 SFT #00 SWP ;font-hex ADD2 .Screen/addr DEO2
		( x-axis ) 
		DUP #30 SFT #00 SWP 
		.center/x LDZ2 #0040 SUB2 ADD2 .Screen/x DEO2
		.center/y LDZ2 #0050 SUB2 .Screen/y DEO2
		( draw ) #01 .Screen/sprite DEO
		( y-axis )
		DUP #30 SFT #00 SWP 
		.center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2
		.center/x LDZ2 #0050 SUB2 .Screen/x DEO2
		( draw ) #01 .Screen/sprite DEO
		INC GTHk ,&loop JCN
	POP2

RTN

@draw-sprites ( -- )
	
	;preview_icn .Screen/addr DEO2
	#00 #00
	&loop
		( move ) DUP #0f AND #40 SFT 2/ #00 SWP 
			.center/x LDZ2 #0040 SUB2 ADD2 .Screen/x DEO2
		( move ) DUP #f0 AND 2/ #00 SWP 
			.center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2
		( draw ) DUP .Screen/sprite DEO
		INC NEQk ,&loop JCN
	POP2
	
RTN

@draw-1bpp ( -- )

	#10 #00
	&loop
		( color ) STHk
		( y ) DUP 4/ [ #00 SWP ] #40 SFT2
			[ .center/y LDZ2 #0040 SUB2 ADD2 ] STH2
		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2 
			[ .center/x LDZ2 #0008 ADD2 ADD2 ]
		STH2r STHr #00 ;draw-circle JSR2
		INC GTHk ,&loop JCN
	POP2
	
RTN

@draw-2bpp ( -- )

	#10 #00
	&loop
		( color ) STHk
		( y ) DUP 4/ [ #00 SWP ] #40 SFT2
			[ .center/y LDZ2 ADD2 ] STH2
		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2 
			[ .center/x LDZ2 #0008 ADD2 ADD2 ]
		STH2r STHr #80 ;draw-circle JSR2
		INC GTHk ,&loop JCN
	POP2
	
RTN

@draw-circle ( x* y* color depth -- )
	
	ADD STH
	;preview_icn .Screen/addr DEO2
	.Screen/y DEO2
	.Screen/x DEO2

	#00 STHkr ADD .Screen/sprite DEO
	.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
		#10 STHkr ADD .Screen/sprite DEO
	.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
	.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
		#20 STHkr ADD .Screen/sprite DEO
	.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
		#30 STHr ADD .Screen/sprite DEO

RTN

@draw-pixels ( -- )
	
	.center/y LDZ2 #0040 SUB2 .Screen/y DEO2
	.center/x LDZ2 #0048 ADD2 .Screen/x DEO2
		#00 .Screen/pixel DEO
	.center/x LDZ2 #0049 ADD2 .Screen/x DEO2
		#01 .Screen/pixel DEO
	.center/x LDZ2 #004a ADD2 .Screen/x DEO2
		#02 .Screen/pixel DEO
	.center/x LDZ2 #004b ADD2 .Screen/x DEO2
		#03 .Screen/pixel DEO

RTN

@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
Device events can now fire on read 2021-04-24 17:15:47 +00:00			`( dev/screen )`

			`%RTN { JMP2r }`
Examples cleanup 2021-08-18 02:40:07 +00:00			`%2/ { #01 SFT }`
			`%4/ { #02 SFT }`
Device events can now fire on read 2021-04-24 17:15:47 +00:00
			`( devices )`

Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`\|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`\|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]`
Device events can now fire on read 2021-04-24 17:15:47 +00:00
			`( variables )`

			`\|0000`

Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`@count $2`
			`@center`
			`&x $2 &y $2`
Device events can now fire on read 2021-04-24 17:15:47 +00:00
			`( init )`

			`\|0100 ( -> )`

Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`( vector )`
			`;on-frame .Screen/vector DEO2`

Device events can now fire on read 2021-04-24 17:15:47 +00:00			`( theme )`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`#f07f .System/r DEO2`
			`#f0e0 .System/g DEO2`
			`#f0c0 .System/b DEO2`
Device events can now fire on read 2021-04-24 17:15:47 +00:00
			`( find screen center )`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`.Screen/width DEI2 #01 SFT2 #0020 SUB2 .center/x STZ2`
			`.Screen/height DEI2 #01 SFT2 .center/y STZ2`
Device events can now fire on read 2021-04-24 17:15:47 +00:00
			`( draw )`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00			`;draw-table JSR2`
Reverted changes to screen.tal 2021-08-01 18:28:37 +00:00			`;draw-sprites JSR2`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`;draw-1bpp JSR2`
			`;draw-2bpp JSR2`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`;draw-pixels JSR2`
Device events can now fire on read 2021-04-24 17:15:47 +00:00
			`BRK`

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

Examples cleanup 2021-08-18 02:40:07 +00:00			`.count LDZ2 INC2 [ DUP2 ] .count STZ2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00
			`.center/x LDZ2 #0048 ADD2 .Screen/x DEO2`
			`.center/y LDZ2 #0050 SUB2 .Screen/y DEO2`

			`( color ) #01 STH`

			`SWP`
			`DUP #04 SFT [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2`
			`( draw ) STHkr .Screen/sprite DEO`
			`#0f AND [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2`
			`.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2`
			`( draw ) STHkr .Screen/sprite DEO`
			`DUP #04 SFT [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2`
			`.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2`
			`( draw ) STHkr .Screen/sprite DEO`
			`#0f AND [ #00 SWP ] #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2`
			`.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2`
			`( draw ) STHr .Screen/sprite DEO`

			`BRK`

Added mirroring to the PPU 2021-04-29 17:10:07 +00:00			`@draw-table ( -- )`

Optimized screen.tal 2021-08-02 15:59:16 +00:00			`#10 #00`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00			`&loop`
Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`DUP #30 SFT #00 SWP ;font-hex ADD2 .Screen/addr DEO2`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00			`( x-axis )`
Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`DUP #30 SFT #00 SWP`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.center/x LDZ2 #0040 SUB2 ADD2 .Screen/x DEO2`
			`.center/y LDZ2 #0050 SUB2 .Screen/y DEO2`
Started implementing the sprite port for the screen device 2021-07-31 02:23:02 +00:00			`( draw ) #01 .Screen/sprite DEO`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00			`( y-axis )`
Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`DUP #30 SFT #00 SWP`
Renamed PEK/POK to LDZ/STZ 2021-05-11 18:14:52 +00:00			`.center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2`
			`.center/x LDZ2 #0050 SUB2 .Screen/x DEO2`
Started implementing the sprite port for the screen device 2021-07-31 02:23:02 +00:00			`( draw ) #01 .Screen/sprite DEO`
Examples cleanup 2021-08-18 02:40:07 +00:00			`INC GTHk ,&loop JCN`
Cleaned a few examples 2021-04-29 04:00:39 +00:00			`POP2`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00
			`RTN`

Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`@draw-sprites ( -- )`

			`;preview_icn .Screen/addr DEO2`
			`#00 #00`
			`&loop`
Examples cleanup 2021-08-18 02:40:07 +00:00			`( move ) DUP #0f AND #40 SFT 2/ #00 SWP`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`.center/x LDZ2 #0040 SUB2 ADD2 .Screen/x DEO2`
Examples cleanup 2021-08-18 02:40:07 +00:00			`( move ) DUP #f0 AND 2/ #00 SWP`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`.center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2`
Optimized screen.tal 2021-08-02 15:59:16 +00:00			`( draw ) DUP .Screen/sprite DEO`
Examples cleanup 2021-08-18 02:40:07 +00:00			`INC NEQk ,&loop JCN`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`POP2`

			`RTN`

Pushed new blending modes 2021-08-01 18:00:07 +00:00			`@draw-1bpp ( -- )`

Optimized screen.tal 2021-08-02 15:59:16 +00:00			`#10 #00`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`&loop`
Optimized screen.tal 2021-08-02 15:59:16 +00:00			`( color ) STHk`
Examples cleanup 2021-08-18 02:40:07 +00:00			`( y ) DUP 4/ [ #00 SWP ] #40 SFT2`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`[ .center/y LDZ2 #0040 SUB2 ADD2 ] STH2`
Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`[ .center/x LDZ2 #0008 ADD2 ADD2 ]`
			`STH2r STHr #00 ;draw-circle JSR2`
Examples cleanup 2021-08-18 02:40:07 +00:00			`INC GTHk ,&loop JCN`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`POP2`

			`RTN`

			`@draw-2bpp ( -- )`

Optimized screen.tal 2021-08-02 15:59:16 +00:00			`#10 #00`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`&loop`
Optimized screen.tal 2021-08-02 15:59:16 +00:00			`( color ) STHk`
Examples cleanup 2021-08-18 02:40:07 +00:00			`( y ) DUP 4/ [ #00 SWP ] #40 SFT2`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`[ .center/y LDZ2 ADD2 ] STH2`
Replaced trivial multiplications with shifts and additions 2021-08-17 19:16:39 +00:00			`( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`[ .center/x LDZ2 #0008 ADD2 ADD2 ]`
			`STH2r STHr #80 ;draw-circle JSR2`
Examples cleanup 2021-08-18 02:40:07 +00:00			`INC GTHk ,&loop JCN`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`POP2`
Reverted changes to screen.tal 2021-08-01 18:28:37 +00:00
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`RTN`

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

			`ADD STH`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00			`;preview_icn .Screen/addr DEO2`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`.Screen/y DEO2`
			`.Screen/x DEO2`

			`#00 STHkr ADD .Screen/sprite DEO`
			`.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`#10 STHkr ADD .Screen/sprite DEO`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2`
			`.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`#20 STHkr ADD .Screen/sprite DEO`
Pushed new blending modes 2021-08-01 18:00:07 +00:00			`.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`#30 STHr ADD .Screen/sprite DEO`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00
			`RTN`

			`@draw-pixels ( -- )`

			`.center/y LDZ2 #0040 SUB2 .Screen/y DEO2`
			`.center/x LDZ2 #0048 ADD2 .Screen/x DEO2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`#00 .Screen/pixel DEO`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`.center/x LDZ2 #0049 ADD2 .Screen/x DEO2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`#01 .Screen/pixel DEO`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`.center/x LDZ2 #004a ADD2 .Screen/x DEO2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`#02 .Screen/pixel DEO`
Changed the screen.tal colors to fit the Varvara docs 2021-07-31 03:10:26 +00:00			`.center/x LDZ2 #004b ADD2 .Screen/x DEO2`
Added frame vector to screen.tal 2021-08-08 17:21:58 +00:00			`#03 .Screen/pixel DEO`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00
Device events can now fire on read 2021-04-24 17:15:47 +00:00			`RTN`

Cleaned example files 2021-05-13 01:28:45 +00:00			`@preview_icn [`
			`0f38 675f dfbf bfbf 0007 1820 2344 4848`
Added mirroring to the PPU 2021-04-29 17:10:07 +00:00
Cleaned example files 2021-05-13 01:28:45 +00:00			`@font-hex`
Added mirroring to the PPU 2021-04-29 17:10:07 +00: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-31 02:23:02 +00:00			`007c 8280 f080 827c 007c 8280 f080 8080`