O$AA, O$AAE

* PAGE 1

0001 * 0002 * 0003 SUBR O$AA ASR OUTPUT SOURCE RECORD 0004 SUBR O$AAE,O$AA ASR OUTPUT SOURCE RECORD 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 00000 0 000000 O$AA DAC ** RETURN ADDRESS 0012 00001 0 10 00000 CALL O$AINT ASR INITIALISE FOR OUTPUT 0013 00002 -0 02 00000 LDA* O$AA BUFFER ADDRESS 0014 00003 0414 77 LGL 1 CHARACTERS 0015 00004 0 04 00013 STA BUFF BUFFER 0016 00005 0 12 00000 IRS O$AA TALLY RETURN ADDRESS 0017 00006 0 10 00000 CALL C$OI CHARACTER OUTPUT INITIALISE 0018 00007 0 02 00030 LDA ='212 LINEFEED 0019 00010 0 10 00000 NEXT CALL C$OP OUTPUT PARITY 0020 00011 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0021 00012 0 10 00000 CALL C$OE CHARACTER OUTPUT EXTRACT 0022 00013 000000 BUFF BSZ 1 BUFFER 0023 00014 0 01 00010 JMP NEXT NEXT 0024 00015 0 35 00027 LDX =-3 SET INDEX 0025 00016 1 02 00027 LOOP LDA ECHR+3,1 END CHARACTERS 0026 00017 0 10 00000 CALL C$OP OUTPUT PARITY 0027 00020 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0028 00021 0 12 00000 IRS 0 INDEX 0029 00022 0 01 00016 JMP LOOP LOOP 0030 00023 -0 01 00000 JMP* O$AA RETURN 0031 * 0032 * 0033 * CONSTANTS AND VARIABLES 0034 * 0035 00024 000215 ECHR OCT 215 END CHARACTERS CARRIAGE RETURN 0036 00025 000223 OCT 223 DC3 0037 00026 000377 OCT 377 DEL 0038 * 0039 00027 177775 FIN LITERALS 00030 000212 0040 * 0041 * 0042 END END OF O$AA 9.MAR.70 P.J.VYSE BUFF 000013 ECHR 000024 LOOP 000016 NEXT 000010 O$AA 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71