more Z80 work
This commit is contained in:
1 parent
93d6aaaea2
commit
a71ebe4968
3 files changed
+412
-70
No files matched your search
@@ -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
|
||||
Reference in new issue
Block a user