mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
43 lines
1.1 KiB
Plaintext
43 lines
1.1 KiB
Plaintext
;-------------------------------
|
|
; #PRODOS6A
|
|
; disk allows either $D4 or $D5 for the
|
|
; first address prologue nibble
|
|
; (no patches required, but we want to
|
|
; log it and pretend we patched something
|
|
; so we get a nice CRACK COMPLETE message)
|
|
;-------------------------------
|
|
!zone {
|
|
; gIsProDOS is TRUE here
|
|
|
|
lda #$0F
|
|
sta .sector+1
|
|
.sector lda #$FF ; modified at runtime
|
|
ldx #$A5
|
|
ldy #$08
|
|
jsr compare
|
|
!byte $BD,$8C,$C0
|
|
!byte $10,$FB
|
|
!byte $4A
|
|
!byte $C9,$6A
|
|
bcs + ; passport-test-suite/Investigating Plant Growth.woz [C=0] matches
|
|
jsr PrintByID
|
|
!byte s_lsr6a
|
|
inc gPatchCount
|
|
+
|
|
ldx #$EF
|
|
dey
|
|
jsr compare
|
|
!byte $48
|
|
!byte $68
|
|
!byte $BD,$8C,$C0
|
|
!byte $C9,$08
|
|
bcs .nextsector ; passport-test-suite/Investigating Plant Growth.woz [C=0] matches
|
|
jsr PrintByID
|
|
!byte s_bcs08
|
|
inc gPatchCount
|
|
.nextsector
|
|
dec .sector+1
|
|
bpl .sector
|
|
.exit
|
|
}
|