more Z80 work

This commit is contained in:
FeralChild64 authored and FeralChild64 committed 2021-01-26 00:03:07 +01:00
1 parent 93d6aaaea2
commit a71ebe4968
3 files changed
+412 -70

No files matched your search

+28
View File
@@ -3,6 +3,8 @@
; Z80 input/output instructions
;
; XXX ZVM_store_IO should go to next instruction
Z80_instr_DB: ; IN A,(n)
@@ -29,6 +31,20 @@ Z80_instr_DB: ;
jmp ZVM_next
}
!macro Z80_IN_NULL {
lda REG_C
sta ADDR_IO+0
lda REG_B
sta ADDR_IO+1
jsr ZVM_fetch_IO
tax
lda REG_F
and #($FF - Z80_SF - Z80_ZF - Z80_HF - Z80_PF - Z80_NF - Z80_XF - Z80_YF)
ora z80_ftable_IN_OR_XOR, x
sta REG_F
jmp ZVM_next
}
Z80_instr_ED_40: +Z80_IN_REGn REG_B ; IN B,(C)
Z80_instr_ED_48: +Z80_IN_REGn REG_C ; IN C,(C)
Z80_instr_ED_50: +Z80_IN_REGn REG_D ; IN D,(C)
@@ -36,6 +52,7 @@ Z80_instr_ED_58: +Z80_IN_REGn REG_E ;
Z80_instr_ED_60: +Z80_IN_REGn REG_H ; IN H,(C)
Z80_instr_ED_68: +Z80_IN_REGn REG_L ; IN L,(C)
Z80_instr_ED_78: +Z80_IN_REGn REG_A ; IN A,(C)
Z80_illeg_ED_70: +Z80_IN_NULL ; IN (C)
Z80_instr_D3: ; OUT (n),A
@@ -74,8 +91,19 @@ Z80_instr_ED_49: ;
jmp ZVM_next
}
!macro Z80_OUT_NULL {
lda REG_C
sta ADDR_IO+0
lda REG_B
sta ADDR_IO+1
lda #$00
jsr ZVM_store_IO
jmp ZVM_next
}
Z80_instr_ED_51: +Z80_OUT_REGn REG_D ; OUT (C),D
Z80_instr_ED_59: +Z80_OUT_REGn REG_E ; OUT (C),E
Z80_instr_ED_61: +Z80_OUT_REGn REG_H ; OUT (C),H
Z80_instr_ED_69: +Z80_OUT_REGn REG_L ; OUT (C),L
Z80_instr_ED_79: +Z80_OUT_REGn REG_A ; OUT (C),A
Z80_illeg_ED_71: +Z80_OUT_NULL ; OUT (C),0