Kernel 0.94+

This commit is contained in:
Rémy GIBERT 2021-03-26 19:45:46 +01:00
parent 3c125ff09f
commit f73e38b2d0
3 changed files with 19 additions and 11 deletions

Binary file not shown.

Binary file not shown.

View File

@ -34,7 +34,8 @@ Stepping .BS 1
VolNum .BS 1 VolNum .BS 1
AltBB .BS 1 AltBB .BS 1
HeadCnt .BS 1 HeadCnt .BS 1
.BS 1
TimeOut .BS 1
CatSize .BS 1 CatSize .BS 1
CatBlkCnt .BS 1 CatBlkCnt .BS 1
@ -42,8 +43,8 @@ bLL .BS 1
bCustomBlkSize .BS 1 bCustomBlkSize .BS 1
bHighDensity .BS 1 bHighDensity .BS 1
bExtraTrack .BS 1 bExtraTrack .BS 1
bDS .BS 1
bVerify .BS 1 bVerify .BS 1
TimeOut .BS 1
ZS.END ZS.END
.ED .ED
*-------------------------------------- *--------------------------------------
@ -287,15 +288,20 @@ CS.RUN.LL >LDA.G DIB+S.DIB.T
ora #16 ora #16
.11 tay .11 bit bDS
bpl .12
ora #32
.12 tay
ldx #0 ldx #0
.12 lda Disk2.Default,y .13 lda Disk2.Default,y
sta BlkCnt,x sta BlkCnt,x
iny iny
inx inx
cpx #7 cpx #7
bne .12 bne .13
.1 >PUSHW L.MSG.LL .1 >PUSHW L.MSG.LL
>PUSHW BlkCnt >PUSHW BlkCnt
@ -754,14 +760,15 @@ 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"
.AS " -H : 35trk drives, High Density: 48 tracks, 384 Blocks\r\n"
.AZ " -X : 40trk drives, 320 Blocks\r\n"
.AZ "-H -X : 40trk drives, 432 Blocks\r\n"
MSG.USAGE2 .AS " -D : Rana Elite II 640 Blocks, 2 Sides\r\n"
.AS "-H -D : Rana Elite III 1280 Blocks, 2 Sides\r\n"
.AS "-L -V : Verify After LLF\r\n" .AS "-L -V : Verify After LLF\r\n"
.AS " -B xxxx : Smrtprt, Override Device block size\r\n" .AS " -B xxxx : Smrtprt, Override Device block size\r\n"
.AZ " -1-9 : Catalog Size (Blocks)\r\n" .AZ " -1-9 : Catalog Size (Blocks)\r\n"
MSG.USAGE2 .AS "------- ProDOS.FX only ------\r\n"
.AS " -H : 35trk drives, High Density: 48 tracks, 384 Blocks\r\n"
.AS " -X : 40trk drives, 320 Blocks\r\n"
.AS "-H -X : 40trk drives, 432 Blocks\r\n"
.AS " -D : Rana Elite II 640 Blocks, 2 Sides\r\n"
.AZ "-H -D : Rana Elite III 1280 Blocks, 2 Sides\r\n"
MSG.OK .AZ "[OK]" MSG.OK .AZ "[OK]"
MSG.ERR .AS "[%h]" MSG.ERR .AS "[%h]"
MSG.CRLF .AZ "\r\n" MSG.CRLF .AZ "\r\n"
@ -773,9 +780,10 @@ MSG.VERIFY .AZ "\rVerifying Head %d/Track %02d/Block %d (%05D)..."
MSG.WRITECAT .AZ "Writing Catalog..." MSG.WRITECAT .AZ "Writing Catalog..."
FMT.BLANK .AZ "BLANK%H%H" FMT.BLANK .AZ "BLANK%H%H"
*-------------------------------------- *--------------------------------------
OptionList .AS "LlBbHhXxVv" OptionList .AS "LlBbHhXxDdVv"
OptionVars .DA #bLL,#bLL,#bCustomBlkSize,#bCustomBlkSize OptionVars .DA #bLL,#bLL,#bCustomBlkSize,#bCustomBlkSize
.DA #bHighDensity,#bHighDensity,#bExtraTrack,#bExtraTrack .DA #bHighDensity,#bHighDensity,#bExtraTrack,#bExtraTrack
.DA #bDS,#bDS
.DA #bVerify,#bVerify .DA #bVerify,#bVerify
*-------------------------------------- *--------------------------------------
Disk2.Default .DA 280 BlkCnt Disk2.Default .DA 280 BlkCnt