commit c12f2bf

neauoire  ·  2023-08-02 03:41:47 +0000 UTC
parent 14263f3 
Use updated mouse example file
3 files changed,  +6, -14
M build.sh
D etc/drifblim.rom
M etc/mouse.tal
M build.sh
+0, -1 
1@@ -21,7 +21,6 @@ then
2 	clang-format -i src/devices/*
3 fi
4 
5-rm -f bin/*
6 mkdir -p bin
7 
8 cc ${RELEASE_FLAGS} src/uxnasm.c -o bin/uxnasm
D etc/drifblim.rom
+0, -0
M etc/mouse.tal
+6, -13 
 1@@ -44,6 +44,7 @@ BRK
 2 	( clear last cursor )
 3 	.pointer/x LDZ2 .Screen/x DEO2
 4 	.pointer/y LDZ2 .Screen/y DEO2
 5+	;fill-icn .Screen/addr DEO2
 6 	[ LIT2 40 -Screen/sprite ] DEO
 7 	draw-mouse
 8 	( draw new cursor )
 9@@ -128,6 +129,7 @@ JMP2r
10 		DUP2 .Screen/x DEO2
11 		.Screen/y DEO2
12 	#16 .Screen/auto DEO
13+	;fill-icn .Screen/addr DEO2
14 	#40 .Screen/sprite DEOk DEO
15 	( buttons )
16 	#0300
17@@ -189,22 +191,13 @@ JMP2r
18 
19 @clear-screen ( -- )
20 
21-	#00 .Screen/auto DEO
22-
23-	.Screen/height DEI2 #03 SFT2 NIP #00
24-	&y
25-		#00 OVR #30 SFT2 .Screen/y DEO2
26-		.Screen/width DEI2 #03 SFT2 NIP #00
27-		&x
28-			#00 OVR #30 SFT2 .Screen/x DEO2
29-			[ LIT2 00 -Screen/sprite ] DEO
30-			INC GTHk ?&x
31-		POP2
32-		INC GTHk ?&y
33-	POP2
34+	#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
35+	#80 .Screen/pixel DEO
36 
37 JMP2r
38 
39+@fill-icn [
40+	ffff ffff ffff ffff ]
41 @pointer-icn [
42 	80c0 e0f0 f8e0 1000 ]
43 @mouse-icn [