mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-08 08:33:37 +00:00
149 lines
2.3 KiB
Plaintext
149 lines
2.3 KiB
Plaintext
|
NEW
|
|||
|
|
AUTO 3,1
|
|||
|
|
.LIST OFF
|
|||
|
|
*--------------------------------------
|
|||
|
|
NewFile stz FileLen
|
|||
|
|
stz FileLen+1
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
LoadFile >PUSHWZ Aux type
|
|||
|
|
>PUSHBZ Type
|
|||
|
|
>PUSHBI O.RDONLY
|
|||
|
|
>LDA.G hFileName
|
|||
|
|
>SYSCALL GetMemPtr
|
|||
|
|
>SYSCALL fopen
|
|||
|
|
bcs NewFile
|
|||
|
|
|
|||
|
|
txa
|
|||
|
|
>STA.G hFile
|
|||
|
|
|
|||
|
|
>PUSHEA.G STATBUF
|
|||
|
|
>LDA.G hFile
|
|||
|
|
>SYSCALL fstat
|
|||
|
|
bcs .9
|
|||
|
|
|
|||
|
|
>LDA.G STATBUF+S.STAT.P.TYPE
|
|||
|
|
cmp #S.FI.T.TXT
|
|||
|
|
beq LoadFile.TXT
|
|||
|
|
cmp #$FA S-C/ASM?
|
|||
|
|
bne .91
|
|||
|
|
|
|||
|
|
jmp LoadFile.ASM
|
|||
|
|
|
|||
|
|
>LDA.G hFile
|
|||
|
|
>SYSCALL fclose
|
|||
|
|
|
|||
|
|
.91 lda #MLI.E.INCFF
|
|||
|
|
sec
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
>LDA.G STATBUF+S.STAT.SIZE+3
|
|||
|
|
dey
|
|||
|
|
ora (pData),y
|
|||
|
|
bne .90
|
|||
|
|
|
|||
|
|
dey
|
|||
|
|
lda (pData),y Size HI
|
|||
|
|
adc #4 1K more
|
|||
|
|
|
|||
|
|
ldy #0 Size LO
|
|||
|
|
>STYA BufLen
|
|||
|
|
|
|||
|
|
>SYSCALL GetMem
|
|||
|
|
>STYA BufPtr
|
|||
|
|
|
|||
|
|
txa
|
|||
|
|
>STA.G hBuffer
|
|||
|
|
|
|||
|
|
ldy #0
|
|||
|
|
|
|||
|
|
ldx #0
|
|||
|
|
|
|||
|
|
.1 lda (BufPtrBackup),y
|
|||
|
|
beq .8
|
|||
|
|
|
|||
|
|
cpx #C.CR
|
|||
|
|
bne .2
|
|||
|
|
|
|||
|
|
cmp #C.LF
|
|||
|
|
beq .5
|
|||
|
|
|
|||
|
|
.2 cmp #C.SPACE
|
|||
|
|
bcs .3
|
|||
|
|
|
|||
|
|
cmp #C.CR
|
|||
|
|
bne .5
|
|||
|
|
|
|||
|
|
.3 sta (BufPtr)
|
|||
|
|
inc BufPtr
|
|||
|
|
bne .4
|
|||
|
|
inc BufPtr+1
|
|||
|
|
.4 inc FileLen
|
|||
|
|
bne .5
|
|||
|
|
inc FileLen+1
|
|||
|
|
|
|||
|
|
.5 tax set previous char
|
|||
|
|
iny
|
|||
|
|
bne .1
|
|||
|
|
|
|||
|
|
inc BufPtrBackup+1
|
|||
|
|
bra .1
|
|||
|
|
|
|||
|
|
.8 sta (BufPtr)
|
|||
|
|
clc
|
|||
|
|
.9 jmp BUF.ResetSel
|
|||
|
|
|
|||
|
|
.90 lda #E.FTB
|
|||
|
|
sec
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
LoadFile.TXT stz
|
|||
|
|
*--------------------------------------
|
|||
|
|
LoadFile.ASM
|
|||
|
|
lda #MLI.E.INCFF
|
|||
|
|
sec
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
SaveFile >PUSHWZ Aux type
|
|||
|
|
>PUSHBI S.FI.T.TXT
|
|||
|
|
>PUSHBI O.CREATE+O.WRONLY
|
|||
|
|
>LDA.G hFileName
|
|||
|
|
>SYSCALL GetMemPtr
|
|||
|
|
|
|||
|
|
>SYSCALL FOpen
|
|||
|
|
bcs .9
|
|||
|
|
pha
|
|||
|
|
>PUSHW FileLen
|
|||
|
|
>LDA.G hBuffer
|
|||
|
|
>SYSCALL GetMemPtr
|
|||
|
|
>PUSHYA
|
|||
|
|
pla
|
|||
|
|
pha
|
|||
|
|
|
|||
|
|
>SYSCALL FWrite
|
|||
|
|
bcc .1
|
|||
|
|
|
|||
|
|
tax
|
|||
|
|
pla
|
|||
|
|
phx
|
|||
|
|
>SYSCALL FClose
|
|||
|
|
pla
|
|||
|
|
sec
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
.1 pla
|
|||
|
|
>SYSCALL FClose
|
|||
|
|
|
|||
|
|
lda #$80
|
|||
|
|
>STA.G bSaved
|
|||
|
|
jsr SCRN.UpdateTopBar
|
|||
|
|
.9 rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE USR/SRC/BIN/EDIT.S.FILE
|
|||
|
|
LOAD USR/SRC/BIN/EDIT.S
|
|||
|
|
ASM
|