User Tools

Site Tools


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

Deck LIDOU

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.lidou   +++|          IDENT  LIDOU,FWA,LIDOU
00002  M00S00002.lidou   +++|          TITLE  LIDOU - LOGICAL IDENTIFIER OPERATOR UTILITY.
00003  M00S00003.lidou   +++|          ABS
00004  M00S00004.lidou   +++|          SST
00005  M00S00005.lidou   +++|          ENTRY  LIDOU
00006  M00S00006.lidou   +++|          ENTRY  RFL=
00007  M00S00007.lidou   +++|          ENTRY  SSJ=
00008  M00S00008.lidou   +++|          SYSCOM B1
00009  M00S00009.lidou   +++|*COMMENT  LIDOU - LOGICAL ID OPERATOR UTILITY.
Line S00010 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00010.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M00S00011.lidou   +++|          SPACE  4,10
00013  M00S00012.lidou   +++|*****     LIDOU - LOGICAL IDENTIFIER OPERATOR UTILITY.
00014  M00S00013.lidou   +++|*
00015  M00S00014.lidou   +++|*         S. D. PAINTER      83/11/01.
00016  M00S00015.lidou   +++|          SPACE  4,15
00017  M00S00016.lidou   +++|*         *LIDOU* IS AN *L* DISPLAY OPERATOR UTILITY THAT DISPLAYS THE
00018  M00S00017.lidou   +++|*         *LID* TABLE AND ALLOWS ADDITION, DELETION, OR ALTERATION OF
00019  M00S00018.lidou   +++|*         ATTRIBUTES FOR SPECIFIED LIDS AND THE CAPABILITY TO ENABLE
00020  M00S00019.lidou   +++|*         OR DISABLE PIDS IN RELATION TO *NAM*, *RHF*, OR *SSF*. THE
00021  M00S00020.lidou   +++|*         CAPABILITY ALSO EXISTS TO FORMAT A LISTING TO THE PRINTER.
00022  M00S00021.lidou   +++|*         IF LIDOU IS EXECUTED FROM *DSD* ALL INPUT AND OUTPUT WILL
00023  M00S00022.lidou   +++|*         BE PROCESSED VIA THE CONSOLE *L* DISPLAY.  IF LIDOU IS IN-
00024  M00S00023.lidou   +++|*         ITIATED FROM *DIS* OR A BATCH JOB BOTH AN INPUT AND AN OUT-
00025  M00S00024.lidou   +++|*         PUT FILE MUST BE SPECIFIED ON THE CONTROL STATEMENT.
00026  M00S00025.lidou   +++|          SPACE  4,10
00027  M00S00026.lidou   +++|***       CONTROL STATEMENT CALL.
00028  M00S00027.lidou   +++|*
00029  M00S00028.lidou   +++|*         LIDOU.                 (FROM CONSOLE ONLY)
00030  M00S00029.lidou   +++|*         LIDOU(I=LFN1,L=LFN2).  (FROM *DIS* OR A BATCH JOB)
00031  M00S00030.lidou   +++|          SPACE  4,10
00032  M00S00031.lidou   +++|***       DAYFILE MESSAGES.
00033  M00S00032.lidou   +++|*
00034  M00S00033.lidou   +++|*         THESE MESSAGES ARE ISSUED TO THE JOB AND SYSTEM DAYFILE.
00035  M00S00034.lidou   +++|*
00036  M00S00035.lidou   +++|*         * LIDOU UTILITY COMPLETE.*
00037  M00S00036.lidou   +++|*                INDICATES NORMAL TERMINATION.
00038  M00S00037.lidou   +++|*
00039  M00S00038.lidou   +++|*         * INCORRECT USER ACCESS.*
00040  M00S00039.lidou   +++|*                CALLING JOB WAS NOT SYSTEM ORIGIN (FATAL ERROR).
00041  M00S00040.lidou   +++|*
00042  M00S00041.lidou   +++|*         * NO INPUT/OUTPUT FILE SPECIFIED.*
00043  M00S00042.lidou   +++|*                THE CALLING JOB CANNOT ACCESS THE *L* DISPLAY
00044  M00S00043.lidou   +++|*                AND MUST THEREFORE SPECIFY BOTH AN INPUT AND
00045  M00S00044.lidou   +++|*                AN OUTPUT FILE (FATAL ERROR).
00046  M00S00045.lidou   +++|*
00047  M00S00046.lidou   +++|*         * FILE NAME CONFLICT.*
00048  M00S00047.lidou   +++|*                THE INPUT FILE AND OUTPUT FILE SPECIFIED WERE
00049  M00S00048.lidou   +++|*                THE SAME (FATAL ERROR).
00050  M00S00049.lidou   +++|*
00051  M00S00050.lidou   +++|*         * INPUT FILE NOT FOUND.*
00052  M00S00051.lidou   +++|*                THE INPUT FILE SPECIFIED DOES NOT EXIST (FATAL
00053  M00S00052.lidou   +++|*                ERROR).
00054  M00S00053.lidou   +++|          SPACE  4,10
00055  M00S00054.lidou   +++|***       *L* DISPLAY MESSAGES.
00056  M00S00055.lidou   +++|*
00057  M00S00056.lidou   +++|*         NOTE   THE FOLLOWING MESSAGES ARE DISPLAYED ON THE SECOND
00058  M00S00057.lidou   +++|*                TO LAST LINE ON THE *L* DISPLAY WITH THE ECHOED
00059  M00S00058.lidou   +++|*                COMMAND ON THE LAST LINE.
00060  M00S00059.lidou   +++|*
00061  M00S00060.lidou   +++|*         * COMMAND PROCESSED.*
00062  M00S00061.lidou   +++|*                THE COMMAND ENTERED WAS PROCESSED SUCCESSFULLY.
00063  M00S00062.lidou   +++|*
00064  M00S00063.lidou   +++|*         * ERROR IN ATTRIBUTE.*
00065  M00S00064.lidou   +++|*                AN ATTRIBUTE WAS SPECIFIED TWICE OR *S* AND *B* OR
00066  M00S00065.lidou   +++|*                *E* AND *D* WERE SPECIFIED TOGETHER OR *V* WAS NOT
00067  M00S00066.lidou   +++|*                SPECIFIED FOR A HOST PID.
00068  M00S00067.lidou   +++|*
00069  M00S00068.lidou   +++|*         * LID TABLE EMPTY.*
00070  M00S00069.lidou   +++|*                THE LID TABLE READ FROM CENTRAL MEMORY WAS EMPTY
00071  M00S00070.lidou   +++|*                (PROGRAM TERMINATED).
00072  M00S00071.lidou   +++|*
00073  M00S00072.lidou   +++|*         * INCORRECT ATTRIBUTE.*
00074  M00S00073.lidou   +++|*                THE ATTRIBUTE SPECIFIED WAS NOT ONE OF THE
00075  M00S00074.lidou   +++|*                ALLOWABLE ATTRIBUTES FOR THE COMMAND SPECIFIED.
00076  M00S00075.lidou   +++|*
00077  M00S00076.lidou   +++|*         * INCORRECT COMMAND.*
00078  M00S00077.lidou   +++|*                THE COMMAND SPECIFIED WAS NOT RECOGNIZED AS ONE OF
00079  M00S00078.lidou   +++|*                THE ALLOWABLE COMMANDS.  SEE AVAILABLE COMMANDS.
00080  M00S00079.lidou   +++|*
00081  M00S00080.lidou   +++|*         * INCORRECT LID.*
00082  M00S00081.lidou   +++|*                THE LID SPECIFIED WAS NOT A CORRECT THREE CHARACTER
00083  M00S00082.lidou   +++|*                (ALPHANUMERIC) LID.
00084  M00S00083.lidou   +++|*
00085  M00S00084.lidou   +++|*         * INCORRECT MAINFRAME.*
00086  M00S00085.lidou   +++|*                A MAINFRAME DESCRIPTOR OF LENGTH ZERO OR GREATER
00087  M00S00086.lidou   +++|*                THAN SEVEN CHARACTERS WAS SPECIFIED.
00088  M00S00087.lidou   +++|*
00089  M00S00088.lidou   +++|*         * INCORRECT NETWORK.*
00090  M00S00089.lidou   +++|*                THE NETWORK SPECIFIED WAS NOT *RHF*, *NAM*, *SSF*,
00091  M00S00090.lidou   +++|*                OR *ALL*.
00092  M00S00091.lidou   +++|*
00093  M00S00092.lidou   +++|*         * INCORRECT SEPARATOR.*
00094  M00S00093.lidou   +++|*                THE SEPARATOR USED WAS NOT A COMMA OR AN EQUAL SIGN
00095  M00S00094.lidou   +++|*                AS REQUIRED BY THE COMMAND SYNTAX.
00096  M00S00095.lidou   +++|*
00097  M00S00096.lidou   +++|*         * INCORRECT STATUS.*
00098  M00S00097.lidou   +++|*                THE STATUS SPECIFIED WAS NOT *E*, (ENABLE), OR *D*
00099  M00S00098.lidou   +++|*                (DISABLE).
00100  M00S00099.lidou   +++|*
00101  M00S00100.lidou   +++|*         * UTILITY COMPLETE.*
00102  M00S00101.lidou   +++|*                INDICATES NORMAL TERMINATION.
00103  M00S00102.lidou   +++|*
00104  M00S00103.lidou   +++|*         * LID NOT ALTERED.*
00105  M00S00104.lidou   +++|*                AN ATTEMPT TO ALTER A LID WAS REJECTED BY *SFM*.
00106  M00S00105.lidou   +++|*
00107  M00S00106.lidou   +++|*         * PID NOT ALTERED.*
00108  M00S00107.lidou   +++|*                AN ATTEMPT TO ALTER A PID WAS REJECTED BY *SFM*.
00109  M00S00108.lidou   +++|*
00110  M00S00109.lidou   +++|*         * MAINFRAME NOT SET.*
00111  M00S00110.lidou   +++|*                AN ATTEMPT TO ALTER A MAINFRAME DESCRIPTOR WAS
00112  M00S00111.lidou   +++|*                REJECTED BY *SFM*.
00113  M00S00112.lidou   +++|*
00114  M00S00113.lidou   +++|*         * LID NOT DELETED.*
00115  M00S00114.lidou   +++|*                AN ATTEMPT TO DELETE A LID WAS REJECTED BY *SFM*.
00116  M00S00115.lidou   +++|*
00117  M00S00116.lidou   +++|*         * LID NOT FOUND.*
00118  M00S00117.lidou   +++|*                THE LID SPECIFIED COULD NOT BE FOUND IN THE LID
00119  M00S00118.lidou   +++|*                TABLE FOR THE SPECIFIED PID.
00120  M00S00119.lidou   +++|*
00121  M00S00120.lidou   +++|*         * NO SPACE AVAILABLE.*
00122  M00S00121.lidou   +++|*                NO ROOM EXISTS IN THE LID TABLE TO ADD A LID FOR
00123  M00S00122.lidou   +++|*                THE SPECIFIED PID.
00124  M00S00123.lidou   +++|*
00125  M00S00124.lidou   +++|*         * PID NOT FOUND.*
00126  M00S00125.lidou   +++|*                THE PID SPECIFIED COULD NOT BE FOUND IN THE LID
00127  M00S00126.lidou   +++|*                TABLE.
00128  M00S00127.lidou   +++|*
00129  M00S00128.lidou   +++|*         * EXCESS PARAMETERS.*
00130  M00S00129.lidou   +++|*                TOO MANY PARAMETERS WERE SPECIFIED ON THE COMMAND.
00131  M00S00130.lidou   +++|*                SEE LIST OF AVAILABLE COMMANDS.
Line S00131 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00132  M01S00131.241l630 ---|*
00133  M01S00132.241l630 ---|*         NOTE   THE FOLLOWING MESSAGES ARE DISPLAYED ON THE LAST
00134  M01S00133.241l630 ---|*                LINE OF THE *L* DISPLAY WITH NO ECHOED COMMAND.
00135  M01S00134.241l630 ---|*
00136  M01S00135.241l630 ---|*         * ENTER L.BACK TO TOGGLE TO THE LID DISPLAY.*
00137  M01S00136.241l630 ---|*                INFORMATIVE MESSAGE DISPLAYED ON THE *HELP* DISPLAY.
00138  M01S00137.241l630 ---|*
00139  M01S00138.241l630 ---|*         * ENTER L.HELP TO TOGGLE TO THE HELP DISPLAY.*
00140  M01S00139.241l630 ---|*                INFORMATIVE MESSAGE DISPLAYED ON THE *LID* DISPLAY.
00141  M00S00140.lidou   +++|          SPACE  4,10
00142  M00S00141.lidou   +++|***       AVAILABLE *L* DISPLAY COMMANDS.
00143  M00S00142.lidou   +++|*
00144  M00S00143.lidou   +++|*         L.END              TERMINATE LIDOU
00145  M00S00144.lidou   +++|*         L.BACK             FORMAT LID DISPLAY
00146  M00S00145.lidou   +++|*         L.HELP             FORMAT HELP DISPLAY
00147  M00S00146.lidou   +++|*         L.+                PAGES THE L DISPLAY FORWARD
00148  M00S00147.lidou   +++|*         L.-                PAGES THE L DISPLAY BACKWARD
00149  M00S00148.lidou   +++|*         L.OUT              ROUTES A LISTING OF THE LID TABLE
00150  M00S00149.lidou   +++|*         L.PID,PA=XXZ       SET ALL APPLICABLE PID ATTRIBUTES
00151  M00S00150.lidou   +++|*         L.PID,NT=NNN,NA=Z  ENABLE/DISABLE NETWORK STATUS
00152  M00S00151.lidou   +++|*         L.PID,LD=LID,      ADD OR SET ATTRIBUTES FOR LID
00153  M00S00152.lidou   +++|*               LA=YYYZ
00154  M00S00153.lidou   +++|*         L.PID,LD=LID,      DELETE LID FROM LID TABLE
00155  M00S00154.lidou   +++|*               DELETE
00156  M00S00155.lidou   +++|*         L.PID,MF=MAINFRM   SET MAINFRAME DESCRIPTION
00157  M00S00156.lidou   +++|*
00158  M00S00157.lidou   +++|*         PARAMETER DESCRIPTIONS
00159  M00S00158.lidou   +++|*
00160  M00S00159.lidou   +++|*         PID IS THE THREE CHARACTER PHYSICAL IDENTIFIER
00161  M00S00160.lidou   +++|*         LID IS AN ASSOCIATED THREE CHARACTER LOGICAL
00162  M00S00161.lidou   +++|*         IDENTIFIER
00163  M00S00162.lidou   +++|*         MAINFRM IS A (ONE TO SEVEN CHARACTER) MAINFRAME
00164  M00S00163.lidou   +++|*         DESCRIPTOR
00165  M00S00164.lidou   +++|*         NNN IS THE NETWORK (*RHF*, *SSF*, *NAM*, OR *ALL*)
00166  M00S00165.lidou   +++|*         X CAN BE V OR N.  Y CAN BE S, B, V OR N.
00167  M00S00166.lidou   +++|*         Z CAN BE E OR D.
00168  M00S00167.lidou   +++|*
00169  M00S00168.lidou   +++|*         ATTRIBUTE DESCRIPTIONS
00170  M00S00169.lidou   +++|*
00171  M00S00170.lidou   +++|*         S - STORE AND      LIDS FOR LINKED PIDS ONLY
00172  M00S00171.lidou   +++|*             FORWARD
00173  M00S00172.lidou   +++|*         B - LOOPBACK       LIDS FOR HOST PIDS ONLY
00174  M00S00173.lidou   +++|*         V - VALIDATE       NOTE THAT S AND B CAN NOT
00175  M00S00174.lidou   +++|*         D - DISABLE        BE SPECIFIED TOGETHER AND
00176  M00S00175.lidou   +++|*         E - ENABLE         ALSO THAT E AND D CAN NOT
00177  M00S00176.lidou   +++|*         N - NOLIST         BE SPECIFIED TOGETHER
00178  M00S00177.lidou   +++|*
00179  M00S00178.lidou   +++|*         THE LIST OF LEGAL ATTRIBUTE COMBINATIONS FOR
00180  M00S00179.lidou   +++|*         LOGICAL IDENTIFIERS (LIDS) IS IN TABLE *TLAT*.
00181  M00S00180.lidou   +++|*         THE LIST OF LEGAL ATTRIBUTE COMBINATIONS FOR
00182  M00S00181.lidou   +++|*         PHYSICAL IDENTIFIERS (PIDS) IS IN TABLE *TPAT*.
00183  M00S00182.lidou   +++|          SPACE  4,10
00184  M00S00183.lidou   +++|**        COMMON DECKS.
00185  M00S00184.lidou   +++|*
00186  M00S00185.lidou   +++|*CALL     COMCMAC
00187  M00S00186.lidou   +++|*CALL     COMCCMD
00188  M00S00187.lidou   +++|*CALL     COMCDCM
00189  M00S00188.lidou   +++|*CALL     COMSEVT
00190  M00S00189.lidou   +++|*CALL     COMSSFM
00191  M00S00190.lidou   +++|*CALL     COMSSSJ
00192  M00S00191.lidou   +++|          TITLE  DEFINITIONS.
00193  M00S00192.lidou   +++|          SPACE  4,10
00194  M00S00193.lidou   +++|****      ASSEMBLY CONSTANTS.
00195  M00S00194.lidou   +++|
00196  M00S00195.lidou   +++| INPC     EQU    4           *L* DISPLAY INPUT COMPLETE STATUS
00197  M00S00196.lidou   +++| LBOL     EQU    LDSY        *L* DISPLAY OUTPUT BUFFER LENGTH
00198  M00S00197.lidou   +++| LBIL     EQU    LCOM        *L* DISPLAY INPUT BUFFER LENGTH
00199  M00S00198.lidou   +++| LIIL     EQU    MXLDT+1     LID TABLE BUFFER LENGTH
00200  M00S00199.lidou   +++| INPL     EQU    101B        LENGTH OF INPUT BUFFER
00201  M00S00200.lidou   +++| MFTL     EQU    MXPID+1     LENGTH OF MAINFRAME DESCRIPTOR BUFFER
Line S00001 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00202  M01S00001.241l630 +++| NMLL     EQU    20B         NUMBER OF LINES TO FORMAT
00203  M00S00201.lidou   +++| OUTL     EQU    101B        LENGTH OF OUTPUT BUFFER
00204  M00S00202.lidou   +++| OUTL     EQU    101B        LENGTH OF OUTPUT BUFFER
00205  M00S00203.lidou   +++| XCDT     EQU    1           *L* DISPLAY FIRST CHARACTER POSITION
00206  M00S00204.lidou   +++| YCDT     EQU    2           *L* DISPLAY FIRST LINE NUMBER
00207  M00S00205.lidou   +++|
00208  M00S00206.lidou   +++|****
00209  M00S00207.lidou   +++|          SPACE  4,10
00210  M00S00208.lidou   +++|          ORG    120B
00211  M00S00209.lidou   +++| FWA      BSS    0
00212  M00S00210.lidou   +++|          SPACE  4,10
00213  M00S00211.lidou   +++|**        DAYFILE MESSAGES.
00214  M00S00212.lidou   +++|
00215  M00S00213.lidou   +++| DAFC     DATA   C* LIDOU UTILITY COMPLETE.*
00216  M00S00214.lidou   +++|          SPACE  4,10
00217  M00S00215.lidou   +++|**        *L* DISPLAY MESSAGES.
00218  M00S00216.lidou   +++|
00219  M00S00217.lidou   +++| MSCP     DATA   20HCOMMAND PROCESSED.
00220  M00S00218.lidou   +++| MSEA     DATA   20HERROR IN ATTRIBUTE.
00221  M00S00219.lidou   +++| MSET     DATA   20HLID TABLE EMPTY.
00222  M00S00220.lidou   +++| MSIA     DATA   20HINCORRECT ATTRIBUTE.
00223  M00S00221.lidou   +++| MSIC     DATA   20HINCORRECT COMMAND.
00224  M00S00222.lidou   +++| MSIL     DATA   20HINCORRECT LID.
00225  M00S00223.lidou   +++| MSIM     DATA   20HINCORRECT MAINFRAME.
00226  M00S00224.lidou   +++| MSIN     DATA   20HINCORRECT NETWORK.
00227  M00S00225.lidou   +++| MSIP     DATA   20HINCORRECT SEPARATOR.
00228  M00S00226.lidou   +++| MSIS     DATA   20HINCORRECT STATUS.
00229  M00S00227.lidou   +++| MSLC     DATA   20HUTILITY COMPLETE.
00230  M00S00228.lidou   +++| MSNA     DATA   20HLID NOT ALTERED.
00231  M00S00229.lidou   +++| MSNC     DATA   20HPID NOT ALTERED.
00232  M00S00230.lidou   +++| MSMF     DATA   20HMAINFRAME NOT SET.
00233  M00S00231.lidou   +++| MSND     DATA   20HLID NOT DELETED.
00234  M00S00232.lidou   +++| MSNF     DATA   20HLID NOT FOUND.
00235  M00S00233.lidou   +++| MSNS     DATA   20HNO SPACE AVAILABLE.
00236  M00S00234.lidou   +++| MSPN     DATA   20HPID NOT FOUND.
00237  M00S00235.lidou   +++| MSTP     DATA   20HEXCESS PARAMETERS.
Line S00236 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00238  M01S00236.241l630 ---| MSRH     DATA   20HENTER L.BACK TO TOGG
00239  M01S00237.241l630 ---|          DATA   20HLE TO THE LID DISPLA
00240  M01S00238.241l630 ---|          DATA   11LY
00241  M01S00239.241l630 ---| MSRL     DATA   20HENTER L.HELP TO TOGG
00242  M01S00240.241l630 ---|          DATA   20HLE TO THE HELP DISPL
00243  M01S00241.241l630 ---|          DATA   11LAY
00244  M00S00242.lidou   +++|          SPACE  4,10
00245  M00S00243.lidou   +++|**        ROLLOUT PARAMETER BLOCK.
00246  M00S00244.lidou   +++|
00247  M00S00245.lidou   +++| ROLL     VFD    30/0,18/LINE,12/10
00248  M00S00246.lidou   +++|          SPACE  4,10
00249  M00S00247.lidou   +++|**        ROUTE PARAMETER BLOCK.
00250  M00S00248.lidou   +++|
00251  M00S00249.lidou   +++| ROTB     DATA   6LOUTPUT
00252  M00S00250.lidou   +++|          BSSZ   6
00253  M00S00251.lidou   +++|          SPACE  4,10
00254  M00S00252.lidou   +++|**        SSJ= PARAMETER BLOCK.
00255  M00S00253.lidou   +++|
00256  M00S00254.lidou   +++| SSJ=     BSS    0           SSJ= ENTRY POINT
00257  M00S00255.lidou   +++|          BSSZ   SSJL        SSJ= PARAMETER BLOCK
00258  M00S00256.lidou   +++|          SPACE  4,10
00259  M00S00257.lidou   +++|**        FET DEFINITIONS.
00260  M00S00258.lidou   +++|
00261  M00S00259.lidou   +++| LIDF     FILEB  LIDI,LIIL,FET=5  LID TABLE FET
00262  M00S00260.lidou   +++|
00263  M00S00261.lidou   +++| IF       BSS    0
00264  M00S00262.lidou   +++| INPUT    FILEB  INPU,INPL,FET=5  INPUT FET
00265  M00S00263.lidou   +++|
00266  M00S00264.lidou   +++| LF       BSS    0
00267  M00S00265.lidou   +++| OUTPUT   FILEB  OUTP,OUTL,FET=5  OUTPUT FET
00268  M00S00266.lidou   +++|          SPACE  4,10
00269  M00S00267.lidou   +++|**        TLAT - TABLE OF LOGICAL IDENTIFIER ATTRIBUTES.
00270  M00S00268.lidou   +++|*
00271  M00S00269.lidou   +++|*T        42/ LA, 14/ 0, 4/ AM.
Figure

