2017-12-13 00:21:15 +00:00
|
|
|
;-------------------------------
|
|
|
|
; #T11DISKVOL
|
|
|
|
; capture disk volume number after reading T11,S00
|
|
|
|
;-------------------------------
|
|
|
|
!zone {
|
|
|
|
lda gTrack
|
|
|
|
cmp #$11
|
|
|
|
bne .exit
|
|
|
|
lda gTriedUniv
|
|
|
|
beq .exit
|
2019-04-03 19:19:11 +00:00
|
|
|
lda gIsPanglosDOS
|
|
|
|
beq .yes
|
2017-12-13 00:21:15 +00:00
|
|
|
lda jCallRWTS+2; #$3D or #$BD
|
|
|
|
sec
|
|
|
|
sbc #$04 ; #$39 or #$B9
|
|
|
|
ldx #$80
|
|
|
|
ldy #$03
|
|
|
|
jsr CompareMemory
|
|
|
|
!byte $99,$2C,$00; STA $002C,Y
|
|
|
|
bcs .exit
|
2019-04-03 19:19:11 +00:00
|
|
|
.yes
|
2017-12-13 00:21:15 +00:00
|
|
|
lda $2F ; disk volume number of last sector read
|
|
|
|
sta gDiskVolumeNumber
|
|
|
|
lda #TRUE
|
|
|
|
sta gCapturedDiskVolumeNumber
|
|
|
|
.exit
|
|
|
|
}
|