Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-04-04 18:32:56 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-09-28 19:28:41 +02:00
parent 8876cb40ff
commit 0de3db36dd
3 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

21
ProDOS.FX/ProDOS.S.XDOS.E.txt
View File

@ -3,7 +3,7 @@ NEW
*--------------------------------------
XDOS.Close ldy #$01 close all ?
lda (A3L),y
bne L4683 no, just one of them.
bne XDOS.CloseOne no, just one of them.
sta cferr clear global close error.
* lda #$00 start at the beginning.
@ -21,9 +21,11 @@ L4654 sta fcbptr save current low byte of pointer.
bcs L46B6 return flush errors.
jsr close2 update fcb & vcb
ldy #$01
lda (A3L),y
beq L4675 no error if close all.
bcs L46B6 close error.
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.
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
bcs L46B6 bitmap). branch if errors.
bcc close2
php
pha
jsr close2
pla
plp
rts
close2 ldx fcbptr
lda FCBs+FCB.BUFID,x release file buffer
@ -202,9 +213,9 @@ L4780 ldx fcbptr
L47B2 clc
rts
*--------------------------------------
* report error only if not a close all or flush all
*--------------------------------------
glberr ldy #$01
pha
lda (A3L),y