Dariaceli's Git
Browse code

Optimized out #00 NEQ when used with JCN

Andrew Alderwick authored on 13/05/2021 06:31:42
Showing 10 changed files
projects/demos/musictracker.usm
History View file @ f407f1b
... ... 
@@ -79,7 +79,7 @@ BRK
79 79
80 80 
 	;move-head JSR2
81 81 
 	;draw-vu JSR2
82 
-	.head/pos LDZ #08 MOD #00 NEQ ,&skip JCN
82 
+	.head/pos LDZ #08 MOD ,&skip JCN
83 83 
 		;bang JSR2
84 84 
 	&skip
85 85
... ... 
@@ -159,7 +159,7 @@ BRK
159 159 
 @touch-ctl ( -- )
160 160
161 161 
 	.Mouse/x DEI2 .ctlframe/x1 LDZ2 SUB2 8- 8/ SWP POP #02 DIV
162 
-	DUP #00 NEQ ,&no-a JCN
162 
+	DUP ,&no-a JCN
163 163 
 		.Audio0/adsr .track/active LDZ #10 MUL ADD DEI
164 164 
 		#10 .Mouse/state DEI #10 EQU #e0 MUL ADD ADD
165 165 
 		.Audio0/adsr .track/active LDZ #10 MUL ADD DEO &no-a
... ... 
@@ -279,7 +279,7 @@ RTN
279 279 
 	;font_hex .Screen/addr DEO2
280 280 
 	#0000 #0100
281 281 
 	&loop
282 
-		OVR2 SWP POP #02 DIV #0f AND #00 NEQ ,&skip JCN
282 
+		OVR2 SWP POP #02 DIV #0f AND ,&skip JCN
283 283 
 			OVR2 .trkframe/x1 LDZ2 ADD2 .Screen/x DEO2
284 284 
 			.trkframe/y1 LDZ2 #0010 SUB2 .Screen/y DEO2
285 285 
 			#22 .Screen/color DEO
... ... 
@@ -456,7 +456,7 @@ RTN
456 456 
 		( draw ) DUP2 LDA #00 SWP 8* ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO
457 457 
 		( incr ) ++
458 458 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
459 
-		DUP2 LDA #00 NEQ ,&loop JCN
459 
+		DUP2 LDA ,&loop JCN
460 460 
 	POP2
461 461
462 462 
 RTN
projects/demos/polycat.usm
History View file @ f407f1b
... ... 
@@ -50,7 +50,7 @@ BRK
50 50 
 @on-frame ( -> )
51 51
52 52 
 	.cat/timer LDZ #01 ADD [ DUP ] .cat/timer STZ
53 
-		DUP #00 NEQ ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0
53 
+		DUP ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0
54 54 
 		DUP #10 NEQ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1
55 55 
 		DUP #20 NEQ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2
56 56 
 		DUP #30 NEQ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3
projects/demos/theme.usm
History View file @ f407f1b
... ... 
@@ -70,7 +70,7 @@ BRK
70 70
71 71 
 	;draw-cursor JSR2
72 72
73 
-	.Mouse/state DEI #00 NEQ #01 JCN [ BRK ]
73 
+	.Mouse/state DEI #01 JCN [ BRK ]
74 74
75 75 
 	.Mouse/y DEI2 .window/y1 LDZ2 SUB2 STEP8
76 76 
 	DUP2 #0010 NEQ2 ,&no-touch-red JCN
... ... 
@@ -330,7 +330,7 @@ RTN
330 330 
 		( draw ) STHkr .Screen/color DEO
331 331 
 		( incr ) ++
332 332 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
333 
-		DUP2 LDA #00 NEQ ,&loop JCN
333 
+		DUP2 LDA ,&loop JCN
334 334 
 	POP2 POPr
335 335
336 336 
 RTN
projects/examples/devices/console.usm
History View file @ f407f1b
... ... 
@@ -19,7 +19,7 @@ BRK
19 19 
 	&loop
20 20 
 		( send ) LDAk .Console/char DEO
21 21 
 		( incr ) #0001 ADD2
22 
-		( loop ) LDAk #00 NEQ ,&loop JCN
22 
+		( loop ) LDAk ,&loop JCN
23 23 
 	POP2
24 24
25 25 
 RTN
projects/examples/devices/controller.keys.usm
History View file @ f407f1b
... ... 
@@ -27,7 +27,7 @@ BRK
27 27
28 28 
 @on-button ( -> )
29 29
30 
-	( skip ) .Controller/key DEI #00 NEQ #01 JCN [ BRK ]
30 
+	( skip ) .Controller/key DEI #01 JCN [ BRK ]
31 31
32 32 
 	.Controller/key DEI #0d NEQ ,&no-return JCN
