mirror of
https://github.com/A2osX/A2osX.git
synced 2025-01-12 01:30:36 +00:00
Kernel 0.94
This commit is contained in:
parent
25489c3343
commit
8876cb40ff
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -110,6 +110,7 @@ D2MoveHead >PULLB MoveTo
|
||||
|
||||
and #6
|
||||
ora Slotn0
|
||||
|
||||
bcc .4
|
||||
|
||||
* move out : invert 2 phases
|
||||
|
@ -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
|
||||
*--------------------------------------
|
||||
|
@ -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
|
||||
*/--------------------------------------
|
||||
|
Loading…
x
Reference in New Issue
Block a user