Kernel 0.94

ProDOS.FX/ProDOS.S.XDOS.E.txt

@@ -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