diff --git a/SYS/KM.VSDRIVE.S.txt b/SYS/KM.VSDRIVE.S.txt index db0e671c..5e14b0ec 100644 --- a/SYS/KM.VSDRIVE.S.txt +++ b/SYS/KM.VSDRIVE.S.txt @@ -12,12 +12,12 @@ AUTO 6 .INB /A2OSX.DEV/INC/IO.I .INB /A2OSX.DEV/INC/MONITOR.I .INB /A2OSX.DEV/INC/PRODOS.I + .INB /A2OSX.DEV/INC/MLI.ERR.I + .INB /A2OSX.DEV/INC/COM.6551.I *-------------------------------------- TmpPtr1 .EQ $0 VS.CMD .EQ $C5 "E": Virtual Drive Command Envelope DRV.EntryPoint .EQ $BF41 -*-------------------------------------- - .INB DRV/X.SER.6551.S *-------------------------------------- VSDRIVE.Init >LDAXI VSDRIVE.MSG0 jsr PrintCStrAX @@ -29,6 +29,8 @@ VSDRIVE.Init >LDAXI VSDRIVE.MSG0 jsr PrintCStrAX rts + lda #$C1 + .1 jsr SSC.Detect bcc .2 @@ -50,6 +52,17 @@ VSDRIVE.Init >LDAXI VSDRIVE.MSG0 >LDAXI VSDRIVE.SRVKO jsr PrintCStrAX + + lda DRV+2 DRV.Slotn0 + lsr + lsr + lsr + lsr + ora #$C0 + inc + cmp #$C8 + bne .1 Go try next SSC.... + rts .3 >LDAXI VSDRIVE.SRVOK @@ -90,7 +103,6 @@ VSDRIVE.Check bit RRAMWRAMBNK2 rts *-------------------------------------- SSC.Detect stz TmpPtr1 - lda #$C1 sta TmpPtr1+1 .1 ldx #DEVSIG.Value-DEVSIG.Offset-1