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