Dariaceli's Git
Browse code

JNZ is now JCN

neauoire authored on 11/05/2021 18:12:07
Showing 33 changed files
README.md
History View file @ 8630028
... ... 
@@ -43,7 +43,7 @@ BRK
43 43 
 	&loop
44 44 
 		( send ) DUP2 LDA .Console/char DEO
45 45 
 		( incr ) #0001 ADD2
46 
-		( loop ) DUP2 LDA #00 NEQ ,&loop JNZ
46 
+		( loop ) DUP2 LDA #00 NEQ ,&loop JCN
47 47 
 	POP2
48 48
49 49 
 RTN
build.sh
History View file @ 8630028
... ... 
@@ -34,7 +34,7 @@ else
34 34 
 fi
35 35
36 36 
 echo "Assembling.."
37 
-./bin/assembler projects/demos/polycat.usm bin/boot.rom
37 
+./bin/assembler projects/demos/piano.usm bin/boot.rom
38 38
39 39 
 echo "Running.."
40 40 
 if [ "${2}" = '--cli' ];
projects/demos/bifurcan.usm
History View file @ 8630028
... ... 
@@ -53,7 +53,7 @@ BRK
53 53 
 @on-frame ( -> )
54 54
55 55 
 	( only draw once per second )
56 
-	.DateTime/second DEI .last PEK NEQ #01 JNZ [ BRK ]
56 
+	.DateTime/second DEI .last PEK NEQ #01 JCN [ BRK ]
57 57
58 58 
 	.DateTime/second DEI .last POK
59 59
... ... 
@@ -65,7 +65,7 @@ BRK
65 65
66 66 
 	;draw-cursor JSR2
67 67
68 
-	.Mouse/state DEI #00 EQU ,&no-touch JNZ
68 
+	.Mouse/state DEI #00 EQU ,&no-touch JCN
69 69 
 		( incr ) .style PEK INC #03 MOD .style POK
70 70 
 		( bg ) ;tiles .style PEK #10 MUL TOS ADD2 ;cover-pattern JSR2
71 71 
 		( fg ) ;redraw JSR2
... ... 
@@ -117,7 +117,7 @@ RTN
117 117 
 		.Screen/addr DEO2
118 118 
 		( draw ) #21 .Screen/color DEO
119 119 
 		( incr ) SWP INC SWP
120 
-		DUP2 LTH ,&loop JNZ
120 
+		DUP2 LTH ,&loop JCN
121 121 
 	POP2
122 122 
 	POPr
123 123
... ... 
@@ -134,10 +134,10 @@ RTN
134 134 
 			( save ) OVR2 .Screen/x DEO2
135 135 
 			( draw ) #21 .Screen/color DEO
136 136 
 			( incr ) SWP2 8+ SWP2
137 
-			OVR2 OVR2 LTH2 ,&hor JNZ
137 
+			OVR2 OVR2 LTH2 ,&hor JCN
138 138 
 		POP2 POP2
139 139 
 		( incr ) SWP2 8+ SWP2
140 
-		OVR2 OVR2 LTH2 ,&ver JNZ
140 
+		OVR2 OVR2 LTH2 ,&ver JCN
141 141 
 	POP2 POP2
142 142
143 143 
 RTN
projects/demos/darena.usm
History View file @ 8630028
... ... 
@@ -93,7 +93,7 @@ BRK
93 93 
 @on_frame ( -> )
94 94 
 	;f_count LDA #01 ADD DUP ;f_count STA ( increase frame counter )
95 95 
 	;ani_speedmask LDA ( mask with animation speed mask )
96 
-	AND #00 EQU ,update_frame JNZ ( jump to update if it's time )
96 
+	AND #00 EQU ,update_frame JCN ( jump to update if it's time )
97 97 
 BRK
98 98
99 99 
 @update_frame
... ... 
@@ -133,7 +133,7 @@ BRK
133 133
134 134 
 		#01 ADD
135 135 
 		DUP2
136 
-		NEQ ,&rocks_loop JNZ
136 
+		NEQ ,&rocks_loop JCN
137 137 
 	POP2
138 138
139 139 
 	( clear character )
... ... 
@@ -169,7 +169,7 @@ JMP2r
169 169 
 		#01 ADD
170 170
171 171 
 		DUP2
172 
-		NEQ ,&rocks_loop JNZ
172 
+		NEQ ,&rocks_loop JCN
173 173 
 	POP2
174 174
175 175 
 	( draw character )
... ... 
@@ -180,10 +180,10 @@ JMP2r
180 180 
 	#00 ;c_speed/x STA
181 181 
 	#00 ;c_speed/y STA
182 182
183 
-	.Controller/button DEI #07 is_bit_n_set ,&der JNZ
184 
-	.Controller/button DEI #06 is_bit_n_set ,&izq JNZ
185 
-	.Controller/button DEI #05 is_bit_n_set ,&aba JNZ
186 
-	.Controller/button DEI #04 is_bit_n_set ,&arr JNZ
183 
+	.Controller/button DEI #07 is_bit_n_set ,&der JCN
184 
+	.Controller/button DEI #06 is_bit_n_set ,&izq JCN
185 
+	.Controller/button DEI #05 is_bit_n_set ,&aba JCN
186 
+	.Controller/button DEI #04 is_bit_n_set ,&arr JCN
187 187
188 188 
 	rst_animate
189 189
... ... 
@@ -256,17 +256,17 @@ JMP2r
256 256 
 			,&src_x LDR ,&rock_x LDR ,&range_x LDR ADD LTH ( if sx < rx + 8  )
257 257 
 			,&src_y LDR ,&rock_y LDR ,&range_y LDR SUB GTH ( if sy > ry - 8  )
258 258 
 			,&src_y LDR ,&rock_y LDR ,&range_y LDR ADD LTH ( if sy < ry + 8  )
259 
-			ADD ADD ADD #04 EQU ,&found JNZ
259 
+			ADD ADD ADD #04 EQU ,&found JCN
260 260
261 261 
 			#01 ADD nrocks_mask AND
262 262 
 			DUP2
263 
-			NEQ ,&rocks_loop JNZ
263 
+			NEQ ,&rocks_loop JCN
264 264 
 		POP2
265 265 
 		#ff
266 266 
 		JMP2r
267 267 
 	&found
268 268 
 		SWP POP ( remove loop limit )
269 
-		DUP ;&src_i LDA NEQ ,&end JNZ ( check if result is the same as index )
269 
+		DUP ;&src_i LDA NEQ ,&end JCN ( check if result is the same as index )
270 270 
 		POP #ff
271 271 
 		JMP2r
272 272
... ... 
@@ -293,8 +293,8 @@ JMP2r
293 293
294 294 
 	&check_x
295 295 
 		( check collision with borders )
296 
-		,&new_x LDR minposx EQU ;&noup_x JNZ2
297 
-		,&new_x LDR maxposx EQU ;&noup_x JNZ2
296 
+		,&new_x LDR minposx EQU ;&noup_x JCN2
297 
+		,&new_x LDR maxposx EQU ;&noup_x JCN2
298 298
299 299
300 300 
 		( check collision with rocks )
... ... 
@@ -302,7 +302,7 @@ JMP2r
302 302 
 		;collision_rocks/run JSR2
303 303
304 304 
 		( if it is colliding with rock, check further )
305 
-		DUP #ff NEQ ,&check_x_collision JNZ
305 
+		DUP #ff NEQ ,&check_x_collision JCN
306 306 
 		POP
307 307 
 		,&update_x JMP
308 308
... ... 
@@ -322,13 +322,13 @@ JMP2r
322 322 
 		( DUP DEBUG )
323 323
324 324 
 		( if it is colliding, then skip adding x )
325 
-		DUP #ff NEQ ,&check_y JNZ
325 
+		DUP #ff NEQ ,&check_y JCN
326 326 
 		POP
327 327
328 328
329 329 
 		( if not, check for borders )
330 
-		;&rock_x LDA minposx EQU ;&noup_x JNZ2
331 
-		;&rock_x LDA maxposx EQU ;&noup_x JNZ2
330 
+		;&rock_x LDA minposx EQU ;&noup_x JCN2
331 
+		;&rock_x LDA maxposx EQU ;&noup_x JCN2
332 332
333 333 
 		( move rock with same speed as c )
334 334 
 		;&rock_x LDA ;c_speed/x LDA ADD
... ... 
@@ -345,15 +345,15 @@ JMP2r
345 345
346 346 
 	&check_y
347 347 
 		( check collision with borders )
348 
-		;&new_y LDA minposy EQU ;&noup_y JNZ2
349 
-		;&new_y LDA maxposy EQU ;&noup_y JNZ2
348 
+		;&new_y LDA minposy EQU ;&noup_y JCN2
349 
+		;&new_y LDA maxposy EQU ;&noup_y JCN2
350 350
351 351 
 		( check collision with rocks )
352 352 
 		;&new_x LDA ;&new_y LDA index_norock #06 #09
353 353 
 		;collision_rocks/run JSR2
354 354
355 355 
 		( if it is colliding with rock, check further )
356 
-		DUP #ff NEQ ,&check_y_collision JNZ
356 
+		DUP #ff NEQ ,&check_y_collision JCN
357 357 
 		POP
358 358 
 		,&update_y JMP
359 359
... ... 
@@ -372,12 +372,12 @@ JMP2r
372 372 
 		( DUP DEBUG )
373 373
374 374 
 		( if it is colliding, then skip adding y )
375 
-		DUP #ff NEQ ,&noup_y JNZ
375 
+		DUP #ff NEQ ,&noup_y JCN
376 376 
 		POP
377 377
378 378 
 		( if not, check for borders )
379 
-		;&rock_y LDA minposx EQU ;&noup_y JNZ2
380 
-		;&rock_y LDA maxposx EQU ;&noup_y JNZ2
379 
+		;&rock_y LDA minposx EQU ;&noup_y JCN2
380 
+		;&rock_y LDA maxposx EQU ;&noup_y JCN2
381 381
382 382 
 		( if not colliding, then move rock with same speed as c )
383 383 
 		;&rock_y LDA ;c_speed/y LDA ADD
... ... 
@@ -402,7 +402,7 @@ JMP2r
402 402 
 		;collision_rocks/run JSR2
403 403
404 404 
 		( if it is colliding with rock, check if it needs to change state )
405 
-		DUP #ff NEQ ,&change_state JNZ
405 
+		DUP #ff NEQ ,&change_state JCN
406 406
407 407 
 		( DUP DEBUG )
408 408
... ... 
@@ -414,7 +414,7 @@ JMP2r
414 414 
 	&change_state
415 415 
 		( DUP DEBUG )
416 416 
 		,&rock_i STR