034171829 AM. 0 LA3059 LA

00272  M00S00270.lidou   +++|*
00273  M00S00271.lidou   +++|*         LA - LID ATTRIBUTES (ALPHABETIC REPRESENTATION).
00274  M00S00272.lidou   +++|*         AM - ATTRIBUTE MASK (OCTAL REPRESENTATION).
00275  M00S00273.lidou   +++|*
00276  M00S00274.lidou   +++|*         NOTES  THE FORMAT OF THE ATTRIBUTE MASK IS -
00277  M00S00275.lidou   +++|*
00278  M00S00276.lidou   +++|*                1/ S          1 = STORE AND FORWARD
00279  M00S00277.lidou   +++|*                1/ B          1 = LOOPBACK
00280  M00S00278.lidou   +++|*                1/ V          1 = VALIDATE
00281  M00S00279.lidou   +++|*                1/ N          1 = NOLIST
00282  M00S00280.lidou   +++|*
00283  M00S00281.lidou   +++|*                THE ALPHABETIC REPRESENTATION EXCLUDES THE *E*
00284  M00S00282.lidou   +++|*                BIT SINCE THE LID DISPLAY HAS A SEPARATE WORD
00285  M00S00283.lidou   +++|*                TO SHOW THE ENABLED/DISABLED STATUS.
00286  M00S00284.lidou   +++|
00287  M00S00285.lidou   +++| TLAT     VFD    42/7L ----  ,14/0,4/00B
00288  M00S00286.lidou   +++|          VFD    42/7L ---N  ,14/0,4/01B
00289  M00S00287.lidou   +++|          VFD    42/7L -B--  ,14/0,4/02B
00290  M00S00288.lidou   +++|          VFD    42/7L -B-N  ,14/0,4/03B
00291  M00S00289.lidou   +++|          VFD    42/7L --V-  ,14/0,4/04B
00292  M00S00290.lidou   +++|          VFD    42/7L --VN  ,14/0,4/05B
00293  M00S00291.lidou   +++|          VFD    42/7L -BV-  ,14/0,4/06B
00294  M00S00292.lidou   +++|          VFD    42/7L -BVN  ,14/0,4/07B
00295  M00S00293.lidou   +++|          VFD    42/7L S---  ,14/0,4/10B
00296  M00S00294.lidou   +++|          VFD    42/7L S--N  ,14/0,4/11B
00297  M00S00295.lidou   +++|          VFD    42/7L S-V-  ,14/0,4/14B
00298  M00S00296.lidou   +++|          VFD    42/7L S-VN  ,14/0,4/15B
00299  M00S00297.lidou   +++|          VFD    60/0        END OF TABLE
00300  M00S00298.lidou   +++|          SPACE  4
00301  M00S00299.lidou   +++|**        TPAT - TABLE OF PHYSICAL IDENTIFIER ATTRIBUTES.
00302  M00S00300.lidou   +++|*
00303  M00S00301.lidou   +++|*T        42/ PA, 14/ 0, 4/ AM.
Figure

034171829 AM. 0 PA3059 PA

