From f7dc6a2b79ff9d60b5c006c67ddcc77affb5b805 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 19 Sep 2020 21:03:18 -0400
Subject: [PATCH] Fix sms and ti84 recipes

Their asm code has been broken for a little while! oops!
---
 recipes/sms/xcomp.fs  |  2 +-
 recipes/ti84/xcomp.fs | 38 +++++++++++++++++++-------------------
 2 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/recipes/sms/xcomp.fs b/recipes/sms/xcomp.fs
index df0ce53..b0ab948 100644
--- a/recipes/sms/xcomp.fs
+++ b/recipes/sms/xcomp.fs
@@ -19,7 +19,7 @@ SYSVARS 0x72 + CONSTANT PAD_MEM
 282 LOAD  ( boot.z80.decl )
 270 LOAD  ( xcomp overrides )
 
-0x100 JPnn, 0x63 ZFILL, ( 0x66 )
+0x100 JP, 0x63 ZFILL, ( 0x66 )
 RETN, 0x98 ZFILL, ( 0x100 )
 ( All set, carry on! )
 CURRENT @ XCURRENT !
diff --git a/recipes/ti84/xcomp.fs b/recipes/ti84/xcomp.fs
index 9568eed..ab288a6 100644
--- a/recipes/ti84/xcomp.fs
+++ b/recipes/ti84/xcomp.fs
@@ -17,42 +17,42 @@ SYSVARS 0x72 + CONSTANT KBD_MEM
   offset the binary by 0x100, which is our minimum possible
   increment and fill the TI stuff with the code below. )
 
-0x5a JPnn, 0x15 ZFILL, ( 0x18 )
-0x5a JPnn, ( reboot ) 0x1d ZFILL, ( 0x38 )
+0x5a JP, 0x15 ZFILL, ( 0x18 )
+0x5a JP, ( reboot ) 0x1d ZFILL, ( 0x38 )
 ( handleInterrupt )
 DI,
-AF PUSHqq,
+AF PUSH,
     ( did we push the ON button? )
-    0x04 ( PORT_INT_TRIG ) INAn,
-    0 ( INT_TRIG_ON ) A BITbr,
+    0x04 ( PORT_INT_TRIG ) INAi,
+    0 ( INT_TRIG_ON ) A BIT,
     IFNZ,
         ( yes? acknowledge and boot )
-        0x03 ( PORT_INT_MASK ) INAn,
-        0x00 ( INT_MASK_ON ) A RESbr, ( ack interrupt )
-        0x03 ( PORT_INT_MASK ) OUTnA,
+        0x03 ( PORT_INT_MASK ) INAi,
+        0x00 ( INT_MASK_ON ) A RES, ( ack interrupt )
+        0x03 ( PORT_INT_MASK ) OUTiA,
         AF POPqq,
         EI,
-        0x100 JPnn,
+        0x100 JP,
     THEN,
-AF POPqq,
+AF POP,
 EI,
 RETI,
 
 0x03 ZFILL, ( 0x53 )
-0x5a JPnn, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a )
+0x5a JP, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a )
 ( boot )
 DI,
-    (im1)
+    IM1,
     ( enable the ON key interrupt )
-    0x03 ( PORT_INT_MASK ) INAn,
-    0x00 ( INT_MASK_ON ) A SETbr,
-    0x03 ( PORT_INT_MASK ) OUTnA,
-    A 0x80 LDrn,
-    0x07 ( PORT_BANKB ) OUTnA,
+    0x03 ( PORT_INT_MASK ) INAi,
+    0x00 ( INT_MASK_ON ) A SET,
+    0x03 ( PORT_INT_MASK ) OUTiA,
+    A 0x80 LDri,
+    0x07 ( PORT_BANKB ) OUTiA,
 EI,
 ( LCD off )
-A 0x02 ( LCD_CMD_DISABLE ) LDrn,
-0x10 ( LCD_PORT_CMD ) OUTnA,
+A 0x02 ( LCD_CMD_DISABLE ) LDri,
+0x10 ( LCD_PORT_CMD ) OUTiA,
 HALT,
 
 0x95 ZFILL, ( 0x100 )