User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:listlid

Deck LISTLID

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.listlid +++|          IDENT  LISTLID,FWA
00002  M01S00002.listlid +++|          TITLE  LISTLID - LIST LID TABLE.
00003  M01S00003.listlid +++|          ABS
00004  M01S00004.listlid +++|          SST
00005  M01S00005.listlid +++|          ENTRY  LISTLID
00006  M01S00006.listlid +++|          ENTRY  RFL=
00007  M01S00007.listlid +++|          ENTRY  SSJ=
00008  M01S00008.listlid +++|          SYSCOM B1
00009  M01S00009.listlid +++|*COMMENT  LISTLID - LIST LID TABLE.
Line S00010 Modification History
M01 (Added by) listlid
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00010.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1983.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00011.listlid +++|          SPACE 4,10
00013  M01S00012.listlid +++|***       LISTLID - LIST LID TABLE.
00014  M01S00013.listlid +++|*
00015  M01S00014.listlid +++|*         K. A. KRIEG        83/10/04.
00016  M01S00015.listlid +++|          SPACE 4,10
00017  M01S00016.listlid +++|***       *LISTLID* IS A UTILITY TO LIST THE CONFIGURATION OF
00018  M01S00017.listlid +++|*         THE LID TABLE (LDT).
00019  M01S00018.listlid +++|          SPACE 4,10
00020  M01S00019.listlid +++|***       COMMAND FORMAT.
00021  M01S00020.listlid +++|*
00022  M01S00021.listlid +++|*         LISTLID,P1,P2...PN.
00023  M01S00022.listlid +++|*
00024  M01S00023.listlid +++|*         PARAMETERS ARE ORDER-INDEPENDENT.  P1 THROUGH PN
00025  M01S00024.listlid +++|*         ARE THE PARAMETERS AS FOLLOWS:
00026  M01S00025.listlid +++|*
00027  M01S00026.listlid +++|*         LID=XXX     PRINT OUT THE ATTRIBUTES OF PIDS IN
00028  M01S00027.listlid +++|*           OR        WHICH LID XXX EXISTS, IS ENABLED AND
00029  M01S00028.listlid +++|*         ST=XXX      LISTABLE.  IF THE LID OR ST KEYWORD IS
00030  M01S00029.listlid +++|*           OR        SPECIFIED, A LID VALUE XXX MUST ALSO BE
00031  M01S00030.listlid +++|*         OMITTED     SPECIFIED.  IF THE LID OR ST KEYWORD IS
00032  M01S00031.listlid +++|*                     OMITTED, THE DEFAULT IS TO PRINT OUT ALL
00033  M01S00032.listlid +++|*                     LISTABLE LIDS.  EITHER LID OR ST MAY BE
00034  M01S00033.listlid +++|*                     SPECIFIED, BUT NOT BOTH.
00035  M01S00034.listlid +++|*
00036  M01S00035.listlid +++|*         L=LFN       OUTPUT IS TO BE WRITTEN TO FILE LFN.
00037  M01S00036.listlid +++|*           OR        IF OMITTED, THE DEFAULT IS *OUTPUT*.
00038  M01S00037.listlid +++|*         OMITTED
00039  M01S00038.listlid +++|*
00040  M01S00039.listlid +++|*         PID=YYY     PRINT OUT THE ATTRIBUTES OF ALL LIDS
00041  M01S00040.listlid +++|*           OR        UNDER THE SPECIFIED PID YYY.  IF LID=XXX
00042  M01S00041.listlid +++|*         PID         IS ALSO SPECIFIED, ONLY LID XXX UNDER YYY
00043  M01S00042.listlid +++|*           OR        WILL BE PRINTED.  IF YYY IS OMITTED,
00044  M01S00043.listlid +++|*         OMITTED     THE DEFAULT IS TO PRINT ALL PIDS.  IF
00045  M01S00044.listlid +++|*                     PID IS OMITTED, THE LID KEYWORD VALUE
00046  M01S00045.listlid +++|*                     DETERMINES WHAT IS PRINTED.
00047  M01S00046.listlid +++|          SPACE 4,10
00048  M01S00047.listlid +++|***       DAYFILE MESSAGES.
00049  M01S00048.listlid +++|*
Line S00049 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00049.listli2 ---|*         * ENTER HELPME,LISTLID FOR MORE INFORMATION.*
Line S00050 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00050.listli2 ---|*                AN INCORRECT FORMAT WAS SPECIFIED FROM
Line S00051 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00051.listli2 ---|*                THE TERMINAL.
00053  M01S00052.listlid +++|*
00054  M01S00053.listlid +++|*         * LID TABLE EMPTY.*
00055  M01S00054.listlid +++|*                THE LID TABLE READ FROM CMR WAS EMPTY.
00056  M01S00055.listlid +++|*
00057  M01S00056.listlid +++|*         * LID - XXX DOES NOT EXIST IN THE LID TABLE.*
00058  M01S00057.listlid +++|*                THE LID SPECIFIED COULD NOT BE FOUND
00059  M01S00058.listlid +++|*                IN THE LID TABLE OR THE NLIST BIT
00060  M01S00059.listlid +++|*                IS SET (LISTING OF THE SPECIFIED
Line S00060 Modification History
M01 (Added by) listlid
M02 (Updated by) listli1
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00060.listli1 ---|*                LID NOT ALLOWED).
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  M01S00061.listlid +++|*
00066  M01S00062.listlid +++|*         * LID=XXX OR ST=XXX IS REQUIRED.*
00067  M01S00063.listlid +++|*                THE LID OR ST PARAMETER WAS SPECIFIED
00068  M01S00064.listlid +++|*                WITH NO VALUE.
00069  M01S00065.listlid +++|*
Line S00066 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00066.listli2 ---|*         * LISTLID ABORT.*
Line S00067 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00067.listli2 ---|*                INDICATES ABNORMAL TERMINATION.
Line S00068 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00068.listli2 ---|*
Line S00069 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00069.listli2 ---|*         * LISTLID COMPLETE.*
Line S00070 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00070.listli2 ---|*                INDICATES NORMAL TERMINATION.
Line S00071 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00071.listli2 ---|*
00076  M01S00072.listlid +++|*         * LISTLID COMMAND ERROR.*
00077  M01S00073.listlid +++|*                AN INCORRECT ARGUMENT WAS DETECTED ON THE
00078  M01S00074.listlid +++|*                COMMAND.
00079  M01S00075.listlid +++|*
00080  M01S00076.listlid +++|*         * NO LIDS FOUND.*
00081  M01S00077.listlid +++|*                EITHER THE LID SPECIFIED WAS NOT LISTABLE OR THERE
00082  M01S00078.listlid +++|*                WERE NO LISTABLE LIDS FOUND FOR A GIVEN PID.
00083  M01S00079.listlid +++|*
00084  M01S00080.listlid +++|*         * PID - YYY DOES NOT EXIST IN THE LID TABLE.*
00085  M01S00081.listlid +++|*                THE PID SPECIFIED COULD NOT BE FOUND IN
00086  M01S00082.listlid +++|*                THE LID TABLE.
00087  M01S00083.listlid +++|*
00088  M01S00084.listlid +++|*         * SPECIFY EXACTLY 3 CHARACTERS ON PID KEYWORD.*
00089  M01S00085.listlid +++|*                EXACTLY THREE CHARACTERS ARE ALLOWED ON
00090  M01S00086.listlid +++|*                THE PID KEYWORD.
00091  M01S00087.listlid +++|*
00092  M01S00088.listlid +++|*         * SPECIFY EXACTLY 3 CHARACTERS ON LID KEYWORD.*
00093  M01S00089.listlid +++|*                EXACTLY THREE CHARACTERS ARE ALLOWED ON
00094  M01S00090.listlid +++|*                THE LID OR ST KEYWORD.
00095  M01S00091.listlid +++|          SPACE 4,10
00096  M01S00092.listlid +++|*         COMMON DECKS.
00097  M01S00093.listlid +++|
00098  M01S00094.listlid +++|*CALL     COMCCMD
00099  M01S00095.listlid +++|*CALL     COMCMAC
00100  M01S00096.listlid +++|*CALL     COMSSFM
00101  M01S00097.listlid +++|*CALL     COMSSSJ
00102  M01S00098.listlid +++|          TITLE  DEFINITIONS.
00103  M01S00099.listlid +++|          SPACE  4,10
00104  M01S00100.listlid +++|****      ASSEMBLY CONSTANTS.
00105  M01S00101.listlid +++|
Line S00102 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00102.listli3 ---| HDLN     EQU    3           NUMBER OF PRINTED LINES IN HEADER
00107  M01S00001.listli3 +++| HDLN     EQU    2           NUMBER OF PRINTED LINES IN HEADER
00108  M01S00103.listlid +++| OBUFL    EQU    101B        LENGTH OF OUTPUT BUFFER
Line S00104 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00104.listli3 ---| TRLN     EQU    8           NUMBER OF PRINTED LINES IN TRAILER
00110  M01S00002.listli3 +++| WBUFL    EQU    5           LENGTH OF WORKING BUFFER
00111  M01S00003.listli3 +++| TRLN     EQU    6           NUMBER OF PRINTED LINES IN TRAILER
00112  M01S00105.listlid +++|
00113  M01S00106.listlid +++|****
00114  M01S00107.listlid +++|          SPACE 4,10
00115  M01S00108.listlid +++|          ORG    110B
00116  M01S00109.listlid +++| FWA      BSS    0
00117  M01S00110.listlid +++|          SPACE  4,10
00118  M01S00111.listlid +++|*         SSJ= PARAMETER BLOCK.
00119  M01S00112.listlid +++|
00120  M01S00113.listlid +++| SSJ=     BSS    0
00121  M01S00114.listlid +++|          BSSZ   SSJL
00122  M01S00115.listlid +++|
00123  M01S00116.listlid +++|          SPACE  4,10
00124  M01S00117.listlid +++|*         FET DEFINITIONS.
00125  M01S00118.listlid +++|
00126  M01S00119.listlid +++| LIDF     FILEB  LIDTAB,MXLDT,FET=5   LID TABLE
00127  M01S00120.listlid +++|
00128  M01S00121.listlid +++| O        BSS    0
00129  M01S00122.listlid +++| OUTPUT   FILEB  OBUF,OBUFL,FET=10  OUTPUT FILE
00130  M01S00123.listlid +++|          SPACE  4,10
00131  M01S00124.listlid +++|*         HEADERS AND TRAILERS FOR OUTPUT LISTINGS.  IF EITHER THE
00132  M01S00125.listlid +++|*         HEADER OR TRAILER INFORMATION IS CHANGED IN THE FUTURE SO
00133  M01S00126.listlid +++|*         MORE OR FEWER LINES ARE REQUIRED, ENSURE THAT *HDLN* AND/OR
00134  M01S00127.listlid +++|*         *TRLN* ARE UPDATED APPROPRIATELY SO THE CORRECT PAGE LENGTH
00135  M01S00128.listlid +++|*         CAN BE CALCULATED.
00136  M01S00129.listlid +++|
00137  M01S00130.listlid +++| HDR1     DATA   8L1
00138  M01S00131.listlid +++|          DATA   8L
00139  M01S00132.listlid +++| HDR1L    EQU    *-HDR1
00140  M01S00133.listlid +++| HDR2     DATA   47L   LID    MAINFRAME  ATTRIBUTE          NETWORK
Line S00134 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00134.listli3 ---|          DATA   50H
00142  M01S00135.listlid +++|          DATA   8L
00143  M01S00136.listlid +++| HDR2L    EQU    *-HDR2
00144  M01S00137.listlid +++| HDR3     DATA   50H       PID   LID    MAINFRAME   TYPE    ATTRIBUTE
00145  M01S00138.listlid +++|          DATA   25L  RHF       NAM       SSF
00146  M01S00004.listli3 +++|          DATA   8L
00147  M01S00139.listlid +++| HDR3L    EQU    *-HDR3
00148  M01S00140.listlid +++| HDR4     DATA   8L
00149  M01S00141.listlid +++|          DATA   8L
Line S00142 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00142.listli3 ---|          DATA   8L
Line S00143 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00151  M02S00143.listli3 ---|          DATA   8L
00152  M01S00144.listlid +++|          DATA   50H   ATTRIBUTES:  H - HOST,  L - LINKED,  V - VALIDA
00153  M01S00145.listlid +++|          DATA   14LTION REQUIRED,
00154  M01S00146.listlid +++|          DATA   50H                S - STORE FORWARD,      B - LOOPBA
00155  M01S00147.listlid +++|          DATA   8LCK.
00156  M01S00148.listlid +++|          DATA   50H                IN - PATH IN SERVICE,   OUT - PATH
00157  M01S00149.listlid +++|          DATA   16L OUT OF SERVICE,
00158  M01S00150.listlid +++|          DATA   35L                NA - NOT AVAILABLE.
00159  M01S00151.listlid +++| HDR4L    EQU    *-HDR4
00160  M01S00152.listlid +++|          SPACE 4,10
00161  M01S00153.listlid +++|*         CONSTANT DATA.
00162  M01S00154.listlid +++|
00163  M01S00155.listlid +++| BLKS     DATA   10H            WORD OF BLANKS
00164  M01S00156.listlid +++|          DATA   8L          WORD OF BLANKS WITH ZERO BYTE
00165  M01S00157.listlid +++|          SPACE 4,10
00166  M01S00158.listlid +++|*         STORAGE LOCATIONS.
00167  M01S00159.listlid +++|
00168  M01S00160.listlid +++| CLLC     CON    0           LINES AVAILABLE TO PRINT LIDS
00169  M01S00161.listlid +++| JPRD     CON    0           JOB PRINT DENSITY
00170  M01S00162.listlid +++| LFST     CON    0           LIST FILE STATUS OF OUTPUT
00171  M01S00163.listlid +++| LIDV     CON    0           LID VALUE
00172  M01S00164.listlid +++| LLFD     CON    0           INDICATES IF LISTABLE LID FOUND
00173  M01S00165.listlid +++| NLIP     CON    0           NUMBER OF LID SLOTS IN PID
00174  M01S00166.listlid +++| PAGL     CON    0           JOB PAGE LENGTH
00175  M01S00167.listlid +++| PDFD     CON    0           PID FOUND FLAG
00176  M01S00168.listlid +++| PIDA     CON    0           FIRST WORD OF PID DATA
00177  M01S00169.listlid +++| PIDB     CON    0           SECOND WORD OF PID DATA
00178  M01S00170.listlid +++| PIDV     CON    0           PID VALUE
00179  M01S00171.listlid +++| PDPF     CON    0           PID LINE PRINTED FLAG
00180  M01S00172.listlid +++| STVL     CON    0           ST VALUE
Line S00173 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00173.listli3 ---| WBUF     BSSZ   9           WORKING BUFFER
00182  M01S00005.listli3 +++| WBUF     BSSZ   8           WORKING BUFFER
00183  M01S00174.listlid +++|          SPACE 4,10
00184  M01S00175.listlid +++|*         DAYFILE MESSAGES.
00185  M01S00176.listlid +++|
Line S00177 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00177.listli2 ---| MSG1     DATA   C* LISTLID COMPLETE.*
00187  M01S00178.listlid +++| MSG2     DATA   C* LID TABLE EMPTY.*
00188  M01S00179.listlid +++| MSG3     DATA   C* NO LIDS FOUND.*
00189  M01S00180.listlid +++| MSG4     DATA   C* PID -     DOES NOT EXIST IN THE LID TABLE.*
00190  M01S00181.listlid +++| MSG5     DATA   C* LID -     DOES NOT EXIST IN THE LID TABLE.*
00191  M01S00182.listlid +++|          TITLE  MAIN PROGRAM.
00192  M01S00183.listlid +++| LISTLID  SPACE  4,10
00193  M01S00184.listlid +++|**        LISTLID - LIST LID TABLE.
00194  M01S00185.listlid +++|*
00195  M01S00186.listlid +++|*         EXIT   LID TABLE LISTED IF SUCCESSFUL.
00196  M01S00187.listlid +++|*
00197  M01S00188.listlid +++|*         USES   X - 0, 1, 7.
00198  M01S00189.listlid +++|*                A - 1.
00199  M01S00190.listlid +++|*
00200  M01S00191.listlid +++|*         CALLS  PLD, PPD, PRS.
00201  M01S00192.listlid +++|*
00202  M01S00193.listlid +++|*         MACROS ENDRUN, GETLIDT, MESSAGE, WRITEC, WRITEW.
00203  M01S00194.listlid +++|
00204  M01S00195.listlid +++|
00205  M01S00196.listlid +++| LISTLID  RJ     PRS         PRESET
00206  M01S00197.listlid +++|          GETLIDT  LIDF      GET LID TABLE INTO FWA OF PRESET
00207  M01S00198.listlid +++|          SA1    LIDTAB      GET NUMBER OF PIDS IN TABLE
00208  M01S00199.listlid +++|          MX0    -12
00209  M01S00200.listlid +++|          BX7    -X0*X1
00210  M01S00201.listlid +++|          NZ     X7,LST1     IF TABLE NOT EMPTY
00211  M01S00202.listlid +++|          MESSAGE  MSG2      * LID TABLE EMPTY.*
Line S00203 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00203.listli2 ---|          EQ     LST4        * LISTLID COMPLETE.*
00213  M01S00001.listli2 +++|          EQ     LST4        EXIT
00214  M01S00204.listlid +++|
00215  M01S00205.listlid +++| LST1     SA1    LFST
00216  M01S00206.listlid +++|          ZR     X1,LST2     IF TERMINAL FILE
00217  M01S00207.listlid +++|          WRITEC O,JPRD      WRITE PRINT DENSITY
00218  M01S00208.listlid +++|          WRITEW O,HDR1,HDR1L  WRITE INITIAL PAGE EJECT
00219  M01S00209.listlid +++| LST2     SA1    PIDV
00220  M01S00210.listlid +++|          ZR     X1,LST3     IF *PID* KEYWORD NOT SPECIFIED
00221  M01S00211.listlid +++|          RJ     PPD         PRINT LID TABLE (FORMAT 2)
Line S00212 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00212.listli2 ---|          EQ     LST4        * LISTLID COMPLETE.*
00223  M01S00002.listli2 +++|          EQ     LST4        EXIT
00224  M01S00213.listlid +++|
00225  M01S00214.listlid +++| LST3     RJ     PLD         PRINT LID TABLE (FORMAT 1)
Line S00215 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00215.listli2 ---| LST4     MESSAGE  MSG1      * LISTLID COMPLETE.*
Line S00216 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00216.listli2 ---|          ENDRUN
00228  M01S00003.listli2 +++| LST4     ENDRUN
00229  M01S00217.listlid +++|          TITLE  SUBROUTINES.
00230  M01S00218.listlid +++| FPL      SPACE  4,15
00231  M01S00219.listlid +++|**        FPL - FORMAT AND PRINT LID LINE (FORMAT 2).
00232  M01S00220.listlid +++|*
00233  M01S00221.listlid +++|*         ENTRY  (X5) = LID WORD LEFT JUSTIFIED TO NLIST BIT.
00234  M01S00222.listlid +++|*                (X1) = LID.
00235  M01S00223.listlid +++|*
00236  M01S00224.listlid +++|*         EXIT   LID LINE WRITTEN TO OUTPUT FILE.
00237  M01S00225.listlid +++|*
00238  M01S00226.listlid +++|*         USES   X - 3, 6, 7.
00239  M01S00227.listlid +++|*                A - 3, 6, 7.
00240  M01S00228.listlid +++|*                B - 7.
00241  M01S00229.listlid +++|*
00242  M01S00230.listlid +++|*         CALLS  PLA, SFN.
00243  M01S00231.listlid +++|*
00244  M01S00232.listlid +++|*         MACROS WRITEH, WRITEW.
00245  M01S00233.listlid +++|
00246  M01S00234.listlid +++|
00247  M01S00235.listlid +++| FPL      SUBR               ENTRY/EXIT
00248  M01S00236.listlid +++|          RJ     SFN         SPACE FILL LID
00249  M01S00237.listlid +++|          LX6    -18
00250  M01S00238.listlid +++|          SA3    BLKS
00251  M01S00239.listlid +++|          LX5    59-34-59+31 POSITION LID ATTRIBUTES FOR *PLA*
00252  M01S00240.listlid +++|          BX7    X3
00253  M01S00241.listlid +++|          SA7    WBUF        STORE BLANK WORD
00254  M01S00242.listlid +++|          SA6    A7+B1       STORE BLANK-FILLED LID
00255  M01S00243.listlid +++|          SA7    A6+B1       STORE BLANK WORD
00256  M01S00244.listlid +++|          SA7    A7+B1       STORE BLANK WORD
00257  M01S00245.listlid +++|          RJ     PLA         PROCESS LID ATTRIBUTES
00258  M01S00246.listlid +++|          SA3    LFST
00259  M01S00247.listlid +++|          ZR     X3,FPL1     IF TERMINAL FILE
00260  M01S00248.listlid +++|          SA3    CLLC
00261  M01S00249.listlid +++|          SX7    X3-1
00262  M01S00250.listlid +++|          SB7    X3
00263  M01S00251.listlid +++|          LE     B7,B0,FPL2  IF NO ROOM TO PRINT LID LINE
00264  M01S00252.listlid +++|          SA7    A3
00265  M01S00253.listlid +++| FPL1     WRITEH O,WBUF,5
00266  M01S00254.listlid +++|          SX7    B1+         INDICATE AT LEAST ONE LID PROCESSED
00267  M01S00255.listlid +++|          SA7    LLFD
00268  M01S00256.listlid +++|          EQ     FPLX        RETURN
00269  M01S00257.listlid +++|
00270  M01S00258.listlid +++| FPL2     WRITEW O,HDR4,HDR4L  WRITE PID TRAILER
00271  M01S00259.listlid +++|          WRITEW O,HDR1,HDR1L
00272  M01S00260.listlid +++|          WRITEW O,HDR3,HDR3L
00273  M01S00261.listlid +++|          SA3    PAGL        SAVE NUMBER OF LINES LEFT ON PAGE
00274  M01S00262.listlid +++|          SX7    X3-1
00275  M01S00263.listlid +++|          SA7    CLLC
00276  M01S00264.listlid +++|          EQ     FPL1        PRINT LID LINE
00277  M01S00265.listlid +++| LDP      SPACE  4,15
00278  M01S00266.listlid +++|**        LDP - PROCESS LID(S) FOR PIDS (FORMAT 2).
00279  M01S00267.listlid +++|*
00280  M01S00268.listlid +++|*         ENTRY  (A5) = ADDRESS OF PID CURRENTLY BEING PROCESSED.
00281  M01S00269.listlid +++|*                (WBUF) = PID LINE TO BE PRINTED WHEN THE FIRST
00282  M01S00270.listlid +++|*                         LISTABLE LID IS ENCOUNTERED.
00283  M01S00271.listlid +++|*
00284  M01S00272.listlid +++|*         EXIT   ALL APPROPRIATE LIDS PROCESSED FOR GIVEN PID.
00285  M01S00273.listlid +++|*
00286  M01S00274.listlid +++|*         USES   X - 0, 1, 2, 5, 6, 7.
00287  M01S00275.listlid +++|*                A - 0, 1, 2, 5, 6, 7.
00288  M01S00276.listlid +++|*                B - 7.
00289  M01S00277.listlid +++|*
00290  M01S00278.listlid +++|*         CALLS  FPL.
00291  M01S00279.listlid +++|*
00292  M01S00280.listlid +++|*         MACROS WRITEH, WRITEW.
00293  M01S00281.listlid +++|
00294  M01S00282.listlid +++|
00295  M01S00283.listlid +++| LDP      SUBR               ENTRY/EXIT
00296  M01S00284.listlid +++|          SA2    A5+2        OFFSET TO NUMBER OF LID SLOTS
00297  M01S00285.listlid +++|          MX0    -12
00298  M01S00286.listlid +++|          BX6    -X0*X2
00299  M01S00287.listlid +++|          SA6    NLIP
00300  M01S00288.listlid +++|          SA0    A5          SAVE ADDRESS OF CURRENT PID
00301  M01S00289.listlid +++|          SA5    A2          FWA-1 OF LID ENTRIES
00302  M01S00290.listlid +++|          BX6    X6-X6       CLEAR PID LINE PRINTED FLAG
00303  M01S00291.listlid +++|          SA6    PDPF
00304  M01S00292.listlid +++|
00305  M01S00293.listlid +++|*         PROCESS NEXT LID ENTRY.
00306  M01S00294.listlid +++|
00307  M01S00295.listlid +++| LDP1     SA5    A5+B1       READ NEXT LID ENTRY
00308  M01S00296.listlid +++|          MX0    18
00309  M01S00297.listlid +++|          BX7    X0*X5
00310  M01S00298.listlid +++|          ZR     X7,LDP6     IF EMPTY LID SLOT
00311  M01S00299.listlid +++|          SA2    LIDV
00312  M01S00300.listlid +++|          ZR     X2,LDP2     IF NO LID SPECIFIED
00313  M01S00301.listlid +++|          BX7    X2-X7
00314  M01S00302.listlid +++|          NZ     X7,LDP6     IF LID DOES NOT MATCH
00315  M01S00303.listlid +++| LDP2     LX5    59-31
00316  M01S00304.listlid +++|          NG     X5,LDP6     IF LID NOT LISTABLE
00317  M01S00305.listlid +++|
00318  M01S00306.listlid +++|*         PRINT THE PID LINE WHEN THE FIRST LISTABLE LID IS
00319  M01S00307.listlid +++|*         ENCOUNTERED.
00320  M01S00308.listlid +++|
00321  M01S00309.listlid +++|          SA1    PDPF
00322  M01S00310.listlid +++|          NZ     X1,LDP5     IF PID LINE ALREADY PRINTED
00323  M01S00311.listlid +++|          SX7    B1          INDICATE PID LINE PRINTED
00324  M01S00312.listlid +++|          SA7    A1
00325  M01S00313.listlid +++|          SA1    LFST
00326  M01S00314.listlid +++|          ZR     X1,LDP4     IF TERMINAL FILE
00327  M01S00315.listlid +++|          SA1    CLLC
00328  M01S00316.listlid +++|          SX7    X1-2
00329  M01S00317.listlid +++|          NG     X7,LDP3     IF NO ROOM TO PRINT PID AND ONE LID
00330  M01S00318.listlid +++|          SX7    X1-1        DECREMENT NUMBER OF PAGE LINES REMAINING
00331  M01S00319.listlid +++|          SA7    A1+
00332  M01S00320.listlid +++|          EQ     LDP4        WRITE PID LINE
00333  M01S00321.listlid +++|
00334  M01S00322.listlid +++| LDP3     WRITEW O,HDR4,HDR4L  WRITE ATTRIBUTE TRAILER
00335  M01S00323.listlid +++|          WRITEW O,HDR1,HDR1L
00336  M01S00324.listlid +++|          WRITEW O,HDR3,HDR3L  WRITE HEADER
00337  M01S00325.listlid +++|          SA1    PAGL        SAVE LINES REMAINING ON PAGE
00338  M01S00326.listlid +++|          SX7    X1-1
00339  M01S00327.listlid +++|          SA7    CLLC
Line S00328 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00328.listli3 ---| LDP4     WRITEH O,WBUF,9    WRITE PID LINE
00341  M01S00006.listli3 +++| LDP4     WRITEH O,WBUF,8    WRITE PID LINE
00342  M01S00329.listlid +++|
00343  M01S00330.listlid +++|*         FORMAT AND PRINT THE LID.
00344  M01S00331.listlid +++|
00345  M01S00332.listlid +++| LDP5     SA1    A5          GET LID
00346  M01S00333.listlid +++|          MX0    18
00347  M01S00334.listlid +++|          BX1    X0*X1
00348  M01S00335.listlid +++|          RJ     FPL         FORMAT AND PRINT LID LINE
00349  M01S00336.listlid +++|          SA1    LIDV
00350  M01S00337.listlid +++|          NZ     X1,LDP7     IF LID SPECIFIED
00351  M01S00338.listlid +++|
00352  M01S00339.listlid +++|*         DECREMENT LID SLOT COUNT AND PROCESS NEXT LID.
00353  M01S00340.listlid +++|
00354  M01S00341.listlid +++| LDP6     SA1    NLIP        DECREMENT LID SLOT COUNT
00355  M01S00342.listlid +++|          SX7    X1-1
00356  M01S00343.listlid +++|          SB7    X7
00357  M01S00344.listlid +++|          LE     B7,B0,LDP7  IF ALL LID SLOTS PROCESSED
00358  M01S00345.listlid +++|          SA7    A1
00359  M01S00346.listlid +++|          EQ     LDP1        PROCESS NEXT LID ENTRY
00360  M01S00347.listlid +++|
00361  M01S00348.listlid +++| LDP7     SA5    A0+         RESTORE ADDRESS OF PID
00362  M01S00349.listlid +++|          EQ     LDPX        RETURN
00363  M01S00350.listlid +++| PLA      SPACE  4,10
00364  M01S00351.listlid +++|**        PLA - PROCESS LID ATTRIBUTES (FORMAT 2).
00365  M01S00352.listlid +++|*
00366  M01S00353.listlid +++|*         ENTRY  (X5) = LID ATTRIBUTES (LEFT JUSTIFIED).
00367  M01S00354.listlid +++|*                (A7) = WORKING BUFFER - 1 FOR LID ATTRIBUTES.
00368  M01S00355.listlid +++|*
00369  M01S00356.listlid +++|*         EXIT   (A6) = LID ATTRIBUTES STORED IN WORKING BUFFER.
00370  M01S00357.listlid +++|*
00371  M01S00358.listlid +++|*         USES   X - 0, 3, 6.
00372  M01S00359.listlid +++|*                A - 3, 6.
00373  M01S00360.listlid +++|*                B - 2, 7.
00374  M01S00361.listlid +++|
00375  M01S00362.listlid +++|
00376  M01S00363.listlid +++| PLA      SUBR               ENTRY/EXIT
00377  M01S00364.listlid +++|          MX0    3
00378  M01S00365.listlid +++|          BX3    X0*X5       GET LID ATTRIBUTES
00379  M01S00366.listlid +++|          LX3    3
00380  M01S00367.listlid +++|          SB7    X3
00381  M01S00368.listlid +++|          SA3    BLKS+1
00382  M01S00369.listlid +++|          ZR     B7,PLA1     IF NO ATTRIBUTES
00383  M01S00370.listlid +++|          SA3    PLAA
00384  M01S00371.listlid +++|          EQ     B7,B1,PLA1  IF LOOPBACK BIT SET
00385  M01S00372.listlid +++|          SB2    4
00386  M01S00373.listlid +++|          SA3    PLAB
00387  M01S00374.listlid +++|          EQ     B7,B2,PLA1  IF ONLY STORE AND FORWARD BIT SET
00388  M01S00375.listlid +++|          SA3    PLAC
00389  M01S00376.listlid +++| PLA1     BX6    X3          STORE LID ATTRIBUTES
00390  M01S00377.listlid +++|          SA6    A7+B1
00391  M01S00378.listlid +++|          EQ     PLAX        RETURN
00392  M01S00379.listlid +++|
00393  M01S00380.listlid +++|
00394  M01S00381.listlid +++| PLAA     VFD    60/8L   B
00395  M01S00382.listlid +++| PLAB     VFD    60/8L   S
00396  M01S00383.listlid +++| PLAC     VFD    60/8L   SV
00397  M01S00384.listlid +++| PLD      SPACE  4,15
00398  M01S00385.listlid +++|**        PLD - PRINT LID TABLE DESCRIPTION.
00399  M01S00386.listlid +++|*
00400  M01S00387.listlid +++|*         ENTRY  (LIDTAB) = LID TABLE.
00401  M01S00388.listlid +++|*
00402  M01S00389.listlid +++|*         EXIT   LID TABLE WRITTEN TO OUTPUT FILE.
00403  M01S00390.listlid +++|*
00404  M01S00391.listlid +++|*         USES   X - ALL.
00405  M01S00392.listlid +++|*                A - 1, 2, 3, 5, 6, 7.
00406  M01S00393.listlid +++|*                B - 6.
00407  M01S00394.listlid +++|*
00408  M01S00395.listlid +++|*         CALLS  PLL.
00409  M01S00396.listlid +++|*
00410  M01S00397.listlid +++|*         MACROS MESSAGE, WRITER, WRITEW.
00411  M01S00398.listlid +++|
00412  M01S00399.listlid +++|
00413  M01S00400.listlid +++| PLD      SUBR               ENTRY/EXIT
00414  M01S00401.listlid +++|          WRITEW O,HDR2,HDR2L
00415  M01S00402.listlid +++|          SA1    LIDTAB+1    READ FIRST PID ENTRY
00416  M01S00403.listlid +++|
00417  M01S00404.listlid +++|*         PROCESS NEXT PID.
00418  M01S00405.listlid +++|
00419  M01S00406.listlid +++| PLD1     SA2    LIDV        GET LID TO MATCH
00420  M01S00407.listlid +++|          BX7    X1          SAVE PID DATA
00421  M01S00408.listlid +++|          SA7    PIDA
00422  M01S00409.listlid +++|          SA1    A1+B1
00423  M01S00410.listlid +++|          BX7    X1
00424  M01S00411.listlid +++|          SA7    PIDB
00425  M01S00412.listlid +++|          SA5    A1+B1       GET NUMBER OF LID SLOTS
00426  M01S00413.listlid +++|          MX4    -12
00427  M01S00414.listlid +++|          BX7    -X4*X5
00428  M01S00415.listlid +++|          SB6    X7
00429  M01S00416.listlid +++|
00430  M01S00417.listlid +++|*         PROCESS NEXT LID.
00431  M01S00418.listlid +++|
00432  M01S00419.listlid +++| PLD2     SA5    A5+B1       GET NEXT LID ENTRY
00433  M01S00420.listlid +++|          MX4    18
00434  M01S00421.listlid +++|          BX7    X4*X5
00435  M01S00422.listlid +++|          ZR     X7,PLD5     IF HOLE IN LID TABLE
00436  M01S00423.listlid +++|          BX7    X7-X2
00437  M01S00424.listlid +++|          ZR     X2,PLD3     IF LISTING ALL LIDS
00438  M01S00425.listlid +++|          NZ     X7,PLD5     IF LID DOES NOT MATCH
00439  M01S00426.listlid +++|
00440  M01S00427.listlid +++|*         EITHER ALL LIDS ARE TO BE PROCESSED BY DEFAULT OR THE
00441  M01S00428.listlid +++|*         SPECIFIED LID MATCHED AN LDT ENTRY.
00442  M01S00429.listlid +++|
00443  M01S00430.listlid +++| PLD3     BX3    X5
00444  M01S00431.listlid +++|          LX3    59-31
00445  M01S00432.listlid +++|          NG     X3,PLD4     IF LID NOT LISTABLE
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 (Added by) listlid
M02 (Updated by) listli1
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00433.listli1 ---|          SX7    B6          SAVE REMAINING NUMBER OF LID SLOTS
00452  M01S00009.listli1 +++| PLD3.1   SX7    B6
00453  M01S00434.listlid +++|          SA7    NLIP
00454  M01S00435.listlid +++|          RJ     PLL         LIST LID LINE
00455  M01S00436.listlid +++|          SX7    B1+         INDICATE LID FOUND
00456  M01S00437.listlid +++|          SA7    LLFD
00457  M01S00438.listlid +++|          SA2    NLIP        RESTORE NUMBER OF LID SLOTS
00458  M01S00439.listlid +++|          SB6    X2
00459  M01S00440.listlid +++|          SA2    LIDV
00460  M01S00441.listlid +++| PLD4     NZ     X2,PLD6     IF NOT PROCESSING ALL LIDS
00461  M01S00442.listlid +++| PLD5     SB6    B6-B1
00462  M01S00443.listlid +++|          GT     B6,PLD2     IF MORE LIDS FOR PID
00463  M01S00444.listlid +++|          SB6    B1          SET INDEX FOR NEXT PID ENTRY
00464  M01S00445.listlid +++| PLD6     SA3    PIDB
00465  M01S00446.listlid +++|          MX4    -12
00466  M01S00447.listlid +++|          BX7    -X4*X3
00467  M01S00448.listlid +++|          ZR     X7,PLD7     IF LAST PID
00468  M01S00449.listlid +++|          SA1    A5+B6
00469  M01S00450.listlid +++|          EQ     PLD1        PROCESS NEXT PID ENTRY
00470  M01S00451.listlid +++|
00471  M01S00452.listlid +++| PLD7     SA3    LLFD
00472  M01S00453.listlid +++|          ZR     X3,PLD8     IF NO LISTABLE LIDS FOUND
00473  M01S00454.listlid +++|          WRITER O
00474  M01S00455.listlid +++|          EQ     PLDX        RETURN
00475  M01S00456.listlid +++|
00476  M01S00457.listlid +++| PLD8     ZR     X2,PLD9     IF PROCESSING ALL LIDS
00477  M01S00458.listlid +++|          SA3    MSG5        ADD NON-MATCHING LID TO MESSAGE
00478  M01S00459.listlid +++|          LX2    18
00479  M01S00460.listlid +++|          MX0    42
00480  M01S00461.listlid +++|          BX3    X0*X3
00481  M01S00462.listlid +++|          BX6    X3+X2
00482  M01S00463.listlid +++|          SA6    A3+
00483  M01S00464.listlid +++|          MESSAGE  MSG5      * LID - XXX DOES NOT EXIST IN LID TABLE.*
00484  M01S00465.listlid +++|          EQ     PLDX        RETURN
00485  M01S00466.listlid +++|
00486  M01S00467.listlid +++| PLD9     MESSAGE  MSG3      * NO LIDS FOUND.*
00487  M01S00468.listlid +++|          EQ     PLDX        RETURN
00488  M01S00469.listlid +++| PLL      SPACE  4,15
00489  M01S00470.listlid +++|**        PLL - PROCESS LID LINE (FORMAT 1).
00490  M01S00471.listlid +++|*
00491  M01S00472.listlid +++|*         ENTRY  (X5) = LID WORD.
00492  M01S00473.listlid +++|*                (PIDA) = PID FIRST WORD (FROM LDT).
00493  M01S00474.listlid +++|*                (PIDB) = PID SECOND WORD (FROM LDT).
00494  M01S00475.listlid +++|*
00495  M01S00476.listlid +++|*         EXIT   LID LINE WRITTEN TO OUTPUT FILE.
00496  M01S00477.listlid +++|*
00497  M01S00478.listlid +++|*         USES   X - 0, 1, 3, 4, 6, 7.
00498  M01S00479.listlid +++|*                A - 1, 3, 4, 6, 7.
00499  M01S00480.listlid +++|*
00500  M01S00481.listlid +++|*         CALLS  PNS, SFN.
00501  M01S00482.listlid +++|*
00502  M01S00483.listlid +++|*         MACROS WRITEH, WRITEW.
00503  M01S00484.listlid +++|
00504  M01S00485.listlid +++|
00505  M01S00486.listlid +++| PLL      SUBR               ENTRY/EXIT
00506  M01S00487.listlid +++|          MX0    18          STORE LID IN WORKING BUFFER
00507  M01S00488.listlid +++|          BX1    X0*X5
00508  M01S00489.listlid +++|          RJ     SFN
00509  M01S00490.listlid +++|          LX6    -18
00510  M01S00491.listlid +++|          SA6    WBUF
00511  M01S00492.listlid +++|          SA1    PIDB        STORE MAINFRAME DESCRIPTOR
00512  M01S00493.listlid +++|          MX0    42
00513  M01S00494.listlid +++|          BX1    X0*X1
00514  M01S00495.listlid +++|          RJ     SFN         SPACE FILL NAME
00515  M01S00496.listlid +++|          LX6    -6
00516  M01S00497.listlid +++|          SA6    A6+B1
00517  M01S00498.listlid +++|          SA3    PLLB        PRESET DISABLED
00518  M01S00499.listlid +++|          LX5    59-35
00519  M01S00500.listlid +++|          PL     X5,PLL1     IF LID DISABLED
00520  M01S00501.listlid +++|          SA4    PIDA
00521  M01S00502.listlid +++|          LX4    59-40
00522  M01S00503.listlid +++|          PL     X4,PLL1     IF PID DISABLED
00523  M01S00504.listlid +++|          SA3    PLLD        PRESET STORE AND FORWARD
00524  M01S00505.listlid +++|          LX5    59-34-59+35
00525  M01S00506.listlid +++|          NG     X5,PLL1     IF STORE AND FORWARD BIT SET
00526  M01S00507.listlid +++|          SA3    PLLE        PRESET LOOPBACK
00527  M01S00508.listlid +++|          LX5    59-32-59+34
00528  M01S00509.listlid +++|          NG     X5,PLL1     IF LOOPBACK BIT SET
00529  M01S00510.listlid +++|          SA3    PLLA        PRESET HOST
00530  M01S00511.listlid +++|          SA1    PIDA
00531  M01S00512.listlid +++|          LX1    59-41
00532  M01S00513.listlid +++|          NG     X1,PLL1     IF HOST PID
00533  M01S00514.listlid +++|          SA3    PLLC        SET LINKED
00534  M01S00515.listlid +++| PLL1     BX6    X3
00535  M01S00516.listlid +++|          SA6    A6+B1       STORE FIRST WORD
00536  M01S00517.listlid +++|          SA4    A3+B1
00537  M01S00518.listlid +++|          BX6    X4
00538  M01S00519.listlid +++|          SA6    A6+B1       STORE SECOND WORD
00539  M01S00520.listlid +++|          RJ     PNS         PROCESS NETWORK STATUS
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  M01S00521.listlid +++|          SA3    LFST
00545  M01S00522.listlid +++|          ZR     X3,PLL3     IF TERMINAL FILE
00546  M01S00523.listlid +++|          SA3    CLLC
00547  M01S00524.listlid +++|          SX7    X3-1
00548  M01S00525.listlid +++|          NZ     X7,PLL2     IF NO ROOM LEFT ON PAGE
00549  M01S00526.listlid +++|          WRITEW O,HDR1,HDR1L   PRINT OUTPUT FILE HEADERS
00550  M01S00527.listlid +++|          WRITEW O,HDR2,HDR2L
00551  M01S00528.listlid +++|          SA3    PAGL        SAVE LINES REMAINING ON PAGE
00552  M01S00529.listlid +++|          SX7    X3-1
00553  M01S00530.listlid +++| PLL2     SA7    CLLC
Line S00531 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00531.listli3 ---| PLL3     WRITEH O,WBUF,6    WRITE LID LINE
00555  M01S00011.listli3 +++| PLL3     SA1    WBUF+7      RESTORE BUFFER LENGTH
00556  M01S00012.listli3 +++|          WRITEH O,WBUF,X1   WRITE LID LINE
00557  M01S00532.listlid +++|          EQ     PLLX        RETURN
00558  M01S00533.listlid +++|
00559  M01S00534.listlid +++|
00560  M01S00535.listlid +++| PLLA     DATA   20H HOST
00561  M01S00536.listlid +++| PLLB     DATA   20H DISABLED
00562  M01S00537.listlid +++| PLLC     DATA   20H LINKED
00563  M01S00538.listlid +++| PLLD     DATA   20H STORE FORWARD
00564  M01S00539.listlid +++| PLLE     DATA   20H LOOPBACK
00565  M01S00540.listlid +++| PNS      SPACE  4,10
00566  M01S00541.listlid +++|**        PNS - PROCESS NETWORK STATUS (FORMATS 1 AND 2).
00567  M01S00542.listlid +++|*
00568  M01S00543.listlid +++|*         ENTRY  (A6+1) = ADDRESS TO STORE NETWORK STATUS.
00569  M01S00544.listlid +++|*                (PIDA) = PID WORD, IF FORMAT 1.
00570  M01S00545.listlid +++|*                (X5) = PID WORD, IF FORMAT 2.
00571  M01S00546.listlid +++|*
00572  M01S00013.listli3 +++|*         EXIT   (X4) = SECOND NETWORK STATUS WORD, IF FORMAT 1.
00573  M01S00014.listli3 +++|*
00574  M01S00547.listlid +++|*         USES   X - 0, 1, 3, 4, 6, 7.
00575  M01S00548.listlid +++|*                A - 1, 3, 4, 6.
00576  M01S00549.listlid +++|*                B - 2, 3, 5, 6, 7.
00577  M01S00550.listlid +++|
00578  M01S00551.listlid +++|
00579  M01S00552.listlid +++| PNS      SUBR               ENTRY/EXIT
00580  M01S00553.listlid +++|          SA1    PIDV
00581  M01S00554.listlid +++|          MX0    -4
00582  M01S00555.listlid +++|          NZ     X1,PNS4     IF PROCESSING FORMAT 2
00583  M01S00556.listlid +++|          SA3    PIDA        GET PID WORD
00584  M01S00557.listlid +++|
00585  M01S00558.listlid +++|*         PROCESS NETWORK STATUS FOR FORMAT 1.
00586  M01S00559.listlid +++|
00587  M01S00560.listlid +++|          SB2    B0
00588  M01S00561.listlid +++|          BX7    -X0*X3
00589  M01S00562.listlid +++|          SB3    X7
00590  M01S00563.listlid +++|          NE     B3,B1,PNS1  IF NAM NOT IN SERVICE
00591  M01S00564.listlid +++|          SB2    B2+1        SET NAM IN SERVICE
00592  M01S00565.listlid +++| PNS1     LX3    -4
00593  M01S00566.listlid +++|          BX7    -X0*X3
00594  M01S00567.listlid +++|          SB3    X7
00595  M01S00568.listlid +++|          NE     B3,B1,PNS2  IF RHF NOT IN SERVICE
00596  M01S00569.listlid +++|          SB2    B2+2        SET RHF IN SERVICE
00597  M01S00570.listlid +++| PNS2     LX3    -4
00598  M01S00571.listlid +++|          BX7    -X0*X3
00599  M01S00572.listlid +++|          SB3    X7
00600  M01S00573.listlid +++|          NE     B3,B1,PNS3  IF SSF NOT IN SERVICE
00601  M01S00574.listlid +++|          SB2    B2+4        SET SSF IN SERVICE
00602  M01S00575.listlid +++| PNS3     SX3    B2
00603  M01S00576.listlid +++|          LX3    1
00604  M01S00577.listlid +++|          SA3    PNSA+X3     STORE NETWORK STATUS
00605  M01S00578.listlid +++|          BX6    X3
00606  M01S00579.listlid +++|          SA6    A6+B1
00607  M01S00580.listlid +++|          SA4    A3+B1
00608  M01S00581.listlid +++|          BX6    X4
00609  M01S00582.listlid +++|          SA6    A6+B1
00610  M01S00583.listlid +++|          EQ     PNSX        RETURN
00611  M01S00584.listlid +++|
00612  M01S00585.listlid +++|*         PROCESS NETWORK STATUS FOR FORMAT 2.
00613  M01S00586.listlid +++|
00614  M01S00587.listlid +++| PNS4     BX2    X5
00615  M01S00588.listlid +++|          LX2    59-40
00616  M01S00589.listlid +++|          PL     X2,PNS8     IF PID DISABLED
00617  M01S00590.listlid +++|
00618  M01S00591.listlid +++|*         PROCESS *NAM* STATUS.
00619  M01S00592.listlid +++|
00620  M01S00593.listlid +++|          BX2    -X0*X5      NAM STATUS
00621  M01S00594.listlid +++|          SB6    X2+
00622  M01S00595.listlid +++|          LX2    59-3
00623  M01S00596.listlid +++|          LE     B6,B1,PNS5  IF NOT AVAILABLE OR IN SERVICE
00624  M01S00597.listlid +++|          ERRNZ  /NTS/NAV    ADJUST CODE IF VALUE CHANGES
00625  M01S00598.listlid +++|          ERRNZ  /NTS/ISV-1  ADJUST CODE IF VALUE CHANGES
00626  M01S00599.listlid +++|          SB6    3
00627  M01S00600.listlid +++|          NG     X2,PNS5     IF DISABLED
00628  M01S00601.listlid +++|          ERRNZ  /NTS/DAB-10B  ADJUST CODE IF VALUE CHANGES
00629  M01S00602.listlid +++|          SB6    2           SET OUT
00630  M01S00603.listlid +++|
00631  M01S00604.listlid +++|*         PROCESS *RHF* STATUS.
00632  M01S00605.listlid +++|
00633  M01S00606.listlid +++| PNS5     LX5    -4
00634  M01S00607.listlid +++|          BX2    -X0*X5      RHF STATUS
00635  M01S00608.listlid +++|          SB5    X2
00636  M01S00609.listlid +++|          LX2    59-3
00637  M01S00610.listlid +++|          LE     B5,B1,PNS6  IF NOT AVAILABLE OR IN SERVICE
00638  M01S00611.listlid +++|          SB5    3
00639  M01S00612.listlid +++|          NG     X2,PNS6     IF DISABLED
00640  M01S00613.listlid +++|          SB5    2           SET OUT
00641  M01S00614.listlid +++|
00642  M01S00615.listlid +++|*         PROCESS *SSF* STATUS.
00643  M01S00616.listlid +++|
00644  M01S00617.listlid +++| PNS6     LX5    -4
00645  M01S00618.listlid +++|          BX2    -X0*X5      SSF STATUS
00646  M01S00619.listlid +++|          SB7    X2
00647  M01S00620.listlid +++|          LX2    59-3
00648  M01S00621.listlid +++|          LE     B7,B1,PNS7  IF NOT AVAILABLE OR IN SERVICE
00649  M01S00622.listlid +++|          SB7    3
00650  M01S00623.listlid +++|          NG     X2,PNS7     IF DISABLED
00651  M01S00624.listlid +++|          SB7    2           SET OUT
00652  M01S00625.listlid +++|
00653  M01S00626.listlid +++|*         WRITE STATUS OF NETWORKS TO WORKING BUFFER.
00654  M01S00627.listlid +++|
00655  M01S00628.listlid +++| PNS7     SA1    PNSB+B5     SET RHF STATUS
00656  M01S00629.listlid +++|          BX6    X1
00657  M01S00630.listlid +++|          SA6    A6+B1
00658  M01S00631.listlid +++|          SA1    PNSB+B6     SET NAM STATUS
00659  M01S00632.listlid +++|          BX6    X1
00660  M01S00633.listlid +++|          SA6    A6+B1
00661  M01S00634.listlid +++|          SA1    PNSB+B7     SET SSF STATUS
00662  M01S00635.listlid +++|          BX6    X1
00663  M01S00636.listlid +++|          SA6    A6+B1
00664  M01S00637.listlid +++|          EQ     PNS9        SET END OF LINE
00665  M01S00638.listlid +++|
00666  M01S00639.listlid +++| PNS8     SA1    PNSC        SET --- FOR NETWORK STATUS
00667  M01S00640.listlid +++|          BX6    X1
00668  M01S00641.listlid +++|          SA6    A6+B1
00669  M01S00642.listlid +++|          SA6    A6+B1
00670  M01S00643.listlid +++|          SA6    A6+B1
Line S00644 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00644.listli3 ---| PNS9     SA1    BLKS+1      SET END OF LINE
Line S00645 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00645.listli3 ---|          BX6    X1
Line S00646 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00646.listli3 ---|          SA6    A6+B1
00674  M01S00015.listli3 +++| PNS9     MX0    48
00675  M01S00016.listli3 +++|          BX6    X0*X1
00676  M01S00017.listli3 +++|          SA6    A6          INSURE END OF LINE
00677  M01S00647.listlid +++|          EQ     PNSX        RETURN
00678  M01S00648.listlid +++|
00679  M01S00649.listlid +++|*         THIS TABLE MUST REMAIN IN THIS ORDER.
00680  M01S00650.listlid +++|*         NETWORK STATUS FOR FORMAT 1.
00681  M01S00651.listlid +++|
00682  M01S00652.listlid +++| PNSA     BSS    0
Line S00653 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00653.listli3 ---|          DATA   18LNONE AVAILABLE
Line S00654 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00684  M02S00654.listli3 ---|          DATA   18LNAM
Line S00655 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00655.listli3 ---|          DATA   18LRHF
Line S00656 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00686  M02S00656.listli3 ---|          DATA   18LNAM, RHF
Line S00657 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00657.listli3 ---|          DATA   18LSSF
Line S00658 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00658.listli3 ---|          DATA   18LNAM, SSF
Line S00659 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00659.listli3 ---|          DATA   18LRHF, SSF
Line S00660 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00660.listli3 ---|          DATA   18LNAM, RHF, SSF
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  M01S00661.listlid +++|
00706  M01S00662.listlid +++|*         NETWORK STATUS FOR FORMAT 2.
00707  M01S00663.listlid +++|
00708  M01S00664.listlid +++| PNSB     BSS    0
00709  M01S00665.listlid +++|          DATA   10H  NA
00710  M01S00666.listlid +++|          DATA   10H  IN
00711  M01S00667.listlid +++|          DATA   10H  OUT
Line S00668 Modification History
M01 (Added by) listlid
M02 (Updated by) listli3
Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00668.listli3 ---|          DATA   10H  DISABLED
00713  M01S00032.listli3 +++|          DATA   10HDISABLED
00714  M01S00669.listlid +++| PNSC     DATA   10H  ---
00715  M01S00670.listlid +++| PPD      SPACE  4,15
00716  M01S00671.listlid +++|**        PPD - PRINT PID TABLE DESCRIPTION.
00717  M01S00672.listlid +++|*
00718  M01S00673.listlid +++|*         ENTRY  (LIDTAB) = LID TABLE.
00719  M01S00674.listlid +++|*                PID SPECIFIED ON COMMAND.
00720  M01S00675.listlid +++|*
00721  M01S00676.listlid +++|*         EXIT   LID TABLE WRITTEN TO OUTPUT FILE.
00722  M01S00677.listlid +++|*
00723  M01S00678.listlid +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00724  M01S00679.listlid +++|*                A - 1, 2, 3, 5, 6, 7.
00725  M01S00680.listlid +++|*                B - 2.
00726  M01S00681.listlid +++|*
00727  M01S00682.listlid +++|*         CALLS  LDP, PPL.
00728  M01S00683.listlid +++|*
00729  M01S00684.listlid +++|*         MACROS MESSAGE, WRITER, WRITEW.
00730  M01S00685.listlid +++|
00731  M01S00686.listlid +++|
00732  M01S00687.listlid +++| PPD      SUBR               ENTRY/EXIT
00733  M01S00688.listlid +++|          WRITEW O,HDR3,HDR3L
00734  M01S00689.listlid +++|          SA5    LIDTAB+1
00735  M01S00690.listlid +++|
00736  M01S00691.listlid +++|*         PROCESS NEXT PID.
00737  M01S00692.listlid +++|
00738  M01S00693.listlid +++| PPD1     SA2    PIDV        USER-SPECIFIED PID VALUE
00739  M01S00694.listlid +++|          MX0    18
00740  M01S00695.listlid +++|          BX2    X0*X2
00741  M01S00696.listlid +++|          ZR     X2,PPD2     IF ALL PIDS TO BE PROCESSED
00742  M01S00697.listlid +++|          BX1    X0*X5
00743  M01S00698.listlid +++|          BX7    X1-X2
00744  M01S00699.listlid +++|          SA7    PDFD        SAVE PID FOUND FLAG
00745  M01S00700.listlid +++|          NZ     X7,PPD3     IF PID DOES NOT MATCH
00746  M01S00701.listlid +++|
00747  M01S00702.listlid +++|*         EITHER ALL PIDS ARE TO BE PROCESSED BY DEFAULT OR
00748  M01S00703.listlid +++|*         THE SPECIFIED PID MATCHED AN LDT ENTRY.
00749  M01S00704.listlid +++|
00750  M01S00705.listlid +++| PPD2     RJ     PPL         PROCESS PID LINE
00751  M01S00706.listlid +++|          RJ     LDP         PROCESS LID(S) FOR PID
00752  M01S00707.listlid +++|          SA1    PIDV
00753  M01S00708.listlid +++|          MX0    18
00754  M01S00709.listlid +++|          BX1    X0*X1
00755  M01S00710.listlid +++|          NZ     X1,PPD5     IF PID WAS SPECIFIED
00756  M01S00711.listlid +++|
00757  M01S00712.listlid +++|*         DETERMINE IF THERE ARE MORE PIDS TO PROCESS.
00758  M01S00713.listlid +++|
00759  M01S00714.listlid +++| PPD3     SA2    A5+B1       GET OFFSET TO NEXT PID
00760  M01S00715.listlid +++|          MX0    -12
00761  M01S00716.listlid +++|          BX2    -X0*X2
00762  M01S00717.listlid +++|          ZR     X2,PPD4     IF NO MORE PIDS
00763  M01S00718.listlid +++|          SB2    X2
00764  M01S00719.listlid +++|          SA5    A5+B2       NEXT PID ADDRESS
00765  M01S00720.listlid +++|          EQ     PPD1        PROCESS NEXT PID ENTRY
00766  M01S00721.listlid +++|
00767  M01S00722.listlid +++|*         ALL APPROPRIATE PID PROCESSING COMPLETE.
00768  M01S00723.listlid +++|
00769  M01S00724.listlid +++| PPD4     SA1    PIDV
00770  M01S00725.listlid +++|          MX0    18
00771  M01S00726.listlid +++|          BX1    X0*X1
00772  M01S00727.listlid +++|          ZR     X1,PPD5     IF PID WAS NOT SPECIFIED
00773  M01S00728.listlid +++|          SA2    PDFD
00774  M01S00729.listlid +++|          ZR     X2,PPD5     IF SPECIFIED PID FOUND IN LDT
00775  M01S00730.listlid +++|          SA3    MSG4
00776  M01S00731.listlid +++|          LX1    18          POSITION PID
00777  M01S00732.listlid +++|          MX0    42
00778  M01S00733.listlid +++|          BX3    X0*X3
00779  M01S00734.listlid +++|          BX6    X1+X3       MERGE PID IN MESSAGE
00780  M01S00735.listlid +++|          SA6    A3+
00781  M01S00736.listlid +++|          MESSAGE  MSG4      * PID - XXX DOES NOT EXIST IN LDT.*
00782  M01S00737.listlid +++|          EQ     PPDX        RETURN
00783  M01S00738.listlid +++|
00784  M01S00739.listlid +++| PPD5     SA1    LLFD
00785  M01S00740.listlid +++|          NZ     X1,PPD6     IF LISTABLE LID WAS FOUND
00786  M01S00741.listlid +++|          MESSAGE  MSG3      * NO LIDS FOUND.*
00787  M01S00742.listlid +++|          EQ     PPDX        RETURN
00788  M01S00743.listlid +++|
00789  M01S00744.listlid +++| PPD6     WRITEW O,HDR4,HDR4L  WRITE PID TRAILER INFORMATION
00790  M01S00745.listlid +++|          WRITER O
00791  M01S00746.listlid +++|          EQ     PPDX        RETURN
00792  M01S00747.listlid +++| PPL      SPACE  4,15
00793  M01S00748.listlid +++|**        PPL - PROCESS PID LINE (FORMAT 2).
00794  M01S00749.listlid +++|*
00795  M01S00750.listlid +++|*         ENTRY  (A5) = ADDRESS OF PID WORD.
00796  M01S00751.listlid +++|*                (X5) = PID WORD.
00797  M01S00752.listlid +++|*
00798  M01S00753.listlid +++|*         EXIT   PID LINE WRITTEN TO *WBUF*.
00799  M01S00754.listlid +++|*
00800  M01S00755.listlid +++|*         USES   X - 0, 1, 2, 3, 5, 6.
00801  M01S00756.listlid +++|*                A - 1, 2, 3, 5, 6.
00802  M01S00757.listlid +++|*
00803  M01S00758.listlid +++|*         CALLS  PNS, SFN.
00804  M01S00759.listlid +++|
00805  M01S00760.listlid +++|
00806  M01S00761.listlid +++| PPL      SUBR               ENTRY/EXIT
00807  M01S00762.listlid +++|
00808  M01S00763.listlid +++|*         PROCESS PID NAME AND MAINFRAME DESCRIPTOR.
00809  M01S00764.listlid +++|
00810  M01S00765.listlid +++|          MX0    18
00811  M01S00766.listlid +++|          BX1    X0*X5       PID NAME
00812  M01S00767.listlid +++|          RJ     SFN         SPACE FILL NAME
00813  M01S00768.listlid +++|          LX6    18
00814  M01S00769.listlid +++|          LX5    59-38
00815  M01S00770.listlid +++|          PL     X5,PPL1     IF LISTABLE
00816  M01S00771.listlid +++|          SA1    PPLH
00817  M01S00772.listlid +++|          BX6    X1
00818  M01S00773.listlid +++| PPL1     SA6    WBUF        STORE PID IN WORKING BUFFER
00819  M01S00774.listlid +++|          SA3    BLKS        STORE BLANK WORD
00820  M01S00775.listlid +++|          BX6    X3
00821  M01S00776.listlid +++|          SA6    A6+B1
00822  M01S00777.listlid +++|          SA2    A5+B1       GET MAINFRAME DESCRIPTOR
00823  M01S00778.listlid +++|          MX0    42
00824  M01S00779.listlid +++|          BX1    X0*X2
00825  M01S00780.listlid +++|          RJ     SFN         SPACE FILL NAME
00826  M01S00781.listlid +++|          LX6    -6
00827  M01S00782.listlid +++|          SA6    A6+B1       STORE MAINFRAME DESCRIPTOR
00828  M01S00783.listlid +++|
00829  M01S00784.listlid +++|*         PROCESS MAINFRAME TYPE AND PID ATTRIBUTES.
00830  M01S00785.listlid +++|
00831  M01S00786.listlid +++|          LX5    59-41-59+38
00832  M01S00787.listlid +++|          PL     X5,PPL2     IF LINKED PID
00833  M01S00788.listlid +++|          SA3    PPLB
00834  M01S00789.listlid +++|          BX6    X3
00835  M01S00790.listlid +++|          SA6    A6+B1       STORE *HOST* MAINFRAME TYPE
00836  M01S00791.listlid +++|          SA3    A3+B1
00837  M01S00792.listlid +++|          ERRNZ  PPLC-PPLB-1 ADJUST IF WORDS NOT CONTIGUOUS
00838  M01S00793.listlid +++|          LX5    59-39-59+41
00839  M01S00794.listlid +++|          NG     X5,PPL3     IF PRE-VALIDATION REQUIRED
00840  M01S00795.listlid +++|          SA3    PPLD        ATTRIBUTE IS *H*
00841  M01S00796.listlid +++|          EQ     PPL3        STORE PID ATTRIBUTES
00842  M01S00797.listlid +++|
00843  M01S00798.listlid +++| PPL2     SA3    PPLE
00844  M01S00799.listlid +++|          BX6    X3
00845  M01S00800.listlid +++|          SA6    A6+B1       STORE *LINK* MAINFRAME TYPE
00846  M01S00801.listlid +++|          SA3    PPLF
00847  M01S00802.listlid +++|          LX5    59-39-59+41
00848  M01S00803.listlid +++|          NG     X5,PPL3     IF PRE-VALIDATION REQUIRED
00849  M01S00804.listlid +++|          SA3    PPLG        ATTRIBUTE IS *L*
00850  M01S00805.listlid +++| PPL3     BX6    X3
00851  M01S00806.listlid +++|          SA6    A6+B1       STORE PID ATTRIBUTE
00852  M01S00807.listlid +++|          SA5    A5+         RESTORE PID WORD
00853  M01S00808.listlid +++|          RJ     PNS         PROCESS NETWORK STATUS
00854  M01S00809.listlid +++|          EQ     PPLX        RETURN
00855  M01S00810.listlid +++|
00856  M01S00811.listlid +++| PPLB     VFD    60/10L  HOST
00857  M01S00812.listlid +++| PPLC     VFD    60/10L  HV
00858  M01S00813.listlid +++| PPLD     VFD    60/10L  H
00859  M01S00814.listlid +++| PPLE     VFD    60/10L  LINKED
00860  M01S00815.listlid +++| PPLF     VFD    60/10L  LV
00861  M01S00816.listlid +++| PPLG     VFD    60/10L  L
00862  M01S00817.listlid +++| PPLH     VFD    60/10L       ---
00863  M01S00818.listlid +++|          SPACE  4,10
00864  M01S00819.listlid +++|*         COMMON DECKS.
00865  M01S00820.listlid +++|
00866  M01S00821.listlid +++|*CALL     COMCARG
00867  M01S00822.listlid +++|*CALL     COMCCIO
00868  M01S00823.listlid +++|*CALL     COMCCPM
00869  M01S00824.listlid +++|*CALL     COMCLFM
00870  M01S00825.listlid +++|*CALL     COMCSFM
00871  M01S00826.listlid +++|*CALL     COMCSFN
00872  M01S00827.listlid +++|*CALL     COMCSTF
00873  M01S00828.listlid +++|*CALL     COMCSYS
00874  M01S00829.listlid +++|*CALL     COMCWTC
00875  M01S00830.listlid +++|*CALL     COMCWTH
00876  M01S00831.listlid +++|*CALL     COMCWTW
00877  M01S00832.listlid +++|*CALL     COMCZTB
00878  M01S00833.listlid +++|          TITLE  BUFFERS.
00879  M01S00834.listlid +++|          SPACE  4,10
00880  M01S00835.listlid +++|*         BUFFERS.
00881  M01S00836.listlid +++|
00882  M01S00837.listlid +++| OBUF     BSS    OBUFL       OUTPUT BUFFER
00883  M01S00838.listlid +++| LIDTAB   EQU    *           LID TABLE
00884  M01S00839.listlid +++|          TITLE  PRESET.
00885  M01S00840.listlid +++| PRS      SPACE  4,15
00886  M01S00841.listlid +++|**        PRS - PRESET.
00887  M01S00842.listlid +++|*
00888  M01S00843.listlid +++|*         EXIT   ABORT IF ERROR ON COMMAND.
00889  M01S00844.listlid +++|*                (LFST) = 0, IF OUTPUT BEING SENT TO TERMINAL.
00890  M01S00845.listlid +++|*                       .NE. 0, OTHERWISE.
00891  M01S00846.listlid +++|*                (PAGL) = (CLLC) = NUMBER OF LINES TO BE PRINTED
00892  M01S00847.listlid +++|*                       ON EACH PAGE (EXCLUDING TRAILER FOR FORMAT 2).
00893  M01S00848.listlid +++|*
00894  M01S00849.listlid +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
00895  M01S00850.listlid +++|*                A - 1, 2, 4, 5, 6, 7.
00896  M01S00851.listlid +++|*                B - 1, 4, 5.
00897  M01S00852.listlid +++|*
00898  M01S00853.listlid +++|*         CALLS  ARG, STF.
00899  M01S00854.listlid +++|*
00900  M01S00855.listlid +++|*         MACROS ABORT, GETPP, MESSAGE, SETFS.
00901  M01S00856.listlid +++|*
00902  M01S00857.listlid +++|*         NOTE   PRESET WILL BE OVERLAYED BY THE LID TABLE.
00903  M01S00858.listlid +++|
00904  M01S00859.listlid +++|
00905  M01S00860.listlid +++| PRS      SUBR               ENTRY/EXIT
00906  M01S00861.listlid +++|          SB1    1
00907  M01S00862.listlid +++|          SA1    ACTR        GET NUMBER OF ARGUMENTS IN COMMAND
00908  M01S00863.listlid +++|          MX0    -18
00909  M01S00864.listlid +++|          BX1    -X0*X1
00910  M01S00865.listlid +++|          ZR     X1,PRS3     IF NO ARGUMENTS
00911  M01S00866.listlid +++|          SB4    X1
00912  M01S00867.listlid +++|          SA4    ARGR        GET FIRST ARGUMENT
00913  M01S00868.listlid +++|          SB5    TARG        SET ARGUMENT TABLE ADDRESS
00914  M01S00869.listlid +++|          RJ     ARG         PROCESS ARGUMENTS
00915  M01S00870.listlid +++|          NZ     X1,PRS5     IF ARGUMENT ERROR
00916  M01S00871.listlid +++|          SA1    LIDV
00917  M01S00872.listlid +++|          SA2    STVL
00918  M01S00873.listlid +++|          NZ     X1,PRS1     IF LID SPECIFIED
00919  M01S00874.listlid +++|          ZR     X2,PRS2     IF NEITHER LID NOT ST SPECIFIED
00920  M01S00875.listlid +++|          BX1    X2
00921  M01S00876.listlid +++|          BX2    X2-X2
00922  M01S00877.listlid +++| PRS1     NZ     X2,PRS5     IF BOTH LID AND ST SPECIFIED
00923  M01S00878.listlid +++|          MX0    42
00924  M01S00879.listlid +++|          BX6    X0*X1
00925  M01S00880.listlid +++|          ZR     X6,PRS8     IF KEYWORD SPECIFIED BUT NOT EQUIVALENCED
00926  M01S00881.listlid +++|          SA6    A1
00927  M01S00882.listlid +++|          LX6    18
00928  M01S00883.listlid +++|          BX7    X0*X6
00929  M01S00884.listlid +++|          NZ     X7,PRS7     IF MORE THAN 3 CHARACTERS
00930  M01S00885.listlid +++|          LX6    -6
00931  M01S00886.listlid +++|          BX7    X0*X6
00932  M01S00887.listlid +++|          ZR     X7,PRS7     IF LESS THAN 3 CHARACTERS
00933  M01S00888.listlid +++| PRS2     SA1    PIDV
00934  M01S00889.listlid +++|          ZR     X1,PRS3     IF PID NOT SPECIFIED
00935  M01S00890.listlid +++|          BX6    X0*X1
00936  M01S00891.listlid +++|          ZR     X6,PRS3     IF PID SPECIFIED, BUT NOT EQUIVALENCED
00937  M01S00892.listlid +++|          LX6    18
00938  M01S00893.listlid +++|          BX7    X0*X6
00939  M01S00894.listlid +++|          NZ     X7,PRS6     IF MORE THAN 3 CHARACTERS
00940  M01S00895.listlid +++|          LX6    -6
00941  M01S00896.listlid +++|          BX7    X0*X6
00942  M01S00897.listlid +++|          ZR     X7,PRS6     IF LESS THAN 3 CHARACTERS
00943  M01S00898.listlid +++| PRS3     SX2    O           DETERMINE OUTPUT FILE STATUS
00944  M01S00899.listlid +++|          RJ     STF
00945  M01S00900.listlid +++|          SA6    LFST
00946  M01S00901.listlid +++|          ZR     X6,PRSX     IF OUTPUT ASSIGNED TO TERMINAL
00947  M01S00902.listlid +++|          GETPP  PAGC,PAGL,JPRD  GET LINE COUNT
00948  M01S00903.listlid +++|          SA5    PAGL
00949  M01S00904.listlid +++|          SX7    X5-HDLN     ENSURE SPACE FOR HEADERS
00950  M01S00905.listlid +++|          SA1    PIDV
00951  M01S00906.listlid +++|          ZR     X1,PRS4     IF PID NOT SPECIFIED
00952  M01S00907.listlid +++|          SX7    X7-TRLN     ENSURE SPACE FOR TRAILERS
00953  M01S00908.listlid +++| PRS4     SA7    PAGL
00954  M01S00909.listlid +++|          SA7    CLLC
00955  M01S00910.listlid +++|          SETFS  O,0         PRESERVE OUTPUT FILE
00956  M01S00911.listlid +++|          EQ     PRSX        RETURN
00957  M01S00912.listlid +++|
00958  M01S00913.listlid +++| PRS5     MESSAGE  PRSA      * LISTLID COMMAND ERROR.*
Line S00914 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00959  M02S00914.listli2 ---|          SA1    JOPR
Line S00915 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00960  M02S00915.listli2 ---|          MX0    -12
Line S00916 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00916.listli2 ---|          LX1    -24
Line S00917 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00962  M02S00917.listli2 ---|          BX1    -X0*X1
Line S00918 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00918.listli2 ---|          SX2    X1-IAOT
Line S00919 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00919.listli2 ---|          NZ     X2,PRS9     IF NOT INTERACTIVE ORIGIN TYPE
Line S00920 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00920.listli2 ---|          MESSAGE  PRSB      * ENTER HELPME,LISTLID FOR HELP.*
00966  M01S00921.listlid +++|          ABORT
00967  M01S00922.listlid +++|
00968  M01S00923.listlid +++| PRS6     MESSAGE  PRSD      * SPECIFY EXACTLY 3 CHARACTERS ON PID.*
00969  M01S00924.listlid +++|          EQ     PRS9        ABORT
00970  M01S00925.listlid +++|
00971  M01S00926.listlid +++| PRS7     MESSAGE  PRSE      * SPECIFY EXACTLY 3 CHARACTERS ON LID.*
00972  M01S00927.listlid +++|          EQ     PRS9        ABORT
00973  M01S00928.listlid +++|
Line S00929 Modification History
M01 (Added by) listlid
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00929.271l716 ---| PRS8     MESSAGE  PRSF      * ST=XXX OR LID=XXX IS REQUIRED.*
00975  M01S00001.271l716 +++| PRS8     MESSAGE  PRSF      * LID=XXX OR ST=XXX IS REQUIRED.*
Line S00930 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00930.listli2 ---| PRS9     MESSAGE  PRSC      * LISTLID ABORT.*
Line S00931 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00931.listli2 ---|          ABORT
00978  M01S00004.listli2 +++| PRS9     ABORT
00979  M01S00932.listlid +++|
00980  M01S00933.listlid +++|*         PRESET ERROR MESSAGES.
00981  M01S00934.listlid +++|
00982  M01S00935.listlid +++| PRSA     DATA   C* LISTLID COMMAND ERROR.*
Line S00936 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00936.listli2 ---| PRSB     DATA   C* ENTER HELPME,LISTLID FOR HELP.*
Line S00937 Modification History
M01 (Added by) listlid
M02 (Updated by) listli2
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00937.listli2 ---| PRSC     DATA   C* LISTLID ABORT.*
00985  M01S00938.listlid +++| PRSD     DATA   C* SPECIFY EXACTLY 3 CHARACTERS ON PID KEYWORD.*
00986  M01S00939.listlid +++| PRSE     DATA   C* SPECIFY EXACTLY 3 CHARACTERS ON LID KEYWORD.*
Line S00940 Modification History
M01 (Added by) listlid
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00987  M02S00940.271l716 ---| PRSF     DATA   C* ST=XXX OR LID=XXX IS REQUIRED.*
00988  M01S00002.271l716 +++| PRSF     DATA   C* LID=XXX OR ST=XXX IS REQUIRED.*
00989  M01S00941.listlid +++|          SPACE  4,10
00990  M01S00942.listlid +++|*         PRESET STORAGE LOCATIONS.
00991  M01S00943.listlid +++|
00992  M01S00944.listlid +++| LID1     CON    1           ASSUMED LID, ST, OR PID VALUE
00993  M01S00945.listlid +++| PAGC     BSS    2           PARAMETER BLOCK FOR *GETPAGE*
00994  M01S00946.listlid +++|          SPACE  4,10
00995  M01S00947.listlid +++|*         ARGUMENT TABLE.
00996  M01S00948.listlid +++|
00997  M01S00949.listlid +++| TARG     BSS    0
00998  M01S00950.listlid +++| LID      ARG    LID1,LIDV,400B
00999  M01S00951.listlid +++| ST       ARG    LID1,STVL,400B
01000  M01S00952.listlid +++| L        ARG    O,O
01001  M01S00953.listlid +++| PID      ARG    LID1,PIDV,400B
01002  M01S00954.listlid +++|          ARG
01003  M01S00955.listlid +++|          SPACE  4,10
01004  M01S00956.listlid +++|*         RESERVE SUFFICIENT SPACE TO HOLD THE MAXIMUM SIZE OF THE LDT.
01005  M01S00957.listlid +++|
01006  M01S00958.listlid +++| LENGTH   EQU    *-PRS       PRESET LENGTH
01007  M01S00959.listlid +++| MAXLTH   EQU    MXLDT-LENGTH  MAX LDT SIZE - PRESET LENGTH
01008  M01S00960.listlid +++|          BSSZ   MAXLTH      ADDITIONAL CM WORDS REQUIRED TO HOLD LDT
01009  M01S00961.listlid +++| RFL=     EQU    *
01010  M01S00962.listlid +++|          SPACE  4,10
01011  M01S00963.listlid +++|          END
cdc/nos2.source/opl.opl871/deck/listlid.txt ยท Last modified: by 127.0.0.1