417 
-		;tog/state LDA ,&done JNZ ( don't toggle if state is active )
417 
+		;tog/state LDA ,&done JCN ( don't toggle if state is active )
418 418
419 419 
 		;r_color #00 ,&rock_i LDR ADD2 DUP2 STH2
420 420 
 		LDA #01 EOR STH2r STA
... ... 
@@ -425,7 +425,7 @@ JMP2r
425 425
426 426 
 @animate_c
427 427 
 	( is bit0 -animate- on? )
428 
-	;c_state LDA DUP #00 get_bit_n #01 NEQ ,&s_no_animate JNZ
428 
+	;c_state LDA DUP #00 get_bit_n #01 NEQ ,&s_no_animate JCN
429 429
430 430 
 	( increment and save animation pointer )
431 431 
 	&s_animate
... ... 
@@ -474,13 +474,13 @@ JMP2r
474 474 
 			#23 .Screen/color DEO
475 475
476 476 
 			#0008 ADD2 DUP2 STH2
477 
-			GTH2 ,&horizontal0loop JNZ
477 
+			GTH2 ,&horizontal0loop JCN
478 478
479 479 
 		STH2r POP2 POP2
480 480
481 481
482 482 
 		#0008 ADD2 DUP2 STH2
483 
-		GTH2 ,&vertical0loop JNZ
483 
+		GTH2 ,&vertical0loop JCN
484 484 
 	STH2r
485 485 
 	POP2 POP2
486 486
... ... 
@@ -504,11 +504,11 @@ JMP2r
504 504 
 			#20 .Screen/color DEO
505 505
506 506 
 			#0008 ADD2 DUP2 STH2
507 
-			GTH2 ,&horizontal0loop_clear JNZ
507 
+			GTH2 ,&horizontal0loop_clear JCN
508 508
509 509 
 		STH2r POP2 POP2
510 510
511 
-		#0008 ADD2 DUP2 STH2 GTH2 ,&vertical0loop_clear JNZ
511 
+		#0008 ADD2 DUP2 STH2 GTH2 ,&vertical0loop_clear JCN
512 512 
 	STH2r
513 513 
 	POP2 POP2
514 514
projects/demos/drum-rack.usm
History View file @ 8630028
... ... 
@@ -142,7 +142,7 @@
142 142 
 		( draw mixer )
143 143 
 		OVR #04 / ;draw-mixer JSR2
144 144 
 		( incr ) SWP #01 + SWP
145 
-		DUP2 < ,&draw-pads JNZ
145 
+		DUP2 < ,&draw-pads JCN
146 146 
 	POP2
147 147
148 148 
 	;draw-octave JSR2
... ... 
@@ -160,7 +160,7 @@ BRK
160 160 
 		( output ) .Audio0/output STHr #10 * + DEI
161 161 
 		;draw-monitor JSR2
162 162 
 		( incr ) SWP #01 + SWP
163 
-		DUP2 < ,&loop JNZ
163 
+		DUP2 < ,&loop JCN
164 164 
 	POP2
165 165
166 166 
 BRK
... ... 
@@ -169,28 +169,28 @@ BRK
169 169
170 170 
 	;draw-cursor JSR2
171 171
172 
-	.Mouse/state DEI #00 ! #01 JNZ [ BRK ]
172 
+	.Mouse/state DEI #00 ! #01 JCN [ BRK ]
173 173
174 174 
 	.Mouse/x DEI2 DUP2 .pad-view/x1 PEK2 >> ROT ROT .pad-view/x2 PEK2 #0001 ++ << #0101 ==
175 175 
 	.Mouse/y DEI2 DUP2 .pad-view/y1 PEK2 >> ROT ROT .pad-view/y2 PEK2 << #0101 ==
176 
-	#0101 == ;on-touch-pad JNZ2
176 
+	#0101 == ;on-touch-pad JCN2
177 177
178 178 
 	.Mouse/x DEI2 DUP2 .mix-view/x1 PEK2 >> ROT ROT .mix-view/x2 PEK2 #0001 ++ << #0101 ==
179 179 
 	.Mouse/y DEI2 DUP2 .mix-view/y1 PEK2 >> ROT ROT .mix-view/y2 PEK2 << #0101 ==
180 
-	#0101 == ;on-touch-mix JNZ2
180 
+	#0101 == ;on-touch-mix JCN2
181 181
182 182 
 	.Mouse/x DEI2 DUP2 .oct-view/x1 PEK2 >> ROT ROT .oct-view/x2 PEK2 #0001 ++ << #0101 ==
183 183 
 	.Mouse/y DEI2 DUP2 .oct-view/y1 PEK2 >> ROT ROT .oct-view/y2 PEK2 << #0101 ==
184 
-	#0101 == ;on-touch-oct JNZ2
184 
+	#0101 == ;on-touch-oct JCN2
185 185
186 186 
 BRK
187 187
188 188 
 @on-midi ( -> )
189 189
190 
-	.Midi/note DEI #00 ! #01 JNZ [ BRK ]
190 
+	.Midi/note DEI #00 ! #01 JCN [ BRK ]
191 191
192 192 
 	( drums )
193 
-	.Midi/channel DEI #90 ! ,&no-drum JNZ
193 
+	.Midi/channel DEI #90 ! ,&no-drum JCN
194 194 
 		.Midi/note DEI #10 MOD ;play-pad JSR2
195 195 
 		BRK
196 196 
 	&no-drum
... ... 
@@ -204,25 +204,25 @@ BRK
204 204
205 205 
 @on-control ( -> )
206 206
207 
-	.Controller/key DEI #00 ! #01 JNZ [ BRK ]
207 
+	.Controller/key DEI #00 ! #01 JCN [ BRK ]
208 208
209 209 
 	.Controller/key DEI
210 
-	DUP #31 ! ,&no-0 JNZ #00 ;play-pad JSR2 &no-0
211 
-	DUP #32 ! ,&no-1 JNZ #01 ;play-pad JSR2 &no-1
212 
-	DUP #33 ! ,&no-2 JNZ #02 ;play-pad JSR2 &no-2
213 
-	DUP #34 ! ,&no-3 JNZ #03 ;play-pad JSR2 &no-3
214 
-	DUP #71 ! ,&no-4 JNZ #04 ;play-pad JSR2 &no-4
215 
-	DUP #77 ! ,&no-5 JNZ #05 ;play-pad JSR2 &no-5
216 
-	DUP #65 ! ,&no-6 JNZ #06 ;play-pad JSR2 &no-6
217 
-	DUP #72 ! ,&no-7 JNZ #07 ;play-pad JSR2 &no-7
218 
-	DUP #61 ! ,&no-8 JNZ #08 ;play-pad JSR2 &no-8
219 
-	DUP #73 ! ,&no-9 JNZ #09 ;play-pad JSR2 &no-9
220 
-	DUP #64 ! ,&no-a JNZ #0a ;play-pad JSR2 &no-a
221 
-	DUP #66 ! ,&no-b JNZ #0b ;play-pad JSR2 &no-b
222 
-	DUP #7a ! ,&no-c JNZ #0c ;play-pad JSR2 &no-c
223 
-	DUP #78 ! ,&no-d JNZ #0d ;play-pad JSR2 &no-d
224 
-	DUP #63 ! ,&no-e JNZ #0e ;play-pad JSR2 &no-e
225 
-	DUP #76 ! ,&no-f JNZ #0f ;play-pad JSR2 &no-f
210 
+	DUP #31 ! ,&no-0 JCN #00 ;play-pad JSR2 &no-0
211 
+	DUP #32 ! ,&no-1 JCN #01 ;play-pad JSR2 &no-1
212 
+	DUP #33 ! ,&no-2 JCN #02 ;play-pad JSR2 &no-2
213 
+	DUP #34 ! ,&no-3 JCN #03 ;play-pad JSR2 &no-3
214 
+	DUP #71 ! ,&no-4 JCN #04 ;play-pad JSR2 &no-4
215 
+	DUP #77 ! ,&no-5 JCN #05 ;play-pad JSR2 &no-5
216 
+	DUP #65 ! ,&no-6 JCN #06 ;play-pad JSR2 &no-6
217 
+	DUP #72 ! ,&no-7 JCN #07 ;play-pad JSR2 &no-7
218 
+	DUP #61 ! ,&no-8 JCN #08 ;play-pad JSR2 &no-8
219 
+	DUP #73 ! ,&no-9 JCN #09 ;play-pad JSR2 &no-9
220 
+	DUP #64 ! ,&no-a JCN #0a ;play-pad JSR2 &no-a
221 
+	DUP #66 ! ,&no-b JCN #0b ;play-pad JSR2 &no-b
222 
+	DUP #7a ! ,&no-c JCN #0c ;play-pad JSR2 &no-c
223 
+	DUP #78 ! ,&no-d JCN #0d ;play-pad JSR2 &no-d
224 
+	DUP #63 ! ,&no-e JCN #0e ;play-pad JSR2 &no-e
225 
+	DUP #76 ! ,&no-f JCN #0f ;play-pad JSR2 &no-f
226 226 
 	POP
227 227
228 228 
 BRK
... ... 
@@ -245,33 +245,33 @@ BRK
245 245 
 	( channel ) .Mouse/y DEI2 .mix-view/y1 PEK2 -- PAD-HEIGHT // TOB STH
246 246 
 	( knob ) .Mouse/x DEI2 .mix-view/x1 PEK2 -- #0010 // TOB
247 247 
 	( adsr )
248 
-	DUP #00 ! ,&no-a JNZ
248 
+	DUP #00 ! ,&no-a JCN
249 249 
 		.Audio0/adsr [ DUPr STHr #10 * + ] DEI
250 250 
 		#10 .Mouse/state DEI #10 = #e0 * + +
251 251 
 		.Audio0/adsr [ DUPr STHr #10 * + ] DEO &no-a
252 
-	DUP #01 ! ,&no-d JNZ
252 
+	DUP #01 ! ,&no-d JCN
253 253 
 		.Audio0/adsr [ DUPr STHr #10 * + ] DEI
254 254 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 = #0e * + + #0f AND STHr +
255 255 
 		.Audio0/adsr [ DUPr STHr #10 * + ] DEO &no-d
256 
-	DUP #02 ! ,&no-s JNZ
256 
+	DUP #02 ! ,&no-s JCN
257 257 
 		.Audio0/adsr [ DUPr STHr #10 * + ] #01 + DEI
258 258 
 		#10 .Mouse/state DEI #10 = #e0 * + +
259 259 
 		.Audio0/adsr [ DUPr STHr #10 * + ] #01 + DEO &no-s
260 
-	DUP #03 ! ,&no-r JNZ
260 
+	DUP #03 ! ,&no-r JCN
261 261 
 		.Audio0/adsr [ DUPr STHr #10 * + ] #01 + DEI
262 262 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 = #0e * + + #0f AND STHr +
263 263 
 		.Audio0/adsr [ DUPr STHr #10 * + ] #01 + DEO &no-r
264 264 
 	( modes )
265 
-	DUP #04 ! ,&no-repeat JNZ
265 
+	DUP #04 ! ,&no-repeat JCN
266 266 
 		.modes [ DUPr STHr + ] PEK
267 267 
 		#00 =
268 268 
 		.modes [ DUPr STHr + ] POK &no-repeat
269 269 
 	( volume )
270 
-	DUP #05 ! ,&no-left JNZ
270 
+	DUP #05 ! ,&no-left JCN
271 271 
 		.Audio0/volume [ DUPr STHr #10 * + ] DEI
272 272 
 		#10 .Mouse/state DEI #10 = #e0 * + +
273 273 
 		.Audio0/volume [ DUPr STHr #10 * + ] DEO &no-left
274 
-	DUP #06 ! ,&no-right JNZ
274 
+	DUP #06 ! ,&no-right JCN
275 275 
 		.Audio0/volume [ DUPr STHr #10 * + ] DEI
276 276 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 = #0e * + + #0f AND STHr +
277 277 
 		.Audio0/volume [ DUPr STHr #10 * + ] DEO &no-right
... ... 
@@ -287,11 +287,11 @@ BRK
287 287
288 288 
 @on-touch-oct ( -> )
289 289
290 
-	.Mouse/x DEI2 .oct-view/x1 PEK2 -- #0008 // TOB #08 ! ,&no-mod JNZ
290 
+	.Mouse/x DEI2 .oct-view/x1 PEK2 -- #0008 // TOB #08 ! ,&no-mod JCN
291 291 
 		.Mouse/y DEI2 .oct-view/y1 PEK2 -- #0008 // TOB
292 
-		DUP #00 ! ,&no-incr JNZ
292 
+		DUP #00 ! ,&no-incr JCN
293 293 
 			.piano/octave PEK #01 + .piano/octave POK &no-incr
294 
-		DUP #02 ! ,&no-decr JNZ
294 
+		DUP #02 ! ,&no-decr JCN
295 295 
 			.piano/octave PEK #01 - .piano/octave POK &no-decr
296 296 
 		POP
297 297 
 		( release ) #00 .Mouse/state DEO
... ... 
@@ -299,7 +299,7 @@ BRK
299 299 
 		BRK
300 300 
 	&no-mod
301 301
302 
-	.Mouse/x DEI2 .oct-view/x1 PEK2 -- #0008 // TOB #06 GTH ,&no-key JNZ
302 
+	.Mouse/x DEI2 .oct-view/x1 PEK2 -- #0008 // TOB #06 GTH ,&no-key JCN
303 303 
 		.Mouse/x DEI2 .oct-view/x1 PEK2 -- #0008 //
304 304 
 		( set pitch of pad )
305 305 
 		DUP2 ;notes ++ LDA .pads/last PEK SWP .piano/octave PEK #02 - #0c * +
... ... 
@@ -349,7 +349,7 @@ RTN
349 349 
 	#00 #e8
350 350 
 	&loop
351 351 
 		( dotted line )
352 
-		OVR #01 AND ,&no-dot JNZ
352 
+		OVR #01 AND ,&no-dot JCN
353 353 
 			.wav-view/y1 PEK2 #0010 ++ .Screen/y DEO2
354 354 
 			#01 .Screen/color DEO
355 355 
 		&no-dot
... ... 
@@ -359,7 +359,7 @@ RTN
359 359 
 		.Screen/x DEI2 #0001 ++ .Screen/x DEO2
360 360 
 		( draw ) #02 .Screen/color DEO
361 361 
 		( incr ) SWP #01 + SWP
362 
-		DUP2 < ,&loop JNZ
362 
+		DUP2 < ,&loop JCN
363 363 
 	POP2
364 364 
 	POP2r
365 365
... ... 
@@ -476,7 +476,7 @@ RTN
476 476 
 		.Screen/x DEI2 #0002 -- .Screen/x DEO2
477 477 
 		.Screen/y DEI2 #0002 ++ .Screen/y DEO2
478 478 
 		( incr ) SWP #01 + SWP
479 
-		DUP2 < ,&loop JNZ
479 
+		DUP2 < ,&loop JCN
480 480 
 	POP2
481 481
482 482 
 	POPr
... ... 
@@ -494,7 +494,7 @@ RTN
494 494 
 		( draw ) DUPr STHr .Screen/color DEO
495 495 
 		( incr ) .Screen/addr DEI2 #0008 ++ .Screen/addr DEO2
496 496 
 		( incr ) SWP2 #0008 ++ SWP2
497 
-		OVR2 OVR2 << ,&loop JNZ
497 
+		OVR2 OVR2 << ,&loop JCN
498 498 
 	POP2 POP2
499 499 
 	POPr
500 500
... ... 
@@ -571,7 +571,7 @@ RTN
571 571 
 		( draw ) .rect/x1 PEK2 .Screen/x DEO2 .color PEK DUP .Screen/color DEO
572 572 
 		( draw ) .rect/x2 PEK2 .Screen/x DEO2 .Screen/color DEO
573 573 
 		( incr ) SWP2 #0001 ++ SWP2
574 
-		OVR2 OVR2 LTS2 ,&ver JNZ
574 
+		OVR2 OVR2 LTS2 ,&ver JCN
575 575 
 	POP2 POP2
576 576 
 	.rect/x1 PEK2 #0001 ++ .rect/x2 PEK2 #0001 --
577 577 
 	&hor
... ... 
@@ -579,7 +579,7 @@ RTN
579 579 
 		( draw ) .rect/y1 PEK2 .Screen/y DEO2 .color PEK DUP .Screen/color DEO
580 580 
 		( draw ) .rect/y2 PEK2 .Screen/y DEO2 .Screen/color DEO
581 581 
 		( incr ) SWP2 #0001 ++ SWP2
582 
-		OVR2 OVR2 #0001 ++ LTS2 ,&hor JNZ
582 
+		OVR2 OVR2 #0001 ++ LTS2 ,&hor JCN
583 583 
 	POP2 POP2
584 584
585 585 
 RTN
... ... 
@@ -593,7 +593,7 @@ RTN
593 593 
 		( draw ) DUPr STHr .Screen/color DEO
594 594 
 		( incr ) #0001 ++
595 595 
 		( incr ) .Screen/x DEI2 #0008 ++ .Screen/x DEO2
596 
-		DUP2 LDA #00 ! ,&loop JNZ
596 
+		DUP2 LDA #00 ! ,&loop JCN
597 597 
 	POP2
598 598 
 	POPr
599 599
... ... 
@@ -610,10 +610,10 @@ RTN
610 610 
 			( save ) OVR2 .Screen/x DEO2
611 611 
 			( draw ) .color PEK .Screen/color DEO
612 612 
 			( incr ) SWP2 #0001 ++ SWP2
613 
-			OVR2 OVR2 LTS2 ,&hor JNZ
613 
+			OVR2 OVR2 LTS2 ,&hor JCN
614 614 
 		POP2 POP2 STH2r STH2r
615 615 
 		( incr ) SWP2 #0001 ++ SWP2
616 
-		OVR2 OVR2 LTS2 ,&ver JNZ
616 
+		OVR2 OVR2 LTS2 ,&ver JCN
617 617 
 	POP2 POP2 POP2 POP2
618 618
619 619 
 RTN
projects/demos/life.usm
History View file @ 8630028
... ... 
@@ -64,20 +64,20 @@ BRK
64 64
65 65 
 @on-frame ( -> )
66 66
67 
-	.Mouse/state DEI #00 = #01 JNZ [ BRK ]
68 
-	.world/paused PEK #00 ! #01 JNZ [ BRK ]
67 
+	.Mouse/state DEI #00 = #01 JCN [ BRK ]
68 
+	.world/paused PEK #00 ! #01 JCN [ BRK ]
69 69
70 70 
 	( incr frame ) .world/frame PEK INCR [ DUP ] .world/frame POK
71 71 
 	( reset count ) #0000 .world/count POK2
72 72
73 
-	#10 MOD #00 ! #01 JNZ [ BRK ]
73 
+	#10 MOD #00 ! #01 JCN [ BRK ]
74 74
75 75 
 	( clear buffer )
76 76 
 	BANK2 DUP2 GET-SIZE ++
77 77 
 	&clear-loop
78 78 
 		OVR2 #0000 SWP2 STA2
79 79 
 		SWP2 #0002 ++ SWP2
80 
-		OVR2 OVR2 !! ,&clear-loop JNZ
80 
+		OVR2 OVR2 !! ,&clear-loop JCN
81 81 
 	POP2 POP2
82 82
83 83 
 	;run-grid JSR2
... ... 
@@ -88,7 +88,7 @@ BRK
88 88 
 		OVR2 DUP2 LDA2
89 89 
 		SWP2 #2000 -- STA2
90 90 
 		SWP2 #0002 ++ SWP2
91 
-		OVR2 OVR2 !! ,&copy-loop JNZ
91 
+		OVR2 OVR2 !! ,&copy-loop JCN
92 92 
 	POP2 POP2
93 93
94 94 
 	;draw-grid JSR2
... ... 
@@ -119,11 +119,11 @@ BRK
119 119 
 	( colorize on state )
120 120 
 	#32 [ .Mouse/state DEI #00 ! ] + .Screen/color DEO
121 121
122 
-	.Mouse/state DEI #00 ! #01 JNZ [ BRK ]
122 
+	.Mouse/state DEI #00 ! #01 JCN [ BRK ]
123 123
124 124 
 	.Mouse/x DEI2 DUP2 .anchor/x PEK2 >> ROT ROT .anchor/x PEK2 WIDTH #02 * TOS ++ #0001 ++ << #0101 ==
125 125 
 	.Mouse/y DEI2 DUP2 .anchor/y PEK2 >> ROT ROT .anchor/y PEK2 HEIGHT #02 * TOS ++ << #0101 ==
126 
-	#0101 == #01 JNZ [ BRK ]
126 
+	#0101 == #01 JCN [ BRK ]
127 127
128 128 
 	.Mouse/x DEI2 .anchor/x PEK2 SUB2 #02 / TOB
129 129 
 	.Mouse/y DEI2 .anchor/y PEK2 SUB2 #02 / TOB
... ... 
@@ -135,9 +135,9 @@ BRK
135 135
136 136 
 @on-control ( -> )
137 137
138 
-	.Controller/key DEI #00 ! #01 JNZ [ BRK ]
138 
+	.Controller/key DEI #00 ! #01 JCN [ BRK ]
139 139
140 
-	.Controller/key DEI #20 ! ,&no-toggle JNZ
140 
+	.Controller/key DEI #20 ! ,&no-toggle JCN
141 141 
 		.world/paused PEK #01 ! .world/paused POK
142 142 
 	&no-toggle
143 143
... ... 
@@ -154,10 +154,10 @@ BRK
154 154 
 			OVR TOS #0002 ** .anchor/x PEK2 ++ .Screen/x DEO2
155 155 
 			OVR DUPr STHr ,get-cell JSR INCR .Screen/color DEO
156 156 
 			SWP INCR SWP
157 
-			DUP2 ! ,&hor JNZ
157 
+			DUP2 ! ,&hor JCN
158 158 
 		POP2 POPr
159 159 
 		SWP INCR SWP
160 
-		DUP2 ! ,&ver JNZ
160 
+		DUP2 ! ,&ver JCN
161 161 
 	POP2
162 162
163 163 
 RTN
... ... 
@@ -214,24 +214,24 @@ RTN
214 214 
 			( state ) STH2r ;get-cell JSR2
215 215 
 			,run-cell JSR
216 216 
 			SWP INCR SWP
217 
-			DUP2 ! ,&hor JNZ
217 
+			DUP2 ! ,&hor JCN
218 218 
 		POP2 POPr
219 219 
 		SWP INCR SWP
220 
-		DUP2 ! ,&ver JNZ
220 
+		DUP2 ! ,&ver JCN
221 221 
 	POP2
222 222
223 223 
 RTN
224 224
225 225 
 @run-cell ( x y neighbours state -- )
226 226
227 
-	#00 = ,&dead JNZ
227 
+	#00 = ,&dead JCN
228 228 
 	&alive
229 
-		DUP #02 < ,&dies JNZ
230 
-		DUP #03 > ,&dies JNZ
229 
+		DUP #02 < ,&dies JCN
230 
+		DUP #03 > ,&dies JCN
231 231 
 		&lives POP ,save-cell JSR RTN
232 232 
 		&dies POP POP2 RTN
233 233 
 	&dead
234 
-		DUP #03 = ,&birth JNZ POP POP2 RTN
234 
+		DUP #03 = ,&birth JCN POP POP2 RTN
235 235 
 		&birth POP ,save-cell JSR RTN
236 236
237 237 
 RTN
projects/demos/mandelbrot.usm
History View file @ 8630028
238 238 
deleted file mode 100644
... ... 
@@ -1,123 +0,0 @@
1 
-( a blank file )
2 
-
3 
-%+  { ADD } %-   { SUB }  %*  { MUL } %/   { DIV }
4 
-%<  { LTH } %>   { GTH }  %=  { EQU } %!   { NEQ }
5 
-%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
6 
-%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
7 
-
8 
-( fixed-point )
9 
-
10 
-%RESF { #0008 }
11 
-%TO2F { RESF #0040 SFT2 SFT2 }
12 
-%MUL2F { MUL2 RESF SFT2 }
13 
-%DIV2F { SWP2 TO2F SWP2 DIV2 }
14 
-
15 
-%RTN  { JMP2r }
16 
-%TOB { SWP POP }
17 
-%MOD2 { OVR2 OVR2 DIV2 MUL2 SUB2 }
18 
-%MOD  { DUP2 / * - }
19 
-%SFL2 { #0040 SFT2 SFT2 }
20 
-
21 
-%DEBUG  { .Console/byte DEO #0a .Console/char DEO }
22 
-%DEBUG2 { .Console/short DEO2 #0a .Console/char DEO }
23 
-
24 
-%WIDTH { #0080 }
25 
-%HEIGHT { #0080 }
26 
-
27 
-( devices )
28 
-
29 
-|00 @System     [ &vector $2 &wst      $1 &rst    $1 &pad   $4 &r      $2 &g     $2 &b      $2 ]
30 
-|10 @Console    [ &pad    $8 &char     $1 &byte   $1 &short $2 &string $2 ]
31 
-|20 @Screen     [ &vector $2 &width    $2 &height $2 &pad   $2 &x      $2 &y      $2 &addr  $2 &color $1 ]
32 
-|30 @Audio0     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr  $2 &volume $1 &pitch $1 ]
33 
-|40 @Audio1     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr  $2 &volume $1 &pitch $1 ]
34 
-|50 @Audio2     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr  $2 &volume $1 &pitch $1 ]
35 
-|60 @Audio3     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr  $2 &volume $1 &pitch $1 ]
36 
-|70 @Midi       [ &vector $2 &channel  $1 &note   $1 &velocity $1 ]
37 
-|80 @Controller [ &vector $2 &button   $1 &key    $1 ]
38 
-|90 @Mouse      [ &vector $2 &x        $2 &y      $2 &state $1 &chord $1 ]
39 
-|a0 @File       [ &vector $2 &success  $2 &offset $2 &pad   $2 &name  $2 &length $2 &load $2 &save $2 ]
40 
-|b0 @DateTime   [ &year   $2 &month    $1 &day    $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
41 
-
42 
-( variables )
43 
-
44 
-|0000
45 
-
46 
-@zoom $1
47 
-@iter $1
48 
-@fractal [ &c_re $2 &c_im $2 &x $2 &y $2 ]
49 
-
50 
-( program )
51 
-
52 
-|0100 ( -> )
53 
-
54 
-	( theme )
55 
-	#f840 .System/r DEO2
56 
-	#f840 .System/g DEO2
57 
-	#f840 .System/b DEO2
58 
-
59 
-	#20 .iter POK
60 
-	#04 .zoom POK
61 
-
62 
-	#0000 #0080
63 
-	&ver
64 
-		( col ) OVR2 .Screen/y DEO2
65 
-		#0000 #0080
66 
-		&hor
67 
-			( row ) OVR2 .Screen/x DEO2
68 
-			,mandelbrot JSR
69 
-			( incr ) SWP2 #0001 ++ SWP2
70 
-			OVR2 OVR2 LTH2 ,&hor JNZ
71 
-		POP2 POP2
72 
-		( incr ) SWP2 #0001 ++ SWP2
73 
-		OVR2 OVR2 LTH2 ,&ver JNZ
74 
-	POP2 POP2
75 
-
76 
-BRK
77 
-
78 
-@mandelbrot ( -- )
79 
-	(
80 
-		.Screen/x DEI2
81 
-		.Screen/y DEI2 )
82 
-
83 
-(
84 
-		double c_re = [col - width/2.0]*4.0/width;
85 
-        double c_im = [row - height/2.0]*4.0/width;
86 
-        double x = 0, y = 0;
87 
-        int iteration = 0;
88 
-        while [x*x+y*y <= 4 && iteration < max] {
89 
-            double x_new = x*x - y*y + c_re;
90 
-            y = 2*x*y + c_im;
91 
-            x = x_new;
92 
-            iteration++;
93 
-        }
94 
-        if [iteration < max] putpixel[col, row, white];
95 
-        else putpixel[col, row, black];
96 
-)
97 
-
98 
-	( c_re = [col - width / 2.0] * 4.0 / width )
99 
-
100 
-	(
101 
-
102 
-	.Screen/x DEI2 TO2F
103 
-	WIDTH TO2F
104 
-	#0002 TO2F
105 
-	DIV2F
106 
-	SUB2
107 
-
108 
-	#0002 TO2F
109 
-	WIDTH TO2F
110 
-	DIV2F
111 
-
112 
-	MUL2F
113 
-
114 
-	.fractal/c_re POK2
115 
-
116 
-)
117 
-
118 
-
119 
-
120 
-	#01 .Screen/color DEO
121 
-
122 
-
123 
-RTN
124 0 
\ No newline at end of file
projects/demos/musictracker.usm
History View file @ 8630028
... ... 
@@ -79,7 +79,7 @@ BRK
79 79
80 80 
 	;move-head JSR2
81 81 
 	;draw-vu JSR2
82 
-	.head/pos PEK #08 MOD #00 NEQ ,&skip JNZ
82 
+	.head/pos PEK #08 MOD #00 NEQ ,&skip JCN
83 83 
 		;bang JSR2
84 84 
 	&skip
85 85
... ... 
@@ -87,16 +87,16 @@ BRK
87 87
88 88 
 @on-mouse ( -> )
89 89
90 
-	.Mouse/state DEI #00 EQU ;&click-end JNZ2
90 
+	.Mouse/state DEI #00 EQU ;&click-end JCN2
91 91 
 		.Mouse/x DEI2 .trkframe/x1 PEK2 GTH2 .Mouse/x DEI2 .trkframe/x2 PEK2 LTH2 #0101 EQU2
92 92 
 		.Mouse/y DEI2 .trkframe/y1 PEK2 GTH2 .Mouse/y DEI2 .trkframe/y2 PEK2 LTH2 #0101 EQU2
93 
-		#0101 EQU2 ;touch-trk JNZ2
93 
+		#0101 EQU2 ;touch-trk JCN2
94 94 
 		.Mouse/x DEI2 .chnframe/x1 PEK2 GTH2 .Mouse/x DEI2 .chnframe/x2 PEK2 LTH2 #0101 EQU2
95 95 
 		.Mouse/y DEI2 .chnframe/y1 PEK2 8+ GTH2 .Mouse/y DEI2 .chnframe/y2 PEK2 8- LTH2 #0101 EQU2
96 
-		#0101 EQU2 ;touch-chn JNZ2
96 
+		#0101 EQU2 ;touch-chn JCN2
97 97 
 		.Mouse/x DEI2 .ctlframe/x1 PEK2 GTH2 .Mouse/x DEI2 .ctlframe/x2 PEK2 LTH2 #0101 EQU2
98 98 
 		.Mouse/y DEI2 .ctlframe/y1 PEK2 8+ GTH2 .Mouse/y DEI2 .ctlframe/y2 PEK2 8- LTH2 #0101 EQU2
99 
-		#0101 EQU2 ;touch-ctl JNZ2
99 
+		#0101 EQU2 ;touch-ctl JCN2
100 100 
 	&click-end
101 101
102 102 
 	;draw-cursor JSR2
... ... 
@@ -106,21 +106,21 @@ BRK
106 106 
 @on-button ( -> )
107 107
108 108 
 	.Controller/key DEI
109 
-	DUP #61 NEQ ,&no-c JNZ
109 
+	DUP #61 NEQ ,&no-c JCN
110 110 
 		;notes LDA ;play JSR2 &no-c
111 
-	DUP #73 NEQ ,&no-d JNZ
111 
+	DUP #73 NEQ ,&no-d JCN
112 112 
 		;notes #0001 ADD2 LDA ;play JSR2 &no-d
113 
-	DUP #64 NEQ ,&no-e JNZ
113 
+	DUP #64 NEQ ,&no-e JCN
114 114 
 		;notes #0002 ADD2 LDA ;play JSR2 &no-e
115 
-	DUP #66 NEQ ,&no-f JNZ
115 
+	DUP #66 NEQ ,&no-f JCN
116 116 
 		;notes #0003 ADD2 LDA ;play JSR2 &no-f
117 
-	DUP #67 NEQ ,&no-g JNZ
117 
+	DUP #67 NEQ ,&no-g JCN
118 118 
 		;notes #0004 ADD2 LDA ;play JSR2 &no-g
119 
-	DUP #68 NEQ ,&no-a JNZ
119 
+	DUP #68 NEQ ,&no-a JCN
120 120 
 		;notes #0005 ADD2 LDA ;play JSR2 &no-a
121 
-	DUP #6a NEQ ,&no-b JNZ
121 
+	DUP #6a NEQ ,&no-b JCN
122 122 
 		;notes #0006 ADD2 LDA ;play JSR2 &no-b
123 
-	DUP #6b NEQ ,&no-c2 JNZ
123 
+	DUP #6b NEQ ,&no-c2 JCN
124 124 
 		;notes #0007 ADD2 LDA ;play JSR2 &no-c2
125 125 
 	POP
126 126
... ... 
@@ -137,7 +137,7 @@ RTN
137 137 
 	;clear-notes JSR2
138 138 
 	( get note )
139 139 
 	#0e .Mouse/y DEI2 .trkframe/y1 PEK2 SUB2 SWP POP #08 DIV SUB
140 
-	.Mouse/state DEI #10 NEQ ,&no-erase JNZ POP #00 &no-erase
140 
+	.Mouse/state DEI #10 NEQ ,&no-erase JCN POP #00 &no-erase
141 141 
 	( edit note )
142 142 
 	TRACK #00 .Mouse/x DEI2 .trkframe/x1 PEK2 SUB2 SWP POP #08 DIV ADD2 STA
143 143 
 	( release ) #00 .Mouse/state DEO
... ... 
@@ -159,27 +159,27 @@ BRK
159 159 
 @touch-ctl ( -- )
160 160
161 161 
 	.Mouse/x DEI2 .ctlframe/x1 PEK2 SUB2 8- 8/ SWP POP #02 DIV
162 
-	DUP #00 NEQ ,&no-a JNZ
162 
+	DUP #00 NEQ ,&no-a JCN
163 163 
 		.Audio0/adsr .track/active PEK #10 MUL ADD DEI
164 164 
 		#10 .Mouse/state DEI #10 EQU #e0 MUL ADD ADD
165 165 
 		.Audio0/adsr .track/active PEK #10 MUL ADD DEO &no-a
166 
-	DUP #01 NEQ ,&no-d JNZ
166 
+	DUP #01 NEQ ,&no-d JCN
167 167 
 		.Audio0/adsr .track/active PEK #10 MUL ADD DEI
168 168 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 EQU #0e MUL ADD ADD #0f AND STHr ADD
169 169 
 		.Audio0/adsr .track/active PEK #10 MUL ADD DEO &no-d
170 
-	DUP #02 NEQ ,&no-s JNZ
170 
+	DUP #02 NEQ ,&no-s JCN
171 171 
 		.Audio0/adsr .track/active PEK #10 MUL ADD #01 ADD DEI
172 172 
 		#10 .Mouse/state DEI #10 EQU #e0 MUL ADD ADD
173 173 
 		.Audio0/adsr .track/active PEK #10 MUL ADD #01 ADD DEO &no-s
174 
-	DUP #03 NEQ ,&no-r JNZ
174 
+	DUP #03 NEQ ,&no-r JCN
175 175 
 		.Audio0/adsr .track/active PEK #10 MUL ADD #01 ADD DEI
176 176 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 EQU #0e MUL ADD ADD #0f AND STHr ADD
177 177 
 		.Audio0/adsr .track/active PEK #10 MUL ADD #01 ADD DEO &no-r
178 
-	DUP #05 NEQ ,&no-left JNZ
178 
+	DUP #05 NEQ ,&no-left JCN
179 179 
 		.Audio0/volume .track/active PEK #10 MUL ADD DEI
180 180 
 		#10 .Mouse/state DEI #10 EQU #e0 MUL ADD ADD
181 181 
 		.Audio0/volume .track/active PEK #10 MUL ADD DEO &no-left
182 
-	DUP #06 NEQ ,&no-right JNZ
182 
+	DUP #06 NEQ ,&no-right JCN
183 183 
 		.Audio0/volume .track/active PEK #10 MUL ADD DEI
184 184 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 EQU #0e MUL ADD ADD #0f AND STHr ADD
185 185 
 		.Audio0/volume .track/active PEK #10 MUL ADD DEO &no-right
... ... 
@@ -193,28 +193,28 @@ BRK
193 193
194 194 
 	;track/ch1 #00 .head/pos PEK #08 DIV ADD2 LDA
195 195 
 	#01 SUB
196 
-	DUP #ff NEQ ,&skip1 JNZ
196 
+	DUP #ff NEQ ,&skip1 JCN
197 197 
 		POP ,&listen2 JMP
198 198 
 	&skip1
199 199 
 	#00 SWP ;notes ADD2 LDA .Audio0/pitch DEO
200 200 
 	&listen2
201 201 
 	;track/ch2 #00 .head/pos PEK #08 DIV ADD2 LDA
202 202 
 	#01 SUB
203 
-	DUP #ff NEQ ,&skip2 JNZ
203 
+	DUP #ff NEQ ,&skip2 JCN
204 204 
 		POP ,&listen3 JMP
205 205 
 	&skip2
206 206 
 	#00 SWP ;notes ADD2 LDA .Audio1/pitch DEO
207 207 
 	&listen3
208 208 
 	;track/ch3 #00 .head/pos PEK #08 DIV ADD2 LDA
209 209 
 	#01 SUB
210 
-	DUP #ff NEQ ,&skip3 JNZ
210 
+	DUP #ff NEQ ,&skip3 JCN
211 211 
 		POP ,&listen4 JMP
212 212 
 	&skip3
213 213 
 	#00 SWP ;notes ADD2 LDA .Audio2/pitch DEO
214 214 
 	&listen4
215 215 
 	;track/ch4 #00 .head/pos PEK #08 DIV ADD2 LDA
216 216 
 	#01 SUB
217 
-	DUP #ff NEQ ,&skip4 JNZ
217 
+	DUP #ff NEQ ,&skip4 JCN
218 218 
 		POP ,&end JMP
219 219 
 	&skip4
220 220 
 	#00 SWP ;notes ADD2 LDA #80 ORA .Audio3/pitch DEO
... ... 
@@ -243,11 +243,11 @@ RTN
243 243 
 		( load ) OVR #00 SWP TRACK ADD2 LDA
244 244 
 		DUP STH #00 SWP #0e SWP SUB 8* .trkframe/y1 PEK2 ADD2 .Screen/y DEO2
245 245 
 		OVR #00 SWP 8* .trkframe/x1 PEK2 ADD2 .Screen/x DEO2
246 
-		STHr #00 EQU ,&skip JNZ
246 
+		STHr #00 EQU ,&skip JCN
247 247 
 			#20 .Screen/color DEO
248 248 
 		&skip
249 249 
 		( incr ) SWP #01 ADD SWP
250 
-		DUP2 LTH ,&loop JNZ
250 
+		DUP2 LTH ,&loop JCN
251 251 
 	POP2
252 252
253 253 
 RTN
... ... 
@@ -260,11 +260,11 @@ RTN
260 260 
 		DUP STH #00 SWP #0e SWP SUB 8* .trkframe/y1 PEK2 ADD2 .Screen/y DEO2
261 261 
 		OVR #00 SWP 8* .trkframe/x1 PEK2 ADD2 .Screen/x DEO2
262 262 
 		;note_icn .Screen/addr DEO2
263 
-		STHr #00 EQU ,&skip JNZ
263 
+		STHr #00 EQU ,&skip JCN
264 264 
 			#25 .Screen/color DEO
265 265 
 		&skip
266 266 
 		( incr ) SWP #01 ADD SWP
267 
-		DUP2 LTH ,&notes-loop JNZ
267 
+		DUP2 LTH ,&notes-loop JCN
268 268 
 	POP2
269 269 
 	;draw-bars JSR2
270 270
... ... 
@@ -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 JNZ
282 
+		OVR2 SWP POP #02 DIV #0f AND #00 NEQ ,&skip JCN
283 283 
 			OVR2 .trkframe/x1 PEK2 ADD2 .Screen/x DEO2
284 284 
 			.trkframe/y1 PEK2 #0010 SUB2 .Screen/y DEO2
285 285 
 			#22 .Screen/color DEO
... ... 
@@ -288,7 +288,7 @@ RTN
288 288 
 		&skip
289 289 
 		OVR2 .trkframe/x1 PEK2 ADD2 .trkframe/y1 PEK2 .trkframe/y2 PEK2 #01 ;line-vertical-dotted JSR2
290 290 
 		SWP2 8+ SWP2
291 
-		OVR2 OVR2 LTH2 ,&loop JNZ
291 
+		OVR2 OVR2 LTH2 ,&loop JCN
292 292 
 	POP2
293 293 
 	POP2
294 294
... ... 
@@ -311,7 +311,7 @@ RTN
311 311 
 		.Screen/addr DEI2 8+ .Screen/addr DEO2
312 312 
 		.Screen/x DEI2 8- .Screen/x DEO2
313 313 
 		SWP2 8+ SWP2
314 
-		OVR2 OVR2 LTH2 ,&loop JNZ
314 
+		OVR2 OVR2 LTH2 ,&loop JCN
315 315 
 	POP2
316 316 
 	POP2
317 317
... ... 
@@ -346,7 +346,7 @@ RTN
346 346 
 RTN
347 347
348 348 
 @draw-knob ( x* y* value -- )
349 
-	.track/active PEK #03 EQU ;&blank JNZ2
349 
+	.track/active PEK #03 EQU ;&blank JCN2
350 350
351 351 
 	&force
352 352 
 	( load ) .knob/value POK .knob/y POK2 .knob/x POK2
... ... 
@@ -456,7 +456,7 @@ RTN
456 456 
 		( draw ) DUP2 LDA #00 SWP 8* ;font ADD2 .Screen/addr DEO2 .label/color PEK .Screen/color DEO
457 457 
 		( incr ) ++
458 458 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
459 
-		DUP2 LDA #00 NEQ ,&loop JNZ
459 
+		DUP2 LDA #00 NEQ ,&loop JCN
460 460 
 	POP2
461 461
462 462 
 RTN
... ... 
@@ -467,7 +467,7 @@ RTN
467 467 
 	&draw-ver
468 468 
 		( draw ) .color PEK .Screen/color DEO
469 469 
 		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/y DEO2 SWP2
470 
-		OVR2 OVR2 LTH2 ,&draw-ver JNZ
470 
+		OVR2 OVR2 LTH2 ,&draw-ver JCN
471 471 
 	POP2 POP2
472 472
473 473 
 RTN
... ... 
@@ -478,7 +478,7 @@ RTN
478 478 
 	&draw-hor
479 479 
 		( draw ) .color PEK .Screen/color DEO
480 480 
 		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/x DEO2 SWP2
481 
-		OVR2 OVR2 LTH2 ,&draw-hor JNZ
481 
+		OVR2 OVR2 LTH2 ,&draw-hor JCN
482 482 
 	POP2 POP2
483 483
484 484 
 RTN
... ... 
@@ -490,13 +490,13 @@ RTN
490 490 
 		( incr ) .Screen/x DEI2 ++ .Screen/x DEO2
491 491 
 		( draw ) .rect/y1 PEK2 .Screen/y DEO2 .color PEK .Screen/color DEO
492 492 
 		( draw ) .rect/y2 PEK2 .Screen/y DEO2 .color PEK .Screen/color DEO
493 
-		.Screen/x DEI2 .rect/x2 PEK2 LTH2 ,&hor JNZ
493 
+		.Screen/x DEI2 .rect/x2 PEK2 LTH2 ,&hor JCN
494 494 
 	.rect/y1 PEK2 .Screen/y DEO2
495 495 
 	&ver
496 496 
 		( draw ) .rect/x1 PEK2 .Screen/x DEO2 .color PEK .Screen/color DEO
497 497 
 		( draw ) .rect/x2 PEK2 .Screen/x DEO2 .color PEK .Screen/color DEO
498 498 
 		( incr ) .Screen/y DEI2 ++ .Screen/y DEO2
499 
-		.Screen/y DEI2 .rect/y2 PEK2 ++ LTH2 ,&ver JNZ
499 
+		.Screen/y DEI2 .rect/y2 PEK2 ++ LTH2 ,&ver JCN
500 500
501 501 
 RTN
502 502
projects/demos/piano.usm
History View file @ 8630028
... ... 
@@ -108,14 +108,14 @@ BRK
108 108 
 		OVR #10 SWP - .Audio0/output DEI #04 SFT < .Screen/color DEO
109 109 
 		.Screen/y DEI2 #0002 ++ .Screen/y DEO2
110 110 
 		( incr ) SWP #01 + SWP
111 
-		DUP2 < ,&loop JNZ
111 
+		DUP2 < ,&loop JCN
112 112 
 	POP2
113 113
114 114 
 BRK
115 115
116 116 
 @on-midi ( -> )
117 117
118 
-	.Midi/note DEI #00 ! #01 JNZ [ BRK ]
118 
+	.Midi/note DEI #00 ! #01 JCN [ BRK ]
119 119 
 	.Midi/note DEI .Audio0/pitch .Midi/channel DEI #04 MOD #10 * + DEO
120 120
121 121 
 BRK
... ... 
@@ -123,19 +123,19 @@ BRK
123 123 
 @on-mouse ( -> )
124 124
125 125 
 	;draw-cursor JSR2
126 
-	.Mouse/state DEI #00 ! #01 JNZ [ BRK ]
126 
+	.Mouse/state DEI #00 ! #01 JCN [ BRK ]
127 127 
 	( wave-view )
128 128 
 	.Mouse/x DEI2 DUP2 .wave-view/x1 PEK2 >> ROT ROT .wave-view/x2 PEK2 #0001 ++ << #0101 ==
129 129 
 	.Mouse/y DEI2 DUP2 .wave-view/y1 PEK2 >> ROT ROT .wave-view/y2 PEK2 << #0101 ==
130 
-	#0101 == ;on-touch-wave-view JNZ2
130 
+	#0101 == ;on-touch-wave-view JCN2
131 131 
 	( adsr-view )
132 132 
 	.Mouse/x DEI2 DUP2 .adsr-view/x1 PEK2 >> ROT ROT .adsr-view/x2 PEK2 << #0101 ==
133 133 
 	.Mouse/y DEI2 DUP2 .adsr-view/y1 PEK2 >> ROT ROT .adsr-view/y2 PEK2 << #0101 ==
134 
-	#0101 == ;on-touch-adsr-view JNZ2
134 
+	#0101 == ;on-touch-adsr-view JCN2
135 135 
 	( octave-view )
136 136 
 	.Mouse/x DEI2 DUP2 .octave-view/x1 PEK2 >> ROT ROT .octave-view/x2 PEK2 << #0101 ==
137 137 
 	.Mouse/y DEI2 DUP2 .octave-view/y1 PEK2 >> ROT ROT .octave-view/y2 PEK2 << #0101 ==
138 
-	#0101 == ;on-touch-octave-view JNZ2
138 
+	#0101 == ;on-touch-octave-view JCN2
139 139
140 140 
 BRK
141 141
... ... 
@@ -149,11 +149,11 @@ BRK
149 149
150 150 
 @on-touch-octave-view ( -> )
151 151
152 
-	.Mouse/x DEI2 .octave-view/x1 PEK2 -- #0008 // SWP POP #09 ! ,&no-mod JNZ
152 
+	.Mouse/x DEI2 .octave-view/x1 PEK2 -- #0008 // SWP POP #09 ! ,&no-mod JCN
153 153 
 		.Mouse/y DEI2 .octave-view/y1 PEK2 -- #0008 // SWP POP
154 
-		DUP #00 ! ,&no-incr JNZ
154 
+		DUP #00 ! ,&no-incr JCN
155 155 
 			.octave PEK #01 + .octave POK &no-incr
156 
-		DUP #02 ! ,&no-decr JNZ
156 
+		DUP #02 ! ,&no-decr JCN
157 157 
 			.octave PEK #01 - .octave POK &no-decr
158 158 
 		POP
159 159 
 		( release ) #00 .Mouse/state DEO
... ... 
@@ -161,7 +161,7 @@ BRK
161 161 
 		BRK
162 162 
 	&no-mod
163 163
164 
-	.Mouse/x DEI2 .octave-view/x1 PEK2 -- #0008 // SWP POP #06 > ,&no-key JNZ
164 
+	.Mouse/x DEI2 .octave-view/x1 PEK2 -- #0008 // SWP POP #06 > ,&no-key JCN
165 165 
 		.Mouse/x DEI2 .octave-view/x1 PEK2 -- #0008 // DUP2 SWP POP .last-note POK ;notes ++ LDA ;play JSR2
166 166 
 		( release ) #00 .Mouse/state DEO
167 167 
 		;draw-octave JSR2
... ... 
@@ -172,27 +172,27 @@ BRK
172 172 
 @on-touch-adsr-view ( -> )
173 173
174 174 
 	.Mouse/x DEI2 .adsr-view/x1 PEK2 -- #0008 // SWP POP #03 /
175 
-	DUP #00 ! ,&no-a JNZ
175 
+	DUP #00 ! ,&no-a JCN
176 176 
 		.Audio0/adsr DEI
177 177 
 		#10 .Mouse/state DEI #10 = #e0 * + +
178 178 
 		.Audio0/adsr DEO &no-a
179 
-	DUP #01 ! ,&no-d JNZ
179 
+	DUP #01 ! ,&no-d JCN
180 180 
 		.Audio0/adsr DEI
181 181 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 = #0e * + + #0f AND STHr +
182 182 
 		.Audio0/adsr DEO &no-d
183 
-	DUP #02 ! ,&no-s JNZ
183 
+	DUP #02 ! ,&no-s JCN
184 184 
 		.Audio0/adsr #01 + DEI
185 185 
 		#10 .Mouse/state DEI #10 = #e0 * + +
186 186 
 		.Audio0/adsr #01 + DEO &no-s
187 
-	DUP #03 ! ,&no-r JNZ
187 
+	DUP #03 ! ,&no-r JCN
188 188 
 		.Audio0/adsr #01 + DEI
189 189 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 = #0e * + + #0f AND STHr +
190 190 
 		.Audio0/adsr #01 + DEO &no-r
191 
-	DUP #05 ! ,&no-left JNZ
191 
+	DUP #05 ! ,&no-left JCN
192 192 
 		.Audio0/volume DEI
193 193 
 		#10 .Mouse/state DEI #10 = #e0 * + +
194 194 
 		.Audio0/volume DEO &no-left
195 
-	DUP #06 ! ,&no-right JNZ
195 
+	DUP #06 ! ,&no-right JCN
196 196 
 		.Audio0/volume DEI
197 197 
 		DUP #f0 AND STH #01 .Mouse/state DEI #10 = #0e * + + #0f AND STHr +
198 198 
 		.Audio0/volume DEO &no-right
... ... 
@@ -213,32 +213,32 @@ BRK
213 213 
 	#30 .Screen/color DEO
214 214
215 215 
 	.Controller/key DEI
216 
-	DUP #61 ! ,&no-c JNZ
216 
+	DUP #61 ! ,&no-c JCN
217 217 
 		#00 .last-note POK ;notes LDA ;play JSR2 &no-c
218 
-	DUP #73 ! ,&no-d JNZ
218 
+	DUP #73 ! ,&no-d JCN
219 219 
 		#01 .last-note POK ;notes #0001 ++ LDA ;play JSR2 &no-d
220 
-	DUP #64 ! ,&no-e JNZ
220 
+	DUP #64 ! ,&no-e JCN
221 221 
 		#02 .last-note POK ;notes #0002 ++ LDA ;play JSR2 &no-e
222 
-	DUP #66 ! ,&no-f JNZ
222 
+	DUP #66 ! ,&no-f JCN
223 223 
 		#03 .last-note POK ;notes #0003 ++ LDA ;play JSR2 &no-f
224 
-	DUP #67 ! ,&no-g JNZ
224 
+	DUP #67 ! ,&no-g JCN
225 225 
 		#04 .last-note POK ;notes #0004 ++ LDA ;play JSR2 &no-g
226 
-	DUP #68 ! ,&no-a JNZ
226 
+	DUP #68 ! ,&no-a JCN
227 227 
 		#05 .last-note POK ;notes #0005 ++ LDA ;play JSR2 &no-a
228 
-	DUP #6a ! ,&no-b JNZ
228 
+	DUP #6a ! ,&no-b JCN
229 229 
 		#06 .last-note POK ;notes #0006 ++ LDA ;play JSR2 &no-b
230 
-	DUP #6b ! ,&no-c2 JNZ
230 
+	DUP #6b ! ,&no-c2 JCN
231 231 
 		#07 .last-note POK ;notes #0007 ++ LDA ;play JSR2 &no-c2
232 232 
 	POP
233 233
234 234 
 	.Controller/button DEI #f0 AND
235 
-	DUP #04 SFT #01 AND #01 ! ,&no-up JNZ
235 
+	DUP #04 SFT #01 AND #01 ! ,&no-up JCN
236 236 
 		( move ) .Audio0/addr DEI2 #0001 -- .Audio0/addr DEO2 &no-up
237 
-	DUP #05 SFT #01 AND #01 ! ,&no-down JNZ
237 
+	DUP #05 SFT #01 AND #01 ! ,&no-down JCN
238 238 
 		( move ) .Audio0/addr DEI2 #0001 ++ .Audio0/addr DEO2 &no-down
239 
-	DUP #06 SFT #01 AND #01 ! ,&no-left JNZ
239 
+	DUP #06 SFT #01 AND #01 ! ,&no-left JCN
240 240 
 		( move ) .Audio0/addr DEI2 #0010 -- .Audio0/addr DEO2 &no-left
241 
-	DUP #07 SFT #01 AND #01 ! ,&no-right JNZ
241 
+	DUP #07 SFT #01 AND #01 ! ,&no-right JCN
242 242 
 		( move ) .Audio0/addr DEI2 #0010 ++ .Audio0/addr DEO2 &no-right
243 243 
 	POP
244 244
... ... 
@@ -310,7 +310,7 @@ RTN
310 310 
 		( draw ) DUPr STHr .Screen/color DEO
311 311 
 		( incr ) .Screen/addr DEI2 #0008 ++ .Screen/addr DEO2
312 312 
 		( incr ) SWP2 #0008 ++ SWP2
313 
-		OVR2 OVR2 << ,&loop JNZ
313 
+		OVR2 OVR2 << ,&loop JCN
314 314 
 	POP2 POP2
315 315 
 	POPr
316 316
... ... 
@@ -358,7 +358,7 @@ RTN
358 358 
 	#00 #ff
359 359 
 	&loop
360 360 
 		( dotted line )
361 
-		OVR #01 AND ,&no-dot JNZ
361 
+		OVR #01 AND ,&no-dot JCN
362 362 
 			.wave-view/y1 PEK2 #0010 ++ .Screen/y DEO2
363 363 
 			#03 .Screen/color DEO
364 364 
 		&no-dot
... ... 
@@ -368,7 +368,7 @@ RTN
368 368 
 		.Screen/x DEI2 #0001 ++ .Screen/x DEO2
369 369 
 		( draw ) OVR .Audio0/length DEI2 SWP POP > #02 * #01 + .Screen/color DEO
370 370 
 		( incr ) SWP #01 + SWP
371 
-		DUP2 < ,&loop JNZ
371 
+		DUP2 < ,&loop JCN
372 372 
 	POP2
373 373
374 374 
 	( range )
... ... 
@@ -389,7 +389,7 @@ RTN
389 389 
 		OVR2 .Screen/y DEO2
390 390 
 		( draw ) DUPr STHr .Screen/color DEO
391 391 
 		( incr ) SWP2 #0001 ++ SWP2
392 
-		OVR2 OVR2 << ,&loop JNZ
392 
+		OVR2 OVR2 << ,&loop JCN
393 393 
 	POP2 POP2
394 394 
 	POPr
395 395
... ... 
@@ -448,10 +448,10 @@ RTN
448 448 
 			( save ) OVR2 .Screen/x DEO2
449 449 
 			( draw ) .color PEK .Screen/color DEO
450 450 
 			( incr ) SWP2 #0001 ++ SWP2
451 
-			OVR2 OVR2 LTS2 ,&hor JNZ
451 
+			OVR2 OVR2 LTS2 ,&hor JCN
452 452 
 		POP2 POP2 STH2r STH2r
453 453 
 		( incr ) SWP2 #0001 ++ SWP2
454 
-		OVR2 OVR2 LTS2 ,&ver JNZ
454 
+		OVR2 OVR2 LTS2 ,&ver JCN
455 455 
 	POP2 POP2 POP2 POP2
456 456
457 457 
 RTN
projects/demos/polycat.usm
History View file @ 8630028
... ... 
@@ -53,12 +53,12 @@ BRK
53 53 
 @on-frame ( -> )
54 54
55 55 
 	.cat/timer PEK #01 ADD [ DUP ] .cat/timer POK
56 
-		DUP #00 NEQ ,&skip0 JNZ #0000 ;draw-tail JSR2 &skip0
57 
-		DUP #10 NEQ ,&skip1 JNZ #0001 ;draw-tail JSR2 &skip1
58 
-		DUP #20 NEQ ,&skip2 JNZ #0002 ;draw-tail JSR2 &skip2
59 
-		DUP #30 NEQ ,&skip3 JNZ #0003 ;draw-tail JSR2 &skip3
60 
-		DUP #40 NEQ ,&skip4 JNZ #0002 ;draw-tail JSR2 &skip4
61 
-		DUP #50 NEQ ,&skip5 JNZ #0001 ;draw-tail JSR2 &skip5
56 
+		DUP #00 NEQ ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0
57 
+		DUP #10 NEQ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1
58 
+		DUP #20 NEQ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2
59 
+		DUP #30 NEQ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3
60 
+		DUP #40 NEQ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4
61 
+		DUP #50 NEQ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5
62 62 
 	POP
63 63
64 64 
 BRK
... ... 
@@ -136,7 +136,7 @@ RTN
136 136 
 		( sety ) .Screen/addr DEI2 #0008 + .Screen/addr DEO2
137 137 
 		( setx ) .Screen/x DEI2 #0008 + .Screen/x DEO2
138 138 
 		( incr ) SWP #01 ADD SWP
139 
-		DUP2 LTH ,&loop JNZ
139 
+		DUP2 LTH ,&loop JCN
140 140 
 	POP2
141 141
142 142 
 RTN
projects/demos/theme.usm
History View file @ 8630028
... ... 
@@ -70,27 +70,27 @@ BRK
70 70
71 71 
 	;draw-cursor JSR2
72 72
73 
-	.Mouse/state DEI #00 NEQ #01 JNZ [ BRK ]
73 
+	.Mouse/state DEI #00 NEQ #01 JCN [ BRK ]
74 74
75 75 
 	.Mouse/y DEI2 .window/y1 PEK2 SUB2 STEP8
76 
-	DUP2 #0010 NEQ2 ,&no-touch-red JNZ
77 
-		.Mouse/x DEI2 .window/x1 PEK2 #0060 ADD2 LTH2 ,&no-touch-red JNZ
78 
-		.Mouse/x DEI2 .window/x1 PEK2 #009c ADD2 GTH2 ,&no-touch-red JNZ
76 
+	DUP2 #0010 NEQ2 ,&no-touch-red JCN
77 
+		.Mouse/x DEI2 .window/x1 PEK2 #0060 ADD2 LTH2 ,&no-touch-red JCN
78 
+		.Mouse/x DEI2 .window/x1 PEK2 #009c ADD2 GTH2 ,&no-touch-red JCN
79 79 
 		( get new value ) .Mouse/x DEI2 .window/x1 PEK2 SUB2 #0060 SUB2 #0004 DIV2 SWP POP ;theme/r1 #00 .selection PEK ADD2 STA
80 80 
 	&no-touch-red
81 
-	DUP2 #0020 NEQ2 ,&no-touch-green JNZ
82 
-		.Mouse/x DEI2 .window/x1 PEK2 #0060 ADD2 LTH2 ,&no-touch-green JNZ
83 
-		.Mouse/x DEI2 .window/x1 PEK2 #009c ADD2 GTH2 ,&no-touch-green JNZ
81 
+	DUP2 #0020 NEQ2 ,&no-touch-green JCN
82 
+		.Mouse/x DEI2 .window/x1 PEK2 #0060 ADD2 LTH2 ,&no-touch-green JCN
83 
+		.Mouse/x DEI2 .window/x1 PEK2 #009c ADD2 GTH2 ,&no-touch-green JCN
84 84 
 		( get new value ) .Mouse/x DEI2 .window/x1 PEK2 SUB2 #0060 SUB2 #0004 DIV2 SWP POP ;theme/g1 #00 .selection PEK ADD2 STA
85 85 
 	&no-touch-green
86 
-	DUP2 #0030 NEQ2 ,&no-touch-blue JNZ
87 
-		.Mouse/x DEI2 .window/x1 PEK2 #0060 ADD2 LTH2 ,&no-touch-blue JNZ
88 
-		.Mouse/x DEI2 .window/x1 PEK2 #009c ADD2 GTH2 ,&no-touch-blue JNZ
86 
+	DUP2 #0030 NEQ2 ,&no-touch-blue JCN
87 
+		.Mouse/x DEI2 .window/x1 PEK2 #0060 ADD2 LTH2 ,&no-touch-blue JCN
88 
+		.Mouse/x DEI2 .window/x1 PEK2 #009c ADD2 GTH2 ,&no-touch-blue JCN
89 89 
 		( get new value ) .Mouse/x DEI2 .window/x1 PEK2 SUB2 #0060 SUB2 #0004 DIV2 SWP POP ;theme/b1 #00 .selection PEK ADD2 STA
90 90 
 	&no-touch-blue
91 
-	DUP2 #0040 NEQ2 ,&no-touch-radio JNZ
92 
-		.Mouse/x DEI2 .window/x1 PEK2 #0050 ADD2 LTH2 ,&no-touch-radio JNZ
93 
-		.Mouse/x DEI2 .window/x1 PEK2 #008c ADD2 GTH2 ,&no-touch-radio JNZ
91 
+	DUP2 #0040 NEQ2 ,&no-touch-radio JCN
92 
+		.Mouse/x DEI2 .window/x1 PEK2 #0050 ADD2 LTH2 ,&no-touch-radio JCN
93 
+		.Mouse/x DEI2 .window/x1 PEK2 #008c ADD2 GTH2 ,&no-touch-radio JCN
94 94 
 		.Mouse/x DEI2 .window/x1 PEK2 SUB2 #0050 SUB2 STEP8 2/ #0008 DIV2 SWP POP .selection POK
95 95 
 	&no-touch-radio
96 96 
 	POP2
... ... 
@@ -125,7 +125,7 @@ RTN
125 125 
 	&draw-hor
126 126 
 		( draw ) #01 .Screen/color DEO
127 127 
 		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/x DEO2 SWP2
128 
-		OVR2 OVR2 LTH2 ,&draw-hor JNZ
128 
+		OVR2 OVR2 LTH2 ,&draw-hor JCN
129 129 
 	POP2 POP2
130 130
131 131 
 	( draw ver line )
... ... 
@@ -134,7 +134,7 @@ RTN
134 134 
 	&draw-ver
135 135 
 		( draw ) #02 .Screen/color DEO
136 136 
 		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/y DEO2 SWP2
137 
-		OVR2 OVR2 LTH2 ,&draw-ver JNZ
137 
+		OVR2 OVR2 LTH2 ,&draw-ver JCN
138 138 
 	POP2 POP2
139 139
140 140 
 	( draw blending modes )
... ... 
@@ -145,7 +145,7 @@ RTN
145 145 
 		( move ) OVR #08 MUL #00 SWP #0010 ADD2 .Screen/x DEO2
146 146 
 		( draw ) OVR .Screen/color DEO
147 147 
 		( incr ) SWP #01 ADD SWP
148 
-		DUP2 LTH ,&draw-pixel1 JNZ
148 
+		DUP2 LTH ,&draw-pixel1 JCN
149 149 
 	POP POP
150 150 
 	#0018 .Screen/y DEO2
151 151 
 	#00 #08
... ... 
@@ -153,7 +153,7 @@ RTN
153 153 
 		( move ) OVR #08 MUL #00 SWP #0010 ADD2 .Screen/x DEO2
154 154 
 		( draw ) OVR #08 ADD .Screen/color DEO
155 155 
 		( incr ) SWP #01 ADD SWP
156 
-		DUP2 LTH ,&draw-pixel2 JNZ
156 
+		DUP2 LTH ,&draw-pixel2 JCN
157 157 
 	POP POP
158 158 
 	#0020 .Screen/y DEO2
159 159 
 	#00 #08
... ... 
@@ -161,7 +161,7 @@ RTN
161 161 
 		( move ) OVR #08 MUL #00 SWP #0010 ADD2 .Screen/x DEO2
162 162 
 		( draw ) OVR #20 ADD .Screen/color DEO
163 163 
 		( incr ) SWP #01 ADD SWP
164 
-		DUP2 LTH ,&draw-icn1 JNZ
164 
+		DUP2 LTH ,&draw-icn1 JCN
165 165 
 	POP POP
166 166 
 	#0028 .Screen/y DEO2
167 167 
 	#00 #08
... ... 
@@ -169,7 +169,7 @@ RTN
169 169 
 		( move ) OVR #08 MUL #00 SWP #0010 ADD2 .Screen/x DEO2
170 170 
 		( draw ) OVR #28 ADD .Screen/color DEO
171 171 
 		( incr ) SWP #01 ADD SWP
172 
-		DUP2 LTH ,&draw-icn2 JNZ
172 
+		DUP2 LTH ,&draw-icn2 JCN
173 173 
 	POP POP
174 174 
 	#0030 .Screen/y DEO2
175 175 
 	#00 #08
... ... 
@@ -177,7 +177,7 @@ RTN
177 177 
 		( move ) OVR #08 MUL #00 SWP #0010 ADD2 .Screen/x DEO2
178 178 
 		( draw ) OVR #40 ADD .Screen/color DEO
179 179 
 		( incr ) SWP #01 ADD SWP
180 
-		DUP2 LTH ,&draw-chr1 JNZ
180 
+		DUP2 LTH ,&draw-chr1 JCN
181 181 
 	POP POP
182 182 
 	#0038 .Screen/y DEO2
183 183 
 	#00 #08
... ... 
@@ -185,7 +185,7 @@ RTN
185 185 
 		( move ) OVR #08 MUL #00 SWP #0010 ADD2 .Screen/x DEO2
186 186 
 		( draw ) OVR #48 ADD .Screen/color DEO
187 187 
 		( incr ) SWP #01 ADD SWP
188 
-		DUP2 LTH ,&draw-chr2 JNZ
188 
+		DUP2 LTH ,&draw-chr2 JCN
189 189 
 	POP POP
190 190
191 191 
 RTN
... ... 
@@ -270,7 +270,7 @@ RTN
270 270 
 	&loop
271 271 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
272 272 
 		( draw ) #25 .Screen/color DEO
273 
-		.Screen/x DEI2 .slider/x2 PEK2 #0008 ADD2 LTH2 ,&loop JNZ
273 
+		.Screen/x DEI2 .slider/x2 PEK2 #0008 ADD2 LTH2 ,&loop JCN
274 274
275 275 
 	( incr ) .Screen/x DEI2 #0004 ADD2 .Screen/x DEO2
276 276 
 	;sliderc_icn .Screen/addr DEO2
... ... 
@@ -293,10 +293,10 @@ RTN
293 293 
 			( save ) OVR2 .Screen/x DEO2
294 294 
 			( draw ) .color PEK .Screen/color DEO
295 295 
 			( incr ) SWP2 #0001 ADD2 SWP2
296 
-			OVR2 OVR2 LTH2 ,&hor JNZ
296 
+			OVR2 OVR2 LTH2 ,&hor JCN
297 297 
 		POP2 POP2 STH2r STH2r
298 298 
 		( incr ) SWP2 #0001 ADD2 SWP2
299 
-		OVR2 OVR2 LTH2 ,&ver JNZ
299 
+		OVR2 OVR2 LTH2 ,&ver JCN
300 300 
 	POP2 POP2 POP2 POP2
301 301
302 302 
 RTN
... ... 
@@ -308,13 +308,13 @@ RTN
308 308 
 		( incr ) .Screen/x DEI2 ++ .Screen/x DEO2
309 309 
 		( draw ) .rect/y1 PEK2 .Screen/y DEO2 .color PEK .Screen/color DEO
310 310 
 		( draw ) .rect/y2 PEK2 .Screen/y DEO2 .color PEK .Screen/color DEO
311 
-		.Screen/x DEI2 .rect/x2 PEK2 LTH2 ,&hor JNZ
311 
+		.Screen/x DEI2 .rect/x2 PEK2 LTH2 ,&hor JCN
312 312 
 	.rect/y1 PEK2 .Screen/y DEO2
313 313 
 	&ver
314 314 
 		( draw ) .rect/x1 PEK2 .Screen/x DEO2 .color PEK .Screen/color DEO
315 315 
 		( draw ) .rect/x2 PEK2 .Screen/x DEO2 .color PEK .Screen/color DEO
316 316 
 		( incr ) .Screen/y DEI2 ++ .Screen/y DEO2
317 
-		.Screen/y DEI2 .rect/y2 PEK2 ++ LTH2 ,&ver JNZ
317 
+		.Screen/y DEI2 .rect/y2 PEK2 ++ LTH2 ,&ver JCN
318 318
319 319 
 RTN
320 320
... ... 
@@ -330,7 +330,7 @@ RTN
330 330 
 		( draw ) DUPr STHr .Screen/color DEO
331 331 
 		( incr ) ++
332 332 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
333 
-		DUP2 LDA #00 NEQ ,&loop JNZ
333 
+		DUP2 LDA #00 NEQ ,&loop JCN
334 334 
 	POP2 POPr
335 335
336 336 
 RTN
projects/examples/devices/audio.usm
History View file @ 8630028
... ... 
@@ -32,7 +32,7 @@ BRK
32 32 
 @on-frame ( -> )
33 33
34 34 
 	( incr ) .timer PEK #01 ADD .timer POK
35 
-	( skip ) .timer PEK #10 EQU #01 JNZ [ BRK ]
35 
+	( skip ) .timer PEK #10 EQU #01 JCN [ BRK ]
36 36
37 37 
 	( get note )
38 38 
 	;melody #00 .progress PEK ADD2 LDA
projects/examples/devices/console.lib.usm
History View file @ 8630028
... ... 
@@ -35,7 +35,7 @@ BRK
35 35 
 	&loop
36 36 
 		( send ) DUP2 LDA .Console/char DEO
37 37 
 		( incr ) #0001 ADD2
38 
-		( loop ) DUP2 LDA ,&loop JNZ
38 
+		( loop ) DUP2 LDA ,&loop JCN
39 39 
 	POP2
40 40
41 41 
 RTN
... ... 
@@ -50,7 +50,7 @@ RTN
50 50 
 RTN
51 51
52 52 
 	&digit
53 
-	#0f AND DUP #0a LTH ,&not-alpha JNZ
53 
+	#0f AND DUP #0a LTH ,&not-alpha JCN
54 54 
 		#27 ADD
55 55 
 	&not-alpha
56 56 
 	LIT '0 ADD .Console/char DEO
... ... 
@@ -64,14 +64,14 @@ RTN
64 64 
 	DUP2 #0064 DIV2 DUP2 ,&digit JSR #0064 MUL2 SUB2
65 65 
 	DUP2 #000a DIV2 DUP2 ,&digit JSR #000a MUL2 SUB2
66 66 
 	                     ,&digit JSR
67 
-	.number/started PEK ,&end JNZ
67 
+	.number/started PEK ,&end JCN
68 68 
 	LIT '0 .Console/char DEO
69 69 
 	&end
70 70 
 RTN
71 71
72 72 
 	&digit
73 73 
 	SWP POP
74 
-	DUP .number/started PEK ORA #02 JNZ
74 
+	DUP .number/started PEK ORA #02 JCN
75 75 
 	POP JMP2r
76 76 
 	LIT '0 ADD .Console/char DEO
77 77 
 	#01 .number/started POK
projects/examples/devices/console.usm
History View file @ 8630028
... ... 
@@ -19,7 +19,7 @@ BRK
19 19 
 	&loop
20 20 
 		( send ) DUP2 LDA .Console/char DEO
21 21 
 		( incr ) #0001 ADD2
22 
-		( loop ) DUP2 LDA #00 NEQ ,&loop JNZ
22 
+		( loop ) DUP2 LDA #00 NEQ ,&loop JCN
23 23 
 	POP2
24 24
25 25 
 RTN
projects/examples/devices/controller.buttons.usm
History View file @ 8630028
... ... 
@@ -44,27 +44,27 @@ BRK
44 44
45 45 
 	( hold ctrl key to change slime color )
46 46 
 	.Controller/button DEI #0f AND
47 
-		DUP #01 NEQ ,&no-ctrl JNZ #25 .slime POK &no-ctrl
48 
-		DUP #02 NEQ ,&no-alt JNZ #2f .slime POK &no-alt
47 
+		DUP #01 NEQ ,&no-ctrl JCN #25 .slime POK &no-ctrl
48 
+		DUP #02 NEQ ,&no-alt JCN #2f .slime POK &no-alt
49 49 
 	POP
50 50
51 51 
 	( clear ) #30 .Screen/color DEO
52 52
53 53 
 	( detect movement )
54 54 
 	.Controller/button DEI #f0 AND
55 
-		DUP #04 SFT #01 AND #01 NEQ ,&no-up JNZ
55 
+		DUP #04 SFT #01 AND #01 NEQ ,&no-up JCN
56 56 
 			( move )
57 57 
 			.Screen/y DEI2 -- .Screen/y DEO2
58 58 
 			;up_icn .Screen/addr DEO2 &no-up
59 
-		DUP #05 SFT #01 AND #01 NEQ ,&no-down JNZ
59 
+		DUP #05 SFT #01 AND #01 NEQ ,&no-down JCN
60 60 
 			( move )
61 61 
 			.Screen/y DEI2 ++ .Screen/y DEO2
62 62 
 			;down_icn .Screen/addr DEO2 &no-down
63 
-		DUP #06 SFT #01 AND #01 NEQ ,&no-left JNZ
63 
+		DUP #06 SFT #01 AND #01 NEQ ,&no-left JCN
64 64 
 			( move )
65 65 
 			.Screen/x DEI2 -- .Screen/x DEO2
66 66 
 			;left_icn .Screen/addr DEO2 &no-left
67 
-		DUP #07 SFT #01 AND #01 NEQ ,&no-right JNZ
67 
+		DUP #07 SFT #01 AND #01 NEQ ,&no-right JCN
68 68 
 			( move )
69 69 
 			.Screen/x DEI2 ++ .Screen/x DEO2
70 70 
 			;right_icn .Screen/addr DEO2 &no-right
projects/examples/devices/controller.keys.usm
History View file @ 8630028
... ... 
@@ -27,9 +27,9 @@ BRK
27 27
28 28 
 @on-button ( -> )
29 29
30 
-	( skip ) .Controller/key DEI #00 NEQ #01 JNZ [ BRK ]
30 
+	( skip ) .Controller/key DEI #00 NEQ #01 JCN [ BRK ]
31 31
32 
-	.Controller/key DEI #0d NEQ ,&no-return JNZ
32 
+	.Controller/key DEI #0d NEQ ,&no-return JCN
33 33 
 		( draw ) #20 .Screen/color DEO
34 34 
 		( reset ) #0000 .Screen/x DEO2
35 35 
 		( incr ) .Screen/y DEI2 8+ .Screen/y DEO2
projects/examples/devices/datetime.usm
History View file @ 8630028
... ... 
@@ -2,7 +2,7 @@
2 2
3 3 
 %RTN     { JMP2r }
4 4 
 %MOD     { DUP2 DIV MUL SUB }
5 
-%ABS2    { DUP2 #000f SFT2 EQU #04 JNZ #ffff MUL2 }
5 
+%ABS2    { DUP2 #000f SFT2 EQU #04 JCN #ffff MUL2 }
6 6 
 %SCALEX  { #0002 DIV2 .Screen/width DEI2 #0002 DIV2 ADD2 #0040 SUB2 }
7 7 
 %SCALEY  { #0002 DIV2 .Screen/height DEI2 #0002 DIV2 ADD2 #0040 SUB2 }
8 8 
 %12HOURS { DUP #0c GTH #0c MUL SUB }
... ... 
@@ -41,7 +41,7 @@ BRK
41 41 
 @on-frame ( -> )
42 42
43 43 
 	( only draw once per second )
44 
-	( skip ) .DateTime/second DEI .current PEK NEQ #01 JNZ [ BRK ]
44 
+	( skip ) .DateTime/second DEI .current PEK NEQ #01 JCN [ BRK ]
45 45
46 46 
 	.DateTime/second DEI .current POK
47 47
... ... 
@@ -74,7 +74,7 @@ BRK
74 74 
 		#00 SWP SCALEX .Screen/x DEO2
75 75 
 		OVR #0f MOD #00 EQU #01 ADD .Screen/color DEO
76 76 
 		( incr ) SWP #01 ADD SWP
77 
-		DUP2 LTH ,&loop JNZ
77 
+		DUP2 LTH ,&loop JCN
78 78 
 	POP2
79 79
80 80 
 	;draw-display JSR2
... ... 
@@ -120,13 +120,13 @@ RTN
120 120 
 		.line/y PEK2 .Screen/y DEO2
121 121 
 		.color PEK .Screen/color DEO
122 122 
 		[ .line/x PEK2 .line/x0 PEK2 EQU2 ]
123 
-		[ .line/y PEK2 .line/y0 PEK2 EQU2 ] #0101 EQU2 ,&end JNZ
123 
+		[ .line/y PEK2 .line/y0 PEK2 EQU2 ] #0101 EQU2 ,&end JCN
124 124 
 		.line/e1 PEK2 #0002 MUL2 .line/e2 POK2
125 
-		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JNZ
125 
+		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JCN
126 126 
 			.line/e1 PEK2 .line/dy PEK2 ADD2 .line/e1 POK2
127 127 
 			.line/x PEK2 .line/sx PEK2 ADD2 .line/x POK2
128 128 
 		&skipy
129 
-		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JNZ
129 
+		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JCN
130 130 
 			.line/e1 PEK2 .line/dx PEK2 ADD2 .line/e1 POK2
131 131 
 			.line/y PEK2 .line/sy PEK2 ADD2 .line/y POK2
132 132 
 		&skipx
projects/examples/devices/file.usm
History View file @ 8630028
... ... 
@@ -28,7 +28,7 @@
28 28 
 	;srcpath .File/name DEO2
29 29 
 	MEMORY   .File/load DEO2
30 30
31 
-	.File/success DEI2 #0000 NEQ2 ;on-success JNZ2
31 
+	.File/success DEI2 #0000 NEQ2 ;on-success JCN2
32 32
33 33 
 	;failedtxt .Console/string DEO2
34 34
... ... 
@@ -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 JNZ
52 
+			OVR2 OVR2 LTH2 ,&hor JCN
53 53 
 		POP2 POP2
54 54 
 		( incr ) SWP2 8+ SWP2
55 
-		OVR2 OVR2 LTH2 ,&ver JNZ
55 
+		OVR2 OVR2 LTH2 ,&ver JCN
56 56 
 	POP2 POP2
57 57
58 58 
 	( save file )
projects/examples/devices/mouse.usm
History View file @ 8630028
... ... 
@@ -1,7 +1,7 @@
1 1 
 ( dev/mouse )
2 2
3 3 
 %RTN   { JMP2r }
4 
-%ABS2  { DUP2 #000f SFT2 EQU #04 JNZ #ffff MUL2 }
4 
+%ABS2  { DUP2 #000f SFT2 EQU #04 JCN #ffff MUL2 }
5 5 
 %LTS2  { #8000 ADD2 SWP2 #8000 ADD2 GTH2 }
6 6 
 %GTS2  { #8000 ADD2 SWP2 #8000 ADD2 LTH2 }
7 7
... ... 
@@ -36,10 +36,10 @@ BRK
36 36 
 	;draw-cursor JSR2
37 37
38 38 
 	( on down )
39 
-	.Mouse/state DEI #00 NEQ .pointer/state PEK #00 EQU #0101 EQU2 ,on-mouse-down JNZ
39 
+	.Mouse/state DEI #00 NEQ .pointer/state PEK #00 EQU #0101 EQU2 ,on-mouse-down JCN
40 40
41 41 
 	( on drag )
42 
-	.Mouse/state DEI #00 NEQ ,on-mouse-drag JNZ
42 
+	.Mouse/state DEI #00 NEQ ,on-mouse-drag JCN
43 43 
 	.Mouse/state DEI .pointer/state POK
44 44
45 45 
 BRK
... ... 
@@ -103,13 +103,13 @@ RTN
103 103 
 		.line/y PEK2 .Screen/y DEO2
104 104 
 		.color PEK .Screen/color DEO
105 105 
 		[ .line/x PEK2 .line/x0 PEK2 EQU2 ]
106 
-		[ .line/y PEK2 .line/y0 PEK2 EQU2 ] #0101 EQU2 ,&end JNZ
106 
+		[ .line/y PEK2 .line/y0 PEK2 EQU2 ] #0101 EQU2 ,&end JCN
107 107 
 		.line/e1 PEK2 #0002 MUL2 .line/e2 POK2
108 
-		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JNZ
108 
+		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JCN
109 109 
 			.line/e1 PEK2 .line/dy PEK2 ADD2 .line/e1 POK2
110 110 
 			.line/x PEK2 .line/sx PEK2 ADD2 .line/x POK2
111 111 
 		&skipy
112 
-		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JNZ
112 
+		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JCN
113 113 
 			.line/e1 PEK2 .line/dx PEK2 ADD2 .line/e1 POK2
114 114 
 			.line/y PEK2 .line/sy PEK2 ADD2 .line/y POK2
115 115 
 		&skipx
projects/examples/devices/screen.usm
History View file @ 8630028
... ... 
@@ -45,7 +45,7 @@ BRK
45 45 
 			.center/y PEK2 #0040 SUB2 ADD2 .Screen/y DEO2
46 46 
 		( draw ) OVR .Screen/color DEO
47 47 
 		( incr ) SWP #01 ADD SWP
48 
-		DUP2 NEQ ,&loop JNZ
48 
+		DUP2 NEQ ,&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 JNZ
72 
+		DUP2 LTH ,&loop JCN
73 73 
 	POP2
74 74
75 75 
 RTN
projects/examples/gui/animation.usm
History View file @ 8630028
... ... 
@@ -32,11 +32,11 @@ BRK
32 32 
 	( clear ) #20 ;draw-dvd JSR2
33 33 
 	( case: hit-right ) .dvd/x PEK2 .Screen/width DEI2 #0020 SUB2 EQU2
34 34 
 	( case: hit-left ) .dvd/x PEK2 #0000 EQU2
35 
-	#0000 EQU2 ,&no-flipx JNZ
35 
+	#0000 EQU2 ,&no-flipx JCN
36 36 
 		.dvd/dx PEK #00 EQU .dvd/dx POK &no-flipx
37 37 
 	( case: hit-bottom ) .dvd/y PEK2 .Screen/height DEI2 #0010 SUB2 EQU2
38 38 
 	( case: hit-top ) .dvd/y PEK2 #0000 EQU2
39 
-	#0000 EQU2 ,&no-flipy JNZ
39 
+	#0000 EQU2 ,&no-flipy JCN
40 40 
 		.dvd/dy PEK #00 EQU .dvd/dy POK &no-flipy
41 41 
 	( incr ) .dvd/x PEK2 #0001 #00 .dvd/dx PEK #00 EQU #fffe MUL2 ADD2 ADD2 .dvd/x POK2
42 42 
 	( incr ) .dvd/y PEK2 #0001 #00 .dvd/dy PEK #00 EQU #fffe MUL2 ADD2 ADD2 .dvd/y POK2
... ... 
@@ -57,10 +57,10 @@ BRK
57 57 
 			( draw ) DUPr STHr .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 JNZ
60 
+			OVR2 OVR2 LTH2 ,&hor JCN
61 61 
 		POP2 POP2
62 62 
 		( incr ) SWP2 #0008 ADD2 SWP2
63 
-		OVR2 OVR2 LTH2 ,&ver JNZ
63 
+		OVR2 OVR2 LTH2 ,&ver JCN
64 64 
 	POP2 POP2
65 65 
 	( destroy ) POPr
66 66
projects/examples/gui/hover.usm
History View file @ 8630028
... ... 
@@ -40,22 +40,22 @@
40 40 
 	( matrix comparison )
41 41 
 	.Mouse/x DEI2 .r1/x1 PEK2 GTH2 .Mouse/x DEI2 .r1/x2 PEK2 LTH2 #0101 EQU2
42 42 
 	.Mouse/y DEI2 .r1/y1 PEK2 GTH2 .Mouse/y DEI2 .r1/y2 PEK2 LTH2 #0101 EQU2
43 
-	#0101 NEQ2 ,&draw1 JNZ #02 .color POK ;hand_icn .pointer/sprite POK2
43 
+	#0101 NEQ2 ,&draw1 JCN #02 .color POK ;hand_icn .pointer/sprite POK2
44 44 
 	&draw1 .r1/x1 PEK2 .r1/y1 PEK2 .r1/x2 PEK2 .r1/y2 PEK2 .color PEK ;line-rect JSR2
45 45
46 46 
 	#01 .color POK
47 47 
 	( 2-step comparison )
48 
-	.Mouse/x DEI2 .r2/x1 PEK2 GTH2 .Mouse/x DEI2 .r2/x2 PEK2 LTH2 #0101 NEQ2 ,&draw2 JNZ
49 
-		.Mouse/y DEI2 .r2/y1 PEK2 GTH2 .Mouse/y DEI2 .r2/y2 PEK2 LTH2 #0101 NEQ2 ,&draw2 JNZ
48 
+	.Mouse/x DEI2 .r2/x1 PEK2 GTH2 .Mouse/x DEI2 .r2/x2 PEK2 LTH2 #0101 NEQ2 ,&draw2 JCN
49 
+		.Mouse/y DEI2 .r2/y1 PEK2 GTH2 .Mouse/y DEI2 .r2/y2 PEK2 LTH2 #0101 NEQ2 ,&draw2 JCN
50 50 
 			#03 .color POK ;hand_icn .pointer/sprite POK2
51 51 
 	&draw2 .r2/x1 PEK2 .r2/y1 PEK2 .r2/x2 PEK2 .r2/y2 PEK2 .color PEK ;line-rect JSR2
52 52
53 53 
 	#01 .color POK
54 54 
 	( 4-step comparison )
55 
-	.Mouse/x DEI2 .r3/x1 PEK2 LTH2 ,&draw3 JNZ
56 
-		.Mouse/x DEI2 .r3/x2 PEK2 GTH2 ,&draw3 JNZ
57 
-			.Mouse/y DEI2 .r3/y1 PEK2 LTH2 ,&draw3 JNZ
58 
-				.Mouse/y DEI2 .r3/y2 PEK2 GTH2 ,&draw3 JNZ
55 
+	.Mouse/x DEI2 .r3/x1 PEK2 LTH2 ,&draw3 JCN
56 
+		.Mouse/x DEI2 .r3/x2 PEK2 GTH2 ,&draw3 JCN
57 
+			.Mouse/y DEI2 .r3/y1 PEK2 LTH2 ,&draw3 JCN
58 
+				.Mouse/y DEI2 .r3/y2 PEK2 GTH2 ,&draw3 JCN
59 59 
 					#02 .color POK ;hand_icn .pointer/sprite POK2
60 60 
 	&draw3 .r3/x1 PEK2 .r3/y1 PEK2 .r3/x2 PEK2 .r3/y2 PEK2 .color PEK ;line-rect JSR2
61 61
... ... 
@@ -89,13 +89,13 @@ RTN
89 89 
 		( incr ) .Screen/x DEI2 #0001 ADD2 .Screen/x DEO2
90 90 
 		( draw ) .rect/y1 PEK2 .Screen/y DEO2 .color PEK .Screen/color DEO
91 91 
 		( draw ) .rect/y2 PEK2 .Screen/y DEO2 .color PEK .Screen/color DEO
92 
-		.Screen/x DEI2 .rect/x2 PEK2 LTH2 ,&hor JNZ
92 
+		.Screen/x DEI2 .rect/x2 PEK2 LTH2 ,&hor JCN
93 93 
 	.rect/y1 PEK2 .Screen/y DEO2
94 94 
 	&ver
95 95 
 		( draw ) .rect/x1 PEK2 .Screen/x DEO2 .color PEK .Screen/color DEO
96 96 
 		( draw ) .rect/x2 PEK2 .Screen/x DEO2 .color PEK .Screen/color DEO
97 97 
 		( incr ) .Screen/y DEI2 #0001 ADD2 .Screen/y DEO2
98 
-		.Screen/y DEI2 .rect/y2 PEK2 #0001 ADD2 LTH2 ,&ver JNZ
98 
+		.Screen/y DEI2 .rect/y2 PEK2 #0001 ADD2 LTH2 ,&ver JCN
99 99
100 100 
 RTN
101 101
projects/examples/gui/label.usm
History View file @ 8630028
... ... 
@@ -35,7 +35,7 @@ BRK
35 35 
 	&draw-ver
36 36 
 		( draw ) #02 .Screen/color DEO
37 37 
 		( incr ) .Screen/y DEI2 #0002 ADD2 .Screen/y DEO2
38 
-		.Screen/y DEI2 .Screen/height DEI2 LTH2 ,&draw-ver JNZ
38 
+		.Screen/y DEI2 .Screen/height DEI2 LTH2 ,&draw-ver JCN
39 39
40 40 
 	.center/x PEK2 .center/y PEK2 #0010 SUB2 #2c ;text1 ;draw-label-left JSR2
41 41 
 	.center/x PEK2 .center/y PEK2 #2c ;text2 ;draw-label-middle JSR2
... ... 
@@ -53,7 +53,7 @@ RTN
53 53 
 		( draw ) DUP2 LDA #00 SWP #0008 MUL2 ;font ADD2 .Screen/addr DEO2 .label/color PEK .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 JNZ
56 
+		DUP2 LDA #00 NEQ ,&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 PEK .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 JNZ
70 
+		DUP2 LDA #00 NEQ ,&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 PEK .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 JNZ
84 
+		DUP2 LDA #00 NEQ ,&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 JNZ
94 
+		LDA #00 NEQ ,&loop JCN
95 95 
 	SWP2 POP2
96 96
97 97 
 RTN
projects/examples/gui/picture.usm
History View file @ 8630028
... ... 
@@ -52,10 +52,10 @@ BRK
52 52 
 			( draw ) .color PEK .Screen/color DEO
53 53 
 			( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
54 54 
 			( incr ) SWP2 8+ SWP2
55 
-			OVR2 OVR2 LTH2 ,&hor JNZ
55 
+			OVR2 OVR2 LTH2 ,&hor JCN
56 56 
 		POP2 POP2
57 57 
 		( incr ) SWP2 8+ SWP2
58 
-		OVR2 OVR2 LTH2 ,&ver JNZ
58 
+		OVR2 OVR2 LTH2 ,&ver JCN
59 59 
 	POP2 POP2
60 60
61 61 
 RTN
... ... 
@@ -72,10 +72,10 @@ RTN
72 72 
 			( draw ) .color PEK .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 JNZ
75 
+			OVR2 OVR2 LTH2 ,&hor JCN
76 76 
 		POP2 POP2
77 77 
 		( incr ) SWP2 8+ SWP2
78 
-		OVR2 OVR2 LTH2 ,&ver JNZ
78 
+		OVR2 OVR2 LTH2 ,&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 PEK .Screen/color DEO
93 93 
 			( incr ) SWP2 8+ SWP2
94 
-			OVR2 OVR2 LTH2 ,&hor JNZ
94 
+			OVR2 OVR2 LTH2 ,&hor JCN
95 95 
 		POP2 POP2
96 96 
 		( incr ) SWP2 8+ SWP2
97 
-		OVR2 OVR2 LTH2 ,&ver JNZ
97 
+		OVR2 OVR2 LTH2 ,&ver JCN
98 98 
 	POP2 POP2
99 99
100 100 
 RTN
projects/examples/gui/shapes.usm
History View file @ 8630028
... ... 
@@ -4,7 +4,7 @@
4 4 
 %++  { #0001 ADD2 }
5 5 
 %--  { #0001 SUB2 }
6 6 
 %8+  { #0008 ADD2 }
7 
-%ABS2 { DUP2 #000f SFT2 EQU #04 JNZ #ffff MUL2 }
7 
+%ABS2 { DUP2 #000f SFT2 EQU #04 JCN #ffff MUL2 }
8 8 
 %LTS2  { #8000 ADD2 SWP2 #8000 ADD2 GTH2 }
9 9 
 %GTS2  { #8000 ADD2 SWP2 #8000 ADD2 LTH2 }
10 10
... ... 
@@ -54,13 +54,13 @@ BRK
54 54 
 	.line/dx PEK2 .line/dy PEK2 ADD2 .line/e1 POK2
55 55 
 	&loop
56 56 
 		.line/x PEK2 .Screen/x DEO2 .line/y PEK2 .Screen/y DEO2 .color PEK .Screen/color DEO
57 
-		.line/x PEK2 .line/x0 PEK2 EQU2 .line/y PEK2 .line/y0 PEK2 EQU2 #0101 EQU2 ,&end JNZ
57 
+		.line/x PEK2 .line/x0 PEK2 EQU2 .line/y PEK2 .line/y0 PEK2 EQU2 #0101 EQU2 ,&end JCN
58 58 
 		.line/e1 PEK2 #0002 MUL2 .line/e2 POK2
59 
-		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JNZ
59 
+		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JCN
60 60 
 			.line/e1 PEK2 .line/dy PEK2 ADD2 .line/e1 POK2
61 61 
 			.line/x PEK2 .line/sx PEK2 ADD2 .line/x POK2
62 62 
 		&skipy
63 
-		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JNZ
63 
+		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JCN
64 64 
 			.line/e1 PEK2 .line/dx PEK2 ADD2 .line/e1 POK2
65 65 
 			.line/y PEK2 .line/sy PEK2 ADD2 .line/y POK2
66 66 
 		&skipx
... ... 
@@ -79,7 +79,7 @@ RTN
79 79 
 		( draw ) .rect/x1 PEK2 .Screen/x DEO2 .color PEK DUP .Screen/color DEO
80 80 
 		( draw ) .rect/x2 PEK2 .Screen/x DEO2 .Screen/color DEO
81 81 
 		( incr ) SWP2 ++ SWP2
82 
-		OVR2 OVR2 LTS2 ,&ver JNZ
82 
+		OVR2 OVR2 LTS2 ,&ver JCN
83 83 
 	POP2 POP2
84 84 
 	.rect/x1 PEK2 .rect/x2 PEK2
85 85 
 	&hor
... ... 
@@ -87,7 +87,7 @@ RTN
87 87 
 		( draw ) .rect/y1 PEK2 .Screen/y DEO2 .color PEK DUP .Screen/color DEO
88 88 
 		( draw ) .rect/y2 PEK2 .Screen/y DEO2 .Screen/color DEO
89 89 
 		( incr ) SWP2 ++ SWP2
90 
-		OVR2 OVR2 ++ LTS2 ,&hor JNZ
90 
+		OVR2 OVR2 ++ LTS2 ,&hor JCN
91 91 
 	POP2 POP2
92 92
93 93 
 RTN
... ... 
@@ -103,10 +103,10 @@ RTN
103 103 
 			( save ) OVR2 .Screen/x DEO2
104 104 
 			( draw ) .color PEK .Screen/color DEO
105 105 
 			( incr ) SWP2 ++ SWP2
106 
-			OVR2 OVR2 LTS2 ,&hor JNZ
106 
+			OVR2 OVR2 LTS2 ,&hor JCN
107 107 
 		POP2 POP2 STH2r STH2r
108 108 
 		( incr ) SWP2 ++ SWP2
109 
-		OVR2 OVR2 LTS2 ,&ver JNZ
109 
+		OVR2 OVR2 LTS2 ,&ver JCN
110 110 
 	POP2 POP2 POP2 POP2
111 111
112 112 
 RTN
... ... 
@@ -119,7 +119,7 @@ RTN
119 119 
 	( draw ) ;&seg JSR2
120 120 
 	&loop
121 121 
 		( incr ) .circle/x PEK2 ++ .circle/x POK2
122 
-		.circle/d PEK2 #0001 LTS2 ,&else JNZ
122 
+		.circle/d PEK2 #0001 LTS2 ,&else JCN
123 123 
 			( decr ) .circle/y PEK2 -- .circle/y POK2
124 124 
 			.circle/x PEK2 .circle/y PEK2 SUB2 #0004 MUL2 .circle/d PEK2 ADD2 .circle/d POK2
125 125 
 			;&end JMP2
... ... 
@@ -127,7 +127,7 @@ RTN
127 127 
 			.circle/x PEK2 #0004 MUL2 .circle/d PEK2 ADD2 .circle/d POK2
128 128 
 		&end
129 129 
 		( draw ) ;&seg JSR2
130 
-		.circle/y PEK2 .circle/x PEK2 -- GTS2 ,&loop JNZ
130 
+		.circle/y PEK2 .circle/x PEK2 -- GTS2 ,&loop JCN
131 131 
 	RTN
132 132 
 	&seg
133 133 
 		.circle/xc PEK2 .circle/x PEK2 ADD2 .Screen/x DEO2 .circle/yc PEK2 .circle/y PEK2 ADD2 .Screen/y DEO2 .color PEK .Screen/color DEO
... ... 
@@ -152,10 +152,10 @@ RTN
152 152 
 			( save ) OVR2 .Screen/x DEO2
153 153 
 			( draw ) .color PEK .Screen/color DEO
154 154 
 			( incr ) SWP2 8+ SWP2
155 
-			OVR2 OVR2 LTH2 ,&hor JNZ
155 
+			OVR2 OVR2 LTH2 ,&hor JCN
156 156 
 		POP2 POP2
157 157 
 		( incr ) SWP2 8+ SWP2
158 
-		OVR2 OVR2 LTH2 ,&ver JNZ
158 
+		OVR2 OVR2 LTH2 ,&ver JCN
159 159 
 	POP2 POP2
160 160
161 161 
 RTN
projects/examples/gui/wallpaper.usm
History View file @ 8630028
... ... 
@@ -22,9 +22,9 @@
22 22 
 	&loop
23 23 
 	DUP2 ,row JSR
24 24 
 	#0001 ADD2
25 
-	DUP2 .Screen/height DEI2 LTH2 ,&loop JNZ
25 
+	DUP2 .Screen/height DEI2 LTH2 ,&loop JCN
26 26 
 	POP2
27 
-	.scroll/wait PEK ,&noscroll JNZ
27 
+	.scroll/wait PEK ,&noscroll JCN
28 28 
 	.scroll/y PEK2 #0001 ADD2 .scroll/y POK2
29 29 
 	BRK
30 30
... ... 
@@ -40,11 +40,11 @@
40 40 
 	&loop
41 41 
 	#0001 SUB2
42 42 
 	OVR2 OVR2 .scroll/x PEK2 ADD2 EOR2 DUP2 #0013 DIV2 #0013 MUL2 SUB2
43 
-	DUP #00 EQU ,&draw JNZ
44 
-	DUP #05 EQU ,&draw JNZ
43 
+	DUP #00 EQU ,&draw JCN
44 
+	DUP #05 EQU ,&draw JCN
45 45 
 	POP2
46 46 
 	&rest
47 
-	DUP2 ORA ,&loop JNZ
47 
+	DUP2 ORA ,&loop JCN
48 48 
 	POP2 POP2
49 49 
 	JMP2r
50 50
projects/software/asma.usm
History View file @ 8630028
... ... 
@@ -12,10 +12,10 @@
12 12 
 @reset
13 13 
 	;asma-init-assembler JSR2
14 14 
 	;&filename ,asma-assemble-file-pass JSR
15 
-	asma-IF-ERROR ,asma-print-error JNZ
15 
+	asma-IF-ERROR ,asma-print-error JCN
16 16 
 	;asma-init-assembler-pass JSR2
17 17 
 	;&filename ,asma-assemble-file-pass JSR
18 
-	asma-IF-ERROR ,asma-print-error JNZ
18 
+	asma-IF-ERROR ,asma-print-error JCN
19 19 
 	BRK
20 20
21 21 
 	&filename
... ... 
@@ -43,14 +43,14 @@
43 43 
 	DUP2 .File/offset DEO2
44 44 
 	#0100 .File/length DEO2
45 45 
 	#fe00 DUP2 DUP2 .File/load DEO2
46 
-	.File/success DEI2 DUP2 ORA ,&not-end JNZ
46 
+	.File/success DEI2 DUP2 ORA ,&not-end JCN
47 47 
 	POP2 POP2
48 48 
 	&error
49 49 
 	POP2 POP2 POP2
50 50 
 	JMP2r
51 51
52 52 
 	&not-end
53 
-	,asma-assemble-chunk JSR asma-IF-ERROR ,&error JNZ
53 
+	,asma-assemble-chunk JSR asma-IF-ERROR ,&error JCN
54 54 
 	SUB2 SUB2
55 55 
 	,&loop JMP
56 56
... ... 
@@ -79,15 +79,15 @@
79 79 
 	&next-char
80 80 
 	#0001 ADD2
81 81 
 	&loop ( last-ptr* ptr* / start-of-token* )
82 
-	OVR2 OVR2 LTH2 ,&end JNZ
82 
+	OVR2 OVR2 LTH2 ,&end JCN
83 83 
 	DUP2 LDA ( last-ptr* ptr* char / start-of-token* )
84 
-	DUP #20 GTH ,&next-char-pop JNZ
84 
+	DUP #20 GTH ,&next-char-pop JCN
85 85
86 86 
 	#00 OVR2 ( last-ptr* ptr* char 00 ptr* / start-of-token* )
87 87 
 	STA
88 
-	STH2r ,asma-assemble-token JSR asma-IF-ERROR ,&error JNZ
88 
+	STH2r ,asma-assemble-token JSR asma-IF-ERROR ,&error JCN
89 89
90 
-	#0a NEQ ,&not-newline JNZ
90 
+	#0a NEQ ,&not-newline JCN
91 91 
 	;asma/line LDA2 #0001 ADD2 ;asma/line STA2
92 92 
 	&not-newline
93 93
... ... 
@@ -108,7 +108,7 @@
108 108 
 	DUP2 .Console/string DEO2 #0a .Console/char DEO
109 109 
 	DUP2 ;asma/token STA2
110 110 
 	DUP2 ;asma/orig-token STA2
111 
-	DUP2 LDA ,&not-empty JNZ
111 
+	DUP2 LDA ,&not-empty JCN
112 112 
 	POP2
113 113 
 	JMP2r
114 114
... ... 
@@ -129,7 +129,7 @@
129 129 
 	( restore truncated char )
130 130 
 	STAr
131 131
132 
-	,&not-found JNZ
132 
+	,&not-found JCN
133 133
134 134 
 	( tree-offset* token-routine-ptr* / end* )
135 135 
 	STH2r ;asma/token STA2
... ... 
@@ -153,8 +153,8 @@
153 153
154 154 
 @asma-parse-hex-digit ( charcode -- 00-0f if valid hex
155 155 
                                  OR 10-ff otherwise )
156 
-	DUP #3a LTH ,&digit JNZ
157 
-	DUP #60 GTH ,&letter JNZ
156 
+	DUP #3a LTH ,&digit JCN
157 
+	DUP #60 GTH ,&letter JCN
158 158 
 	JMP2r
159 159
160 160 
 	&digit
... ... 
@@ -173,14 +173,14 @@
173 173
174 174 
 	&loop
175 175 
 	DUP2 LDA
176 
-	DUP ,&not-end JNZ
176 
+	DUP ,&not-end JCN
177 177 
 	POP POP2
178 178 
 	STH2r ROT #01 ADD #03 MUL
179 179 
 	JMP2r
180 180
181 181 
 	&not-end
182 182 
 	,asma-parse-hex-digit JSR
183 
-	DUP #f0 AND ,&fail JNZ
183 
+	DUP #f0 AND ,&fail JCN
184 184 
 	LIT2r 0010 MUL2r
185 185 
 	#00 STH STH ADD2r
186 186 
 	#0001 ADD2
... ... 
@@ -196,7 +196,7 @@
196 196
197 197 
 	&loop
198 198 
 	DUP2 LDA
199 
-	,&not-end JNZ
199 
+	,&not-end JCN
200 200 
 	POP2 STHr
201 201 
 	JMP2r
202 202
... ... 
@@ -211,7 +211,7 @@
211 211 
 @asma-parse-opcode ( -- byte 00 if valid opcode
212 212 
                      OR 01 otherwise )
213 213 
 	;asma/token LDA2
214 
-	DUP2 ,asma-strlen JSR #03 LTH ,&too-short JNZ
214 
+	DUP2 ,asma-strlen JSR #03 LTH ,&too-short JCN
215 215
216 216 
 	( truncate to three chars long )
217 217 
 	#0003 ADD2 ( end* / )
... ... 
@@ -222,22 +222,22 @@
222 222
223 223 
 	;asma-trees/opcodes ;asma-traverse-tree JSR2
224 224 
 	STAr
225 
-	,&not-found JNZ
225 
+	,&not-found JCN
226 226
227 227 
 	;asma-opcodes/_disasm SUB2 #0003 SFT2 ( 00 byte / end* )
228 228 
 	&loop
229 229 
 	DUP2r LDAr STHr LIT2r 0001 ADD2r ( 00 byte char / end* )
230 
-	DUP ,&not-end JNZ
230 
+	DUP ,&not-end JCN
231 231 
 	POP POP2r
232 232 
 	SWP
233 233 
 	JMP2r
234 234
235 235 
 	&not-end
236 
-	DUP LIT '2 NEQ ,&not-two JNZ
236 
+	DUP LIT '2 NEQ ,&not-two JCN
237 237 
 	POP asma-SHORT-FLAG ORA ,&loop JMP
238 238
239 239 
 	&not-two
240 
-	LIT 'r NEQ ,&not-return JNZ
240 
+	LIT 'r NEQ ,&not-return JCN
241 241 
 	asma-RETURN-FLAG ORA ,&loop JMP
242 242
243 243 
 	&not-return ( 00 byte / end* )
... ... 
@@ -275,7 +275,7 @@
275 275 
 @asma-append-heap-string ( string* -- )
276 276 
 	DUP2 LDA
277 277 
 	DUP ,asma-append-heap-byte JSR
278 
-	,&keep-going JNZ
278 
+	,&keep-going JCN
279 279 
 	POP2 JMP2r
280 280
281 281 
 	&keep-going
... ... 
@@ -293,13 +293,13 @@
293 293 
 	#0a .Console/char DEO )
294 294
295 295 
 	&loop ( incoming-ptr* )
296 
-	DUP2 LDA2 ORA ,&valid-node JNZ
296 
+	DUP2 LDA2 ORA ,&valid-node JCN
297 297 
 	#01 JMP2r
298 298
299 299 
 	&valid-node
300 300 
 	LDA2 DUP2 STH2
301 301 
 	#0004 ADD2 ,asma-strcmp-tree JSR
302 
-	DUP ,&nomatch JNZ
302 
+	DUP ,&nomatch JCN
303 303 
 	POP2r JMP2r
304 304
305 305 
 	&nomatch
... ... 
@@ -315,7 +315,7 @@
315 315
316 316 
 	&loop ( node-key* / token* )
317 317 
 	DUP2 #0001 ADD2 SWP2 LDA DUP2r LDAr STHr
318 
-	DUP2 ORA ,&not-end JNZ
318 
+	DUP2 ORA ,&not-end JCN
319 319
320 320 
 	( end of C strings, match found )
321 321 
 	POP2r POP
... ... 
@@ -323,7 +323,7 @@
323 323
324 324 
 	&not-end
325 325 
 	SUB
326 
-	DUP ,&nomatch JNZ
326 
+	DUP ,&nomatch JCN
327 327 
 	POP
328 328 
 	LIT2r 0001 ADD2r
329 329 
 	,&loop JMP
... ... 
@@ -347,9 +347,9 @@
347 347 
 	JMP2r
348 348
349 349 
 @asma-macro-define
350 
-	;asma/pass LDA ,&ignore-macro JNZ
350 
+	;asma/pass LDA ,&ignore-macro JCN
351 351
352 
-	;asma-trees/macros ;asma-traverse-tree JSR2 ,&not-exist JNZ
352 
+	;asma-trees/macros ;asma-traverse-tree JSR2 ,&not-exist JCN
353 353 
 	POP2
354 354 
 	;asma-msg-macro ;asma/error STA2
355 355 
 	JMP2r
... ... 
@@ -379,7 +379,7 @@
379 379 
 @asma-label-define
380 380 
 	#0000 ;asma/scope-addr STA2
381 381 
 	;asma-trees/labels ,asma-label-helper JSR
382 
-	,&already-existed JNZ
382 
+	,&already-existed JCN
383 383
384 384 
 	#0000 ;asma-append-heap-short JSR2 ( data2: subtree incoming ptr )
385 385
... ... 
@@ -396,7 +396,7 @@
396 396 
 @asma-label-helper ( incoming-ptr* -- binary-ptr* 00 if label existed already
397 397 
                                    OR binary-ptr* 01 if label was created )
398 398 
 	;asma-traverse-tree JSR2
399 
-	,&new-label JNZ
399 
+	,&new-label JCN
400 400
401 401 
 	( label already exists )
402 402 
 	( FIXME check label address )
... ... 
@@ -424,7 +424,7 @@
424 424
425 425 
 @asma-pad-helper ( offset* -- )
426 426 
 	;asma-parse-hex-string JSR2
427 
-	,&valid JNZ
427 
+	,&valid JCN
428 428
429 429 
 	;asma-msg-hex ;asma/error POK2
430 430 
 	JMP2r
... ... 
@@ -443,7 +443,7 @@
443 443
444 444 
 	&loop
445 445 
 	DUP2 LDA
446 
-	DUP ,&not-end JNZ
446 
+	DUP ,&not-end JCN
447 447
448 448 
 	POP POP2
449 449 
 	JMP2r
... ... 
@@ -466,7 +466,7 @@
466 466 
 	,asma-addr-helper JSR
467 467 
 	;asma-write-byte JSR2
468 468
469 
-	,&not-zero-page JNZ
469 
+	,&not-zero-page JCN
470 470 
 	JMP2r
471 471
472 472 
 	&not-zero-page
... ... 
@@ -478,7 +478,7 @@
478 478 
 	,asma-addr-helper JSR ;asma/addr LDA2 SUB2 #0002 SUB2
479 479
480 480 
 	DUP2 #0080 LTH2 STH
481 
-	DUP2 #ff7f GTH2 STHr ORA ,&in-bounds JNZ
481 
+	DUP2 #ff7f GTH2 STHr ORA ,&in-bounds JCN
482 482
483 483 
 	POP2
484 484 
 	;asma-msg-relative ;asma/error STA2
... ... 
@@ -490,20 +490,20 @@
490 490 
 	JMP2r
491 491
492 492 
 @asma-addr-helper ( -- addr* )
493 
-	;asma/token LDA2 DUP2 LDA #26 NEQ ,&not-local JNZ
493 
+	;asma/token LDA2 DUP2 LDA #26 NEQ ,&not-local JCN
494 494 
 	#0001 ADD2 ;asma/token STA2
495 495 
 	;asma/scope-addr LDA2 ;asma-trees/scope LDA2
496 496 
 	,&final-lookup JMP
497 497
498 498 
 	&not-local ( token* )
499 499 
 	DUP2 LDA
500 
-	DUP ,&not-end JNZ
500 
+	DUP ,&not-end JCN
501 501 
 	POP POP2
502 502 
 	#0000 ;asma-trees/labels
503 503 
 	,&final-lookup JMP
504 504
505 505 
 	&not-end ( token* char )
506 
-	#2f EQU ,&found-slash JNZ
506 
+	#2f EQU ,&found-slash JCN
507 507 
 	#0001 ADD2
508 508 
 	,&not-local JMP
509 509
... ... 
@@ -511,19 +511,19 @@
511 511 
 	DUP2 #00 ROT ROT STA
512 512 
 	;asma-trees/labels ;asma-traverse-tree JSR2 STH
513 513 
 	SWP2 DUP2 #2f ROT ROT STA
514 
-	STHr ,&not-found JNZ
514 
+	STHr ,&not-found JCN
515 515 
 	( token* binary-ptr* )
516 516 
 	#0001 ADD2 ;asma/token STA2
517 517 
 	DUP2 LDA2 SWP2 #0002 ADD2
518 518
519 519 
 	&final-lookup ( addr-offset* incoming-ptr* )
520 
-	;asma-traverse-tree JSR2 ,&not-found JNZ
520 
+	;asma-traverse-tree JSR2 ,&not-found JCN
521 521 
 	LDA2 ADD2
522 522 
 	JMP2r
523 523
524 524 
 	&not-found ( dummy* dummy* )
525 525
526 
-	;asma/pass LDA #00 EQU ,&ignore-error JNZ
526 
+	;asma/pass LDA #00 EQU ,&ignore-error JCN
527 527 
 	;asma-msg-label ;asma/error STA2
528 528 
 	&ignore-error
529 529
... ... 
@@ -556,7 +556,7 @@
556 556 
 	;asma-write-short JMP2 ( tail call )
557 557
558 558 
 @asma-normal-body
559 
-	;asma-parse-opcode JSR2 ,&not-opcode JNZ
559 
+	;asma-parse-opcode JSR2 ,&not-opcode JCN
560 560 
 	;asma-write-byte JMP2 ( tail call )
561 561
562 562 
 	&not-opcode
... ... 
@@ -566,17 +566,17 @@
566 566 
 	( hex short   ) ,asma-short-helper/raw JMP
567 567
568 568 
 	&not-hex
569 
-	;asma-trees/macros ;asma-traverse-tree JSR2 ,&not-macro JNZ
569 
+	;asma-trees/macros ;asma-traverse-tree JSR2 ,&not-macro JCN
570 570
571 571 
 	&macro-loop
572 
-	DUP2 LDA ,&keep-going JNZ
572 
+	DUP2 LDA ,&keep-going JCN
573 573 
 	&error
574 574 
 	POP2
575 575 
 	JMP2r
576 576
577 577 
 	&keep-going
578 578 
 	DUP2 DUP2 ;asma-strlen JSR2 #00 SWP #0001 ADD2 ADD2
579 
-	SWP2 ;asma-assemble-token JSR2 asma-IF-ERROR ,&error JNZ
579 
+	SWP2 ;asma-assemble-token JSR2 asma-IF-ERROR ,&error JCN
580 580 
 	,&macro-loop JMP
581 581
582 582 
 	&not-macro
... ... 
@@ -728,8 +728,8 @@
728 728 
 	&NEQ        :&MUL      :&NOP        "NEQ 00
729 729 
 	&GTH         $2         $2          "GTH 00
730 730 
 	&_entry     :&EQU      :&POP        "LTH 00
731 
-	&JMP        :&GTH      :&JNZ        "JMP 00
732 
-	&JNZ         $2         $2          "JNZ 00
731 
+	&JMP        :&GTH      :&JCN        "JMP 00
732 
+	&JCN         $2         $2          "JCN 00
733 733 
 	&JSR        :&JMP      :&LDR        "JSR 00
734 734 
 	&STH        :&SFT      :&SUB        "STH 00
735 735 
 	&PEK        :&OVR      :&POK        "PEK 00
projects/software/left.usm
History View file @ 8630028
... ... 
@@ -20,7 +20,7 @@
20 20
21 21
22 22 
 %RTN { JMP2r }
23 
-%RTN? { #00 EQU #02 JNZ STH2r JMP2 }
23 
+%RTN? { #00 EQU #02 JCN STH2r JMP2 }
24 24
25 25 
 %++ { #0001 ADD2 } %-- { #0001 SUB2 }
26 26 
 %8/ { #0003 SFT2 } %8* { #0030 SFT2 }
... ... 
@@ -76,15 +76,15 @@ BRK
76 76 
 @on-button ( -> )
77 77
78 78 
 	( alt + arrow )
79 
-	.Controller/button DEI #0f AND #02 NEQ ,&no-alt JNZ
79 
+	.Controller/button DEI #0f AND #02 NEQ ,&no-alt JCN
80 80 
 		.Controller/button DEI #04 SFT
81 
-		DUP #01 NEQ ,&no-aup JNZ
81 
+		DUP #01 NEQ ,&no-aup JCN
82 82 
 			( sel word ) ;find-wordstart JSR2 .selection/to POK2 &no-aup
83 
-		DUP #02 NEQ ,&no-adown JNZ
83 
+		DUP #02 NEQ ,&no-adown JCN
84 84 
 			( sel word ) ;find-wordend JSR2 .selection/to POK2 &no-adown
85 
-		DUP #04 NEQ ,&no-aleft JNZ
85 
+		DUP #04 NEQ ,&no-aleft JCN
86 86 
 			( sel decr ) .selection/to PEK2 -- .selection/to POK2 &no-aleft
87 
-		DUP #08 NEQ ,&no-aright JNZ
87 
+		DUP #08 NEQ ,&no-aright JCN
88 88 
 			( sel incr ) .selection/to PEK2 ++ .selection/to POK2 &no-aright
89 89 
 		POP
90 90 
 		;clamp-selection JSR2
... ... 
@@ -93,15 +93,15 @@ BRK
93 93 
 	&no-alt
94 94
95 95 
 	( ctrl + arrow )
96 
-	.Controller/button DEI #0f AND #01 NEQ ,&no-ctrl JNZ
96 
+	.Controller/button DEI #0f AND #01 NEQ ,&no-ctrl JCN
97 97 
 		.Controller/button DEI #04 SFT
98 
-		DUP #01 NEQ ,&no-cup JNZ
98 
+		DUP #01 NEQ ,&no-cup JCN
99 99 
 			( jump scroll ) #0004 ;scroll-up JSR2 &no-cup
100 
-		DUP #02 NEQ ,&no-cdown JNZ
100 
+		DUP #02 NEQ ,&no-cdown JCN
101 101 
 			( jump scroll ) #0004 ;scroll-down JSR2 &no-cdown
102 
-		DUP #04 NEQ ,&no-cleft JNZ
102 
+		DUP #04 NEQ ,&no-cleft JCN
103 103 
 			( jump line ) ;goto-linestart JSR2 &no-cleft
104 
-		DUP #08 NEQ ,&no-cright JNZ
104 
+		DUP #08 NEQ ,&no-cright JCN
105 105 
 			( jump line ) ;goto-lineend JSR2 &no-cright
106 106 
 		POP
107 107 
 		;redraw JSR2
... ... 
@@ -109,20 +109,20 @@ BRK
109 109 
 	&no-ctrl
110 110
111 111 
 	( arrow )
112 
-	.Controller/button DEI #f0 AND #00 EQU ;&no-arrow JNZ2
112 
+	.Controller/button DEI #f0 AND #00 EQU ;&no-arrow JCN2
113 113 
 		.Controller/button DEI #f0 AND
114 
-		DUP #10 NEQ ,&no-arrowup JNZ
115 
-			( clamp ) .position/y PEK2 #0000 EQU2 ,&no-arrowup JNZ
114 
+		DUP #10 NEQ ,&no-arrowup JCN
115 
+			( clamp ) .position/y PEK2 #0000 EQU2 ,&no-arrowup JCN
116 116 
 			;find-lineoffset JSR2 .position/x POK2 .position/y PEK2 -- .position/y POK2
117 117 
 			;find-selection JSR2 DUP2 .selection/from POK2 ++ .selection/to POK2 &no-arrowup
118 
-		DUP #20 NEQ ,&no-arrowdown JNZ
118 
+		DUP #20 NEQ ,&no-arrowdown JCN
119 119 
 			( clamp:TODO )
120 120 
 			;find-lineoffset JSR2 .position/x POK2 .position/y PEK2 ++ .position/y POK2
121 121 
 			;find-selection JSR2 DUP2 .selection/from POK2 ++ .selection/to POK2 &no-arrowdown
122 
-		DUP #40 NEQ ,&no-arrowleft JNZ
123 
-			( clamp ) .selection/from PEK2 ;document/body EQU2 ,&no-arrowleft JNZ
122 
+		DUP #40 NEQ ,&no-arrowleft JCN
123 
+			( clamp ) .selection/from PEK2 ;document/body EQU2 ,&no-arrowleft JCN
124 124 
 			.selection/from PEK2 -- DUP2 .selection/from POK2 ++ .selection/to POK2 &no-arrowleft
125 
-		DUP #80 NEQ ,&no-arrowright JNZ
125 
+		DUP #80 NEQ ,&no-arrowright JCN
126 126 
 			( clamp:TODO )
127 127 
 			#aa .Console/byte DEO
128 128 
 			.selection/from PEK2 ++ DUP2 .selection/from POK2 ++ .selection/to POK2 &no-arrowright
... ... 
@@ -132,9 +132,9 @@ BRK
132 132 
 		;redraw JSR2
133 133 
 	&no-arrow
134 134
135 
-	.Controller/key DEI #08 NEQ ,&no-backspace JNZ
135 
+	.Controller/key DEI #08 NEQ ,&no-backspace JCN
136 136 
 		( erase )
137 
-		.selection/to PEK2 .selection/from PEK2 SUB2 #0001 NEQ2 ,&erase-multiple JNZ
137 
+		.selection/to PEK2 .selection/from PEK2 SUB2 #0001 NEQ2 ,&erase-multiple JCN
138 138 
 			.selection/to PEK2 .selection/from PEK2 SUB2 ;shift-left JSR2
139 139 
 			;&erase-end JMP2
140 140 
 		&erase-multiple
... ... 
@@ -158,9 +158,9 @@ BRK
158 158
159 159 
 @on-mouse ( -> )
160 160
161 
-	.Mouse/state DEI #00 EQU ,&touch-end JNZ
162 
-		.Mouse/x DEI2 #0010 LTH2 ;touch-linebar JNZ2
163 
-		.Mouse/x DEI2 .Screen/width DEI2 8- LTH2 ;touch-body JNZ2
161 
+	.Mouse/state DEI #00 EQU ,&touch-end JCN
162 
+		.Mouse/x DEI2 #0010 LTH2 ;touch-linebar JCN2
163 
+		.Mouse/x DEI2 .Screen/width DEI2 8- LTH2 ;touch-body JCN2
164 164 
 		;touch-scrollbar JMP2
165 165 
 	&touch-end
166 166
... ... 
@@ -186,18 +186,18 @@ BRK
186 186 
 	.Mouse/y DEI2 8/ .scroll/y PEK2 ADD2 .position/y POK2
187 187 
 	.Mouse/x DEI2 .textarea/x1 PEK2 SUB2 #0007 ADD2 #0007 DIV2 .position/x POK2
188 188 
 	( chords )
189 
-	.Mouse/chord DEI #00 EQU ,&no-chords JNZ
189 
+	.Mouse/chord DEI #00 EQU ,&no-chords JCN
190 190 
 		.Mouse/chord DEI
191 
-		DUP #01 NEQ ,&no-chord-cut JNZ
191 
+		DUP #01 NEQ ,&no-chord-cut JCN
192 192 
 			;cut JSR2 ( release ) #00 DUP .Mouse/state DEO .Mouse/chord DEO &no-chord-cut
193 
-		DUP #10 NEQ ,&no-chord-paste JNZ
193 
+		DUP #10 NEQ ,&no-chord-paste JCN
194 194 
 			;paste JSR2 ( release ) #00 DUP .Mouse/state DEO .Mouse/chord DEO &no-chord-paste
195 195 
 		POP
196 196 
 		;redraw JSR2
197 197 
 		BRK
198 198 
 	&no-chords
199 199 
 	( drag )
200 
-	.Mouse/state DEI .touch/state PEK NEQ .Controller/button DEI #0f AND #02 NEQ #0101 EQU2 ,&no-drag JNZ
200 
+	.Mouse/state DEI .touch/state PEK NEQ .Controller/button DEI #0f AND #02 NEQ #0101 EQU2 ,&no-drag JCN
201 201 
 		( on drag )
202 202 
 		;find-selection JSR2 ++ .selection/to POK2
203 203 
 		;clamp-selection JSR2
... ... 
@@ -214,11 +214,11 @@ BRK
214 214
215 215 
 @touch-scrollbar ( -- )
216 216
217 
-	.Mouse/y DEI2 #0008 GTH2 ,&no-up JNZ
217 
+	.Mouse/y DEI2 #0008 GTH2 ,&no-up JCN
218 218 
 		( decr ) .scroll/y PEK2 #00 .scroll/y PEK2 #0000 NEQ2 SUB2 .scroll/y POK2
219 219 
 		,&end JMP
220 220 
 	&no-up
221 
-	.Mouse/y DEI2 .Screen/height DEI2 8- LTH2 ,&no-down JNZ
221 
+	.Mouse/y DEI2 .Screen/height DEI2 8- LTH2 ,&no-down JCN
222 222 
 		( incr ) .scroll/y PEK2 ++ .scroll/y POK2
223 223 
 		,&end JMP
224 224 
 	&no-down
... ... 
@@ -237,13 +237,13 @@ 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 JNZ
240 
+	;document/eof LDA2 LDA #00 NEQ ,&loop JCN
241 241
242 242 
 RTN
243 243
244 244 
 @scroll-up ( length -- )
245 245
246 
-	DUP2 .scroll/y PEK2 LTH2 ,&clamp JNZ
246 
+	DUP2 .scroll/y PEK2 LTH2 ,&clamp JCN
247 247 
 		#0000 .scroll/y POK2 POP2 RTN
248 248 
 	&clamp
249 249 
 	.scroll/y PEK2 SWP2 SUB2 .scroll/y POK2
... ... 
@@ -264,7 +264,7 @@ RTN
264 264 
 	&loop
265 265 
 		( move ) .j PEK2 .i PEK2 ADD2 LDA .j PEK2 STA
266 266 
 		( incr ) .j PEK2 ++ .j POK2
267 
-		.j PEK2 ;document/eof LDA2 LTH2 ,&loop JNZ
267 
+		.j PEK2 ;document/eof LDA2 LTH2 ,&loop JCN
268 268 
 	;document/eof LDA2 .i PEK2 SUB2 ;document/eof STA2
269 269
270 270 
 RTN
... ... 
@@ -276,17 +276,17 @@ RTN
276 276 
 	&loop
277 277 
 		( move ) .j PEK2 .i PEK2 SUB2 LDA .j PEK2 STA
278 278 
 		( decr ) .j PEK2 -- .j POK2
279 
-		.j PEK2 .selection/from PEK2 GTH2 ,&loop JNZ
279 
+		.j PEK2 .selection/from PEK2 GTH2 ,&loop JCN
280 280 
 	;document/eof LDA2 .i PEK2 ADD2 ;document/eof STA2
281 281
282 282 
 RTN
283 283
284 284 
 @follow-selection ( -- )
285 285
286 
-	.position/y PEK2 .scroll/y PEK2 GTH2 ,&no-up JNZ
286 
+	.position/y PEK2 .scroll/y PEK2 GTH2 ,&no-up JCN
287 287 
 		.position/y PEK2 .scroll/y POK2 RTN
288 288 
 	&no-up
289 
-	.position/y PEK2 .Screen/height DEI2 #0010 SUB2 8/ .scroll/y PEK2 ADD2 LTH2 ,&no-down JNZ
289 
+	.position/y PEK2 .Screen/height DEI2 #0010 SUB2 8/ .scroll/y PEK2 ADD2 LTH2 ,&no-down JCN
290 290 
 		.position/y PEK2 .Screen/height DEI2 #0010 SUB2 8/ SUB2 .scroll/y POK2 RTN
291 291 
 	&no-down
292 292
... ... 
@@ -305,7 +305,7 @@ RTN
305 305 
 		.selection/from PEK2 -- LDA #0a EQU RTN?
306 306 
 		.selection/from PEK2 -- LDA #0d EQU RTN?
307 307 
 		( decr ) .selection/from PEK2 DUP2 .selection/to POK2 -- .selection/from POK2
308 
-	.selection/from PEK2 LDA #00 NEQ ,&loop JNZ
308 
+	.selection/from PEK2 LDA #00 NEQ ,&loop JCN
309 309 
 	( clamp at document body )
310 310 
 	.selection/from PEK2 ;document/body GTH2 RTN?
311 311 
 	;document/body DUP2 .selection/from POK2 ++ .selection/to POK2
... ... 
@@ -318,7 +318,7 @@ RTN
318 318 
 		.selection/from PEK2 LDA #0a EQU RTN?
319 319 
 		.selection/from PEK2 LDA #0d EQU RTN?
320 320 
 		( incr ) .selection/from PEK2 ++ DUP2 ++ .selection/to POK2 .selection/from POK2
321 
-		.selection/from PEK2 LDA #00 NEQ ,&loop JNZ
321 
+		.selection/from PEK2 LDA #00 NEQ ,&loop JCN
322 322 
 	( clamp at document body )
323 323 
 	.selection/from PEK2 ;document/eof LTH2 RTN?
324 324 
 	;document/eof -- DUP2 .selection/from POK2 ++ .selection/to POK2
... ... 
@@ -330,10 +330,10 @@ RTN
330 330 
 	.selection/to PEK2 .j POK2
331 331 
 	&loop
332 332 
 		( decr ) .j PEK2 -- .j POK2
333 
-		.j PEK2 LDA #20 EQU ,&end JNZ
334 
-		.j PEK2 LDA #0a EQU ,&end JNZ
335 
-		.j PEK2 LDA #0d EQU ,&end JNZ
336 
-		.j PEK2 ;document/body GTH2 ,&loop JNZ
333 
+		.j PEK2 LDA #20 EQU ,&end JCN
334 
+		.j PEK2 LDA #0a EQU ,&end JCN
335 
+		.j PEK2 LDA #0d EQU ,&end JCN
336 
+		.j PEK2 ;document/body GTH2 ,&loop JCN
337 337 
 	&end
338 338 
 	( return ) .j PEK2 --
339 339
... ... 
@@ -344,10 +344,10 @@ RTN
344 344 
 	.selection/to PEK2 .j POK2
345 345 
 	&loop
346 346 
 		( incr ) .j PEK2 ++ .j POK2
347 
-		.j PEK2 LDA #20 EQU ,&end JNZ
348 
-		.j PEK2 LDA #0a EQU ,&end JNZ
349 
-		.j PEK2 LDA #0d EQU ,&end JNZ
350 
-		.j PEK2 ;document/body GTH2 ,&loop JNZ
347 
+		.j PEK2 LDA #20 EQU ,&end JCN
348 
+		.j PEK2 LDA #0a EQU ,&end JCN
349 
+		.j PEK2 LDA #0d EQU ,&end JCN
350 
+		.j PEK2 ;document/body GTH2 ,&loop JCN
351 351 
 	&end
352 352 
 	( return ) .j PEK2 ++
353 353
... ... 
@@ -358,9 +358,9 @@ RTN
358 358 
 	#0000 .j POK2
359 359 
 	&loop
360 360 
 		( incr ) .j PEK2 ++ .j POK2
361 
-		.selection/from PEK2 .j PEK2 SUB2 LDA #0a EQU ,&end JNZ
362 
-		.selection/from PEK2 .j PEK2 SUB2 LDA #0d EQU ,&end JNZ
363 
-		.selection/from PEK2 .j PEK2 SUB2 ;document/body GTH2 ,&loop JNZ
361 
+		.selection/from PEK2 .j PEK2 SUB2 LDA #0a EQU ,&end JCN
362 
+		.selection/from PEK2 .j PEK2 SUB2 LDA #0d EQU ,&end JCN
363 
+		.selection/from PEK2 .j PEK2 SUB2 ;document/body GTH2 ,&loop JCN
364 364 
 	&end
365 365 
 	( return ) .j PEK2
366 366
... ... 
@@ -370,12 +370,12 @@ RTN
370 370
371 371 
 	;document/body .j POK2 #0000 .pt/y POK2
372 372 
 	&loop
373 
-		.pt/y PEK2 .position/y PEK2 -- GTH2 ,&end JNZ
374 
-		.j PEK2 LDA #0a NEQ .j PEK2 LDA #0d NEQ #0101 EQU2 ,&no-space JNZ
373 
+		.pt/y PEK2 .position/y PEK2 -- GTH2 ,&end JCN
374 
+		.j PEK2 LDA #0a NEQ .j PEK2 LDA #0d NEQ #0101 EQU2 ,&no-space JCN
375 375 
 			( incr ) .pt/y PEK2 ++ .pt/y POK2
376 376 
 		&no-space
377 377 
 		( incr ) .j PEK2 ++ .j POK2
378 
-	.j PEK2 LDA #00 NEQ ,&loop JNZ
378 
+	.j PEK2 LDA #00 NEQ ,&loop JCN
379 379 
 	&end
380 380 
 	( return ) .j PEK2
381 381
... ... 
@@ -386,10 +386,10 @@ RTN
386 386 
 	;find-line JSR2 ( find line )
387 387 
 	#0000 .pt/x POK2
388 388 
 	&loop
389 
-		.j PEK2 .pt/x PEK2 ADD2 LDA #0a EQU ,&end JNZ
390 
-		.j PEK2 .pt/x PEK2 ADD2 LDA #0d EQU ,&end JNZ
389 
+		.j PEK2 .pt/x PEK2 ADD2 LDA #0a EQU ,&end JCN
390 
+		.j PEK2 .pt/x PEK2 ADD2 LDA #0d EQU ,&end JCN
391 391 
 		( incr ) .pt/x PEK2 ++ .pt/x POK2
392 
-		.pt/x PEK2 .position/x PEK2 -- LTH2 ,&loop JNZ
392 
+		.pt/x PEK2 .position/x PEK2 -- LTH2 ,&loop JCN
393 393 
 	&end
394 394 
 	( return ) .pt/x PEK2 ADD2
395 395
... ... 
@@ -411,7 +411,7 @@ RTN
411 411 
 	&loop
412 412 
 		.selection/from PEK2 .i PEK2 ADD2 LDA ;clip/body .i PEK2 ADD2 STA
413 413 
 		( incr ) .i PEK2 ++ .i POK2
414 
-		.i PEK2 .j PEK2 LTH2 ,&loop JNZ
414 
+		.i PEK2 .j PEK2 LTH2 ,&loop JCN
415 415
416 416 
 RTN
417 417
... ... 
@@ -423,7 +423,7 @@ RTN
423 423 
 	&loop
424 424 
 		;clip/body .i PEK2 ADD2 LDA .selection/from PEK2 .i PEK2 ADD2 STA
425 425 
 		( incr ) .i PEK2 ++ .i POK2
426 
-		.i PEK2 .j PEK2 LTH2 ,&loop JNZ
426 
+		.i PEK2 .j PEK2 LTH2 ,&loop JCN
427 427
428 428 
 RTN
429 429
... ... 
@@ -431,17 +431,17 @@ RTN
431 431
432 432 
 	;document/body .selection/from POK2 #0000 .pt/x POK2 #0000 .pt/y POK2
433 433 
 	&loop
434 
-		.selection/from PEK2 LDA #0a NEQ .selection/from PEK2 LDA #0d NEQ #0101 EQU2 ,&no-space JNZ
434 
+		.selection/from PEK2 LDA #0a NEQ .selection/from PEK2 LDA #0d NEQ #0101 EQU2 ,&no-space JCN
435 435 
 			( incr ) .pt/y PEK2 ++ .pt/y POK2
436 436 
 			#0000 .pt/x POK2
437 437 
 		&no-space
438 
-		.pt/y PEK2 .position/y PEK2 -- GTH2 .pt/x PEK2 .position/x PEK2 -- GTH2 #0101 NEQ2 ,&no-reached JNZ
438 
+		.pt/y PEK2 .position/y PEK2 -- GTH2 .pt/x PEK2 .position/x PEK2 -- GTH2 #0101 NEQ2 ,&no-reached JCN
439 439 
 			.selection/from PEK2 ++ .selection/to POK2
440 440 
 			RTN
441 441 
 		&no-reached
442 442 
 		( incr ) .pt/x PEK2 ++ .pt/x POK2
443 443 
 		( incr ) .selection/from PEK2 ++ .selection/from POK2
444 
-	.selection/from PEK2 LDA #00 NEQ ,&loop JNZ
444 
+	.selection/from PEK2 LDA #00 NEQ ,&loop JCN
445 445
446 446 
 RTN
447 447
... ... 
@@ -518,11 +518,11 @@ RTN
518 518 
 	( scroll to position )
519 519 
 	#0000 .j POK2 ( j is linebreaks )
520 520 
 	&find-offset
521 
-		.scroll/y PEK2 .j PEK2 EQU2 ,&find-offset-end JNZ
522 
-		.textarea/addr PEK2 LDA #0a NEQ .textarea/addr PEK2 LDA #0d NEQ #0101 EQU2 ,&no-break JNZ
521 
+		.scroll/y PEK2 .j PEK2 EQU2 ,&find-offset-end JCN
522 
+		.textarea/addr PEK2 LDA #0a NEQ .textarea/addr PEK2 LDA #0d NEQ #0101 EQU2 ,&no-break JCN
523 523 
 			( incr ) .j PEK2 ++ .j POK2 &no-break
524 524 
 		( incr ) .textarea/addr PEK2 ++ .textarea/addr POK2
525 
-	.textarea/addr PEK2 LDA #00 NEQ ,&find-offset JNZ
525 
+	.textarea/addr PEK2 LDA #00 NEQ ,&find-offset JCN
526 526 
 	&find-offset-end
527 527
528 528 
 	#0018 .Screen/x DEO2 #0000 .Screen/y DEO2
... ... 
@@ -530,10 +530,10 @@ RTN
530 530
531 531 
 	&loop
532 532
533 
-		.Screen/y DEI2 .Screen/height DEI2 #0010 SUB2 GTH2 ;&end JNZ2
533 
+		.Screen/y DEI2 .Screen/height DEI2 #0010 SUB2 GTH2 ;&end JCN2
534 534
535 535
536 
-		.i PEK2 LDA #0a NEQ .i PEK2 LDA #0d NEQ #0101 EQU2 ;&no-linebreak JNZ2
536 
+		.i PEK2 LDA #0a NEQ .i PEK2 LDA #0d NEQ #0101 EQU2 ;&no-linebreak JCN2
537 537 
 			( draw linebreak )
538 538 
 			;linebreak_icn .Screen/addr DEO2
539 539 
 			( draw ) #02
... ... 
@@ -545,7 +545,7 @@ RTN
545 545 
 				( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
546 546 
 				;font .Screen/addr DEO2
547 547 
 				#21 .Screen/color DEO
548 
-				.Screen/x DEI2 .Screen/width DEI2 8- LTH2 ,&fill-clear JNZ
548 
+				.Screen/x DEI2 .Screen/width DEI2 8- LTH2 ,&fill-clear JCN
549 549
550 550 
 			( draw line number )
551 551 
 			#0000 .Screen/x DEO2
... ... 
@@ -565,7 +565,7 @@ RTN
565 565 
 		( get character )
566 566 
 		;font #00 .i PEK2 LDA #20 SUB 8* ADD2 .Screen/addr DEO2
567 567 
 		( is a special character )
568 
-		.i PEK2 LDA #20 GTH ,&no-tab JNZ ;font .Screen/addr DEO2 &no-tab
568 
+		.i PEK2 LDA #20 GTH ,&no-tab JCN ;font .Screen/addr DEO2 &no-tab
569 569
570 570 
 		( draw ) #21
571 571 
 		.i PEK2 .selection/from PEK2 -- GTH2
... ... 
@@ -575,7 +575,7 @@ RTN
575 575 
 		( incr ) .i PEK2 ++ .i POK2
576 576 
 		( incr ) .Screen/x DEI2 #0007 ADD2 .Screen/x DEO2
577 577
578 
-	.i PEK2 LDA #00 NEQ ;&loop JNZ2
578 
+	.i PEK2 LDA #00 NEQ ;&loop JCN2
579 579
580 580 
 	&end
581 581
... ... 
@@ -593,7 +593,7 @@ RTN
593 593 
 	&loop
594 594 
 		( draw ) #21 .Screen/color DEO
595 595 
 		( incr ) SWP2 8+ DUP2 .Screen/y DEO2 SWP2
596 
-		OVR2 OVR2 LTH2 ,&loop JNZ
596 
+		OVR2 OVR2 LTH2 ,&loop JCN
597 597 
 	POP2 POP2
598 598
599 599 
 	.scroll/y PEK2 8+ .Screen/y DEO2
... ... 
@@ -619,7 +619,7 @@ RTN
619 619 
 		( draw ) DUP2 LDA #00 SWP #20 SUB 8* ;font ADD2 .Screen/addr DEO2 .label/color PEK .Screen/color DEO
620 620 
 		( incr ) ++
621 621 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
622 
-		DUP2 LDA #00 NEQ ,&loop JNZ
622 
+		DUP2 LDA #00 NEQ ,&loop JCN
623 623 
 	POP2
624 624 
 	( selection )
625 625 
 	.selection/from PEK2 ;document/body SUB2 ;draw-short JSR2
projects/software/nasu.usm
History View file @ 8630028
... ... 
@@ -148,26 +148,26 @@ BRK
148 148
149 149 
 @on-button ( -> )
150 150
151 
-	( skip ) .Controller/button DEI #00 NEQ #01 JNZ [ BRK ]
151 
+	( skip ) .Controller/button DEI #00 NEQ #01 JCN [ BRK ]
152 152
153 
-	.Controller/button DEI #11 NEQ ,&no-pageup JNZ .settings/page PEK2
153 
+	.Controller/button DEI #11 NEQ ,&no-pageup JCN .settings/page PEK2
154 154 
 		#0800 SUB2 .settings/page POK2
155 155 
 		;redraw JSR2
156 156 
 		BRK &no-pageup
157 157
158 
-	.Controller/button DEI #21 NEQ ,&no-pagedown JNZ .settings/page PEK2
158 
+	.Controller/button DEI #21 NEQ ,&no-pagedown JCN .settings/page PEK2
159 159 
 		#0800 ADD2 .settings/page POK2
160 160 
 		;redraw JSR2
161 161 
 		BRK &no-pagedown
162 162
163 163 
 	.Controller/button DEI #f0 AND
164 
-		DUP #04 SFT #01 AND #01 NEQ ,&no-up JNZ
164 
+		DUP #04 SFT #01 AND #01 NEQ ,&no-up JCN
165 165 
 			( move ) .bankview/selection PEK #10 SUB .bankview/selection POK &no-up
166 
-		DUP #05 SFT #01 AND #01 NEQ ,&no-down JNZ
166 
+		DUP #05 SFT #01 AND #01 NEQ ,&no-down JCN
167 167 
 			( move ) .bankview/selection PEK #10 ADD .bankview/selection POK &no-down
168 
-		DUP #06 SFT #01 AND #01 NEQ ,&no-left JNZ
168 
+		DUP #06 SFT #01 AND #01 NEQ ,&no-left JCN
169 169 
 			( move ) .bankview/selection PEK #01 SUB .bankview/selection POK &no-left
170 
-		DUP #07 SFT #01 AND #01 NEQ ,&no-right JNZ
170 
+		DUP #07 SFT #01 AND #01 NEQ ,&no-right JCN
171 171 
 			( move ) .bankview/selection PEK #01 ADD .bankview/selection POK &no-right
172 172 
 		POP
173 173
... ... 
@@ -179,16 +179,16 @@ BRK
179 179
180 180 
 	;draw-cursor JSR2
181 181
182 
-	( skip ) .Mouse/state DEI #00 NEQ #01 JNZ [ BRK ]
182 
+	( skip ) .Mouse/state DEI #00 NEQ #01 JCN [ BRK ]
183 183
184 184 
 	( toolbar )
185 
-	.Mouse/y DEI2 .bankview/y PEK2 #0010 SUB2 SUB2 #0008 DIV2 #0000 NEQ2 ;&no-toolbar-click JNZ2
185 
+	.Mouse/y DEI2 .bankview/y PEK2 #0010 SUB2 SUB2 #0008 DIV2 #0000 NEQ2 ;&no-toolbar-click JCN2
186 186 
 		( brush )
187 
-		.Mouse/x DEI2 .bankview/x PEK2 SUB2 #0008 DIV2 #000d LTH2 ,&no-brush-click JNZ
188 
-		.Mouse/x DEI2 .bankview/x PEK2 SUB2 #0008 DIV2 #000f GTH2 ,&no-brush-click JNZ
187 
+		.Mouse/x DEI2 .bankview/x PEK2 SUB2 #0008 DIV2 #000d LTH2 ,&no-brush-click JCN
188 
+		.Mouse/x DEI2 .bankview/x PEK2 SUB2 #0008 DIV2 #000f GTH2 ,&no-brush-click JCN
189 189 
 			( select ) .mouse/x PEK2 .bankview/x PEK2 SUB2 #0008 DIV2 #000d SUB2 TOB .bankview/mode POK
190 190 
 		&no-brush-click
191 
-		.Mouse/x DEI2 .bankview/x PEK2 SUB2 #0008 DIV2 #0005 NEQ2 ,&no-toggle-depth JNZ
191 
+		.Mouse/x DEI2 .bankview/x PEK2 SUB2 #0008 DIV2 #0005 NEQ2 ,&no-toggle-depth JCN
192 192 
 			;toggle-depth JSR2
193 193 
 		&no-toggle-depth
194 194 
 			( release ) #00 .Mouse/state DEO
... ... 
@@ -198,43 +198,43 @@ BRK
198 198 
 	( bankview )
199 199 
 	.Mouse/x DEI2 .bankview/x PEK2 GTH2 .Mouse/x DEI2 .bankview/x PEK2 #0080 ADD2 LTH2 #0101 EQU2
200 200 
 	.Mouse/y DEI2 .bankview/y PEK2 GTH2 .Mouse/y DEI2 .bankview/y PEK2 #0080 ADD2 LTH2 #0101 EQU2
201 
-	#0101 EQU2 ;on-touch-bankview JNZ2
201 
+	#0101 EQU2 ;on-touch-bankview JCN2
202 202
203 203 
 	( tileview )
204 204 
 	.Mouse/x DEI2 .tileview/x PEK2 GTH2 .Mouse/x DEI2 .tileview/x PEK2 #0080 ADD2 LTH2 #0101 EQU2
205 205 
 	.Mouse/y DEI2 .tileview/y PEK2 GTH2 .Mouse/y DEI2 .tileview/y PEK2 #0080 ADD2 LTH2 #0101 EQU2
206 
-	#0101 EQU2 ;on-touch-tileview JNZ2
206 
+	#0101 EQU2 ;on-touch-tileview JCN2
207 207
208 208 
 	( editview )
209 209 
 	.Mouse/x DEI2 DUP2 .editview/x1 PEK2 GTH2 ROT ROT .editview/x2 PEK2 LTH2 #0101 EQU2
210 210 
 	.Mouse/y DEI2 DUP2 .editview/y1 PEK2 GTH2 ROT ROT .editview/y2 PEK2 LTH2 #0101 EQU2
211 
-	#0101 EQU2 ;on-touch-editview JNZ2
211 
+	#0101 EQU2 ;on-touch-editview JCN2
212 212
213 213 
 	( dataview )
214 214 
 	.Mouse/x DEI2 DUP2 .dataview/x1 PEK2 GTH2 ROT ROT .dataview/x2 PEK2 LTH2 #0101 EQU2
215 215 
 	.Mouse/y DEI2 DUP2 .dataview/y1 PEK2 GTH2 ROT ROT .dataview/y2 PEK2 LTH2 #0101 EQU2
216 
-	#0101 EQU2 ;on-touch-dataview JNZ2
216 
+	#0101 EQU2 ;on-touch-dataview JCN2
217 217
218 218 
 	( blendbiew )
219 219 
 	.Mouse/x DEI2 DUP2 .blendview/x1 PEK2 GTH2 ROT ROT .blendview/x2 PEK2 LTH2 #0101 EQU2
220 220 
 	.Mouse/y DEI2 DUP2 .blendview/y1 PEK2 GTH2 ROT ROT .blendview/y2 PEK2 LTH2 #0101 EQU2
221 
-	#0101 EQU2 ;on-touch-blendview JNZ2
221 
+	#0101 EQU2 ;on-touch-blendview JCN2
222 222
223 223 
 	( colorview )
224 224 
 	.Mouse/x DEI2 DUP2 .colorview/x1 PEK2 GTH2 ROT ROT .colorview/x2 PEK2 LTH2 #0101 EQU2
225 225 
 	.Mouse/y DEI2 DUP2 .colorview/y1 PEK2 GTH2 ROT ROT .colorview/y2 PEK2 LTH2 #0101 EQU2
226 
-	#0101 EQU2 ;on-touch-colorview JNZ2
226 
+	#0101 EQU2 ;on-touch-colorview JCN2
227 227
228 228 
 	( preview )
229 229 
 	.Mouse/x DEI2 DUP2 .preview/x1 PEK2 GTH2 ROT ROT .preview/x2 PEK2 LTH2 #0101 EQU2
230 230 
 	.Mouse/y DEI2 DUP2 .preview/y1 PEK2 GTH2 ROT ROT .preview/y2 PEK2 LTH2 #0101 EQU2
231 
-	#0101 EQU2 ;on-touch-preview JNZ2
231 
+	#0101 EQU2 ;on-touch-preview JCN2
232 232
233 233 
 BRK
234 234
235 235 
 @on-touch-bankview ( -> )
236 236
237 
-	.bankview/mode PEK #01 NEQ ,&not-copy-mode JNZ
237 
+	.bankview/mode PEK #01 NEQ ,&not-copy-mode JCN
238 238 
 		#00 .i POK
239 239 
 		&copy-loop
240 240 
 			( load ) .settings/tile PEK2 .i PEK ADD LDA
... ... 
@@ -244,11 +244,11 @@ BRK
244 244 
 			( 2-bit mode ) #00 .settings/depth PEK #01 ADD MUL2
245 245 
 			.settings/page PEK2 ADD2 #00 .i PEK ADD2 STA
246 246 
 			( incr ) .i PEK #01 ADD .i POK
247 
-			.i PEK #08 LTH ,&copy-loop JNZ
247 
+			.i PEK #08 LTH ,&copy-loop JCN
248 248 
 		;redraw JSR2 BRK
249 249 
 	&not-copy-mode
250 250
251 
-	.bankview/mode PEK #02 NEQ ,&not-erase-mode JNZ
251 
+	.bankview/mode PEK #02 NEQ ,&not-erase-mode JCN
252 252 
 		#00 .i POK
253 253 
 		&erase-loop
254 254 
 			#00
... ... 
@@ -258,7 +258,7 @@ BRK
258 258 
 			( 2-bit mode ) #00 .settings/depth PEK #01 ADD MUL2
259 259 
 			.settings/page PEK2 ADD2 #00 .i PEK ADD2 STA
260 260 
 			( incr ) .i PEK #01 ADD .i POK
261 
-			.i PEK #08 LTH ,&erase-loop JNZ
261 
+			.i PEK #08 LTH ,&erase-loop JCN
262 262 
 		;redraw JSR2 BRK
263 263 
 	&not-erase-mode
264 264
... ... 
@@ -284,13 +284,13 @@ BRK
284 284
285 285 
 @on-touch-dataview ( -> )
286 286
287 
-	.Mouse/y DEI2 .dataview/y1 PEK2 SUB2 STEP8 TOB #60 EQU ,&skip JNZ BRK &skip
287 
+	.Mouse/y DEI2 .dataview/y1 PEK2 SUB2 STEP8 TOB #60 EQU ,&skip JCN BRK &skip
288 288 
 	.Mouse/x DEI2 .dataview/x1 PEK2 SUB2 #0008 DIV2 TOB
289 
-	DUP #00 NEQ ,&no-move-up JNZ
289 
+	DUP #00 NEQ ,&no-move-up JCN
290 290 
 		;op_shiftup JSR2
291 291 
 		( release ) #00 .Mouse/state DEO
292 292 
 		;redraw JSR2 POP BRK &no-move-up
293 
-	DUP #01 NEQ ,&no-move-down JNZ
293 
+	DUP #01 NEQ ,&no-move-down JCN
294 294 
 		;op_shiftdown JSR2
295 295 
 		( release ) #00 .Mouse/state DEO
296 296 
 		;redraw JSR2 POP BRK &no-move-down
... ... 
@@ -312,13 +312,13 @@ BRK
312 312
313 313 
 	( channel ) .Mouse/y DEI2 .colorview/y1 PEK2 SUB2 #0008 DIV2 TOB STH
314 314 
 	( rgb ) .Mouse/x DEI2 .colorview/x1 PEK2 SUB2 #0008 DIV2 TOB
315 
-	DUP #00 NEQ ,&no-brush JNZ
315 
+	DUP #00 NEQ ,&no-brush JCN
316 316 
 		DUPr STHr .settings/brush POK &no-brush
317 
-	DUP #01 NEQ ,&no-red JNZ
317 
+	DUP #01 NEQ ,&no-red JCN
318 318 
 		DUPr STHr .System/r ;set-color JSR2 &no-red
319 
-	DUP #02 NEQ ,&no-green JNZ
319 
+	DUP #02 NEQ ,&no-green JCN
320 320 
 		DUPr STHr .System/g ;set-color JSR2 &no-green
321 
-	DUP #03 NEQ ,&no-blue JNZ
321 
+	DUP #03 NEQ ,&no-blue JCN
322 322 
 		DUPr STHr .System/b ;set-color JSR2 &no-blue
323 323 
 	POP POPr
324 324 
 	( release ) #00 .Mouse/state DEO
... ... 
@@ -342,22 +342,22 @@ BRK
342 342 
 @set-color ( color rgb -- )
343 343
344 344 
 	STH
345 
-	DUP #00 NEQ ,&no-red0 JNZ
345 
+	DUP #00 NEQ ,&no-red0 JCN
346 346 
 		DUPr STHr DEI DUP #04 SFT #01 ADD
347 347 
 		( add/sub ) .Mouse/state DEI #10 EQU #fe MUL ADD
348 348 
 		( resume ) #40 SFT SWP #0f AND ADD DUPr STHr DEO
349 349 
 		&no-red0
350 
-	DUP #01 NEQ ,&no-red1 JNZ
350 
+	DUP #01 NEQ ,&no-red1 JCN
351 351 
 		DUPr STHr DEI DUP #0f AND #01 ADD
352 352 
 		( add/sub ) .Mouse/state DEI #10 EQU #fe MUL ADD
353 353 
 		( resume ) #0f AND SWP #f0 AND ADD DUPr STHr DEO
354 354 
 		&no-red1
355 
-	DUP #02 NEQ ,&no-red2 JNZ
355 
+	DUP #02 NEQ ,&no-red2 JCN
356 356 
 		DUPr STHr #01 ADD DEI DUP #04 SFT #01 ADD
357 357 
 		( add/sub ) .Mouse/state DEI #10 EQU #fe MUL ADD
358 358 
 		( resume ) #40 SFT SWP #0f AND ADD DUPr STHr #01 ADD DEO
359 359 
 		&no-red2
360 
-	DUP #03 NEQ ,&no-red3 JNZ
360 
+	DUP #03 NEQ ,&no-red3 JCN
361 361 
 		DUPr STHr #01 ADD DEI DUP #0f AND #01 ADD
362 362 
 		( add/sub ) .Mouse/state DEI #10 EQU #fe MUL ADD
363 363 
 		( resume ) #0f AND SWP #f0 AND ADD DUPr STHr #01 ADD DEO
... ... 
@@ -466,7 +466,7 @@ RTN
466 466 
 		.Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2
467 467 
 		.Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
468 468 
 		SWP #01 ADD SWP
469 
-		DUP2 LTH ,&guides JNZ
469 
+		DUP2 LTH ,&guides JCN
470 470 
 	POP2
471 471
472 472 
 	( draw page )
... ... 
@@ -484,10 +484,10 @@ RTN
484 484 
 			( draw ) #20 ADD ADD ADD .Screen/color DEO
485 485 
 			( incr ) SWP2 #0008 ADD2 SWP2
486 486 
 			( incr ) .Screen/addr DEI2 #0008 ADD2 #00 .settings/depth PEK #0008 MUL2 ADD2 .Screen/addr DEO2
487 
-			OVR2 OVR2 LTH2 ,&hor JNZ
487 
+			OVR2 OVR2 LTH2 ,&hor JCN
488 488 
 		POP2 POP2
489 489 
 		( incr ) SWP2 #0008 ADD2 SWP2
490 
-		OVR2 OVR2 LTH2 ,&ver JNZ
490 
+		OVR2 OVR2 LTH2 ,&ver JCN
491 491 
 	POP2 POP2
492 492
493 493 
 RTN
... ... 
@@ -538,7 +538,7 @@ RTN
538 538 
 	&line-hor
539 539 
 		( draw ) #03 .Screen/color DEO
540 540 
 		( incr ) .Screen/x DEI2 #0002 ADD2 .Screen/x DEO2
541 
-	.Screen/x DEI2 .tileview/x PEK2 #0082 ADD2 LTH2 ,&line-hor JNZ
541 
+	.Screen/x DEI2 .tileview/x PEK2 #0082 ADD2 LTH2 ,&line-hor JCN
542 542
543 543 
 	( line ver )
544 544 
 	.tileview/y PEK2 .Screen/y DEO2
... ... 
@@ -546,7 +546,7 @@ RTN
546 546 
 	&line-ver
547 547 
 		( draw ) #03 .Screen/color DEO
548 548 
 		( incr ) .Screen/y DEI2 #0002 ADD2 .Screen/y DEO2
549 
-	.Screen/y DEI2 .tileview/y PEK2 #0081 ADD2 LTH2 ,&line-ver JNZ
549 
+	.Screen/y DEI2 .tileview/y PEK2 #0081 ADD2 LTH2 ,&line-ver JCN
550 550
551 551 
 	( rewind ) .settings/tile PEK2 #0018 SUB2 .settings/tile POK2
552 552
... ... 
@@ -575,7 +575,7 @@ RTN
575 575 
 			( check if within ratio )
576 576 
 			.settings/ratio PEK #0f AND LTH STH
577 577 
 			.settings/ratio PEK #04 SFT LTH STHr
578 
-			#0101 NEQ2 ,&outside JNZ
578 
+			#0101 NEQ2 ,&outside JCN
579 579
580 580 
 				( get tile ) DUP2r STH2r .Screen/addr DEO2
581 581
... ... 
@@ -590,10 +590,10 @@ RTN
590 590 
 			#00 ;draw-tile JSR2
591 591 
 			&resume
592 592 
 			( incr ) SWP #01 ADD SWP
593 
-			DUP2 LTH ,&hor JNZ
593 
+			DUP2 LTH ,&hor JCN
594 594 
 		POP2
595 595 
 		( incr ) SWP #01 ADD SWP
596 
-		DUP2 LTH ;&ver JNZ2
596 
+		DUP2 LTH ;&ver JCN2
597 597 
 	POP2
598 598 
 	POP2r
599 599
... ... 
@@ -637,12 +637,12 @@ RTN
637 637
638 638 
 			#0001 .Screen/x DEI2 ADD2 .Screen/x DEO2
639 639 
 			( incr ) SWP #01 ADD SWP
640 
-			DUP2 LTH ,&hor JNZ
640 
+			DUP2 LTH ,&hor JCN
641 641 
 		POP2
642 642 
 		#0001 .Screen/y DEI2 ADD2 .Screen/y DEO2
643 643 
 		.Screen/x DEI2 #0020 SUB2 .Screen/x DEO2
644 644 
 		( incr ) SWP #01 ADD SWP
645 
-		DUP2 LTH ,&ver JNZ
645 
+		DUP2 LTH ,&ver JCN
646 646 
 	POP2
647 647 
 	.Screen/y DEI2 #0020 SUB2 .Screen/y DEO2
648 648 
 	POPr
... ... 
@@ -662,11 +662,11 @@ RTN
662 662 
 			( draw ) #21 .Screen/color DEO
663 663 
 			( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
664 664 
 			( incr ) .pt/x PEK #01 ADD .pt/x POK
665 
-			.pt/x PEK #08 LTH ;&hor JNZ2
665 
+			.pt/x PEK #08 LTH ;&hor JCN2
666 666 
 		( incr ) .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
667 667 
 		( incr ) .pt/y PEK #01 ADD .pt/y POK
668 668 
 		.Screen/x DEI2 #0040 SUB2 .Screen/x DEO2
669 
-		.pt/y PEK #08 LTH ;&ver JNZ2
669 
+		.pt/y PEK #08 LTH ;&ver JCN2
670 670
671 671 
 RTN
672 672
... ... 
@@ -682,7 +682,7 @@ RTN
682 682 
 		#20 .Screen/color DEO
683 683 
 		OVR #20 ADD .settings/depth PEK #20 MUL ADD .Screen/color DEO
684 684 
 		SWP #01 ADD SWP
685 
-		DUP2 LTH ,&loop JNZ
685 
+		DUP2 LTH ,&loop JCN
686 686 
 	POP2
687 687
688 688 
 	.blendview/x1 PEK2 .Screen/x DEO2
... ... 
@@ -704,7 +704,7 @@ RTN
704 704 
 		.settings/tile PEK2 #00 .i PEK ADD2 LDA #22 ;draw-byte JSR2
705 705 
 		( incr ) .i PEK #01 ADD .i POK
706 706 
 		( incr ) .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
707 
-	.i PEK #08 LTH ;&bytes JNZ2
707 
+	.i PEK #08 LTH ;&bytes JCN2
708 708
709 709 
 	( operations )
710 710
... ... 
@@ -727,10 +727,10 @@ RTN
727 727 
 			( incr ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
728 728 
 			( incr ) .Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2
729 729 
 			( incr ) .pt/x PEK #01 ADD .pt/x POK
730 
-			.pt/x PEK #02 LTH ;&tiles-hor JNZ2
730 
+			.pt/x PEK #02 LTH ;&tiles-hor JCN2
731 731 
 		( incr ) .pt/y PEK #01 ADD .pt/y POK
732 732 
 		( incr ) .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
733 
-		.pt/y PEK #02 LTH ;&tiles-ver JNZ2
733 
+		.pt/y PEK #02 LTH ;&tiles-ver JCN2
734 734
735 735 
 RTN
736 736
... ... 
@@ -755,7 +755,7 @@ RTN
755 755 
 		OVR .colorview/y1 PEK2 ROT #00 SWP #0008 MUL2 ADD2 .Screen/y DEO2
756 756 
 		OVR #20 ADD .Screen/color DEO
757 757 
 		SWP #01 ADD SWP
758 
-		DUP2 LTH ,&loop JNZ
758 
+		DUP2 LTH ,&loop JCN
759 759 
 	POP2
760 760
761 761 
 RTN
... ... 
@@ -775,7 +775,7 @@ RTN
775 775 
 			( check if within ratio )
776 776 
 			.settings/ratio PEK #0f AND LTH STH
777 777 
 			.settings/ratio PEK #04 SFT LTH STHr
778 
-			#0101 NEQ2 ,&outside JNZ
778 
+			#0101 NEQ2 ,&outside JCN
779 779 
 				( get tile ) DUP2r STH2r .Screen/addr DEO2
780 780 
 				( get blending ) .settings/blending PEK
781 781 
 				( get depth ) .settings/depth PEK #20 MUL
... ... 
@@ -787,10 +787,10 @@ RTN
787 787 
 			#23 .Screen/color DEO
788 788 
 			&resume
789 789 
 			( incr ) SWP #01 ADD SWP
790 
-			DUP2 LTH ,&hor JNZ
790 
+			DUP2 LTH ,&hor JCN
791 791 
 		POP2
792 792 
 		( incr ) SWP #01 ADD SWP
793 
-		DUP2 LTH ;&ver JNZ2
793 
+		DUP2 LTH ;&ver JCN2
794 794 
 	POP2
795 795 
 	POP2r
796 796 
 	.preview/x1 PEK2 #0001 SUB2 .Screen/x DEO2
... ... 
@@ -873,7 +873,7 @@ RTN
873 873 
 		( draw ) .rect/x1 PEK2 .Screen/x DEO2 .color PEK DUP .Screen/color DEO
874 874 
 		( draw ) .rect/x2 PEK2 .Screen/x DEO2 .Screen/color DEO
875 875 
 		( incr ) SWP2 #0001 ADD2 SWP2
876 
-		OVR2 OVR2 LTS2 ,&ver JNZ
876 
+		OVR2 OVR2 LTS2 ,&ver JCN
877 877 
 	POP2 POP2
878 878 
 	.rect/x1 PEK2 .rect/x2 PEK2
879 879 
 	&hor
... ... 
@@ -881,7 +881,7 @@ RTN
881 881 
 		( draw ) .rect/y1 PEK2 .Screen/y DEO2 .color PEK DUP .Screen/color DEO
882 882 
 		( draw ) .rect/y2 PEK2 .Screen/y DEO2 .Screen/color DEO
883 883 
 		( incr ) SWP2 #0001 ADD2 SWP2
884 
-		OVR2 OVR2 #0001 ADD2 LTS2 ,&hor JNZ
884 
+		OVR2 OVR2 #0001 ADD2 LTS2 ,&hor JCN
885 885 
 	POP2 POP2
886 886
887 887 
 RTN
... ... 
@@ -893,7 +893,7 @@ RTN
893 893 
 		( save ) OVR2 .Screen/x DEO2
894 894 
 		( draw ) DUPr STHr .Screen/color DEO
895 895 
 		( incr ) SWP2 #0002 ADD2 SWP2
896 
-		OVR2 OVR2 LTH2 ,&loop JNZ
896 
+		OVR2 OVR2 LTH2 ,&loop JCN
897 897 
 	POP2 POP2 POPr
898 898
899 899 
 RTN
... ... 
@@ -905,7 +905,7 @@ RTN
905 905 
 		( save ) OVR2 .Screen/y DEO2
906 906 
 		( draw ) DUPr STHr .Screen/color DEO
907 907 
 		( incr ) SWP2 #0002 ADD2 SWP2
908 
-		OVR2 OVR2 LTH2 ,&loop JNZ
908 
+		OVR2 OVR2 LTH2 ,&loop JCN
909 909 
 	POP2 POP2 POPr
910 910
911 911 
 RTN
projects/software/neralie.usm
History View file @ 8630028
... ... 
@@ -151,7 +151,7 @@
151 151 
 	&h ( number* -- )
152 152 
 	,scale JSR
153 153 
 	.neralie/h PEK2 ;mul2hi JSR2
154 
-	DUP2 #0000 NEQ2 #02 JNZ POP2 JMP2r
154 
+	DUP2 #0000 NEQ2 #02 JCN POP2 JMP2r
155 155 
 	DUP2 .neralie/y PEK2 ADD2 .neralie/y POK2
156 156 
 	.neralie/h PEK2 SWP2 SUB2 .neralie/h POK2
157 157 
 	.neralie/x PEK2 DUP2 .neralie/w PEK2 ADD2 .neralie/y PEK2 ,h JMP
... ... 
@@ -159,7 +159,7 @@
159 159 
 	&v ( number* -- )
160 160 
 	,scale JSR
161 161 
 	.neralie/w PEK2 ;mul2hi JSR2
162 
-	DUP2 #0000 NEQ2 #02 JNZ POP2 JMP2r
162 
+	DUP2 #0000 NEQ2 #02 JCN POP2 JMP2r
163 163 
 	DUP2 .neralie/x PEK2 ADD2 .neralie/x POK2
164 164 
 	.neralie/w PEK2 SWP2 SUB2 .neralie/w POK2
165 165 
 	.neralie/y PEK2 DUP2 .neralie/h PEK2 ADD2 .neralie/x PEK2 ,v JMP
... ... 
@@ -179,12 +179,12 @@
179 179 
 	.Screen/y .lines/addr POK
180 180
181 181 
 	&draw-line ( v1* v2* -- )
182 
-	OVR2 OVR2 LTH2 #01 JNZ SWP2
182 
+	OVR2 OVR2 LTH2 #01 JCN SWP2
183 183 
 	STH2
184 184
185 185 
 	&loop
186 186 
 	LIT2 [ 00 ] &spacing [ 01 ] ADD2
187 
-	DUP2 DUP2r STH2r LTH2 ,&keep-going JNZ
187 
+	DUP2 DUP2r STH2r LTH2 ,&keep-going JCN
188 188 
 	POP2 POP2r
189 189 
 	JMP2r
190 190
... ... 
@@ -239,7 +239,7 @@
239 239
240 240 
 	&adc ( 31..24 a* b* -- 31..24 sum* )
241 241 
 	OVR2 ADD2 SWP2 OVR2
242 
-	GTH2 ,&carry JNZ
242 
+	GTH2 ,&carry JCN
243 243 
 	JMP2r
244 244 
 	&carry
245 245 
 	ROT #01 ADD ROT ROT
projects/software/noodle.usm
History View file @ 8630028
... ... 
@@ -14,7 +14,7 @@
14 14 
 )
15 15
16 16 
 %RTN   { JMP2r }
17 
-%ABS2 { DUP2 #000f SFT2 EQU #04 JNZ #ffff MUL2 }
17 
+%ABS2 { DUP2 #000f SFT2 EQU #04 JCN #ffff MUL2 }
18 18 
 %LTS2  { #8000 ADD2 SWP2 #8000 ADD2 GTH2 }
19 19 
 %GTS2  { #8000 ADD2 SWP2 #8000 ADD2 LTH2 }
20 20 
 %CLN2r { DUP2 STH2 }
... ... 
@@ -100,14 +100,14 @@ BRK
100 100
101 101 
 @on-screen ( -> )
102 102
103 
-	.document/edit PEK #01 NEQ ,&no-edit JNZ
103 
+	.document/edit PEK #01 NEQ ,&no-edit JCN
104 104 
 		#0008 .Screen/x DEO2
105 105 
 		.Screen/height DEI2 #0010 SUB2 .Screen/y DEO2
106 106 
 		;path/name #01 .timer PEK #04 DIV #03 AND #03 MUL ADD ;draw-label JSR2
107 107 
 		&clear
108 108 
 			#20 .Screen/color DEO
109 109 
 			.Screen/x DEI2 8+ DUP2 .Screen/x DEO2
110 
-			.Screen/width DEI2 LTH2 ,&clear JNZ
110 
+			.Screen/width DEI2 LTH2 ,&clear JCN
111 111 
 		( blink ) .timer PEK #01 ADD .timer POK
112 112 
 	&no-edit
113 113
... ... 
@@ -118,7 +118,7 @@ BRK
118 118 
 	;draw-cursor JSR2
119 119
120 120 
 	( release drag )
121 
-	.Mouse/state DEI #00 EQU .brush/drag PEK #01 EQU #0101 NEQ2 ,&no-release JNZ
121 
+	.Mouse/state DEI #00 EQU .brush/drag PEK #01 EQU #0101 NEQ2 ,&no-release JCN
122 122 
 		.origin/x1 PEK2 #0002 SUB2 .origin/y1 PEK2 #0002 SUB2 .origin/x2 PEK2 #0002 ADD2 .origin/y2 PEK2 #0002 ADD2 #00 ;fill-rect JSR2
123 123 
 		.canvas/x1 PEK2 -- .canvas/y1 PEK2 -- .canvas/x2 PEK2 .canvas/y2 PEK2 #10 ;line-rect JSR2
124 124 
 		;draw-background JSR2
... ... 
@@ -128,32 +128,32 @@ BRK
128 128 
 	&no-release
129 129
130 130 
 	( operations on release line/rect )
131 
-	.Mouse/state DEI .brush/last PEK EQU ;&no-touch-change JNZ2
132 
-	.Mouse/x DEI2 CLN2r .canvas/x1 PEK2 GTS2 STH2r .canvas/x2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-change JNZ2
133 
-	.Mouse/y DEI2 CLN2r .canvas/y1 PEK2 GTS2 STH2r .canvas/y2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-change JNZ2
134 
-		.Mouse/state DEI #00 EQU ,&no-touch-ondown JNZ
131 
+	.Mouse/state DEI .brush/last PEK EQU ;&no-touch-change JCN2
132 
+	.Mouse/x DEI2 CLN2r .canvas/x1 PEK2 GTS2 STH2r .canvas/x2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-change JCN2
133 
+	.Mouse/y DEI2 CLN2r .canvas/y1 PEK2 GTS2 STH2r .canvas/y2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-change JCN2
134 
+		.Mouse/state DEI #00 EQU ,&no-touch-ondown JCN
135 135 
 			( on down )
136 136 
 			.Mouse/x DEI2 .cursor/dx POK2
137 137 
 			.Mouse/y DEI2 .cursor/dy POK2
138 138 
 		&no-touch-ondown
139 
-		.Mouse/state DEI #00 NEQ ,&no-touch-onup JNZ
139 
+		.Mouse/state DEI #00 NEQ ,&no-touch-onup JCN
140 140 
 			( on up )
141 
-			.brush/tool PEK #02 NEQ ,&no-touch-line JNZ
141 
+			.brush/tool PEK #02 NEQ ,&no-touch-line JCN
142 142 
 				.cursor/dx PEK2 .canvas/x1 PEK2 SUB2 .cursor/dy PEK2 .canvas/y1 PEK2 SUB2 .Mouse/x DEI2 .canvas/x1 PEK2 SUB2 .Mouse/y DEI2 .canvas/y1 PEK2 SUB2 ;paint-line JSR2
143 143 
 				;&touch-end JMP2
144 144 
 			&no-touch-line
145 
-			.brush/tool PEK #03 NEQ ,&no-touch-rect JNZ
145 
+			.brush/tool PEK #03 NEQ ,&no-touch-rect JCN
146 146 
 				.cursor/dx PEK2 .canvas/x1 PEK2 SUB2 .cursor/dy PEK2 .canvas/y1 PEK2 SUB2 .Mouse/x DEI2 .canvas/x1 PEK2 SUB2 .Mouse/y DEI2 .canvas/y1 PEK2 SUB2 ;paint-rect JSR2
147 147 
 				;&touch-end JMP2
148 148 
 			&no-touch-rect
149 149 
 		&no-touch-onup
150 150 
 	&no-touch-change
151 151
152 
-	.Mouse/state DEI #00 EQU ;&no-touch JNZ2
152 
+	.Mouse/state DEI #00 EQU ;&no-touch JCN2
153 153
154 154 
 		( drag )
155 
-		.Controller/button DEI #02 NEQ ;&no-drag JNZ2
156 
-			.brush/drag PEK #00 NEQ ,&no-drag-start JNZ
155 
+		.Controller/button DEI #02 NEQ ;&no-drag JCN2
156 
+			.brush/drag PEK #00 NEQ ,&no-drag-start JCN
157 157 
 				.canvas/x1 PEK2 .origin/x1 POK2
158 158 
 				.canvas/y1 PEK2 .origin/y1 POK2
159 159 
 				.canvas/x2 PEK2 .origin/x2 POK2
... ... 
@@ -170,8 +170,8 @@ BRK
170 170 
 		&no-drag
171 171
172 172 
 		( in sizepane )
173 
-		.Mouse/x DEI2 CLN2r .sizepane/x1 PEK2 GTH2 STH2r .sizepane/x2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-sizepane JNZ
174 
-		.Mouse/y DEI2 CLN2r .sizepane/y1 PEK2 GTH2 STH2r .sizepane/y2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-sizepane JNZ
173 
+		.Mouse/x DEI2 CLN2r .sizepane/x1 PEK2 GTH2 STH2r .sizepane/x2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-sizepane JCN
174 
+		.Mouse/y DEI2 CLN2r .sizepane/y1 PEK2 GTH2 STH2r .sizepane/y2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-sizepane JCN
175 175 
 			( release ) #00 .Mouse/state DEO
176 176 
 			#01 .brush/tool POK
177 177 
 			.Mouse/x DEI2 .sizepane/x1 PEK2 SUB2 8/ SWP POP .brush/size POK
... ... 
@@ -181,8 +181,8 @@ BRK
181 181 
 		&no-touch-sizepane
182 182
183 183 
 		( in pattpane )
184 
-		.Mouse/x DEI2 CLN2r .pattpane/x1 PEK2 GTH2 STH2r .pattpane/x2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-pattpane JNZ
185 
-		.Mouse/y DEI2 CLN2r .pattpane/y1 PEK2 GTH2 STH2r .pattpane/y2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-pattpane JNZ
184 
+		.Mouse/x DEI2 CLN2r .pattpane/x1 PEK2 GTH2 STH2r .pattpane/x2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-pattpane JCN
185 
+		.Mouse/y DEI2 CLN2r .pattpane/y1 PEK2 GTH2 STH2r .pattpane/y2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-pattpane JCN
186 186 
 			( release ) #00 .Mouse/state DEO
187 187 
 			.Mouse/x DEI2 .pattpane/x1 PEK2 SUB2 8/ SWP POP .brush/patt POK
188 188 
 			( draw ) ;draw-pattpane JSR2
... ... 
@@ -190,8 +190,8 @@ BRK
190 190 
 		&no-touch-pattpane
191 191
192 192 
 		( in toolpane )
193 
-		.Mouse/x DEI2 CLN2r .toolpane/x1 PEK2 GTH2 STH2r .toolpane/x2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-toolpane JNZ
194 
-		.Mouse/y DEI2 CLN2r .toolpane/y1 PEK2 GTH2 STH2r .toolpane/y2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-toolpane JNZ
193 
+		.Mouse/x DEI2 CLN2r .toolpane/x1 PEK2 GTH2 STH2r .toolpane/x2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-toolpane JCN
194 
+		.Mouse/y DEI2 CLN2r .toolpane/y1 PEK2 GTH2 STH2r .toolpane/y2 PEK2 LTH2 #0101 NEQ2 ,&no-touch-toolpane JCN
195 195 
 			( release ) #00 .Mouse/state DEO
196 196 
 			.Mouse/x DEI2 .toolpane/x1 PEK2 SUB2 8/ SWP POP .brush/tool POK
197 197 
 			( draw ) ;draw-toolpane JSR2
... ... 
@@ -199,22 +199,22 @@ BRK
199 199 
 		&no-touch-toolpane
200 200
201 201 
 		( in viewpane )
202 
-		.Mouse/x DEI2 CLN2r .viewpane/x1 PEK2 GTH2 STH2r .viewpane/x2 PEK2 LTH2 #0101 NEQ2 ;&no-touch-viewpane JNZ2
203 
-		.Mouse/y DEI2 CLN2r .viewpane/y1 PEK2 GTH2 STH2r .viewpane/y2 PEK2 LTH2 #0101 NEQ2 ;&no-touch-viewpane JNZ2
202 
+		.Mouse/x DEI2 CLN2r .viewpane/x1 PEK2 GTH2 STH2r .viewpane/x2 PEK2 LTH2 #0101 NEQ2 ;&no-touch-viewpane JCN2
203 
+		.Mouse/y DEI2 CLN2r .viewpane/y1 PEK2 GTH2 STH2r .viewpane/y2 PEK2 LTH2 #0101 NEQ2 ;&no-touch-viewpane JCN2
204 204 
 			( release ) #00 .Mouse/state DEO
205 205 
 			( clear ) .canvas/x1 PEK2 #0002 SUB2 .canvas/y1 PEK2 #0002 SUB2 .canvas/x2 PEK2 #0002 ADD2 .canvas/y2 PEK2 #0002 ADD2 #00 ;fill-rect JSR2
206 206 
 			;draw-background JSR2
207 207 
 			.Mouse/x DEI2 .viewpane/x1 PEK2 SUB2 8/ SWP POP
208 
-			DUP #00 NEQ ,&no-incwidth JNZ
208 
+			DUP #00 NEQ ,&no-incwidth JCN
209 209 
 				.canvas/w PEK2 ++ .canvas/w POK2
210 210 
 			&no-incwidth
211 
-			DUP #01 NEQ ,&no-decwidth JNZ
211 
+			DUP #01 NEQ ,&no-decwidth JCN
212 212 
 				.canvas/w PEK2 -- .canvas/w POK2
213 213 
 			&no-decwidth
214 
-			DUP #02 NEQ ,&no-incheight JNZ
214 
+			DUP #02 NEQ ,&no-incheight JCN
215 215 
 				.canvas/h PEK2 ++ .canvas/h POK2
216 216 
 			&no-incheight
217 
-			DUP #03 NEQ ,&no-decheight JNZ
217 
+			DUP #03 NEQ ,&no-decheight JCN
218 218 
 				.canvas/h PEK2 -- .canvas/h POK2
219 219 
 			&no-decheight
220 220 
 			POP
... ... 
@@ -224,23 +224,23 @@ BRK
224 224 
 		&no-touch-viewpane
225 225
226 226 
 		( in canvas )
227 
-		.Mouse/x DEI2 CLN2r .canvas/x1 PEK2 GTS2 STH2r .canvas/x2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-canvas JNZ2
228 
-		.Mouse/y DEI2 CLN2r .canvas/y1 PEK2 GTS2 STH2r .canvas/y2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-canvas JNZ2
227 
+		.Mouse/x DEI2 CLN2r .canvas/x1 PEK2 GTS2 STH2r .canvas/x2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-canvas JCN2
228 
+		.Mouse/y DEI2 CLN2r .canvas/y1 PEK2 GTS2 STH2r .canvas/y2 PEK2 LTS2 #0101 NEQ2 ;&no-touch-canvas JCN2
229 229
230 230 
 			( set cursor operation )
231 
-			;add-pixel .Mouse/state DEI #01 EQU ;&no-oper JNZ2 POP2 ;remove-pixel &no-oper .brush/oper POK2
231 
+			;add-pixel .Mouse/state DEI #01 EQU ;&no-oper JCN2 POP2 ;remove-pixel &no-oper .brush/oper POK2
232 232
233 
-			.brush/tool PEK #00 NEQ ,&no-touch-pen JNZ
233 
+			.brush/tool PEK #00 NEQ ,&no-touch-pen JCN
234 234 
 				.cursor/x0 PEK2 .canvas/x1 PEK2 SUB2 .cursor/y0 PEK2 .canvas/y1 PEK2 SUB2 .Mouse/x DEI2 .canvas/x1 PEK2 SUB2 .Mouse/y DEI2 .canvas/y1 PEK2 SUB2 ;paint-line JSR2
235 235 
 				;&touch-end JMP2
236 236 
 			&no-touch-pen
237 237
238 
-			.brush/tool PEK #01 NEQ ,&no-touch-brush JNZ
238 
+			.brush/tool PEK #01 NEQ ,&no-touch-brush JCN
239 239 
 				.Mouse/x DEI2 .canvas/x1 PEK2 SUB2 .Mouse/y DEI2 .canvas/y1 PEK2 SUB2 ;paint-brush JSR2
240 240 
 				;&touch-end JMP2
241 241 
 			&no-touch-brush
242 242
243 
-			.brush/tool PEK #04 NEQ ,&no-touch-zoom JNZ
243 
+			.brush/tool PEK #04 NEQ ,&no-touch-zoom JCN
244 244 
 				.zoom/active PEK #00 EQU .zoom/active POK
245 245 
 				( release ) #00 .Mouse/state DEO
246 246 
 				.Mouse/x DEI2 .canvas/x1 PEK2 SUB2 .canvas/w PEK2 2/ SUB2 .zoom/x POK2
... ... 
@@ -252,23 +252,23 @@ BRK
252 252 
 		&no-touch-canvas
253 253
254 254 
 		( background interface )
255 
-		.Mouse/y DEI2 STEP8 .Screen/height DEI2 #0010 SUB2 NEQ2 ,&no-touch-background JNZ
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 JNZ
257 
+			DUP #00 NEQ ,&no-eye-button JCN
258 258 
 				;present JSR2
259 259 
 				( release ) #00 .Mouse/state DEO
260 260 
 			&no-eye-button
261 
-			DUP #01 NEQ ,&no-rename-button JNZ
261 
+			DUP #01 NEQ ,&no-rename-button JCN
262 262 
 				;rename JSR2
263 263 
 				#01 .document/edit POK
264 264 
 				( release ) #00 .Mouse/state DEO
265 265 
 			&no-rename-button
266 
-			DUP #02 NEQ ,&no-load-button JNZ
266 
+			DUP #02 NEQ ,&no-load-button JCN
267 267 
 				;path/name ;load-file JSR2
268 268 
 				;draw-canvas JSR2
269 269 
 				( release ) #00 .Mouse/state DEO
270 270 
 			&no-load-button
271 
-			DUP #03 NEQ ,&no-save-button JNZ
271 
+			DUP #03 NEQ ,&no-save-button JCN
272 272 
 				;path/name ;save-file JSR2
273 273 
 				( release ) #00 .Mouse/state DEO
274 274 
 			&no-save-button
... ... 
@@ -289,23 +289,23 @@ BRK
289 289 
 @on-button ( -> )
290 290
291 291 
 	( if in renaming mode )
292 
-	.document/edit PEK #01 NEQ ;&no-edit JNZ2
293 
-	.Controller/key DEI #00 EQU ;&no-edit JNZ2
292 
+	.document/edit PEK #01 NEQ ;&no-edit JCN2
293 
+	.Controller/key DEI #00 EQU ;&no-edit JCN2
294 294 
 		( enter )
295 
-		.Controller/key DEI #0d NEQ ,&no-edit-enter JNZ
295 
+		.Controller/key DEI #0d NEQ ,&no-edit-enter JCN
296 296 
 			#00 .document/edit POK
297 297 
 			;redraw JSR2
298 298 
 			BRK
299 299 
 			&no-edit-enter
300 300 
 		( backspace )
301 
-		.Controller/key DEI #08 NEQ ,&no-edit-backspace JNZ
302 
-			.path/length PEK #00 EQU ,&edit-end JNZ
301 
+		.Controller/key DEI #08 NEQ ,&no-edit-backspace JCN
302 
+			.path/length PEK #00 EQU ,&edit-end JCN
303 303 
 			.path/length PEK #01 SUB .path/length POK
304 304 
 			#00 ;path/name #00 .path/length PEK ADD2 STA
305 305 
 			BRK
306 306 
 			&no-edit-backspace
307 307 
 		( default )
308 
-		.path/length PEK #1f EQU ,&edit-end JNZ
308 
+		.path/length PEK #1f EQU ,&edit-end JCN
309 309 
 			.Controller/key DEI ;path/name #00 .path/length PEK ADD2 STA
310 310 
 			.path/length PEK #01 ADD .path/length POK
311 311 
 		&edit-end
... ... 
@@ -314,36 +314,36 @@ BRK
314 314 
 	&no-edit
315 315
316 316 
 	( control zoom )
317 
-	.zoom/active PEK #00 EQU ,&skip-zoom JNZ
317 
+	.zoom/active PEK #00 EQU ,&skip-zoom JCN
318 318 
 		.Controller/button DEI #f0 AND
319 
-			DUP #04 SFT #01 AND #01 NEQ ,&no-up JNZ
319 
+			DUP #04 SFT #01 AND #01 NEQ ,&no-up JCN
320 320 
 				( move ) .zoom/y PEK2 -- .zoom/y POK2 &no-up
321 
-			DUP #05 SFT #01 AND #01 NEQ ,&no-down JNZ
321 
+			DUP #05 SFT #01 AND #01 NEQ ,&no-down JCN
322 322 
 				( move ) .zoom/y PEK2 ++ .zoom/y POK2 &no-down
323 
-			DUP #06 SFT #01 AND #01 NEQ ,&no-left JNZ
323 
+			DUP #06 SFT #01 AND #01 NEQ ,&no-left JCN
324 324 
 				( move ) .zoom/x PEK2 -- .zoom/x POK2 &no-left
325 
-			DUP #07 SFT #01 AND #01 NEQ ,&no-right JNZ
325 
+			DUP #07 SFT #01 AND #01 NEQ ,&no-right JCN
326 326 
 				( move ) .zoom/x PEK2 ++ .zoom/x POK2 &no-right
327 
-		#00 EQU #04 JNZ ;draw-canvas JSR2
327 
+		#00 EQU #04 JCN ;draw-canvas JSR2
328 328 
 	&skip-zoom
329 329
330 330 
 	.Controller/key DEI
331 
-	DUP #20 NEQ ,&no-space JNZ
331 
+	DUP #20 NEQ ,&no-space JCN
332 332 
 		( toggle zoom ) .zoom/active PEK #00 EQU .zoom/active POK ;redraw JSR2 &no-space
333 
-	DUP #08 NEQ ,&no-backspace JNZ
333 
+	DUP #08 NEQ ,&no-backspace JCN
334 334 
 		( erase ) ;clear JSR2 &no-backspace
335 
-	DUP #71 NEQ ,&no-qkey JNZ
335 
+	DUP #71 NEQ ,&no-qkey JCN
336 336 
 		( tool0 ) #00 .brush/tool POK ;draw-toolpane JSR2 &no-qkey
337 
-	DUP #77 NEQ ,&no-wkey JNZ
337 
+	DUP #77 NEQ ,&no-wkey JCN
338 338 
 		( tool0 ) #01 .brush/tool POK ;draw-toolpane JSR2 &no-wkey
339 
-	DUP #65 NEQ ,&no-ekey JNZ
339 
+	DUP #65 NEQ ,&no-ekey JCN
340 340 
 		( tool0 ) #02 .brush/tool POK ;draw-toolpane JSR2 &no-ekey
341 
-	DUP #72 NEQ ,&no-rkey JNZ
341 
+	DUP #72 NEQ ,&no-rkey JCN
342 342 
 		( tool0 ) #03 .brush/tool POK ;draw-toolpane JSR2 &no-rkey
343 
-	DUP #74 NEQ ,&no-tkey JNZ
343 
+	DUP #74 NEQ ,&no-tkey JCN
344 344 
 		( tool0 ) #04 .brush/tool POK ;draw-toolpane JSR2 &no-tkey
345 345 
 	DUP
346 
-		DUP #30 GTH SWP #39 LTH #0101 NEQ2 ,&no-numkey JNZ
346 
+		DUP #30 GTH SWP #39 LTH #0101 NEQ2 ,&no-numkey JCN
347 347 
 		( size ) .Controller/key DEI #31 SUB .brush/size POK ;draw-sizepane JSR2 &no-numkey
348 348 
 	POP
349 349
... ... 
@@ -377,7 +377,7 @@ RTN
377 377 
 	&loop
378 378 
 		( write ) OVR2 #00 ROT ROT STA
379 379 
 		( incr ) SWP2 #0001 ADD2 SWP2
380 
-		OVR2 OVR2 LTH2 ,&loop JNZ
380 
+		OVR2 OVR2 LTH2 ,&loop JCN
381 381 
 	POP2 POP2
382 382 
 	;redraw JSR2
383 383
... ... 
@@ -388,10 +388,10 @@ RTN
388 388 
 	.document/presentation PEK #00 EQU .document/presentation POK
389 389
390 390 
 	.document/presentation PEK
391 
-	DUP #00 NEQ ,&skip0 JNZ
391 
+	DUP #00 NEQ ,&skip0 JCN
392 392 
 		.theme/r0 PEK2 .System/r DEO2 .theme/g0 PEK2 .System/g DEO2 .theme/b0 PEK2 .System/b DEO2
393 393 
 	&skip0
394 
-	DUP #01 NEQ ,&skip1 JNZ
394 
+	DUP #01 NEQ ,&skip1 JCN
395 395 
 		.theme/r1 PEK2 .System/r DEO2 .theme/g1 PEK2 .System/g DEO2 .theme/b1 PEK2 .System/b DEO2
396 396 
 	&skip1
397 397 
 	POP
... ... 
@@ -420,7 +420,7 @@ RTN
420 420 
 	( load ) .line/y1 POK2 .line/x1 POK2 .line/y2 POK2 .line/x2 POK2
421 421
422 422 
 	( trim if zoomed )
423 
-	.zoom/active PEK #01 NEQ ,&no-zoom JNZ
423 
+	.zoom/active PEK #01 NEQ ,&no-zoom JCN
424 424 
 		.line/x1 PEK2 8/ .zoom/x PEK2 ADD2 .line/x1 POK2
425 425 
 		.line/y1 PEK2 8/ .zoom/y PEK2 ADD2 .line/y1 POK2
426 426 
 		.line/x2 PEK2 8/ .zoom/x PEK2 ADD2 .line/x2 POK2
... ... 
@@ -434,13 +434,13 @@ RTN
434 434 
 	.line/dx PEK2 .line/dy PEK2 ADD2 .line/e1 POK2
435 435 
 	&loop
436 436 
 		( paint ) .line/x2 PEK2 .line/y2 PEK2 .brush/oper PEK2 JSR2
437 
-		.line/x2 PEK2 .line/x1 PEK2 EQU2 .line/y2 PEK2 .line/y1 PEK2 EQU2 #0101 EQU2 ,&end JNZ
437 
+		.line/x2 PEK2 .line/x1 PEK2 EQU2 .line/y2 PEK2 .line/y1 PEK2 EQU2 #0101 EQU2 ,&end JCN
438 438 
 		.line/e1 PEK2 #0002 MUL2 .line/e2 POK2
439 
-		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JNZ
439 
+		.line/e2 PEK2 .line/dy PEK2 LTS2 ,&skipy JCN
440 440 
 			.line/e1 PEK2 .line/dy PEK2 ADD2 .line/e1 POK2
441 441 
 			.line/x2 PEK2 .line/sx PEK2 ADD2 .line/x2 POK2
442 442 
 		&skipy
443 
-		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JNZ
443 
+		.line/e2 PEK2 .line/dx PEK2 GTS2 ,&skipx JCN
444 444 
 			.line/e1 PEK2 .line/dx PEK2 ADD2 .line/e1 POK2
445 445 
 			.line/y2 PEK2 .line/sy PEK2 ADD2 .line/y2 POK2
446 446 
 		&skipx
... ... 
@@ -457,7 +457,7 @@ RTN
457 457 
 	( load ) .rect/y2 POK2 .rect/x2 POK2 .rect/y1 POK2 .rect/x1 POK2
458 458
459 459 
 	( trim if zoomed )
460 
-	.zoom/active PEK #01 NEQ ,&no-zoom JNZ
460 
+	.zoom/active PEK #01 NEQ ,&no-zoom JCN
461 461 
 		.rect/x1 PEK2 8/ .zoom/x PEK2 ADD2 .rect/x1 POK2
462 462 
 		.rect/y1 PEK2 8/ .zoom/y PEK2 ADD2 .rect/y1 POK2
463 463 
 		.rect/x2 PEK2 8/ .zoom/x PEK2 ADD2 #0001 ADD2 .rect/x2 POK2
... ... 
@@ -471,12 +471,12 @@ RTN
471 471 
 		.rect/x1 PEK2 .pt2/x POK2
472 472 
 		&hor
473 473 
 			.pt2/x PEK2 SWP POP .px/x POK .pt2/y PEK2 SWP POP .px/y POK
474 
-			;patternize JSR2 #00 EQU ,&no-pixel JNZ
474 
+			;patternize JSR2 #00 EQU ,&no-pixel JCN
475 475 
 				( draw ) .pt2/x PEK2 .pt2/y PEK2 .brush/oper PEK2 JSR2 &no-pixel
476 476 
 			( incr ) .pt2/x PEK2 ++ .pt2/x POK2
477 
-			.pt2/x PEK2 .rect/x2 PEK2 LTS2 ,&hor JNZ
477 
+			.pt2/x PEK2 .rect/x2 PEK2 LTS2 ,&hor JCN
478 478 
 		.pt2/y PEK2 ++ .pt2/y POK2
479 
-		.pt2/y PEK2 .rect/y2 PEK2 LTS2 ,&ver JNZ
479 
+		.pt2/y PEK2 .rect/y2 PEK2 LTS2 ,&ver JCN
480 480
481 481 
 	;draw-canvas JSR2
482 482 
 	;draw-foreground JSR2
... ... 
@@ -488,7 +488,7 @@ RTN
488 488 
 	#0003 SUB2 .pt0/y POK2 #0003 SUB2 .pt0/x POK2 ( cursor offset )
489 489
490 490 
 	( trim if zoomed )
491 
-	.zoom/active PEK #01 NEQ ,&no-zoom JNZ
491 
+	.zoom/active PEK #01 NEQ ,&no-zoom JCN
492 492 
 		.pt0/x PEK2 8/ .zoom/x PEK2 ADD2 #0003 SUB2 .pt0/x POK2
493 493 
 		.pt0/y PEK2 8/ .zoom/y PEK2 ADD2 #0003 SUB2 .pt0/y POK2
494 494 
 	&no-zoom
... ... 
@@ -499,13 +499,13 @@ RTN
499 499 
 		&hor
500 500 
 			( addr ) ;size_icns #00 .brush/size PEK 8* ADD2
501 501 
 			( byte ) #00 .px/y PEK ADD2 LDA #07 .px/x PEK SUB SFT #01 AND
502 
-			#00 EQU ,&no-pixel JNZ
503 
-			;patternize JSR2 #00 EQU ,&no-pixel JNZ
502 
+			#00 EQU ,&no-pixel JCN
503 
+			;patternize JSR2 #00 EQU ,&no-pixel JCN
504 504 
 				.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 .brush/oper PEK2 JSR2 &no-pixel
505 505 
 			( incr ) .px/x PEK #01 ADD .px/x POK
506 
-			.px/x PEK #08 LTH ,&hor JNZ
506 
+			.px/x PEK #08 LTH ,&hor JCN
507 507 
 		( incr ) .px/y PEK #01 ADD .px/y POK
508 
-		.px/y PEK #08 LTH ,&ver JNZ
508 
+		.px/y PEK #08 LTH ,&ver JCN
509 509
510 510 
 	;draw-canvas JSR2
511 511 
 	;draw-foreground JSR2
... ... 
@@ -514,37 +514,37 @@ RTN
514 514
515 515 
 @patternize ( -- )
516 516
517 
-	.brush/patt PEK #00 NEQ ,&noplain JNZ
517 
+	.brush/patt PEK #00 NEQ ,&noplain JCN
518 518 
 		#01 RTN &noplain
519 519
520 
-	.brush/patt PEK #01 NEQ ,&notone1 JNZ
520 
+	.brush/patt PEK #01 NEQ ,&notone1 JCN
521 521 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 ADD2 #0001 AND2 #0000 EQU2
522 522 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 SUB2 #0001 AND2 #0000 EQU2
523 523 
 		#0101 EQU2
524 524 
 		RTN &notone1
525 525
526 
-	.brush/patt PEK #02 NEQ ,&notone2 JNZ
526 
+	.brush/patt PEK #02 NEQ ,&notone2 JCN
527 527 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 ADD2 #0003 AND2 #0000 EQU2
528 528 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 SUB2 #0003 AND2 #0000 EQU2
529 529 
 		#0101 EQU2
530 530 
 		RTN &notone2
531 531
532 
-	.brush/patt PEK #03 NEQ ,&notone3 JNZ
532 
+	.brush/patt PEK #03 NEQ ,&notone3 JCN
533 533 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 ADD2 #0005 AND2 #0000 EQU2
534 534 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 SUB2 #0005 AND2 #0000 EQU2
535 535 
 		#0101 EQU2
536 536 
 		RTN &notone3
537 537
538 
-	.brush/patt PEK #04 NEQ ,&notone4 JNZ
538 
+	.brush/patt PEK #04 NEQ ,&notone4 JCN
539 539 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 ADD2 #0003 AND2 #0000 EQU2 RTN &notone4
540 540
541 
-	.brush/patt PEK #05 NEQ ,&notone5 JNZ
541 
+	.brush/patt PEK #05 NEQ ,&notone5 JCN
542 542 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 .pt0/y PEK2 #00 .px/y PEK ADD2 SUB2 #0003 AND2 #0000 EQU2 RTN &notone5
543 543
544 
-	.brush/patt PEK #06 NEQ ,&notone6 JNZ
544 
+	.brush/patt PEK #06 NEQ ,&notone6 JCN
545 545 
 		.pt0/x PEK2 #00 .px/x PEK ADD2 #0001 AND2 SWP POP RTN &notone6
546 546
547 
-	.brush/patt PEK #07 NEQ ,&notone7 JNZ
547 
+	.brush/patt PEK #07 NEQ ,&notone7 JCN
548 548 
 		.pt0/y PEK2 #00 .px/y PEK ADD2 #0001 AND2 SWP POP RTN &notone7
549 549
550 550 
 	#00
... ... 
@@ -609,7 +609,7 @@ RTN
609 609
610 610 
 @draw-canvas ( -- )
611 611
612 
-	.zoom/active PEK #01 EQU ;draw-canvas-zoom JNZ2
612 
+	.zoom/active PEK #01 EQU ;draw-canvas-zoom JCN2
613 613
614 614 
 	.canvas/y1 PEK2 .Screen/y DEO2
615 615 
 	;data .Screen/addr DEO2
... ... 
@@ -619,9 +619,9 @@ RTN
619 619 
 			( draw ) #29 .Screen/color DEO
620 620 
 			( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
621 621 
 			( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
622 
-		.Screen/x DEI2 .canvas/x2 PEK2 NEQ2 ,&hor JNZ
622 
+		.Screen/x DEI2 .canvas/x2 PEK2 NEQ2 ,&hor JCN
623 623 
 		( incr ) .Screen/y DEI2 8+ .Screen/y DEO2
624 
-	.Screen/y DEI2 .canvas/y2 PEK2 NEQ2 ,&ver JNZ
624 
+	.Screen/y DEI2 .canvas/y2 PEK2 NEQ2 ,&ver JCN
625 625
626 626 
 RTN
627 627
... ... 
@@ -638,10 +638,10 @@ RTN
638 638 
 			( draw ) #29 .Screen/color DEO
639 639 
 			( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
640 640 
 			( incr ) .pt1/x PEK2 ++ .pt1/x POK2
641 
-		.Screen/x DEI2 .canvas/x2 PEK2 NEQ2 ,&hor JNZ
641 
+		.Screen/x DEI2 .canvas/x2 PEK2 NEQ2 ,&hor JCN
642 642 
 		( incr ) .Screen/y DEI2 8+ .Screen/y DEO2
643 643 
 		( incr ) .pt1/y PEK2 ++ .pt1/y POK2
644 
-	.Screen/y DEI2 .canvas/y2 PEK2 NEQ2 ,&ver JNZ
644 
+	.Screen/y DEI2 .canvas/y2 PEK2 NEQ2 ,&ver JCN
645 645
646 646 
 RTN
647 647
... ... 
@@ -655,19 +655,19 @@ RTN
655 655 
 	( record cursor positions )
656 656 
 	.Mouse/x DEI2 .cursor/x POK2 .Mouse/y DEI2 .cursor/y POK2
657 657 
 	( draw size cursor )
658 
-	.brush/tool PEK #01 NEQ ;&outside-canvas JNZ2
658 
+	.brush/tool PEK #01 NEQ ;&outside-canvas JCN2
659 659 
 	( do not draw size when holding alt )
660 
-	.Controller/button DEI #02 EQU ;&outside-canvas JNZ2
661 
-	.Mouse/x DEI2 CLN2r .canvas/x1 PEK2 GTH2 STH2r .canvas/x2 PEK2 LTH2 #0101 NEQ2 ;&outside-canvas JNZ2
662 
-	.Mouse/y DEI2 CLN2r .canvas/y1 PEK2 GTH2 STH2r .canvas/y2 PEK2 LTH2 #0101 NEQ2 ;&outside-canvas JNZ2
660 
+	.Controller/button DEI #02 EQU ;&outside-canvas JCN2
661 
+	.Mouse/x DEI2 CLN2r .canvas/x1 PEK2 GTH2 STH2r .canvas/x2 PEK2 LTH2 #0101 NEQ2 ;&outside-canvas JCN2
662 
+	.Mouse/y DEI2 CLN2r .canvas/y1 PEK2 GTH2 STH2r .canvas/y2 PEK2 LTH2 #0101 NEQ2 ;&outside-canvas JCN2
663 663 
 	( do not draw size in toolpane )
664 
-	.Mouse/x DEI2 CLN2r .toolpane/x1 PEK2 GTH2 STH2r .toolpane/x2 PEK2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .toolpane/y1 PEK2 GTH2 STH2r .toolpane/y2 PEK2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JNZ2
665 
-	.Mouse/x DEI2 CLN2r .sizepane/x1 PEK2 GTH2 STH2r .sizepane/x2 PEK2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .sizepane/y1 PEK2 GTH2 STH2r .sizepane/y2 PEK2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JNZ2
666 
-	.Mouse/x DEI2 CLN2r .pattpane/x1 PEK2 GTH2 STH2r .pattpane/x2 PEK2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .pattpane/y1 PEK2 GTH2 STH2r .pattpane/y2 PEK2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JNZ2
664 
+	.Mouse/x DEI2 CLN2r .toolpane/x1 PEK2 GTH2 STH2r .toolpane/x2 PEK2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .toolpane/y1 PEK2 GTH2 STH2r .toolpane/y2 PEK2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JCN2
665 
+	.Mouse/x DEI2 CLN2r .sizepane/x1 PEK2 GTH2 STH2r .sizepane/x2 PEK2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .sizepane/y1 PEK2 GTH2 STH2r .sizepane/y2 PEK2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JCN2
666 
+	.Mouse/x DEI2 CLN2r .pattpane/x1 PEK2 GTH2 STH2r .pattpane/x2 PEK2 LTH2 #0101 EQU2 .Mouse/y DEI2 CLN2r .pattpane/y1 PEK2 GTH2 STH2r .pattpane/y2 PEK2 LTH2 #0101 EQU2 #0101 EQU2 ;&outside-canvas JCN2
667 667 
 		.cursor/x PEK2 #0003 SUB2 .Screen/x DEO2 .cursor/y PEK2 #0003 SUB2 .Screen/y DEO2
668 668 
 		;brush_icns #00 .brush/size PEK 8* ADD2 .Screen/addr DEO2
669 669 
 		#31 .Mouse/state DEI #02 MUL ADD .Screen/color DEO
670 
-		.Mouse/state DEI #00 EQU ,&outside-canvas JNZ RTN
670 
+		.Mouse/state DEI #00 EQU ,&outside-canvas JCN RTN
671 671 
 	&outside-canvas
672 672 
 	( draw new cursor )
673 673 
 	.cursor/x PEK2 .Screen/x DEO2 .cursor/y PEK2 .Screen/y DEO2
... ... 
@@ -678,7 +678,7 @@ RTN
678 678
679 679 
 @draw-toolpane ( -- )
680 680
681 
-	.document/presentation PEK #00 EQU ,&skip JNZ RTN &skip
681 
+	.document/presentation PEK #00 EQU ,&skip JCN RTN &skip
682 682
683 683 
 	( frame )
684 684 
 	.toolpane/x1 PEK2 -- .toolpane/y1 PEK2 -- .toolpane/x2 PEK2 .toolpane/y2 PEK2 #00 ;line-rect JSR2
... ... 
@@ -690,9 +690,9 @@ RTN
690 690 
 		( draw ) #21 .Screen/x DEI2 .toolpane/x1 PEK2 SUB2 8/ SWP POP .brush/tool PEK EQU #02 MUL ADD .Screen/color DEO
691 691 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
692 692 
 		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
693 
-		.Screen/x DEI2 .toolpane/x2 PEK2 LTH2 ,&loop JNZ
693 
+		.Screen/x DEI2 .toolpane/x2 PEK2 LTH2 ,&loop JCN
694 694
695 
-	.zoom/active PEK #01 NEQ ,&no-zoom JNZ
695 
+	.zoom/active PEK #01 NEQ ,&no-zoom JCN
696 696 
 		.Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
697 697 
 		;tool_icns #0028 ADD2 .Screen/addr DEO2
698 698 
 		#21 #04 .brush/tool PEK EQU #02 MUL ADD .Screen/color DEO
... ... 
@@ -702,7 +702,7 @@ RTN
702 702
703 703 
 @draw-pattpane ( -- )
704 704
705 
-	.document/presentation PEK #00 EQU ,&skip JNZ RTN &skip
705 
+	.document/presentation PEK #00 EQU ,&skip JCN RTN &skip
706 706
707 707 
 	( frame )
708 708 
 	.pattpane/x1 PEK2 -- .pattpane/y1 PEK2 -- .pattpane/x2 PEK2 .pattpane/y2 PEK2 #00 ;line-rect JSR2
... ... 
@@ -714,13 +714,13 @@ RTN
714 714 
 		( draw ) #21 .Screen/x DEI2 .pattpane/x1 PEK2 SUB2 8/ SWP POP .brush/patt PEK EQU #02 MUL ADD .Screen/color DEO
715 715 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
716 716 
 		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
717 
-		.Screen/x DEI2 .pattpane/x2 PEK2 LTH2 ,&loop JNZ
717 
+		.Screen/x DEI2 .pattpane/x2 PEK2 LTH2 ,&loop JCN
718 718
719 719 
 RTN
720 720
721 721 
 @draw-sizepane ( -- )
722 722
723 
-	.document/presentation PEK #00 EQU ,&skip JNZ RTN &skip
723 
+	.document/presentation PEK #00 EQU ,&skip JCN RTN &skip
724 724
725 725 
 	( frame )
726 726 
 	.sizepane/x1 PEK2 -- .sizepane/y1 PEK2 -- .sizepane/x2 PEK2 .sizepane/y2 PEK2 #00 ;line-rect JSR2
... ... 
@@ -732,13 +732,13 @@ RTN
732 732 
 		( draw ) #21 .Screen/x DEI2 .sizepane/x1 PEK2 SUB2 8/ SWP POP .brush/size PEK EQU #02 MUL ADD .Screen/color DEO
733 733 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
734 734 
 		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
735 
-		.Screen/x DEI2 .sizepane/x2 PEK2 LTH2 ,&loop JNZ
735 
+		.Screen/x DEI2 .sizepane/x2 PEK2 LTH2 ,&loop JCN
736 736
737 737 
 RTN
738 738
739 739 
 @draw-viewpane ( -- )
740 740
741 
-	.document/presentation PEK #00 EQU ,&skip JNZ RTN &skip
741 
+	.document/presentation PEK #00 EQU ,&skip JCN RTN &skip
742 742
743 743 
 	( frame )
744 744 
 	.viewpane/x1 PEK2 -- .viewpane/y1 PEK2 -- .viewpane/x2 PEK2 .viewpane/y2 PEK2 #00 ;line-rect JSR2
... ... 
@@ -750,7 +750,7 @@ RTN
750 750 
 		( draw ) #21 .Screen/color DEO
751 751 
 		( incr ) .Screen/x DEI2 8+ .Screen/x DEO2
752 752 
 		( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
753 
-		.Screen/x DEI2 .viewpane/x2 PEK2 LTH2 ,&loop JNZ
753 
+		.Screen/x DEI2 .viewpane/x2 PEK2 LTH2 ,&loop JCN
754 754
755 755 
 RTN
756 756
... ... 
@@ -770,7 +770,7 @@ RTN
770 770 
 	( draw ver line )
771 771 
 	.Screen/width DEI2 #0002 DIV2 #0000 .Screen/height DEI2 .document/presentation PEK #00 EQU ;line-vertical-dotted JSR2
772 772
773 
-	.document/presentation PEK #01 EQU ;&skip-size JNZ2
773 
+	.document/presentation PEK #01 EQU ;&skip-size JCN2
774 774 
 		( draw size )
775 775 
 		#0010 .Screen/y DEO2
776 776 
 		( draw width )
... ... 
@@ -816,7 +816,7 @@ RTN
816 816 
 		( draw ) .rect/x1 PEK2 .Screen/x DEO2 .color PEK DUP .Screen/color DEO
817 817 
 		( draw ) .rect/x2 PEK2 .Screen/x DEO2 .Screen/color DEO
818 818 
 		( incr ) SWP2 ++ SWP2
819 
-		OVR2 OVR2 LTS2 ,&ver JNZ
819 
+		OVR2 OVR2 LTS2 ,&ver JCN
820 820 
 	POP2 POP2
821 821 
 	.rect/x1 PEK2 .rect/x2 PEK2
822 822 
 	&hor
... ... 
@@ -824,7 +824,7 @@ RTN
824 824 
 		( draw ) .rect/y1 PEK2 .Screen/y DEO2 .color PEK DUP .Screen/color DEO
825 825 
 		( draw ) .rect/y2 PEK2 .Screen/y DEO2 .Screen/color DEO
826 826 
 		( incr ) SWP2 ++ SWP2
827 
-		OVR2 OVR2 ++ LTS2 ,&hor JNZ
827 
+		OVR2 OVR2 ++ LTS2 ,&hor JCN
828 828 
 	POP2 POP2
829 829
830 830 
 RTN
... ... 
@@ -840,10 +840,10 @@ RTN
840 840 
 			( save ) OVR2 .Screen/x DEO2
841 841 
 			( draw ) .color PEK .Screen/color DEO
842 842 
 			( incr ) SWP2 ++ SWP2
843 
-			OVR2 OVR2 LTS2 ,&hor JNZ
843 
+			OVR2 OVR2 LTS2 ,&hor JCN
844 844 
 		POP2 POP2 STH2r STH2r
845 845 
 		( incr ) SWP2 ++ SWP2
846 
-		OVR2 OVR2 LTS2 ,&ver JNZ
846 
+		OVR2 OVR2 LTS2 ,&ver JCN
847 847 
 	POP2 POP2 POP2 POP2
848 848
849 849 
 RTN
... ... 
@@ -856,7 +856,7 @@ RTN
856 856 
 		( draw ) .color PEK #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 JNZ
859 
+		( loop ) DUP2 LDA #00 NEQ ,&loop JCN
860 860 
 	POP2
861 861
862 862 
 RTN
... ... 
@@ -867,7 +867,7 @@ RTN
867 867 
 	&draw-hor
868 868 
 		( draw ) .color PEK .Screen/color DEO
869 869 
 		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/x DEO2 SWP2
870 
-		OVR2 OVR2 LTH2 ,&draw-hor JNZ
870 
+		OVR2 OVR2 LTH2 ,&draw-hor JCN
871 871 
 	POP2 POP2
872 872
873 873 
 RTN
... ... 
@@ -878,7 +878,7 @@ RTN
878 878 
 	&draw-ver
879 879 
 		( draw ) .color PEK .Screen/color DEO
880 880 
 		( incr ) SWP2 #0002 ADD2 DUP2 .Screen/y DEO2 SWP2
881 
-		OVR2 OVR2 LTH2 ,&draw-ver JNZ
881 
+		OVR2 OVR2 LTH2 ,&draw-ver JCN
882 882 
 	POP2 POP2
883 883
884 884 
 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 JNZ
892 
+		OVR2 LDA #00 NEQ ,&loop JCN
893 893 
 	#00 ROT ROT STA POP2
894 894
895 895 
 RTN
projects/software/orca.usm
History View file @ 8630028
... ... 
@@ -73,7 +73,7 @@ BRK
73 73
74 74 
 	.timer PEK ++ DUP .timer POK
75 75
76 
-	( skip ) #08 EQU ,&tick JNZ BRK &tick
76 
+	( skip ) #08 EQU ,&tick JCN BRK &tick
77 77
78 78 
 	.timer/frame PEK ++ .timer/frame POK
79 79
... ... 
@@ -85,32 +85,32 @@ BRK
85 85
86 86 
 @on-button
87 87
88 
-	.Controller/key DEI #00 EQU ,&no-key JNZ
88 
+	.Controller/key DEI #00 EQU ,&no-key JCN
89 89 
 		.selection/x1 PEK .selection/y1 PEK .Controller/key DEI SET-CELL
90 90 
 		;redraw JSR2
91 91 
 	&no-key
92 92
93 93 
 	( arrows )
94 94 
 	.Controller/button DEI #f0 AND
95 
-		DUP #04 SFT #01 AND #01 NEQ ,&no-up JNZ
96 
-			.selection/y1 PEK #00 EQU ,&no-up JNZ
95 
+		DUP #04 SFT #01 AND #01 NEQ ,&no-up JCN
96 
+			.selection/y1 PEK #00 EQU ,&no-up JCN
97 97 
 			.selection/y1 PEK -- .selection/y1 POK
98 98 
 			.selection/y2 PEK -- .selection/y2 POK &no-up
99 
-		DUP #05 SFT #01 AND #01 NEQ ,&no-down JNZ
100 
-			.selection/y1 PEK .grid/height PEK -- EQU ,&no-down JNZ
99 
+		DUP #05 SFT #01 AND #01 NEQ ,&no-down JCN
100 
+			.selection/y1 PEK .grid/height PEK -- EQU ,&no-down JCN
101 101 
 			.selection/y1 PEK ++ .selection/y1 POK
102 102 
 			.selection/y2 PEK ++ .selection/y2 POK &no-down
103 
-		DUP #06 SFT #01 AND #01 NEQ ,&no-left JNZ
104 
-			.selection/x1 PEK #00 EQU ,&no-left JNZ
103 
+		DUP #06 SFT #01 AND #01 NEQ ,&no-left JCN
104 
+			.selection/x1 PEK #00 EQU ,&no-left JCN
105 105 
 			.selection/x1 PEK -- .selection/x1 POK
106 106 
 			.selection/x2 PEK -- .selection/x2 POK &no-left
107 
-		DUP #07 SFT #01 AND #01 NEQ ,&no-right JNZ
108 
-			.selection/x1 PEK .grid/width PEK -- EQU ,&no-right JNZ
107 
+		DUP #07 SFT #01 AND #01 NEQ ,&no-right JCN
108 
+			.selection/x1 PEK .grid/width PEK -- EQU ,&no-right JCN
109 109 
 			.selection/x1 PEK ++ .selection/x1 POK
110 110 
 			.selection/x2 PEK ++ .selection/x2 POK &no-right
111 111 
 	POP
112 112
113 
-	.Controller/key DEI #08 NEQ ,&no-backspace JNZ
113 
+	.Controller/key DEI #08 NEQ ,&no-backspace JCN
114 114 
 		.selection/x1 PEK .selection/y1 PEK #2e SET-CELL ( put . char )
115 115 
 	&no-backspace
116 116
... ... 
@@ -120,7 +120,7 @@ BRK
120 120
121 121 
 @on-mouse
122 122
123 
-	.Mouse/state DEI #00 EQU ,&no-touch JNZ
123 
+	.Mouse/state DEI #00 EQU ,&no-touch JCN
124 124 
 		.Mouse/x DEI2 8/ SWP POP .selection/x1 POK
125 125 
 		.Mouse/y DEI2 8/ SWP POP .selection/y1 POK
126 126 
 		;redraw JSR2
... ... 
@@ -153,10 +153,10 @@ BRK
153 153 
 			( get x,y ) SWP2 OVR STH SWP2 OVR STHr
154 154 
 			#2e SET-CELL
155 155 
 			( incr ) SWP ++ SWP
156 
-			DUP2 LTH ,&hor JNZ
156 
+			DUP2 LTH ,&hor JCN
157 157 
 		POP2
158 158 
 		( incr ) SWP ++ SWP
159 
-		DUP2 LTH ,&ver JNZ
159 
+		DUP2 LTH ,&ver JCN
160 160 
 	POP2
161 161
162 162 
 	#9a .timer/speed POK
... ... 
@@ -179,7 +179,7 @@ RTN
179 179 
 @get-port ( x y lock -- value )
180 180
181 181 
 	(
182 
-	DUP #01 NEQ ^$no-lock JNZ
182 
+	DUP #01 NEQ ^$no-lock JCN
183 183 
 		DUP2 #01 SET-LOCK
184 184 
 	$no-lock
185 185 
 	STH DUP2 #02 #02 STHr MUL ADD ,set-type JSR2
... ... 
@@ -192,11 +192,11 @@ RTN
192 192
193 193 
 	DUP2 LDA-CELL
194 194 
 	( if character is dot )
195 
-	DUP #2e NEQ ,&no-bar JNZ
195 
+	DUP #2e NEQ ,&no-bar JCN
196 196 
 		( check if x,y is grid )
197 197 
 		POP
198 
-		DUP2 #08 MOD #00 EQU SWP #08 MOD #00 EQU #0101 NEQ2 ,&no-marker8 JNZ POP2 ;marker8_icn RTN &no-marker8
199 
-		DUP2 #02 MOD #00 EQU SWP #02 MOD #00 EQU #0101 NEQ2 ,&no-marker4 JNZ POP2 ;marker4_icn RTN &no-marker4
198 
+		DUP2 #08 MOD #00 EQU SWP #08 MOD #00 EQU #0101 NEQ2 ,&no-marker8 JCN POP2 ;marker8_icn RTN &no-marker8
199 
+		DUP2 #02 MOD #00 EQU SWP #02 MOD #00 EQU #0101 NEQ2 ,&no-marker4 JCN POP2 ;marker4_icn RTN &no-marker4
200 200 
 		POP2 ;font RTN
201 201 
 	&no-bar
202 202 
 	STH POP2 STHr
... ... 
@@ -304,11 +304,11 @@ RTN
304 304
305 305 
 	STH
306 306 
 	( limit )
307 
-	DUP #00 NEQ ,&not-edge JNZ
307 
+	DUP #00 NEQ ,&not-edge JCN
308 308 
 		#2a SET-CELL POP STHr RTN
309 309 
 	&not-edge
310 310 
 	( collide )
311 
-	DUP2 -- LDA-CELL #2e EQU ,&not-collide JNZ
311 
+	DUP2 -- LDA-CELL #2e EQU ,&not-collide JCN
312 312 
 		#2a SET-CELL POP STHr RTN
313 313 
 	&not-collide
314 314 
 	( move )
... ... 
@@ -373,11 +373,11 @@ RTN
373 373
374 374 
 	STH
375 375 
 	( limit )
376 
-	OVR #00 NEQ ,&not-edge JNZ
376 
+	OVR #00 NEQ ,&not-edge JCN
377 377 
 		#2a SET-CELL POP STHr RTN
378 378 
 	&not-edge
379 379 
 	( collide )
380 
-	DUP2 SWP -- SWP LDA-CELL #2e EQU ,&not-collide JNZ
380 
+	DUP2 SWP -- SWP LDA-CELL #2e EQU ,&not-collide JCN
381 381 
 		#2a SET-CELL POP STHr RTN
382 382 
 	&not-collide
383 383 
 	( move )
... ... 
@@ -415,30 +415,30 @@ RTN
415 415 
 @run-char ( x y char -- )
416 416
417 417 
 	( skip dot )
418 
-	DUP #2e NEQ ,&not-dot JNZ
418 
+	DUP #2e NEQ ,&not-dot JCN
419 419 
 		POP POP2 RTN
420 420 
 	&not-dot
421 421
422 422 
 	( skip locked )
423 
-	ROT ROT DUP2 LDA-LOCK #00 EQU ,&not-locked JNZ
423 
+	ROT ROT DUP2 LDA-LOCK #00 EQU ,&not-locked JCN
424 424 
 		POP POP2 RTN
425 425 
 	&not-locked
426 426 
 	ROT
427 427
428 
-	( A ) DUP #41 EQU ;op-a JNZ2 ( B ) DUP #42 EQU ;op-b JNZ2
429 
-	( C ) DUP #43 EQU ;op-c JNZ2 ( D ) DUP #44 EQU ;op-d JNZ2
430 
-	( E ) DUP #45 EQU ;op-e JNZ2 ( F ) DUP #46 EQU ;op-f JNZ2
431 
-	( G ) DUP #47 EQU ;op-g JNZ2 ( H ) DUP #48 EQU ;op-h JNZ2
432 
-	( I ) DUP #49 EQU ;op-i JNZ2 ( J ) DUP #4a EQU ;op-j JNZ2
433 
-	( K ) DUP #4b EQU ;op-k JNZ2 ( L ) DUP #4c EQU ;op-l JNZ2
434 
-	( M ) DUP #4d EQU ;op-m JNZ2 ( N ) DUP #4e EQU ;op-n JNZ2
435 
-	( O ) DUP #4f EQU ;op-o JNZ2 ( P ) DUP #50 EQU ;op-p JNZ2
436 
-	( Q ) DUP #51 EQU ;op-q JNZ2 ( R ) DUP #52 EQU ;op-r JNZ2
437 
-	( S ) DUP #53 EQU ;op-s JNZ2 ( T ) DUP #54 EQU ;op-t JNZ2
438 
-	( U ) DUP #55 EQU ;op-u JNZ2 ( V ) DUP #56 EQU ;op-v JNZ2
439 
-	( W ) DUP #57 EQU ;op-w JNZ2 ( X ) DUP #58 EQU ;op-x JNZ2
440 
-	( Y ) DUP #59 EQU ;op-y JNZ2 ( Z ) DUP #5a EQU ;op-z JNZ2
441 
-	( * ) DUP #2a EQU ;op-bang JNZ2
428 
+	( A ) DUP #41 EQU ;op-a JCN2 ( B ) DUP #42 EQU ;op-b JCN2
429 
+	( C ) DUP #43 EQU ;op-c JCN2 ( D ) DUP #44 EQU ;op-d JCN2
430 
+	( E ) DUP #45 EQU ;op-e JCN2 ( F ) DUP #46 EQU ;op-f JCN2
431 
+	( G ) DUP #47 EQU ;op-g JCN2 ( H ) DUP #48 EQU ;op-h JCN2
432 
+	( I ) DUP #49 EQU ;op-i JCN2 ( J ) DUP #4a EQU ;op-j JCN2
433 
+	( K ) DUP #4b EQU ;op-k JCN2 ( L ) DUP #4c EQU ;op-l JCN2
434 
+	( M ) DUP #4d EQU ;op-m JCN2 ( N ) DUP #4e EQU ;op-n JCN2
435 
+	( O ) DUP #4f EQU ;op-o JCN2 ( P ) DUP #50 EQU ;op-p JCN2
436 
+	( Q ) DUP #51 EQU ;op-q JCN2 ( R ) DUP #52 EQU ;op-r JCN2
437 
+	( S ) DUP #53 EQU ;op-s JCN2 ( T ) DUP #54 EQU ;op-t JCN2
438 
+	( U ) DUP #55 EQU ;op-u JCN2 ( V ) DUP #56 EQU ;op-v JCN2
439 
+	( W ) DUP #57 EQU ;op-w JCN2 ( X ) DUP #58 EQU ;op-x JCN2
440 
+	( Y ) DUP #59 EQU ;op-y JCN2 ( Z ) DUP #5a EQU ;op-z JCN2
441 
+	( * ) DUP #2a EQU ;op-bang JCN2
442 442 
 	POP POP2
443 443
444 444 
 RTN
... ... 
@@ -452,10 +452,10 @@ RTN
452 452 
 			( get x,y ) SWP2 OVR STH SWP2 OVR STHr
453 453 
 			( unlock ) #00 SET-LOCK
454 454 
 			( incr ) SWP ++ SWP
455 
-			DUP2 LTH ,&hor JNZ
455 
+			DUP2 LTH ,&hor JCN
456 456 
 		POP2
457 457 
 		( incr ) SWP ++ SWP
458 
-		DUP2 LTH ,&ver JNZ
458 
+		DUP2 LTH ,&ver JCN
459 459 
 	POP2
460 460
461 461 
 RTN
... ... 
@@ -471,10 +471,10 @@ RTN
471 471 
 			( get x,y ) SWP2 OVR STH SWP2 OVR STHr
472 472 
 			DUP2 LDA-CELL ;run-char JSR2
473 473 
 			( incr ) SWP ++ SWP
474 
-			DUP2 LTH ,&hor JNZ
474 
+			DUP2 LTH ,&hor JCN
475 475 
 		POP2
476 476 
 		( incr ) SWP ++ SWP
477 
-		DUP2 LTH ,&ver JNZ
477 
+		DUP2 LTH ,&ver JCN
478 478 
 	POP2
479 479 
 	;redraw JSR2
480 480
... ... 
@@ -551,10 +551,10 @@ RTN
551 551 
 			( sprite ) DUP2 ;get-cell-sprite JSR2 .Screen/addr DEO2
552 552 
 			( draw ) ;is-selected JSR2 #0d MUL #21 ADD .Screen/color DEO
553 553 
 			( incr ) SWP ++ SWP
554 
-			DUP2 LTH ,&hor JNZ
554 
+			DUP2 LTH ,&hor JCN
555 555 
 		POP2
556 556 
 		( incr ) SWP ++ SWP
557 
-		DUP2 LTH ,&ver JNZ
557 
+		DUP2 LTH ,&ver JCN
558 558 
 	POP2
559 559
560 560 
 	;draw-interface JSR2
src/assembler.c
History View file @ 8630028
... ... 
@@ -41,7 +41,7 @@ Program p;
41 41
42 42 
 char ops[][4] = {
43 43 
 	"BRK", "LIT", "NOP", "POP", "DUP", "SWP", "OVR", "ROT",
44 
-	"EQU", "NEQ", "GTH", "LTH", "JMP", "JNZ", "JSR", "STH",
44 
+	"EQU", "NEQ", "GTH", "LTH", "JMP", "JCN", "JSR", "STH",
45 45 
 	"PEK", "POK", "LDR", "STR", "LDA", "STA", "DEI", "DEO",
46 46 
 	"ADD", "SUB", "MUL", "DIV", "AND", "ORA", "EOR", "SFT"
47 47 
 };