izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

recipes/trs80: still wip...

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-28 10:11:38 -04:00
parent 61b2e02351
commit 0b8c8c9ca0
3 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
blk/162
View File

@ -6,7 +6,8 @@ CODE KEY
;CODE ;CODE
CODE EMIT CODE EMIT
BC POPqq ( c == @DSP arg ) BC POPqq, ( c == @DSP arg )
chkPS, chkPS,
A 0x02 LDrn, ( @DSP ) A 0x02 LDrn, ( @DSP )
0x28 RSTn,
;CODE ;CODE

1
blk/218
View File

@ -8,4 +8,3 @@
OR A, OR A,
; ;
0x04 OP1r INCr, 0x05 OP1r DECr, 0x04 OP1r INCr, 0x05 OP1r DECr,
0xc7 OP1r RSTn,

8
blk/242
View File

@ -1,16 +1,14 @@
( dd nn -- ) : LDdd(nn), ( dd nn -- )
: LDdd(nn),
0xed A, 0xed A,
SWAP <<4 0x4b OR A, SWAP <<4 0x4b OR A,
A,, A,,
; ;
: LD(nn)dd, ( nn dd -- )
( nn dd -- )
: LD(nn)dd,
0xed A, 0xed A,
<<4 0x43 OR A, <<4 0x43 OR A,
A,, A,,
; ;
: RSTn, 0xc7 OR A, ;
: JP(IX), IX DROP JP(HL), ; : JP(IX), IX DROP JP(HL), ;
: JP(IY), IY DROP JP(HL), ; : JP(IY), IY DROP JP(HL), ;