A2osX/SBIN/SHELL.S.IO.txt

52 lines
811 B
Plaintext
Raw Normal View History

NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
.LIST OFF
*--------------------------------------
IO.PrintErrMsg pha Save EC for PrintF
ldx L.ERR.Codes
stx ZPPTR1
ldx L.ERR.Codes+1
stx ZPPTR1+1
ldy #0
.1 cmp (ZPPTR1),y
beq .2
iny
cpy #ERR.Count
bne .1
.2 lda L.ERR.Messages
sta ZPPTR1
lda L.ERR.Messages+1
sta ZPPTR1+1
.3 dey
bmi .8
2018-07-13 14:38:24 +00:00
lda (ZPPTR1)
sec
adc ZPPTR1
sta ZPPTR1
bcc .3
inc ZPPTR1+1
bra .3
2018-10-08 05:55:28 +00:00
.8
>PUSHW ZPPTR1
pla
>PUSHA
2018-10-08 05:55:28 +00:00
>PUSHBI 3
>PUSHW L.MSG.ERROR
ldy #S.PS.hStdErr
lda (pPS),y
>SYSCALL fprintf
rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SBIN/SHELL.S.IO
LOAD /A2OSX.SRC/SBIN/SHELL.S
ASM