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