Dariaceli's Git
Browse code

Minor optimizations to the examples

neauoire authored on 12/05/2021 19:08:51
Showing 7 changed files
build.sh
History View file @ 0c188ef
... ... 
@@ -42,7 +42,7 @@ then
42 42 
 fi
43 43
44 44 
 echo "Assembling.."
45 
-./bin/uxnasm projects/demos/drum-rack.usm bin/boot.rom
45 
+./bin/uxnasm projects/examples/devices/screen.usm bin/boot.rom
46 46
47 47 
 echo "Running.."
48 48 
 if [ "${2}" = '--cli' ];
projects/examples/devices/console.usm
History View file @ 0c188ef
... ... 
@@ -17,9 +17,9 @@ BRK
17 17 
 @print ( addr* -- )
18 18
19 19 
 	&loop
20 
-		( send ) DUP2 LDA .Console/char DEO
20 
+		( send ) LDAk .Console/char DEO
21 21 
 		( incr ) #0001 ADD2
22 
-		( loop ) DUP2 LDA #00 NEQ ,&loop JCN
22 
+		( loop ) LDAk #00 NEQ ,&loop JCN
23 23 
 	POP2
24 24
25 25 
 RTN
projects/examples/devices/file.usm
History View file @ 0c188ef
... ... 
@@ -49,10 +49,10 @@ BRK
49 49 
 			( draw ) #41 .Screen/color DEO
50 50 
 			( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
51 51 
 			( incr ) SWP2 8+ SWP2
52 
-			OVR2 OVR2 LTH2 ,&hor JCN
52 
+			LTH2k ,&hor JCN
53 53 
 		POP2 POP2
54 54 
 		( incr ) SWP2 8+ SWP2
55 
-		OVR2 OVR2 LTH2 ,&ver JCN
55 
+		LTH2k ,&ver JCN
56 56 
 	POP2 POP2
57 57
58 58 
 	( save file )
projects/examples/devices/mouse.usm
History View file @ 0c188ef
... ... 
@@ -73,7 +73,6 @@ BRK
73 73 
 @draw-cursor ( -- )
74 74
75 75 
 	( clear last cursor )
76 
-	#fff8 .Screen/addr DEO2
77 76 
 	.pointer/x LDZ2 .Screen/x DEO2
78 77 
 	.pointer/y LDZ2 .Screen/y DEO2
79 78 
 	#30 .Screen/color DEO
projects/examples/devices/screen.usm
History View file @ 0c188ef
... ... 
@@ -45,7 +45,7 @@ BRK
45 45 
 			.center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2
46 46 
 		( draw ) OVR .Screen/color DEO
47 47 
 		( incr ) SWP #01 ADD SWP
48 
-		DUP2 NEQ ,&loop JCN
48 
+		NEQk ,&loop JCN
49 49 
 	POP2
50 50
51 51 
 RTN
... ... 
@@ -69,7 +69,7 @@ RTN
69 69 
 		( draw ) #21 .Screen/color DEO
70 70
71 71 
 		( incr ) SWP #01 ADD SWP
72 
-		DUP2 LTH ,&loop JCN
72 
+		LTHk ,&loop JCN
73 73 
 	POP2
74 74
75 75 
 RTN
projects/examples/gui/animation.usm
History View file @ 0c188ef
... ... 
@@ -54,13 +54,13 @@ BRK
54 54 
 		.dvd/x LDZ2 [ .dvd/x LDZ2 #0020 ADD2 ]
55 55 
 		&hor
56 56 
 			OVR2 .Screen/x DEO2
57 
-			( draw ) DUPr STHr .Screen/color DEO
57 
+			( draw ) STHkr .Screen/color DEO
58 58 
 			( next ) .Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2
59 59 
 			( incr ) SWP2 #0008 ADD2 SWP2
60 
-			OVR2 OVR2 LTH2 ,&hor JCN
60 
+			LTH2k ,&hor JCN
61 61 
 		POP2 POP2
62 62 
 		( incr ) SWP2 #0008 ADD2 SWP2
63 
-		OVR2 OVR2 LTH2 ,&ver JCN
63 
+		LTH2k ,&ver JCN
64 64 
 	POP2 POP2
65 65 
 	( destroy ) POPr
66 66
projects/examples/gui/picture.usm
History View file @ 0c188ef
... ... 
@@ -52,10 +52,10 @@ BRK
52 52 
 			( draw ) .color LDZ .Screen/color DEO
53 53 
 			( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
54 54 
 			( incr ) SWP2 8+ SWP2
55 
-			OVR2 OVR2 LTH2 ,&hor JCN
55 
+			LTH2k ,&hor JCN
56 56 
 		POP2 POP2
57 57 
 		( incr ) SWP2 8+ SWP2
58 
-		OVR2 OVR2 LTH2 ,&ver JCN
58 
+		LTH2k ,&ver JCN
59 59 
 	POP2 POP2
60 60
61 61 
 RTN
... ... 
@@ -72,10 +72,10 @@ RTN
72 72 
 			( draw ) .color LDZ .Screen/color DEO
73 73 
 			( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
74 74 
 			( incr ) SWP2 8+ SWP2
75 
-			OVR2 OVR2 LTH2 ,&hor JCN
75 
+			LTH2k ,&hor JCN
76 76 
 		POP2 POP2
77 77 
 		( incr ) SWP2 8+ SWP2
78 
-		OVR2 OVR2 LTH2 ,&ver JCN
78 
+		LTH2k ,&ver JCN
79 79 
 	POP2 POP2
80 80
81 81 
 RTN
... ... 
@@ -91,10 +91,10 @@ RTN
91 91 
 			( save ) OVR2 .Screen/x DEO2
92 92 
 			( draw ) .color LDZ .Screen/color DEO
93 93 
 			( incr ) SWP2 8+ SWP2
94 
-			OVR2 OVR2 LTH2 ,&hor JCN
94 
+			LTH2k ,&hor JCN
95 95 
 		POP2 POP2
96 96 
 		( incr ) SWP2 8+ SWP2
97 
-		OVR2 OVR2 LTH2 ,&ver JCN
97 
+		LTH2k ,&ver JCN
98 98 
 	POP2 POP2
99 99
100 100 
 RTN