support RAM disk on GS

This commit is contained in:
Peter Ferrie 2017-08-07 16:16:33 -07:00
parent 0c7384b9fc
commit 469cb2c380
2 changed files with 16 additions and 17 deletions

View File

@ -93,7 +93,6 @@ ScanForRAMDisk
lsr lsr
lsr lsr
lsr lsr
sta .driverbase+1
lsr lsr
tay tay
pla pla
@ -112,23 +111,21 @@ ScanForRAMDisk
cmp #$0F cmp #$0F
bne - bne -
.driverbase ;check for RAM[x] by name
ldx #$d1
lda $BF11,x
sta .drivercode+2
and #$f0
cmp #$c0
bne +
;RAMFactor detection
;looks like a SmartPort device
.drivercode
lda $d100
cmp #$c9
bne -
ldy OnlineReturn
cpy #4
beq +
cpy #6
bcs -
dey
+ +
-- lda SlashRAM-1,y
cmp VolumeName-1,y
bne -
dey
bne --
;check free space ;check free space
;need at least $118 blocks ;need at least $118 blocks
@ -147,4 +144,6 @@ ScanForRAMDisk
sta gUsingRAMDisk sta gUsingRAMDisk
.done .done
rts rts
SlashRAM !byte $2F, $52, $41, $4D
} }

View File

@ -222,7 +222,7 @@ StringTable
; can be set directly before calling PrintByID. ; can be set directly before calling PrintByID.
; ;
.header .header
!text "Passport by 4am 2017-08-03",$00 !text "Passport by 4am 2017-08-07",$00
.mainmenu .mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " " !text " "