diff --git a/.Floppies/A2OSX.BOOTHD.woz b/.Floppies/A2OSX.BOOTHD.woz index 3bdbaf52..f1f08b39 100644 Binary files a/.Floppies/A2OSX.BOOTHD.woz and b/.Floppies/A2OSX.BOOTHD.woz differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 0c445b93..dc86de0f 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 ad490f9c..6daafa32 100644 Binary files a/.Floppies/A2OSX.TEST.po and b/.Floppies/A2OSX.TEST.po differ diff --git a/BIN/FORMAT.S.txt b/BIN/FORMAT.S.txt index 0374dc31..e77c9ac0 100644 --- a/BIN/FORMAT.S.txt +++ b/BIN/FORMAT.S.txt @@ -197,11 +197,6 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus >LDYA L.MSG.OK >SYSCALL PutS - -* bit bVerify -* bpl .8 - -* jsr CS.RUN.LL.DISKII.V bcs .9 .8 >PUSHB DSSS0000 diff --git a/INC/IO.D2.I.txt b/INC/IO.D2.I.txt index 767ea077..3908ae5c 100644 --- a/INC/IO.D2.I.txt +++ b/INC/IO.D2.I.txt @@ -2,9 +2,9 @@ NEW AUTO 3,1 *-------------------------------------- IO.D2.SeekTimeR .EQ 160 LIBBLKDEV Recalibration -IO.D2.SeekTimeF .EQ 115 LIBBLKDEV Track Formatter -IO.D2.SeekTimeB .EQ 85 LIBBLKDEV Boot Block -IO.D2.SeekTimeP .EQ 60 ProDOS.FX initial +IO.D2.SeekTimeF .EQ 140 LIBBLKDEV Track Formatter +IO.D2.SeekTimeB .EQ 140 LIBBLKDEV Boot Block +IO.D2.SeekTimeP .EQ 70 ProDOS.FX initial IO.D2.SeekTimeI .EQ 20 ProDOS.FX increment -> until > 128 *-------------------------------------- IO.D2.Ph0Off .EQ $C080 diff --git a/LIB/LIBBLKDEV.S.BB.txt b/LIB/LIBBLKDEV.S.BB.txt index 2a0e4b14..c0130b02 100644 --- a/LIB/LIBBLKDEV.S.BB.txt +++ b/LIB/LIBBLKDEV.S.BB.txt @@ -343,6 +343,7 @@ BB.Seek lda BB.HdrTrk get track we're on and #6 ora BB.Slotn0 + bcc .4 * move out : invert 2 phases diff --git a/LIB/LIBBLKDEV.S.D2.txt b/LIB/LIBBLKDEV.S.D2.txt index 2be19251..a4b7ef29 100644 --- a/LIB/LIBBLKDEV.S.D2.txt +++ b/LIB/LIBBLKDEV.S.D2.txt @@ -110,6 +110,7 @@ D2MoveHead >PULLB MoveTo and #6 ora Slotn0 + bcc .4 * move out : invert 2 phases diff --git a/SYS/KERNEL.S.FS.txt b/SYS/KERNEL.S.FS.txt index 0a67afc5..8d7627c4 100644 --- a/SYS/KERNEL.S.FS.txt +++ b/SYS/KERNEL.S.FS.txt @@ -82,21 +82,24 @@ IO.WRITE.REG ldx #MLIWRITE >LDYA K.MLI.PARAMS+6 .9 -IO.WRITE.REG.RTS +*IO.WRITE.REG.RTS rts *-------------------------------------- FS.CLOSE.REG FS.CLOSE.DIR ldy #S.FD.REG.REF lda (pFD),y beq .1 + sta K.MLI.PARAMS+1 >MLICALL MLICLOSE - bcs IO.WRITE.REG.RTS +* bcs IO.WRITE.REG.RTS .1 ldy #S.FD.REG.IOBUF lda (pFD),y beq .2 + jsr K.FreeMem + .2 lda IO.hFD jmp K.FreeMem *-------------------------------------- diff --git a/SYS/KERNEL.S.MOUNT.txt b/SYS/KERNEL.S.MOUNT.txt index d488e349..6b5fdbf5 100644 --- a/SYS/KERNEL.S.MOUNT.txt +++ b/SYS/KERNEL.S.MOUNT.txt @@ -16,7 +16,7 @@ K.UMount rts *-------------------------------------- K.Online >PULLW K.MLI.PARAMS+2 - >PULLW K.MLI.PARAMS+1 + >PULLB K.MLI.PARAMS+1 >MLICALL MLIONLINE rts */--------------------------------------