User Tools

Site Tools


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

Deck LIDOU

2 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.lidou   +++|          IDENT  LIDOU,FWA,LIDOU
00002  M01S00002.lidou   +++|          TITLE  LIDOU - LOGICAL IDENTIFIER OPERATOR UTILITY.
00003  M01S00003.lidou   +++|          ABS
00004  M01S00004.lidou   +++|          SST
00005  M01S00005.lidou   +++|          ENTRY  LIDOU
00006  M01S00006.lidou   +++|          ENTRY  RFL=
00007  M01S00007.lidou   +++|          ENTRY  SSJ=
00008  M01S00008.lidou   +++|          SYSCOM B1
00009  M01S00009.lidou   +++|*COMMENT  LIDOU - LOGICAL ID OPERATOR UTILITY.
Line S00010 Modification History
M01 (Added by) lidou
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00010.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1982.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00011.lidou   +++|          SPACE  4,10
00013  M01S00012.lidou   +++|*****     LIDOU - LOGICAL IDENTIFIER OPERATOR UTILITY.
00014  M01S00013.lidou   +++|*
00015  M01S00014.lidou   +++|*         S. D. PAINTER      83/11/01.
00016  M01S00015.lidou   +++|          SPACE  4,15
00017  M01S00016.lidou   +++|*         *LIDOU* IS AN *L* DISPLAY OPERATOR UTILITY THAT DISPLAYS THE
00018  M01S00017.lidou   +++|*         *LID* TABLE AND ALLOWS ADDITION, DELETION, OR ALTERATION OF
00019  M01S00018.lidou   +++|*         ATTRIBUTES FOR SPECIFIED LIDS AND THE CAPABILITY TO ENABLE
00020  M01S00019.lidou   +++|*         OR DISABLE PIDS IN RELATION TO *NAM*, *RHF*, OR *SSF*. THE
00021  M01S00020.lidou   +++|*         CAPABILITY ALSO EXISTS TO FORMAT A LISTING TO THE PRINTER.
00022  M01S00021.lidou   +++|*         IF LIDOU IS EXECUTED FROM *DSD* ALL INPUT AND OUTPUT WILL
00023  M01S00022.lidou   +++|*         BE PROCESSED VIA THE CONSOLE *L* DISPLAY.  IF LIDOU IS IN-
00024  M01S00023.lidou   +++|*         ITIATED FROM *DIS* OR A BATCH JOB BOTH AN INPUT AND AN OUT-
00025  M01S00024.lidou   +++|*         PUT FILE MUST BE SPECIFIED ON THE CONTROL STATEMENT.
00026  M01S00025.lidou   +++|          SPACE  4,10
00027  M01S00026.lidou   +++|***       CONTROL STATEMENT CALL.
00028  M01S00027.lidou   +++|*
00029  M01S00028.lidou   +++|*         LIDOU.                 (FROM CONSOLE ONLY)
00030  M01S00029.lidou   +++|*         LIDOU(I=LFN1,L=LFN2).  (FROM *DIS* OR A BATCH JOB)
00031  M01S00030.lidou   +++|          SPACE  4,10
00032  M01S00031.lidou   +++|***       DAYFILE MESSAGES.
00033  M01S00032.lidou   +++|*
00034  M01S00033.lidou   +++|*         THESE MESSAGES ARE ISSUED TO THE JOB AND SYSTEM DAYFILE.
00035  M01S00034.lidou   +++|*
00036  M01S00035.lidou   +++|*         * LIDOU UTILITY COMPLETE.*
00037  M01S00036.lidou   +++|*                INDICATES NORMAL TERMINATION.
00038  M01S00037.lidou   +++|*
00039  M01S00038.lidou   +++|*         * INCORRECT USER ACCESS.*
00040  M01S00039.lidou   +++|*                CALLING JOB WAS NOT SYSTEM ORIGIN (FATAL ERROR).
00041  M01S00040.lidou   +++|*
00042  M01S00041.lidou   +++|*         * NO INPUT/OUTPUT FILE SPECIFIED.*
00043  M01S00042.lidou   +++|*                THE CALLING JOB CANNOT ACCESS THE *L* DISPLAY
00044  M01S00043.lidou   +++|*                AND MUST THEREFORE SPECIFY BOTH AN INPUT AND
00045  M01S00044.lidou   +++|*                AN OUTPUT FILE (FATAL ERROR).
00046  M01S00045.lidou   +++|*
00047  M01S00046.lidou   +++|*         * FILE NAME CONFLICT.*
00048  M01S00047.lidou   +++|*                THE INPUT FILE AND OUTPUT FILE SPECIFIED WERE
00049  M01S00048.lidou   +++|*                THE SAME (FATAL ERROR).
00050  M01S00049.lidou   +++|*
00051  M01S00050.lidou   +++|*         * INPUT FILE NOT FOUND.*
00052  M01S00051.lidou   +++|*                THE INPUT FILE SPECIFIED DOES NOT EXIST (FATAL
00053  M01S00052.lidou   +++|*                ERROR).
00054  M01S00053.lidou   +++|          SPACE  4,10
00055  M01S00054.lidou   +++|***       *L* DISPLAY MESSAGES.
00056  M01S00055.lidou   +++|*
00057  M01S00056.lidou   +++|*         NOTE   THE FOLLOWING MESSAGES ARE DISPLAYED ON THE SECOND
00058  M01S00057.lidou   +++|*                TO LAST LINE ON THE *L* DISPLAY WITH THE ECHOED
00059  M01S00058.lidou   +++|*                COMMAND ON THE LAST LINE.
00060  M01S00059.lidou   +++|*
00061  M01S00060.lidou   +++|*         * COMMAND PROCESSED.*
00062  M01S00061.lidou   +++|*                THE COMMAND ENTERED WAS PROCESSED SUCCESSFULLY.
00063  M01S00062.lidou   +++|*
00064  M01S00063.lidou   +++|*         * ERROR IN ATTRIBUTE.*
00065  M01S00064.lidou   +++|*                AN ATTRIBUTE WAS SPECIFIED TWICE OR *S* AND *B* OR
00066  M01S00065.lidou   +++|*                *E* AND *D* WERE SPECIFIED TOGETHER OR *V* WAS NOT
00067  M01S00066.lidou   +++|*                SPECIFIED FOR A HOST PID.
00068  M01S00067.lidou   +++|*
00069  M01S00068.lidou   +++|*         * LID TABLE EMPTY.*
00070  M01S00069.lidou   +++|*                THE LID TABLE READ FROM CENTRAL MEMORY WAS EMPTY
00071  M01S00070.lidou   +++|*                (PROGRAM TERMINATED).
00072  M01S00071.lidou   +++|*
00073  M01S00072.lidou   +++|*         * INCORRECT ATTRIBUTE.*
00074  M01S00073.lidou   +++|*                THE ATTRIBUTE SPECIFIED WAS NOT ONE OF THE
00075  M01S00074.lidou   +++|*                ALLOWABLE ATTRIBUTES FOR THE COMMAND SPECIFIED.
00076  M01S00075.lidou   +++|*
00077  M01S00076.lidou   +++|*         * INCORRECT COMMAND.*
00078  M01S00077.lidou   +++|*                THE COMMAND SPECIFIED WAS NOT RECOGNIZED AS ONE OF
00079  M01S00078.lidou   +++|*                THE ALLOWABLE COMMANDS.  SEE AVAILABLE COMMANDS.
00080  M01S00079.lidou   +++|*
00081  M01S00080.lidou   +++|*         * INCORRECT LID.*
00082  M01S00081.lidou   +++|*                THE LID SPECIFIED WAS NOT A CORRECT THREE CHARACTER
00083  M01S00082.lidou   +++|*                (ALPHANUMERIC) LID.
00084  M01S00083.lidou   +++|*
00085  M01S00084.lidou   +++|*         * INCORRECT MAINFRAME.*
00086  M01S00085.lidou   +++|*                A MAINFRAME DESCRIPTOR OF LENGTH ZERO OR GREATER
00087  M01S00086.lidou   +++|*                THAN SEVEN CHARACTERS WAS SPECIFIED.
00088  M01S00087.lidou   +++|*
00089  M01S00088.lidou   +++|*         * INCORRECT NETWORK.*
00090  M01S00089.lidou   +++|*                THE NETWORK SPECIFIED WAS NOT *RHF*, *NAM*, *SSF*,
00091  M01S00090.lidou   +++|*                OR *ALL*.
00092  M01S00091.lidou   +++|*
00093  M01S00092.lidou   +++|*         * INCORRECT SEPARATOR.*
00094  M01S00093.lidou   +++|*                THE SEPARATOR USED WAS NOT A COMMA OR AN EQUAL SIGN
00095  M01S00094.lidou   +++|*                AS REQUIRED BY THE COMMAND SYNTAX.
00096  M01S00095.lidou   +++|*
00097  M01S00096.lidou   +++|*         * INCORRECT STATUS.*
00098  M01S00097.lidou   +++|*                THE STATUS SPECIFIED WAS NOT *E*, (ENABLE), OR *D*
00099  M01S00098.lidou   +++|*                (DISABLE).
00100  M01S00099.lidou   +++|*
00101  M01S00100.lidou   +++|*         * UTILITY COMPLETE.*
00102  M01S00101.lidou   +++|*                INDICATES NORMAL TERMINATION.
00103  M01S00102.lidou   +++|*
00104  M01S00103.lidou   +++|*         * LID NOT ALTERED.*
00105  M01S00104.lidou   +++|*                AN ATTEMPT TO ALTER A LID WAS REJECTED BY *SFM*.
00106  M01S00105.lidou   +++|*
00107  M01S00106.lidou   +++|*         * PID NOT ALTERED.*
00108  M01S00107.lidou   +++|*                AN ATTEMPT TO ALTER A PID WAS REJECTED BY *SFM*.
00109  M01S00108.lidou   +++|*
00110  M01S00109.lidou   +++|*         * MAINFRAME NOT SET.*
00111  M01S00110.lidou   +++|*                AN ATTEMPT TO ALTER A MAINFRAME DESCRIPTOR WAS
00112  M01S00111.lidou   +++|*                REJECTED BY *SFM*.
00113  M01S00112.lidou   +++|*
00114  M01S00113.lidou   +++|*         * LID NOT DELETED.*
00115  M01S00114.lidou   +++|*                AN ATTEMPT TO DELETE A LID WAS REJECTED BY *SFM*.
00116  M01S00115.lidou   +++|*
00117  M01S00116.lidou   +++|*         * LID NOT FOUND.*
00118  M01S00117.lidou   +++|*                THE LID SPECIFIED COULD NOT BE FOUND IN THE LID
00119  M01S00118.lidou   +++|*                TABLE FOR THE SPECIFIED PID.
00120  M01S00119.lidou   +++|*
00121  M01S00120.lidou   +++|*         * NO SPACE AVAILABLE.*
00122  M01S00121.lidou   +++|*                NO ROOM EXISTS IN THE LID TABLE TO ADD A LID FOR
00123  M01S00122.lidou   +++|*                THE SPECIFIED PID.
00124  M01S00123.lidou   +++|*
00125  M01S00124.lidou   +++|*         * PID NOT FOUND.*
00126  M01S00125.lidou   +++|*                THE PID SPECIFIED COULD NOT BE FOUND IN THE LID
00127  M01S00126.lidou   +++|*                TABLE.
00128  M01S00127.lidou   +++|*
00129  M01S00128.lidou   +++|*         * EXCESS PARAMETERS.*
00130  M01S00129.lidou   +++|*                TOO MANY PARAMETERS WERE SPECIFIED ON THE COMMAND.
00131  M01S00130.lidou   +++|*                SEE LIST OF AVAILABLE COMMANDS.
Line S00131 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00131.241l630 ---|*
Line S00132 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00132.241l630 ---|*         NOTE   THE FOLLOWING MESSAGES ARE DISPLAYED ON THE LAST
Line S00133 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00133.241l630 ---|*                LINE OF THE *L* DISPLAY WITH NO ECHOED COMMAND.
Line S00134 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00134.241l630 ---|*
Line S00135 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00135.241l630 ---|*         * ENTER L.BACK TO TOGGLE TO THE LID DISPLAY.*
Line S00136 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00136.241l630 ---|*                INFORMATIVE MESSAGE DISPLAYED ON THE *HELP* DISPLAY.
Line S00137 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00137.241l630 ---|*
Line S00138 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00138.241l630 ---|*         * ENTER L.HELP TO TOGGLE TO THE HELP DISPLAY.*
Line S00139 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00139.241l630 ---|*                INFORMATIVE MESSAGE DISPLAYED ON THE *LID* DISPLAY.
00141  M01S00140.lidou   +++|          SPACE  4,10
00142  M01S00141.lidou   +++|***       AVAILABLE *L* DISPLAY COMMANDS.
00143  M01S00142.lidou   +++|*
00144  M01S00143.lidou   +++|*         L.END              TERMINATE LIDOU
00145  M01S00144.lidou   +++|*         L.BACK             FORMAT LID DISPLAY
00146  M01S00145.lidou   +++|*         L.HELP             FORMAT HELP DISPLAY
00147  M01S00146.lidou   +++|*         L.+                PAGES THE L DISPLAY FORWARD
00148  M01S00147.lidou   +++|*         L.-                PAGES THE L DISPLAY BACKWARD
00149  M01S00148.lidou   +++|*         L.OUT              ROUTES A LISTING OF THE LID TABLE
00150  M01S00149.lidou   +++|*         L.PID,PA=XXZ       SET ALL APPLICABLE PID ATTRIBUTES
00151  M01S00150.lidou   +++|*         L.PID,NT=NNN,NA=Z  ENABLE/DISABLE NETWORK STATUS
00152  M01S00151.lidou   +++|*         L.PID,LD=LID,      ADD OR SET ATTRIBUTES FOR LID
00153  M01S00152.lidou   +++|*               LA=YYYZ
00154  M01S00153.lidou   +++|*         L.PID,LD=LID,      DELETE LID FROM LID TABLE
00155  M01S00154.lidou   +++|*               DELETE
00156  M01S00155.lidou   +++|*         L.PID,MF=MAINFRM   SET MAINFRAME DESCRIPTION
00157  M01S00156.lidou   +++|*
00158  M01S00157.lidou   +++|*         PARAMETER DESCRIPTIONS
00159  M01S00158.lidou   +++|*
00160  M01S00159.lidou   +++|*         PID IS THE THREE CHARACTER PHYSICAL IDENTIFIER
00161  M01S00160.lidou   +++|*         LID IS AN ASSOCIATED THREE CHARACTER LOGICAL
00162  M01S00161.lidou   +++|*         IDENTIFIER
00163  M01S00162.lidou   +++|*         MAINFRM IS A (ONE TO SEVEN CHARACTER) MAINFRAME
00164  M01S00163.lidou   +++|*         DESCRIPTOR
00165  M01S00164.lidou   +++|*         NNN IS THE NETWORK (*RHF*, *SSF*, *NAM*, OR *ALL*)
00166  M01S00165.lidou   +++|*         X CAN BE V OR N.  Y CAN BE S, B, V OR N.
00167  M01S00166.lidou   +++|*         Z CAN BE E OR D.
00168  M01S00167.lidou   +++|*
00169  M01S00168.lidou   +++|*         ATTRIBUTE DESCRIPTIONS
00170  M01S00169.lidou   +++|*
00171  M01S00170.lidou   +++|*         S - STORE AND      LIDS FOR LINKED PIDS ONLY
00172  M01S00171.lidou   +++|*             FORWARD
00173  M01S00172.lidou   +++|*         B - LOOPBACK       LIDS FOR HOST PIDS ONLY
00174  M01S00173.lidou   +++|*         V - VALIDATE       NOTE THAT S AND B CAN NOT
00175  M01S00174.lidou   +++|*         D - DISABLE        BE SPECIFIED TOGETHER AND
00176  M01S00175.lidou   +++|*         E - ENABLE         ALSO THAT E AND D CAN NOT
00177  M01S00176.lidou   +++|*         N - NOLIST         BE SPECIFIED TOGETHER
00178  M01S00177.lidou   +++|*
00179  M01S00178.lidou   +++|*         THE LIST OF LEGAL ATTRIBUTE COMBINATIONS FOR
00180  M01S00179.lidou   +++|*         LOGICAL IDENTIFIERS (LIDS) IS IN TABLE *TLAT*.
00181  M01S00180.lidou   +++|*         THE LIST OF LEGAL ATTRIBUTE COMBINATIONS FOR
00182  M01S00181.lidou   +++|*         PHYSICAL IDENTIFIERS (PIDS) IS IN TABLE *TPAT*.
00183  M01S00182.lidou   +++|          SPACE  4,10
00184  M01S00183.lidou   +++|**        COMMON DECKS.
00185  M01S00184.lidou   +++|*
00186  M01S00185.lidou   +++|*CALL     COMCMAC
00187  M01S00186.lidou   +++|*CALL     COMCCMD
00188  M01S00187.lidou   +++|*CALL     COMCDCM
00189  M01S00188.lidou   +++|*CALL     COMSEVT
00190  M01S00189.lidou   +++|*CALL     COMSSFM
00191  M01S00190.lidou   +++|*CALL     COMSSSJ
00192  M01S00191.lidou   +++|          TITLE  DEFINITIONS.
00193  M01S00192.lidou   +++|          SPACE  4,10
00194  M01S00193.lidou   +++|****      ASSEMBLY CONSTANTS.
00195  M01S00194.lidou   +++|
00196  M01S00195.lidou   +++| INPC     EQU    4           *L* DISPLAY INPUT COMPLETE STATUS
00197  M01S00196.lidou   +++| LBOL     EQU    LDSY        *L* DISPLAY OUTPUT BUFFER LENGTH
00198  M01S00197.lidou   +++| LBIL     EQU    LCOM        *L* DISPLAY INPUT BUFFER LENGTH
00199  M01S00198.lidou   +++| LIIL     EQU    MXLDT+1     LID TABLE BUFFER LENGTH
00200  M01S00199.lidou   +++| INPL     EQU    101B        LENGTH OF INPUT BUFFER
00201  M01S00200.lidou   +++| MFTL     EQU    MXPID+1     LENGTH OF MAINFRAME DESCRIPTOR BUFFER
00202  M01S00001.241l630 +++| NMLL     EQU    20B         NUMBER OF LINES TO FORMAT
00203  M01S00201.lidou   +++| OUTL     EQU    101B        LENGTH OF OUTPUT BUFFER
00204  M01S00202.lidou   +++| OUTL     EQU    101B        LENGTH OF OUTPUT BUFFER
00205  M01S00203.lidou   +++| XCDT     EQU    1           *L* DISPLAY FIRST CHARACTER POSITION
00206  M01S00204.lidou   +++| YCDT     EQU    2           *L* DISPLAY FIRST LINE NUMBER
00207  M01S00205.lidou   +++|
00208  M01S00206.lidou   +++|****
00209  M01S00207.lidou   +++|          SPACE  4,10
00210  M01S00208.lidou   +++|          ORG    120B
00211  M01S00209.lidou   +++| FWA      BSS    0
00212  M01S00210.lidou   +++|          SPACE  4,10
00213  M01S00211.lidou   +++|**        DAYFILE MESSAGES.
00214  M01S00212.lidou   +++|
00215  M01S00213.lidou   +++| DAFC     DATA   C* LIDOU UTILITY COMPLETE.*
00216  M01S00214.lidou   +++|          SPACE  4,10
00217  M01S00215.lidou   +++|**        *L* DISPLAY MESSAGES.
00218  M01S00216.lidou   +++|
00219  M01S00217.lidou   +++| MSCP     DATA   20HCOMMAND PROCESSED.
00220  M01S00218.lidou   +++| MSEA     DATA   20HERROR IN ATTRIBUTE.
00221  M01S00219.lidou   +++| MSET     DATA   20HLID TABLE EMPTY.
00222  M01S00220.lidou   +++| MSIA     DATA   20HINCORRECT ATTRIBUTE.
00223  M01S00221.lidou   +++| MSIC     DATA   20HINCORRECT COMMAND.
00224  M01S00222.lidou   +++| MSIL     DATA   20HINCORRECT LID.
00225  M01S00223.lidou   +++| MSIM     DATA   20HINCORRECT MAINFRAME.
00226  M01S00224.lidou   +++| MSIN     DATA   20HINCORRECT NETWORK.
00227  M01S00225.lidou   +++| MSIP     DATA   20HINCORRECT SEPARATOR.
00228  M01S00226.lidou   +++| MSIS     DATA   20HINCORRECT STATUS.
00229  M01S00227.lidou   +++| MSLC     DATA   20HUTILITY COMPLETE.
00230  M01S00228.lidou   +++| MSNA     DATA   20HLID NOT ALTERED.
00231  M01S00229.lidou   +++| MSNC     DATA   20HPID NOT ALTERED.
00232  M01S00230.lidou   +++| MSMF     DATA   20HMAINFRAME NOT SET.
00233  M01S00231.lidou   +++| MSND     DATA   20HLID NOT DELETED.
00234  M01S00232.lidou   +++| MSNF     DATA   20HLID NOT FOUND.
00235  M01S00233.lidou   +++| MSNS     DATA   20HNO SPACE AVAILABLE.
00236  M01S00234.lidou   +++| MSPN     DATA   20HPID NOT FOUND.
00237  M01S00235.lidou   +++| MSTP     DATA   20HEXCESS PARAMETERS.
Line S00236 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00236.241l630 ---| MSRH     DATA   20HENTER L.BACK TO TOGG
Line S00237 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00237.241l630 ---|          DATA   20HLE TO THE LID DISPLA
Line S00238 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00238.241l630 ---|          DATA   11LY
Line S00239 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00239.241l630 ---| MSRL     DATA   20HENTER L.HELP TO TOGG
Line S00240 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00240.241l630 ---|          DATA   20HLE TO THE HELP DISPL
Line S00241 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00241.241l630 ---|          DATA   11LAY
00244  M01S00242.lidou   +++|          SPACE  4,10
00245  M01S00243.lidou   +++|**        ROLLOUT PARAMETER BLOCK.
00246  M01S00244.lidou   +++|
00247  M01S00245.lidou   +++| ROLL     VFD    30/0,18/LINE,12/10
00248  M01S00246.lidou   +++|          SPACE  4,10
00249  M01S00247.lidou   +++|**        ROUTE PARAMETER BLOCK.
00250  M01S00248.lidou   +++|
00251  M01S00249.lidou   +++| ROTB     DATA   6LOUTPUT
00252  M01S00250.lidou   +++|          BSSZ   6
00253  M01S00251.lidou   +++|          SPACE  4,10
00254  M01S00252.lidou   +++|**        SSJ= PARAMETER BLOCK.
00255  M01S00253.lidou   +++|
00256  M01S00254.lidou   +++| SSJ=     BSS    0           SSJ= ENTRY POINT
00257  M01S00255.lidou   +++|          BSSZ   SSJL        SSJ= PARAMETER BLOCK
00258  M01S00256.lidou   +++|          SPACE  4,10
00259  M01S00257.lidou   +++|**        FET DEFINITIONS.
00260  M01S00258.lidou   +++|
00261  M01S00259.lidou   +++| LIDF     FILEB  LIDI,LIIL,FET=5  LID TABLE FET
00262  M01S00260.lidou   +++|
00263  M01S00261.lidou   +++| IF       BSS    0
00264  M01S00262.lidou   +++| INPUT    FILEB  INPU,INPL,FET=5  INPUT FET
00265  M01S00263.lidou   +++|
00266  M01S00264.lidou   +++| LF       BSS    0
00267  M01S00265.lidou   +++| OUTPUT   FILEB  OUTP,OUTL,FET=5  OUTPUT FET
00268  M01S00266.lidou   +++|          SPACE  4,10
00269  M01S00267.lidou   +++|**        TLAT - TABLE OF LOGICAL IDENTIFIER ATTRIBUTES.
00270  M01S00268.lidou   +++|*
00271  M01S00269.lidou   +++|*T        42/ LA, 14/ 0, 4/ AM.
Figure

