diff --git a/projects/examples/devices/file.usm b/projects/examples/devices/file.usm
index 13c39b1..26a870e 100644
--- 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
index 45377d7..2c70991 100644
--- 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