From bceed46348f10ea05567268683e10551cf2e3c27 Mon Sep 17 00:00:00 2001 From: Andrew Alderwick Date: Thu, 13 May 2021 07:36:24 +0100 Subject: [PATCH] Optimised #0000 NEQ2 when used with JCN --- projects/examples/devices/file.usm | 2 +- 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 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