zjkuki/Apple2-IO-RPi
1
0
Fork 0
forked from Apple-2-HW/Apple2-IO-RPi
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix page error in command

Browse Source
This commit is contained in:
Terence Boldt 2021-03-28 11:34:07 -04:00
parent 6576395b3f
commit cf9ff791fc
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Apple2/CommandFirmware.asm
View File

@ -51,7 +51,7 @@ Start:
lda #$a4 lda #$a4
sta $33 sta $33
GetCommand: GetCommand:
jsr $fd6a jsr $fd67
lda $0200 lda $0200
cmp #$8d ;stop when return found cmp #$8d ;stop when return found
beq ExitApp beq ExitApp
@ -66,7 +66,6 @@ ExitApp:
rts rts
DumpOutput: DumpOutput:
ldx #$50
lda #$05 ;send command 5 = exec lda #$05 ;send command 5 = exec
jsr SendByte jsr SendByte
ldy #$00 ldy #$00
@ -100,19 +99,19 @@ waitWrite:
bcs waitWrite bcs waitWrite
pla pla
sta OutputByte sta OutputByte
lda #$0e ; set bit 0 low to indicate write started lda #$1e ; set bit 0 low to indicate write started
sta OutputFlags sta OutputFlags
finishWrite: finishWrite:
lda InputFlags lda InputFlags
rol rol
rol rol
bcc finishWrite bcc finishWrite
lda #$0f lda #$1f
sta OutputFlags sta OutputFlags
rts rts
GetByte: GetByte:
lda #$0d ;set read flag low lda #$1d ;set read flag low
sta OutputFlags sta OutputFlags
waitRead: waitRead:
lda InputFlags lda InputFlags
@ -120,7 +119,7 @@ waitRead:
bcs waitRead bcs waitRead
lda InputByte lda InputByte
pha pha
lda #$0f ;set all flags high lda #$1f ;set all flags high
sta OutputFlags sta OutputFlags
finishRead: finishRead:
lda InputFlags lda InputFlags