~rabbits/uxn

5496712ae1b231ea31be68151d2cfd10e9339694 — neauoire 5 months ago cbc6157
(controller.tal) Made buttons visible in monochromatic
1 files changed, 13 insertions(+), 13 deletions(-)

M projects/examples/devices/controller.tal
M projects/examples/devices/controller.tal => projects/examples/devices/controller.tal +13 -13
@@ 15,9 15,9 @@
|0100 ( -> )

	( theme )
	#0ff7 .System/r DEO2
	#0f07 .System/g DEO2
	#0f07 .System/b DEO2
	#0fff .System/r DEO2
	#0f0f .System/g DEO2
	#0f0f .System/b DEO2
	( find center )
	.Screen/width DEI2 #01 SFT2 .center/x STZ2
	.Screen/height DEI2 #01 SFT2 .center/y STZ2


@@ 44,7 44,7 @@ BRK
	,draw-controller JSR

	( print stack on start button )
	.Controller/button DEI #08 EQU JMP BRK #010e DEO
	.Controller/button DEI #08 EQU [ JMP BRK ] #010e DEO

BRK



@@ 56,17 56,17 @@ BRK
	.frame/x0 LDZ2 #0010 ADD2 .Screen/x DEO2
	.frame/y0 LDZ2 #0010 ADD2 .Screen/y DEO2
	;controller-icn/dpad-up .Screen/addr DEO2
	#03  STHkr #04 SFT #01 AND DUP ADD SUB  .Screen/sprite DEO
	#03 STHkr #04 SFT #01 AND SUB .Screen/sprite DEO
	.Screen/y DEI2 #0010 ADD2 .Screen/y DEO2
	;controller-icn/dpad-down .Screen/addr DEO2
	#03  STHkr #05 SFT #01 AND DUP ADD SUB  .Screen/sprite DEO
	#03 STHkr #05 SFT #01 AND SUB .Screen/sprite DEO
	.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
	.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
	;controller-icn/dpad-left .Screen/addr DEO2
	#03  STHkr #06 SFT #01 AND DUP ADD SUB  .Screen/sprite DEO
	#03 STHkr #06 SFT #01 AND SUB .Screen/sprite DEO
	.Screen/x DEI2 #0010 ADD2 .Screen/x DEO2
	;controller-icn/dpad-right .Screen/addr DEO2
	#03  STHkr #07 SFT #01 AND DUP ADD SUB  .Screen/sprite DEO
	#03 STHkr #07 SFT #01 AND SUB .Screen/sprite DEO
	.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
	;controller-icn/dpad .Screen/addr DEO2
	#03 .Screen/sprite DEO


@@ 75,10 75,10 @@ BRK
	.center/y LDZ2 #0009 ADD2 .Screen/y DEO2
	.center/x LDZ2 #0009 SUB2 .Screen/x DEO2
	;controller-icn/option .Screen/addr DEO2
	#03 STHkr #02 SFT #01 AND DUP ADD SUB .Screen/sprite DEO
	#03 STHkr #03 SFT #01 AND SUB .Screen/sprite DEO
	.center/x LDZ2 #0004 ADD2 .Screen/x DEO2
	;controller-icn/option .Screen/addr DEO2
	#03 STHkr #03 SFT #01 AND DUP ADD SUB .Screen/sprite DEO
	#03 STHkr #02 SFT #01 AND SUB .Screen/sprite DEO

	( buttons )
	.center/y LDZ2 .Screen/y DEO2


@@ 86,7 86,7 @@ BRK
	;controller-icn/button .Screen/addr DEO2
	#03 STHkr #01 SFT #01 AND SUB .Screen/sprite DEO
		.Screen/y DEI2 #000a ADD2 .Screen/y DEO2
		;font-hex #0058 ADD2 .Screen/addr DEO2
		;font-hex/b .Screen/addr DEO2
		#03 .Screen/sprite DEO

	.center/y LDZ2 .Screen/y DEO2


@@ 94,7 94,7 @@ BRK
	;controller-icn/button .Screen/addr DEO2
	#03 STHr #01 AND SUB .Screen/sprite DEO
		.Screen/y DEI2 #000a ADD2 .Screen/y DEO2
		;font-hex #0050 ADD2 .Screen/addr DEO2
		;font-hex/a .Screen/addr DEO2
		#03 .Screen/sprite DEO

	.center/x LDZ2 #0010 SUB2 .Screen/x DEO2


@@ 164,6 164,6 @@ JMP2r
	000c 1424 4484 fe04 00fe 8080 7c02 827c
	007c 8280 fc82 827c 00fe 0202 0408 1010
	007c 8282 7c82 827c 007c 8282 7e02 827c
	007c 8202 7e82 827e 00fc 8282 fc82 82fc
	&a 007c 8202 7e82 827e &b 00fc 8282 fc82 82fc
	007c 8280 8080 827c 00fc 8282 8282 82fc
	00fe 8080 fe80 80fe 00fe 8080 f080 8080