Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-05-28 12:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-04-29 08:10:49 +02:00
parent 57b86f70ff
commit 32afec7335
3 changed files with 47 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

58
BIN/FORMAT.S.txt
View File

@ -28,14 +28,19 @@ DSSS0000 .BS 1
CurTrack .BS 1
CurQTrack .BS 1
bLL .BS 1
bCustomBlkSize .BS 1
BlkCnt .BS 2
TrkCnt .BS 1
VolNum .BS 1
Stepping .BS 1
MediaBlkSize .BS 2
CatSize .BS 1
CatBlkCnt .BS 1
CatOptions .BS 1
bLL .BS 1
bCustomBlkSize .BS 1
bHighDensity .BS 1
ZS.END
.ED
*--------------------------------------
@ -119,7 +124,7 @@ CS.RUN ldy #S.PS.ARGC
bcs .99
>SYSCALL atoi
>STYA MediaBlkSize
>STYA BlkCnt
bra .1
.99 >PUSHW L.MSG.USAGE
@ -162,7 +167,7 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
>PUSHW L.MSG.INIT
>PUSHW ZPPtrDevName
>PUSHW MediaBlkSize
>PUSHW BlkCnt
>PUSHEA.G VolName
>PUSHBI 6
@ -218,8 +223,8 @@ CS.RUN.GetDevStatus
beq .9
lda (pData),y
sta MediaBlkSize+1
stx MediaBlkSize
sta BlkCnt+1
stx BlkCnt
.8 clc
rts
@ -268,6 +273,19 @@ CS.RUN.LL >LDA.G DIB+S.DIB.T
CS.RUN.LL.RTS rts
*--------------------------------------
CS.RUN.LL.DISKII
ldx #5
ldy #0
bit bHighDensity
bpl .10
ldy #5
.10 lda Disk2.Default,y
sta BlkCnt,y
iny
dex
bne .10
>LDYAI 4096
>SYSCALL GetMem
bcs CS.RUN.LL.RTS
@ -285,7 +303,7 @@ CS.RUN.LL.DISKII
stz CurTrack
lda #160
lda #144 36*4....or 48*3
sta CurQTrack
ldx #0
@ -300,19 +318,19 @@ CS.RUN.LL.DISKII
bcs .9
>PUSHB DSSS0000
>PUSHBI 254 VOL
>PUSHB VolNum
>PUSHB CurTrack
>PUSHW ZPPtr1
>LIBCALL hLIBBLKDEV,LIBBLKDEV.D2TrkWrite16s
bcs .9
inc CurTrack
dec TrkCnt
beq .8
lda CurQTrack
* clc
adc #4
cmp #140
beq .8
adc Stepping
tax
@ -421,7 +439,7 @@ CS.RUN.BuildCat jsr .7
>LIBCALL hLIBBLKDEV,LIBBLKDEV.BuildProDOSCat
.9 rts
.7 >PUSHW MediaBlkSize
.7 >PUSHW BlkCnt
>PUSHB CatSize
>PUSHB CatOptions
rts
@ -511,8 +529,18 @@ MSG.LL .AZ "\rLow Level Format..."
MSG.WRITECAT .AZ "Writing Catalog..."
FMT.BLANK .AZ "BLANK%H%H"
*--------------------------------------
OptionList .AS "LlBb"
OptionVars .DA #bLL,#bLL,#bCustomBlkSize,#bCustomBlkSize
OptionList .AS "LlBbHs"
OptionVars .DA #bLL,#bLL,#bCustomBlkSize,#bCustomBlkSize,bHighDensity
*--------------------------------------
Disk2.Default .DA 280 BlkCnt
.DA #35 TrkCnt
.DA #254 VolNum
.DA #4 Stepping
*--------------------------------------
Disk2.H .DA 384 BlkCnt
.DA #48 TrkCnt
.DA #126 VolNum
.DA #3 Stepping
*--------------------------------------
.DUMMY
.OR 0

7
LIB/LIBBLKDEV.S.txt
View File

@ -11,6 +11,8 @@ NEW
.INB INC/MLI.E.I
.INB INC/IO.D2.I
*--------------------------------------
* 300rpm = 5rps = 200000us / 4ms = 50000 bits MAX
*--------------------------------------
TRACK16.LEN .EQ 6400
*--------------------------------------
TRACK16.GAP1 .EQ 64 640 bits
@ -18,10 +20,9 @@ TRACK16.GAP1 .EQ 64 640 bits
*Address field = D5AA96 + 4x2 + DEAAEB = 14 112 bits
TRACK16.GAP2 .EQ 6 60 bits
*Data field = D5AAAD + 342 + CS + DEAAEB = 349 2792 bits
*TRACK16.GAP3 .EQ 27 270 bits
TRACK16.GAP3 .EQ 17
TRACK16.GAP3 .EQ 17 170 bits
* )
* 64 + 16 * (14 + 6 + 349 + 27) = 6400 52384 bits (6548)
* 64 + 16 * (14 + 6 + 349 + 17) = 6240 50784 bits (6348)
*--------------------------------------
TRACK9.LEN .EQ 6511
*--------------------------------------