mirror of https://github.com/a2-4am/passport.git
47 lines
1.2 KiB
Plaintext
Executable File
47 lines
1.2 KiB
Plaintext
Executable File
;-------------------------------
|
|
; #DISKVOL
|
|
; non-standard disk volume prevents
|
|
; DOS from loading
|
|
;-------------------------------
|
|
_diskvol
|
|
lda gIsRWTS ; if DOS 3.3 RWTS
|
|
bne diskvol_exit
|
|
lda #$01
|
|
ldx #$EE
|
|
ldy #$01
|
|
jsr compare ; and T00,S01,$EE ==
|
|
!byte $FB
|
|
bcs diskvol_exit
|
|
lda #$01
|
|
ldx #$FB
|
|
ldy #$04
|
|
jsr compare ; and T00,S01,$FB ==
|
|
!byte 00,01,$EF,$D8
|
|
bcs diskvol_exit
|
|
lda #$08
|
|
ldx #$10
|
|
ldy #$05
|
|
jsr compare ; and T00,S08,$10 ==
|
|
!byte $A0,03,$B1,$48,$48
|
|
bcs diskvol_exit
|
|
lda #$01
|
|
ldx #$EB
|
|
ldy #$01
|
|
jsr compare ; and T00,S01,$EB !=
|
|
!byte $FE
|
|
bcc diskvol_exit
|
|
lda #$01
|
|
ldx #$EB
|
|
ldy #$01
|
|
jsr compare ; and T00,S01,$EB !=
|
|
!byte 00
|
|
bcc diskvol_exit
|
|
lda #s_diskvol
|
|
jsr PrintByID
|
|
lda #$08
|
|
ldx #$12
|
|
ldy #$02
|
|
jsr modify ; then set T00,S08,$12 =
|
|
!byte $A9,00
|
|
diskvol_exit
|