izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 22:18:06 +11:00
Code Issues Releases Wiki Activity

forth: improve assembler a bit

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-27 18:38:42 -04:00
parent 49101915fb
commit 29dcddb8cd
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
forth/z80a.fs
View File

@ -54,7 +54,6 @@
; ;
0x04 OP1r INCr, 0x04 OP1r INCr,
0x05 OP1r DECr, 0x05 OP1r DECr,
0x46 OP1r LDr(HL),
( r -- ) ( r -- )
: OP1r0 : OP1r0
@ -63,7 +62,6 @@
C@ ( r op ) C@ ( r op )
OR A, OR A,
; ;
0x70 OP1r0 LD(HL)r,
0xa0 OP1r0 ANDr, 0xa0 OP1r0 ANDr,
0xb0 OP1r0 ORr, 0xb0 OP1r0 ORr,
0xa8 OP1r0 XORr, 0xa8 OP1r0 XORr,
@ -208,6 +206,8 @@
; ;
0xcd OP3nn CALLnn, 0xcd OP3nn CALLnn,
0xc3 OP3nn JPnn, 0xc3 OP3nn JPnn,
0x22 OP3nn LD(nn)HL,
0x2a OP3nn LDHL(nn),
: OPJR : OPJR
CREATE C, CREATE C,

4
forth/z80c.fs
View File

@ -173,13 +173,13 @@ CODE C!
HL POPqq, HL POPqq,
DE POPqq, DE POPqq,
chkPS, chkPS,
E LD(HL)r, (HL) E LDrr,
;CODE ;CODE
CODE C@ CODE C@
HL POPqq, HL POPqq,
chkPS, chkPS,
L LDr(HL), L (HL) LDrr,
H 0 LDrn, H 0 LDrn,
HL PUSHqq, HL PUSHqq,
;CODE ;CODE