O$GHAP, etc.

* PAGE 1

0001 * 0002 * 0003 SUBR O$GHAP,O$PH GENERAL HEADING ASR/HSP 0004 SUBR O$ALHB,HEAD ASR LIST HEADING BUFFER 0005 SUBR O$PLHB,HEAD HSP LIST HEADING BUFFER 0006 SUBR O$ALPB,PBUF ASR LIST PAGE NUMBER BUFFER 0007 SUBR O$PLPB,PBUF HSP LIST PAGE NUMBER BUFFER 0008 SUBR O$ALPN,PAGE ASR LIST PAGE NUMBER 0009 SUBR O$PLPN,PAGE HSP LIST PAGE NUMBER 0010 SUBR O$ALLC,LCNT ASR LIST LINE COUNT/PAGE 0011 SUBR O$PLLC,LCNT HSP LIST LINE COUNT/PAGE 0012 SUBR O$ALLN,LINE ASR LIST LINE NUMBER 0013 SUBR O$PLLN,LINE HSP LIST LINE NUMBER 0014 * 0015 * 0016 CF5 H316 AND DDP-516 0017 REL RELOCATABLE 0018 * 0019 * 0020 * LIST HEADING 0021 * 0022 00000 0 000000 O$PH DAC ** RETURN ADDRESS 0023 00001 0 15 00000 STX O$PH STORE RETURN ADDRESS 0024 00002 -0 02 00000 LDA* O$PH GET HEADING ADDRESS 0025 00003 0 12 00000 IRS O$PH TALLY RETURN ADDRESS 0026 00004 0 04 00063 STA PAGE LIST PAGE NUMBER 0027 00005 0 35 00066 LDX =-28 SET INDEX 0028 00006 -0 02 00063 LOOP LDA* PAGE PAGE 0029 00007 1 04 00053 STA HEAD+28,1 LIST HEADING BUFFER 0030 00010 0 12 00063 IRS PAGE LIST PAGE NUMBER 0031 00011 0 12 00000 IRS 0 INDEX 0032 00012 0 01 00006 JMP LOOP LOOP 0033 00013 0 15 00063 STX PAGE PAGE 0034 00014 0 02 00064 LDA LCNT LIST LINE COUNT/PAGE 0035 00015 0 04 00065 STA LINE LIST LINE NUMBER 0036 00016 -0 01 00000 JMP* O$PH RETURN 0037 * 0038 * 0039 * CONSTANTS AND VARIABLES 0040 * 0041 * LIST HEADING BUFFER 0042 00017 HEAD BSS 28 LIST HEADING BUFFER 0043 00053 120320 BCI 5, PAGE 00054 140707 00055 142640 00056 120240 00057 120240 0044 * 0045 * 0046 * LIST PAGE NUMBER BUFFER
* PAGE 2

0047 00060 120240 PBUF BCI 3, LIST PAGE NUMBER BUFFER 00061 120240 00062 120240 0048 * 0049 * LIST PAGE NUMBER 0050 00063 000000 PAGE BSZ 1 LIST PAGE NUMBER 0051 * 0052 * LIST LINE COUNT/PAGE 0053 00064 000110 LCNT DEC 72 LIST LINE COUNT/PAGE 0054 * 0055 * LIST LINE NUMBER 0056 00065 000000 LINE BSZ 1 LIST LINE NUMBER 0057 * 0058 * LITERALS 0059 00066 177744 FIN LITERALS 0060 END END OF O$GHAP 24.JUN.70 G.S.LITTLE HEAD 000017 LCNT 000064 LINE 000065 LOOP 000006 O$PH 000000 PAGE 000063 PBUF 000060 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71