more 5-5-5 work

This commit is contained in:
Peter Ferrie
2021-06-25 15:45:55 -07:00
parent 36b90a6070
commit 48ee3499dc
3 changed files with 116 additions and 40 deletions

View File

@@ -24,13 +24,26 @@
!byte $90,$EF ; BCC *-$0F !byte $90,$EF ; BCC *-$0F
bcc .exit ; passport-test-suite/Jumpman.woz [C=0] matches bcc .exit ; passport-test-suite/Jumpman.woz [C=0] matches
lda #8 lda #8
ldx #1
ldy #18 ldy #18
jsr SearchSector jsr CompareMemory
!byte $4C,$76,$08 ; JMP $0876 !byte $4C,$76,$08 ; JMP $0876
!byte $00,$03,$05 !byte $00,$03,$05
!byte $07,$09,$0B !byte $07,$09,$0B
!byte $0D,$0F,$02 !byte $0D,$0F,$02
!byte $04,$06,$08 !byte $04,$06,$08
!byte $0A,$0C,$0E !byte $0A,$0C,$0E
bcc .exit
lda #8
ldx #1
ldy #19
jsr CompareMemory
!byte $4C,$7A,$08 ; JMP $087A
!byte $00,$00,$03
!byte $05,$07,$09
!byte $0B,$0D,$0F
!byte $02,$04,$06
!byte $08,$0A,$0C
!byte $0E
.exit .exit
} }

View File

