Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-09-28 17:43:38 +02:00
parent 25489c3343
commit 8876cb40ff
9 changed files with 11 additions and 11 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

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

View File

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

View File

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

View File

@ -110,6 +110,7 @@ D2MoveHead >PULLB MoveTo
and #6
ora Slotn0
bcc .4
* move out : invert 2 phases

View File

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

View File

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