From 0b8c8c9ca04172e7ea7284a52b1b3bec45b83d1a Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Tue, 28 Apr 2020 10:11:38 -0400
Subject: [PATCH] recipes/trs80: still wip...

---
 blk/162 | 3 ++-
 blk/218 | 1 -
 blk/242 | 8 +++-----
 3 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/blk/162 b/blk/162
index 610aaf7..a43a543 100644
--- a/blk/162
+++ b/blk/162
@@ -6,7 +6,8 @@ CODE KEY
 ;CODE
 
 CODE EMIT
-    BC POPqq ( c == @DSP arg )
+    BC POPqq, ( c == @DSP arg )
     chkPS,
     A 0x02 LDrn, ( @DSP )
+    0x28 RSTn,
 ;CODE
diff --git a/blk/218 b/blk/218
index d734316..02d28f1 100644
--- a/blk/218
+++ b/blk/218
@@ -8,4 +8,3 @@
     OR A,
 ;
 0x04 OP1r INCr,                0x05 OP1r DECr,
-0xc7 OP1r RSTn,
diff --git a/blk/242 b/blk/242
index f701315..3248715 100644
--- a/blk/242
+++ b/blk/242
@@ -1,16 +1,14 @@
-( dd nn -- )
-: LDdd(nn),
+: LDdd(nn), ( dd nn -- )
     0xed A,
     SWAP <<4 0x4b OR A,
     A,,
 ;
-
-( nn dd -- )
-: LD(nn)dd,
+: LD(nn)dd, ( nn dd -- )
     0xed A,
     <<4 0x43 OR A,
     A,,
 ;
+: RSTn, 0xc7 OR A, ;
 
 : JP(IX), IX DROP JP(HL), ;
 : JP(IY), IY DROP JP(HL), ;