Browse code

Minor optimizations to the examples

neauoire authored on 12/05/2021 19:08:51
Showing 7 changed files
... ...
@@ -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' ]; 
... ...
@@ -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
... ...
@@ -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 )
... ...
@@ -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
... ...
@@ -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
... ...
@@ -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
 
... ...
@@ -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