Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-08 08:33:37 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-27 17:33:11 +01:00
parent 5cbd146a65
commit f11927d4cf
3 changed files with 25 additions and 16 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.

16
BIN/EDIT.S.BUF.txt
View File

@ -518,6 +518,8 @@ BUF.BufPtrSetup >STYA TmpLen
adc FileLen
sta FileLen
tay
lda TmpLen+1
adc FileLen+1
@ -528,8 +530,11 @@ BUF.BufPtrSetup >STYA TmpLen
bcc .8
>LDYA BufLen
ldy #0
lda FileLen+1
inc
inc
>SYSCALL getmem
bcs .9
@ -539,7 +544,11 @@ BUF.BufPtrSetup >STYA TmpLen
>LDYA.G BufBase
>STYA BufPtr
ldx BufLen+1
lda BufLen+1
tax
inc
inc
sta BufLen+1
ldy #0
@ -547,14 +556,13 @@ BUF.BufPtrSetup >STYA TmpLen
sta (BufPtrDst),y
iny
bne .1
inc BufPtr
inc BufPtrDst
dex
bne .1
inc BufLen+1
>LDA.G hBuf
>SYSCALL freemem

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

@ -70,9 +70,6 @@ FILE.Load.TXT stz FileLen
>STZ.G FileType
jsr FILE.GetBuffer
bcs .99
>LDYAI 256
>SYSCALL GetMem
bcs .99
@ -86,10 +83,17 @@ FILE.Load.TXT stz FileLen
>LDA.G hFileName
>SYSCALL GetMemPtr
>SYSCALL fopen
.99 bcs .9
bcs .99
sta TmpIndex
>PUSHEA.G STATBUF
lda TmpIndex
>SYSCALL fstat
bcs .99
jsr FILE.GetBuffer
.99 bcs .9
.1 >PUSHWI 254
>PUSHW ZPPTR1
lda TmpIndex
@ -98,9 +102,10 @@ FILE.Load.TXT stz FileLen
lda #0
sta (ZPPTR1),y Y = line len
ldx #0
ldy #0
lda (ZPPTR1)
beq .8
@ -255,13 +260,9 @@ FILE.GetBuffer >LDA.G STATBUF+S.STAT.SIZE+3
dey
lda (pData),y Size HI
cmp #16
bcs .1
lda #13 Min = 3k
.1 adc #3 1K more
inc
inc
ldy #0 Size LO
>STYA BufLen
>SYSCALL GetMem