034171829 AM. 0 LA3059 LA

00272  M01S00270.lidou   +++|*
00273  M01S00271.lidou   +++|*         LA - LID ATTRIBUTES (ALPHABETIC REPRESENTATION).
00274  M01S00272.lidou   +++|*         AM - ATTRIBUTE MASK (OCTAL REPRESENTATION).
00275  M01S00273.lidou   +++|*
00276  M01S00274.lidou   +++|*         NOTES  THE FORMAT OF THE ATTRIBUTE MASK IS -
00277  M01S00275.lidou   +++|*
00278  M01S00276.lidou   +++|*                1/ S          1 = STORE AND FORWARD
00279  M01S00277.lidou   +++|*                1/ B          1 = LOOPBACK
00280  M01S00278.lidou   +++|*                1/ V          1 = VALIDATE
00281  M01S00279.lidou   +++|*                1/ N          1 = NOLIST
00282  M01S00280.lidou   +++|*
00283  M01S00281.lidou   +++|*                THE ALPHABETIC REPRESENTATION EXCLUDES THE *E*
00284  M01S00282.lidou   +++|*                BIT SINCE THE LID DISPLAY HAS A SEPARATE WORD
00285  M01S00283.lidou   +++|*                TO SHOW THE ENABLED/DISABLED STATUS.
00286  M01S00284.lidou   +++|
00287  M01S00285.lidou   +++| TLAT     VFD    42/7L ----  ,14/0,4/00B
00288  M01S00286.lidou   +++|          VFD    42/7L ---N  ,14/0,4/01B
00289  M01S00287.lidou   +++|          VFD    42/7L -B--  ,14/0,4/02B
00290  M01S00288.lidou   +++|          VFD    42/7L -B-N  ,14/0,4/03B
00291  M01S00289.lidou   +++|          VFD    42/7L --V-  ,14/0,4/04B
00292  M01S00290.lidou   +++|          VFD    42/7L --VN  ,14/0,4/05B
00293  M01S00291.lidou   +++|          VFD    42/7L -BV-  ,14/0,4/06B
00294  M01S00292.lidou   +++|          VFD    42/7L -BVN  ,14/0,4/07B
00295  M01S00293.lidou   +++|          VFD    42/7L S---  ,14/0,4/10B
00296  M01S00294.lidou   +++|          VFD    42/7L S--N  ,14/0,4/11B
00297  M01S00295.lidou   +++|          VFD    42/7L S-V-  ,14/0,4/14B
00298  M01S00296.lidou   +++|          VFD    42/7L S-VN  ,14/0,4/15B
00299  M01S00297.lidou   +++|          VFD    60/0        END OF TABLE
00300  M01S00298.lidou   +++|          SPACE  4
00301  M01S00299.lidou   +++|**        TPAT - TABLE OF PHYSICAL IDENTIFIER ATTRIBUTES.
00302  M01S00300.lidou   +++|*
00303  M01S00301.lidou   +++|*T        42/ PA, 14/ 0, 4/ AM.
Figure

034171829 AM. 0 PA3059 PA

