uxn

commit bceed46348f10ea05567268683e10551cf2e3c27
parent f407f1b4262c5c51d221efed4070747fea62a1c9
Author: Andrew Alderwick <andrew@alderwick.co.uk>
Date:   Thu, 13 May 2021 07:36:24 +0100

Optimised #0000 NEQ2 when used with JCN

Diffstat:
M
projects/examples/devices/file.usm
 | 
2
+-
M
projects/software/neralie.usm
 | 
4
++--

2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/projects/examples/devices/file.usm b/projects/examples/devices/file.usm
@@ -28,7 +28,7 @@
 	;srcpath .File/name DEO2
 	MEMORY   .File/load DEO2
 
-	.File/success DEI2 #0000 NEQ2 ;on-success JCN2
+	.File/success DEI2 ORA ;on-success JCN2
 
 	;failedtxt .Console/string DEO2
 
diff --git a/projects/software/neralie.usm b/projects/software/neralie.usm
@@ -151,7 +151,7 @@
 	&h ( number* -- )
 	,scale JSR
 	.neralie/h LDZ2 ;mul2hi JSR2
-	DUP2 #0000 NEQ2 #02 JCN POP2 JMP2r
+	ORAk #02 JCN POP2 JMP2r
 	DUP2 .neralie/y LDZ2 ADD2 .neralie/y STZ2
 	.neralie/h LDZ2 SWP2 SUB2 .neralie/h STZ2
 	.neralie/x LDZ2 DUP2 .neralie/w LDZ2 ADD2 .neralie/y LDZ2 ,h JMP
@@ -159,7 +159,7 @@
 	&v ( number* -- )
 	,scale JSR
 	.neralie/w LDZ2 ;mul2hi JSR2
-	DUP2 #0000 NEQ2 #02 JCN POP2 JMP2r
+	ORAk #02 JCN POP2 JMP2r
 	DUP2 .neralie/x LDZ2 ADD2 .neralie/x STZ2
 	.neralie/w LDZ2 SWP2 SUB2 .neralie/w STZ2
 	.neralie/y LDZ2 DUP2 .neralie/h LDZ2 ADD2 .neralie/x LDZ2 ,v JMP