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