mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
|
;-------------------------------
|
||
|
; #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
|