Change read/write flags to high bits

This commit is contained in:
Terence Boldt 2021-01-16 12:42:00 -05:00
parent daed9d2dd9
commit e1d78ba7a5
3 changed files with 6 additions and 6 deletions

View File

@ -147,8 +147,8 @@ SendByte:
pha
waitWrite:
lda InputFlags,x
ror
ror ;Second lowest bit goes low when ready
rol
rol
bcs waitWrite
pla
sta OutputByte,x
@ -156,8 +156,8 @@ waitWrite:
sta OutputFlags,x
finishWrite:
lda InputFlags,x
ror
ror
rol
rol
bcc finishWrite
lda #$0f
sta OutputFlags,x
@ -168,7 +168,7 @@ GetByte:
sta OutputFlags,x
waitRead:
lda InputFlags,x
ror
rol
bcs waitRead
lda InputByte
pha
@ -176,7 +176,7 @@ waitRead:
sta OutputFlags,x
finishRead:
lda InputFlags,x
ror
rol
bcc finishRead
pla
end:

Binary file not shown.

Binary file not shown.