cdc:nos2.source:opl.opl871:deck:listlid
Deck LISTLID
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.listlid +++| IDENT LISTLID,FWA 00002 M00S00002.listlid +++| TITLE LISTLID - LIST LID TABLE. 00003 M00S00003.listlid +++| ABS 00004 M00S00004.listlid +++| SST 00005 M00S00005.listlid +++| ENTRY LISTLID 00006 M00S00006.listlid +++| ENTRY RFL= 00007 M00S00007.listlid +++| ENTRY SSJ= 00008 M00S00008.listlid +++| SYSCOM B1 00009 M00S00009.listlid +++|*COMMENT LISTLID - LIST LID TABLE.
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M00S00011.listlid +++| SPACE 4,10 00013 M00S00012.listlid +++|*** LISTLID - LIST LID TABLE. 00014 M00S00013.listlid +++|* 00015 M00S00014.listlid +++|* K. A. KRIEG 83/10/04. 00016 M00S00015.listlid +++| SPACE 4,10 00017 M00S00016.listlid +++|*** *LISTLID* IS A UTILITY TO LIST THE CONFIGURATION OF 00018 M00S00017.listlid +++|* THE LID TABLE (LDT). 00019 M00S00018.listlid +++| SPACE 4,10 00020 M00S00019.listlid +++|*** COMMAND FORMAT. 00021 M00S00020.listlid +++|* 00022 M00S00021.listlid +++|* LISTLID,P1,P2...PN. 00023 M00S00022.listlid +++|* 00024 M00S00023.listlid +++|* PARAMETERS ARE ORDER-INDEPENDENT. P1 THROUGH PN 00025 M00S00024.listlid +++|* ARE THE PARAMETERS AS FOLLOWS: 00026 M00S00025.listlid +++|* 00027 M00S00026.listlid +++|* LID=XXX PRINT OUT THE ATTRIBUTES OF PIDS IN 00028 M00S00027.listlid +++|* OR WHICH LID XXX EXISTS, IS ENABLED AND 00029 M00S00028.listlid +++|* ST=XXX LISTABLE. IF THE LID OR ST KEYWORD IS 00030 M00S00029.listlid +++|* OR SPECIFIED, A LID VALUE XXX MUST ALSO BE 00031 M00S00030.listlid +++|* OMITTED SPECIFIED. IF THE LID OR ST KEYWORD IS 00032 M00S00031.listlid +++|* OMITTED, THE DEFAULT IS TO PRINT OUT ALL 00033 M00S00032.listlid +++|* LISTABLE LIDS. EITHER LID OR ST MAY BE 00034 M00S00033.listlid +++|* SPECIFIED, BUT NOT BOTH. 00035 M00S00034.listlid +++|* 00036 M00S00035.listlid +++|* L=LFN OUTPUT IS TO BE WRITTEN TO FILE LFN. 00037 M00S00036.listlid +++|* OR IF OMITTED, THE DEFAULT IS *OUTPUT*. 00038 M00S00037.listlid +++|* OMITTED 00039 M00S00038.listlid +++|* 00040 M00S00039.listlid +++|* PID=YYY PRINT OUT THE ATTRIBUTES OF ALL LIDS 00041 M00S00040.listlid +++|* OR UNDER THE SPECIFIED PID YYY. IF LID=XXX 00042 M00S00041.listlid +++|* PID IS ALSO SPECIFIED, ONLY LID XXX UNDER YYY 00043 M00S00042.listlid +++|* OR WILL BE PRINTED. IF YYY IS OMITTED, 00044 M00S00043.listlid +++|* OMITTED THE DEFAULT IS TO PRINT ALL PIDS. IF 00045 M00S00044.listlid +++|* PID IS OMITTED, THE LID KEYWORD VALUE 00046 M00S00045.listlid +++|* DETERMINES WHAT IS PRINTED. 00047 M00S00046.listlid +++| SPACE 4,10 00048 M00S00047.listlid +++|*** DAYFILE MESSAGES. 00049 M00S00048.listlid +++|*
| Line S00049 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00050 M01S00049.listli2 ---|* * ENTER HELPME,LISTLID FOR MORE INFORMATION.* 00051 M01S00050.listli2 ---|* AN INCORRECT FORMAT WAS SPECIFIED FROM 00052 M01S00051.listli2 ---|* THE TERMINAL. 00053 M00S00052.listlid +++|* 00054 M00S00053.listlid +++|* * LID TABLE EMPTY.* 00055 M00S00054.listlid +++|* THE LID TABLE READ FROM CMR WAS EMPTY. 00056 M00S00055.listlid +++|* 00057 M00S00056.listlid +++|* * LID - XXX DOES NOT EXIST IN THE LID TABLE.* 00058 M00S00057.listlid +++|* THE LID SPECIFIED COULD NOT BE FOUND 00059 M00S00058.listlid +++|* IN THE LID TABLE OR THE NLIST BIT 00060 M00S00059.listlid +++|* IS SET (LISTING OF THE SPECIFIED
| Line S00060 Modification History | |
|---|---|
M01 (Removed by) | listli1 |
Seq # *Modification Id* Act ----------------------------+ 00061 M01S00060.listli1 ---|* LID NOT ALLOWED).
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | listli1 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00001.listli1 +++|* LID NOT ALLOWED) OR THE LID WAS A 00063 M01S00002.listli1 +++|* STORE AND FORWARD HOST LID (LISTING 00064 M01S00003.listli1 +++|* OF THIS TYPE OF LID NOT ALLOWED). 00065 M00S00061.listlid +++|* 00066 M00S00062.listlid +++|* * LID=XXX OR ST=XXX IS REQUIRED.* 00067 M00S00063.listlid +++|* THE LID OR ST PARAMETER WAS SPECIFIED 00068 M00S00064.listlid +++|* WITH NO VALUE. 00069 M00S00065.listlid +++|*
| Line S00066 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00070 M01S00066.listli2 ---|* * LISTLID ABORT.* 00071 M01S00067.listli2 ---|* INDICATES ABNORMAL TERMINATION. 00072 M01S00068.listli2 ---|* 00073 M01S00069.listli2 ---|* * LISTLID COMPLETE.* 00074 M01S00070.listli2 ---|* INDICATES NORMAL TERMINATION. 00075 M01S00071.listli2 ---|* 00076 M00S00072.listlid +++|* * LISTLID COMMAND ERROR.* 00077 M00S00073.listlid +++|* AN INCORRECT ARGUMENT WAS DETECTED ON THE 00078 M00S00074.listlid +++|* COMMAND. 00079 M00S00075.listlid +++|* 00080 M00S00076.listlid +++|* * NO LIDS FOUND.* 00081 M00S00077.listlid +++|* EITHER THE LID SPECIFIED WAS NOT LISTABLE OR THERE 00082 M00S00078.listlid +++|* WERE NO LISTABLE LIDS FOUND FOR A GIVEN PID. 00083 M00S00079.listlid +++|* 00084 M00S00080.listlid +++|* * PID - YYY DOES NOT EXIST IN THE LID TABLE.* 00085 M00S00081.listlid +++|* THE PID SPECIFIED COULD NOT BE FOUND IN 00086 M00S00082.listlid +++|* THE LID TABLE. 00087 M00S00083.listlid +++|* 00088 M00S00084.listlid +++|* * SPECIFY EXACTLY 3 CHARACTERS ON PID KEYWORD.* 00089 M00S00085.listlid +++|* EXACTLY THREE CHARACTERS ARE ALLOWED ON 00090 M00S00086.listlid +++|* THE PID KEYWORD. 00091 M00S00087.listlid +++|* 00092 M00S00088.listlid +++|* * SPECIFY EXACTLY 3 CHARACTERS ON LID KEYWORD.* 00093 M00S00089.listlid +++|* EXACTLY THREE CHARACTERS ARE ALLOWED ON 00094 M00S00090.listlid +++|* THE LID OR ST KEYWORD. 00095 M00S00091.listlid +++| SPACE 4,10 00096 M00S00092.listlid +++|* COMMON DECKS. 00097 M00S00093.listlid +++| 00098 M00S00094.listlid +++|*CALL COMCCMD 00099 M00S00095.listlid +++|*CALL COMCMAC 00100 M00S00096.listlid +++|*CALL COMSSFM 00101 M00S00097.listlid +++|*CALL COMSSSJ 00102 M00S00098.listlid +++| TITLE DEFINITIONS. 00103 M00S00099.listlid +++| SPACE 4,10 00104 M00S00100.listlid +++|**** ASSEMBLY CONSTANTS. 00105 M00S00101.listlid +++|
| Line S00102 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00106 M01S00102.listli3 ---| HDLN EQU 3 NUMBER OF PRINTED LINES IN HEADER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00107 M01S00001.listli3 +++| HDLN EQU 2 NUMBER OF PRINTED LINES IN HEADER 00108 M00S00103.listlid +++| OBUFL EQU 101B LENGTH OF OUTPUT BUFFER
| Line S00104 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00109 M01S00104.listli3 ---| TRLN EQU 8 NUMBER OF PRINTED LINES IN TRAILER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00002.listli3 +++| WBUFL EQU 5 LENGTH OF WORKING BUFFER 00111 M01S00003.listli3 +++| TRLN EQU 6 NUMBER OF PRINTED LINES IN TRAILER 00112 M00S00105.listlid +++| 00113 M00S00106.listlid +++|**** 00114 M00S00107.listlid +++| SPACE 4,10 00115 M00S00108.listlid +++| ORG 110B 00116 M00S00109.listlid +++| FWA BSS 0 00117 M00S00110.listlid +++| SPACE 4,10 00118 M00S00111.listlid +++|* SSJ= PARAMETER BLOCK. 00119 M00S00112.listlid +++| 00120 M00S00113.listlid +++| SSJ= BSS 0 00121 M00S00114.listlid +++| BSSZ SSJL 00122 M00S00115.listlid +++| 00123 M00S00116.listlid +++| SPACE 4,10 00124 M00S00117.listlid +++|* FET DEFINITIONS. 00125 M00S00118.listlid +++| 00126 M00S00119.listlid +++| LIDF FILEB LIDTAB,MXLDT,FET=5 LID TABLE 00127 M00S00120.listlid +++| 00128 M00S00121.listlid +++| O BSS 0 00129 M00S00122.listlid +++| OUTPUT FILEB OBUF,OBUFL,FET=10 OUTPUT FILE 00130 M00S00123.listlid +++| SPACE 4,10 00131 M00S00124.listlid +++|* HEADERS AND TRAILERS FOR OUTPUT LISTINGS. IF EITHER THE 00132 M00S00125.listlid +++|* HEADER OR TRAILER INFORMATION IS CHANGED IN THE FUTURE SO 00133 M00S00126.listlid +++|* MORE OR FEWER LINES ARE REQUIRED, ENSURE THAT *HDLN* AND/OR 00134 M00S00127.listlid +++|* *TRLN* ARE UPDATED APPROPRIATELY SO THE CORRECT PAGE LENGTH 00135 M00S00128.listlid +++|* CAN BE CALCULATED. 00136 M00S00129.listlid +++| 00137 M00S00130.listlid +++| HDR1 DATA 8L1 00138 M00S00131.listlid +++| DATA 8L 00139 M00S00132.listlid +++| HDR1L EQU *-HDR1 00140 M00S00133.listlid +++| HDR2 DATA 47L LID MAINFRAME ATTRIBUTE NETWORK
| Line S00134 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00134.listli3 ---| DATA 50H 00142 M00S00135.listlid +++| DATA 8L 00143 M00S00136.listlid +++| HDR2L EQU *-HDR2 00144 M00S00137.listlid +++| HDR3 DATA 50H PID LID MAINFRAME TYPE ATTRIBUTE 00145 M00S00138.listlid +++| DATA 25L RHF NAM SSF
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00146 M01S00004.listli3 +++| DATA 8L 00147 M00S00139.listlid +++| HDR3L EQU *-HDR3 00148 M00S00140.listlid +++| HDR4 DATA 8L 00149 M00S00141.listlid +++| DATA 8L
| Line S00142 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00150 M01S00142.listli3 ---| DATA 8L 00151 M01S00143.listli3 ---| DATA 8L 00152 M00S00144.listlid +++| DATA 50H ATTRIBUTES: H - HOST, L - LINKED, V - VALIDA 00153 M00S00145.listlid +++| DATA 14LTION REQUIRED, 00154 M00S00146.listlid +++| DATA 50H S - STORE FORWARD, B - LOOPBA 00155 M00S00147.listlid +++| DATA 8LCK. 00156 M00S00148.listlid +++| DATA 50H IN - PATH IN SERVICE, OUT - PATH 00157 M00S00149.listlid +++| DATA 16L OUT OF SERVICE, 00158 M00S00150.listlid +++| DATA 35L NA - NOT AVAILABLE. 00159 M00S00151.listlid +++| HDR4L EQU *-HDR4 00160 M00S00152.listlid +++| SPACE 4,10 00161 M00S00153.listlid +++|* CONSTANT DATA. 00162 M00S00154.listlid +++| 00163 M00S00155.listlid +++| BLKS DATA 10H WORD OF BLANKS 00164 M00S00156.listlid +++| DATA 8L WORD OF BLANKS WITH ZERO BYTE 00165 M00S00157.listlid +++| SPACE 4,10 00166 M00S00158.listlid +++|* STORAGE LOCATIONS. 00167 M00S00159.listlid +++| 00168 M00S00160.listlid +++| CLLC CON 0 LINES AVAILABLE TO PRINT LIDS 00169 M00S00161.listlid +++| JPRD CON 0 JOB PRINT DENSITY 00170 M00S00162.listlid +++| LFST CON 0 LIST FILE STATUS OF OUTPUT 00171 M00S00163.listlid +++| LIDV CON 0 LID VALUE 00172 M00S00164.listlid +++| LLFD CON 0 INDICATES IF LISTABLE LID FOUND 00173 M00S00165.listlid +++| NLIP CON 0 NUMBER OF LID SLOTS IN PID 00174 M00S00166.listlid +++| PAGL CON 0 JOB PAGE LENGTH 00175 M00S00167.listlid +++| PDFD CON 0 PID FOUND FLAG 00176 M00S00168.listlid +++| PIDA CON 0 FIRST WORD OF PID DATA 00177 M00S00169.listlid +++| PIDB CON 0 SECOND WORD OF PID DATA 00178 M00S00170.listlid +++| PIDV CON 0 PID VALUE 00179 M00S00171.listlid +++| PDPF CON 0 PID LINE PRINTED FLAG 00180 M00S00172.listlid +++| STVL CON 0 ST VALUE
| Line S00173 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00181 M01S00173.listli3 ---| WBUF BSSZ 9 WORKING BUFFER
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00182 M01S00005.listli3 +++| WBUF BSSZ 8 WORKING BUFFER 00183 M00S00174.listlid +++| SPACE 4,10 00184 M00S00175.listlid +++|* DAYFILE MESSAGES. 00185 M00S00176.listlid +++|
| Line S00177 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00186 M01S00177.listli2 ---| MSG1 DATA C* LISTLID COMPLETE.* 00187 M00S00178.listlid +++| MSG2 DATA C* LID TABLE EMPTY.* 00188 M00S00179.listlid +++| MSG3 DATA C* NO LIDS FOUND.* 00189 M00S00180.listlid +++| MSG4 DATA C* PID - DOES NOT EXIST IN THE LID TABLE.* 00190 M00S00181.listlid +++| MSG5 DATA C* LID - DOES NOT EXIST IN THE LID TABLE.* 00191 M00S00182.listlid +++| TITLE MAIN PROGRAM. 00192 M00S00183.listlid +++| LISTLID SPACE 4,10 00193 M00S00184.listlid +++|** LISTLID - LIST LID TABLE. 00194 M00S00185.listlid +++|* 00195 M00S00186.listlid +++|* EXIT LID TABLE LISTED IF SUCCESSFUL. 00196 M00S00187.listlid +++|* 00197 M00S00188.listlid +++|* USES X - 0, 1, 7. 00198 M00S00189.listlid +++|* A - 1. 00199 M00S00190.listlid +++|* 00200 M00S00191.listlid +++|* CALLS PLD, PPD, PRS. 00201 M00S00192.listlid +++|* 00202 M00S00193.listlid +++|* MACROS ENDRUN, GETLIDT, MESSAGE, WRITEC, WRITEW. 00203 M00S00194.listlid +++| 00204 M00S00195.listlid +++| 00205 M00S00196.listlid +++| LISTLID RJ PRS PRESET 00206 M00S00197.listlid +++| GETLIDT LIDF GET LID TABLE INTO FWA OF PRESET 00207 M00S00198.listlid +++| SA1 LIDTAB GET NUMBER OF PIDS IN TABLE 00208 M00S00199.listlid +++| MX0 -12 00209 M00S00200.listlid +++| BX7 -X0*X1 00210 M00S00201.listlid +++| NZ X7,LST1 IF TABLE NOT EMPTY 00211 M00S00202.listlid +++| MESSAGE MSG2 * LID TABLE EMPTY.*
| Line S00203 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00203.listli2 ---| EQ LST4 * LISTLID COMPLETE.*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00001.listli2 +++| EQ LST4 EXIT 00214 M00S00204.listlid +++| 00215 M00S00205.listlid +++| LST1 SA1 LFST 00216 M00S00206.listlid +++| ZR X1,LST2 IF TERMINAL FILE 00217 M00S00207.listlid +++| WRITEC O,JPRD WRITE PRINT DENSITY 00218 M00S00208.listlid +++| WRITEW O,HDR1,HDR1L WRITE INITIAL PAGE EJECT 00219 M00S00209.listlid +++| LST2 SA1 PIDV 00220 M00S00210.listlid +++| ZR X1,LST3 IF *PID* KEYWORD NOT SPECIFIED 00221 M00S00211.listlid +++| RJ PPD PRINT LID TABLE (FORMAT 2)
| Line S00212 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00212.listli2 ---| EQ LST4 * LISTLID COMPLETE.*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00223 M01S00002.listli2 +++| EQ LST4 EXIT 00224 M00S00213.listlid +++| 00225 M00S00214.listlid +++| LST3 RJ PLD PRINT LID TABLE (FORMAT 1)
| Line S00215 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00226 M01S00215.listli2 ---| LST4 MESSAGE MSG1 * LISTLID COMPLETE.* 00227 M01S00216.listli2 ---| ENDRUN
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00003.listli2 +++| LST4 ENDRUN 00229 M00S00217.listlid +++| TITLE SUBROUTINES. 00230 M00S00218.listlid +++| FPL SPACE 4,15 00231 M00S00219.listlid +++|** FPL - FORMAT AND PRINT LID LINE (FORMAT 2). 00232 M00S00220.listlid +++|* 00233 M00S00221.listlid +++|* ENTRY (X5) = LID WORD LEFT JUSTIFIED TO NLIST BIT. 00234 M00S00222.listlid +++|* (X1) = LID. 00235 M00S00223.listlid +++|* 00236 M00S00224.listlid +++|* EXIT LID LINE WRITTEN TO OUTPUT FILE. 00237 M00S00225.listlid +++|* 00238 M00S00226.listlid +++|* USES X - 3, 6, 7. 00239 M00S00227.listlid +++|* A - 3, 6, 7. 00240 M00S00228.listlid +++|* B - 7. 00241 M00S00229.listlid +++|* 00242 M00S00230.listlid +++|* CALLS PLA, SFN. 00243 M00S00231.listlid +++|* 00244 M00S00232.listlid +++|* MACROS WRITEH, WRITEW. 00245 M00S00233.listlid +++| 00246 M00S00234.listlid +++| 00247 M00S00235.listlid +++| FPL SUBR ENTRY/EXIT 00248 M00S00236.listlid +++| RJ SFN SPACE FILL LID 00249 M00S00237.listlid +++| LX6 -18 00250 M00S00238.listlid +++| SA3 BLKS 00251 M00S00239.listlid +++| LX5 59-34-59+31 POSITION LID ATTRIBUTES FOR *PLA* 00252 M00S00240.listlid +++| BX7 X3 00253 M00S00241.listlid +++| SA7 WBUF STORE BLANK WORD 00254 M00S00242.listlid +++| SA6 A7+B1 STORE BLANK-FILLED LID 00255 M00S00243.listlid +++| SA7 A6+B1 STORE BLANK WORD 00256 M00S00244.listlid +++| SA7 A7+B1 STORE BLANK WORD 00257 M00S00245.listlid +++| RJ PLA PROCESS LID ATTRIBUTES 00258 M00S00246.listlid +++| SA3 LFST 00259 M00S00247.listlid +++| ZR X3,FPL1 IF TERMINAL FILE 00260 M00S00248.listlid +++| SA3 CLLC 00261 M00S00249.listlid +++| SX7 X3-1 00262 M00S00250.listlid +++| SB7 X3 00263 M00S00251.listlid +++| LE B7,B0,FPL2 IF NO ROOM TO PRINT LID LINE 00264 M00S00252.listlid +++| SA7 A3 00265 M00S00253.listlid +++| FPL1 WRITEH O,WBUF,5 00266 M00S00254.listlid +++| SX7 B1+ INDICATE AT LEAST ONE LID PROCESSED 00267 M00S00255.listlid +++| SA7 LLFD 00268 M00S00256.listlid +++| EQ FPLX RETURN 00269 M00S00257.listlid +++| 00270 M00S00258.listlid +++| FPL2 WRITEW O,HDR4,HDR4L WRITE PID TRAILER 00271 M00S00259.listlid +++| WRITEW O,HDR1,HDR1L 00272 M00S00260.listlid +++| WRITEW O,HDR3,HDR3L 00273 M00S00261.listlid +++| SA3 PAGL SAVE NUMBER OF LINES LEFT ON PAGE 00274 M00S00262.listlid +++| SX7 X3-1 00275 M00S00263.listlid +++| SA7 CLLC 00276 M00S00264.listlid +++| EQ FPL1 PRINT LID LINE 00277 M00S00265.listlid +++| LDP SPACE 4,15 00278 M00S00266.listlid +++|** LDP - PROCESS LID(S) FOR PIDS (FORMAT 2). 00279 M00S00267.listlid +++|* 00280 M00S00268.listlid +++|* ENTRY (A5) = ADDRESS OF PID CURRENTLY BEING PROCESSED. 00281 M00S00269.listlid +++|* (WBUF) = PID LINE TO BE PRINTED WHEN THE FIRST 00282 M00S00270.listlid +++|* LISTABLE LID IS ENCOUNTERED. 00283 M00S00271.listlid +++|* 00284 M00S00272.listlid +++|* EXIT ALL APPROPRIATE LIDS PROCESSED FOR GIVEN PID. 00285 M00S00273.listlid +++|* 00286 M00S00274.listlid +++|* USES X - 0, 1, 2, 5, 6, 7. 00287 M00S00275.listlid +++|* A - 0, 1, 2, 5, 6, 7. 00288 M00S00276.listlid +++|* B - 7. 00289 M00S00277.listlid +++|* 00290 M00S00278.listlid +++|* CALLS FPL. 00291 M00S00279.listlid +++|* 00292 M00S00280.listlid +++|* MACROS WRITEH, WRITEW. 00293 M00S00281.listlid +++| 00294 M00S00282.listlid +++| 00295 M00S00283.listlid +++| LDP SUBR ENTRY/EXIT 00296 M00S00284.listlid +++| SA2 A5+2 OFFSET TO NUMBER OF LID SLOTS 00297 M00S00285.listlid +++| MX0 -12 00298 M00S00286.listlid +++| BX6 -X0*X2 00299 M00S00287.listlid +++| SA6 NLIP 00300 M00S00288.listlid +++| SA0 A5 SAVE ADDRESS OF CURRENT PID 00301 M00S00289.listlid +++| SA5 A2 FWA-1 OF LID ENTRIES 00302 M00S00290.listlid +++| BX6 X6-X6 CLEAR PID LINE PRINTED FLAG 00303 M00S00291.listlid +++| SA6 PDPF 00304 M00S00292.listlid +++| 00305 M00S00293.listlid +++|* PROCESS NEXT LID ENTRY. 00306 M00S00294.listlid +++| 00307 M00S00295.listlid +++| LDP1 SA5 A5+B1 READ NEXT LID ENTRY 00308 M00S00296.listlid +++| MX0 18 00309 M00S00297.listlid +++| BX7 X0*X5 00310 M00S00298.listlid +++| ZR X7,LDP6 IF EMPTY LID SLOT 00311 M00S00299.listlid +++| SA2 LIDV 00312 M00S00300.listlid +++| ZR X2,LDP2 IF NO LID SPECIFIED 00313 M00S00301.listlid +++| BX7 X2-X7 00314 M00S00302.listlid +++| NZ X7,LDP6 IF LID DOES NOT MATCH 00315 M00S00303.listlid +++| LDP2 LX5 59-31 00316 M00S00304.listlid +++| NG X5,LDP6 IF LID NOT LISTABLE 00317 M00S00305.listlid +++| 00318 M00S00306.listlid +++|* PRINT THE PID LINE WHEN THE FIRST LISTABLE LID IS 00319 M00S00307.listlid +++|* ENCOUNTERED. 00320 M00S00308.listlid +++| 00321 M00S00309.listlid +++| SA1 PDPF 00322 M00S00310.listlid +++| NZ X1,LDP5 IF PID LINE ALREADY PRINTED 00323 M00S00311.listlid +++| SX7 B1 INDICATE PID LINE PRINTED 00324 M00S00312.listlid +++| SA7 A1 00325 M00S00313.listlid +++| SA1 LFST 00326 M00S00314.listlid +++| ZR X1,LDP4 IF TERMINAL FILE 00327 M00S00315.listlid +++| SA1 CLLC 00328 M00S00316.listlid +++| SX7 X1-2 00329 M00S00317.listlid +++| NG X7,LDP3 IF NO ROOM TO PRINT PID AND ONE LID 00330 M00S00318.listlid +++| SX7 X1-1 DECREMENT NUMBER OF PAGE LINES REMAINING 00331 M00S00319.listlid +++| SA7 A1+ 00332 M00S00320.listlid +++| EQ LDP4 WRITE PID LINE 00333 M00S00321.listlid +++| 00334 M00S00322.listlid +++| LDP3 WRITEW O,HDR4,HDR4L WRITE ATTRIBUTE TRAILER 00335 M00S00323.listlid +++| WRITEW O,HDR1,HDR1L 00336 M00S00324.listlid +++| WRITEW O,HDR3,HDR3L WRITE HEADER 00337 M00S00325.listlid +++| SA1 PAGL SAVE LINES REMAINING ON PAGE 00338 M00S00326.listlid +++| SX7 X1-1 00339 M00S00327.listlid +++| SA7 CLLC
| Line S00328 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00340 M01S00328.listli3 ---| LDP4 WRITEH O,WBUF,9 WRITE PID LINE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00341 M01S00006.listli3 +++| LDP4 WRITEH O,WBUF,8 WRITE PID LINE 00342 M00S00329.listlid +++| 00343 M00S00330.listlid +++|* FORMAT AND PRINT THE LID. 00344 M00S00331.listlid +++| 00345 M00S00332.listlid +++| LDP5 SA1 A5 GET LID 00346 M00S00333.listlid +++| MX0 18 00347 M00S00334.listlid +++| BX1 X0*X1 00348 M00S00335.listlid +++| RJ FPL FORMAT AND PRINT LID LINE 00349 M00S00336.listlid +++| SA1 LIDV 00350 M00S00337.listlid +++| NZ X1,LDP7 IF LID SPECIFIED 00351 M00S00338.listlid +++| 00352 M00S00339.listlid +++|* DECREMENT LID SLOT COUNT AND PROCESS NEXT LID. 00353 M00S00340.listlid +++| 00354 M00S00341.listlid +++| LDP6 SA1 NLIP DECREMENT LID SLOT COUNT 00355 M00S00342.listlid +++| SX7 X1-1 00356 M00S00343.listlid +++| SB7 X7 00357 M00S00344.listlid +++| LE B7,B0,LDP7 IF ALL LID SLOTS PROCESSED 00358 M00S00345.listlid +++| SA7 A1 00359 M00S00346.listlid +++| EQ LDP1 PROCESS NEXT LID ENTRY 00360 M00S00347.listlid +++| 00361 M00S00348.listlid +++| LDP7 SA5 A0+ RESTORE ADDRESS OF PID 00362 M00S00349.listlid +++| EQ LDPX RETURN 00363 M00S00350.listlid +++| PLA SPACE 4,10 00364 M00S00351.listlid +++|** PLA - PROCESS LID ATTRIBUTES (FORMAT 2). 00365 M00S00352.listlid +++|* 00366 M00S00353.listlid +++|* ENTRY (X5) = LID ATTRIBUTES (LEFT JUSTIFIED). 00367 M00S00354.listlid +++|* (A7) = WORKING BUFFER - 1 FOR LID ATTRIBUTES. 00368 M00S00355.listlid +++|* 00369 M00S00356.listlid +++|* EXIT (A6) = LID ATTRIBUTES STORED IN WORKING BUFFER. 00370 M00S00357.listlid +++|* 00371 M00S00358.listlid +++|* USES X - 0, 3, 6. 00372 M00S00359.listlid +++|* A - 3, 6. 00373 M00S00360.listlid +++|* B - 2, 7. 00374 M00S00361.listlid +++| 00375 M00S00362.listlid +++| 00376 M00S00363.listlid +++| PLA SUBR ENTRY/EXIT 00377 M00S00364.listlid +++| MX0 3 00378 M00S00365.listlid +++| BX3 X0*X5 GET LID ATTRIBUTES 00379 M00S00366.listlid +++| LX3 3 00380 M00S00367.listlid +++| SB7 X3 00381 M00S00368.listlid +++| SA3 BLKS+1 00382 M00S00369.listlid +++| ZR B7,PLA1 IF NO ATTRIBUTES 00383 M00S00370.listlid +++| SA3 PLAA 00384 M00S00371.listlid +++| EQ B7,B1,PLA1 IF LOOPBACK BIT SET 00385 M00S00372.listlid +++| SB2 4 00386 M00S00373.listlid +++| SA3 PLAB 00387 M00S00374.listlid +++| EQ B7,B2,PLA1 IF ONLY STORE AND FORWARD BIT SET 00388 M00S00375.listlid +++| SA3 PLAC 00389 M00S00376.listlid +++| PLA1 BX6 X3 STORE LID ATTRIBUTES 00390 M00S00377.listlid +++| SA6 A7+B1 00391 M00S00378.listlid +++| EQ PLAX RETURN 00392 M00S00379.listlid +++| 00393 M00S00380.listlid +++| 00394 M00S00381.listlid +++| PLAA VFD 60/8L B 00395 M00S00382.listlid +++| PLAB VFD 60/8L S 00396 M00S00383.listlid +++| PLAC VFD 60/8L SV 00397 M00S00384.listlid +++| PLD SPACE 4,15 00398 M00S00385.listlid +++|** PLD - PRINT LID TABLE DESCRIPTION. 00399 M00S00386.listlid +++|* 00400 M00S00387.listlid +++|* ENTRY (LIDTAB) = LID TABLE. 00401 M00S00388.listlid +++|* 00402 M00S00389.listlid +++|* EXIT LID TABLE WRITTEN TO OUTPUT FILE. 00403 M00S00390.listlid +++|* 00404 M00S00391.listlid +++|* USES X - ALL. 00405 M00S00392.listlid +++|* A - 1, 2, 3, 5, 6, 7. 00406 M00S00393.listlid +++|* B - 6. 00407 M00S00394.listlid +++|* 00408 M00S00395.listlid +++|* CALLS PLL. 00409 M00S00396.listlid +++|* 00410 M00S00397.listlid +++|* MACROS MESSAGE, WRITER, WRITEW. 00411 M00S00398.listlid +++| 00412 M00S00399.listlid +++| 00413 M00S00400.listlid +++| PLD SUBR ENTRY/EXIT 00414 M00S00401.listlid +++| WRITEW O,HDR2,HDR2L 00415 M00S00402.listlid +++| SA1 LIDTAB+1 READ FIRST PID ENTRY 00416 M00S00403.listlid +++| 00417 M00S00404.listlid +++|* PROCESS NEXT PID. 00418 M00S00405.listlid +++| 00419 M00S00406.listlid +++| PLD1 SA2 LIDV GET LID TO MATCH 00420 M00S00407.listlid +++| BX7 X1 SAVE PID DATA 00421 M00S00408.listlid +++| SA7 PIDA 00422 M00S00409.listlid +++| SA1 A1+B1 00423 M00S00410.listlid +++| BX7 X1 00424 M00S00411.listlid +++| SA7 PIDB 00425 M00S00412.listlid +++| SA5 A1+B1 GET NUMBER OF LID SLOTS 00426 M00S00413.listlid +++| MX4 -12 00427 M00S00414.listlid +++| BX7 -X4*X5 00428 M00S00415.listlid +++| SB6 X7 00429 M00S00416.listlid +++| 00430 M00S00417.listlid +++|* PROCESS NEXT LID. 00431 M00S00418.listlid +++| 00432 M00S00419.listlid +++| PLD2 SA5 A5+B1 GET NEXT LID ENTRY 00433 M00S00420.listlid +++| MX4 18 00434 M00S00421.listlid +++| BX7 X4*X5 00435 M00S00422.listlid +++| ZR X7,PLD5 IF HOLE IN LID TABLE 00436 M00S00423.listlid +++| BX7 X7-X2 00437 M00S00424.listlid +++| ZR X2,PLD3 IF LISTING ALL LIDS 00438 M00S00425.listlid +++| NZ X7,PLD5 IF LID DOES NOT MATCH 00439 M00S00426.listlid +++| 00440 M00S00427.listlid +++|* EITHER ALL LIDS ARE TO BE PROCESSED BY DEFAULT OR THE 00441 M00S00428.listlid +++|* SPECIFIED LID MATCHED AN LDT ENTRY. 00442 M00S00429.listlid +++| 00443 M00S00430.listlid +++| PLD3 BX3 X5 00444 M00S00431.listlid +++| LX3 59-31 00445 M00S00432.listlid +++| NG X3,PLD4 IF LID NOT LISTABLE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | listli1 |
Seq # *Modification Id* Act ----------------------------+ 00446 M01S00004.listli1 +++| LX3 59-34-59+31 00447 M01S00005.listli1 +++| PL X3,PLD3.1 IF LID IS NOT STORE AND FORWARD 00448 M01S00006.listli1 +++| SA3 PIDA 00449 M01S00007.listli1 +++| LX3 59-41 00450 M01S00008.listli1 +++| NG X3,PLD4 IF LID IS HOST AND STORE AND FORWARD
| Line S00433 Modification History | |
|---|---|
M01 (Removed by) | listli1 |
Seq # *Modification Id* Act ----------------------------+ 00451 M01S00433.listli1 ---| SX7 B6 SAVE REMAINING NUMBER OF LID SLOTS
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | listli1 |
Seq # *Modification Id* Act ----------------------------+ 00452 M01S00009.listli1 +++| PLD3.1 SX7 B6 00453 M00S00434.listlid +++| SA7 NLIP 00454 M00S00435.listlid +++| RJ PLL LIST LID LINE 00455 M00S00436.listlid +++| SX7 B1+ INDICATE LID FOUND 00456 M00S00437.listlid +++| SA7 LLFD 00457 M00S00438.listlid +++| SA2 NLIP RESTORE NUMBER OF LID SLOTS 00458 M00S00439.listlid +++| SB6 X2 00459 M00S00440.listlid +++| SA2 LIDV 00460 M00S00441.listlid +++| PLD4 NZ X2,PLD6 IF NOT PROCESSING ALL LIDS 00461 M00S00442.listlid +++| PLD5 SB6 B6-B1 00462 M00S00443.listlid +++| GT B6,PLD2 IF MORE LIDS FOR PID 00463 M00S00444.listlid +++| SB6 B1 SET INDEX FOR NEXT PID ENTRY 00464 M00S00445.listlid +++| PLD6 SA3 PIDB 00465 M00S00446.listlid +++| MX4 -12 00466 M00S00447.listlid +++| BX7 -X4*X3 00467 M00S00448.listlid +++| ZR X7,PLD7 IF LAST PID 00468 M00S00449.listlid +++| SA1 A5+B6 00469 M00S00450.listlid +++| EQ PLD1 PROCESS NEXT PID ENTRY 00470 M00S00451.listlid +++| 00471 M00S00452.listlid +++| PLD7 SA3 LLFD 00472 M00S00453.listlid +++| ZR X3,PLD8 IF NO LISTABLE LIDS FOUND 00473 M00S00454.listlid +++| WRITER O 00474 M00S00455.listlid +++| EQ PLDX RETURN 00475 M00S00456.listlid +++| 00476 M00S00457.listlid +++| PLD8 ZR X2,PLD9 IF PROCESSING ALL LIDS 00477 M00S00458.listlid +++| SA3 MSG5 ADD NON-MATCHING LID TO MESSAGE 00478 M00S00459.listlid +++| LX2 18 00479 M00S00460.listlid +++| MX0 42 00480 M00S00461.listlid +++| BX3 X0*X3 00481 M00S00462.listlid +++| BX6 X3+X2 00482 M00S00463.listlid +++| SA6 A3+ 00483 M00S00464.listlid +++| MESSAGE MSG5 * LID - XXX DOES NOT EXIST IN LID TABLE.* 00484 M00S00465.listlid +++| EQ PLDX RETURN 00485 M00S00466.listlid +++| 00486 M00S00467.listlid +++| PLD9 MESSAGE MSG3 * NO LIDS FOUND.* 00487 M00S00468.listlid +++| EQ PLDX RETURN 00488 M00S00469.listlid +++| PLL SPACE 4,15 00489 M00S00470.listlid +++|** PLL - PROCESS LID LINE (FORMAT 1). 00490 M00S00471.listlid +++|* 00491 M00S00472.listlid +++|* ENTRY (X5) = LID WORD. 00492 M00S00473.listlid +++|* (PIDA) = PID FIRST WORD (FROM LDT). 00493 M00S00474.listlid +++|* (PIDB) = PID SECOND WORD (FROM LDT). 00494 M00S00475.listlid +++|* 00495 M00S00476.listlid +++|* EXIT LID LINE WRITTEN TO OUTPUT FILE. 00496 M00S00477.listlid +++|* 00497 M00S00478.listlid +++|* USES X - 0, 1, 3, 4, 6, 7. 00498 M00S00479.listlid +++|* A - 1, 3, 4, 6, 7. 00499 M00S00480.listlid +++|* 00500 M00S00481.listlid +++|* CALLS PNS, SFN. 00501 M00S00482.listlid +++|* 00502 M00S00483.listlid +++|* MACROS WRITEH, WRITEW. 00503 M00S00484.listlid +++| 00504 M00S00485.listlid +++| 00505 M00S00486.listlid +++| PLL SUBR ENTRY/EXIT 00506 M00S00487.listlid +++| MX0 18 STORE LID IN WORKING BUFFER 00507 M00S00488.listlid +++| BX1 X0*X5 00508 M00S00489.listlid +++| RJ SFN 00509 M00S00490.listlid +++| LX6 -18 00510 M00S00491.listlid +++| SA6 WBUF 00511 M00S00492.listlid +++| SA1 PIDB STORE MAINFRAME DESCRIPTOR 00512 M00S00493.listlid +++| MX0 42 00513 M00S00494.listlid +++| BX1 X0*X1 00514 M00S00495.listlid +++| RJ SFN SPACE FILL NAME 00515 M00S00496.listlid +++| LX6 -6 00516 M00S00497.listlid +++| SA6 A6+B1 00517 M00S00498.listlid +++| SA3 PLLB PRESET DISABLED 00518 M00S00499.listlid +++| LX5 59-35 00519 M00S00500.listlid +++| PL X5,PLL1 IF LID DISABLED 00520 M00S00501.listlid +++| SA4 PIDA 00521 M00S00502.listlid +++| LX4 59-40 00522 M00S00503.listlid +++| PL X4,PLL1 IF PID DISABLED 00523 M00S00504.listlid +++| SA3 PLLD PRESET STORE AND FORWARD 00524 M00S00505.listlid +++| LX5 59-34-59+35 00525 M00S00506.listlid +++| NG X5,PLL1 IF STORE AND FORWARD BIT SET 00526 M00S00507.listlid +++| SA3 PLLE PRESET LOOPBACK 00527 M00S00508.listlid +++| LX5 59-32-59+34 00528 M00S00509.listlid +++| NG X5,PLL1 IF LOOPBACK BIT SET 00529 M00S00510.listlid +++| SA3 PLLA PRESET HOST 00530 M00S00511.listlid +++| SA1 PIDA 00531 M00S00512.listlid +++| LX1 59-41 00532 M00S00513.listlid +++| NG X1,PLL1 IF HOST PID 00533 M00S00514.listlid +++| SA3 PLLC SET LINKED 00534 M00S00515.listlid +++| PLL1 BX6 X3 00535 M00S00516.listlid +++| SA6 A6+B1 STORE FIRST WORD 00536 M00S00517.listlid +++| SA4 A3+B1 00537 M00S00518.listlid +++| BX6 X4 00538 M00S00519.listlid +++| SA6 A6+B1 STORE SECOND WORD 00539 M00S00520.listlid +++| RJ PNS PROCESS NETWORK STATUS
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00540 M01S00007.listli3 +++| SX7 WBUFL 00541 M01S00008.listli3 +++| ZR X4,PLL1.1 IF SECOND NETWORK STATUS WORD IS ZERO 00542 M01S00009.listli3 +++| SX7 WBUFL+1 00543 M01S00010.listli3 +++| PLL1.1 SA7 WBUF+7 SAVE BUFFER LENGTH 00544 M00S00521.listlid +++| SA3 LFST 00545 M00S00522.listlid +++| ZR X3,PLL3 IF TERMINAL FILE 00546 M00S00523.listlid +++| SA3 CLLC 00547 M00S00524.listlid +++| SX7 X3-1 00548 M00S00525.listlid +++| NZ X7,PLL2 IF NO ROOM LEFT ON PAGE 00549 M00S00526.listlid +++| WRITEW O,HDR1,HDR1L PRINT OUTPUT FILE HEADERS 00550 M00S00527.listlid +++| WRITEW O,HDR2,HDR2L 00551 M00S00528.listlid +++| SA3 PAGL SAVE LINES REMAINING ON PAGE 00552 M00S00529.listlid +++| SX7 X3-1 00553 M00S00530.listlid +++| PLL2 SA7 CLLC
| Line S00531 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00554 M01S00531.listli3 ---| PLL3 WRITEH O,WBUF,6 WRITE LID LINE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00555 M01S00011.listli3 +++| PLL3 SA1 WBUF+7 RESTORE BUFFER LENGTH 00556 M01S00012.listli3 +++| WRITEH O,WBUF,X1 WRITE LID LINE 00557 M00S00532.listlid +++| EQ PLLX RETURN 00558 M00S00533.listlid +++| 00559 M00S00534.listlid +++| 00560 M00S00535.listlid +++| PLLA DATA 20H HOST 00561 M00S00536.listlid +++| PLLB DATA 20H DISABLED 00562 M00S00537.listlid +++| PLLC DATA 20H LINKED 00563 M00S00538.listlid +++| PLLD DATA 20H STORE FORWARD 00564 M00S00539.listlid +++| PLLE DATA 20H LOOPBACK 00565 M00S00540.listlid +++| PNS SPACE 4,10 00566 M00S00541.listlid +++|** PNS - PROCESS NETWORK STATUS (FORMATS 1 AND 2). 00567 M00S00542.listlid +++|* 00568 M00S00543.listlid +++|* ENTRY (A6+1) = ADDRESS TO STORE NETWORK STATUS. 00569 M00S00544.listlid +++|* (PIDA) = PID WORD, IF FORMAT 1. 00570 M00S00545.listlid +++|* (X5) = PID WORD, IF FORMAT 2. 00571 M00S00546.listlid +++|*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00572 M01S00013.listli3 +++|* EXIT (X4) = SECOND NETWORK STATUS WORD, IF FORMAT 1. 00573 M01S00014.listli3 +++|* 00574 M00S00547.listlid +++|* USES X - 0, 1, 3, 4, 6, 7. 00575 M00S00548.listlid +++|* A - 1, 3, 4, 6. 00576 M00S00549.listlid +++|* B - 2, 3, 5, 6, 7. 00577 M00S00550.listlid +++| 00578 M00S00551.listlid +++| 00579 M00S00552.listlid +++| PNS SUBR ENTRY/EXIT 00580 M00S00553.listlid +++| SA1 PIDV 00581 M00S00554.listlid +++| MX0 -4 00582 M00S00555.listlid +++| NZ X1,PNS4 IF PROCESSING FORMAT 2 00583 M00S00556.listlid +++| SA3 PIDA GET PID WORD 00584 M00S00557.listlid +++| 00585 M00S00558.listlid +++|* PROCESS NETWORK STATUS FOR FORMAT 1. 00586 M00S00559.listlid +++| 00587 M00S00560.listlid +++| SB2 B0 00588 M00S00561.listlid +++| BX7 -X0*X3 00589 M00S00562.listlid +++| SB3 X7 00590 M00S00563.listlid +++| NE B3,B1,PNS1 IF NAM NOT IN SERVICE 00591 M00S00564.listlid +++| SB2 B2+1 SET NAM IN SERVICE 00592 M00S00565.listlid +++| PNS1 LX3 -4 00593 M00S00566.listlid +++| BX7 -X0*X3 00594 M00S00567.listlid +++| SB3 X7 00595 M00S00568.listlid +++| NE B3,B1,PNS2 IF RHF NOT IN SERVICE 00596 M00S00569.listlid +++| SB2 B2+2 SET RHF IN SERVICE 00597 M00S00570.listlid +++| PNS2 LX3 -4 00598 M00S00571.listlid +++| BX7 -X0*X3 00599 M00S00572.listlid +++| SB3 X7 00600 M00S00573.listlid +++| NE B3,B1,PNS3 IF SSF NOT IN SERVICE 00601 M00S00574.listlid +++| SB2 B2+4 SET SSF IN SERVICE 00602 M00S00575.listlid +++| PNS3 SX3 B2 00603 M00S00576.listlid +++| LX3 1 00604 M00S00577.listlid +++| SA3 PNSA+X3 STORE NETWORK STATUS 00605 M00S00578.listlid +++| BX6 X3 00606 M00S00579.listlid +++| SA6 A6+B1 00607 M00S00580.listlid +++| SA4 A3+B1 00608 M00S00581.listlid +++| BX6 X4 00609 M00S00582.listlid +++| SA6 A6+B1 00610 M00S00583.listlid +++| EQ PNSX RETURN 00611 M00S00584.listlid +++| 00612 M00S00585.listlid +++|* PROCESS NETWORK STATUS FOR FORMAT 2. 00613 M00S00586.listlid +++| 00614 M00S00587.listlid +++| PNS4 BX2 X5 00615 M00S00588.listlid +++| LX2 59-40 00616 M00S00589.listlid +++| PL X2,PNS8 IF PID DISABLED 00617 M00S00590.listlid +++| 00618 M00S00591.listlid +++|* PROCESS *NAM* STATUS. 00619 M00S00592.listlid +++| 00620 M00S00593.listlid +++| BX2 -X0*X5 NAM STATUS 00621 M00S00594.listlid +++| SB6 X2+ 00622 M00S00595.listlid +++| LX2 59-3 00623 M00S00596.listlid +++| LE B6,B1,PNS5 IF NOT AVAILABLE OR IN SERVICE 00624 M00S00597.listlid +++| ERRNZ /NTS/NAV ADJUST CODE IF VALUE CHANGES 00625 M00S00598.listlid +++| ERRNZ /NTS/ISV-1 ADJUST CODE IF VALUE CHANGES 00626 M00S00599.listlid +++| SB6 3 00627 M00S00600.listlid +++| NG X2,PNS5 IF DISABLED 00628 M00S00601.listlid +++| ERRNZ /NTS/DAB-10B ADJUST CODE IF VALUE CHANGES 00629 M00S00602.listlid +++| SB6 2 SET OUT 00630 M00S00603.listlid +++| 00631 M00S00604.listlid +++|* PROCESS *RHF* STATUS. 00632 M00S00605.listlid +++| 00633 M00S00606.listlid +++| PNS5 LX5 -4 00634 M00S00607.listlid +++| BX2 -X0*X5 RHF STATUS 00635 M00S00608.listlid +++| SB5 X2 00636 M00S00609.listlid +++| LX2 59-3 00637 M00S00610.listlid +++| LE B5,B1,PNS6 IF NOT AVAILABLE OR IN SERVICE 00638 M00S00611.listlid +++| SB5 3 00639 M00S00612.listlid +++| NG X2,PNS6 IF DISABLED 00640 M00S00613.listlid +++| SB5 2 SET OUT 00641 M00S00614.listlid +++| 00642 M00S00615.listlid +++|* PROCESS *SSF* STATUS. 00643 M00S00616.listlid +++| 00644 M00S00617.listlid +++| PNS6 LX5 -4 00645 M00S00618.listlid +++| BX2 -X0*X5 SSF STATUS 00646 M00S00619.listlid +++| SB7 X2 00647 M00S00620.listlid +++| LX2 59-3 00648 M00S00621.listlid +++| LE B7,B1,PNS7 IF NOT AVAILABLE OR IN SERVICE 00649 M00S00622.listlid +++| SB7 3 00650 M00S00623.listlid +++| NG X2,PNS7 IF DISABLED 00651 M00S00624.listlid +++| SB7 2 SET OUT 00652 M00S00625.listlid +++| 00653 M00S00626.listlid +++|* WRITE STATUS OF NETWORKS TO WORKING BUFFER. 00654 M00S00627.listlid +++| 00655 M00S00628.listlid +++| PNS7 SA1 PNSB+B5 SET RHF STATUS 00656 M00S00629.listlid +++| BX6 X1 00657 M00S00630.listlid +++| SA6 A6+B1 00658 M00S00631.listlid +++| SA1 PNSB+B6 SET NAM STATUS 00659 M00S00632.listlid +++| BX6 X1 00660 M00S00633.listlid +++| SA6 A6+B1 00661 M00S00634.listlid +++| SA1 PNSB+B7 SET SSF STATUS 00662 M00S00635.listlid +++| BX6 X1 00663 M00S00636.listlid +++| SA6 A6+B1 00664 M00S00637.listlid +++| EQ PNS9 SET END OF LINE 00665 M00S00638.listlid +++| 00666 M00S00639.listlid +++| PNS8 SA1 PNSC SET --- FOR NETWORK STATUS 00667 M00S00640.listlid +++| BX6 X1 00668 M00S00641.listlid +++| SA6 A6+B1 00669 M00S00642.listlid +++| SA6 A6+B1 00670 M00S00643.listlid +++| SA6 A6+B1
| Line S00644 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00671 M01S00644.listli3 ---| PNS9 SA1 BLKS+1 SET END OF LINE 00672 M01S00645.listli3 ---| BX6 X1 00673 M01S00646.listli3 ---| SA6 A6+B1
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00674 M01S00015.listli3 +++| PNS9 MX0 48 00675 M01S00016.listli3 +++| BX6 X0*X1 00676 M01S00017.listli3 +++| SA6 A6 INSURE END OF LINE 00677 M00S00647.listlid +++| EQ PNSX RETURN 00678 M00S00648.listlid +++| 00679 M00S00649.listlid +++|* THIS TABLE MUST REMAIN IN THIS ORDER. 00680 M00S00650.listlid +++|* NETWORK STATUS FOR FORMAT 1. 00681 M00S00651.listlid +++| 00682 M00S00652.listlid +++| PNSA BSS 0
| Line S00653 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00683 M01S00653.listli3 ---| DATA 18LNONE AVAILABLE 00684 M01S00654.listli3 ---| DATA 18LNAM 00685 M01S00655.listli3 ---| DATA 18LRHF 00686 M01S00656.listli3 ---| DATA 18LNAM, RHF 00687 M01S00657.listli3 ---| DATA 18LSSF 00688 M01S00658.listli3 ---| DATA 18LNAM, SSF 00689 M01S00659.listli3 ---| DATA 18LRHF, SSF 00690 M01S00660.listli3 ---| DATA 18LNAM, RHF, SSF
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00691 M01S00018.listli3 +++| DATA 14LNONE AVAILABLE 00692 M01S00019.listli3 +++| DATA 3LNAM 00693 M01S00020.listli3 +++| DATA 0 00694 M01S00021.listli3 +++| DATA 3LRHF 00695 M01S00022.listli3 +++| DATA 0 00696 M01S00023.listli3 +++| DATA 8LNAM, RHF 00697 M01S00024.listli3 +++| DATA 0 00698 M01S00025.listli3 +++| DATA 3LSSF 00699 M01S00026.listli3 +++| DATA 0 00700 M01S00027.listli3 +++| DATA 8LNAM, SSF 00701 M01S00028.listli3 +++| DATA 0 00702 M01S00029.listli3 +++| DATA 8LRHF, SSF 00703 M01S00030.listli3 +++| DATA 0 00704 M01S00031.listli3 +++| DATA 13LNAM, RHF, SSF 00705 M00S00661.listlid +++| 00706 M00S00662.listlid +++|* NETWORK STATUS FOR FORMAT 2. 00707 M00S00663.listlid +++| 00708 M00S00664.listlid +++| PNSB BSS 0 00709 M00S00665.listlid +++| DATA 10H NA 00710 M00S00666.listlid +++| DATA 10H IN 00711 M00S00667.listlid +++| DATA 10H OUT
| Line S00668 Modification History | |
|---|---|
M01 (Removed by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00712 M01S00668.listli3 ---| DATA 10H DISABLED
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | listli3 |
Seq # *Modification Id* Act ----------------------------+ 00713 M01S00032.listli3 +++| DATA 10HDISABLED 00714 M00S00669.listlid +++| PNSC DATA 10H --- 00715 M00S00670.listlid +++| PPD SPACE 4,15 00716 M00S00671.listlid +++|** PPD - PRINT PID TABLE DESCRIPTION. 00717 M00S00672.listlid +++|* 00718 M00S00673.listlid +++|* ENTRY (LIDTAB) = LID TABLE. 00719 M00S00674.listlid +++|* PID SPECIFIED ON COMMAND. 00720 M00S00675.listlid +++|* 00721 M00S00676.listlid +++|* EXIT LID TABLE WRITTEN TO OUTPUT FILE. 00722 M00S00677.listlid +++|* 00723 M00S00678.listlid +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 00724 M00S00679.listlid +++|* A - 1, 2, 3, 5, 6, 7. 00725 M00S00680.listlid +++|* B - 2. 00726 M00S00681.listlid +++|* 00727 M00S00682.listlid +++|* CALLS LDP, PPL. 00728 M00S00683.listlid +++|* 00729 M00S00684.listlid +++|* MACROS MESSAGE, WRITER, WRITEW. 00730 M00S00685.listlid +++| 00731 M00S00686.listlid +++| 00732 M00S00687.listlid +++| PPD SUBR ENTRY/EXIT 00733 M00S00688.listlid +++| WRITEW O,HDR3,HDR3L 00734 M00S00689.listlid +++| SA5 LIDTAB+1 00735 M00S00690.listlid +++| 00736 M00S00691.listlid +++|* PROCESS NEXT PID. 00737 M00S00692.listlid +++| 00738 M00S00693.listlid +++| PPD1 SA2 PIDV USER-SPECIFIED PID VALUE 00739 M00S00694.listlid +++| MX0 18 00740 M00S00695.listlid +++| BX2 X0*X2 00741 M00S00696.listlid +++| ZR X2,PPD2 IF ALL PIDS TO BE PROCESSED 00742 M00S00697.listlid +++| BX1 X0*X5 00743 M00S00698.listlid +++| BX7 X1-X2 00744 M00S00699.listlid +++| SA7 PDFD SAVE PID FOUND FLAG 00745 M00S00700.listlid +++| NZ X7,PPD3 IF PID DOES NOT MATCH 00746 M00S00701.listlid +++| 00747 M00S00702.listlid +++|* EITHER ALL PIDS ARE TO BE PROCESSED BY DEFAULT OR 00748 M00S00703.listlid +++|* THE SPECIFIED PID MATCHED AN LDT ENTRY. 00749 M00S00704.listlid +++| 00750 M00S00705.listlid +++| PPD2 RJ PPL PROCESS PID LINE 00751 M00S00706.listlid +++| RJ LDP PROCESS LID(S) FOR PID 00752 M00S00707.listlid +++| SA1 PIDV 00753 M00S00708.listlid +++| MX0 18 00754 M00S00709.listlid +++| BX1 X0*X1 00755 M00S00710.listlid +++| NZ X1,PPD5 IF PID WAS SPECIFIED 00756 M00S00711.listlid +++| 00757 M00S00712.listlid +++|* DETERMINE IF THERE ARE MORE PIDS TO PROCESS. 00758 M00S00713.listlid +++| 00759 M00S00714.listlid +++| PPD3 SA2 A5+B1 GET OFFSET TO NEXT PID 00760 M00S00715.listlid +++| MX0 -12 00761 M00S00716.listlid +++| BX2 -X0*X2 00762 M00S00717.listlid +++| ZR X2,PPD4 IF NO MORE PIDS 00763 M00S00718.listlid +++| SB2 X2 00764 M00S00719.listlid +++| SA5 A5+B2 NEXT PID ADDRESS 00765 M00S00720.listlid +++| EQ PPD1 PROCESS NEXT PID ENTRY 00766 M00S00721.listlid +++| 00767 M00S00722.listlid +++|* ALL APPROPRIATE PID PROCESSING COMPLETE. 00768 M00S00723.listlid +++| 00769 M00S00724.listlid +++| PPD4 SA1 PIDV 00770 M00S00725.listlid +++| MX0 18 00771 M00S00726.listlid +++| BX1 X0*X1 00772 M00S00727.listlid +++| ZR X1,PPD5 IF PID WAS NOT SPECIFIED 00773 M00S00728.listlid +++| SA2 PDFD 00774 M00S00729.listlid +++| ZR X2,PPD5 IF SPECIFIED PID FOUND IN LDT 00775 M00S00730.listlid +++| SA3 MSG4 00776 M00S00731.listlid +++| LX1 18 POSITION PID 00777 M00S00732.listlid +++| MX0 42 00778 M00S00733.listlid +++| BX3 X0*X3 00779 M00S00734.listlid +++| BX6 X1+X3 MERGE PID IN MESSAGE 00780 M00S00735.listlid +++| SA6 A3+ 00781 M00S00736.listlid +++| MESSAGE MSG4 * PID - XXX DOES NOT EXIST IN LDT.* 00782 M00S00737.listlid +++| EQ PPDX RETURN 00783 M00S00738.listlid +++| 00784 M00S00739.listlid +++| PPD5 SA1 LLFD 00785 M00S00740.listlid +++| NZ X1,PPD6 IF LISTABLE LID WAS FOUND 00786 M00S00741.listlid +++| MESSAGE MSG3 * NO LIDS FOUND.* 00787 M00S00742.listlid +++| EQ PPDX RETURN 00788 M00S00743.listlid +++| 00789 M00S00744.listlid +++| PPD6 WRITEW O,HDR4,HDR4L WRITE PID TRAILER INFORMATION 00790 M00S00745.listlid +++| WRITER O 00791 M00S00746.listlid +++| EQ PPDX RETURN 00792 M00S00747.listlid +++| PPL SPACE 4,15 00793 M00S00748.listlid +++|** PPL - PROCESS PID LINE (FORMAT 2). 00794 M00S00749.listlid +++|* 00795 M00S00750.listlid +++|* ENTRY (A5) = ADDRESS OF PID WORD. 00796 M00S00751.listlid +++|* (X5) = PID WORD. 00797 M00S00752.listlid +++|* 00798 M00S00753.listlid +++|* EXIT PID LINE WRITTEN TO *WBUF*. 00799 M00S00754.listlid +++|* 00800 M00S00755.listlid +++|* USES X - 0, 1, 2, 3, 5, 6. 00801 M00S00756.listlid +++|* A - 1, 2, 3, 5, 6. 00802 M00S00757.listlid +++|* 00803 M00S00758.listlid +++|* CALLS PNS, SFN. 00804 M00S00759.listlid +++| 00805 M00S00760.listlid +++| 00806 M00S00761.listlid +++| PPL SUBR ENTRY/EXIT 00807 M00S00762.listlid +++| 00808 M00S00763.listlid +++|* PROCESS PID NAME AND MAINFRAME DESCRIPTOR. 00809 M00S00764.listlid +++| 00810 M00S00765.listlid +++| MX0 18 00811 M00S00766.listlid +++| BX1 X0*X5 PID NAME 00812 M00S00767.listlid +++| RJ SFN SPACE FILL NAME 00813 M00S00768.listlid +++| LX6 18 00814 M00S00769.listlid +++| LX5 59-38 00815 M00S00770.listlid +++| PL X5,PPL1 IF LISTABLE 00816 M00S00771.listlid +++| SA1 PPLH 00817 M00S00772.listlid +++| BX6 X1 00818 M00S00773.listlid +++| PPL1 SA6 WBUF STORE PID IN WORKING BUFFER 00819 M00S00774.listlid +++| SA3 BLKS STORE BLANK WORD 00820 M00S00775.listlid +++| BX6 X3 00821 M00S00776.listlid +++| SA6 A6+B1 00822 M00S00777.listlid +++| SA2 A5+B1 GET MAINFRAME DESCRIPTOR 00823 M00S00778.listlid +++| MX0 42 00824 M00S00779.listlid +++| BX1 X0*X2 00825 M00S00780.listlid +++| RJ SFN SPACE FILL NAME 00826 M00S00781.listlid +++| LX6 -6 00827 M00S00782.listlid +++| SA6 A6+B1 STORE MAINFRAME DESCRIPTOR 00828 M00S00783.listlid +++| 00829 M00S00784.listlid +++|* PROCESS MAINFRAME TYPE AND PID ATTRIBUTES. 00830 M00S00785.listlid +++| 00831 M00S00786.listlid +++| LX5 59-41-59+38 00832 M00S00787.listlid +++| PL X5,PPL2 IF LINKED PID 00833 M00S00788.listlid +++| SA3 PPLB 00834 M00S00789.listlid +++| BX6 X3 00835 M00S00790.listlid +++| SA6 A6+B1 STORE *HOST* MAINFRAME TYPE 00836 M00S00791.listlid +++| SA3 A3+B1 00837 M00S00792.listlid +++| ERRNZ PPLC-PPLB-1 ADJUST IF WORDS NOT CONTIGUOUS 00838 M00S00793.listlid +++| LX5 59-39-59+41 00839 M00S00794.listlid +++| NG X5,PPL3 IF PRE-VALIDATION REQUIRED 00840 M00S00795.listlid +++| SA3 PPLD ATTRIBUTE IS *H* 00841 M00S00796.listlid +++| EQ PPL3 STORE PID ATTRIBUTES 00842 M00S00797.listlid +++| 00843 M00S00798.listlid +++| PPL2 SA3 PPLE 00844 M00S00799.listlid +++| BX6 X3 00845 M00S00800.listlid +++| SA6 A6+B1 STORE *LINK* MAINFRAME TYPE 00846 M00S00801.listlid +++| SA3 PPLF 00847 M00S00802.listlid +++| LX5 59-39-59+41 00848 M00S00803.listlid +++| NG X5,PPL3 IF PRE-VALIDATION REQUIRED 00849 M00S00804.listlid +++| SA3 PPLG ATTRIBUTE IS *L* 00850 M00S00805.listlid +++| PPL3 BX6 X3 00851 M00S00806.listlid +++| SA6 A6+B1 STORE PID ATTRIBUTE 00852 M00S00807.listlid +++| SA5 A5+ RESTORE PID WORD 00853 M00S00808.listlid +++| RJ PNS PROCESS NETWORK STATUS 00854 M00S00809.listlid +++| EQ PPLX RETURN 00855 M00S00810.listlid +++| 00856 M00S00811.listlid +++| PPLB VFD 60/10L HOST 00857 M00S00812.listlid +++| PPLC VFD 60/10L HV 00858 M00S00813.listlid +++| PPLD VFD 60/10L H 00859 M00S00814.listlid +++| PPLE VFD 60/10L LINKED 00860 M00S00815.listlid +++| PPLF VFD 60/10L LV 00861 M00S00816.listlid +++| PPLG VFD 60/10L L 00862 M00S00817.listlid +++| PPLH VFD 60/10L --- 00863 M00S00818.listlid +++| SPACE 4,10 00864 M00S00819.listlid +++|* COMMON DECKS. 00865 M00S00820.listlid +++| 00866 M00S00821.listlid +++|*CALL COMCARG 00867 M00S00822.listlid +++|*CALL COMCCIO 00868 M00S00823.listlid +++|*CALL COMCCPM 00869 M00S00824.listlid +++|*CALL COMCLFM 00870 M00S00825.listlid +++|*CALL COMCSFM 00871 M00S00826.listlid +++|*CALL COMCSFN 00872 M00S00827.listlid +++|*CALL COMCSTF 00873 M00S00828.listlid +++|*CALL COMCSYS 00874 M00S00829.listlid +++|*CALL COMCWTC 00875 M00S00830.listlid +++|*CALL COMCWTH 00876 M00S00831.listlid +++|*CALL COMCWTW 00877 M00S00832.listlid +++|*CALL COMCZTB 00878 M00S00833.listlid +++| TITLE BUFFERS. 00879 M00S00834.listlid +++| SPACE 4,10 00880 M00S00835.listlid +++|* BUFFERS. 00881 M00S00836.listlid +++| 00882 M00S00837.listlid +++| OBUF BSS OBUFL OUTPUT BUFFER 00883 M00S00838.listlid +++| LIDTAB EQU * LID TABLE 00884 M00S00839.listlid +++| TITLE PRESET. 00885 M00S00840.listlid +++| PRS SPACE 4,15 00886 M00S00841.listlid +++|** PRS - PRESET. 00887 M00S00842.listlid +++|* 00888 M00S00843.listlid +++|* EXIT ABORT IF ERROR ON COMMAND. 00889 M00S00844.listlid +++|* (LFST) = 0, IF OUTPUT BEING SENT TO TERMINAL. 00890 M00S00845.listlid +++|* .NE. 0, OTHERWISE. 00891 M00S00846.listlid +++|* (PAGL) = (CLLC) = NUMBER OF LINES TO BE PRINTED 00892 M00S00847.listlid +++|* ON EACH PAGE (EXCLUDING TRAILER FOR FORMAT 2). 00893 M00S00848.listlid +++|* 00894 M00S00849.listlid +++|* USES X - 0, 1, 2, 4, 5, 6, 7. 00895 M00S00850.listlid +++|* A - 1, 2, 4, 5, 6, 7. 00896 M00S00851.listlid +++|* B - 1, 4, 5. 00897 M00S00852.listlid +++|* 00898 M00S00853.listlid +++|* CALLS ARG, STF. 00899 M00S00854.listlid +++|* 00900 M00S00855.listlid +++|* MACROS ABORT, GETPP, MESSAGE, SETFS. 00901 M00S00856.listlid +++|* 00902 M00S00857.listlid +++|* NOTE PRESET WILL BE OVERLAYED BY THE LID TABLE. 00903 M00S00858.listlid +++| 00904 M00S00859.listlid +++| 00905 M00S00860.listlid +++| PRS SUBR ENTRY/EXIT 00906 M00S00861.listlid +++| SB1 1 00907 M00S00862.listlid +++| SA1 ACTR GET NUMBER OF ARGUMENTS IN COMMAND 00908 M00S00863.listlid +++| MX0 -18 00909 M00S00864.listlid +++| BX1 -X0*X1 00910 M00S00865.listlid +++| ZR X1,PRS3 IF NO ARGUMENTS 00911 M00S00866.listlid +++| SB4 X1 00912 M00S00867.listlid +++| SA4 ARGR GET FIRST ARGUMENT 00913 M00S00868.listlid +++| SB5 TARG SET ARGUMENT TABLE ADDRESS 00914 M00S00869.listlid +++| RJ ARG PROCESS ARGUMENTS 00915 M00S00870.listlid +++| NZ X1,PRS5 IF ARGUMENT ERROR 00916 M00S00871.listlid +++| SA1 LIDV 00917 M00S00872.listlid +++| SA2 STVL 00918 M00S00873.listlid +++| NZ X1,PRS1 IF LID SPECIFIED 00919 M00S00874.listlid +++| ZR X2,PRS2 IF NEITHER LID NOT ST SPECIFIED 00920 M00S00875.listlid +++| BX1 X2 00921 M00S00876.listlid +++| BX2 X2-X2 00922 M00S00877.listlid +++| PRS1 NZ X2,PRS5 IF BOTH LID AND ST SPECIFIED 00923 M00S00878.listlid +++| MX0 42 00924 M00S00879.listlid +++| BX6 X0*X1 00925 M00S00880.listlid +++| ZR X6,PRS8 IF KEYWORD SPECIFIED BUT NOT EQUIVALENCED 00926 M00S00881.listlid +++| SA6 A1 00927 M00S00882.listlid +++| LX6 18 00928 M00S00883.listlid +++| BX7 X0*X6 00929 M00S00884.listlid +++| NZ X7,PRS7 IF MORE THAN 3 CHARACTERS 00930 M00S00885.listlid +++| LX6 -6 00931 M00S00886.listlid +++| BX7 X0*X6 00932 M00S00887.listlid +++| ZR X7,PRS7 IF LESS THAN 3 CHARACTERS 00933 M00S00888.listlid +++| PRS2 SA1 PIDV 00934 M00S00889.listlid +++| ZR X1,PRS3 IF PID NOT SPECIFIED 00935 M00S00890.listlid +++| BX6 X0*X1 00936 M00S00891.listlid +++| ZR X6,PRS3 IF PID SPECIFIED, BUT NOT EQUIVALENCED 00937 M00S00892.listlid +++| LX6 18 00938 M00S00893.listlid +++| BX7 X0*X6 00939 M00S00894.listlid +++| NZ X7,PRS6 IF MORE THAN 3 CHARACTERS 00940 M00S00895.listlid +++| LX6 -6 00941 M00S00896.listlid +++| BX7 X0*X6 00942 M00S00897.listlid +++| ZR X7,PRS6 IF LESS THAN 3 CHARACTERS 00943 M00S00898.listlid +++| PRS3 SX2 O DETERMINE OUTPUT FILE STATUS 00944 M00S00899.listlid +++| RJ STF 00945 M00S00900.listlid +++| SA6 LFST 00946 M00S00901.listlid +++| ZR X6,PRSX IF OUTPUT ASSIGNED TO TERMINAL 00947 M00S00902.listlid +++| GETPP PAGC,PAGL,JPRD GET LINE COUNT 00948 M00S00903.listlid +++| SA5 PAGL 00949 M00S00904.listlid +++| SX7 X5-HDLN ENSURE SPACE FOR HEADERS 00950 M00S00905.listlid +++| SA1 PIDV 00951 M00S00906.listlid +++| ZR X1,PRS4 IF PID NOT SPECIFIED 00952 M00S00907.listlid +++| SX7 X7-TRLN ENSURE SPACE FOR TRAILERS 00953 M00S00908.listlid +++| PRS4 SA7 PAGL 00954 M00S00909.listlid +++| SA7 CLLC 00955 M00S00910.listlid +++| SETFS O,0 PRESERVE OUTPUT FILE 00956 M00S00911.listlid +++| EQ PRSX RETURN 00957 M00S00912.listlid +++| 00958 M00S00913.listlid +++| PRS5 MESSAGE PRSA * LISTLID COMMAND ERROR.*
| Line S00914 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00959 M01S00914.listli2 ---| SA1 JOPR 00960 M01S00915.listli2 ---| MX0 -12 00961 M01S00916.listli2 ---| LX1 -24 00962 M01S00917.listli2 ---| BX1 -X0*X1 00963 M01S00918.listli2 ---| SX2 X1-IAOT 00964 M01S00919.listli2 ---| NZ X2,PRS9 IF NOT INTERACTIVE ORIGIN TYPE 00965 M01S00920.listli2 ---| MESSAGE PRSB * ENTER HELPME,LISTLID FOR HELP.* 00966 M00S00921.listlid +++| ABORT 00967 M00S00922.listlid +++| 00968 M00S00923.listlid +++| PRS6 MESSAGE PRSD * SPECIFY EXACTLY 3 CHARACTERS ON PID.* 00969 M00S00924.listlid +++| EQ PRS9 ABORT 00970 M00S00925.listlid +++| 00971 M00S00926.listlid +++| PRS7 MESSAGE PRSE * SPECIFY EXACTLY 3 CHARACTERS ON LID.* 00972 M00S00927.listlid +++| EQ PRS9 ABORT 00973 M00S00928.listlid +++|
| Line S00929 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00974 M01S00929.271l716 ---| PRS8 MESSAGE PRSF * ST=XXX OR LID=XXX IS REQUIRED.*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00975 M01S00001.271l716 +++| PRS8 MESSAGE PRSF * LID=XXX OR ST=XXX IS REQUIRED.*
| Line S00930 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00976 M01S00930.listli2 ---| PRS9 MESSAGE PRSC * LISTLID ABORT.* 00977 M01S00931.listli2 ---| ABORT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00978 M01S00004.listli2 +++| PRS9 ABORT 00979 M00S00932.listlid +++| 00980 M00S00933.listlid +++|* PRESET ERROR MESSAGES. 00981 M00S00934.listlid +++| 00982 M00S00935.listlid +++| PRSA DATA C* LISTLID COMMAND ERROR.*
| Line S00936 Modification History | |
|---|---|
M01 (Removed by) | listli2 |
Seq # *Modification Id* Act ----------------------------+ 00983 M01S00936.listli2 ---| PRSB DATA C* ENTER HELPME,LISTLID FOR HELP.* 00984 M01S00937.listli2 ---| PRSC DATA C* LISTLID ABORT.* 00985 M00S00938.listlid +++| PRSD DATA C* SPECIFY EXACTLY 3 CHARACTERS ON PID KEYWORD.* 00986 M00S00939.listlid +++| PRSE DATA C* SPECIFY EXACTLY 3 CHARACTERS ON LID KEYWORD.*
| Line S00940 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00987 M01S00940.271l716 ---| PRSF DATA C* ST=XXX OR LID=XXX IS REQUIRED.*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00988 M01S00002.271l716 +++| PRSF DATA C* LID=XXX OR ST=XXX IS REQUIRED.* 00989 M00S00941.listlid +++| SPACE 4,10 00990 M00S00942.listlid +++|* PRESET STORAGE LOCATIONS. 00991 M00S00943.listlid +++| 00992 M00S00944.listlid +++| LID1 CON 1 ASSUMED LID, ST, OR PID VALUE 00993 M00S00945.listlid +++| PAGC BSS 2 PARAMETER BLOCK FOR *GETPAGE* 00994 M00S00946.listlid +++| SPACE 4,10 00995 M00S00947.listlid +++|* ARGUMENT TABLE. 00996 M00S00948.listlid +++| 00997 M00S00949.listlid +++| TARG BSS 0 00998 M00S00950.listlid +++| LID ARG LID1,LIDV,400B 00999 M00S00951.listlid +++| ST ARG LID1,STVL,400B 01000 M00S00952.listlid +++| L ARG O,O 01001 M00S00953.listlid +++| PID ARG LID1,PIDV,400B 01002 M00S00954.listlid +++| ARG 01003 M00S00955.listlid +++| SPACE 4,10 01004 M00S00956.listlid +++|* RESERVE SUFFICIENT SPACE TO HOLD THE MAXIMUM SIZE OF THE LDT. 01005 M00S00957.listlid +++| 01006 M00S00958.listlid +++| LENGTH EQU *-PRS PRESET LENGTH 01007 M00S00959.listlid +++| MAXLTH EQU MXLDT-LENGTH MAX LDT SIZE - PRESET LENGTH 01008 M00S00960.listlid +++| BSSZ MAXLTH ADDITIONAL CM WORDS REQUIRED TO HOLD LDT 01009 M00S00961.listlid +++| RFL= EQU * 01010 M00S00962.listlid +++| SPACE 4,10 01011 M00S00963.listlid +++| END
cdc/nos2.source/opl.opl871/deck/listlid.txt · Last modified: by 127.0.0.1