mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-25 18:29:36 +00:00
Kernel 0.94
This commit is contained in:
parent
10bc1cd9fc
commit
8f0b70f4e0
|
@ -243,17 +243,17 @@ As part of the 0.94 release, ProDOS FX has been enhanced with a completely new 5
|
||||||
|
|
||||||
|Drive | Base|Switches|Extended| Format<br>Test |Read/Write<br>Test|Boot<br>Test|
|
|Drive | Base|Switches|Extended| Format<br>Test |Read/Write<br>Test|Boot<br>Test|
|
||||||
|-|-|-|-|-|-|-|
|
|-|-|-|-|-|-|-|
|
||||||
|Disk ][ | 140K| -H |188K| - |-|-|
|
|Disk ][ | 140K| -H |192K| - |-|-|
|
||||||
|AM104| 140K|-H|188K| - |-|-|
|
|AM104| 140K|-H|192K| - |-|-|
|
||||||
|AM107| 140K|-H|188K| - |-|-|
|
|AM107| 140K|-H|192K| - |-|-|
|
||||||
|DuoDisk |140K|-H|188K| - |-|-|
|
|DuoDisk |140K|-H|192K| - |-|-|
|
||||||
|FD-100| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K| - |-|-|
|
|FD-100| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K| - |-|-|
|
||||||
|Disk //c internal | 140K| -H |188K| - |-|-|
|
|Disk //c internal | 140K| -H |192K| - |-|-|
|
||||||
|Disk //c external | 140K| -H |188K| - |-|-|
|
|Disk //c external | 140K| -H |192K| - |-|-|
|
||||||
|Rana I | 140K| -H |188K| - |-|-|
|
|Rana I | 140K| -H |192K| - |-|-|
|
||||||
|Rana II| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K| - |-|-|
|
|Rana II| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K| - |-|-|
|
||||||
|Rana III| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K| - |-|-|
|
|Rana III| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K| - |-|-|
|
||||||
|AE 5.25| 140K|-H<br> -X<br>-H -X |188K<br>160K<br>216K| - |-|-|
|
|AE 5.25| 140K|-H<br> -X<br>-H -X |192K<br>160K<br>216K| - |-|-|
|
||||||
|
|
||||||
### GREP
|
### GREP
|
||||||
|
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -198,10 +198,10 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL PutS
|
>SYSCALL PutS
|
||||||
|
|
||||||
bit bVerify
|
* bit bVerify
|
||||||
bpl .8
|
* bpl .8
|
||||||
|
|
||||||
jsr CS.RUN.LL.DISKII.V
|
* jsr CS.RUN.LL.DISKII.V
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.8 >PUSHB DSSS0000
|
.8 >PUSHB DSSS0000
|
||||||
|
@ -702,7 +702,7 @@ hLIBBLKDEV .BS 1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.USAGE1 .AS "Usage : FORMAT <BLOCKDEV> [VOL.NAME]\r\n"
|
MSG.USAGE1 .AS "Usage : FORMAT <BLOCKDEV> [VOL.NAME]\r\n"
|
||||||
.AS " -L : Low-Level Format\r\n"
|
.AS " -L : Low-Level Format\r\n"
|
||||||
.AZ " -H : 35trk drives, High Density: 47 tracks, 376 Blocks\r\n"
|
.AZ " -H : 35trk drives, High Density: 48 tracks, 384 Blocks\r\n"
|
||||||
MSG.USAGE2 .AS " -X : 40trk drives, 320 Blocks, combined with -H, 432 Blocks\r\n"
|
MSG.USAGE2 .AS " -X : 40trk drives, 320 Blocks, combined with -H, 432 Blocks\r\n"
|
||||||
.AS " -V : Verify\r\n"
|
.AS " -V : Verify\r\n"
|
||||||
.AS " -B xxxx : Smrtprt, Override Device block size\r\n"
|
.AS " -B xxxx : Smrtprt, Override Device block size\r\n"
|
||||||
|
|
|
@ -2,7 +2,7 @@ NEW
|
||||||
AUTO 3,1
|
AUTO 3,1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
IO.D2.SeekTimeR .EQ 160 LIBBLKDEV Recalibration
|
IO.D2.SeekTimeR .EQ 160 LIBBLKDEV Recalibration
|
||||||
IO.D2.SeekTimeF .EQ 125 LIBBLKDEV Track Formatter
|
IO.D2.SeekTimeF .EQ 85 LIBBLKDEV Track Formatter
|
||||||
IO.D2.SeekTimeB .EQ 85 LIBBLKDEV Boot Block
|
IO.D2.SeekTimeB .EQ 85 LIBBLKDEV Boot Block
|
||||||
IO.D2.SeekTimeP .EQ 60 ProDOS.FX initial
|
IO.D2.SeekTimeP .EQ 60 ProDOS.FX initial
|
||||||
IO.D2.SeekTimeI .EQ 20 ProDOS.FX increment -> until > 128
|
IO.D2.SeekTimeI .EQ 20 ProDOS.FX increment -> until > 128
|
||||||
|
|
|
@ -154,7 +154,6 @@ rddir jsr goread call read block routine.
|
||||||
bcc rddir loop if not.
|
bcc rddir loop if not.
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
lda #4 begin look-up with first entry past header.
|
lda #4 begin look-up with first entry past header.
|
||||||
* bne nxdent1 branch always
|
|
||||||
.HS 2C BIT ABS
|
.HS 2C BIT ABS
|
||||||
nxdent lda idxl
|
nxdent lda idxl
|
||||||
|
|
||||||
|
@ -206,7 +205,7 @@ lookpro lda (idxl),y look for matching name.
|
||||||
sty iobuff+1
|
sty iobuff+1
|
||||||
iny
|
iny
|
||||||
sty idxh+1
|
sty idxh+1
|
||||||
|
*--------------------------------------
|
||||||
rdkernl jsr goread read index block.
|
rdkernl jsr goread read index block.
|
||||||
bterr2 bcs booterr
|
bterr2 bcs booterr
|
||||||
|
|
||||||
|
@ -224,8 +223,7 @@ bterr2 bcs booterr
|
||||||
|
|
||||||
jmp kernel go execute kernel code.
|
jmp kernel go execute kernel code.
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
booterr
|
booterr jsr clrscrn clear video
|
||||||
jsr clrscrn clear video
|
|
||||||
ldy #BB.MSG.ERR.Len-1
|
ldy #BB.MSG.ERR.Len-1
|
||||||
|
|
||||||
.1 lda BB.MSG.ERR,y
|
.1 lda BB.MSG.ERR,y
|
||||||
|
@ -327,7 +325,7 @@ BB.Seek lda BB.HdrTrk get track we're on
|
||||||
|
|
||||||
and #6
|
and #6
|
||||||
ora BB.Slotn0
|
ora BB.Slotn0
|
||||||
tay
|
tax
|
||||||
|
|
||||||
pla
|
pla
|
||||||
|
|
||||||
|
@ -344,7 +342,7 @@ BB.Seek lda BB.HdrTrk get track we're on
|
||||||
.3 dec
|
.3 dec
|
||||||
|
|
||||||
and #6
|
and #6
|
||||||
ora Slotn0
|
ora BB.Slotn0
|
||||||
bcc .4
|
bcc .4
|
||||||
|
|
||||||
* move out : invert 2 phases
|
* move out : invert 2 phases
|
||||||
|
@ -368,6 +366,7 @@ BB.Seek lda BB.HdrTrk get track we're on
|
||||||
|
|
||||||
lda BB.CurrentQTrack
|
lda BB.CurrentQTrack
|
||||||
cmp BB.TargetQTrack
|
cmp BB.TargetQTrack
|
||||||
|
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
|
|
|
@ -120,11 +120,11 @@ D2MoveHead >PULLB MoveTo
|
||||||
|
|
||||||
.4 tay
|
.4 tay
|
||||||
|
|
||||||
lda IO.D2.Ph0On,y
|
lda IO.D2.Ph0On,x
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
|
||||||
lda IO.D2.Ph0On,x
|
lda IO.D2.Ph0On,y
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
|
||||||
|
@ -140,6 +140,7 @@ D2MoveHead >PULLB MoveTo
|
||||||
.8 bit IO.D2.Ph0Off,x
|
.8 bit IO.D2.Ph0Off,x
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
|
||||||
ldx IO.D2.Ph0Off,y
|
ldx IO.D2.Ph0Off,y
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
@ -470,6 +471,11 @@ PutBytePtr2 sta (ZPPtr2)
|
||||||
.8 rts
|
.8 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
D2WriteTrackPtr2
|
D2WriteTrackPtr2
|
||||||
|
lda hTrkBuf
|
||||||
|
>SYSCALL2 GetMemPtr
|
||||||
|
>STYA ZPPtr1
|
||||||
|
|
||||||
|
php
|
||||||
sei
|
sei
|
||||||
|
|
||||||
ldy #TrkWriter.Size
|
ldy #TrkWriter.Size
|
||||||
|
@ -479,14 +485,11 @@ D2WriteTrackPtr2
|
||||||
dey
|
dey
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
lda hTrkBuf
|
|
||||||
>SYSCALL2 GetMemPtr
|
|
||||||
>STYA ZPPtr1
|
|
||||||
ldx Slotn0
|
ldx Slotn0
|
||||||
|
|
||||||
jsr $200
|
jsr $200
|
||||||
|
|
||||||
cli
|
plp
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
|
|
@ -837,11 +837,11 @@ XRW.Seek ldx XRW.UnitIndex
|
||||||
|
|
||||||
.4 tay
|
.4 tay
|
||||||
|
|
||||||
lda IO.D2.Ph0On,y
|
lda IO.D2.Ph0On,x
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
|
||||||
lda IO.D2.Ph0On,x
|
lda IO.D2.Ph0On,y
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user