Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-10 00:29:09 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-30 22:55:41 +01:00
parent 11c470d799
commit ab9d0defe4
4 changed files with 22 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

18
BIN/FORMAT.S.txt
View File

@ -16,7 +16,6 @@ AUTO 4,1
.OR ZPBIN .OR ZPBIN
ZS.START ZS.START
ZPPtr1 .BS 2 ZPPtr1 .BS 2
ZPPtr2 .BS 2
ZPPtrFD .BS 2 ZPPtrFD .BS 2
ZPPtrDevName .BS 2 ZPPtrDevName .BS 2
@ -298,9 +297,26 @@ CS.RUN.BuildCat jsr .7
>SYSCALL GetMem BufferSize >SYSCALL GetMem BufferSize
bcs .9 bcs .9
>STYA ZPPtr1
>STYA.G IOCTL+S.IOCTL.BUFPTR >STYA.G IOCTL+S.IOCTL.BUFPTR
stx hBuf stx hBuf
lda CatBlkCnt
asl
tax
lda #0
tay
.1 sta (ZPPtr1),y
iny
bne .1
inc ZPPtr1+1
dex
bne .1
jsr .7 jsr .7
>PUSHEA.G VolName >PUSHEA.G VolName

33
LIB/LIBBLKDEV.S.txt
View File

@ -165,10 +165,8 @@ BuildProDOSCat >PULLW ZPPtr1 DstBuf
bne .2 bne .2
* Blk 1 : (SOS boot code) * Blk 1 : (SOS boot code)
jsr BuildProDOSCat.Nextpage inc ZPPtr1+1
jsr BuildProDOSCat.Nextpage inc ZPPtr1+1
BuildProDOSCat.DirBlocks
* Blk 2 : First Directory Block * Blk 2 : First Directory Block
* ldy #0 * ldy #0
@ -225,7 +223,6 @@ BuildProDOSCat.DirBlocks
* and #$0f make sure 15 bytes max * and #$0f make sure 15 bytes max
ora #$F0 Volume Directory Header ora #$F0 Volume Directory Header
sta VolDirHdr.Name sta VolDirHdr.Name
ldy #VolDirHdr.size-1 ldy #VolDirHdr.size-1
.4 lda VolDirHdr,y .4 lda VolDirHdr,y
sta (ZPPtr1),y sta (ZPPtr1),y
@ -234,14 +231,8 @@ BuildProDOSCat.DirBlocks
* Blk 3...n : additional Directory Blocks * Blk 3...n : additional Directory Blocks
lda #3 Actual Block ID lda #3 Actual Block ID
ldy #2 next blk ptr ldy #2 next blk ptr
.41 inc ZPPtr1+1
.41 pha inc ZPPtr1+1 Next Block
phy
jsr BuildProDOSCat.NextPage
jsr BuildProDOSCat.NextPage
ply
pla
dex dex
bmi .40 bmi .40
@ -283,7 +274,6 @@ BuildProDOSCat.DirBlocks
bne .5 bne .5
iny iny
bne .50 bne .50
.7 lda #%10000000 .7 lda #%10000000
.8 inc Count .8 inc Count
@ -305,21 +295,8 @@ BuildProDOSCat.DirBlocks
iny iny
bne .7 bne .7
jsr BuildProDOSCat.Nextpage
bra .7
BuildProDOSCat.Nextpage
inc ZPPtr1+1 inc ZPPtr1+1
bra .7
ldy #0
tya
.2 sta (ZPPtr1),y
iny
bne .2
rts
*/-------------------------------------- */--------------------------------------
*\-------------------------------------- *\--------------------------------------
D2TrkRNIB D2TrkRNIB