diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 58d96b72..cc86c8ed 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/ProDOS.FX/ProDOS.S.LDR.txt b/ProDOS.FX/ProDOS.S.LDR.txt index 5bcaedfb..30f97bf9 100644 --- a/ProDOS.FX/ProDOS.S.LDR.txt +++ b/ProDOS.FX/ProDOS.S.LDR.txt @@ -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