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
8876cb40ff
commit
0de3db36dd
Binary file not shown.
Binary file not shown.
|
@ -3,7 +3,7 @@ NEW
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
XDOS.Close ldy #$01 close all ?
|
XDOS.Close ldy #$01 close all ?
|
||||||
lda (A3L),y
|
lda (A3L),y
|
||||||
bne L4683 no, just one of them.
|
bne XDOS.CloseOne no, just one of them.
|
||||||
|
|
||||||
sta cferr clear global close error.
|
sta cferr clear global close error.
|
||||||
* lda #$00 start at the beginning.
|
* lda #$00 start at the beginning.
|
||||||
|
@ -21,9 +21,11 @@ L4654 sta fcbptr save current low byte of pointer.
|
||||||
bcs L46B6 return flush errors.
|
bcs L46B6 return flush errors.
|
||||||
|
|
||||||
jsr close2 update fcb & vcb
|
jsr close2 update fcb & vcb
|
||||||
|
|
||||||
ldy #$01
|
ldy #$01
|
||||||
lda (A3L),y
|
lda (A3L),y
|
||||||
beq L4675 no error if close all.
|
beq L4675 no error if close all.
|
||||||
|
|
||||||
bcs L46B6 close error.
|
bcs L46B6 close error.
|
||||||
|
|
||||||
L4675 lda fcbptr inc pointer to next fcb
|
L4675 lda fcbptr inc pointer to next fcb
|
||||||
|
@ -35,9 +37,18 @@ L4675 lda fcbptr inc pointer to next fcb
|
||||||
beq L46B4 branch if errors.
|
beq L46B4 branch if errors.
|
||||||
|
|
||||||
rts (carry already set).
|
rts (carry already set).
|
||||||
|
*--------------------------------------
|
||||||
|
XDOS.CloseOne jsr flush1 flush file 1st (including updating bitmap)
|
||||||
|
* bcs L46B6 branch if errors.
|
||||||
|
|
||||||
L4683 jsr flush1 flush file 1st (including updating
|
bcc close2
|
||||||
bcs L46B6 bitmap). branch if errors.
|
|
||||||
|
php
|
||||||
|
pha
|
||||||
|
jsr close2
|
||||||
|
pla
|
||||||
|
plp
|
||||||
|
rts
|
||||||
|
|
||||||
close2 ldx fcbptr
|
close2 ldx fcbptr
|
||||||
lda FCBs+FCB.BUFID,x release file buffer
|
lda FCBs+FCB.BUFID,x release file buffer
|
||||||
|
@ -202,9 +213,9 @@ L4780 ldx fcbptr
|
||||||
|
|
||||||
L47B2 clc
|
L47B2 clc
|
||||||
rts
|
rts
|
||||||
|
*--------------------------------------
|
||||||
* report error only if not a close all or flush all
|
* report error only if not a close all or flush all
|
||||||
|
*--------------------------------------
|
||||||
glberr ldy #$01
|
glberr ldy #$01
|
||||||
pha
|
pha
|
||||||
lda (A3L),y
|
lda (A3L),y
|
||||||
|
|
Loading…
Reference in New Issue
Block a user