Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-20 03:31:42 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.9 : Try other SSCs if ping failed (useful if ADTPro is connected to //c port #2)

Browse Source
This commit is contained in:
Rémy GIBERT 2017-02-18 23:21:43 +01:00
parent 245a6e7711
commit 1cfa4f8122
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
SYS/KM.VSDRIVE.S.txt
View File

@ -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