TITLE 'IGCAE10D, SET TIME AND DATE *00001000 ' 00002000 IGCAE10D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * 0297 00005000 USING *,RBASE 00006000 LR RBASE,RF /* SET UP ADDRESSIBILITY */ 00007000 IGCAE10D IEDHJN START,HJN 00008000 */* */ 00009000 * 0298 00010000 * /* INITIALIZATION */ 00011000 * ROPCAVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00012000 LR ROPCAVT,RPARM 0298 00013000 * RELEMENT=OPCCOPCE; /* CURRENT ELEMENT ADDRESS */ 00014000 L RELEMENT,OPCCOPCE(,ROPCAVT) 0299 00015000 * RAVT=OPCAVTPT; /* TCAM AVT ADDRESS */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0300 00017000 * RWORK=OPCWORK; /* OP CONTROL WORK AREA */ 00018000 L RWORK,OPCWORK(,ROPCAVT) 0301 00019000 * RSAVE=ADDR(OPCSAVE); /* OP CONTROL SAVE AREA */ 00020000 LA RSAVE,OPCSAVE(,ROPCAVT) 0302 00021000 */* */ 00022000 * 0303 00023000 * IF OCRESP=OFF THEN /* REQUEST FOR SET TIME AND DATE? 00024000 * ...PROCESS */ 00025000 TM OCRESP(ROPCE),B'00000001' 0303 00026000 BNZ @RF00303 0303 00027000 * CALL STDREQ; 0304 00028000 BAL @14,STDREQ 0304 00029000 * ELSE 0305 00030000 * CALL STDRSP; /* PROCESS RESPONSE */ 00031000 B @RC00303 0305 00032000 @RF00303 BAL @14,STDRSP 0305 00033000 */* */ 00034000 * 0306 00035000 * RPARM=ROPCAVT; /* OP CONTROL AVT ADDRESS */ 00036000 @RC00303 LR RPARM,ROPCAVT 0306 00037000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT; 0307 00038000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00039000 *DATECNVT: 0308 00040000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0308 00041000 * 0308 00042000 @EL00001 DS 0H 0308 00043000 @EF00001 DS 0H 0308 00044000 @ER00001 BR @14 0308 00045000 DATECNVT DS 0H 0309 00046000 * /*****************************************************************/ 00047000 * /* */ 00048000 * /* THIS ROUTINE CONVERTS THE JULIAN DATE TO THE CALENDAR DATE. */ 00049000 * /* THIS PROCESS IS ACCOMPLISHED BY USING A TABLE THAT CONTAINS A */ 00050000 * /* CHARACTER REPRESENTATION OF THE MONTH FOLLOWED BY THE NUMBER */ 00051000 * /* OF DAYS THAT ARE IN THAT MONTH. THE COMPUTED CALENDAR DATE IS */ 00052000 * /* PLACED IN UNPACKED FORMAT IN A "PACKED RU" */ 00053000 * /* */ 00054000 * /*****************************************************************/ 00055000 * 0309 00056000 * WKTMPDW=WKTMPDW&&WKTMPDW; /* CLEAR DOUBLE WORD */ 00057000 XC WKTMPDW(8,ROPCAVT),WKTMPDW(ROPCAVT) 0309 00058000 * RZERO=DTPACKYR; /* RZERO HAS PACKED YEAR */ 00059000 SLR RZERO,RZERO 0310 00060000 IC RZERO,DTPACKYR(,RWORK) 0310 00061000 * SLL(RZERO,FOUR); /* SHIFT PACKED YEAR */ 00062000 LA @11,4 0311 00063000 SLL RZERO,0(@11) 0311 00064000 * WKTMPYR=RZERO; /* SAVE PACKED YEAR */ 00065000 STH RZERO,WKTMPYR(,ROPCAVT) 0312 00066000 * WKTMPYR=WKTMPYR|MASK2; /* ADD SIGN TO PACKED YEAR */ 00067000 OC WKTMPYR(2,ROPCAVT),MASK2 0313 00068000 * GEN REFS(ROPCAVT,WKTMPDW) SETS(RZERO); 0314 00069000 CVB RZERO,WKTMPDW(ROPCAVT) MAKE YEAR BINARY 00070000 * WKBINYR=RZERO; /* SAVE BINARY YEAR */ 00071000 STC RZERO,WKBINYR(,RWORK) 0315 00072000 * WKTMPDD=DTPACKDD; /* D WORD HAS PACKED DATE */ 00073000 MVC WKTMPDD(2,ROPCAVT),DTPACKDD(RWORK) 0316 00074000 * GEN REFS(ROPCAVT,WKTMPDW) SETS(RZERO); 0317 00075000 CVB RZERO,WKTMPDW(ROPCAVT) MAKE JULIAN DATE BINARY 00076000 * WKBINDY=RZERO; /* SAVE BINARY DATE */ 00077000 STH RZERO,WKBINDY(,RWORK) 0318 00078000 */* */ 00079000 * 0319 00080000 * IF WKBINYR//FOUR=0 THEN /* LEAP YEAR */ 00081000 SLR @06,@06 0319 00082000 IC @06,WKBINYR(,RWORK) 0319 00083000 SRDA @06,32 0319 00084000 D @06,@CF00459 0319 00085000 LTR @06,@06 0319 00086000 BNZ @RF00319 0319 00087000 * DO; 0320 00088000 * WKTABDAY=TABLEDAY; /* MOVE TABLE TO WORKAREA */ 00089000 MVC WKTABDAY(36,RWORK),TABLEDAY 0321 00090000 * WKTBLPTR=ADDR(WKTABDAY); /* INITIALIZE TABLE PRT TO FIRST 00091000 * ENTRY */ 00092000 LA @11,WKTABDAY(,RWORK) 0322 00093000 ST @11,WKTBLPTR(,RWORK) 0322 00094000 * WKFEBDAY=WKFEBDAY+1; /* ADD A DAY TO FEBRUARY */ 00095000 LA @11,1 0323 00096000 SLR @10,@10 0323 00097000 IC @10,WKFEBDAY(,RWORK) 0323 00098000 ALR @11,@10 0323 00099000 STC @11,WKFEBDAY(,RWORK) 0323 00100000 * END; 0324 00101000 * 0324 00102000 */* */ 00103000 * 0325 00104000 * ELSE 0325 00105000 * WKTBLPTR=ADDR(TABLEDAY); /* INITIALIZE TABLE PTR TO FIRST 00106000 * ENTRY */ 00107000 B @RC00319 0325 00108000 @RF00319 LA @11,TABLEDAY 0325 00109000 ST @11,WKTBLPTR(,RWORK) 0325 00110000 * WKDAYCNT=TABDAYS; /* GET NUMBER OF DAYS FOR FIRST 00111000 * MONTH */ 00112000 @RC00319 L @11,WKTBLPTR(,RWORK) 0326 00113000 SLR @10,@10 0326 00114000 IC @10,TABDAYS(,@11) 0326 00115000 STH @10,WKDAYCNT(,RWORK) 0326 00116000 * DO WHILE WKBINDY>WKDAYCNT; /* JULIAN DATE > TOTAL NUMBER OF 00117000 * DAYS */ 00118000 B @DE00327 0327 00119000 @DL00327 DS 0H 0328 00120000 * WKTBLPTR=WKTBLPTR+LENGTH(TABENTRY);/* BUMP TO NEXT ENTRY */ 00121000 LA @11,3 0328 00122000 AL @11,WKTBLPTR(,RWORK) 0328 00123000 ST @11,WKTBLPTR(,RWORK) 0328 00124000 * WKDAYCNT=WKDAYCNT+TABDAYS; /* ADD NO OF DAYS TO TOTAL */ 00125000 SLR @10,@10 0329 00126000 IC @10,TABDAYS(,@11) 0329 00127000 AH @10,WKDAYCNT(,RWORK) 0329 00128000 STH @10,WKDAYCNT(,RWORK) 0329 00129000 * END; 0330 00130000 * 0330 00131000 @DE00327 LH @11,WKBINDY(,RWORK) 0330 00132000 N @11,@CF01356 0330 00133000 LH @10,WKDAYCNT(,RWORK) 0330 00134000 CR @11,@10 0330 00135000 BH @DL00327 0330 00136000 */* */ 00137000 * 0331 00138000 * WKDAYCNT=WKDAYCNT-TABDAYS; /* SUBTRACT NO OF DAYS FOR THIS 00139000 * MONTH */ 00140000 L @09,WKTBLPTR(,RWORK) 0331 00141000 SLR @08,@08 0331 00142000 IC @08,TABDAYS(,@09) 0331 00143000 SLR @10,@08 0331 00144000 STH @10,WKDAYCNT(,RWORK) 0331 00145000 * WKBINDY=WKBINDY-WKDAYCNT; /* SUBTRACT TOTAL FROM JULIAN 0332 00146000 * DATE */ 00147000 SLR @11,@10 0332 00148000 STH @11,WKBINDY(,RWORK) 0332 00149000 */* */ 00150000 * 0333 00151000 * RZERO=WKBINDY; /* BINARY CALENDAR DATE */ 00152000 LR RZERO,@11 0333 00153000 * GEN REFS(RZERO,ROPCAVT) SETS(WKTMPDW); 0334 00154000 CVD RZERO,WKTMPDW(ROPCAVT) CONVERT CALENDAR DATE 00155000 * DTPACKDD=WKTMPDD; /* SAVE DECIMAL NUMBER */ 00156000 MVC DTPACKDD(2,RWORK),WKTMPDD(ROPCAVT) 0335 00157000 */* */ 00158000 * 0336 00159000 * DTPACKDD=DTPACKDD|MASK2; /* PUT IN ZONE */ 00160000 OC DTPACKDD(2,RWORK),MASK2 0336 00161000 * UNPK(DTUNPKDY,DTPACKDD); /* UNPACK DATE */ 00162000 UNPK DTUNPKDY(2,RWORK),DTPACKDD(2,RWORK) 0337 00163000 * XSCVCDAY=DTUNPKDY; /* MOVE CALENDAR DATE INTO 0338 00164000 * COMMAND */ 00165000 LA @11,12 0338 00166000 AL @11,OCUNIT(,ROPCE) 0338 00167000 MVC XSCVCDAY(2,@11),DTUNPKDY(RWORK) 0338 00168000 * XSCVMON=TABMONTH; /* MOVE MONTH INTO COMMAND */ 00169000 L @10,WKTBLPTR(,RWORK) 0339 00170000 MVC XSCVMON(2,@11),TABMONTH(@10) 0339 00171000 */* */ 00172000 * 0340 00173000 * END DATECNVT; /* RETURN TO CALLER */ 00174000 @EL00002 DS 0H 0340 00175000 @EF00002 DS 0H 0340 00176000 @ER00002 BR @14 0340 00177000 *STDREQ: 0341 00178000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0341 00179000 * 0341 00180000 STDREQ DS 0H 0342 00181000 * /*****************************************************************/ 00182000 * /* */ 00183000 * /* THIS ROUTINE PROCESSES THE OPCE THAT REQUESTS A SET TIME AND */ 00184000 * /* DATE COMMAND. THE TIME MACRO IS USED TO DETERMINE THE TIME AND*/ 00185000 * /* DATE. A SET CONTROL VECTOR FOR SET TIME AND DATE IS BUILT AND */ 00186000 * /* PASSED TO IGC0210D. */ 00187000 * /* */ 00188000 * /*****************************************************************/ 00189000 * 0342 00190000 * WKSAVE1=RE; /* SAVE REG 14 */ 00191000 ST RE,WKSAVE1(,RWORK) 0342 00192000 * RPARM=1; /* SET NO OF UNITS TO 1 */ 00193000 LA RPARM,1 0343 00194000 * CALL ALLOCBUF; /* REQUEST A BUFFER */ 00195000 L @15,OPCGETBF(,ROPCAVT) 0344 00196000 BALR @14,@15 0344 00197000 * OCUNIT=RPARM; /* SAVE BUFFER ADDRESS */ 00198000 ST RPARM,OCUNIT(,ROPCE) 0345 00199000 * OCWTGB=OCWTG; /* SAVE "WHERE TO GO" FIELD */ 00200000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 0346 00201000 */* */ 00202000 * 0347 00203000 * /* SET UP COMMAND CONSTANTS */ 00204000 * PRURHTH=RHTH; /* SET UP THE RH AND TH */ 00205000 L @11,OCUNIT(,ROPCE) 0347 00206000 LR @10,@11 0347 00207000 AL @10,@CF01357 0347 00208000 MVC PRURHTH(4,@10),@CB01270 0347 00209000 * PRUTTCIN=OCTRMTBL; /* SET UP THE DESTINATION */ 00210000 LH @10,OCTRMTBL(,ROPCE) 0348 00211000 N @10,@CF01356 0348 00212000 STH @10,PRUTTCIN(,@11) 0348 00213000 * PRUDATCT=XSCVTDLN; /* SET UP DATA COUNT FIELD */ 00214000 MVC PRUDATCT(2,@11),@CH01222 0349 00215000 * XSCVCODE=CD1XSCV; /* SET CONTROL VECTOR */ 00216000 AL @11,@CF00239 0350 00217000 MVC XSCVCODE(3,@11),@CB00718 0350 00218000 * XSCVKEY=CD1SETTD; /* SET TIME AND DATE */ 00219000 MVI XSCVKEY(@11),X'01' 0351 00220000 * XSCVDLM1=SLASH; /* DELIMITER */ 00221000 MVI XSCVDLM1(@11),C'/' 0352 00222000 * XSCVDLM2=SLASH; /* DELIMITER */ 00223000 MVI XSCVDLM2(@11),C'/' 0353 00224000 * XSCVDLM3=PERIOD; /* DELIMITER */ 00225000 MVI XSCVDLM3(@11),C'.' 0354 00226000 * XSCVDLM4=PERIOD; /* DELIMITER */ 00227000 MVI XSCVDLM4(@11),C'.' 0355 00228000 * XSCVDLM5=PERIOD; /* DELIMITER */ 00229000 MVI XSCVDLM5(@11),C'.' 0356 00230000 */* */ 00231000 * 0357 00232000 * RPARM=OCTRMTBL; /* REG1 HAS RESOURCE TNT */ 00233000 LR RPARM,@10 0357 00234000 * CALL IEDIAP04; /* CONVERT TNT TO NETWORK ADDRESS*/ 00235000 L @11,AVTSAVTP(,RAVT) 0358 00236000 L @15,SAVTTNTX(,@11) 0358 00237000 BALR @14,@15 0358 00238000 * XSCVADDR=RF; /* MOVE NET ADDR TO PACKED RU */ 00239000 L @11,OCUNIT(,ROPCE) 0359 00240000 STCM RF,3,XSCVADDR+12(@11) 0359 00241000 */* */ 00242000 * 0360 00243000 * GEN CODE REFS(RPARM) SETS(RZERO,RPARM) NOEXIT NOFLOWS NODEFS 0360 00244000 * SEQFLOW; 0360 00245000 * /* @ZM47760*/ 00246000 * /* @ZM47760 00247000 TIME DEC GET TIME IN DECIMAL @ZM47760 00248000 * SRL(RZERO,FOUR); /* SHIFT FOR PROPER FORMAT */ 00249000 LA @11,4 0361 00250000 SRL RZERO,0(@11) 0361 00251000 * TMPACKST=RZERO; /* SAVE TIME OF DAY */ 00252000 STCM RZERO,15,TMPACKST(RWORK) 0362 00253000 * DTPACKST=RPARM; /* SAVE YEAR AND DATE */ 00254000 ST RPARM,DTPACKST(,RWORK) 0363 00255000 */* */ 00256000 * 0364 00257000 * /* PREPARE TO UNPACK DATA */ 00258000 * TMPACKST=TMPACKST|MASK4; /* MAKE LAST FOUR BITS='F'X */ 00259000 OC TMPACKST(4,RWORK),MASK4 0364 00260000 * UNPK(TMUNPKST,TMPACKST); /* UNPACK TIME OF DAY */ 00261000 UNPK TMUNPKST(6,RWORK),TMPACKST(4,RWORK) 0365 00262000 * UNPK(DTUNPKST,DTPACKYD); /* UNPACK JULIAN DATE */ 00263000 UNPK DTUNPKST(5,RWORK),DTPACKYD(3,RWORK) 0366 00264000 */* */ 00265000 * 0367 00266000 * /* MOVE UNPACKED FIELDS */ 00267000 * XSCVYEAR=DTUNPKYR; /* MOVE YEAR INTO COMMAND */ 00268000 LA @11,12 0367 00269000 AL @11,OCUNIT(,ROPCE) 0367 00270000 MVC XSCVYEAR(2,@11),DTUNPKYR(RWORK) 0367 00271000 * XSCVJDAY=DTUNPKDD; /* MOVE JULIAN DATE INTO CMD */ 00272000 MVC XSCVJDAY(3,@11),DTUNPKDD(RWORK) 0368 00273000 * XSCVHOUR=TMUNPKHR; /* MOVE HOUR INTO COMMAND */ 00274000 MVC XSCVHOUR(2,@11),TMUNPKHR(RWORK) 0369 00275000 * XSCVMIN=TMUNPKMN; /* MOVE MINS INTO COMMAND */ 00276000 MVC XSCVMIN(2,@11),TMUNPKMN(RWORK) 0370 00277000 * XSCVSEC=TMUNPKSC; /* MOVE SECS INTO COMMAND */ 00278000 MVC XSCVSEC(2,@11),TMUNPKSC(RWORK) 0371 00279000 * CALL DATECNVT; /* CONVERT DATE */ 00280000 BAL @14,DATECNVT 0372 00281000 */* */ 00282000 * 0373 00283000 * OPCMODID=MODID02; /* SET UP TO XCTL TO IGCO210D */ 00284000 MVC OPCMODID(2,ROPCAVT),@CC01278 0373 00285000 * OCWTG=MODIDAE; /* SET UP FOR RETURN TO THIS 0374 00286000 * MODULE */ 00287000 MVC OCWTG(2,ROPCE),@CC01276 0374 00288000 */* */ 00289000 * 0375 00290000 * RE=WKSAVE1; /* RESTORE REG 14 */ 00291000 L RE,WKSAVE1(,RWORK) 0375 00292000 * END STDREQ; /* RETURN TO CALLER */ 00293000 @EL00003 DS 0H 0376 00294000 @EF00003 DS 0H 0376 00295000 @ER00003 BR @14 0376 00296000 *STDRSP: 0377 00297000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0377 00298000 * 0377 00299000 STDRSP DS 0H 0378 00300000 * /*****************************************************************/ 00301000 * /* */ 00302000 * /* THIS ROUTINE PROCESSES THE RESPONSE TO SET TIME AND DATE. A */ 00303000 * /* RETURN CODE IS PLACED IN THE OCPARM FIELD TO INDICATE THE TYPE*/ 00304000 * /* OF RESPONSE RECEIVED. THIS ROUTINE PREPARES THE NECESSARY */ 00305000 * /* FIELDS TO XCTL BACK TO THE ORIGINAL REQUESTOR. */ 00306000 * /* */ 00307000 * /*****************************************************************/ 00308000 * 0378 00309000 * IF PRURHSDI=OFF THEN /* GOOD RESPONSE? */ 00310000 L @11,OCUNIT(,ROPCE) 0378 00311000 AL @11,@CF01357 0378 00312000 TM PRURHSDI(@11),B'00000100' 0378 00313000 BNZ @RF00378 0378 00314000 * OCPARM=OCRCGPOS; /* SET GOOD RETURN CODE */ 00315000 MVC OCPARM(2,ROPCE),@CH00060 0379 00316000 * ELSE 0380 00317000 * OCPARM=OCRCBNEG; /* SET BAD RETURN CODE SET UP FOR 00318000 * XCTL TO OPERATOR SERVICES */ 00319000 B @RC00378 0380 00320000 @RF00378 MVC OCPARM(2,ROPCE),@CH01131 0380 00321000 * OPCMODID=OCWTGB; /* RETURN TO REQUESTOR */ 00322000 @RC00378 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 0381 00323000 * END STDRSP; /* RETURN TO CALLER */ 00324000 @EL00004 DS 0H 0382 00325000 @EF00004 DS 0H 0382 00326000 @ER00004 BR @14 0382 00327000 * END IGCAE10D 0383 00328000 * 0383 00329000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00330000 */*%INCLUDE SYSLIB (TAVTD ) */ 00331000 */*%INCLUDE SYSLIB (TCD1D ) */ 00332000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00333000 */*%INCLUDE SYSLIB (TOPCED ) */ 00334000 */*%INCLUDE SYSLIB (TPRUD ) */ 00335000 */*%INCLUDE SYSLIB (TXSCVD ) */ 00336000 * 0383 00337000 * ; 0383 00338000 @DATA DS 0H 00339000 @CH00060 DC H'1' 00340000 @CH01222 DC H'26' 00341000 @CH01131 DC H'-1' 00342000 DS 0F 00343000 DS 0F 00344000 @CF00239 DC F'12' 00345000 @CF01357 DC F'-8' 00346000 @CF01356 DC XL4'0000FFFF' 00347000 @CF00459 DC XL4'04' 00348000 DS 0D 00349000 @CC01276 DC C'AE' 00350000 @CC01278 DC C'02' 00351000 @CB01270 DC X'0B80001C' 00352000 @CB00718 DC X'010211' 00353000 MASK DS CL4 00354000 ORG MASK 00355000 MASK4 DS CL4 00356000 ORG MASK4 00357000 @NM00144 DC X'0000' 00358000 MASK2 DC X'000F' 00359000 ORG MASK+4 00360000 TABLEDAY DS CL36 00361000 ORG TABLEDAY 00362000 @NM00147 DC CL2'01' 00363000 @NM00148 DC AL1(31) 00364000 @NM00149 DC CL2'02' 00365000 @NM00150 DC AL1(28) 00366000 @NM00151 DC CL2'03' 00367000 @NM00152 DC AL1(31) 00368000 @NM00153 DC CL2'04' 00369000 @NM00154 DC AL1(30) 00370000 @NM00155 DC CL2'05' 00371000 @NM00156 DC AL1(31) 00372000 @NM00157 DC CL2'06' 00373000 @NM00158 DC AL1(30) 00374000 @NM00159 DC CL2'07' 00375000 @NM00160 DC AL1(31) 00376000 @NM00161 DC CL2'08' 00377000 @NM00162 DC AL1(31) 00378000 @NM00163 DC CL2'09' 00379000 @NM00164 DC AL1(30) 00380000 @NM00165 DC CL2'10' 00381000 @NM00166 DC AL1(31) 00382000 @NM00167 DC CL2'11' 00383000 @NM00168 DC AL1(30) 00384000 @NM00169 DC CL2'12' 00385000 @NM00170 DC AL1(31) 00386000 ORG TABLEDAY+36 00387000 PATCH DC 100X'00' 00388000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00389000 @01 EQU 01 00390000 @02 EQU 02 00391000 @03 EQU 03 00392000 @04 EQU 04 00393000 @05 EQU 05 00394000 @06 EQU 06 00395000 @07 EQU 07 00396000 @08 EQU 08 00397000 @09 EQU 09 00398000 @10 EQU 10 00399000 @11 EQU 11 00400000 @12 EQU 12 00401000 @13 EQU 13 00402000 @14 EQU 14 00403000 @15 EQU 15 00404000 IEDQAPTR EQU @04 00405000 ROPCAVT EQU @02 00406000 ROPCE EQU @03 00407000 RAVT EQU @04 00408000 RZERO EQU @00 00409000 RPARM EQU @01 00410000 RELEMENT EQU @03 00411000 RWORK EQU @05 00412000 RBASE EQU @12 00413000 RSAVE EQU @13 00414000 RE EQU @14 00415000 RF EQU @15 00416000 IEDQAVTD EQU 0 00417000 AVTSAVEX EQU IEDQAVTD+288 00418000 @NM00003 EQU IEDQAVTD+388 00419000 AVTCKFLG EQU @NM00003 00420000 AVTBASE EQU IEDQAVTD+412 00421000 AVTPKF EQU AVTBASE 00422000 AVTOSECB EQU IEDQAVTD+492 00423000 AVTECB1 EQU AVTOSECB 00424000 AVTHG02 EQU IEDQAVTD+528 00425000 AVTDISP EQU IEDQAVTD+552 00426000 AVTHD EQU IEDQAVTD+556 00427000 AVTSCOPT EQU AVTHD 00428000 AVTSAVTP EQU IEDQAVTD+612 00429000 AVTSAVTF EQU AVTSAVTP 00430000 AVTCKPEL EQU IEDQAVTD+652 00431000 AVTCKRMV EQU AVTCKPEL 00432000 AVTCKELF EQU IEDQAVTD+680 00433000 AVTCKBYT EQU IEDQAVTD+691 00434000 AVTHG01 EQU IEDQAVTD+692 00435000 AVTCKLNK EQU IEDQAVTD+696 00436000 AVTCRELE EQU IEDQAVTD+708 00437000 AVTCCELE EQU AVTCRELE 00438000 AVTCLRHI EQU IEDQAVTD+716 00439000 AVTADBUF EQU IEDQAVTD+720 00440000 AVTSYSER EQU IEDQAVTD+728 00441000 AVTCKPQB EQU IEDQAVTD+804 00442000 AVTCKPTB EQU AVTCKPQB 00443000 AVTCKPEC EQU AVTCKPQB+4 00444000 AVTCKPCC EQU AVTCKPEC 00445000 AVTOPCQB EQU IEDQAVTD+816 00446000 AVTOPCOB EQU AVTOPCQB 00447000 AVTOPCEC EQU AVTOPCQB+4 00448000 AVTOPCCC EQU AVTOPCEC 00449000 AVTOLTQB EQU IEDQAVTD+828 00450000 AVTCWFL1 EQU IEDQAVTD+924 00451000 AVTCWFL2 EQU IEDQAVTD+925 00452000 AVTSUBT EQU IEDQAVTD+948 00453000 AVTIOTR EQU IEDQAVTD+949 00454000 AVTBIT1 EQU IEDQAVTD+1050 00455000 AVTBIT2 EQU IEDQAVTD+1051 00456000 AVTBIT3 EQU IEDQAVTD+1052 00457000 AVTBIT4 EQU IEDQAVTD+1136 00458000 @NM00085 EQU IEDQAVTD+1232 00459000 IEDNSVTD EQU 0 00460000 SAVTDIAG EQU IEDNSVTD 00461000 SAVTDIAF EQU SAVTDIAG 00462000 SAVTLUSQ EQU IEDNSVTD+88 00463000 SAVTTCPU EQU IEDNSVTD+238 00464000 SAVTTNTX EQU IEDNSVTD+252 00465000 SAVTZELM EQU IEDNSVTD+270 00466000 SAVTRDRV EQU IEDNSVTD+284 00467000 SAVTCKQB EQU IEDNSVTD+300 00468000 SAVTCKTB EQU SAVTCKQB 00469000 SAVTCKEC EQU SAVTCKQB+4 00470000 SAVTCKCC EQU SAVTCKEC 00471000 IEDQOPCD EQU 0 00472000 OPCDOUBL EQU IEDQOPCD 00473000 OPCAVTPT EQU IEDQOPCD+8 00474000 OPCCOPCE EQU IEDQOPCD+12 00475000 OPCSAVE EQU IEDQOPCD+56 00476000 OPCWORK EQU IEDQOPCD+140 00477000 OPCAQCTL EQU IEDQOPCD+180 00478000 OPCXCTL EQU IEDQOPCD+204 00479000 OPCLDNME EQU IEDQOPCD+212 00480000 OPCMODID EQU OPCLDNME+3 00481000 OPCGETBF EQU IEDQOPCD+276 00482000 OPCSPEC EQU IEDQOPCD+300 00483000 OPCPWCOB EQU IEDQOPCD+368 00484000 OPCPWQCB EQU OPCPWCOB 00485000 OPCPWECB EQU OPCPWCOB+4 00486000 IEDQOPCE EQU 0 00487000 OCELEM EQU IEDQOPCE+4 00488000 OCUNIT EQU IEDQOPCE+8 00489000 OCRUDEST EQU OCUNIT 00490000 OCCKPKEY EQU OCRUDEST 00491000 OCSCAN EQU OCCKPKEY 00492000 OCOPTCDE EQU IEDQOPCE+12 00493000 OCSWITCH EQU IEDQOPCE+13 00494000 OCFLAG EQU IEDQOPCE+14 00495000 OCRESP EQU OCFLAG 00496000 @NM00122 EQU IEDQOPCE+16 00497000 OCDEST EQU @NM00122 00498000 OCREQVAL EQU OCDEST+1 00499000 OCTRMTBL EQU IEDQOPCE+20 00500000 OCLINENO EQU IEDQOPCE+22 00501000 OCTIOT EQU OCLINENO 00502000 OCWTGB EQU OCTIOT 00503000 OCTRUNIT EQU IEDQOPCE+24 00504000 OCRSID EQU OCTRUNIT 00505000 OCALSTAT EQU OCRSID 00506000 OCPARM EQU IEDQOPCE+28 00507000 OCWTG EQU IEDQOPCE+30 00508000 OCBACKUP EQU IEDQOPCE+32 00509000 OCMODNME EQU IEDQOPCE+40 00510000 OCIPLWA EQU OCMODNME 00511000 OCCKDATA EQU IEDQOPCE+48 00512000 OCRSTGTM EQU OCCKDATA 00513000 IEDQOPCN EQU 0 00514000 OCLDNME EQU IEDQOPCN 00515000 OCLINTTE EQU OCLDNME 00516000 OCREQFLG EQU OCLINTTE+2 00517000 OCPREFLG EQU OCLINTTE+3 00518000 IEDPRUQD EQU 0 00519000 PRUTTCIN EQU IEDPRUQD 00520000 PRUDATCT EQU IEDPRUQD+2 00521000 PRUTIC EQU IEDPRUQD+8 00522000 PRUDATA EQU IEDPRUQD+12 00523000 IEDPRUQP EQU 0 00524000 IEDPRUND EQU 0 00525000 PRURHTH EQU IEDPRUND 00526000 PRURH EQU PRURHTH 00527000 PRURHFG0 EQU PRURH 00528000 PRURHSDI EQU PRURHFG0 00529000 PRURHFG1 EQU PRURH+1 00530000 PRURHFG2 EQU PRURH+2 00531000 PRUTH EQU PRURHTH+3 00532000 PRUFIDN EQU PRUTH 00533000 IEDXSCVD EQU 0 00534000 XSCVCMD EQU IEDXSCVD 00535000 XSCVCODE EQU XSCVCMD 00536000 XSCVADDR EQU XSCVCMD+3 00537000 XSCVKEY EQU XSCVCMD+5 00538000 XSCVDATA EQU IEDXSCVD+6 00539000 XSCVPTR EQU 0 00540000 ALLOCBUF EQU 0 00541000 IEDIAP04 EQU 0 00542000 WKAREA EQU 0 00543000 WKSAVE1 EQU WKAREA 00544000 WKDAYCNT EQU WKAREA+4 00545000 WKTMPK EQU WKAREA+6 00546000 WKTMUNPK EQU WKAREA+10 00547000 WKDTPK EQU WKAREA+16 00548000 WKDTUNPK EQU WKAREA+20 00549000 WKBINYD EQU WKAREA+28 00550000 WKBINYR EQU WKBINYD+1 00551000 WKBINDY EQU WKBINYD+2 00552000 WKTABDAY EQU WKAREA+32 00553000 WKFEBDAY EQU WKTABDAY+5 00554000 WKTBLPTR EQU WKAREA+68 00555000 TABENTRY EQU 0 00556000 TABMONTH EQU TABENTRY 00557000 TABDAYS EQU TABENTRY+2 00558000 OPCAQWD EQU OPCAQCTL 00559000 OPCAQWD1 EQU OPCAQWD 00560000 OPCAQWD2 EQU OPCAQWD+4 00561000 OPCAQWD3 EQU OPCAQWD+8 00562000 OCCKPKY1 EQU OCCKPKEY 00563000 OCCKPTYP EQU OCCKPKY1 00564000 OCICACTN EQU OCMODNME 00565000 OCICDADR EQU OCICACTN 00566000 OCICSW EQU OCICDADR+3 00567000 XSCVTMDT EQU XSCVDATA 00568000 XSCVMON EQU XSCVTMDT 00569000 XSCVDLM1 EQU XSCVTMDT+2 00570000 XSCVCDAY EQU XSCVTMDT+3 00571000 XSCVDLM2 EQU XSCVTMDT+5 00572000 XSCVYEAR EQU XSCVTMDT+6 00573000 XSCVDLM3 EQU XSCVTMDT+8 00574000 XSCVJDAY EQU XSCVTMDT+9 00575000 XSCVHOUR EQU XSCVTMDT+12 00576000 XSCVDLM4 EQU XSCVTMDT+14 00577000 XSCVMIN EQU XSCVTMDT+15 00578000 XSCVDLM5 EQU XSCVTMDT+17 00579000 XSCVSEC EQU XSCVTMDT+18 00580000 WKTMPDW EQU OPCDOUBL 00581000 WKTMPDD EQU WKTMPDW+6 00582000 WKTMPYR EQU WKTMPDD 00583000 TMPACKST EQU WKTMPK 00584000 TMUNPKST EQU WKTMUNPK 00585000 TMUNPKHR EQU TMUNPKST 00586000 TMUNPKMN EQU TMUNPKST+2 00587000 TMUNPKSC EQU TMUNPKST+4 00588000 DTPACKST EQU WKDTPK 00589000 DTPACKYD EQU DTPACKST+1 00590000 DTPACKYR EQU DTPACKYD 00591000 DTPACKDD EQU DTPACKYD+1 00592000 DTUNPKST EQU WKDTUNPK 00593000 DTUNPKYR EQU DTUNPKST 00594000 DTUNPKDD EQU DTUNPKST+2 00595000 DTUNPKDY EQU DTUNPKDD+1 00596000 OCCIB EQU OCREQVAL 00597000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00598000 @NM00146 EQU DTUNPKDD 00599000 @NM00145 EQU DTPACKST 00600000 TMPACKTH EQU TMPACKST+3 00601000 TMPACKSC EQU TMPACKST+2 00602000 TMPACKMN EQU TMPACKST+1 00603000 TMPACKHR EQU TMPACKST 00604000 @NM00141 EQU WKTMPDW 00605000 OCICINAC EQU OCICSW 00606000 @NM00128 EQU OCICSW 00607000 OCICATST EQU OCICDADR+1 00608000 OCICTYPE EQU OCICDADR 00609000 @NM00127 EQU OCCKPKY1 00610000 OCCKPENV EQU OCCKPKY1 00611000 OCCKPRST EQU OCCKPTYP 00612000 OCCKPNCP EQU OCCKPTYP 00613000 OCCKPINC EQU OCCKPTYP 00614000 OPCAQLST EQU OPCAQWD3+1 00615000 OPCAQRQ3 EQU OPCAQWD3 00616000 OPCAQSEC EQU OPCAQWD2+1 00617000 OPCAQRQ2 EQU OPCAQWD2 00618000 OPCAQFST EQU OPCAQWD1+1 00619000 OPCAQREQ EQU OPCAQWD1 00620000 @NM00143 EQU WKTABDAY 00621000 @NM00142 EQU WKBINYD 00622000 XSCVREQ EQU XSCVCODE+2 00623000 XSCVCONF EQU XSCVCODE+1 00624000 XSCVNETS EQU XSCVCODE 00625000 @NM00140 EQU IEDPRUND+4 00626000 PRUTHEFI EQU PRUFIDN 00627000 PRUTHUSS EQU PRUFIDN 00628000 PRUTHEIU EQU PRUFIDN 00629000 PRUTHBIU EQU PRUFIDN 00630000 PRUTHTYE EQU PRUFIDN 00631000 @NM00139 EQU PRURHFG2 00632000 PRURHCSI EQU PRURHFG2 00633000 @NM00138 EQU PRURHFG2 00634000 PRURHCDI EQU PRURHFG2 00635000 PRURHEB EQU PRURHFG2 00636000 PRURHBB EQU PRURHFG2 00637000 PRURHPI EQU PRURHFG1 00638000 @NM00137 EQU PRURHFG1 00639000 PRURHER EQU PRURHFG1 00640000 PRURHDR2 EQU PRURHFG1 00641000 @NM00136 EQU PRURHFG1 00642000 PRURHDR1 EQU PRURHFG1 00643000 PRURHEC EQU PRURHFG0 00644000 PRURHBC EQU PRURHFG0 00645000 PRURHFI EQU PRURHFG0 00646000 @NM00135 EQU PRURHFG0 00647000 PRURUCAT EQU PRURHFG0 00648000 PRURHTYP EQU PRURHFG0 00649000 PRUNUNIT EQU PRUTIC+1 00650000 @NM00134 EQU PRUTIC 00651000 @NM00133 EQU IEDPRUQD+4 00652000 @NM00132 EQU OCLDNME+4 00653000 @NM00131 EQU OCPREFLG 00654000 OCTOTEP EQU OCPREFLG 00655000 OCREPOST EQU OCPREFLG 00656000 OCRSPSNT EQU OCPREFLG 00657000 OCBFREQ EQU OCPREFLG 00658000 OCIDLE EQU OCREQFLG 00659000 OCFORCE EQU OCREQFLG 00660000 OCDCARD EQU OCREQFLG 00661000 OCPARTAL EQU OCREQFLG 00662000 OCADNCP EQU OCREQFLG 00663000 @NM00130 EQU OCREQFLG 00664000 @NM00129 EQU OCREQFLG 00665000 OCFLUSHZ EQU OCREQFLG 00666000 OCRESPCT EQU OCLINTTE 00667000 OCCKPTWA EQU OCCKDATA+4 00668000 @NM00126 EQU OCRSTGTM+2 00669000 OCCKDAT2 EQU OCRSTGTM+1 00670000 OCCKDAT1 EQU OCRSTGTM 00671000 OCPTRSAV EQU OCMODNME+4 00672000 OCPUADR EQU OCIPLWA+2 00673000 OCWTGSAV EQU OCIPLWA 00674000 OCDVRDCT EQU OCBACKUP+6 00675000 OCNCP EQU OCBACKUP+4 00676000 OCBUFGOT EQU OCBACKUP+2 00677000 OCBUFNED EQU OCBACKUP 00678000 OCRESNUM EQU OCPARM 00679000 OCSEQ EQU OCTRUNIT+2 00680000 @NM00125 EQU OCRSID+1 00681000 OCNONE EQU OCALSTAT 00682000 OCSOME EQU OCALSTAT 00683000 OCALLFLG EQU OCALSTAT 00684000 OCACTREQ EQU OCALSTAT 00685000 OCREDRVE EQU OCALSTAT 00686000 OCSEQIND EQU OCALSTAT 00687000 @NM00124 EQU OCALSTAT 00688000 OCRENTRD EQU OCALSTAT 00689000 @NM00123 EQU @NM00122+2 00690000 OCCONID EQU OCDEST 00691000 OCRLN EQU IEDQOPCE+15 00692000 OCATTACH EQU OCFLAG 00693000 OCSSCP EQU OCFLAG 00694000 OCOUTPUT EQU OCFLAG 00695000 OCLINE EQU OCFLAG 00696000 OCMPP EQU OCFLAG 00697000 OCTOTE EQU OCFLAG 00698000 OCCONSOL EQU OCFLAG 00699000 @NM00121 EQU OCSWITCH 00700000 OCQUCKN EQU OCSWITCH 00701000 OCPRIFLG EQU OCOPTCDE 00702000 @NM00120 EQU OCRUDEST+1 00703000 @NM00119 EQU OCSCAN 00704000 OCNOTUCB EQU OCSCAN 00705000 OCNONAME EQU OCSCAN 00706000 OCALLRLN EQU OCSCAN 00707000 OCDDNAME EQU OCSCAN 00708000 OCDDNRLN EQU OCSCAN 00709000 OCADDR EQU OCSCAN 00710000 OCELMPTR EQU OCELEM+1 00711000 OCELMPRI EQU OCELEM 00712000 OCLINK EQU IEDQOPCE 00713000 OPCBOTTM EQU IEDQOPCD+1184 00714000 @NM00118 EQU IEDQOPCD+1100 00715000 @NM00117 EQU IEDQOPCD+948 00716000 @NM00116 EQU IEDQOPCD+940 00717000 @NM00115 EQU IEDQOPCD+380 00718000 @NM00114 EQU OPCPWCOB+9 00719000 @NM00113 EQU OPCPWCOB+8 00720000 @NM00112 EQU OPCPWECB+1 00721000 OPCPWCCC EQU OPCPWECB 00722000 OPCPWCHN EQU OPCPWQCB+1 00723000 OPCPWVTO EQU OPCPWQCB 00724000 OPCWAITV EQU IEDQOPCD+364 00725000 OPCTOTCK EQU IEDQOPCD+360 00726000 OPCAPXTL EQU IEDQOPCD+356 00727000 OPCDECR EQU IEDQOPCD+352 00728000 OPCBUFWT EQU IEDQOPCD+348 00729000 OPCWRKSP EQU IEDQOPCD+320 00730000 OPCADGOT EQU IEDQOPCD+318 00731000 OPCRQCNT EQU IEDQOPCD+316 00732000 OPPOLSTP EQU IEDQOPCD+312 00733000 OPCCKCIB EQU IEDQOPCD+308 00734000 OPCEND EQU IEDQOPCD+307 00735000 OPCSTCBS EQU IEDQOPCD+306 00736000 OPCHNEND EQU IEDQOPCD+302 00737000 OPCOQSW EQU IEDQOPCD+301 00738000 @NM00111 EQU OPCSPEC 00739000 @NM00110 EQU OPCSPEC 00740000 @NM00109 EQU OPCSPEC 00741000 @NM00108 EQU OPCSPEC 00742000 OPCFRMCA EQU OPCSPEC 00743000 OPCRSTRT EQU OPCSPEC 00744000 OPCPART EQU OPCSPEC 00745000 OPCALTD EQU OPCSPEC 00746000 OPCBFEND EQU IEDQOPCD+296 00747000 OPCBFIRS EQU IEDQOPCD+292 00748000 OPCAVBUF EQU IEDQOPCD+290 00749000 OPCIPLCT EQU IEDQOPCD+289 00750000 OPCCLNTS EQU IEDQOPCD+288 00751000 OPCHA8 EQU IEDQOPCD+286 00752000 OPCBFREQ EQU IEDQOPCD+284 00753000 OPCFREBF EQU IEDQOPCD+280 00754000 OPCNEXT EQU IEDQOPCD+272 00755000 OPCFMDFC EQU IEDQOPCD+268 00756000 OPCSCNC EQU IEDQOPCD+264 00757000 OPCHORTG EQU IEDQOPCD+260 00758000 OPCHORT EQU IEDQOPCD+256 00759000 OPCCKPTL EQU IEDQOPCD+252 00760000 OPCCKPTF EQU IEDQOPCD+248 00761000 OPCWAITA EQU IEDQOPCD+244 00762000 OPCWAITR EQU IEDQOPCD+240 00763000 OPCWAITP EQU IEDQOPCD+236 00764000 OPCWAITO EQU IEDQOPCD+232 00765000 OPCWAITN EQU IEDQOPCD+228 00766000 OPCWAITL EQU IEDQOPCD+224 00767000 OPCWAITC EQU IEDQOPCD+220 00768000 @NM00107 EQU OPCLDNME+5 00769000 @NM00106 EQU OPCLDNME 00770000 OPCWAIT EQU IEDQOPCD+192 00771000 OPCCKERB EQU IEDQOPCD+164 00772000 OPCBFERB EQU IEDQOPCD+148 00773000 OPCFLAG2 EQU IEDQOPCD+147 00774000 OPCFLAG1 EQU IEDQOPCD+146 00775000 OPCWRKSZ EQU IEDQOPCD+144 00776000 OPCRSAVE EQU IEDQOPCD+132 00777000 OPCQCBAD EQU IEDQOPCD+128 00778000 OPCTRMWA EQU IEDQOPCD+52 00779000 OPCPSTWT EQU IEDQOPCD+48 00780000 OPCTNTEA EQU IEDQOPCD+44 00781000 OPCPGCK EQU IEDQOPCD+40 00782000 OPCLCB EQU IEDQOPCD+36 00783000 @NM00105 EQU IEDQOPCD+32 00784000 OPCIPLAD EQU IEDQOPCD+28 00785000 OPCTOFLK EQU IEDQOPCD+24 00786000 OPCOPTLK EQU IEDQOPCD+20 00787000 OPCDCBLK EQU IEDQOPCD+16 00788000 SAVTBITN EQU IEDNSVTD+312 00789000 @NM00104 EQU SAVTCKQB+8 00790000 @NM00103 EQU SAVTCKEC+1 00791000 @NM00102 EQU SAVTCKCC 00792000 SAVTCKPO EQU SAVTCKCC 00793000 SAVTCKWA EQU SAVTCKCC 00794000 SAVTCKCH EQU SAVTCKTB+1 00795000 SAVTCKVT EQU SAVTCKTB 00796000 @NM00101 EQU IEDNSVTD+297 00797000 SAVTRDFG EQU SAVTRDRV+12 00798000 @NM00100 EQU SAVTRDRV+5 00799000 SAVTRDPY EQU SAVTRDRV+4 00800000 SAVTRDQB EQU SAVTRDRV+1 00801000 SAVTRDKY EQU SAVTRDRV 00802000 SAVTNID EQU IEDNSVTD+280 00803000 SAVTDVAS EQU IEDNSVTD+276 00804000 SAVTPLSZ EQU IEDNSVTD+274 00805000 @NM00099 EQU IEDNSVTD+273 00806000 SAVTSUBL EQU IEDNSVTD+272 00807000 @NM00098 EQU SAVTZELM+1 00808000 SAVTSUBM EQU SAVTZELM 00809000 SAVTMHDX EQU IEDNSVTD+268 00810000 SAVTNAT1 EQU IEDNSVTD+266 00811000 SAVTSH20 EQU IEDNSVTD+264 00812000 SAVTLCBS EQU IEDNSVTD+260 00813000 SAVTRNMP EQU IEDNSVTD+256 00814000 SAVTNAX EQU IEDNSVTD+248 00815000 SAVTSUBV EQU IEDNSVTD+247 00816000 SAVTSUBA EQU IEDNSVTD+246 00817000 SAVTSIBC EQU IEDNSVTD+244 00818000 SAVTBSM EQU IEDNSVTD+240 00819000 SAVTSCPT EQU SAVTTCPU 00820000 SAVTRQTG EQU IEDNSVTD+236 00821000 SAVTRQCH EQU IEDNSVTD+232 00822000 SAVTMAND EQU IEDNSVTD+228 00823000 SAVTSPLN EQU IEDNSVTD+224 00824000 SAVTNADL EQU IEDNSVTD+222 00825000 SAVTNATL EQU IEDNSVTD+220 00826000 SAVTMHTB EQU IEDNSVTD+216 00827000 SAVTSSMH EQU IEDNSVTD+212 00828000 SAVTQRS EQU IEDNSVTD+208 00829000 SAVTRQIN EQU IEDNSVTD+204 00830000 SAVTDFCO EQU IEDNSVTD+200 00831000 SAVTSAO EQU IEDNSVTD+196 00832000 SAVTSARI EQU IEDNSVTD+192 00833000 SAVTSAC EQU IEDNSVTD+188 00834000 SAVTSAI EQU IEDNSVTD+184 00835000 SAVTCSCI EQU IEDNSVTD+180 00836000 SAVTSSRP EQU IEDNSVTD+176 00837000 SAVTSSRQ EQU IEDNSVTD+172 00838000 SAVTSCLU EQU IEDNSVTD+168 00839000 SAVTXTRQ EQU IEDNSVTD+164 00840000 SAVTMVBF EQU IEDNSVTD+160 00841000 @NM00097 EQU IEDNSVTD+148 00842000 SAVTIPCQ EQU IEDNSVTD+144 00843000 @NM00096 EQU IEDNSVTD+136 00844000 SAVTXFMI EQU IEDNSVTD+132 00845000 @NM00095 EQU IEDNSVTD+124 00846000 SAVTXFMO EQU IEDNSVTD+120 00847000 @NM00094 EQU IEDNSVTD+116 00848000 SAVTSSSR EQU IEDNSVTD+112 00849000 SAVTSCPQ EQU IEDNSVTD+108 00850000 SAVTSLCB EQU IEDNSVTD+104 00851000 SAVTLUSR EQU IEDNSVTD+100 00852000 @NM00093 EQU SAVTLUSQ+8 00853000 SAVTLUSP EQU SAVTLUSQ+4 00854000 SAVTLUSB EQU SAVTLUSQ 00855000 @NM00092 EQU IEDNSVTD+84 00856000 SAVTSAT EQU IEDNSVTD+80 00857000 SAVTNAT EQU IEDNSVTD+76 00858000 SAVTCLUP EQU IEDNSVTD+72 00859000 SAVTPIUT EQU IEDNSVTD+68 00860000 SAVTRNTA EQU IEDNSVTD+64 00861000 SAVTDNIR EQU IEDNSVTD+60 00862000 SAVTCNIR EQU IEDNSVTD+56 00863000 SAVTFLDH EQU IEDNSVTD+52 00864000 SAVTSRTN EQU IEDNSVTD+48 00865000 SAVTSREQ EQU IEDNSVTD+44 00866000 SAVTFAIL EQU IEDNSVTD+42 00867000 SAVTSUSE EQU IEDNSVTD+40 00868000 SAVTSIB EQU IEDNSVTD+36 00869000 SAVTPRTN EQU IEDNSVTD+32 00870000 @NM00091 EQU IEDNSVTD+28 00871000 SAVTWH20 EQU IEDNSVTD+26 00872000 SAVTPWT EQU IEDNSVTD+24 00873000 SAVTPRTQ EQU IEDNSVTD+20 00874000 SAVTPREQ EQU IEDNSVTD+16 00875000 SAVTPH20 EQU IEDNSVTD+14 00876000 SAVTPUSE EQU IEDNSVTD+12 00877000 SAVTPLCB EQU IEDNSVTD+8 00878000 SAVTPOOL EQU IEDNSVTD+4 00879000 SAVTPRMT EQU SAVTDIAF 00880000 SAVTVIRT EQU SAVTDIAF 00881000 AVTCPBNO EQU IEDQAVTD+1244 00882000 AVTHRESS EQU IEDQAVTD+1243 00883000 @NM00090 EQU IEDQAVTD+1242 00884000 @NM00089 EQU IEDQAVTD+1241 00885000 @NM00088 EQU IEDQAVTD+1240 00886000 @NM00087 EQU IEDQAVTD+1237 00887000 @NM00086 EQU IEDQAVTD+1236 00888000 AVTHRESE EQU @NM00085 00889000 AVTRADDR EQU IEDQAVTD+1228 00890000 AVTNADDR EQU IEDQAVTD+1224 00891000 AVTHRESN EQU IEDQAVTD+1220 00892000 AVTVOLRN EQU IEDQAVTD+1216 00893000 AVTTOTNN EQU IEDQAVTD+1212 00894000 AVTTRCYN EQU IEDQAVTD+1208 00895000 AVTRCTRN EQU IEDQAVTD+1204 00896000 AVTNOVON EQU IEDQAVTD+1200 00897000 AVTADEBN EQU IEDQAVTD+1196 00898000 AVTVOLRR EQU IEDQAVTD+1192 00899000 AVTTOTNR EQU IEDQAVTD+1188 00900000 AVTTRCYR EQU IEDQAVTD+1184 00901000 AVTRCTRR EQU IEDQAVTD+1180 00902000 AVTNOVOR EQU IEDQAVTD+1176 00903000 AVTADEBR EQU IEDQAVTD+1172 00904000 AVTLODPT EQU IEDQAVTD+1168 00905000 AVTIOBN EQU IEDQAVTD+1164 00906000 AVTIOBR EQU IEDQAVTD+1160 00907000 AVTCPBPT EQU IEDQAVTD+1156 00908000 AVTFCPB EQU IEDQAVTD+1152 00909000 @NM00084 EQU IEDQAVTD+1148 00910000 AVTINCPQ EQU IEDQAVTD+1144 00911000 @NM00083 EQU IEDQAVTD+1140 00912000 @NM00082 EQU IEDQAVTD+1137 00913000 @NM00081 EQU AVTBIT4 00914000 @NM00080 EQU AVTBIT4 00915000 @NM00079 EQU AVTBIT4 00916000 @NM00078 EQU AVTBIT4 00917000 @NM00077 EQU AVTBIT4 00918000 @NM00076 EQU AVTBIT4 00919000 @NM00075 EQU AVTBIT4 00920000 AVTRUFTN EQU AVTBIT4 00921000 @NM00074 EQU IEDQAVTD+1132 00922000 AVTNOBFQ EQU IEDQAVTD+1128 00923000 @NM00073 EQU IEDQAVTD+1124 00924000 AVTDKENQ EQU IEDQAVTD+1120 00925000 @NM00072 EQU IEDQAVTD+1116 00926000 AVTDKAPQ EQU IEDQAVTD+1112 00927000 AVTCOPY EQU IEDQAVTD+1108 00928000 AVTIA EQU IEDQAVTD+1104 00929000 AVTFL EQU IEDQAVTD+1100 00930000 @NM00071 EQU IEDQAVTD+1096 00931000 AVTNCPBQ EQU IEDQAVTD+1092 00932000 AVTTOTNC EQU IEDQAVTD+1088 00933000 AVTCMAX EQU IEDQAVTD+1084 00934000 AVTCMIN EQU IEDQAVTD+1080 00935000 AVTHM02 EQU IEDQAVTD+1076 00936000 AVTOPCIN EQU IEDQAVTD+1074 00937000 AVTDCTLN EQU IEDQAVTD+1072 00938000 AVTOPMSK EQU IEDQAVTD+1068 00939000 AVTDDFT EQU IEDQAVTD+1064 00940000 AVTSTEAL EQU IEDQAVTD+1060 00941000 AVTOPTN EQU IEDQAVTD+1056 00942000 AVTDSKCT EQU IEDQAVTD+1054 00943000 AVTCKRST EQU IEDQAVTD+1053 00944000 AVTSTAN EQU AVTBIT3 00945000 AVTSTACN EQU AVTBIT3 00946000 AVTSTAIN EQU AVTBIT3 00947000 AVTSTAYN EQU AVTBIT3 00948000 AVTOLTBN EQU AVTBIT3 00949000 AVTTSAB EQU AVTBIT3 00950000 AVTRFULN EQU AVTBIT3 00951000 AVTRECVN EQU AVTBIT3 00952000 @NM00070 EQU AVTBIT2 00953000 @NM00069 EQU AVTBIT2 00954000 AVTOPEIN EQU AVTBIT2 00955000 AVTSTRTN EQU AVTBIT2 00956000 AVTTOPOL EQU AVTBIT2 00957000 AVTCOPYN EQU AVTBIT2 00958000 AVTREUSN EQU AVTBIT2 00959000 AVTEXTSC EQU AVTBIT2 00960000 AVTDISKN EQU AVTBIT1 00961000 AVTQUCKN EQU AVTBIT1 00962000 AVTCLOSN EQU AVTBIT1 00963000 AVTREADN EQU AVTBIT1 00964000 AVTDLAYN EQU AVTBIT1 00965000 AVTAQTAN EQU AVTBIT1 00966000 AVTTSON EQU AVTBIT1 00967000 AVTAPLKN EQU AVTBIT1 00968000 AVTDUMBR EQU IEDQAVTD+1048 00969000 AVTDLQX EQU IEDQAVTD+1046 00970000 AVTINTLV EQU IEDQAVTD+1044 00971000 AVTSMCNT EQU IEDQAVTD+1042 00972000 AVTAVFCT EQU IEDQAVTD+1040 00973000 AVTOPCON EQU IEDQAVTD+1038 00974000 AVTOPCNT EQU IEDQAVTD+1036 00975000 AVTLNCNT EQU IEDQAVTD+1034 00976000 AVTKEYLE EQU IEDQAVTD+1032 00977000 AVTHA16 EQU IEDQAVTD+1030 00978000 AVTHA7 EQU IEDQAVTD+1028 00979000 AVTHA4 EQU IEDQAVTD+1026 00980000 AVTHA3 EQU IEDQAVTD+1024 00981000 AVTHA2 EQU IEDQAVTD+1022 00982000 AVTGETMS EQU IEDQAVTD+1021 00983000 @NM00068 EQU IEDQAVTD+1020 00984000 AVTGETMD EQU IEDQAVTD+1016 00985000 AVTGETMN EQU IEDQAVTD+1012 00986000 AVTCWTOT EQU IEDQAVTD+1008 00987000 AVTCWINT EQU IEDQAVTD+956 00988000 AVTDTRAP EQU IEDQAVTD+952 00989000 @NM00067 EQU IEDQAVTD+950 00990000 @NM00066 EQU AVTIOTR 00991000 AVTIOTRH EQU AVTIOTR 00992000 AVTIOTRE EQU AVTIOTR 00993000 @NM00065 EQU AVTSUBT 00994000 AVTSUBPT EQU AVTSUBT 00995000 AVTSUBON EQU AVTSUBT 00996000 AVTAFE30 EQU IEDQAVTD+944 00997000 AVTAFE20 EQU IEDQAVTD+940 00998000 AVTAFE10 EQU IEDQAVTD+936 00999000 AVTCWEC2 EQU IEDQAVTD+932 01000000 AVTCWPM2 EQU IEDQAVTD+928 01001000 AVTCWTS2 EQU IEDQAVTD+927 01002000 AVTCWTS1 EQU IEDQAVTD+926 01003000 AVTCWCLD EQU AVTCWFL2 01004000 AVTCWRAP EQU AVTCWFL2 01005000 @NM00064 EQU AVTCWFL2 01006000 @NM00063 EQU AVTCWFL2 01007000 @NM00062 EQU AVTCWFL2 01008000 @NM00061 EQU AVTCWFL2 01009000 @NM00060 EQU AVTCWFL2 01010000 AVTCWACT EQU AVTCWFL2 01011000 @NM00059 EQU AVTCWFL1 01012000 @NM00058 EQU AVTCWFL1 01013000 @NM00057 EQU AVTCWFL1 01014000 @NM00056 EQU AVTCWFL1 01015000 @NM00055 EQU AVTCWFL1 01016000 @NM00054 EQU AVTCWFL1 01017000 @NM00053 EQU AVTCWFL1 01018000 AVTCOMWN EQU AVTCWFL1 01019000 AVTCWEC1 EQU IEDQAVTD+920 01020000 AVTCWPM1 EQU IEDQAVTD+916 01021000 AVTCAREA EQU IEDQAVTD+912 01022000 AVTFZERO EQU IEDQAVTD+908 01023000 AVTCADDR EQU IEDQAVTD+904 01024000 AVTCOREC EQU IEDQAVTD+900 01025000 @NM00052 EQU IEDQAVTD+892 01026000 AVTCPBCB EQU IEDQAVTD+888 01027000 @NM00051 EQU IEDQAVTD+880 01028000 AVTDSIOB EQU IEDQAVTD+876 01029000 @NM00050 EQU IEDQAVTD+868 01030000 AVTCPRMB EQU IEDQAVTD+864 01031000 @NM00049 EQU IEDQAVTD+856 01032000 AVTCLOSB EQU IEDQAVTD+852 01033000 @NM00048 EQU IEDQAVTD+844 01034000 AVTACTIB EQU IEDQAVTD+840 01035000 @NM00047 EQU IEDQAVTD+836 01036000 AVTOLTEB EQU IEDQAVTD+832 01037000 AVTOLTCH EQU AVTOLTQB+1 01038000 AVTOLTVT EQU AVTOLTQB 01039000 @NM00046 EQU AVTOPCQB+8 01040000 @NM00045 EQU AVTOPCEC+1 01041000 @NM00044 EQU AVTOPCCC 01042000 AVTOPCPO EQU AVTOPCCC 01043000 AVTOPCWA EQU AVTOPCCC 01044000 AVTOPCCH EQU AVTOPCOB+1 01045000 AVTOPCVT EQU AVTOPCOB 01046000 @NM00043 EQU AVTCKPQB+9 01047000 AVTCKPTS EQU AVTCKPQB+8 01048000 @NM00042 EQU AVTCKPEC+1 01049000 @NM00041 EQU AVTCKPCC 01050000 AVTCKPPO EQU AVTCKPCC 01051000 AVTCKPWA EQU AVTCKPCC 01052000 AVTCKPCH EQU AVTCKPTB+1 01053000 AVTCKPVT EQU AVTCKPTB 01054000 @NM00040 EQU IEDQAVTD+796 01055000 AVTBFRTB EQU IEDQAVTD+792 01056000 @NM00039 EQU IEDQAVTD+784 01057000 AVTBFREB EQU IEDQAVTD+780 01058000 AVTTIMQ EQU IEDQAVTD+776 01059000 @NM00038 EQU IEDQAVTD+772 01060000 AVTIMQPS EQU IEDQAVTD+768 01061000 AVTINOUT EQU IEDQAVTD+766 01062000 AVTREFTM EQU IEDQAVTD+764 01063000 @NM00037 EQU IEDQAVTD+752 01064000 AVTDELYB EQU IEDQAVTD+748 01065000 AVTOCQPT EQU IEDQAVTD+744 01066000 AVTTSOPT EQU IEDQAVTD+740 01067000 AVTSUPPT EQU IEDQAVTD+736 01068000 AVTCBQCB EQU IEDQAVTD+732 01069000 AVTMSGS EQU IEDQAVTD+729 01070000 @NM00036 EQU AVTSYSER 01071000 @NM00035 EQU AVTSYSER 01072000 @NM00034 EQU AVTSYSER 01073000 @NM00033 EQU AVTSYSER 01074000 @NM00032 EQU AVTSYSER 01075000 @NM00031 EQU AVTSYSER 01076000 AVTCMAXN EQU AVTSYSER 01077000 AVTCMINN EQU AVTSYSER 01078000 AVT2260L EQU IEDQAVTD+724 01079000 AVTABEPL EQU AVTADBUF 01080000 AVTHFF EQU AVTCLRHI+2 01081000 @NM00030 EQU AVTCLRHI 01082000 AVTCCLNK EQU AVTCRELE+5 01083000 AVTCCPRI EQU AVTCRELE+4 01084000 AVTCCQCB EQU AVTCCELE+1 01085000 AVTCCKEY EQU AVTCCELE 01086000 AVTDELAD EQU IEDQAVTD+704 01087000 AVTDELEM EQU IEDQAVTD+700 01088000 AVTBSX EQU AVTCKLNK 01089000 AVTOPETR EQU AVTHG01 01090000 @NM00029 EQU AVTCKBYT 01091000 AVTCKONQ EQU AVTCKBYT 01092000 @NM00028 EQU AVTCKBYT 01093000 @NM00027 EQU AVTCKBYT 01094000 @NM00026 EQU AVTCKBYT 01095000 @NM00025 EQU AVTCKBYT 01096000 @NM00024 EQU AVTCKBYT 01097000 @NM00023 EQU AVTCKBYT 01098000 AVTOPERT EQU IEDQAVTD+690 01099000 AVTOPXCL EQU IEDQAVTD+688 01100000 AVTOPERL EQU IEDQAVTD+687 01101000 @NM00022 EQU IEDQAVTD+686 01102000 AVTCKTIM EQU IEDQAVTD+684 01103000 AVTCKELV EQU IEDQAVTD+682 01104000 AVTCPRCD EQU IEDQAVTD+681 01105000 AVTWARMN EQU AVTCKELF 01106000 AVTCRTLN EQU AVTCKELF 01107000 AVTCPIPN EQU AVTCKELF 01108000 AVTCCLCN EQU AVTCKELF 01109000 AVTCINCN EQU AVTCKELF 01110000 @NM00021 EQU AVTCKELF 01111000 AVTCMCPN EQU AVTCKELF 01112000 AVTNQBCK EQU AVTCKELF 01113000 AVTCKQAD EQU IEDQAVTD+677 01114000 AVTSCBSZ EQU IEDQAVTD+676 01115000 @NM00020 EQU IEDQAVTD+672 01116000 AVTCKELE EQU IEDQAVTD+668 01117000 @NM00019 EQU AVTCKPEL+8 01118000 AVTCKRLK EQU AVTCKPEL+5 01119000 AVTCKRPR EQU AVTCKPEL+4 01120000 AVTCKRMQ EQU AVTCKRMV+1 01121000 AVTCKRKY EQU AVTCKRMV 01122000 AVTHK EQU IEDQAVTD+648 01123000 AVTHI EQU IEDQAVTD+644 01124000 AVTIOT EQU IEDQAVTD+640 01125000 AVTNX EQU IEDQAVTD+636 01126000 AVTTONE EQU IEDQAVTD+632 01127000 AVTA3TL EQU IEDQAVTD+628 01128000 AVTDMECB EQU IEDQAVTD+624 01129000 AVTABEND EQU IEDQAVTD+618 01130000 AVTPLCBN EQU IEDQAVTD+616 01131000 @NM00018 EQU AVTSAVTP+1 01132000 @NM00017 EQU AVTSAVTF 01133000 AVTSNA EQU AVTSAVTF 01134000 AVTONSNA EQU AVTSAVTF 01135000 AVTVTMCP EQU AVTSAVTF 01136000 @NM00016 EQU IEDQAVTD+608 01137000 AVTCMBSS EQU IEDQAVTD+604 01138000 AVTRCV EQU IEDQAVTD+600 01139000 AVTSEND EQU IEDQAVTD+596 01140000 AVTCSCH EQU IEDQAVTD+592 01141000 AVTQ1 EQU IEDQAVTD+588 01142000 AVTE7 EQU IEDQAVTD+584 01143000 AVTHB EQU IEDQAVTD+580 01144000 AVTR1 EQU IEDQAVTD+576 01145000 AVTBZ EQU IEDQAVTD+572 01146000 AVTEZ EQU IEDQAVTD+568 01147000 AVTEC EQU IEDQAVTD+564 01148000 AVTEW EQU IEDQAVTD+560 01149000 AVTNDIAL EQU AVTSCOPT 01150000 AVTN2741 EQU AVTSCOPT 01151000 AVTCONCO EQU AVTSCOPT 01152000 AVTCONC EQU AVTSCOPT 01153000 AVTCMBUF EQU AVTSCOPT 01154000 AVTAPDMP EQU AVTSCOPT 01155000 @NM00015 EQU AVTSCOPT 01156000 AVTHA EQU AVTDISP 01157000 AVTEA EQU IEDQAVTD+548 01158000 AVTAX EQU IEDQAVTD+544 01159000 AVTA3 EQU IEDQAVTD+540 01160000 AVTGD EQU IEDQAVTD+536 01161000 AVTAL EQU IEDQAVTD+532 01162000 AVTOLTST EQU AVTHG02 01163000 AVTE8 EQU IEDQAVTD+524 01164000 AVTUI EQU IEDQAVTD+520 01165000 AVTCOMPT EQU IEDQAVTD+516 01166000 AVTCRSRF EQU IEDQAVTD+512 01167000 @NM00014 EQU IEDQAVTD+508 01168000 AVTKA02 EQU IEDQAVTD+504 01169000 AVTOPTPT EQU IEDQAVTD+500 01170000 AVTPCBPT EQU IEDQAVTD+496 01171000 @NM00013 EQU AVTECB1 01172000 AVTCOMP EQU AVTECB1 01173000 @NM00012 EQU AVTECB1 01174000 AVTOPECA EQU IEDQAVTD+488 01175000 AVTOLECA EQU IEDQAVTD+484 01176000 AVTCKECA EQU IEDQAVTD+480 01177000 AVTCWECA EQU IEDQAVTD+476 01178000 AVTCWTCB EQU IEDQAVTD+472 01179000 AVTOLTCB EQU IEDQAVTD+468 01180000 AVTOCTCB EQU IEDQAVTD+464 01181000 AVTCKTCB EQU IEDQAVTD+460 01182000 AVTAS EQU IEDQAVTD+456 01183000 AVTNOLBF EQU IEDQAVTD+454 01184000 AVTNCKPR EQU IEDQAVTD+453 01185000 AVTCIB EQU IEDQAVTD+452 01186000 AVTSPLPT EQU IEDQAVTD+448 01187000 AVTMVBFR EQU IEDQAVTD+444 01188000 AVTSBTA EQU IEDQAVTD+440 01189000 AVTRARTN EQU IEDQAVTD+436 01190000 AVTBSCAN EQU IEDQAVTD+432 01191000 AVTRDYA EQU IEDQAVTD+428 01192000 AVTRNMPT EQU IEDQAVTD+424 01193000 AVTDISTR EQU IEDQAVTD+420 01194000 AVTPARM3 EQU IEDQAVTD+416 01195000 @NM00011 EQU AVTPKF 01196000 @NM00010 EQU AVTPKF 01197000 @NM00009 EQU AVTPKF 01198000 AVTFTCHF EQU AVTPKF 01199000 @NM00008 EQU AVTPKF 01200000 @NM00007 EQU AVTPKF 01201000 @NM00006 EQU AVTPKF 01202000 @NM00005 EQU AVTPKF 01203000 AVTPARM EQU IEDQAVTD+408 01204000 AVTEXS2A EQU IEDQAVTD+402 01205000 AVTEXA2S EQU IEDQAVTD+396 01206000 AVTOCGET EQU IEDQAVTD+392 01207000 AVTCKAVT EQU @NM00003+1 01208000 @NM00004 EQU AVTCKFLG 01209000 AVTCKHLT EQU AVTCKFLG 01210000 AVTCKREQ EQU AVTCKFLG 01211000 AVTCKENV EQU AVTCKFLG 01212000 AVTCKNAC EQU AVTCKFLG 01213000 AVTCKTAC EQU AVTCKFLG 01214000 @NM00002 EQU IEDQAVTD+384 01215000 AVTREADD EQU IEDQAVTD+380 01216000 AVTREADY EQU IEDQAVTD+376 01217000 AVTRACE EQU IEDQAVTD+372 01218000 AVTTCB EQU IEDQAVTD+368 01219000 AVTPASWD EQU IEDQAVTD+360 01220000 AVTCTLCH EQU IEDQAVTD+352 01221000 AVTDOUBL EQU IEDQAVTD+344 01222000 AVTDOUBX EQU IEDQAVTD+336 01223000 AVTDPARM EQU IEDQAVTD+332 01224000 AVTCSTCS EQU IEDQAVTD+328 01225000 AVTDLQ EQU AVTSAVEX+32 01226000 @NM00001 EQU AVTSAVEX 01227000 AVTSAVE4 EQU IEDQAVTD+216 01228000 AVTSAVE3 EQU IEDQAVTD+144 01229000 AVTSAVE2 EQU IEDQAVTD+72 01230000 AVTSAVE1 EQU IEDQAVTD 01231000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01232000 @PB00004 EQU @EL00001 01233000 @PB00003 EQU @PB00004 01234000 @PB00002 EQU @PB00003 01235000 @ENDDATA EQU * 01236000 END IGCAE10D,(C'PLS1048',0701,77220) 01237000