Apple-2-SW
/
qboot
mirror of https://github.com/peterferrie/qboot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix label names

This commit is contained in:
Peter Ferrie 2016-05-31 13:38:08 -07:00
parent e916e1df97
commit 0b22b051a4
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
QBOOT.S
View File

@ -239,23 +239,23 @@ read
beq read beq read
sta sector+1 ;store index for later sta sector+1 ;store index for later
!if zpread { !if zpread {
stx adrpatchx6+2 stx adrpatch9+2
dex dex
} }
stx adrpatchx5+2 stx adrpatch1+2
stx adrpatch6+2 stx adrpatch8+2
stx adrpatchx1+2 stx adrpatch2+2
stx adrpatchx2+2
stx adrpatchx3+2
stx adrpatchx4+2
!if !zpread {
inx
stx adrpatchx6+2
dex
}
dex
stx adrpatch3+2 stx adrpatch3+2
stx adrpatch5+2 stx adrpatch5+2
stx adrpatch7+2
!if !zpread {
inx
stx adrpatch9+2
dex
}
dex
stx adrpatch4+2
stx adrpatch6+2
!if stkread { !if stkread {
inx inx
!if zpread { !if zpread {
@ -263,7 +263,7 @@ read
} }
} }
ldy #$fe ldy #$fe
adrpatchx5 adrpatch1
- lda $d102, y - lda $d102, y
pha pha
iny iny
@ -280,7 +280,7 @@ slotpatch2
- ldx $c0d1 - ldx $c0d1
bpl - bpl -
lda preshift-$96, x lda preshift-$96, x
adrpatchx1 adrpatch2
sta $d102, y ;store 2-bit array sta $d102, y ;store 2-bit array
tmpval tmpval
@ -292,10 +292,10 @@ slotpatch3
- ldx $c0d1 - ldx $c0d1
bpl - bpl -
eor preshift-$96, x eor preshift-$96, x
adrpatchx2 adrpatch3
ldx $d102, y ;bit2tbl ldx $d102, y ;bit2tbl
eor grouped+2, x ;first 86 nibbles use group bits 0-1 eor grouped+2, x ;first 86 nibbles use group bits 0-1
adrpatch3 adrpatch4
sta $d156, y sta $d156, y
iny iny
bne - bne -
@ -305,10 +305,10 @@ slotpatch4
- ldx $c0d1 - ldx $c0d1
bpl - bpl -
eor preshift-$96, x eor preshift-$96, x
adrpatchx3 adrpatch5
ldx $d102, y ;bit2tbl ldx $d102, y ;bit2tbl
eor grouped+1, x ;second 86 nibbles use group bits 2-3 eor grouped+1, x ;second 86 nibbles use group bits 2-3
adrpatch5 adrpatch6
sta $d1ac, y sta $d1ac, y
iny iny
bne - bne -
@ -318,10 +318,10 @@ slotpatch5
- ldy $c0d1 - ldy $c0d1
bpl - bpl -
eor preshift-$96, y eor preshift-$96, y
adrpatchx4 adrpatch7
ldy $d100, x ;bit2tbl ldy $d100, x ;bit2tbl
eor grouped, y ;last 84 nibbles use group bits 4-5 eor grouped, y ;last 84 nibbles use group bits 4-5
adrpatch6 adrpatch8
sta $d100, x sta $d100, x
inx inx
bne - bne -
@ -333,7 +333,7 @@ slotpatch6
cmp #1 ;carry = !zero cmp #1 ;carry = !zero
ldy #1 ldy #1
- pla - pla
adrpatchx6 adrpatch9
sta $d100, y sta $d100, y
dey dey
bpl - bpl -