mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-12 20:29:41 +00:00
Kernel 0.94
This commit is contained in:
parent
5ba9494dc8
commit
af612d5627
Binary file not shown.
|
@ -733,7 +733,11 @@ H352A lda bloknml preserve disk address of current (last)
|
||||||
|
|
||||||
sta gbuf+2 save block address in y,a to
|
sta gbuf+2 save block address in y,a to
|
||||||
sty gbuf+3 current directory.
|
sty gbuf+3 current directory.
|
||||||
|
.DO LOWERCASE=1
|
||||||
|
jsr XDOS.WriteGBufDir
|
||||||
|
.ELSE
|
||||||
jsr XDOS.WriteGBuf update directory block with new link.
|
jsr XDOS.WriteGBuf update directory block with new link.
|
||||||
|
.FIN
|
||||||
bcs H351D if error
|
bcs H351D if error
|
||||||
|
|
||||||
ldx #$01
|
ldx #$01
|
||||||
|
@ -772,7 +776,7 @@ clrdir sta gbuf+2,x
|
||||||
lda #$04
|
lda #$04
|
||||||
|
|
||||||
ocalc clc
|
ocalc clc
|
||||||
dex has entry address been calulated?
|
dex has entry address been calculated?
|
||||||
beq H3584 if yes.
|
beq H3584 if yes.
|
||||||
|
|
||||||
adc own_len next entry address
|
adc own_len next entry address
|
||||||
|
@ -985,6 +989,7 @@ drevise1 lda bkbitflg (bit 5 = backup needed)
|
||||||
|
|
||||||
lda d_dev get device # of directory
|
lda d_dev get device # of directory
|
||||||
sta devnum to be revised
|
sta devnum to be revised
|
||||||
|
|
||||||
lda d_entblk and address of directory block.
|
lda d_entblk and address of directory block.
|
||||||
ldx d_entblk+1
|
ldx d_entblk+1
|
||||||
.DO LOWERCASE=1
|
.DO LOWERCASE=1
|
||||||
|
@ -1021,6 +1026,7 @@ H36E0 .DO LOWERCASE=1
|
||||||
|
|
||||||
lda d_head get address of header block and
|
lda d_head get address of header block and
|
||||||
ldx d_head+1
|
ldx d_head+1
|
||||||
|
|
||||||
.DO LOWERCASE=1
|
.DO LOWERCASE=1
|
||||||
jsr XDOS.ReadGBufAXDir
|
jsr XDOS.ReadGBufAXDir
|
||||||
.ELSE
|
.ELSE
|
||||||
|
@ -1057,6 +1063,7 @@ ripple lda gbuf+4 test for 'root' directory because
|
||||||
|
|
||||||
lda gbuf+39 get addr of parent entry's dir block
|
lda gbuf+39 get addr of parent entry's dir block
|
||||||
ldx gbuf+40
|
ldx gbuf+40
|
||||||
|
|
||||||
.DO LOWERCASE=1
|
.DO LOWERCASE=1
|
||||||
jsr XDOS.ReadGBufAXDir
|
jsr XDOS.ReadGBufAXDir
|
||||||
.ELSE
|
.ELSE
|
||||||
|
|
|
@ -152,14 +152,14 @@ nxtbmap ldx vcbptr inc to next bitmap, but 1st make sure there is another
|
||||||
lsr
|
lsr
|
||||||
lsr
|
lsr
|
||||||
lsr
|
lsr
|
||||||
cmp VCBs+VCB.BMAPIDX,x are there more maps ?
|
cmp VCBs+VCB.BMAPIDX,x are there more maps ?
|
||||||
beq L3D60 if no more to look at.
|
beq L3D60 if no more to look at.
|
||||||
|
|
||||||
inc VCBs+VCB.BMAPIDX,x add 1 to current map
|
inc VCBs+VCB.BMAPIDX,x add 1 to current map
|
||||||
jsr upbmap
|
jsr upbmap
|
||||||
|
|
||||||
fndbmap ldy vcbptr
|
fndbmap ldy vcbptr
|
||||||
lda VCBs+VCB.DEV,y get device #.
|
lda VCBs+VCB.DEV,y get device #.
|
||||||
cmp bmadev does this map match this device ?
|
cmp bmadev does this map match this device ?
|
||||||
beq L3D4A yes.
|
beq L3D4A yes.
|
||||||
|
|
||||||
|
@ -338,7 +338,7 @@ XDOS.UnpackGBuf jsr XDOS.Pack.Init
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
XDOS.PackGBuf jsr XDOS.Pack.Init
|
XDOS.PackGBuf jsr XDOS.Pack.Init
|
||||||
|
|
||||||
.1 lda (zpt)
|
.1 lda (zpt)
|
||||||
and #$0F
|
and #$0F
|
||||||
beq .6
|
beq .6
|
||||||
|
@ -350,10 +350,10 @@ XDOS.PackGBuf jsr XDOS.Pack.Init
|
||||||
|
|
||||||
.2 lda (zpt),y
|
.2 lda (zpt),y
|
||||||
|
|
||||||
cmp #'A'
|
cmp #'a'
|
||||||
bcc .5
|
bcc .5
|
||||||
|
|
||||||
cmp #'Z'+1
|
cmp #'z'+1
|
||||||
bcs .5
|
bcs .5
|
||||||
|
|
||||||
eor #$20 to uppercase
|
eor #$20 to uppercase
|
||||||
|
@ -363,11 +363,11 @@ XDOS.PackGBuf jsr XDOS.Pack.Init
|
||||||
bcs .3
|
bcs .3
|
||||||
|
|
||||||
lda whichbit,y
|
lda whichbit,y
|
||||||
tsb XDOS.PackGBuf.Bitmap
|
tsb XDOS.PackGBuf.Bitmap+1
|
||||||
bra .4
|
bra .4
|
||||||
|
|
||||||
.3 lda whichbit-8,y
|
.3 lda whichbit-8,y
|
||||||
tsb XDOS.PackGBuf.Bitmap+1
|
tsb XDOS.PackGBuf.Bitmap
|
||||||
|
|
||||||
.4 lda #$80
|
.4 lda #$80
|
||||||
tsb XDOS.PackGBuf.Bitmap+1
|
tsb XDOS.PackGBuf.Bitmap+1
|
||||||
|
|
|
@ -140,7 +140,7 @@ L4723 lda FCBs,y note: this code depends on the defined
|
||||||
.DO LOWERCASE=1
|
.DO LOWERCASE=1
|
||||||
jsr XDOS.ReadGBufAXDir
|
jsr XDOS.ReadGBufAXDir
|
||||||
.ELSE
|
.ELSE
|
||||||
jsr XDOS.ReadGBufAX into the general purpose buffer.
|
jsr XDOS.ReadGBufAX read DIR into the general purpose buffer.
|
||||||
.FIN
|
.FIN
|
||||||
bcs L46E6 if error.
|
bcs L46E6 if error.
|
||||||
|
|
||||||
|
@ -153,9 +153,13 @@ L4723 lda FCBs,y note: this code depends on the defined
|
||||||
cpx d_head+1
|
cpx d_head+1
|
||||||
beq L4755 branch if header block = entry block
|
beq L4755 branch if header block = entry block
|
||||||
|
|
||||||
.1 jsr XDOS.ReadGBufAX get block with file entry in general
|
.1 .DO LOWERCASE=1
|
||||||
|
jsr XDOS.ReadGBufAXDir
|
||||||
L4755 jsr entcalc buffer. set up pointer to entry.
|
.ELSE
|
||||||
|
jsr XDOS.ReadGBufAX read DIR block with file entry in general buffer.
|
||||||
|
.FIN
|
||||||
|
|
||||||
|
L4755 jsr entcalc set up pointer to entry.
|
||||||
|
|
||||||
jsr moventry move entry to temp entry buffer in
|
jsr moventry move entry to temp entry buffer in
|
||||||
|
|
||||||
|
|
|
@ -164,11 +164,12 @@ FCB .EQ 32
|
||||||
VCBs .EQ $D900
|
VCBs .EQ $D900
|
||||||
VCB.DEV .EQ 16
|
VCB.DEV .EQ 16
|
||||||
VCB.OFCNT .EQ 17
|
VCB.OFCNT .EQ 17
|
||||||
VCB.BMAP .EQ 18
|
VCB.BMAP .EQ 18 2 bytes
|
||||||
VCB.TBLK .EQ 20
|
VCB.TBLK .EQ 20 2 bytes
|
||||||
VCB.FBLK .EQ 22
|
VCB.FBLK .EQ 22 2 bytes
|
||||||
VCB.BMAPIDX .EQ 24
|
VCB.BMAPIDX .EQ 24
|
||||||
*
|
*
|
||||||
|
*VCB .EQ 25
|
||||||
VCB .EQ 32
|
VCB .EQ 32
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
bmbuf .EQ $DA00 512 byte bitmap buffer
|
bmbuf .EQ $DA00 512 byte bitmap buffer
|
||||||
|
|
Loading…
Reference in New Issue
Block a user