A Final Version of PUTC Using System Qualifiers
A Final Version of PUTC Using System Qualifiers
MACRO
&INIT PUTC &CHAR, &DEV
&INIT STA $SAVE
LDCH &CHAR
J $LOOP
$SAVE RESW 1
$LOOP TD &DEV
JEQ $LOOP
WD &DEV
LDA $SAVE
MEND
. . .
JEQ NEXT
.DUMPX PUTC (LINE,X), =X'04'
DUMPX STA $AESAVE
LDCH LINE,X
J $AELOOP
$AESAVE RESW 1
$AELOOP TD =X'04'
JEQ $AELOOP
WD =X'04'
LDA $AESAVE
NEXT STA LAST