33 33 
 		( draw ) #20 .Screen/color DEO
projects/examples/devices/mouse.usm
History View file @ f407f1b
... ... 
@@ -39,7 +39,7 @@ BRK
39 39 
 	.Mouse/state DEI #00 NEQ .pointer/state LDZ #00 EQU #0101 EQU2 ,on-mouse-down JCN
40 40
41 41 
 	( on drag )
42 
-	.Mouse/state DEI #00 NEQ ,on-mouse-drag JCN
42 
+	.Mouse/state DEI ,on-mouse-drag JCN
43 43 
 	.Mouse/state DEI .pointer/state STZ
44 44
45 45 
 BRK
projects/examples/gui/label.usm
History View file @ f407f1b
... ... 
@@ -53,7 +53,7 @@ RTN
53 53 
 		( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO
54 54 
 		( incr ) #0001 ADD2
55 55 
 		( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
56 
-		DUP2 LDA #00 NEQ ,&loop JCN
56 
+		DUP2 LDA ,&loop JCN
57 57 
 	POP2
58 58
59 59 
 RTN
... ... 
@@ -67,7 +67,7 @@ RTN
67 67 
 		( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO
68 68 
 		( incr ) #0001 ADD2
69 69 
 		( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
70 
-		DUP2 LDA #00 NEQ ,&loop JCN
70 
+		DUP2 LDA ,&loop JCN
71 71 
 	POP2
72 72
73 73 
 RTN
... ... 
@@ -81,7 +81,7 @@ RTN
81 81 
 		( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO
82 82 
 		( incr ) #0001 ADD2
83 83 
 		( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
84 
-		DUP2 LDA #00 NEQ ,&loop JCN
84 
+		DUP2 LDA ,&loop JCN
85 85 
 	POP2
86 86
87 87 
 RTN
... ... 
@@ -91,7 +91,7 @@ RTN
91 91 
 	#0000 ( counter )
92 92 
 	&loop
93 93 
 		( incr ) #0001 ADD2 OVR2 OVR2 ADD2
94 
-		LDA #00 NEQ ,&loop JCN
94 
+		LDA ,&loop JCN
95 95 
 	SWP2 POP2
96 96
97 97 
 RTN
projects/software/left.usm
History View file @ f407f1b
... ... 
@@ -237,7 +237,7 @@ BRK
237 237 
 	;document/body ;document/eof STA2
238 238 
 	&loop
239 239 
 		( incr ) ;document/eof LDA2 ++ ;document/eof STA2
240 
-	;document/eof LDA2 LDA #00 NEQ ,&loop JCN
240 
+	;document/eof LDA2 LDA ,&loop JCN
241 241
242 242 
 RTN
243 243
... ... 
@@ -305,7 +305,7 @@ RTN
305 305 
 		.selection/from LDZ2 -- LDA #0a EQU RTN?
306 306 
 		.selection/from LDZ2 -- LDA #0d EQU RTN?
307 307 
 		( decr ) .selection/from LDZ2 DUP2 .selection/to STZ2 -- .selection/from STZ2
308 
-	.selection/from LDZ2 LDA #00 NEQ ,&loop JCN
308 
+	.selection/from LDZ2 LDA ,&loop JCN
309 309 
 	( clamp at document body )
310 310 
 	.selection/from LDZ2 ;document/body GTH2 RTN?
311 311 
 	;document/body DUP2 .selection/from STZ2 ++ .selection/to STZ2
... ... 
@@ -318,7 +318,7 @@ RTN
318 318 
 		.selection/from LDZ2 LDA #0a EQU RTN?
319 319 
 		.selection/from LDZ2 LDA #0d EQU RTN?
320 320 
 		( incr ) .selection/from LDZ2 ++ DUP2 ++ .selection/to STZ2 .selection/from STZ2
321 
-		.selection/from LDZ2 LDA #00 NEQ ,&loop JCN
321 
+		.selection/from LDZ2 LDA ,&loop JCN
322 322 
 	( clamp at document body )
323 323 
 	.selection/from LDZ2 ;document/eof LTH2 RTN?
324 324 
 	;document/eof -- DUP2 .selection/from STZ2 ++ .selection/to STZ2
... ... 
@@ -375,7 +375,7 @@ RTN
375 375 
 			( incr ) .pt/y LDZ2 ++ .pt/y STZ2
376 376 
 		&no-space
377 377 
 		( incr ) .j LDZ2 ++ .j STZ2
378 
-	.j LDZ2 LDA #00 NEQ ,&loop JCN
378 
+	.j LDZ2 LDA ,&loop JCN
379 379 
 	&end
380 380 
 	( return ) .j LDZ2
381 381
... ... 
@@ -441,7 +441,7 @@ RTN
441 441 
 		&no-reached
442 442 
 		( incr ) .pt/x LDZ2 ++ .pt/x STZ2
443 443 
 		( incr ) .selection/from LDZ2 ++ .selection/from STZ2
444 
-	.selection/from LDZ2 LDA #00 NEQ ,&loop JCN
444 
+	.selection/from LDZ2 LDA ,&loop JCN
445 445
446 446 
 RTN
447 447
... ... 
@@ -522,7 +522,7 @@ RTN
522 522 
 		.textarea/addr LDZ2 LDA #0a NEQ .textarea/addr LDZ2 LDA #0d NEQ #0101 EQU2 ,&no-break JCN
523 523 
 			( incr ) .j LDZ2 ++ .j STZ2 &no-break
524 524 
 		( incr ) .textarea/addr LDZ2 ++ .textarea/addr STZ2
525 
-	.textarea/addr LDZ2 LDA #00 NEQ ,&find-offset JCN
525 
+	.textarea/addr LDZ2 LDA ,&find-offset JCN
526 526 
 	&find-offset-end
527 527
528 528 
 	#0018 .Screen/x DEO2 #0000 .Screen/y DEO2
... ... 
@@ -575,7 +575,7 @@ RTN
575 575 
 		( incr ) .i LDZ2 ++ .i STZ2
576 576 
 		( incr ) .Screen/x DEI2 #0007 ADD2 .Screen/x DEO2
577 577
578 
-	.i LDZ2 LDA #00 NEQ ;&loop JCN2
578 
+	.i LDZ2 LDA ;&loop JCN2
579 579
580 580 
 	&end
581 581
... ... 
@@ -619,7 +619,7 @@ RTN
619 619 
 		( draw ) DUP2 LDA #00 SWP #20 SUB 8* ;font ADD2 .Screen/addr DEO2 .label/color LDZ .Screen/color DEO
620 620 
 		( incr ) ++
621 621 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
622 
-		DUP2 LDA #00 NEQ ,&loop JCN
622 
+		DUP2 LDA ,&loop JCN
623 623 
 	POP2
624 624 
 	( selection )
625 625 
 	.selection/from LDZ2 ;document/body SUB2 ;draw-short JSR2
projects/software/noodle.usm
History View file @ f407f1b
... ... 
@@ -136,7 +136,7 @@ BRK
136 136 
 			.Mouse/x DEI2 .cursor/dx STZ2
137 137 
 			.Mouse/y DEI2 .cursor/dy STZ2
138 138 
 		&no-touch-ondown
139 
-		.Mouse/state DEI #00 NEQ ,&no-touch-onup JCN
139 
+		.Mouse/state DEI ,&no-touch-onup JCN
140 140 
 			( on up )
141 141 
 			.brush/tool LDZ #02 NEQ ,&no-touch-line JCN
142 142 
 				.cursor/dx LDZ2 .canvas/x1 LDZ2 SUB2 .cursor/dy LDZ2 .canvas/y1 LDZ2 SUB2 .Mouse/x DEI2 .canvas/x1 LDZ2 SUB2 .Mouse/y DEI2 .canvas/y1 LDZ2 SUB2 ;paint-line JSR2
... ... 
@@ -153,7 +153,7 @@ BRK
153 153
154 154 
 		( drag )
155 155 
 		.Controller/button DEI #02 NEQ ;&no-drag JCN2
156 
-			.brush/drag LDZ #00 NEQ ,&no-drag-start JCN
156 
+			.brush/drag LDZ ,&no-drag-start JCN
157 157 
 				.canvas/x1 LDZ2 .origin/x1 STZ2
158 158 
 				.canvas/y1 LDZ2 .origin/y1 STZ2
159 159 
 				.canvas/x2 LDZ2 .origin/x2 STZ2
... ... 
@@ -205,7 +205,7 @@ BRK
205 205 
 			( clear ) .canvas/x1 LDZ2 #0002 SUB2 .canvas/y1 LDZ2 #0002 SUB2 .canvas/x2 LDZ2 #0002 ADD2 .canvas/y2 LDZ2 #0002 ADD2 #00 ;fill-rect JSR2
206 206 
 			;draw-background JSR2
207 207 
 			.Mouse/x DEI2 .viewpane/x1 LDZ2 SUB2 8/ SWP POP
208 
-			DUP #00 NEQ ,&no-incwidth JCN
208 
+			DUP ,&no-incwidth JCN
209 209 
 				.canvas/w LDZ2 ++ .canvas/w STZ2
210 210 
 			&no-incwidth
211 211 
 			DUP #01 NEQ ,&no-decwidth JCN
... ... 
@@ -230,7 +230,7 @@ BRK
230 230 
 			( set cursor operation )
231 231 
 			;add-pixel .Mouse/state DEI #01 EQU ;&no-oper JCN2 POP2 ;remove-pixel &no-oper .brush/oper STZ2
232 232
233 
-			.brush/tool LDZ #00 NEQ ,&no-touch-pen JCN
233 
+			.brush/tool LDZ ,&no-touch-pen JCN
234 234 
 				.cursor/x0 LDZ2 .canvas/x1 LDZ2 SUB2 .cursor/y0 LDZ2 .canvas/y1 LDZ2 SUB2 .Mouse/x DEI2 .canvas/x1 LDZ2 SUB2 .Mouse/y DEI2 .canvas/y1 LDZ2 SUB2 ;paint-line JSR2
235 235 
 				;&touch-end JMP2
236 236 
 			&no-touch-pen
... ... 
@@ -254,7 +254,7 @@ BRK
254 254 
 		( background interface )
255 255 
 		.Mouse/y DEI2 STEP8 .Screen/height DEI2 #0010 SUB2 NEQ2 ,&no-touch-background JCN
256 256 
 			.Mouse/x DEI2 .Screen/width DEI2 #0028 SUB2 SUB2 8/ SWP POP
257 
-			DUP #00 NEQ ,&no-eye-button JCN
257 
+			DUP ,&no-eye-button JCN
258 258 
 				;present JSR2
259 259 
 				( release ) #00 .Mouse/state DEO
260 260 
 			&no-eye-button
... ... 
@@ -388,7 +388,7 @@ RTN
388 388 
 	.document/presentation LDZ #00 EQU .document/presentation STZ
389 389
390 390 
 	.document/presentation LDZ
391 
-	DUP #00 NEQ ,&skip0 JCN
391 
+	DUP ,&skip0 JCN
392 392 
 		.theme/r0 LDZ2 .System/r DEO2 .theme/g0 LDZ2 .System/g DEO2 .theme/b0 LDZ2 .System/b DEO2
393 393 
 	&skip0
394 394 
 	DUP #01 NEQ ,&skip1 JCN
... ... 
@@ -514,7 +514,7 @@ RTN
514 514
515 515 
 @patternize ( -- )
516 516
517 
-	.brush/patt LDZ #00 NEQ ,&noplain JCN
517 
+	.brush/patt LDZ ,&noplain JCN
518 518 
 		#01 RTN &noplain
519 519
520 520 
 	.brush/patt LDZ #01 NEQ ,&notone1 JCN
... ... 
@@ -856,7 +856,7 @@ RTN
856 856 
 		( draw ) .color LDZ #20 ADD .Screen/color DEO
857 857 
 		( incr ) #0001 ADD2
858 858 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
859 
-		( loop ) DUP2 LDA #00 NEQ ,&loop JCN
859 
+		( loop ) DUP2 LDA ,&loop JCN
860 860 
 	POP2
861 861
862 862 
 RTN
... ... 
@@ -889,7 +889,7 @@ RTN
889 889 
 		( copy src->dst ) OVR2 OVR2 SWP2 LDA ROT ROT STA
890 890 
 		( incr dst ) ++
891 891 
 		( incr src ) SWP2 ++ SWP2
892 
-		OVR2 LDA #00 NEQ ,&loop JCN
892 
+		OVR2 LDA ,&loop JCN
893 893 
 	#00 ROT ROT STA POP2
894 894
895 895 
 RTN
projects/software/orca.usm
History View file @ f407f1b
... ... 
@@ -304,7 +304,7 @@ RTN
304 304
305 305 
 	STH
306 306 
 	( limit )
307 
-	DUP #00 NEQ ,&not-edge JCN
307 
+	DUP ,&not-edge JCN
308 308 
 		#2a SET-CELL POP STHr RTN
309 309 
 	&not-edge
310 310 
 	( collide )
... ... 
@@ -373,7 +373,7 @@ RTN
373 373
374 374 
 	STH
375 375 
 	( limit )
376 
-	OVR #00 NEQ ,&not-edge JCN
376 
+	OVR ,&not-edge JCN
377 377 
 		#2a SET-CELL POP STHr RTN
378 378 
 	&not-edge
379 379 
 	( collide )