O$PE

* PAGE 1

0001 * 0002 * 0003 SUBR O$PE HSP LIST EJECT PAGE 0004 * 0005 * 0006 CF5 H316 AND DDP-516 0007 REL RELOCATABLE 0008 * 0009 * 0010 00000 0 000000 O$PE DAC ** RETURN ADDRESS 0011 00001 -0 02 00035 LDA* LLN LINE NUMBER 0012 00002 -0 07 00036 L1 SUB* LLC LINE COUNT/PAGE 0013 00003 100040 SZE 0014 00004 100400 SPL 0015 00005 100000 SKP 0016 00006 0 01 00002 JMP L1 FIND NO. OF LINES TO NEXT HEAD OF FORM 0017 00007 0 07 00043 SUB =13 NO. OF BLANK LINES BETWEEN PAGES 0018 00010 0 04 00000 STA 0 INDEX 0019 00011 0 02 00042 LDA =15 0020 00012 -0 04 00035 STA* LLN RESET LIST LINE NUMBER 0021 00013 0 02 00040 LDA LFCR LF/CR 0022 00014 141340 ICA GET CR 0023 00015 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0024 00016 141340 ICA GET LF 0025 00017 0 10 00000 PULF CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0026 00020 0 12 00000 IRS 0 TALLY AND TEST INDEX REGISTER 0027 00021 0 01 00017 JMP PULF REPEAT 0028 00022 -0 12 00037 IRS* LPN TALLY PAGE NUMBER 0029 00023 -0 02 00037 LDA* LPN 0030 00024 0 10 00000 CALL C$BB CONVERT PAGE NUMBER TO BCI 0031 00025 0 000000 XAC O$PLPB IN PAGE NUMBER BUFFER 0032 00026 0 35 00041 LDX =-36 HEADING BUFFER IS 36 WORDS 0033 00027 0 10 00000 CALL O$PLL HSP LIST LINE 0034 00030 0 000000 XAC O$PLHB IN HEADING BUFFER 0035 00031 0 02 00040 LDA LFCR LF/CR 0036 00032 0 10 00000 CALL O$PKP HSP OUTPUT CHARACTER WITH PARITY 0037 00033 0 10 00000 CALL O$PKP AND ANOTHER 0038 00034 -0 01 00000 JMP* O$PE RETURN 0039 * 0040 * 0041 * CONSTANTS AND VARIABLES 0042 * 0043 00035 0 000000 LLN XAC O$PLLN HSP LIST LINE NUMBER 0044 00036 0 000000 LLC XAC O$PLLC HSP LIST LINE COUNT/PAGE 0045 00037 0 000000 LPN XAC O$PLPN HSP LIST PAGE NUMBER 0046 * 0047 00040 105215 LFCR OCT 105215 LF/CR 0048 * 0049 * LITERALS 0050 00041 177734 FIN LITERALS