A2osX/SBIN/SHELL.S.IO.txt

48 lines
748 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
.8 >PUSHW ZPPTR1
pla
>PUSHA
>LDYA L.MSG.ERROR
2018-06-21 15:12:10 +00:00
>SYSCALL printf
rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SBIN/SHELL.S.IO
LOAD /A2OSX.SRC/SBIN/SHELL.S
ASM