Kernel 0.94

BIN/EDIT.S.FILE.txt

@@ -312,6 +312,7 @@ FILE.Save		>LDYAI 256
 				tax
 				
 				jmp (J.SAVE,x)
+
 FILE.Save.9		rts				
 *--------------------------------------
 FILE.Save.CR	clc
@@ -376,6 +377,41 @@ FILE.Save.CRLF	sec
 				
 				bra .1
 
+.8 				>STZ.G bUnSaved
+				jmp FILE.Close
+*--------------------------------------
+FILE.Save.ASM	stz TmpIndex			hFile
+
+				stz TmpLen
+				stz TmpLen+1
+
+				>LDA.G hFileName
+				>SYSCALL GetMemPtr
+				>PUSHYA
+				>PUSHBI	O.CREATE+O.WRONLY
+				>PUSHBI S.FI.T.ASM
+				>PUSHWZ					Aux type
+				>SYSCALL FOpen
+				bcs FILE.Close
+
+				sta TmpIndex
+				
+				>LDYA.G	BufBase
+				>STYA BufPtr				
+				
+				
+				
+				
+				
+				
+				
+				
+				
+				
+				
+				
+				
+				
 .8 				>STZ.G bUnSaved
 *--------------------------------------
 FILE.Close		php
@@ -393,10 +429,6 @@ FILE.Close		php
 				plp
 				rts				
 *--------------------------------------
-FILE.Save.ASM
-				clc
-				rts
-*--------------------------------------
 FILE.GetBuffer	>LDA.G STATBUF+S.STAT.SIZE+3
 				dey
 				ora (pData),y