mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-19 15:29:03 +00:00
73 lines
1.1 KiB
Plaintext
73 lines
1.1 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.SRC
|
||
NEW
|
||
INC 1
|
||
AUTO 6
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
TXT.OpenFileYA pha
|
||
>PUSHWI 0 Aux type
|
||
>PUSHBI 4 S.FILEINFO.TYPE.TXT
|
||
>PUSHBI SYS.FOpen.R+SYS.FOpen.T
|
||
pla
|
||
|
||
>PUSHYA
|
||
>SYSCALL FOpen
|
||
bcs .9
|
||
|
||
ldy #hInputFile
|
||
sta (pData),y
|
||
.9 rts
|
||
*--------------------------------------
|
||
TXT.ReadFile >PUSHWI UsrBuf256+1
|
||
>PUSHWI 127
|
||
ldy #hInputFile
|
||
lda (pData),y
|
||
>PUSHA
|
||
>SYSCALL FRead
|
||
bcs .9
|
||
|
||
tya
|
||
beq .10
|
||
|
||
lda UsrBuf256,y Y,A=Bytes read
|
||
cmp #$0D
|
||
bne .10
|
||
|
||
dey
|
||
|
||
.10 tya
|
||
sta (pData)
|
||
beq .2
|
||
|
||
.1 lda UsrBuf256,y
|
||
sta (pData),y
|
||
dey
|
||
bne .1
|
||
|
||
.2 ldy #bEcho
|
||
lda (pData),y
|
||
beq .8
|
||
|
||
>PUSHW pData
|
||
>LDYA L.MSG.ECHO
|
||
>SYSCALL CPrintFYA
|
||
.8 clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
TXT.CloseFile ldy #hInputFile
|
||
lda (pData),y
|
||
beq .9
|
||
|
||
>SYSCALL FCloseA
|
||
|
||
.9 lda #0
|
||
ldy #hInputFile
|
||
sta (pData),y
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE SBIN/SHELL.S.TXT
|
||
LOAD SBIN/SHELL.S
|
||
ASM
|