mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
27 lines
629 B
Plaintext
27 lines
629 B
Plaintext
;-------------------------------
|
|
; #DAVIDSONFORTH
|
|
; bad block check of T22,S00
|
|
; implemented in FORTH
|
|
;
|
|
; tested on
|
|
; - Math Blaster Plus 1.6
|
|
; - Read N Roll 1.0
|
|
; - Read N Roll 1.1
|
|
; - Math and Me 1.0
|
|
;-------------------------------
|
|
!zone {
|
|
lda gIsDavidson
|
|
bne .exit
|
|
|
|
ldy #$08
|
|
jsr SearchTrack
|
|
!byte $08,$80,$00,$FD,$1C,$D1,$0D,$EC
|
|
bcs .exit ; passport-test-suite/Read 'N Roll.woz [C=0] matches
|
|
jsr PrintByID
|
|
!byte s_badblock
|
|
inx
|
|
jsr modify1
|
|
!byte $CC ; MLI CLOSE command (instead of BLOCKREAD)
|
|
.exit
|
|
}
|