00304  M00S00302.lidou   +++|*
00305  M00S00303.lidou   +++|*         PA - PID ATTRIBUTES (ALPHABETIC REPRESENTATION).
00306  M00S00304.lidou   +++|*         AM - ATTRIBUTE MASK (OCTAL REPRESENTATION).
00307  M00S00305.lidou   +++|*
00308  M00S00306.lidou   +++|*         NOTES  THE FORMAT OF THE ATTRIBUTE MASK IS -
00309  M00S00307.lidou   +++|*
00310  M00S00308.lidou   +++|*                1/ H/L        1 = HOST, 0 = LINK
00311  M00S00309.lidou   +++|*                1/ E          1 = ENABLE, 0 =DISABLED
00312  M00S00310.lidou   +++|*                1/ V          1 = VALIDATE
00313  M00S00311.lidou   +++|*                1/ N          1 = NOLIST
00314  M00S00312.lidou   +++|*
00315  M00S00313.lidou   +++|*                THE ALPHABETIC REPRESENTATION EXPANDS THE *H*
00316  M00S00314.lidou   +++|*                BIT TO *H* AND *L* AND EXCLUDES THE *E* BIT
00317  M00S00315.lidou   +++|*                SINCE THE LID DISPLAY HAS A SEPARATE WORD TO
00318  M00S00316.lidou   +++|*                SHOW THE ENABLED/DISABLED STATUS.
00319  M00S00317.lidou   +++|
00320  M00S00318.lidou   +++|
00321  M00S00319.lidou   +++| TPAT     VFD    42/7L -L--  ,14/0,4/00B
00322  M00S00320.lidou   +++|          VFD    42/7L -L-N  ,14/0,4/01B
00323  M00S00321.lidou   +++|          VFD    42/7L -LV-  ,14/0,4/02B
00324  M00S00322.lidou   +++|          VFD    42/7L -LVN  ,14/0,4/03B
00325  M00S00323.lidou   +++|          VFD    42/7L -L--  ,14/0,4/04B
00326  M00S00324.lidou   +++|          VFD    42/7L -L-N  ,14/0,4/05B
00327  M00S00325.lidou   +++|          VFD    42/7L -LV-  ,14/0,4/06B
00328  M00S00326.lidou   +++|          VFD    42/7L -LVN  ,14/0,4/07B
00329  M00S00327.lidou   +++|          VFD    42/7L H---  ,14/0,4/10B
00330  M00S00328.lidou   +++|          VFD    42/7L H--N  ,14/0,4/11B
00331  M00S00329.lidou   +++|          VFD    42/7L H-V-  ,14/0,4/12B
00332  M00S00330.lidou   +++|          VFD    42/7L H-VN  ,14/0,4/13B
00333  M00S00331.lidou   +++|          VFD    42/7L H---  ,14/0,4/14B
00334  M00S00332.lidou   +++|          VFD    42/7L H--N  ,14/0,4/15B
00335  M00S00333.lidou   +++|          VFD    42/7L H-V-  ,14/0,4/16B
00336  M00S00334.lidou   +++|          VFD    42/7L H-VN  ,14/0,4/17B
00337  M00S00335.lidou   +++|          VFD    60/0        END OF TABLE
00338  M00S00336.lidou   +++|          TITLE  WORKING STORAGE.
00339  M00S00337.lidou   +++|          SPACE  4
00340  M00S00338.lidou   +++|
00341  M00S00339.lidou   +++|**        *L* DISPLAY BUFFER FOR LID TABLE DISPLAY.
00342  M00S00340.lidou   +++|
00343  M00S00341.lidou   +++| LIDA     DATA   8L1         HEADER FOR LISTINGS
00344  M00S00342.lidou   +++|          DATA   8L
00345  M00S00343.lidou   +++|          DATA   10H
00346  M00S00344.lidou   +++| LIDB     DATA   50HPID    LID  ENABLED  ATTR     MFTYPE    NETWORK ST
00347  M00S00345.lidou   +++|          DATA   8LATUS
00348  M00S00346.lidou   +++|          DATA   50H
00349  M00S00347.lidou   +++|          DATA   8L
00350  M00S00348.lidou   +++| LIDD     DATA   50H
00351  M00S00349.lidou   +++|          DATA   8L
00352  M00S00350.lidou   +++|          DATA   50H
00353  M00S00351.lidou   +++|          DATA   8L
00354  M00S00352.lidou   +++|          DATA   50H
00355  M00S00353.lidou   +++|          DATA   8L
00356  M00S00354.lidou   +++|          DATA   50H
00357  M00S00355.lidou   +++|          DATA   8L
00358  M00S00356.lidou   +++|          DATA   50H
00359  M00S00357.lidou   +++|          DATA   8L
00360  M00S00358.lidou   +++|          DATA   50H
00361  M00S00359.lidou   +++|          DATA   8L
00362  M00S00360.lidou   +++|          DATA   50H
00363  M00S00361.lidou   +++|          DATA   8L
00364  M00S00362.lidou   +++|          DATA   50H
00365  M00S00363.lidou   +++|          DATA   8L
00366  M00S00364.lidou   +++|          DATA   50H
00367  M00S00365.lidou   +++|          DATA   8L
00368  M00S00366.lidou   +++|          DATA   50H
00369  M00S00367.lidou   +++|          DATA   8L
00370  M00S00368.lidou   +++|          DATA   50H
00371  M00S00369.lidou   +++|          DATA   8L
00372  M00S00370.lidou   +++|          DATA   50H
00373  M00S00371.lidou   +++|          DATA   8L
00374  M00S00372.lidou   +++|          DATA   50H
00375  M00S00373.lidou   +++|          DATA   8L
00376  M00S00374.lidou   +++|          DATA   50H
00377  M00S00375.lidou   +++|          DATA   8L
00378  M00S00376.lidou   +++|          DATA   50H
00379  M00S00377.lidou   +++|          DATA   8L
00380  M00S00378.lidou   +++|          DATA   50H
00381  M00S00379.lidou   +++|          DATA   8L
00382  M00S00380.lidou   +++|          DATA   50H
00383  M00S00381.lidou   +++|          DATA   8L
Line S00382 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00382.241l630 ---|          DATA   50H
Line S00002 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00385  M01S00002.241l630 +++|          DATA   10H
00386  M01S00003.241l630 +++| LIDE     DATA   40H
00387  M00S00383.lidou   +++|          DATA   8L
Line S00004 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00388  M01S00004.241l630 +++| LIDO     EQU    *-LIDB      COMMAND RESPONSE OFFSET
00389  M00S00384.lidou   +++|          DATA   50H
Line S00385 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00390  M01S00385.241l630 ---| LIDE     DATA   8L
Line S00005 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00391  M01S00005.241l630 +++|          DATA   8L
00392  M00S00386.lidou   +++|          DATA   50H
00393  M00S00387.lidou   +++|          DATA   8L
00394  M00S00388.lidou   +++|          CON    0           END OF BUFFER
00395  M00S00389.lidou   +++|          CON    0
00396  M00S00390.lidou   +++|          SPACE  4
00397  M00S00391.lidou   +++|
00398  M00S00392.lidou   +++| HLPA     DATA   8L1         HEADER FOR LISTINGS
00399  M00S00393.lidou   +++|          DATA   8L
00400  M00S00394.lidou   +++|          DATA   10H
00401  M00S00395.lidou   +++|          DATA   50H          LID OPERATOR UTILITY OUTPUT LISTING
00402  M00S00396.lidou   +++|          DATA   8L
00403  M00S00397.lidou   +++|          DATA   50H
00404  M00S00398.lidou   +++|          DATA   8L
00405  M00S00399.lidou   +++|
00406  M00S00400.lidou   +++|**        *L* DISPLAY BUFFER FOR PAGE ONE OF HELP DISPLAY.
00407  M00S00401.lidou   +++|
00408  M00S00402.lidou   +++| HLPB     DATA   50HLID OPERATOR UTILITY HELP DISPLAY              PAG
00409  M00S00403.lidou   +++|          DATA   8LE 1 OF 2
00410  M00S00404.lidou   +++|          DATA   50H
00411  M00S00405.lidou   +++|          DATA   8L
00412  M00S00406.lidou   +++|          DATA   50HCOMMAND                  DESCRIPTION
00413  M00S00407.lidou   +++|          DATA   8L
00414  M00S00408.lidou   +++|          DATA   50H
00415  M00S00409.lidou   +++|          DATA   8L
00416  M00S00410.lidou   +++|          DATA   50HL.END                    TERMINATE LIDOU
00417  M00S00411.lidou   +++|          DATA   8L
00418  M00S00412.lidou   +++|          DATA   50HL.BACK                   FORMAT LID DISPLAY
00419  M00S00413.lidou   +++|          DATA   8L
00420  M00S00414.lidou   +++|          DATA   50HL.HELP                   FORMAT HELP DISPLAY
00421  M00S00415.lidou   +++|          DATA   8L
00422  M00S00416.lidou   +++|          DATA   50HL.+                      PAGES THE L DISPLAY FORWA
00423  M00S00417.lidou   +++|          DATA   8LRD
00424  M00S00418.lidou   +++|          DATA   50HL.-                      PAGES THE L DISPLAY BACKW
00425  M00S00419.lidou   +++|          DATA   8LARD
00426  M00S00420.lidou   +++|          DATA   50HL.OUT                    ROUTES A LISTING OF THE L
00427  M00S00421.lidou   +++|          DATA   8LID TABLE
00428  M00S00422.lidou   +++|          DATA   50HL.PID,PA=XXZ             SET ALL APPLICABLE PID AT
00429  M00S00423.lidou   +++|          DATA   8LTIBUTES
00430  M00S00424.lidou   +++|          DATA   50HL.PID,NT=NNN,NA=Z        ENABLE/DISABLE NETWORK ST
00431  M00S00425.lidou   +++|          DATA   8LATUS
00432  M00S00426.lidou   +++|          DATA   50HL.PID,LD=LID,LA=YYYZ     ADD OR SET ATTRIBUTES FOR
00433  M00S00427.lidou   +++|          DATA   8L LID
00434  M00S00428.lidou   +++|          DATA   50HL.PID,LD=LID,DELETE      DELETE LID FROM LID TABLE
00435  M00S00429.lidou   +++|          DATA   8L
00436  M00S00430.lidou   +++|          DATA   50HL.PID,MF=MAINFRM         SET MAINFRAME DESCRIPTION
00437  M00S00431.lidou   +++|          DATA   8L
00438  M00S00432.lidou   +++|          DATA   50H
00439  M00S00433.lidou   +++|          DATA   8L
00440  M00S00434.lidou   +++|          DATA   50HX CAN BE V OR N.  Y CAN BE S, B, V OR N.  Z CAN BE
00441  M00S00435.lidou   +++|          DATA   8L E OR D.
00442  M00S00436.lidou   +++|          DATA   50HALL COMMANDS CAN BE ENTERED FROM THE HELP OR LID D
00443  M00S00437.lidou   +++|          DATA   8LISPLAY
00444  M00S00438.lidou   +++|          DATA   50HENTER L.+ FOR MORE HELP (COMPLETE ATTRIBUTE DESCRI
00445  M00S00439.lidou   +++|          DATA   8LPTIONS)
00446  M00S00440.lidou   +++|          DATA   50H
00447  M00S00441.lidou   +++|          DATA   8L
Line S00006 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00448  M01S00006.241l630 +++| HLAO     EQU    *-HLPB      COMMAND RESPONSE OFFSET
00449  M00S00442.lidou   +++|          DATA   50H
00450  M00S00443.lidou   +++|          DATA   8L
Line S00444 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00451  M01S00444.241l630 ---|          DATA   50HENTER L.BACK TO TOGGLE TO THE LID DISPLAY
Line S00007 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00452  M01S00007.241l630 +++|          DATA   50H
00453  M00S00445.lidou   +++|          DATA   8L
00454  M00S00446.lidou   +++|          CON    0           END OF BUFFER
00455  M00S00447.lidou   +++|          CON    0
00456  M00S00448.lidou   +++|          SPACE  4
00457  M00S00449.lidou   +++|
00458  M00S00450.lidou   +++|**        *L* DISPLAY BUFFER FOR PAGE TWO OF HELP DISPLAY.
00459  M00S00451.lidou   +++|
00460  M00S00452.lidou   +++| HLPC     DATA   50HLID OPERATOR UTILITY HELP DISPLAY              PAG
00461  M00S00453.lidou   +++|          DATA   8LE 2 OF 2
00462  M00S00454.lidou   +++|          DATA   50H
00463  M00S00455.lidou   +++|          DATA   8L
00464  M00S00456.lidou   +++|          DATA   50HATTRIBUTE DESCRIPTIONS
00465  M00S00457.lidou   +++|          DATA   8L
00466  M00S00458.lidou   +++|          DATA   50H
00467  M00S00459.lidou   +++|          DATA   8L
00468  M00S00460.lidou   +++|          DATA   50HS - STORE AND FORWARD            LIDS FOR LINKED P
00469  M00S00461.lidou   +++|          DATA   8LIDS ONLY
00470  M00S00462.lidou   +++|          DATA   50HB - LOOPBACK                     LIDS FOR HOST PID
00471  M00S00463.lidou   +++|          DATA   8LS ONLY
00472  M00S00464.lidou   +++|          DATA   50HV - VALIDATE                     NOTE THAT S AND B
00473  M00S00465.lidou   +++|          DATA   8L CAN NOT
00474  M00S00466.lidou   +++|          DATA   50HD - DISABLE                      BE SPECIFIED TOGE
00475  M00S00467.lidou   +++|          DATA   8LTHER AND
00476  M00S00468.lidou   +++|          DATA   50HE - ENABLE                       ALSO THAT E AND D
00477  M00S00469.lidou   +++|          DATA   8L CAN NOT
00478  M00S00470.lidou   +++|          DATA   50HN - NOLIST                       BE SPECIFIED TOGE
00479  M00S00471.lidou   +++|          DATA   8LTHER
00480  M00S00472.lidou   +++|          DATA   50H
00481  M00S00473.lidou   +++|          DATA   8L
00482  M00S00474.lidou   +++|          DATA   50HPARAMETER DESCRIPTIONS
00483  M00S00475.lidou   +++|          DATA   8L
00484  M00S00476.lidou   +++|          DATA   50H
00485  M00S00477.lidou   +++|          DATA   8L
00486  M00S00478.lidou   +++|          DATA   50HPID IS THE THREE CHARACTER PHYSICAL IDENTIFIER
00487  M00S00479.lidou   +++|          DATA   8L
00488  M00S00480.lidou   +++|          DATA   50HLID IS AN ASSOCIATED THREE CHARACTER LOGICAL IDENT
00489  M00S00481.lidou   +++|          DATA   8LIFIER
00490  M00S00482.lidou   +++|          DATA   50HX CAN BE V OR N.  Y CAN BE S, B, V OR N.  Z CAN BE
00491  M00S00483.lidou   +++|          DATA   8L E OR D.
00492  M00S00484.lidou   +++|          DATA   50HMAINFRM IS A (ONE TO SEVEN CHARACTER) MAINFRAME DE
00493  M00S00485.lidou   +++|          DATA   8LSCRIPTOR
00494  M00S00486.lidou   +++|          DATA   50HNNN IS THE NETWORK (*RHF*, *SSF*, *NAM*, OR *ALL*)
00495  M00S00487.lidou   +++|          DATA   8L
00496  M00S00488.lidou   +++|          DATA   50HENTER L.- TO SEE THE AVAILABLE COMMANDS
00497  M00S00489.lidou   +++|          DATA   8L
00498  M00S00490.lidou   +++|          DATA   50H
00499  M00S00491.lidou   +++|          DATA   8L
Line S00008 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00008.241l630 +++| HLBO     EQU    *-HLPC      COMMAND RESPONSE OFFSET
00501  M00S00492.lidou   +++|          DATA   50H
00502  M00S00493.lidou   +++|          DATA   8L
Line S00494 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00503  M01S00494.241l630 ---|          DATA   50HENTER L.BACK TO TOGGLE TO THE LID DISPLAY
Line S00009 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00504  M01S00009.241l630 +++|          DATA   50H
00505  M00S00495.lidou   +++|          DATA   8L
00506  M00S00496.lidou   +++|          CON    0           END OF BUFFER
00507  M00S00497.lidou   +++|          CON    0
Line S00010 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00010.241l630 +++|          ERRNZ  HLAO-LIDO   COMMAND RESPONSE OFFSET NOT CONSISTENT
00509  M01S00011.241l630 +++|          ERRNZ  HLBO-LIDO   COMMAND RESPONSE OFFSET NOT CONSISTENT
00510  M00S00498.lidou   +++|          SPACE  4
00511  M00S00499.lidou   +++|**        CONSTANT DATA.
00512  M00S00500.lidou   +++|
00513  M00S00501.lidou   +++| BLKS     DATA   10H            BLANK MESSAGE
00514  M00S00502.lidou   +++|          DATA   10H
00515  M00S00503.lidou   +++|          DATA   8L          WORD OF BLANKS WITH ZERO BYTE
Line S00504 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00516  M01S00504.241l630 ---| MORE     DATA   8LMORE      LID DISPLAY WORD FOR MORE DATA
Line S00012 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00517  M01S00012.241l630 +++| MORE     DATA   10HMORE        LID DISPLAY WORD FOR MORE DATA
00518  M00S00505.lidou   +++|          SPACE  4
00519  M00S00506.lidou   +++|**        STORAGE LOCATIONS.
00520  M00S00507.lidou   +++|
00521  M00S00508.lidou   +++| BUFF     BSSZ   2           *GETPP* REPLY BUFFER
00522  M00S00509.lidou   +++| CHDF     CON    0           CHANGE IN LID DISPLAY FLAG
00523  M00S00510.lidou   +++| CMLN     CON    0           COMMAND LENGTH FOR OUTPUT FILE
Line S00511 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00511.241l630 ---| CMRO     CON    0           COMMAND RESPONSE OFFSET
Line S00013 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00525  M01S00013.241l630 +++| EMAD     CON    0           ERROR MESSAGE ADDRESS
00526  M00S00512.lidou   +++| HLPF     CON    0           HELP DISPLAY FLAG
00527  M00S00513.lidou   +++| LCNT     CON    0           LINE COUNT FOR LISTINGS
00528  M00S00514.lidou   +++| LDSF     CON    0           *L* DISPLAY INPUT FLAG
00529  M00S00515.lidou   +++| IND1     CON    0           FIRST DISPLAYED INDEX IN LID BUFFER
00530  M00S00516.lidou   +++| IND2     CON    0           NEXT INDEX IN LID BUFFER TO BE DISPLAYED
Line S00517 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00531  M01S00517.241l630 ---| NMLL     CON    0           NUMBER OF LID LINES PER SCREEN
00532  M00S00518.lidou   +++| PAGC     CON    0           PAGE LINE LIMIT
00533  M00S00519.lidou   +++| PDFC     CON    0           PRINT DENSITY FORMAT CONTROL CHARACTER
00534  M00S00520.lidou   +++| PDFE     CON    0           PRINT DENSITY FORMAT EFFECTOR FLAG
00535  M00S00521.lidou   +++| PONE     VFD    42/0,18/HLPB  ADDRESS OF START OF CURRENT HELP PAGE
00536  M00S00522.lidou   +++| PTWO     VFD    42/0,18/HLPC  ADDRESS OF START OF OTHER HELP PAGE
00537  M00S00523.lidou   +++| WBUF     BSSZ   20          WORKING BUFFER
00538  M00S00524.lidou   +++|          TITLE  MAIN PROGRAM.
00539  M00S00525.lidou   +++| LIDOU    SPACE  4,10
00540  M00S00526.lidou   +++|**        LIDOU - MAIN PROGRAM.
00541  M00S00527.lidou   +++|*
00542  M00S00528.lidou   +++|*         CALLS  PCM, PRS.
00543  M00S00529.lidou   +++|*
00544  M00S00530.lidou   +++|*         NOTE   CONTROL IS NOT RETURNED FROM ROUTINE *PCM* BUT
00545  M00S00531.lidou   +++|*                RATHER WHEN AN *L.END* COMMAND (OR AN *EOF* IN
00546  M00S00532.lidou   +++|*                THE CASE OF AN INPUT FILE) IS ENCOUNTERD ROU-
00547  M00S00533.lidou   +++|*                TINE *LED* IS CALLED WHICH TERMINATES LIDOU.
00548  M00S00534.lidou   +++|*
00549  M00S00535.lidou   +++|
00550  M00S00536.lidou   +++|
00551  M00S00537.lidou   +++| LIDOU    BSS    0           ENTRY
00552  M00S00538.lidou   +++|          RJ     PRS         PRESET
00553  M00S00539.lidou   +++|          SB7    B0+         CLEAR ERROR MESSAGE ADDRESS
00554  M00S00540.lidou   +++|          RJ     PCM         PROCESS COMMANDS
00555  M00S00541.lidou   +++|          TITLE  SUBROUTINES.
00556  M00S00542.lidou   +++| ERR      SPACE  4,15
00557  M00S00543.lidou   +++|**        ERR - ERROR ROUTINE.
00558  M00S00544.lidou   +++|*
00559  M00S00545.lidou   +++|*         ENTRY  THE LID TABLE READ FROM CENTRAL MEMORY IS EMPTY.
00560  M00S00546.lidou   +++|*
00561  M00S00547.lidou   +++|*         EXIT   TO *LED* AFTER INITIAL OUTPUT MESSAGE.
00562  M00S00548.lidou   +++|*                (CHDF) = 0.
00563  M00S00549.lidou   +++|*
00564  M00S00550.lidou   +++|*         USES   X - 1, 6.
00565  M00S00551.lidou   +++|*                A - 1, 6.
00566  M00S00552.lidou   +++|*                B - 7.
00567  M00S00553.lidou   +++|*
00568  M00S00554.lidou   +++|*         CALLS  FRS, LED, POF.
00569  M00S00555.lidou   +++|
00570  M00S00556.lidou   +++| ERR      SA1    MSET        * LID TABLE EMPTY.*
00571  M00S00557.lidou   +++|          BX6    X1
00572  M00S00558.lidou   +++|          SA1    A1+B1
00573  M00S00559.lidou   +++|          SA6    LBFI+1      MOVE MESSAGE TO COMMAND BUFFER
00574  M00S00560.lidou   +++|          BX6    X1
00575  M00S00561.lidou   +++|          SA6    A6+B1
00576  M00S00562.lidou   +++|          SX6    B0+         CLEAR CHANGED FLAG
00577  M00S00563.lidou   +++|          SA6    CHDF
00578  M00S00564.lidou   +++|          SA1    LDSF        CHECK *L* DISPLAY FLAG
00579  M00S00565.lidou   +++|          ZR     X1,ERR1     IF *L* DISPLAY NOT ACTIVE
00580  M00S00566.lidou   +++|          SB7    MSLC        * UTILITY COMPLETE*
00581  M00S00567.lidou   +++|          RJ     FRS         FORMAT REQUESTED SCREEN
00582  M00S00568.lidou   +++|          JP     LED         END UTILITY
00583  M00S00569.lidou   +++|
00584  M00S00570.lidou   +++| ERR1     SB7    MSET        * LID TABLE EMPTY.*
00585  M00S00571.lidou   +++|          RJ     POF         PROCESS OUTPUT FILE
00586  M00S00572.lidou   +++|          JP     LED         END UTILITY
00587  M00S00573.lidou   +++| FBL      SPACE  4,20
00588  M00S00574.lidou   +++|**        FBL - FORMAT BUFFER FOR LID TABLE.
00589  M00S00575.lidou   +++|*
00590  M00S00576.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE REFORMATTED LID TABLE.
00591  M00S00577.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
00592  M00S00578.lidou   +++|*                (NMLL) = THE NUMBER OF USABLE LINES PER SCREEN.
00593  M00S00579.lidou   +++|*                (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
00594  M00S00580.lidou   +++|*                         TO BE DISPLAYED.
00595  M00S00581.lidou   +++|*
00596  M00S00582.lidou   +++|*         EXIT   *LIDB* CONTAINS THE INFORMATION TO BE DISPLAYED.
00597  M00S00583.lidou   +++|*                (X7) = *MORE DATA* WORD FOR LID DISPLAY.
00598  M00S00584.lidou   +++|*                (X6) = INDEX INTO *LIDI* OF NEXT ENTRY,
00599  M00S00585.lidou   +++|*                       (NOT YET DISPLAYED).
00600  M00S00586.lidou   +++|*
00601  M00S00587.lidou   +++|*         USES   X - 1, 2, 3, 6, 7.
Line S00588 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00588.241l630 ---|*                A - 1, 2, 3, 6.
Line S00014 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00603  M01S00014.241l630 +++|*                A - 1, 2, 6.
00604  M00S00589.lidou   +++|*                B - 2, 3.
00605  M00S00590.lidou   +++|*
00606  M00S00591.lidou   +++|*         CALLS  FLL, FPL.
00607  M00S00592.lidou   +++|
00608  M00S00593.lidou   +++|
00609  M00S00594.lidou   +++| FBL3     SA1    BLKS        FORMAT BLANK LINE(S)
00610  M00S00595.lidou   +++|          SA2    BLKS+2
00611  M00S00596.lidou   +++| FBL4     BX6    X1
00612  M00S00597.lidou   +++|          SA6    A6+B1
00613  M00S00598.lidou   +++|          SA6    A6+B1
00614  M00S00599.lidou   +++|          SA6    A6+B1
00615  M00S00600.lidou   +++|          SA6    A6+B1
00616  M00S00601.lidou   +++|          SA6    A6+B1
00617  M00S00602.lidou   +++|          BX6    X2          STORE END OF LINE
00618  M00S00603.lidou   +++|          SA6    A6+B1
00619  M00S00604.lidou   +++|          SB3    B3-1        CHECK IF STILL LINES TO FORMAT
00620  M00S00605.lidou   +++|          NZ     B3,FBL4     IF NOT DONE
00621  M00S00606.lidou   +++| FBL5     SA1    LIDI        CHECK IF LAST SCREEN
00622  M00S00607.lidou   +++|          SX6    B2
00623  M00S00608.lidou   +++|          IX3    X6-X1
00624  M00S00609.lidou   +++|          SA1    BLKS
00625  M00S00610.lidou   +++|          SA2    MORE
00626  M00S00611.lidou   +++|          BX7    X1
00627  M00S00612.lidou   +++|          PL     X3,FBLX     IF LAST SCREEN
00628  M00S00613.lidou   +++|          BX7    X2
00629  M00S00614.lidou   +++|
00630  M00S00615.lidou   +++| FBL      SUBR               ENTRY/EXIT
00631  M00S00616.lidou   +++|          SA1    LIDD-1      PRESET ADDRESSES
00632  M00S00617.lidou   +++|          BX6    X1
00633  M00S00618.lidou   +++|          SA6    A1
00634  M00S00619.lidou   +++|          SA2    IND1        GET INDEX INTO *LIDI*
Line S00620 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00635  M01S00620.241l630 ---|          SA3    NMLL        GET NUMBER OF LINES TO FORMAT
00636  M01S00621.241l630 ---|          SB2    X2
00637  M01S00622.241l630 ---|          SB3    X3
Line S00015 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00015.241l630 +++|          SB2    X2+
00639  M01S00016.241l630 +++|          SB3    NMLL        SET NUMBER OF LINES TO FORMAT
00640  M00S00623.lidou   +++|          SA1    LIDI+B2     GET WORD FROM TABLE
00641  M00S00624.lidou   +++|          SX2    X1+         CHECK FOR LID OR PID
00642  M00S00625.lidou   +++|          ZR     X2,FBL2     IF LID
Line S00626 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00643  M01S00626.241l630 ---| FBL1     SA2    X2          GET MAINFRAME AND SUBSYTEM INFORMATION
Line S00017 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00644  M01S00017.241l630 +++| FBL1     SA2    X2          GET MAINFRAME AND SUBSYSTEM INFORMATION
00645  M00S00627.lidou   +++|          LX1    18          RIGHT JUSTIFY PID
00646  M00S00628.lidou   +++|          RJ     FPL         FORMAT PID LINE(S)
00647  M00S00629.lidou   +++|          ZR     B3,FBL5     IF NO MORE LINES TO FORMAT
00648  M00S00630.lidou   +++|          SA1    LIDI+B2     GET NEXT WORD FROM TABLE
00649  M00S00631.lidou   +++| FBL2     SB2    B2+1
00650  M00S00632.lidou   +++|          RJ     FLL         FORMAT LID LINE
00651  M00S00633.lidou   +++|          SB3    B3-B1
00652  M00S00634.lidou   +++|          SA1    LIDI+B2     GET NEXT WORD FROM TABLE
00653  M00S00635.lidou   +++|          SX2    X1
00654  M00S00636.lidou   +++|          ZR     B3,FBL5     IF NO MORE LINES TO FORMAT
00655  M00S00637.lidou   +++|          ZR     X1,FBL3     IF END OF TABLE
00656  M00S00638.lidou   +++|          ZR     X2,FBL2     IF ANOTHER LID
00657  M00S00639.lidou   +++|          EQ     FBL1        FORMAT NEXT PID
00658  M00S00640.lidou   +++| FLL      SPACE  4,15
00659  M00S00641.lidou   +++|**        FLL - FORMAT LID LINE.
00660  M00S00642.lidou   +++|*
00661  M00S00643.lidou   +++|*         ENTRY  (X1) = THE WORD (FROM *LIDI*) CONTAINING THE LID.
00662  M00S00644.lidou   +++|*                (A6) = ADDRESS (MINUS ONE) TO STORE THE LINE.
00663  M00S00645.lidou   +++|*
00664  M00S00646.lidou   +++|*         EXIT   (A6) = ADDRESS (MINUS ONE) TO STORE THE NEXT LINE.
00665  M00S00647.lidou   +++|*
00666  M00S00648.lidou   +++|*         USES   X - 1, 2, 3, 4, 6.
00667  M00S00649.lidou   +++|*                A - 2, 3, 4 ,6.
00668  M00S00650.lidou   +++|*
00669  M00S00651.lidou   +++|*         CALLS  GLA.
00670  M00S00652.lidou   +++|
00671  M00S00653.lidou   +++|
00672  M00S00654.lidou   +++| FLL2     SA2    FLLA+1      SAVE BLANK LID WORD
00673  M00S00655.lidou   +++|          BX6    X2
00674  M00S00656.lidou   +++|          SA6    A6+B1
00675  M00S00657.lidou   +++|          BX6    X3          ZERO WORDS TWO AND THREE
00676  M00S00658.lidou   +++|          SA6    A6+B1
00677  M00S00659.lidou   +++|          SA6    A6+1
00678  M00S00660.lidou   +++| FLL3     SA6    A6+B1       ZERO WORDS FOUR AND FIVE
00679  M00S00661.lidou   +++|          SA6    A6+B1
00680  M00S00662.lidou   +++|          BX6    X4          END OF LINE
00681  M00S00663.lidou   +++|          SA6    A6+B1
00682  M00S00664.lidou   +++|
00683  M00S00665.lidou   +++| FLL      SUBR               ENTRY/EXIT
00684  M00S00666.lidou   +++|          SA3    BLKS+1      GET BLANK WORD
00685  M00S00667.lidou   +++|          SA4    A3+B1
00686  M00S00668.lidou   +++|          MX6    -18         MASK OFF LID
00687  M00S00669.lidou   +++|          LX1    18
00688  M00S00670.lidou   +++|          BX6    -X6*X1
00689  M00S00671.lidou   +++|          ZR     X6,FLL2     IF ZERO LID
00690  M00S00672.lidou   +++|          SA2    FLLA        STORE LID WORD
00691  M00S00673.lidou   +++|          BX6    X6+X2
00692  M00S00674.lidou   +++|          SA6    A6+B1
00693  M00S00675.lidou   +++|          LX1    6           CHECK FOR ENABLED STATUS
00694  M00S00676.lidou   +++|          SA2    FPLA        GET ENABLED STATUS WORD
00695  M00S00677.lidou   +++|          BX6    X2
00696  M00S00678.lidou   +++|          NG     X1,FLL1     IF ENABLED
00697  M00S00679.lidou   +++|          SA2    A2+B1       GET DISABLED STATUS WORD
00698  M00S00680.lidou   +++|          BX6    X2
00699  M00S00681.lidou   +++| FLL1     SA6    A6+B1       SAVE STATUS WORD
00700  M00S00682.lidou   +++|          LX1    5           RIGHT JUSTIFY ATTRIBUTES
00701  M00S00683.lidou   +++|          RJ     GLA         GET LID ATTRIBUTES
00702  M00S00684.lidou   +++|          SA6    A6+B1       SAVE ATTRIBUTE WORD
00703  M00S00685.lidou   +++|          BX6    X3
00704  M00S00686.lidou   +++|          EQ     FLL3        FINISH LINE
00705  M00S00687.lidou   +++|
00706  M00S00688.lidou   +++| FLLA     VFD    42/7L       ,18/0  LID WORD
00707  M00S00689.lidou   +++|          VFD    60/10L       ---  BLANK LID WORD
00708  M00S00690.lidou   +++| FLT      SPACE  4,20
00709  M00S00691.lidou   +++|**        FLT - FORMAT LISTING OF LID TABLE.
00710  M00S00692.lidou   +++|*
00711  M00S00693.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE REFORMATTED LID TABLE.
00712  M00S00694.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
00713  M00S00695.lidou   +++|*                (LCNT) = NUMBER OF LINES TO FORMAT PER PAGE.
00714  M00S00696.lidou   +++|*                (A0) = 1.
00715  M00S00697.lidou   +++|*
00716  M00S00698.lidou   +++|*         EXIT   LISTING OF THE LID TABLE WRITTEN TO OUTPUT FILE.
00717  M00S00699.lidou   +++|*
00718  M00S00700.lidou   +++|*         USES   X - 0, 1, 2, 4, 5, 6.
00719  M00S00701.lidou   +++|*                A - 0, 1, 4, 5, 6.
00720  M00S00702.lidou   +++|*                B - 2, 3, 4.
00721  M00S00703.lidou   +++|*
00722  M00S00704.lidou   +++|*         CALLS  FLL, FPL, GPL.
00723  M00S00705.lidou   +++|*
00724  M00S00706.lidou   +++|*         MACROS WRITEC, WRITEH, WRITEW.
00725  M00S00707.lidou   +++|
00726  M00S00708.lidou   +++|
00727  M00S00709.lidou   +++| FLT      SUBR               ENTRY/EXIT
00728  M00S00710.lidou   +++|          SA1    PDFE
00729  M00S00711.lidou   +++|          NZ     X1,FLT1     IF FORMAT EFFECTOR WRITTEN
00730  M00S00712.lidou   +++|          WRITEC OUTPUT,PDFC  WRITE PRINT DENSITY FORMAT EFFECTOR
00731  M00S00713.lidou   +++| FLT1     WRITEW OUTPUT,LIDA,15  WRITE PAGE HEADER
00732  M00S00714.lidou   +++|          SA1    LCNT        GET LINE COUNT
00733  M00S00715.lidou   +++|          SX6    X1+
00734  M00S00716.lidou   +++| FLT2     SA6    FLTA        SAVE LINE COUNT
00735  M00S00717.lidou   +++|          SA1    LIDI+A0     GET WORD FORM TABLE
00736  M00S00718.lidou   +++|          SB2    A0
00737  M00S00719.lidou   +++|          SX2    X1          CHECK POINTER TO *MFTB*
00738  M00S00720.lidou   +++|          ZR     X1,FLTX     IF END OF TABLE
00739  M00S00721.lidou   +++|          ZR     X2,FLT4     IF LID
00740  M00S00722.lidou   +++|          LX1    18          RIGHT JUSTIFY PID
00741  M00S00723.lidou   +++|          SA4    X2          GET MAINFRAME AND NETWORK DATA
00742  M00S00724.lidou   +++|          MX0    -12
00743  M00S00725.lidou   +++|          BX2    -X0*X4
00744  M00S00726.lidou   +++|          RJ     GPL         GET PID LINE COUNT
00745  M00S00727.lidou   +++|          BX2    X4
00746  M00S00728.lidou   +++|          SA5    BLKS        GET BLANK WORD
00747  M00S00729.lidou   +++|          BX6    X5          STORE BLANK WORD
00748  M00S00730.lidou   +++|          SA6    WBUF
00749  M00S00731.lidou   +++|          SB3    3           SET NUMBER OF LINES
00750  M00S00732.lidou   +++|          RJ     FPL         FORMAT PID LINE(S)
00751  M00S00733.lidou   +++|          SA0    B2          SAVE INDEX
00752  M00S00734.lidou   +++|          SX0    B4          SAVE LINE COUNT
00753  M00S00735.lidou   +++|          SA1    FLTA        DECREMENT LINE COUNT
00754  M00S00736.lidou   +++|          SB3    X1
00755  M00S00737.lidou   +++|          SB4    B3-B4
00756  M00S00738.lidou   +++|          SX6    B4
00757  M00S00739.lidou   +++|          SA6    A1
00758  M00S00740.lidou   +++|          SA5    BLKS        GET BLANK WORD
00759  M00S00741.lidou   +++|          WRITEH OUTPUT,WBUF,7
00760  M00S00742.lidou   +++|          SX0    X0-1
00761  M00S00743.lidou   +++|          ZR     X0,FLT3     IF DONE WITH PID LINES
00762  M00S00744.lidou   +++|          BX6    X5          STORE BLANK WORD
00763  M00S00745.lidou   +++|          SA6    WBUF+6
00764  M00S00746.lidou   +++|          WRITEH OUTPUT,WBUF+6,7
00765  M00S00747.lidou   +++|          SX0    X0-1
00766  M00S00748.lidou   +++|          ZR     X0,FLT3     IF DONE WITH PID LINES
00767  M00S00749.lidou   +++|          BX6    X5          STORE BLANK WORD
00768  M00S00750.lidou   +++|          SA6    WBUF+12
00769  M00S00751.lidou   +++|          WRITEH OUTPUT,WBUF+12,7
00770  M00S00752.lidou   +++| FLT3     SA1    LIDI+A0     GET NEXT WORD FROM TABLE
00771  M00S00753.lidou   +++| FLT4     BX6    X5          STORE BLANK WORD
00772  M00S00754.lidou   +++|          SA6    WBUF
00773  M00S00755.lidou   +++|          SA0    A0+B1
00774  M00S00756.lidou   +++|          RJ     FLL         FORMAT LINE LINE
00775  M00S00757.lidou   +++|          WRITEH OUTPUT,WBUF,7  WRITE LID LINE
00776  M00S00758.lidou   +++|          SA1    FLTA        CHECK LINE COUNT
00777  M00S00759.lidou   +++|          SX6    X1-1
00778  M00S00760.lidou   +++|          PL     X6,FLT2     IF MORE ROOM ON PAGE
00779  M00S00761.lidou   +++|          EQ     FLT1        FORMAT PAGE HEADER
00780  M00S00762.lidou   +++|
00781  M00S00763.lidou   +++| FLTA     BSS    1           HOLDS LINE COUNT
00782  M00S00764.lidou   +++| FPL      SPACE  4,20
00783  M00S00765.lidou   +++|**        FPL - FORMAT PID LINE(S).
00784  M00S00766.lidou   +++|*
00785  M00S00767.lidou   +++|*         ENTRY  (X1) = THE PID ENTRY, WITH THE PID RIGHT JUSTIFIED.
00786  M00S00768.lidou   +++|*                (X2) = THE MAINFRAME/NETWORK WORD FROM *MFTB*.
00787  M00S00769.lidou   +++|*                (A6) = ADDRESS (MINUS ONE) TO STORE THE LINE(S).
00788  M00S00770.lidou   +++|*                (B2) = THE INDEX INTO *LIDI* FOR THE PID ENTRY.
00789  M00S00771.lidou   +++|*                (B3) = THE NUMBER OF LINES LEFT ON THE SCREEN.
00790  M00S00772.lidou   +++|*
00791  M00S00773.lidou   +++|*         EXIT   (A6) = ADDRESS (MINUS ONE) TO STORE NEXT LINE.
00792  M00S00774.lidou   +++|*                (B2) = THE INDEX INTO *LIDI* FOR THE NEXT ENTRY.
00793  M00S00775.lidou   +++|*                (B3) = THE NUMBER OF LINES LEFT ON THE SCREEN.
00794  M00S00776.lidou   +++|*
00795  M00S00777.lidou   +++|*         USES   X - ALL.
00796  M00S00778.lidou   +++|*                A - 3, 4, 6.
00797  M00S00779.lidou   +++|*                B - 2, 3, 5, 6
00798  M00S00780.lidou   +++|*
00799  M00S00781.lidou   +++|*         CALLS  GPA.
00800  M00S00782.lidou   +++|
00801  M00S00783.lidou   +++|
00802  M00S00784.lidou   +++| FPL6     NZ     X5,FPLX     IF ANY NETWORK INFORMATION WRITTEN
00803  M00S00785.lidou   +++|          SA3    BLKS        BLANK FILL INITIAL LINE
00804  M00S00786.lidou   +++|          BX6    X3
00805  M00S00787.lidou   +++|          SA6    A6+B1
00806  M00S00788.lidou   +++|          BX6    X0*X6       END OF LINE
00807  M00S00789.lidou   +++|          SA6    A6+B1
00808  M00S00790.lidou   +++|
00809  M00S00791.lidou   +++| FPL      SUBR               ENTRY/EXIT
00810  M00S00792.lidou   +++|          SX6    X1          STORE PID WORD
00811  M00S00793.lidou   +++|          SA3    FPLB
00812  M00S00794.lidou   +++|          LX6    -18
00813  M00S00795.lidou   +++|          BX6    X6+X3
00814  M00S00796.lidou   +++|          SA6    A6+B1       STORE PID WORD
00815  M00S00797.lidou   +++|          SA3    FPLA        GET ENABLED STATUS WORD
00816  M00S00798.lidou   +++|          BX6    X3
00817  M00S00799.lidou   +++|          LX1    1           CHECK ENABLED/DISABLED STATUS
00818  M00S00800.lidou   +++|          MX0    42
00819  M00S00801.lidou   +++|          SX5    B0          SET INITIAL LINE BEING PROCESSED
00820  M00S00802.lidou   +++|          NG     X1,FPL1     IF ENABLED
00821  M00S00803.lidou   +++|          SA3    A3+B1       GET DISABLED STATUS
00822  M00S00804.lidou   +++|          BX6    X3
00823  M00S00805.lidou   +++| FPL1     SA6    A6+B1       STORE STATUS WORD
00824  M00S00806.lidou   +++|          LX1    3           RIGHT JUSTIFY ATTRIBUTES
00825  M00S00807.lidou   +++|          RJ     GPA         GET PID ATTRIBUTES
00826  M00S00808.lidou   +++|          SA6    A6+B1       STORE ATTRIBUTE WORD
00827  M00S00809.lidou   +++|          SX3    3R
00828  M00S00810.lidou   +++|          BX6    X0*X2       STORE MAINFRAME WORD
00829  M00S00811.lidou   +++|          BX3    -X0*X3      MASK OFF SIGN EXTENSION
00830  M00S00812.lidou   +++|          BX1    -X0*X2      MASK OFF NETWORK INFORMATION
00831  M00S00813.lidou   +++|          BX6    X6+X3
00832  M00S00814.lidou   +++|          SA6    A6+B1
00833  M00S00815.lidou   +++|          SA3    FPLD        GET NETWORK WORD
00834  M00S00816.lidou   +++|          SB5    3           NUMBER OF NETWORKS
00835  M00S00817.lidou   +++|          MX2    -4
00836  M00S00818.lidou   +++|          SB2    B2+B1
00837  M00S00819.lidou   +++|          SB3    B3-1
00838  M00S00820.lidou   +++| FPL2     SX7    X3          GET NETWORK IDENTIFIER
00839  M00S00821.lidou   +++|          BX4    -X2*X1
00840  M00S00822.lidou   +++|          SB6    B0
00841  M00S00823.lidou   +++|          LX7    -18         LEFT JUSTIFY NETWORK IDENTIFIER
00842  M00S00824.lidou   +++|          SX6    X4-/NTS/ISV
00843  M00S00825.lidou   +++|          ZR     X6,FPL4     IF IN SERVICE
00844  M00S00826.lidou   +++|          SB6    B6+2
00845  M00S00827.lidou   +++|          SX6    X4-/NTS/OSV
00846  M00S00828.lidou   +++|          ZR     X6,FPL4     IF OUT OF SERVICE
00847  M00S00829.lidou   +++|          SB6    B6+2
00848  M00S00830.lidou   +++|          SX6    X4-/NTS/DAB
00849  M00S00831.lidou   +++|          PL     X6,FPL4     IF DISABLED
00850  M00S00832.lidou   +++| FPL3     SB5    B5-B1
00851  M00S00833.lidou   +++|          MX0    48
00852  M00S00834.lidou   +++|          ZR     B5,FPL6     IF ALL NETWORKS CHECKED
00853  M00S00835.lidou   +++|          LX1    -4
00854  M00S00836.lidou   +++|          LX3    -18
00855  M00S00837.lidou   +++|          EQ     FPL2        CHECK NEXT NETWORK
00856  M00S00838.lidou   +++|
00857  M00S00839.lidou   +++| FPL4     ZR     X5,FPL5     IF INITIAL LINE
00858  M00S00840.lidou   +++|          SB3    B3-B1       DECREMENT LINE COUNT
00859  M00S00841.lidou   +++|          SB2    B2+B1       INCREMENT INDEX INTO *LIDI*
00860  M00S00842.lidou   +++|          SA4    BLKS        BLANK FILL START OF LINE
00861  M00S00843.lidou   +++|          BX6    X4
00862  M00S00844.lidou   +++|          SA6    A6+B1
00863  M00S00845.lidou   +++|          SA6    A6+B1
00864  M00S00846.lidou   +++|          SA6    A6+B1
00865  M00S00847.lidou   +++|          SA6    A6+1
00866  M00S00848.lidou   +++| FPL5     SX5    B1          CLEAR INITIAL LINE
00867  M00S00849.lidou   +++|          SA4    FPLC+B6     STORE FIRST WORD OF NETWORK STATUS
00868  M00S00850.lidou   +++|          BX6    X4+X7       ADD IN NETWORK IDENTIFIER
00869  M00S00851.lidou   +++|          SA6    A6+B1
00870  M00S00852.lidou   +++|          SA4    A4+B1       STORE SECOND WORD
00871  M00S00853.lidou   +++|          BX6    X4
00872  M00S00854.lidou   +++|          SA6    A6+B1
00873  M00S00855.lidou   +++|          ZR     B3,FPLX     IF NO MORE LINES ON SCREEN
00874  M00S00856.lidou   +++|          EQ     FPL3        CHECK IF ALL NETWORKS PROCESSED
00875  M00S00857.lidou   +++|
00876  M00S00858.lidou   +++| FPLA     VFD    60/10L    YES     ENABLED
00877  M00S00859.lidou   +++|          VFD    60/10L    NO      NOT ENABLED
00878  M00S00860.lidou   +++| FPLB     VFD    18/0,42/7L    ---  PID WORD
00879  M00S00861.lidou   +++| FPLC     VFD    18/0,42/7L IN SER  NETWORK STATUSES
00880  M00S00862.lidou   +++|          VFD    60/8LVICE
00881  M00S00863.lidou   +++|          VFD    18/0,42/7L OUT OF
00882  M00S00864.lidou   +++|          VFD    60/8L SERVICE
00883  M00S00865.lidou   +++|          VFD    18/0,42/7L DISABL
00884  M00S00866.lidou   +++|          VFD    60/8LED
00885  M00S00867.lidou   +++| FPLD     VFD    6/0         NETWORKS
00886  M00S00868.lidou   +++|          VFD    18/3LSSF
00887  M00S00869.lidou   +++|          VFD    18/3LRHF
00888  M00S00870.lidou   +++|          VFD    18/3LNAM
00889  M00S00871.lidou   +++| FRL      SPACE  4,15
00890  M00S00872.lidou   +++|**        FRL - FORMAT RESPONSE LINES.
00891  M00S00873.lidou   +++|*
00892  M00S00874.lidou   +++|*         ENTRY  (X1) = START OF BUFFER BEING USED.
00893  M00S00875.lidou   +++|*                (X2) = COMMAND RESPONSE OFFSET INTO BUFFER.
00894  M00S00876.lidou   +++|*                (B7) = ADDRESS OF ERROR RESPONSE.
Line S00877 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00895  M01S00877.241l630 ---|*                     = 0, IF FORMATTING DEFAULT MESSAGE.
Line S00018 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00896  M01S00018.241l630 +++|*                     = 0, IF NO ERROR MESSAGE.
00897  M00S00878.lidou   +++|*
Line S00879 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00898  M01S00879.241l630 ---|*         EXIT   RESPONSE LINES FORMATTED, LAST TWO WORDS IN
00899  M01S00880.241l630 ---|*                BUFFER ZEROED TO TERMINATE BUFFER.
Line S00019 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00900  M01S00019.241l630 +++|*         EXIT   RESPONSE LINES FORMATTED.
00901  M00S00881.lidou   +++|*                (X6) = LWA OF BUFFER (FOR *COMCFLD*).
00902  M00S00882.lidou   +++|*
00903  M00S00883.lidou   +++|*         USES   X - 2, 3, 6.
00904  M00S00884.lidou   +++|*                A - 2, 3, 6.
00905  M00S00885.lidou   +++|*                B - 3, 4, 7.
00906  M00S00886.lidou   +++|
00907  M00S00887.lidou   +++|
00908  M00S00888.lidou   +++| FRL1     SA3    B7          FORMAT MESSAGE LINE
00909  M00S00889.lidou   +++|          BX6    X3
00910  M00S00890.lidou   +++|          SA6    B4
00911  M00S00891.lidou   +++|          SA3    A3+B1
00912  M00S00892.lidou   +++|          BX6    X3
00913  M00S00893.lidou   +++|          SA6    A6+B1
00914  M00S00894.lidou   +++|          SB4    A6+5
00915  M00S00895.lidou   +++| FRL2     BX6    X2          FORMAT COMMAND LINE
00916  M00S00896.lidou   +++|          SA6    B4
Line S00897 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00917  M01S00897.241l630 ---|          SB4    B4+B1
00918  M01S00898.241l630 ---|          SB3    B3-B1
00919  M01S00899.241l630 ---|          SA2    A2+B1
Line S00020 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00920  M01S00020.241l630 +++|          SA2    A2+1
00921  M01S00021.241l630 +++|          SB4    B4+1
00922  M01S00022.241l630 +++|          SB3    B3-1
00923  M00S00900.lidou   +++|          ZR     X2,FRL3     IF END OF INPUT
00924  M00S00901.lidou   +++|          NZ     B3,FRL2     IF NOT DONE
Line S00902 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00925  M01S00902.241l630 ---| FRL3     SX6    A6          SAVE END OF BUFFER ADDRESS
Line S00023 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00926  M01S00023.241l630 +++| FRL3     SX6    A6+         SAVE END OF BUFFER ADDRESS
00927  M00S00903.lidou   +++|
00928  M00S00904.lidou   +++| FRL      SUBR               ENTRY/EXIT
00929  M00S00905.lidou   +++|          SB4    X1          CALCULATE MESSAGE ADDRESS
00930  M00S00906.lidou   +++|          SB4    X2+B4
00931  M00S00907.lidou   +++|          SB3    6           SET COUNTER
00932  M00S00908.lidou   +++|          SA2    LBFI+1
00933  M00S00909.lidou   +++|          NZ     B7,FRL1     IF ERROR MESSAGE REQUESTED
00934  M00S00910.lidou   +++|          SB7    BLKS        SET BLANK ERROR MESSAGE
Line S00911 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00935  M01S00911.241l630 ---|          SA3    HLPF        CHECK WHICH DISPLAY
00936  M01S00912.241l630 ---|          SA2    MSRH
00937  M01S00913.241l630 ---|          NZ     X3,FRL1     IF HELP DISPLAY ACTIVE
00938  M01S00914.241l630 ---|          SA2    MSRL
00939  M00S00915.lidou   +++|          EQ     FRL1        FORMAT LINES
00940  M00S00916.lidou   +++| FRS      SPACE  4,30
00941  M00S00917.lidou   +++|**        FRS - FORMAT REQUESTED SCREEN.
00942  M00S00918.lidou   +++|*
00943  M00S00919.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE REFORMATTED LID TABLE.
00944  M00S00920.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
00945  M00S00921.lidou   +++|*                (CMRO) = COMMAND RESPONSE OFFSET INTO BUFFER.
00946  M00S00922.lidou   +++|*                (B7) = ADDRESS OF ERROR RESPONSE.
Line S00923 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00947  M01S00923.241l630 ---|*                     = 0, IF FORMATTING DEFAULT MESSAGE.
Line S00024 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00948  M01S00024.241l630 +++|*                     = 0, IF NO ERROR MESSAGE.
00949  M00S00924.lidou   +++|*                (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
00950  M00S00925.lidou   +++|*                         TO BE DISPLAYED ON SCREEN
00951  M00S00926.lidou   +++|*                (HLPF) = 1, IF HELP DISPLAY REQUESTED.
00952  M00S00927.lidou   +++|*                       = 0, IF LID TABLE DISPLAY REQUESTED.
00953  M00S00928.lidou   +++|*                (PONE) = ADDRESS OF CURRENT HELP PAGE.
00954  M00S00929.lidou   +++|*                (CHDF) = 1, IF LID DISPLAY NEEDS TO BE RE-
00955  M00S00930.lidou   +++|*                            FORMATTED.
00956  M00S00931.lidou   +++|*                       = 0, OTHERWISE.
00957  M00S00932.lidou   +++|*
00958  M00S00933.lidou   +++|*         EXIT   *L* DISPLAY INFORMATION FORMATTED, IF NECESSARY,
00959  M00S00934.lidou   +++|*                AND DISPLAYED.
00960  M00S00935.lidou   +++|*                (IND2) = INDEX INTO *LIDI* OF NEXT ENTRY,
00961  M00S00936.lidou   +++|*                         NOT YET DISPLAYED ON SCREEN.
00962  M00S00937.lidou   +++|*
00963  M00S00938.lidou   +++|*         USES   X - 1, 2, 3, 6, 7.
00964  M00S00939.lidou   +++|*                A - 1, 2, 6, 7.
00965  M00S00940.lidou   +++|*                B - 2, 3, 4, 6.
00966  M00S00941.lidou   +++|*
00967  M00S00942.lidou   +++|*         CALLS  FBL, FLB, FRL.
00968  M00S00943.lidou   +++|*
00969  M00S00944.lidou   +++|*         MACROS DSDOUT.
00970  M00S00945.lidou   +++|
Line S00946 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00971  M01S00946.241l630 ---| FRS2     SA2    CMRO        GET COMMAND RESPONSE OFFSET
Line S00025 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00972  M01S00025.241l630 +++| FRS2     SX2    LIDO        SET COMMAND RESPONSE OFFSET
00973  M00S00947.lidou   +++|          RJ     FRL         FORMAT RESPONSE LINE
00974  M00S00948.lidou   +++|          SB2    LBFO+1      SET DESTINATION BUFFER ADDRESSES
00975  M00S00949.lidou   +++|          SB6    LBFOE-1
00976  M00S00950.lidou   +++|          SB3    XCDT        SET X AND Y STARTING COORDINATES
00977  M00S00951.lidou   +++|          SB4    YCDT
00978  M00S00952.lidou   +++|          SX2    B0          SET DISPLAY CODE FOR *L* DISPLAY
00979  M00S00953.lidou   +++|          SX3    B1
00980  M00S00954.lidou   +++|          RJ     FLB         FORMAT BUFFER FOR *L* DISPLAY
00981  M00S00955.lidou   +++|          DSDOUT LBFO        DISPLAY *L* DISPLAY
00982  M00S00956.lidou   +++|
00983  M00S00957.lidou   +++| FRS      SUBR               ENTRY/EXIT
00984  M00S00958.lidou   +++|          SA2    HLPF        CHECK FOR HELP DISPLAY REQUESTED
00985  M00S00959.lidou   +++|          SA1    PONE        SET START OF HELP BUFFER
00986  M00S00960.lidou   +++|          NZ     X2,FRS2     IF HELP DISPLAY REQUESTED
00987  M00S00961.lidou   +++|          SA2    CHDF        CHECK FOR LID DISPLAY CHANGE
00988  M00S00962.lidou   +++|          ZR     X2,FRS1     IF NO CHANGE
00989  M00S00963.lidou   +++|          SX6    B0+         CLEAR LID TABLE CHANGED FLAG
00990  M00S00964.lidou   +++|          SA6    CHDF
00991  M00S00965.lidou   +++|          RJ     FBL         FORMAT BUFFER FOR LID TABLE
00992  M00S00966.lidou   +++|          SA6    IND2        SAVE NEXT ENTRY INDEX
00993  M00S00967.lidou   +++|          SA7    LIDE        STORE *MORE DATA* WORD
00994  M00S00968.lidou   +++| FRS1     SX1    LIDB        SET START OF LID BUFFER
00995  M00S00969.lidou   +++|          EQ     FRS2        FORMAT RESPONSE LINE
00996  M00S00970.lidou   +++| GLA      SPACE  4,10
00997  M00S00971.lidou   +++|**        GLA - GET LID ATTRIBUTES.
00998  M00S00972.lidou   +++|*
00999  M00S00973.lidou   +++|*         ENTRY  (X1) = LID WORD WITH ATTRIBUTES RIGHT JUSTIFIED.
01000  M00S00974.lidou   +++|*
01001  M00S00975.lidou   +++|*         EXIT   (X6) = ATTRIBUTE WORD (DISPLAY CODE EQUIVALENT).
01002  M00S00976.lidou   +++|*                (X1) = 0, IF NO ERROR.
01003  M00S00977.lidou   +++|*                       NONZERO IF NO MATCH.
01004  M00S00978.lidou   +++|*
01005  M00S00979.lidou   +++|*         USES   X - 1, 2, 6.
01006  M00S00980.lidou   +++|*                A - 2.
01007  M00S00981.lidou   +++|
01008  M00S00982.lidou   +++|
01009  M00S00983.lidou   +++| GLA2     MX1    42
01010  M00S00984.lidou   +++|          SX6    3R
01011  M00S00985.lidou   +++|          BX6    -X1*X6      MASK OFF SIGN EXTENSION
01012  M00S00986.lidou   +++|          BX2    X1*X2       MASK OFF ATTRIBUTES
01013  M00S00987.lidou   +++|          BX6    X2+X6       ADD IN BLANKS
01014  M00S00988.lidou   +++|          SX1    B0+         CLEAR ERROR
01015  M00S00989.lidou   +++|
01016  M00S00990.lidou   +++| GLA      SUBR               ENTRY/EXIT
01017  M00S00991.lidou   +++|          MX2    -4          IGNORE ENABLED BIT
01018  M00S00992.lidou   +++|          BX1    -X2*X1
01019  M00S00993.lidou   +++|          SA2    TLAT        GET TABLE ENTRY
01020  M00S00994.lidou   +++| GLA1     ZR     X2,GLAX     IF END OF TABLE
01021  M00S00995.lidou   +++|          SX6    X2
01022  M00S00996.lidou   +++|          BX6    X6-X1       CHECK FOR MATCH
01023  M00S00997.lidou   +++|          ZR     X6,GLA2     IF ATTRIBUTES MATCH
01024  M00S00998.lidou   +++|          SA2    A2+1
01025  M00S00999.lidou   +++|          EQ     GLA1        CHECK FOR END OF TABLE
01026  M00S01000.lidou   +++| GLT      SPACE  4,15
01027  M00S01001.lidou   +++|**        GLT - GET LID TABLE.
01028  M00S01002.lidou   +++|*
01029  M00S01003.lidou   +++|*         ENTRY  (A1) = ADDRESS OF LID TABLE FET (*LIDF*).
01030  M00S01004.lidou   +++|*
01031  M00S01005.lidou   +++|*         EXIT   LID TABLE READ FROM CORE AND, IF NOT EMPTY,
01032  M00S01006.lidou   +++|*                *LIDI* CONTAINS THE REFORMATTED LID TABLE AND
01033  M00S01007.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
01034  M00S01008.lidou   +++|*                TO *ERR* IF EMPTY LID TABLE.
01035  M00S01009.lidou   +++|*
01036  M00S01010.lidou   +++|*         USES   X - 1, 6, 7.
01037  M00S01011.lidou   +++|*                A - 1, 6.
01038  M00S01012.lidou   +++|*
01039  M00S01013.lidou   +++|*         CALLS  RLD.
01040  M00S01014.lidou   +++|*
01041  M00S01015.lidou   +++|*         MACROS GETLIDT.
01042  M00S01016.lidou   +++|
01043  M00S01017.lidou   +++|
01044  M00S01018.lidou   +++| GLT      SUBR               ENTRY/EXIT
01045  M00S01019.lidou   +++|          SA1    A1+B1       REWIND FET
01046  M00S01020.lidou   +++|          SX6    X1
01047  M00S01021.lidou   +++|          SA6    A1+B1
01048  M00S01022.lidou   +++|          SA6    A6+B1
01049  M00S01023.lidou   +++|          GETLIDT  LIDF      GET LID TABLE
01050  M00S01024.lidou   +++|          SA1    LIDI        GET NUMBER OF PIDS IN TABLE
01051  M00S01025.lidou   +++|          MX6    -12
01052  M00S01026.lidou   +++|          BX7    -X6*X1
01053  M00S01027.lidou   +++|          ZR     X7,ERR      IF EMPTY TABLE
01054  M00S01028.lidou   +++|          RJ     RLD         REFORMAT LID TABLE
01055  M00S01029.lidou   +++|          EQ     GLTX        RETURN
01056  M00S01030.lidou   +++| GPA      SPACE  4,10
01057  M00S01031.lidou   +++|**        GPA - GET PID ATTRIBUTES.
01058  M00S01032.lidou   +++|*
01059  M00S01033.lidou   +++|*         ENTRY  (X1) = PID ATTRIBUTES, RIGHT JUSTIFIED.
01060  M00S01034.lidou   +++|*
01061  M00S01035.lidou   +++|*         EXIT   (X6) = ATTRIBUTE WORD (DISPLAY CODE EQUIVALENT).
01062  M00S01036.lidou   +++|*                (X1) = 0, IF NO ERROR.
01063  M00S01037.lidou   +++|*                       NONZERO IF NO MATCH.
01064  M00S01038.lidou   +++|*
01065  M00S01039.lidou   +++|*         USES   X - 1, 3, 6.
01066  M00S01040.lidou   +++|*                A - 3.
01067  M00S01041.lidou   +++|
01068  M00S01042.lidou   +++|
01069  M00S01043.lidou   +++| GPA2     MX1    42
01070  M00S01044.lidou   +++|          SX6    3R
01071  M00S01045.lidou   +++|          BX6    -X1*X6      MASK OFF SIGN EXTENSION
01072  M00S01046.lidou   +++|          BX3    X1*X3       MASK OFF ATTRIBUTES
01073  M00S01047.lidou   +++|          BX6    X3+X6       ADD IN BLANKS
01074  M00S01048.lidou   +++|          SX1    B0+         CLEAR ERROR
01075  M00S01049.lidou   +++|
01076  M00S01050.lidou   +++| GPA      SUBR               ENTRY/EXIT
01077  M00S01051.lidou   +++|          MX3    -4
01078  M00S01052.lidou   +++|          BX1    -X3*X1
01079  M00S01053.lidou   +++|          SA3    TPAT        GET TABLE ENTRY
01080  M00S01054.lidou   +++| GPA1     ZR     X3,GPAX     IF END OF TABLE
01081  M00S01055.lidou   +++|          SX6    X3
01082  M00S01056.lidou   +++|          BX6    X6-X1       CHECK FOR MATCH
01083  M00S01057.lidou   +++|          ZR     X6,GPA2     IF ATTRIBUTES MATCH
01084  M00S01058.lidou   +++|          SA3    A3+1
01085  M00S01059.lidou   +++|          EQ     GPA1        CHECK FOR END OF TABLE
01086  M00S01060.lidou   +++| GPL      SPACE  4,10
01087  M00S01061.lidou   +++|**        GPL - GET PID LINE COUNT.
01088  M00S01062.lidou   +++|*
01089  M00S01063.lidou   +++|*         ENTRY  (X2) = NETWORK INFORMATION FOR PID, RIGHT
01090  M00S01064.lidou   +++|*                       JUSTIFIED.
01091  M00S01065.lidou   +++|*
01092  M00S01066.lidou   +++|*         EXIT   (B4) = PID LINE COUNT, 1, 2, OR 3.
01093  M00S01067.lidou   +++|*
01094  M00S01068.lidou   +++|*         USES   X - 2, 3, 6, 7.
01095  M00S01069.lidou   +++|*                B - 4, 5.
01096  M00S01070.lidou   +++|
01097  M00S01071.lidou   +++|
01098  M00S01072.lidou   +++| GPL4     NZ     B4,GPLX     IF AT LEAST ONE LINE
01099  M00S01073.lidou   +++|          SB4    B1+         SET ONE LINE
01100  M00S01074.lidou   +++|
01101  M00S01075.lidou   +++| GPL      SUBR               ENTRY/EXIT
01102  M00S01076.lidou   +++|          MX3    -4
01103  M00S01077.lidou   +++|          BX6    -X3*X2
01104  M00S01078.lidou   +++|          SB4    B0          INITIALIZE PID LINE COUNT
01105  M00S01079.lidou   +++|          SB5    B1+B1
01106  M00S01080.lidou   +++| GPL1     SX7    X6-/NTS/ISV
01107  M00S01081.lidou   +++|          ZR     X7,GPL2     IF *IN SERVICE*
01108  M00S01082.lidou   +++|          SX7    X6-/NTS/OSV
01109  M00S01083.lidou   +++|          ZR     X7,GPL2     IF *OUT OF SERVICE*
01110  M00S01084.lidou   +++|          SX7    X6-/NTS/DAB
01111  M00S01085.lidou   +++|          NG     X7,GPL3     IF NOT *DISABLED*
01112  M00S01086.lidou   +++| GPL2     SB4    B4+1        INCREMENT PID LINE COUNT
01113  M00S01087.lidou   +++| GPL3     SB5    B5-1
01114  M00S01088.lidou   +++|          NG     B5,GPL4     IF DONE WITH ALL THREE NETWORKS
01115  M00S01089.lidou   +++|          LX2    -4
01116  M00S01090.lidou   +++|          BX6    -X3*X2
01117  M00S01091.lidou   +++|          EQ     GPL1        PROCESS NEXT NETWORK
01118  M00S01092.lidou   +++| LED      SPACE  4,15
01119  M00S01093.lidou   +++|**        LED - LIDOU END.
01120  M00S01094.lidou   +++|*
01121  M00S01095.lidou   +++|*         EXIT   *L* DISPLAY DROPPED, PROGRAM TERMINATED.
01122  M00S01096.lidou   +++|*
01123  M00S01097.lidou   +++|*         USES   X - 1.
01124  M00S01098.lidou   +++|*                A - 1.
01125  M00S01099.lidou   +++|*                B - 7.
01126  M00S01100.lidou   +++|*
01127  M00S01101.lidou   +++|*         CALLS  FRS, POF.
01128  M00S01102.lidou   +++|*
01129  M00S01103.lidou   +++|*         MACROS DSDINP, ENDRUN, MESSAGE, WRITER.
01130  M00S01104.lidou   +++|
01131  M00S01105.lidou   +++|
01132  M00S01106.lidou   +++| LED      SA1    LDSF        CHECK *L* DISPLAY FLAG
01133  M00S01107.lidou   +++|          SB7    MSLC        * UTILITY COMPLETE.*
01134  M00S01108.lidou   +++|          NZ     X1,LED1     IF *L* DISPLAY ACTIVE
01135  M00S01109.lidou   +++|          RJ     POF         PROCESS OUTPUT FILE
01136  M00S01110.lidou   +++|          WRITER OUTPUT,R    FLUSH OUTPUT BUFFER
01137  M00S01111.lidou   +++|          EQ     LED2        ISSUE DAYFILE MESSAGE AND END
01138  M00S01112.lidou   +++|
01139  M00S01113.lidou   +++| LED1     RJ     FRS         FORMAT REQUESTED SCREEN
01140  M00S01114.lidou   +++|          DSDINP LBFI,C      DROP *L* DISPLAY
01141  M00S01115.lidou   +++| LED2     MESSAGE  DAFC,O,R  * LIDOU UTILITY COMPLETE.*
01142  M00S01116.lidou   +++|          ENDRUN
01143  M00S01117.lidou   +++| PCM      SPACE  4,15
01144  M00S01118.lidou   +++|**        PCM - PROCESS COMMANDS.
01145  M00S01119.lidou   +++|*
01146  M00S01120.lidou   +++|*         ENTRY  (B7) = 0.
01147  M00S01121.lidou   +++|*
01148  M00S01122.lidou   +++|*         EXIT   TO *LED* WHEN THE COMMAND *L.END* IS ENCOUNTERED.
01149  M00S01123.lidou   +++|*
01150  M00S01124.lidou   +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
01151  M00S01125.lidou   +++|*                A - 1, 5, 6.
01152  M00S01126.lidou   +++|*                B - 3, 7.
01153  M00S01127.lidou   +++|*
01154  M00S01128.lidou   +++|*         CALLS  FRS, GLT, LED, PIF, PKB, POF, POP, STP.
01155  M00S01129.lidou   +++|
01156  M00S01130.lidou   +++|
01157  M00S01131.lidou   +++| PCM      SUBR               ENTRY/EXIT
01158  M00S01132.lidou   +++| PCM1     SA1    CHDF        CHECK FOR CHANGE TO LID DISPLAY
01159  M00S01133.lidou   +++|          ZR     X1,PCM2     IF NO CHANGE
01160  M00S01134.lidou   +++|          SA1    LIDF        SET FET ADDRESS
01161  M00S01135.lidou   +++|          RJ     GLT         GET LID TABLE
01162  M00S01136.lidou   +++| PCM2     SA1    LDSF        CHECK *L* DISPLAY FLAG
01163  M00S01137.lidou   +++|          ZR     X1,PCM9     IF *L* DISPLAY NOT ACTIVE
Line S01138 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01164  M01S01138.241l630 ---| PCM3     RJ     FRS         FORMAT REQUESTED SCREEN
Line S00026 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01165  M01S00026.241l630 +++| PCM3     SX6    B7+         SAVE MESSAGE ADDRESS
01166  M01S00027.241l630 +++|          SA6    EMAD
01167  M01S00028.241l630 +++|          RJ     FRS         FORMAT REQUESTED SCREEN
01168  M00S01139.lidou   +++|          MX0    -12         SET MASK
01169  M00S01140.lidou   +++|          RJ     PKB         GET KEYBOARD INPUT
01170  M00S01141.lidou   +++| PCM4     RJ     POP         PICK OUT FIRST PARAMETER
01171  M00S01142.lidou   +++|          ZR     X6,PCM7     IF NO PARAMETERS
01172  M00S01143.lidou   +++|          SX4    X1-1R.
01173  M00S01144.lidou   +++|          SA5    TLC1        CHECK FOR PRIMARY COMMAND MATCH
01174  M00S01145.lidou   +++|          ZR     X1,PCM6     IF ONLY ONE PARAMETER
01175  M00S01146.lidou   +++|          ZR     X4,PCM6     IF ONLY ONE PARAMETER
01176  M00S01147.lidou   +++|          MX0    -42         CHECK FOR MORE THAN 3 CHARACTERS
01177  M00S01148.lidou   +++|          BX4    -X0*X6
01178  M00S01149.lidou   +++|          NZ     X4,PCM8     IF MORE THAN THREE CHARACTERS
01179  M00S01150.lidou   +++|          RJ     STP         SEARCH TABLE FOR PID
01180  M00S01151.lidou   +++|          SB7    MSPN        * PID NOT FOUND.*
01181  M00S01152.lidou   +++|          NZ     X2,PCM1     IF PID NOT FOUND
01182  M00S01153.lidou   +++|          SA6    PARB+1      SAVE PID
01183  M00S01154.lidou   +++|          SX6    A5          SAVE PID ADDRESS
01184  M00S01155.lidou   +++|          SA6    A6+B1
01185  M00S01156.lidou   +++| PCM5     SX4    X1-1R,
01186  M00S01157.lidou   +++|          NZ     X4,PCM8     IF INITIAL SEPARATOR NOT *,*
01187  M00S01158.lidou   +++|          SA5    TLC2        CHECK FOR SECONDARY COMMAND MATCH
01188  M00S01159.lidou   +++|          RJ     POP         GET NEXT PARAMETER
01189  M00S01160.lidou   +++|          SX4    X1-1R=
01190  M00S01161.lidou   +++|          NZ     X4,PCM8     IF SECONDARY SEPARATOR NOT *=*
01191  M00S01162.lidou   +++| PCM6     MX0    42
01192  M00S01163.lidou   +++|          ZR     X5,PCM8     IF END OF TABLE
01193  M00S01164.lidou   +++|          BX2    X5-X6
01194  M00S01165.lidou   +++|          BX2    X0*X2
01195  M00S01166.lidou   +++|          SB3    X5
01196  M00S01167.lidou   +++|          SA5    A5+1
01197  M00S01168.lidou   +++|          NZ     X2,PCM6     IF NO MATCH
01198  M00S01169.lidou   +++|          JP     B3          PROCESS COMMAND
01199  M00S01170.lidou   +++|
01200  M00S01171.lidou   +++| PCM7     SX4    X1-1R+      CHECK FOR PAGE FORWARD COMMAND
01201  M00S01172.lidou   +++|          SX7    X1-1R-      CHECK FOR PAGE BACKWARD COMMAND
01202  M00S01173.lidou   +++|          ZR     X4,PSF      IF PAGE FORWARD COMMAND
01203  M00S01174.lidou   +++|          ZR     X7,PSB      IF PAGE BACKWARD COMMAND
01204  M00S01175.lidou   +++| PCM8     SB7    MSIC        * INCORRECT COMMAND.*
01205  M00S01176.lidou   +++|          EQ     PCM1        PROCESS NEXT COMMAND
01206  M00S01177.lidou   +++|
01207  M00S01178.lidou   +++| PCM9     RJ     POF         PROCESS OUTPUT FILE
01208  M00S01179.lidou   +++|          RJ     PIF         PROCESS INPUT FILE
01209  M00S01180.lidou   +++|          EQ     PCM4        PROCESS COMMAND
01210  M00S01181.lidou   +++|
01211  M00S01182.lidou   +++| TLC1     VFD    42/3LEND,18/LED
01212  M00S01183.lidou   +++|          VFD    42/3LOUT,18/POC
01213  M00S01184.lidou   +++|          VFD    42/4LHELP,18/THD
01214  M00S01185.lidou   +++|          VFD    42/4LBACK,18/TLD
01215  M00S01186.lidou   +++|          VFD    60/0        END OF PRIMARY COMMANDS
01216  M00S01187.lidou   +++|
01217  M00S01188.lidou   +++| TLC2     VFD    42/2LLD,18/SLA
01218  M00S01189.lidou   +++|          VFD    42/2LMF,18/SMF
01219  M00S01190.lidou   +++|          VFD    42/2LNT,18/SNS
01220  M00S01191.lidou   +++|          VFD    42/2LPA,18/SPA
01221  M00S01192.lidou   +++|          VFD    60/0        END OF SECONDARY COMMANDS
01222  M00S01193.lidou   +++|
01223  M00S01194.lidou   +++| PARB     VFD    12/0,12/1,36/0  FUNCTION CODE, PID COUNT
01224  M00S01195.lidou   +++|          VFD    18/0,42/0   PID, FUNCTION DEPENDENT DATA
01225  M00S01196.lidou   +++|          VFD    42/0,18/0   HOLDS PID ADDRESS FOR LID CHECKING
01226  M00S01197.lidou   +++| PIF      SPACE  4,20
01227  M00S01198.lidou   +++|**        PIF - PROCESS INPUT FILE.
01228  M00S01199.lidou   +++|*
01229  M00S01200.lidou   +++|*         EXIT   COMMAND UNPACKED TO *USBB* IN *COMCUSB*.
01230  M00S01201.lidou   +++|*                (USBC) = LAST WORD ADDRESS OF BUFFER.
01231  M00S01202.lidou   +++|*                (CMLN) = CHARACTER COUNT OF COMMAND.
01232  M00S01203.lidou   +++|*                (B6) = FIRST WORD ADDRESS OF BUFFER.
01233  M00S01204.lidou   +++|*
01234  M00S01205.lidou   +++|*         USES   X - 1, 6, 7.
01235  M00S01206.lidou   +++|*                A - 1, 6, 7.
01236  M00S01207.lidou   +++|*                B - 2, 6.
01237  M00S01208.lidou   +++|*
01238  M00S01209.lidou   +++|*         MACROS READS.
01239  M00S01210.lidou   +++|*
01240  M00S01211.lidou   +++|*         NOTE   IF NO COMMAND IS PRESENT AN *END* COMMAND
01241  M00S01212.lidou   +++|*                WILL BE MOVED INTO THE BUFFER TO TERMINATE
01242  M00S01213.lidou   +++|*                THE PROGRAM.  ALSO, IF THE COMMAND DOES
01243  M00S01214.lidou   +++|*                NOT TERMINATE IN A PERIOD THE NEXT WORD
01244  M00S01215.lidou   +++|*                IN THE BUFFER IS ZEROED TO SIGNIFY THE
01245  M00S01216.lidou   +++|*                END OF THE COMMAND TO *COMCPOP*.
01246  M00S01217.lidou   +++|
01247  M00S01218.lidou   +++|
01248  M00S01219.lidou   +++| PIF2     SX7    B6-B1
01249  M00S01220.lidou   +++|          SA1    B6-B1       CHECK FOR TERMINATOR
01250  M00S01221.lidou   +++|          SX1    X1-1R.
01251  M00S01222.lidou   +++|          SX6    B0
01252  M00S01223.lidou   +++|          ZR     X1,PIF3     IF *.* TERMINATOR
01253  M00S01224.lidou   +++|          SA6    B6          SIGNIFY END OF COMMAND
01254  M00S01225.lidou   +++| PIF3     SX6    B6-USBB     SAVE COMMAND LENGTH
01255  M00S01226.lidou   +++|          SA6    CMLN
01256  M00S01227.lidou   +++|          SB6    USBB        RESET TO START OF BUFFER
01257  M00S01228.lidou   +++|          SA7    USBC
01258  M00S01229.lidou   +++|
01259  M00S01230.lidou   +++| PIF      SUBR               ENTRY/EXIT
01260  M00S01231.lidou   +++|          SX6    B0+         CLEAR BUFFER
01261  M00S01232.lidou   +++|          SB2    80
01262  M00S01233.lidou   +++| PIF1     SA6    USBB+B2
01263  M00S01234.lidou   +++|          SB2    B2-1
01264  M00S01235.lidou   +++|          PL     B2,PIF1     IF NOT DONE
01265  M00S01236.lidou   +++|          READS  INPUT,USBB,80  READ COMMAND
01266  M00S01237.lidou   +++|          ZR     X1,PIF2     IF COMMAND PRESENT
01267  M00S01238.lidou   +++|          SX6    1RE         SET *END* COMMAND
01268  M00S01239.lidou   +++|          SA6    USBB
01269  M00S01240.lidou   +++|          SX6    1RN
01270  M00S01241.lidou   +++|          SA6    A6+B1
01271  M00S01242.lidou   +++|          SX6    1RD
01272  M00S01243.lidou   +++|          SA6    A6+B1
01273  M00S01244.lidou   +++|          SX6    1R.
01274  M00S01245.lidou   +++|          SB6    USBB+4      SET COMMAND LENGTH
01275  M00S01246.lidou   +++|          SA6    A6+B1
01276  M00S01247.lidou   +++|          SX7    B6
01277  M00S01248.lidou   +++|          EQ     PIF3        SAVE COMMAND LENGTH
01278  M00S01249.lidou   +++| PKB      SPACE  4,15
01279  M00S01250.lidou   +++|**        PKB - PROCESS KEYBOARD.
01280  M00S01251.lidou   +++|*
01281  M00S01252.lidou   +++|*         ENTRY  (X0) = 42 BIT MASK, LEFT JUSTIFIED.
01282  M00S01253.lidou   +++|*
01283  M00S01254.lidou   +++|*         EXIT   *L* DISPLAY INPUT IN *LBFI*, AND
01284  M00S01255.lidou   +++|*                UNPACKED TO *USBB* IN *COMCUSB*.
01285  M00S01256.lidou   +++|*
Line S01257 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01286  M01S01257.241l630 ---|*         USES   X - 1, 6.
Line S00029 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01287  M01S00029.241l630 +++|*         USES   X - 0, 1, 6.
01288  M00S01258.lidou   +++|*                A - 1, 6.
Line S01259 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01289  M01S01259.241l630 ---|*                B - 2.
Line S00030 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01290  M01S00030.241l630 +++|*                B - 2, 7.
01291  M00S01260.lidou   +++|*
Line S01261 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01292  M01S01261.241l630 ---|*         CALLS  USB.
Line S00031 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01293  M01S00031.241l630 +++|*         CALLS  FRS, GLT, USB.
01294  M00S01262.lidou   +++|*
01295  M00S01263.lidou   +++|*         MACROS DSDINP, ROLLOUT.
01296  M00S01264.lidou   +++|
01297  M00S01265.lidou   +++|
01298  M00S01266.lidou   +++| PKB2     SX6    B0+         CLEAR BUFFER
01299  M00S01267.lidou   +++|          SB2    80
01300  M00S01268.lidou   +++| PKB3     SA6    USBB+B2
01301  M00S01269.lidou   +++|          SB2    B2-1
01302  M00S01270.lidou   +++|          PL     B2,PKB3     IF NOT DONE
01303  M00S01271.lidou   +++|          SB2    LBFI+1      UNPACK COMMAND
01304  M00S01272.lidou   +++|          RJ     USB
01305  M00S01273.lidou   +++|
01306  M00S01274.lidou   +++| PKB      SUBR               ENTRY/EXIT
01307  M00S01275.lidou   +++| PKB1     DSDINP LBFI        CHECK FOR *L* DISPLAY INPUT
01308  M00S01276.lidou   +++|          SA1    LBFI
01309  M00S01277.lidou   +++|          BX1    -X0*X1
01310  M00S01278.lidou   +++|          AX1    1           IGNORE COMPLETION BIT
01311  M00S01279.lidou   +++|          SX1    X1-INPC
01312  M00S01280.lidou   +++|          NZ     X1,PKB2     IF INPUT
01313  M00S01281.lidou   +++|          ROLLOUT  ROLL      ROLLOUT UNTIL *L* DISPLAY INPUT
01314  M00S01282.lidou   +++|
01315  M00S01283.lidou   +++|*         REFRESH THE SCREEN.
01316  M00S01284.lidou   +++|
01317  M00S01285.lidou   +++|          SA1    LIDF        SET FET ADDRESS
01318  M00S01286.lidou   +++|          RJ     GLT         GET LID TABLE
Line S01287 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01319  M01S01287.241l630 ---|          SB7    B0          FORMAT DEFAULT MESSAGE
Line S00032 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01320  M01S00032.241l630 +++|          SA1    EMAD        GET ERROR MESSAGE ADDRESS
01321  M01S00033.241l630 +++|          SB7    X1
01322  M00S01288.lidou   +++|          SX6    B1          SET LID DISPLAY CHANGE FLAG
01323  M00S01289.lidou   +++|          SA6    CHDF
01324  M00S01290.lidou   +++|          RJ     FRS         FORMAT REQUESTED SCREEN
01325  M00S01291.lidou   +++|          MX0    -12
01326  M00S01292.lidou   +++|          EQ     PKB1        CHECK FOR INPUT
01327  M00S01293.lidou   +++| POC      SPACE  4,15
01328  M00S01294.lidou   +++|**        POC - PROCESS OUT COMMAND.
01329  M00S01295.lidou   +++|*
01330  M00S01296.lidou   +++|*         EXIT   TO *PCM3* (IF *L* DISPLAY IS ACTIVE).
01331  M00S01297.lidou   +++|*                TO *PCM9* (IF *L* DISPLAY INACTIVE).
01332  M00S01298.lidou   +++|*                (POFA) = -1, IF *L* DISPLAY INACTIVE.
01333  M00S01299.lidou   +++|*
01334  M00S01300.lidou   +++|*         USES   X - 1, 2, 6.
01335  M00S01301.lidou   +++|*                A - 0, 1, 6.
01336  M00S01302.lidou   +++|*                B - 7.
01337  M00S01303.lidou   +++|*
01338  M00S01304.lidou   +++|*         CALLS  FLT.
01339  M00S01305.lidou   +++|*
01340  M00S01306.lidou   +++|*         MACROS ROUTE, WRITER.
01341  M00S01307.lidou   +++|
01342  M00S01308.lidou   +++|
01343  M00S01309.lidou   +++| POC      SA1    LDSF        CHECK *L* DISPLAY FLAG
01344  M00S01310.lidou   +++|          ZR     X1,POC1     IF *L* DISPLAY NOT ACTIVE
01345  M00S01311.lidou   +++|          SA1    OUTPUT+1    REWIND FET
01346  M00S01312.lidou   +++|          SX6    X1
01347  M00S01313.lidou   +++|          SA6    A1+B1
01348  M00S01314.lidou   +++|          SA6    A1+B1
01349  M00S01315.lidou   +++|          SA0    B1
01350  M00S01316.lidou   +++|          RJ     FLT         FORMAT LISTING OF LID TABLE
01351  M00S01317.lidou   +++|          WRITER OUTPUT,R    FLUSH OUTPUT BUFFER
01352  M00S01318.lidou   +++|          SA1    ROTB        CLEAR COMPLETE BIT IN ROUTE BLOCK
01353  M00S01319.lidou   +++|          MX2    59
01354  M00S01320.lidou   +++|          BX6    X2*X1
Line S01321 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01355  M01S01321.241l630 ---|          SA6    A1
Line S00034 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01356  M01S00034.241l630 +++|          SA6    A1
01357  M00S01322.lidou   +++|          ROUTE  ROTB,R      ROUTE FILE
01358  M00S01323.lidou   +++|          SB7    MSCP        * COMMAND PROCESSED.*
01359  M00S01324.lidou   +++|          EQ     PCM3        CONTINUE PROCESSING COMMAND
01360  M00S01325.lidou   +++|
01361  M00S01326.lidou   +++| POC1     SX6    -B1         CLEAR OUTPUT FILE LINE COUNT
01362  M00S01327.lidou   +++|          SA6    POFA
01363  M00S01328.lidou   +++|          SA0    B1
01364  M00S01329.lidou   +++|          RJ     FLT         FORMAT LISTING OF LID TABLE
01365  M00S01330.lidou   +++|          SB7    MSCP        * COMMAND PROCESSED.*
01366  M00S01331.lidou   +++|          EQ     PCM9        CONTINUE PROCESSING COMMAND
01367  M00S01332.lidou   +++| POF      SPACE  4,15
01368  M00S01333.lidou   +++|**        POF - PROCESS OUTPUT FILE.
01369  M00S01334.lidou   +++|*
01370  M00S01335.lidou   +++|*         ENTRY  (CMLN) = CHARACTER COUNT OF COMMAND.
01371  M00S01336.lidou   +++|*                (B7) = 0, IF INITIAL CALL.
01372  M00S01337.lidou   +++|*                     = ADDRESS OF COMMAND RESPONSE,
01373  M00S01338.lidou   +++|*                       IF NOT INITIAL CALL.
01374  M00S01339.lidou   +++|*
01375  M00S01340.lidou   +++|*         EXIT   OUTPUT LINE WRITTEN TO OUTPUT FET.
01376  M00S01341.lidou   +++|*
01377  M00S01342.lidou   +++|*         USES   X - 1, 2, 6, 7.
01378  M00S01343.lidou   +++|*                A - 0, 1, 2, 6, 7.
01379  M00S01344.lidou   +++|*                B - 7.
01380  M00S01345.lidou   +++|*
01381  M00S01346.lidou   +++|*         MACROS WRITEC, WRITEH, WRITEO, WRITES, WRITEW.
01382  M00S01347.lidou   +++|
01383  M00S01348.lidou   +++|
01384  M00S01349.lidou   +++| POF2     SX6    X1-2        DECREMENT LINE COUNT
01385  M00S01350.lidou   +++|          SA6    POFA
01386  M00S01351.lidou   +++|          SA1    BLKS        WRITE BLANK WORD
01387  M00S01352.lidou   +++|          BX6    X1
01388  M00S01353.lidou   +++|          WRITEO OUTPUT
01389  M00S01354.lidou   +++|          SA1    CMLN        GET COMMAND LENGTH
01390  M00S01355.lidou   +++|          SB7    X1+
01391  M00S01356.lidou   +++|          WRITES OUTPUT,USBB,B7  ECHO COMMAND
01392  M00S01357.lidou   +++|          SA1    BLKS+1      WRITE RESPONSE
01393  M00S01358.lidou   +++|          SA2    A0
01394  M00S01359.lidou   +++|          BX6    X1
01395  M00S01360.lidou   +++|          BX7    X2
01396  M00S01361.lidou   +++|          SA6    WBUF
01397  M00S01362.lidou   +++|          SA7    A6+B1
01398  M00S01363.lidou   +++|          SA1    A1+B1
01399  M00S01364.lidou   +++|          SA2    A2+B1
01400  M00S01365.lidou   +++|          BX6    X1
01401  M00S01366.lidou   +++|          BX7    X2
01402  M00S01367.lidou   +++|          SA7    A7+B1
01403  M00S01368.lidou   +++|          SA6    A7+B1
01404  M00S01369.lidou   +++|          WRITEH OUTPUT,WBUF,4
01405  M00S01370.lidou   +++|
01406  M00S01371.lidou   +++| POF      SUBR               ENTRY/EXIT
01407  M00S01372.lidou   +++|          NZ     B7,POF1     IF NOT INITIAL CALL
01408  M00S01373.lidou   +++|          WRITEC OUTPUT,PDFC  WRITE PRINT DENSITY FORMAT EFFECTOR
01409  M00S01374.lidou   +++|          SX6    B1+         SET PRINT DENSITY FORMAT EFFECTOR FLAG
01410  M00S01375.lidou   +++|          SA6    PDFE
01411  M00S01376.lidou   +++|          WRITEW OUTPUT,HLPA,15  WRITE PAGE HEADER
01412  M00S01377.lidou   +++|          SA1    LCNT        SET LINE COUNT
01413  M00S01378.lidou   +++|          SX6    X1+
01414  M00S01379.lidou   +++|          SA6    POFA
01415  M00S01380.lidou   +++|          EQ     POFX        RETURN
01416  M00S01381.lidou   +++|
01417  M00S01382.lidou   +++| POF1     SA0    B7+         SAVE COMMAND RESPONSE ADDRESS
01418  M00S01383.lidou   +++|          SA1    POFA        CHECK LINE COUNT
01419  M00S01384.lidou   +++|          PL     X1,POF2     IF STILL MORE LINES ON PAGE
01420  M00S01385.lidou   +++|          WRITEW OUTPUT,HLPA,15  WRITE PAGE HEADER
01421  M00S01386.lidou   +++|          SA1    LCNT        SET LINE COUNT
01422  M00S01387.lidou   +++|          EQ     POF2        DECREMENT LINE COUNT
01423  M00S01388.lidou   +++|
01424  M00S01389.lidou   +++| POFA     CON    -1          HOLDS LINE COUNT
01425  M00S01390.lidou   +++| PSB      SPACE  4,20
01426  M00S01391.lidou   +++|**        PSB - PAGE SCREEN BACKWARD.
01427  M00S01392.lidou   +++|*
01428  M00S01393.lidou   +++|*         ENTRY  (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
01429  M00S01394.lidou   +++|*                         DISPLAYED ON SCREEN.
01430  M00S01395.lidou   +++|*                (HLPF) = 1, IF HELP DISPLAY IS ACTIVE.
01431  M00S01396.lidou   +++|*
01432  M00S01397.lidou   +++|*         EXIT   TO *PCM3* IF NO ERRORS WERE ENCOUNTERED.
01433  M00S01398.lidou   +++|*                TO *PCM1* IF *L* DISPLAY NOT ACTIVE.
01434  M00S01399.lidou   +++|*                TO *PCM1* IF TOO MANY PARAMETERS.
01435  M00S01400.lidou   +++|*                (IND1) UPDATED IF LID DISPLAY CHANGED.
01436  M00S01401.lidou   +++|*                (PONE) = ADDRESS OF CURRENT HELP PAGE.
01437  M00S01402.lidou   +++|*                (CHDF) = 1, IF LID DISPLAY CHANGED.
01438  M00S01403.lidou   +++|*                (B7) = ADDRESS OF RESPONSE.
01439  M00S01404.lidou   +++|*
01440  M00S01405.lidou   +++|*         USES   X - 1, 2, 6, 7.
01441  M00S01406.lidou   +++|*                A - 1, 2, 6, 7.
01442  M00S01407.lidou   +++|*                B - 7.
01443  M00S01408.lidou   +++|*
01444  M00S01409.lidou   +++|*         CALLS  POP.
01445  M00S01410.lidou   +++|
01446  M00S01411.lidou   +++|
01447  M00S01412.lidou   +++| PSB      SA1    LDSF        CHECK IF *L* DISPLAY ACTIVE
01448  M00S01413.lidou   +++|          SB7    MSIC        * INCORRECT COMMAND.*
01449  M00S01414.lidou   +++|          ZR     X1,PCM1     IF INCORRECT COMMAND FOR INPUT FILE
01450  M00S01415.lidou   +++|          RJ     POP         CHECK FOR MORE COMMAND
01451  M00S01416.lidou   +++|          SB7    MSTP        * EXCESS PARAMETERS.*
Line S01417 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01452  M01S01417.241l630 ---|          NZ     X1,PCM1     IF TOO MANY PARAMETERS
01453  M01S01418.241l630 ---|          SB7    MSCP        * COMMAND PROCESSED.*
Line S00035 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01454  M01S00035.241l630 +++|          NZ     X6,PCM1     IF TOO MANY PARAMETERS
01455  M01S00036.241l630 +++|          SB7    B0+         CLEAR ERROR MESSAGE
01456  M00S01419.lidou   +++|          SA1    HLPF        CHECK IF HELP DISPLAY IS ACTIVE
01457  M00S01420.lidou   +++|          NZ     X1,PSB3     IF HELP DISPLAY IS ACTIVE
01458  M00S01421.lidou   +++|          SA1    IND1        CHECK IF FIRST SCREEN
01459  M00S01422.lidou   +++|          SX2    X1-1
01460  M00S01423.lidou   +++|          ZR     X2,PCM3     IF FIRST SCREEN
Line S01424 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01461  M01S01424.241l630 ---|          SA2    NMLL        PAGE BACKWARDS
Line S00037 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01462  M01S00037.241l630 +++|          SX2    NMLL        PAGE BACKWARDS
01463  M00S01425.lidou   +++|          IX6    X1-X2
01464  M00S01426.lidou   +++|          SX6    X6-1
01465  M00S01427.lidou   +++|          PL     X6,PSB1     IF WITHIN BOUNDS
01466  M00S01428.lidou   +++|          SX6    B1+         RESET TO START OF BUFFER
01467  M00S01429.lidou   +++|          EQ     PSB2        SAVE INDEX AND SET CHANGED FLAG
01468  M00S01430.lidou   +++|
01469  M00S01431.lidou   +++| PSB1     SA1    LIDI+X6     CHECK FOR SPACER WORD
01470  M00S01432.lidou   +++|          LX1    18
01471  M00S01433.lidou   +++|          SX1    X1
01472  M00S01434.lidou   +++|          NZ     X1,PSB2     IF LID OR PID WORD
01473  M00S01435.lidou   +++|          SX6    X6+1
01474  M00S01436.lidou   +++|          EQ     PSB1        CHECK FOR SECOND SPACER WORD
01475  M00S01437.lidou   +++|
01476  M00S01438.lidou   +++| PSB2     SA6    IND1        SAVE INDEX
01477  M00S01439.lidou   +++|          SX6    B1+         SET LID DISPLAY CHANGED FLAG
01478  M00S01440.lidou   +++|          SA6    CHDF
01479  M00S01441.lidou   +++|          EQ     PCM3        PROCESS NEXT COMMAND
01480  M00S01442.lidou   +++|
Line S01443 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01481  M01S01443.241l630 ---| PSB3     SA1    PONE        SWAP PAGE HELP PAGE ADDRESSES
Line S00038 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01444.lidou   +++|          SA2    PTWO
01488  M00S01445.lidou   +++|          BX6    X1
01489  M00S01446.lidou   +++|          BX7    X2
01490  M00S01447.lidou   +++|          SA6    A2
01491  M00S01448.lidou   +++|          SA7    A1
Line S01449 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01492  M01S01449.241l630 ---|          SB7    B0          FORMAT DEFAULT MESSAGE
01493  M00S01450.lidou   +++|          EQ     PCM3        PROCESS NEXT COMMAND
01494  M00S01451.lidou   +++| PSF      SPACE  4,20
01495  M00S01452.lidou   +++|**        PSF - PAGE SCREEN FORWARD.
01496  M00S01453.lidou   +++|*
01497  M00S01454.lidou   +++|*         ENTRY  (IND1) = INDEX INTO *LIDI* OF FIRST ENTRY
01498  M00S01455.lidou   +++|*                         DISPLAYED ON SCREEN.
01499  M00S01456.lidou   +++|*                (IND2) = INDEX INTO *LIDI* OF NEXT ENTRY,
01500  M00S01457.lidou   +++|*                         NOT YET DISPLAYED ON SCREEN.
01501  M00S01458.lidou   +++|*                (HLPF) = 1, IF HELP DISPLAY IS ACTIVE.
01502  M00S01459.lidou   +++|*
01503  M00S01460.lidou   +++|*         EXIT   TO *PCM3* IF NO ERRORS WERE ENCOUNTERED.
01504  M00S01461.lidou   +++|*                TO *PCM1* IF *L* DISPLAY NOT ACTIVE.
01505  M00S01462.lidou   +++|*                TO *PCM1* IF TOO MANY PARAMETERS.
01506  M00S01463.lidou   +++|*                (IND1) UPDATED IF LID DISPLAY CHANGED.
01507  M00S01464.lidou   +++|*                (PONE) = ADDRESS OF CURRENT HELP PAGE.
01508  M00S01465.lidou   +++|*                (CHDF) = 1, IF LID DISPLAY CHANGED.
01509  M00S01466.lidou   +++|*                (B7) = ADDRESS OF RESPONSE.
01510  M00S01467.lidou   +++|*
01511  M00S01468.lidou   +++|*         USES   X - 1, 2, 3, 6, 7.
01512  M00S01469.lidou   +++|*                A - 1, 2, 6, 7.
01513  M00S01470.lidou   +++|*                B - 7.
01514  M00S01471.lidou   +++|*
01515  M00S01472.lidou   +++|*         CALLS  POP.
01516  M00S01473.lidou   +++|
01517  M00S01474.lidou   +++|
01518  M00S01475.lidou   +++| PSF      SA1    LDSF        CHECK IF *L* DISPLAY ACTIVE
01519  M00S01476.lidou   +++|          SB7    MSIC        * INCORRECT COMMAND.*
01520  M00S01477.lidou   +++|          ZR     X1,PCM1     IF INCORRECT COMMAND FOR INPUT FILE
01521  M00S01478.lidou   +++|          RJ     POP         CHECK FOR MORE COMMAND
01522  M00S01479.lidou   +++|          SB7    MSTP        * EXCESS PARAMETERS.*
Line S01480 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01523  M01S01480.241l630 ---|          NZ     X1,PCM1     IF TOO MANY PARAMETERS
01524  M01S01481.241l630 ---|          SB7    MSCP        * COMMAND PROCESSED.*
Line S00043 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01525  M01S00043.241l630 +++|          NZ     X6,PCM1     IF TOO MANY PARAMETERS
01526  M01S00044.241l630 +++|          SB7    B0+         CLEAR ERROR MESSAGE
01527  M00S01482.lidou   +++|          SA1    HLPF        CHECK IF HELP DISPLAY IS ACTIVE
01528  M00S01483.lidou   +++|          NZ     X1,PSF3     IF HELP DISPLAY IS ACTIVE
01529  M00S01484.lidou   +++|          SA1    LIDI        CHECK IF LAST SCREEN
01530  M00S01485.lidou   +++|          SX7    B1          SET LID TABLE CHANGED FLAG
01531  M00S01486.lidou   +++|          SX6    B1          SET LOOP TO FIRST SCREEN
01532  M00S01487.lidou   +++|          SA2    IND2
01533  M00S01488.lidou   +++|          IX3    X2-X1
01534  M00S01489.lidou   +++|          PL     X3,PSF2     IF LAST SCREEN
01535  M00S01490.lidou   +++|          BX6    X2          PAGE FORWARD
01536  M00S01491.lidou   +++| PSF1     SA1    LIDI+X6     CHECK FOR SPACER WORD
01537  M00S01492.lidou   +++|          LX1    18
01538  M00S01493.lidou   +++|          SX1    X1
01539  M00S01494.lidou   +++|          NZ     X1,PSF2     IF LID OR PID WORD
01540  M00S01495.lidou   +++|          SX6    X6-1
01541  M00S01496.lidou   +++|          EQ     PSF1        CHECK FOR SECOND SPACER WORD
01542  M00S01497.lidou   +++|
01543  M00S01498.lidou   +++| PSF2     SA6    IND1        SAVE INDEX
01544  M00S01499.lidou   +++|          SA7    CHDF        SAVE LID TABLE CHANGED FLAG
01545  M00S01500.lidou   +++|          EQ     PCM3        CONTINUE PROCESSING COMMAND
01546  M00S01501.lidou   +++|
01547  M00S01502.lidou   +++| PSF3     SA1    PONE        SWAP PAGE HELP PAGE ADDRESSES
01548  M00S01503.lidou   +++|          SA2    PTWO
01549  M00S01504.lidou   +++|          BX6    X1
01550  M00S01505.lidou   +++|          BX7    X2
01551  M00S01506.lidou   +++|          SA6    A2
01552  M00S01507.lidou   +++|          SA7    A1
Line S01508 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01553  M01S01508.241l630 ---|          SB7    B0          FORMAT DEFAULT MESSAGE
Line S00045 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01554  M01S00045.241l630 +++|          SB7    B0+         CLEAR ERROR MESSAGE
01555  M00S01509.lidou   +++|          EQ     PCM3        PROCESS NEXT COMMAND
01556  M00S01510.lidou   +++| RLD      SPACE  4,15
01557  M00S01511.lidou   +++|**        RLD - REFORMAT LID TABLE.
01558  M00S01512.lidou   +++|*
01559  M00S01513.lidou   +++|*         ENTRY  *LIDI* CONTAINS THE LID TABLE FROM CORE.
01560  M00S01514.lidou   +++|*                (A1) = FIRST WORD ADDRESS OF *LIDI*.
01561  M00S01515.lidou   +++|*                (X7) = NUMBER OF PIDS IN TABLE.
01562  M00S01516.lidou   +++|*
01563  M00S01517.lidou   +++|*         EXIT   *LIDI* CONTAINS THE REFORMATTED LID TABLE.
01564  M00S01518.lidou   +++|*                *MFTB* CONTAINS THE MAINFRAME AND NETWORK DATA.
01565  M00S01519.lidou   +++|*
01566  M00S01520.lidou   +++|*         USES   X - ALL.
01567  M00S01521.lidou   +++|*                A - 1, 6, 7.
01568  M00S01522.lidou   +++|*                B - 2, 3, 4.
01569  M00S01523.lidou   +++|*
01570  M00S01524.lidou   +++|*         CALLS  GPL.
01571  M00S01525.lidou   +++|
01572  M00S01526.lidou   +++|
01573  M00S01527.lidou   +++| RLD      SUBR               ENTRY/EXIT
01574  M00S01528.lidou   +++|          SA6    LIDI        PRESET ADDRESS IN *LIDI*
01575  M00S01529.lidou   +++|          SA7    MFTB        SAVE NUMBER OF PIDS
01576  M00S01530.lidou   +++| RLD1     MX0    42          SET MASKS
01577  M00S01531.lidou   +++|          MX5    -12
01578  M00S01532.lidou   +++|          SA1    A1+B1       GET PID WORD
01579  M00S01533.lidou   +++|          BX2    -X5*X1      MASK OFF NETWORK INFORMATION
01580  M00S01534.lidou   +++|          BX3    X0*X1
01581  M00S01535.lidou   +++|          SA1    A1+B1       GET MAINFRAME DESCRIPTOR
01582  M00S01536.lidou   +++|          BX7    X0*X1
01583  M00S01537.lidou   +++|          BX4    -X5*X1      MASK OFF NEXT PID OFFSET
01584  M00S01538.lidou   +++|          SA1    A1+B1       GET NUMBER OF LID SLOTS
01585  M00S01539.lidou   +++|          SX6    A7+B1
01586  M00S01540.lidou   +++|          BX7    X7+X2
01587  M00S01541.lidou   +++|          BX6    X3+X6
01588  M00S01542.lidou   +++|          SA7    A7+B1       SAVE MAINFRAME AND NETWORK INFORMATION
01589  M00S01543.lidou   +++|          SA6    A6+B1       SAVE PID, ATTRIBUTES AND *MFTB* ADDRESS
01590  M00S01544.lidou   +++|          RJ     GPL         GET PID LINES
01591  M00S01545.lidou   +++|          BX3    -X5*X1
01592  M00S01546.lidou   +++|          SB2    X3          SET SLOT COUNT
01593  M00S01547.lidou   +++|          SB3    X3          SET NON EMPTY SLOT COUNT
01594  M00S01548.lidou   +++|          MX6    24
01595  M00S01549.lidou   +++|          EQ     B4,B1,RLD2  IF NO EXTRA LINES
01596  M00S01550.lidou   +++|          LX6    -18
01597  M00S01551.lidou   +++|          SA6    A6+B1       STORE DUMMY PID ENTRY
01598  M00S01552.lidou   +++|          SB4    B4-B1
01599  M00S01553.lidou   +++|          EQ     B4,B1,RLD2  IF ONE EXTRA LINE
01600  M00S01554.lidou   +++|          SA6    A6+B1       STORE DUMMY PID ENTRY
01601  M00S01555.lidou   +++| RLD2     SA1    A1+B1       GET LID
01602  M00S01556.lidou   +++|          BX6    X0*X1
01603  M00S01557.lidou   +++|          ZR     X6,RLD3     IF EMPTY SLOT
01604  M00S01558.lidou   +++|          SA6    A6+1        SAVE LID
01605  M00S01559.lidou   +++|          SB3    B3-1        DECREMENT NON EMPTY SLOT COUNT
01606  M00S01560.lidou   +++| RLD3     SB2    B2-B1       DECREMENT SLOT COUNT
01607  M00S01561.lidou   +++|          NZ     B2,RLD2     IF MORE SLOTS TO CHECK
01608  M00S01562.lidou   +++|          MX6    24
01609  M00S01563.lidou   +++|          ZR     B3,RLD4     IF NO EMPTY SLOTS
01610  M00S01564.lidou   +++|          LX6    -18
01611  M00S01565.lidou   +++|          SA6    A6+B1       SIGNIFY EMPTY LID
01612  M00S01566.lidou   +++| RLD4     NZ     X4,RLD1     IF NOT END OF TABLE
01613  M00S01567.lidou   +++|          SA1    LIDI        SAVE LARGEST TABLE INDEX
01614  M00S01568.lidou   +++|          SB2    A1
01615  M00S01569.lidou   +++|          SX7    A6-B2
01616  M00S01570.lidou   +++|          SA7    A1
01617  M00S01571.lidou   +++|          BX6    X6-X6       ZERO WORD FOR END OF REFORMATTED TABLE
01618  M00S01572.lidou   +++|          SA6    A6+1
01619  M00S01573.lidou   +++|          EQ     RLDX        RETURN
01620  M00S01574.lidou   +++| SET      SPACE  4,15
01621  M00S01575.lidou   +++|**        SET - SET ATTRIBUTE(S).
01622  M00S01576.lidou   +++|*
01623  M00S01577.lidou   +++|*         ENTRY  (X7) = FUNCTION CODE AND PID COUNT FOR
01624  M00S01578.lidou   +++|*                       FIRST WORD OF PARAMETER BLOCK.
01625  M00S01579.lidou   +++|*                (X6) = BOTTOM 42 BITS FOR SECOND WORD.
01626  M00S01580.lidou   +++|*
01627  M00S01581.lidou   +++|*         EXIT   (X4) = RETURN CODE FROM *SETPIDA*.
01628  M00S01582.lidou   +++|*
01629  M00S01583.lidou   +++|*         USES   X - 0, 4, 6, 7.
01630  M00S01584.lidou   +++|*                A - 4, 6, 7.
01631  M00S01585.lidou   +++|*
01632  M00S01586.lidou   +++|*         MACROS SETPIDA.
01633  M00S01587.lidou   +++|
01634  M00S01588.lidou   +++|
01635  M00S01589.lidou   +++| SET      SUBR               ENTRY/EXIT
01636  M00S01590.lidou   +++|          LX7    36          POSITION FUNCTION CODE AND PID COUNT
01637  M00S01591.lidou   +++|          SX4    B1+         SET FET NOT BUSY
01638  M00S01592.lidou   +++|          BX7    X7+X4
01639  M00S01593.lidou   +++|          SA7    PARB        SET FIRST WORD INTO PARAMETER BLOCK
01640  M00S01594.lidou   +++|          SA4    A7+B1       SET BOTTOM 42 BITS INTO SECOND WORD
01641  M00S01595.lidou   +++|          MX0    18
01642  M00S01596.lidou   +++|          BX4    X0*X4
01643  M00S01597.lidou   +++|          BX6    X4+X6
01644  M00S01598.lidou   +++|          SA6    A4
01645  M00S01599.lidou   +++|          MX0    -8
01646  M00S01600.lidou   +++|          SETPIDA  PARB      MAKE *SFM* CALL
01647  M00S01601.lidou   +++|          SA4    PARB        MASK OFF RETURN CODE
01648  M00S01602.lidou   +++|          LX4    -10
01649  M00S01603.lidou   +++|          BX4    -X0*X4
01650  M00S01604.lidou   +++|          EQ     SETX        RETURN
01651  M00S01605.lidou   +++| SLA      SPACE  4,25
01652  M00S01606.lidou   +++|**        SLA - SET LID ATTRIBUTE(S).
01653  M00S01607.lidou   +++|*
01654  M00S01608.lidou   +++|*         EXIT   TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR.
01655  M00S01609.lidou   +++|*                TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS.
01656  M00S01610.lidou   +++|*                (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS.
01657  M00S01611.lidou   +++|*                (CHDF) = 1, IF THE LID TABLE CHANGED.
01658  M00S01612.lidou   +++|*                (B7) = ADDRESS OF RESPONSE.
01659  M00S01613.lidou   +++|*
01660  M00S01614.lidou   +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
01661  M00S01615.lidou   +++|*                A - 4.
01662  M00S01616.lidou   +++|*                B - 7.
01663  M00S01617.lidou   +++|*
01664  M00S01618.lidou   +++|*         CALLS  POP, SET, SLF, STL.
01665  M00S01619.lidou   +++|*
01666  M00S01620.lidou   +++|*         NOTE   ATTRIBUTES *D* AND *E* CANNOT BE SPECIFIED TOGETHER
01667  M00S01621.lidou   +++|*                AND IF NEITHER IS SPECIFIED THE PRESENT STATUS WILL
01668  M00S01622.lidou   +++|*                BE USED WHEN ALTERING ATTRIBUTES AND THE DEFAULT
01669  M00S01623.lidou   +++|*                STATUS OF ENABLE WILL BE USED WHEN ADDING A LID.
01670  M00S01624.lidou   +++|*                ATTRIBUTES *S* AND *B* CANNOT BE SPECIFIED TOGETHER
01671  M00S01625.lidou   +++|*                AND *B* IS NOT ALLOWED ON A LINKED PID.  THE *V*
01672  M00S01626.lidou   +++|*                ATTRIBUTE CAN ONLY BE SET IF THE *S* ATTRIBUTE IS SET.
01673  M00S01627.lidou   +++|
01674  M00S01628.lidou   +++|
01675  M00S01629.lidou   +++| SLA      MX4    6           SET MASKS
01676  M00S01630.lidou   +++|          MX0    -42
01677  M00S01631.lidou   +++|          RJ     POP         GET NEXT PARAMETER
01678  M00S01632.lidou   +++|          SB7    MSIP        * INCORRECT SEPARATOR.*
01679  M00S01633.lidou   +++|          SX7    X1-1R,
01680  M00S01634.lidou   +++|          NZ     X7,PCM1     IF SEPARATOR NOT *,*
01681  M00S01635.lidou   +++|          SB7    MSIL        * INCORRECT LID.*
01682  M00S01636.lidou   +++|          BX0    -X0*X6      CHECK FOR CORRECT LID
01683  M00S01637.lidou   +++|          BX7    X4*X6
01684  M00S01638.lidou   +++|          NZ     X0,PCM1     IF MORE THAN THREE CHARACTERS
01685  M00S01639.lidou   +++|          LX4    -6
01686  M00S01640.lidou   +++|          BX5    X4*X6
01687  M00S01641.lidou   +++|          LX4    -6
01688  M00S01642.lidou   +++|          BX4    X4*X6
01689  M00S01643.lidou   +++|          LX7    6           POSITION CHARACTERS
01690  M00S01644.lidou   +++|          LX5    12
01691  M00S01645.lidou   +++|          LX4    18
01692  M00S01646.lidou   +++|          MX2    42          SET MASK
01693  M00S01647.lidou   +++|          ZR     X7,PCM1     IF NO FIRST CHARACTER
01694  M00S01648.lidou   +++|          ZR     X5,PCM1     IF NO SECOND CHARACTER
01695  M00S01649.lidou   +++|          ZR     X4,PCM1     IF NO THIRD CHARACTER
01696  M00S01650.lidou   +++|          SX7    X7-1R9-1    CHECK FOR ALPHANUMERIC CHARACTERS
01697  M00S01651.lidou   +++|          SX5    X5-1R9-1
01698  M00S01652.lidou   +++|          SX4    X4-1R9-1
01699  M00S01653.lidou   +++|          PL     X7,PCM1     IF INCORRECT FIRST CHARACTER
01700  M00S01654.lidou   +++|          PL     X5,PCM1     IF INCORRECT SECOND CHARACTER
01701  M00S01655.lidou   +++|          PL     X4,PCM1     IF INCORRECT THIRD CHARACTER
01702  M00S01656.lidou   +++|          RJ     STL         SEARCH TABLE FOR LID
01703  M00S01657.lidou   +++|          SA4    SLAA        CHECK FOR DELETE
01704  M00S01658.lidou   +++|          RJ     POP         GET NEXT PARAMETER
01705  M00S01659.lidou   +++|          SX2    X1-1R=
01706  M00S01660.lidou   +++|          SB7    MSIC        * INCORRECT COMMAND.*
01707  M00S01661.lidou   +++|          ZR     X2,SLA1     IF *=* SEPARATOR
01708  M00S01662.lidou   +++|          BX2    X6-X4
01709  M00S01663.lidou   +++|          SX6    A0
01710  M00S01664.lidou   +++|          NZ     X2,PCM1     IF NOT *=* AND NOT *DELETE*
01711  M00S01665.lidou   +++|          SB7    MSNF        * LID NOT FOUND.*
01712  M00S01666.lidou   +++|          NZ     X0,PCM1     IF DELETE AND LID NOT FOUND
01713  M00S01667.lidou   +++|          SX7    40001B      SET FUNCTION CODE AND PID COUNT
01714  M00S01668.lidou   +++|          ERRNZ  DLDF-4      ADJUST VALUE IF CHANGED
01715  M00S01669.lidou   +++|          LX6    24          POSITION LID
01716  M00S01670.lidou   +++|          SX5    X1          SAVE SEPARATOR
01717  M00S01671.lidou   +++|          RJ     SET         DELETE LID
01718  M00S01672.lidou   +++|          SX1    X5          RESTORE SEPARATOR
01719  M00S01673.lidou   +++|          SB7    MSND        * LID NOT DELETED.*
01720  M00S01674.lidou   +++|          SX7    B1
01721  M00S01675.lidou   +++|          NZ     X4,PCM1     IF ERROR
01722  M00S01676.lidou   +++|          EQ     SLA9        SET CHANGED FLAG
01723  M00S01677.lidou   +++|
01724  M00S01678.lidou   +++| SLA1     SX2    2RLA        CHECK FOR *LA*
01725  M00S01679.lidou   +++|          LX6    12
01726  M00S01680.lidou   +++|          BX2    X6-X2
01727  M00S01681.lidou   +++|          NZ     X2,PCM1     IF NOT *LA*
01728  M00S01682.lidou   +++|          RJ     SLF         SET LID FLAGS
01729  M00S01683.lidou   +++|          NZ     B7,PCM1     IF ERROR
01730  M00S01684.lidou   +++|          ZR     B3,SLA4     IF NO *S* OR *B* SPECIFIED
01731  M00S01685.lidou   +++|          SA4    PARB+2      PID ENTRY
01732  M00S01686.lidou   +++|          SA4    X4
01733  M00S01687.lidou   +++|          LX4    18          CHECK HOST/LINKED STATUS
01734  M00S01688.lidou   +++|          GT     B3,B1,SLA4  IF *S*
01735  M00S01689.lidou   +++|          NG     X4,SLA4     IF HOST PID
01736  M00S01690.lidou   +++| SLA2     SB7    MSEA        * ERROR IN ATTRIBUTE.*
01737  M00S01691.lidou   +++|          EQ     PCM1        PROCESS ERROR
01738  M00S01692.lidou   +++|
01739  M00S01693.lidou   +++| SLA4     ZR     B4,SLA5     IF *V* NOT SPECIFIED
01740  M00S01694.lidou   +++|          LE     B3,B1,SLA2  IF *S* NOT SPECIFIED
01741  M00S01695.lidou   +++| SLA5     SX7    B1+
01742  M00S01696.lidou   +++|          ZR     X0,SLA7     IF ALTERING LID
01743  M00S01697.lidou   +++|          NZ     B2,SLA6     IF *D* OR *E* SPECIFIED
01744  M00S01698.lidou   +++|          LX7    23
01745  M00S01699.lidou   +++|          BX6    X6+X7       DEFAULT FOR ADDING LID IS ENABLE
01746  M00S01700.lidou   +++| SLA6     SX7    30001B      ADD LID
01747  M00S01701.lidou   +++|          ERRNZ  ALDF-3      ADJUST VALUE IF CHANGED
01748  M00S01702.lidou   +++|          SX5    A0          COMBINE LID AND ATTRIBUTES
01749  M00S01703.lidou   +++|          LX5    24
01750  M00S01704.lidou   +++|          BX6    X5+X6
01751  M00S01705.lidou   +++|          SX5    X1          SAVE SEPARATOR
01752  M00S01706.lidou   +++|          RJ     SET
01753  M00S01707.lidou   +++|          SX1    X5          RESTORE SEPARATOR
01754  M00S01708.lidou   +++|          SB7    MSNS        * NO SPACE AVAILABLE.*
01755  M00S01709.lidou   +++|          SX7    B1
01756  M00S01710.lidou   +++|          NZ     X4,PCM1     IF ERROR
01757  M00S01711.lidou   +++|          EQ     SLA9        SET CHANGED FLAG
01758  M00S01712.lidou   +++|
01759  M00S01713.lidou   +++| SLA7     NZ     B2,SLA8     IF *D* OR *E* SPECIFIED
01760  M00S01714.lidou   +++|          SA4    A5          GET LID WORD
01761  M00S01715.lidou   +++|          LX4    24          CHECK PRESENT STATUS
01762  M00S01716.lidou   +++|          PL     X4,SLA8     IF DISABLED
01763  M00S01717.lidou   +++|          LX7    23
01764  M00S01718.lidou   +++|          BX6    X6+X7
01765  M00S01719.lidou   +++| SLA8     SX7    50001B      ALTER LID
01766  M00S01720.lidou   +++|          ERRNZ  SLTF-5      ADJUST VALUE IF CHANGED
01767  M00S01721.lidou   +++|          SX5    A0          COMBINE LID AND ATTRIBUTES
01768  M00S01722.lidou   +++|          LX5    24
01769  M00S01723.lidou   +++|          BX6    X5+X6
01770  M00S01724.lidou   +++|          SX5    X1          SAVE SEPARATOR
01771  M00S01725.lidou   +++|          RJ     SET
01772  M00S01726.lidou   +++|          SX1    X5+         RESTORE SEPARATOR
01773  M00S01727.lidou   +++|          SB7    MSNA        * LID NOT ALTERED.*
01774  M00S01728.lidou   +++|          SX7    B1+
01775  M00S01729.lidou   +++|          NZ     X4,PCM1     IF ERROR
01776  M00S01730.lidou   +++| SLA9     SA7    CHDF        SET LID TABLE CHANGED FLAG
01777  M00S01731.lidou   +++|          SX4    X1-1R.      CHECK FOR MORE COMMAND
01778  M00S01732.lidou   +++|          SB7    MSCP        * COMMAND PROCESSED.*
01779  M00S01733.lidou   +++|          ZR     X1,PCM1     IF NO MORE COMMAND
01780  M00S01734.lidou   +++|          ZR     X4,PCM1     IF NO MORE COMMAND
01781  M00S01735.lidou   +++|          EQ     PCM5        CONTINUE PROCESSING COMMAND
01782  M00S01736.lidou   +++|
01783  M00S01737.lidou   +++| SLAA     VFD    60/6LDELETE
01784  M00S01738.lidou   +++| SLF      SPACE  4,20
01785  M00S01739.lidou   +++|**        SLF - SET LID FLAGS.
01786  M00S01740.lidou   +++|*
01787  M00S01741.lidou   +++|*         EXIT   (B2) = 1, IF *D* SPECIFIED.
01788  M00S01742.lidou   +++|*                     = 2, IF *E* SPECIFIED.
01789  M00S01743.lidou   +++|*                (B3) = 1, IF *B* SPECIFIED.
01790  M00S01744.lidou   +++|*                     = 2, IF *S* SPECIFIED.
01791  M00S01745.lidou   +++|*                (B4) = 1, IF *V* SPECIFIED.
01792  M00S01746.lidou   +++|*                (B5) = 1, IF *N* SPECIFIED.
01793  M00S01747.lidou   +++|*                (B7) = ADDRESS OF RESPONSE.
01794  M00S01748.lidou   +++|*                     = 0, IF NO ERROR.
01795  M00S01749.lidou   +++|*                (X6) = ATTRIBUTE MASK.
01796  M00S01750.lidou   +++|*                (X1) = SEPARATOR.
01797  M00S01751.lidou   +++|*
01798  M00S01752.lidou   +++|*         USES   X - 2, 3, 4, 5, 6, 7.
01799  M00S01753.lidou   +++|*                B - 2, 3, 4, 5, 7.
Line S00046 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01800  M01S00046.241l630 +++|*
01801  M01S00047.241l630 +++|*         CALLS  POP.
01802  M00S01754.lidou   +++|*
01803  M00S01755.lidou   +++|*         NOTE   ATTRIBUTES *D* AND *E* CANNOT BE SPECIFIED TOGETHER.
01804  M00S01756.lidou   +++|*                ATTRIBUTES *S* AND *B* CANNOT BE SPECIFIED TOGETHER.
01805  M00S01757.lidou   +++|
01806  M00S01758.lidou   +++|
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/lidou.txt ยท Last modified: by 127.0.0.1