mirror of
https://github.com/a2-4am/passport.git
synced 2024-12-22 19:30:50 +00:00
Merge pull request #22 from peterferrie/master
Add support for Optimum Resource disks
This commit is contained in:
4am
GitHub
commit
3b13fabc99
@ -8,72 +8,76 @@
|
|||||||
;-------------------------------
|
;-------------------------------
|
||||||
!zone {
|
!zone {
|
||||||
lda gIsOptimum
|
lda gIsOptimum
|
||||||
bne .jmpexit1
|
bne .jmpexit
|
||||||
|
ldx gTrack
|
||||||
|
beq .jmptrack0
|
||||||
|
dex
|
||||||
|
beq .dotrack1
|
||||||
ldy #15
|
ldy #15
|
||||||
jsr SearchTrack
|
jsr SearchTrack
|
||||||
!byte $A2,$00 ;LDX #$00
|
!byte $A2,$00 ;LDX #$00
|
||||||
!byte $A0,$00 ;LDY #$00
|
!byte $A0,$00 ;LDY #$00
|
||||||
!byte $BD,WILDCARD,$03 ;LDA $03xx,X
|
!byte $BD,WILDCARD,WILDCARD ;LDA $xxxx,X
|
||||||
!byte $E8 ;INX
|
!byte $E8 ;INX
|
||||||
!byte $85,WILDCARD ;STA $xx
|
!byte $85,WILDCARD ;STA $xx
|
||||||
!byte $BD,WILDCARD,$03 ;LDA $03xx,X
|
!byte $BD,WILDCARD,WILDCARD ;LDA $xxxx,X
|
||||||
!byte $E8 ;INX
|
!byte $E8 ;INX
|
||||||
!byte $85 ;STA $xx
|
!byte $85 ;STA $xx
|
||||||
bcc +
|
bcs .jmpexit
|
||||||
lda gTrack
|
tay
|
||||||
beq .jmpreread
|
adc #BASEPAGE-1
|
||||||
|
pha
|
||||||
|
tya
|
||||||
|
ldy #$01
|
||||||
|
jsr modify
|
||||||
|
!byte $60 ;RTS
|
||||||
|
pla
|
||||||
|
|
||||||
.jmpexit1
|
;find reference to T01 S0F
|
||||||
|
|
||||||
|
ldy #6
|
||||||
|
jsr SearchSector
|
||||||
|
!byte $01,$60,$01,$00,$01,$0F
|
||||||
|
bcs .jmpexit
|
||||||
|
adc #BASEPAGE
|
||||||
|
sta .iob+2
|
||||||
|
|
||||||
|
;save for later...
|
||||||
|
|
||||||
|
.iob
|
||||||
|
lda $D109,X
|
||||||
|
sta .address+1
|
||||||
|
|
||||||
|
.jmpexit
|
||||||
jmp .exit
|
jmp .exit
|
||||||
|
|
||||||
.jmpreread
|
.jmptrack0
|
||||||
jmp .reread1
|
jmp .dotrack0
|
||||||
|
|
||||||
+ pha
|
.retrycount
|
||||||
adc #BASEPAGE
|
!byte $D1
|
||||||
sta .swapbase2+2
|
|
||||||
tay
|
|
||||||
sbc #0
|
|
||||||
sta .swapbase1+1
|
|
||||||
txa
|
|
||||||
pha
|
|
||||||
dey
|
|
||||||
sty .swapbase5+2
|
|
||||||
|
|
||||||
.swapbase1
|
.badread
|
||||||
lda #$D1
|
lda #s_optbad ; say read failure
|
||||||
ldy #5
|
jsr PrintByID
|
||||||
jsr SearchSector
|
jmp .exit
|
||||||
!byte $00,$07,$08,$09,$01
|
|
||||||
bcs .notable
|
|
||||||
txa
|
|
||||||
sbc #($96+$17)
|
|
||||||
sta .swapbase3+1
|
|
||||||
sta .swapbase4+1
|
|
||||||
lda .swapbase1+1
|
|
||||||
sbc #0
|
|
||||||
sta .swapbase3+2
|
|
||||||
sta .swapbase4+2
|
|
||||||
ldy #0
|
|
||||||
-
|
|
||||||
.swapbase2
|
|
||||||
lda $D100,y
|
|
||||||
sta $2D8,y
|
|
||||||
iny
|
|
||||||
bne -
|
|
||||||
|
|
||||||
lda #2
|
.dotrack1
|
||||||
|
lda #3
|
||||||
sta .retrycount
|
sta .retrycount
|
||||||
|
|
||||||
lda gTrack
|
|
||||||
pha
|
|
||||||
lda #1
|
|
||||||
sta gTrack
|
|
||||||
|
|
||||||
;disable decoding because using the real version
|
|
||||||
;would corrupt the text screen
|
|
||||||
|
|
||||||
.retry
|
.retry
|
||||||
|
dec .retrycount
|
||||||
|
beq .badread
|
||||||
|
|
||||||
|
;disable decoding, requires custom handling
|
||||||
|
|
||||||
|
+ lda #$4C
|
||||||
|
sta $B8F6
|
||||||
|
lda #<.readcallback
|
||||||
|
sta $B8F7
|
||||||
|
lda #>.readcallback
|
||||||
|
sta $B8F8
|
||||||
lda #$2C
|
lda #$2C
|
||||||
sta $BE40
|
sta $BE40
|
||||||
|
|
||||||
@ -81,52 +85,43 @@
|
|||||||
|
|
||||||
ldy #<gRWTSParams
|
ldy #<gRWTSParams
|
||||||
lda #>gRWTSParams
|
lda #>gRWTSParams
|
||||||
|
jsr $BD00
|
||||||
|
|
||||||
;special case check
|
|
||||||
|
|
||||||
ldx $2E2
|
|
||||||
cpx #$48 ;PHA
|
|
||||||
beq +
|
|
||||||
jsr $2FC
|
|
||||||
jmp ++
|
|
||||||
|
|
||||||
;regular dispatch
|
|
||||||
+
|
|
||||||
jsr $2E2
|
|
||||||
|
|
||||||
++
|
|
||||||
;re-enable decoding
|
;re-enable decoding
|
||||||
|
|
||||||
|
lda #$BD
|
||||||
|
sta $B8F6
|
||||||
|
lda #$8C
|
||||||
|
sta $B8F7
|
||||||
|
lda #$C0
|
||||||
|
sta $B8F8
|
||||||
lda #$20
|
lda #$20
|
||||||
sta $BE40
|
sta $BE40
|
||||||
|
|
||||||
;detect read failure
|
;detect read failure
|
||||||
|
|
||||||
bcc +
|
bcs .retry
|
||||||
dec .retrycount
|
|
||||||
bne .retry
|
|
||||||
lda #s_optbad ; say read failure
|
|
||||||
jsr PrintByID ; but can't quit from here
|
|
||||||
pla
|
|
||||||
sta gTrack
|
|
||||||
.notable
|
|
||||||
pla
|
|
||||||
pla
|
|
||||||
jmp .exit
|
|
||||||
|
|
||||||
|
;detect write-protect
|
||||||
|
;work around OE issue
|
||||||
|
|
||||||
|
ldx gRWTSParams+1
|
||||||
|
lda $C08D,x
|
||||||
|
lda $C08E,x
|
||||||
|
bpl +
|
||||||
|
ldx $BB00
|
||||||
|
ldy #1
|
||||||
|
- lda $BB00,y
|
||||||
|
sta $BAFF,y
|
||||||
|
iny
|
||||||
|
bne -
|
||||||
|
ldy #$54
|
||||||
|
- lda $BC00,y
|
||||||
|
sta $BC01,y
|
||||||
|
dey
|
||||||
|
bpl -
|
||||||
|
stx $BC00
|
||||||
+
|
+
|
||||||
pla
|
|
||||||
sta gTrack
|
|
||||||
|
|
||||||
;disable redirection
|
|
||||||
|
|
||||||
pla
|
|
||||||
tax
|
|
||||||
pla
|
|
||||||
ldy #$01
|
|
||||||
jsr modify
|
|
||||||
!byte $60 ;RTS
|
|
||||||
|
|
||||||
;decode and stash content
|
;decode and stash content
|
||||||
|
|
||||||
lda #$BC
|
lda #$BC
|
||||||
@ -141,8 +136,7 @@
|
|||||||
-
|
-
|
||||||
.tblsel1
|
.tblsel1
|
||||||
ldx $D100,y
|
ldx $D100,y
|
||||||
.swapbase3
|
lda .xlattbl-($96+$16),x
|
||||||
lda $D1D1,x
|
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
@ -152,7 +146,7 @@
|
|||||||
.tblsel2
|
.tblsel2
|
||||||
ldx $D100,y
|
ldx $D100,y
|
||||||
.swapbase4
|
.swapbase4
|
||||||
ora $D1D1,x
|
ora .xlattbl-($96+$16),x
|
||||||
sty $2C
|
sty $2C
|
||||||
ldy $26
|
ldy $26
|
||||||
sta $300,y
|
sta $300,y
|
||||||
@ -171,36 +165,56 @@
|
|||||||
ldx $26
|
ldx $26
|
||||||
inx
|
inx
|
||||||
bne -
|
bne -
|
||||||
|
|
||||||
;read IOB with replaced page
|
|
||||||
|
|
||||||
.swapbase5
|
|
||||||
lda $D16D,x
|
|
||||||
sta .address+1
|
|
||||||
|
|
||||||
lda gTrack
|
|
||||||
beq .reread1
|
|
||||||
|
|
||||||
.jmpexit2
|
|
||||||
jmp .exit
|
jmp .exit
|
||||||
|
|
||||||
.retrycount
|
.readnib
|
||||||
!byte $D1
|
- lda $C08C,x
|
||||||
|
bpl -
|
||||||
|
rts
|
||||||
|
|
||||||
|
.readcallback
|
||||||
|
- jsr .readnib
|
||||||
|
sta $C08D,x
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
- jsr .readnib
|
||||||
|
dey
|
||||||
|
sta $BC00,y
|
||||||
|
bne -
|
||||||
|
- jsr .readnib
|
||||||
|
sta $BB00,y
|
||||||
|
iny
|
||||||
|
bne -
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
.xlattbl
|
||||||
|
!byte $00,$01,$00,$07,$08,$09,$01,$02
|
||||||
|
!byte $02,$00,$01,$06,$04,$03,$04,$03
|
||||||
|
!byte $05,$05,$00,$02,$01,$0A,$07,$0E
|
||||||
|
!byte $05,$02,$01,$06,$07,$03,$00,$02
|
||||||
|
!byte $05,$0B,$04,$0F,$00,$07,$0A,$01
|
||||||
|
!byte $02,$03,$00,$0C,$0C,$06,$07,$05
|
||||||
|
!byte $08,$06,$02,$04,$01,$00,$08,$0A
|
||||||
|
!byte $03,$0E,$00,$01,$07,$09,$0A,$05
|
||||||
|
!byte $0B,$02,$05,$10,$03,$04,$0C,$06
|
||||||
|
!byte $0D,$01,$0F,$06,$05,$0E,$0F,$0B
|
||||||
|
!byte $11,$02,$00,$09
|
||||||
|
|
||||||
;track 0, find the region with replaced page
|
;track 0, find the region with replaced page
|
||||||
|
|
||||||
.reread1
|
.dotrack0
|
||||||
|
lda #s_construct
|
||||||
|
jsr PrintByID
|
||||||
ldy #8
|
ldy #8
|
||||||
jsr SearchTrack
|
jsr SearchTrack
|
||||||
!byte $20,$5D,$B6 ;JSR $B65D
|
!byte $20,$5D,$B6 ;JSR $B65D
|
||||||
!byte WILDCARD, WILDCARD
|
!byte $01,$0E ;track 1, sector #$0E
|
||||||
!byte $00,$08,$18 ;address, count
|
!byte $00,$08,$18 ;address, count
|
||||||
bcs .jmpexit2 ;give up
|
bcs .exit ;give up
|
||||||
adc #BASEPAGE
|
adc #BASEPAGE
|
||||||
sta .patch1+2
|
sta .patch1+2
|
||||||
sta .patch2+2
|
sta .patch2+2
|
||||||
lda #s_construct
|
|
||||||
jsr PrintByID
|
|
||||||
|
|
||||||
;convert address to track/sector
|
;convert address to track/sector
|
||||||
|
|
||||||
@ -270,6 +284,7 @@
|
|||||||
|
|
||||||
;restore original disk location
|
;restore original disk location
|
||||||
|
|
||||||
|
.restore
|
||||||
dec gTrack ; #0
|
dec gTrack ; #0
|
||||||
lda #$0F
|
lda #$0F
|
||||||
sta gSector
|
sta gSector
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user