TITLE 'IGCMY10D - ACT/DACT COMMAND PROCESSOR *00001000 ' 00002000 IGCMY10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * /* 00007000 IGCMY10D IEDHJN AFTERHJN,HJN 00008000 * ROPCAVT=RPARM; /* POINT TO OP. CTL. AVT */ 00009000 LR ROPCAVT,RPARM 0241 00010000 * RAVT=OPCAVTPT; /* AVT PTR. */ 00011000 L RAVT,OPCAVTPT(,ROPCAVT) 0242 00012000 * ROPCE=OPCCOPCE; /* POINT TO CURRENT OPCE */ 00013000 L ROPCE,OPCCOPCE(,ROPCAVT) 0243 00014000 * RSAVE=ADDR(OPCSAVE); /* POINT TO OP CTL SAVE AREA */ 00015000 * 0244 00016000 LA RSAVE,OPCSAVE(,ROPCAVT) 0244 00017000 * /*****************************************************************/ 00018000 * /* */ 00019000 * /* SET UP SO THAT THE PROGRAM WILL ASSIGN ALL STORAGE AREAS TO */ 00020000 * /* THE OP. CTL. WORK AREA STARTING AT OFFSET 200. */ 00021000 * /* */ 00022000 * /*****************************************************************/ 00023000 * 0245 00024000 * RDATA=OPCWORK+200; /* SET PTR. TO DATA IN WORK AREA. 00025000 * CMND IN FRONT PART OF W.A. */ 00026000 LA RDATA,200 0245 00027000 AL RDATA,OPCWORK(,ROPCAVT) 0245 00028000 * GEN REFS(RDATA); 0246 00029000 * 0246 00030000 USING @DATD,RDATA BASE COMPILER GENERATED DSECT ON 00031000 * RDATA 00032000 * /*****************************************************************/ 00033000 * /* */ 00034000 * /* ADDR. OF PLACE WHERE COMMAND SCAN ENDED IN IGCMM10D AND LENGTH*/ 00035000 * /* OF COMMAND LEFT TO SCAN ARE IN SAVE AREA FOR REGS 7 AND 6 */ 00036000 * /* RESPECTIVELY. */ 00037000 * /* */ 00038000 * /*****************************************************************/ 00039000 * 0247 00040000 * WABYTES=REG6SAVE; /* NUMBER OF BYTES LEFT TO SCAN 00041000 * IN WORKAREA */ 00042000 L @14,REG6SAVE(,RSAVE) 0247 00043000 STH @14,WABYTES 0247 00044000 * WAPTR=REG7SAVE; /* PTR TO BYTES LEFT TO SCAN */ 00045000 * 0248 00046000 L @14,REG7SAVE(,RSAVE) 0248 00047000 ST @14,WAPTR 0248 00048000 * /*****************************************************************/ 00049000 * /* */ 00050000 * /* BLANK OUT BYTE FOLLOWING END OF COMMAND SINCE SUBROUTINES IN */ 00051000 * /* IEDQCA DEPEND ON THIS. */ 00052000 * /* */ 00053000 * /*****************************************************************/ 00054000 * 0249 00055000 * IF OPCRSTRT=OFF THEN 0249 00056000 TM OPCRSTRT(ROPCAVT),B'00100000' 0249 00057000 BNZ @RF00249 0249 00058000 * DO; /* IF NOT THEN RESTART @OZ29999*/ 00059000 * CHARPTR=OPCWORK+CMNDOFF+CMNDLEN;/* POINT ONE BYTE PAST END OF 00060000 * OF COMMAND @YM04610*/ 00061000 L @14,OPCWORK(,ROPCAVT) 0251 00062000 LA CHARPTR,8 0251 00063000 ALR CHARPTR,@14 0251 00064000 LH @14,CMNDLEN(,@14) 0251 00065000 N @14,@CF01884 0251 00066000 ALR CHARPTR,@14 0251 00067000 * CHARBYTE=BLANK; /* BLANK IT OUT @YM04610*/ 00068000 MVI CHARBYTE(CHARPTR),X'40' 0252 00069000 * END; /* @OZ29999*/ 00070000 * FLAGS=''B; /* INIT. FLAGS */ 00071000 @RF00249 MVI FLAGS,X'00' 0254 00072000 * IF OPCRSTRT=ON THEN /* IF RESTART */ 00073000 TM OPCRSTRT(ROPCAVT),B'00100000' 0255 00074000 BNO @RF00255 0255 00075000 * DO; 0256 00076000 * 0256 00077000 * /*************************************************************/ 00078000 * /* */ 00079000 * /* SET REMEMBER BIT IN TTE */ 00080000 * /* */ 00081000 * /*************************************************************/ 00082000 * 0257 00083000 * RPARM=OCTRMTBL; /* SET PARM REG WITH TTCIN */ 00084000 LH RPARM,OCTRMTBL(,ROPCE) 0257 00085000 N RPARM,@CF01884 0257 00086000 * RBRNCH=AVTRNMPT; /* SET BRANCH REG TO CONVERSION 00087000 * ROUTINE */ 00088000 L RBRNCH,AVTRNMPT(,RAVT) 0258 00089000 * CALL SUBRTNE; /* CALL CONVERSION ROUTINE. NOTE: 00090000 * SUBRTNE BASED ON RBRNCH */ 00091000 BALR @14,@15 0259 00092000 * RTRM=RPARM; /* COPY TTE ADDR. */ 00093000 LR RTRM,RPARM 0260 00094000 * IF OCSWITCH=OCTOFA THEN /* IF THIS IS AN ACTIVATE COMMAND*/ 00095000 CLI OCSWITCH(ROPCE),X'22' 0261 00096000 BNE @RF00261 0261 00097000 * TRMREMB=ON; /* THEN TURN ON REMEMBER BIT */ 00098000 LR @07,RTRM 0262 00099000 AL @07,@CF01889 0262 00100000 LA @09,TRMREMB-2(,@07) 0262 00101000 LR @05,@09 0262 00102000 LA @14,3 0262 00103000 NR @05,@14 0262 00104000 LCR @05,@05 0262 00105000 ALR @09,@05 0262 00106000 L @14,0(,@09) 0262 00107000 @GL00001 LR @11,@14 0262 00108000 O @11,@CB01885+3(@05) 0262 00109000 CS @14,@11,0(@09) 0262 00110000 BNE @GL00001 0262 00111000 * ELSE 0263 00112000 * TRMREMB=OFF; /* ELSE TURN OFF REMEMBER BIT */ 00113000 B @RC00261 0263 00114000 @RF00261 LR @07,RTRM 0263 00115000 AL @07,@CF01889 0263 00116000 LA @09,TRMREMB-2(,@07) 0263 00117000 LR @05,@09 0263 00118000 LA @14,3 0263 00119000 NR @05,@14 0263 00120000 LCR @05,@05 0263 00121000 ALR @09,@05 0263 00122000 L @14,0(,@09) 0263 00123000 @GL00002 LR @11,@14 0263 00124000 N @11,@CB01890+3(@05) 0263 00125000 CS @14,@11,0(@09) 0263 00126000 BNE @GL00002 0263 00127000 * OPCMODID=CKPTMOD; /* SET UP TO XCTL TO TAKE AN 0264 00128000 * INCIDENT RECORD */ 00129000 @RC00261 MVC OPCMODID(2,ROPCAVT),@CC01798 0264 00130000 * END; 0265 00131000 * ELSE 0266 00132000 * DO; 0266 00133000 * 0266 00134000 B @RC00255 0266 00135000 @RF00255 DS 0H 0267 00136000 * /*************************************************************/ 00137000 * /* */ 00138000 * /* NOTE: REGS 6 AND 7 AS SAVED IN OPCSAVE ARE NOT SET */ 00139000 * /* CORRECTLY ON ENTRANCE TO MY IF CMND. CAME FROM TOTE. SINCE*/ 00140000 * /* TOTE DOESN'T SET OPTIONS, THE BYTES LEFT TO SCAN IS SET TO*/ 00141000 * /* ZERO. */ 00142000 * /* */ 00143000 * /*************************************************************/ 00144000 * 0267 00145000 * IF OCTOTE=ON THEN /* IF TOTE ISSUED CMND. */ 00146000 TM OCTOTE(ROPCE),B'01000000' 0267 00147000 BNO @RF00267 0267 00148000 * WABYTES=ZERO; /* BYTES LEFT TO SCAN = 0 */ 00149000 SLR @14,@14 0268 00150000 STH @14,WABYTES 0268 00151000 * ELSE 0269 00152000 * ; 0269 00153000 @RF00267 DS 0H 0270 00154000 * CALL PARSE; /* PARSE REMAINDER OF STRING */ 00155000 * 0270 00156000 BAL @14,PARSE 0270 00157000 * /*************************************************************/ 00158000 * /* */ 00159000 * /* CHECK ERROR FLAG TO CHECK IF PARSE DONE SUCCESSFULLY */ 00160000 * /* */ 00161000 * /*************************************************************/ 00162000 * 0271 00163000 * IF ERRFLG=ON THEN 0271 00164000 TM ERRFLG,B'10000000' 0271 00165000 BNO @RF00271 0271 00166000 * DO; 0272 00167000 * 0272 00168000 * /*********************************************************/ 00169000 * /* */ 00170000 * /* PARSE DONE UNSUCCESSFULLY. DETERMIN MODULE TO XCTL TO.*/ 00171000 * /* */ 00172000 * /*********************************************************/ 00173000 * 0273 00174000 * ERRFLG=OFF; /* RESET FOR NEXT PASS THRU 0273 00175000 * MODULE */ 00176000 NI ERRFLG,B'01111111' 0273 00177000 * OCPARM=RZERO; /* SET COMPLETION CODE FROM MSG #*/ 00178000 STH RZERO,OCPARM(,ROPCE) 0274 00179000 * IF OCTOTE=ON THEN /* IF TOTE CMND. */ 00180000 TM OCTOTE(ROPCE),B'01000000' 0275 00181000 BNO @RF00275 0275 00182000 * DO; 0276 00183000 * OPCMODID=OUTWRMOD; /* SET TO EXIT TO OUTPUT WRITER 00184000 * TO POST APPL. OR TOTE */ 00185000 MVC OPCMODID(2,ROPCAVT),@CC01788 0277 00186000 * RZERO=TOTEBAD; 0278 00187000 LA RZERO,4 0278 00188000 * END; 0279 00189000 * ELSE 0280 00190000 * IF MSGMODSW=ON THEN /* MSG MOD SW. INDICATES WHICH 0280 00191000 * WHICH MSG MOD TO XCTL TO */ 00192000 B @RC00275 0280 00193000 @RF00275 TM MSGMODSW,B'01000000' 0280 00194000 BNO @RF00280 0280 00195000 * DO; 0281 00196000 * MSGMODSW=OFF; /* RESET FOR NEXT PASS THRU MOD */ 00197000 NI MSGMODSW,B'10111111' 0282 00198000 * OPCMODID=MSGMOD0H;/* SET TO XCTL TO MSG MOD '0H' */ 00199000 MVC OPCMODID(2,ROPCAVT),@CC01792 0283 00200000 * END; 0284 00201000 * ELSE 0285 00202000 * OPCMODID=MSGMOD03; /* SET TO XCTL TO MSG MOD '03' */ 00203000 B @RC00280 0285 00204000 @RF00280 MVC OPCMODID(2,ROPCAVT),@CC01790 0285 00205000 * END; 0286 00206000 * ELSE 0287 00207000 * DO; /* @YM09074*/ 00208000 * 0287 00209000 B @RC00271 0287 00210000 @RF00271 DS 0H 0288 00211000 * /*********************************************************/ 00212000 * /* */ 00213000 * /* PARSE WAS SUCCESSFUL. DETERMINE MODULE TO XCTL TO. */ 00214000 * /* */ 00215000 * /*********************************************************/ 00216000 * 0288 00217000 * OCALSTAT=''B; /* CLEAR FLAGS @YM09074*/ 00218000 MVI OCALSTAT(ROPCE),X'00' 0288 00219000 * OCWTGSAV=ZERO; /* CLEAR FIELD FOR F PROCESSORS 00220000 * @OY20474*/ 00221000 SLR @14,@14 0289 00222000 STH @14,OCWTGSAV(,ROPCE) 0289 00223000 * IF OCSWITCH=OCTOFA THEN /* IF ACTIVATE CMND. */ 00224000 CLI OCSWITCH(ROPCE),X'22' 0290 00225000 BNE @RF00290 0290 00226000 * OPCMODID=ACTMOD; /* THEN SET UP TO BRANCH TO 0291 00227000 * ACTIVATE PROCESSOR */ 00228000 MVC OPCMODID(2,ROPCAVT),@CC01794 0291 00229000 * ELSE 0292 00230000 * OPCMODID=DACTMOD; /* ELSE SET UP TO BRANCH TO 0292 00231000 * DEACTIVATE PROCESSOR */ 00232000 B @RC00290 0292 00233000 @RF00290 MVC OPCMODID(2,ROPCAVT),@CC01796 0292 00234000 * END; /* @YM09074*/ 00235000 @RC00290 DS 0H 0294 00236000 * END; 0294 00237000 @RC00271 DS 0H 0295 00238000 * RPARM=ROPCAVT; /* SET PARM. FOR XCTL */ 00239000 @RC00255 LR RPARM,ROPCAVT 0295 00240000 * OCRSID=ZERO; /* ENSURE STATUS FIELD CLEAR 0296 00241000 * @XM05698*/ 00242000 SLR @14,@14 0296 00243000 STH @14,OCRSID(,ROPCE) 0296 00244000 * GEN EXIT REFS(ROPCAVT,OPCXCTL); 0297 00245000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00246000 * 0298 00247000 * /*****************************************************************/ 00248000 * /* */ 00249000 * /* THIS ROUTINE FINISHES HE PARSING OF THE COMMAND */ 00250000 * /* */ 00251000 * /*****************************************************************/ 00252000 * 0298 00253000 *PARSE: 0298 00254000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0298 00255000 PARSE DS 0H 0299 00256000 * DCL 0299 00257000 * RLNMAXL FIXED(8) CONSTANT(3); /* THE MAX. LENGTH OF RLN FIELD 00258000 * ALLOWED */ 00259000 * DCL 0300 00260000 * PAR14SAV PTR(31); /* SAVE AREA FOR REG 14 */ 00261000 * DCL 0301 00262000 * IOBFLG BIT(1); /* FLAG INDICATING IOB */ 00263000 * DCL 0302 00264000 * BRIND FIXED(8) GEND; /* BRANCH INDICATOR */ 00265000 * GEN DATA DEFS(BRIND); 0303 00266000 * RFY 0304 00267000 * RRET RSTD; 0304 00268000 * PAR14SAV=RRET; /* SAVE REG 14 */ 00269000 ST RRET,PAR14SAV 0305 00270000 * RFY 0306 00271000 * RRET UNRSTD; 0306 00272000 * IOBFLG=OFF; /* INIT. @YM04608*/ 00273000 NI IOBFLG,B'01111111' 0307 00274000 * 0308 00275000 * /*****************************************************************/ 00276000 * /* */ 00277000 * /* ON ENTRANCE TO MY, THE RESOURCE NAME HAS BEEN PLACED IN */ 00278000 * /* OPCDOUBL AND THE WORK AREA SCAN PTR. POINTS BEYOND THE FIELD */ 00279000 * /* CONTAINING THE RESOURCE (IN THE CASE OF 'GROUPNAME,RLN', THE */ 00280000 * /* POINTER POINTS TO THE BEGINNING OF THE RLN FIELD) */ 00281000 * /* */ 00282000 * /*****************************************************************/ 00283000 * 0308 00284000 * IF ADDR(OPCDOUBL)->CHARNUM>=NUMLIMIT THEN/* 1ST CHAR. A NUM? */ 00285000 CLI CHARNUM(ROPCAVT),240 0308 00286000 BL @RF00308 0308 00287000 * DO; 0309 00288000 * 0309 00289000 * /*************************************************************/ 00290000 * /* */ 00291000 * /* CHANNEL ADDRESS SPECIFIED */ 00292000 * /* */ 00293000 * /*************************************************************/ 00294000 * 0310 00295000 * RPARM=ZERO; 0310 00296000 SLR RPARM,RPARM 0310 00297000 * RBRNCH=OPCDCBLK; /* ADDR. OF DCB LOOKUP ROUTINE */ 00298000 L RBRNCH,OPCDCBLK(,ROPCAVT) 0311 00299000 * GEN REFS(RBRNCH) SETS(RRET,RPARM,RZERO,BRIND); 0312 00300000 BALR RRET,RBRNCH BRANCH TO DCB LOOK UP ROUTINE 00301000 B GEN00100 RETURN IS HERE WHEN DCB FOUND 00302000 MVI BRIND,BADBR RETURN IS TO HERE WHEN DCB 00303000 * NOT FOUND - BRANCH INDICATOR 00304000 B GEN00200 SET TO ERROR 00305000 GEN00100 MVI BRIND,GOODBR SET BRANCH INDICATOR 00306000 GEN00200 EQU * 00307000 * IF BRIND=GOODBNCH THEN 0313 00308000 CLI BRIND,1 0313 00309000 BNE @RF00313 0313 00310000 * DO; /* IF DCB ADDR. FOUND THEN */ 00311000 * IOBFLG=ON; /* TURN ON IOB FLAG */ 00312000 OI IOBFLG,B'10000000' 0315 00313000 * DCBPTR=RPARM; /* SAVE DCB ADDR. */ 00314000 ST RPARM,DCBPTR 0316 00315000 * END; 0317 00316000 * ELSE 0318 00317000 * DO; 0318 00318000 B @RC00313 0318 00319000 @RF00313 DS 0H 0319 00320000 * ERRFLG=ON; /* TURN ON ERROR FLAG */ 00321000 OI ERRFLG,B'10000000' 0319 00322000 * RZERO=SYNMSG; /* SYNTAX ERROR MSG. NO. */ 00323000 LA RZERO,18 0320 00324000 * END; 0321 00325000 * END; 0322 00326000 * ELSE 0323 00327000 * DO; 0323 00328000 * 0323 00329000 B @RC00308 0323 00330000 @RF00308 DS 0H 0324 00331000 * /*************************************************************/ 00332000 * /* */ 00333000 * /* CHECK IF OPCDOUBL CONTAINS NAME OF ENTRY IN TNT */ 00334000 * /* */ 00335000 * /*************************************************************/ 00336000 * 0324 00337000 * RBRNCH=OPCTOFLK; /* ADDR. OF TNT LOOKUP */ 00338000 L RBRNCH,OPCTOFLK(,ROPCAVT) 0324 00339000 * GEN REFS(RBRNCH) SETS(RRET,RPARM,RZERO,BRIND); 0325 00340000 BALR RRET,RBRNCH BRANCH TO TNT LOOK UP 00341000 B GEN00300 RETURN IF NAME FOUND 00342000 MVI BRIND,BADBR RETURN IF NAME NOT FOUND 00343000 B GEN00400 BRANCH AROUND 00344000 GEN00300 MVI BRIND,GOODBR SET BRANCH INDICATOR AS GOOD 00345000 GEN00400 EQU * 00346000 * IF BRIND=GOODBNCH THEN /* IF RESOURCE IS SYMBOLIC NAME 00347000 * IN TNT */ 00348000 CLI BRIND,1 0326 00349000 BNE @RF00326 0326 00350000 * DO; 0327 00351000 * 0327 00352000 * /*********************************************************/ 00353000 * /* */ 00354000 * /* THE CONTENTS OF OPCDOUBL WAS FOUND IN THE TNT AND THE */ 00355000 * /* TTE ADDR IS IN REG 1 (RPARM). CHECK IF TTE IS A VALID */ 00356000 * /* ENTRY TYPE. IF NOT SET ERROR INDICATOR AND PLACE MSG #*/ 00357000 * /* IN REG 0 */ 00358000 * /* */ 00359000 * /*********************************************************/ 00360000 * 0328 00361000 * RTRM=RPARM; /* ESTABLISH ADDRESSABILITY TO 0328 00362000 * TTE */ 00363000 LR RTRM,RPARM 0328 00364000 * IF TRMPREF=OFF THEN /* IF ENTRY IS FOR A 270X */ 00365000 TM TRMPREF(RTRM),B'00010000' 0329 00366000 BNZ @RF00329 0329 00367000 * DO; 0330 00368000 * ERRFLG=ON; /* ERROR INDICATOR SET ON */ 00369000 OI ERRFLG,B'10000000' 0331 00370000 * RZERO=TYPEMSG; /* 'WRONG TTE TYPE' MSG. NO. */ 00371000 LA RZERO,173 0332 00372000 * END; 0333 00373000 * ELSE 0334 00374000 * IF TRMPROC=ON THEN /* IF PROCESS ENTRY */ 00375000 B @RC00329 0334 00376000 @RF00329 TM TRMPROC(RTRM),B'00100000' 0334 00377000 BNO @RF00334 0334 00378000 * DO; 0335 00379000 * ERRFLG=ON; 0336 00380000 OI ERRFLG,B'10000000' 0336 00381000 * RZERO=TYPEMSG; 0337 00382000 LA RZERO,173 0337 00383000 * END; 0338 00384000 * ELSE 0339 00385000 * IF TRMTYPE=TRMGRP THEN/* IF GROUP ENTRY */ 00386000 * 0339 00387000 B @RC00334 0339 00388000 @RF00334 LR @14,RTRM 0339 00389000 AL @14,@CF01567 0339 00390000 CLI TRMTYPE-11(@14),X'00' 0339 00391000 BNE @RF00339 0339 00392000 * /***************************************************/ 00393000 * /* */ 00394000 * /* GROUP ENTRY SPECIFIED. THE 'GROUP' SUBROUTINE */ 00395000 * /* CHECKS TO INSURE THAT A VALID RLN IS SPECIFIED */ 00396000 * /* AND IF SO OBTAINS THE LINE TTE ADDR. WHICH IT */ 00397000 * /* PLACES IN RTRM. IF THE RLN IS SPECIFIED */ 00398000 * /* INCORRECTLY ERRFLG IS SET AND RZERO IS SET WITH */ 00399000 * /* THE MESSAGE NUMBER FOR A SYNTAX ERROR. */ 00400000 * /* */ 00401000 * /***************************************************/ 00402000 * 0340 00403000 * IF WABYTES<=ZERO THEN/* IF AT END OF COMMAND */ 00404000 LH @14,WABYTES 0340 00405000 LTR @14,@14 0340 00406000 BP @RF00340 0340 00407000 * DO; 0341 00408000 * ERRFLG=ON; 0342 00409000 OI ERRFLG,B'10000000' 0342 00410000 * RZERO=SYNMSG; 0343 00411000 LA RZERO,18 0343 00412000 * END; 0344 00413000 * ELSE 0345 00414000 * CALL GROUP; /* GET RLN */ 00415000 B @RC00340 0345 00416000 @RF00340 BAL @14,GROUP 0345 00417000 * ELSE 0346 00418000 * ; 0346 00419000 @RF00339 DS 0H 0347 00420000 * END; 0347 00421000 * ELSE 0348 00422000 * 0348 00423000 * /***********************************************************/ 00424000 * /* */ 00425000 * /* RESOURCE IN OPCDOUBL MAY BE DDNAME OR CHAN. ADDR. >9. */ 00426000 * /* THE SUBROUTINE 'DDNADDR' CHECKS TO SEE IF IT IS EITHER */ 00427000 * /* OF THE TWO AND IF SO THE DCB ADDR. IS OBTAINED AND */ 00428000 * /* PLACED IN DCBADDR AND IOBFLG IS TURNED ON. IF NOT ERRFLG*/ 00429000 * /* IS TURNED ON AND THE SYNTAX MESSAGE NO. IS PLACED IN */ 00430000 * /* RZERO. */ 00431000 * /* */ 00432000 * /***********************************************************/ 00433000 * 0348 00434000 * CALL DDNADDR; /* CHECK IF RESOURCE IS DDNAME OR 00435000 * CHAN. ADR.>9 */ 00436000 B @RC00326 0348 00437000 @RF00326 BAL @14,DDNADDR 0348 00438000 * END; 0349 00439000 @RC00326 DS 0H 0350 00440000 * IF ERRFLG=OFF THEN /* IF ERROR FLAG NOT SET */ 00441000 * 0350 00442000 @RC00308 TM ERRFLG,B'10000000' 0350 00443000 BNZ @RF00350 0350 00444000 * /***************************************************************/ 00445000 * /* */ 00446000 * /* THE SUBROUTINE OPTSET CHECKS FOR THE PRESENCE OF IDLE,QUICK,*/ 00447000 * /* FLUSH, OR FORCE IN THE COMMAND. */ 00448000 * /* */ 00449000 * /***************************************************************/ 00450000 * 0351 00451000 * CALL OPTSET; /* SET OPTIONS */ 00452000 BAL @14,OPTSET 0351 00453000 * 0352 00454000 * /*****************************************************************/ 00455000 * /* */ 00456000 * /* THIS ROUTINE IS EXECUTED WHEN THE NAME OF A GROUP ENTRY IS */ 00457000 * /* SPECIFIED. THE WORKAREA IS SCANNED FOR THE RLN AND THIS IS */ 00458000 * /* USED TO FIND THE TTCIN FOR THE LINE */ 00459000 * /* */ 00460000 * /*****************************************************************/ 00461000 * 0352 00462000 *GROUP: 0352 00463000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0352 00464000 B @PB00003 0352 00465000 GROUP DS 0H 0353 00466000 * DCL 0353 00467000 * DECRLN CHAR(3); /* HOLDS EBCDIC DECIMAL 0353 00468000 * REPRESENTATION OF RLN */ 00469000 * DCL 0354 00470000 * LASTBYTE PTR(31); /* PTR. TO LAST BYTE IN CMND */ 00471000 * DCL 0355 00472000 * PACKRLN CHAR(2); /* HOLDS PACKED DEC. FORM OF RLN */ 00473000 * DCL 0356 00474000 * RLN FIXED(15); /* HOLDS BINARY FORM OF RLN */ 00475000 * DCL 0357 00476000 * COMMA CHAR(1) CONSTANT(','); /* COMMA */ 00477000 * DCL 0358 00478000 * NUMERIC BIT(1); /* INDICATES FIELD ALL NUMERICS */ 00479000 * DCL 0359 00480000 * GRP14SAV PTR(31); /* SAVE AREA FOR REG 14 */ 00481000 * RFY 0360 00482000 * RRET RSTD; 0360 00483000 * GRP14SAV=RRET; /* SAVE RETURN ADDR. */ 00484000 ST RRET,GRP14SAV 0361 00485000 * RFY 0362 00486000 * RRET UNRSTD; 0362 00487000 * 0363 00488000 * /*****************************************************************/ 00489000 * /* */ 00490000 * /* SCAN WORKAREA FOR NEXT DELIMITER (COMMA) OR END OF CMND. */ 00491000 * /* RESULTANT FIELD SHOULD DEFINE THE RLN. WHEN SCANNING,INSURE */ 00492000 * /* EACH CHARACTER IN FIELD ARE EBCIDIC NUMBERS. */ 00493000 * /* */ 00494000 * /*****************************************************************/ 00495000 * 0363 00496000 * NUMERIC=YES; /* INITIALIZE */ 00497000 OI NUMERIC,B'10000000' 0363 00498000 * LASTBYTE=WAPTR+WABYTES-1; /* SET UPPER LIMIT FOR LOOP AS 0364 00499000 * LAST BYTE IN CMND. STRING */ 00500000 L @14,WAPTR 0364 00501000 LH LASTBYTE,WABYTES 0364 00502000 ALR LASTBYTE,@14 0364 00503000 BCTR LASTBYTE,0 0364 00504000 * DO CHARPTR=WAPTR TO LASTBYTE WHILE(CHARBYTE^=COMMA); 0365 00505000 LR CHARPTR,@14 0365 00506000 B @DE00365 0365 00507000 @DL00365 CLI CHARBYTE(CHARPTR),C',' 0365 00508000 BE @DC00365 0365 00509000 * IF CHARNUMRLNMAXL|FLDLGTH=0 THEN/* IF FIELD > MAX RLN LGTH OR 0370 00523000 * NULL */ 00524000 C FLDLGTH,@CF00074 0370 00525000 BH @RT00370 0370 00526000 LTR FLDLGTH,FLDLGTH 0370 00527000 BNZ @RF00370 0370 00528000 @RT00370 DS 0H 0371 00529000 * DO; 0371 00530000 * ERRFLG=ON; 0372 00531000 OI ERRFLG,B'10000000' 0372 00532000 * RZERO=SYNMSG; 0373 00533000 LA RZERO,18 0373 00534000 * END; 0374 00535000 * ELSE 0375 00536000 * IF NUMERIC=NO THEN /* IF NONNUMERIC CHAR FOUND */ 00537000 B @RC00370 0375 00538000 @RF00370 TM NUMERIC,B'10000000' 0375 00539000 BNZ @RF00375 0375 00540000 * DO; 0376 00541000 * ERRFLG=ON; 0377 00542000 OI ERRFLG,B'10000000' 0377 00543000 * RZERO=SYNMSG; 0378 00544000 LA RZERO,18 0378 00545000 * END; 0379 00546000 * ELSE 0380 00547000 * DO; 0380 00548000 * 0380 00549000 B @RC00375 0380 00550000 @RF00375 DS 0H 0381 00551000 * /***********************************************************/ 00552000 * /* */ 00553000 * /* CONVERT RLN TO A BINARY VALUE */ 00554000 * /* */ 00555000 * /***********************************************************/ 00556000 * 0381 00557000 * DECRLN='000'; /* INITIALIZE */ 00558000 MVC DECRLN(3),@CC01854 0381 00559000 * DECRLN(RLNMAXL-FLDLGTH+1:RLNMAXL)=/* MOVE FIELD */ 00560000 * WORKAREA(POS1:FLDLGTH); 0382 00561000 LA @14,3 0382 00562000 SLR @14,FLDLGTH 0382 00563000 LA @11,DECRLN(@14) 0382 00564000 LA @14,3 0382 00565000 SLR @14,FLDLGTH 0382 00566000 LCR @14,@14 0382 00567000 AL @14,@CF00065 0382 00568000 L @07,WAPTR 0382 00569000 EX @14,@SM01897 0382 00570000 * PACK(PACKRLN,DECRLN); /* CONVERT TO PACKED FORMAT */ 00571000 PACK PACKRLN(2),DECRLN(3) 0383 00572000 * CVB(RLN,PACKRLN); /* CONVERT TO BINARY */ 00573000 XC @TS00001(8),@TS00001 0384 00574000 MVC @TS00001+6(2),PACKRLN 0384 00575000 CVB @14,@TS00001 0384 00576000 STH @14,RLN 0384 00577000 * IF RLN=ZERO|RLN>MAXRLN THEN/* IF RLN IS 0 OR > 255 */ 00578000 LTR @14,@14 0385 00579000 BZ @RT00385 0385 00580000 C @14,@CF01814 0385 00581000 BNH @RF00385 0385 00582000 @RT00385 DS 0H 0386 00583000 * DO; 0386 00584000 * ERRFLG=ON; 0387 00585000 OI ERRFLG,B'10000000' 0387 00586000 * RZERO=SYNMSG; 0388 00587000 LA RZERO,18 0388 00588000 * END; 0389 00589000 * ELSE 0390 00590000 * IF FLDLGTH+1=WABYTES&CHARBYTE=COMMA THEN/* IF LAST CHAR 00591000 * COMMA */ 00592000 B @RC00385 0390 00593000 @RF00385 LA @14,1 0390 00594000 ALR @14,FLDLGTH 0390 00595000 CH @14,WABYTES 0390 00596000 BNE @RF00390 0390 00597000 CLI CHARBYTE(CHARPTR),C',' 0390 00598000 BNE @RF00390 0390 00599000 * DO; 0391 00600000 * ERRFLG=ON; 0392 00601000 OI ERRFLG,B'10000000' 0392 00602000 * RZERO=SYNMSG; 0393 00603000 LA RZERO,18 0393 00604000 * END; 0394 00605000 * ELSE 0395 00606000 * DO; 0395 00607000 * 0395 00608000 B @RC00390 0395 00609000 @RF00390 DS 0H 0396 00610000 * /*****************************************************/ 00611000 * /* */ 00612000 * /* UPDATE WAPTR AND WABYTES FOR NEXT FIELD */ 00613000 * /* */ 00614000 * /*****************************************************/ 00615000 * 0396 00616000 * WAPTR=CHARPTR+1; /* POINT PAST DELIMITER */ 00617000 LA @14,1 0396 00618000 LR @11,CHARPTR 0396 00619000 ALR @11,@14 0396 00620000 ST @11,WAPTR 0396 00621000 * WABYTES=WABYTES-(FLDLGTH+1); 0397 00622000 ALR @14,FLDLGTH 0397 00623000 LCR @14,@14 0397 00624000 AH @14,WABYTES 0397 00625000 STH @14,WABYTES 0397 00626000 * OCRLN=RLN; /* SET RLN IN OPCE */ 00627000 LH @14,RLN 0398 00628000 STC @14,OCRLN(,ROPCE) 0398 00629000 * CALL RLNTTE; 0399 00630000 BAL @14,RLNTTE 0399 00631000 * END; 0400 00632000 * END; 0401 00633000 * 0402 00634000 * /*****************************************************************/ 00635000 * /* */ 00636000 * /* THIS ROUTINE CHECKS THE RLN SPECIFIED IN THE CMND. TO INSURE */ 00637000 * /* THAT IT DOES NOT EXCEED THE NUMBER OF LINES UNDER THE GROUP */ 00638000 * /* ENTRY */ 00639000 * /* */ 00640000 * /*****************************************************************/ 00641000 * 0402 00642000 *RLNTTE: 0402 00643000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0402 00644000 B @PB00004 0402 00645000 RLNTTE DS 0H 0403 00646000 * DCL 0403 00647000 * RLN14SAV PTR(31); /* HOLDS RETURN ADDR. */ 00648000 * DCL 0404 00649000 * RLNCTR FIXED(15); /* LOOP COUNTER TO DETERMINE IF 00650000 * RLN CORRECT */ 00651000 * DCL 0405 00652000 * HRCHYPTR FIXED(16); /* HOLDS HIERARCHY POINTER */ 00653000 * RFY 0406 00654000 * RRET RSTD; 0406 00655000 * RLN14SAV=RRET; /* SAVE RETURN ADDR. */ 00656000 ST RRET,RLN14SAV 0407 00657000 * RFY 0408 00658000 * RRET UNRSTD; 0408 00659000 * 0409 00660000 * /*****************************************************************/ 00661000 * /* */ 00662000 * /* ON ENTRANCE TO THIS ROUTINE, OCTRMTBL CONTAINS THE TTCIN OF */ 00663000 * /* THE GROUP ENTRY AND RTRM CONTAINS THE GROUP TTE ADDR. */ 00664000 * /* */ 00665000 * /*****************************************************************/ 00666000 * 0409 00667000 * RLNCTR=RLN-1; /* RLNCTR IS IS INITIALIZED */ 00668000 LH RLNCTR,RLN 0409 00669000 BCTR RLNCTR,0 0409 00670000 * HRCHYPTR=TRMSUBST; /* SET HIERARCHY PTR. TO 0410 00671000 * SUBSTRUCT */ 00672000 LR @14,RTRM 0410 00673000 BCTR @14,0 0410 00674000 BCTR @14,0 0410 00675000 LH HRCHYPTR,TRMSUBST-12(,@14) 0410 00676000 N HRCHYPTR,@CF01884 0410 00677000 * IF HRCHYPTR^=ZEROIDX THEN /* IF THERE ARE LINES UNDER THIS 00678000 * GROUP ENTRY */ 00679000 LTR HRCHYPTR,HRCHYPTR 0411 00680000 BZ @RF00411 0411 00681000 * DO WHILE(RLNCTR^=0); 0412 00682000 * 0412 00683000 B @DE00412 0412 00684000 @DL00412 DS 0H 0413 00685000 * /*************************************************************/ 00686000 * /* */ 00687000 * /* LOOP UNTIL COUNTER GOES TO ZERO OR THE GROUP COHORT */ 00688000 * /* POINTER POINTS BACK TO THE GROUP ENTRY INDICATING THE RLN */ 00689000 * /* SPECIFIED IS TOO LARGE */ 00690000 * /* */ 00691000 * /*************************************************************/ 00692000 * 0413 00693000 * RLNCTR=RLNCTR-1; /* DECREMENT LOOP CTL. */ 00694000 BCTR RLNCTR,0 0413 00695000 * RPARM=HRCHYPTR; /* SET TTCIN AS PARAMETER TO 0414 00696000 * ROUTINE TO GET TTE ADDR. */ 00697000 LR RPARM,HRCHYPTR 0414 00698000 * RBRNCH=AVTRNMPT; /* ADDR. OF ROUTINE */ 00699000 L RBRNCH,AVTRNMPT(,RAVT) 0415 00700000 * CALL SUBRTNE; /* GET TTE ADDR. */ 00701000 BALR @14,@15 0416 00702000 * RTRM=RPARM; /* COPY TTE ADDR. */ 00703000 LR RTRM,RPARM 0417 00704000 * HRCHYPTR=TRMCOHTG; /* SET HIERARCHY PTR. TO GROUP 0418 00705000 * COHORT */ 00706000 LR @14,RTRM 0418 00707000 AL @14,@CF01899 0418 00708000 LH HRCHYPTR,TRMCOHTG-8(,@14) 0418 00709000 N HRCHYPTR,@CF01884 0418 00710000 * IF HRCHYPTR=OCTRMTBL THEN /* IF GROUP COHORT POINTER POINTS 00711000 * TO GROUP ENTRY */ 00712000 LH @14,OCTRMTBL(,ROPCE) 0419 00713000 N @14,@CF01884 0419 00714000 CLR HRCHYPTR,@14 0419 00715000 BNE @RF00419 0419 00716000 * DO; 0420 00717000 * 0420 00718000 * /*********************************************************/ 00719000 * /* */ 00720000 * /* WRONG RLN SPECIFIED */ 00721000 * /* */ 00722000 * /*********************************************************/ 00723000 * 0421 00724000 * ERRFLG=ON; /* SET ERROR FLAG */ 00725000 OI ERRFLG,B'10000000' 0421 00726000 * RZERO=SYNMSG; /* SET SYNTAX ERROR MSG. NO. */ 00727000 LA RZERO,18 0422 00728000 * RLNCTR=ZERO; /* SET TO GET OUT OF LOOP */ 00729000 SLR RLNCTR,RLNCTR 0423 00730000 * END; 0424 00731000 * END; 0425 00732000 @RF00419 DS 0H 0425 00733000 @DE00412 LTR RLNCTR,RLNCTR 0425 00734000 BNZ @DL00412 0425 00735000 * ELSE 0426 00736000 * DO; 0426 00737000 * 0426 00738000 B @RC00411 0426 00739000 @RF00411 DS 0H 0427 00740000 * /*************************************************************/ 00741000 * /* */ 00742000 * /* SUBSTRUCT IS 0 INDICATING NO LINES UNDER GROUP ENTRY */ 00743000 * /* */ 00744000 * /*************************************************************/ 00745000 * 0427 00746000 * ERRFLG=ON; 0427 00747000 OI ERRFLG,B'10000000' 0427 00748000 * RZERO=SYNMSG; 0428 00749000 LA RZERO,18 0428 00750000 * END; 0429 00751000 * 0430 00752000 * /*****************************************************************/ 00753000 * /* */ 00754000 * /* IF RLN SPECIFIED CORRECTLY, SET OCTRMTBL TO LINE TTCIN. NOTE: */ 00755000 * /* RTRM DESTROYED */ 00756000 * /* */ 00757000 * /*****************************************************************/ 00758000 * 0430 00759000 * IF ERRFLG=OFF THEN 0430 00760000 @RC00411 TM ERRFLG,B'10000000' 0430 00761000 BNZ @RF00430 0430 00762000 * OCTRMTBL=HRCHYPTR; 0431 00763000 STH HRCHYPTR,OCTRMTBL(,ROPCE) 0431 00764000 * RFY 0432 00765000 * RRET RSTD; 0432 00766000 @RF00430 DS 0H 0433 00767000 * RRET=RLN14SAV; /* RESTORE RETURN ADDR. */ 00768000 L RRET,RLN14SAV 0433 00769000 * RFY 0434 00770000 * RRET UNRSTD; 0434 00771000 * END RLNTTE; 0435 00772000 @EL00004 DS 0H 0435 00773000 @EF00004 DS 0H 0435 00774000 @ER00004 BR @14 0435 00775000 @PB00004 DS 0H 0435 00776000 * RFY 0436 00777000 * RRET RSTD; 0436 00778000 * RRET=GRP14SAV; /* RESTORE RETURN ADDR. */ 00779000 L RRET,GRP14SAV 0437 00780000 * RFY 0438 00781000 * RRET UNRSTD; 0438 00782000 * END GROUP; 0439 00783000 @EL00003 DS 0H 0439 00784000 @EF00003 DS 0H 0439 00785000 @ER00003 BR @14 0439 00786000 * 0440 00787000 * /*****************************************************************/ 00788000 * /* */ 00789000 * /* THIS ROUTINE PERFORMS TWO FUNCTIONS. 1) IF THE IOB FLAG IS SET*/ 00790000 * /* ON ENTRY, THIS MEANS THE RESOURCE TTCIN IS NOT IN OCTRMTBL. */ 00791000 * /* THE DCB AND LCB ARE USED TO OBTAIN THE TTCIN WHICH IS PLACED */ 00792000 * /* IN OCTRMTBL. 2) THE REMAINDER OF THE OPERATOR CMND. IN THE */ 00793000 * /* WORKAREA IS SCANNED FOR OPTIONS (IDLE,FORCE,QUICK,OR FLUSH). */ 00794000 * /* IF THE COMMAND WAS ENTERED INCORRECTLY, THE ERROR FLAG IS SET */ 00795000 * /* AND A MESSAGE NUMBER PLACED IN REG. 0. */ 00796000 * /* */ 00797000 * /*****************************************************************/ 00798000 * 0440 00799000 *OPTSET: 0440 00800000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0440 00801000 OPTSET DS 0H 0441 00802000 * 0441 00803000 * /*****************************************************************/ 00804000 * /* */ 00805000 * /* NOTE: ON ENTRY, THE WORKAREA POINTER POINTS PAST THE RESOURCE */ 00806000 * /* IDENTIFIER FIELD(S). WABYTES CONTAINS THE NUMBER OF BYTES */ 00807000 * /* LEFT. IF AN OPTION IS SPECIFIED, THEREFORE, WAPTR POINTS TO */ 00808000 * /* THE BEGINNING OF THE FIELD IN THE WORKAREA AND WABYTES */ 00809000 * /* CONTAINS THE LENGTH OF THE FIELD. THESE REMAIN UNCHANGED AT */ 00810000 * /* EXIT FROM OPTSET */ 00811000 * /* */ 00812000 * /*****************************************************************/ 00813000 * 0441 00814000 * DCL 0441 00815000 * OPT14SAV PTR(31); /* SAVE AREA FOR REG. 14 */ 00816000 * 0441 00817000 * /*****************************************************************/ 00818000 * /* */ 00819000 * /* CONSTANTS FOR OPTION NAMES */ 00820000 * /* */ 00821000 * /*****************************************************************/ 00822000 * 0442 00823000 * DCL 0442 00824000 * IDLE CHAR(4) CONSTANT('IDLE');/* IDLE OPTION */ 00825000 * DCL 0443 00826000 * FORCE CHAR(5) CONSTANT('FORCE');/* FORCE OPTION */ 00827000 * DCL 0444 00828000 * QUICK CHAR(5) CONSTANT('QUICK');/* QUICK OPTION */ 00829000 * DCL 0445 00830000 * FLUSH CHAR(5) CONSTANT('FLUSH');/* FLUSH OPTION */ 00831000 * RFY 0446 00832000 * RRET RSTD; 0446 00833000 * OPT14SAV=RRET; /* SAVE RETURN ADDR. */ 00834000 LR OPT14SAV,RRET 0447 00835000 * RFY 0448 00836000 * RRET UNRSTD; 0448 00837000 * 0448 00838000 * /*****************************************************************/ 00839000 * /* */ 00840000 * /* IF IOB FLAG ON, FIND TTCIN AND PLACE IN OCTRMTBL */ 00841000 * /* */ 00842000 * /*****************************************************************/ 00843000 * 0449 00844000 * IF IOBFLG=ON THEN /* INDICATES DCB ADDR. IN REG. */ 00845000 TM IOBFLG,B'10000000' 0449 00846000 BNO @RF00449 0449 00847000 * DO; 0450 00848000 * LCBPTR=DCBIOBAD+DCBEIOBX-LCBPRFSZ;/* OBTAIN ADDR.OF LCB */ 00849000 L @14,DCBPTR 0451 00850000 SLR LCBPTR,LCBPTR 0451 00851000 IC LCBPTR,DCBEIOBX+32(,@14) 0451 00852000 AL LCBPTR,DCBIOBAD+20(,@14) 0451 00853000 SL LCBPTR,@CF01188 0451 00854000 * OCTRMTBL=LCBTTCIN; /* PLACE 3705 TTCIN IN OPCE */ 00855000 LH @14,LCBTTCIN(,LCBPTR) 0452 00856000 N @14,@CF01884 0452 00857000 STH @14,OCTRMTBL(,ROPCE) 0452 00858000 * END; 0453 00859000 * 0453 00860000 * /*****************************************************************/ 00861000 * /* */ 00862000 * /* INIT. RESPONSE COUNT AND REQUEST FLAG */ 00863000 * /* */ 00864000 * /*****************************************************************/ 00865000 * 0454 00866000 * OCRESPCT=''B; 0454 00867000 @RF00449 LR @14,ROPCE 0454 00868000 SL @14,@CF00045 0454 00869000 SLR @09,@09 0454 00870000 STH @09,OCRESPCT(,@14) 0454 00871000 * OCREQFLG=''B; 0455 00872000 * 0455 00873000 MVI OCREQFLG(@14),X'00' 0455 00874000 * /*****************************************************************/ 00875000 * /* */ 00876000 * /* USING OCTRMTBL FIND ADDR. OF TTE FOR RESOURCE */ 00877000 * /* */ 00878000 * /*****************************************************************/ 00879000 * 0456 00880000 * RPARM=OCTRMTBL; /* TTCIN OF RESOURCE */ 00881000 LH RPARM,OCTRMTBL(,ROPCE) 0456 00882000 N RPARM,@CF01884 0456 00883000 * RBRNCH=AVTRNMPT; /* ADDR OF TTCIN-TTE CONVERT RTN */ 00884000 L RBRNCH,AVTRNMPT(,RAVT) 0457 00885000 * CALL SUBRTNE; /* BASED ON RBRNCH */ 00886000 BALR @14,@15 0458 00887000 * RTRM=RPARM; /* COPY TTE ADDR. */ 00888000 * 0459 00889000 LR RTRM,RPARM 0459 00890000 * /*****************************************************************/ 00891000 * /* */ 00892000 * /* CHECK TO INSURE CORRECT TTE TYPE */ 00893000 * /* */ 00894000 * /*****************************************************************/ 00895000 * 0460 00896000 * IF TRMPREF=OFF|TRMTYPE=TRMSSCP THEN/* 270X RSRCE OR SSCP ? 0460 00897000 * @YM08045*/ 00898000 TM TRMPREF(RTRM),B'00010000' 0460 00899000 BZ @RT00460 0460 00900000 LR @14,RTRM 0460 00901000 AL @14,@CF01567 0460 00902000 CLI TRMTYPE-11(@14),X'FF' 0460 00903000 BNE @RF00460 0460 00904000 @RT00460 DS 0H 0461 00905000 * DO; 0461 00906000 * ERRFLG=ON; /* SET ERROR FLAG */ 00907000 OI ERRFLG,B'10000000' 0462 00908000 * RZERO=TYPEMSG; 0463 00909000 LA RZERO,173 0463 00910000 * END; 0464 00911000 * ELSE 0465 00912000 * IF TRMSNA=OFF THEN 0465 00913000 B @RC00460 0465 00914000 @RF00460 LR @14,RTRM 0465 00915000 AL @14,@CF01900 0465 00916000 TM TRMSNA-6(@14),B'00000010' 0465 00917000 BNZ @RF00465 0465 00918000 * DO; 0466 00919000 * ERRFLG=ON; 0467 00920000 * MSGMODSW=ON; /* SET TO SELECT MSGMOD0H */ 00921000 OI ERRFLG,B'11000000' 0468 00922000 * RZERO=PSNAMSG; /* 'PRE-SNA RESOURCE' MSG. NO. */ 00923000 LA RZERO,525 0469 00924000 * END; 0470 00925000 * ELSE 0471 00926000 * IF WABYTES<=ZERO THEN 0471 00927000 B @RC00465 0471 00928000 @RF00465 LH @14,WABYTES 0471 00929000 LTR @14,@14 0471 00930000 BNP @RT00471 0471 00931000 * ; /* IF END OF CMD STRING @YM04608*/ 00932000 * ELSE /* DO NOTHING */ 00933000 * IF WABYTESPOS5 THEN/* IF NOT A LEGAL LGTH */ 00934000 LH @14,WABYTES 0473 00935000 C @14,@CF00256 0473 00936000 BL @RT00473 0473 00937000 C @14,@CF00163 0473 00938000 BNH @RF00473 0473 00939000 @RT00473 DS 0H 0474 00940000 * DO; 0474 00941000 * ERRFLG=ON; 0475 00942000 OI ERRFLG,B'10000000' 0475 00943000 * RZERO=SYNMSG; 0476 00944000 LA RZERO,18 0476 00945000 * END; 0477 00946000 * ELSE 0478 00947000 * IF WABYTES=POS4 THEN /* 4 BYTES - SHOULD BE IDLE */ 00948000 B @RC00473 0478 00949000 @RF00473 CLC WABYTES(2),@CH00256 0478 00950000 BNE @RF00478 0478 00951000 * IF WORKAREA(POS1:POS4)=IDLE THEN/* CHECK IF IDLE */ 00952000 L @14,WAPTR 0479 00953000 CLC WORKAREA(4,@14),@CC01869 0479 00954000 BNE @RF00479 0479 00955000 * OCIDLE=ON; /* YES - SET FLAG IN OPCE */ 00956000 LR @14,ROPCE 0480 00957000 AL @14,@CF01899 0480 00958000 OI OCIDLE-2(@14),B'00000001' 0480 00959000 * ELSE 0481 00960000 * DO; /* ERROR IF NOT IDLE */ 00961000 B @RC00479 0481 00962000 @RF00479 DS 0H 0482 00963000 * ERRFLG=ON; 0482 00964000 OI ERRFLG,B'10000000' 0482 00965000 * RZERO=SYNMSG; 0483 00966000 LA RZERO,18 0483 00967000 * END; 0484 00968000 * ELSE 0485 00969000 * IF WORKAREA(POS1:POS5)=FORCE&OCSWITCH=OCTOFC THEN/* 0485 00970000 * DACT FORCE */ 00971000 B @RC00478 0485 00972000 @RF00478 L @14,WAPTR 0485 00973000 CLC WORKAREA(5,@14),@CC01871 0485 00974000 BNE @RF00485 0485 00975000 CLI OCSWITCH(ROPCE),X'23' 0485 00976000 BNE @RF00485 0485 00977000 * OCFORCE=ON; /* SET FLAG IN OPCE */ 00978000 LR @14,ROPCE 0486 00979000 AL @14,@CF01899 0486 00980000 OI OCFORCE-2(@14),B'00000010' 0486 00981000 * ELSE 0487 00982000 * IF WORKAREA(POS1:POS5)=QUICK|WORKAREA(POS1:POS5)=FLUSH 00983000 * THEN 0487 00984000 B @RC00485 0487 00985000 @RF00485 L @14,WAPTR 0487 00986000 CLC WORKAREA(5,@14),@CC01873 0487 00987000 BE @RT00487 0487 00988000 CLC WORKAREA(5,@14),@CC01875 0487 00989000 BE @RT00487 0487 00990000 * ; /* IF QUICK OR FLUSH - DO NOTHING*/ 00991000 * ELSE 0489 00992000 * DO; /* NO VALID OPTION */ 00993000 * ERRFLG=ON; 0490 00994000 OI ERRFLG,B'10000000' 0490 00995000 * RZERO=SYNMSG; 0491 00996000 LA RZERO,18 0491 00997000 * END; 0492 00998000 * RFY 0493 00999000 * RRET RSTD; 0493 01000000 @RT00487 DS 0H 0493 01001000 @RC00485 DS 0H 0493 01002000 @RC00478 DS 0H 0493 01003000 @RC00473 DS 0H 0493 01004000 @RT00471 DS 0H 0493 01005000 @RC00465 DS 0H 0493 01006000 @RC00460 DS 0H 0494 01007000 * RRET=OPT14SAV; /* RESTORE RETURN ADDR. */ 01008000 LR RRET,OPT14SAV 0494 01009000 * RFY 0495 01010000 * RRET RSTD; 0495 01011000 * END OPTSET; 0496 01012000 @EL00005 DS 0H 0496 01013000 @EF00005 DS 0H 0496 01014000 @ER00005 BR @14 0496 01015000 * 0497 01016000 * /*****************************************************************/ 01017000 * /* */ 01018000 * /* CHECK TO DETERMINE IF RESOURCE IS A DDNAME OR A CHANNEL ADDR. */ 01019000 * /* > 9 (IE. A-F). FIND DCB ADDR. */ 01020000 * /* */ 01021000 * /*****************************************************************/ 01022000 * 0497 01023000 *DDNADDR: 0497 01024000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0497 01025000 DDNADDR DS 0H 0498 01026000 * DCL 0498 01027000 * EQUAL CHAR(1) CONSTANT('='); /* EQUAL SIGN */ 01028000 * DCL 0499 01029000 * DDAD14SA PTR(31); /* SAVE AREA FOR RETURN ADDR. */ 01030000 * RFY 0500 01031000 * RRET RSTD; 0500 01032000 * DDAD14SA=RRET; /* SAVE RETURN ADDR. */ 01033000 ST RRET,DDAD14SA 0501 01034000 * RFY 0502 01035000 * RRET UNRSTD; 0502 01036000 * RFY 0503 01037000 * REG5 RSTD; 0503 01038000 * RFY 0504 01039000 * REG11 RSTD; 0504 01040000 * 0504 01041000 * /*****************************************************************/ 01042000 * /* */ 01043000 * /* WAPTR POINTS PAST THE FIELD CONTAINING THE DDNAME OR CHANNEL */ 01044000 * /* ADDR. BACK UP TO EQUAL SIGN IN ORDER TO POINT TO THIS FIELD. */ 01045000 * /* THE ROUTINE IN IEDQCA USES THIS FIELD TO RETURN A DCB ADDR. */ 01046000 * /* REGS 5 AND 11 ARE PARAMETERS. */ 01047000 * /* */ 01048000 * /*****************************************************************/ 01049000 * 0505 01050000 * REG11=WAPTR; /* COPY POINTER TO WORKAREA */ 01051000 L REG11,WAPTR 0505 01052000 * DO WHILE(REG11->WORKAREA(1:1)^=EQUAL);/* SEARCH FOR EQUAL SIGN */ 01053000 B @DE00506 0506 01054000 @DL00506 DS 0H 0507 01055000 * REG11=REG11-1; /* BACKUP POINTER */ 01056000 BCTR REG11,0 0507 01057000 * END; 0508 01058000 @DE00506 CLI WORKAREA(REG11),C'=' 0508 01059000 BNE @DL00506 0508 01060000 * REG11=REG11+1; /* POINT PAST EQUAL SIGN */ 01061000 * 0509 01062000 AL REG11,@CF00061 0509 01063000 * /*****************************************************************/ 01064000 * /* */ 01065000 * /* SET UP TO CALL OPCSCAN (OPCDCBLK+4) */ 01066000 * /* */ 01067000 * /*****************************************************************/ 01068000 * 0510 01069000 * REG5=OPCWORK; /* POINT TO START OF OP.CTL. W.A.*/ 01070000 L REG5,OPCWORK(,ROPCAVT) 0510 01071000 * OCSCAN=OCDDADDR; /* INDICATES TO OPCSCAN THAT 0511 01072000 * RESOURCE IS DDNAME OR ADDR. */ 01073000 MVI OCSCAN(ROPCE),X'A0' 0511 01074000 * RBRNCH=OPCDCBLK; /* SET R15 TO DCB LOOKUP ADDR. 0512 01075000 * FOR BASE REG IN IEDQCA */ 01076000 L RBRNCH,OPCDCBLK(,ROPCAVT) 0512 01077000 * ROPCSCAN=RBRNCH+OPCSCOFF; /* BRACH REG TO OPCSCAN ADDR. */ 01078000 LA ROPCSCAN,4 0513 01079000 ALR ROPCSCAN,RBRNCH 0513 01080000 * GEN REFS(RBRNCH,ROPCSCAN) SETS(RRET,RPARM,RZERO,BRIND); 0514 01081000 BALR RRET,ROPCSCAN LINK TO OPCSCAN ROUTINE 01082000 B GEN00700 RETURN IS HERE WHEN DCB FOUND 01083000 B GEN00800 RETURN IS HERE WHEN NOT FOUND 01084000 GEN00800 MVI BRIND,BADBR RETURN IS HERE WHEN NOT FOUND 01085000 * SET BRANCH INDICATOR TO ERROR 01086000 B GEN00900 01087000 GEN00700 MVI BRIND,GOODBR SET BRANCH INDIC. TO NO ERROR 01088000 GEN00900 EQU * 01089000 * IF BRIND=GOODBNCH THEN 0515 01090000 CLI BRIND,1 0515 01091000 BNE @RF00515 0515 01092000 * DO; /* IF GOOD RTN FROM DCB LKUP */ 01093000 * IOBFLG=ON; /* TURN ON IOB FLAG */ 01094000 OI IOBFLG,B'10000000' 0517 01095000 * DCBPTR=RPARM; /* SAVE POINTER TO DCB */ 01096000 ST RPARM,DCBPTR 0518 01097000 * END; 0519 01098000 * ELSE 0520 01099000 * DO; 0520 01100000 B @RC00515 0520 01101000 @RF00515 DS 0H 0521 01102000 * ERRFLG=ON; /* ERROR IF DCB NOT FOUND */ 01103000 OI ERRFLG,B'10000000' 0521 01104000 * RZERO=SYNMSG; /* SYNTAX ERROR MSG. NO. */ 01105000 LA RZERO,18 0522 01106000 * END; 0523 01107000 * RFY 0524 01108000 * REG5 UNRSTD; 0524 01109000 @RC00515 DS 0H 0525 01110000 * RFY 0525 01111000 * REG11 UNRSTD; 0525 01112000 * RFY 0526 01113000 * RRET RSTD; 0526 01114000 * RRET=DDAD14SA; /* RESTORE RETURN ADDR. */ 01115000 L RRET,DDAD14SA 0527 01116000 * RFY 0528 01117000 * RRET UNRSTD; 0528 01118000 * END DDNADDR; 0529 01119000 @EL00006 DS 0H 0529 01120000 @EF00006 DS 0H 0529 01121000 @ER00006 BR @14 0529 01122000 @PB00006 DS 0H 0529 01123000 * RFY 0530 01124000 * RRET RSTD; 0530 01125000 * RRET=PAR14SAV; 0531 01126000 L RRET,PAR14SAV 0531 01127000 * RFY 0532 01128000 * RRET UNRSTD; 0532 01129000 * END PARSE; 0533 01130000 @EL00002 DS 0H 0533 01131000 @EF00002 DS 0H 0533 01132000 @ER00002 BR @14 0533 01133000 * END IGCMY10D 0534 01134000 * 0534 01135000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01136000 */*%INCLUDE SYSLIB (TAVTD ) */ 01137000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01138000 */*%INCLUDE SYSLIB (IHADCB ) */ 01139000 */*%INCLUDE SYSLIB (TLCBD ) */ 01140000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01141000 */*%INCLUDE SYSLIB (TOPCED ) */ 01142000 */*%INCLUDE SYSLIB (TTNTD ) */ 01143000 */*%INCLUDE SYSLIB (TTRMD ) */ 01144000 * 0534 01145000 * ; 0534 01146000 @DATA DS 0H 01147000 @SM01897 MVC 0(0,@11),WORKAREA(@07) 01148000 @DATD DSECT 01149000 DS 0F 01150000 IGCMY10D CSECT 01151000 DS 0F 01152000 @CF00061 DC F'1' 01153000 @CF00065 DC F'2' 01154000 @CF00074 DC F'3' 01155000 @CF00256 DC F'4' 01156000 @CH00256 EQU @CF00256+2 01157000 @CF00163 DC F'5' 01158000 @CF00045 DC F'8' 01159000 @CF01814 DC F'255' 01160000 @CF01889 DC F'-12' 01161000 @CF01900 DC F'-8' 01162000 @CF01899 DC F'-6' 01163000 @CF01567 DC F'-3' 01164000 @CF01884 DC XL4'0000FFFF' 01165000 @CF01188 DC XL4'20' 01166000 @DATD DSECT 01167000 DS 0D 01168000 DCBPTR DS A 01169000 WAPTR DS A 01170000 PAR14SAV DS A 01171000 GRP14SAV DS A 01172000 RLN14SAV DS A 01173000 DDAD14SA DS A 01174000 WABYTES DS H 01175000 RLN DS H 01176000 DS 0D 01177000 @TS00001 DS CL8 01178000 FLAGS DS BL1 01179000 ORG FLAGS 01180000 ERRFLG DS BL1 01181000 MSGMODSW EQU FLAGS+0 01182000 ORG FLAGS+1 01183000 IOBFLG DS BL1 01184000 DECRLN DS CL3 01185000 PACKRLN DS CL2 01186000 NUMERIC DS BL1 01187000 IGCMY10D CSECT 01188000 DS 0F 01189000 @SIZDATD DC AL1(0) 01190000 DC AL3(@ENDDATD-@DATD) 01191000 DS 0D 01192000 @CC01871 DC C'FORCE' 01193000 @CC01873 DC C'QUICK' 01194000 @CC01875 DC C'FLUSH' 01195000 @CC01869 DC C'IDLE' 01196000 @CC01854 DC C'000' 01197000 @CC01788 DC C'07' 01198000 @CC01790 DC C'03' 01199000 @CC01792 DC C'0H' 01200000 @CC01794 DC C'FA' 01201000 @CC01796 DC C'FC' 01202000 @CC01798 DC C'06' 01203000 @CB01885 DC B'000000000000000000000000010000000000000000000000000000C01204000 00' 01205000 @CB01890 DC B'111111111111111111111111101111111111111111111111111111C01206000 11' 01207000 ADPATCH DC XL50'0' 01208000 @DATD DSECT 01209000 BRIND DS XL1 BRANCH INDICATOR 01210000 GOODBR EQU X'01' INDICATES GOOD RETURN 01211000 BADBR EQU X'00' INDICATES BAD RETURN 01212000 @DATD DSECT 01213000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01214000 @ENDDATD EQU * 01215000 IGCMY10D CSECT 01216000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01217000 @01 EQU 01 01218000 @02 EQU 02 01219000 @03 EQU 03 01220000 @04 EQU 04 01221000 @05 EQU 05 01222000 @06 EQU 06 01223000 @07 EQU 07 01224000 @08 EQU 08 01225000 @09 EQU 09 01226000 @10 EQU 10 01227000 @11 EQU 11 01228000 @12 EQU 12 01229000 @13 EQU 13 01230000 @14 EQU 14 01231000 @15 EQU 15 01232000 OPT14SAV EQU @11 01233000 HRCHYPTR EQU @05 01234000 RLNCTR EQU @11 01235000 LASTBYTE EQU @05 01236000 FLDLGTH EQU @05 01237000 CHARPTR EQU @09 01238000 LCBPTR EQU @05 01239000 LCBXPTR EQU @05 01240000 ROPCAVT EQU @02 01241000 ROPCE EQU @03 01242000 RZERO EQU @00 01243000 RPARM EQU @01 01244000 RAVT EQU @04 01245000 REG5 EQU @05 01246000 RTRM EQU @08 01247000 ROPCSCAN EQU @08 01248000 RDATA EQU @10 01249000 REG11 EQU @11 01250000 RSAVE EQU @13 01251000 RRET EQU @14 01252000 RBRNCH EQU @15 01253000 REG6 EQU @06 01254000 IEDQAVTD EQU 0 01255000 AVTSAVEX EQU IEDQAVTD+288 01256000 AVTREADD EQU IEDQAVTD+380 01257000 AVTBUFSW EQU IEDQAVTD+384 01258000 @NM00004 EQU IEDQAVTD+388 01259000 AVTCKFLG EQU @NM00004 01260000 AVTBASE EQU IEDQAVTD+412 01261000 AVTPKF EQU AVTBASE 01262000 AVTRNMPT EQU IEDQAVTD+424 01263000 AVTOSECB EQU IEDQAVTD+492 01264000 AVTECB1 EQU AVTOSECB 01265000 AVTHG02 EQU IEDQAVTD+528 01266000 AVTDISP EQU IEDQAVTD+552 01267000 AVTHD EQU IEDQAVTD+556 01268000 AVTSCOPT EQU AVTHD 01269000 AVTSAVTP EQU IEDQAVTD+612 01270000 AVTSAVTF EQU AVTSAVTP 01271000 AVTCKPEL EQU IEDQAVTD+652 01272000 AVTCKRMV EQU AVTCKPEL 01273000 AVTCKELF EQU IEDQAVTD+680 01274000 AVTCKBYT EQU IEDQAVTD+691 01275000 AVTHG01 EQU IEDQAVTD+692 01276000 AVTCKLNK EQU IEDQAVTD+696 01277000 AVTCRELE EQU IEDQAVTD+708 01278000 AVTCCELE EQU AVTCRELE 01279000 AVTCLRHI EQU IEDQAVTD+716 01280000 AVTADBUF EQU IEDQAVTD+720 01281000 AVTSYSER EQU IEDQAVTD+728 01282000 AVTBFRFG EQU IEDQAVTD+784 01283000 AVTCKPQB EQU IEDQAVTD+804 01284000 AVTCKPTB EQU AVTCKPQB 01285000 AVTCKPEC EQU AVTCKPQB+4 01286000 AVTCKPCC EQU AVTCKPEC 01287000 AVTOPCQB EQU IEDQAVTD+816 01288000 AVTOPCOB EQU AVTOPCQB 01289000 AVTOPCEC EQU AVTOPCQB+4 01290000 AVTOPCCC EQU AVTOPCEC 01291000 AVTOLTQB EQU IEDQAVTD+828 01292000 AVTCWFL1 EQU IEDQAVTD+924 01293000 AVTCWFL2 EQU IEDQAVTD+925 01294000 AVTSUBT EQU IEDQAVTD+948 01295000 AVTIOTR EQU IEDQAVTD+949 01296000 AVTBIT1 EQU IEDQAVTD+1050 01297000 AVTBIT2 EQU IEDQAVTD+1051 01298000 AVTBIT3 EQU IEDQAVTD+1052 01299000 AVTBIT4 EQU IEDQAVTD+1136 01300000 @NM00086 EQU IEDQAVTD+1232 01301000 IEDNSVTD EQU 0 01302000 SAVTDIAG EQU IEDNSVTD 01303000 SAVTDIAF EQU SAVTDIAG 01304000 SAVTLUSQ EQU IEDNSVTD+88 01305000 SAVTTCPU EQU IEDNSVTD+238 01306000 SAVTZELM EQU IEDNSVTD+270 01307000 SAVTRDRV EQU IEDNSVTD+284 01308000 SAVTCKQB EQU IEDNSVTD+300 01309000 SAVTCKTB EQU SAVTCKQB 01310000 SAVTCKEC EQU SAVTCKQB+4 01311000 SAVTCKCC EQU SAVTCKEC 01312000 IHADCB EQU 0 01313000 IHADCS1A EQU 0 01314000 DCBBCKUP EQU IHADCS1A+8 01315000 IHADCS16 EQU 0 01316000 DCBMHA EQU IHADCS16 01317000 DCBBUFOU EQU DCBMHA 01318000 DCBBUFIN EQU DCBBUFOU 01319000 DCBPCI EQU IHADCS16+5 01320000 DCBDSORG EQU IHADCS16+6 01321000 DCBDSRG1 EQU DCBDSORG 01322000 DCBDSRG2 EQU DCBDSORG+1 01323000 IHADCS17 EQU 0 01324000 DCBCLPS EQU IHADCS17 01325000 DCBIOBAD EQU IHADCS17+8 01326000 IHADCS18 EQU 0 01327000 DCBTRANA EQU IHADCS18 01328000 IHADCS19 EQU 0 01329000 DCBLCBAD EQU IHADCS19 01330000 DCBCPRI EQU DCBLCBAD 01331000 DCBEXLST EQU IHADCS19+4 01332000 DCBEIOBX EQU DCBEXLST 01333000 IHADCS2K EQU 0 01334000 DCBDUMPD EQU IHADCS2K 01335000 DCBTRSTA EQU IHADCS2K+5 01336000 DCBRNCKD EQU IHADCS2K+12 01337000 @NM00122 EQU IHADCS2K+16 01338000 IHADCS24 EQU 0 01339000 DCBOFLGS EQU IHADCS24+8 01340000 DCBOFLWR EQU DCBOFLGS 01341000 DCBIFLG EQU IHADCS24+9 01342000 DCBIBPCT EQU DCBIFLG 01343000 DCBMACR EQU IHADCS24+10 01344000 DCBMACR1 EQU DCBMACR 01345000 DCBMRFE EQU DCBMACR1 01346000 DCBMRGET EQU DCBMRFE 01347000 DCBMRAPG EQU DCBMACR1 01348000 DCBMRRD EQU DCBMRAPG 01349000 DCBMRCI EQU DCBMACR1 01350000 DCBMRMVG EQU DCBMRCI 01351000 DCBMRLCG EQU DCBMACR1 01352000 DCBMRABC EQU DCBMACR1 01353000 DCBMRPT1 EQU DCBMRABC 01354000 DCBMRSBG EQU DCBMRPT1 01355000 DCBMRCRL EQU DCBMACR1 01356000 DCBMRCHK EQU DCBMRCRL 01357000 DCBMRRDX EQU DCBMRCHK 01358000 DCBMRDMG EQU DCBMACR1 01359000 DCBMACR2 EQU DCBMACR+1 01360000 DCBMRPUT EQU DCBMACR2 01361000 DCBMRWRT EQU DCBMACR2 01362000 DCBMRMVP EQU DCBMACR2 01363000 DCBMR5WD EQU DCBMACR2 01364000 DCBMRLDM EQU DCBMR5WD 01365000 DCBMRLCP EQU DCBMRLDM 01366000 DCBMR4WD EQU DCBMACR2 01367000 DCBMRPT2 EQU DCBMR4WD 01368000 DCBMRTMD EQU DCBMRPT2 01369000 DCBMR3WD EQU DCBMACR2 01370000 DCBMRCTL EQU DCBMR3WD 01371000 DCBMRSTK EQU DCBMRCTL 01372000 DCBMR1WD EQU DCBMACR2 01373000 DCBMRSWA EQU DCBMR1WD 01374000 DCBMRDMD EQU DCBMRSWA 01375000 IHADCS25 EQU 0 01376000 DCBMACRF EQU IHADCS25+2 01377000 DCBMACF1 EQU DCBMACRF 01378000 DCBMFFE EQU DCBMACF1 01379000 DCBMFGET EQU DCBMFFE 01380000 DCBMFAPG EQU DCBMACF1 01381000 DCBMFRD EQU DCBMFAPG 01382000 DCBMFCI EQU DCBMACF1 01383000 DCBMFMVG EQU DCBMFCI 01384000 DCBMFLCG EQU DCBMACF1 01385000 DCBMFABC EQU DCBMACF1 01386000 DCBMFPT1 EQU DCBMFABC 01387000 DCBMFSBG EQU DCBMFPT1 01388000 DCBMFCRL EQU DCBMACF1 01389000 DCBMFCHK EQU DCBMFCRL 01390000 DCBMFDMG EQU DCBMACF1 01391000 DCBMACF2 EQU DCBMACRF+1 01392000 DCBMFPUT EQU DCBMACF2 01393000 DCBMFWRT EQU DCBMACF2 01394000 DCBMFMVP EQU DCBMACF2 01395000 DCBMF5WD EQU DCBMACF2 01396000 DCBMFLDM EQU DCBMF5WD 01397000 DCBMFLCP EQU DCBMFLDM 01398000 DCBMF4WD EQU DCBMACF2 01399000 DCBMFPT2 EQU DCBMF4WD 01400000 DCBMFTMD EQU DCBMFPT2 01401000 DCBMF3WD EQU DCBMACF2 01402000 DCBMFCTL EQU DCBMF3WD 01403000 DCBMFSTK EQU DCBMFCTL 01404000 DCBMF1WD EQU DCBMACF2 01405000 DCBMFSWA EQU DCBMF1WD 01406000 DCBMFDMD EQU DCBMFSWA 01407000 DCBDEBAD EQU IHADCS25+4 01408000 DCBIFLGS EQU DCBDEBAD 01409000 DCBIFPCT EQU DCBIFLGS 01410000 IHADCS27 EQU 0 01411000 DCBGET EQU IHADCS27 01412000 DCBPUT EQU DCBGET 01413000 DCBGETA EQU DCBPUT+1 01414000 IHADCS43 EQU 0 01415000 DCBSCTAB EQU IHADCS43 01416000 IHADCS2A EQU 0 01417000 DCBRESER EQU IHADCS2A 01418000 DCBINVLI EQU IHADCS2A+4 01419000 DCBINVCI EQU DCBINVLI 01420000 IEDQLCB EQU 0 01421000 LCBRCB EQU IEDQLCB 01422000 LCBTSOB EQU IEDQLCB+19 01423000 LCBCHAIN EQU IEDQLCB+20 01424000 LCBSCRNN EQU LCBCHAIN 01425000 LCBTETEN EQU LCBCHAIN 01426000 LCBINSRC EQU IEDQLCB+21 01427000 LCBLKMDE EQU LCBINSRC+2 01428000 LCBNTXT EQU IEDQLCB+24 01429000 LCBSTAT4 EQU LCBNTXT 01430000 LCBPHASE EQU LCBSTAT4 01431000 LCBSCBDA EQU IEDQLCB+25 01432000 LCBMHA EQU IEDQLCB+29 01433000 LCBFLAG1 EQU IEDQLCB+32 01434000 LCBIOBSN EQU IEDQLCB+33 01435000 LCBSNS EQU LCBIOBSN+1 01436000 LCBSENS0 EQU LCBSNS 01437000 LCBLOSDT EQU LCBSENS0 01438000 LCBTMOUT EQU LCBSENS0 01439000 LCBFLAG3 EQU LCBIOBSN+7 01440000 LCBCSW EQU LCBIOBSN+8 01441000 LCBCSWST EQU LCBCSW+3 01442000 LCBCSWUS EQU LCBCSWST 01443000 LCBCSWCS EQU LCBCSWST+1 01444000 LCBSIOCC EQU LCBIOBSN+15 01445000 LCBDCBPT EQU IEDQLCB+52 01446000 LCBRCQCB EQU IEDQLCB+56 01447000 LCBRESTR EQU LCBRCQCB 01448000 LCBTHSQ EQU IEDQLCB+60 01449000 LCBINCAM EQU LCBTHSQ 01450000 LCBERRCT EQU IEDQLCB+62 01451000 LCBLSPCI EQU IEDQLCB+65 01452000 LCBRCBFR EQU LCBLSPCI 01453000 LCBSTATE EQU IEDQLCB+70 01454000 LCBSTAT1 EQU LCBSTATE 01455000 LCBSTAT2 EQU LCBSTATE+1 01456000 LCBBEOTN EQU LCBSTAT2 01457000 LCBSYNC EQU LCBSTAT2 01458000 LCBDIAL EQU LCBSTAT2 01459000 LCBTSTSW EQU IEDQLCB+72 01460000 LCBERB EQU IEDQLCB+76 01461000 LCBERBST EQU IEDQLCB+84 01462000 LCBDLNKN EQU LCBERBST 01463000 LCBERBCT EQU IEDQLCB+88 01464000 LCBRBCT2 EQU LCBERBCT+1 01465000 LCBTTCIN EQU IEDQLCB+90 01466000 LCBMSGFM EQU IEDQLCB+92 01467000 LCBOBRCH EQU IEDQLCB+96 01468000 LCBINVPT EQU LCBOBRCH+1 01469000 LCBBFRW EQU LCBINVPT 01470000 LCBTPCD EQU IEDQLCB+100 01471000 LCBSTAT5 EQU LCBTPCD 01472000 LCBSTAT6 EQU LCBTPCD+4 01473000 LCBRSPSV EQU LCBTPCD+8 01474000 LCBSAVSN EQU IEDQLCB+112 01475000 LCBERCCW EQU IEDQLCB+120 01476000 LCBCPA EQU IEDQLCB+144 01477000 LCBCCW5 EQU LCBCPA+32 01478000 LCBATTEL EQU LCBCCW5 01479000 LCBQEBPL EQU LCBATTEL 01480000 IEDQLCBX EQU 0 01481000 LCBXCON EQU IEDQLCBX 01482000 LCBXFLAG EQU LCBXCON 01483000 LCBXDCT EQU LCBXCON+1 01484000 LCBXRADR EQU LCBXCON+4 01485000 IEDQOPCD EQU 0 01486000 OPCDOUBL EQU IEDQOPCD 01487000 OPCAVTPT EQU IEDQOPCD+8 01488000 OPCCOPCE EQU IEDQOPCD+12 01489000 OPCDCBLK EQU IEDQOPCD+16 01490000 OPCTOFLK EQU IEDQOPCD+24 01491000 OPCSAVE EQU IEDQOPCD+56 01492000 OPCWORK EQU IEDQOPCD+140 01493000 OPCAQCTL EQU IEDQOPCD+180 01494000 OPCXCTL EQU IEDQOPCD+204 01495000 OPCLDNME EQU IEDQOPCD+212 01496000 OPCMODID EQU OPCLDNME+3 01497000 OPCSPEC EQU IEDQOPCD+300 01498000 OPCRSTRT EQU OPCSPEC 01499000 OPCPWCOB EQU IEDQOPCD+368 01500000 OPCPWQCB EQU OPCPWCOB 01501000 OPCPWECB EQU OPCPWCOB+4 01502000 IEDQOPCE EQU 0 01503000 OCELEM EQU IEDQOPCE+4 01504000 OCUNIT EQU IEDQOPCE+8 01505000 OCRUDEST EQU OCUNIT 01506000 OCCKPKEY EQU OCRUDEST 01507000 OCSCAN EQU OCCKPKEY 01508000 OCOPTCDE EQU IEDQOPCE+12 01509000 OCSWITCH EQU IEDQOPCE+13 01510000 OCFLAG EQU IEDQOPCE+14 01511000 OCTOTE EQU OCFLAG 01512000 OCRLN EQU IEDQOPCE+15 01513000 @NM00191 EQU IEDQOPCE+16 01514000 OCDEST EQU @NM00191 01515000 OCREQVAL EQU OCDEST+1 01516000 OCTRMTBL EQU IEDQOPCE+20 01517000 OCLINENO EQU IEDQOPCE+22 01518000 OCTIOT EQU OCLINENO 01519000 OCTRUNIT EQU IEDQOPCE+24 01520000 OCRSID EQU OCTRUNIT 01521000 OCALSTAT EQU OCRSID 01522000 OCPARM EQU IEDQOPCE+28 01523000 OCBACKUP EQU IEDQOPCE+32 01524000 OCMODNME EQU IEDQOPCE+40 01525000 OCIPLWA EQU OCMODNME 01526000 OCWTGSAV EQU OCIPLWA 01527000 OCCKDATA EQU IEDQOPCE+48 01528000 OCRSTGTM EQU OCCKDATA 01529000 IEDQOPCN EQU 0 01530000 OCLDNME EQU IEDQOPCN 01531000 OCLINTTE EQU OCLDNME 01532000 OCRESPCT EQU OCLINTTE 01533000 OCREQFLG EQU OCLINTTE+2 01534000 OCFORCE EQU OCREQFLG 01535000 OCIDLE EQU OCREQFLG 01536000 OCPREFLG EQU OCLINTTE+3 01537000 IEDQTNTD EQU 0 01538000 IEDQTCDE EQU IEDQTNTD 01539000 IEDQTDCE EQU IEDQTNTD+46 01540000 IEDTNTA EQU 0 01541000 IEDQTRM EQU 0 01542000 TRMSTATE EQU IEDQTRM 01543000 TRMLOG EQU TRMSTATE 01544000 TRMPROC EQU TRMLOG 01545000 TRMPREF EQU TRMSTATE 01546000 TRMINSEQ EQU IEDQTRM+4 01547000 TLISTCNT EQU TRMINSEQ 01548000 TRMOUTSQ EQU IEDQTRM+6 01549000 TLISTEN EQU TRMOUTSQ 01550000 TRMDSORG EQU TLISTEN 01551000 TRMALTD EQU IEDQTRM+8 01552000 TRMDEVFL EQU IEDQTRM+10 01553000 TRMSTAT EQU IEDQTRM+12 01554000 IEDNTRM EQU 0 01555000 TRMBYTE4 EQU IEDNTRM 01556000 TRMBYTE3 EQU IEDNTRM+1 01557000 TRMBYTE2 EQU IEDNTRM+2 01558000 TRMREMB EQU TRMBYTE2 01559000 TRMINPG EQU TRMBYTE2 01560000 TRMBYTE1 EQU IEDNTRM+3 01561000 TRMSCPRQ EQU TRMBYTE1 01562000 TRMBYTE0 EQU IEDNTRM+6 01563000 TRMSNA EQU TRMBYTE0 01564000 TRMSIBPT EQU IEDNTRM+7 01565000 TRMCOHTG EQU TRMSIBPT+1 01566000 TRMTYPE EQU IEDNTRM+11 01567000 TRMSUBST EQU IEDNTRM+12 01568000 SAMAP EQU 0 01569000 REG6SAVE EQU SAMAP+12 01570000 REG7SAVE EQU SAMAP+16 01571000 CMNDPRFX EQU 0 01572000 CMNDLEN EQU CMNDPRFX+2 01573000 CHARBYTE EQU 0 01574000 CHARNUM EQU 0 01575000 WORKAREA EQU 0 01576000 SUBRTNE EQU 0 01577000 TNTCODE EQU 0 01578000 TNTDCODE EQU 0 01579000 TNTFIRST EQU 0 01580000 IEDQAPTR EQU DCBPTR 01581000 IEDQLPTR EQU DCBPTR 01582000 LCBRSPIN EQU LCBIOBSN 01583000 LCBLUSNS EQU LCBRSPIN+5 01584000 LCBSCPRS EQU LCBRSPIN+9 01585000 LCBCSWU1 EQU LCBSCPRS+2 01586000 LCBRSPFG EQU LCBRSPIN+15 01587000 LCBCOREQ EQU LCBTPCD 01588000 @NM00160 EQU LCBCPA+40 01589000 LCBQNX EQU LCBERCCW 01590000 LCBQNXMN EQU LCBQNX 01591000 LCBCANCL EQU LCBSAVSN 01592000 LCBCANFG EQU LCBCANCL 01593000 OPCAQWD EQU OPCAQCTL 01594000 OPCAQWD1 EQU OPCAQWD 01595000 OPCAQWD2 EQU OPCAQWD+4 01596000 OPCAQWD3 EQU OPCAQWD+8 01597000 OCCKPKY1 EQU OCCKPKEY 01598000 OCCKPTYP EQU OCCKPKY1 01599000 OCICACTN EQU OCMODNME 01600000 OCICDADR EQU OCICACTN 01601000 OCICSW EQU OCICDADR+3 01602000 IEDQNPTR EQU DCBPTR 01603000 IEDQTPTR EQU DCBPTR 01604000 TRMPRE1 EQU TRMBYTE4 01605000 TRMNCP1 EQU TRMBYTE4 01606000 TRMPRE EQU TRMBYTE3 01607000 TRMNCP EQU TRMBYTE3 01608000 TRMPU EQU TRMBYTE3 01609000 TRMLU EQU TRMBYTE3 01610000 TRMLINK EQU TRMBYTE3 01611000 OCCIB EQU OCREQVAL 01612000 TRMOPT EQU IEDQTRM+20 01613000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01614000 @NM00206 EQU TRMLINK 01615000 TRMLSTAT EQU TRMLINK 01616000 TRMLINT EQU TRMLINK 01617000 TRMEPMOD EQU TRMLINK 01618000 TRMLULOG EQU TRMLU 01619000 TRMINERR EQU TRMLU 01620000 TRMLUREQ EQU TRMLU 01621000 TRMSESRQ EQU TRMLU 01622000 TRMTDIFF EQU TRMLU 01623000 TRMLUTM EQU TRMLU 01624000 TRMLUIT EQU TRMLU 01625000 TRMAUTO EQU TRMLU 01626000 TRMPCONT EQU TRMPU 01627000 @NM00205 EQU TRMPU 01628000 TRMNCONT EQU TRMNCP 01629000 TRMQUCKN EQU TRMNCP 01630000 TRMSLOWN EQU TRMNCP 01631000 TRMSYGEN EQU TRMNCP 01632000 TRMNCPCL EQU TRMNCP 01633000 TRMIPLDM EQU TRMNCP 01634000 TRMINOUT EQU TRMPRE 01635000 TRMRDOUT EQU TRMPRE 01636000 TRMNLOUT EQU TRMPRE 01637000 TRMWROUT EQU TRMPRE 01638000 TRMASNXI EQU TRMPRE 01639000 TRMSTMM EQU TRMPRE 01640000 TRMCMODE EQU TRMPRE 01641000 TRMSTPND EQU TRMPRE 01642000 @NM00204 EQU TRMNCP1 01643000 TRMINOP EQU TRMNCP1 01644000 TRMLYNCH EQU TRMPRE1 01645000 TRMSPOUT EQU TRMPRE1 01646000 TRMERLCK EQU TRMPRE1 01647000 TRMQNPL EQU TRMPRE1 01648000 TRMSPACT EQU TRMPRE1 01649000 TRMOCNI EQU TRMPRE1 01650000 TRMSESSN EQU TRMPRE1 01651000 TRMCONT EQU TRMPRE1 01652000 OCICINAC EQU OCICSW 01653000 @NM00196 EQU OCICSW 01654000 OCICATST EQU OCICDADR+1 01655000 OCICTYPE EQU OCICDADR 01656000 @NM00195 EQU OCCKPKY1 01657000 OCCKPENV EQU OCCKPKY1 01658000 OCCKPRST EQU OCCKPTYP 01659000 OCCKPNCP EQU OCCKPTYP 01660000 OCCKPINC EQU OCCKPTYP 01661000 OPCAQLST EQU OPCAQWD3+1 01662000 OPCAQRQ3 EQU OPCAQWD3 01663000 OPCAQSEC EQU OPCAQWD2+1 01664000 OPCAQRQ2 EQU OPCAQWD2 01665000 OPCAQFST EQU OPCAQWD1+1 01666000 OPCAQREQ EQU OPCAQWD1 01667000 @NM00168 EQU LCBCANCL+3 01668000 LCBCANTH EQU LCBCANCL+1 01669000 @NM00167 EQU LCBCANFG 01670000 LCBCANCD EQU LCBCANFG 01671000 @NM00166 EQU LCBCANFG 01672000 LCBCANEB EQU LCBCANFG 01673000 LCBCANXT EQU LCBCANFG 01674000 LCBUNADD EQU LCBQNX+21 01675000 LCBUASZE EQU LCBQNX+20 01676000 LCBDSTEA EQU LCBQNX+16 01677000 @NM00165 EQU LCBQNX+8 01678000 LCBIOSBS EQU LCBQNX+5 01679000 @NM00164 EQU LCBQNX+4 01680000 LCBSTSAV EQU LCBQNX+1 01681000 @NM00163 EQU LCBQNXMN 01682000 LCBNX509 EQU LCBQNXMN 01683000 LCBNX162 EQU LCBQNXMN 01684000 LCBNX142 EQU LCBQNXMN 01685000 LCBNX064 EQU LCBQNXMN 01686000 @NM00162 EQU @NM00160+4 01687000 LCBNCPPT EQU @NM00160+1 01688000 @NM00161 EQU @NM00160 01689000 LCBWRSCH EQU LCBCOREQ+8 01690000 LCBCQLNK EQU LCBCOREQ+4 01691000 LCBCQELE EQU LCBCOREQ 01692000 LCBPAKCH EQU LCBRSPIN+16 01693000 @NM00159 EQU LCBRSPFG 01694000 LCBRSRH EQU LCBRSPFG 01695000 LCBEXPI EQU LCBRSPFG 01696000 @NM00158 EQU LCBRSPIN+12 01697000 LCBUSUE1 EQU LCBCSWU1 01698000 @NM00157 EQU LCBCSWU1 01699000 @NM00156 EQU LCBSCPRS+1 01700000 LCBDFCMD EQU LCBSCPRS 01701000 LCBUSER EQU LCBLUSNS+2 01702000 LCBSMIN EQU LCBLUSNS+1 01703000 LCBSMAJ EQU LCBLUSNS 01704000 LCBRHSV EQU LCBRSPIN+2 01705000 LCBSNS0 EQU LCBRSPIN+1 01706000 @NM00155 EQU LCBRSPIN 01707000 @NM00208 EQU CMNDPRFX 01708000 @NM00207 EQU SAMAP 01709000 TRMRLMCT EQU IEDNTRM+10 01710000 TRMGPCNT EQU TRMSIBPT 01711000 TRMBUFRD EQU TRMBYTE0 01712000 TRMGP EQU TRMBYTE0 01713000 TRMDIAL EQU TRMBYTE0 01714000 @NM00203 EQU TRMBYTE0 01715000 TRMOUTPT EQU TRMBYTE0 01716000 TRMINPUT EQU TRMBYTE0 01717000 TRMUDEF EQU TRMBYTE0 01718000 TRMCOHRT EQU IEDNTRM+4 01719000 TRMSTOTE EQU TRMBYTE1 01720000 TRMCKPRN EQU TRMBYTE1 01721000 TRMTSATN EQU TRMBYTE1 01722000 TRMTRACE EQU TRMBYTE1 01723000 TRMSWBCK EQU TRMBYTE1 01724000 TRMAUTOC EQU TRMBYTE1 01725000 TRMINPTP EQU TRMBYTE1 01726000 TRMWTNEG EQU TRMSCPRQ 01727000 TRMWRBRK EQU TRMBYTE2 01728000 TRMNOSND EQU TRMBYTE2 01729000 TRMPREP EQU TRMBYTE2 01730000 TRMGPACT EQU TRMBYTE2 01731000 TRMANDL EQU TRMBYTE2 01732000 TRMCLOSN EQU TRMINPG 01733000 TRMRSACT EQU TRMBYTE2 01734000 TRMOPTBL EQU IEDQTRM+18 01735000 TRMOPNO EQU IEDQTRM+17 01736000 TRMCHCIN EQU IEDQTRM+16 01737000 TRMSENSE EQU TRMSTAT+3 01738000 TRMTEMPR EQU TRMSTAT+2 01739000 TRMSIO EQU TRMSTAT 01740000 @NM00202 EQU TRMDEVFL+1 01741000 TRMTPIN EQU TRMDEVFL+1 01742000 TRMNCPI EQU TRMDEVFL+1 01743000 TRMRNTRM EQU TRMDEVFL+1 01744000 @NM00201 EQU TRMDEVFL+1 01745000 TRMLMD EQU TRMDEVFL+1 01746000 TRMCONC EQU TRMDEVFL+1 01747000 TRMTSOB EQU TRMDEVFL 01748000 TRMBFDY EQU TRMDEVFL 01749000 TRMTBLK EQU TRMDEVFL 01750000 TRMSBLK EQU TRMDEVFL 01751000 TRMBLKS EQU TRMDEVFL 01752000 TRMADDC EQU TRMDEVFL 01753000 TRMDDIG EQU TRMDEVFL 01754000 TRMBUFS EQU TRMDEVFL 01755000 TRMPRILK EQU TRMALTD 01756000 TRMLGB EQU TRMDSORG 01757000 TRMUTERM EQU TLISTCNT 01758000 TRMDESTQ EQU IEDQTRM+1 01759000 TRMSCNYN EQU TRMSTATE 01760000 TRMOPTFN EQU TRMSTATE 01761000 TRMHELDN EQU TRMSTATE 01762000 TRMACPTN EQU TRMSTATE 01763000 TRMLIST EQU TRMLOG 01764000 TRMLINE EQU TRMSTATE 01765000 TNTTRMAD EQU IEDTNTA 01766000 TNTLEN EQU IEDQTNTD+44 01767000 TNTMIDEN EQU IEDQTNTD+41 01768000 TNTENLEN EQU IEDQTNTD+40 01769000 TNTSRCHX EQU IEDQTNTD+38 01770000 @NM00200 EQU OCLDNME+4 01771000 @NM00199 EQU OCPREFLG 01772000 OCTOTEP EQU OCPREFLG 01773000 OCREPOST EQU OCPREFLG 01774000 OCRSPSNT EQU OCPREFLG 01775000 OCBFREQ EQU OCPREFLG 01776000 OCDCARD EQU OCREQFLG 01777000 OCPARTAL EQU OCREQFLG 01778000 OCADNCP EQU OCREQFLG 01779000 @NM00198 EQU OCREQFLG 01780000 @NM00197 EQU OCREQFLG 01781000 OCFLUSHZ EQU OCREQFLG 01782000 OCCKPTWA EQU OCCKDATA+4 01783000 @NM00194 EQU OCRSTGTM+2 01784000 OCCKDAT2 EQU OCRSTGTM+1 01785000 OCCKDAT1 EQU OCRSTGTM 01786000 OCPTRSAV EQU OCMODNME+4 01787000 OCPUADR EQU OCIPLWA+2 01788000 OCDVRDCT EQU OCBACKUP+6 01789000 OCNCP EQU OCBACKUP+4 01790000 OCBUFGOT EQU OCBACKUP+2 01791000 OCBUFNED EQU OCBACKUP 01792000 OCWTG EQU IEDQOPCE+30 01793000 OCRESNUM EQU OCPARM 01794000 OCSEQ EQU OCTRUNIT+2 01795000 @NM00193 EQU OCRSID+1 01796000 OCNONE EQU OCALSTAT 01797000 OCSOME EQU OCALSTAT 01798000 OCALLFLG EQU OCALSTAT 01799000 OCACTREQ EQU OCALSTAT 01800000 OCREDRVE EQU OCALSTAT 01801000 OCSEQIND EQU OCALSTAT 01802000 OCDACTIP EQU OCALSTAT 01803000 OCRENTRD EQU OCALSTAT 01804000 OCWTGB EQU OCTIOT 01805000 @NM00192 EQU @NM00191+2 01806000 OCCONID EQU OCDEST 01807000 OCRESP EQU OCFLAG 01808000 OCATTACH EQU OCFLAG 01809000 OCSSCP EQU OCFLAG 01810000 OCOUTPUT EQU OCFLAG 01811000 OCLINE EQU OCFLAG 01812000 OCMPP EQU OCFLAG 01813000 OCCONSOL EQU OCFLAG 01814000 @NM00190 EQU OCSWITCH 01815000 OCQUCKN EQU OCSWITCH 01816000 OCPRIFLG EQU OCOPTCDE 01817000 @NM00189 EQU OCRUDEST+1 01818000 @NM00188 EQU OCSCAN 01819000 OCNOTUCB EQU OCSCAN 01820000 OCNONAME EQU OCSCAN 01821000 OCALLRLN EQU OCSCAN 01822000 OCDDNAME EQU OCSCAN 01823000 OCDDNRLN EQU OCSCAN 01824000 OCADDR EQU OCSCAN 01825000 OCELMPTR EQU OCELEM+1 01826000 OCELMPRI EQU OCELEM 01827000 OCLINK EQU IEDQOPCE 01828000 OPCBOTTM EQU IEDQOPCD+1188 01829000 OPCDSRWT EQU IEDQOPCD+1184 01830000 @NM00187 EQU IEDQOPCD+1100 01831000 @NM00186 EQU IEDQOPCD+948 01832000 @NM00185 EQU IEDQOPCD+940 01833000 @NM00184 EQU IEDQOPCD+380 01834000 @NM00183 EQU OPCPWCOB+9 01835000 @NM00182 EQU OPCPWCOB+8 01836000 @NM00181 EQU OPCPWECB+1 01837000 OPCPWCCC EQU OPCPWECB 01838000 OPCPWCHN EQU OPCPWQCB+1 01839000 OPCPWVTO EQU OPCPWQCB 01840000 OPCWAITV EQU IEDQOPCD+364 01841000 OPCTOTCK EQU IEDQOPCD+360 01842000 OPCAPXTL EQU IEDQOPCD+356 01843000 OPCDECR EQU IEDQOPCD+352 01844000 OPCBUFWT EQU IEDQOPCD+348 01845000 OPCWRKSP EQU IEDQOPCD+320 01846000 OPCADGOT EQU IEDQOPCD+318 01847000 OPCRQCNT EQU IEDQOPCD+316 01848000 OPPOLSTP EQU IEDQOPCD+312 01849000 OPCCKCIB EQU IEDQOPCD+308 01850000 OPCEND EQU IEDQOPCD+307 01851000 OPCSTCBS EQU IEDQOPCD+306 01852000 OPCHNEND EQU IEDQOPCD+302 01853000 OPCOQSW EQU IEDQOPCD+301 01854000 @NM00180 EQU OPCSPEC 01855000 @NM00179 EQU OPCSPEC 01856000 @NM00178 EQU OPCSPEC 01857000 @NM00177 EQU OPCSPEC 01858000 OPCFRMCA EQU OPCSPEC 01859000 OPCPART EQU OPCSPEC 01860000 OPCALTD EQU OPCSPEC 01861000 OPCBFEND EQU IEDQOPCD+296 01862000 OPCBFIRS EQU IEDQOPCD+292 01863000 OPCAVBUF EQU IEDQOPCD+290 01864000 OPCIPLCT EQU IEDQOPCD+289 01865000 OPCCLNTS EQU IEDQOPCD+288 01866000 OPCHA8 EQU IEDQOPCD+286 01867000 OPCBFREQ EQU IEDQOPCD+284 01868000 OPCFREBF EQU IEDQOPCD+280 01869000 OPCGETBF EQU IEDQOPCD+276 01870000 OPCNEXT EQU IEDQOPCD+272 01871000 OPCFMDFC EQU IEDQOPCD+268 01872000 OPCSCNC EQU IEDQOPCD+264 01873000 OPCHORTG EQU IEDQOPCD+260 01874000 OPCHORT EQU IEDQOPCD+256 01875000 OPCCKPTL EQU IEDQOPCD+252 01876000 OPCCKPTF EQU IEDQOPCD+248 01877000 OPCWAITA EQU IEDQOPCD+244 01878000 OPCWAITR EQU IEDQOPCD+240 01879000 OPCWAITP EQU IEDQOPCD+236 01880000 OPCWAITO EQU IEDQOPCD+232 01881000 OPCWAITN EQU IEDQOPCD+228 01882000 OPCWAITL EQU IEDQOPCD+224 01883000 OPCWAITC EQU IEDQOPCD+220 01884000 @NM00176 EQU OPCLDNME+5 01885000 @NM00175 EQU OPCLDNME 01886000 OPCWAIT EQU IEDQOPCD+192 01887000 OPCCKERB EQU IEDQOPCD+164 01888000 OPCBFERB EQU IEDQOPCD+148 01889000 OPCFLAG2 EQU IEDQOPCD+147 01890000 OPCFLAG1 EQU IEDQOPCD+146 01891000 OPCWRKSZ EQU IEDQOPCD+144 01892000 OPCRSAVE EQU IEDQOPCD+132 01893000 OPCQCBAD EQU IEDQOPCD+128 01894000 OPCTRMWA EQU IEDQOPCD+52 01895000 OPCPSTWT EQU IEDQOPCD+48 01896000 OPCTNTEA EQU IEDQOPCD+44 01897000 OPCPGCK EQU IEDQOPCD+40 01898000 OPCLCB EQU IEDQOPCD+36 01899000 @NM00174 EQU IEDQOPCD+32 01900000 OPCIPLAD EQU IEDQOPCD+28 01901000 OPCOPTLK EQU IEDQOPCD+20 01902000 LCBERADR EQU LCBXRADR+1 01903000 LCBPCIRC EQU LCBXRADR 01904000 LCBDCT3 EQU LCBXDCT+2 01905000 LCBDCT2 EQU LCBXDCT+1 01906000 LCBDCT1 EQU LCBXDCT 01907000 @NM00173 EQU LCBXFLAG 01908000 LCBERPND EQU LCBXFLAG 01909000 LCBSRCPF EQU LCBXFLAG 01910000 LCBGPCTV EQU LCBXFLAG 01911000 @NM00172 EQU LCBXFLAG 01912000 @NM00171 EQU LCBXFLAG 01913000 @NM00170 EQU LCBXFLAG 01914000 @NM00169 EQU LCBXFLAG 01915000 LCBCCW10 EQU LCBCPA+72 01916000 LCBCCW9 EQU LCBCPA+64 01917000 LCBCCW8 EQU LCBCPA+56 01918000 LCBCCW7 EQU LCBCPA+48 01919000 LCBCCW6 EQU LCBCPA+40 01920000 LCBCP EQU LCBQEBPL+4 01921000 LCBIOSB EQU LCBQEBPL+1 01922000 LCBSIO EQU LCBQEBPL 01923000 LCBCCW4 EQU LCBCPA+24 01924000 LCBCCW3 EQU LCBCPA+16 01925000 LCBCCW2 EQU LCBCPA+8 01926000 LCBCCW1 EQU LCBCPA 01927000 @NM00154 EQU LCBERCCW+16 01928000 LCBATL05 EQU LCBERCCW+8 01929000 @NM00153 EQU LCBERCCW 01930000 LCBCSWSV EQU LCBSAVSN+1 01931000 LCBSNSV EQU LCBSAVSN 01932000 LCBBFSNS EQU LCBRSPSV 01933000 LCBWAITC EQU LCBTPCD+5 01934000 LCBINPAK EQU LCBSTAT6 01935000 LCBMHBID EQU LCBSTAT6 01936000 LCBRTRRO EQU LCBSTAT6 01937000 LCBHDRPD EQU LCBSTAT6 01938000 LCBCHN EQU LCBSTAT6 01939000 LCBBFRSV EQU LCBTPCD+1 01940000 @NM00152 EQU LCBSTAT5 01941000 LCBLUS EQU LCBSTAT5 01942000 LCBLUNIT EQU LCBSTAT5 01943000 LCBPERM EQU LCBSTAT5 01944000 LCBNXCMD EQU LCBBFRW 01945000 LCBERMSK EQU LCBOBRCH 01946000 LCBSCBA EQU IEDQLCB+93 01947000 LCBOLT EQU LCBMSGFM 01948000 LCBEOT EQU LCBMSGFM 01949000 LCBENQ EQU LCBMSGFM 01950000 LCBTTD EQU LCBMSGFM 01951000 LCBRSTRT EQU LCBMSGFM 01952000 LCBVSTRT EQU LCBMSGFM 01953000 LCBACKI EQU LCBMSGFM 01954000 LCBNAK EQU LCBMSGFM 01955000 @NM00151 EQU LCBRBCT2 01956000 LCBDCNT EQU LCBRBCT2 01957000 LCBRBCT1 EQU LCBERBCT 01958000 LCBERBCH EQU IEDQLCB+85 01959000 LCBCOMPL EQU LCBDLNKN 01960000 LCBPRCPG EQU LCBERBST 01961000 LCBERROR EQU LCBERBST 01962000 LCBLOGDV EQU LCBERBST 01963000 LCBINQ EQU LCBERBST 01964000 LCBRDERR EQU LCBERBST 01965000 LCBEOMSG EQU LCBERBST 01966000 LCBMSG EQU LCBERBST 01967000 LCBERBLK EQU IEDQLCB+81 01968000 LCBERBPY EQU IEDQLCB+80 01969000 LCBERBQB EQU LCBERB+1 01970000 LCBERBKY EQU LCBERB 01971000 LCBRECAD EQU IEDQLCB+73 01972000 @NM00150 EQU LCBTSTSW 01973000 @NM00149 EQU LCBTSTSW 01974000 @NM00148 EQU LCBTSTSW 01975000 @NM00147 EQU LCBTSTSW 01976000 @NM00146 EQU LCBTSTSW 01977000 @NM00145 EQU LCBTSTSW 01978000 @NM00144 EQU LCBTSTSW 01979000 LCBCONCT EQU LCBTSTSW 01980000 LCBRESP EQU LCBSTAT2 01981000 LCBBFRAV EQU LCBDIAL 01982000 LCBATTN EQU LCBSYNC 01983000 LCBNEGRP EQU LCBSTAT2 01984000 LCBSNDPR EQU LCBSTAT2 01985000 LCBCONNN EQU LCBBEOTN 01986000 LCBMSGNN EQU LCBSTAT2 01987000 LCBTRACE EQU LCBSTAT2 01988000 LCBSENDN EQU LCBSTAT1 01989000 LCBRECVN EQU LCBSTAT1 01990000 LCBFREEN EQU LCBSTAT1 01991000 LCBCONT EQU LCBSTAT1 01992000 LCBINITN EQU LCBSTAT1 01993000 LCBOCNI EQU LCBSTAT1 01994000 LCBOCWTN EQU LCBSTAT1 01995000 LCBRCLLN EQU LCBSTAT1 01996000 LCBRECOF EQU IEDQLCB+68 01997000 LCBRDBFR EQU LCBRCBFR 01998000 LCBUCBX EQU IEDQLCB+64 01999000 LCBTTBIN EQU LCBERRCT 02000000 @NM00143 EQU LCBINCAM 02001000 LCBGETMN EQU LCBINCAM 02002000 @NM00142 EQU LCBRESTR+1 02003000 LCBCMDSV EQU LCBRESTR 02004000 LCBPCILK EQU LCBDCBPT 02005000 LCBSTART EQU LCBIOBSN+16 02006000 LCBAP4OL EQU LCBSIOCC 02007000 LCBAP3OL EQU LCBSIOCC 02008000 LCBAP2OL EQU LCBSIOCC 02009000 LCBAP1OL EQU LCBSIOCC 02010000 LCBSIOC2 EQU LCBSIOCC 02011000 LCBSIOC1 EQU LCBSIOCC 02012000 @NM00141 EQU LCBSIOCC 02013000 LCBCSWRC EQU LCBCSW+5 02014000 LCBCSCHC EQU LCBCSWCS 02015000 LCBCSICC EQU LCBCSWCS 02016000 LCBCSCCC EQU LCBCSWCS 02017000 LCBCSCDC EQU LCBCSWCS 02018000 LCBCSPTC EQU LCBCSWCS 02019000 LCBCSPGC EQU LCBCSWCS 02020000 LCBCSIL EQU LCBCSWCS 02021000 LCBCSPCI EQU LCBCSWCS 02022000 LCBUSUE EQU LCBCSWUS 02023000 LCBUSUC EQU LCBCSWUS 02024000 LCBUSDE EQU LCBCSWUS 02025000 LCBUSCE EQU LCBCSWUS 02026000 LCBUSBSY EQU LCBCSWUS 02027000 LCBUSCUE EQU LCBCSWUS 02028000 LCBUSSM EQU LCBCSWUS 02029000 LCBUSAT EQU LCBCSWUS 02030000 LCBCSWCA EQU LCBCSW 02031000 LCBOBR EQU LCBFLAG3 02032000 LCBOBRRD EQU LCBFLAG3 02033000 LCBIOMSG EQU LCBFLAG3 02034000 LCBSOHC EQU LCBFLAG3 02035000 LCBRLAD EQU LCBFLAG3 02036000 LCBSOHR EQU LCBFLAG3 02037000 @NM00140 EQU LCBFLAG3 02038000 LCBECBPT EQU LCBIOBSN+4 02039000 LCBECBCC EQU LCBIOBSN+3 02040000 LCBSENS1 EQU LCBSNS+1 02041000 LCBABORT EQU LCBTMOUT 02042000 LCBNOTIN EQU LCBLOSDT 02043000 LCBOVRUN EQU LCBSENS0 02044000 LCBDATCK EQU LCBSENS0 02045000 LCBEQUCK EQU LCBSENS0 02046000 LCBBUSCK EQU LCBSENS0 02047000 LCBINTRQ EQU LCBSENS0 02048000 LCBCMDRJ EQU LCBSENS0 02049000 LCBFLAG2 EQU LCBIOBSN 02050000 @NM00139 EQU LCBFLAG1 02051000 LCBUNREL EQU LCBFLAG1 02052000 LCBEXCPN EQU LCBFLAG1 02053000 @NM00138 EQU LCBFLAG1 02054000 LCBERPIN EQU LCBFLAG1 02055000 @NM00137 EQU LCBFLAG1 02056000 LCBFSBFR EQU LCBMHA 02057000 LCBISZE EQU IEDQLCB+28 02058000 LCBLNENT EQU LCBSCBDA+1 02059000 @NM00136 EQU LCBSCBDA 02060000 LCBCPGMH EQU LCBSTAT4 02061000 LCBREAL EQU LCBPHASE 02062000 @NM00135 EQU LCBSTAT4 02063000 LCBACTRQ EQU LCBSTAT4 02064000 LCBIPLRQ EQU LCBSTAT4 02065000 LCBDACRQ EQU LCBSTAT4 02066000 LCBDMPRQ EQU LCBSTAT4 02067000 @NM00134 EQU LCBLKMDE 02068000 LCBLOCKI EQU LCBLKMDE 02069000 LCBLOCKR EQU LCBLKMDE 02070000 LCBHMFLG EQU LCBLKMDE 02071000 LCBBDFLG EQU LCBLKMDE 02072000 @NM00133 EQU LCBINSRC 02073000 LCBABRTN EQU LCBCHAIN 02074000 LCBCTLMD EQU LCBTETEN 02075000 LCBBFRSZ EQU LCBCHAIN 02076000 LCBUREQN EQU LCBCHAIN 02077000 LCBNORTY EQU LCBCHAIN 02078000 LCBERMSG EQU LCBCHAIN 02079000 LCBEXCP EQU LCBCHAIN 02080000 LCBINVRQ EQU LCBSCRNN 02081000 LCB2741N EQU LCBTSOB 02082000 LCBINHBN EQU LCBTSOB 02083000 LCBCIRCD EQU LCBTSOB 02084000 LCBPREP EQU LCBTSOB 02085000 LCBSOPL EQU LCBTSOB 02086000 LCBSATRD EQU LCBTSOB 02087000 LCBTSBUF EQU LCBTSOB 02088000 LCBWRBRK EQU LCBTSOB 02089000 LCBTDL EQU IEDQLCB+18 02090000 LCBEOLTD EQU IEDQLCB+16 02091000 LCBRSLNK EQU IEDQLCB+13 02092000 LCBRSPRI EQU IEDQLCB+12 02093000 LCBSTCBA EQU IEDQLCB+9 02094000 LCBRSKEY EQU IEDQLCB+8 02095000 LCBLINK EQU LCBRCB+5 02096000 LCBPRI EQU LCBRCB+4 02097000 LCBQCBA EQU LCBRCB+1 02098000 LCBKEY EQU LCBRCB 02099000 DCBINVLA EQU DCBINVLI+1 02100000 @NM00132 EQU DCBINVCI 02101000 DCBINVB2 EQU DCBINVCI 02102000 @NM00131 EQU DCBINVCI 02103000 DCBINVB1 EQU DCBINVCI 02104000 @NM00130 EQU DCBINVCI 02105000 @NM00129 EQU DCBRESER+2 02106000 DCBRESB2 EQU DCBRESER+1 02107000 DCBRESB1 EQU DCBRESER 02108000 DCBBUFSI EQU IHADCS43+6 02109000 DCBUNTCT EQU IHADCS43+5 02110000 DCBILCT EQU IHADCS43+4 02111000 DCBSCTAD EQU DCBSCTAB+1 02112000 @NM00128 EQU DCBSCTAB 02113000 DCBPUTA EQU DCBGETA 02114000 @NM00127 EQU DCBPUT 02115000 DCBDEBA EQU DCBDEBAD+1 02116000 @NM00126 EQU DCBIFLGS 02117000 DCBIFIOE EQU DCBIFLGS 02118000 DCBCH12 EQU DCBIFPCT 02119000 DCBCH9 EQU DCBIFPCT 02120000 DCBIFEC EQU DCBIFLGS 02121000 DCBMFSTI EQU DCBMFDMD 02122000 DCBMFAWR EQU DCBMFSTK 02123000 DCBMFUIP EQU DCBMFTMD 02124000 DCBMFIDW EQU DCBMFLCP 02125000 DCBMFWRK EQU DCBMFMVP 02126000 DCBMFRDQ EQU DCBMFWRT 02127000 DCBMFGTQ EQU DCBMFPUT 02128000 DCBMFSTL EQU DCBMACF2 02129000 DCBMFCK EQU DCBMFDMG 02130000 DCBMFRDX EQU DCBMFCHK 02131000 DCBMFDBF EQU DCBMFSBG 02132000 DCBMFRDI EQU DCBMFLCG 02133000 DCBMFRDK EQU DCBMFMVG 02134000 DCBMFWRQ EQU DCBMFRD 02135000 DCBMFPTQ EQU DCBMFGET 02136000 DCBMFECP EQU DCBMACF1 02137000 DCBTIOT EQU IHADCS25 02138000 DCBMRSTI EQU DCBMRDMD 02139000 DCBMRAWR EQU DCBMRSTK 02140000 DCBMRUIP EQU DCBMRTMD 02141000 DCBMRIDW EQU DCBMRLCP 02142000 DCBMRWRK EQU DCBMRMVP 02143000 DCBMRRDQ EQU DCBMRWRT 02144000 DCBMRGTQ EQU DCBMRPUT 02145000 DCBMRSTL EQU DCBMACR2 02146000 DCBMRCK EQU DCBMRDMG 02147000 DCBPGFXA EQU DCBMRRDX 02148000 DCBMRDBF EQU DCBMRSBG 02149000 DCBMRRDI EQU DCBMRLCG 02150000 DCBMRRDK EQU DCBMRMVG 02151000 DCBMRWRQ EQU DCBMRRD 02152000 DCBMRPTQ EQU DCBMRGET 02153000 DCBMRECP EQU DCBMACR1 02154000 @NM00125 EQU DCBIFLG 02155000 DCBIBIOE EQU DCBIFLG 02156000 DCBICH12 EQU DCBIBPCT 02157000 DCBICH9 EQU DCBIBPCT 02158000 DCBIBEC EQU DCBIFLG 02159000 DCBOFIOF EQU DCBOFLGS 02160000 DCBOFUEX EQU DCBOFLGS 02161000 DCBOFTM EQU DCBOFLGS 02162000 DCBOFPPC EQU DCBOFLGS 02163000 DCBOFOPN EQU DCBOFLGS 02164000 DCBOFEOV EQU DCBOFLGS 02165000 DCBOFLRB EQU DCBOFLGS 02166000 DCBOFIOD EQU DCBOFLWR 02167000 DCBDDNAM EQU IHADCS24 02168000 @NM00124 EQU @NM00122+1 02169000 @NM00123 EQU @NM00122 02170000 DCBRNCKA EQU DCBRNCKD+1 02171000 @NM00121 EQU DCBRNCKD 02172000 @NM00120 EQU IHADCS2K+8 02173000 @NM00119 EQU IHADCS2K+6 02174000 DCBCHNGL EQU DCBTRSTA 02175000 DCBNIDLE EQU DCBTRSTA 02176000 DCBBAKUP EQU DCBTRSTA 02177000 DCBIPLED EQU DCBTRSTA 02178000 DCBRSTRT EQU DCBTRSTA 02179000 DCBINITL EQU DCBTRSTA 02180000 DCBAUTOD EQU DCBTRSTA 02181000 DCBAUTOI EQU DCBTRSTA 02182000 @NM00118 EQU IHADCS2K+4 02183000 DCBDUMPA EQU DCBDUMPD+1 02184000 DCBUNITN EQU DCBDUMPD 02185000 DCBEXLSA EQU DCBEXLST+1 02186000 DCBLCBA EQU DCBLCBAD+1 02187000 DCBCPS EQU DCBCPRI 02188000 DCBCPE EQU DCBCPRI 02189000 DCBCPR EQU DCBCPRI 02190000 @NM00117 EQU DCBCPRI 02191000 DCBTRANS EQU DCBTRANA+1 02192000 @NM00116 EQU DCBTRANA 02193000 DCBIOBAA EQU DCBIOBAD+1 02194000 DCBDEVTP EQU DCBIOBAD 02195000 @NM00115 EQU IHADCS17+7 02196000 @NM00114 EQU IHADCS17+6 02197000 @NM00113 EQU IHADCS17+5 02198000 DCBINTVL EQU IHADCS17+4 02199000 DCBCLPSA EQU DCBCLPS+1 02200000 DCBBUFRQ EQU DCBCLPS 02201000 DCBBUFMA EQU IHADCS16+8 02202000 @NM00112 EQU DCBDSRG2 02203000 DCBDSGTR EQU DCBDSRG2 02204000 DCBACBM EQU DCBDSRG2 02205000 @NM00111 EQU DCBDSRG2 02206000 DCBDSGTQ EQU DCBDSRG2 02207000 DCBDSGTX EQU DCBDSRG2 02208000 DCBDSGGS EQU DCBDSRG2 02209000 DCBDSGU EQU DCBDSRG1 02210000 DCBDSGPO EQU DCBDSRG1 02211000 @NM00110 EQU DCBDSRG1 02212000 @NM00109 EQU DCBDSRG1 02213000 DCBDSGCX EQU DCBDSRG1 02214000 DCBDSGDA EQU DCBDSRG1 02215000 DCBDSGPS EQU DCBDSRG1 02216000 DCBDSGIS EQU DCBDSRG1 02217000 DCBPCIR2 EQU DCBPCI 02218000 DCBPCIR1 EQU DCBPCI 02219000 DCBPCIN2 EQU DCBPCI 02220000 DCBPCIN1 EQU DCBPCI 02221000 DCBPCIA2 EQU DCBPCI 02222000 DCBPCIA1 EQU DCBPCI 02223000 DCBPCIX2 EQU DCBPCI 02224000 DCBPCIX1 EQU DCBPCI 02225000 @NM00108 EQU IHADCS16+4 02226000 DCBMH EQU DCBMHA+1 02227000 DCBBFOUT EQU DCBBUFIN 02228000 DCBBFIN EQU DCBBUFIN 02229000 DCBBCKUA EQU DCBBCKUP+1 02230000 @NM00107 EQU DCBBCKUP 02231000 DCBIPLTX EQU IHADCS1A 02232000 @NM00106 EQU IHADCB 02233000 SAVTLLCB EQU IEDNSVTD+316 02234000 SAVTBITN EQU IEDNSVTD+312 02235000 @NM00105 EQU SAVTCKQB+8 02236000 @NM00104 EQU SAVTCKEC+1 02237000 @NM00103 EQU SAVTCKCC 02238000 SAVTCKPO EQU SAVTCKCC 02239000 SAVTCKWA EQU SAVTCKCC 02240000 SAVTCKCH EQU SAVTCKTB+1 02241000 SAVTCKVT EQU SAVTCKTB 02242000 @NM00102 EQU IEDNSVTD+297 02243000 SAVTRDFG EQU SAVTRDRV+12 02244000 @NM00101 EQU SAVTRDRV+5 02245000 SAVTRDPY EQU SAVTRDRV+4 02246000 SAVTRDQB EQU SAVTRDRV+1 02247000 SAVTRDKY EQU SAVTRDRV 02248000 SAVTNID EQU IEDNSVTD+280 02249000 SAVTDVAS EQU IEDNSVTD+276 02250000 SAVTPLSZ EQU IEDNSVTD+274 02251000 @NM00100 EQU IEDNSVTD+273 02252000 SAVTSUBL EQU IEDNSVTD+272 02253000 @NM00099 EQU SAVTZELM+1 02254000 SAVTSUBM EQU SAVTZELM 02255000 SAVTMHDX EQU IEDNSVTD+268 02256000 SAVTNAT1 EQU IEDNSVTD+266 02257000 SAVTSH20 EQU IEDNSVTD+264 02258000 SAVTLCBS EQU IEDNSVTD+260 02259000 SAVTRNMP EQU IEDNSVTD+256 02260000 SAVTTNTX EQU IEDNSVTD+252 02261000 SAVTNAX EQU IEDNSVTD+248 02262000 SAVTSUBV EQU IEDNSVTD+247 02263000 SAVTSUBA EQU IEDNSVTD+246 02264000 SAVTSIBC EQU IEDNSVTD+244 02265000 SAVTBSM EQU IEDNSVTD+240 02266000 SAVTSCPT EQU SAVTTCPU 02267000 SAVTRQTG EQU IEDNSVTD+236 02268000 SAVTRQCH EQU IEDNSVTD+232 02269000 SAVTMAND EQU IEDNSVTD+228 02270000 SAVTSPLN EQU IEDNSVTD+224 02271000 SAVTNADL EQU IEDNSVTD+222 02272000 SAVTNATL EQU IEDNSVTD+220 02273000 SAVTMHTB EQU IEDNSVTD+216 02274000 SAVTSSMH EQU IEDNSVTD+212 02275000 SAVTQRS EQU IEDNSVTD+208 02276000 SAVTRQIN EQU IEDNSVTD+204 02277000 SAVTDFCO EQU IEDNSVTD+200 02278000 SAVTSAO EQU IEDNSVTD+196 02279000 SAVTSARI EQU IEDNSVTD+192 02280000 SAVTSAC EQU IEDNSVTD+188 02281000 SAVTSAI EQU IEDNSVTD+184 02282000 SAVTCSCI EQU IEDNSVTD+180 02283000 SAVTSSRP EQU IEDNSVTD+176 02284000 SAVTSSRQ EQU IEDNSVTD+172 02285000 SAVTSCLU EQU IEDNSVTD+168 02286000 SAVTXTRQ EQU IEDNSVTD+164 02287000 SAVTMVBF EQU IEDNSVTD+160 02288000 @NM00098 EQU IEDNSVTD+148 02289000 SAVTIPCQ EQU IEDNSVTD+144 02290000 @NM00097 EQU IEDNSVTD+136 02291000 SAVTXFMI EQU IEDNSVTD+132 02292000 @NM00096 EQU IEDNSVTD+124 02293000 SAVTXFMO EQU IEDNSVTD+120 02294000 @NM00095 EQU IEDNSVTD+116 02295000 SAVTSSSR EQU IEDNSVTD+112 02296000 SAVTSCPQ EQU IEDNSVTD+108 02297000 SAVTSLCB EQU IEDNSVTD+104 02298000 SAVTLUSR EQU IEDNSVTD+100 02299000 @NM00094 EQU SAVTLUSQ+8 02300000 SAVTLUSP EQU SAVTLUSQ+4 02301000 SAVTLUSB EQU SAVTLUSQ 02302000 @NM00093 EQU IEDNSVTD+84 02303000 SAVTSAT EQU IEDNSVTD+80 02304000 SAVTNAT EQU IEDNSVTD+76 02305000 SAVTCLUP EQU IEDNSVTD+72 02306000 SAVTPIUT EQU IEDNSVTD+68 02307000 SAVTRNTA EQU IEDNSVTD+64 02308000 SAVTDNIR EQU IEDNSVTD+60 02309000 SAVTCNIR EQU IEDNSVTD+56 02310000 SAVTFLDH EQU IEDNSVTD+52 02311000 SAVTSRTN EQU IEDNSVTD+48 02312000 SAVTSREQ EQU IEDNSVTD+44 02313000 SAVTFAIL EQU IEDNSVTD+42 02314000 SAVTSUSE EQU IEDNSVTD+40 02315000 SAVTSIB EQU IEDNSVTD+36 02316000 SAVTPRTN EQU IEDNSVTD+32 02317000 @NM00092 EQU IEDNSVTD+28 02318000 SAVTWH20 EQU IEDNSVTD+26 02319000 SAVTPWT EQU IEDNSVTD+24 02320000 SAVTPRTQ EQU IEDNSVTD+20 02321000 SAVTPREQ EQU IEDNSVTD+16 02322000 SAVTPH20 EQU IEDNSVTD+14 02323000 SAVTPUSE EQU IEDNSVTD+12 02324000 SAVTPLCB EQU IEDNSVTD+8 02325000 SAVTPOOL EQU IEDNSVTD+4 02326000 SAVTPRMT EQU SAVTDIAF 02327000 SAVTVIRT EQU SAVTDIAF 02328000 AVTCPBNO EQU IEDQAVTD+1244 02329000 AVTHRESS EQU IEDQAVTD+1243 02330000 @NM00091 EQU IEDQAVTD+1242 02331000 @NM00090 EQU IEDQAVTD+1241 02332000 @NM00089 EQU IEDQAVTD+1240 02333000 @NM00088 EQU IEDQAVTD+1237 02334000 @NM00087 EQU IEDQAVTD+1236 02335000 AVTHRESE EQU @NM00086 02336000 AVTRADDR EQU IEDQAVTD+1228 02337000 AVTNADDR EQU IEDQAVTD+1224 02338000 AVTHRESN EQU IEDQAVTD+1220 02339000 AVTVOLRN EQU IEDQAVTD+1216 02340000 AVTTOTNN EQU IEDQAVTD+1212 02341000 AVTTRCYN EQU IEDQAVTD+1208 02342000 AVTRCTRN EQU IEDQAVTD+1204 02343000 AVTNOVON EQU IEDQAVTD+1200 02344000 AVTADEBN EQU IEDQAVTD+1196 02345000 AVTVOLRR EQU IEDQAVTD+1192 02346000 AVTTOTNR EQU IEDQAVTD+1188 02347000 AVTTRCYR EQU IEDQAVTD+1184 02348000 AVTRCTRR EQU IEDQAVTD+1180 02349000 AVTNOVOR EQU IEDQAVTD+1176 02350000 AVTADEBR EQU IEDQAVTD+1172 02351000 AVTLODPT EQU IEDQAVTD+1168 02352000 AVTIOBN EQU IEDQAVTD+1164 02353000 AVTIOBR EQU IEDQAVTD+1160 02354000 AVTCPBPT EQU IEDQAVTD+1156 02355000 AVTFCPB EQU IEDQAVTD+1152 02356000 @NM00085 EQU IEDQAVTD+1148 02357000 AVTINCPQ EQU IEDQAVTD+1144 02358000 @NM00084 EQU IEDQAVTD+1140 02359000 @NM00083 EQU IEDQAVTD+1137 02360000 @NM00082 EQU AVTBIT4 02361000 @NM00081 EQU AVTBIT4 02362000 @NM00080 EQU AVTBIT4 02363000 @NM00079 EQU AVTBIT4 02364000 @NM00078 EQU AVTBIT4 02365000 @NM00077 EQU AVTBIT4 02366000 @NM00076 EQU AVTBIT4 02367000 AVTRUFTN EQU AVTBIT4 02368000 @NM00075 EQU IEDQAVTD+1132 02369000 AVTNOBFQ EQU IEDQAVTD+1128 02370000 @NM00074 EQU IEDQAVTD+1124 02371000 AVTDKENQ EQU IEDQAVTD+1120 02372000 @NM00073 EQU IEDQAVTD+1116 02373000 AVTDKAPQ EQU IEDQAVTD+1112 02374000 AVTCOPY EQU IEDQAVTD+1108 02375000 AVTIA EQU IEDQAVTD+1104 02376000 AVTFL EQU IEDQAVTD+1100 02377000 @NM00072 EQU IEDQAVTD+1096 02378000 AVTNCPBQ EQU IEDQAVTD+1092 02379000 AVTTOTNC EQU IEDQAVTD+1088 02380000 AVTCMAX EQU IEDQAVTD+1084 02381000 AVTCMIN EQU IEDQAVTD+1080 02382000 AVTHM02 EQU IEDQAVTD+1076 02383000 AVTOPCIN EQU IEDQAVTD+1074 02384000 AVTDCTLN EQU IEDQAVTD+1072 02385000 AVTOPMSK EQU IEDQAVTD+1068 02386000 AVTDDFT EQU IEDQAVTD+1064 02387000 AVTSTEAL EQU IEDQAVTD+1060 02388000 AVTOPTN EQU IEDQAVTD+1056 02389000 AVTDSKCT EQU IEDQAVTD+1054 02390000 AVTCKRST EQU IEDQAVTD+1053 02391000 AVTSTAN EQU AVTBIT3 02392000 AVTSTACN EQU AVTBIT3 02393000 AVTSTAIN EQU AVTBIT3 02394000 AVTSTAYN EQU AVTBIT3 02395000 AVTOLTBN EQU AVTBIT3 02396000 AVTTSAB EQU AVTBIT3 02397000 AVTRFULN EQU AVTBIT3 02398000 AVTRECVN EQU AVTBIT3 02399000 @NM00071 EQU AVTBIT2 02400000 @NM00070 EQU AVTBIT2 02401000 AVTOPEIN EQU AVTBIT2 02402000 AVTSTRTN EQU AVTBIT2 02403000 AVTTOPOL EQU AVTBIT2 02404000 AVTCOPYN EQU AVTBIT2 02405000 AVTREUSN EQU AVTBIT2 02406000 AVTEXTSC EQU AVTBIT2 02407000 AVTDISKN EQU AVTBIT1 02408000 AVTQUCKN EQU AVTBIT1 02409000 AVTCLOSN EQU AVTBIT1 02410000 AVTREADN EQU AVTBIT1 02411000 AVTDLAYN EQU AVTBIT1 02412000 AVTAQTAN EQU AVTBIT1 02413000 AVTTSON EQU AVTBIT1 02414000 AVTAPLKN EQU AVTBIT1 02415000 AVTDUMBR EQU IEDQAVTD+1048 02416000 AVTDLQX EQU IEDQAVTD+1046 02417000 AVTINTLV EQU IEDQAVTD+1044 02418000 AVTSMCNT EQU IEDQAVTD+1042 02419000 AVTAVFCT EQU IEDQAVTD+1040 02420000 AVTOPCON EQU IEDQAVTD+1038 02421000 AVTOPCNT EQU IEDQAVTD+1036 02422000 AVTLNCNT EQU IEDQAVTD+1034 02423000 AVTKEYLE EQU IEDQAVTD+1032 02424000 AVTHA16 EQU IEDQAVTD+1030 02425000 AVTHA7 EQU IEDQAVTD+1028 02426000 AVTHA4 EQU IEDQAVTD+1026 02427000 AVTHA3 EQU IEDQAVTD+1024 02428000 AVTHA2 EQU IEDQAVTD+1022 02429000 AVTGETMS EQU IEDQAVTD+1021 02430000 @NM00069 EQU IEDQAVTD+1020 02431000 AVTGETMD EQU IEDQAVTD+1016 02432000 AVTGETMN EQU IEDQAVTD+1012 02433000 AVTCWTOT EQU IEDQAVTD+1008 02434000 AVTCWINT EQU IEDQAVTD+956 02435000 AVTDTRAP EQU IEDQAVTD+952 02436000 @NM00068 EQU IEDQAVTD+950 02437000 @NM00067 EQU AVTIOTR 02438000 AVTIOTRH EQU AVTIOTR 02439000 AVTIOTRE EQU AVTIOTR 02440000 @NM00066 EQU AVTSUBT 02441000 AVTSUBPT EQU AVTSUBT 02442000 AVTSUBON EQU AVTSUBT 02443000 AVTAFE30 EQU IEDQAVTD+944 02444000 AVTAFE20 EQU IEDQAVTD+940 02445000 AVTAFE10 EQU IEDQAVTD+936 02446000 AVTCWEC2 EQU IEDQAVTD+932 02447000 AVTCWPM2 EQU IEDQAVTD+928 02448000 AVTCWTS2 EQU IEDQAVTD+927 02449000 AVTCWTS1 EQU IEDQAVTD+926 02450000 AVTCWCLD EQU AVTCWFL2 02451000 AVTCWRAP EQU AVTCWFL2 02452000 @NM00065 EQU AVTCWFL2 02453000 @NM00064 EQU AVTCWFL2 02454000 @NM00063 EQU AVTCWFL2 02455000 @NM00062 EQU AVTCWFL2 02456000 @NM00061 EQU AVTCWFL2 02457000 AVTCWACT EQU AVTCWFL2 02458000 @NM00060 EQU AVTCWFL1 02459000 @NM00059 EQU AVTCWFL1 02460000 @NM00058 EQU AVTCWFL1 02461000 @NM00057 EQU AVTCWFL1 02462000 @NM00056 EQU AVTCWFL1 02463000 @NM00055 EQU AVTCWFL1 02464000 @NM00054 EQU AVTCWFL1 02465000 AVTCOMWN EQU AVTCWFL1 02466000 AVTCWEC1 EQU IEDQAVTD+920 02467000 AVTCWPM1 EQU IEDQAVTD+916 02468000 AVTCAREA EQU IEDQAVTD+912 02469000 AVTFZERO EQU IEDQAVTD+908 02470000 AVTCADDR EQU IEDQAVTD+904 02471000 AVTCOREC EQU IEDQAVTD+900 02472000 @NM00053 EQU IEDQAVTD+892 02473000 AVTCPBCB EQU IEDQAVTD+888 02474000 @NM00052 EQU IEDQAVTD+880 02475000 AVTDSIOB EQU IEDQAVTD+876 02476000 @NM00051 EQU IEDQAVTD+868 02477000 AVTCPRMB EQU IEDQAVTD+864 02478000 @NM00050 EQU IEDQAVTD+856 02479000 AVTCLOSB EQU IEDQAVTD+852 02480000 @NM00049 EQU IEDQAVTD+844 02481000 AVTACTIB EQU IEDQAVTD+840 02482000 @NM00048 EQU IEDQAVTD+836 02483000 AVTOLTEB EQU IEDQAVTD+832 02484000 AVTOLTCH EQU AVTOLTQB+1 02485000 AVTOLTVT EQU AVTOLTQB 02486000 @NM00047 EQU AVTOPCQB+8 02487000 @NM00046 EQU AVTOPCEC+1 02488000 @NM00045 EQU AVTOPCCC 02489000 AVTOPCPO EQU AVTOPCCC 02490000 AVTOPCWA EQU AVTOPCCC 02491000 AVTOPCCH EQU AVTOPCOB+1 02492000 AVTOPCVT EQU AVTOPCOB 02493000 @NM00044 EQU AVTCKPQB+9 02494000 AVTCKPTS EQU AVTCKPQB+8 02495000 @NM00043 EQU AVTCKPEC+1 02496000 @NM00042 EQU AVTCKPCC 02497000 AVTCKPPO EQU AVTCKPCC 02498000 AVTCKPWA EQU AVTCKPCC 02499000 AVTCKPCH EQU AVTCKPTB+1 02500000 AVTCKPVT EQU AVTCKPTB 02501000 @NM00041 EQU IEDQAVTD+796 02502000 AVTBFRTB EQU IEDQAVTD+792 02503000 @NM00040 EQU IEDQAVTD+788 02504000 AVTSELCH EQU IEDQAVTD+785 02505000 AVTBFRTN EQU AVTBFRFG 02506000 AVTBFREB EQU IEDQAVTD+780 02507000 AVTTIMQ EQU IEDQAVTD+776 02508000 @NM00039 EQU IEDQAVTD+772 02509000 AVTIMQPS EQU IEDQAVTD+768 02510000 AVTINOUT EQU IEDQAVTD+766 02511000 AVTREFTM EQU IEDQAVTD+764 02512000 @NM00038 EQU IEDQAVTD+752 02513000 AVTDELYB EQU IEDQAVTD+748 02514000 AVTOCQPT EQU IEDQAVTD+744 02515000 AVTTSOPT EQU IEDQAVTD+740 02516000 AVTSUPPT EQU IEDQAVTD+736 02517000 AVTCBQCB EQU IEDQAVTD+732 02518000 AVTMSGS EQU IEDQAVTD+729 02519000 @NM00037 EQU AVTSYSER 02520000 @NM00036 EQU AVTSYSER 02521000 @NM00035 EQU AVTSYSER 02522000 @NM00034 EQU AVTSYSER 02523000 @NM00033 EQU AVTSYSER 02524000 @NM00032 EQU AVTSYSER 02525000 AVTCMAXN EQU AVTSYSER 02526000 AVTCMINN EQU AVTSYSER 02527000 AVT2260L EQU IEDQAVTD+724 02528000 AVTABEPL EQU AVTADBUF 02529000 AVTHFF EQU AVTCLRHI+2 02530000 @NM00031 EQU AVTCLRHI 02531000 AVTCCLNK EQU AVTCRELE+5 02532000 AVTCCPRI EQU AVTCRELE+4 02533000 AVTCCQCB EQU AVTCCELE+1 02534000 AVTCCKEY EQU AVTCCELE 02535000 AVTDELAD EQU IEDQAVTD+704 02536000 AVTDELEM EQU IEDQAVTD+700 02537000 AVTBSX EQU AVTCKLNK 02538000 AVTOPETR EQU AVTHG01 02539000 @NM00030 EQU AVTCKBYT 02540000 AVTCKONQ EQU AVTCKBYT 02541000 @NM00029 EQU AVTCKBYT 02542000 @NM00028 EQU AVTCKBYT 02543000 @NM00027 EQU AVTCKBYT 02544000 @NM00026 EQU AVTCKBYT 02545000 @NM00025 EQU AVTCKBYT 02546000 @NM00024 EQU AVTCKBYT 02547000 AVTOPERT EQU IEDQAVTD+690 02548000 AVTOPXCL EQU IEDQAVTD+688 02549000 AVTOPERL EQU IEDQAVTD+687 02550000 @NM00023 EQU IEDQAVTD+686 02551000 AVTCKTIM EQU IEDQAVTD+684 02552000 AVTCKELV EQU IEDQAVTD+682 02553000 AVTCPRCD EQU IEDQAVTD+681 02554000 AVTWARMN EQU AVTCKELF 02555000 AVTCRTLN EQU AVTCKELF 02556000 AVTCPIPN EQU AVTCKELF 02557000 AVTCCLCN EQU AVTCKELF 02558000 AVTCINCN EQU AVTCKELF 02559000 @NM00022 EQU AVTCKELF 02560000 AVTCMCPN EQU AVTCKELF 02561000 AVTNQBCK EQU AVTCKELF 02562000 AVTCKQAD EQU IEDQAVTD+677 02563000 AVTSCBSZ EQU IEDQAVTD+676 02564000 @NM00021 EQU IEDQAVTD+672 02565000 AVTCKELE EQU IEDQAVTD+668 02566000 @NM00020 EQU AVTCKPEL+8 02567000 AVTCKRLK EQU AVTCKPEL+5 02568000 AVTCKRPR EQU AVTCKPEL+4 02569000 AVTCKRMQ EQU AVTCKRMV+1 02570000 AVTCKRKY EQU AVTCKRMV 02571000 AVTHK EQU IEDQAVTD+648 02572000 AVTHI EQU IEDQAVTD+644 02573000 AVTIOT EQU IEDQAVTD+640 02574000 AVTNX EQU IEDQAVTD+636 02575000 AVTTONE EQU IEDQAVTD+632 02576000 AVTA3TL EQU IEDQAVTD+628 02577000 AVTDMECB EQU IEDQAVTD+624 02578000 AVTABEND EQU IEDQAVTD+618 02579000 AVTPLCBN EQU IEDQAVTD+616 02580000 @NM00019 EQU AVTSAVTP+1 02581000 @NM00018 EQU AVTSAVTF 02582000 AVTSNA EQU AVTSAVTF 02583000 AVTONSNA EQU AVTSAVTF 02584000 AVTVTMCP EQU AVTSAVTF 02585000 @NM00017 EQU IEDQAVTD+608 02586000 AVTCMBSS EQU IEDQAVTD+604 02587000 AVTRCV EQU IEDQAVTD+600 02588000 AVTSEND EQU IEDQAVTD+596 02589000 AVTCSCH EQU IEDQAVTD+592 02590000 AVTQ1 EQU IEDQAVTD+588 02591000 AVTE7 EQU IEDQAVTD+584 02592000 AVTHB EQU IEDQAVTD+580 02593000 AVTR1 EQU IEDQAVTD+576 02594000 AVTBZ EQU IEDQAVTD+572 02595000 AVTEZ EQU IEDQAVTD+568 02596000 AVTEC EQU IEDQAVTD+564 02597000 AVTEW EQU IEDQAVTD+560 02598000 AVTNDIAL EQU AVTSCOPT 02599000 AVTN2741 EQU AVTSCOPT 02600000 AVTCONCO EQU AVTSCOPT 02601000 AVTCONC EQU AVTSCOPT 02602000 AVTCMBUF EQU AVTSCOPT 02603000 AVTAPDMP EQU AVTSCOPT 02604000 @NM00016 EQU AVTSCOPT 02605000 AVTHA EQU AVTDISP 02606000 AVTEA EQU IEDQAVTD+548 02607000 AVTAX EQU IEDQAVTD+544 02608000 AVTA3 EQU IEDQAVTD+540 02609000 AVTGD EQU IEDQAVTD+536 02610000 AVTAL EQU IEDQAVTD+532 02611000 AVTOLTST EQU AVTHG02 02612000 AVTE8 EQU IEDQAVTD+524 02613000 AVTUI EQU IEDQAVTD+520 02614000 AVTCOMPT EQU IEDQAVTD+516 02615000 AVTCRSRF EQU IEDQAVTD+512 02616000 @NM00015 EQU IEDQAVTD+508 02617000 AVTKA02 EQU IEDQAVTD+504 02618000 AVTOPTPT EQU IEDQAVTD+500 02619000 AVTPCBPT EQU IEDQAVTD+496 02620000 @NM00014 EQU AVTECB1 02621000 AVTCOMP EQU AVTECB1 02622000 @NM00013 EQU AVTECB1 02623000 AVTOPECA EQU IEDQAVTD+488 02624000 AVTOLECA EQU IEDQAVTD+484 02625000 AVTCKECA EQU IEDQAVTD+480 02626000 AVTCWECA EQU IEDQAVTD+476 02627000 AVTCWTCB EQU IEDQAVTD+472 02628000 AVTOLTCB EQU IEDQAVTD+468 02629000 AVTOCTCB EQU IEDQAVTD+464 02630000 AVTCKTCB EQU IEDQAVTD+460 02631000 AVTAS EQU IEDQAVTD+456 02632000 AVTNOLBF EQU IEDQAVTD+454 02633000 AVTNCKPR EQU IEDQAVTD+453 02634000 AVTCIB EQU IEDQAVTD+452 02635000 AVTSPLPT EQU IEDQAVTD+448 02636000 AVTMVBFR EQU IEDQAVTD+444 02637000 AVTSBTA EQU IEDQAVTD+440 02638000 AVTRARTN EQU IEDQAVTD+436 02639000 AVTBSCAN EQU IEDQAVTD+432 02640000 AVTRDYA EQU IEDQAVTD+428 02641000 AVTDISTR EQU IEDQAVTD+420 02642000 AVTPARM3 EQU IEDQAVTD+416 02643000 @NM00012 EQU AVTPKF 02644000 @NM00011 EQU AVTPKF 02645000 @NM00010 EQU AVTPKF 02646000 AVTFTCHF EQU AVTPKF 02647000 @NM00009 EQU AVTPKF 02648000 @NM00008 EQU AVTPKF 02649000 @NM00007 EQU AVTPKF 02650000 @NM00006 EQU AVTPKF 02651000 AVTPARM EQU IEDQAVTD+408 02652000 AVTEXS2A EQU IEDQAVTD+402 02653000 AVTEXA2S EQU IEDQAVTD+396 02654000 AVTOCGET EQU IEDQAVTD+392 02655000 AVTCKAVT EQU @NM00004+1 02656000 @NM00005 EQU AVTCKFLG 02657000 AVTCKHLT EQU AVTCKFLG 02658000 AVTCKREQ EQU AVTCKFLG 02659000 AVTCKENV EQU AVTCKFLG 02660000 AVTCKNAC EQU AVTCKFLG 02661000 AVTCKTAC EQU AVTCKFLG 02662000 AVTBUENT EQU IEDQAVTD+386 02663000 @NM00003 EQU IEDQAVTD+385 02664000 AVTFULLT EQU AVTBUFSW 02665000 AVTUNCON EQU AVTBUFSW 02666000 @NM00002 EQU AVTBUFSW 02667000 AVTBUFTR EQU AVTREADD 02668000 AVTREADY EQU IEDQAVTD+376 02669000 AVTRACE EQU IEDQAVTD+372 02670000 AVTTCB EQU IEDQAVTD+368 02671000 AVTPASWD EQU IEDQAVTD+360 02672000 AVTCTLCH EQU IEDQAVTD+352 02673000 AVTDOUBL EQU IEDQAVTD+344 02674000 AVTDOUBX EQU IEDQAVTD+336 02675000 AVTDPARM EQU IEDQAVTD+332 02676000 AVTCSTCS EQU IEDQAVTD+328 02677000 AVTDLQ EQU AVTSAVEX+32 02678000 @NM00001 EQU AVTSAVEX 02679000 AVTSAVE4 EQU IEDQAVTD+216 02680000 AVTSAVE3 EQU IEDQAVTD+144 02681000 AVTSAVE2 EQU IEDQAVTD+72 02682000 AVTSAVE1 EQU IEDQAVTD 02683000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02684000 @RC00280 EQU @RC00271 02685000 @RC00275 EQU @RC00271 02686000 @RC00313 EQU @RC00308 02687000 @RC00339 EQU @RC00326 02688000 @RC00334 EQU @RC00326 02689000 @RC00329 EQU @RC00326 02690000 @RC00375 EQU @PB00004 02691000 @RC00370 EQU @PB00004 02692000 @RC00390 EQU @PB00004 02693000 @RC00385 EQU @PB00004 02694000 @RC00479 EQU @RC00478 02695000 @PB00005 EQU @PB00006 02696000 @RC00340 EQU @RC00339 02697000 @PB00003 EQU @PB00005 02698000 @RF00350 EQU @PB00003 02699000 @ENDDATA EQU * 02700000 END IGCMY10D,(C'PLS1541',0701,78095) 02701000