C$ER (ASR)

* PAGE 1

0001 * 0002 * 0003 SUBR C$ER CONTROL ERROR ROUTINE (ASR) 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 C$ER DAC ** RETURN ADDRESS 0011 00001 000201 IAB SAVE A-REGISTER CONTENTS IN B 0012 00002 -0 02 00000 LDA* C$ER ERROR MNEMONIC 0013 00003 0 04 00022 STA WORD WORD 0014 00004 0 35 00025 LDX =-5 SET INDEX 0015 00005 1 02 00025 NEXT LDA BUFF+5,1 BUFFER 0016 00006 141340 ICA 0017 00007 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0018 00010 141340 ICA 0019 00011 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0020 00012 0 12 00000 IRS 0 INDEX 0021 00013 0 01 00005 JMP NEXT NEXT 0022 00014 000201 IAB RESTORE A-REGISTER CONTENTS FROM B 0023 00015 000000 HLT HALT 0024 00016 0 12 00000 IRS C$ER RETURN ADDRESS 0025 00017 -0 01 00000 JMP* C$ER RETURN 0026 * 0027 * 0028 * CONSTANTS AND VARIABLES 0029 * 0030 00020 106612 BUFF OCT 106612 CR/LF 0031 00021 105212 OCT 105212 LF/LF 0032 00022 000000 WORD BSZ 1 WORD 0033 00023 106612 OCT 106612 CR/LF 0034 00024 105212 OCT 105212 LF/LF 0035 * 0036 * LITERALS 0037 00025 177773 FIN LITERALS 0038 * 0039 * 0040 END END OF C$ER 18.MAR.70 P.J.VYSE BUFF 000020 C$ER 000000 NEXT 000005 WORD 000022 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71