TITLE 'IGCFF10D, ACTIVATE CHECKPOINT/RESTART MODULE' 00001000 IGCFF10D CSECT , 01S0001 00002000 @PROLOG BALR @12,0 01S0001 00003000 @PSTART DS 0H 01S0001 00004000 USING @PSTART,@12 01S0001 00005000 * /* 00006000 IGCFF10D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00007000 * ROPCAVT=RPARM; /* SET THE BASE POINTER FOR THE 00008000 * OPERATOR CONTROL ADDRESS 02S1042 00009000 * VECTOR TABLE */ 00010000 LR ROPCAVT,RPARM 02S1042 00011000 * RFY 02S1043 00012000 * RPARM UNRSTD; /* RELEASE THE PARAMETER REGISTER 00013000 * FOR USE BY THE COMPILER */ 00014000 * RWRKAREA=OPCWORK; /* SET THE BASE REGISTER TO BE 00015000 * USED FOR ADDRESSING AUTOMATIC 00016000 * DATA WITH THE POINTER TO THE 00017000 * OPERATOR CONTROL RESIDENT WORK 00018000 * AREA */ 00019000 L RWRKAREA,OPCWORK(,ROPCAVT) 02S1044 00020000 * GEN REFS(RWRKAREA) NOSETS; 02S1045 00021000 * /* 00022000 USING @DATD,RWRKAREA INFORM THE ASSEMBLER OF THE 00023000 * BASE REGISTER TO BE USED FOR 00024000 * ADDRESSING AUTOMATIC DATA 00025000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA POINTER 00026000 * REGISTER WITH THE POINTER TO 00027000 * THE OPERATOR CONTROL SAVE AREA*/ 00028000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S1046 00029000 * 02S1047 00030000 * /*****************************************************************/ 00031000 * /* */ 00032000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00033000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00034000 * /* */ 00035000 * /*****************************************************************/ 00036000 * 02S1047 00037000 * 03S1047 00038000 * /*****************************************************************/ 00039000 * /* */ 00040000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00041000 * /* */ 00042000 * /*****************************************************************/ 00043000 * 03S1047 00044000 * DO; 03S1047 00045000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00046000 * TCAM ADDRESS VECTOR TABLE */ 00047000 L RAVT,OPCAVTPT(,ROPCAVT) 03S1048 00048000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00049000 * OPERATOR CONTROL ELEMENT */ 00050000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S1049 00051000 * FLAGS=''B; /* INITIALIZE FLAG BYTE */ 00052000 XC FLAGS(4),FLAGS 03S1050 00053000 * END; 03S1051 00054000 * IF OCSWITCH^=OCRSTART THEN /* IF NOT A RESTART OPCE */ 00055000 CLI OCSWITCH(ROPCE),X'F1' 02S1052 00056000 BE @RF01052 02S1052 00057000 * IF OCSWITCH^=OCACTLK THEN /* IF NOT AN ACTLINK OPCE */ 00058000 CLI OCSWITCH(ROPCE),X'50' 02S1053 00059000 BE @RF01053 02S1053 00060000 * DO; /* PROCESS RESPONSES TO COMMANDS 00061000 * SENT AS PART OF 3705 RESTART */ 00062000 * 03S1055 00063000 * /*****************************************************************/ 00064000 * /* */ 00065000 * /* PROCESS.RESPONSE: THIS SEGMENT PROCESSES THE RESPONSES TO THE */ 00066000 * /* RESTART COMMANDS. NO ERROR PROCESSING IS PERFORMED. THE UNITS */ 00067000 * /* CONTAINING THE OPCE AND ATTACHED RU ARE FREED AND TRANSFER OF */ 00068000 * /* CONTROL IS SET UP FOR IGC0010D. */ 00069000 * /* */ 00070000 * /*****************************************************************/ 00071000 * 03S1055 00072000 * RFY 03S1055 00073000 * REG00 RSTD; 03S1055 00074000 * RFY 03S1056 00075000 * RPARM RSTD; 03S1056 00076000 * IF OCSWITCH^=OCSND3 THEN /* IF NOT REPLACE DEVICE RECORD 00077000 * RESPONSE */ 00078000 CLI OCSWITCH(ROPCE),X'F4' 03S1057 00079000 BE @RF01057 03S1057 00080000 * IF OCSWITCH=OCSND1|OCSWITCH=OCSND2 THEN/* IF BHSET OR MODEM 00081000 * SPEED SELECT RESPONSE (FID0) */ 00082000 CLI OCSWITCH(ROPCE),X'F2' 03S1058 00083000 BE @RT01058 03S1058 00084000 CLI OCSWITCH(ROPCE),X'F3' 03S1058 00085000 BNE @RF01058 03S1058 00086000 @RT01058 DS 0H 03S1059 00087000 * REG00=2; /* SET TO DECREMENT OPCADGOT BY 2 00088000 * FOR THE OPCE AND RU */ 00089000 LA REG00,2 03S1059 00090000 * ELSE /* ELSE FID1 RESPONSE */ 00091000 * REG00=1; /* SET TO DECREMENT OPCADGOT BY 1 00092000 * FOR THE OPCE */ 00093000 B @RC01058 03S1060 00094000 @RF01058 LA REG00,1 03S1060 00095000 * ELSE /* REPLACE DEVICE RECORD RESPONSE*/ 00096000 * REG00=OCDVRDCT; /* SET TO DECREMENT OPCADGOT BY 00097000 * THE COUNT OF UNITS WHICH WERE 00098000 * NECESSARY TO BUILD THE OPCE 00099000 * AND THE REPLACE DEVICE RECORD 00100000 * RU */ 00101000 B @RC01057 03S1061 00102000 @RF01057 LH REG00,OCDVRDCT(,ROPCE) 03S1061 00103000 * CALL DECRCT; /* DECREMENT OPCADGOT AND INIT. 00104000 * REDRIVE ELEMENT IF R/D OPCE'S 00105000 * ON OPCBUFWT CHAIN */ 00106000 @RC01057 L @15,OPCDECR(,ROPCAVT) 03S1062 00107000 BALR @14,@15 03S1062 00108000 * RPARM=ROPCE; /* POINT TO CURRENT OPCE */ 00109000 LR RPARM,ROPCE 03S1063 00110000 * CALL FREEBUFF; /* FREE THE OPCE AND ANY ATTACHED 00111000 * RU'S */ 00112000 L @15,OPCFREBF(,ROPCAVT) 03S1064 00113000 BALR @14,@15 03S1064 00114000 * OPCMODID=CNTLMOD; /* SET TO XCTL TO IGC0010D */ 00115000 MVC OPCMODID(2,ROPCAVT),CNTLMOD 03S1065 00116000 * RFY 03S1066 00117000 * REG00 UNRSTD; 03S1066 00118000 * RFY 03S1067 00119000 * RPARM UNRSTD; 03S1067 00120000 * END; 02S1068 00121000 * ELSE /* THIS IS AN ACTLINK, */ 00122000 * DO; /* START CKPTR/RTRT PROCESS */ 00123000 B @RC01053 02S1069 00124000 @RF01053 DS 0H 02S1070 00125000 * 03S1070 00126000 * /*****************************************************************/ 00127000 * /* */ 00128000 * /* PROCESS.START: THIS SEGMENT STARTS THE RESTART PROCESSING BY */ 00129000 * /* BUILDING THE RESTART OPCE AND PASSING IT TO CHECKPOINT. */ 00130000 * /* */ 00131000 * /*****************************************************************/ 00132000 * 03S1070 00133000 * OCSWITCH=OCRSTART; /* SET AS RESTART OPCE */ 00134000 MVI OCSWITCH(ROPCE),X'F1' 03S1070 00135000 * OCOPTCDE=OCMODIFY; /* SET CMND CODE */ 00136000 MVI OCOPTCDE(ROPCE),X'44' 03S1071 00137000 * OCRESNUM=''B; /* INITIALIZE RESOURCE NUMBER */ 00138000 SLR @05,@05 03S1072 00139000 STH @05,OCRESNUM(,ROPCE) 03S1072 00140000 * OCTRMTBL=OCPTRSAV->OCTRMTBL; /* TTCIN OF NCP */ 00141000 L @11,OCPTRSAV(,ROPCE) 03S1073 00142000 LH @11,OCTRMTBL(,@11) 03S1073 00143000 N @11,@CF03255 03S1073 00144000 STH @11,OCTRMTBL(,ROPCE) 03S1073 00145000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MODULE 00146000 * FROM CHECKPOINT */ 00147000 MVC OCWTG(2,ROPCE),THISMOD 03S1074 00148000 * OCREDRVE=OFF; /* INSURE REDRIVE FLAG OFF */ 00149000 NI OCREDRVE(ROPCE),B'11101111' 03S1075 00150000 * OPCMODID=CKPTMOD; /* SET TO XCTL TO CHECKPOINT */ 00151000 MVC OPCMODID(2,ROPCAVT),CKPTMOD 03S1076 00152000 * END; 02S1077 00153000 * ELSE /* THIS IS A RESTART OPCE, */ 00154000 * DO; /* SEND OUT RESTART COMMANDS */ 00155000 B @RC01052 02S1078 00156000 @RF01052 DS 0H 02S1079 00157000 * 03S1079 00158000 * /*****************************************************************/ 00159000 * /* */ 00160000 * /* PROCESS.SENDER: THIS SEGMENT SENDS THE RESTART COMMANDS TO THE*/ 00161000 * /* NCP. */ 00162000 * /* */ 00163000 * /*****************************************************************/ 00164000 * 03S1079 00165000 * IF OCREDRVE=OFF THEN /* IF NOT REDRIVE */ 00166000 TM OCREDRVE(ROPCE),B'00010000' 03S1079 00167000 BNZ @RF01079 03S1079 00168000 * DO; /* DETERMINE NUMBER OF COMMANDS 00169000 * TO SEND AND, IF ANY, GET AS 00170000 * MANY UNITS AS POSSIBLE IN 00171000 * WHICH TO BUILD OPCE'S AND RU'S 00172000 * AND HANG OFF OCUNIT */ 00173000 * 04S1081 00174000 * /*****************************************************************/ 00175000 * /* */ 00176000 * /* PROCESS.SENDER.CHKR: THIS SEGMENT DETERMINES THE NUMBER OF */ 00177000 * /* RESTART COMMANDS TO BE SENT BASED ON THE SETTINGS OF THE BITS */ 00178000 * /* IN THE RESOURCE RECORD. IF THE RESOURCE RECORD NUMBER IS 0 */ 00179000 * /* THEN RESTART PROCESSING IS OVER FOR THIS 3705 AND RESTART OPCE*/ 00180000 * /* IS RESET OF RETURN TO IGCFJ10D TO START ACTLINK PROCESSING. */ 00181000 * /* */ 00182000 * /*****************************************************************/ 00183000 * 04S1081 00184000 * IF OCRESNUM^=0 THEN /* IF RESTART PROCESSING NOT OVER*/ 00185000 LH @05,OCRESNUM(,ROPCE) 04S1081 00186000 N @05,@CF03255 04S1081 00187000 LTR @05,@05 04S1081 00188000 BZ @RF01081 04S1081 00189000 * DO; /* DETERMINE NUMBER OF UNITS TO 00190000 * SEND RESTART COMMANDS FOR THIS 00191000 * RESOURCE */ 00192000 * RCKPREC=NRACURR; /* SET BASE FOR CKPT RESOURCE 00193000 * RECORD @OZ35856*/ 00194000 L @11,OCRSTGTM(,ROPCE) 04S1083 00195000 L RCKPREC,NRACURR(,@11) 04S1083 00196000 * GETNO=''B; /* INIT. CTR. FOR NUMBER OF UNITS 00197000 * NEEDED */ 00198000 SLR GETNO,GETNO 04S1084 00199000 * IF CNRFBHS=ON|CNRFBHSC=ON THEN/* IF BHSET FLAG ON @YM07713*/ 00200000 TM CNRFBHS(RCKPREC),B'11000000' 04S1085 00201000 BZ @RF01085 04S1085 00202000 * GETNO=GETNO+2; /* FID0 COMMAND, NEED TWO UNITS 00203000 * FOR OPCE AND RU */ 00204000 AL GETNO,@CF00071 04S1086 00205000 * IF CNRFSSP=ON THEN /* IF SERVICE SEEK PAUSE */ 00206000 @RF01085 TM CNRFSSP(RCKPREC),B'00100000' 04S1087 00207000 BNO @RF01087 04S1087 00208000 * GETNO=GETNO+1; /* NEED 1 UNIT */ 00209000 AL GETNO,@CF00066 04S1088 00210000 * IF CNRFNPL=ON THEN /* IF CHANGE NEG. POLL LIMIT FLAG 00211000 * ON */ 00212000 @RF01087 TM CNRFNPL(RCKPREC),B'00010000' 04S1089 00213000 BNO @RF01089 04S1089 00214000 * GETNO=GETNO+1; /* NEED 1 UNIT */ 00215000 AL GETNO,@CF00066 04S1090 00216000 * IF CNRFCSL=ON THEN /* IF CHANGE SESSION LIMIT FLAG 00217000 * ON */ 00218000 @RF01089 TM CNRFCSL(RCKPREC),B'00001000' 04S1091 00219000 BNO @RF01091 04S1091 00220000 * GETNO=GETNO+1; /* NEED 1 UNIT */ 00221000 AL GETNO,@CF00066 04S1092 00222000 * IF CNRFCTL=ON THEN /* IF CHANGE TRANSMISSION LIMIT 00223000 * FLAG ON */ 00224000 @RF01091 TM CNRFCTL(RCKPREC),B'00000100' 04S1093 00225000 BNO @RF01093 04S1093 00226000 * GETNO=GETNO+1; /* NEED 1 UNIT */ 00227000 AL GETNO,@CF00066 04S1094 00228000 * IF CNRFMSS=ON THEN /* IF MODEM SPEED SELECT FLAG ON */ 00229000 @RF01093 TM CNRFMSS(RCKPREC),B'00000010' 04S1095 00230000 BNO @RF01095 04S1095 00231000 * GETNO=GETNO+2; /* NEED 2 UNITS */ 00232000 AL GETNO,@CF00071 04S1096 00233000 * IF CNRFRDR=ON THEN /* IF DEVICE RECORD FLAG ON */ 00234000 @RF01095 TM CNRFRDR(RCKPREC),B'00000001' 04S1097 00235000 BNO @RF01097 04S1097 00236000 * DO; /* DETERMINE NUMBER OF UNITS TO 00237000 * BUILD REPLACE DEVICE RECORD RU*/ 00238000 * 05S1099 00239000 * /*****************************************************************/ 00240000 * /* */ 00241000 * /* PROCESS.SENDER.CALCRDR: THIS SEGMENT CALULATES THE NUMBER OF */ 00242000 * /* UNITS NEEDED TO BUILD THE CHANGE DEVICE RECORD OPCE-PACKED RU.*/ 00243000 * /* */ 00244000 * /*****************************************************************/ 00245000 * 05S1099 00246000 * RFY 05S1099 00247000 * IEDPRUQD BASED(ADDR(CNRDEVRC));/* BASE PACKED RU STRUCTURE ON 00248000 * ADDR OF DEVICE RECORD IN 05S1099 00249000 * RESOURCE RECORD */ 00250000 * COUNTER=2; /* INIT TO MIN NUM OF UNITS TO 00251000 * BUILD FID0 CMND */ 00252000 LA COUNTER,2 05S1100 00253000 * DO SIZE=PRUDATCT BY(-AVTKEYLE) WHILE(SIZE>AVTKEYLE);/* LOOP WHILE 00254000 * SIZE IS STILL GREATER THAN 00255000 * TCAM UNIT LENGTH */ 00256000 LH SIZE,PRUDATCT+19(,RCKPREC) 05S1101 00257000 B @DE01101 05S1101 00258000 @DL01101 DS 0H 05S1102 00259000 * COUNTER=COUNTER+1; /* INCREMENT NUM UNITS NEEDED */ 00260000 AL COUNTER,@CF00066 05S1102 00261000 * END; 05S1103 00262000 LH @09,AVTKEYLE(,RAVT) 05S1103 00263000 LCR @09,@09 05S1103 00264000 ALR SIZE,@09 05S1103 00265000 @DE01101 CH SIZE,AVTKEYLE(,RAVT) 05S1103 00266000 BH @DL01101 05S1103 00267000 * GETNO=GETNO+COUNTER; /* CALC NUM UNITS NEEDED FOR ALL 00268000 * CMNDS */ 00269000 ALR GETNO,COUNTER 05S1104 00270000 * OCDVRDCT=COUNTER; /* SAVE NUM UNITS NEEDED FOR 00271000 * DEVICE RECORD CMND IN RESTART 00272000 * OPCE */ 00273000 STH COUNTER,OCDVRDCT(,ROPCE) 05S1105 00274000 * RFY 05S1106 00275000 * IEDPRUQD BASED; 05S1106 00276000 * END; 04S1107 00277000 * OCBUFNED=GETNO; /* SET NUMBER OF BUFFER UNITS 00278000 * NEEDED */ 00279000 @RF01097 STH GETNO,OCBUFNED(,ROPCE) 04S1108 00280000 * OCBUFGOT=''B; /* SET NUMBER OF BUFFER UNITS GOT*/ 00281000 SLR @11,@11 04S1109 00282000 STH @11,OCBUFGOT(,ROPCE) 04S1109 00283000 * END; 04S1110 00284000 * ELSE /* FINISHED SENDING RESTART 04S1111 00285000 * COMMANDS, */ 00286000 * DO; /* SET UP CURRENT OPCE AS ACTLINK 00287000 * OPCE AND XCTL TO IGCFJ10D TO 00288000 * BUILD ACTLINKS FOR ALL LINES 00289000 * WITH REMEMBER BIT ON */ 00290000 B @RC01081 04S1111 00291000 @RF01081 DS 0H 04S1112 00292000 * OUTFLAG=ON; /* SET FLAG TO BYPASS REMAINDER 00293000 * OF PROCESSING */ 00294000 LA @05,1 04S1112 00295000 ST @05,OUTFLAG 04S1112 00296000 * OCSWITCH=''B; /* SET VALUE OF 0 TO INDICATE TO 00297000 * IGCFJ10D THAT OPCE IS FROM 00298000 * RESTART */ 00299000 MVI OCSWITCH(ROPCE),X'00' 04S1113 00300000 * OPCMODID=RPNCPMOD; /* SET TO XCTL TO IGCFJ10D */ 00301000 MVC OPCMODID(2,ROPCAVT),RPNCPMOD 04S1114 00302000 * END; 04S1115 00303000 * IF OUTFLAG=OFF THEN /* IF COMMANDS TO BE SENT, */ 00304000 @RC01081 L @09,OUTFLAG 03S1116 00305000 LTR @09,@09 03S1116 00306000 BNZ @RF01116 03S1116 00307000 * DO; /* GET AS MANY UNITS AS POSSIBLE 00308000 * TO START BUILDING THOSE CMNDS */ 00309000 * 04S1118 00310000 * /*****************************************************************/ 00311000 * /* */ 00312000 * /* PROCESS.SENDER.GETBUFS: THIS SEGMENT DETERMINES IF ANY UNITS */ 00313000 * /* MAY BE OBTAINED, AND IF SO, HOW MANY, AND THEN GETS THEM AND */ 00314000 * /* ATTACHES THEM TO THE REDRIVE OPCE */ 00315000 * /* */ 00316000 * /*****************************************************************/ 00317000 * 04S1118 00318000 * IF OPCADGOT<(AVTNOLBF/2) THEN /* IF ACT/DEACT HAS LT 50% */ 00319000 LA @11,2 04S1118 00320000 LH @05,AVTNOLBF(,RAVT) 04S1118 00321000 LR @06,@05 04S1118 00322000 SRDA @06,32 04S1118 00323000 DR @06,@11 04S1118 00324000 LH @06,OPCADGOT(,ROPCAVT) 04S1118 00325000 N @06,@CF03255 04S1118 00326000 CR @07,@06 04S1118 00327000 BNH @RF01118 04S1118 00328000 * DO; /* THEN */ 00329000 * IF(OCBUFNED+OPCADGOT)>(AVTNOLBF/2) THEN/* IF NO NEED PLUS */ 00330000 LH @07,OCBUFNED(,ROPCE) 04S1120 00331000 N @07,@CF03255 04S1120 00332000 LH @06,OPCADGOT(,ROPCAVT) 04S1120 00333000 N @06,@CF03255 04S1120 00334000 ALR @06,@07 04S1120 00335000 LR @08,@05 04S1120 00336000 SRDA @08,32 04S1120 00337000 DR @08,@11 04S1120 00338000 CR @06,@09 04S1120 00339000 BNH @RF01120 04S1120 00340000 * DO; /* NO A/D ALREADY HAS IS GT 50% 00341000 * THEN */ 00342000 * GETNO=((AVTNOLBF/2)-OPCADGOT);/* SET TO GET UP TO 50% */ 00343000 LH @06,AVTNOLBF(,RAVT) 04S1122 00344000 SRDA @06,32 04S1122 00345000 DR @06,@11 04S1122 00346000 LH GETNO,OPCADGOT(,ROPCAVT) 04S1122 00347000 N GETNO,@CF03255 04S1122 00348000 SLR @07,GETNO 04S1122 00349000 LR GETNO,@07 04S1122 00350000 * OCBUFNED=OCBUFNED-GETNO;/* SET NO STILL NEED =REMAINDER */ 00351000 LH @11,OCBUFNED(,ROPCE) 04S1123 00352000 N @11,@CF03255 04S1123 00353000 SLR @11,GETNO 04S1123 00354000 STH @11,OCBUFNED(,ROPCE) 04S1123 00355000 * END; 04S1124 00356000 * ELSE /* ELSE GET ALL NEEDED */ 00357000 * DO; 04S1125 00358000 B @RC01120 04S1125 00359000 @RF01120 DS 0H 04S1126 00360000 * GETNO=OCBUFNED; /* SET TO GET ALL */ 00361000 LH GETNO,OCBUFNED(,ROPCE) 04S1126 00362000 N GETNO,@CF03255 04S1126 00363000 * OCBUFNED=0; /* SET NO STILL NEED=0 */ 00364000 SLR @11,@11 04S1127 00365000 STH @11,OCBUFNED(,ROPCE) 04S1127 00366000 * END; 04S1128 00367000 * OCBUFGOT=GETNO; /* SET NO HAVE =NO TO GET */ 00368000 @RC01120 STH GETNO,OCBUFGOT(,ROPCE) 04S1129 00369000 * OPCADGOT=OPCADGOT+GETNO; /* INCREMENT OPCADGOT */ 00370000 LH @11,OPCADGOT(,ROPCAVT) 04S1130 00371000 N @11,@CF03255 04S1130 00372000 ALR @11,GETNO 04S1130 00373000 STH @11,OPCADGOT(,ROPCAVT) 04S1130 00374000 * END; 04S1131 00375000 * ELSE /* ELSE MUST PUT REDRIVE OPCE ON 00376000 * WAIT CHAIN AND WAIT FOR */ 00377000 * DO; /* AVAILABLE UNITS ON REDRIVE */ 00378000 B @RC01118 04S1132 00379000 @RF01118 DS 0H 04S1133 00380000 * OCWTG=THISMOD; /* SET RETURN TO THIS MODULE */ 00381000 MVC OCWTG(2,ROPCE),THISMOD 04S1133 00382000 * OCLINK=OPCBUFWT; /* GET CHAIN ANCHOR AND PUT IN 00383000 * LINK FIELD */ 00384000 L @11,OPCBUFWT(,ROPCAVT) 04S1134 00385000 ST @11,OCLINK(,ROPCE) 04S1134 00386000 * OPCBUFWT=ROPCE; /* CHAIN IN THIS REDRIVE OPCE */ 00387000 ST ROPCE,OPCBUFWT(,ROPCAVT) 04S1135 00388000 * OUTFLAG=ON; /* SET TO GET OUT */ 00389000 LA @11,1 04S1136 00390000 ST @11,OUTFLAG 04S1136 00391000 * GETNO=0; /* SET NO TO GET =0 */ 00392000 SLR GETNO,GETNO 04S1137 00393000 * OPCMODID=CNTLMOD; /* SET TO XCTL TO CONTROL MODULE */ 00394000 MVC OPCMODID(2,ROPCAVT),CNTLMOD 04S1138 00395000 * END; 04S1139 00396000 * RFY 04S1140 00397000 * RPARM RSTD; 04S1140 00398000 @RC01118 DS 0H 04S1141 00399000 * DO WHILE GETNO>0; /* LOOP TO GET UNITS */ 00400000 B @DE01141 04S1141 00401000 @DL01141 DS 0H 04S1142 00402000 * IF GETNO>255 THEN /* MUST LOOP IF NEED MORE THAN 00403000 * 255 */ 00404000 LA @11,255 04S1142 00405000 CR GETNO,@11 04S1142 00406000 BNH @RF01142 04S1142 00407000 * DO; /* THEN */ 00408000 * GETNO=GETNO-255; /* SUB 255 FROM NO TO GET */ 00409000 SLR GETNO,@11 04S1144 00410000 * RPARM=255; /* SET FOR REQUEST */ 00411000 LR RPARM,@11 04S1145 00412000 * END; 04S1146 00413000 * ELSE /* ELSE NEED ONLY ONE PASS TO GET 00414000 * ALL NEEDED */ 00415000 * DO; 04S1147 00416000 B @RC01142 04S1147 00417000 @RF01142 DS 0H 04S1148 00418000 * RPARM=GETNO; /* SET REQUEST VALUE */ 00419000 LR RPARM,GETNO 04S1148 00420000 * GETNO=0; /* AND RESET GETNO TO 0 */ 00421000 SLR GETNO,GETNO 04S1149 00422000 * END; 04S1150 00423000 * CALL ALLOCBUF; /* GET BUFF UNITS */ 00424000 @RC01142 L @15,OPCGETBF(,ROPCAVT) 04S1151 00425000 BALR @14,@15 04S1151 00426000 * RFY 04S1152 00427000 * REG09 RSTD; /* RESTRICT WORK REG */ 00428000 * REG09=ROPCE; /* SET REG TO POINT TO REDRIVE 00429000 * OPCE */ 00430000 LR REG09,ROPCE 04S1153 00431000 * DO WHILE REG09->TIC=VALTIC; /* LOOP TILL END OF CHAIN */ 00432000 B @DE01154 04S1154 00433000 @DL01154 DS 0H 04S1155 00434000 * REG09=REG09->OCUNIT; /* UPDATE PTR TO NEXT UNIT */ 00435000 L REG09,OCUNIT(,REG09) 04S1155 00436000 * END; /* AT END OF LOOP REG09 PTS TO 00437000 * LAST UNIT OR REDRIVE OPCE */ 00438000 @DE01154 TM TIC(REG09),B'00000011' 04S1156 00439000 BZ @DL01154 04S1156 00440000 * REG09->OCUNIT=RPARM; /* ATTACH GOTTEN UNITS */ 00441000 ST RPARM,OCUNIT(,REG09) 04S1157 00442000 * RFY 04S1158 00443000 * REG09 UNRSTD; /* RELEASE REG */ 00444000 * END; 04S1159 00445000 @DE01141 LTR GETNO,GETNO 04S1159 00446000 BP @DL01141 04S1159 00447000 * RFY 04S1160 00448000 * RPARM UNRSTD; 04S1160 00449000 * RCKPREC=NRACURR; /* SET BASE FOR CHKPT RESOURCE 00450000 * RECORD @21A*/ 00451000 L @11,OCRSTGTM(,ROPCE) 03S1161 00452000 L RCKPREC,NRACURR(,@11) 03S1161 00453000 * END; 03S1162 00454000 * ELSE 03S1163 00455000 * ; /* NO COMMANDS TO BE SENT */ 00456000 @RF01116 DS 0H 03S1164 00457000 * END; 03S1164 00458000 * ELSE 03S1165 00459000 * RCKPREC=NRACURR; /* REDRIVE OPCE--UNITS HUNG OFF 00460000 * OCUNIT; SET BASE FOR CHKPT 00461000 * RESOURCE RECORD @21A*/ 00462000 B @RC01079 03S1165 00463000 @RF01079 L @11,OCRSTGTM(,ROPCE) 03S1165 00464000 L RCKPREC,NRACURR(,@11) 03S1165 00465000 * IF OUTFLAG=OFF THEN /* IF COMMANDS TO BE BUILT ON 00466000 * THIS PASS */ 00467000 @RC01079 L @09,OUTFLAG 03S1166 00468000 LTR @09,@09 03S1166 00469000 BNZ @RF01166 03S1166 00470000 * DO; /* BUILD AS MANY OPCE'S AND 03S1167 00471000 * RU'S(FID0 CMNDS ONLY) AS 03S1167 00472000 * POSSIBLE */ 00473000 * 04S1168 00474000 * /*****************************************************************/ 00475000 * /* */ 00476000 * /* PROCESS.SENDER.BLDER: THIS SEGMENT LOOPS THROUGH THE 3705 */ 00477000 * /* RESOURCE CHECKPOINT RECORD AND BUILDS, FOR EACH BIT IN THE */ 00478000 * /* RECORD WHICH IS ON, THE CORRESPONDING COMMAND. */ 00479000 * /* */ 00480000 * /*****************************************************************/ 00481000 * 04S1168 00482000 * OPCAQWD=''B; /* INITIALIZE THE AQCTL PARM. 00483000 * LIST AND */ 00484000 XC OPCAQWD(12,ROPCAVT),OPCAQWD(ROPCAVT) 04S1168 00485000 * OPCAQREQ=CHAINFLG; /* INDICATE THIS WILL BE A CHAIN 00486000 * POST */ 00487000 MVI OPCAQREQ(ROPCAVT),X'B4' 04S1169 00488000 * IF CNRFSSP=ON THEN /* IF SERVICE SEEK PAUSE CKPT'D */ 00489000 TM CNRFSSP(RCKPREC),B'00100000' 04S1170 00490000 BNO @RF01170 04S1170 00491000 * DO; 04S1171 00492000 * 05S1172 00493000 * /*****************************************************************/ 00494000 * /* */ 00495000 * /* PROCESS.SENDER.BLDER.BLDCHSSP: THIS SEGMENT BUILDS A CHANGE */ 00496000 * /* SERVICE SEEK PAUSE OPCE (FID1). */ 00497000 * /* */ 00498000 * /*****************************************************************/ 00499000 * 05S1172 00500000 * IF OCBUFGOT>0 THEN /* IF UNITS LEFT */ 00501000 CLC OCBUFGOT(2,ROPCE),@CH00473 05S1172 00502000 BNH @RF01172 05S1172 00503000 * DO; /* BUILD CHANGE SEVICE SEEK PAUSE 00504000 * OPCE */ 00505000 * CMDOPCE=OCUNIT; /* SET FIRST UNIT AS CMND OPCE */ 00506000 L CMDOPCE,OCUNIT(,ROPCE) 05S1174 00507000 * CALL BLDFID1; /* BUILD A BASIC FID1 OPCE */ 00508000 BAL @14,BLDFID1 05S1175 00509000 * CMDOPCE->OCSWITCH=OCCHGSSP; /* SET CMND CODE */ 00510000 MVI OCSWITCH(CMDOPCE),X'A0' 05S1176 00511000 * CMDOPCE->OCREQVAL=CNRSSPAU; /* SET PAUSE VALUE */ 00512000 MVC OCREQVAL(1,CMDOPCE),CNRSSPAU(RCKPREC) 05S1177 00513000 * CNRFSSP=OFF; /* TURN OFF FLAG IN CASE OF 05S1178 00514000 * REDRIVE TO AVOID RESENDING */ 00515000 NI CNRFSSP(RCKPREC),B'11011111' 05S1178 00516000 * END; 05S1179 00517000 * ELSE 05S1180 00518000 * ; /* WAIT FOR REDRIVE TO GET ENOUGH 00519000 * UNITS */ 00520000 @RF01172 DS 0H 05S1181 00521000 * END; 04S1181 00522000 * IF CNRFNPL=ON THEN /* IF CHANGE NEG. POLL LIMIT 00523000 * CKPT'D */ 00524000 @RF01170 TM CNRFNPL(RCKPREC),B'00010000' 04S1182 00525000 BNO @RF01182 04S1182 00526000 * DO; 04S1183 00527000 * 05S1184 00528000 * /*****************************************************************/ 00529000 * /* */ 00530000 * /* PROCESS.SENDER.BLDER.BLDCHGNP: THIS SEGMENT BUILDS A CHANGE */ 00531000 * /* NEGATIVE POLL LIMIT OPCE (FID1). */ 00532000 * /* */ 00533000 * /*****************************************************************/ 00534000 * 05S1184 00535000 * IF OCBUFGOT>0 THEN /* IF UNITS LEFT */ 00536000 CLC OCBUFGOT(2,ROPCE),@CH00473 05S1184 00537000 BNH @RF01184 05S1184 00538000 * DO; /* BUILD CHANGE NEG POLL LIMIT */ 00539000 * CMDOPCE=OCUNIT; /* SET FIRST UNIT AS CMND OPCE */ 00540000 L CMDOPCE,OCUNIT(,ROPCE) 05S1186 00541000 * CALL BLDFID1; /* BUILD A BASIC FID1 OPCE */ 00542000 BAL @14,BLDFID1 05S1187 00543000 * CMDOPCE->OCSWITCH=OCCHGNP; /* SET CMND CODE */ 00544000 MVI OCSWITCH(CMDOPCE),X'90' 05S1188 00545000 * CMDOPCE->OCREQVAL=CNRNEGPL; /* SET NEG. POLL LIMIT */ 00546000 MVC OCREQVAL(1,CMDOPCE),CNRNEGPL(RCKPREC) 05S1189 00547000 * CNRFNPL=OFF; /* TURN OFF FLAG IN CASE OF 05S1190 00548000 * REDRIVE TO AVOID RESENDING */ 00549000 NI CNRFNPL(RCKPREC),B'11101111' 05S1190 00550000 * END; 05S1191 00551000 * ELSE 05S1192 00552000 * ; /* WAIT FOR REDRIVE TO GET ENOUGH 00553000 * UNITS */ 00554000 @RF01184 DS 0H 05S1193 00555000 * END; 04S1193 00556000 * IF CNRFCSL=ON THEN /* IF CHANGE SESSION LIMIT CKPT'D*/ 00557000 @RF01182 TM CNRFCSL(RCKPREC),B'00001000' 04S1194 00558000 BNO @RF01194 04S1194 00559000 * DO; 04S1195 00560000 * 05S1196 00561000 * /*****************************************************************/ 00562000 * /* */ 00563000 * /* PROCESS.SENDER.BLDER.BLDCHGSL: THIS SEGMENT BUILDS A CHANGE */ 00564000 * /* SESSION LIMIT OPCE (FID1). */ 00565000 * /* */ 00566000 * /*****************************************************************/ 00567000 * 05S1196 00568000 * IF OCBUFGOT>0 THEN /* IF UNITS LEFT */ 00569000 CLC OCBUFGOT(2,ROPCE),@CH00473 05S1196 00570000 BNH @RF01196 05S1196 00571000 * DO; /* BUILD CHANGE SESSION LIMIT 00572000 * OPCE */ 00573000 * CMDOPCE=OCUNIT; /* SET FIRST UNIT AS CMND OPCE */ 00574000 L CMDOPCE,OCUNIT(,ROPCE) 05S1198 00575000 * CALL BLDFID1; /* BUILD A BASIC FID1 OPCE */ 00576000 BAL @14,BLDFID1 05S1199 00577000 * CMDOPCE->OCSWITCH=OCCHGSL; /* SET CMND CODE */ 00578000 MVI OCSWITCH(CMDOPCE),X'80' 05S1200 00579000 * CMDOPCE->OCREQVAL=CNRCSLIM; /* SESSION LIMIT */ 00580000 MVC OCREQVAL(1,CMDOPCE),CNRCSLIM(RCKPREC) 05S1201 00581000 * CNRFCSL=OFF; /* TURN OFF FLAG IN CASE OF 05S1202 00582000 * REDRIVE TO AVOID RESENDING */ 00583000 NI CNRFCSL(RCKPREC),B'11110111' 05S1202 00584000 * END; 05S1203 00585000 * ELSE 05S1204 00586000 * ; /* WAIT FOR REDRIVE TO GET ENOUGH 00587000 * UNITS */ 00588000 @RF01196 DS 0H 05S1205 00589000 * END; 04S1205 00590000 * IF CNRFCTL=ON THEN /* IF BUILD TRANSMISSION LIMIT 00591000 * CKPT'D */ 00592000 @RF01194 TM CNRFCTL(RCKPREC),B'00000100' 04S1206 00593000 BNO @RF01206 04S1206 00594000 * DO; 04S1207 00595000 * 05S1208 00596000 * /*****************************************************************/ 00597000 * /* */ 00598000 * /* PROCESS.SENDER.BLDER.BLDCHGTL: THIS SEGMENT BUILDS A CHANGE */ 00599000 * /* TRANSMISSION LIMIT OPCE (FID1). */ 00600000 * /* */ 00601000 * /*****************************************************************/ 00602000 * 05S1208 00603000 * IF OCBUFGOT>0 THEN /* IF UNITS LEFT */ 00604000 CLC OCBUFGOT(2,ROPCE),@CH00473 05S1208 00605000 BNH @RF01208 05S1208 00606000 * DO; /* BUILD CHANGE TRANSMISSION 00607000 * LIMIT OPCE */ 00608000 * CMDOPCE=OCUNIT; /* SET FIRST UNIT AS CMD OPCE */ 00609000 L CMDOPCE,OCUNIT(,ROPCE) 05S1210 00610000 * CALL BLDFID1; /* BUILD A BASIC FID1 OPCE */ 00611000 BAL @14,BLDFID1 05S1211 00612000 * CMDOPCE->OCSWITCH=OCCHGTL; /* SET CMND CODE */ 00613000 MVI OCSWITCH(CMDOPCE),X'B0' 05S1212 00614000 * CMDOPCE->OCREQVAL=CNRCTLIM; /* TRANSMISSION LIMIT */ 00615000 MVC OCREQVAL(1,CMDOPCE),CNRCTLIM(RCKPREC) 05S1213 00616000 * CNRFCTL=OFF; /* TURN OFF FLAG IN CASE OF 05S1214 00617000 * REDRIVE TO AVOID RESENDING */ 00618000 NI CNRFCTL(RCKPREC),B'11111011' 05S1214 00619000 * END; 05S1215 00620000 * ELSE 05S1216 00621000 * ; /* WAIT FOR REDRIVE TO GET ENOUGH 00622000 * UNITS */ 00623000 @RF01208 DS 0H 05S1217 00624000 * END; 04S1217 00625000 * IF CNRFBHS=ON|CNRFBHSC=ON THEN /* IF BHSET CKPT'D @YM07411*/ 00626000 @RF01206 TM CNRFBHS(RCKPREC),B'11000000' 04S1218 00627000 BZ @RF01218 04S1218 00628000 * DO; 04S1219 00629000 * 05S1220 00630000 * /*****************************************************************/ 00631000 * /* */ 00632000 * /* PROCESS.SENDER.BLDER.BLDBHS: THIS SEGMENT BUILDS A BLOCK */ 00633000 * /* HANDLER SET OPCE - PACKED RU PAIR (FID0). */ 00634000 * /* */ 00635000 * /*****************************************************************/ 00636000 * 05S1220 00637000 * RFY 05S1220 00638000 * IEDPRUQD BASED(OCUNIT); /* BASE PACKED RU ON OCUNIT OF 00639000 * CMD OPCE */ 00640000 * IF OCBUFGOT>1 THEN /* IF ENOUGH UNITS LEFT */ 00641000 CLC OCBUFGOT(2,ROPCE),@CH00066 05S1221 00642000 BNH @RF01221 05S1221 00643000 * DO; 05S1222 00644000 * RFY 05S1223 00645000 * IEDQOPCE BASED(CMDOPCE); /* BASE ON PTR TO CMND OPCE */ 00646000 * CMDOPCE=ROPCE->OCUNIT; /* SET FIRST UNIT AS CMND OPCE */ 00647000 L CMDOPCE,OCUNIT(,ROPCE) 05S1224 00648000 * CALL BLDFID0; /* BUILD BASIC FID0 */ 00649000 BAL @14,BLDFID0 05S1225 00650000 * BDUCMND=CD0CTRL; /* SET BDU COMMAND CODE */ 00651000 L @09,OCUNIT(,CMDOPCE) 05S1226 00652000 LA @11,12 05S1226 00653000 ALR @11,@09 05S1226 00654000 MVI BDUCMND(@11),X'08' 05S1226 00655000 * BDUMODIF=CD0CMBHS; /* SET BDU COMMAND MODIFIER */ 00656000 MVI BDUMODIF(@11),X'8D' 05S1227 00657000 * OCSWITCH=OCSND1; /* COMMAND CODE IN OPCE */ 00658000 MVI OCSWITCH(CMDOPCE),X'F2' 05S1228 00659000 * BDUTEXT(1:2)=CNRBHSET; /* MOVE BHSET DATA INTO PACKED RU*/ 00660000 MVC BDUTEXT(2,@11),CNRBHSET(RCKPREC) 05S1229 00661000 * IF CNRFBHSC=ON THEN 05S1230 00662000 TM CNRFBHSC(RCKPREC),B'01000000' 05S1230 00663000 BNO @RF01230 05S1230 00664000 * DO; /* IF CHANGE BHSET @YM07411*/ 00665000 * PRUDATCT=LENGTH(IEDBDU)+2;/* INCLUDE FUNCTION AND POS. IN 00666000 * TEXT */ 00667000 MVC PRUDATCT(2,@09),@CH00050 05S1232 00668000 * BDUTEXT(1)=BDUTEXT(1)|'80'X;/* SET CHANGE BHSET FUNCTION 00669000 * @YM07713*/ 00670000 OI BDUTEXT(@11),X'80' 05S1233 00671000 * CNRFBHSC=OFF; /* RESET FLAGS FOR REDRIVE TO 00672000 * @YM07411*/ 00673000 * CNRFBHS=OFF; /* AVOID RESENDING COMMANDS 05S1235 00674000 * @YM07713*/ 00675000 NI CNRFBHSC(RCKPREC),B'00111111' 05S1235 00676000 * END; /* @YM07411*/ 00677000 * ELSE 05S1237 00678000 * DO; /* ACT OR DEACT BHSET FUNCTION 00679000 * @YM07411*/ 00680000 B @RC01230 05S1237 00681000 @RF01230 DS 0H 05S1238 00682000 * PRUDATCT=LENGTH(IEDBDU)+1;/* A/D BHSET, INCLUDE FUNCTION 00683000 * BYTE */ 00684000 L @05,OCUNIT(,CMDOPCE) 05S1238 00685000 MVC PRUDATCT(2,@05),@CH00606 05S1238 00686000 * CNRFBHS=OFF; /* RESET FLAG FOR REDRIVE TO 00687000 * AVOID RESENDING COMMAND 05S1239 00688000 * @YM07411*/ 00689000 NI CNRFBHS(RCKPREC),B'01111111' 05S1239 00690000 * END; /* @YM07411*/ 00691000 * CALL LISTADD; /* ADD OPCE TO CHAIN FOR POST TO 00692000 * AVTOPCOB */ 00693000 @RC01230 BAL @14,LISTADD 05S1241 00694000 * RFY 05S1242 00695000 * IEDQOPCE BASED(ROPCE); /* BASE ON CURRENT OPCE */ 00696000 * END; 05S1243 00697000 * ELSE 05S1244 00698000 * ; /* WAIT FOR REDRIVE TO OBTAIN 00699000 * ENOUGH UNITS */ 00700000 @RF01221 DS 0H 05S1245 00701000 * RFY 05S1245 00702000 * IEDPRUQD BASED; 05S1245 00703000 * END; 04S1246 00704000 * IF CNRFMSS=ON THEN /* IF MODEM SPEED SELECT CKPT'D */ 00705000 @RF01218 TM CNRFMSS(RCKPREC),B'00000010' 04S1247 00706000 BNO @RF01247 04S1247 00707000 * DO; 04S1248 00708000 * 05S1249 00709000 * /*****************************************************************/ 00710000 * /* */ 00711000 * /* PROCESS.SENDER.BLDER.BLDMSS: THIS SEGMENT BUILDS A MODEM SPEED*/ 00712000 * /* SELECT OPCE - PACKED RU PAIR (FID0). */ 00713000 * /* */ 00714000 * /*****************************************************************/ 00715000 * 05S1249 00716000 * RFY 05S1249 00717000 * IEDPRUQD BASED(OCUNIT); /* BASE PACKED RU ON OCUNIT OF 00718000 * CMDOPCE */ 00719000 * IF OCBUFGOT>1 THEN /* IF ENOUGH UNITS LEFT */ 00720000 CLC OCBUFGOT(2,ROPCE),@CH00066 05S1250 00721000 BNH @RF01250 05S1250 00722000 * DO; 05S1251 00723000 * RFY 05S1252 00724000 * IEDQOPCE BASED(CMDOPCE); /* BASE ON PTR TO CMND OPCE */ 00725000 * CMDOPCE=ROPCE->OCUNIT; /* SET FIRST UNIT AS CMND OPCE */ 00726000 L CMDOPCE,OCUNIT(,ROPCE) 05S1253 00727000 * CALL BLDFID0; /* BUILD BASIC FID0 */ 00728000 BAL @14,BLDFID0 05S1254 00729000 * BDUCMND=CD0CTRL; /* SET BDU COMMAND CODE */ 00730000 L @09,OCUNIT(,CMDOPCE) 05S1255 00731000 LA @11,12 05S1255 00732000 ALR @11,@09 05S1255 00733000 MVI BDUCMND(@11),X'08' 05S1255 00734000 * BDUMODIF=CD0CCMS; /* SET BDU COMMAND MODIFIER */ 00735000 MVI BDUMODIF(@11),X'12' 05S1256 00736000 * PRUDATCT=LENGTH(IEDBDU)+1; /* LENGTH OF PU DATA = BDU + TEXT*/ 00737000 MVC PRUDATCT(2,@09),@CH00606 05S1257 00738000 * BDUTEXT(1:1)=CNRMSSEL; /* SET SPEED SELECT IN TEXT OF 00739000 * BDU */ 00740000 MVC BDUTEXT(1,@11),CNRMSSEL(RCKPREC) 05S1258 00741000 * OCSWITCH=OCSND2; /* COMMAND CODE IN OPCE */ 00742000 MVI OCSWITCH(CMDOPCE),X'F3' 05S1259 00743000 * CNRFMSS=OFF; /* RESET FLAG FOR REDRIVE TO 00744000 * AVOID RESENDING CMND */ 00745000 NI CNRFMSS(RCKPREC),B'11111101' 05S1260 00746000 * CALL LISTADD; /* ADD THIS OPCE TO CHAIN FOR 00747000 * POST TO AVTOPCOB */ 00748000 BAL @14,LISTADD 05S1261 00749000 * RFY 05S1262 00750000 * IEDQOPCE BASED(ROPCE); /* BASE ON CURRENT OPCE */ 00751000 * END; 05S1263 00752000 * ELSE 05S1264 00753000 * ; /* WAIT FOR REDRIVE TO OBTAIN 00754000 * ENOUGH UNITS */ 00755000 @RF01250 DS 0H 05S1265 00756000 * RFY 05S1265 00757000 * IEDPRUQD BASED; /* RESET PACKED RU BASE */ 00758000 * END; 04S1266 00759000 * IF CNRFRDR=ON THEN /* IF REPLACE DEVICE RECORD 04S1267 00760000 * CKPT'D */ 00761000 @RF01247 TM CNRFRDR(RCKPREC),B'00000001' 04S1267 00762000 BNO @RF01267 04S1267 00763000 * DO; 04S1268 00764000 * 05S1269 00765000 * /*****************************************************************/ 00766000 * /* */ 00767000 * /* PROCESS.SENDER.BLDER.BLDRDR: THIS SEGMENT BUILDS THE COMMAND */ 00768000 * /* OPCE AND PACKED RU FOR THE CHANGE DEVICE RECORD. */ 00769000 * /* */ 00770000 * /*****************************************************************/ 00771000 * 05S1269 00772000 * RFY 05S1269 00773000 * IEDPRUQD BASED(OCUNIT); /* BASE PACKED RU ON OCUNIT OF 00774000 * CMD OPCE */ 00775000 * IF OCBUFGOT=OCDVRDCT THEN /* IF ENOUGH UNITS LEFT TO BUILD 00776000 * OPCE-RU */ 00777000 LH @05,OCBUFGOT(,ROPCE) 05S1270 00778000 N @05,@CF03255 05S1270 00779000 CH @05,OCDVRDCT(,ROPCE) 05S1270 00780000 BNE @RF01270 05S1270 00781000 * DO; /* BUILD OPCE AND RU */ 00782000 * CMDOPCE=OCUNIT; /* SET UNIT POINTED TO BY CKPT 00783000 * OPCE AS CMD OPCE */ 00784000 L CMDOPCE,OCUNIT(,ROPCE) 05S1272 00785000 * RFY 05S1273 00786000 * IEDQOPCE BASED(CMDOPCE); /* BASE ON CMD OPCE */ 00787000 * ROPCE->OCUNIT=PRUINTIC; /* DELINK UNITS */ 00788000 MVC OCUNIT(4,ROPCE),@CF02391 05S1274 00789000 * CNRFRDR=OFF; /* RESET FLAG */ 00790000 NI CNRFRDR(RCKPREC),B'11111110' 05S1275 00791000 * ROPCE->OCBUFGOT=''B; /* NO MORE UNITS */ 00792000 SLR @09,@09 05S1276 00793000 STH @09,OCBUFGOT(,ROPCE) 05S1276 00794000 * CALL FID0; /* BUILD BASIC FID0 COMMAND OPCE 00795000 * AND PACKED RU */ 00796000 BAL @14,FID0 05S1277 00797000 * OCDVRDCT=ROPCE->OCDVRDCT; /* SET NUMBER OF UNITS FOR CMND */ 00798000 LH @05,OCDVRDCT(,ROPCE) 05S1278 00799000 STH @05,OCDVRDCT(,CMDOPCE) 05S1278 00800000 * IEDPRUQD(1:8)=CNRDEVRC(1:8);/* MOVE IN FIRST 8 BYTES OF 05S1279 00801000 * DEVICE RECORD PACKED RU WHICH 00802000 * WAS CHECKPOINTED */ 00803000 L @06,OCUNIT(,CMDOPCE) 05S1279 00804000 MVC IEDPRUQD(8,@06),CNRDEVRC(RCKPREC) 05S1279 00805000 * IEDPLMV=''B; /* CLEAR PARM LIST FOR IEDMVBFR 00806000 * ROUTINE */ 00807000 LA @09,PARMLSP 05S1280 00808000 XC IEDPLMV(24,@09),IEDPLMV(@09) 05S1280 00809000 * PLMVTU=ADDR(IEDPRUQD); /* SET TARGET UNIT ADDR */ 00810000 ST @06,PLMVTU(,@09) 05S1281 00811000 * PLMVTD=ADDR(PRUDATA); /* SET TARGET DATA ADDR */ 00812000 LA @11,PRUDATA(,@06) 05S1282 00813000 ST @11,PLMVTD(,@09) 05S1282 00814000 * RFY 05S1283 00815000 * IEDPRUQD BASED(ADDR(CNRDEVRC));/* BASE ON DEVICE RECORD IN 00816000 * CKPT RESOURCE RECORD */ 00817000 * PLMVSU=ADDR(PRUDATA); /* SET SOURCE UNIT ADDR */ 00818000 LA @05,PRUDATA+19(,RCKPREC) 05S1284 00819000 ST @05,PLMVSU(,@09) 05S1284 00820000 * RFY 05S1285 00821000 * IEDPRUQD BASED(OCUNIT); /* RESTORE BASE TO UNITS OFF OPCE*/ 00822000 * PLMVSD=PLMVSU; /* SOURCE DATA ADDR */ 00823000 ST @05,PLMVSD(,@09) 05S1286 00824000 * PLMVLNTH=PRUDATCT; /* LENGTH OF DATA TO BE MOVED */ 00825000 LH @05,PRUDATCT(,@06) 05S1287 00826000 STH @05,PLMVLNTH(,@09) 05S1287 00827000 * PLMVSCTG=ON; /* SOURCE CONTIGUOUS FLAG */ 00828000 OI PLMVSCTG(@09),B'01000000' 05S1288 00829000 * RFY 05S1289 00830000 * RPARM RSTD; /* RESTRICT PARM LIST PTR FOR 00831000 * CALL */ 00832000 * RPARM=ADDR(PARMLSP); /* POINT TO PARM LIST */ 00833000 LR RPARM,@09 05S1290 00834000 * CALL IEDMVBFR; /* MOVE IN DATA PORTION OF PACKED 00835000 * RU */ 00836000 L @06,AVTSAVTP(,RAVT) 05S1291 00837000 L @15,SAVTMVBF(,@06) 05S1291 00838000 BALR @14,@15 05S1291 00839000 * RFY 05S1292 00840000 * RPARM UNRSTD; /* FREE REG FOR USE */ 00841000 * CALL LISTADD; /* ADD OPCE TO CHAIN FOR POST TO 00842000 * AVTOPCOB */ 00843000 BAL @14,LISTADD 05S1293 00844000 * RFY 05S1294 00845000 * IEDQOPCE BASED(ROPCE); /* BASE ON CURRENT OPCE @YM06639*/ 00846000 * END; 05S1295 00847000 * ELSE 05S1296 00848000 * ; /* WAIT FOR REDRIVE TO GET ENOUGH 00849000 * UNITS */ 00850000 @RF01270 DS 0H 05S1297 00851000 * RFY 05S1297 00852000 * IEDPRUQD BASED; /* RESET */ 00853000 * END; 04S1298 00854000 * RFY 04S1299 00855000 * RPARM RSTD; 04S1299 00856000 @RF01267 DS 0H 04S1300 00857000 * RPARM=ADDR(OPCAQCTL); /* POINT TO AQCTL PARM LIST */ 00858000 LA RPARM,OPCAQCTL(,ROPCAVT) 04S1300 00859000 * SVC(102); 04S1301 00860000 SVC 102 04S1301 00861000 * RFY 04S1302 00862000 * RPARM UNRSTD; 04S1302 00863000 * IF OCBUFNED>0 THEN /* IF MORE UNITS STILL NEEDED */ 00864000 CLC OCBUFNED(2,ROPCE),@CH00473 04S1303 00865000 BNH @RF01303 04S1303 00866000 * DO; /* PUT OPCE ON REDRIVE CHAIN */ 00867000 * OCREDRVE=ON; /* SET REDRIVE FLAG */ 00868000 OI OCREDRVE(ROPCE),B'00010000' 04S1305 00869000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MODULE 00870000 * FROM REDRIVE PROCESSOR */ 00871000 MVC OCWTG(2,ROPCE),THISMOD 04S1306 00872000 * OCLINK=OPCBUFWT; /* PLACE OPCE AT */ 00873000 L @11,OPCBUFWT(,ROPCAVT) 04S1307 00874000 ST @11,OCLINK(,ROPCE) 04S1307 00875000 * OPCBUFWT=ROPCE; /* BEGINNING OF BUFFER WAIT CHAIN*/ 00876000 ST ROPCE,OPCBUFWT(,ROPCAVT) 04S1308 00877000 * OPCMODID=CNTLMOD; /* SET TO XCTL TO CONTROL MOD */ 00878000 MVC OPCMODID(2,ROPCAVT),CNTLMOD 04S1309 00879000 * END; 04S1310 00880000 * ELSE /* REFORMAT OPCE TO SEND */ 00881000 * DO; /* TO CHECKPOINT MODULE */ 00882000 B @RC01303 04S1311 00883000 @RF01303 DS 0H 04S1312 00884000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MOD FROM 00885000 * CHECKPOINT */ 00886000 MVC OCWTG(2,ROPCE),THISMOD 04S1312 00887000 * OPCMODID=CKPTMOD; /* SET TO XCTL TO CHECKPOINT MOD.*/ 00888000 MVC OPCMODID(2,ROPCAVT),CKPTMOD 04S1313 00889000 * END; 04S1314 00890000 * END; 03S1315 00891000 * ELSE 03S1316 00892000 * ; /* NO CMNDS TO BUILD ON THIS PASS*/ 00893000 @RF01166 DS 0H 03S1317 00894000 * END; 02S1317 00895000 @RC01166 DS 0H 02S1318 00896000 * 02S1318 00897000 * /*****************************************************************/ 00898000 * /* */ 00899000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00900000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL SYSTEM */ 00901000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00902000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00903000 * /* */ 00904000 * /*****************************************************************/ 00905000 * 02S1318 00906000 * RFY 02S1318 00907000 * REG00 RSTD; 02S1318 00908000 @RC01052 DS 0H 02S1319 00909000 * RFY 02S1319 00910000 * REG01 RSTD; /* RESTRICT THE ARGUMENT REGISTER 00911000 * TO BE USED TO CONTAIN THE 00912000 * POINTER TO THE OPERATOR 02S1319 00913000 * CONTROL ADDRESS VECTOR TABLE 00914000 * FROM USE BY THE COMPILER */ 00915000 * IF OPCMODID=CNTLMOD THEN /* IF XCTL IS TO IGC0010D */ 00916000 CLC OPCMODID(2,ROPCAVT),CNTLMOD 02S1320 00917000 BNE @RF01320 02S1320 00918000 * REG00=''B; 02S1321 00919000 SLR REG00,REG00 02S1321 00920000 * REG01=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00921000 * PREPARATION TO TRANSFERRING 00922000 * CONTROL TO THE NEXT MODULE */ 00923000 @RF01320 LR REG01,ROPCAVT 02S1322 00924000 * DO; /* IEDXCTLTRANSFER CONTROL MACRO 00925000 * RFY REG00 UNRSTD */ 00926000 * GEN EXIT REFS(ROPCAVT,OPCTRACE,OPCXCTL) NOSEQFLOW; 02S1324 00927000 * /* 00928000 LA 15,OPCXCTL(,ROPCAVT) POINT TO OPCXCTL LIST 00929000 EX 0,OPCTRACE(,ROPCAVT) INVOKE XCTL TRACE 00930000 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 00931000 * END; /* END OF IEDXCTL */ 00932000 * RFY 02S1326 00933000 * REG01 UNRSTD; 02S1326 00934000 * 02S1327 00935000 * /*****************************************************************/ 00936000 * /* */ 00937000 * /* BLDFID1: THIS INTERNAL PROCEDURE BUILDS A BASIC FID1 OPCE */ 00938000 * /* */ 00939000 * /*****************************************************************/ 00940000 * 02S1327 00941000 *BLDFID1: 02S1327 00942000 * PROC OPTIONS(RETREG,SAVE(14)); 02S1327 00943000 BLDFID1 ST @14,@SA00002 02S1327 00944000 * RFY 02S1328 00945000 * IEDQOPCE BASED(CMDOPCE); /* BASE ON PTR TO CMND OPCE BEING 00946000 * BUILT */ 00947000 * ROPCE->OCUNIT=OCUNIT; /* DELINK FIRST UNIT HUNG OF 00948000 * CURRENT OPCE */ 00949000 L @05,OCUNIT(,CMDOPCE) 02S1329 00950000 ST @05,OCUNIT(,ROPCE) 02S1329 00951000 * ROPCE->OCBUFGOT=ROPCE->OCBUFGOT-1;/* DECREMENT # OF UNITS GOT */ 00952000 LH @06,OCBUFGOT(,ROPCE) 02S1330 00953000 N @06,@CF03255 02S1330 00954000 BCTR @06,0 02S1330 00955000 STH @06,OCBUFGOT(,ROPCE) 02S1330 00956000 * OCUNIT=PRUINTIC; /* SET OCUNIT TO INVALID TIC */ 00957000 MVC OCUNIT(4,CMDOPCE),@CF02391 02S1331 00958000 * OCTRMTBL=CNRTNTOF; /* TTCIN IN CKPT RESOURCE RECORD */ 00959000 LH @11,CNRTNTOF(,RCKPREC) 02S1332 00960000 STH @11,OCTRMTBL(,CMDOPCE) 02S1332 00961000 * OCPTRSAV=ROPCE->OCPTRSAV; /* POINT TO ORIG. OPCE */ 00962000 L @05,OCPTRSAV(,ROPCE) 02S1333 00963000 ST @05,OCPTRSAV(,CMDOPCE) 02S1333 00964000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MODULE 00965000 * FROM RU DISP'ER */ 00966000 MVC OCWTG(2,CMDOPCE),THISMOD 02S1334 00967000 * OCACTREQ=ON; /* SET FLAG INDICATING A/D 02S1335 00968000 * REQUEST */ 00969000 OI OCACTREQ(CMDOPCE),B'00001000' 02S1335 00970000 * OCLINK=ADDR(AVTOPCOB); /* SET QCB ADDR. FOR SVC 102 */ 00971000 LA @06,AVTOPCOB(,RAVT) 02S1336 00972000 ST @06,OCLINK(,CMDOPCE) 02S1336 00973000 * OCPRIFLG=OPRA0; /* SET FLAG SO OPCE ROUTED TO 00974000 * SSCP BY CONTROL MOD */ 00975000 MVI OCPRIFLG(CMDOPCE),X'01' 02S1337 00976000 * OCELMPRI=PRIHIFLG; /* SET POST PRIORITY */ 00977000 MVI OCELMPRI(CMDOPCE),X'E9' 02S1338 00978000 * CALL LISTADD; /* PLACE IN AQCTL PARM LIST */ 00979000 BAL @14,LISTADD 02S1339 00980000 * RFY 02S1340 00981000 * IEDQOPCE BASED; 02S1340 00982000 * END BLDFID1; 02S1341 00983000 @EL00002 DS 0H 02S1341 00984000 @EF00002 DS 0H 02S1341 00985000 @ER00002 L @14,@SA00002 02S1341 00986000 BR @14 02S1341 00987000 * 02S1342 00988000 * /*****************************************************************/ 00989000 * /* */ 00990000 * /* BLDFID0: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE WHICH */ 00991000 * /* DELINKS TWO UNITS AND CALLS THE ROUTINE TO BUILD THE BASIC */ 00992000 * /* COMMAND OPCE AND PACKED RU. */ 00993000 * /* */ 00994000 * /*****************************************************************/ 00995000 * 02S1342 00996000 *BLDFID0: 02S1342 00997000 * PROC OPTIONS(RETREG,SAVE(14)); 02S1342 00998000 BLDFID0 ST @14,@SA00003 02S1342 00999000 * RFY 02S1343 01000000 * IEDQOPCE BASED(CMDOPCE); /* DEFINE OPCE STRUCTURE ON CMND 01001000 * OPCE */ 01002000 * RFY 02S1344 01003000 * IEDPRUQD BASED(OCUNIT); /* OCUNIT OF CMND OPCE POINTS TO 01004000 * PACKED RU */ 01005000 * ROPCE->OCUNIT=OCUNIT->OCUNIT; /* DELINK 2 UNITS FOR OPCE AND RU*/ 01006000 L @09,OCUNIT(,CMDOPCE) 02S1345 01007000 L @01,OCUNIT(,@09) 02S1345 01008000 ST @01,OCUNIT(,ROPCE) 02S1345 01009000 * ROPCE->OCBUFGOT=ROPCE->OCBUFGOT-2;/* DECREMENT UNITS HAVE BY 2 */ 01010000 LH @05,OCBUFGOT(,ROPCE) 02S1346 01011000 N @05,@CF03255 02S1346 01012000 BCTR @05,0 02S1346 01013000 BCTR @05,0 02S1346 01014000 STH @05,OCBUFGOT(,ROPCE) 02S1346 01015000 * PRUTIC=PRUINTIC; /* SET INVALID TIC IN PACKED RU */ 01016000 MVC PRUTIC(4,@09),@CB02391 02S1347 01017000 * CALL FID0; /* BUILD REMAINDER OF FID0 02S1348 01018000 * COMMAND */ 01019000 BAL @14,FID0 02S1348 01020000 * RFY 02S1349 01021000 * IEDQOPCE BASED; 02S1349 01022000 * RFY 02S1350 01023000 * IEDPRUQD BASED; 02S1350 01024000 * END BLDFID0; 02S1351 01025000 @EL00003 DS 0H 02S1351 01026000 @EF00003 DS 0H 02S1351 01027000 @ER00003 L @14,@SA00003 02S1351 01028000 BR @14 02S1351 01029000 * 02S1352 01030000 * /*****************************************************************/ 01031000 * /* */ 01032000 * /* FID0: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE WHICH */ 01033000 * /* BUILDS THE BASIC FID0 COMMAND OPCE AND PACKED RU. */ 01034000 * /* */ 01035000 * /*****************************************************************/ 01036000 * 02S1352 01037000 *FID0: 02S1352 01038000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1352 01039000 FID0 DS 0H 02S1353 01040000 * RFY 02S1353 01041000 * RRET RSTD; /* RESTRICT REG WITH RETURN ADDR */ 01042000 * RFY 02S1354 01043000 * IEDQOPCE BASED(CMDOPCE); /* DEFINE OPCE STRUCTURE ON CMND 01044000 * OPCE */ 01045000 * RFY 02S1355 01046000 * IEDPRUQD BASED(OCUNIT); /* OCUNIT OF CMND OPCE POINTS TO 01047000 * PACKED RU */ 01048000 * OCTRMTBL=CNRTNTOF; /* SET TTCIN OF RESOURCE IN CMD 01049000 * OPCE */ 01050000 LH @06,CNRTNTOF(,RCKPREC) 02S1356 01051000 STH @06,OCTRMTBL(,CMDOPCE) 02S1356 01052000 * OCPTRSAV=ROPCE->OCPTRSAV; /* COPY PTR TO ORIG OPCE FROM 01053000 * CKPT OPCE */ 01054000 L @11,OCPTRSAV(,ROPCE) 02S1357 01055000 ST @11,OCPTRSAV(,CMDOPCE) 02S1357 01056000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MOD FROM 01057000 * RU DISP'ER */ 01058000 MVC OCWTG(2,CMDOPCE),THISMOD 02S1358 01059000 * OCACTREQ=ON; /* A/D REQUEST */ 01060000 OI OCACTREQ(CMDOPCE),B'00001000' 02S1359 01061000 * OCLINK=ADDR(AVTOPCOB); /* SET WITH QCB ADDR. FOR SVC 102*/ 01062000 LA @15,AVTOPCOB(,RAVT) 02S1360 01063000 ST @15,OCLINK(,CMDOPCE) 02S1360 01064000 * OCPRIFLG=OPR02; /* SET FLAG FOR CNTL MOD TO ROUTE 01065000 * OPCE TO RU DISP'ER */ 01066000 MVI OCPRIFLG(CMDOPCE),X'08' 02S1361 01067000 * OCELMPRI=PRIMEDFG; /* SET PRIORITY OF POST */ 01068000 MVI OCELMPRI(CMDOPCE),X'DF' 02S1362 01069000 * PRUTTCIN=CNRTNTOF; /* SET TTCIN IN PACKED RU */ 01070000 L @01,OCUNIT(,CMDOPCE) 02S1363 01071000 STH @06,PRUTTCIN(,@01) 02S1363 01072000 * PRURH=TRHFID0; /* SET RH IN NEG. PREFIX OF 02S1364 01073000 * PACKED RU */ 01074000 SL @01,@CF00050 02S1364 01075000 MVC PRURH(3,@01),@CB02707 02S1364 01076000 * PRUFIDN=TTH0BYT0; /* SET TH INFO. IN PACKED RU */ 01077000 MVI PRUFIDN(@01),X'0C' 02S1365 01078000 * RFY 02S1366 01079000 * IEDPRUQD BASED; 02S1366 01080000 * RFY 02S1367 01081000 * IEDQOPCE BASED; 02S1367 01082000 * RFY 02S1368 01083000 * RRET UNRSTD; 02S1368 01084000 * END FID0; 02S1369 01085000 @EL00004 DS 0H 02S1369 01086000 @EF00004 DS 0H 02S1369 01087000 @ER00004 BR @14 02S1369 01088000 * 02S1370 01089000 * /*****************************************************************/ 01090000 * /* */ 01091000 * /* LISTADD: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE WHICH */ 01092000 * /* ADDS A COMMAND OPCE TO THE CHAIN FOR THE POST TO AVTOPCOB. */ 01093000 * /* */ 01094000 * /*****************************************************************/ 01095000 * 02S1370 01096000 *LISTADD: 02S1370 01097000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1370 01098000 LISTADD DS 0H 02S1371 01099000 * RFY 02S1371 01100000 * RRET RSTD; /* RESTRICT REG WITH RETURN ADDR */ 01101000 * RFY 02S1372 01102000 * IEDQOPCE BASED(CMDOPCE); /* DEFINE OPCE STRUCTURE ON CMND 01103000 * OPCE */ 01104000 * IF OPCAQFST=0 THEN /* IF THIS IS THE FIRST OPCE TO 01105000 * BE CHAINED */ 01106000 SLR @05,@05 02S1373 01107000 ICM @05,7,OPCAQFST(ROPCAVT) 02S1373 01108000 LTR @05,@05 02S1373 01109000 BNZ @RF01373 02S1373 01110000 * OPCAQFST=CMDOPCE; /* SET OPCE AS FIRST OPCE IN 01111000 * CHAIN */ 01112000 STCM CMDOPCE,7,OPCAQFST(ROPCAVT) 02S1374 01113000 * ELSE 02S1375 01114000 * OPCAQSEC->OCELMPTR=CMDOPCE; /* CHAIN OPCE OFF LAST OPCE ON 01115000 * CHAIN */ 01116000 B @RC01373 02S1375 01117000 @RF01373 SLR @01,@01 02S1375 01118000 ICM @01,7,OPCAQSEC(ROPCAVT) 02S1375 01119000 STCM CMDOPCE,7,OCELMPTR(@01) 02S1375 01120000 * OPCAQSEC=CMDOPCE; /* SET OPCE AS LAST OPCE IN CHAIN*/ 01121000 @RC01373 STCM CMDOPCE,7,OPCAQSEC(ROPCAVT) 02S1376 01122000 * RFY 02S1377 01123000 * IEDQOPCE; 02S1377 01124000 * RFY 02S1378 01125000 * RRET UNRSTD; 02S1378 01126000 * END LISTADD; 02S1379 01127000 @EL00005 DS 0H 02S1379 01128000 @EF00005 DS 0H 02S1379 01129000 @ER00005 BR @14 02S1379 01130000 * END IGCFF10D; 01S1380 01131000 * 01S1381 01132000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01133000 */*%INCLUDE SYSLIB (TAVTD ) */ 01134000 */*%INCLUDE SYSLIB (TBDUD ) */ 01135000 */*%INCLUDE SYSLIB (TCD0D ) */ 01136000 */*%INCLUDE SYSLIB (TCD1D ) */ 01137000 */*%INCLUDE SYSLIB (TCNRD ) */ 01138000 */*%INCLUDE SYSLIB (TNRAD ) */ 01139000 */*%INCLUDE SYSLIB (TOPCED ) */ 01140000 */*%INCLUDE SYSLIB (TOCTRD ) */ 01141000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01142000 */*%INCLUDE SYSLIB (TOPRED ) */ 01143000 */*%INCLUDE SYSLIB (TPLMVD ) */ 01144000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01145000 */*%INCLUDE SYSLIB (TPRUD ) */ 01146000 */*%INCLUDE SYSLIB (TREQD ) */ 01147000 */*%INCLUDE SYSLIB (TRSPD ) */ 01148000 */*%INCLUDE SYSLIB (TRHD ) */ 01149000 */*%INCLUDE SYSLIB (TTRMD ) */ 01150000 */*%INCLUDE SYSLIB (TTHD ) */ 01151000 */*%INCLUDE SYSUT5 (RFY ) */ 01152000 */*%INCLUDE SYSUT5 (DCL ) */ 01153000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01154000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01155000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01156000 */*%INCLUDE SYSUT5 (RESPONSE) */ 01157000 */*%INCLUDE SYSUT5 (START ) */ 01158000 */*%INCLUDE SYSUT5 (SENDER ) */ 01159000 */*%INCLUDE SYSUT5 (CHKR ) */ 01160000 */*%INCLUDE SYSUT5 (CALCRDR ) */ 01161000 */*%INCLUDE SYSUT5 (GETBUFS ) */ 01162000 */*%INCLUDE SYSUT5 (BLDER ) */ 01163000 */*%INCLUDE SYSUT5 (BLDCHSSP) */ 01164000 */*%INCLUDE SYSUT5 (BLDCHGNP) */ 01165000 */*%INCLUDE SYSUT5 (BLDCHGSL) */ 01166000 */*%INCLUDE SYSUT5 (BLDCHGTL) */ 01167000 */*%INCLUDE SYSUT5 (BLDBHS ) */ 01168000 */*%INCLUDE SYSUT5 (BLDMSS ) */ 01169000 */*%INCLUDE SYSUT5 (BLDRDR ) */ 01170000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01171000 */*%INCLUDE SYSUT5 (BLDFID1 ) */ 01172000 */*%INCLUDE SYSUT5 (BLDFID0 ) */ 01173000 */*%INCLUDE SYSUT5 (FID0 ) */ 01174000 */*%INCLUDE SYSUT5 (LISTADD ) */ 01175000 @DATA DS 0H 01176000 @CH00473 DC H'0' 01177000 @CH00606 DC H'7' 01178000 @DATD DSECT 01179000 DS 0F 01180000 @SA00002 DS 1F 01181000 @SA00003 DS 1F 01182000 IGCFF10D CSECT 01183000 DS 0F 01184000 @CF00066 DC F'1' 01185000 @CH00066 EQU @CF00066+2 01186000 @CF00071 DC F'2' 01187000 @CF00050 DC F'8' 01188000 @CH00050 EQU @CF00050+2 01189000 @CF02391 DC XL4'08000002' 01190000 @CF03255 DC XL4'0000FFFF' 01191000 @DATD DSECT 01192000 DS 0D 01193000 PARMLSP DS CL24 01194000 FLAGS DS CL4 01195000 ORG FLAGS 01196000 OUTFLAG DS FL4 01197000 ORG FLAGS+4 01198000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01199000 @ENDDATD EQU * 01200000 * THE FOLLOWING INSTRUCTION WILL CAUSE AN ASSEMBLY ERROR IF THE SIZE 01201000 * OF THE AUTOMATIC STORAGE AREA IS GREATER THAN 560 BYTES. 01202000 ORG @DATD+(560-(*-@DATD)) 01203000 ORG @ENDDATD 01204000 IGCFF10D CSECT 01205000 DS 0F 01206000 @SIZDATD DC AL1(0) 01207000 DC AL3(((@ENDDATD-@DATD+7)/8)*8) 01208000 DS 0D 01209000 @CB02391 DC X'08000002' 01210000 @CB02707 DC X'0B8000' 01211000 DS CL1 01212000 ADPATCH DC XL104'0' 01213000 CNTLMOD DC CL2'00' 01214000 THISMOD DC CL2'FF' 01215000 CKPTMOD DC CL2'06' 01216000 RPNCPMOD DC CL2'FJ' 01217000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01218000 @01 EQU 01 01219000 @02 EQU 02 01220000 @03 EQU 03 01221000 @04 EQU 04 01222000 @05 EQU 05 01223000 @06 EQU 06 01224000 @07 EQU 07 01225000 @08 EQU 08 01226000 @09 EQU 09 01227000 @10 EQU 10 01228000 @11 EQU 11 01229000 @12 EQU 12 01230000 @13 EQU 13 01231000 @14 EQU 14 01232000 @15 EQU 15 01233000 SIZE EQU @07 01234000 GETNO EQU @05 01235000 CMDOPCE EQU @07 01236000 COUNTER EQU @06 01237000 RCKPREC EQU @08 01238000 ROPCE EQU @03 01239000 ROPCAVT EQU @02 01240000 RAVT EQU @04 01241000 RTRM EQU @08 01242000 REG00 EQU @00 01243000 RZERO EQU @00 01244000 REG01 EQU @01 01245000 RPARM EQU @01 01246000 REG09 EQU @09 01247000 REG10 EQU @10 01248000 RWRKAREA EQU @10 01249000 RSAVE EQU @13 01250000 RRET EQU @14 01251000 RBRNCH EQU @15 01252000 RBASE EQU @12 01253000 REG02 EQU @02 01254000 REG03 EQU @03 01255000 REG04 EQU @04 01256000 REG05 EQU @05 01257000 REG06 EQU @06 01258000 REG07 EQU @07 01259000 REG08 EQU @08 01260000 REG11 EQU @11 01261000 REG13 EQU @13 01262000 REG14 EQU @14 01263000 REG15 EQU @15 01264000 RQCB EQU @07 01265000 IEDQAVTD EQU 0 01266000 AVTSAVEX EQU IEDQAVTD+288 01267000 AVTREADD EQU IEDQAVTD+380 01268000 AVTBUFSW EQU IEDQAVTD+384 01269000 @NM00004 EQU IEDQAVTD+388 01270000 AVTCKFLG EQU @NM00004 01271000 AVTBASE EQU IEDQAVTD+412 01272000 AVTPKF EQU AVTBASE 01273000 AVTRNMPT EQU IEDQAVTD+424 01274000 AVTNOLBF EQU IEDQAVTD+454 01275000 AVTHG02 EQU IEDQAVTD+528 01276000 AVTDISP EQU IEDQAVTD+552 01277000 AVTHD EQU IEDQAVTD+556 01278000 AVTSCOPT EQU AVTHD 01279000 AVTSAVTP EQU IEDQAVTD+612 01280000 AVTSAVTF EQU AVTSAVTP 01281000 AVTCKPEL EQU IEDQAVTD+652 01282000 AVTCKRMV EQU AVTCKPEL 01283000 AVTCKELF EQU IEDQAVTD+680 01284000 AVTCKBYT EQU IEDQAVTD+691 01285000 AVTHG01 EQU IEDQAVTD+692 01286000 AVTCKLNK EQU IEDQAVTD+696 01287000 AVTCRELE EQU IEDQAVTD+708 01288000 AVTCCELE EQU AVTCRELE 01289000 AVTCLRHI EQU IEDQAVTD+716 01290000 AVTADBUF EQU IEDQAVTD+720 01291000 AVTSYSER EQU IEDQAVTD+728 01292000 AVTBFRFG EQU IEDQAVTD+784 01293000 AVTCKPQB EQU IEDQAVTD+804 01294000 AVTCKPTB EQU AVTCKPQB 01295000 AVTCKPEC EQU AVTCKPQB+4 01296000 AVTCKPCC EQU AVTCKPEC 01297000 AVTOPCQB EQU IEDQAVTD+816 01298000 AVTOPCOB EQU AVTOPCQB 01299000 AVTOPCEC EQU AVTOPCQB+4 01300000 AVTOPCCC EQU AVTOPCEC 01301000 AVTOLTQB EQU IEDQAVTD+828 01302000 AVTCWFL1 EQU IEDQAVTD+924 01303000 AVTCWFL2 EQU IEDQAVTD+925 01304000 AVTSUBT EQU IEDQAVTD+948 01305000 AVTIOTR EQU IEDQAVTD+949 01306000 AVTKEYLE EQU IEDQAVTD+1032 01307000 AVTBIT1 EQU IEDQAVTD+1050 01308000 AVTBIT2 EQU IEDQAVTD+1051 01309000 AVTBIT3 EQU IEDQAVTD+1052 01310000 AVTBIT4 EQU IEDQAVTD+1136 01311000 @NM00077 EQU IEDQAVTD+1232 01312000 AVTBIT5 EQU IEDQAVTD+1280 01313000 IEDQAPTR EQU 0 01314000 IEDNSVTD EQU 0 01315000 SAVTDIAG EQU IEDNSVTD 01316000 SAVTDIAF EQU SAVTDIAG 01317000 SAVTLUSQ EQU IEDNSVTD+88 01318000 SAVTMVBF EQU IEDNSVTD+160 01319000 SAVTSCLU EQU IEDNSVTD+168 01320000 SAVTTCPU EQU IEDNSVTD+238 01321000 SAVTZELM EQU IEDNSVTD+270 01322000 SAVTRDRV EQU IEDNSVTD+284 01323000 SAVTCKQB EQU IEDNSVTD+300 01324000 SAVTCKTB EQU SAVTCKQB 01325000 SAVTCKEC EQU SAVTCKQB+4 01326000 SAVTCKCC EQU SAVTCKEC 01327000 SAVTNETF EQU IEDNSVTD+324 01328000 SAVTCDRV EQU IEDNSVTD+332 01329000 IEDBDU EQU 0 01330000 BDUCMND EQU IEDBDU 01331000 BDUMODIF EQU IEDBDU+1 01332000 BDUFNFLG EQU IEDBDU+2 01333000 BDUBDUFG EQU IEDBDU+3 01334000 BDURSP EQU IEDBDU+4 01335000 BDUSYRSP EQU BDURSP 01336000 BDUEXRSP EQU BDURSP+1 01337000 BDUEND EQU IEDBDU+6 01338000 IEDQCNRD EQU 0 01339000 CNRTNTOF EQU IEDQCNRD 01340000 CNRDATTM EQU IEDQCNRD+2 01341000 CNRCNTL EQU IEDQCNRD+10 01342000 CNRFBHS EQU CNRCNTL 01343000 CNRFBHSC EQU CNRCNTL 01344000 CNRFSSP EQU CNRCNTL 01345000 CNRFNPL EQU CNRCNTL 01346000 CNRFCSL EQU CNRCNTL 01347000 CNRFCTL EQU CNRCNTL 01348000 CNRFMSS EQU CNRCNTL 01349000 CNRFRDR EQU CNRCNTL 01350000 CNRBHSET EQU IEDQCNRD+12 01351000 CNRBHFUN EQU CNRBHSET 01352000 CNRSSPAU EQU IEDQCNRD+14 01353000 CNRNEGPL EQU IEDQCNRD+15 01354000 CNRCSLIM EQU IEDQCNRD+16 01355000 CNRCTLIM EQU IEDQCNRD+17 01356000 CNRMSSEL EQU IEDQCNRD+18 01357000 CNRDEVRC EQU IEDQCNRD+19 01358000 IEDNRA EQU 0 01359000 NRACURR EQU IEDNRA 01360000 RNRA EQU 0 01361000 IEDQOPCE EQU 0 01362000 OCLINK EQU IEDQOPCE 01363000 OCELEM EQU IEDQOPCE+4 01364000 OCELMPRI EQU OCELEM 01365000 OCELMPTR EQU OCELEM+1 01366000 OCUNIT EQU IEDQOPCE+8 01367000 OCRUDEST EQU OCUNIT 01368000 OCCKPKEY EQU OCRUDEST 01369000 OCSCAN EQU OCCKPKEY 01370000 @NM00107 EQU OCRUDEST+1 01371000 OCUNITBF EQU @NM00107+2 01372000 OCOPTCDE EQU IEDQOPCE+12 01373000 OCPRIFLG EQU OCOPTCDE 01374000 OCSWITCH EQU IEDQOPCE+13 01375000 OCFLAG EQU IEDQOPCE+14 01376000 OCRLN EQU IEDQOPCE+15 01377000 OCLOCAD EQU OCRLN 01378000 OCCIB EQU IEDQOPCE+16 01379000 OCMSTSAV EQU OCCIB 01380000 OCDEST EQU OCMSTSAV 01381000 OCREQVAL EQU OCDEST+1 01382000 OCTRMTBL EQU IEDQOPCE+20 01383000 OCLINENO EQU IEDQOPCE+22 01384000 OCTIOT EQU OCLINENO 01385000 OCWTGB EQU OCTIOT 01386000 OCTRUNIT EQU IEDQOPCE+24 01387000 OCRSID EQU OCTRUNIT 01388000 OCALSTAT EQU OCRSID 01389000 OCFNAALL EQU OCALSTAT 01390000 OCREDRVE EQU OCALSTAT 01391000 OCACTREQ EQU OCALSTAT 01392000 OCFLAG1 EQU OCRSID+1 01393000 OCLNTYP EQU OCFLAG1 01394000 OCPARM EQU IEDQOPCE+28 01395000 OCRESNUM EQU OCPARM 01396000 OCWTG EQU IEDQOPCE+30 01397000 OCBACKUP EQU IEDQOPCE+32 01398000 OCBUFNED EQU OCBACKUP 01399000 OCCOUNT1 EQU OCBUFNED 01400000 OCBUFGOT EQU OCBACKUP+2 01401000 OCCOUNT2 EQU OCBUFGOT 01402000 OCDVRDCT EQU OCBACKUP+6 01403000 OCMODNME EQU IEDQOPCE+40 01404000 OCIPLWA EQU OCMODNME 01405000 OCPTRSAV EQU OCMODNME+4 01406000 OCECHOPT EQU OCPTRSAV 01407000 OCCKDATA EQU IEDQOPCE+48 01408000 OCRSTGTM EQU OCCKDATA 01409000 OC379RRT EQU OCRSTGTM 01410000 OCNCP EQU OCRSTGTM+2 01411000 OCOID EQU IEDQOPCE+56 01412000 OCFLOADP EQU IEDQOPCE+60 01413000 OCLSTTC EQU OCFLOADP 01414000 OCOSUBA EQU OCLSTTC 01415000 IEDQOPCN EQU 0 01416000 OCLDNME EQU IEDQOPCN 01417000 OCLINTTE EQU OCLDNME 01418000 OCREQFLG EQU OCLINTTE+2 01419000 OCPREFLG EQU OCLINTTE+3 01420000 IEDOCTR EQU 0 01421000 OCTRSW EQU IEDOCTR+13 01422000 OCTRRTE EQU IEDOCTR+14 01423000 OCTRRTN EQU IEDOCTR+15 01424000 IEDQOPCD EQU 0 01425000 OPCAVTPT EQU IEDQOPCD+8 01426000 OPCCOPCE EQU IEDQOPCD+12 01427000 OPCTRACE EQU IEDQOPCD+32 01428000 OPCSAVE EQU IEDQOPCD+56 01429000 OPCWORK EQU IEDQOPCD+140 01430000 OPCAQCTL EQU IEDQOPCD+180 01431000 OPCXCTL EQU IEDQOPCD+204 01432000 OPCLDNME EQU IEDQOPCD+212 01433000 OPCMODID EQU OPCLDNME+3 01434000 OPCGETBF EQU IEDQOPCD+276 01435000 OPCFREBF EQU IEDQOPCD+280 01436000 OPCSPEC EQU IEDQOPCD+300 01437000 OPCADGOT EQU IEDQOPCD+318 01438000 OPCBUFWT EQU IEDQOPCD+348 01439000 OPCDECR EQU IEDQOPCD+352 01440000 OPCPWCOB EQU IEDQOPCD+368 01441000 OPCPWQCB EQU OPCPWCOB 01442000 OPCPWECB EQU OPCPWCOB+4 01443000 OPCSESS EQU IEDQOPCD+384 01444000 OPCSFLAG EQU OPCSESS 01445000 OPCCSIB EQU OPCSESS+4 01446000 OPCSENSE EQU OPCSESS+8 01447000 OPCSNSSY EQU OPCSENSE 01448000 OPCSNSUS EQU OPCSENSE+2 01449000 OPCPCID EQU IEDQOPCD+456 01450000 OPCUNIQP EQU OPCPCID+2 01451000 OPCSESSF EQU IEDQOPCD+464 01452000 IEDOPRED EQU 0 01453000 OPRESAVE EQU IEDOPRED+8 01454000 OPRETIC EQU OPRESAVE 01455000 OPRVTCHK EQU OPRETIC+3 01456000 OPREFLG3 EQU IEDOPRED+14 01457000 IEDPLMV EQU 0 01458000 PLMVTU EQU IEDPLMV 01459000 PLMVTD EQU IEDPLMV+4 01460000 PLMVSU EQU IEDPLMV+8 01461000 PLMVSD EQU IEDPLMV+12 01462000 PLMVLNTH EQU IEDPLMV+16 01463000 PLMVFLGS EQU IEDPLMV+18 01464000 PLMVFLG1 EQU PLMVFLGS 01465000 PLMVSCTG EQU PLMVFLG1 01466000 IEDPLMVP EQU 0 01467000 IEDPRUQD EQU 0 01468000 PRUTTCIN EQU IEDPRUQD 01469000 PRUDATCT EQU IEDPRUQD+2 01470000 PRUTIC EQU IEDPRUQD+8 01471000 PRUNUNIT EQU PRUTIC+1 01472000 PRUVTCHK EQU PRUNUNIT+2 01473000 PRUDATA EQU IEDPRUQD+12 01474000 IEDPRUQP EQU 0 01475000 IEDPRUND EQU 0 01476000 PRURHTH EQU IEDPRUND 01477000 PRURH EQU PRURHTH 01478000 PRURHFG0 EQU PRURH 01479000 PRURHFG1 EQU PRURH+1 01480000 PRURHFG2 EQU PRURH+2 01481000 PRUTH EQU PRURHTH+3 01482000 PRUFIDN EQU PRUTH 01483000 IEDREQD EQU 0 01484000 REQROUTE EQU IEDREQD+12 01485000 REQRCDS EQU IEDREQD+14 01486000 REQDATA EQU IEDREQD+16 01487000 IEDRH EQU 0 01488000 TRHBYTE0 EQU IEDRH 01489000 TRHBYTE1 EQU IEDRH+1 01490000 TRHBYTE2 EQU IEDRH+2 01491000 IEDNTRM EQU 0 01492000 TRMBYTEB EQU IEDNTRM+3 01493000 TRMSABPT EQU IEDNTRM+4 01494000 TRMGPTAB EQU TRMSABPT 01495000 TRMACTDV EQU IEDNTRM+8 01496000 TRMDIALQ EQU TRMACTDV+1 01497000 TRMBYTE8 EQU TRMDIALQ+1 01498000 TRMBYTE7 EQU TRMDIALQ+2 01499000 TRMATNDX EQU IEDNTRM+12 01500000 TRMASNDX EQU TRMATNDX 01501000 TRMLKCHN EQU TRMASNDX 01502000 TRMINDEX EQU IEDNTRM+14 01503000 TRMCDST EQU TRMINDEX 01504000 TRMCOHTG EQU IEDNTRM+16 01505000 TRMBYTE6 EQU TRMCOHTG 01506000 TRMCDF0 EQU TRMBYTE6 01507000 TRMBYTE5 EQU TRMCOHTG+1 01508000 TRMBYTE4 EQU IEDNTRM+18 01509000 TRMBYTE3 EQU IEDNTRM+19 01510000 TRMBYTE2 EQU IEDNTRM+20 01511000 TRMINPG EQU TRMBYTE2 01512000 TRMBYTE1 EQU IEDNTRM+21 01513000 TRMSCPRQ EQU TRMBYTE1 01514000 TRMBYTE0 EQU IEDNTRM+24 01515000 TRMNOWCD EQU TRMBYTE0 01516000 TRMSIBPT EQU IEDNTRM+25 01517000 TRMLTRAC EQU TRMSIBPT 01518000 TRMLBUFR EQU TRMLTRAC 01519000 TRMRLMCT EQU IEDNTRM+28 01520000 TRMLGBST EQU TRMRLMCT 01521000 IEDQTRM EQU 0 01522000 TRMSTATE EQU IEDQTRM 01523000 TRMLOG EQU TRMSTATE 01524000 TRMDESTQ EQU IEDQTRM+1 01525000 TRMRSTRT EQU TRMDESTQ+2 01526000 TRMINSEQ EQU IEDQTRM+4 01527000 TLISTCNT EQU TRMINSEQ 01528000 TRMSESCT EQU TLISTCNT 01529000 TRMOUTSQ EQU IEDQTRM+6 01530000 TLISTEN EQU TRMOUTSQ 01531000 TRMDSORG EQU TLISTEN 01532000 TRMPLIM EQU TLISTEN+1 01533000 TRMALTD EQU IEDQTRM+8 01534000 TRMPRILK EQU TRMALTD 01535000 TRMSTEAL EQU TRMPRILK 01536000 TRMTGNUM EQU TRMSTEAL 01537000 TRMDEVFL EQU IEDQTRM+10 01538000 TRMADDC EQU TRMDEVFL 01539000 TRMNCPI EQU TRMDEVFL+1 01540000 TRMSTAT EQU IEDQTRM+12 01541000 TRMAPB EQU TRMSTAT 01542000 TRMSIO EQU TRMAPB 01543000 TRMOWNER EQU TRMSIO 01544000 TRMSENSE EQU TRMAPB+3 01545000 IEDQTPTR EQU 0 01546000 IEDTHFD4 EQU 0 01547000 IEDTH4 EQU IEDTHFD4 01548000 TTHFID4 EQU IEDTH4 01549000 TTHRTEN EQU IEDTH4+2 01550000 TTHVRID EQU IEDTH4+3 01551000 TTHVRIND EQU IEDTH4+4 01552000 TTHVRRPC EQU IEDTH4+6 01553000 TTHVRCWR EQU TTHVRRPC 01554000 IEDTH EQU 0 01555000 @NM00250 EQU IEDTH 01556000 TTHBYTE0 EQU @NM00250 01557000 TTHDEF EQU @NM00250+2 01558000 TTHOEF EQU @NM00250+4 01559000 TTHSNF EQU @NM00250+6 01560000 TTHTAG EQU TTHSNF 01561000 TTHTAG1 EQU TTHTAG 01562000 ALLOCBUF EQU 0 01563000 DECRCT EQU 0 01564000 FREEBUFF EQU 0 01565000 IEDMVBFR EQU 0 01566000 IEDQTNT EQU 0 01567000 BDUTEXT EQU BDUEND 01568000 OCTG EQU OCFLAG1 01569000 @NM00113 EQU OCTG 01570000 OCMISCFG EQU OCFLAG1 01571000 @NM00116 EQU OCCKDATA 01572000 OCCURVR EQU @NM00116 01573000 @NM00118 EQU OCCIB 01574000 OCSTAT EQU @NM00118+1 01575000 OCCKPKY1 EQU OCCKPKEY 01576000 OCCKPTYP EQU OCCKPKY1 01577000 OCICACTN EQU OCMODNME 01578000 OCICDADR EQU OCICACTN 01579000 OCICSW EQU OCICDADR+3 01580000 @NM00123 EQU OCBACKUP 01581000 OCROUTE EQU OCFLAG1 01582000 OCBOTH EQU OCROUTE 01583000 @NM00125 EQU OCCKDATA 01584000 OCMSGFLG EQU OCPREFLG 01585000 OCBKUP1 EQU OCMODNME 01586000 OCTARTTC EQU OCBKUP1+4 01587000 @NM00129 EQU OCMODNME 01588000 OCCSIB EQU @NM00129 01589000 OCFLAG2 EQU OCOSUBA 01590000 @NM00133 EQU OCMODNME 01591000 OCGPTFLG EQU @NM00133+2 01592000 @NM00136 EQU OCLDNME 01593000 OCCNMHDR EQU @NM00136 01594000 OCBKUP2 EQU OCCKDATA 01595000 OCBKUP3 EQU OCLDNME 01596000 OCRESPTR EQU OCBKUP3+4 01597000 OCDIALLN EQU OCRESPTR 01598000 OCIPLDMP EQU OCLDNME+4 01599000 @NM00142 EQU OCLDNME 01600000 OCERSTAT EQU @NM00142 01601000 OPCAQWD EQU OPCAQCTL 01602000 OPCAQWD1 EQU OPCAQWD 01603000 OPCAQREQ EQU OPCAQWD1 01604000 OPCAQFST EQU OPCAQWD1+1 01605000 OPCAQWD2 EQU OPCAQWD+4 01606000 OPCAQSEC EQU OPCAQWD2+1 01607000 OPCAQWD3 EQU OPCAQWD+8 01608000 REQLDATA EQU REQDATA 01609000 REQSDATA EQU REQDATA 01610000 REQSTTE EQU REQSDATA 01611000 @NM00203 EQU REQDATA 01612000 @NM00204 EQU REQDATA 01613000 REQDATA1 EQU @NM00204+4 01614000 @NM00205 EQU REQDATA 01615000 REQDATA2 EQU @NM00205+8 01616000 @NM00206 EQU REQDATA1 01617000 @NM00207 EQU REQDATA1 01618000 REQCDE EQU @NM00207 01619000 @NM00208 EQU REQDATA2 01620000 REQSTFLG EQU @NM00208 01621000 REQSTALL EQU REQSTFLG 01622000 REQFRCPB EQU @NM00208+2 01623000 REQPUBFR EQU @NM00208+8 01624000 REQRSTTE EQU REQPUBFR 01625000 REQPUCPB EQU @NM00208+12 01626000 REQFLAGS EQU REQPUCPB 01627000 @NM00213 EQU REQDATA1 01628000 REQHIPRT EQU @NM00213+6 01629000 REQHIPRP EQU @NM00213+12 01630000 REQHIAR EQU @NM00213+16 01631000 @NM00215 EQU REQHIAR 01632000 REQHILSP EQU @NM00215+4 01633000 @NM00216 EQU REQHIAR 01634000 @NM00217 EQU REQHIAR 01635000 @NM00218 EQU REQDATA1 01636000 REQTPMA EQU @NM00218 01637000 @NM00219 EQU REQDATA1 01638000 REQMODE EQU REQDATA 01639000 @NM00233 EQU TRMSTATE 01640000 TRMPUSST EQU TRMBYTE7 01641000 TRMLUFD0 EQU TRMBYTE7 01642000 TRMSNAST EQU TRMBYTE6 01643000 TRMCDFD0 EQU TRMBYTE5 01644000 TRMPRE1 EQU TRMBYTE4 01645000 TRMLS1 EQU TRMBYTE4 01646000 TRMNCP1 EQU TRMBYTE4 01647000 TRMLU1 EQU TRMBYTE4 01648000 TRMLINK1 EQU TRMBYTE4 01649000 TRMDCONS EQU TRMLINK1 01650000 TRMPRE EQU TRMBYTE3 01651000 TRMNCP EQU TRMBYTE3 01652000 TRMIPLDM EQU TRMNCP 01653000 TRMNCP2 EQU TRMBYTE8 01654000 TRMPU EQU TRMBYTE3 01655000 TRMLU EQU TRMBYTE3 01656000 TRMCDMGR EQU TRMBYTE3 01657000 TRMLINK EQU TRMBYTE3 01658000 TICFLD EQU OCUNIT 01659000 TIC EQU TICFLD+3 01660000 OCCOSNME EQU OCLDNME 01661000 OCGPTRTE EQU OCLDNME 01662000 OCLINRRT EQU OCTRUNIT 01663000 OCPCID EQU OCBACKUP 01664000 OCRCVSZ EQU OCOID 01665000 OCRSNCDE EQU OCALSTAT 01666000 OCSENSE EQU OCBACKUP 01667000 OCSNTSZ EQU OCRLN 01668000 TRMASCMH EQU TRMBYTE1 01669000 TRMOPT EQU IEDQTRM+20 01670000 TRMPOOLP EQU TRMINSEQ 01671000 TRMSRPTR EQU TRMPLIM 01672000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01673000 @NM00253 EQU TICFLD 01674000 TRMLDISC EQU TRMLINK 01675000 TRMVSRL EQU TRMLINK 01676000 TRMLALOC EQU TRMLINK 01677000 TRMLSTAT EQU TRMLINK 01678000 TRMLINT EQU TRMLINK 01679000 TRMEPMOD EQU TRMLINK 01680000 TRMCDLOG EQU TRMCDMGR 01681000 @NM00246 EQU TRMCDMGR 01682000 @NM00245 EQU TRMCDMGR 01683000 @NM00244 EQU TRMCDMGR 01684000 @NM00243 EQU TRMCDMGR 01685000 TRMCDRDR EQU TRMCDMGR 01686000 TRMBKDUP EQU TRMCDMGR 01687000 TRMLULOG EQU TRMLU 01688000 TRMUNAVS EQU TRMLU 01689000 @NM00242 EQU TRMLU 01690000 @NM00241 EQU TRMLU 01691000 TRMTDIFF EQU TRMLU 01692000 TRMNTODS EQU TRMLU 01693000 TRMPCONT EQU TRMPU 01694000 TRMPDOCQ EQU TRMPU 01695000 TRMPULOC EQU TRMPU 01696000 TRMPDNAS EQU TRMPU 01697000 TRMPALOC EQU TRMPU 01698000 @NM00240 EQU TRMNCP2 01699000 TRMSAVFY EQU TRMNCP2 01700000 TRMNCONT EQU TRMNCP 01701000 TRMQUCKN EQU TRMNCP 01702000 TRMSLOWN EQU TRMNCP 01703000 TRMSYGEN EQU TRMNCP 01704000 TRMNCPCL EQU TRMNCP 01705000 TRMCONN EQU TRMIPLDM 01706000 TRMINOUT EQU TRMPRE 01707000 TRMRDOUT EQU TRMPRE 01708000 TRMNLOUT EQU TRMPRE 01709000 TRMWROUT EQU TRMPRE 01710000 TRMASNXI EQU TRMPRE 01711000 TRMSTMM EQU TRMPRE 01712000 TRMCMODE EQU TRMPRE 01713000 TRMSTPND EQU TRMPRE 01714000 TRMNCPLK EQU TRMLINK1 01715000 @NM00239 EQU TRMLINK1 01716000 TRMDIRCA EQU TRMLINK1 01717000 TRMDICAL EQU TRMLINK1 01718000 TRMDCONN EQU TRMDCONS 01719000 TRMDCOP EQU TRMDCONS 01720000 TRMPMARY EQU TRMLU1 01721000 TRMLUNAS EQU TRMLU1 01722000 TRMCDSRQ EQU TRMLU1 01723000 TRMLSCVP EQU TRMLU1 01724000 TRMSPURG EQU TRMLU1 01725000 TRMCPOPT EQU TRMLU1 01726000 TRMCPREQ EQU TRMLU1 01727000 TRMINNLK EQU TRMNCP1 01728000 TRMSANDX EQU TRMNCP1 01729000 TRMDYDMP EQU TRMNCP1 01730000 TRMCCPND EQU TRMNCP1 01731000 TRMSNA4 EQU TRMNCP1 01732000 TRMANS EQU TRMNCP1 01733000 TRMLINOP EQU TRMNCP1 01734000 TRMINOP EQU TRMNCP1 01735000 @NM00238 EQU TRMLS1 01736000 TRMCBIU EQU TRMLS1 01737000 TRMLYNCH EQU TRMPRE1 01738000 TRMSPOUT EQU TRMPRE1 01739000 TRMERLCK EQU TRMPRE1 01740000 TRMQNPL EQU TRMPRE1 01741000 TRMSPACT EQU TRMPRE1 01742000 TRMOCNI EQU TRMPRE1 01743000 TRMSESSN EQU TRMPRE1 01744000 TRMCONT EQU TRMPRE1 01745000 TRMINERR EQU TRMCDFD0 01746000 TRMLUTM EQU TRMCDFD0 01747000 TRMLUIT EQU TRMCDFD0 01748000 TRMLUREQ EQU TRMCDFD0 01749000 TRMCDPRE EQU TRMCDFD0 01750000 TRMWASCD EQU TRMCDFD0 01751000 TRMSRPFG EQU TRMCDFD0 01752000 TRMSESRQ EQU TRMCDFD0 01753000 @NM00237 EQU TRMSNAST 01754000 TRMDRSRC EQU TRMSNAST 01755000 @NM00236 EQU TRMLUFD0 01756000 TRMRMTMA EQU TRMLUFD0 01757000 TRMNHDRN EQU TRMLUFD0 01758000 TRMLSESS EQU TRMLUFD0 01759000 TRMASSOC EQU TRMLUFD0 01760000 TRMAUTO EQU TRMLUFD0 01761000 TRMCONTP EQU TRMPUSST 01762000 @NM00235 EQU TRMPUSST 01763000 @NM00234 EQU @NM00233 01764000 TRMENTRY EQU @NM00233 01765000 REQLCB EQU REQMODE+8 01766000 REQLTTE EQU REQMODE+4 01767000 REQMSRC EQU REQMODE 01768000 REQOPCPT EQU @NM00219 01769000 REQTPMT EQU REQTPMA+2 01770000 REQTPMI EQU REQTPMA 01771000 REQHISAP EQU @NM00217+8 01772000 REQHISRP EQU @NM00217+4 01773000 REQHISAT EQU @NM00217+2 01774000 REQHISRT EQU @NM00217 01775000 REQHIRRP EQU @NM00216 01776000 REQHITRT EQU @NM00215+8 01777000 REQHIOSP EQU REQHILSP 01778000 REQHITRP EQU @NM00215 01779000 REQHIAPP EQU REQHIPRP 01780000 REQHIRSP EQU @NM00213+8 01781000 REQHIAPT EQU REQHIPRT 01782000 REQHIRST EQU @NM00213+4 01783000 @NM00214 EQU @NM00213+1 01784000 REQHITYP EQU @NM00213 01785000 REQVRID EQU REQPUCPB+1 01786000 @NM00212 EQU REQFLAGS 01787000 REQVRFND EQU REQFLAGS 01788000 @NM00211 EQU REQRSTTE+2 01789000 REQTTCIN EQU REQRSTTE 01790000 REQFRBFR EQU @NM00208+4 01791000 REQSABIN EQU REQFRCPB 01792000 @NM00210 EQU @NM00208+1 01793000 @NM00209 EQU REQSTFLG 01794000 REQSTSIB EQU REQSTFLG 01795000 REQSTBFR EQU REQSTALL 01796000 REQSTCPB EQU REQSTALL 01797000 REQSTCLR EQU REQSTFLG 01798000 REQCDEA2 EQU @NM00207+8 01799000 REQCDEA1 EQU @NM00207+4 01800000 REQCDENA EQU REQCDE+2 01801000 REQCDEIN EQU REQCDE 01802000 REQUPTYP EQU @NM00206+32 01803000 REQTTEP1 EQU @NM00206+28 01804000 REQSIT2 EQU @NM00206+24 01805000 REQNAME2 EQU @NM00206+16 01806000 REQSIT1 EQU @NM00206+12 01807000 REQNAME1 EQU @NM00206+4 01808000 REQTNT2 EQU @NM00206+2 01809000 REQTNT1 EQU @NM00206 01810000 REQNAME EQU @NM00205 01811000 REQRTN EQU @NM00204 01812000 REQLCLU EQU @NM00203+4 01813000 REQUBIND EQU @NM00203 01814000 REQSTNT EQU REQSDATA+4 01815000 REQINDEX EQU REQSTTE 01816000 REQLSIBX EQU REQLDATA+2 01817000 REQLTNT EQU REQLDATA 01818000 OPCAQLST EQU OPCAQWD3+1 01819000 OPCAQRQ3 EQU OPCAQWD3 01820000 OPCAQRQ2 EQU OPCAQWD2 01821000 @NM00143 EQU @NM00142+5 01822000 OCUNDFER EQU OCERSTAT+4 01823000 OCINOPER EQU OCERSTAT+3 01824000 OCOPER EQU OCERSTAT+2 01825000 OCINACER EQU OCERSTAT+1 01826000 OCACTER EQU OCERSTAT 01827000 @NM00141 EQU OCIPLDMP 01828000 OCCSPDMP EQU OCIPLDMP 01829000 OCMOSDMP EQU OCIPLDMP 01830000 OCDYDMP EQU OCIPLDMP 01831000 OCACTRQ EQU OCIPLDMP 01832000 OCDACRQ EQU OCIPLDMP 01833000 OCIPLRQ EQU OCIPLDMP 01834000 OCDMPRQ EQU OCIPLDMP 01835000 @NM00140 EQU OCRESPTR+2 01836000 OCOHNATA EQU OCDIALLN 01837000 OCRRTPTR EQU OCBKUP3 01838000 @NM00139 EQU OCBKUP2+4 01839000 OCNHITTC EQU OCBKUP2+2 01840000 OCLINTTC EQU OCBKUP2 01841000 @NM00138 EQU @NM00136+6 01842000 OCRQSTYP EQU @NM00136+5 01843000 @NM00137 EQU OCCNMHDR+3 01844000 OCSESTUS EQU OCCNMHDR+2 01845000 OCRVTIND EQU OCCNMHDR 01846000 OCMAXTBL EQU @NM00133+4 01847000 @NM00135 EQU @NM00133+3 01848000 @NM00134 EQU OCGPTFLG 01849000 OCGPTTBS EQU OCGPTFLG 01850000 OCGPT1ST EQU OCGPTFLG 01851000 OCGPTSNS EQU @NM00133 01852000 @NM00132 EQU OCFLAG2+1 01853000 @NM00131 EQU OCFLAG2 01854000 OCG1STAL EQU OCFLAG2 01855000 OCGPTLGR EQU OCFLAG2 01856000 OCGPTALL EQU OCFLAG2 01857000 @NM00130 EQU @NM00129+4 01858000 OCCSAB EQU OCCSIB 01859000 @NM00128 EQU OCBKUP1+6 01860000 OCLNKTNT EQU OCTARTTC 01861000 OCSRTTC EQU OCBKUP1+2 01862000 OCRSTTC EQU OCBKUP1 01863000 @NM00127 EQU OCMSGFLG 01864000 OCRRT EQU OCMSGFLG 01865000 OCNAME EQU OCMSGFLG 01866000 OCLU1TTE EQU @NM00125+5 01867000 OCSFLAG EQU @NM00125+4 01868000 OCLU2TTI EQU @NM00125+2 01869000 OCLU1TTI EQU @NM00125 01870000 @NM00124 EQU OCROUTE 01871000 OCTEST EQU OCROUTE 01872000 OCINOP EQU OCBOTH 01873000 OCOP EQU OCBOTH 01874000 OCDISTLN EQU @NM00123+6 01875000 OCDISTAD EQU @NM00123+2 01876000 OCDISTNA EQU @NM00123 01877000 OCICINAC EQU OCICSW 01878000 @NM00122 EQU OCICSW 01879000 OCICATST EQU OCICDADR+1 01880000 OCICTYPE EQU OCICDADR 01881000 @NM00121 EQU OCCKPKY1 01882000 OCCKPENV EQU OCCKPKY1 01883000 OCCKPRST EQU OCCKPTYP 01884000 OCCKPNCP EQU OCCKPTYP 01885000 OCCKPINC EQU OCCKPTYP 01886000 @NM00120 EQU @NM00118+2 01887000 @NM00119 EQU OCSTAT 01888000 OCDCDRM EQU OCSTAT 01889000 OCTSTAT EQU OCSTAT 01890000 OCREASON EQU @NM00118 01891000 @NM00117 EQU @NM00116+4 01892000 OCOIDEP EQU OCCURVR 01893000 @NM00115 EQU OCMISCFG 01894000 OCCONRRT EQU OCMISCFG 01895000 OCINTRNL EQU OCMISCFG 01896000 OCLSCBS EQU OCMISCFG 01897000 OCTGTRRQ EQU OCMISCFG 01898000 OCTRMRQD EQU OCMISCFG 01899000 OCNODISC EQU OCMISCFG 01900000 @NM00114 EQU OCTG 01901000 OCALLNKS EQU OCTG 01902000 OCINACT EQU @NM00113 01903000 OCACT EQU @NM00113 01904000 TTHDCF EQU @NM00250+8 01905000 TTHTAG2 EQU TTHTAG+1 01906000 @NM00252 EQU TTHTAG1 01907000 TTHTAGS EQU TTHTAG1 01908000 TTHOAF EQU TTHOEF 01909000 TTHDAF EQU TTHDEF 01910000 TTHBYTE1 EQU @NM00250+1 01911000 TTHEFI EQU TTHBYTE0 01912000 @NM00251 EQU TTHBYTE0 01913000 TTHEBIU EQU TTHBYTE0 01914000 TTHBBIU EQU TTHBYTE0 01915000 TTHFTYPE EQU TTHBYTE0 01916000 TTHOSAF EQU IEDTH4+12 01917000 TTHDSAF EQU IEDTH4+8 01918000 TTHVRSNF EQU TTHVRRPC 01919000 TTHVRRWI EQU TTHVRRPC 01920000 @NM00249 EQU TTHVRCWR 01921000 TTHVRPRS EQU TTHVRRPC 01922000 TTHVRPRQ EQU TTHVRRPC 01923000 TTHTGSNF EQU TTHVRIND 01924000 TTHVRSQI EQU TTHVRIND 01925000 TTHTGNFI EQU TTHVRIND 01926000 TTHVRCWI EQU TTHVRIND 01927000 TTHTPF EQU TTHVRID 01928000 @NM00248 EQU TTHVRID 01929000 TTHVRN EQU TTHVRID 01930000 TTHERN EQU TTHRTEN 01931000 TTHIERN EQU TTHRTEN 01932000 @NM00247 EQU IEDTH4+1 01933000 TTHNWKPI EQU TTHFID4 01934000 TTHVRPCI EQU TTHFID4 01935000 TTHEVRSI EQU TTHFID4 01936000 TTHSWPTG EQU TTHFID4 01937000 TTHFIDI EQU TTHFID4 01938000 TRMOPTBL EQU IEDQTRM+18 01939000 TRMOPNO EQU IEDQTRM+17 01940000 TRMCHCIN EQU IEDQTRM+16 01941000 TRMLOCAD EQU TRMSENSE 01942000 TRMTEMPR EQU TRMAPB+2 01943000 TRMNADDR EQU TRMOWNER 01944000 @NM00232 EQU TRMDEVFL+1 01945000 TRMTPIN EQU TRMDEVFL+1 01946000 @NM00231 EQU TRMNCPI 01947000 TRMRNTRM EQU TRMDEVFL+1 01948000 @NM00230 EQU TRMDEVFL+1 01949000 TRMLMD EQU TRMDEVFL+1 01950000 TRMCONC EQU TRMDEVFL+1 01951000 TRMTSOB EQU TRMDEVFL 01952000 TRMBFDY EQU TRMDEVFL 01953000 TRMTBLK EQU TRMDEVFL 01954000 TRMSBLK EQU TRMDEVFL 01955000 TRMBLKS EQU TRMDEVFL 01956000 TRMSCV EQU TRMADDC 01957000 TRMDDIG EQU TRMDEVFL 01958000 TRMBUFS EQU TRMDEVFL 01959000 TRMTGCON EQU TRMTGNUM+1 01960000 TRMTGRRT EQU TRMTGNUM 01961000 TRMLGB EQU TRMDSORG 01962000 TRMUTERM EQU TRMSESCT 01963000 TRMVERIF EQU TRMRSTRT 01964000 @NM00229 EQU TRMRSTRT 01965000 @NM00228 EQU TRMDESTQ 01966000 TRMSCNYN EQU TRMSTATE 01967000 TRMOPTFN EQU TRMSTATE 01968000 TRMHELDN EQU TRMSTATE 01969000 TRMACPTN EQU TRMSTATE 01970000 TRMPREF EQU TRMSTATE 01971000 TRMPROC EQU TRMLOG 01972000 TRMLIST EQU TRMLOG 01973000 TRMLINE EQU TRMSTATE 01974000 TRMSUBST EQU IEDNTRM+30 01975000 TRMTYPE EQU IEDNTRM+29 01976000 TRMPRIME EQU TRMLGBST 01977000 TRMOWNR EQU TRMLBUFR+1 01978000 TRMGPCNT EQU TRMLBUFR 01979000 TRMBUFRD EQU TRMBYTE0 01980000 TRMSNA EQU TRMBYTE0 01981000 TRMGP EQU TRMBYTE0 01982000 TRMDIAL EQU TRMBYTE0 01983000 TRMACDC EQU TRMNOWCD 01984000 TRMOUTPT EQU TRMBYTE0 01985000 TRMINPUT EQU TRMBYTE0 01986000 TRMUDEF EQU TRMBYTE0 01987000 TRMCOHRT EQU IEDNTRM+22 01988000 TRMSTOTE EQU TRMBYTE1 01989000 TRMCKPRN EQU TRMBYTE1 01990000 TRMTSATN EQU TRMBYTE1 01991000 TRMTRACE EQU TRMBYTE1 01992000 TRMSWBCK EQU TRMBYTE1 01993000 TRMAUTOC EQU TRMBYTE1 01994000 TRMINPTP EQU TRMBYTE1 01995000 TRMWTNEG EQU TRMSCPRQ 01996000 TRMWRBRK EQU TRMBYTE2 01997000 TRMNOSND EQU TRMBYTE2 01998000 TRMPREP EQU TRMBYTE2 01999000 TRMGPACT EQU TRMBYTE2 02000000 TRMANDL EQU TRMBYTE2 02001000 TRMCLOSN EQU TRMINPG 02002000 TRMREMB EQU TRMBYTE2 02003000 TRMRSACT EQU TRMBYTE2 02004000 TRMCINOP EQU TRMCDF0 02005000 TRMRSTPD EQU TRMCDF0 02006000 TRMCLNXI EQU TRMCDF0 02007000 TRMDVAS0 EQU TRMCDF0 02008000 TRMPURGE EQU TRMCDF0 02009000 TRMLSNCP EQU TRMCDST 02010000 TRMDRTYC EQU TRMLKCHN 02011000 TRMBYTE9 EQU TRMDIALQ 02012000 TRMBYTEA EQU TRMACTDV 02013000 TRMRECON EQU TRMGPTAB+2 02014000 TRMILSA EQU TRMGPTAB 02015000 @NM00227 EQU TRMBYTEB 02016000 TRMNLDMT EQU TRMBYTEB 02017000 TRMF0SEQ EQU IEDNTRM+2 02018000 @NM00226 EQU IEDNTRM 02019000 @NM00225 EQU TRHBYTE2 02020000 TRHPDI EQU TRHBYTE2 02021000 TRHEDI EQU TRHBYTE2 02022000 TRHCSI EQU TRHBYTE2 02023000 @NM00224 EQU TRHBYTE2 02024000 TRHCDI EQU TRHBYTE2 02025000 TRHEB EQU TRHBYTE2 02026000 TRHBB EQU TRHBYTE2 02027000 TRHPI EQU TRHBYTE1 02028000 TRHQRI EQU TRHBYTE1 02029000 @NM00223 EQU TRHBYTE1 02030000 @NM00222 EQU TRHBYTE1 02031000 TRHER EQU TRHBYTE1 02032000 TRHDR2 EQU TRHBYTE1 02033000 @NM00221 EQU TRHBYTE1 02034000 TRHDR1 EQU TRHBYTE1 02035000 TRHEC EQU TRHBYTE0 02036000 TRHBC EQU TRHBYTE0 02037000 TRHSDI EQU TRHBYTE0 02038000 TRHFI EQU TRHBYTE0 02039000 @NM00220 EQU TRHBYTE0 02040000 TRHRUCAT EQU TRHBYTE0 02041000 TRHTYPE EQU TRHBYTE0 02042000 REQRCD2 EQU REQRCDS+1 02043000 REQRCD1 EQU REQRCDS 02044000 REQSWTCH EQU REQROUTE+1 02045000 REQFLAG EQU REQROUTE 02046000 REQRQCBA EQU IEDREQD+9 02047000 REQRPRI EQU IEDREQD+8 02048000 REQLINK EQU IEDREQD+5 02049000 REQPRI EQU IEDREQD+4 02050000 REQQCBA EQU IEDREQD+1 02051000 REQTYPE EQU IEDREQD 02052000 PRUREQSQ EQU IEDPRUND+6 02053000 PRUTAG EQU IEDPRUND+4 02054000 PRUTHEFI EQU PRUFIDN 02055000 PRUTHUSS EQU PRUFIDN 02056000 PRUTHEIU EQU PRUFIDN 02057000 PRUTHBIU EQU PRUFIDN 02058000 PRUTHTYE EQU PRUFIDN 02059000 @NM00202 EQU PRURHFG2 02060000 PRURHCSI EQU PRURHFG2 02061000 @NM00201 EQU PRURHFG2 02062000 PRURHCDI EQU PRURHFG2 02063000 PRURHEB EQU PRURHFG2 02064000 PRURHBB EQU PRURHFG2 02065000 PRURHPI EQU PRURHFG1 02066000 @NM00200 EQU PRURHFG1 02067000 PRURHER EQU PRURHFG1 02068000 PRURHDR2 EQU PRURHFG1 02069000 @NM00199 EQU PRURHFG1 02070000 PRURHDR1 EQU PRURHFG1 02071000 PRURHEC EQU PRURHFG0 02072000 PRURHBC EQU PRURHFG0 02073000 PRURHSDI EQU PRURHFG0 02074000 PRURHFI EQU PRURHFG0 02075000 @NM00198 EQU PRURHFG0 02076000 PRURUCAT EQU PRURHFG0 02077000 PRURHTYP EQU PRURHFG0 02078000 @NM00197 EQU PRUVTCHK 02079000 PRUITSET EQU PRUVTCHK 02080000 @NM00196 EQU PRUVTCHK 02081000 @NM00195 EQU PRUNUNIT 02082000 @NM00194 EQU PRUTIC 02083000 @NM00193 EQU IEDPRUQD+4 02084000 PLMVUNCA EQU IEDPLMV+20 02085000 PLMVFLG2 EQU PLMVFLGS+1 02086000 @NM00192 EQU PLMVFLG1 02087000 PLMVTRIB EQU PLMVFLG1 02088000 PLMVSRIB EQU PLMVFLG1 02089000 PLMVTSKP EQU PLMVFLG1 02090000 PLMVSSKP EQU PLMVFLG1 02091000 PLMVTCTG EQU PLMVFLG1 02092000 PLMVUNCF EQU PLMVFLG1 02093000 @NM00191 EQU OPREFLG3 02094000 OPREATCH EQU OPREFLG3 02095000 @NM00190 EQU OPREFLG3 02096000 OPREFLG2 EQU IEDOPRED+13 02097000 OPREFLG1 EQU IEDOPRED+12 02098000 @NM00189 EQU OPRVTCHK 02099000 OPRITSET EQU OPRVTCHK 02100000 @NM00188 EQU OPRVTCHK 02101000 @NM00187 EQU OPRETIC 02102000 OPRELINK EQU IEDOPRED+5 02103000 OPREPRI EQU IEDOPRED+4 02104000 OPREQCB EQU IEDOPRED+1 02105000 OPREKEY EQU IEDOPRED 02106000 OPCBOTTM EQU IEDQOPCD+11944 02107000 OPCTNLEX EQU IEDQOPCD+11928 02108000 @NM00186 EQU IEDQOPCD+7160 02109000 OPCTNIEX EQU IEDQOPCD+7144 02110000 OPCTNHEX EQU IEDQOPCD+7128 02111000 OPCTCLEX EQU IEDQOPCD+7112 02112000 @NM00185 EQU IEDQOPCD+2344 02113000 OPCTCIEX EQU IEDQOPCD+2328 02114000 OPCTCHEX EQU IEDQOPCD+2312 02115000 @NM00184 EQU IEDQOPCD+2280 02116000 @NM00183 EQU IEDQOPCD+2274 02117000 OPCTTRC EQU IEDQOPCD+2108 02118000 OPCNLRFM EQU IEDQOPCD+2104 02119000 OPCRHOLD EQU IEDQOPCD+2040 02120000 OPCADCB EQU IEDQOPCD+1864 02121000 OPCTRCAD EQU IEDQOPCD+1860 02122000 OPCADROP EQU IEDQOPCD+1856 02123000 @NM00182 EQU IEDQOPCD+1806 02124000 OPCNAM EQU IEDQOPCD+1798 02125000 @NM00181 EQU IEDQOPCD+1796 02126000 OPCBLIST EQU IEDQOPCD+1794 02127000 @NM00180 EQU IEDQOPCD+1793 02128000 @NM00179 EQU IEDQOPCD+1792 02129000 @NM00178 EQU IEDQOPCD+1789 02130000 @NM00177 EQU IEDQOPCD+1788 02131000 OPCBLDL EQU IEDQOPCD+1784 02132000 @NM00176 EQU IEDQOPCD+1712 02133000 OPCDSRWT EQU IEDQOPCD+1708 02134000 @NM00175 EQU IEDQOPCD+1616 02135000 @NM00174 EQU IEDQOPCD+1420 02136000 @NM00173 EQU IEDQOPCD+1412 02137000 @NM00172 EQU IEDQOPCD+612 02138000 @NM00171 EQU IEDQOPCD+611 02139000 OPCLSSEQ EQU IEDQOPCD+610 02140000 OPCRCTCH EQU IEDQOPCD+608 02141000 OPCRSASC EQU IEDQOPCD+604 02142000 OPCRECON EQU IEDQOPCD+600 02143000 OPCGETSA EQU IEDQOPCD+596 02144000 OPCSAASC EQU IEDQOPCD+592 02145000 OPCLKASC EQU IEDQOPCD+588 02146000 OPCDCBCH EQU IEDQOPCD+584 02147000 OPCCDSER EQU IEDQOPCD+580 02148000 OPCGTCDT EQU IEDQOPCD+576 02149000 OPCSRSCE EQU IEDQOPCD+572 02150000 OPCGTNSP EQU IEDQOPCD+568 02151000 OPCFGXPT EQU IEDQOPCD+564 02152000 OPCNCPLC EQU IEDQOPCD+560 02153000 OPCCTVRL EQU IEDQOPCD+556 02154000 OPCSYNSB EQU IEDQOPCD+552 02155000 OPCRVRLT EQU IEDQOPCD+548 02156000 OPCRCOSN EQU IEDQOPCD+544 02157000 OPCLOCLS EQU IEDQOPCD+540 02158000 OPCFXNAD EQU IEDQOPCD+536 02159000 @NM00170 EQU IEDQOPCD+532 02160000 OPCCDRDR EQU IEDQOPCD+528 02161000 OPCRSTRS EQU IEDQOPCD+524 02162000 OPCSAVES EQU IEDQOPCD+520 02163000 OPCRSPBD EQU IEDQOPCD+516 02164000 OPCNFY03 EQU IEDQOPCD+512 02165000 OPCNFY01 EQU IEDQOPCD+508 02166000 OPCURC EQU IEDQOPCD+504 02167000 OPCCINBD EQU IEDQOPCD+500 02168000 OPCCRKEY EQU IEDQOPCD+496 02169000 OPCDRSET EQU IEDQOPCD+492 02170000 OPCDRCLN EQU IEDQOPCD+488 02171000 OPCDRDEL EQU IEDQOPCD+484 02172000 OPCDRLOD EQU IEDQOPCD+480 02173000 OPCDRLOC EQU IEDQOPCD+476 02174000 OPCDRCVT EQU IEDQOPCD+472 02175000 OPCDRFST EQU IEDQOPCD+468 02176000 OPCLSABC EQU IEDQOPCD+466 02177000 @NM00169 EQU IEDQOPCD+465 02178000 @NM00168 EQU OPCSESSF 02179000 OPCGTSAB EQU OPCSESSF 02180000 @NM00167 EQU OPCSESSF 02181000 OPCUNIQV EQU OPCUNIQP+2 02182000 OPCUNIQU EQU OPCUNIQP 02183000 OPCOSSCP EQU OPCPCID 02184000 @NM00166 EQU IEDQOPCD+452 02185000 @NM00165 EQU IEDQOPCD+448 02186000 OPCSDUPU EQU IEDQOPCD+444 02187000 OPCSDULU EQU IEDQOPCD+440 02188000 OPCSDRVT EQU IEDQOPCD+436 02189000 OPCSDRET EQU IEDQOPCD+432 02190000 OPCSDHSY EQU IEDQOPCD+428 02191000 OPCSDENQ EQU IEDQOPCD+424 02192000 OPCSDDIA EQU IEDQOPCD+420 02193000 OPCSDAPU EQU IEDQOPCD+416 02194000 OPCSDALU EQU IEDQOPCD+412 02195000 OPCCSKEY EQU IEDQOPCD+408 02196000 OPCSSKEY EQU IEDQOPCD+404 02197000 OPCPRTTE EQU IEDQOPCD+400 02198000 OPCLU2TT EQU OPCSESS+14 02199000 OPCLU1TT EQU OPCSESS+12 02200000 OPCSNSU2 EQU OPCSNSUS+1 02201000 OPCSNSU1 EQU OPCSNSUS 02202000 OPCSNSMN EQU OPCSNSSY+1 02203000 OPCSNSMJ EQU OPCSNSSY 02204000 OPCCSAB EQU OPCCSIB 02205000 OPCCTTE EQU OPCSESS+1 02206000 OPCARSRT EQU OPCSFLAG 02207000 OPCISQUD EQU OPCSFLAG 02208000 OPCISQAV EQU OPCSFLAG 02209000 OPCLUREQ EQU OPCSFLAG 02210000 OPCISRSP EQU OPCSFLAG 02211000 OPCISQUE EQU OPCSFLAG 02212000 OPCRAPMH EQU OPCSFLAG 02213000 OPCRAPI EQU OPCSFLAG 02214000 OPCGTSIB EQU IEDQOPCD+380 02215000 @NM00164 EQU OPCPWCOB+9 02216000 @NM00163 EQU OPCPWCOB+8 02217000 @NM00162 EQU OPCPWECB+1 02218000 OPCPWCCC EQU OPCPWECB 02219000 OPCPWCHN EQU OPCPWQCB+1 02220000 OPCPWVTO EQU OPCPWQCB 02221000 OPCWAITV EQU IEDQOPCD+364 02222000 OPCTOTCK EQU IEDQOPCD+360 02223000 OPCAPXTL EQU IEDQOPCD+356 02224000 OPCWRKSP EQU IEDQOPCD+320 02225000 OPCRQCNT EQU IEDQOPCD+316 02226000 OPPOLSTP EQU IEDQOPCD+312 02227000 OPCCKCIB EQU IEDQOPCD+308 02228000 OPCEND EQU IEDQOPCD+307 02229000 OPCSTCBS EQU IEDQOPCD+306 02230000 OPCHNEND EQU IEDQOPCD+302 02231000 OPCOQSW EQU IEDQOPCD+301 02232000 @NM00161 EQU OPCSPEC 02233000 @NM00160 EQU OPCSPEC 02234000 @NM00159 EQU OPCSPEC 02235000 @NM00158 EQU OPCSPEC 02236000 OPCFRMCA EQU OPCSPEC 02237000 OPCRSTRT EQU OPCSPEC 02238000 OPCPART EQU OPCSPEC 02239000 OPCALTD EQU OPCSPEC 02240000 OPCBFEND EQU IEDQOPCD+296 02241000 OPCBFIRS EQU IEDQOPCD+292 02242000 OPCAVBUF EQU IEDQOPCD+290 02243000 OPCIPLCT EQU IEDQOPCD+289 02244000 OPCCLNTS EQU IEDQOPCD+288 02245000 OPCHA8 EQU IEDQOPCD+286 02246000 OPCBFREQ EQU IEDQOPCD+284 02247000 OPCNEXT EQU IEDQOPCD+272 02248000 OPCFMDFC EQU IEDQOPCD+268 02249000 OPCSCNC EQU IEDQOPCD+264 02250000 OPCHORTG EQU IEDQOPCD+260 02251000 OPCHORT EQU IEDQOPCD+256 02252000 OPCCKPTL EQU IEDQOPCD+252 02253000 OPCCKPTF EQU IEDQOPCD+248 02254000 OPCWAITA EQU IEDQOPCD+244 02255000 OPCWAITR EQU IEDQOPCD+240 02256000 OPCWAITP EQU IEDQOPCD+236 02257000 OPCWAITO EQU IEDQOPCD+232 02258000 OPCWAITN EQU IEDQOPCD+228 02259000 OPCWAITL EQU IEDQOPCD+224 02260000 OPCWAITC EQU IEDQOPCD+220 02261000 @NM00157 EQU OPCLDNME+5 02262000 @NM00156 EQU OPCLDNME 02263000 OPCWAIT EQU IEDQOPCD+192 02264000 OPCCKERB EQU IEDQOPCD+164 02265000 OPCBFERB EQU IEDQOPCD+148 02266000 OPCFLAG2 EQU IEDQOPCD+147 02267000 OPCFLAG1 EQU IEDQOPCD+146 02268000 OPCWRKSZ EQU IEDQOPCD+144 02269000 OPCRSAVE EQU IEDQOPCD+132 02270000 OPCQCBAD EQU IEDQOPCD+128 02271000 OPCTRMWA EQU IEDQOPCD+52 02272000 OPCPSTWT EQU IEDQOPCD+48 02273000 OPCTNTEA EQU IEDQOPCD+44 02274000 OPCPGCK EQU IEDQOPCD+40 02275000 OPCLCB EQU IEDQOPCD+36 02276000 OPCIPLAD EQU IEDQOPCD+28 02277000 OPCTOFLK EQU IEDQOPCD+24 02278000 OPCOPTLK EQU IEDQOPCD+20 02279000 OPCDCBLK EQU IEDQOPCD+16 02280000 OPCDOUBL EQU IEDQOPCD 02281000 OCTRLNKT EQU IEDOCTR+44 02282000 OCT3705S EQU IEDOCTR+40 02283000 OCTRANCP EQU IEDOCTR+38 02284000 OCTRNTTC EQU IEDOCTR+36 02285000 OCTRSAVE EQU IEDOCTR+32 02286000 OCTRADR EQU IEDOCTR+28 02287000 OCTRUCB EQU IEDOCTR+24 02288000 OCTRDVD EQU IEDOCTR+20 02289000 OCTRTTE EQU IEDOCTR+16 02290000 @NM00155 EQU OCTRRTN 02291000 OCTRERI EQU OCTRRTN 02292000 @NM00154 EQU OCTRRTN 02293000 OCTRLKST EQU OCTRRTN 02294000 OCTRLSRT EQU OCTRRTN 02295000 OCTRDRTN EQU OCTRRTN 02296000 OCTRIP EQU OCTRRTN 02297000 @NM00153 EQU OCTRRTE 02298000 @NM00152 EQU OCTRRTE 02299000 @NM00151 EQU OCTRRTE 02300000 OCTRMSG EQU OCTRRTE 02301000 @NM00150 EQU OCTRRTE 02302000 @NM00149 EQU OCTRRTE 02303000 @NM00148 EQU OCTRRTE 02304000 @NM00147 EQU OCTRRTE 02305000 @NM00146 EQU OCTRSW 02306000 OCTRINMF EQU OCTRSW 02307000 @NM00145 EQU OCTRSW 02308000 OCTRBLST EQU OCTRSW 02309000 OCTRNOS EQU OCTRSW 02310000 OCTROUT EQU OCTRSW 02311000 @NM00144 EQU IEDOCTR+12 02312000 OCTRLCB EQU IEDOCTR+8 02313000 OCTRDCB EQU IEDOCTR+4 02314000 OCTROPCE EQU IEDOCTR 02315000 @NM00126 EQU OCLDNME+6 02316000 OC1SQID EQU OCLDNME+4 02317000 OCWAITPC EQU OCPREFLG 02318000 OCSRCCLN EQU OCPREFLG 02319000 OCREMCON EQU OCPREFLG 02320000 OCCLNUP EQU OCPREFLG 02321000 OCTOTEP EQU OCPREFLG 02322000 OCREPOST EQU OCPREFLG 02323000 OCRSPSNT EQU OCPREFLG 02324000 OCBFREQ EQU OCPREFLG 02325000 OCIDLE EQU OCREQFLG 02326000 OCFORCE EQU OCREQFLG 02327000 OCDCARD EQU OCREQFLG 02328000 OCPARTAL EQU OCREQFLG 02329000 OCADNCP EQU OCREQFLG 02330000 OCRMPORQ EQU OCREQFLG 02331000 OCCDLACT EQU OCREQFLG 02332000 OCFLUSHZ EQU OCREQFLG 02333000 OCRESPCT EQU OCLINTTE 02334000 OCDSUBA EQU OCFLOADP+2 02335000 OCURC EQU OCOID 02336000 OCCKPTWA EQU OCCKDATA+4 02337000 OCSRCTTC EQU OCNCP 02338000 OCCKDAT2 EQU OC379RRT+1 02339000 OCCKDAT1 EQU OC379RRT 02340000 OCVRLST EQU OCECHOPT 02341000 OCPUADR EQU OCIPLWA+2 02342000 OCWTGSAV EQU OCIPLWA 02343000 @NM00112 EQU OCBACKUP+4 02344000 OCBUFRET EQU OCCOUNT2 02345000 OCBUFUSD EQU OCCOUNT1 02346000 OCSEQ EQU OCTRUNIT+2 02347000 OCPEND EQU OCLNTYP 02348000 OCQUED EQU OCLNTYP 02349000 OCDOWN EQU OCLNTYP 02350000 OCALACT EQU OCLNTYP 02351000 OCLNQDAP EQU OCFLAG1 02352000 OCTYPTRM EQU OCFLAG1 02353000 OCNONE EQU OCALSTAT 02354000 OCSOME EQU OCALSTAT 02355000 OCALLFLG EQU OCALSTAT 02356000 OCSEQIND EQU OCALSTAT 02357000 OCDACTIP EQU OCFNAALL 02358000 OCRENTRD EQU OCALSTAT 02359000 OCDIALX EQU OCWTGB 02360000 OCATNDX EQU OCMSTSAV+2 02361000 OCCONID EQU OCDEST 02362000 OCTGN EQU OCLOCAD 02363000 OCRESP EQU OCFLAG 02364000 OCATTACH EQU OCFLAG 02365000 OCSSCP EQU OCFLAG 02366000 OCOUTPUT EQU OCFLAG 02367000 OCLINE EQU OCFLAG 02368000 OCMPP EQU OCFLAG 02369000 OCTOTE EQU OCFLAG 02370000 OCCONSOL EQU OCFLAG 02371000 @NM00111 EQU OCSWITCH 02372000 OCQUCKN EQU OCSWITCH 02373000 @NM00110 EQU OCUNITBF 02374000 OCINVTIC EQU OCUNITBF 02375000 @NM00109 EQU OCUNITBF 02376000 @NM00108 EQU @NM00107 02377000 @NM00106 EQU OCSCAN 02378000 OCNOTUCB EQU OCSCAN 02379000 OCNONAME EQU OCSCAN 02380000 OCALLRLN EQU OCSCAN 02381000 OCDDNAME EQU OCSCAN 02382000 OCDDNRLN EQU OCSCAN 02383000 OCADDR EQU OCSCAN 02384000 NRAREAD EQU IEDNRA+16 02385000 NRAR2PTR EQU IEDNRA+12 02386000 NRAR1PTR EQU IEDNRA+8 02387000 NRASIZE EQU IEDNRA+4 02388000 CNRBHPOS EQU CNRBHSET+1 02389000 @NM00105 EQU CNRBHFUN 02390000 CNRBHFN0 EQU CNRBHFUN 02391000 @NM00104 EQU CNRCNTL+1 02392000 CNRTIME EQU CNRDATTM+4 02393000 CNRDATE EQU CNRDATTM 02394000 BDUXGRPH EQU BDUEXRSP 02395000 BDUXFINL EQU BDUEXRSP 02396000 BDUXINIT EQU BDUEXRSP 02397000 BDURESP EQU BDUSYRSP 02398000 BDUPHASE EQU BDUSYRSP 02399000 BDUERROR EQU BDUSYRSP 02400000 BDUXERLK EQU BDUBDUFG 02401000 BDUALTAK EQU BDUFNFLG 02402000 BDUNEGAK EQU BDUFNFLG 02403000 BDUPOSAK EQU BDUFNFLG 02404000 BDUTPTX EQU BDUFNFLG 02405000 BDUFRSTB EQU BDUFNFLG 02406000 BDULEADG EQU BDUFNFLG 02407000 BDUHEADR EQU BDUFNFLG 02408000 BDUSTHDR EQU BDUFNFLG 02409000 SAVTEND EQU IEDNSVTD+816 02410000 SAVTNTR EQU IEDNSVTD+812 02411000 SAVTNPT EQU IEDNSVTD+808 02412000 SAVTGPE2 EQU IEDNSVTD+804 02413000 SAVTGPP2 EQU IEDNSVTD+800 02414000 SAVTGPT2 EQU IEDNSVTD+799 02415000 SAVTGPT1 EQU IEDNSVTD+798 02416000 SAVTGPTS EQU IEDNSVTD+796 02417000 SAVTGPE1 EQU IEDNSVTD+792 02418000 SAVTGPP1 EQU IEDNSVTD+788 02419000 SAVTNLDM EQU IEDNSVTD+784 02420000 SAVTPUSN EQU IEDNSVTD+776 02421000 SAVTAUXC EQU IEDNSVTD+772 02422000 SAVTSCAN EQU IEDNSVTD+768 02423000 SAVTFCSP EQU IEDNSVTD+764 02424000 SAVTFCSN EQU IEDNSVTD+760 02425000 SAVTFCLI EQU IEDNSVTD+756 02426000 SAVTVARR EQU IEDNSVTD+752 02427000 SAVTFCIN EQU IEDNSVTD+748 02428000 SAVTPTNT EQU IEDNSVTD+744 02429000 SAVTFSAB EQU IEDNSVTD+740 02430000 SAVTGSAB EQU IEDNSVTD+736 02431000 SAVTARSI EQU IEDNSVTD+728 02432000 SAVTARSQ EQU IEDNSVTD+724 02433000 SAVTSABP EQU IEDNSVTD+720 02434000 SAVTPUS EQU IEDNSVTD+716 02435000 SAVTEACR EQU IEDNSVTD+712 02436000 SAVTERAV EQU IEDNSVTD+708 02437000 SAVTCINO EQU IEDNSVTD+704 02438000 SAVTEAVR EQU IEDNSVTD+700 02439000 SAVTEVRP EQU IEDNSVTD+696 02440000 SAVTNLSA EQU IEDNSVTD+692 02441000 SAVTENOP EQU IEDNSVTD+688 02442000 SAVTEROP EQU IEDNSVTD+684 02443000 SAVTEACT EQU IEDNSVTD+680 02444000 SAVTEMGR EQU IEDNSVTD+676 02445000 SAVTEBRQ EQU IEDNSVTD+672 02446000 @NM00103 EQU IEDNSVTD+668 02447000 SAVTERFB EQU IEDNSVTD+664 02448000 SAVTERRB EQU IEDNSVTD+660 02449000 SAVTRTSB EQU IEDNSVTD+656 02450000 SAVTERCQ EQU IEDNSVTD+652 02451000 SAVTVPMG EQU IEDNSVTD+648 02452000 SAVTVNFY EQU IEDNSVTD+644 02453000 SAVTVNOP EQU IEDNSVTD+640 02454000 SAVTVDVR EQU IEDNSVTD+636 02455000 SAVTVDAC EQU IEDNSVTD+632 02456000 SAVTVACT EQU IEDNSVTD+628 02457000 SAVTVAVR EQU IEDNSVTD+624 02458000 SAVTVCVD EQU IEDNSVTD+620 02459000 SAVTVCVA EQU IEDNSVTD+616 02460000 SAVTVMGR EQU IEDNSVTD+612 02461000 SAVTVRIT EQU IEDNSVTD+608 02462000 SAVTERTP EQU IEDNSVTD+604 02463000 SAVTVRTE EQU IEDNSVTD+600 02464000 SAVTERMP EQU IEDNSVTD+596 02465000 SAVTVRTP EQU IEDNSVTD+592 02466000 SAVTWSET EQU IEDNSVTD+588 02467000 SAVTCOSP EQU IEDNSVTD+584 02468000 SAVTINIQ EQU IEDNSVTD+580 02469000 SAVTVRMM EQU IEDNSVTD+576 02470000 SAVTVERI EQU IEDNSVTD+572 02471000 SAVTVRER EQU IEDNSVTD+568 02472000 SAVTFCTL EQU IEDNSVTD+564 02473000 SAVTCNOT EQU IEDNSVTD+560 02474000 SAVTCMMD EQU IEDNSVTD+556 02475000 SAVTCGBU EQU IEDNSVTD+552 02476000 SAVTCBND EQU IEDNSVTD+548 02477000 SAVTPCT2 EQU IEDNSVTD+544 02478000 @NM00102 EQU IEDNSVTD+540 02479000 SAVTERTS EQU IEDNSVTD+536 02480000 SAVTERVR EQU IEDNSVTD+532 02481000 SAVTLST0 EQU IEDNSVTD+530 02482000 SAVTVRTM EQU IEDNSVTD+528 02483000 SAVTVRTC EQU IEDNSVTD+526 02484000 SAVTVRTN EQU IEDNSVTD+524 02485000 SAVTMTPF EQU IEDNSVTD+523 02486000 SAVTMERN EQU IEDNSVTD+522 02487000 SAVTMVRN EQU IEDNSVTD+521 02488000 SAVTSAVR EQU IEDNSVTD+520 02489000 SAVTDEFA EQU IEDNSVTD+516 02490000 SAVTDEFR EQU IEDNSVTD+515 02491000 @NM00101 EQU IEDNSVTD+514 02492000 SAVTDEFL EQU IEDNSVTD+512 02493000 SAVTTDEF EQU IEDNSVTD+508 02494000 SAVTSESN EQU IEDNSVTD+504 02495000 SAVTLCNT EQU IEDNSVTD+502 02496000 SAVTSMAX EQU IEDNSVTD+500 02497000 SAVTSINO EQU IEDNSVTD+498 02498000 SAVTAMAX EQU IEDNSVTD+496 02499000 SAVTAENO EQU IEDNSVTD+494 02500000 SAVTAINO EQU IEDNSVTD+492 02501000 SAVTNMAX EQU IEDNSVTD+490 02502000 SAVTNENO EQU IEDNSVTD+488 02503000 SAVTNINO EQU IEDNSVTD+486 02504000 SAVTRSZE EQU IEDNSVTD+484 02505000 SAVTRMAX EQU IEDNSVTD+482 02506000 SAVTRENO EQU IEDNSVTD+480 02507000 SAVTRINO EQU IEDNSVTD+478 02508000 SAVTRMIN EQU IEDNSVTD+476 02509000 SAVTPMID EQU IEDNSVTD+474 02510000 SAVTRRTC EQU IEDNSVTD+472 02511000 SAVTLUSG EQU IEDNSVTD+468 02512000 SAVTACNQ EQU IEDNSVTD+464 02513000 SAVTCM20 EQU IEDNSVTD+460 02514000 SAVTCFDC EQU IEDNSVTD+456 02515000 SAVTCMOT EQU IEDNSVTD+452 02516000 SAVTCMIN EQU IEDNSVTD+448 02517000 SAVTCPCH EQU IEDNSVTD+444 02518000 SAVTCRGT EQU IEDNSVTD+440 02519000 SAVTNALC EQU IEDNSVTD+436 02520000 SAVTATCT EQU IEDNSVTD+434 02521000 SAVTCRIU EQU IEDNSVTD+432 02522000 SAVTCRHI EQU IEDNSVTD+430 02523000 SAVTCRIB EQU IEDNSVTD+428 02524000 SAVTLCQ EQU IEDNSVTD+424 02525000 SAVTDRSR EQU IEDNSVTD+420 02526000 SAVTATPT EQU IEDNSVTD+416 02527000 SAVTCSMI EQU IEDNSVTD+412 02528000 SAVTNXCR EQU IEDNSVTD+408 02529000 SAVTCRPT EQU IEDNSVTD+404 02530000 SAVTCIPH EQU IEDNSVTD+400 02531000 SAVTBTCO EQU IEDNSVTD+396 02532000 SAVTBTCI EQU IEDNSVTD+392 02533000 SAVTBPCO EQU IEDNSVTD+388 02534000 SAVTBPCI EQU IEDNSVTD+384 02535000 SAVTLLCB EQU IEDNSVTD+380 02536000 SAVTSCF0 EQU IEDNSVTD+376 02537000 SAVTLSNY EQU IEDNSVTD+372 02538000 SAVTLSZP EQU IEDNSVTD+368 02539000 SAVTOMSU EQU IEDNSVTD+364 02540000 SAVTGTSB EQU IEDNSVTD+360 02541000 SAVTHIBL EQU IEDNSVTD+356 02542000 SAVTHISY EQU IEDNSVTD+352 02543000 SAVTNAX2 EQU IEDNSVTD+348 02544000 SAVTCDRU EQU IEDNSVTD+344 02545000 SAVTPOLC EQU IEDNSVTD+342 02546000 SAVTPOLM EQU IEDNSVTD+340 02547000 SAVTPOLR EQU IEDNSVTD+336 02548000 SAVTCDRN EQU SAVTCDRV 02549000 SAVTPOLL EQU IEDNSVTD+328 02550000 SAVTPOLN EQU IEDNSVTD+326 02551000 @NM00100 EQU IEDNSVTD+325 02552000 @NM00099 EQU SAVTNETF 02553000 SAVTPTRC EQU SAVTNETF 02554000 SAVTSDIS EQU SAVTNETF 02555000 SAVTROUT EQU SAVTNETF 02556000 SAVTNETW EQU SAVTNETF 02557000 SAVTDIAL EQU IEDNSVTD+320 02558000 SAVTRQUT EQU IEDNSVTD+316 02559000 SAVTBITN EQU IEDNSVTD+312 02560000 @NM00098 EQU SAVTCKQB+8 02561000 @NM00097 EQU SAVTCKEC+1 02562000 @NM00096 EQU SAVTCKCC 02563000 SAVTCKPO EQU SAVTCKCC 02564000 SAVTCKWA EQU SAVTCKCC 02565000 SAVTCKCH EQU SAVTCKTB+1 02566000 SAVTCKVT EQU SAVTCKTB 02567000 @NM00095 EQU IEDNSVTD+297 02568000 SAVTRDFG EQU SAVTRDRV+12 02569000 @NM00094 EQU SAVTRDRV+5 02570000 SAVTRDPY EQU SAVTRDRV+4 02571000 SAVTRDQB EQU SAVTRDRV+1 02572000 SAVTRDKY EQU SAVTRDRV 02573000 SAVTNID EQU IEDNSVTD+280 02574000 SAVTDVAS EQU IEDNSVTD+276 02575000 SAVTPLSZ EQU IEDNSVTD+274 02576000 @NM00093 EQU IEDNSVTD+273 02577000 SAVTSUBL EQU IEDNSVTD+272 02578000 @NM00092 EQU SAVTZELM+1 02579000 SAVTSUBM EQU SAVTZELM 02580000 SAVTMHDX EQU IEDNSVTD+268 02581000 SAVTNAT1 EQU IEDNSVTD+266 02582000 SAVTSH20 EQU IEDNSVTD+264 02583000 SAVTLCBS EQU IEDNSVTD+260 02584000 SAVTRNMP EQU IEDNSVTD+256 02585000 SAVTTNTX EQU IEDNSVTD+252 02586000 SAVTNAX EQU IEDNSVTD+248 02587000 SAVTSUBV EQU IEDNSVTD+247 02588000 SAVTSUBA EQU IEDNSVTD+246 02589000 SAVTSIBC EQU IEDNSVTD+244 02590000 SAVTBSM EQU IEDNSVTD+240 02591000 SAVTSCPT EQU SAVTTCPU 02592000 SAVTRQTG EQU IEDNSVTD+236 02593000 SAVTRQCH EQU IEDNSVTD+232 02594000 SAVTMAND EQU IEDNSVTD+228 02595000 SAVTSPLN EQU IEDNSVTD+224 02596000 SAVTNADL EQU IEDNSVTD+222 02597000 SAVTNATL EQU IEDNSVTD+220 02598000 SAVTMHTB EQU IEDNSVTD+216 02599000 SAVTSSMH EQU IEDNSVTD+212 02600000 SAVTQRS EQU IEDNSVTD+208 02601000 SAVTRQIN EQU IEDNSVTD+204 02602000 SAVTDFCO EQU IEDNSVTD+200 02603000 SAVTSAO EQU IEDNSVTD+196 02604000 SAVTSARI EQU IEDNSVTD+192 02605000 SAVTSAC EQU IEDNSVTD+188 02606000 SAVTSAI EQU IEDNSVTD+184 02607000 SAVTCSCI EQU IEDNSVTD+180 02608000 SAVTSSRP EQU IEDNSVTD+176 02609000 SAVTSSRQ EQU IEDNSVTD+172 02610000 SAVTEP EQU SAVTSCLU 02611000 SAVTXTRQ EQU IEDNSVTD+164 02612000 @NM00091 EQU IEDNSVTD+148 02613000 SAVTIPCQ EQU IEDNSVTD+144 02614000 @NM00090 EQU IEDNSVTD+136 02615000 SAVTXFMI EQU IEDNSVTD+132 02616000 @NM00089 EQU IEDNSVTD+124 02617000 SAVTXFMO EQU IEDNSVTD+120 02618000 @NM00088 EQU IEDNSVTD+116 02619000 SAVTSSSR EQU IEDNSVTD+112 02620000 SAVTSCPQ EQU IEDNSVTD+108 02621000 SAVTSLCB EQU IEDNSVTD+104 02622000 SAVTLUSR EQU IEDNSVTD+100 02623000 @NM00087 EQU SAVTLUSQ+8 02624000 SAVTLUSP EQU SAVTLUSQ+4 02625000 SAVTLUSB EQU SAVTLUSQ 02626000 @NM00086 EQU IEDNSVTD+84 02627000 SAVTSAT EQU IEDNSVTD+80 02628000 SAVTNAT EQU IEDNSVTD+76 02629000 SAVTCLUP EQU IEDNSVTD+72 02630000 SAVTPIUT EQU IEDNSVTD+68 02631000 SAVTRNTA EQU IEDNSVTD+64 02632000 SAVTDNIR EQU IEDNSVTD+60 02633000 SAVTCNIR EQU IEDNSVTD+56 02634000 SAVTFLDH EQU IEDNSVTD+52 02635000 SAVTSRTN EQU IEDNSVTD+48 02636000 SAVTSREQ EQU IEDNSVTD+44 02637000 SAVTFAIL EQU IEDNSVTD+42 02638000 SAVTSUSE EQU IEDNSVTD+40 02639000 SAVTSIB EQU IEDNSVTD+36 02640000 SAVTPRTN EQU IEDNSVTD+32 02641000 @NM00085 EQU IEDNSVTD+28 02642000 SAVTWH20 EQU IEDNSVTD+26 02643000 SAVTPWT EQU IEDNSVTD+24 02644000 SAVTPRTQ EQU IEDNSVTD+20 02645000 SAVTPREQ EQU IEDNSVTD+16 02646000 SAVTPH20 EQU IEDNSVTD+14 02647000 SAVTPUSE EQU IEDNSVTD+12 02648000 SAVTPLCB EQU IEDNSVTD+8 02649000 SAVTPOOL EQU IEDNSVTD+4 02650000 SAVTPRMT EQU SAVTDIAF 02651000 SAVTVIRT EQU SAVTDIAF 02652000 AVTEND EQU IEDQAVTD+1284 02653000 AVTREUMI EQU IEDQAVTD+1281 02654000 @NM00084 EQU AVTBIT5 02655000 AVTAUACT EQU AVTBIT5 02656000 AVTREUSR EQU AVTBIT5 02657000 AVTQHMCQ EQU IEDQAVTD+1276 02658000 AVTQHMDA EQU IEDQAVTD+1272 02659000 AVTTVT EQU IEDQAVTD+1268 02660000 AVTSITS EQU IEDQAVTD+1264 02661000 AVTMSUHI EQU IEDQAVTD+1260 02662000 AVTSITU EQU IEDQAVTD+1256 02663000 AVTSITP EQU IEDQAVTD+1252 02664000 AVTPADDR EQU IEDQAVTD+1248 02665000 @NM00083 EQU IEDQAVTD+1246 02666000 AVTCPBNO EQU IEDQAVTD+1244 02667000 AVTHRESS EQU IEDQAVTD+1243 02668000 @NM00082 EQU IEDQAVTD+1242 02669000 @NM00081 EQU IEDQAVTD+1241 02670000 @NM00080 EQU IEDQAVTD+1240 02671000 @NM00079 EQU IEDQAVTD+1237 02672000 @NM00078 EQU IEDQAVTD+1236 02673000 AVTHRESE EQU @NM00077 02674000 AVTRADDR EQU IEDQAVTD+1228 02675000 AVTNADDR EQU IEDQAVTD+1224 02676000 AVTHRESN EQU IEDQAVTD+1220 02677000 AVTVOLRN EQU IEDQAVTD+1216 02678000 AVTTOTNN EQU IEDQAVTD+1212 02679000 AVTTRCYN EQU IEDQAVTD+1208 02680000 AVTRCTRN EQU IEDQAVTD+1204 02681000 AVTNOVON EQU IEDQAVTD+1200 02682000 AVTADEBN EQU IEDQAVTD+1196 02683000 AVTVOLRR EQU IEDQAVTD+1192 02684000 AVTTOTNR EQU IEDQAVTD+1188 02685000 AVTTRCYR EQU IEDQAVTD+1184 02686000 AVTRCTRR EQU IEDQAVTD+1180 02687000 AVTNOVOR EQU IEDQAVTD+1176 02688000 AVTADEBR EQU IEDQAVTD+1172 02689000 AVTLODPT EQU IEDQAVTD+1168 02690000 AVTIOBN EQU IEDQAVTD+1164 02691000 AVTIOBR EQU IEDQAVTD+1160 02692000 AVTCPBPT EQU IEDQAVTD+1156 02693000 AVTFCPB EQU IEDQAVTD+1152 02694000 @NM00076 EQU IEDQAVTD+1148 02695000 AVTINCPQ EQU IEDQAVTD+1144 02696000 @NM00075 EQU IEDQAVTD+1140 02697000 @NM00074 EQU IEDQAVTD+1137 02698000 @NM00073 EQU AVTBIT4 02699000 @NM00072 EQU AVTBIT4 02700000 @NM00071 EQU AVTBIT4 02701000 @NM00070 EQU AVTBIT4 02702000 @NM00069 EQU AVTBIT4 02703000 @NM00068 EQU AVTBIT4 02704000 @NM00067 EQU AVTBIT4 02705000 AVTRUFTN EQU AVTBIT4 02706000 @NM00066 EQU IEDQAVTD+1132 02707000 AVTNOBFQ EQU IEDQAVTD+1128 02708000 @NM00065 EQU IEDQAVTD+1124 02709000 AVTDKENQ EQU IEDQAVTD+1120 02710000 @NM00064 EQU IEDQAVTD+1116 02711000 AVTDKAPQ EQU IEDQAVTD+1112 02712000 AVTCOPY EQU IEDQAVTD+1108 02713000 AVTIA EQU IEDQAVTD+1104 02714000 AVTFL EQU IEDQAVTD+1100 02715000 @NM00063 EQU IEDQAVTD+1096 02716000 AVTNCPBQ EQU IEDQAVTD+1092 02717000 AVTTOTNC EQU IEDQAVTD+1088 02718000 AVTCMAX EQU IEDQAVTD+1084 02719000 AVTCMIN EQU IEDQAVTD+1080 02720000 AVTQHM03 EQU IEDQAVTD+1076 02721000 AVTOPCIN EQU IEDQAVTD+1074 02722000 AVTDCTLN EQU IEDQAVTD+1072 02723000 AVTOPMSK EQU IEDQAVTD+1068 02724000 AVTDDFT EQU IEDQAVTD+1064 02725000 AVTSTEAL EQU IEDQAVTD+1060 02726000 AVTOPTN EQU IEDQAVTD+1056 02727000 AVTDSKCT EQU IEDQAVTD+1054 02728000 AVTCKRST EQU IEDQAVTD+1053 02729000 AVTSTAN EQU AVTBIT3 02730000 AVTSTACN EQU AVTBIT3 02731000 AVTSTAIN EQU AVTBIT3 02732000 AVTSTAYN EQU AVTBIT3 02733000 AVTOLTBN EQU AVTBIT3 02734000 AVTTSAB EQU AVTBIT3 02735000 AVTRFULN EQU AVTBIT3 02736000 AVTRECVN EQU AVTBIT3 02737000 @NM00062 EQU AVTBIT2 02738000 @NM00061 EQU AVTBIT2 02739000 AVTOPEIN EQU AVTBIT2 02740000 AVTSTRTN EQU AVTBIT2 02741000 AVTTOPOL EQU AVTBIT2 02742000 AVTCOPYN EQU AVTBIT2 02743000 AVTREUSN EQU AVTBIT2 02744000 AVTEXTSC EQU AVTBIT2 02745000 AVTDISKN EQU AVTBIT1 02746000 AVTQUCKN EQU AVTBIT1 02747000 AVTCLOSN EQU AVTBIT1 02748000 AVTREADN EQU AVTBIT1 02749000 AVTDLAYN EQU AVTBIT1 02750000 AVTAQTAN EQU AVTBIT1 02751000 AVTTSON EQU AVTBIT1 02752000 AVTAPLKN EQU AVTBIT1 02753000 AVTDUMBR EQU IEDQAVTD+1048 02754000 AVTDLQX EQU IEDQAVTD+1046 02755000 AVTINTLV EQU IEDQAVTD+1044 02756000 AVTSMCNT EQU IEDQAVTD+1042 02757000 AVTAVFCT EQU IEDQAVTD+1040 02758000 AVTOPCON EQU IEDQAVTD+1038 02759000 AVTOPCNT EQU IEDQAVTD+1036 02760000 AVTLNCNT EQU IEDQAVTD+1034 02761000 AVTHA16 EQU IEDQAVTD+1030 02762000 AVTHA7 EQU IEDQAVTD+1028 02763000 AVTHA4 EQU IEDQAVTD+1026 02764000 AVTHA3 EQU IEDQAVTD+1024 02765000 AVTHA2 EQU IEDQAVTD+1022 02766000 AVTGETMS EQU IEDQAVTD+1021 02767000 @NM00060 EQU IEDQAVTD+1020 02768000 AVTGETMD EQU IEDQAVTD+1016 02769000 AVTGETMN EQU IEDQAVTD+1012 02770000 AVTCWTOT EQU IEDQAVTD+1008 02771000 AVTCWINT EQU IEDQAVTD+960 02772000 AVTCCECB EQU IEDQAVTD+956 02773000 AVTDTRAP EQU IEDQAVTD+952 02774000 @NM00059 EQU IEDQAVTD+951 02775000 AVTGPTSQ EQU IEDQAVTD+950 02776000 @NM00058 EQU AVTIOTR 02777000 AVTIOTRH EQU AVTIOTR 02778000 AVTIOTRE EQU AVTIOTR 02779000 @NM00057 EQU AVTSUBT 02780000 AVTSUBPT EQU AVTSUBT 02781000 AVTSUBON EQU AVTSUBT 02782000 AVTAFE30 EQU IEDQAVTD+944 02783000 AVTAFE20 EQU IEDQAVTD+940 02784000 AVTAFE10 EQU IEDQAVTD+936 02785000 AVTCWEC2 EQU IEDQAVTD+932 02786000 AVTCWPM2 EQU IEDQAVTD+928 02787000 AVTCWTS2 EQU IEDQAVTD+927 02788000 AVTCWTS1 EQU IEDQAVTD+926 02789000 AVTCWCLD EQU AVTCWFL2 02790000 AVTCWRAP EQU AVTCWFL2 02791000 AVTCFE50 EQU AVTCWFL2 02792000 AVTCFE30 EQU AVTCWFL2 02793000 AVTCFE10 EQU AVTCWFL2 02794000 AVTCFE20 EQU AVTCWFL2 02795000 AVTCFE40 EQU AVTCWFL2 02796000 AVTCWACT EQU AVTCWFL2 02797000 AVTCFE60 EQU AVTCWFL1 02798000 @NM00056 EQU AVTCWFL1 02799000 @NM00055 EQU AVTCWFL1 02800000 @NM00054 EQU AVTCWFL1 02801000 @NM00053 EQU AVTCWFL1 02802000 @NM00052 EQU AVTCWFL1 02803000 @NM00051 EQU AVTCWFL1 02804000 AVTCOMWN EQU AVTCWFL1 02805000 AVTCWEC1 EQU IEDQAVTD+920 02806000 AVTCWPM1 EQU IEDQAVTD+916 02807000 AVTCAREA EQU IEDQAVTD+912 02808000 AVTFZERO EQU IEDQAVTD+908 02809000 AVTCADDR EQU IEDQAVTD+904 02810000 AVTCOREC EQU IEDQAVTD+900 02811000 @NM00050 EQU IEDQAVTD+892 02812000 AVTCPBCB EQU IEDQAVTD+888 02813000 @NM00049 EQU IEDQAVTD+880 02814000 AVTDSIOB EQU IEDQAVTD+876 02815000 @NM00048 EQU IEDQAVTD+868 02816000 AVTCPRMB EQU IEDQAVTD+864 02817000 @NM00047 EQU IEDQAVTD+856 02818000 AVTCLOSB EQU IEDQAVTD+852 02819000 @NM00046 EQU IEDQAVTD+844 02820000 AVTACTIB EQU IEDQAVTD+840 02821000 @NM00045 EQU IEDQAVTD+836 02822000 AVTOLTEB EQU IEDQAVTD+832 02823000 AVTOLTCH EQU AVTOLTQB+1 02824000 AVTOLTVT EQU AVTOLTQB 02825000 @NM00044 EQU AVTOPCQB+8 02826000 @NM00043 EQU AVTOPCEC+1 02827000 @NM00042 EQU AVTOPCCC 02828000 AVTOPCPO EQU AVTOPCCC 02829000 AVTOPCWA EQU AVTOPCCC 02830000 AVTOPCCH EQU AVTOPCOB+1 02831000 AVTOPCVT EQU AVTOPCOB 02832000 @NM00041 EQU AVTCKPQB+9 02833000 AVTCKPTS EQU AVTCKPQB+8 02834000 @NM00040 EQU AVTCKPEC+1 02835000 @NM00039 EQU AVTCKPCC 02836000 AVTCKPPO EQU AVTCKPCC 02837000 AVTCKPWA EQU AVTCKPCC 02838000 AVTCKPCH EQU AVTCKPTB+1 02839000 AVTCKPVT EQU AVTCKPTB 02840000 @NM00038 EQU IEDQAVTD+796 02841000 AVTBFRTB EQU IEDQAVTD+792 02842000 @NM00037 EQU IEDQAVTD+788 02843000 AVTSELCH EQU IEDQAVTD+785 02844000 AVTBFRTN EQU AVTBFRFG 02845000 AVTBFREB EQU IEDQAVTD+780 02846000 AVTTIMQ EQU IEDQAVTD+776 02847000 @NM00036 EQU IEDQAVTD+772 02848000 AVTIMQPS EQU IEDQAVTD+768 02849000 AVTINOUT EQU IEDQAVTD+766 02850000 AVTREFTM EQU IEDQAVTD+764 02851000 @NM00035 EQU IEDQAVTD+752 02852000 AVTDELYB EQU IEDQAVTD+748 02853000 AVTOCQPT EQU IEDQAVTD+744 02854000 AVTTSOPT EQU IEDQAVTD+740 02855000 AVTSUPPT EQU IEDQAVTD+736 02856000 AVTCBQCB EQU IEDQAVTD+732 02857000 AVTMSGS EQU IEDQAVTD+729 02858000 @NM00034 EQU AVTSYSER 02859000 @NM00033 EQU AVTSYSER 02860000 @NM00032 EQU AVTSYSER 02861000 @NM00031 EQU AVTSYSER 02862000 @NM00030 EQU AVTSYSER 02863000 @NM00029 EQU AVTSYSER 02864000 AVTCMAXN EQU AVTSYSER 02865000 AVTCMINN EQU AVTSYSER 02866000 AVT2260L EQU IEDQAVTD+724 02867000 AVTABEPL EQU AVTADBUF 02868000 AVTHFF EQU AVTCLRHI+2 02869000 @NM00028 EQU AVTCLRHI 02870000 AVTCCLNK EQU AVTCRELE+5 02871000 AVTCCPRI EQU AVTCRELE+4 02872000 AVTCCQCB EQU AVTCCELE+1 02873000 AVTCCKEY EQU AVTCCELE 02874000 AVTDELAD EQU IEDQAVTD+704 02875000 AVTDELEM EQU IEDQAVTD+700 02876000 AVTBSX EQU AVTCKLNK 02877000 AVTOPETR EQU AVTHG01 02878000 @NM00027 EQU AVTCKBYT 02879000 AVTCKONQ EQU AVTCKBYT 02880000 @NM00026 EQU AVTCKBYT 02881000 @NM00025 EQU AVTCKBYT 02882000 @NM00024 EQU AVTCKBYT 02883000 @NM00023 EQU AVTCKBYT 02884000 @NM00022 EQU AVTCKBYT 02885000 @NM00021 EQU AVTCKBYT 02886000 AVTOPERT EQU IEDQAVTD+690 02887000 AVTOPXCL EQU IEDQAVTD+688 02888000 AVTOPERL EQU IEDQAVTD+687 02889000 @NM00020 EQU IEDQAVTD+686 02890000 AVTCKTIM EQU IEDQAVTD+684 02891000 AVTCKELV EQU IEDQAVTD+682 02892000 AVTCPRCD EQU IEDQAVTD+681 02893000 AVTWARMN EQU AVTCKELF 02894000 AVTCRTLN EQU AVTCKELF 02895000 AVTCPIPN EQU AVTCKELF 02896000 AVTCCLCN EQU AVTCKELF 02897000 AVTCINCN EQU AVTCKELF 02898000 @NM00019 EQU AVTCKELF 02899000 AVTCMCPN EQU AVTCKELF 02900000 AVTNQBCK EQU AVTCKELF 02901000 AVTCKQAD EQU IEDQAVTD+677 02902000 AVTSCBSZ EQU IEDQAVTD+676 02903000 @NM00018 EQU IEDQAVTD+672 02904000 AVTCKELE EQU IEDQAVTD+668 02905000 @NM00017 EQU AVTCKPEL+8 02906000 AVTCKRLK EQU AVTCKPEL+5 02907000 AVTCKRPR EQU AVTCKPEL+4 02908000 AVTCKRMQ EQU AVTCKRMV+1 02909000 AVTCKRKY EQU AVTCKRMV 02910000 AVTHK EQU IEDQAVTD+648 02911000 AVTHI EQU IEDQAVTD+644 02912000 AVTIOT EQU IEDQAVTD+640 02913000 AVTNX EQU IEDQAVTD+636 02914000 AVTTONE EQU IEDQAVTD+632 02915000 AVTA3TL EQU IEDQAVTD+628 02916000 AVTDMECB EQU IEDQAVTD+624 02917000 AVTABEND EQU IEDQAVTD+618 02918000 AVTPLCBN EQU IEDQAVTD+616 02919000 @NM00016 EQU AVTSAVTP+1 02920000 @NM00015 EQU AVTSAVTF 02921000 AVTRAPI EQU AVTSAVTF 02922000 AVTLCLST EQU AVTSAVTF 02923000 AVT370X EQU AVTSAVTF 02924000 AVTSNA EQU AVTSAVTF 02925000 AVTONSNA EQU AVTSAVTF 02926000 AVTVTMCP EQU AVTSAVTF 02927000 AVTTRNOS EQU IEDQAVTD+608 02928000 AVTCMBSS EQU IEDQAVTD+604 02929000 AVTRCV EQU IEDQAVTD+600 02930000 AVTSEND EQU IEDQAVTD+596 02931000 AVTCSCH EQU IEDQAVTD+592 02932000 AVTQ1 EQU IEDQAVTD+588 02933000 AVTE7 EQU IEDQAVTD+584 02934000 AVTHB EQU IEDQAVTD+580 02935000 AVTR1 EQU IEDQAVTD+576 02936000 AVTBZ EQU IEDQAVTD+572 02937000 AVTEZ EQU IEDQAVTD+568 02938000 AVTEC EQU IEDQAVTD+564 02939000 AVTEW EQU IEDQAVTD+560 02940000 AVTNDIAL EQU AVTSCOPT 02941000 AVTN2741 EQU AVTSCOPT 02942000 AVTCONCO EQU AVTSCOPT 02943000 AVTCONC EQU AVTSCOPT 02944000 AVTCMBUF EQU AVTSCOPT 02945000 AVTAPDMP EQU AVTSCOPT 02946000 @NM00014 EQU AVTSCOPT 02947000 AVTHA EQU AVTDISP 02948000 AVTEA EQU IEDQAVTD+548 02949000 AVTAX EQU IEDQAVTD+544 02950000 AVTA3 EQU IEDQAVTD+540 02951000 AVTGD EQU IEDQAVTD+536 02952000 AVTAL EQU IEDQAVTD+532 02953000 AVTOLTST EQU AVTHG02 02954000 AVTE8 EQU IEDQAVTD+524 02955000 AVTUI EQU IEDQAVTD+520 02956000 AVTCOMPT EQU IEDQAVTD+516 02957000 AVTCRSRF EQU IEDQAVTD+512 02958000 @NM00013 EQU IEDQAVTD+508 02959000 AVTKA02 EQU IEDQAVTD+504 02960000 AVTOPTPT EQU IEDQAVTD+500 02961000 AVTPCBPT EQU IEDQAVTD+496 02962000 AVTECBAD EQU IEDQAVTD+492 02963000 AVTOPECA EQU IEDQAVTD+488 02964000 AVTOLECA EQU IEDQAVTD+484 02965000 AVTCKECA EQU IEDQAVTD+480 02966000 AVTCWECA EQU IEDQAVTD+476 02967000 AVTCWTCB EQU IEDQAVTD+472 02968000 AVTOLTCB EQU IEDQAVTD+468 02969000 AVTOCTCB EQU IEDQAVTD+464 02970000 AVTCKTCB EQU IEDQAVTD+460 02971000 AVTAS EQU IEDQAVTD+456 02972000 AVTNCKPR EQU IEDQAVTD+453 02973000 AVTCIB EQU IEDQAVTD+452 02974000 AVTSPLPT EQU IEDQAVTD+448 02975000 AVTMVBFR EQU IEDQAVTD+444 02976000 AVTSBTA EQU IEDQAVTD+440 02977000 AVTRARTN EQU IEDQAVTD+436 02978000 AVTBSCAN EQU IEDQAVTD+432 02979000 AVTRDYA EQU IEDQAVTD+428 02980000 AVTDISTR EQU IEDQAVTD+420 02981000 AVTPARM3 EQU IEDQAVTD+416 02982000 @NM00012 EQU AVTPKF 02983000 @NM00011 EQU AVTPKF 02984000 @NM00010 EQU AVTPKF 02985000 AVTFTCHF EQU AVTPKF 02986000 @NM00009 EQU AVTPKF 02987000 @NM00008 EQU AVTPKF 02988000 @NM00007 EQU AVTPKF 02989000 @NM00006 EQU AVTPKF 02990000 AVTPARM EQU IEDQAVTD+408 02991000 AVTEXS2A EQU IEDQAVTD+402 02992000 AVTEXA2S EQU IEDQAVTD+396 02993000 AVTOCGET EQU IEDQAVTD+392 02994000 AVTCKAVT EQU @NM00004+1 02995000 @NM00005 EQU AVTCKFLG 02996000 AVTCKHLT EQU AVTCKFLG 02997000 AVTCKREQ EQU AVTCKFLG 02998000 AVTCKENV EQU AVTCKFLG 02999000 AVTCKNAC EQU AVTCKFLG 03000000 AVTCKTAC EQU AVTCKFLG 03001000 AVTBUENT EQU IEDQAVTD+386 03002000 @NM00003 EQU IEDQAVTD+385 03003000 AVTFULLT EQU AVTBUFSW 03004000 AVTUNCON EQU AVTBUFSW 03005000 AVTTRAPI EQU AVTBUFSW 03006000 @NM00002 EQU AVTBUFSW 03007000 AVTBUFTR EQU AVTREADD 03008000 AVTREADY EQU IEDQAVTD+376 03009000 AVTRACE EQU IEDQAVTD+372 03010000 AVTTCB EQU IEDQAVTD+368 03011000 AVTPASWD EQU IEDQAVTD+360 03012000 AVTCTLCH EQU IEDQAVTD+352 03013000 AVTDOUBL EQU IEDQAVTD+344 03014000 AVTDOUBX EQU IEDQAVTD+336 03015000 AVTDPARM EQU IEDQAVTD+332 03016000 AVTCSTCS EQU IEDQAVTD+328 03017000 AVTDLQ EQU AVTSAVEX+32 03018000 @NM00001 EQU AVTSAVEX 03019000 AVTSAVE4 EQU IEDQAVTD+216 03020000 AVTSAVE3 EQU IEDQAVTD+144 03021000 AVTSAVE2 EQU IEDQAVTD+72 03022000 AVTSAVE1 EQU IEDQAVTD 03023000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03024000 @RC01058 EQU @RC01057 03025000 @RC01053 EQU @RC01052 03026000 @RC01303 EQU @RC01166 03027000 DS 0D 03028000 @ENDDATA EQU * 03029000 END IGCFF10D 03030000