|
|
|
@ -575,8 +575,10 @@ AY_WRTPSG: |
|
|
|
OUT0 (Z180_DCNTL),A ; AND UPDATE DCNTL |
|
|
|
#ENDIF |
|
|
|
LD A,D ; SELECT THE REGISTER WE |
|
|
|
EZ80_IO |
|
|
|
OUT (AY_RSEL),A ; WANT TO WRITE TO |
|
|
|
LD A,E ; WRITE THE VALUE TO |
|
|
|
EZ80_IO |
|
|
|
OUT (AY_RDAT),A ; THE SELECTED REGISTER |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
POP AF ; GET SAVED DCNTL VALUE |
|
|
|
@ -606,7 +608,9 @@ AY_RDPSG: |
|
|
|
OUT0 (Z180_DCNTL),A ; AND UPDATE DCNTL |
|
|
|
#ENDIF |
|
|
|
LD A,D ; SELECT THE REGISTER WE |
|
|
|
EZ80_IO |
|
|
|
OUT (AY_RSEL),A ; WANT TO READ |
|
|
|
EZ80_IO |
|
|
|
IN A,(AY_RIN) ; READ SELECTED REGISTER |
|
|
|
LD E,A |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
|