Previous File   Multiple Pages   Next File

* PAGE 1

0001 * 0002 * 0003 SUBR O$AO ASR OUTPUT OBJECT 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 O$AO DAC ** RETURN ADDRESS 0011 00001 0 04 00032 STA WORK WORK 0012 00002 0 10 00000 CALL O$AINT ASR INITIALISE FOR OUTPUT 0013 00003 0 02 00034 LDA ='201 0014 00004 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0015 00005 0 02 00000 LDA 0 INDEX 0016 00006 101040 SNZ 0017 00007 0 01 00020 JMP EXIT EXIT 0018 * 0019 00010 -0 02 00032 LOOP LDA* WORK WORK 0020 00011 0400 64 LRL 12 0021 00012 0 10 00025 JST FRME FRAME 0022 00013 0 10 00025 JST FRME FRAME 0023 00014 0 10 00025 JST FRME FRAME 0024 00015 0 12 00032 IRS WORK WORK 0025 00016 0 12 00000 IRS 0 INDEX 0026 00017 0 01 00010 JMP LOOP LOOP 0027 * 0028 00020 0 02 00033 EXIT LDA ='177623 DEL/DC3 0029 00021 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0030 00022 141340 ICA 0031 00023 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0032 00024 -0 01 00000 JMP* O$AO RETURN 0033 * 0034 * FRAME 0035 00025 0 000000 FRME DAC ** RETURN ADDRESS 0036 00026 0 10 00000 CALL C$SI CONVERT FROM 6 BIT TO INVISIBLE CODE 0037 00027 0 10 00000 CALL O$AK ASR OUTPUT CHARACTER 0038 00030 0410 72 LLL 6 0039 00031 -0 01 00025 JMP* FRME RETURN 0040 * 0041 * 0042 * CONSTANTS AND VARIABLES 0043 * 0044 00032 000000 WORK BSZ 1 WORK 0045 00033 177623 FIN LITERALS 00034 000201 0046 * 0047 * 0048 END END OF O$AO 16.MAR.70 P.J.VYSE
* PAGE 2

EXIT 000020 FRME 000025 LOOP 000010 O$AO 000000 WORK 000032 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
Previous File   Multiple Pages   Next File