Previous File   Multiple Pages   Next File

* PAGE 1

0001 * 0002 * 0003 SUBR O$PA HSP OUTPUT SOURCE RECORD 0004 SUBR O$PAE HSP OUTPUT SOURCE RECORD 0005 * 0006 * 0007 CF5 H316 AND DDP-516 0008 REL RELOCATABLE 0009 * 0010 * 0011 00000 0 000000 O$PA DAC ** HSP OUTPUT SOURCE RECORD 0012 00001 -0 02 00000 LDA* O$PA GET BUFFER ADDRESS 0013 00002 0 12 00000 IRS O$PA TALLY RETURN ADDRESS 0014 00003 0414 77 LGL 1 0015 00004 0 04 00012 STA BUFF STORE IN CALLING SEQUENCE FOR C$OE 0016 00005 0 10 00000 CALL C$OP CHARACTER OUTPUT INITIALISE 0017 00006 0 02 00027 LDA ='212 LF 0018 00007 0 10 00000 NEXT CALL C$OP OUTPUT PARITY 0019 00010 0 10 00000 CALL O$PK HSP OUTPUT CHARACTER 0020 00011 0 10 00000 CALL C$OE CHARACTER OUTPUT EXTRACT 0021 00012 0 000000 BUFF DAC ** BUFFER ADDRESS 0022 00013 0 01 00007 JMP NEXT NEXT CHARACTER 0023 00014 0 35 00026 LDX =-3 END CHARACTER COUNT 0024 00015 1 02 00026 LOOP LDA ECHR+3,1 END CHARACTERS 0025 00016 0 10 00000 CALL C$OP OUTPUT PARITY 0026 00017 0 10 00000 CALL O$PK HSP OUTPUT CHARACTER 0027 00020 0 12 00000 IRS 0 TALLY AND TEST INDEX REGISTER 0028 00021 0 01 00015 JMP LOOP REPEAT 0029 00022 -0 01 00000 JMP* O$PA RETURN 0030 * 0031 * 0032 * CONSTANTS AND VARIABLES 0033 * 0034 00023 000215 ECHR OCT 215 END CHARACTERS - CR 0035 00024 000223 OCT 223 DC3 0036 00025 000377 OCT 377 DEL 0037 * 0038 00026 177775 FIN LITERALS 00027 000212 0039 * 0040 * 0041 END END OF O$PA 09.JUN.70 G.S.LITTLE BUFF 000012 ECHR 000023 LOOP 000015 NEXT 000007 O$PA 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71
Previous File   Multiple Pages   Next File