forked from Apple-2-HW/Apple2-IO-RPi
Change read/write flags to high bits
This commit is contained in:
parent
daed9d2dd9
commit
e1d78ba7a5
@ -147,8 +147,8 @@ SendByte:
|
|||||||
pha
|
pha
|
||||||
waitWrite:
|
waitWrite:
|
||||||
lda InputFlags,x
|
lda InputFlags,x
|
||||||
ror
|
rol
|
||||||
ror ;Second lowest bit goes low when ready
|
rol
|
||||||
bcs waitWrite
|
bcs waitWrite
|
||||||
pla
|
pla
|
||||||
sta OutputByte,x
|
sta OutputByte,x
|
||||||
@ -156,8 +156,8 @@ waitWrite:
|
|||||||
sta OutputFlags,x
|
sta OutputFlags,x
|
||||||
finishWrite:
|
finishWrite:
|
||||||
lda InputFlags,x
|
lda InputFlags,x
|
||||||
ror
|
rol
|
||||||
ror
|
rol
|
||||||
bcc finishWrite
|
bcc finishWrite
|
||||||
lda #$0f
|
lda #$0f
|
||||||
sta OutputFlags,x
|
sta OutputFlags,x
|
||||||
@ -168,7 +168,7 @@ GetByte:
|
|||||||
sta OutputFlags,x
|
sta OutputFlags,x
|
||||||
waitRead:
|
waitRead:
|
||||||
lda InputFlags,x
|
lda InputFlags,x
|
||||||
ror
|
rol
|
||||||
bcs waitRead
|
bcs waitRead
|
||||||
lda InputByte
|
lda InputByte
|
||||||
pha
|
pha
|
||||||
@ -176,7 +176,7 @@ waitRead:
|
|||||||
sta OutputFlags,x
|
sta OutputFlags,x
|
||||||
finishRead:
|
finishRead:
|
||||||
lda InputFlags,x
|
lda InputFlags,x
|
||||||
ror
|
rol
|
||||||
bcc finishRead
|
bcc finishRead
|
||||||
pla
|
pla
|
||||||
end:
|
end:
|
||||||
|
Binary file not shown.
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user