00304  M01S00302.lidou   +++|*
00305  M01S00303.lidou   +++|*         PA - PID ATTRIBUTES (ALPHABETIC REPRESENTATION).
00306  M01S00304.lidou   +++|*         AM - ATTRIBUTE MASK (OCTAL REPRESENTATION).
00307  M01S00305.lidou   +++|*
00308  M01S00306.lidou   +++|*         NOTES  THE FORMAT OF THE ATTRIBUTE MASK IS -
00309  M01S00307.lidou   +++|*
00310  M01S00308.lidou   +++|*                1/ H/L        1 = HOST, 0 = LINK
00311  M01S00309.lidou   +++|*                1/ E          1 = ENABLE, 0 =DISABLED
00312  M01S00310.lidou   +++|*                1/ V          1 = VALIDATE
00313  M01S00311.lidou   +++|*                1/ N          1 = NOLIST
00314  M01S00312.lidou   +++|*
00315  M01S00313.lidou   +++|*                THE ALPHABETIC REPRESENTATION EXPANDS THE *H*
00316  M01S00314.lidou   +++|*                BIT TO *H* AND *L* AND EXCLUDES THE *E* BIT
00317  M01S00315.lidou   +++|*                SINCE THE LID DISPLAY HAS A SEPARATE WORD TO
00318  M01S00316.lidou   +++|*                SHOW THE ENABLED/DISABLED STATUS.
00319  M01S00317.lidou   +++|
00320  M01S00318.lidou   +++|
00321  M01S00319.lidou   +++| TPAT     VFD    42/7L -L--  ,14/0,4/00B
00322  M01S00320.lidou   +++|          VFD    42/7L -L-N  ,14/0,4/01B
00323  M01S00321.lidou   +++|          VFD    42/7L -LV-  ,14/0,4/02B
00324  M01S00322.lidou   +++|          VFD    42/7L -LVN  ,14/0,4/03B
00325  M01S00323.lidou   +++|          VFD    42/7L -L--  ,14/0,4/04B
00326  M01S00324.lidou   +++|          VFD    42/7L -L-N  ,14/0,4/05B
00327  M01S00325.lidou   +++|          VFD    42/7L -LV-  ,14/0,4/06B
00328  M01S00326.lidou   +++|          VFD    42/7L -LVN  ,14/0,4/07B
00329  M01S00327.lidou   +++|          VFD    42/7L H---  ,14/0,4/10B
00330  M01S00328.lidou   +++|          VFD    42/7L H--N  ,14/0,4/11B
00331  M01S00329.lidou   +++|          VFD    42/7L H-V-  ,14/0,4/12B
00332  M01S00330.lidou   +++|          VFD    42/7L H-VN  ,14/0,4/13B
00333  M01S00331.lidou   +++|          VFD    42/7L H---  ,14/0,4/14B
00334  M01S00332.lidou   +++|          VFD    42/7L H--N  ,14/0,4/15B
00335  M01S00333.lidou   +++|          VFD    42/7L H-V-  ,14/0,4/16B
00336  M01S00334.lidou   +++|          VFD    42/7L H-VN  ,14/0,4/17B
00337  M01S00335.lidou   +++|          VFD    60/0        END OF TABLE
00338  M01S00336.lidou   +++|          TITLE  WORKING STORAGE.
00339  M01S00337.lidou   +++|          SPACE  4
00340  M01S00338.lidou   +++|
00341  M01S00339.lidou   +++|**        *L* DISPLAY BUFFER FOR LID TABLE DISPLAY.
00342  M01S00340.lidou   +++|
00343  M01S00341.lidou   +++| LIDA     DATA   8L1         HEADER FOR LISTINGS
00344  M01S00342.lidou   +++|          DATA   8L
00345  M01S00343.lidou   +++|          DATA   10H
00346  M01S00344.lidou   +++| LIDB     DATA   50HPID    LID  ENABLED  ATTR     MFTYPE    NETWORK ST
00347  M01S00345.lidou   +++|          DATA   8LATUS
00348  M01S00346.lidou   +++|          DATA   50H
00349  M01S00347.lidou   +++|          DATA   8L
00350  M01S00348.lidou   +++| LIDD     DATA   50H
00351  M01S00349.lidou   +++|          DATA   8L
00352  M01S00350.lidou   +++|          DATA   50H
00353  M01S00351.lidou   +++|          DATA   8L
00354  M01S00352.lidou   +++|          DATA   50H
00355  M01S00353.lidou   +++|          DATA   8L
00356  M01S00354.lidou   +++|          DATA   50H
00357  M01S00355.lidou   +++|          DATA   8L
00358  M01S00356.lidou   +++|          DATA   50H
00359  M01S00357.lidou   +++|          DATA   8L
00360  M01S00358.lidou   +++|          DATA   50H
00361  M01S00359.lidou   +++|          DATA   8L
00362  M01S00360.lidou   +++|          DATA   50H
00363  M01S00361.lidou   +++|          DATA   8L
00364  M01S00362.lidou   +++|          DATA   50H
00365  M01S00363.lidou   +++|          DATA   8L
00366  M01S00364.lidou   +++|          DATA   50H
00367  M01S00365.lidou   +++|          DATA   8L
00368  M01S00366.lidou   +++|          DATA   50H
00369  M01S00367.lidou   +++|          DATA   8L
00370  M01S00368.lidou   +++|          DATA   50H
00371  M01S00369.lidou   +++|          DATA   8L
00372  M01S00370.lidou   +++|          DATA   50H
00373  M01S00371.lidou   +++|          DATA   8L
00374  M01S00372.lidou   +++|          DATA   50H
00375  M01S00373.lidou   +++|          DATA   8L
00376  M01S00374.lidou   +++|          DATA   50H
00377  M01S00375.lidou   +++|          DATA   8L
00378  M01S00376.lidou   +++|          DATA   50H
00379  M01S00377.lidou   +++|          DATA   8L
00380  M01S00378.lidou   +++|          DATA   50H
00381  M01S00379.lidou   +++|          DATA   8L
00382  M01S00380.lidou   +++|          DATA   50H
00383  M01S00381.lidou   +++|          DATA   8L
Line S00382 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00382.241l630 ---|          DATA   50H
00385  M01S00002.241l630 +++|          DATA   10H
00386  M01S00003.241l630 +++| LIDE     DATA   40H
00387  M01S00383.lidou   +++|          DATA   8L
00388  M01S00004.241l630 +++| LIDO     EQU    *-LIDB      COMMAND RESPONSE OFFSET
00389  M01S00384.lidou   +++|          DATA   50H
Line S00385 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00385.241l630 ---| LIDE     DATA   8L
00391  M01S00005.241l630 +++|          DATA   8L
00392  M01S00386.lidou   +++|          DATA   50H
00393  M01S00387.lidou   +++|          DATA   8L
00394  M01S00388.lidou   +++|          CON    0           END OF BUFFER
00395  M01S00389.lidou   +++|          CON    0
00396  M01S00390.lidou   +++|          SPACE  4
00397  M01S00391.lidou   +++|
00398  M01S00392.lidou   +++| HLPA     DATA   8L1         HEADER FOR LISTINGS
00399  M01S00393.lidou   +++|          DATA   8L
00400  M01S00394.lidou   +++|          DATA   10H
00401  M01S00395.lidou   +++|          DATA   50H          LID OPERATOR UTILITY OUTPUT LISTING
00402  M01S00396.lidou   +++|          DATA   8L
00403  M01S00397.lidou   +++|          DATA   50H
00404  M01S00398.lidou   +++|          DATA   8L
00405  M01S00399.lidou   +++|
00406  M01S00400.lidou   +++|**        *L* DISPLAY BUFFER FOR PAGE ONE OF HELP DISPLAY.
00407  M01S00401.lidou   +++|
00408  M01S00402.lidou   +++| HLPB     DATA   50HLID OPERATOR UTILITY HELP DISPLAY              PAG
00409  M01S00403.lidou   +++|          DATA   8LE 1 OF 2
00410  M01S00404.lidou   +++|          DATA   50H
00411  M01S00405.lidou   +++|          DATA   8L
00412  M01S00406.lidou   +++|          DATA   50HCOMMAND                  DESCRIPTION
00413  M01S00407.lidou   +++|          DATA   8L
00414  M01S00408.lidou   +++|          DATA   50H
00415  M01S00409.lidou   +++|          DATA   8L
00416  M01S00410.lidou   +++|          DATA   50HL.END                    TERMINATE LIDOU
00417  M01S00411.lidou   +++|          DATA   8L
00418  M01S00412.lidou   +++|          DATA   50HL.BACK                   FORMAT LID DISPLAY
00419  M01S00413.lidou   +++|          DATA   8L
00420  M01S00414.lidou   +++|          DATA   50HL.HELP                   FORMAT HELP DISPLAY
00421  M01S00415.lidou   +++|          DATA   8L
00422  M01S00416.lidou   +++|          DATA   50HL.+                      PAGES THE L DISPLAY FORWA
00423  M01S00417.lidou   +++|          DATA   8LRD
00424  M01S00418.lidou   +++|          DATA   50HL.-                      PAGES THE L DISPLAY BACKW
00425  M01S00419.lidou   +++|          DATA   8LARD
00426  M01S00420.lidou   +++|          DATA   50HL.OUT                    ROUTES A LISTING OF THE L
00427  M01S00421.lidou   +++|          DATA   8LID TABLE
00428  M01S00422.lidou   +++|          DATA   50HL.PID,PA=XXZ             SET ALL APPLICABLE PID AT
00429  M01S00423.lidou   +++|          DATA   8LTIBUTES
00430  M01S00424.lidou   +++|          DATA   50HL.PID,NT=NNN,NA=Z        ENABLE/DISABLE NETWORK ST
00431  M01S00425.lidou   +++|          DATA   8LATUS
00432  M01S00426.lidou   +++|          DATA   50HL.PID,LD=LID,LA=YYYZ     ADD OR SET ATTRIBUTES FOR
00433  M01S00427.lidou   +++|          DATA   8L LID
00434  M01S00428.lidou   +++|          DATA   50HL.PID,LD=LID,DELETE      DELETE LID FROM LID TABLE
00435  M01S00429.lidou   +++|          DATA   8L
00436  M01S00430.lidou   +++|          DATA   50HL.PID,MF=MAINFRM         SET MAINFRAME DESCRIPTION
00437  M01S00431.lidou   +++|          DATA   8L
00438  M01S00432.lidou   +++|          DATA   50H
00439  M01S00433.lidou   +++|          DATA   8L
00440  M01S00434.lidou   +++|          DATA   50HX CAN BE V OR N.  Y CAN BE S, B, V OR N.  Z CAN BE
00441  M01S00435.lidou   +++|          DATA   8L E OR D.
00442  M01S00436.lidou   +++|          DATA   50HALL COMMANDS CAN BE ENTERED FROM THE HELP OR LID D
00443  M01S00437.lidou   +++|          DATA   8LISPLAY
00444  M01S00438.lidou   +++|          DATA   50HENTER L.+ FOR MORE HELP (COMPLETE ATTRIBUTE DESCRI
00445  M01S00439.lidou   +++|          DATA   8LPTIONS)
00446  M01S00440.lidou   +++|          DATA   50H
00447  M01S00441.lidou   +++|          DATA   8L
00448  M01S00006.241l630 +++| HLAO     EQU    *-HLPB      COMMAND RESPONSE OFFSET
00449  M01S00442.lidou   +++|          DATA   50H
00450  M01S00443.lidou   +++|          DATA   8L
Line S00444 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00444.241l630 ---|          DATA   50HENTER L.BACK TO TOGGLE TO THE LID DISPLAY
00452  M01S00007.241l630 +++|          DATA   50H
00453  M01S00445.lidou   +++|          DATA   8L
00454  M01S00446.lidou   +++|          CON    0           END OF BUFFER
00455  M01S00447.lidou   +++|          CON    0
00456  M01S00448.lidou   +++|          SPACE  4
00457  M01S00449.lidou   +++|
00458  M01S00450.lidou   +++|**        *L* DISPLAY BUFFER FOR PAGE TWO OF HELP DISPLAY.
00459  M01S00451.lidou   +++|
00460  M01S00452.lidou   +++| HLPC     DATA   50HLID OPERATOR UTILITY HELP DISPLAY              PAG
00461  M01S00453.lidou   +++|          DATA   8LE 2 OF 2
00462  M01S00454.lidou   +++|          DATA   50H
00463  M01S00455.lidou   +++|          DATA   8L
00464  M01S00456.lidou   +++|          DATA   50HATTRIBUTE DESCRIPTIONS
00465  M01S00457.lidou   +++|          DATA   8L
00466  M01S00458.lidou   +++|          DATA   50H
00467  M01S00459.lidou   +++|          DATA   8L
00468  M01S00460.lidou   +++|          DATA   50HS - STORE AND FORWARD            LIDS FOR LINKED P
00469  M01S00461.lidou   +++|          DATA   8LIDS ONLY
00470  M01S00462.lidou   +++|          DATA   50HB - LOOPBACK                     LIDS FOR HOST PID
00471  M01S00463.lidou   +++|          DATA   8LS ONLY
00472  M01S00464.lidou   +++|          DATA   50HV - VALIDATE                     NOTE THAT S AND B
00473  M01S00465.lidou   +++|          DATA   8L CAN NOT
00474  M01S00466.lidou   +++|          DATA   50HD - DISABLE                      BE SPECIFIED TOGE
00475  M01S00467.lidou   +++|          DATA   8LTHER AND
00476  M01S00468.lidou   +++|          DATA   50HE - ENABLE                       ALSO THAT E AND D
00477  M01S00469.lidou   +++|          DATA   8L CAN NOT
00478  M01S00470.lidou   +++|          DATA   50HN - NOLIST                       BE SPECIFIED TOGE
00479  M01S00471.lidou   +++|          DATA   8LTHER
00480  M01S00472.lidou   +++|          DATA   50H
00481  M01S00473.lidou   +++|          DATA   8L
00482  M01S00474.lidou   +++|          DATA   50HPARAMETER DESCRIPTIONS
00483  M01S00475.lidou   +++|          DATA   8L
00484  M01S00476.lidou   +++|          DATA   50H
00485  M01S00477.lidou   +++|          DATA   8L
00486  M01S00478.lidou   +++|          DATA   50HPID IS THE THREE CHARACTER PHYSICAL IDENTIFIER
00487  M01S00479.lidou   +++|          DATA   8L
00488  M01S00480.lidou   +++|          DATA   50HLID IS AN ASSOCIATED THREE CHARACTER LOGICAL IDENT
00489  M01S00481.lidou   +++|          DATA   8LIFIER
00490  M01S00482.lidou   +++|          DATA   50HX CAN BE V OR N.  Y CAN BE S, B, V OR N.  Z CAN BE
00491  M01S00483.lidou   +++|          DATA   8L E OR D.
00492  M01S00484.lidou   +++|          DATA   50HMAINFRM IS A (ONE TO SEVEN CHARACTER) MAINFRAME DE
00493  M01S00485.lidou   +++|          DATA   8LSCRIPTOR
00494  M01S00486.lidou   +++|          DATA   50HNNN IS THE NETWORK (*RHF*, *SSF*, *NAM*, OR *ALL*)
00495  M01S00487.lidou   +++|          DATA   8L
00496  M01S00488.lidou   +++|          DATA   50HENTER L.- TO SEE THE AVAILABLE COMMANDS
00497  M01S00489.lidou   +++|          DATA   8L
00498  M01S00490.lidou   +++|          DATA   50H
00499  M01S00491.lidou   +++|          DATA   8L
00500  M01S00008.241l630 +++| HLBO     EQU    *-HLPC      COMMAND RESPONSE OFFSET
00501  M01S00492.lidou   +++|          DATA   50H
00502  M01S00493.lidou   +++|          DATA   8L
Line S00494 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00494.241l630 ---|          DATA   50HENTER L.BACK TO TOGGLE TO THE LID DISPLAY
00504  M01S00009.241l630 +++|          DATA   50H
00505  M01S00495.lidou   +++|          DATA   8L
00506  M01S00496.lidou   +++|          CON    0           END OF BUFFER
00507  M01S00497.lidou   +++|          CON    0
00508  M01S00010.241l630 +++|          ERRNZ  HLAO-LIDO   COMMAND RESPONSE OFFSET NOT CONSISTENT
00509  M01S00011.241l630 +++|          ERRNZ  HLBO-LIDO   COMMAND RESPONSE OFFSET NOT CONSISTENT
00510  M01S00498.lidou   +++|          SPACE  4
00511  M01S00499.lidou   +++|**        CONSTANT DATA.
00512  M01S00500.lidou   +++|
00513  M01S00501.lidou   +++| BLKS     DATA   10H            BLANK MESSAGE
00514  M01S00502.lidou   +++|          DATA   10H
00515  M01S00503.lidou   +++|          DATA   8L          WORD OF BLANKS WITH ZERO BYTE
Line S00504 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00504.241l630 ---| MORE     DATA   8LMORE      LID DISPLAY WORD FOR MORE DATA
00517  M01S00012.241l630 +++| MORE     DATA   10HMORE        LID DISPLAY WORD FOR MORE DATA
00518  M01S00505.lidou   +++|          SPACE  4
00519  M01S00506.lidou   +++|**        STORAGE LOCATIONS.
00520  M01S00507.lidou   +++|
00521  M01S00508.lidou   +++| BUFF     BSSZ   2           *GETPP* REPLY BUFFER
00522  M01S00509.lidou   +++| CHDF     CON    0           CHANGE IN LID DISPLAY FLAG
00523  M01S00510.lidou   +++| CMLN     CON    0           COMMAND LENGTH FOR OUTPUT FILE
Line S00511 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00524  M02S00511.241l630 ---| CMRO     CON    0           COMMAND RESPONSE OFFSET
00525  M01S00013.241l630 +++| EMAD     CON    0           ERROR MESSAGE ADDRESS
00526  M01S00512.lidou   +++| HLPF     CON    0           HELP DISPLAY FLAG
00527  M01S00513.lidou   +++| LCNT     CON    0           LINE COUNT FOR LISTINGS
00528  M01S00514.lidou   +++| LDSF     CON    0           *L* DISPLAY INPUT FLAG
00529  M01S00515.lidou   +++| IND1     CON    0           FIRST DISPLAYED INDEX IN LID BUFFER
00530  M01S00516.lidou   +++| IND2     CON    0           NEXT INDEX IN LID BUFFER TO BE DISPLAYED
Line S00517 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00517.241l630 ---| NMLL     CON    0           NUMBER OF LID LINES PER SCREEN
00532  M01S00518.lidou   +++| PAGC     CON    0           PAGE LINE LIMIT
00533  M01S00519.lidou   +++| PDFC     CON    0           PRINT DENSITY FORMAT CONTROL CHARACTER
00534  M01S00520.lidou   +++| PDFE     CON    0           PRINT DENSITY FORMAT EFFECTOR FLAG
00535  M01S00521.lidou   +++| PONE     VFD    42/0,18/HLPB  ADDRESS OF START OF CURRENT HELP PAGE
00536  M01S00522.lidou   +++| PTWO     VFD    42/0,18/HLPC  ADDRESS OF START OF OTHER HELP PAGE
00537  M01S00523.lidou   +++| WBUF     BSSZ   20          WORKING BUFFER
00538  M01S00524.lidou   +++|          TITLE  MAIN PROGRAM.
00539  M01S00525.lidou   +++| LIDOU    SPACE  4,10
00540  M01S00526.lidou   +++|**        LIDOU - MAIN PROGRAM.
00541  M01S00527.lidou   +++|*
00542  M01S00528.lidou   +++|*         CALLS  PCM, PRS.
00543  M01S00529.lidou   +++|*
00544  M01S00530.lidou   +++|*         NOTE   CONTROL IS NOT RETURNED FROM ROUTINE *PCM* BUT
00545  M01S00531.lidou   +++|*                RATHER WHEN AN *L.END* COMMAND (OR AN *EOF* IN
00546  M01S00532.lidou   +++|*                THE CASE OF AN INPUT FILE) IS ENCOUNTERD ROU-
00547  M01S00533.lidou   +++|*                TINE *LED* IS CALLED WHICH TERMINATES LIDOU.
00548  M01S00534.lidou   +++|*
00549  M01S00535.lidou   +++|
00550  M01S00536.lidou   +++|
00551  M01S00537.lidou   +++| LIDOU    BSS    0           ENTRY
00552  M01S00538.lidou   +++|          RJ     PRS         PRESET
00553  M01S00539.lidou   +++|          SB7    B0+         CLEAR ERROR MESSAGE ADDRESS
00554  M01S00540.lidou   +++|          RJ     PCM         PROCESS COMMANDS
00555  M01S00541.lidou   +++|          TITLE  SUBROUTINES.
00556  M01S00542.lidou   +++| ERR      SPACE  4,15
00557  M01S00543.lidou   +++|**        ERR - ERROR ROUTINE.
00558  M01S00544.lidou   +++|*
00559  M01S00545.lidou   +++|*         ENTRY  THE LID TABLE READ FROM CENTRAL MEMORY IS EMPTY.
00560  M01S00546.lidou   +++|*
00561  M01S00547.lidou   +++|*         EXIT   TO *LED* AFTER INITIAL OUTPUT MESSAGE.
00562  M01S00548.lidou   +++|*                (CHDF) = 0.
00563  M01S00549.lidou   +++|*
00564  M01S00550.lidou   +++|*         USES   X - 1, 6.
00565  M01S00551.lidou   +++|*                A - 1, 6.
00566  M01S00552.lidou   +++|*                B - 7.
00567  M01S00553.lidou   +++|*
00568  M01S00554.lidou   +++|*         CALLS  FRS, LED, POF.
00569  M01S00555.lidou   +++|
00570  M01S00556.lidou   +++| ERR      SA1    MSET        * LID TABLE EMPTY.*
00571  M01S00557.lidou   +++|          BX6    X1
00572  M01S00558.lidou   +++|          SA1    A1+B1
00573  M01S00559.lidou   +++|          SA6    LBFI+1      MOVE MESSAGE TO COMMAND BUFFER
00574  M01S00560.lidou   +++|          BX6    X1
00575  M01S00561.lidou   +++|          SA6    A6+B1
00576  M01S00562.lidou   +++|          SX6    B0+         CLEAR CHANGED FLAG
00577  M01S00563.lidou   +++|          SA6    CHDF
00578  M01S00564.lidou   +++|          SA1    LDSF        CHECK *L* DISPLAY FLAG
00579  M01S00565.lidou   +++|          ZR     X1,ERR1     IF *L* DISPLAY NOT ACTIVE
00580  M01S00566.lidou   +++|          SB7    MSLC        * UTILITY COMPLETE*
00581  M01S00567.lidou   +++|          RJ     FRS         FORMAT REQUESTED SCREEN
00582  M01S00568.lidou   +++|          JP     LED         END UTILITY
00583  M01S00569.lidou   +++|
00584  M01S00570.lidou   +++| ERR1     SB7    MSET        * LID TABLE EMPTY.*
00585  M01S00571.lidou   +++|          RJ     POF         PROCESS OUTPUT FILE
00586  M01S00572.lidou   +++|          JP     LED         END UTILITY
00587  M01S00573.lidou   +++| FBL      SPACE  4,20
00588  M01S00574.lidou   +++|**        FBL - FORMAT BUFFER FOR LID TABLE.
00589  M01S00575.lidou   +++|*
00590  M01S00576.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE REFORMATTED LID TABLE.
00591  M01S00577.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
00592  M01S00578.lidou   +++|*                (NMLL) = THE NUMBER OF USABLE LINES PER SCREEN.
00593  M01S00579.lidou   +++|*                (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
00594  M01S00580.lidou   +++|*                         TO BE DISPLAYED.
00595  M01S00581.lidou   +++|*
00596  M01S00582.lidou   +++|*         EXIT   *LIDB* CONTAINS THE INFORMATION TO BE DISPLAYED.
00597  M01S00583.lidou   +++|*                (X7) = *MORE DATA* WORD FOR LID DISPLAY.
00598  M01S00584.lidou   +++|*                (X6) = INDEX INTO *LIDI* OF NEXT ENTRY,
00599  M01S00585.lidou   +++|*                       (NOT YET DISPLAYED).
00600  M01S00586.lidou   +++|*
00601  M01S00587.lidou   +++|*         USES   X - 1, 2, 3, 6, 7.
Line S00588 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00588.241l630 ---|*                A - 1, 2, 3, 6.
00603  M01S00014.241l630 +++|*                A - 1, 2, 6.
00604  M01S00589.lidou   +++|*                B - 2, 3.
00605  M01S00590.lidou   +++|*
00606  M01S00591.lidou   +++|*         CALLS  FLL, FPL.
00607  M01S00592.lidou   +++|
00608  M01S00593.lidou   +++|
00609  M01S00594.lidou   +++| FBL3     SA1    BLKS        FORMAT BLANK LINE(S)
00610  M01S00595.lidou   +++|          SA2    BLKS+2
00611  M01S00596.lidou   +++| FBL4     BX6    X1
00612  M01S00597.lidou   +++|          SA6    A6+B1
00613  M01S00598.lidou   +++|          SA6    A6+B1
00614  M01S00599.lidou   +++|          SA6    A6+B1
00615  M01S00600.lidou   +++|          SA6    A6+B1
00616  M01S00601.lidou   +++|          SA6    A6+B1
00617  M01S00602.lidou   +++|          BX6    X2          STORE END OF LINE
00618  M01S00603.lidou   +++|          SA6    A6+B1
00619  M01S00604.lidou   +++|          SB3    B3-1        CHECK IF STILL LINES TO FORMAT
00620  M01S00605.lidou   +++|          NZ     B3,FBL4     IF NOT DONE
00621  M01S00606.lidou   +++| FBL5     SA1    LIDI        CHECK IF LAST SCREEN
00622  M01S00607.lidou   +++|          SX6    B2
00623  M01S00608.lidou   +++|          IX3    X6-X1
00624  M01S00609.lidou   +++|          SA1    BLKS
00625  M01S00610.lidou   +++|          SA2    MORE
00626  M01S00611.lidou   +++|          BX7    X1
00627  M01S00612.lidou   +++|          PL     X3,FBLX     IF LAST SCREEN
00628  M01S00613.lidou   +++|          BX7    X2
00629  M01S00614.lidou   +++|
00630  M01S00615.lidou   +++| FBL      SUBR               ENTRY/EXIT
00631  M01S00616.lidou   +++|          SA1    LIDD-1      PRESET ADDRESSES
00632  M01S00617.lidou   +++|          BX6    X1
00633  M01S00618.lidou   +++|          SA6    A1
00634  M01S00619.lidou   +++|          SA2    IND1        GET INDEX INTO *LIDI*
Line S00620 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00620.241l630 ---|          SA3    NMLL        GET NUMBER OF LINES TO FORMAT
Line S00621 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00621.241l630 ---|          SB2    X2
Line S00622 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00622.241l630 ---|          SB3    X3
00638  M01S00015.241l630 +++|          SB2    X2+
00639  M01S00016.241l630 +++|          SB3    NMLL        SET NUMBER OF LINES TO FORMAT
00640  M01S00623.lidou   +++|          SA1    LIDI+B2     GET WORD FROM TABLE
00641  M01S00624.lidou   +++|          SX2    X1+         CHECK FOR LID OR PID
00642  M01S00625.lidou   +++|          ZR     X2,FBL2     IF LID
Line S00626 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00626.241l630 ---| FBL1     SA2    X2          GET MAINFRAME AND SUBSYTEM INFORMATION
00644  M01S00017.241l630 +++| FBL1     SA2    X2          GET MAINFRAME AND SUBSYSTEM INFORMATION
00645  M01S00627.lidou   +++|          LX1    18          RIGHT JUSTIFY PID
00646  M01S00628.lidou   +++|          RJ     FPL         FORMAT PID LINE(S)
00647  M01S00629.lidou   +++|          ZR     B3,FBL5     IF NO MORE LINES TO FORMAT
00648  M01S00630.lidou   +++|          SA1    LIDI+B2     GET NEXT WORD FROM TABLE
00649  M01S00631.lidou   +++| FBL2     SB2    B2+1
00650  M01S00632.lidou   +++|          RJ     FLL         FORMAT LID LINE
00651  M01S00633.lidou   +++|          SB3    B3-B1
00652  M01S00634.lidou   +++|          SA1    LIDI+B2     GET NEXT WORD FROM TABLE
00653  M01S00635.lidou   +++|          SX2    X1
00654  M01S00636.lidou   +++|          ZR     B3,FBL5     IF NO MORE LINES TO FORMAT
00655  M01S00637.lidou   +++|          ZR     X1,FBL3     IF END OF TABLE
00656  M01S00638.lidou   +++|          ZR     X2,FBL2     IF ANOTHER LID
00657  M01S00639.lidou   +++|          EQ     FBL1        FORMAT NEXT PID
00658  M01S00640.lidou   +++| FLL      SPACE  4,15
00659  M01S00641.lidou   +++|**        FLL - FORMAT LID LINE.
00660  M01S00642.lidou   +++|*
00661  M01S00643.lidou   +++|*         ENTRY  (X1) = THE WORD (FROM *LIDI*) CONTAINING THE LID.
00662  M01S00644.lidou   +++|*                (A6) = ADDRESS (MINUS ONE) TO STORE THE LINE.
00663  M01S00645.lidou   +++|*
00664  M01S00646.lidou   +++|*         EXIT   (A6) = ADDRESS (MINUS ONE) TO STORE THE NEXT LINE.
00665  M01S00647.lidou   +++|*
00666  M01S00648.lidou   +++|*         USES   X - 1, 2, 3, 4, 6.
00667  M01S00649.lidou   +++|*                A - 2, 3, 4 ,6.
00668  M01S00650.lidou   +++|*
00669  M01S00651.lidou   +++|*         CALLS  GLA.
00670  M01S00652.lidou   +++|
00671  M01S00653.lidou   +++|
00672  M01S00654.lidou   +++| FLL2     SA2    FLLA+1      SAVE BLANK LID WORD
00673  M01S00655.lidou   +++|          BX6    X2
00674  M01S00656.lidou   +++|          SA6    A6+B1
00675  M01S00657.lidou   +++|          BX6    X3          ZERO WORDS TWO AND THREE
00676  M01S00658.lidou   +++|          SA6    A6+B1
00677  M01S00659.lidou   +++|          SA6    A6+1
00678  M01S00660.lidou   +++| FLL3     SA6    A6+B1       ZERO WORDS FOUR AND FIVE
00679  M01S00661.lidou   +++|          SA6    A6+B1
00680  M01S00662.lidou   +++|          BX6    X4          END OF LINE
00681  M01S00663.lidou   +++|          SA6    A6+B1
00682  M01S00664.lidou   +++|
00683  M01S00665.lidou   +++| FLL      SUBR               ENTRY/EXIT
00684  M01S00666.lidou   +++|          SA3    BLKS+1      GET BLANK WORD
00685  M01S00667.lidou   +++|          SA4    A3+B1
00686  M01S00668.lidou   +++|          MX6    -18         MASK OFF LID
00687  M01S00669.lidou   +++|          LX1    18
00688  M01S00670.lidou   +++|          BX6    -X6*X1
00689  M01S00671.lidou   +++|          ZR     X6,FLL2     IF ZERO LID
00690  M01S00672.lidou   +++|          SA2    FLLA        STORE LID WORD
00691  M01S00673.lidou   +++|          BX6    X6+X2
00692  M01S00674.lidou   +++|          SA6    A6+B1
00693  M01S00675.lidou   +++|          LX1    6           CHECK FOR ENABLED STATUS
00694  M01S00676.lidou   +++|          SA2    FPLA        GET ENABLED STATUS WORD
00695  M01S00677.lidou   +++|          BX6    X2
00696  M01S00678.lidou   +++|          NG     X1,FLL1     IF ENABLED
00697  M01S00679.lidou   +++|          SA2    A2+B1       GET DISABLED STATUS WORD
00698  M01S00680.lidou   +++|          BX6    X2
00699  M01S00681.lidou   +++| FLL1     SA6    A6+B1       SAVE STATUS WORD
00700  M01S00682.lidou   +++|          LX1    5           RIGHT JUSTIFY ATTRIBUTES
00701  M01S00683.lidou   +++|          RJ     GLA         GET LID ATTRIBUTES
00702  M01S00684.lidou   +++|          SA6    A6+B1       SAVE ATTRIBUTE WORD
00703  M01S00685.lidou   +++|          BX6    X3
00704  M01S00686.lidou   +++|          EQ     FLL3        FINISH LINE
00705  M01S00687.lidou   +++|
00706  M01S00688.lidou   +++| FLLA     VFD    42/7L       ,18/0  LID WORD
00707  M01S00689.lidou   +++|          VFD    60/10L       ---  BLANK LID WORD
00708  M01S00690.lidou   +++| FLT      SPACE  4,20
00709  M01S00691.lidou   +++|**        FLT - FORMAT LISTING OF LID TABLE.
00710  M01S00692.lidou   +++|*
00711  M01S00693.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE REFORMATTED LID TABLE.
00712  M01S00694.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
00713  M01S00695.lidou   +++|*                (LCNT) = NUMBER OF LINES TO FORMAT PER PAGE.
00714  M01S00696.lidou   +++|*                (A0) = 1.
00715  M01S00697.lidou   +++|*
00716  M01S00698.lidou   +++|*         EXIT   LISTING OF THE LID TABLE WRITTEN TO OUTPUT FILE.
00717  M01S00699.lidou   +++|*
00718  M01S00700.lidou   +++|*         USES   X - 0, 1, 2, 4, 5, 6.
00719  M01S00701.lidou   +++|*                A - 0, 1, 4, 5, 6.
00720  M01S00702.lidou   +++|*                B - 2, 3, 4.
00721  M01S00703.lidou   +++|*
00722  M01S00704.lidou   +++|*         CALLS  FLL, FPL, GPL.
00723  M01S00705.lidou   +++|*
00724  M01S00706.lidou   +++|*         MACROS WRITEC, WRITEH, WRITEW.
00725  M01S00707.lidou   +++|
00726  M01S00708.lidou   +++|
00727  M01S00709.lidou   +++| FLT      SUBR               ENTRY/EXIT
00728  M01S00710.lidou   +++|          SA1    PDFE
00729  M01S00711.lidou   +++|          NZ     X1,FLT1     IF FORMAT EFFECTOR WRITTEN
00730  M01S00712.lidou   +++|          WRITEC OUTPUT,PDFC  WRITE PRINT DENSITY FORMAT EFFECTOR
00731  M01S00713.lidou   +++| FLT1     WRITEW OUTPUT,LIDA,15  WRITE PAGE HEADER
00732  M01S00714.lidou   +++|          SA1    LCNT        GET LINE COUNT
00733  M01S00715.lidou   +++|          SX6    X1+
00734  M01S00716.lidou   +++| FLT2     SA6    FLTA        SAVE LINE COUNT
00735  M01S00717.lidou   +++|          SA1    LIDI+A0     GET WORD FORM TABLE
00736  M01S00718.lidou   +++|          SB2    A0
00737  M01S00719.lidou   +++|          SX2    X1          CHECK POINTER TO *MFTB*
00738  M01S00720.lidou   +++|          ZR     X1,FLTX     IF END OF TABLE
00739  M01S00721.lidou   +++|          ZR     X2,FLT4     IF LID
00740  M01S00722.lidou   +++|          LX1    18          RIGHT JUSTIFY PID
00741  M01S00723.lidou   +++|          SA4    X2          GET MAINFRAME AND NETWORK DATA
00742  M01S00724.lidou   +++|          MX0    -12
00743  M01S00725.lidou   +++|          BX2    -X0*X4
00744  M01S00726.lidou   +++|          RJ     GPL         GET PID LINE COUNT
00745  M01S00727.lidou   +++|          BX2    X4
00746  M01S00728.lidou   +++|          SA5    BLKS        GET BLANK WORD
00747  M01S00729.lidou   +++|          BX6    X5          STORE BLANK WORD
00748  M01S00730.lidou   +++|          SA6    WBUF
00749  M01S00731.lidou   +++|          SB3    3           SET NUMBER OF LINES
00750  M01S00732.lidou   +++|          RJ     FPL         FORMAT PID LINE(S)
00751  M01S00733.lidou   +++|          SA0    B2          SAVE INDEX
00752  M01S00734.lidou   +++|          SX0    B4          SAVE LINE COUNT
00753  M01S00735.lidou   +++|          SA1    FLTA        DECREMENT LINE COUNT
00754  M01S00736.lidou   +++|          SB3    X1
00755  M01S00737.lidou   +++|          SB4    B3-B4
00756  M01S00738.lidou   +++|          SX6    B4
00757  M01S00739.lidou   +++|          SA6    A1
00758  M01S00740.lidou   +++|          SA5    BLKS        GET BLANK WORD
00759  M01S00741.lidou   +++|          WRITEH OUTPUT,WBUF,7
00760  M01S00742.lidou   +++|          SX0    X0-1
00761  M01S00743.lidou   +++|          ZR     X0,FLT3     IF DONE WITH PID LINES
00762  M01S00744.lidou   +++|          BX6    X5          STORE BLANK WORD
00763  M01S00745.lidou   +++|          SA6    WBUF+6
00764  M01S00746.lidou   +++|          WRITEH OUTPUT,WBUF+6,7
00765  M01S00747.lidou   +++|          SX0    X0-1
00766  M01S00748.lidou   +++|          ZR     X0,FLT3     IF DONE WITH PID LINES
00767  M01S00749.lidou   +++|          BX6    X5          STORE BLANK WORD
00768  M01S00750.lidou   +++|          SA6    WBUF+12
00769  M01S00751.lidou   +++|          WRITEH OUTPUT,WBUF+12,7
00770  M01S00752.lidou   +++| FLT3     SA1    LIDI+A0     GET NEXT WORD FROM TABLE
00771  M01S00753.lidou   +++| FLT4     BX6    X5          STORE BLANK WORD
00772  M01S00754.lidou   +++|          SA6    WBUF
00773  M01S00755.lidou   +++|          SA0    A0+B1
00774  M01S00756.lidou   +++|          RJ     FLL         FORMAT LINE LINE
00775  M01S00757.lidou   +++|          WRITEH OUTPUT,WBUF,7  WRITE LID LINE
00776  M01S00758.lidou   +++|          SA1    FLTA        CHECK LINE COUNT
00777  M01S00759.lidou   +++|          SX6    X1-1
00778  M01S00760.lidou   +++|          PL     X6,FLT2     IF MORE ROOM ON PAGE
00779  M01S00761.lidou   +++|          EQ     FLT1        FORMAT PAGE HEADER
00780  M01S00762.lidou   +++|
00781  M01S00763.lidou   +++| FLTA     BSS    1           HOLDS LINE COUNT
00782  M01S00764.lidou   +++| FPL      SPACE  4,20
00783  M01S00765.lidou   +++|**        FPL - FORMAT PID LINE(S).
00784  M01S00766.lidou   +++|*
00785  M01S00767.lidou   +++|*         ENTRY  (X1) = THE PID ENTRY, WITH THE PID RIGHT JUSTIFIED.
00786  M01S00768.lidou   +++|*                (X2) = THE MAINFRAME/NETWORK WORD FROM *MFTB*.
00787  M01S00769.lidou   +++|*                (A6) = ADDRESS (MINUS ONE) TO STORE THE LINE(S).
00788  M01S00770.lidou   +++|*                (B2) = THE INDEX INTO *LIDI* FOR THE PID ENTRY.
00789  M01S00771.lidou   +++|*                (B3) = THE NUMBER OF LINES LEFT ON THE SCREEN.
00790  M01S00772.lidou   +++|*
00791  M01S00773.lidou   +++|*         EXIT   (A6) = ADDRESS (MINUS ONE) TO STORE NEXT LINE.
00792  M01S00774.lidou   +++|*                (B2) = THE INDEX INTO *LIDI* FOR THE NEXT ENTRY.
00793  M01S00775.lidou   +++|*                (B3) = THE NUMBER OF LINES LEFT ON THE SCREEN.
00794  M01S00776.lidou   +++|*
00795  M01S00777.lidou   +++|*         USES   X - ALL.
00796  M01S00778.lidou   +++|*                A - 3, 4, 6.
00797  M01S00779.lidou   +++|*                B - 2, 3, 5, 6
00798  M01S00780.lidou   +++|*
00799  M01S00781.lidou   +++|*         CALLS  GPA.
00800  M01S00782.lidou   +++|
00801  M01S00783.lidou   +++|
00802  M01S00784.lidou   +++| FPL6     NZ     X5,FPLX     IF ANY NETWORK INFORMATION WRITTEN
00803  M01S00785.lidou   +++|          SA3    BLKS        BLANK FILL INITIAL LINE
00804  M01S00786.lidou   +++|          BX6    X3
00805  M01S00787.lidou   +++|          SA6    A6+B1
00806  M01S00788.lidou   +++|          BX6    X0*X6       END OF LINE
00807  M01S00789.lidou   +++|          SA6    A6+B1
00808  M01S00790.lidou   +++|
00809  M01S00791.lidou   +++| FPL      SUBR               ENTRY/EXIT
00810  M01S00792.lidou   +++|          SX6    X1          STORE PID WORD
00811  M01S00793.lidou   +++|          SA3    FPLB
00812  M01S00794.lidou   +++|          LX6    -18
00813  M01S00795.lidou   +++|          BX6    X6+X3
00814  M01S00796.lidou   +++|          SA6    A6+B1       STORE PID WORD
00815  M01S00797.lidou   +++|          SA3    FPLA        GET ENABLED STATUS WORD
00816  M01S00798.lidou   +++|          BX6    X3
00817  M01S00799.lidou   +++|          LX1    1           CHECK ENABLED/DISABLED STATUS
00818  M01S00800.lidou   +++|          MX0    42
00819  M01S00801.lidou   +++|          SX5    B0          SET INITIAL LINE BEING PROCESSED
00820  M01S00802.lidou   +++|          NG     X1,FPL1     IF ENABLED
00821  M01S00803.lidou   +++|          SA3    A3+B1       GET DISABLED STATUS
00822  M01S00804.lidou   +++|          BX6    X3
00823  M01S00805.lidou   +++| FPL1     SA6    A6+B1       STORE STATUS WORD
00824  M01S00806.lidou   +++|          LX1    3           RIGHT JUSTIFY ATTRIBUTES
00825  M01S00807.lidou   +++|          RJ     GPA         GET PID ATTRIBUTES
00826  M01S00808.lidou   +++|          SA6    A6+B1       STORE ATTRIBUTE WORD
00827  M01S00809.lidou   +++|          SX3    3R
00828  M01S00810.lidou   +++|          BX6    X0*X2       STORE MAINFRAME WORD
00829  M01S00811.lidou   +++|          BX3    -X0*X3      MASK OFF SIGN EXTENSION
00830  M01S00812.lidou   +++|          BX1    -X0*X2      MASK OFF NETWORK INFORMATION
00831  M01S00813.lidou   +++|          BX6    X6+X3
00832  M01S00814.lidou   +++|          SA6    A6+B1
00833  M01S00815.lidou   +++|          SA3    FPLD        GET NETWORK WORD
00834  M01S00816.lidou   +++|          SB5    3           NUMBER OF NETWORKS
00835  M01S00817.lidou   +++|          MX2    -4
00836  M01S00818.lidou   +++|          SB2    B2+B1
00837  M01S00819.lidou   +++|          SB3    B3-1
00838  M01S00820.lidou   +++| FPL2     SX7    X3          GET NETWORK IDENTIFIER
00839  M01S00821.lidou   +++|          BX4    -X2*X1
00840  M01S00822.lidou   +++|          SB6    B0
00841  M01S00823.lidou   +++|          LX7    -18         LEFT JUSTIFY NETWORK IDENTIFIER
00842  M01S00824.lidou   +++|          SX6    X4-/NTS/ISV
00843  M01S00825.lidou   +++|          ZR     X6,FPL4     IF IN SERVICE
00844  M01S00826.lidou   +++|          SB6    B6+2
00845  M01S00827.lidou   +++|          SX6    X4-/NTS/OSV
00846  M01S00828.lidou   +++|          ZR     X6,FPL4     IF OUT OF SERVICE
00847  M01S00829.lidou   +++|          SB6    B6+2
00848  M01S00830.lidou   +++|          SX6    X4-/NTS/DAB
00849  M01S00831.lidou   +++|          PL     X6,FPL4     IF DISABLED
00850  M01S00832.lidou   +++| FPL3     SB5    B5-B1
00851  M01S00833.lidou   +++|          MX0    48
00852  M01S00834.lidou   +++|          ZR     B5,FPL6     IF ALL NETWORKS CHECKED
00853  M01S00835.lidou   +++|          LX1    -4
00854  M01S00836.lidou   +++|          LX3    -18
00855  M01S00837.lidou   +++|          EQ     FPL2        CHECK NEXT NETWORK
00856  M01S00838.lidou   +++|
00857  M01S00839.lidou   +++| FPL4     ZR     X5,FPL5     IF INITIAL LINE
00858  M01S00840.lidou   +++|          SB3    B3-B1       DECREMENT LINE COUNT
00859  M01S00841.lidou   +++|          SB2    B2+B1       INCREMENT INDEX INTO *LIDI*
00860  M01S00842.lidou   +++|          SA4    BLKS        BLANK FILL START OF LINE
00861  M01S00843.lidou   +++|          BX6    X4
00862  M01S00844.lidou   +++|          SA6    A6+B1
00863  M01S00845.lidou   +++|          SA6    A6+B1
00864  M01S00846.lidou   +++|          SA6    A6+B1
00865  M01S00847.lidou   +++|          SA6    A6+1
00866  M01S00848.lidou   +++| FPL5     SX5    B1          CLEAR INITIAL LINE
00867  M01S00849.lidou   +++|          SA4    FPLC+B6     STORE FIRST WORD OF NETWORK STATUS
00868  M01S00850.lidou   +++|          BX6    X4+X7       ADD IN NETWORK IDENTIFIER
00869  M01S00851.lidou   +++|          SA6    A6+B1
00870  M01S00852.lidou   +++|          SA4    A4+B1       STORE SECOND WORD
00871  M01S00853.lidou   +++|          BX6    X4
00872  M01S00854.lidou   +++|          SA6    A6+B1
00873  M01S00855.lidou   +++|          ZR     B3,FPLX     IF NO MORE LINES ON SCREEN
00874  M01S00856.lidou   +++|          EQ     FPL3        CHECK IF ALL NETWORKS PROCESSED
00875  M01S00857.lidou   +++|
00876  M01S00858.lidou   +++| FPLA     VFD    60/10L    YES     ENABLED
00877  M01S00859.lidou   +++|          VFD    60/10L    NO      NOT ENABLED
00878  M01S00860.lidou   +++| FPLB     VFD    18/0,42/7L    ---  PID WORD
00879  M01S00861.lidou   +++| FPLC     VFD    18/0,42/7L IN SER  NETWORK STATUSES
00880  M01S00862.lidou   +++|          VFD    60/8LVICE
00881  M01S00863.lidou   +++|          VFD    18/0,42/7L OUT OF
00882  M01S00864.lidou   +++|          VFD    60/8L SERVICE
00883  M01S00865.lidou   +++|          VFD    18/0,42/7L DISABL
00884  M01S00866.lidou   +++|          VFD    60/8LED
00885  M01S00867.lidou   +++| FPLD     VFD    6/0         NETWORKS
00886  M01S00868.lidou   +++|          VFD    18/3LSSF
00887  M01S00869.lidou   +++|          VFD    18/3LRHF
00888  M01S00870.lidou   +++|          VFD    18/3LNAM
00889  M01S00871.lidou   +++| FRL      SPACE  4,15
00890  M01S00872.lidou   +++|**        FRL - FORMAT RESPONSE LINES.
00891  M01S00873.lidou   +++|*
00892  M01S00874.lidou   +++|*         ENTRY  (X1) = START OF BUFFER BEING USED.
00893  M01S00875.lidou   +++|*                (X2) = COMMAND RESPONSE OFFSET INTO BUFFER.
00894  M01S00876.lidou   +++|*                (B7) = ADDRESS OF ERROR RESPONSE.
Line S00877 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00877.241l630 ---|*                     = 0, IF FORMATTING DEFAULT MESSAGE.
00896  M01S00018.241l630 +++|*                     = 0, IF NO ERROR MESSAGE.
00897  M01S00878.lidou   +++|*
Line S00879 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00879.241l630 ---|*         EXIT   RESPONSE LINES FORMATTED, LAST TWO WORDS IN
Line S00880 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00880.241l630 ---|*                BUFFER ZEROED TO TERMINATE BUFFER.
00900  M01S00019.241l630 +++|*         EXIT   RESPONSE LINES FORMATTED.
00901  M01S00881.lidou   +++|*                (X6) = LWA OF BUFFER (FOR *COMCFLD*).
00902  M01S00882.lidou   +++|*
00903  M01S00883.lidou   +++|*         USES   X - 2, 3, 6.
00904  M01S00884.lidou   +++|*                A - 2, 3, 6.
00905  M01S00885.lidou   +++|*                B - 3, 4, 7.
00906  M01S00886.lidou   +++|
00907  M01S00887.lidou   +++|
00908  M01S00888.lidou   +++| FRL1     SA3    B7          FORMAT MESSAGE LINE
00909  M01S00889.lidou   +++|          BX6    X3
00910  M01S00890.lidou   +++|          SA6    B4
00911  M01S00891.lidou   +++|          SA3    A3+B1
00912  M01S00892.lidou   +++|          BX6    X3
00913  M01S00893.lidou   +++|          SA6    A6+B1
00914  M01S00894.lidou   +++|          SB4    A6+5
00915  M01S00895.lidou   +++| FRL2     BX6    X2          FORMAT COMMAND LINE
00916  M01S00896.lidou   +++|          SA6    B4
Line S00897 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00917  M02S00897.241l630 ---|          SB4    B4+B1
Line S00898 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00898.241l630 ---|          SB3    B3-B1
Line S00899 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00899.241l630 ---|          SA2    A2+B1
00920  M01S00020.241l630 +++|          SA2    A2+1
00921  M01S00021.241l630 +++|          SB4    B4+1
00922  M01S00022.241l630 +++|          SB3    B3-1
00923  M01S00900.lidou   +++|          ZR     X2,FRL3     IF END OF INPUT
00924  M01S00901.lidou   +++|          NZ     B3,FRL2     IF NOT DONE
Line S00902 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00902.241l630 ---| FRL3     SX6    A6          SAVE END OF BUFFER ADDRESS
00926  M01S00023.241l630 +++| FRL3     SX6    A6+         SAVE END OF BUFFER ADDRESS
00927  M01S00903.lidou   +++|
00928  M01S00904.lidou   +++| FRL      SUBR               ENTRY/EXIT
00929  M01S00905.lidou   +++|          SB4    X1          CALCULATE MESSAGE ADDRESS
00930  M01S00906.lidou   +++|          SB4    X2+B4
00931  M01S00907.lidou   +++|          SB3    6           SET COUNTER
00932  M01S00908.lidou   +++|          SA2    LBFI+1
00933  M01S00909.lidou   +++|          NZ     B7,FRL1     IF ERROR MESSAGE REQUESTED
00934  M01S00910.lidou   +++|          SB7    BLKS        SET BLANK ERROR MESSAGE
Line S00911 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00911.241l630 ---|          SA3    HLPF        CHECK WHICH DISPLAY
Line S00912 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00936  M02S00912.241l630 ---|          SA2    MSRH
Line S00913 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00913.241l630 ---|          NZ     X3,FRL1     IF HELP DISPLAY ACTIVE
Line S00914 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00914.241l630 ---|          SA2    MSRL
00939  M01S00915.lidou   +++|          EQ     FRL1        FORMAT LINES
00940  M01S00916.lidou   +++| FRS      SPACE  4,30
00941  M01S00917.lidou   +++|**        FRS - FORMAT REQUESTED SCREEN.
00942  M01S00918.lidou   +++|*
00943  M01S00919.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE REFORMATTED LID TABLE.
00944  M01S00920.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
00945  M01S00921.lidou   +++|*                (CMRO) = COMMAND RESPONSE OFFSET INTO BUFFER.
00946  M01S00922.lidou   +++|*                (B7) = ADDRESS OF ERROR RESPONSE.
Line S00923 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00923.241l630 ---|*                     = 0, IF FORMATTING DEFAULT MESSAGE.
00948  M01S00024.241l630 +++|*                     = 0, IF NO ERROR MESSAGE.
00949  M01S00924.lidou   +++|*                (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
00950  M01S00925.lidou   +++|*                         TO BE DISPLAYED ON SCREEN
00951  M01S00926.lidou   +++|*                (HLPF) = 1, IF HELP DISPLAY REQUESTED.
00952  M01S00927.lidou   +++|*                       = 0, IF LID TABLE DISPLAY REQUESTED.
00953  M01S00928.lidou   +++|*                (PONE) = ADDRESS OF CURRENT HELP PAGE.
00954  M01S00929.lidou   +++|*                (CHDF) = 1, IF LID DISPLAY NEEDS TO BE RE-
00955  M01S00930.lidou   +++|*                            FORMATTED.
00956  M01S00931.lidou   +++|*                       = 0, OTHERWISE.
00957  M01S00932.lidou   +++|*
00958  M01S00933.lidou   +++|*         EXIT   *L* DISPLAY INFORMATION FORMATTED, IF NECESSARY,
00959  M01S00934.lidou   +++|*                AND DISPLAYED.
00960  M01S00935.lidou   +++|*                (IND2) = INDEX INTO *LIDI* OF NEXT ENTRY,
00961  M01S00936.lidou   +++|*                         NOT YET DISPLAYED ON SCREEN.
00962  M01S00937.lidou   +++|*
00963  M01S00938.lidou   +++|*         USES   X - 1, 2, 3, 6, 7.
00964  M01S00939.lidou   +++|*                A - 1, 2, 6, 7.
00965  M01S00940.lidou   +++|*                B - 2, 3, 4, 6.
00966  M01S00941.lidou   +++|*
00967  M01S00942.lidou   +++|*         CALLS  FBL, FLB, FRL.
00968  M01S00943.lidou   +++|*
00969  M01S00944.lidou   +++|*         MACROS DSDOUT.
00970  M01S00945.lidou   +++|
Line S00946 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00971  M02S00946.241l630 ---| FRS2     SA2    CMRO        GET COMMAND RESPONSE OFFSET
00972  M01S00025.241l630 +++| FRS2     SX2    LIDO        SET COMMAND RESPONSE OFFSET
00973  M01S00947.lidou   +++|          RJ     FRL         FORMAT RESPONSE LINE
00974  M01S00948.lidou   +++|          SB2    LBFO+1      SET DESTINATION BUFFER ADDRESSES
00975  M01S00949.lidou   +++|          SB6    LBFOE-1
00976  M01S00950.lidou   +++|          SB3    XCDT        SET X AND Y STARTING COORDINATES
00977  M01S00951.lidou   +++|          SB4    YCDT
00978  M01S00952.lidou   +++|          SX2    B0          SET DISPLAY CODE FOR *L* DISPLAY
00979  M01S00953.lidou   +++|          SX3    B1
00980  M01S00954.lidou   +++|          RJ     FLB         FORMAT BUFFER FOR *L* DISPLAY
00981  M01S00955.lidou   +++|          DSDOUT LBFO        DISPLAY *L* DISPLAY
00982  M01S00956.lidou   +++|
00983  M01S00957.lidou   +++| FRS      SUBR               ENTRY/EXIT
00984  M01S00958.lidou   +++|          SA2    HLPF        CHECK FOR HELP DISPLAY REQUESTED
00985  M01S00959.lidou   +++|          SA1    PONE        SET START OF HELP BUFFER
00986  M01S00960.lidou   +++|          NZ     X2,FRS2     IF HELP DISPLAY REQUESTED
00987  M01S00961.lidou   +++|          SA2    CHDF        CHECK FOR LID DISPLAY CHANGE
00988  M01S00962.lidou   +++|          ZR     X2,FRS1     IF NO CHANGE
00989  M01S00963.lidou   +++|          SX6    B0+         CLEAR LID TABLE CHANGED FLAG
00990  M01S00964.lidou   +++|          SA6    CHDF
00991  M01S00965.lidou   +++|          RJ     FBL         FORMAT BUFFER FOR LID TABLE
00992  M01S00966.lidou   +++|          SA6    IND2        SAVE NEXT ENTRY INDEX
00993  M01S00967.lidou   +++|          SA7    LIDE        STORE *MORE DATA* WORD
00994  M01S00968.lidou   +++| FRS1     SX1    LIDB        SET START OF LID BUFFER
00995  M01S00969.lidou   +++|          EQ     FRS2        FORMAT RESPONSE LINE
00996  M01S00970.lidou   +++| GLA      SPACE  4,10
00997  M01S00971.lidou   +++|**        GLA - GET LID ATTRIBUTES.
00998  M01S00972.lidou   +++|*
00999  M01S00973.lidou   +++|*         ENTRY  (X1) = LID WORD WITH ATTRIBUTES RIGHT JUSTIFIED.
01000  M01S00974.lidou   +++|*
01001  M01S00975.lidou   +++|*         EXIT   (X6) = ATTRIBUTE WORD (DISPLAY CODE EQUIVALENT).
01002  M01S00976.lidou   +++|*                (X1) = 0, IF NO ERROR.
01003  M01S00977.lidou   +++|*                       NONZERO IF NO MATCH.
01004  M01S00978.lidou   +++|*
01005  M01S00979.lidou   +++|*         USES   X - 1, 2, 6.
01006  M01S00980.lidou   +++|*                A - 2.
01007  M01S00981.lidou   +++|
01008  M01S00982.lidou   +++|
01009  M01S00983.lidou   +++| GLA2     MX1    42
01010  M01S00984.lidou   +++|          SX6    3R
01011  M01S00985.lidou   +++|          BX6    -X1*X6      MASK OFF SIGN EXTENSION
01012  M01S00986.lidou   +++|          BX2    X1*X2       MASK OFF ATTRIBUTES
01013  M01S00987.lidou   +++|          BX6    X2+X6       ADD IN BLANKS
01014  M01S00988.lidou   +++|          SX1    B0+         CLEAR ERROR
01015  M01S00989.lidou   +++|
01016  M01S00990.lidou   +++| GLA      SUBR               ENTRY/EXIT
01017  M01S00991.lidou   +++|          MX2    -4          IGNORE ENABLED BIT
01018  M01S00992.lidou   +++|          BX1    -X2*X1
01019  M01S00993.lidou   +++|          SA2    TLAT        GET TABLE ENTRY
01020  M01S00994.lidou   +++| GLA1     ZR     X2,GLAX     IF END OF TABLE
01021  M01S00995.lidou   +++|          SX6    X2
01022  M01S00996.lidou   +++|          BX6    X6-X1       CHECK FOR MATCH
01023  M01S00997.lidou   +++|          ZR     X6,GLA2     IF ATTRIBUTES MATCH
01024  M01S00998.lidou   +++|          SA2    A2+1
01025  M01S00999.lidou   +++|          EQ     GLA1        CHECK FOR END OF TABLE
01026  M01S01000.lidou   +++| GLT      SPACE  4,15
01027  M01S01001.lidou   +++|**        GLT - GET LID TABLE.
01028  M01S01002.lidou   +++|*
01029  M01S01003.lidou   +++|*         ENTRY  (A1) = ADDRESS OF LID TABLE FET (*LIDF*).
01030  M01S01004.lidou   +++|*
01031  M01S01005.lidou   +++|*         EXIT   LID TABLE READ FROM CORE AND, IF NOT EMPTY,
01032  M01S01006.lidou   +++|*                *LIDI* CONTAINS THE REFORMATTED LID TABLE AND
01033  M01S01007.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
01034  M01S01008.lidou   +++|*                TO *ERR* IF EMPTY LID TABLE.
01035  M01S01009.lidou   +++|*
01036  M01S01010.lidou   +++|*         USES   X - 1, 6, 7.
01037  M01S01011.lidou   +++|*                A - 1, 6.
01038  M01S01012.lidou   +++|*
01039  M01S01013.lidou   +++|*         CALLS  RLD.
01040  M01S01014.lidou   +++|*
01041  M01S01015.lidou   +++|*         MACROS GETLIDT.
01042  M01S01016.lidou   +++|
01043  M01S01017.lidou   +++|
01044  M01S01018.lidou   +++| GLT      SUBR               ENTRY/EXIT
01045  M01S01019.lidou   +++|          SA1    A1+B1       REWIND FET
01046  M01S01020.lidou   +++|          SX6    X1
01047  M01S01021.lidou   +++|          SA6    A1+B1
01048  M01S01022.lidou   +++|          SA6    A6+B1
01049  M01S01023.lidou   +++|          GETLIDT  LIDF      GET LID TABLE
01050  M01S01024.lidou   +++|          SA1    LIDI        GET NUMBER OF PIDS IN TABLE
01051  M01S01025.lidou   +++|          MX6    -12
01052  M01S01026.lidou   +++|          BX7    -X6*X1
01053  M01S01027.lidou   +++|          ZR     X7,ERR      IF EMPTY TABLE
01054  M01S01028.lidou   +++|          RJ     RLD         REFORMAT LID TABLE
01055  M01S01029.lidou   +++|          EQ     GLTX        RETURN
01056  M01S01030.lidou   +++| GPA      SPACE  4,10
01057  M01S01031.lidou   +++|**        GPA - GET PID ATTRIBUTES.
01058  M01S01032.lidou   +++|*
01059  M01S01033.lidou   +++|*         ENTRY  (X1) = PID ATTRIBUTES, RIGHT JUSTIFIED.
01060  M01S01034.lidou   +++|*
01061  M01S01035.lidou   +++|*         EXIT   (X6) = ATTRIBUTE WORD (DISPLAY CODE EQUIVALENT).
01062  M01S01036.lidou   +++|*                (X1) = 0, IF NO ERROR.
01063  M01S01037.lidou   +++|*                       NONZERO IF NO MATCH.
01064  M01S01038.lidou   +++|*
01065  M01S01039.lidou   +++|*         USES   X - 1, 3, 6.
01066  M01S01040.lidou   +++|*                A - 3.
01067  M01S01041.lidou   +++|
01068  M01S01042.lidou   +++|
01069  M01S01043.lidou   +++| GPA2     MX1    42
01070  M01S01044.lidou   +++|          SX6    3R
01071  M01S01045.lidou   +++|          BX6    -X1*X6      MASK OFF SIGN EXTENSION
01072  M01S01046.lidou   +++|          BX3    X1*X3       MASK OFF ATTRIBUTES
01073  M01S01047.lidou   +++|          BX6    X3+X6       ADD IN BLANKS
01074  M01S01048.lidou   +++|          SX1    B0+         CLEAR ERROR
01075  M01S01049.lidou   +++|
01076  M01S01050.lidou   +++| GPA      SUBR               ENTRY/EXIT
01077  M01S01051.lidou   +++|          MX3    -4
01078  M01S01052.lidou   +++|          BX1    -X3*X1
01079  M01S01053.lidou   +++|          SA3    TPAT        GET TABLE ENTRY
01080  M01S01054.lidou   +++| GPA1     ZR     X3,GPAX     IF END OF TABLE
01081  M01S01055.lidou   +++|          SX6    X3
01082  M01S01056.lidou   +++|          BX6    X6-X1       CHECK FOR MATCH
01083  M01S01057.lidou   +++|          ZR     X6,GPA2     IF ATTRIBUTES MATCH
01084  M01S01058.lidou   +++|          SA3    A3+1
01085  M01S01059.lidou   +++|          EQ     GPA1        CHECK FOR END OF TABLE
01086  M01S01060.lidou   +++| GPL      SPACE  4,10
01087  M01S01061.lidou   +++|**        GPL - GET PID LINE COUNT.
01088  M01S01062.lidou   +++|*
01089  M01S01063.lidou   +++|*         ENTRY  (X2) = NETWORK INFORMATION FOR PID, RIGHT
01090  M01S01064.lidou   +++|*                       JUSTIFIED.
01091  M01S01065.lidou   +++|*
01092  M01S01066.lidou   +++|*         EXIT   (B4) = PID LINE COUNT, 1, 2, OR 3.
01093  M01S01067.lidou   +++|*
01094  M01S01068.lidou   +++|*         USES   X - 2, 3, 6, 7.
01095  M01S01069.lidou   +++|*                B - 4, 5.
01096  M01S01070.lidou   +++|
01097  M01S01071.lidou   +++|
01098  M01S01072.lidou   +++| GPL4     NZ     B4,GPLX     IF AT LEAST ONE LINE
01099  M01S01073.lidou   +++|          SB4    B1+         SET ONE LINE
01100  M01S01074.lidou   +++|
01101  M01S01075.lidou   +++| GPL      SUBR               ENTRY/EXIT
01102  M01S01076.lidou   +++|          MX3    -4
01103  M01S01077.lidou   +++|          BX6    -X3*X2
01104  M01S01078.lidou   +++|          SB4    B0          INITIALIZE PID LINE COUNT
01105  M01S01079.lidou   +++|          SB5    B1+B1
01106  M01S01080.lidou   +++| GPL1     SX7    X6-/NTS/ISV
01107  M01S01081.lidou   +++|          ZR     X7,GPL2     IF *IN SERVICE*
01108  M01S01082.lidou   +++|          SX7    X6-/NTS/OSV
01109  M01S01083.lidou   +++|          ZR     X7,GPL2     IF *OUT OF SERVICE*
01110  M01S01084.lidou   +++|          SX7    X6-/NTS/DAB
01111  M01S01085.lidou   +++|          NG     X7,GPL3     IF NOT *DISABLED*
01112  M01S01086.lidou   +++| GPL2     SB4    B4+1        INCREMENT PID LINE COUNT
01113  M01S01087.lidou   +++| GPL3     SB5    B5-1
01114  M01S01088.lidou   +++|          NG     B5,GPL4     IF DONE WITH ALL THREE NETWORKS
01115  M01S01089.lidou   +++|          LX2    -4
01116  M01S01090.lidou   +++|          BX6    -X3*X2
01117  M01S01091.lidou   +++|          EQ     GPL1        PROCESS NEXT NETWORK
01118  M01S01092.lidou   +++| LED      SPACE  4,15
01119  M01S01093.lidou   +++|**        LED - LIDOU END.
01120  M01S01094.lidou   +++|*
01121  M01S01095.lidou   +++|*         EXIT   *L* DISPLAY DROPPED, PROGRAM TERMINATED.
01122  M01S01096.lidou   +++|*
01123  M01S01097.lidou   +++|*         USES   X - 1.
01124  M01S01098.lidou   +++|*                A - 1.
01125  M01S01099.lidou   +++|*                B - 7.
01126  M01S01100.lidou   +++|*
01127  M01S01101.lidou   +++|*         CALLS  FRS, POF.
01128  M01S01102.lidou   +++|*
01129  M01S01103.lidou   +++|*         MACROS DSDINP, ENDRUN, MESSAGE, WRITER.
01130  M01S01104.lidou   +++|
01131  M01S01105.lidou   +++|
01132  M01S01106.lidou   +++| LED      SA1    LDSF        CHECK *L* DISPLAY FLAG
01133  M01S01107.lidou   +++|          SB7    MSLC        * UTILITY COMPLETE.*
01134  M01S01108.lidou   +++|          NZ     X1,LED1     IF *L* DISPLAY ACTIVE
01135  M01S01109.lidou   +++|          RJ     POF         PROCESS OUTPUT FILE
01136  M01S01110.lidou   +++|          WRITER OUTPUT,R    FLUSH OUTPUT BUFFER
01137  M01S01111.lidou   +++|          EQ     LED2        ISSUE DAYFILE MESSAGE AND END
01138  M01S01112.lidou   +++|
01139  M01S01113.lidou   +++| LED1     RJ     FRS         FORMAT REQUESTED SCREEN
01140  M01S01114.lidou   +++|          DSDINP LBFI,C      DROP *L* DISPLAY
01141  M01S01115.lidou   +++| LED2     MESSAGE  DAFC,O,R  * LIDOU UTILITY COMPLETE.*
01142  M01S01116.lidou   +++|          ENDRUN
01143  M01S01117.lidou   +++| PCM      SPACE  4,15
01144  M01S01118.lidou   +++|**        PCM - PROCESS COMMANDS.
01145  M01S01119.lidou   +++|*
01146  M01S01120.lidou   +++|*         ENTRY  (B7) = 0.
01147  M01S01121.lidou   +++|*
01148  M01S01122.lidou   +++|*         EXIT   TO *LED* WHEN THE COMMAND *L.END* IS ENCOUNTERED.
01149  M01S01123.lidou   +++|*
01150  M01S01124.lidou   +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
01151  M01S01125.lidou   +++|*                A - 1, 5, 6.
01152  M01S01126.lidou   +++|*                B - 3, 7.
01153  M01S01127.lidou   +++|*
01154  M01S01128.lidou   +++|*         CALLS  FRS, GLT, LED, PIF, PKB, POF, POP, STP.
01155  M01S01129.lidou   +++|
01156  M01S01130.lidou   +++|
01157  M01S01131.lidou   +++| PCM      SUBR               ENTRY/EXIT
01158  M01S01132.lidou   +++| PCM1     SA1    CHDF        CHECK FOR CHANGE TO LID DISPLAY
01159  M01S01133.lidou   +++|          ZR     X1,PCM2     IF NO CHANGE
01160  M01S01134.lidou   +++|          SA1    LIDF        SET FET ADDRESS
01161  M01S01135.lidou   +++|          RJ     GLT         GET LID TABLE
01162  M01S01136.lidou   +++| PCM2     SA1    LDSF        CHECK *L* DISPLAY FLAG
01163  M01S01137.lidou   +++|          ZR     X1,PCM9     IF *L* DISPLAY NOT ACTIVE
Line S01138 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01164  M02S01138.241l630 ---| PCM3     RJ     FRS         FORMAT REQUESTED SCREEN
01165  M01S00026.241l630 +++| PCM3     SX6    B7+         SAVE MESSAGE ADDRESS
01166  M01S00027.241l630 +++|          SA6    EMAD
01167  M01S00028.241l630 +++|          RJ     FRS         FORMAT REQUESTED SCREEN
01168  M01S01139.lidou   +++|          MX0    -12         SET MASK
01169  M01S01140.lidou   +++|          RJ     PKB         GET KEYBOARD INPUT
01170  M01S01141.lidou   +++| PCM4     RJ     POP         PICK OUT FIRST PARAMETER
01171  M01S01142.lidou   +++|          ZR     X6,PCM7     IF NO PARAMETERS
01172  M01S01143.lidou   +++|          SX4    X1-1R.
01173  M01S01144.lidou   +++|          SA5    TLC1        CHECK FOR PRIMARY COMMAND MATCH
01174  M01S01145.lidou   +++|          ZR     X1,PCM6     IF ONLY ONE PARAMETER
01175  M01S01146.lidou   +++|          ZR     X4,PCM6     IF ONLY ONE PARAMETER
01176  M01S01147.lidou   +++|          MX0    -42         CHECK FOR MORE THAN 3 CHARACTERS
01177  M01S01148.lidou   +++|          BX4    -X0*X6
01178  M01S01149.lidou   +++|          NZ     X4,PCM8     IF MORE THAN THREE CHARACTERS
01179  M01S01150.lidou   +++|          RJ     STP         SEARCH TABLE FOR PID
01180  M01S01151.lidou   +++|          SB7    MSPN        * PID NOT FOUND.*
01181  M01S01152.lidou   +++|          NZ     X2,PCM1     IF PID NOT FOUND
01182  M01S01153.lidou   +++|          SA6    PARB+1      SAVE PID
01183  M01S01154.lidou   +++|          SX6    A5          SAVE PID ADDRESS
01184  M01S01155.lidou   +++|          SA6    A6+B1
01185  M01S01156.lidou   +++| PCM5     SX4    X1-1R,
01186  M01S01157.lidou   +++|          NZ     X4,PCM8     IF INITIAL SEPARATOR NOT *,*
01187  M01S01158.lidou   +++|          SA5    TLC2        CHECK FOR SECONDARY COMMAND MATCH
01188  M01S01159.lidou   +++|          RJ     POP         GET NEXT PARAMETER
01189  M01S01160.lidou   +++|          SX4    X1-1R=
01190  M01S01161.lidou   +++|          NZ     X4,PCM8     IF SECONDARY SEPARATOR NOT *=*
01191  M01S01162.lidou   +++| PCM6     MX0    42
01192  M01S01163.lidou   +++|          ZR     X5,PCM8     IF END OF TABLE
01193  M01S01164.lidou   +++|          BX2    X5-X6
01194  M01S01165.lidou   +++|          BX2    X0*X2
01195  M01S01166.lidou   +++|          SB3    X5
01196  M01S01167.lidou   +++|          SA5    A5+1
01197  M01S01168.lidou   +++|          NZ     X2,PCM6     IF NO MATCH
01198  M01S01169.lidou   +++|          JP     B3          PROCESS COMMAND
01199  M01S01170.lidou   +++|
01200  M01S01171.lidou   +++| PCM7     SX4    X1-1R+      CHECK FOR PAGE FORWARD COMMAND
01201  M01S01172.lidou   +++|          SX7    X1-1R-      CHECK FOR PAGE BACKWARD COMMAND
01202  M01S01173.lidou   +++|          ZR     X4,PSF      IF PAGE FORWARD COMMAND
01203  M01S01174.lidou   +++|          ZR     X7,PSB      IF PAGE BACKWARD COMMAND
01204  M01S01175.lidou   +++| PCM8     SB7    MSIC        * INCORRECT COMMAND.*
01205  M01S01176.lidou   +++|          EQ     PCM1        PROCESS NEXT COMMAND
01206  M01S01177.lidou   +++|
01207  M01S01178.lidou   +++| PCM9     RJ     POF         PROCESS OUTPUT FILE
01208  M01S01179.lidou   +++|          RJ     PIF         PROCESS INPUT FILE
01209  M01S01180.lidou   +++|          EQ     PCM4        PROCESS COMMAND
01210  M01S01181.lidou   +++|
01211  M01S01182.lidou   +++| TLC1     VFD    42/3LEND,18/LED
01212  M01S01183.lidou   +++|          VFD    42/3LOUT,18/POC
01213  M01S01184.lidou   +++|          VFD    42/4LHELP,18/THD
01214  M01S01185.lidou   +++|          VFD    42/4LBACK,18/TLD
01215  M01S01186.lidou   +++|          VFD    60/0        END OF PRIMARY COMMANDS
01216  M01S01187.lidou   +++|
01217  M01S01188.lidou   +++| TLC2     VFD    42/2LLD,18/SLA
01218  M01S01189.lidou   +++|          VFD    42/2LMF,18/SMF
01219  M01S01190.lidou   +++|          VFD    42/2LNT,18/SNS
01220  M01S01191.lidou   +++|          VFD    42/2LPA,18/SPA
01221  M01S01192.lidou   +++|          VFD    60/0        END OF SECONDARY COMMANDS
01222  M01S01193.lidou   +++|
01223  M01S01194.lidou   +++| PARB     VFD    12/0,12/1,36/0  FUNCTION CODE, PID COUNT
01224  M01S01195.lidou   +++|          VFD    18/0,42/0   PID, FUNCTION DEPENDENT DATA
01225  M01S01196.lidou   +++|          VFD    42/0,18/0   HOLDS PID ADDRESS FOR LID CHECKING
01226  M01S01197.lidou   +++| PIF      SPACE  4,20
01227  M01S01198.lidou   +++|**        PIF - PROCESS INPUT FILE.
01228  M01S01199.lidou   +++|*
01229  M01S01200.lidou   +++|*         EXIT   COMMAND UNPACKED TO *USBB* IN *COMCUSB*.
01230  M01S01201.lidou   +++|*                (USBC) = LAST WORD ADDRESS OF BUFFER.
01231  M01S01202.lidou   +++|*                (CMLN) = CHARACTER COUNT OF COMMAND.
01232  M01S01203.lidou   +++|*                (B6) = FIRST WORD ADDRESS OF BUFFER.
01233  M01S01204.lidou   +++|*
01234  M01S01205.lidou   +++|*         USES   X - 1, 6, 7.
01235  M01S01206.lidou   +++|*                A - 1, 6, 7.
01236  M01S01207.lidou   +++|*                B - 2, 6.
01237  M01S01208.lidou   +++|*
01238  M01S01209.lidou   +++|*         MACROS READS.
01239  M01S01210.lidou   +++|*
01240  M01S01211.lidou   +++|*         NOTE   IF NO COMMAND IS PRESENT AN *END* COMMAND
01241  M01S01212.lidou   +++|*                WILL BE MOVED INTO THE BUFFER TO TERMINATE
01242  M01S01213.lidou   +++|*                THE PROGRAM.  ALSO, IF THE COMMAND DOES
01243  M01S01214.lidou   +++|*                NOT TERMINATE IN A PERIOD THE NEXT WORD
01244  M01S01215.lidou   +++|*                IN THE BUFFER IS ZEROED TO SIGNIFY THE
01245  M01S01216.lidou   +++|*                END OF THE COMMAND TO *COMCPOP*.
01246  M01S01217.lidou   +++|
01247  M01S01218.lidou   +++|
01248  M01S01219.lidou   +++| PIF2     SX7    B6-B1
01249  M01S01220.lidou   +++|          SA1    B6-B1       CHECK FOR TERMINATOR
01250  M01S01221.lidou   +++|          SX1    X1-1R.
01251  M01S01222.lidou   +++|          SX6    B0
01252  M01S01223.lidou   +++|          ZR     X1,PIF3     IF *.* TERMINATOR
01253  M01S01224.lidou   +++|          SA6    B6          SIGNIFY END OF COMMAND
01254  M01S01225.lidou   +++| PIF3     SX6    B6-USBB     SAVE COMMAND LENGTH
01255  M01S01226.lidou   +++|          SA6    CMLN
01256  M01S01227.lidou   +++|          SB6    USBB        RESET TO START OF BUFFER
01257  M01S01228.lidou   +++|          SA7    USBC
01258  M01S01229.lidou   +++|
01259  M01S01230.lidou   +++| PIF      SUBR               ENTRY/EXIT
01260  M01S01231.lidou   +++|          SX6    B0+         CLEAR BUFFER
01261  M01S01232.lidou   +++|          SB2    80
01262  M01S01233.lidou   +++| PIF1     SA6    USBB+B2
01263  M01S01234.lidou   +++|          SB2    B2-1
01264  M01S01235.lidou   +++|          PL     B2,PIF1     IF NOT DONE
01265  M01S01236.lidou   +++|          READS  INPUT,USBB,80  READ COMMAND
01266  M01S01237.lidou   +++|          ZR     X1,PIF2     IF COMMAND PRESENT
01267  M01S01238.lidou   +++|          SX6    1RE         SET *END* COMMAND
01268  M01S01239.lidou   +++|          SA6    USBB
01269  M01S01240.lidou   +++|          SX6    1RN
01270  M01S01241.lidou   +++|          SA6    A6+B1
01271  M01S01242.lidou   +++|          SX6    1RD
01272  M01S01243.lidou   +++|          SA6    A6+B1
01273  M01S01244.lidou   +++|          SX6    1R.
01274  M01S01245.lidou   +++|          SB6    USBB+4      SET COMMAND LENGTH
01275  M01S01246.lidou   +++|          SA6    A6+B1
01276  M01S01247.lidou   +++|          SX7    B6
01277  M01S01248.lidou   +++|          EQ     PIF3        SAVE COMMAND LENGTH
01278  M01S01249.lidou   +++| PKB      SPACE  4,15
01279  M01S01250.lidou   +++|**        PKB - PROCESS KEYBOARD.
01280  M01S01251.lidou   +++|*
01281  M01S01252.lidou   +++|*         ENTRY  (X0) = 42 BIT MASK, LEFT JUSTIFIED.
01282  M01S01253.lidou   +++|*
01283  M01S01254.lidou   +++|*         EXIT   *L* DISPLAY INPUT IN *LBFI*, AND
01284  M01S01255.lidou   +++|*                UNPACKED TO *USBB* IN *COMCUSB*.
01285  M01S01256.lidou   +++|*
Line S01257 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01286  M02S01257.241l630 ---|*         USES   X - 1, 6.
01287  M01S00029.241l630 +++|*         USES   X - 0, 1, 6.
01288  M01S01258.lidou   +++|*                A - 1, 6.
Line S01259 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01289  M02S01259.241l630 ---|*                B - 2.
01290  M01S00030.241l630 +++|*                B - 2, 7.
01291  M01S01260.lidou   +++|*
Line S01261 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01292  M02S01261.241l630 ---|*         CALLS  USB.
01293  M01S00031.241l630 +++|*         CALLS  FRS, GLT, USB.
01294  M01S01262.lidou   +++|*
01295  M01S01263.lidou   +++|*         MACROS DSDINP, ROLLOUT.
01296  M01S01264.lidou   +++|
01297  M01S01265.lidou   +++|
01298  M01S01266.lidou   +++| PKB2     SX6    B0+         CLEAR BUFFER
01299  M01S01267.lidou   +++|          SB2    80
01300  M01S01268.lidou   +++| PKB3     SA6    USBB+B2
01301  M01S01269.lidou   +++|          SB2    B2-1
01302  M01S01270.lidou   +++|          PL     B2,PKB3     IF NOT DONE
01303  M01S01271.lidou   +++|          SB2    LBFI+1      UNPACK COMMAND
01304  M01S01272.lidou   +++|          RJ     USB
01305  M01S01273.lidou   +++|
01306  M01S01274.lidou   +++| PKB      SUBR               ENTRY/EXIT
01307  M01S01275.lidou   +++| PKB1     DSDINP LBFI        CHECK FOR *L* DISPLAY INPUT
01308  M01S01276.lidou   +++|          SA1    LBFI
01309  M01S01277.lidou   +++|          BX1    -X0*X1
01310  M01S01278.lidou   +++|          AX1    1           IGNORE COMPLETION BIT
01311  M01S01279.lidou   +++|          SX1    X1-INPC
01312  M01S01280.lidou   +++|          NZ     X1,PKB2     IF INPUT
01313  M01S01281.lidou   +++|          ROLLOUT  ROLL      ROLLOUT UNTIL *L* DISPLAY INPUT
01314  M01S01282.lidou   +++|
01315  M01S01283.lidou   +++|*         REFRESH THE SCREEN.
01316  M01S01284.lidou   +++|
01317  M01S01285.lidou   +++|          SA1    LIDF        SET FET ADDRESS
01318  M01S01286.lidou   +++|          RJ     GLT         GET LID TABLE
Line S01287 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01319  M02S01287.241l630 ---|          SB7    B0          FORMAT DEFAULT MESSAGE
01320  M01S00032.241l630 +++|          SA1    EMAD        GET ERROR MESSAGE ADDRESS
01321  M01S00033.241l630 +++|          SB7    X1
01322  M01S01288.lidou   +++|          SX6    B1          SET LID DISPLAY CHANGE FLAG
01323  M01S01289.lidou   +++|          SA6    CHDF
01324  M01S01290.lidou   +++|          RJ     FRS         FORMAT REQUESTED SCREEN
01325  M01S01291.lidou   +++|          MX0    -12
01326  M01S01292.lidou   +++|          EQ     PKB1        CHECK FOR INPUT
01327  M01S01293.lidou   +++| POC      SPACE  4,15
01328  M01S01294.lidou   +++|**        POC - PROCESS OUT COMMAND.
01329  M01S01295.lidou   +++|*
01330  M01S01296.lidou   +++|*         EXIT   TO *PCM3* (IF *L* DISPLAY IS ACTIVE).
01331  M01S01297.lidou   +++|*                TO *PCM9* (IF *L* DISPLAY INACTIVE).
01332  M01S01298.lidou   +++|*                (POFA) = -1, IF *L* DISPLAY INACTIVE.
01333  M01S01299.lidou   +++|*
01334  M01S01300.lidou   +++|*         USES   X - 1, 2, 6.
01335  M01S01301.lidou   +++|*                A - 0, 1, 6.
01336  M01S01302.lidou   +++|*                B - 7.
01337  M01S01303.lidou   +++|*
01338  M01S01304.lidou   +++|*         CALLS  FLT.
01339  M01S01305.lidou   +++|*
01340  M01S01306.lidou   +++|*         MACROS ROUTE, WRITER.
01341  M01S01307.lidou   +++|
01342  M01S01308.lidou   +++|
01343  M01S01309.lidou   +++| POC      SA1    LDSF        CHECK *L* DISPLAY FLAG
01344  M01S01310.lidou   +++|          ZR     X1,POC1     IF *L* DISPLAY NOT ACTIVE
01345  M01S01311.lidou   +++|          SA1    OUTPUT+1    REWIND FET
01346  M01S01312.lidou   +++|          SX6    X1
01347  M01S01313.lidou   +++|          SA6    A1+B1
01348  M01S01314.lidou   +++|          SA6    A1+B1
01349  M01S01315.lidou   +++|          SA0    B1
01350  M01S01316.lidou   +++|          RJ     FLT         FORMAT LISTING OF LID TABLE
01351  M01S01317.lidou   +++|          WRITER OUTPUT,R    FLUSH OUTPUT BUFFER
01352  M01S01318.lidou   +++|          SA1    ROTB        CLEAR COMPLETE BIT IN ROUTE BLOCK
01353  M01S01319.lidou   +++|          MX2    59
01354  M01S01320.lidou   +++|          BX6    X2*X1
Line S01321 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01355  M02S01321.241l630 ---|          SA6    A1
01356  M01S00034.241l630 +++|          SA6    A1
01357  M01S01322.lidou   +++|          ROUTE  ROTB,R      ROUTE FILE
01358  M01S01323.lidou   +++|          SB7    MSCP        * COMMAND PROCESSED.*
01359  M01S01324.lidou   +++|          EQ     PCM3        CONTINUE PROCESSING COMMAND
01360  M01S01325.lidou   +++|
01361  M01S01326.lidou   +++| POC1     SX6    -B1         CLEAR OUTPUT FILE LINE COUNT
01362  M01S01327.lidou   +++|          SA6    POFA
01363  M01S01328.lidou   +++|          SA0    B1
01364  M01S01329.lidou   +++|          RJ     FLT         FORMAT LISTING OF LID TABLE
01365  M01S01330.lidou   +++|          SB7    MSCP        * COMMAND PROCESSED.*
01366  M01S01331.lidou   +++|          EQ     PCM9        CONTINUE PROCESSING COMMAND
01367  M01S01332.lidou   +++| POF      SPACE  4,15
01368  M01S01333.lidou   +++|**        POF - PROCESS OUTPUT FILE.
01369  M01S01334.lidou   +++|*
01370  M01S01335.lidou   +++|*         ENTRY  (CMLN) = CHARACTER COUNT OF COMMAND.
01371  M01S01336.lidou   +++|*                (B7) = 0, IF INITIAL CALL.
01372  M01S01337.lidou   +++|*                     = ADDRESS OF COMMAND RESPONSE,
01373  M01S01338.lidou   +++|*                       IF NOT INITIAL CALL.
01374  M01S01339.lidou   +++|*
01375  M01S01340.lidou   +++|*         EXIT   OUTPUT LINE WRITTEN TO OUTPUT FET.
01376  M01S01341.lidou   +++|*
01377  M01S01342.lidou   +++|*         USES   X - 1, 2, 6, 7.
01378  M01S01343.lidou   +++|*                A - 0, 1, 2, 6, 7.
01379  M01S01344.lidou   +++|*                B - 7.
01380  M01S01345.lidou   +++|*
01381  M01S01346.lidou   +++|*         MACROS WRITEC, WRITEH, WRITEO, WRITES, WRITEW.
01382  M01S01347.lidou   +++|
01383  M01S01348.lidou   +++|
01384  M01S01349.lidou   +++| POF2     SX6    X1-2        DECREMENT LINE COUNT
01385  M01S01350.lidou   +++|          SA6    POFA
01386  M01S01351.lidou   +++|          SA1    BLKS        WRITE BLANK WORD
01387  M01S01352.lidou   +++|          BX6    X1
01388  M01S01353.lidou   +++|          WRITEO OUTPUT
01389  M01S01354.lidou   +++|          SA1    CMLN        GET COMMAND LENGTH
01390  M01S01355.lidou   +++|          SB7    X1+
01391  M01S01356.lidou   +++|          WRITES OUTPUT,USBB,B7  ECHO COMMAND
01392  M01S01357.lidou   +++|          SA1    BLKS+1      WRITE RESPONSE
01393  M01S01358.lidou   +++|          SA2    A0
01394  M01S01359.lidou   +++|          BX6    X1
01395  M01S01360.lidou   +++|          BX7    X2
01396  M01S01361.lidou   +++|          SA6    WBUF
01397  M01S01362.lidou   +++|          SA7    A6+B1
01398  M01S01363.lidou   +++|          SA1    A1+B1
01399  M01S01364.lidou   +++|          SA2    A2+B1
01400  M01S01365.lidou   +++|          BX6    X1
01401  M01S01366.lidou   +++|          BX7    X2
01402  M01S01367.lidou   +++|          SA7    A7+B1
01403  M01S01368.lidou   +++|          SA6    A7+B1
01404  M01S01369.lidou   +++|          WRITEH OUTPUT,WBUF,4
01405  M01S01370.lidou   +++|
01406  M01S01371.lidou   +++| POF      SUBR               ENTRY/EXIT
01407  M01S01372.lidou   +++|          NZ     B7,POF1     IF NOT INITIAL CALL
01408  M01S01373.lidou   +++|          WRITEC OUTPUT,PDFC  WRITE PRINT DENSITY FORMAT EFFECTOR
01409  M01S01374.lidou   +++|          SX6    B1+         SET PRINT DENSITY FORMAT EFFECTOR FLAG
01410  M01S01375.lidou   +++|          SA6    PDFE
01411  M01S01376.lidou   +++|          WRITEW OUTPUT,HLPA,15  WRITE PAGE HEADER
01412  M01S01377.lidou   +++|          SA1    LCNT        SET LINE COUNT
01413  M01S01378.lidou   +++|          SX6    X1+
01414  M01S01379.lidou   +++|          SA6    POFA
01415  M01S01380.lidou   +++|          EQ     POFX        RETURN
01416  M01S01381.lidou   +++|
01417  M01S01382.lidou   +++| POF1     SA0    B7+         SAVE COMMAND RESPONSE ADDRESS
01418  M01S01383.lidou   +++|          SA1    POFA        CHECK LINE COUNT
01419  M01S01384.lidou   +++|          PL     X1,POF2     IF STILL MORE LINES ON PAGE
01420  M01S01385.lidou   +++|          WRITEW OUTPUT,HLPA,15  WRITE PAGE HEADER
01421  M01S01386.lidou   +++|          SA1    LCNT        SET LINE COUNT
01422  M01S01387.lidou   +++|          EQ     POF2        DECREMENT LINE COUNT
01423  M01S01388.lidou   +++|
01424  M01S01389.lidou   +++| POFA     CON    -1          HOLDS LINE COUNT
01425  M01S01390.lidou   +++| PSB      SPACE  4,20
01426  M01S01391.lidou   +++|**        PSB - PAGE SCREEN BACKWARD.
01427  M01S01392.lidou   +++|*
01428  M01S01393.lidou   +++|*         ENTRY  (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
01429  M01S01394.lidou   +++|*                         DISPLAYED ON SCREEN.
01430  M01S01395.lidou   +++|*                (HLPF) = 1, IF HELP DISPLAY IS ACTIVE.
01431  M01S01396.lidou   +++|*
01432  M01S01397.lidou   +++|*         EXIT   TO *PCM3* IF NO ERRORS WERE ENCOUNTERED.
01433  M01S01398.lidou   +++|*                TO *PCM1* IF *L* DISPLAY NOT ACTIVE.
01434  M01S01399.lidou   +++|*                TO *PCM1* IF TOO MANY PARAMETERS.
01435  M01S01400.lidou   +++|*                (IND1) UPDATED IF LID DISPLAY CHANGED.
01436  M01S01401.lidou   +++|*                (PONE) = ADDRESS OF CURRENT HELP PAGE.
01437  M01S01402.lidou   +++|*                (CHDF) = 1, IF LID DISPLAY CHANGED.
01438  M01S01403.lidou   +++|*                (B7) = ADDRESS OF RESPONSE.
01439  M01S01404.lidou   +++|*
01440  M01S01405.lidou   +++|*         USES   X - 1, 2, 6, 7.
01441  M01S01406.lidou   +++|*                A - 1, 2, 6, 7.
01442  M01S01407.lidou   +++|*                B - 7.
01443  M01S01408.lidou   +++|*
01444  M01S01409.lidou   +++|*         CALLS  POP.
01445  M01S01410.lidou   +++|
01446  M01S01411.lidou   +++|
01447  M01S01412.lidou   +++| PSB      SA1    LDSF        CHECK IF *L* DISPLAY ACTIVE
01448  M01S01413.lidou   +++|          SB7    MSIC        * INCORRECT COMMAND.*
01449  M01S01414.lidou   +++|          ZR     X1,PCM1     IF INCORRECT COMMAND FOR INPUT FILE
01450  M01S01415.lidou   +++|          RJ     POP         CHECK FOR MORE COMMAND
01451  M01S01416.lidou   +++|          SB7    MSTP        * EXCESS PARAMETERS.*
Line S01417 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01452  M02S01417.241l630 ---|          NZ     X1,PCM1     IF TOO MANY PARAMETERS
Line S01418 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01453  M02S01418.241l630 ---|          SB7    MSCP        * COMMAND PROCESSED.*
01454  M01S00035.241l630 +++|          NZ     X6,PCM1     IF TOO MANY PARAMETERS
01455  M01S00036.241l630 +++|          SB7    B0+         CLEAR ERROR MESSAGE
01456  M01S01419.lidou   +++|          SA1    HLPF        CHECK IF HELP DISPLAY IS ACTIVE
01457  M01S01420.lidou   +++|          NZ     X1,PSB3     IF HELP DISPLAY IS ACTIVE
01458  M01S01421.lidou   +++|          SA1    IND1        CHECK IF FIRST SCREEN
01459  M01S01422.lidou   +++|          SX2    X1-1
01460  M01S01423.lidou   +++|          ZR     X2,PCM3     IF FIRST SCREEN
Line S01424 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01461  M02S01424.241l630 ---|          SA2    NMLL        PAGE BACKWARDS
01462  M01S00037.241l630 +++|          SX2    NMLL        PAGE BACKWARDS
01463  M01S01425.lidou   +++|          IX6    X1-X2
01464  M01S01426.lidou   +++|          SX6    X6-1
01465  M01S01427.lidou   +++|          PL     X6,PSB1     IF WITHIN BOUNDS
01466  M01S01428.lidou   +++|          SX6    B1+         RESET TO START OF BUFFER
01467  M01S01429.lidou   +++|          EQ     PSB2        SAVE INDEX AND SET CHANGED FLAG
01468  M01S01430.lidou   +++|
01469  M01S01431.lidou   +++| PSB1     SA1    LIDI+X6     CHECK FOR SPACER WORD
01470  M01S01432.lidou   +++|          LX1    18
01471  M01S01433.lidou   +++|          SX1    X1
01472  M01S01434.lidou   +++|          NZ     X1,PSB2     IF LID OR PID WORD
01473  M01S01435.lidou   +++|          SX6    X6+1
01474  M01S01436.lidou   +++|          EQ     PSB1        CHECK FOR SECOND SPACER WORD
01475  M01S01437.lidou   +++|
01476  M01S01438.lidou   +++| PSB2     SA6    IND1        SAVE INDEX
01477  M01S01439.lidou   +++|          SX6    B1+         SET LID DISPLAY CHANGED FLAG
01478  M01S01440.lidou   +++|          SA6    CHDF
01479  M01S01441.lidou   +++|          EQ     PCM3        PROCESS NEXT COMMAND
01480  M01S01442.lidou   +++|
Line S01443 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01481  M02S01443.241l630 ---| PSB3     SA1    PONE        SWAP PAGE HELP PAGE ADDRESSES
01482  M01S00038.241l630 +++| PSB3     SA1    PONE        CHECK IF ALREADY PAGE ONE OF HELP DISPLAY
01483  M01S00039.241l630 +++|          SX2    HLPB        PAGE ONE OF HELP DISPLAY
01484  M01S00040.241l630 +++|          SB7    B0          CLEAR ERROR MESSAGE
01485  M01S00041.241l630 +++|          BX2    X2-X1
01486  M01S00042.241l630 +++|          ZR     X2,PCM3     IF ALREADY ON FIRST PAGE OF HELP DISPLAY
01487  M01S01444.lidou   +++|          SA2    PTWO
01488  M01S01445.lidou   +++|          BX6    X1
01489  M01S01446.lidou   +++|          BX7    X2
01490  M01S01447.lidou   +++|          SA6    A2
01491  M01S01448.lidou   +++|          SA7    A1
Line S01449 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01492  M02S01449.241l630 ---|          SB7    B0          FORMAT DEFAULT MESSAGE
01493  M01S01450.lidou   +++|          EQ     PCM3        PROCESS NEXT COMMAND
01494  M01S01451.lidou   +++| PSF      SPACE  4,20
01495  M01S01452.lidou   +++|**        PSF - PAGE SCREEN FORWARD.
01496  M01S01453.lidou   +++|*
01497  M01S01454.lidou   +++|*         ENTRY  (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
01498  M01S01455.lidou   +++|*                         DISPLAYED ON SCREEN.
01499  M01S01456.lidou   +++|*                (IND2) = INDEX INTO *LIDI* OF NEXT ENTRY,
01500  M01S01457.lidou   +++|*                         NOT YET DISPLAYED ON SCREEN.
01501  M01S01458.lidou   +++|*                (HLPF) = 1, IF HELP DISPLAY IS ACTIVE.
01502  M01S01459.lidou   +++|*
01503  M01S01460.lidou   +++|*         EXIT   TO *PCM3* IF NO ERRORS WERE ENCOUNTERED.
01504  M01S01461.lidou   +++|*                TO *PCM1* IF *L* DISPLAY NOT ACTIVE.
01505  M01S01462.lidou   +++|*                TO *PCM1* IF TOO MANY PARAMETERS.
01506  M01S01463.lidou   +++|*                (IND1) UPDATED IF LID DISPLAY CHANGED.
01507  M01S01464.lidou   +++|*                (PONE) = ADDRESS OF CURRENT HELP PAGE.
01508  M01S01465.lidou   +++|*                (CHDF) = 1, IF LID DISPLAY CHANGED.
01509  M01S01466.lidou   +++|*                (B7) = ADDRESS OF RESPONSE.
01510  M01S01467.lidou   +++|*
01511  M01S01468.lidou   +++|*         USES   X - 1, 2, 3, 6, 7.
01512  M01S01469.lidou   +++|*                A - 1, 2, 6, 7.
01513  M01S01470.lidou   +++|*                B - 7.
01514  M01S01471.lidou   +++|*
01515  M01S01472.lidou   +++|*         CALLS  POP.
01516  M01S01473.lidou   +++|
01517  M01S01474.lidou   +++|
01518  M01S01475.lidou   +++| PSF      SA1    LDSF        CHECK IF *L* DISPLAY ACTIVE
01519  M01S01476.lidou   +++|          SB7    MSIC        * INCORRECT COMMAND.*
01520  M01S01477.lidou   +++|          ZR     X1,PCM1     IF INCORRECT COMMAND FOR INPUT FILE
01521  M01S01478.lidou   +++|          RJ     POP         CHECK FOR MORE COMMAND
01522  M01S01479.lidou   +++|          SB7    MSTP        * EXCESS PARAMETERS.*
Line S01480 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01523  M02S01480.241l630 ---|          NZ     X1,PCM1     IF TOO MANY PARAMETERS
Line S01481 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01524  M02S01481.241l630 ---|          SB7    MSCP        * COMMAND PROCESSED.*
01525  M01S00043.241l630 +++|          NZ     X6,PCM1     IF TOO MANY PARAMETERS
01526  M01S00044.241l630 +++|          SB7    B0+         CLEAR ERROR MESSAGE
01527  M01S01482.lidou   +++|          SA1    HLPF        CHECK IF HELP DISPLAY IS ACTIVE
01528  M01S01483.lidou   +++|          NZ     X1,PSF3     IF HELP DISPLAY IS ACTIVE
01529  M01S01484.lidou   +++|          SA1    LIDI        CHECK IF LAST SCREEN
01530  M01S01485.lidou   +++|          SX7    B1          SET LID TABLE CHANGED FLAG
01531  M01S01486.lidou   +++|          SX6    B1          SET LOOP TO FIRST SCREEN
01532  M01S01487.lidou   +++|          SA2    IND2
01533  M01S01488.lidou   +++|          IX3    X2-X1
01534  M01S01489.lidou   +++|          PL     X3,PSF2     IF LAST SCREEN
01535  M01S01490.lidou   +++|          BX6    X2          PAGE FORWARD
01536  M01S01491.lidou   +++| PSF1     SA1    LIDI+X6     CHECK FOR SPACER WORD
01537  M01S01492.lidou   +++|          LX1    18
01538  M01S01493.lidou   +++|          SX1    X1
01539  M01S01494.lidou   +++|          NZ     X1,PSF2     IF LID OR PID WORD
01540  M01S01495.lidou   +++|          SX6    X6-1
01541  M01S01496.lidou   +++|          EQ     PSF1        CHECK FOR SECOND SPACER WORD
01542  M01S01497.lidou   +++|
01543  M01S01498.lidou   +++| PSF2     SA6    IND1        SAVE INDEX
01544  M01S01499.lidou   +++|          SA7    CHDF        SAVE LID TABLE CHANGED FLAG
01545  M01S01500.lidou   +++|          EQ     PCM3        CONTINUE PROCESSING COMMAND
01546  M01S01501.lidou   +++|
01547  M01S01502.lidou   +++| PSF3     SA1    PONE        SWAP PAGE HELP PAGE ADDRESSES
01548  M01S01503.lidou   +++|          SA2    PTWO
01549  M01S01504.lidou   +++|          BX6    X1
01550  M01S01505.lidou   +++|          BX7    X2
01551  M01S01506.lidou   +++|          SA6    A2
01552  M01S01507.lidou   +++|          SA7    A1
Line S01508 Modification History
M01 (Added by) lidou
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01553  M02S01508.241l630 ---|          SB7    B0          FORMAT DEFAULT MESSAGE
01554  M01S00045.241l630 +++|          SB7    B0+         CLEAR ERROR MESSAGE
01555  M01S01509.lidou   +++|          EQ     PCM3        PROCESS NEXT COMMAND
01556  M01S01510.lidou   +++| RLD      SPACE  4,15
01557  M01S01511.lidou   +++|**        RLD - REFORMAT LID TABLE.
01558  M01S01512.lidou   +++|*
01559  M01S01513.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE LID TABLE FROM CORE.
01560  M01S01514.lidou   +++|*                (A1) = FIRST WORD ADDRESS OF *LIDI*.
01561  M01S01515.lidou   +++|*                (X7) = NUMBER OF PIDS IN TABLE.
01562  M01S01516.lidou   +++|*
01563  M01S01517.lidou   +++|*         EXIT   *LIDI* CONTAINS THE REFORMATTED LID TABLE.
01564  M01S01518.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
01565  M01S01519.lidou   +++|*
01566  M01S01520.lidou   +++|*         USES   X - ALL.
01567  M01S01521.lidou   +++|*                A - 1, 6, 7.
01568  M01S01522.lidou   +++|*                B - 2, 3, 4.
01569  M01S01523.lidou   +++|*
01570  M01S01524.lidou   +++|*         CALLS  GPL.
01571  M01S01525.lidou   +++|
01572  M01S01526.lidou   +++|
01573  M01S01527.lidou   +++| RLD      SUBR               ENTRY/EXIT
01574  M01S01528.lidou   +++|          SA6    LIDI        PRESET ADDRESS IN *LIDI*
01575  M01S01529.lidou   +++|          SA7    MFTB        SAVE NUMBER OF PIDS
01576  M01S01530.lidou   +++| RLD1     MX0    42          SET MASKS
01577  M01S01531.lidou   +++|          MX5    -12
01578  M01S01532.lidou   +++|          SA1    A1+B1       GET PID WORD
01579  M01S01533.lidou   +++|          BX2    -X5*X1      MASK OFF NETWORK INFORMATION
01580  M01S01534.lidou   +++|          BX3    X0*X1
01581  M01S01535.lidou   +++|          SA1    A1+B1       GET MAINFRAME DESCRIPTOR
01582  M01S01536.lidou   +++|          BX7    X0*X1
01583  M01S01537.lidou   +++|          BX4    -X5*X1      MASK OFF NEXT PID OFFSET
01584  M01S01538.lidou   +++|          SA1    A1+B1       GET NUMBER OF LID SLOTS
01585  M01S01539.lidou   +++|          SX6    A7+B1
01586  M01S01540.lidou   +++|          BX7    X7+X2
01587  M01S01541.lidou   +++|          BX6    X3+X6
01588  M01S01542.lidou   +++|          SA7    A7+B1       SAVE MAINFRAME AND NETWORK INFORMATION
01589  M01S01543.lidou   +++|          SA6    A6+B1       SAVE PID, ATTRIBUTES AND *MFTB* ADDRESS
01590  M01S01544.lidou   +++|          RJ     GPL         GET PID LINES
01591  M01S01545.lidou   +++|          BX3    -X5*X1
01592  M01S01546.lidou   +++|          SB2    X3          SET SLOT COUNT
01593  M01S01547.lidou   +++|          SB3    X3          SET NON EMPTY SLOT COUNT
01594  M01S01548.lidou   +++|          MX6    24
01595  M01S01549.lidou   +++|          EQ     B4,B1,RLD2  IF NO EXTRA LINES
01596  M01S01550.lidou   +++|          LX6    -18
01597  M01S01551.lidou   +++|          SA6    A6+B1       STORE DUMMY PID ENTRY
01598  M01S01552.lidou   +++|          SB4    B4-B1
01599  M01S01553.lidou   +++|          EQ     B4,B1,RLD2  IF ONE EXTRA LINE
01600  M01S01554.lidou   +++|          SA6    A6+B1       STORE DUMMY PID ENTRY
01601  M01S01555.lidou   +++| RLD2     SA1    A1+B1       GET LID
01602  M01S01556.lidou   +++|          BX6    X0*X1
01603  M01S01557.lidou   +++|          ZR     X6,RLD3     IF EMPTY SLOT
01604  M01S01558.lidou   +++|          SA6    A6+1        SAVE LID
01605  M01S01559.lidou   +++|          SB3    B3-1        DECREMENT NON EMPTY SLOT COUNT
01606  M01S01560.lidou   +++| RLD3     SB2    B2-B1       DECREMENT SLOT COUNT
01607  M01S01561.lidou   +++|          NZ     B2,RLD2     IF MORE SLOTS TO CHECK
01608  M01S01562.lidou   +++|          MX6    24
01609  M01S01563.lidou   +++|          ZR     B3,RLD4     IF NO EMPTY SLOTS
01610  M01S01564.lidou   +++|          LX6    -18
01611  M01S01565.lidou   +++|          SA6    A6+B1       SIGNIFY EMPTY LID
01612  M01S01566.lidou   +++| RLD4     NZ     X4,RLD1     IF NOT END OF TABLE
01613  M01S01567.lidou   +++|          SA1    LIDI        SAVE LARGEST TABLE INDEX
01614  M01S01568.lidou   +++|          SB2    A1
01615  M01S01569.lidou   +++|          SX7    A6-B2
01616  M01S01570.lidou   +++|          SA7    A1
01617  M01S01571.lidou   +++|          BX6    X6-X6       ZERO WORD FOR END OF REFORMATTED TABLE
01618  M01S01572.lidou   +++|          SA6    A6+1
01619  M01S01573.lidou   +++|          EQ     RLDX        RETURN
01620  M01S01574.lidou   +++| SET      SPACE  4,15
01621  M01S01575.lidou   +++|**        SET - SET ATTRIBUTE(S).
01622  M01S01576.lidou   +++|*
01623  M01S01577.lidou   +++|*         ENTRY  (X7) = FUNCTION CODE AND PID COUNT FOR
01624  M01S01578.lidou   +++|*                       FIRST WORD OF PARAMETER BLOCK.
01625  M01S01579.lidou   +++|*                (X6) = BOTTOM 42 BITS FOR SECOND WORD.
01626  M01S01580.lidou   +++|*
01627  M01S01581.lidou   +++|*         EXIT   (X4) = RETURN CODE FROM *SETPIDA*.
01628  M01S01582.lidou   +++|*
01629  M01S01583.lidou   +++|*         USES   X - 0, 4, 6, 7.
01630  M01S01584.lidou   +++|*                A - 4, 6, 7.
01631  M01S01585.lidou   +++|*
01632  M01S01586.lidou   +++|*         MACROS SETPIDA.
01633  M01S01587.lidou   +++|
01634  M01S01588.lidou   +++|
01635  M01S01589.lidou   +++| SET      SUBR               ENTRY/EXIT
01636  M01S01590.lidou   +++|          LX7    36          POSITION FUNCTION CODE AND PID COUNT
01637  M01S01591.lidou   +++|          SX4    B1+         SET FET NOT BUSY
01638  M01S01592.lidou   +++|          BX7    X7+X4
01639  M01S01593.lidou   +++|          SA7    PARB        SET FIRST WORD INTO PARAMETER BLOCK
01640  M01S01594.lidou   +++|          SA4    A7+B1       SET BOTTOM 42 BITS INTO SECOND WORD
01641  M01S01595.lidou   +++|          MX0    18
01642  M01S01596.lidou   +++|          BX4    X0*X4
01643  M01S01597.lidou   +++|          BX6    X4+X6
01644  M01S01598.lidou   +++|          SA6    A4
01645  M01S01599.lidou   +++|          MX0    -8
01646  M01S01600.lidou   +++|          SETPIDA  PARB      MAKE *SFM* CALL
01647  M01S01601.lidou   +++|          SA4    PARB        MASK OFF RETURN CODE
01648  M01S01602.lidou   +++|          LX4    -10
01649  M01S01603.lidou   +++|          BX4    -X0*X4
01650  M01S01604.lidou   +++|          EQ     SETX        RETURN
01651  M01S01605.lidou   +++| SLA      SPACE  4,25
01652  M01S01606.lidou   +++|**        SLA - SET LID ATTRIBUTE(S).
01653  M01S01607.lidou   +++|*
01654  M01S01608.lidou   +++|*         EXIT   TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR.
01655  M01S01609.lidou   +++|*                TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS.
01656  M01S01610.lidou   +++|*                (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS.
01657  M01S01611.lidou   +++|*                (CHDF) = 1, IF THE LID TABLE CHANGED.
01658  M01S01612.lidou   +++|*                (B7) = ADDRESS OF RESPONSE.
01659  M01S01613.lidou   +++|*
01660  M01S01614.lidou   +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
01661  M01S01615.lidou   +++|*                A - 4.
01662  M01S01616.lidou   +++|*                B - 7.
01663  M01S01617.lidou   +++|*
01664  M01S01618.lidou   +++|*         CALLS  POP, SET, SLF, STL.
01665  M01S01619.lidou   +++|*
01666  M01S01620.lidou   +++|*         NOTE   ATTRIBUTES *D* AND *E* CANNOT BE SPECIFIED TOGETHER
01667  M01S01621.lidou   +++|*                AND IF NEITHER IS SPECIFIED THE PRESENT STATUS WILL
01668  M01S01622.lidou   +++|*                BE USED WHEN ALTERING ATTRIBUTES AND THE DEFAULT
01669  M01S01623.lidou   +++|*                STATUS OF ENABLE WILL BE USED WHEN ADDING A LID.
01670  M01S01624.lidou   +++|*                ATTRIBUTES *S* AND *B* CANNOT BE SPECIFIED TOGETHER
01671  M01S01625.lidou   +++|*                AND *B* IS NOT ALLOWED ON A LINKED PID.  THE *V*
01672  M01S01626.lidou   +++|*                ATTRIBUTE CAN ONLY BE SET IF THE *S* ATTRIBUTE IS SET.
01673  M01S01627.lidou   +++|
01674  M01S01628.lidou   +++|
01675  M01S01629.lidou   +++| SLA      MX4    6           SET MASKS
01676  M01S01630.lidou   +++|          MX0    -42
01677  M01S01631.lidou   +++|          RJ     POP         GET NEXT PARAMETER
01678  M01S01632.lidou   +++|          SB7    MSIP        * INCORRECT SEPARATOR.*
01679  M01S01633.lidou   +++|          SX7    X1-1R,
01680  M01S01634.lidou   +++|          NZ     X7,PCM1     IF SEPARATOR NOT *,*
01681  M01S01635.lidou   +++|          SB7    MSIL        * INCORRECT LID.*
01682  M01S01636.lidou   +++|          BX0    -X0*X6      CHECK FOR CORRECT LID
01683  M01S01637.lidou   +++|          BX7    X4*X6
01684  M01S01638.lidou   +++|          NZ     X0,PCM1     IF MORE THAN THREE CHARACTERS
01685  M01S01639.lidou   +++|          LX4    -6
01686  M01S01640.lidou   +++|          BX5    X4*X6
01687  M01S01641.lidou   +++|          LX4    -6
01688  M01S01642.lidou   +++|          BX4    X4*X6
01689  M01S01643.lidou   +++|          LX7    6           POSITION CHARACTERS
01690  M01S01644.lidou   +++|          LX5    12
01691  M01S01645.lidou   +++|          LX4    18
01692  M01S01646.lidou   +++|          MX2    42          SET MASK
01693  M01S01647.lidou   +++|          ZR     X7,PCM1     IF NO FIRST CHARACTER
01694  M01S01648.lidou   +++|          ZR     X5,PCM1     IF NO SECOND CHARACTER
01695  M01S01649.lidou   +++|          ZR     X4,PCM1     IF NO THIRD CHARACTER
01696  M01S01650.lidou   +++|          SX7    X7-1R9-1    CHECK FOR ALPHANUMERIC CHARACTERS
01697  M01S01651.lidou   +++|          SX5    X5-1R9-1
01698  M01S01652.lidou   +++|          SX4    X4-1R9-1
01699  M01S01653.lidou   +++|          PL     X7,PCM1     IF INCORRECT FIRST CHARACTER
01700  M01S01654.lidou   +++|          PL     X5,PCM1     IF INCORRECT SECOND CHARACTER
01701  M01S01655.lidou   +++|          PL     X4,PCM1     IF INCORRECT THIRD CHARACTER
01702  M01S01656.lidou   +++|          RJ     STL         SEARCH TABLE FOR LID
01703  M01S01657.lidou   +++|          SA4    SLAA        CHECK FOR DELETE
01704  M01S01658.lidou   +++|          RJ     POP         GET NEXT PARAMETER
01705  M01S01659.lidou   +++|          SX2    X1-1R=
01706  M01S01660.lidou   +++|          SB7    MSIC        * INCORRECT COMMAND.*
01707  M01S01661.lidou   +++|          ZR     X2,SLA1     IF *=* SEPARATOR
01708  M01S01662.lidou   +++|          BX2    X6-X4
01709  M01S01663.lidou   +++|          SX6    A0
01710  M01S01664.lidou   +++|          NZ     X2,PCM1     IF NOT *=* AND NOT *DELETE*
01711  M01S01665.lidou   +++|          SB7    MSNF        * LID NOT FOUND.*
01712  M01S01666.lidou   +++|          NZ     X0,PCM1     IF DELETE AND LID NOT FOUND
01713  M01S01667.lidou   +++|          SX7    40001B      SET FUNCTION CODE AND PID COUNT
01714  M01S01668.lidou   +++|          ERRNZ  DLDF-4      ADJUST VALUE IF CHANGED
01715  M01S01669.lidou   +++|          LX6    24          POSITION LID
01716  M01S01670.lidou   +++|          SX5    X1          SAVE SEPARATOR
01717  M01S01671.lidou   +++|          RJ     SET         DELETE LID
01718  M01S01672.lidou   +++|          SX1    X5          RESTORE SEPARATOR
01719  M01S01673.lidou   +++|          SB7    MSND        * LID NOT DELETED.*
01720  M01S01674.lidou   +++|          SX7    B1
01721  M01S01675.lidou   +++|          NZ     X4,PCM1     IF ERROR
01722  M01S01676.lidou   +++|          EQ     SLA9        SET CHANGED FLAG
01723  M01S01677.lidou   +++|
01724  M01S01678.lidou   +++| SLA1     SX2    2RLA        CHECK FOR *LA*
01725  M01S01679.lidou   +++|          LX6    12
01726  M01S01680.lidou   +++|          BX2    X6-X2
01727  M01S01681.lidou   +++|          NZ     X2,PCM1     IF NOT *LA*
01728  M01S01682.lidou   +++|          RJ     SLF         SET LID FLAGS
01729  M01S01683.lidou   +++|          NZ     B7,PCM1     IF ERROR
01730  M01S01684.lidou   +++|          ZR     B3,SLA4     IF NO *S* OR *B* SPECIFIED
01731  M01S01685.lidou   +++|          SA4    PARB+2      PID ENTRY
01732  M01S01686.lidou   +++|          SA4    X4
01733  M01S01687.lidou   +++|          LX4    18          CHECK HOST/LINKED STATUS
01734  M01S01688.lidou   +++|          GT     B3,B1,SLA4  IF *S*
01735  M01S01689.lidou   +++|          NG     X4,SLA4     IF HOST PID
01736  M01S01690.lidou   +++| SLA2     SB7    MSEA        * ERROR IN ATTRIBUTE.*
01737  M01S01691.lidou   +++|          EQ     PCM1        PROCESS ERROR
01738  M01S01692.lidou   +++|
01739  M01S01693.lidou   +++| SLA4     ZR     B4,SLA5     IF *V* NOT SPECIFIED
01740  M01S01694.lidou   +++|          LE     B3,B1,SLA2  IF *S* NOT SPECIFIED
01741  M01S01695.lidou   +++| SLA5     SX7    B1+
01742  M01S01696.lidou   +++|          ZR     X0,SLA7     IF ALTERING LID
01743  M01S01697.lidou   +++|          NZ     B2,SLA6     IF *D* OR *E* SPECIFIED
01744  M01S01698.lidou   +++|          LX7    23
01745  M01S01699.lidou   +++|          BX6    X6+X7       DEFAULT FOR ADDING LID IS ENABLE
01746  M01S01700.lidou   +++| SLA6     SX7    30001B      ADD LID
01747  M01S01701.lidou   +++|          ERRNZ  ALDF-3      ADJUST VALUE IF CHANGED
01748  M01S01702.lidou   +++|          SX5    A0          COMBINE LID AND ATTRIBUTES
01749  M01S01703.lidou   +++|          LX5    24
01750  M01S01704.lidou   +++|          BX6    X5+X6
01751  M01S01705.lidou   +++|          SX5    X1          SAVE SEPARATOR
01752  M01S01706.lidou   +++|          RJ     SET
01753  M01S01707.lidou   +++|          SX1    X5          RESTORE SEPARATOR
01754  M01S01708.lidou   +++|          SB7    MSNS        * NO SPACE AVAILABLE.*
01755  M01S01709.lidou   +++|          SX7    B1
01756  M01S01710.lidou   +++|          NZ     X4,PCM1     IF ERROR
01757  M01S01711.lidou   +++|          EQ     SLA9        SET CHANGED FLAG
01758  M01S01712.lidou   +++|
01759  M01S01713.lidou   +++| SLA7     NZ     B2,SLA8     IF *D* OR *E* SPECIFIED
01760  M01S01714.lidou   +++|          SA4    A5          GET LID WORD
01761  M01S01715.lidou   +++|          LX4    24          CHECK PRESENT STATUS
01762  M01S01716.lidou   +++|          PL     X4,SLA8     IF DISABLED
01763  M01S01717.lidou   +++|          LX7    23
01764  M01S01718.lidou   +++|          BX6    X6+X7
01765  M01S01719.lidou   +++| SLA8     SX7    50001B      ALTER LID
01766  M01S01720.lidou   +++|          ERRNZ  SLTF-5      ADJUST VALUE IF CHANGED
01767  M01S01721.lidou   +++|          SX5    A0          COMBINE LID AND ATTRIBUTES
01768  M01S01722.lidou   +++|          LX5    24
01769  M01S01723.lidou   +++|          BX6    X5+X6
01770  M01S01724.lidou   +++|          SX5    X1          SAVE SEPARATOR
01771  M01S01725.lidou   +++|          RJ     SET
01772  M01S01726.lidou   +++|          SX1    X5+         RESTORE SEPARATOR
01773  M01S01727.lidou   +++|          SB7    MSNA        * LID NOT ALTERED.*
01774  M01S01728.lidou   +++|          SX7    B1+
01775  M01S01729.lidou   +++|          NZ     X4,PCM1     IF ERROR
01776  M01S01730.lidou   +++| SLA9     SA7    CHDF        SET LID TABLE CHANGED FLAG
01777  M01S01731.lidou   +++|          SX4    X1-1R.      CHECK FOR MORE COMMAND
01778  M01S01732.lidou   +++|          SB7    MSCP        * COMMAND PROCESSED.*
01779  M01S01733.lidou   +++|          ZR     X1,PCM1     IF NO MORE COMMAND
01780  M01S01734.lidou   +++|          ZR     X4,PCM1     IF NO MORE COMMAND
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/lidou.txt ยท Last modified: by 127.0.0.1