Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-04-05 10:39:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-29 13:33:33 +01:00
parent bf0aa5955c
commit e115340e9a
2 changed files with 35 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

53
ProDOS.FX/ProDOS.S.LDR.txt
View File

@ -600,13 +600,30 @@ LDR.AddExtraDevs
sta LDR.SlotIdx
.1 ldx LDR.SlotIdx
ldy LDR.SlotDevType-1,x
bne .8
lda LDR.SlotDevType-1,x
beq .8
lda LDR.SlotDevCnt-1,x
cmp #3
bcc .8
* pha
* lsr
* lsr
* lsr
* lsr
* ora #$30
* jsr LDR.PrintA
* pla
* pha
* and #$0F
* ora #$30
* jsr LDR.PrintA
* >DEBUG
* pla
jsr LDR.AddExtraSPDevs
.8 dec LDR.SlotIdx
@ -665,31 +682,31 @@ LDR.AddSPDevs jsr LDR.SetDevID setup the devid byte from attributes
lda LDR.SPStatus.Buf
beq LDR.AddExtraDevs.RTS no devices, so done.
sta LDR.DevCnt
* sta LDR.DevCnt
ldx LDR.SlotIdx
inc LDR.SlotDevType-1,x set as smartport
.3 inc LDR.SPStatus.U
*.3 inc LDR.SPStatus.U
jsr spvect call to get the device status
.HS 00 this is a status call
.DA LDR.SPStatus.P
bcs .7
* jsr spvect call to get the device status
* .HS 00 this is a status call
* .DA LDR.SPStatus.P
* bcs .7
* lda LDR.SPStatus.Buf
* bpl .7 not a block device
ldx LDR.SlotIdx
inc LDR.SlotDevCnt-1,x
* ldx LDR.SlotIdx
* inc LDR.SlotDevCnt-1,x
.7 dec LDR.DevCnt
bne .3
*.7 dec LDR.DevCnt
* bne .3
ldx LDR.SlotIdx
lda LDR.SlotDevCnt-1,x
beq LDR.AddBlkDevs.RTS
* ldx LDR.SlotIdx
* lda LDR.SlotDevCnt-1,x
* beq LDR.AddBlkDevs.RTS
sta LDR.SlotDevCnt-1,x
cmp #2 CC/CS, add 1 or 2 devs
*--------------------------------------
LDR.AddBlkDevs php how many drives (carry).
@ -762,8 +779,8 @@ LDR.AddExtraSPDevs
.1 jsr spvect do status call
.HS 00
.DA LDR.SPStatus.P
* lda LDR.SPStatus.Buf is this a block device?
* bpl .2
lda LDR.SPStatus.Buf is this a block device?
bpl .2
jsr LDR.MountSPDevs
bcs .8