mirror of
https://github.com/a2-4am/passport.git
synced 2024-10-04 02:59:26 +00:00
40 lines
902 B
Plaintext
40 lines
902 B
Plaintext
;-------------------------------
|
|
; #PanglosDOS
|
|
; RWTS with per-file encryption keys
|
|
;
|
|
; module by qkumba
|
|
;-------------------------------
|
|
!zone {
|
|
bit gMode ; nothing to do here in verify-only mode
|
|
bpl .exit
|
|
lda gIsPanglosDOS ; only if PanglossianDOS
|
|
bne .exit
|
|
ldy #6
|
|
jsr SearchTrack
|
|
!byte $C9,$AD ;CMP #$AD
|
|
!byte $D0,$E7 ;BNE *-$17
|
|
!byte $A5,$46 ;LDA $46
|
|
bcs .exit
|
|
inx
|
|
inx
|
|
inx
|
|
inx
|
|
ldy #$02
|
|
jsr modify
|
|
!byte $A9,$00 ;LDA #$00
|
|
ldy #6
|
|
jsr SearchTrack
|
|
!byte $C9,$96 ;CMP #$96
|
|
!byte $D0,$E7 ;BNE *-$17
|
|
!byte $A5,$46 ;LDA $46
|
|
bcs .exit
|
|
inx
|
|
inx
|
|
inx
|
|
inx
|
|
ldy #$02
|
|
jsr modify
|
|
!byte $A9,$00 ;LDA #$00
|
|
.exit
|
|
}
|