mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-10 00:29:09 +00:00
Kernel 0.93++
This commit is contained in:
parent
11c470d799
commit
ab9d0defe4
Binary file not shown.
Binary file not shown.
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user