Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.sechdr +++| IDENT SECHDR,FWA
00002 M00S00002.sechdr +++| ABS
00003 M00S00003.sechdr +++| SST
00004 M00S00004.sechdr +++| ENTRY SECHDR
00005 M00S00005.sechdr +++| ENTRY RFL=
00006 M00S00006.sechdr +++| ENTRY SSJ=
00007 M00S00007.sechdr +++| SYSCOM B1
00008 M00S00008.sechdr +++| TITLE SECHDR - WRITE SECURITY HEADERS.
00009 M00S00009.sechdr +++|*COMMENT SECHDR - WRITE SECURITY HEADERS.
| Line S00010 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00010 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1982.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00012 M00S00011.sechdr +++| SPACE 4,10
00013 M00S00012.sechdr +++|*** SECHDR - WRITE SECURITY HEADERS.
00014 M00S00013.sechdr +++|*
00015 M00S00014.sechdr +++|* P. J. ENGLE. 82/09/01.
00016 M00S00015.sechdr +++|* J. HOLLISTER 83/06/21.
00017 M00S00016.sechdr +++| SPACE 4,10
00018 M00S00017.sechdr +++|*** *SECHDR* WRITES SECURITY BANNER AND/OR PAGE HEADING
00019 M00S00018.sechdr +++|* AND FOOTING INFORMATION ON THE NAMED FILE.
00020 M00S00019.sechdr +++| SPACE 4,10
00021 M00S00020.sechdr +++|*** COMMAND FORMAT.
00022 M00S00021.sechdr +++|*
00023 M00S00022.sechdr +++|* SECHDR,LFN,FF,OP=BFRP.
00024 M00S00023.sechdr +++|*
00025 M00S00024.sechdr +++|* LFN = NAME OF THE FILE TO WHICH SECURITY INFORMATION
00026 M00S00025.sechdr +++|* IS TO BE ADDED.
00027 M00S00026.sechdr +++|*
00028 M00S00027.sechdr +++|* FF = THE FILE IS ALREADY FORMATTED FOR OUTPUT.
00029 M00S00028.sechdr +++|*
00030 M00S00029.sechdr +++|* THE FOLLOWING OPTIONS ARE VALID -
00031 M00S00030.sechdr +++|*
00032 M00S00031.sechdr +++|* B = PRINT A BANNER PAGE AT THE BEGINNING AND END OF
00033 M00S00032.sechdr +++|* EACH LOGICAL UNIT AS SPECIFIED BY THE *F* OR *R*
00034 M00S00033.sechdr +++|* OPTION. IF NEITHER THE *F* NOR THE *R* OPTION IS
00035 M00S00034.sechdr +++|* SPECIFIED, BANNER PAGES WILL BE PRINTED AT THE
00036 M00S00035.sechdr +++|* BEGINNING AND END OF INFORMATION OF THE FILE. THIS
00037 M00S00036.sechdr +++|* OPTION IS SELECTED BY DEFAULT.
00038 M00S00037.sechdr +++|*
00039 M00S00038.sechdr +++|* F = USE LOGICAL FILES AS BANNER PAGE UNIT.
00040 M00S00039.sechdr +++|*
00041 M00S00040.sechdr +++|* R = USE LOGICAL RECORDS AS BANNER PAGE UNIT.
00042 M00S00041.sechdr +++|*
00043 M00S00042.sechdr +++|* P = PRINT PAGE HEADINGS AND FOOTINGS ON EACH PAGE
00044 M00S00043.sechdr +++|* OF OUTPUT. THIS OPTION IS DESELECTED BY DEFAULT.
00045 M00S00044.sechdr +++| SPACE 4,10
00046 M00S00045.sechdr +++|*** DAYFILE MESSAGES.
00047 M00S00046.sechdr +++|*
00048 M00S00047.sechdr +++|* * ERROR IN SECHDR PARAMETERS.* = *SECHDR* HAS ENCOUNTERED
00049 M00S00048.sechdr +++|* AN UNKNOWN PARAMETER.
00050 M00S00049.sechdr +++|*
00051 M00S00050.sechdr +++|* * NNNNN LINES TRUNCATED.* = INFORMATIVE MESSAGE INDICATING
00052 M00S00051.sechdr +++|* NNNNN LINES HAD TO BE TRUNCATED WHEN FORMATTING THE FILE.
00053 M00S00052.sechdr +++|*
00054 M00S00053.sechdr +++|* * NO FILE NAME SPECIFIED.* = *SECHDR* HAS FOUND THAT NO
00055 M00S00054.sechdr +++|* FILE NAME WAS SPECIFIED ON THE COMMAND CALL.
00056 M00S00055.sechdr +++|*
00057 M00S00056.sechdr +++|* * UNABLE TO PROCESS TERMINAL FILE.* = THE SPECIFIED FILE IS
00058 M00S00057.sechdr +++|* ASSIGNED TO A TERMINAL.
00059 M00S00058.sechdr +++|*
00060 M00S00059.sechdr +++|* * UNKNOWN OPTION - X.* = *SECHDR* HAS ENCOUNTERED AN UNKNOWN
00061 M00S00060.sechdr +++|* OPTION.
00062 M00S00061.sechdr +++| SPACE 4,10
00063 M00S00062.sechdr +++|* COMMON DECKS.
00064 M00S00063.sechdr +++|
00065 M00S00064.sechdr +++|
00066 M00S00065.sechdr +++|*CALL COMCMAC
00067 M00S00066.sechdr +++|*CALL COMCCMD
00068 M00S00067.sechdr +++|*CALL COMSMLS
00069 M00S00068.sechdr +++|*CALL COMSPFM
00070 M00S00069.sechdr +++| SPACE 4,10
00071 M00S00070.sechdr +++|**** ASSEMBLY CONSTANTS.
00072 M00S00071.sechdr +++|
00073 M00S00072.sechdr +++|
00074 M00S00073.sechdr +++| SSJ= EQU 0
00075 M00S00074.sechdr +++| FBUFL EQU 1001B FILE BUFFER LENGTH
00076 M00S00075.sechdr +++| SBUFL EQU 1001B SCRATCH BUFFER LENGTH
00077 M00S00076.sechdr +++| WBUFL EQU 140D WORKING BUFFER LENGTH
00078 M00S00077.sechdr +++|****
00079 M00S00078.sechdr +++| SPACE 4,10
00080 M00S00079.sechdr +++| TITLE FETS AND RESERVED LOCATIONS.
00081 M00S00080.sechdr +++| ORG 126B
00082 M00S00081.sechdr +++| SPACE 4,10
00083 M00S00082.sechdr +++| FWA BSS 0
00084 M00S00083.sechdr +++|
00085 M00S00084.sechdr +++|* FETS.
00086 M00S00085.sechdr +++|
00087 M00S00086.sechdr +++|
00088 M00S00087.sechdr +++| F BSS 0 LOCAL FILE
00089 M00S00088.sechdr +++| SECFILE FILEB FBUF,FBUFL,FET=7
00090 M00S00089.sechdr +++|
00091 M00S00090.sechdr +++| S BSS 0 SCRATCH FILE
00092 M00S00091.sechdr +++| ZZZZZG1 FILEB SBUF,SBUFL,FET=7
00093 M00S00092.sechdr +++| SPACE 4,10
00094 M00S00093.sechdr +++|* GLOBAL STORAGE.
00095 M00S00094.sechdr +++|
00096 M00S00095.sechdr +++|
00097 M00S00096.sechdr +++| ALVL CON 0 ACCESS LEVEL NAME
00098 M00S00097.sechdr +++| BCFL CON 0 BACKCOPY FLAG
00099 M00S00098.sechdr +++| BLKL CON 1L BLANK LINE
00100 M00S00099.sechdr +++| BOPL CON 1L2 BOTTOM OF PAGE LINE
00101 M00S00100.sechdr +++| BPBL CON 0 LENGTH OF ACCESS LEVEL NAME BUFFER
00102 M00S00101.sechdr +++| BUNT CON 1 BANNER UNIT
00103 M00S00102.sechdr +++| EPWH CON 0 EMPTY PAGE WITH HEADER FLAG
00104 M00S00103.sechdr +++| FORM CON 0 FORMATTED FILE
00105 M00S00104.sechdr +++| LCNT CON 0 LINES REMAINING
00106 M00S00105.sechdr +++| LNPG CON 0 LINES/PAGE
00107 M00S00106.sechdr +++| LTCT CON 0 LINES TRUNCATED COUNT
00108 M00S00107.sechdr +++| PDEN CON 0 PRINT DENSITY
00109 M00S00108.sechdr +++| POPT CON 0 PAGE HEAD/FOOT OPTION
00110 M00S00109.sechdr +++|
00111 M00S00110.sechdr +++|
00112 M00S00111.sechdr +++|* PAGE HEADING/FOOTING.
00113 M00S00112.sechdr +++|
00114 M00S00113.sechdr +++|
00115 M00S00114.sechdr +++| FOOT DATA 1L PAGE FOOTING
00116 M00S00115.sechdr +++| DATA 40H XXXXXXX XXXXXXX
00117 M00S00116.sechdr +++| DATA 50H XXXXXXX XXXXXXX
00118 M00S00117.sechdr +++| DATA 40HXXXXXX XXXXXXX
00119 M00S00118.sechdr +++| CON 0
00120 M00S00119.sechdr +++| DATA 1L
00121 M00S00120.sechdr +++| FOOTL EQU *-FOOT PAGE FOOTING LENGTH
00122 M00S00121.sechdr +++|
00123 M00S00122.sechdr +++| HEAD DATA 1L1 PAGE HEADING
00124 M00S00123.sechdr +++| DATA 40H XXXXXXX XXXXXXX
00125 M00S00124.sechdr +++| DATA 50H XXXXXXX XXXXXXX
00126 M00S00125.sechdr +++| DATA 40HXXXXXX XXXXXXX
00127 M00S00126.sechdr +++| CON 0
00128 M00S00127.sechdr +++| DATA 1L
00129 M00S00128.sechdr +++| HEADL EQU *-HEAD PAGE HEADING LENGTH
00130 M00S00129.sechdr +++|
00131 M00S00130.sechdr +++| SHFL EQU 6 SECURITY HEADING/FOOTING LINE COUNT
00132 M00S00131.sechdr +++| TITLE MAIN PROGRAM.
00133 M00S00132.sechdr +++| SPACE 4,10
00134 M00S00133.sechdr +++|* MAIN PROGRAM.
00135 M00S00134.sechdr +++|
00136 M00S00135.sechdr +++|
00137 M00S00136.sechdr +++| SECHDR SB1 1
00138 M00S00137.sechdr +++| RJ PRS PRESET
00139 M00S00138.sechdr +++| WRITEC S,PDEN WRITE PRINT DENSITY CONTROL
00140 M00S00139.sechdr +++| SA1 BUNT
00141 M00S00140.sechdr +++| SX1 X1-1
00142 M00S00141.sechdr +++| PL X1,SEC1 IF NO BANNER PAGE TO BE WRITTEN
00143 M00S00142.sechdr +++| RJ CBP CREATE BANNER PAGE
00144 M00S00143.sechdr +++| RJ WBP WRITE BANNER PAGE
00145 M00S00144.sechdr +++| SX0 B0+ SET DATA READ
00146 M00S00145.sechdr +++| SEC1 SA1 POPT
00147 M00S00146.sechdr +++| ZR X1,SEC3 IF HEAD/FOOT OPTION NOT SET
00148 M00S00147.sechdr +++| SA1 FORM CHECK IF FILE FORMATTED
00149 M00S00148.sechdr +++| ZR X1,SEC2 IF FILE NOT FORMATTED
00150 M00S00149.sechdr +++| RJ HFF HEAD/FOOT PROCESSOR FOR FORMATTED FILE
00151 M00S00150.sechdr +++| EQ SEC4 BACKCOPY FILE
00152 M00S00151.sechdr +++|
00153 M00S00152.sechdr +++| SEC2 RJ HFU HEAD/FOOT PROCESSOR FOR UNFORMATTED FILE
00154 M00S00153.sechdr +++| EQ SEC4 BACKCOPY FILE
00155 M00S00154.sechdr +++|
00156 M00S00155.sechdr +++| SEC3 RJ BPP BANNER PAGE PROCESSOR
00157 M00S00156.sechdr +++| SEC4 RJ BCF BACKCOPY FILE
00158 M00S00157.sechdr +++| ENDRUN
00159 M00S00158.sechdr +++| TITLE SUBROUTINES.
00160 M00S00159.sechdr +++| BCF SPACE 4,10
00161 M00S00160.sechdr +++|** BCF - BACKCOPY FILE.
00162 M00S00161.sechdr +++|*
00163 M00S00162.sechdr +++|* ENTRY (BCFL) = BACKCOPY FLAG.
00164 M00S00163.sechdr +++|*
00165 M00S00164.sechdr +++|* USES X - 1.
00166 M00S00165.sechdr +++|* A - 1.
00167 M00S00166.sechdr +++|*
00168 M00S00167.sechdr +++|* MACROS READ, READW, RECALL, RENAME, RETURN, REWIND, WRITEF,
00169 M00S00168.sechdr +++|* WRITER, WRITEW.
00170 M00S00169.sechdr +++|
00171 M00S00170.sechdr +++|
00172 M00S00171.sechdr +++| BCF SUBR ENTRY/EXIT
00173 M00S00172.sechdr +++| REWIND F
00174 M00S00173.sechdr +++| REWIND S
00175 M00S00174.sechdr +++| SA1 BCFL GET BACKCOPY FLAG
00176 M00S00175.sechdr +++| NZ X1,BCF6 IF BACKCOPY NOT REQUIRED
00177 M00S00176.sechdr +++| BCF1 READ S
00178 M00S00177.sechdr +++| RECALL F
00179 M00S00178.sechdr +++| BCF2 READW S,WBUF,WBUFL
00180 M00S00179.sechdr +++| ZR X1,BCF3 IF TRANSFER COMPLETE
00181 M00S00180.sechdr +++| NG X1,BCF4 IF EOF OR EOI
00182 M00S00181.sechdr +++|
00183 M00S00182.sechdr +++|* EOR ENCOUNTERED.
00184 M00S00183.sechdr +++|
00185 M00S00184.sechdr +++| WRITEW F,WBUF,X1-WBUF WRITE LAST PORTION OF RECORD
00186 M00S00185.sechdr +++| WRITER F
00187 M00S00186.sechdr +++| EQ BCF1 READ NEXT RECORD
00188 M00S00187.sechdr +++|
00189 M00S00188.sechdr +++| BCF3 WRITEW F,WBUF,WBUFL
00190 M00S00189.sechdr +++| EQ BCF2 TRANSFER MORE DATA
00191 M00S00190.sechdr +++|
00192 M00S00191.sechdr +++| BCF4 SX1 X1+1
00193 M00S00192.sechdr +++| NG X1,BCF5 IF EOI ENCOUNTERED
00194 M00S00193.sechdr +++|
00195 M00S00194.sechdr +++|* EOF ENCOUNTERED.
00196 M00S00195.sechdr +++|
00197 M00S00196.sechdr +++| WRITEF F
00198 M00S00197.sechdr +++| EQ BCF1 READ NEXT RECORD
00199 M00S00198.sechdr +++|
00200 M00S00199.sechdr +++|* EOI ENCOUNTERED.
00201 M00S00200.sechdr +++|
00202 M00S00201.sechdr +++| BCF5 RETURN S RETURN SCRATCH FILE
00203 M00S00202.sechdr +++| REWIND F REWIND FILE
00204 M00S00203.sechdr +++| EQ BCFX RETURN
00205 M00S00204.sechdr +++|
00206 M00S00205.sechdr +++| BCF6 RENAME S,F
00207 M00S00206.sechdr +++| EQ BCFX RETURN
00208 M00S00207.sechdr +++| BPP SPACE 4,15
00209 M00S00208.sechdr +++|** BPP - BANNER PAGE PROCESSOR.
00210 M00S00209.sechdr +++|*
00211 M00S00210.sechdr +++|* ENTRY (BUNT) = BANNER UNIT VALUE.
00212 M00S00211.sechdr +++|* (X0) = 0 (DATA READ FLAG).
00213 M00S00212.sechdr +++|*
00214 M00S00213.sechdr +++|* USES X - 0, 1, 2, 5, 6, 7.
00215 M00S00214.sechdr +++|* A - 1, 2, 5, 6, 7.
00216 M00S00215.sechdr +++|*
00217 M00S00216.sechdr +++|* CALLS CLC, WBP.
00218 M00S00217.sechdr +++|*
00219 M00S00218.sechdr +++|* MACROS READ, READS, RECALL, WRITEC, WRITEF, WRITER, WRITES.
00220 M00S00219.sechdr +++|*
00221 M00S00220.sechdr +++|* DEFINE (X0) = 0 IF DATA READ.
00222 M00S00221.sechdr +++|* = -1 IF NO DATA (EOR).
00223 M00S00222.sechdr +++|* = -2 IF NO DATA (EOF).
00224 M00S00223.sechdr +++|
00225 M00S00224.sechdr +++| BPP SUBR ENTRY/EXIT
00226 M00S00225.sechdr +++|
00227 M00S00226.sechdr +++|* READ FILE.
00228 M00S00227.sechdr +++|
00229 M00S00228.sechdr +++| BPP1 SX7 1R1 SET NEW PAGE FOR UNFORMATTED FILE
00230 M00S00229.sechdr +++| SA7 WBUFS
00231 M00S00230.sechdr +++| SA1 LNPG FORCE NEW PAGE
00232 M00S00231.sechdr +++| BX6 X1
00233 M00S00232.sechdr +++| SA6 LCNT
00234 M00S00233.sechdr +++| READ F
00235 M00S00234.sechdr +++| RECALL S
00236 M00S00235.sechdr +++| BPP2 READS F,WBUF,WBUFL
00237 M00S00236.sechdr +++| ZR X1,BPP3 IF TRANSFER COMPLETE
00238 M00S00237.sechdr +++| SA5 BUNT GET BANNER UNIT
00239 M00S00238.sechdr +++| SX5 X5+B1
00240 M00S00239.sechdr +++| NG X1,BPP6 IF EOF OR EOI
00241 M00S00240.sechdr +++|
00242 M00S00241.sechdr +++|* EOR ENCOUNTERED.
00243 M00S00242.sechdr +++|
00244 M00S00243.sechdr +++| WRITER S
00245 M00S00244.sechdr +++| SX0 B0+ SET DATA (EOR) READ
00246 M00S00245.sechdr +++| SX1 X5-1
00247 M00S00246.sechdr +++| NG X1,BPP1 IF BANNER UNIT NOT RECORD
00248 M00S00247.sechdr +++| RJ WBP WRITE BANNER PAGE
00249 M00S00248.sechdr +++| SX0 -1 SET NO DATA (EOR)
00250 M00S00249.sechdr +++| EQ BPP1 READ NEXT RECORD
00251 M00S00250.sechdr +++|
00252 M00S00251.sechdr +++|* WRITE FILE LINE
00253 M00S00252.sechdr +++|
00254 M00S00253.sechdr +++| BPP3 SA2 FORM
00255 M00S00254.sechdr +++| SA1 WBUFS+X2 GET FIRST CHARACTER IN LINE
00256 M00S00255.sechdr +++| BX0 X0-X0 SET DATA READ
00257 M00S00256.sechdr +++| LX1 -6 LEFT JUSTIFY CHARACTER
00258 M00S00257.sechdr +++| RJ CLC CHECK LINE COUNT
00259 M00S00258.sechdr +++| NG X2,BPP2 IF LINE SHOULD NOT BE WRITTEN
00260 M00S00259.sechdr +++| NZ X2,BPP5 IF NOT END OF PAGE
00261 M00S00260.sechdr +++| ZR X4,BPP5 IF LINE ALREADY HAS PAGE EJECT
00262 M00S00261.sechdr +++| BPP4 WRITEC S,BOPL SKIP TO BOTTOM OF PAGE
00263 M00S00262.sechdr +++| BPP5 SA1 FORM FORMAT OUTPUT IF FILE UNFORMATTED
00264 M00S00263.sechdr +++| SX1 X1+WBUFS
00265 M00S00264.sechdr +++| WRITES S,X1,WBUFL
00266 M00S00265.sechdr +++| SX6 1R RESET FIRST CHARACTER BLANK
00267 M00S00266.sechdr +++| SA6 WBUFS
00268 M00S00267.sechdr +++| EQ BPP2 TRANSFER MORE DATA
00269 M00S00268.sechdr +++|
00270 M00S00269.sechdr +++| BPP6 SX1 X1+1
00271 M00S00270.sechdr +++| NG X1,BPP9 IF EOI ENCOUNTERED
00272 M00S00271.sechdr +++|
00273 M00S00272.sechdr +++|* EOF ENCOUNTERED.
00274 M00S00273.sechdr +++|
00275 M00S00274.sechdr +++| WRITEF S
00276 M00S00275.sechdr +++| ZR X5,BPP7 IF BANNER UNIT FILE
00277 M00S00276.sechdr +++| SX1 X5-1
00278 M00S00277.sechdr +++| NZ X1,BPP8 IF BANNER UNIT NOT RECORD
00279 M00S00278.sechdr +++| SX1 X0+1
00280 M00S00279.sechdr +++| ZR X1,BPP8 IF NO DATA (EOR)
00281 M00S00280.sechdr +++| BPP7 RJ WBP WRITE BANNER PAGE
00282 M00S00281.sechdr +++| BPP8 SX0 -2 SET NO DATA (EOF)
00283 M00S00282.sechdr +++| EQ BPP1 READ NEXT RECORD
00284 M00S00283.sechdr +++|
00285 M00S00284.sechdr +++|* EOI ENCOUNTERED.
00286 M00S00285.sechdr +++|
00287 M00S00286.sechdr +++| BPP9 NG X5,BPP10 IF BANNER AT BOI/EOI
00288 M00S00287.sechdr +++| NG X0,BPPX IF NO DATA READ SINCE LAST BANNER WRITTEN
00289 M00S00288.sechdr +++| BPP10 RJ WBP WRITE BANNER PAGE
00290 M00S00289.sechdr +++| EQ BPPX
00291 M00S00290.sechdr +++| CBP SPACE 4,15
00292 M00S00291.sechdr +++|** CBP - CREATE BANNER PAGE.
00293 M00S00292.sechdr +++|*
00294 M00S00293.sechdr +++|* EXIT (BPBL) = LENGTH OF ACCESS LEVEL NAME BUFFER.
00295 M00S00294.sechdr +++|*
00296 M00S00295.sechdr +++|* USES X - 0, 1, 2, 4, 6.
00297 M00S00296.sechdr +++|* A - 1, 2, 4, 6.
00298 M00S00297.sechdr +++|* B - 2.
00299 M00S00298.sechdr +++|*
00300 M00S00299.sechdr +++|* CALLS BAN.
00301 M00S00300.sechdr +++|*
00302 M00S00301.sechdr +++|* MACROS DATE, USERNUM.
00303 M00S00302.sechdr +++|
00304 M00S00303.sechdr +++|
00305 M00S00304.sechdr +++| CBP SUBR ENTRY/EXIT
00306 M00S00305.sechdr +++| SA1 F GET FILE NAME
00307 M00S00306.sechdr +++| MX0 42
00308 M00S00307.sechdr +++| BX6 X0*X1
00309 M00S00308.sechdr +++| SA6 BPBA+2
00310 M00S00309.sechdr +++| DATE BPBB+2 GET CURRENT DATE
00311 M00S00310.sechdr +++| SA1 BPBB+2 REMOVE LEADING SPACE
00312 M00S00311.sechdr +++| SB2 6
00313 M00S00312.sechdr +++| LX6 X1,B2
00314 M00S00313.sechdr +++| SA6 A1
00315 M00S00314.sechdr +++| USERNUM BPBC+2 GET USER NAME
00316 M00S00315.sechdr +++| SA4 ALVL GET ACCESS LEVEL NAME
00317 M00S00316.sechdr +++| SA2 BPB2
00318 M00S00317.sechdr +++| RJ BAN ENCODE BANNER MESSAGE
00319 M00S00318.sechdr +++| SX6 A2-BPB2 STORE LENGTH OF ACCESS LEVEL NAME BUFFER
00320 M00S00319.sechdr +++| SA6 BPBL
00321 M00S00320.sechdr +++| EQ CBPX RETURN
00322 M00S00321.sechdr +++| CLC SPACE 4,15
00323 M00S00322.sechdr +++|** CLC - CHECK LINE COUNT.
00324 M00S00323.sechdr +++|*
00325 M00S00324.sechdr +++|* ENTRY (X1) = FIRST CHARACTER OF LINE, LEFT JUSTIFIED.
00326 M00S00325.sechdr +++|*
00327 M00S00326.sechdr +++|* EXIT (X2) = 1, IF NOT END OF PAGE.
00328 M00S00327.sechdr +++|* = 0, IF END OF PAGE.
00329 M00S00328.sechdr +++|* = -1, IF LINE SHOULD NOT BE PRINTED.
00330 M00S00329.sechdr +++|* (X7) = LINES LEFT ON PAGE.
00331 M00S00330.sechdr +++|* (X5) = 0, IF PAGE EMPTY BEFORE READING THIS LINE.
00332 M00S00331.sechdr +++|* (X4) = 0, IF CHARACTER IS PAGE EJECT.
00333 M00S00332.sechdr +++|* = 1, IF CHARACTER IS NOT PAGE EJECT.
00334 M00S00333.sechdr +++|*
00335 M00S00334.sechdr +++|* USES X - 1, 2, 3, 4, 5, 6, 7.
00336 M00S00335.sechdr +++|* A - 1, 2, 3, 4, 5, 6, 7.
00337 M00S00336.sechdr +++|* B - 2.
00338 M00S00337.sechdr +++|*
00339 M00S00338.sechdr +++|* CALLS RCC, SBP.
00340 M00S00339.sechdr +++|*
00341 M00S00340.sechdr +++|* MACROS WRITEW.
00342 M00S00341.sechdr +++|
00343 M00S00342.sechdr +++|
00344 M00S00343.sechdr +++| CLC10 SX3 1 FORCE LINE INCREMENT OF ONE
00345 M00S00344.sechdr +++| CLC11 SA4 LCNT UPDATE LINE COUNT
00346 M00S00345.sechdr +++| IX7 X4-X3
00347 M00S00346.sechdr +++| SA7 A4
00348 M00S00347.sechdr +++| SX2 B1+ SET NOT END OF PAGE
00349 M00S00348.sechdr +++| PL X7,CLC13 IF NOT END OF PAGE
00350 M00S00349.sechdr +++| CLC12 SA2 LNPG RESET LINE COUNT
00351 M00S00350.sechdr +++| IX6 X2-X3
00352 M00S00351.sechdr +++| IX7 X7+X3 RESET LINES REMAINING ON PAGE
00353 M00S00352.sechdr +++| SA6 LCNT
00354 M00S00353.sechdr +++| SX2 B0+ SET END OF PAGE
00355 M00S00354.sechdr +++| CLC13 SX4 B1+ SET NOT PAGE EJECT
00356 M00S00355.sechdr +++| SA5 CLCA SET PAGE EMPTY STATUS
00357 M00S00356.sechdr +++|
00358 M00S00357.sechdr +++| CLC SUBR
00359 M00S00358.sechdr +++| SA2 LNPG SAVE PAGE EMPTY STATUS
00360 M00S00359.sechdr +++| SA3 LCNT
00361 M00S00360.sechdr +++| SA4 EPWH
00362 M00S00361.sechdr +++| IX6 X2-X3
00363 M00S00362.sechdr +++| IX6 X4+X6 ADD *EMPTY PAGE WITH HEADER* FLAG
00364 M00S00363.sechdr +++| SA6 CLCA
00365 M00S00364.sechdr +++| BX7 X7-X7 CLEAR FLAG
00366 M00S00365.sechdr +++| SA7 A4
00367 M00S00366.sechdr +++| MX6 6
00368 M00S00367.sechdr +++| SA3 BLKL CHECK FOR CARRIAGE CONTROL
00369 M00S00368.sechdr +++| BX3 X1-X3
00370 M00S00369.sechdr +++| ZR X3,CLC10 IF NO CARRIAGE CONTROL
00371 M00S00370.sechdr +++| SB2 TCCCL-1
00372 M00S00371.sechdr +++| CLC1 SA3 TCCC+B2 SEARCH FOR CARRIAGE CONTROL CHARACTER
00373 M00S00372.sechdr +++| BX4 X6*X3
00374 M00S00373.sechdr +++| BX7 X4-X1
00375 M00S00374.sechdr +++| ZR X7,CLC2 IF CHARACTER FOUND
00376 M00S00375.sechdr +++| SB2 B2-1
00377 M00S00376.sechdr +++| PL B2,CLC1 IF MORE TABLE TO SEARCH
00378 M00S00377.sechdr +++| EQ CLC10 IGNORE UNKNOWN CARRIAGE CONTROL CHARACTER
00379 M00S00378.sechdr +++|
00380 M00S00379.sechdr +++| CLC2 SX3 X3 EXTRACT LINE COUNT
00381 M00S00380.sechdr +++| SX2 -B1
00382 M00S00381.sechdr +++| NG X3,CLCX IF LINE TO BE IGNORED
00383 M00S00382.sechdr +++| SA1 LNPG SET PAGE EMPTY STATUS
00384 M00S00383.sechdr +++| SA2 LCNT
00385 M00S00384.sechdr +++| LX4 6
00386 M00S00385.sechdr +++| SA5 CLCA
00387 M00S00386.sechdr +++| SX7 X4-1R2
00388 M00S00387.sechdr +++| ZR X7,CLC6 IF CARRIAGE CONTROL IS *2*
00389 M00S00388.sechdr +++| SX7 X4-1R/
00390 M00S00389.sechdr +++| ZR X7,CLC9 IF CARRIAGE CONTROL IS */*
00391 M00S00390.sechdr +++| SX7 X4-1R1
00392 M00S00391.sechdr +++| NZ X7,CLC11 IF CARRIAGE CONTROL IS NOT *1*
00393 M00S00392.sechdr +++|
00394 M00S00393.sechdr +++|* PROCESS PAGE EJECT.
00395 M00S00394.sechdr +++|
00396 M00S00395.sechdr +++| CLC3 BX7 X2 SET LINES LEFT ON PAGE
00397 M00S00396.sechdr +++| IX6 X1-X3 UPDATE LINE COUNT
00398 M00S00397.sechdr +++| SA6 LCNT
00399 M00S00398.sechdr +++| SA1 POPT
00400 M00S00399.sechdr +++| ZR X1,CLC4 IF CARRIAGE CONTROL SHOULD BE LEFT ON
00401 M00S00400.sechdr +++| RJ RCC REMOVE CARRIAGE CONTROL CHARACTER
00402 M00S00401.sechdr +++| CLC4 SX2 B0+ SET END OF PAGE
00403 M00S00402.sechdr +++| NZ X5,CLC5 IF PAGE NOT EMPTY
00404 M00S00403.sechdr +++| SX2 B1 SET NOT END OF PAGE
00405 M00S00404.sechdr +++| CLC5 BX4 X4-X4 SET PAGE EJECT
00406 M00S00405.sechdr +++| EQ CLCX RETURN
00407 M00S00406.sechdr +++|
00408 M00S00407.sechdr +++|* PROCESS SKIP TO BOTTOM OF PAGE.
00409 M00S00408.sechdr +++|
00410 M00S00409.sechdr +++| CLC6 SA3 POPT
00411 M00S00410.sechdr +++| NZ X3,CLC7 IF CARRIAGE CONTROL SHOULD BE REMOVED
00412 M00S00411.sechdr +++| BX7 X1 RESET LINE COUNT
00413 M00S00412.sechdr +++| SA7 LCNT
00414 M00S00413.sechdr +++| SX2 B1 SET NOT END OF PAGE
00415 M00S00414.sechdr +++| EQ CLC13 SET NOT PAGE EJECT
00416 M00S00415.sechdr +++|
00417 M00S00416.sechdr +++| CLC7 SX7 X2-1
00418 M00S00417.sechdr +++| NZ X5,CLC8 IF PAGE NOT EMPTY
00419 M00S00418.sechdr +++| WRITEW S,HEAD,HEADL WRITE HEADER
00420 M00S00419.sechdr +++| SA1 LNPG
00421 M00S00420.sechdr +++| SX7 X1-1
00422 M00S00421.sechdr +++| CLC8 RJ SBP SKIP TO BOTTOM OF PAGE
00423 M00S00422.sechdr +++| RJ RCC REMOVE CARRIAGE CONTROL CHARACTER
00424 M00S00423.sechdr +++| BX7 X7-X7 SET PAGE AT LAST LINE
00425 M00S00424.sechdr +++| SA7 LCNT
00426 M00S00425.sechdr +++| SX2 B1 SET NOT END OF PAGE
00427 M00S00426.sechdr +++| SX5 B1 INSURE NO HEADER WRITTEN
00428 M00S00427.sechdr +++| SX4 B1 SET NOT PAGE EJECT
00429 M00S00428.sechdr +++| EQ CLCX RETURN
00430 M00S00429.sechdr +++|
00431 M00S00430.sechdr +++|* PROCESS SUPPRESS CARRIAGE ADVANCE AFTER PRINTING.
00432 M00S00431.sechdr +++|
00433 M00S00432.sechdr +++| CLC9 NZ X2,CLC11 IF NOT END OF PAGE
00434 M00S00433.sechdr +++| SX7 B0+
00435 M00S00434.sechdr +++| SX6 B1 SET *EMPTY PAGE WITH HEADER* FLAG
00436 M00S00435.sechdr +++| SA6 EPWH
00437 M00S00436.sechdr +++| EQ CLC12 FORCE END OF PAGE
00438 M00S00437.sechdr +++|
00439 M00S00438.sechdr +++|
00440 M00S00439.sechdr +++| CLCA CON 0 PAGE EMPTY STATUS
00441 M00S00440.sechdr +++| TCCC SPACE 4,10
00442 M00S00441.sechdr +++|** TABLE OF CARRIAGE CONTROL CHARACTERS.
00443 M00S00442.sechdr +++|*
00444 M00S00443.sechdr +++|*T,TCCC 6/ CC,36/ 0,18/ LC
Figure
TCCC
00445 M00S00444.sechdr +++|*
00446 M00S00445.sechdr +++|* CC = CHARACTER.
00447 M00S00446.sechdr +++|* LC = LINE COUNT TO ADD.
00448 M00S00447.sechdr +++|
00449 M00S00448.sechdr +++|
00450 M00S00449.sechdr +++| TCCC BSS 0
00451 M00S00450.sechdr +++| VFD 6/1L/,36/0,18/0
00452 M00S00451.sechdr +++| VFD 6/1L2,36/0,18/0
00453 M00S00452.sechdr +++| VFD 6/1L+,36/0,18/0
00454 M00S00453.sechdr +++| VFD 6/1L-,36/0,18/3
00455 M00S00454.sechdr +++| VFD 6/1L0,36/0,18/2
00456 M00S00455.sechdr +++| VFD 6/1LS,36/0,18/-1
00457 M00S00456.sechdr +++| VFD 6/1LT,36/0,18/-1
00458 M00S00457.sechdr +++| VFD 6/1L1,36/0,18/1
00459 M00S00458.sechdr +++| TCCCL EQU *-TCCC
00460 M00S00459.sechdr +++| HFF SPACE 4,20
00461 M00S00460.sechdr +++|** HFF - OUTPUT HEAD AND FOOT SECURITY LINES FOR A
00462 M00S00461.sechdr +++|* FORMATTED FILE.
00463 M00S00462.sechdr +++|*
00464 M00S00463.sechdr +++|* ENTRY (BUNT) = BANNER UNIT VALUE.
00465 M00S00464.sechdr +++|* (X0) = 0 (DATA READ).
00466 M00S00465.sechdr +++|*
00467 M00S00466.sechdr +++|* USES X - 0, 1, 2, 5, 6, 7.
00468 M00S00467.sechdr +++|* A - 1, 2, 6.
00469 M00S00468.sechdr +++|*
00470 M00S00469.sechdr +++|* CALLS CLC, SBP, WBP.
00471 M00S00470.sechdr +++|*
00472 M00S00471.sechdr +++|* MACROS READ, READC, RECALL, WRITEC, WRITEF, WRITER, WRITEW.
00473 M00S00472.sechdr +++|*
00474 M00S00473.sechdr +++|* DEFINE (X0) = 0 IF DATA READ.
00475 M00S00474.sechdr +++|* = -1 IF NO DATA (EOR).
00476 M00S00475.sechdr +++|* = -2 IF NO DATA (EOF).
00477 M00S00476.sechdr +++|
00478 M00S00477.sechdr +++|
00479 M00S00478.sechdr +++| HFF SUBR ENTRY/EXIT
00480 M00S00479.sechdr +++|
00481 M00S00480.sechdr +++|* READ FILE.
00482 M00S00481.sechdr +++|
00483 M00S00482.sechdr +++| HFF1 SA1 LNPG FORCE NEW PAGE
00484 M00S00483.sechdr +++| BX6 X1
00485 M00S00484.sechdr +++| BX7 X7-X7
00486 M00S00485.sechdr +++| SA6 LCNT
00487 M00S00486.sechdr +++| SA7 EPWH CLEAR EMPTY PAGE WITH HEADER FLAG
00488 M00S00487.sechdr +++| READ F
00489 M00S00488.sechdr +++| RECALL S
00490 M00S00489.sechdr +++|
00491 M00S00490.sechdr +++|* READ FILE LINE.
00492 M00S00491.sechdr +++|
00493 M00S00492.sechdr +++| HFF2 READC F,WBUF,WBUFL
00494 M00S00493.sechdr +++| ZR X1,HFF4 IF TRANSFER COMPLETE
00495 M00S00494.sechdr +++| NG X1,HFF8 IF EOF OR EOI
00496 M00S00495.sechdr +++|
00497 M00S00496.sechdr +++|* END OF RECORD ENCOUNTERED.
00498 M00S00497.sechdr +++|
00499 M00S00498.sechdr +++| SA2 LCNT ENSURE FOOTING AT BOTTOM OF PAGE
00500 M00S00499.sechdr +++| SA1 LNPG
00501 M00S00500.sechdr +++| IX1 X1-X2
00502 M00S00501.sechdr +++| NZ X1,HFF3 IF HEADING ALREADY WRITTEN
00503 M00S00502.sechdr +++| SA1 EPWH
00504 M00S00503.sechdr +++| NZ X1,HFF3 IF HEADING ALREADY WRITTEN
00505 M00S00504.sechdr +++| WRITEW S,HEAD,HEADL WRITE HEADING
00506 M00S00505.sechdr +++| SA2 LNPG
00507 M00S00506.sechdr +++| HFF3 BX7 X2
00508 M00S00507.sechdr +++| RJ SBP SKIP TO BOTTOM OF PAGE
00509 M00S00508.sechdr +++| WRITEW S,FOOT,FOOTL WRITE FOOTING
00510 M00S00509.sechdr +++| WRITER S
00511 M00S00510.sechdr +++| SX0 B0+ SET DATA (EOR) READ
00512 M00S00511.sechdr +++| SA1 BUNT
00513 M00S00512.sechdr +++| NZ X1,HFF1 IF BANNER UNIT NOT RECORD
00514 M00S00513.sechdr +++| RJ WBP WRITE BANNER PAGE
00515 M00S00514.sechdr +++| SX0 -1 SET NO DATA
00516 M00S00515.sechdr +++| EQ HFF1 READ NEXT RECORD
00517 M00S00516.sechdr +++|
00518 M00S00517.sechdr +++|* WRITE FILE LINE.
00519 M00S00518.sechdr +++|
00520 M00S00519.sechdr +++| HFF4 SX0 B0+ SET DATA READ
00521 M00S00520.sechdr +++| SA1 WBUF GET FIRST CHARACTER IN LINE
00522 M00S00521.sechdr +++| MX2 6
00523 M00S00522.sechdr +++| BX1 X2*X1
00524 M00S00523.sechdr +++| RJ CLC CHECK LINE COUNT
00525 M00S00524.sechdr +++| NG X2,HFF2 IF LINE SHOULD BE SKIPPED
00526 M00S00525.sechdr +++| ZR X5,HFF6 IF HEADING NOT ALREADY WRITTEN
00527 M00S00526.sechdr +++| NZ X2,HFF7 IF NOT END OF PAGE
00528 M00S00527.sechdr +++| RJ SBP SKIP TO BOTTOM OF PAGE
00529 M00S00528.sechdr +++| WRITEW S,FOOT,FOOTL WRITE FOOTING
00530 M00S00529.sechdr +++| HFF6 WRITEW S,HEAD,HEADL WRITE HEADING
00531 M00S00530.sechdr +++| HFF7 WRITEC S,WBUF WRITE DATA LINE
00532 M00S00531.sechdr +++| EQ HFF2 READ NEXT LINE
00533 M00S00532.sechdr +++|
00534 M00S00533.sechdr +++| HFF8 SX1 X1+1
00535 M00S00534.sechdr +++| NG X1,HFF11 IF EOI ENCOUNTERED
00536 M00S00535.sechdr +++| WRITEF S
00537 M00S00536.sechdr +++| SA1 BUNT
00538 M00S00537.sechdr +++| SX1 X1+1
00539 M00S00538.sechdr +++| ZR X1,HFF9 IF BANNER UNIT FILE
00540 M00S00539.sechdr +++| SX1 X1-1
00541 M00S00540.sechdr +++| NZ X1,HFF10 IF BANNER UNIT NOT RECORD
00542 M00S00541.sechdr +++| SX1 X0+1
00543 M00S00542.sechdr +++| ZR X1,HFF10
00544 M00S00543.sechdr +++| HFF9 RJ WBP WRITE BANNER PAGE
00545 M00S00544.sechdr +++| HFF10 SX0 -2 SET NO DATA (EOF)
00546 M00S00545.sechdr +++| EQ HFF1 READ NEXT RECORD
00547 M00S00546.sechdr +++|
00548 M00S00547.sechdr +++| HFF11 SA1 BUNT
00549 M00S00548.sechdr +++| SX2 X1+2
00550 M00S00549.sechdr +++| ZR X2,HFF12 IF BANNER AT BOI/EOI
00551 M00S00550.sechdr +++| NG X0,HFFX IF NO DATA READ SINCE LAST BANNER WRITTEN
00552 M00S00551.sechdr +++| SX2 X1-1
00553 M00S00552.sechdr +++| ZR X2,HFFX IF BANNER NOT TO BE WRITTEN
00554 M00S00553.sechdr +++| HFF12 RJ WBP WRITE BANNER PAGE
00555 M00S00554.sechdr +++| EQ HFFX RETURN
00556 M00S00555.sechdr +++| HFU SPACE 4,20
00557 M00S00556.sechdr +++|** HFU - OUTPUT HEAD AND FOOT SECURITY LINES FOR AN
00558 M00S00557.sechdr +++|* UNFORMATTED FILE.
00559 M00S00558.sechdr +++|*
00560 M00S00559.sechdr +++|* ENTRY (BUNT) = BANNER UNIT VALUE.
00561 M00S00560.sechdr +++|*
00562 M00S00561.sechdr +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
00563 M00S00562.sechdr +++|* A - 1, 2, 3, 5, 6, 7.
00564 M00S00563.sechdr +++|* B - 2, 5, 7.
00565 M00S00564.sechdr +++|*
00566 M00S00565.sechdr +++|* CALLS CDD, SBP, SNM, WBP.
00567 M00S00566.sechdr +++|*
00568 M00S00567.sechdr +++|* MACROS MESSAGE, READ, READS, RECALL, WRITEF, WRITER, WRITES,
00569 M00S00568.sechdr +++|* WRITEW.
00570 M00S00569.sechdr +++|*
00571 M00S00570.sechdr +++|* DEFINE (X0) = 0 IF DATA READ.
00572 M00S00571.sechdr +++|* = -1 IF NO DATA (EOR).
00573 M00S00572.sechdr +++|* = -2 IF NO DATA (EOF).
00574 M00S00573.sechdr +++|
00575 M00S00574.sechdr +++|
00576 M00S00575.sechdr +++| HFU SUBR ENTRY/EXIT
00577 M00S00576.sechdr +++| SX6 1R ENSURE FIRST CHARACTER BLANK
00578 M00S00577.sechdr +++| SA6 WBUFS
00579 M00S00578.sechdr +++|
00580 M00S00579.sechdr +++|* READ FILE.
00581 M00S00580.sechdr +++|
00582 M00S00581.sechdr +++| HFU1 SA1 LNPG FORCE NEW PAGE
00583 M00S00582.sechdr +++| BX6 X1
00584 M00S00583.sechdr +++| BX7 X7-X7
00585 M00S00584.sechdr +++| SA6 LCNT
00586 M00S00585.sechdr +++| SA7 EPWH CLEAR EMPTY PAGE WITH HEADER FLAG
00587 M00S00586.sechdr +++| READ F
00588 M00S00587.sechdr +++| RECALL S
00589 M00S00588.sechdr +++|
00590 M00S00589.sechdr +++|* READ FILE LINE.
00591 M00S00590.sechdr +++|
00592 M00S00591.sechdr +++| HFU2 READS F,WBUF,WBUFL
00593 M00S00592.sechdr +++| ZR X1,HFU4 IF TRANSFER COMPLETE
00594 M00S00593.sechdr +++| NG X1,HFU8 IF EOF OR EOI
00595 M00S00594.sechdr +++|
00596 M00S00595.sechdr +++|* EOR ENCOUNTERED.
00597 M00S00596.sechdr +++|
00598 M00S00597.sechdr +++| SA2 LCNT ENSURE FOOTING AT BOTTOM PAGE
00599 M00S00598.sechdr +++| SA1 LNPG
00600 M00S00599.sechdr +++| IX1 X1-X2
00601 M00S00600.sechdr +++| NZ X1,HFU3 IF HEADING ALREADY WRITTEN
00602 M00S00601.sechdr +++| SA1 EPWH
00603 M00S00602.sechdr +++| NZ X1,HFU3 IF HEADING ALREADY WRITTEN
00604 M00S00603.sechdr +++| WRITEW S,HEAD,HEADL WRITE HEADING
00605 M00S00604.sechdr +++| SA2 LNPG
00606 M00S00605.sechdr +++| HFU3 BX7 X2
00607 M00S00606.sechdr +++| RJ SBP SKIP TO BOTTOM OF PAGE
00608 M00S00607.sechdr +++| WRITEW S,FOOT,FOOTL WRITE FOOTING
00609 M00S00608.sechdr +++| WRITER S
00610 M00S00609.sechdr +++| SX0 B0+ SET DATA (EOR) READ
00611 M00S00610.sechdr +++| SA1 BUNT
00612 M00S00611.sechdr +++| NZ X1,HFU1 IF NO BANNER PAGE
00613 M00S00612.sechdr +++| RJ WBP WRITE BANNER PAGE
00614 M00S00613.sechdr +++| SX0 -1 SET NO DATA
00615 M00S00614.sechdr +++| EQ HFU1 READ NEXT RECORD
00616 M00S00615.sechdr +++|
00617 M00S00616.sechdr +++|* WRITE FILE LINE.
00618 M00S00617.sechdr +++|
00619 M00S00618.sechdr +++| HFU4 SX0 B0+ SET DATA READ
00620 M00S00619.sechdr +++| SB7 WBUF+WBUFL LWA+1 OF BUFFER
00621 M00S00620.sechdr +++| NE B6,B7,HFU5 IF BUFFER NOT FULL
00622 M00S00621.sechdr +++| SA1 LTCT INCREMENT TRUNCATION COUNT
00623 M00S00622.sechdr +++| SX3 B1
00624 M00S00623.sechdr +++| IX7 X1+X3
00625 M00S00624.sechdr +++| SA7 A1+
00626 M00S00625.sechdr +++| HFU5 SA5 LCNT
00627 M00S00626.sechdr +++| SA2 LNPG
00628 M00S00627.sechdr +++| IX2 X5-X2
00629 M00S00628.sechdr +++| ZR X2,HFU6 IF HEADING NOT WRITTEN YET
00630 M00S00629.sechdr +++| NZ X5,HFU7 IF NOT END OF PAGE
00631 M00S00630.sechdr +++| WRITEW S,FOOT,FOOTL WRITE FOOTING
00632 M00S00631.sechdr +++| SA5 LNPG RESET LINE COUNT
00633 M00S00632.sechdr +++| HFU6 WRITEW S,HEAD,HEADL WRITE HEADING
00634 M00S00633.sechdr +++| HFU7 WRITES S,WBUFS,WBUFL WRITE DATA LINE
00635 M00S00634.sechdr +++| SX7 X5-1 UPDATE LINE COUNT
00636 M00S00635.sechdr +++| SA7 LCNT
00637 M00S00636.sechdr +++| EQ HFU2 READ NEXT LINE
00638 M00S00637.sechdr +++|
00639 M00S00638.sechdr +++| HFU8 SX1 X1+1
00640 M00S00639.sechdr +++| NG X1,HFU11 IF EOI ENCOUNTERED
00641 M00S00640.sechdr +++| WRITEF S
00642 M00S00641.sechdr +++| SA1 BUNT
00643 M00S00642.sechdr +++| SX1 X1+1
00644 M00S00643.sechdr +++| ZR X1,HFU9 IF BANNER UNIT FILE
00645 M00S00644.sechdr +++| SX1 X1-1
00646 M00S00645.sechdr +++| NZ X1,HFU10 IF BANNER UNIT NOT RECORD
00647 M00S00646.sechdr +++| SX1 X0+1
00648 M00S00647.sechdr +++| ZR X1,HFU10 IF NO DATA (EOR)
00649 M00S00648.sechdr +++| HFU9 RJ WBP WRITE BANNER PAGE
00650 M00S00649.sechdr +++| HFU10 SX0 -2 SET NO DATA (EOF)
00651 M00S00650.sechdr +++| EQ HFU1 READ NEXT RECORD
00652 M00S00651.sechdr +++|
00653 M00S00652.sechdr +++| HFU11 SA1 BUNT
00654 M00S00653.sechdr +++| SX2 X1+2
00655 M00S00654.sechdr +++| ZR X2,HFU12 IF BANNER AT BOI/EOI
00656 M00S00655.sechdr +++| NG X0,HFU13 IF NO DATA READ SINCE LAST BANNER WRITTEN
00657 M00S00656.sechdr +++| SX2 X1-1
00658 M00S00657.sechdr +++| ZR X2,HFU13 IF BANNER NOT TO BE WRITTEN
00659 M00S00658.sechdr +++| HFU12 RJ WBP WRITE BANNER PAGE
00660 M00S00659.sechdr +++|
00661 M00S00660.sechdr +++|* ISSUE LINES TRUNCATED MESSAGE.
00662 M00S00661.sechdr +++|
00663 M00S00662.sechdr +++| HFU13 SA1 LTCT GET TRUNCATION COUNT
00664 M00S00663.sechdr +++| ZR X1,HFUX IF NO LINES TRUNCATED
00665 M00S00664.sechdr +++| SX5 HFUA
00666 M00S00665.sechdr +++| SX2 X1-1
00667 M00S00666.sechdr +++| ZR X2,HFU14 IF ONE LINE TRUNCATED
00668 M00S00667.sechdr +++| SX5 HFUB
00669 M00S00668.sechdr +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE
00670 M00S00669.sechdr +++| MX1 1 ENTER COUNT IN MESSAGE
00671 M00S00670.sechdr +++| SB2 B2-B1
00672 M00S00671.sechdr +++| AX1 B2
00673 M00S00672.sechdr +++| BX1 X1*X4
00674 M00S00673.sechdr +++| SB2 1RX
00675 M00S00674.sechdr +++| SB5 X5+
00676 M00S00675.sechdr +++| RJ SNM SET LINE COUNT IN MESSAGE
00677 M00S00676.sechdr +++| HFU14 MESSAGE X5,3 ISSUE LINES TRUNCATED MESSAGE
00678 M00S00677.sechdr +++| EQ HFUX RETURN
00679 M00S00678.sechdr +++|
00680 M00S00679.sechdr +++|
00681 M00S00680.sechdr +++| HFUA DATA C* 1 LINE TRUNCATED.*
00682 M00S00681.sechdr +++| HFUB DATA C* XXXXXXXXXX LINES TRUNCATED.*
00683 M00S00682.sechdr +++| RCC SPACE 4,10
00684 M00S00683.sechdr +++|** RCC - REMOVE CARRIAGE CONTROL CHARACTER.
00685 M00S00684.sechdr +++|*
00686 M00S00685.sechdr +++|* ENTRY (WBUF) = LINE OF FILE.
00687 M00S00686.sechdr +++|*
00688 M00S00687.sechdr +++|* EXIT CARRIAGE CONTROL (FIRST CHARACTER) REMOVED
00689 M00S00688.sechdr +++|* FROM SPECIFIED LINE OF FILE.
00690 M00S00689.sechdr +++|*
00691 M00S00690.sechdr +++|* USES X - 1, 2, 4, 6.
00692 M00S00691.sechdr +++|* A - 1, 4, 6.
00693 M00S00692.sechdr +++|
00694 M00S00693.sechdr +++|
00695 M00S00694.sechdr +++| RCC SUBR ENTRY/EXIT
00696 M00S00695.sechdr +++| SA1 WBUF REMOVE CARRIAGE CONTROL
00697 M00S00696.sechdr +++| MX2 6
00698 M00S00697.sechdr +++| BX1 -X2*X1
00699 M00S00698.sechdr +++| SA4 BLKL FILL HOLE WITH BLANK
00700 M00S00699.sechdr +++| BX6 X1+X4
00701 M00S00700.sechdr +++| SA6 A1
00702 M00S00701.sechdr +++| EQ RCCX RETURN
00703 M00S00702.sechdr +++| SBP SPACE 4,10
00704 M00S00703.sechdr +++|** SBP - SKIP TO BOTTOM OF PAGE.
00705 M00S00704.sechdr +++|*
00706 M00S00705.sechdr +++|* ENTRY (X7) = NUMBER OF BLANK LINES TO WRITE.
00707 M00S00706.sechdr +++|*
00708 M00S00707.sechdr +++|* USES X - 7.
00709 M00S00708.sechdr +++|* B - 7.
00710 M00S00709.sechdr +++|*
00711 M00S00710.sechdr +++|* MACROS WRITEC.
00712 M00S00711.sechdr +++|
00713 M00S00712.sechdr +++|
00714 M00S00713.sechdr +++| SBP SUBR ENTRY/EXIT
00715 M00S00714.sechdr +++| SB7 X7 NUMBER OF BLANK LINES TO WRITE
00716 M00S00715.sechdr +++| SX7 X7-1
00717 M00S00716.sechdr +++| NG X7,SBPX IF NO BLANK LINES NEEDED
00718 M00S00717.sechdr +++| SBP1 WRITEC S,BLKL WRITE BLANK LINE
00719 M00S00718.sechdr +++| SB7 B7-1
00720 M00S00719.sechdr +++| NZ B7,SBP1 IF MORE LINES TO WRITE
00721 M00S00720.sechdr +++| EQ SBPX RETURN
00722 M00S00721.sechdr +++| WBP SPACE 4,10
00723 M00S00722.sechdr +++|** WBP - WRITE BANNER PAGE.
00724 M00S00723.sechdr +++|*
00725 M00S00724.sechdr +++|* USES X - 1.
00726 M00S00725.sechdr +++|* A - 1.
00727 M00S00726.sechdr +++|*
00728 M00S00727.sechdr +++|* MACROS WRITER, WRITEW.
00729 M00S00728.sechdr +++|
00730 M00S00729.sechdr +++|
00731 M00S00730.sechdr +++| WBP SUBR ENTRY/EXIT
00732 M00S00731.sechdr +++| WRITEW S,BPB1,BPB1L
00733 M00S00732.sechdr +++| SA1 BPBL GET BUFFER LENGTH
00734 M00S00733.sechdr +++| WRITEW S,BPB2,X1
00735 M00S00734.sechdr +++| WRITER S
00736 M00S00735.sechdr +++| EQ WBPX RETURN
00737 M00S00736.sechdr +++| SPACE 4,10
00738 M00S00737.sechdr +++|* COMMON DECKS.
00739 M00S00738.sechdr +++|
00740 M00S00739.sechdr +++|
00741 M00S00740.sechdr +++|*CALL COMCARG
00742 M00S00741.sechdr +++|*CALL COMCBAN
00743 M00S00742.sechdr +++|*CALL COMCCDD
00744 M00S00743.sechdr +++|*CALL COMCCIO
00745 M00S00744.sechdr +++|*CALL COMCCPM
00746 M00S00745.sechdr +++|*CALL COMCLFM
00747 M00S00746.sechdr +++|*CALL COMCRDC
00748 M00S00747.sechdr +++|*CALL COMCRDS
00749 M00S00748.sechdr +++|*CALL COMCRDW
00750 M00S00749.sechdr +++|*CALL COMCSFN
00751 M00S00750.sechdr +++|*CALL COMCSNM
00752 M00S00751.sechdr +++|*CALL COMCSYS
00753 M00S00752.sechdr +++|*CALL COMCWTC
00754 M00S00753.sechdr +++|*CALL COMCWTS
00755 M00S00754.sechdr +++|*CALL COMCWTW
00756 M00S00755.sechdr +++|*CALL COMCVLC
00757 M00S00756.sechdr +++|*CALL COMTBAN
00758 M00S00757.sechdr +++| TITLE BUFFER AREA.
00759 M00S00758.sechdr +++| SPACE 4,10
00760 M00S00759.sechdr +++|* BUFFERS.
00761 M00S00760.sechdr +++|
00762 M00S00761.sechdr +++| USE LITERALS
00763 M00S00762.sechdr +++|
00764 M00S00763.sechdr +++|
00765 M00S00764.sechdr +++| BPB1 BSS 0 BANNER PAGE HEADER BUFFER
00766 M00S00765.sechdr +++| DATA 40H1
00767 M00S00766.sechdr +++| BPBA DATA 28H FILE NAME =
00768 M00S00767.sechdr +++| DATA 1L
00769 M00S00768.sechdr +++| DATA 40H
00770 M00S00769.sechdr +++| BPBB DATA 30H DATE PRINTED =
00771 M00S00770.sechdr +++| DATA 1L
00772 M00S00771.sechdr +++| DATA 1L
00773 M00S00772.sechdr +++| DATA 40H
00774 M00S00773.sechdr +++| BPBC DATA 30H USER NAME =
00775 M00S00774.sechdr +++| DATA 1L
00776 M00S00775.sechdr +++| DUP 10,1
00777 M00S00776.sechdr +++| DATA 1L
00778 M00S00777.sechdr +++| BPB1L EQU *-BPB1
00779 M00S00778.sechdr +++| SPACE 4,10
00780 M00S00779.sechdr +++| BPB2 BSS 0 ACCESS LEVEL NAME BUFFER
00781 M00S00780.sechdr +++| BSSZ 401
00782 M00S00781.sechdr +++| SPACE 4,10
00783 M00S00782.sechdr +++| FBUF EQU * SECURED FILE BUFFER
00784 M00S00783.sechdr +++| SBUF EQU FBUF+FBUFL SCRATCH FILE BUFFER
00785 M00S00784.sechdr +++| WBUFS EQU SBUF+SBUFL SHIFTED WORKING BUFFER
00786 M00S00785.sechdr +++| WBUF EQU WBUFS+1 WORKING BUFFER
00787 M00S00786.sechdr +++| RFL= EQU WBUF+WBUFL+4 SET *SECHDR* FL
00788 M00S00787.sechdr +++| TITLE PRESET.
00789 M00S00788.sechdr +++| PRS SPACE 4,20
00790 M00S00789.sechdr +++|** PRS - PRESET.
00791 M00S00790.sechdr +++|*
00792 M00S00791.sechdr +++|* EXIT ARGUMENTS PROCESSED.
00793 M00S00792.sechdr +++|* (BUNT) = 1 IF NO BANNER PAGE TO BE WRITTEN.
00794 M00S00793.sechdr +++|* = 0 IF BANNER UNIT IS RECORD.
00795 M00S00794.sechdr +++|* = -1 IF BANNER UNIT IS FILE.
00796 M00S00795.sechdr +++|* = -2 IF BANNER AT BOI/EOI.
00797 M00S00796.sechdr +++|* (POPT) = 1 IF HEAD/FOOT TO BE WRITTEN.
00798 M00S00797.sechdr +++|* = 0 IF NO HEAD/FOOT TO BE WRITTEN.
00799 M00S00798.sechdr +++|* (BCFL) = 0 IF BACKCOPY NEEDS TO BE PERFORMED.
00800 M00S00799.sechdr +++|*
00801 M00S00800.sechdr +++|* USES X - ALL.
00802 M00S00801.sechdr +++|* A - 1, 2, 4, 6, 7.
00803 M00S00802.sechdr +++|* B - 2, 4, 5.
00804 M00S00803.sechdr +++|*
00805 M00S00804.sechdr +++|* CALLS ARG, SFN.
00806 M00S00805.sechdr +++|*
00807 M00S00806.sechdr +++|* MACROS ABORT, FILINFO, GETPP, MESSAGE, REQUEST, RETURN,
00808 M00S00807.sechdr +++|* REWIND, SETFET, STATUS.
00809 M00S00808.sechdr +++|
00810 M00S00809.sechdr +++|
00811 M00S00810.sechdr +++| PRS SUBR ENTRY/EXIT
00812 M00S00811.sechdr +++|
00813 M00S00812.sechdr +++|* SET FILE NAME.
00814 M00S00813.sechdr +++|
00815 M00S00814.sechdr +++| SA1 ARGR
00816 M00S00815.sechdr +++| SX5 ERFN * NO FILE NAME SPECIFIED.*
00817 M00S00816.sechdr +++| ZR X1,PRS9 IF NO ARGUMENTS
00818 M00S00817.sechdr +++| MX0 42
00819 M00S00818.sechdr +++| BX6 X0*X1
00820 M00S00819.sechdr +++| ZR X6,PRS9 IF NULL FILE NAME
00821 M00S00820.sechdr +++| SA1 FIPB SET FILE NAME IN *FILINFO* BLOCK
00822 M00S00821.sechdr +++| BX7 X1+X6
00823 M00S00822.sechdr +++| SA7 A1
00824 M00S00823.sechdr +++| SA2 F SET FILE NAME IN FET
00825 M00S00824.sechdr +++| BX3 -X0*X2
00826 M00S00825.sechdr +++| BX6 X3+X6
00827 M00S00826.sechdr +++| SA6 A2+
00828 M00S00827.sechdr +++|
00829 M00S00828.sechdr +++|* SAVE FILE ACCESS LEVEL.
00830 M00S00829.sechdr +++|
00831 M00S00830.sechdr +++| SA1 F+1 SET BIT TO RETURN FILE ACCESS LEVEL
00832 M00S00831.sechdr +++| SX0 B1
00833 M00S00832.sechdr +++| LX0 39
00834 M00S00833.sechdr +++| BX6 X0+X1
00835 M00S00834.sechdr +++| SA6 A1
00836 M00S00835.sechdr +++| STATUS F,P
00837 M00S00836.sechdr +++| SA1 F+CFAL GET ACCESS LEVEL
00838 M00S00837.sechdr +++| LX1 -36
00839 M00S00838.sechdr +++| MX0 -3
00840 M00S00839.sechdr +++| BX6 -X0*X1
00841 M00S00840.sechdr +++| SA6 PRSB
00842 M00S00841.sechdr +++| SA2 TALV+X6 OBTAIN EQUIVALENT TEXT
00843 M00S00842.sechdr +++| MX0 42
00844 M00S00843.sechdr +++| BX1 X0*X2
00845 M00S00844.sechdr +++| RJ SFN
00846 M00S00845.sechdr +++| SA6 HEAD+2 SET HEADLINE
00847 M00S00846.sechdr +++| SA6 HEAD+4
00848 M00S00847.sechdr +++| SA6 HEAD+6
00849 M00S00848.sechdr +++| SA6 HEAD+8
00850 M00S00849.sechdr +++| SA6 HEAD+10
00851 M00S00850.sechdr +++| SA6 HEAD+12
00852 M00S00851.sechdr +++| SA6 FOOT+2 SET FOOTLINE
00853 M00S00852.sechdr +++| SA6 FOOT+4
00854 M00S00853.sechdr +++| SA6 FOOT+6
00855 M00S00854.sechdr +++| SA6 FOOT+8
00856 M00S00855.sechdr +++| SA6 FOOT+10
00857 M00S00856.sechdr +++| SA6 FOOT+12
00858 M00S00857.sechdr +++| SA6 ALVL
00859 M00S00858.sechdr +++|
00860 M00S00859.sechdr +++|* CHECK FILE TYPE AND DEVICE TYPE.
00861 M00S00860.sechdr +++|
00862 M00S00861.sechdr +++| FILINFO FIPB GET FILE INFORMATION
00863 M00S00862.sechdr +++| SA1 FIPB+1
00864 M00S00863.sechdr +++| MX0 -6 CHECK FILE TYPE
00865 M00S00864.sechdr +++| BX2 -X0*X1
00866 M00S00865.sechdr +++| SX6 X2-4 (X6) = 0 IF DIRECT ACCESS FILE
00867 M00S00866.sechdr +++| LX1 59-16
00868 M00S00867.sechdr +++| SX5 ERTF * UNABLE TO PROCESS TERMINAL FILE.*
00869 M00S00868.sechdr +++| NG X1,PRS9 IF FILE ASSIGNED TO TERMINAL
00870 M00S00869.sechdr +++| LX1 59-15-59+16 CHECK DEVICE TYPE
00871 M00S00870.sechdr +++| NG X1,PRS1 IF FILE ON MASS STORAGE
00872 M00S00871.sechdr +++| BX7 X7-X7 CLEAR RANDOM INDEX
00873 M00S00872.sechdr +++| SA7 F+CFCN
00874 M00S00873.sechdr +++| BX6 X6-X6
00875 M00S00874.sechdr +++| PRS1 SA6 BCFL SET BACKCOPY FLAG
00876 M00S00875.sechdr +++|
00877 M00S00876.sechdr +++|* PROCESS ARGUMENTS.
00878 M00S00877.sechdr +++|
00879 M00S00878.sechdr +++| SA4 ACTR
00880 M00S00879.sechdr +++| SB4 X4-1 SET ARGUMENT COUNT
00881 M00S00880.sechdr +++| SA4 ARGR+1 SET FIRST ARGUMENT
00882 M00S00881.sechdr +++| SB5 TARG SET ARGUMENT TABLE FWA
00883 M00S00882.sechdr +++| RJ ARG PROCESS ARGUMENTS
00884 M00S00883.sechdr +++| SX5 ERPR * ERROR IN SECHDR PARAMETERS.*
00885 M00S00884.sechdr +++| NZ X1,PRS9 IF ARGUMENT ERROR
00886 M00S00885.sechdr +++|
00887 M00S00886.sechdr +++|* PROCESS *OP* OPTIONS.
00888 M00S00887.sechdr +++|
00889 M00S00888.sechdr +++| SA1 OP CHECK OPTIONS
00890 M00S00889.sechdr +++| MX0 6
00891 M00S00890.sechdr +++| NZ X1,PRS2 IF NOT DEFAULT OPTION
00892 M00S00891.sechdr +++| SA1 DFOP
00893 M00S00892.sechdr +++| PRS2 BX2 X0*X1
00894 M00S00893.sechdr +++| ZR X2,PRS5 IF NO MORE OPTIONS SPECIFIED
00895 M00S00894.sechdr +++| LX1 6 POSITION NEXT OPTION
00896 M00S00895.sechdr +++|
00897 M00S00896.sechdr +++|* CHECK IF LEGAL OPTION.
00898 M00S00897.sechdr +++|
00899 M00S00898.sechdr +++| SA4 TOPT
00900 M00S00899.sechdr +++| PRS3 BX3 X0*X4 CHECK OPTION
00901 M00S00900.sechdr +++| IX3 X3-X2
00902 M00S00901.sechdr +++| ZR X3,PRS4 IF LEGAL OPTION
00903 M00S00902.sechdr +++| SA4 A4+B1
00904 M00S00903.sechdr +++| NZ X4,PRS3 IF MORE OPTIONS TO CHECK
00905 M00S00904.sechdr +++| SA1 EROP+1 SET UNKNOWN OPTION IN MESSAGE
00906 M00S00905.sechdr +++| MX0 -6
00907 M00S00906.sechdr +++| LX0 6
00908 M00S00907.sechdr +++| BX3 X0*X1
00909 M00S00908.sechdr +++| LX2 12
00910 M00S00909.sechdr +++| BX6 X3+X2
00911 M00S00910.sechdr +++| SA6 A1
00912 M00S00911.sechdr +++| SX5 EROP * UNKNOWN OPTION - X.*
00913 M00S00912.sechdr +++| EQ PRS9 PROCESS ERROR
00914 M00S00913.sechdr +++|
00915 M00S00914.sechdr +++|* SET BIT IN OPTION TABLE.
00916 M00S00915.sechdr +++|
00917 M00S00916.sechdr +++| PRS4 LX4 59-0
00918 M00S00917.sechdr +++| NG X4,PRS2 IF OPTION PREVIOUSLY SPECIFIED
00919 M00S00918.sechdr +++| LX4 0-59
00920 M00S00919.sechdr +++| SX6 B1+
00921 M00S00920.sechdr +++| BX6 X6+X4
00922 M00S00921.sechdr +++| SA6 A4
00923 M00S00922.sechdr +++| EQ PRS2 CHECK REMAINING OPTIONS
00924 M00S00923.sechdr +++|
00925 M00S00924.sechdr +++|* CHECK IF B, F, OR R OPTION SELECTED.
00926 M00S00925.sechdr +++|
00927 M00S00926.sechdr +++| PRS5 SA1 TOPT-1
00928 M00S00927.sechdr +++| SB2 B1+B1
00929 M00S00928.sechdr +++| MX0 -1
00930 M00S00929.sechdr +++| PRS6 SA1 A1+B1 CHECK NEXT OPTION
00931 M00S00930.sechdr +++| NG B2,PRS7 IF END OF OPTIONS TO CHECK
00932 M00S00931.sechdr +++| SB2 B2-B1
00933 M00S00932.sechdr +++| BX2 -X0*X1
00934 M00S00933.sechdr +++| ZR X2,PRS6 IF OPTION NOT SET
00935 M00S00934.sechdr +++| SX6 B2-B1
00936 M00S00935.sechdr +++| SA6 BUNT STORE BANNER UNIT
00937 M00S00936.sechdr +++|
00938 M00S00937.sechdr +++|* SAVE P OPTION.
00939 M00S00938.sechdr +++|
00940 M00S00939.sechdr +++| PRS7 SA1 TOPP
00941 M00S00940.sechdr +++| BX6 -X0*X1
00942 M00S00941.sechdr +++| SA6 POPT
00943 M00S00942.sechdr +++| REWIND F,R
00944 M00S00943.sechdr +++| RETURN S,R
00945 M00S00944.sechdr +++|
00946 M00S00945.sechdr +++|* CREATE SCRATCH FILE WITH SAME ACCESS LEVEL.
00947 M00S00946.sechdr +++|
00948 M00S00947.sechdr +++| SA1 S+1 SET FILE ACCESS LEVEL BIT
00949 M00S00948.sechdr +++| MX0 1
00950 M00S00949.sechdr +++| LX0 39-59
00951 M00S00950.sechdr +++| BX6 X0+X1
00952 M00S00951.sechdr +++| SA6 A1
00953 M00S00952.sechdr +++| SA2 S+CFAL
00954 M00S00953.sechdr +++| MX0 -3
00955 M00S00954.sechdr +++| LX0 36
00956 M00S00955.sechdr +++| SA1 PRSB GET ACCESS LEVEL OF OLD FILE
00957 M00S00956.sechdr +++| BX2 X0*X2 CLEAR ACCESS LEVEL FIELD
00958 M00S00957.sechdr +++| LX1 36
00959 M00S00958.sechdr +++| BX6 X1+X2 MERGE NEW ACCESS LEVEL
00960 M00S00959.sechdr +++| SA6 A2
00961 M00S00960.sechdr +++| SETFET S,(DTY=PRSA) REQUEST MASS STORAGE RESIDENCE
00962 M00S00961.sechdr +++| REQUEST S,U,N REQUEST FILE WITH NO DAYFILE MESSAGE
00963 M00S00962.sechdr +++| GETPP PRSC,LNPG,PDEN GET PAGE INFORMATION
00964 M00S00963.sechdr +++| SA1 POPT
00965 M00S00964.sechdr +++| SX3 1
00966 M00S00965.sechdr +++| SA2 LNPG SET PAGE SIZE
00967 M00S00966.sechdr +++| ZR X1,PRS8 IF NO HEADERS REQUESTED
00968 M00S00967.sechdr +++| SX3 SHFL+1 ALLOW ROOM FOR HEADERS
00969 M00S00968.sechdr +++| PRS8 IX6 X2-X3
00970 M00S00969.sechdr +++| SA6 A2
00971 M00S00970.sechdr +++| EQ PRSX RETURN
00972 M00S00971.sechdr +++|
00973 M00S00972.sechdr +++|* PROCESS ERRORS.
00974 M00S00973.sechdr +++|
00975 M00S00974.sechdr +++| PRS9 MESSAGE X5 ISSUE ERROR MESSAGE
00976 M00S00975.sechdr +++| ABORT
00977 M00S00976.sechdr +++|
00978 M00S00977.sechdr +++| PRSA CON 2RMS MASS STORAGE DEVICE RESIDENCE
00979 M00S00978.sechdr +++| PRSB CON 0 ACCESS LEVEL
00980 M00S00979.sechdr +++| PRSC BSSZ 2 *GETPP* BUFFER
00981 M00S00980.sechdr +++|
00982 M00S00981.sechdr +++|* ARGUMENT TABLE.
00983 M00S00982.sechdr +++|
00984 M00S00983.sechdr +++| TARG BSS 0
00985 M00S00984.sechdr +++| FF ARG -NZ,FORM
00986 M00S00985.sechdr +++| OP ARG OP,OP
00987 M00S00986.sechdr +++| ARG
00988 M00S00987.sechdr +++|
00989 M00S00988.sechdr +++|
00990 M00S00989.sechdr +++|* OPTION TABLE.
00991 M00S00990.sechdr +++|* THE OPTIONS IN THIS TABLE MUST REMAIN IN THIS ORDER.
00992 M00S00991.sechdr +++|
00993 M00S00992.sechdr +++| TOPT BSS 0
00994 M00S00993.sechdr +++| DATA 1LR
00995 M00S00994.sechdr +++| DATA 1LF
00996 M00S00995.sechdr +++| DFOP DATA 1LB
00997 M00S00996.sechdr +++| TOPP DATA 1LP
00998 M00S00997.sechdr +++| CON 0 END OF OPTION TABLE
00999 M00S00998.sechdr +++|
01000 M00S00999.sechdr +++|
01001 M00S01000.sechdr +++|* CONSTANTS.
01002 M00S01001.sechdr +++|
01003 M00S01002.sechdr +++| NZ CON 1 NON-ZERO
01004 M00S01003.sechdr +++| OP CON 0 OPTION
01005 M00S01004.sechdr +++|
01006 M00S01005.sechdr +++|* PARAMETER BLOCK.
01007 M00S01006.sechdr +++|
01008 M00S01007.sechdr +++| FIPB BSS 0 *FILINFO* PARAMETER BLOCK
01009 M00S01008.sechdr +++| VFD 42/0,6/5,12/1
01010 M00S01009.sechdr +++| BSSZ 4
01011 M00S01010.sechdr +++|
01012 M00S01011.sechdr +++|* ERROR MESSAGES TO DAYFILE.
01013 M00S01012.sechdr +++|
01014 M00S01013.sechdr +++| ERFN DATA C* NO FILE NAME SPECIFIED.*
01015 M00S01014.sechdr +++| EROP DATA C* UNKNOWN OPTION - X.*
01016 M00S01015.sechdr +++| ERPR DATA C* ERROR IN SECHDR PARAMETERS.*
01017 M00S01016.sechdr +++| ERTF DATA C* UNABLE TO PROCESS TERMINAL FILE.*
01018 M00S01017.sechdr +++| SPACE 4
01019 M00S01018.sechdr +++| END SECHDR