mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-13 13:29:04 +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
|
||||
ZS.START
|
||||
ZPPtr1 .BS 2
|
||||
ZPPtr2 .BS 2
|
||||
ZPPtrFD .BS 2
|
||||
ZPPtrDevName .BS 2
|
||||
|
||||
@ -298,9 +297,26 @@ CS.RUN.BuildCat jsr .7
|
||||
|
||||
>SYSCALL GetMem BufferSize
|
||||
bcs .9
|
||||
|
||||
>STYA ZPPtr1
|
||||
|
||||
>STYA.G IOCTL+S.IOCTL.BUFPTR
|
||||
stx hBuf
|
||||
|
||||
lda CatBlkCnt
|
||||
asl
|
||||
tax
|
||||
|
||||
lda #0
|
||||
tay
|
||||
|
||||
.1 sta (ZPPtr1),y
|
||||
iny
|
||||
bne .1
|
||||
inc ZPPtr1+1
|
||||
dex
|
||||
bne .1
|
||||
|
||||
jsr .7
|
||||
|
||||
>PUSHEA.G VolName
|
||||
|
@ -165,10 +165,8 @@ BuildProDOSCat >PULLW ZPPtr1 DstBuf
|
||||
bne .2
|
||||
* Blk 1 : (SOS boot code)
|
||||
|
||||
jsr BuildProDOSCat.Nextpage
|
||||
jsr BuildProDOSCat.Nextpage
|
||||
|
||||
BuildProDOSCat.DirBlocks
|
||||
inc ZPPtr1+1
|
||||
inc ZPPtr1+1
|
||||
* Blk 2 : First Directory Block
|
||||
|
||||
* ldy #0
|
||||
@ -225,7 +223,6 @@ BuildProDOSCat.DirBlocks
|
||||
* and #$0f make sure 15 bytes max
|
||||
ora #$F0 Volume Directory Header
|
||||
sta VolDirHdr.Name
|
||||
|
||||
ldy #VolDirHdr.size-1
|
||||
.4 lda VolDirHdr,y
|
||||
sta (ZPPtr1),y
|
||||
@ -234,14 +231,8 @@ BuildProDOSCat.DirBlocks
|
||||
* Blk 3...n : additional Directory Blocks
|
||||
lda #3 Actual Block ID
|
||||
ldy #2 next blk ptr
|
||||
|
||||
.41 pha
|
||||
phy
|
||||
jsr BuildProDOSCat.NextPage
|
||||
jsr BuildProDOSCat.NextPage
|
||||
ply
|
||||
pla
|
||||
|
||||
.41 inc ZPPtr1+1
|
||||
inc ZPPtr1+1 Next Block
|
||||
dex
|
||||
bmi .40
|
||||
|
||||
@ -283,7 +274,6 @@ BuildProDOSCat.DirBlocks
|
||||
bne .5
|
||||
iny
|
||||
bne .50
|
||||
|
||||
.7 lda #%10000000
|
||||
|
||||
.8 inc Count
|
||||
@ -305,21 +295,8 @@ BuildProDOSCat.DirBlocks
|
||||
iny
|
||||
bne .7
|
||||
|
||||
jsr BuildProDOSCat.Nextpage
|
||||
bra .7
|
||||
|
||||
BuildProDOSCat.Nextpage
|
||||
|
||||
inc ZPPtr1+1
|
||||
|
||||
ldy #0
|
||||
tya
|
||||
|
||||
.2 sta (ZPPtr1),y
|
||||
iny
|
||||
bne .2
|
||||
rts
|
||||
|
||||
bra .7
|
||||
*/--------------------------------------
|
||||
*\--------------------------------------
|
||||
D2TrkRNIB
|
||||
|
Loading…
Reference in New Issue
Block a user