recipes/trs80: still wip...

2020-04-28 10:11:38 -04:00 · 2020-04-28 10:11:38 -04:00 · 0b8c8c9ca0
commit 0b8c8c9ca0
parent 61b2e02351
3 changed files with 5 additions and 7 deletions
--- 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
--- a/blk/218
+++ b/blk/218
@ -8,4 +8,3 @@
    OR A,
 ;
 0x04 OP1r INCr,                0x05 OP1r DECr,
-0xc7 OP1r RSTn,
--- 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), ;