@@ -10,6 +10,7 @@
; - Adventure Double Feature Vol. II ; - Adventure Double Feature Vol. II
; - Agent USA ; - Agent USA
; - Algebra ; - Algebra
; - Bugbyter
; - Bumble Games v1.3 ; - Bumble Games v1.3
; - Bumble Games v1.4 ; - Bumble Games v1.4
; - Bumble Plot v1.1 ; - Bumble Plot v1.1
@@ -24,6 +25,7 @@
; - Jumble Jet ; - Jumble Jet
; - Jumpman ; - Jumpman
; - L.A. Land Monopoly ; - L.A. Land Monopoly
; - Lazersilk
; - Microzine 3 ; - Microzine 3
; - Microzine 4 ; - Microzine 4
; - Microzine 5 ; - Microzine 5
@@ -32,9 +34,12 @@
; - Number Stumper ; - Number Stumper
; - Reader Rabbit v1.0 ; - Reader Rabbit v1.0
; - Rocky's Boots v1.0 ; - Rocky's Boots v1.0
; - Supermap
; - Tales of Discovery ; - Tales of Discovery
; - Temple of Apshai ; - Temple of Apshai
; - The Game Show
; - Trap-a-Zoid ; - Trap-a-Zoid
; - Zenith
;------------------------------- ;-------------------------------
!zone { !zone {
jmp .exit2 ; reachable only via inspect jmp .exit2 ; reachable only via inspect
@@ -45,6 +50,8 @@ Do555
lda $802 lda $802
cmp #$76 cmp #$76
beq .setfixed beq .setfixed
cmp #$7A
beq .setfixed2
lda #8 lda #8
ldy #3 ldy #3
@@ -89,6 +96,9 @@ Do555
.setfixed .setfixed
lda #1 lda #1
!byte $2C
.setfixed2
lda #3
sta .curtrk+1 sta .curtrk+1
lda #$FF lda #$FF
sta .cmpsect+1 sta .cmpsect+1
@@ -262,13 +272,19 @@ Do555
tax tax
cmp .patch cmp .patch
beq .inctrack beq .inctrack
bcs .walkcode
lda $800,x lda $800,x
bcs .checkinc
cmp #$20 ; JSR cmp #$20 ; JSR
bne .skipjsr2 bne .skipjsr2
lda $801,x lda $801,x
cmp .patch cmp .patch
bne .skipjsr2 bne .skipjsr2
beq .inctrack
.checkinc
cmp #$A9
bne .walkcode
inc .curtrk+1
.inctrack .inctrack
inc .curtrk+1 inc .curtrk+1
@@ -359,12 +375,10 @@ Do555
jsr compare jsr compare
!byte $20,$76,$08 ;JSR $0876 !byte $20,$76,$08 ;JSR $0876
bcs .notfixed bcs .notfixed
ldy #1 jsr modify1
jsr modify
!byte $2C ;BIT !byte $2C ;BIT
ldx #$64 ldx #$64
ldy #3 jsr modify3
jsr modify
!byte $20,$76,$08 ;JSR $0876 !byte $20,$76,$08 ;JSR $0876
.notfixed .notfixed
@@ -395,13 +409,43 @@ Do555
bne .writesectors bne .writesectors
ldx (BASEPAGE*256)+2 ldx (BASEPAGE*256)+2
cpx #$76 cpx #$76
bne .writesectors bne .checkfixed2
lda #0 lda #0
ldx #$B2 ldx #$B2
ldy #1 jsr modify1
jsr modify
!byte 1 !byte 1
.checkfixed2
ldx (BASEPAGE*256)+2
cpx #$7A
bne .writesectors
lda #0
ldx #$16
ldy #4
jsr modify
!byte $1A,$08
!byte $E6,$41 ; INC $41
lda #$0B
ldx #$0D
jsr modify1
!byte $EA
lda #$0B
ldx #$64
jsr modify1
!byte $2C ; BIT
lda #$0B
ldx #$86
ldy #4
jsr modify
!byte $8A,$04
!byte $E6,$41 ; INC $41
lda #$0B
ldx #$EA
ldy #6
jsr modify
!byte $20,$85,$04 ; JSR $0485
!byte $4C,$85,$04 ; JMP $0485
.writesectors .writesectors
jsr WriteTrackNA jsr WriteTrackNA
jsr IncProgress jsr IncProgress
@@ -494,26 +538,19 @@ Do555
.endsector .endsector
cpx #00 ; SMC cpx #00 ; SMC
bne .readsector bne .readsector
!byte $A9 ; mask CLC
.rescanpro
clc
php
ldy #12 ldy #12
jsr SearchTrack jsr SearchTrack
!byte $C9,$FF ; CMP #$FF !byte $C9,$FF ; CMP #$FF
!byte $D0,$0A ; BNE *+$0C !byte $D0,WILDCARD ; BNE *+$xx
!byte $EA ; NOP !byte $EA ; NOP
!byte $BD,$8C,$C0 ; LDA $C08C,X !byte $BD,$8C,$C0 ; LDA $C08C,X
!byte $10,$FB ; BPL *-3 !byte $10,$FB ; BPL *-3
!byte $C9,$FF ; CMP #$FF !byte $C9,$FF ; CMP #$FF
bcc .patchepi bcs .notadrpro
ldy #9
jsr SearchTrack
!byte $AC,$9F,$05 ; LDY $059F
!byte $C8 ; INY
!byte $C8 ; INY
!byte $98 ; TYA
!byte $20,$19,$05 ; JSR $0519
bcc .patchrocky
rts
.patchepi
inx inx
pha pha
jsr modify1 jsr modify1
@@ -523,24 +560,30 @@ Do555
adc #10 adc #10
tax tax
pla pla
pha
jsr modify1 jsr modify1
!byte $AA !byte $AA
plp
bcs .rescanpro
!byte $A9 ; mask PLP
.notadrpro
plp
ldy #9
jsr SearchTrack
!byte $BD,$8C,$C0 ; LDA $C08C,X
!byte $10,$FB ; BPL *-3
!byte $C9,$FF ; CMP #$FF
!byte $F0,$02 ; BEQ *+4
bcs .notadrepi
pha
txa txa
clc adc #6
adc #$52
tax tax
pla pla
pha
jsr modify1 jsr modify1
!byte $DE !byte $DE
txa
clc .notadrepi
adc #10
tax
pla
jsr modify1
!byte $AA
ldy #8 ldy #8
jsr SearchTrack jsr SearchTrack
!byte $A9,$20 ; LDA #$20 !byte $A9,$20 ; LDA #$20
@@ -554,6 +597,26 @@ Do555
jsr modify1 jsr modify1
!byte $00 !byte $00
.novol .novol
ldy #9
jsr SearchTrack
!byte $AC,$9F,$05 ; LDY $059F
!byte $C8 ; INY
!byte $C8 ; INY
!byte $98 ; TYA
!byte $20,$19,$05 ; JSR $0519
bcc .patchrocky
ldy #5
jsr SearchTrack
!byte $20,$87,$07 ; JSR $0787
!byte $A6,$2B ; LDX $2B
bcs .notfixed2
ldy #5
jsr modify
!byte $20,$89,$07 ; JSR $0789
!byte $E6,$41 ; INC $41
.notfixed2
rts rts
.patchrocky .patchrocky

View File

@@ -341,7 +341,7 @@ StringTableHigh
.passport .passport
!text "Passport ",$00 !text "Passport ",$00
.header .header
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-21",$00 !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-25",$00
.bar9 .bar9
!text "_________",$00 !text "_________",$00
.bar18 .bar18