Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-07-13 13:29:04 +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 adc FileLen
sta FileLen sta FileLen
tay
lda TmpLen+1 lda TmpLen+1
adc FileLen+1 adc FileLen+1
@ -528,8 +530,11 @@ BUF.BufPtrSetup >STYA TmpLen
bcc .8 bcc .8
>LDYA BufLen ldy #0
lda FileLen+1
inc inc
inc
>SYSCALL getmem >SYSCALL getmem
bcs .9 bcs .9
@ -539,7 +544,11 @@ BUF.BufPtrSetup >STYA TmpLen
>LDYA.G BufBase >LDYA.G BufBase
>STYA BufPtr >STYA BufPtr
ldx BufLen+1 lda BufLen+1
tax
inc
inc
sta BufLen+1
ldy #0 ldy #0
@ -547,14 +556,13 @@ BUF.BufPtrSetup >STYA TmpLen
sta (BufPtrDst),y sta (BufPtrDst),y
iny iny
bne .1 bne .1
inc BufPtr inc BufPtr
inc BufPtrDst inc BufPtrDst
dex dex
bne .1 bne .1
inc BufLen+1
>LDA.G hBuf >LDA.G hBuf
>SYSCALL freemem >SYSCALL freemem

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

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