Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-19 23:29:29 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-07-27 07:15:14 +02:00
parent 3ba28d1911
commit 2166533638
1 changed files with 36 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
BIN/EDIT.S.FILE.txt
View File

@ -312,6 +312,7 @@ FILE.Save >LDYAI 256
tax tax
jmp (J.SAVE,x) jmp (J.SAVE,x)
FILE.Save.9 rts FILE.Save.9 rts
*-------------------------------------- *--------------------------------------
FILE.Save.CR clc FILE.Save.CR clc
@ -376,6 +377,41 @@ FILE.Save.CRLF sec
bra .1 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 .8 >STZ.G bUnSaved
*-------------------------------------- *--------------------------------------
FILE.Close php FILE.Close php
@ -393,10 +429,6 @@ FILE.Close php
plp plp
rts rts
*-------------------------------------- *--------------------------------------
FILE.Save.ASM
clc
rts
*--------------------------------------
FILE.GetBuffer >LDA.G STATBUF+S.STAT.SIZE+3 FILE.GetBuffer >LDA.G STATBUF+S.STAT.SIZE+3
dey dey
ora (pData),y ora (pData),y