O$PL

* PAGE 1

0001 * 0002 * 0003 SUBR O$PL HSP LIST 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 O$PL DAC ** RETURN ADDRESS 0011 00001 -0 02 00023 LDA* LLN COMPARE LINE NUMBER 0012 00002 -0 11 00022 CAS* LLC WITH LINE COUNT/PAGE 0013 00003 101000 NOP 0014 00004 0 10 00000 CALL O$PE HSP LIST EJECT PAGE 0015 00005 -0 12 00023 IRS* LLN TALLY LINE NUMBER 0016 00006 0 02 00021 LDA CRLF CR/LF 0017 00007 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER HITH PARITY 0018 00010 141340 ICA GET LF 0019 00011 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0020 00012 -0 02 00000 LDA* O$PL GET BUFFER ADDRESS 0021 00013 0 12 00000 IRS O$PL TALLY RETURN ADDRESS 0022 00014 0 04 00017 STA BUFF STORE IN CALLING SEOUENCE 0023 00015 0 35 00024 LDX =-36 BUFFER LENGTH 0024 00016 0 10 00000 CALL O$PLL HSP LIST LINE 0025 00017 0 000000 BUFF DAC ** BUFFER ADDRESS 0026 00020 -0 01 00000 JMP* O$PL RETURN 0027 * 0028 * 0029 * CONSTANTS AND VARIABLES 0030 * 0031 00021 106612 CRLF OCT 106612 CR/LF 0032 * 0033 * LINE COUNT/PAGE 0034 00022 0 000000 LLC XAC O$PLLC HSP LIST LINE COUNT/PAGE 0035 * 0036 * LINE NUMBER 0037 00023 0 000000 LLN XAC O$PLLN HSP LIST LINE NUMBER 0038 * 0039 * LITERALS 0040 00024 177734 FIN LITERALS 0041 * 0042 * 0043 END END OF O$PL 21.MAY.70 G.S.LITTLE BUFF 000017 CRLF 000021 LLC 000022 LLN 000023 O$PL 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71