diff --git a/.Floppies/A2OSX.BOOT.po b/.Floppies/A2OSX.BOOT.po index 15655706..a35bf908 100644 Binary files a/.Floppies/A2OSX.BOOT.po and b/.Floppies/A2OSX.BOOT.po differ diff --git a/.Floppies/A2OSX.BOOT.woz b/.Floppies/A2OSX.BOOT.woz index 43ca9ea9..84fc01af 100644 Binary files a/.Floppies/A2OSX.BOOT.woz and b/.Floppies/A2OSX.BOOT.woz differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index dab8a4fa..4451b835 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.TEST.po b/.Floppies/A2OSX.TEST.po index 6cef8c2f..68b95107 100644 Binary files a/.Floppies/A2OSX.TEST.po and b/.Floppies/A2OSX.TEST.po differ diff --git a/ProDOS.FX/ProDOS.S.XRW.txt b/ProDOS.FX/ProDOS.S.XRW.txt index b2962ead..1dac1f51 100644 --- a/ProDOS.FX/ProDOS.S.XRW.txt +++ b/ProDOS.FX/ProDOS.S.XRW.txt @@ -862,20 +862,23 @@ XRW.Seek asl transform into 1/4 tracks .2 cmp #$fe ADEBUG - lda #$fe -.3 tax save move direction - +.3 bit #1 remember 1/4 or 2/4 + php clc adc XRW.CurrentTrack sta XRW.CurrentTrack jsr XRW.PhaseOn - lda #28 - jsr XRW.Wait100msA Trash X + lda #18 + plp + beq .4 + + lsr only 1/4 + +.4 jsr XRW.Wait100msA Trash X jsr XRW.AllPhaseOff @@ -885,10 +888,7 @@ XRW.Seek asl transform into 1/4 tracks lsr XRW.CurrentTrack rts -XRW.PhaseOn dex - bmi .1 - - pha +XRW.PhaseOn pha jsr .7 pla @@ -896,15 +896,6 @@ XRW.PhaseOn dex beq .8 inc - bra .7 - -.1 bit #1 1,3,5,7 ? - beq .7 - - pha - inc - jsr .7 - pla .7 and #6 mask for 0,2,4,6 ora A2L Slot $n0 diff --git a/SYS/KERNEL.S.DIRENT.txt b/SYS/KERNEL.S.DIRENT.txt index 66619852..82544181 100644 --- a/SYS/KERNEL.S.DIRENT.txt +++ b/SYS/KERNEL.S.DIRENT.txt @@ -93,7 +93,8 @@ K.ReadDir.ROOT ldy #S.FD.DIR.FC did we already returned something ? >MLICALL MLIONLINE bcs K.ReadDir.RTS - >LDYAI 16*16+16*S.STAT+1 16 (Vols+Stat) + \0 + >LDYAI 16*S.STAT+257 16 (Vols+Stat) + \0 + jsr K.ReadDir.GetBufYA bcs K.ReadDir.RTS