TITLE 'ISTZBM0K: 370X TRANSIENT ERP *00001000 ' 00002000 ISTZBM0K CSECT , 0001 00003000 IGE0004 DS 0H 0001 00004000 ENTRY IGE0004 00005000 @MAINENT DS 0H 0001 00006000 USING *,@15 0001 00007000 B @PROLOG 0001 00008000 DC AL2(@EP00001-@MAINENT) 00009000 DC AL1(16) 0001 00010000 DC C'ISTZBM0K 75.130' 0001 00011000 DROP @15 00012000 @PROLOG BALR @12,0 0001 00013000 @PSTART DS 0H 0001 00014000 USING @PSTART,@12 0001 00015000 AH @15,4(,@15) 0001 00016000 BR @15 0001 00017000 @EP00001 DS 0H 0002 00018000 * * * * * * * * * * * * * * * * * 00019000 * GENERATED CODE TO ENSURE THAT * 00020000 * THE COMMON ENTRY POINT IS * 00021000 * IDENTIFIED * 00022000 ISTZBM0K CSECT * 00023000 ENTRY ISTZBC0K * 00024000 ISTZBC0K EQU ISTZBM0K * 00025000 * * * * * * * * * * * * * * * * * 00026000 * DO; /* LISATCVT 0503 00027000 * CVTBASE(PAGEABLE,(PTRATCVT)) */ 00028000 * PTRATCVT=ATCLCPTR; /* SET UP ATCVT POINTER */ 00029000 L PTRATCVT,ATCLCPTR 0504 00030000 * END; /* LISATCVT LOCATE VTAMS CVT */ 00031000 * PTRICNCB=IOSBPTR-(ADDR(ICNIOSB)-ADDR(ISTICNCB));/* CALCULATE 0506 00032000 * ICNCB ADDR BY BACKING UP FROM 00033000 * IOSB ADDR */ 00034000 LA @00,ICNIOSB(,PTRICNCB) 0506 00035000 LCR @00,@00 0506 00036000 ALR @00,PTRICNCB 0506 00037000 ALR @00,IOSBPTR 0506 00038000 LR PTRICNCB,@00 0506 00039000 * RPHPTR=ADDR(ICNRPH); /* SET UP RPH PTR FOR FUTURE USE */ 00040000 LA RPHPTR,ICNRPH(,PTRICNCB) 0507 00041000 * ICNZF026=ON; /* SET ON ERP */ 00042000 * 0508 00043000 OI ICNZF026(PTRICNCB),B'00000100' 0508 00044000 * /*****************************************************************/ 00045000 * /* */ 00046000 * /* RECORD */ 00047000 * /* */ 00048000 * /*****************************************************************/ 00049000 * 0509 00050000 * RFY 0509 00051000 * EWAPTR RSTD; 0509 00052000 * EWAPTR=IOSERP; /* GET ADDR OF EWA */ 00053000 LA @15,520 0510 00054000 ALR @15,PTRICNCB 0510 00055000 L EWAPTR,IOSERP(,@15) 0510 00056000 * EWATMAP=EWATMAP&&EWATMAP; /* CLEAR VTAM AREA OF EWA 0511 00057000 * @Y30APGW*/ 00058000 XC EWATMAP(60,EWAPTR),EWATMAP(EWAPTR) 0511 00059000 * IF ICNZF008=OFF THEN 0512 00060000 TM ICNZF008(PTRICNCB),B'00000010' 0512 00061000 BNZ @RF00512 0512 00062000 * DO; /* IF NOT CLOSING DOWN RECORDING */ 00063000 * IF ICNZF024=OFF THEN 0514 00064000 TM ICNZF024(PTRICNCB),B'00010000' 0514 00065000 BNZ @RF00514 0514 00066000 * DO; /* IF NOT A PERMANENT ERROR */ 00067000 * IF ICNZF022=ON THEN 0516 00068000 TM ICNZF022(PTRICNCB),B'01000000' 0516 00069000 BNO @RF00516 0516 00070000 * DO; /* IF COUNTER OVERFLOW */ 00071000 * IOSLOG=ON; /* SET FORCED OBR FLAG ON */ 00072000 OI IOSLOG(@15),B'00000001' 0518 00073000 * ICNZF022=OFF; /* TURN OFF COUNTER OVERFLOW */ 00074000 NI ICNZF022(PTRICNCB),B'10111111' 0519 00075000 * END; 0520 00076000 * ELSE 0521 00077000 * ; /* @Y30APGW*/ 00078000 @RF00516 DS 0H 0522 00079000 * IF ICNZF023=ON THEN /* IF STAT UPDATE NEEDED */ 00080000 TM ICNZF023(PTRICNCB),B'00100000' 0522 00081000 BNO @RF00522 0522 00082000 * R13=ICNZSTUP; /* SETUP TO BRING IN STAT UPDATE 00083000 * MODULE NEXT */ 00084000 LA R13,254 0523 00085000 * ELSE 0524 00086000 * R13=ICNZOBR; /* SETUP TO BRING IN OBR MODULE 00087000 * NEXT */ 00088000 B @RC00522 0524 00089000 @RF00522 LA R13,256 0524 00090000 * EWATOVF=ON; /* SET RECORD TYPE = TO COUNTER 00091000 * OVERFLOW */ 00092000 @RC00522 OI EWATOVF(EWAPTR),B'01000000' 0525 00093000 * IOSEX=OFF; /* INDICATE SUCCESSFUL RETRY */ 00094000 NI IOSEX+520(PTRICNCB),B'11111011' 0526 00095000 * END; 0527 00096000 * ELSE 0528 00097000 * DO; 0528 00098000 B @RC00514 0528 00099000 @RF00514 DS 0H 0529 00100000 * R13=ICNZMSGW; /* IF PERMANENT I/O ERROR,GO TO 00101000 * MSG WTR NEXT */ 00102000 LA R13,253 0529 00103000 * IOSMSG=ON; /* INDICATE PERM I/O ERROR TO MSG 00104000 * WTR */ 00105000 * IOSLOG=ON; /* FORCE ENTRY TO OBR */ 00106000 OI IOSMSG+520(PTRICNCB),B'00000101' 0531 00107000 * ICNZF024=OFF; /* TURN OFF PERM TO ERROR SW */ 00108000 * 0532 00109000 NI ICNZF024(PTRICNCB),B'11101111' 0532 00110000 * /*********************************************************/ 00111000 * /* */ 00112000 * /* RECORD2 */ 00113000 * /* */ 00114000 * /*********************************************************/ 00115000 * 0533 00116000 * EWATCSW=ICNZC001; /* MOVE IN FAILING CSW */ 00117000 MVC EWATCSW(7,EWAPTR),ICNZC001(PTRICNCB) 0533 00118000 * IF ICNZX011=WRITEBP THEN 0534 00119000 CLI ICNZX011(PTRICNCB),X'09' 0534 00120000 BNE @RF00534 0534 00121000 * DO; /* 1ST OP WRITEBREAK? */ 00122000 * BM0KSW01=SET; /* INDICATE LOOKING AT 1ST OPCODE 00123000 * @ZM32670*/ 00124000 * 0536 00125000 LA @07,1 0536 00126000 LR BM0KSW01,@07 0536 00127000 * /*****************************************************/ 00128000 * /* */ 00129000 * /* SETOPCDS */ 00130000 * /* */ 00131000 * /*****************************************************/ 00132000 * 0537 00133000 * RFY 0537 00134000 * RX RSTD; 0537 00135000 * IF BM0KSW01=SET THEN/* HANDLING FIRST FAILING OP THEN 00136000 * @ZM32670*/ 00137000 CR BM0KSW01,@07 0538 00138000 BNE @RF00538 0538 00139000 * RX=ICNZV006; /* GET ADDR OF 1ST FAILING CCW */ 00140000 L RX,ICNZV006(,PTRICNCB) 0539 00141000 * ELSE /* HANDLING LAST FAILING OP THEN */ 00142000 * RX=IOSCSWCA-8; /* GET ADDR OF LAST FAILING CCW */ 00143000 B @RC00538 0540 00144000 @RF00538 L RX,IOSCSWCA+519(,PTRICNCB) 0540 00145000 LA RX,0(,RX) 0540 00146000 SL RX,@CF00040 0540 00147000 * BUFPTR=ICNLSTIT; /* GET 1ST BUF OF LAST WRITE BTU */ 00148000 @RC00538 L BUFPTR,ICNLSTIT(,PTRICNCB) 0541 00149000 * IF RX=BUFPTR+ZIBCPOFS|RX=0 THEN 0542 00150000 LA @07,4 0542 00151000 ALR @07,BUFPTR 0542 00152000 CR RX,@07 0542 00153000 BE @RT00542 0542 00154000 LTR RX,RX 0542 00155000 BZ @RT00542 0542 00156000 * ; /* FAIL ON 1ST CCW OF 1ST BUF, 0543 00157000 * RETURN @ZM33603*/ 00158000 * ELSE 0544 00159000 * DO; /* DIDN'T FAIL ON 1ST CCW */ 00160000 * BM0KSW02=CLR; /* TURN ENDLOOP OFF @ZM32670*/ 00161000 SLR BM0KSW02,BM0KSW02 0545 00162000 * DO WHILE BM0KSW02=CLR;/* @ZM32670*/ 00163000 B @DE00546 0546 00164000 @DL00546 DS 0H 0547 00165000 * BUFPTR=ZIBCHAIN;/* GET ADDR OF NXT BUFFER */ 00166000 L BUFPTR,ZIBCHAIN(,BUFPTR) 0547 00167000 * IF BUFPTR=0 THEN 0548 00168000 LTR BUFPTR,BUFPTR 0548 00169000 BNZ @RF00548 0548 00170000 * DO; /* IF END OF WRITE BLK */ 00171000 * BM0KSW02=SET;/* SET ENDLOOP ON @ZM32670*/ 00172000 LA @07,1 0550 00173000 LR BM0KSW02,@07 0550 00174000 * RX->CCWCODE=WRITE;/* FAILING CCW = WRITE */ 00175000 MVI CCWCODE(RX),X'01' 0551 00176000 * IF BM0KSW01=SET THEN/* FIRST FAILING OP 0552 00177000 * CODE? @ZM32670*/ 00178000 CR BM0KSW01,@07 0552 00179000 BNE @RF00552 0552 00180000 * ICNZX011=WRITE;/* SET FIRST OP = WRITE */ 00181000 MVI ICNZX011(PTRICNCB),X'01' 0553 00182000 * ELSE 0554 00183000 * ICNZX012=WRITE;/* SET LAST OP = WRITE */ 00184000 B @RC00552 0554 00185000 @RF00552 MVI ICNZX012(PTRICNCB),X'01' 0554 00186000 * END; 0555 00187000 * ELSE 0556 00188000 * DO; /* IF THIS IS NOT FIRST BUFFER */ 00189000 B @RC00548 0556 00190000 @RF00548 DS 0H 0557 00191000 * IF RX=BUFPTR+ZIBCPOFS THEN/* IF FAILED ON 00192000 * THIS BUFFER */ 00193000 LA @07,4 0557 00194000 ALR @07,BUFPTR 0557 00195000 CR RX,@07 0557 00196000 BNE @RF00557 0557 00197000 * BM0KSW02=SET;/* SET ENDLOOP ON @ZM32670*/ 00198000 LA BM0KSW02,1 0558 00199000 * ELSE 0559 00200000 * ; /* @Y30APGW*/ 00201000 @RF00557 DS 0H 0560 00202000 * END; 0560 00203000 * END; 0561 00204000 @RC00548 DS 0H 0561 00205000 @DE00546 LTR BM0KSW02,BM0KSW02 0561 00206000 BZ @DL00546 0561 00207000 * END; 0562 00208000 * RFY 0563 00209000 * RX UNRSTD; 0563 00210000 @RT00542 DS 0H 0564 00211000 * END; 0564 00212000 * ELSE 0565 00213000 * ; /* IF 1ST OPCODE NOT WRITEBREAK 00214000 * @Y30APGW*/ 00215000 @RF00534 DS 0H 0566 00216000 * IF ICNZX012=WRITEBP THEN 0566 00217000 CLI ICNZX012(PTRICNCB),X'09' 0566 00218000 BNE @RF00566 0566 00219000 * DO; /* LAST OP WRITEBREAK? */ 00220000 * BM0KSW01=CLR; /* INDICATE LOOKING AT LAST 0568 00221000 * OPCODE @ZM32670*/ 00222000 * 0568 00223000 SLR BM0KSW01,BM0KSW01 0568 00224000 * /*****************************************************/ 00225000 * /* */ 00226000 * /* SETOPCDS */ 00227000 * /* */ 00228000 * /*****************************************************/ 00229000 * 0569 00230000 * RFY 0569 00231000 * RX RSTD; 0569 00232000 * IF BM0KSW01=SET THEN/* HANDLING FIRST FAILING OP THEN 00233000 * @ZM32670*/ 00234000 C BM0KSW01,@CF00071 0570 00235000 BNE @RF00570 0570 00236000 * RX=ICNZV006; /* GET ADDR OF 1ST FAILING CCW */ 00237000 L RX,ICNZV006(,PTRICNCB) 0571 00238000 * ELSE /* HANDLING LAST FAILING OP THEN */ 00239000 * RX=IOSCSWCA-8; /* GET ADDR OF LAST FAILING CCW */ 00240000 B @RC00570 0572 00241000 @RF00570 L RX,IOSCSWCA+519(,PTRICNCB) 0572 00242000 LA RX,0(,RX) 0572 00243000 SL RX,@CF00040 0572 00244000 * BUFPTR=ICNLSTIT; /* GET 1ST BUF OF LAST WRITE BTU */ 00245000 @RC00570 L BUFPTR,ICNLSTIT(,PTRICNCB) 0573 00246000 * IF RX=BUFPTR+ZIBCPOFS|RX=0 THEN 0574 00247000 LA @07,4 0574 00248000 ALR @07,BUFPTR 0574 00249000 CR RX,@07 0574 00250000 BE @RT00574 0574 00251000 LTR RX,RX 0574 00252000 BZ @RT00574 0574 00253000 * ; /* FAIL ON 1ST CCW OF 1ST BUF, 0575 00254000 * RETURN @ZM33603*/ 00255000 * ELSE 0576 00256000 * DO; /* DIDN'T FAIL ON 1ST CCW */ 00257000 * BM0KSW02=CLR; /* TURN ENDLOOP OFF @ZM32670*/ 00258000 SLR BM0KSW02,BM0KSW02 0577 00259000 * DO WHILE BM0KSW02=CLR;/* @ZM32670*/ 00260000 B @DE00578 0578 00261000 @DL00578 DS 0H 0579 00262000 * BUFPTR=ZIBCHAIN;/* GET ADDR OF NXT BUFFER */ 00263000 L BUFPTR,ZIBCHAIN(,BUFPTR) 0579 00264000 * IF BUFPTR=0 THEN 0580 00265000 LTR BUFPTR,BUFPTR 0580 00266000 BNZ @RF00580 0580 00267000 * DO; /* IF END OF WRITE BLK */ 00268000 * BM0KSW02=SET;/* SET ENDLOOP ON @ZM32670*/ 00269000 LA @07,1 0582 00270000 LR BM0KSW02,@07 0582 00271000 * RX->CCWCODE=WRITE;/* FAILING CCW = WRITE */ 00272000 MVI CCWCODE(RX),X'01' 0583 00273000 * IF BM0KSW01=SET THEN/* FIRST FAILING OP 0584 00274000 * CODE? @ZM32670*/ 00275000 CR BM0KSW01,@07 0584 00276000 BNE @RF00584 0584 00277000 * ICNZX011=WRITE;/* SET FIRST OP = WRITE */ 00278000 MVI ICNZX011(PTRICNCB),X'01' 0585 00279000 * ELSE 0586 00280000 * ICNZX012=WRITE;/* SET LAST OP = WRITE */ 00281000 B @RC00584 0586 00282000 @RF00584 MVI ICNZX012(PTRICNCB),X'01' 0586 00283000 * END; 0587 00284000 * ELSE 0588 00285000 * DO; /* IF THIS IS NOT FIRST BUFFER */ 00286000 B @RC00580 0588 00287000 @RF00580 DS 0H 0589 00288000 * IF RX=BUFPTR+ZIBCPOFS THEN/* IF FAILED ON 00289000 * THIS BUFFER */ 00290000 LA @07,4 0589 00291000 ALR @07,BUFPTR 0589 00292000 CR RX,@07 0589 00293000 BNE @RF00589 0589 00294000 * BM0KSW02=SET;/* SET ENDLOOP ON @ZM32670*/ 00295000 LA BM0KSW02,1 0590 00296000 * ELSE 0591 00297000 * ; /* @Y30APGW*/ 00298000 @RF00589 DS 0H 0592 00299000 * END; 0592 00300000 * END; 0593 00301000 @RC00580 DS 0H 0593 00302000 @DE00578 LTR BM0KSW02,BM0KSW02 0593 00303000 BZ @DL00578 0593 00304000 * END; 0594 00305000 * RFY 0595 00306000 * RX UNRSTD; 0595 00307000 @RT00574 DS 0H 0596 00308000 * END; 0596 00309000 * ELSE 0597 00310000 * ; /* FAILING CCW ADDR ^= ZERO 0597 00311000 * @Y30APGW*/ 00312000 @RF00566 DS 0H 0598 00313000 * IF ICNZV006^=0 THEN 0598 00314000 L @07,ICNZV006(,PTRICNCB) 0598 00315000 LTR @07,@07 0598 00316000 BZ @RF00598 0598 00317000 * EWATCCW=ICNZV006->ISTCCW;/* MOVE IN CCW */ 00318000 MVC EWATCCW(8,EWAPTR),ISTCCW(@07) 0599 00319000 * ELSE 0600 00320000 * ; /* @Y30APGW*/ 00321000 @RF00598 DS 0H 0601 00322000 * EWATSNF=ICNZX010; /* MOVE IN 1ST SENSE */ 00323000 MVC EWATSNF(2,EWAPTR),ICNZX010(PTRICNCB) 0601 00324000 * EWATSNL=IOSSNS; /* MOVE IN LAST SENSE */ 00325000 MVC EWATSNL(2,EWAPTR),IOSSNS+520(PTRICNCB) 0602 00326000 * EWATCCF=ICNZX011; /* MOVE IN FIRST OPCODE */ 00327000 MVC EWATCCF(1,EWAPTR),ICNZX011(PTRICNCB) 0603 00328000 * EWATCCL=ICNZX012; /* MOVE IN LAST OPCODE */ 00329000 MVC EWATCCL(1,EWAPTR),ICNZX012(PTRICNCB) 0604 00330000 * END; 0605 00331000 * END; 0606 00332000 * ELSE 0607 00333000 * DO; /* IF NE ARE CLOSING DOWN 0607 00334000 * RECORDING DO */ 00335000 B @RC00512 0607 00336000 @RF00512 DS 0H 0608 00337000 * IF ICNZF024=ON THEN 0608 00338000 TM ICNZF024(PTRICNCB),B'00010000' 0608 00339000 BNO @RF00608 0608 00340000 * DO; /* IF THERE WAS A PERMANENT ERROR*/ 00341000 * ICNZF008=OFF; /* TURN OFF CLOSEDOWN RECORDING 00342000 * FLAG */ 00343000 L @07,ICNZF008(,PTRICNCB) 0610 00344000 @GL00003 LR @00,@07 0610 00345000 N @00,@CF04928 0610 00346000 CS @07,@00,ICNZF008(PTRICNCB) 0610 00347000 BNE @GL00003 0610 00348000 * ICNZF024=OFF; /* TURN OFF PERMANENT ERROR FLAG */ 00349000 NI ICNZF024(PTRICNCB),B'11101111' 0611 00350000 * END; 0612 00351000 * ELSE /* IF NO PERMANENT ERROR */ 00352000 * IOSEX=OFF; /* INDICATE A SUCCESSFUL RETR */ 00353000 B @RC00608 0613 00354000 @RF00608 NI IOSEX+520(PTRICNCB),B'11111011' 0613 00355000 * ICNCLOSE=OFF; /* TURN OFF CLOSEDOWN IN PROG. 0614 00356000 * FLAG */ 00357000 @RC00608 L @07,ICNCLOSE-1(,PTRICNCB) 0614 00358000 @GL00004 LR @00,@07 0614 00359000 N @00,@CF04931 0614 00360000 CS @07,@00,ICNCLOSE-1(PTRICNCB) 0614 00361000 BNE @GL00004 0614 00362000 * R13=ICNZOBR; /* SETUP TO BRING IN OBR MODULE 00363000 * NEXT */ 00364000 LA R13,256 0615 00365000 * EWATCLO=ON; /* RECORD TYPE IS CLOSEDOWN */ 00366000 OI EWATCLO(EWAPTR),B'00100000' 0616 00367000 * END; 0617 00368000 * 0617 00369000 * /*****************************************************************/ 00370000 * /* */ 00371000 * /* RECORD3 */ 00372000 * /* */ 00373000 * /*****************************************************************/ 00374000 * 0618 00375000 * EWASTUP=ICNZH002; /* MOVE IN STATS */ 00376000 @RC00512 MVC EWASTUP(2,EWAPTR),ICNZH002(PTRICNCB) 0618 00377000 * EWATSIO=ICNZH001; /* MOVE IN SIO CTR */ 00378000 LH @07,ICNZH001(,PTRICNCB) 0619 00379000 N @07,@CF04935 0619 00380000 STH @07,EWATSIO(,EWAPTR) 0619 00381000 * EWATTMP=ICNZX001; /* MOVE IN TEMP ERR COUNT */ 00382000 MVC EWATTMP(1,EWAPTR),ICNZX001(PTRICNCB) 0620 00383000 * EWACHA=IOSUCB->UCBCHAN; /* MOVE IN UNIT ADDR @ZM33555*/ 00384000 L @07,IOSUCB+520(,PTRICNCB) 0621 00385000 MVC EWACHA(2,EWAPTR),UCBCHAN(@07) 0621 00386000 * RFY 0622 00387000 * RH RSTD; 0622 00388000 * RH=NCBRDTE; /* GET ADDR OF NCP RDTE */ 00389000 L RH,NCBRDTE(,PTRICNCB) 0623 00390000 * IF ICNLCLUS=ON THEN /* IF 3791 @Z40GKD9*/ 00391000 TM ICNLCLUS(PTRICNCB),B'00100000' 0624 00392000 BNO @RF00624 0624 00393000 * DO WHILE(RPRENTRY^=RPRENTCC); /* FIND CLUSTER CONTROLLER RDTE 00394000 * @Z40GKD9*/ 00395000 B @DE00625 0625 00396000 @DL00625 DS 0H 0626 00397000 * RH=RH+RPRELEN; /* INCREMENT TO NEXT RDT ENTRY 0626 00398000 * @Z40GKD9*/ 00399000 AH RH,RPRELEN(,RH) 0626 00400000 * END; /* @Z40GKD9*/ 00401000 @DE00625 CLI RPRENTRY(RH),X'71' 0627 00402000 BNE @DL00625 0627 00403000 * ELSE 0628 00404000 * ; /* @Z40GKD9*/ 00405000 @RF00624 DS 0H 0629 00406000 * EWATTRM=RPRNAME; /* MOVE IN NCP OR CC NAME */ 00407000 MVC EWATTRM(8,EWAPTR),RPRNAME(RH) 0629 00408000 * RFY 0630 00409000 * RH UNRSTD; 0630 00410000 * EWADCNT=LENGTH(EWATOBR); /* SET DATA LENGTH */ 00411000 MVI EWADCNT(EWAPTR),X'14' 0631 00412000 * EWADDISP=ADDR(EWATOBR); /* SET DATA ADDRESS */ 00413000 LA @07,EWATOBR(,EWAPTR) 0632 00414000 STCM @07,7,EWADDISP(EWAPTR) 0632 00415000 * ICNZV006=0; /* CLEAR FAILING CCW ADDR */ 00416000 SLR @07,@07 0633 00417000 ST @07,ICNZV006(,PTRICNCB) 0633 00418000 * ICNZC001='0000000000000000'X; /* CLEAR CSW */ 00419000 MVC ICNZC001(8,PTRICNCB),@CB04918 0634 00420000 * IOSSNS=''B; /* CLEAR LAST SENSE */ 00421000 LA @15,520 0635 00422000 ALR @15,PTRICNCB 0635 00423000 XC IOSSNS(2,@15),IOSSNS(@15) 0635 00424000 * ICNZX010=''B; /* CLEAR FIRST SENSE */ 00425000 XC ICNZX010(2,PTRICNCB),ICNZX010(PTRICNCB) 0636 00426000 * ICNZH002=0; /* CLEAR STATS */ 00427000 STCM @07,3,ICNZH002(PTRICNCB) 0637 00428000 * ICNZX012=''B; /* CLEAR LAST OP */ 00429000 MVI ICNZX012(PTRICNCB),X'00' 0638 00430000 * ICNZX011=''B; /* CLEAR FIRST OP */ 00431000 MVI ICNZX011(PTRICNCB),X'00' 0639 00432000 * IF ICNZF023=OFF| /* IF NOT A STAT UPDATE OR */ 00433000 * IOSLOG=ON THEN 0640 00434000 TM ICNZF023(PTRICNCB),B'00100000' 0640 00435000 BZ @RT00640 0640 00436000 TM IOSLOG(@15),B'00000001' 0640 00437000 BNO @RF00640 0640 00438000 @RT00640 DS 0H 0641 00439000 * DO; /* LOG IS ON THEN */ 00440000 * ICNZH001=0; /* CLEAR SIO CTR */ 00441000 SLR @07,@07 0642 00442000 STH @07,ICNZH001(,PTRICNCB) 0642 00443000 * ICNZX001=''B; /* CLEAR TEMP ERROR COUNTER */ 00444000 SLR @07,@07 0643 00445000 STC @07,ICNZX001(,PTRICNCB) 0643 00446000 * END; 0644 00447000 * ELSE 0645 00448000 * ; /* @Y30APGW*/ 00449000 @RF00640 DS 0H 0646 00450000 * ICNZF023=OFF; /* TURN STAT UPDATE OFF */ 00451000 NI ICNZF023(PTRICNCB),B'11011111' 0646 00452000 * IOSBPTR=ADDR(ICNIOSB); /* GET ADDR(IOSB) */ 00453000 LA IOSBPTR,ICNIOSB(,PTRICNCB) 0647 00454000 * RFY 0648 00455000 * XCTLREG RSTD; 0648 00456000 * XCTLREG=CVTXTLER; /* GET ADDR OF XCTL ROUTINE */ 00457000 L @07,CVTPTR 0649 00458000 L XCTLREG,CVTXTLER(,@07) 0649 00459000 * GEN(BR XCTLREG); /* GO TO XCTL ROUTINE */ 00460000 BR XCTLREG 00461000 * RFY 0651 00462000 * XCTLREG UNRSTD; 0651 00463000 * 0651 00464000 */* TPEPILOG */ 00465000 * 0652 00466000 * GEN(PRINT OFF); 0652 00467000 PRINT OFF 00468000 * GEN(PRINT ON); 0653 00469000 * 0653 00470000 PRINT ON 00471000 */* END OF TPEPILOG */ 00472000 * 0654 00473000 * END ISTZBM0K 0654 00474000 * 0654 00475000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00476000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00477000 */*%INCLUDE SYSLIB (CVT ) */ 00478000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00479000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00480000 */*%INCLUDE SYSLIB (IHASRB ) */ 00481000 */*%INCLUDE SYSLIB (EWATMAP ) */ 00482000 */*%INCLUDE SYSUT5 (RECORD ) */ 00483000 */*%INCLUDE SYSUT5 (RECORD2 ) */ 00484000 */*%INCLUDE SYSUT5 (SETOPCDS) */ 00485000 */*%INCLUDE SYSUT5 (SETOPCDS) */ 00486000 */*%INCLUDE SYSUT5 (RECORD3 ) */ 00487000 * 0654 00488000 * ; 0654 00489000 @EL00001 DS 0H 0654 00490000 @EF00001 DS 0H 0654 00491000 @ER00001 BR @14 0654 00492000 @DATA DS 0H 00493000 @DATD DSECT 00494000 DS 0F 00495000 ISTZBM0K CSECT 00496000 DS 0F 00497000 @CF00071 DC F'1' 00498000 @CF00040 DC F'8' 00499000 @CF04935 DC XL4'0000FFFF' 00500000 @CF04928 DC BL4'11111101111111111111111111111111' 00501000 @CF04931 DC BL4'11111111111111011111111111111111' 00502000 @DATD DSECT 00503000 DS 0D 00504000 LCPBPTR DS A 00505000 ISTZMSG DS F 00506000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00507000 @ENDDATD EQU * 00508000 ISTZBM0K CSECT 00509000 DS 0F 00510000 @SIZDATD DC AL1(0) 00511000 DC AL3(@ENDDATD-@DATD) 00512000 DS 0D 00513000 @CB04918 DC X'0000000000000000' 00514000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00515000 @01 EQU 01 00516000 @02 EQU 02 00517000 @03 EQU 03 00518000 @04 EQU 04 00519000 @05 EQU 05 00520000 @06 EQU 06 00521000 @07 EQU 07 00522000 @08 EQU 08 00523000 @09 EQU 09 00524000 @10 EQU 10 00525000 @11 EQU 11 00526000 @12 EQU 12 00527000 @13 EQU 13 00528000 @14 EQU 14 00529000 @15 EQU 15 00530000 UCBPTR EQU @05 00531000 IOSBPTR EQU @01 00532000 EWAPTR EQU @06 00533000 RPHPTR EQU @01 00534000 PTRATCVT EQU @02 00535000 PTRICNCB EQU @03 00536000 RX EQU @04 00537000 BUFPTR EQU @06 00538000 RH EQU @07 00539000 BM0KSW01 EQU @08 00540000 BM0KSW02 EQU @09 00541000 BASEPTR EQU @12 00542000 SAVEPTR EQU @13 00543000 R13 EQU @13 00544000 XCTLREG EQU @14 00545000 DAFPTR EQU @02 00546000 GPR00F EQU @00 00547000 GPR00P EQU @00 00548000 GPR01F EQU @01 00549000 GPR01P EQU @01 00550000 GPR02F EQU @02 00551000 GPR02P EQU @02 00552000 GPR03F EQU @03 00553000 GPR03P EQU @03 00554000 GPR04F EQU @04 00555000 GPR04P EQU @04 00556000 GPR05F EQU @05 00557000 GPR05P EQU @05 00558000 GPR06F EQU @06 00559000 GPR06P EQU @06 00560000 GPR07F EQU @07 00561000 GPR07P EQU @07 00562000 GPR08F EQU @08 00563000 GPR08P EQU @08 00564000 GPR09F EQU @09 00565000 GPR09P EQU @09 00566000 GPR10F EQU @10 00567000 GPR10P EQU @10 00568000 GPR11F EQU @11 00569000 GPR11P EQU @11 00570000 GPR12F EQU @12 00571000 GPR12P EQU @12 00572000 GPR13F EQU @13 00573000 GPR13P EQU @13 00574000 GPR14F EQU @14 00575000 GPR14P EQU @14 00576000 GPR15F EQU @15 00577000 GPR15P EQU @15 00578000 LCKPTR EQU @11 00579000 RETCDE EQU @15 00580000 RETPTR EQU @14 00581000 RJ EQU @05 00582000 R0 EQU @00 00583000 R7 EQU @07 00584000 SAVATCVT EQU @04 00585000 PSA EQU 0 00586000 FLCRNPSW EQU PSA 00587000 FLCROPSW EQU PSA+8 00588000 FLCICCW2 EQU PSA+16 00589000 FLCCVT EQU FLCICCW2 00590000 PSAEEPSW EQU PSA+132 00591000 PSAESPSW EQU PSA+136 00592000 FLCSVILC EQU PSAESPSW+1 00593000 PSAEPPSW EQU PSA+140 00594000 FLCPIILC EQU PSAEPPSW+1 00595000 FLCPICOD EQU PSAEPPSW+2 00596000 PSAPICOD EQU FLCPICOD+1 00597000 FLCTEA EQU PSAEPPSW+4 00598000 FLCPER EQU PSA+152 00599000 FLCMCLA EQU PSA+168 00600000 FLCIOEL EQU FLCMCLA+4 00601000 FLCIOA EQU FLCMCLA+16 00602000 FLCFSA EQU FLCMCLA+80 00603000 PSASUPER EQU PSA+552 00604000 PSASUP1 EQU PSASUPER 00605000 PSASUP2 EQU PSASUPER+1 00606000 PSASUP3 EQU PSASUPER+2 00607000 PSASUP4 EQU PSASUPER+3 00608000 PSACLHT EQU PSA+640 00609000 PSALKSA EQU PSA+696 00610000 PSAHLHI EQU PSA+760 00611000 PSADSSFL EQU PSA+836 00612000 PSADSSF1 EQU PSADSSFL 00613000 PSADSSF3 EQU PSADSSFL+2 00614000 PSADSSF4 EQU PSADSSFL+3 00615000 PSARSVT EQU PSA+896 00616000 ATCLCPTR EQU 1032 00617000 CVTMAP EQU 0 00618000 CVTXTLER EQU CVTMAP+44 00619000 CVTDAR EQU CVTMAP+72 00620000 CVTFLGS1 EQU CVTDAR 00621000 CVTDCB EQU CVTMAP+116 00622000 CVTIERLC EQU CVTMAP+144 00623000 CVTOPTA EQU CVTMAP+182 00624000 CVTOPTB EQU CVTMAP+183 00625000 CVTGTF EQU CVTMAP+236 00626000 CVTGTFST EQU CVTGTF 00627000 CVTGTFS EQU CVTGTFST 00628000 CVTSTATE EQU CVTGTFST 00629000 CVTTMODE EQU CVTGTFST 00630000 CVTFORM EQU CVTGTFST 00631000 CVTAQAVT EQU CVTMAP+240 00632000 CVTTCMFG EQU CVTAQAVT 00633000 CVTVOLM2 EQU CVTMAP+244 00634000 CVTTATA EQU CVTVOLM2 00635000 CVTTSKS EQU CVTTATA 00636000 CVTVOLF2 EQU CVTTSKS 00637000 CVTTAT EQU CVTTATA+1 00638000 CVTATER EQU CVTMAP+248 00639000 CVTEXT1 EQU CVTMAP+252 00640000 CVTPURG EQU CVTMAP+260 00641000 CVTQMSG EQU CVTMAP+268 00642000 CVTDMSR EQU CVTMAP+272 00643000 CVTERPV EQU CVTMAP+316 00644000 CVTINTLA EQU CVTMAP+320 00645000 CVTAPF EQU CVTMAP+324 00646000 CVTEXT2 EQU CVTMAP+328 00647000 CVTHJES EQU CVTMAP+332 00648000 CVTPGSIA EQU CVTMAP+348 00649000 CVTA1F1 EQU CVTMAP+356 00650000 CVTSYSK EQU CVTMAP+357 00651000 CVTVOLM1 EQU CVTMAP+380 00652000 CVTVOLF1 EQU CVTVOLM1 00653000 CVTATMCT EQU CVTMAP+388 00654000 CVTXTNT1 EQU 0 00655000 CVTXTNT2 EQU 0 00656000 CVTDSSV EQU CVTXTNT2 00657000 CVTFLGBT EQU CVTXTNT2+5 00658000 CVTQID EQU CVTXTNT2+24 00659000 CVTSHS EQU CVTXTNT2+40 00660000 CVTRV400 EQU CVTXTNT2+52 00661000 CVTRV409 EQU CVTXTNT2+53 00662000 CVTATCVT EQU CVTXTNT2+64 00663000 CVTRV429 EQU CVTXTNT2+84 00664000 CVTRV438 EQU CVTXTNT2+85 00665000 CVTRV457 EQU CVTXTNT2+112 00666000 CVTRV466 EQU CVTXTNT2+113 00667000 CVTFIX EQU 0 00668000 CVTRELNO EQU CVTFIX+252 00669000 UCB EQU 0 00670000 UCBOB EQU 0 00671000 UCBJBNR EQU UCBOB 00672000 UCBFL5 EQU UCBOB+1 00673000 UCBAF EQU UCBFL5 00674000 UCBSTAT EQU UCBOB+3 00675000 UCBCHAN EQU UCBOB+4 00676000 UCBSFLS EQU UCBOB+6 00677000 UCBFLA EQU UCBSFLS 00678000 UCBFL1 EQU UCBFLA 00679000 UCBBSY EQU UCBFL1 00680000 UCBNRY EQU UCBFL1 00681000 UCBPST EQU UCBFL1 00682000 UCBCUB EQU UCBFL1 00683000 UCBFLB EQU UCBSFLS+1 00684000 UCBCHM EQU UCBOB+8 00685000 UCBCHM1 EQU UCBCHM 00686000 UCBPTH0 EQU UCBCHM1 00687000 UCBPTH1 EQU UCBCHM1 00688000 UCBWGT EQU UCBOB+12 00689000 UCBTYP EQU UCBOB+16 00690000 UCBTBYT1 EQU UCBTYP 00691000 UCB1FEA5 EQU UCBTBYT1 00692000 UCB1FEA6 EQU UCBTBYT1 00693000 UCBTBYT2 EQU UCBTYP+1 00694000 UCB2OPT2 EQU UCBTBYT2 00695000 UCBDUDN1 EQU UCB2OPT2 00696000 UCB2OPT3 EQU UCBTBYT2 00697000 UCBDUDN2 EQU UCB2OPT3 00698000 UCB2OPT4 EQU UCBTBYT2 00699000 UCBRWTAU EQU UCB2OPT4 00700000 UCB2OPT6 EQU UCBTBYT2 00701000 UCB2OPT7 EQU UCBTBYT2 00702000 UCBTBYT3 EQU UCBTYP+2 00703000 UCBDVCLS EQU UCBTBYT3 00704000 UCBTBYT4 EQU UCBTYP+3 00705000 UCBEXTPT EQU UCBOB+20 00706000 UCBFLC EQU UCBEXTPT 00707000 UCBDEV EQU UCBOB+24 00708000 UCBCMEXT EQU 0 00709000 UCBATI EQU UCBCMEXT+3 00710000 @NM00030 EQU UCBATI 00711000 UCBFLP1 EQU UCBCMEXT+5 00712000 UCBMT EQU 0 00713000 UCBOCR EQU 0 00714000 UCB3540X EQU 0 00715000 UCBDKBYT EQU UCB3540X+6 00716000 UCB3800X EQU 0 00717000 UCBOPTNS EQU UCB3800X 00718000 UCBACTIV EQU UCB3800X+3 00719000 UCBMDRBF EQU UCB3800X+36 00720000 UCBUCS EQU 0 00721000 UCBUCSOP EQU UCBUCS+4 00722000 UCBFCBOP EQU UCBUCS+5 00723000 IOSB EQU 0 00724000 IOSFLA EQU IOSB 00725000 IOSACHN EQU IOSFLA 00726000 IOSEX EQU IOSFLA 00727000 IOSFLB EQU IOSB+1 00728000 IOSMSG EQU IOSFLB 00729000 IOSLOG EQU IOSFLB 00730000 IOSFLC EQU IOSB+2 00731000 IOSDVALT EQU IOSFLC 00732000 IOSPKEY EQU IOSB+12 00733000 IOSOPT EQU IOSB+14 00734000 IOSOPT2 EQU IOSB+15 00735000 IOSUCB EQU IOSB+16 00736000 @NM00032 EQU IOSB+20 00737000 IOSCSW EQU @NM00032+1 00738000 IOSCSWCA EQU IOSCSW 00739000 IOSTATUS EQU IOSCSW+3 00740000 IOSSNS EQU IOSB+42 00741000 IOSIPIB EQU IOSB+44 00742000 IOSERP EQU IOSB+52 00743000 IOSPATH EQU IOSB+86 00744000 IOSCHN EQU IOSPATH 00745000 IOSCKEY EQU IOSB+89 00746000 IOSEEKA EQU IOSB+100 00747000 IOSCCHH EQU IOSEEKA+3 00748000 IOSSKHH EQU IOSCCHH+2 00749000 SRBSECT EQU 0 00750000 SRBFLC EQU SRBSECT+12 00751000 SRBPTR EQU 0 00752000 EWA EQU 0 00753000 EWAHDR EQU EWA 00754000 EWAFLAGS EQU EWA+4 00755000 EWAFLG1 EQU EWAFLAGS 00756000 EWASCCD EQU EWAFLG1 00757000 EWASCC3 EQU EWASCCD 00758000 EWAFLG2 EQU EWAFLAGS+1 00759000 EWASNSCT EQU EWAFLAGS+3 00760000 EWACNTRS EQU EWA+10 00761000 EWASTUP EQU EWA+14 00762000 EWAERPIB EQU EWA+16 00763000 EWARGFG1 EQU EWAERPIB+4 00764000 EWARGFG2 EQU EWAERPIB+5 00765000 EWAXCSW1 EQU EWAERPIB+6 00766000 EWAXCSW2 EQU EWAERPIB+7 00767000 EWACHA EQU EWA+24 00768000 EWADCNT EQU EWA+28 00769000 EWADDISP EQU EWA+29 00770000 EWAIERP EQU EWA+32 00771000 ISTDEVCH EQU 0 00772000 DEVSHCH EQU ISTDEVCH 00773000 DEVCHAR EQU DEVSHCH 00774000 DEVTCODE EQU ISTDEVCH+1 00775000 DEVFLAGS EQU ISTDEVCH+3 00776000 DEVFCCTL EQU DEVFLAGS 00777000 DEVCHAR3 EQU DEVFLAGS 00778000 ISTLOK EQU 0 00779000 LOKCHN EQU ISTLOK+1 00780000 LOKCHNG EQU LOKCHN 00781000 @NM00050 EQU LOKCHNG+2 00782000 ISTPAB EQU 0 00783000 PABWQCHN EQU ISTPAB 00784000 PABWEQA EQU PABWQCHN 00785000 PABCHAIN EQU PABWQCHN+4 00786000 PABRPHFG EQU ISTPAB+12 00787000 PABFLAGS EQU PABRPHFG 00788000 PABERLCK EQU PABFLAGS 00789000 PABERRLK EQU PABERLCK 00790000 ISTRPH EQU 0 00791000 RPHFLAGS EQU ISTRPH+2 00792000 RPHAPTYP EQU RPHFLAGS 00793000 RPHFSTLC EQU RPHFLAGS 00794000 RPHFLGB EQU ISTRPH+3 00795000 RPHRPHA EQU ISTRPH+4 00796000 RPHTSKID EQU ISTRPH+8 00797000 RPHRESMA EQU ISTRPH+16 00798000 RPHWPFLG EQU RPHRESMA 00799000 RPHWEA EQU ISTRPH+24 00800000 RPHCSPA EQU RPHWEA 00801000 RPHSRPRM EQU ISTRPH+28 00802000 RPHPABQA EQU ISTRPH+36 00803000 RPHWORK EQU ISTRPH+40 00804000 RPHSAVE1 EQU RPHWORK 00805000 RPHSBITS EQU RPHSAVE1+1 00806000 ISTNCB EQU 0 00807000 NCBRDTE EQU ISTNCB+4 00808000 NCBFLAGS EQU ISTNCB+24 00809000 NCBFRAS EQU NCBFLAGS+1 00810000 NCBFTRIO EQU NCBFRAS 00811000 NCBFLAG1 EQU NCBFLAGS+2 00812000 ISTICNCB EQU 0 00813000 @NM00057 EQU ISTICNCB+53 00814000 ICNLCLUS EQU @NM00057 00815000 ICNCKFLD EQU ISTICNCB+96 00816000 ICNFLAG EQU ISTICNCB+100 00817000 ICNZF006 EQU ICNFLAG 00818000 ICNFFLAG EQU ISTICNCB+101 00819000 ICNZSWS EQU ISTICNCB+102 00820000 ICNRPH EQU ISTICNCB+120 00821000 ICNFLAG2 EQU ISTICNCB+236 00822000 ICNZF008 EQU ICNFLAG2 00823000 ICNCLOSE EQU ICNFLAG2+1 00824000 ICNLSTIT EQU ISTICNCB+264 00825000 ICNZV006 EQU ISTICNCB+276 00826000 ICNZD001 EQU ISTICNCB+288 00827000 ICNWSCCW EQU ICNZD001 00828000 ICNZD002 EQU ISTICNCB+296 00829000 ICNZD003 EQU ISTICNCB+320 00830000 ICNRSCCW EQU ICNZD003 00831000 ICNZD004 EQU ISTICNCB+328 00832000 ICNZS1VR EQU ISTICNCB+348 00833000 ICNSRV02 EQU ICNZS1VR 00834000 ICNDIEWA EQU ICNSRV02 00835000 ICNZH001 EQU ISTICNCB+472 00836000 ICNZX001 EQU ISTICNCB+474 00837000 ICNDCDEB EQU ISTICNCB+480 00838000 ICNDIDEB EQU ICNDCDEB+12 00839000 ICNZFLAG EQU ISTICNCB+508 00840000 ICNZF022 EQU ICNZFLAG 00841000 ICNZF023 EQU ICNZFLAG 00842000 ICNZF024 EQU ICNZFLAG 00843000 ICNZF026 EQU ICNZFLAG 00844000 ICNZH002 EQU ISTICNCB+509 00845000 ICNZS002 EQU ICNZH002 00846000 ICNZS003 EQU ICNZH002 00847000 ICNZS004 EQU ICNZH002 00848000 ICNZS006 EQU ICNZH002 00849000 ICNZS007 EQU ICNZH002 00850000 ICNZS008 EQU ICNZH002 00851000 ICNZS009 EQU ICNZH002+1 00852000 ICNZS00A EQU ICNZH002+1 00853000 ICNZC001 EQU ISTICNCB+512 00854000 ICNIOSB EQU ISTICNCB+520 00855000 ICNZX010 EQU ISTICNCB+672 00856000 ICNZX011 EQU ISTICNCB+674 00857000 ICNZX012 EQU ISTICNCB+675 00858000 ICNZCONS EQU ISTICNCB+680 00859000 ISTDYPAB EQU 0 00860000 ISTATCVT EQU 0 00861000 ATCCOM EQU ISTATCVT 00862000 ATCSTAT EQU ATCCOM 00863000 ATCSTAT1 EQU ATCSTAT 00864000 ATCSTFLG EQU ATCSTAT+1 00865000 ATCPOFLG EQU ATCSTAT+2 00866000 ATCSTAT4 EQU ATCSTAT+3 00867000 ATCIOTRC EQU ATCCOM+140 00868000 ATCTHTRC EQU ATCIOTRC 00869000 ATCCSMR EQU ISTATCVT+296 00870000 ATCSHRFG EQU ISTATCVT+316 00871000 ATCHPGM EQU ISTATCVT+384 00872000 ATCVLCNT EQU ISTATCVT+772 00873000 ATCSOPD EQU ISTATCVT+792 00874000 ATCSIPD EQU ISTATCVT+800 00875000 ATCSECST EQU ISTATCVT+812 00876000 ATCAOSM EQU ISTATCVT+912 00877000 ATCGSRBQ EQU ATCAOSM+4 00878000 ATCGSRBG EQU ATCGSRBQ 00879000 ATCICAPP EQU ATCAOSM+100 00880000 ATCLDAPP EQU ATCAOSM+120 00881000 ATCDAPVT EQU ATCAOSM+140 00882000 ATCVTFLG EQU ATCAOSM+392 00883000 ATCZFLAG EQU ATCAOSM+588 00884000 ISTBDU EQU 0 00885000 BDUMODIF EQU ISTBDU+1 00886000 BDUMOD1 EQU BDUMODIF 00887000 BDUDAF EQU ISTBDU+2 00888000 BDUFUNC EQU BDUDAF 00889000 BDUCHECK EQU BDUFUNC 00890000 BDUFLAGS EQU BDUDAF+1 00891000 BDUPTR EQU 0 00892000 ISTFDB EQU 0 00893000 ISTLH EQU 0 00894000 ISTTH EQU 0 00895000 THFLAG1 EQU ISTTH 00896000 THFLGA EQU THFLAG1 00897000 THMPF EQU THFLGA 00898000 THFLGB EQU THFLAG1+1 00899000 ISTTH2 EQU 0 00900000 TH2FLAG1 EQU ISTTH2 00901000 TH2MPF EQU TH2FLAG1 00902000 ISTBTU EQU 0 00903000 BTUBTH EQU ISTBTU 00904000 BTUFID EQU BTUBTH 00905000 BTUREQ EQU BTUBTH+6 00906000 BTURQFLG EQU BTUREQ 00907000 BTURH EQU BTUBTH+10 00908000 BTUBDU EQU ISTBTU+14 00909000 BTUSYSTR EQU ISTBTU+18 00910000 BTUPTR EQU 0 00911000 ISTFSB EQU 0 00912000 FSBFSB EQU ISTFSB 00913000 FSBMNRCD EQU FSBFSB+2 00914000 FSBSFLGS EQU FSBFSB+3 00915000 FSBFSBA EQU FSBFSB+4 00916000 FSBBTH EQU FSBFSB+8 00917000 FSBCID EQU FSBBTH 00918000 FSBRQTAG EQU FSBBTH+4 00919000 FSBSEQID EQU FSBRQTAG 00920000 FSBFLAGS EQU FSBSEQID 00921000 FSBSEQ EQU FSBSEQID+1 00922000 FSBCSWST EQU FSBBTH+6 00923000 FSBTHFLD EQU FSBCSWST 00924000 FSBTH1 EQU FSBTHFLD 00925000 FSBSYSRS EQU FSBTH1 00926000 FSBTH2 EQU FSBTHFLD+1 00927000 FSBEXTRS EQU FSBTH2 00928000 FSBXFSTS EQU FSBEXTRS 00929000 FSBXCODE EQU FSBEXTRS 00930000 FSBNETRS EQU FSBFSB+16 00931000 FSBSRCAT EQU FSBNETRS 00932000 FSBERC EQU FSBNETRS+1 00933000 FSBFBMI EQU FSBERC 00934000 FSBDMGRS EQU FSBFSB+18 00935000 FSBSS1 EQU FSBDMGRS 00936000 FSBSS2 EQU FSBDMGRS+1 00937000 FSBLCPB EQU FSBFSB+20 00938000 FSBMSGID EQU FSBLCPB 00939000 FSBLCCWA EQU FSBFSB+24 00940000 FSBRLSTS EQU FSBLCCWA 00941000 FSBPTR EQU 0 00942000 ISTZIBUF EQU 0 00943000 ZIBCHAIN EQU ISTZIBUF 00944000 ZIBFSM EQU ISTZIBUF+4 00945000 ISTRPRE EQU 0 00946000 RPRNAME EQU ISTRPRE 00947000 RPRCOMID EQU ISTRPRE+8 00948000 RPRELEN EQU ISTRPRE+16 00949000 RPRENTRY EQU ISTRPRE+20 00950000 RPRFLAGA EQU ISTRPRE+21 00951000 RPRFLAGB EQU ISTRPRE+22 00952000 RPRCAUSE EQU ISTRPRE+23 00953000 RPRFLAGD EQU ISTRPRE+61 00954000 RPRFLAGC EQU ISTRPRE+62 00955000 ISTRCPRE EQU 0 00956000 RCPPMODE EQU ISTRCPRE+91 00957000 RCPLGNIN EQU ISTRCPRE+92 00958000 ISTRDT EQU 0 00959000 RDTPRE EQU ISTRDT 00960000 RDTPLEN EQU ISTRDT+72 00961000 RDTPRIOR EQU RDTPLEN 00962000 RDTFLAGB EQU ISTRDT+91 00963000 RDTVYRPH EQU ISTRDT+108 00964000 RDTSTCNT EQU ISTRDT+112 00965000 ISTRAP EQU 0 00966000 RAPFLG EQU ISTRAP+108 00967000 RAPFLGB EQU ISTRAP+109 00968000 RAPFLGC EQU ISTRAP+110 00969000 ISTRLC EQU 0 00970000 RLCADR EQU ISTRLC+72 00971000 RLCFLAG EQU RLCADR 00972000 ISTRRN EQU 0 00973000 RRNADR EQU ISTRRN+136 00974000 RRNFLAG EQU RRNADR 00975000 RRNUCBAD EQU RRNADR+1 00976000 RRNRDF EQU ISTRRN+172 00977000 RRNRDFA EQU RRNRDF 00978000 RRNRDFB EQU RRNRDF+1 00979000 RRNCMF EQU ISTRRN+176 00980000 RRNCMFA EQU RRNCMF 00981000 RRNCMFB EQU RRNCMF+1 00982000 RRNCMFC EQU RRNCMF+2 00983000 RRNCMFD EQU RRNCMF+3 00984000 RRNNMDPD EQU ISTRRN+192 00985000 RRNHPRE EQU ISTRRN+216 00986000 ISTRGP EQU 0 00987000 RGPFLG EQU ISTRGP+72 00988000 ISTRLN EQU 0 00989000 RLNADR EQU ISTRLN+72 00990000 RLNFLAG EQU RLNADR 00991000 RLNUCBAD EQU RLNADR+1 00992000 RLNSTAT1 EQU ISTRLN+86 00993000 RLNSTAT2 EQU ISTRLN+87 00994000 RLNRDF EQU ISTRLN+88 00995000 RLNRDFA EQU RLNRDF 00996000 RLNRACNT EQU RLNRDFA 00997000 RLNRDFB EQU RLNRDF+1 00998000 RLNCRFLG EQU ISTRLN+102 00999000 RLNLSCMD EQU RLNCRFLG 01000000 ISTRPT EQU 0 01001000 RPTLNCID EQU ISTRPT+116 01002000 RPTDITT EQU ISTRPT+128 01003000 RPTFLAG1 EQU ISTRPT+140 01004000 ISTRCL EQU 0 01005000 RCLADR EQU ISTRCL+72 01006000 RCLFLAG EQU RCLADR 01007000 ISTRTR EQU 0 01008000 RTRADR EQU ISTRTR+124 01009000 RTRFLAG EQU RTRADR 01010000 RTRRDFA EQU ISTRTR+136 01011000 RTRRAALL EQU RTRRDFA 01012000 RTRRDFB EQU ISTRTR+137 01013000 RTRRDFC EQU ISTRTR+138 01014000 RTRRDFD EQU ISTRTR+139 01015000 RTRRDFE EQU ISTRTR+140 01016000 RTRRDFF EQU ISTRTR+141 01017000 RTRCRFLG EQU ISTRTR+143 01018000 RTRLSCMD EQU RTRCRFLG 01019000 RTRBSCID EQU ISTRTR+188 01020000 ISTRIN EQU 0 01021000 RINDFD EQU ISTRIN+124 01022000 RINREMPO EQU RINDFD 01023000 RINNODEF EQU RINDFD 01024000 RINLDISC EQU RINDFD 01025000 RINNODID EQU ISTRIN+125 01026000 RINRLDAF EQU ISTRIN+126 01027000 RINREMOT EQU ISTRIN+128 01028000 RINVPAB EQU ISTRIN+132 01029000 RINRPHCN EQU ISTRIN+136 01030000 RINNCSPL EQU ISTRIN+140 01031000 RINCNCNT EQU ISTRIN+144 01032000 ISTRDS EQU 0 01033000 ISTDOT EQU 0 01034000 ISTRCC EQU 0 01035000 RCCFLAG EQU ISTRCC+73 01036000 RCCFLAGB EQU ISTRCC+74 01037000 RCCSTAID EQU ISTRCC+78 01038000 RCCID48 EQU RCCSTAID+2 01039000 RCCCRFLG EQU ISTRCC+108 01040000 ISTRLU EQU 0 01041000 RLUFLAG EQU ISTRLU+125 01042000 RLUCRFLG EQU ISTRLU+126 01043000 RLUPACE EQU ISTRLU+132 01044000 RLUNCPPC EQU ISTRLU+134 01045000 RLUUSSTB EQU ISTRLU+140 01046000 RLUMODET EQU ISTRLU+152 01047000 ISTRPX EQU 0 01048000 ISTRLX EQU 0 01049000 RLXFLAGA EQU ISTRLX+76 01050000 ISTRSW EQU 0 01051000 ISTRDA EQU 0 01052000 RDAADR EQU ISTRDA+72 01053000 RDAFLAG EQU RDAADR 01054000 RDAUCBAD EQU RDAADR+1 01055000 ISTRLS EQU 0 01056000 ISTDNT EQU 0 01057000 ISTGNT EQU 0 01058000 ISTPAT EQU 0 01059000 PATFLAGA EQU ISTPAT+7 01060000 ISTCCW EQU 0 01061000 CCWVADDR EQU ISTCCW 01062000 CCWCODE EQU CCWVADDR 01063000 CCWFLAGS EQU ISTCCW+4 01064000 CCWSPARE EQU ISTCCW+5 01065000 ISTLCCW EQU 0 01066000 LCCWOP EQU ISTLCCW 01067000 LCCWRWOP EQU LCCWOP 01068000 LCCWCTL EQU LCCWRWOP 01069000 LCCWFLAG EQU ISTLCCW+1 01070000 LCCWLSI EQU LCCWFLAG 01071000 ISTLCPB EQU 0 01072000 LCPREQTG EQU ISTLCPB+2 01073000 LCPFLAGS EQU LCPREQTG 01074000 LCPZF001 EQU LCPFLAGS 01075000 LCPZRT02 EQU LCPZF001 01076000 LCPZF002 EQU LCPFLAGS 01077000 LCPZRT03 EQU LCPZF002 01078000 LCPZF003 EQU LCPFLAGS 01079000 LCPZRT04 EQU LCPZF003 01080000 LCPZF004 EQU LCPFLAGS 01081000 LCPZRT05 EQU LCPZF004 01082000 LCPZRT06 EQU LCPFLAGS 01083000 LCPZRT07 EQU LCPFLAGS 01084000 LCPMNRCD EQU LCPREQTG+1 01085000 LCPZRT08 EQU LCPMNRCD 01086000 LCPZRT09 EQU LCPMNRCD 01087000 LCPCHAIN EQU ISTLCPB+4 01088000 LCPCHAI1 EQU LCPCHAIN 01089000 LCPRUCNT EQU ISTLCPB+8 01090000 LCPFLAG2 EQU ISTLCPB+9 01091000 LCPTLBPI EQU LCPFLAG2 01092000 LCPFID0 EQU LCPFLAG2 01093000 LCPSEQ EQU ISTLCPB+10 01094000 LCPCID EQU ISTLCPB+16 01095000 LCPFDBA EQU ISTLCPB+24 01096000 LCPFLG1 EQU ISTLCPB+37 01097000 LCPFLCCW EQU ISTLCPB+40 01098000 LCPLCCW EQU ISTLCPB+48 01099000 LCPPABA EQU LCPLCCW+4 01100000 LCPRPHA EQU LCPPABA 01101000 ISTZSAVE EQU 0 01102000 ZSAZSVBC EQU ISTZSAVE 01103000 ZSAZSVMS EQU ZSAZSVBC 01104000 ISTZCRR EQU 0 01105000 ZCRCRR EQU ISTZCRR 01106000 ZCRFLGS1 EQU ISTZCRR+12 01107000 ZCRFLGS2 EQU ISTZCRR+13 01108000 ZCRSWFLD EQU ISTZCRR+14 01109000 ZCRENDSH EQU ZCRSWFLD 01110000 ZCRNDLCP EQU ZCRSWFLD 01111000 ZCRRESET EQU ZCRSWFLD 01112000 ZCRFLGS3 EQU ISTZCRR+15 01113000 ZCRGENSW EQU ISTZCRR+16 01114000 ZCRPFLGS EQU ISTZCRR+17 01115000 ZCRIBPR EQU ISTZCRR+18 01116000 ZCRSCPSW EQU ISTZCRR+19 01117000 ZCRPARMS EQU ISTZCRR+24 01118000 ZCRFBPTR EQU ZCRPARMS 01119000 ZCRDFRDA EQU ZCRPARMS+10 01120000 ZCRPCOD1 EQU ZCRPARMS+12 01121000 ZCRPLSBF EQU ZCRPCOD1 01122000 ZCRPCOD2 EQU ZCRPARMS+13 01123000 ZCRSVRTN EQU ISTZCRR+56 01124000 ZCRWKARA EQU ISTZCRR+156 01125000 ZCRCIDSV EQU ISTZCRR+192 01126000 ZCRAUDIT EQU ISTZCRR+440 01127000 ZCRENTER EQU ZCRAUDIT+5 01128000 ZCRLCPB EQU ISTZCRR+480 01129000 ZCRRHRU EQU ZCRLCPB 01130000 ISTAVT EQU 0 01131000 ISTAS49 EQU ISTAVT+4 01132000 IOBPRPTR EQU 0 01133000 IOBSTPTR EQU 0 01134000 UCBBGN EQU 0 01135000 ZIBSRB EQU 0 01136000 PSARSVTE EQU PSARSVT 01137000 CVTPTR EQU FLCCVT 01138000 CVTS01 EQU CVTPGSIA 01139000 CVTLPDIA EQU CVTS01+12 01140000 CVTDIRST EQU CVTLPDIA 01141000 CVTSLIDA EQU CVTS01+24 01142000 CVTCTLFG EQU CVTS01+50 01143000 CVTRV210 EQU CVTS01+424 01144000 CVTRV219 EQU CVTS01+425 01145000 CVTRV228 EQU CVTS01+426 01146000 CVTRV237 EQU CVTS01+427 01147000 CVTMFRTR EQU CVTS01+452 01148000 CVTRV262 EQU CVTS01+468 01149000 CVTRV271 EQU CVTS01+469 01150000 CVTRV280 EQU CVTS01+470 01151000 CVTRV289 EQU CVTS01+471 01152000 CVTGSDA EQU CVTS01+600 01153000 UCBOBS01 EQU UCBDEV 01154000 UCBSTAB EQU UCBOBS01+10 01155000 UCBBSVL EQU UCBSTAB 01156000 UCBPRSRS EQU UCBSTAB 01157000 UCBDMCT EQU UCBOBS01+11 01158000 UCBFL4 EQU UCBOBS01+13 01159000 UCBOBS02 EQU UCBDEV 01160000 UCBTFL1 EQU UCBOBS02+19 01161000 UCBXTN EQU UCBOBS02+20 01162000 UCBVOPT EQU UCBXTN 01163000 UCBOBS03 EQU UCBDEV 01164000 UCBXTADR EQU UCBOBS03 01165000 UCBOBS04 EQU UCBDEV 01166000 UCBBTA EQU UCBOBS04+12 01167000 UCBOBS06 EQU UCBDEV 01168000 UCBAOF EQU UCBOBS06 01169000 UCBAOF1 EQU UCBAOF 01170000 UCBAOF2 EQU UCBAOF+1 01171000 @NM00029 EQU UCBOBS06+3 01172000 UCBIRB EQU UCBOBS06+4 01173000 UCBGRAF EQU UCBIRB 01174000 UCBLDNCA EQU UCBOBS06+8 01175000 UCBRDYQ EQU UCBLDNCA 01176000 UCBIRLN EQU UCBRDYQ 01177000 UCBLDNCB EQU UCBRDYQ+1 01178000 UCBCTLNK EQU UCBOBS06+12 01179000 UCBOBS07 EQU UCBDEV 01180000 UCBOBS08 EQU UCBDEV 01181000 UCBCTCAD EQU UCBOBS08 01182000 UCBCTCF1 EQU UCBOBS08+4 01183000 UCBOBS09 EQU UCBDEV 01184000 IOSATTSC EQU IOSIPIB 01185000 IOSWTOWA EQU IOSIPIB 01186000 IOSPCISC EQU IOSIPIB 01187000 EWADDIOS EQU EWAIERP 01188000 EWATMAP EQU EWAIERP 01189000 EWATOBR EQU EWATMAP+4 01190000 EWATSIO EQU EWATOBR 01191000 EWATTMP EQU EWATOBR+2 01192000 EWATCCL EQU EWATOBR+4 01193000 EWATCCF EQU EWATOBR+5 01194000 EWATREC EQU EWATOBR+6 01195000 EWATOVF EQU EWATREC 01196000 EWATCLO EQU EWATREC 01197000 EWATTRM EQU EWATOBR+8 01198000 EWATSNL EQU EWATOBR+16 01199000 EWATSNF EQU EWATOBR+18 01200000 EWATCSW EQU EWATMAP+25 01201000 EWATCCW EQU EWATMAP+32 01202000 EWATERPW EQU EWATMAP+40 01203000 EWATRECT EQU EWATERPW+17 01204000 EWATLPC EQU EWATERPW+18 01205000 FSBCOMBN EQU FSBNETRS 01206000 FSBRHFLD EQU FSBCOMBN+1 01207000 FSBRH3 EQU FSBRHFLD+2 01208000 FSBLDFLG EQU FSBRH3 01209000 @NM00073 EQU FSBRQTAG 01210000 ZIBDIO EQU ZIBFSM 01211000 ZIBCCW2 EQU ZIBDIO+8 01212000 ZIBCPTCC EQU ZIBCCW2 01213000 ZIBAIO EQU ISTZIBUF 01214000 ZIBAIOCM EQU ZIBAIO 01215000 ZIBFIB EQU ZIBAIO+16 01216000 ZIBFSB EQU ZIBFIB 01217000 ZIBMDREC EQU ZIBFSB+4 01218000 ZIBMDRIN EQU ZIBFSB+28 01219000 ZIBBTU EQU ZIBFIB+32 01220000 @NM00076 EQU ZIBBTU+12 01221000 ZIBFID1 EQU @NM00076+1 01222000 ZIBFITXT EQU ZIBFID1 01223000 ZIBSIB EQU ZIBFIB 01224000 ZIBREC EQU ZIBMDRIN 01225000 ZIBRECPL EQU ZIBREC 01226000 ZIBRECHD EQU ZIBRECPL 01227000 ZIBRECRS EQU ZIBREC+8 01228000 ZIBRECDT EQU ZIBREC+10 01229000 ZIBMDRRC EQU ZIBMDREC 01230000 ZIBRCPL EQU ZIBMDRRC 01231000 ZIBRCDT EQU ZIBMDRRC+24 01232000 @NM00078 EQU ZIBBTU 01233000 LCPZTIE EQU LCPCID 01234000 LCPZSNAM EQU LCPZTIE+8 01235000 AVTPTR EQU CVTATCVT 01236000 FLC EQU PSA 01237000 RTRDNCBA EQU ISTRTR+40 01238000 SRB EQU SRBSECT 01239000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01240000 LCPZTRV4 EQU LCPZSNAM+4 01241000 LCPZTRV1 EQU LCPZSNAM 01242000 LCPZSNA EQU LCPZTIE+4 01243000 LCPZFMCA EQU LCPZTIE 01244000 ZIBTH2 EQU @NM00078+4 01245000 ZIBLH EQU @NM00078 01246000 ZIBRCTXT EQU ZIBMDRRC+36 01247000 ZIBRCRID EQU ZIBRCDT+10 01248000 ZIBRCNAM EQU ZIBRCDT+2 01249000 ZIBRCUA EQU ZIBRCDT 01250000 ZIBRCPUI EQU ZIBRCPL+20 01251000 ZIBRCPUN EQU ZIBRCPL+16 01252000 ZIBRCTIM EQU ZIBRCPL+12 01253000 ZIBRCDAT EQU ZIBRCPL+8 01254000 ZIBRCRS1 EQU ZIBRCPL+6 01255000 ZIBRCSID EQU ZIBRCPL+5 01256000 ZIBRCID EQU ZIBRCPL+4 01257000 ZIBRCSW EQU ZIBRCPL+2 01258000 ZIBRCSYR EQU ZIBRCPL+1 01259000 ZIBRCL EQU ZIBRCPL 01260000 ZIBRECTX EQU ZIBREC+22 01261000 ZIBRECID EQU ZIBRECDT+10 01262000 ZIBRECNA EQU ZIBRECDT+2 01263000 ZIBRECUA EQU ZIBRECDT 01264000 ZIBRECSV EQU ZIBRECRS 01265000 ZIBRECDA EQU ZIBRECPL+4 01266000 ZIBRECSI EQU ZIBRECHD+3 01267000 ZIBRECDV EQU ZIBRECHD+2 01268000 ZIBRECFL EQU ZIBRECHD+1 01269000 ZIBRECTY EQU ZIBRECHD 01270000 ZIBTEXT EQU ZIBSIB+4 01271000 ZIBRSV04 EQU ZIBSIB 01272000 ZIBTEXT2 EQU ZIBFITXT 01273000 ZIBTEXT1 EQU ZIBFIB+52 01274000 @NM00077 EQU @NM00076 01275000 ZIBFDBS EQU ZIBBTU 01276000 @NM00075 EQU ZIBMDREC 01277000 @NM00074 EQU ZIBFSB 01278000 ZIBLNG2 EQU ZIBAIOCM+14 01279000 ZIBRSV03 EQU ZIBAIOCM+13 01280000 ZIBWKBYT EQU ZIBAIOCM+12 01281000 ZIBFDBZ EQU ZIBAIOCM 01282000 ZIBCPNPK EQU ZIBCCW2+6 01283000 ZIBRSV02 EQU ZIBCCW2+5 01284000 ZIBCPTPF EQU ZIBCCW2+4 01285000 ZIBCPTCA EQU ZIBCCW2+1 01286000 ZIBCPNPC EQU ZIBCPTCC 01287000 ZIBCPRDK EQU ZIBDIO+6 01288000 ZIBRSV01 EQU ZIBDIO+5 01289000 ZIBCPRDF EQU ZIBDIO+4 01290000 ZIBCPTXA EQU ZIBDIO+1 01291000 ZIBCPRDC EQU ZIBDIO 01292000 FSBRT0B EQU @NM00073+1 01293000 FSBRT0A EQU @NM00073+1 01294000 FSBRT09 EQU @NM00073+1 01295000 FSBRT08 EQU @NM00073+1 01296000 FSBRT07 EQU @NM00073 01297000 FSBRT06 EQU @NM00073 01298000 FSBRT05 EQU @NM00073 01299000 FSBRT04 EQU @NM00073 01300000 FSBRT03 EQU @NM00073 01301000 FSBRT02 EQU @NM00073 01302000 FSBRT01 EQU @NM00073 01303000 FSBRT00 EQU @NM00073 01304000 FSBLDCUF EQU FSBLDFLG 01305000 FSBLDSIF EQU FSBLDFLG 01306000 FSBLDSOF EQU FSBLDFLG 01307000 FSBLDEBF EQU FSBLDFLG 01308000 FSBLDBBF EQU FSBLDFLG 01309000 FSBLDFME EQU FSBLDFLG 01310000 FSBLDSCF EQU FSBLDFLG 01311000 FSBLDRMF EQU FSBLDFLG 01312000 FSBRH2 EQU FSBRHFLD+1 01313000 FSBRH1 EQU FSBRHFLD 01314000 FSBALIGN EQU FSBCOMBN 01315000 EWATLPCR EQU EWATLPC+1 01316000 EWATLPCA EQU EWATLPC+1 01317000 EWATLPC9 EQU EWATLPC+1 01318000 EWATLPC8 EQU EWATLPC+1 01319000 EWATLPC7 EQU EWATLPC 01320000 EWATLPC6 EQU EWATLPC 01321000 EWATLPC5 EQU EWATLPC 01322000 EWATLPC4 EQU EWATLPC 01323000 EWATLPC3 EQU EWATLPC 01324000 EWATLPC2 EQU EWATLPC 01325000 EWATLPC1 EQU EWATLPC 01326000 EWATLPC0 EQU EWATLPC 01327000 EWATRS08 EQU EWATRECT 01328000 EWATCLOS EQU EWATRECT 01329000 EWATCTOV EQU EWATRECT 01330000 EWATRS07 EQU EWATRECT 01331000 EWATCFOP EQU EWATERPW+16 01332000 EWATWSBA EQU EWATERPW+12 01333000 EWATEWRT EQU EWATERPW+8 01334000 EWATCFCS EQU EWATERPW+4 01335000 EWATLFCM EQU EWATERPW 01336000 EWATRS06 EQU EWATMAP+24 01337000 EWATRS05 EQU EWATOBR+7 01338000 EWATRS04 EQU EWATREC 01339000 EWATRS03 EQU EWATREC 01340000 EWATRS02 EQU EWATOBR+3 01341000 EWATRS01 EQU EWATMAP 01342000 EWAEND EQU EWADDIOS+71 01343000 EWASCSW EQU EWADDIOS+64 01344000 EWASNS EQU EWADDIOS 01345000 IOSPCIWA EQU IOSPCISC+44 01346000 IOSPCIRS EQU IOSPCISC+8 01347000 @NM00037 EQU IOSPCISC+4 01348000 @NM00036 EQU IOSPCISC 01349000 IOSWRNDR EQU IOSWTOWA+4 01350000 IOSWTOPT EQU IOSWTOWA+3 01351000 IOSWTOCP EQU IOSWTOWA+2 01352000 IOSWTOCH EQU IOSWTOWA 01353000 IOSATTWA EQU IOSATTSC+40 01354000 @NM00035 EQU IOSATTSC+24 01355000 IOSATTSN EQU IOSATTSC 01356000 UCBRV066 EQU UCBOBS09+4 01357000 UCBIOSBA EQU UCBOBS09 01358000 UCBRV042 EQU UCBOBS08+5 01359000 UCBRV082 EQU UCBCTCF1 01360000 UCBRV081 EQU UCBCTCF1 01361000 UCBRV080 EQU UCBCTCF1 01362000 UCBRV079 EQU UCBCTCF1 01363000 UCBRV078 EQU UCBCTCF1 01364000 UCBRV077 EQU UCBCTCF1 01365000 UCBRV076 EQU UCBCTCF1 01366000 UCBCTC80 EQU UCBCTCF1 01367000 UCBCTCAL EQU UCBCTCAD 01368000 UCBICNCB EQU UCBOBS07+4 01369000 UCBRV040 EQU UCBOBS07 01370000 UCBCTLNA EQU UCBCTLNK+1 01371000 UCBRLN EQU UCBCTLNK 01372000 UCBRDYQA EQU UCBLDNCB 01373000 UCBINRLN EQU UCBIRLN 01374000 UCBIRBA EQU UCBIRB+1 01375000 UCBRV039 EQU UCBGRAF 01376000 UCBDWNR EQU UCBGRAF 01377000 UCBRPND EQU UCBGRAF 01378000 UCBUPM EQU UCBGRAF 01379000 UCBBTAM EQU UCBGRAF 01380000 UCBDRNO EQU UCBGRAF 01381000 UCBDRO EQU UCBGRAF 01382000 UCBOIP EQU UCBGRAF 01383000 UCBATRCD EQU @NM00029 01384000 UCBSKPFG EQU @NM00029 01385000 UCBRIPND EQU @NM00029 01386000 UCBRTIAC EQU @NM00029 01387000 UCBRSV79 EQU @NM00029 01388000 UCBRSV78 EQU @NM00029 01389000 UCBRSV77 EQU @NM00029 01390000 UCBOLTEP EQU @NM00029 01391000 UCBATNCT EQU UCBOBS06+2 01392000 UCBRSV76 EQU UCBAOF2 01393000 UCBRSV75 EQU UCBAOF2 01394000 UCBRSV74 EQU UCBAOF2 01395000 UCBRSV73 EQU UCBAOF2 01396000 UCBRSV72 EQU UCBAOF2 01397000 UCBRSV71 EQU UCBAOF2 01398000 UCBRSV70 EQU UCBAOF2 01399000 UCBRSV69 EQU UCBAOF2 01400000 UCBRSV68 EQU UCBAOF1 01401000 UCBRSV67 EQU UCBAOF1 01402000 UCBRSV66 EQU UCBAOF1 01403000 UCBRSV65 EQU UCBAOF1 01404000 UCBRSV64 EQU UCBAOF1 01405000 UCBOFNL EQU UCBAOF1 01406000 UCBOFSP EQU UCBAOF1 01407000 UCBOFMCR EQU UCBAOF1 01408000 UCBBTB EQU UCBBTA+1 01409000 UCBDI EQU UCBBTA 01410000 UCBSNS EQU UCBOBS04+8 01411000 UCBTEB EQU UCBOBS04+4 01412000 UCBGCB EQU UCBOBS04+3 01413000 UCBOPEN EQU UCBOBS04+2 01414000 UCBSTART EQU UCBOBS04 01415000 UCBXTNB EQU UCBXTN+1 01416000 UCBRSV22 EQU UCBVOPT 01417000 UCBRSV21 EQU UCBVOPT 01418000 UCBRSV20 EQU UCBVOPT 01419000 UCBESVE EQU UCBVOPT 01420000 UCBERPC EQU UCBVOPT 01421000 UCBESVC EQU UCBVOPT 01422000 UCBEVA EQU UCBVOPT 01423000 UCBESV EQU UCBVOPT 01424000 UCBRV009 EQU UCBTFL1 01425000 UCBRV008 EQU UCBTFL1 01426000 UCBRV007 EQU UCBTFL1 01427000 UCBRV006 EQU UCBTFL1 01428000 UCBRV005 EQU UCBTFL1 01429000 UCBRV038 EQU UCBTFL1 01430000 UCBNSLTP EQU UCBTFL1 01431000 UCBNLTP EQU UCBTFL1 01432000 UCBRES1B EQU UCBOBS02+18 01433000 UCBFSER EQU UCBOBS02+12 01434000 @NM00028 EQU UCBOBS02+4 01435000 UCBFSEQ EQU UCBOBS02+2 01436000 UCBFSCT EQU UCBOBS02 01437000 UCBNEXP EQU UCBOBS01+20 01438000 UCBBASE EQU UCBOBS01+16 01439000 UCBRES1A EQU UCBOBS01+15 01440000 UCBUSER EQU UCBOBS01+14 01441000 UCBFL47 EQU UCBFL4 01442000 UCBFL46 EQU UCBFL4 01443000 UCBFL45 EQU UCBFL4 01444000 UCBRV065 EQU UCBFL4 01445000 UCBDSS EQU UCBFL4 01446000 UCBRV028 EQU UCBFL4 01447000 UCBWDAV EQU UCBFL4 01448000 UCBDAVV EQU UCBFL4 01449000 UCBSQC EQU UCBOBS01+12 01450000 UCBDATP EQU UCBOBS01+12 01451000 UCBDMC EQU UCBDMCT 01452000 UCBMOUNT EQU UCBDMCT 01453000 UCBBNUL EQU UCBSTAB 01454000 UCBSHAR EQU UCBSTAB 01455000 UCBBSTR EQU UCBSTAB 01456000 UCBBPUB EQU UCBSTAB 01457000 UCBBPRV EQU UCBSTAB 01458000 UCBBALB EQU UCBPRSRS 01459000 UCBPGFL EQU UCBSTAB 01460000 UCBDVSHR EQU UCBBSVL 01461000 UCBVOLI EQU UCBOBS01+4 01462000 UCBVTOC EQU UCBOBS01 01463000 CVTRV628 EQU CVTS01+728 01464000 CVTRV627 EQU CVTS01+724 01465000 CVTRV626 EQU CVTS01+720 01466000 CVTRV625 EQU CVTS01+716 01467000 CVTRV624 EQU CVTS01+712 01468000 CVTRV623 EQU CVTS01+708 01469000 CVTRV622 EQU CVTS01+704 01470000 CVTRV621 EQU CVTS01+700 01471000 CVTRV620 EQU CVTS01+696 01472000 CVTRV619 EQU CVTS01+692 01473000 CVTRV618 EQU CVTS01+688 01474000 CVTRV617 EQU CVTS01+684 01475000 CVTRV616 EQU CVTS01+680 01476000 CVTRV615 EQU CVTS01+676 01477000 CVTRV614 EQU CVTS01+672 01478000 CVTRV613 EQU CVTS01+668 01479000 CVTRV612 EQU CVTS01+664 01480000 CVTRV611 EQU CVTS01+660 01481000 CVTEVERM EQU CVTS01+656 01482000 CVTIRM EQU CVTS01+652 01483000 CVTCGK EQU CVTS01+648 01484000 CVTRAC EQU CVTS01+644 01485000 CVTRV606 EQU CVTS01+640 01486000 CVTRV605 EQU CVTS01+636 01487000 CVTRV604 EQU CVTS01+632 01488000 CVTEFF02 EQU CVTS01+628 01489000 CVTCBBR EQU CVTS01+624 01490000 CVTSSCR EQU CVTS01+620 01491000 CVTEVENT EQU CVTS01+616 01492000 CVTCRCA EQU CVTS01+612 01493000 CVTTPIO EQU CVTS01+608 01494000 CVTADV EQU CVTS01+604 01495000 CVTGSDAB EQU CVTGSDA 01496000 CVTQV3 EQU CVTS01+596 01497000 CVTQV2 EQU CVTS01+592 01498000 CVTQV1 EQU CVTS01+588 01499000 CVTRPT EQU CVTS01+584 01500000 CVTSSRB EQU CVTS01+580 01501000 CVTCSDRL EQU CVTS01+576 01502000 CVTEXP1 EQU CVTS01+572 01503000 CVTRMPMT EQU CVTS01+568 01504000 CVTRMPTT EQU CVTS01+564 01505000 CVTVPSA EQU CVTS01+560 01506000 CVTVSTOP EQU CVTS01+556 01507000 CVTGTFR8 EQU CVTS01+552 01508000 CVTQUIT EQU CVTS01+548 01509000 CVTVACR EQU CVTS01+544 01510000 CVTWTCB EQU CVTS01+540 01511000 CVTSTPRS EQU CVTS01+536 01512000 CVT0PT02 EQU CVTS01+532 01513000 CVTDARCM EQU CVTS01+528 01514000 CVTIRECM EQU CVTS01+524 01515000 CVTJRECM EQU CVTS01+520 01516000 CVTVEMS0 EQU CVTS01+516 01517000 CVTSPFRR EQU CVTS01+512 01518000 CVTRLSTG EQU CVTS01+508 01519000 CVT0TC0A EQU CVTS01+504 01520000 CVTGMBR EQU CVTS01+500 01521000 CVTLFRM EQU CVTS01+496 01522000 CVTRMBR EQU CVTS01+492 01523000 CVTVIOP EQU CVTS01+488 01524000 CVTRV307 EQU CVTS01+486 01525000 CVTRV306 EQU CVTS01+484 01526000 CVTRV305 EQU CVTS01+482 01527000 CVTRV304 EQU CVTS01+480 01528000 CVTRV303 EQU CVTS01+478 01529000 CVTRV302 EQU CVTS01+476 01530000 CVTTRCA EQU CVTS01+472 01531000 CVTRV297 EQU CVTRV289 01532000 CVTRV296 EQU CVTRV289 01533000 CVTRV295 EQU CVTRV289 01534000 CVTRV294 EQU CVTRV289 01535000 CVTRV293 EQU CVTRV289 01536000 CVTRV292 EQU CVTRV289 01537000 CVTRV291 EQU CVTRV289 01538000 CVTRV290 EQU CVTRV289 01539000 CVTRV288 EQU CVTRV280 01540000 CVTRV287 EQU CVTRV280 01541000 CVTRV286 EQU CVTRV280 01542000 CVTRV285 EQU CVTRV280 01543000 CVTRV284 EQU CVTRV280 01544000 CVTRV283 EQU CVTRV280 01545000 CVTRV282 EQU CVTRV280 01546000 CVTRV281 EQU CVTRV280 01547000 CVTRV279 EQU CVTRV271 01548000 CVTRV278 EQU CVTRV271 01549000 CVTRV277 EQU CVTRV271 01550000 CVTRV276 EQU CVTRV271 01551000 CVTRV275 EQU CVTRV271 01552000 CVTRV274 EQU CVTRV271 01553000 CVTRV273 EQU CVTRV271 01554000 CVTRV272 EQU CVTRV271 01555000 CVTRV270 EQU CVTRV262 01556000 CVTRV269 EQU CVTRV262 01557000 CVTRV268 EQU CVTRV262 01558000 CVTRV267 EQU CVTRV262 01559000 CVTRV266 EQU CVTRV262 01560000 CVTRV265 EQU CVTRV262 01561000 CVTRV264 EQU CVTRV262 01562000 CVTRV263 EQU CVTRV262 01563000 CVTVFP EQU CVTS01+464 01564000 CVTVSI EQU CVTS01+460 01565000 CVTVPSIB EQU CVTS01+456 01566000 CVTMFACT EQU CVTMFRTR 01567000 CVTMFCTL EQU CVTS01+448 01568000 CVTPVBP EQU CVTS01+444 01569000 CVTPWI EQU CVTS01+440 01570000 CVTRV254 EQU CVTS01+438 01571000 CVTRV253 EQU CVTS01+436 01572000 CVTRV252 EQU CVTS01+434 01573000 CVTRV251 EQU CVTS01+433 01574000 CVTRV250 EQU CVTS01+432 01575000 CVTRV249 EQU CVTS01+431 01576000 CVTRV248 EQU CVTS01+430 01577000 CVTRV247 EQU CVTS01+429 01578000 CVTRV246 EQU CVTS01+428 01579000 CVTRV245 EQU CVTRV237 01580000 CVTRV244 EQU CVTRV237 01581000 CVTRV243 EQU CVTRV237 01582000 CVTRV242 EQU CVTRV237 01583000 CVTRV241 EQU CVTRV237 01584000 CVTRV240 EQU CVTRV237 01585000 CVTRV239 EQU CVTRV237 01586000 CVTRV238 EQU CVTRV237 01587000 CVTRV236 EQU CVTRV228 01588000 CVTRV235 EQU CVTRV228 01589000 CVTRV234 EQU CVTRV228 01590000 CVTRV233 EQU CVTRV228 01591000 CVTRV232 EQU CVTRV228 01592000 CVTRV231 EQU CVTRV228 01593000 CVTRV230 EQU CVTRV228 01594000 CVTRV229 EQU CVTRV228 01595000 CVTRV227 EQU CVTRV219 01596000 CVTRV226 EQU CVTRV219 01597000 CVTRV225 EQU CVTRV219 01598000 CVTRV224 EQU CVTRV219 01599000 CVTRV223 EQU CVTRV219 01600000 CVTRV222 EQU CVTRV219 01601000 CVTRV221 EQU CVTRV219 01602000 CVTRV220 EQU CVTRV219 01603000 CVTRV218 EQU CVTRV210 01604000 CVTRV217 EQU CVTRV210 01605000 CVTRV216 EQU CVTRV210 01606000 CVTRV215 EQU CVTRV210 01607000 CVTRV214 EQU CVTRV210 01608000 CVTRV213 EQU CVTRV210 01609000 CVTRV212 EQU CVTRV210 01610000 CVTRV211 EQU CVTRV210 01611000 CVTLCCAT EQU CVTS01+420 01612000 CVTPCCAT EQU CVTS01+416 01613000 CVTIPCRP EQU CVTS01+412 01614000 CVTIPCRI EQU CVTS01+408 01615000 CVTIPCDS EQU CVTS01+404 01616000 CVTAIDVT EQU CVTS01+400 01617000 CVTSSAP EQU CVTS01+396 01618000 CVTEHCIR EQU CVTS01+392 01619000 CVTEHDEF EQU CVTS01+388 01620000 CVTDAIR EQU CVTS01+384 01621000 CVTPERFM EQU CVTS01+380 01622000 CVT044R2 EQU CVTS01+376 01623000 CVTFETCH EQU CVTS01+372 01624000 CVTRSTWD EQU CVTS01+368 01625000 CVTSPOST EQU CVTS01+364 01626000 CVTIOBP EQU CVTS01+360 01627000 CVTASMVT EQU CVTS01+356 01628000 CVTRECRQ EQU CVTS01+352 01629000 CVTWSAC EQU CVTS01+348 01630000 CVTRV149 EQU CVTS01+344 01631000 CVTWSAL EQU CVTS01+340 01632000 CVTSPSA EQU CVTS01+336 01633000 CVTGLMN EQU CVTS01+332 01634000 CVTVEAC0 EQU CVTS01+328 01635000 CVT062R1 EQU CVTS01+324 01636000 CVTRPOST EQU CVTS01+320 01637000 CVTDQIQE EQU CVTS01+316 01638000 CVTCSD EQU CVTS01+312 01639000 CVTLKRMA EQU CVTS01+308 01640000 CVTRSPIE EQU CVTS01+304 01641000 CVTRENQ EQU CVTS01+300 01642000 CVTLQCB EQU CVTS01+296 01643000 CVTFQCB EQU CVTS01+292 01644000 CVTQCS01 EQU CVTS01+288 01645000 CVTAPFT EQU CVTS01+284 01646000 CVTPARRL EQU CVTS01+280 01647000 CVTVWAIT EQU CVTS01+276 01648000 CVTGSPL EQU CVTS01+272 01649000 CVTLSMQ EQU CVTS01+268 01650000 CVTGSMQ EQU CVTS01+264 01651000 CVTEXPRO EQU CVTS01+260 01652000 CVTOPCTP EQU CVTS01+256 01653000 CVTSIC EQU CVTS01+252 01654000 CVTTPIOS EQU CVTS01+248 01655000 CVTRTMS EQU CVTS01+244 01656000 CVTSDBF EQU CVTS01+240 01657000 CVTSCBP EQU CVTS01+236 01658000 CVTSDMP EQU CVTS01+232 01659000 CVTSV60 EQU CVTS01+228 01660000 CVTRTMCT EQU CVTS01+224 01661000 CVTASCBL EQU CVTS01+220 01662000 CVTASCBH EQU CVTS01+216 01663000 CVTGDA EQU CVTS01+212 01664000 CVTASVT EQU CVTS01+208 01665000 CVTVVMDI EQU CVTS01+204 01666000 CVTAQTOP EQU CVTS01+200 01667000 CVTIOSCS EQU CVTS01+196 01668000 CVTSDRM EQU CVTS01+192 01669000 CVTOPTE EQU CVTS01+188 01670000 CVTSTXU EQU CVTS01+184 01671000 CVTQUIS EQU CVTS01+180 01672000 CVTPARS EQU CVTS01+176 01673000 CVTS1EE EQU CVTS01+172 01674000 CVTFRAS EQU CVTS01+168 01675000 CVTQSAS EQU CVTS01+164 01676000 CVTCRAS EQU CVTS01+160 01677000 CVTCRMN EQU CVTS01+156 01678000 CVTDELCP EQU CVTS01+152 01679000 CVTFRECL EQU CVTS01+148 01680000 CVTGETCL EQU CVTS01+144 01681000 CVTBLDCP EQU CVTS01+140 01682000 CVTAUTHL EQU CVTS01+136 01683000 CVTSCAN EQU CVTS01+132 01684000 CVTRV144 EQU CVTS01+130 01685000 CVTMAXMP EQU CVTS01+128 01686000 CVTSTCK EQU CVTS01+124 01687000 CVTRV139 EQU CVTS01+123 01688000 CVTDSSAC EQU CVTS01+122 01689000 CVTRV513 EQU CVTS01+121 01690000 CVTIOSPL EQU CVTS01+120 01691000 CVTPTGT EQU CVTS01+116 01692000 CVTCSPIE EQU CVTS01+112 01693000 CVTSMFEX EQU CVTS01+108 01694000 CVTOLT0A EQU CVTS01+104 01695000 CVTSRBRT EQU CVTS01+100 01696000 CVTPUTL EQU CVTS01+96 01697000 CVTRV519 EQU CVTS01+92 01698000 CVTRV327 EQU CVTS01+88 01699000 CVTRV326 EQU CVTS01+84 01700000 CVTRV325 EQU CVTS01+80 01701000 CVTRV324 EQU CVTS01+76 01702000 CVT0VL01 EQU CVTS01+72 01703000 CVTSHRVM EQU CVTS01+68 01704000 CVTRV332 EQU CVTS01+64 01705000 CVTTAS EQU CVTS01+60 01706000 CVTRSCN EQU CVTS01+56 01707000 CVTTRAC2 EQU CVTS01+54 01708000 CVTTRACE EQU CVTS01+52 01709000 CVTAPG EQU CVTS01+51 01710000 CVTSDTRC EQU CVTCTLFG 01711000 CVTGTRCE EQU CVTCTLFG 01712000 CVTNOMP EQU CVTCTLFG 01713000 CVTRSV79 EQU CVTCTLFG 01714000 CVTDSTAT EQU CVTCTLFG 01715000 CVTRSV78 EQU CVTCTLFG 01716000 CVTRV333 EQU CVTCTLFG 01717000 CVTRV323 EQU CVTCTLFG 01718000 CVTSPVLK EQU CVTS01+49 01719000 CVTRSV77 EQU CVTS01+48 01720000 CVTRV331 EQU CVTS01+44 01721000 CVTRV330 EQU CVTS01+40 01722000 CVTRV329 EQU CVTS01+36 01723000 CVTRV328 EQU CVTS01+32 01724000 CVTRV322 EQU CVTS01+28 01725000 CVTSLID EQU CVTSLIDA+1 01726000 CVTSYLK EQU CVTSLIDA 01727000 CVTRV321 EQU CVTS01+20 01728000 CVTRV320 EQU CVTS01+16 01729000 CVTLPDIR EQU CVTLPDIA+1 01730000 CVTRSV69 EQU CVTDIRST 01731000 CVTRSV68 EQU CVTDIRST 01732000 CVTRSV67 EQU CVTDIRST 01733000 CVTRSV66 EQU CVTDIRST 01734000 CVTRSV65 EQU CVTDIRST 01735000 CVTRSV64 EQU CVTDIRST 01736000 CVTRSV63 EQU CVTDIRST 01737000 CVTDICOM EQU CVTDIRST 01738000 CVTPVTP EQU CVTS01+8 01739000 CVTLPDSR EQU CVTS01+4 01740000 CVTGETL EQU CVTS01 01741000 PSARSAV EQU PSARSVTE+60 01742000 PSARSTK EQU PSARSVTE+56 01743000 PSAESAV3 EQU PSARSVTE+52 01744000 PSAESTK3 EQU PSARSVTE+48 01745000 PSAESAV2 EQU PSARSVTE+44 01746000 PSAESTK2 EQU PSARSVTE+40 01747000 PSAESAV1 EQU PSARSVTE+36 01748000 PSAESTK1 EQU PSARSVTE+32 01749000 PSAPSAV EQU PSARSVTE+28 01750000 PSAPSTK EQU PSARSVTE+24 01751000 PSAMSAV EQU PSARSVTE+20 01752000 PSAMSTK EQU PSARSVTE+16 01753000 PSASSAV EQU PSARSVTE+12 01754000 PSASSTK EQU PSARSVTE+8 01755000 PSANSTK EQU PSARSVTE+4 01756000 PSACSTK EQU PSARSVTE 01757000 ISTPDAVP EQU ISTAVT+40 01758000 ISTAVR01 EQU ISTAVT+38 01759000 ISTVTTP EQU ISTAVT+36 01760000 ISTAGTWT EQU ISTAVT+34 01761000 ISTATRT EQU ISTAVT+32 01762000 ISTARID EQU ISTAVT+30 01763000 ISTX1 EQU ISTAVT+29 01764000 ISTPHNM EQU ISTAVT+24 01765000 ISTAPSEX EQU ISTAVT+20 01766000 ISTVTTIK EQU ISTAVT+18 01767000 AVTASID EQU ISTAVT+16 01768000 ISTAPSTA EQU ISTAVT+12 01769000 ISTAS53 EQU ISTAVT+8 01770000 ISTAHIP EQU ISTAS49 01771000 ISTACVT EQU ISTAVT 01772000 ZCRRU EQU ZCRRHRU+3 01773000 ZCRRH EQU ZCRRHRU 01774000 ZCRWORDA EQU ISTZCRR+477 01775000 ZCRCMNRC EQU ISTZCRR+476 01776000 ZCRRSV97 EQU ZCRENTER+18 01777000 ZCREIC2B EQU ZCRENTER+18 01778000 ZCREAC2B EQU ZCRENTER+18 01779000 ZCRELCAB EQU ZCRENTER+18 01780000 ZCREDCMF EQU ZCRENTER+18 01781000 ZCREBCIF EQU ZCRENTER+18 01782000 ZCREICSG EQU ZCRENTER+18 01783000 ZCREDCK0 EQU ZCRENTER+18 01784000 ZCRECFY0 EQU ZCRENTER+17 01785000 ZCREKCCB EQU ZCRENTER+17 01786000 ZCREDCNB EQU ZCRENTER+17 01787000 ZCREICOE EQU ZCRENTER+17 01788000 ZCREBCNB EQU ZCRENTER+17 01789000 ZCREBC0L EQU ZCRENTER+17 01790000 ZCREBCAL EQU ZCRENTER+17 01791000 ZCREDCQR EQU ZCRENTER+17 01792000 ZCREDCPR EQU ZCRENTER+16 01793000 ZCREBCSB EQU ZCRENTER+16 01794000 ZCREAC1R EQU ZCRENTER+16 01795000 ZCRECCCI EQU ZCRENTER+16 01796000 ZCRECCAI EQU ZCRENTER+16 01797000 ZCRECCBI EQU ZCRENTER+16 01798000 ZCREBCAR EQU ZCRENTER+16 01799000 ZCREBCDR EQU ZCRENTER+16 01800000 ZCREBCBR EQU ZCRENTER+15 01801000 ZCREDCXR EQU ZCRENTER+15 01802000 ZCREDCWB EQU ZCRENTER+15 01803000 ZCREDCWR EQU ZCRENTER+15 01804000 ZCREKCCN EQU ZCRENTER+15 01805000 ZCREKCBN EQU ZCRENTER+15 01806000 ZCREKCBB EQU ZCRENTER+15 01807000 ZCREJC0B EQU ZCRENTER+15 01808000 ZCREJCDB EQU ZCRENTER+14 01809000 ZCREJCCB EQU ZCRENTER+14 01810000 ZCREJCBB EQU ZCRENTER+14 01811000 ZCREJCAB EQU ZCRENTER+14 01812000 ZCREIC1B EQU ZCRENTER+14 01813000 ZCREIC0B EQU ZCRENTER+14 01814000 ZCREICX0 EQU ZCRENTER+14 01815000 ZCREICWB EQU ZCRENTER+14 01816000 ZCREICVB EQU ZCRENTER+13 01817000 ZCREICUB EQU ZCRENTER+13 01818000 ZCREICTB EQU ZCRENTER+13 01819000 ZCREICSC EQU ZCRENTER+13 01820000 ZCREICSB EQU ZCRENTER+13 01821000 ZCREICRB EQU ZCRENTER+13 01822000 ZCREICQB EQU ZCRENTER+13 01823000 ZCREICQA EQU ZCRENTER+13 01824000 ZCREICOB EQU ZCRENTER+12 01825000 ZCREICOA EQU ZCRENTER+12 01826000 ZCREICNB EQU ZCRENTER+12 01827000 ZCREICNA EQU ZCRENTER+12 01828000 ZCREICMB EQU ZCRENTER+12 01829000 ZCREICLB EQU ZCRENTER+12 01830000 ZCREICKG EQU ZCRENTER+12 01831000 ZCREICKE EQU ZCRENTER+12 01832000 ZCREICKB EQU ZCRENTER+11 01833000 ZCREICJB EQU ZCRENTER+11 01834000 ZCREICID EQU ZCRENTER+11 01835000 ZCREICIB EQU ZCRENTER+11 01836000 ZCREICHB EQU ZCRENTER+11 01837000 ZCREICGB EQU ZCRENTER+11 01838000 ZCREICEB EQU ZCRENTER+11 01839000 ZCREICDB EQU ZCRENTER+11 01840000 ZCREICCI EQU ZCRENTER+10 01841000 ZCREICCB EQU ZCRENTER+10 01842000 ZCREICBI EQU ZCRENTER+10 01843000 ZCREICBB EQU ZCRENTER+10 01844000 ZCREICAB EQU ZCRENTER+10 01845000 ZCREICAA EQU ZCRENTER+10 01846000 ZCREHCAN EQU ZCRENTER+10 01847000 ZCREGC0B EQU ZCRENTER+10 01848000 ZCREGC0A EQU ZCRENTER+9 01849000 ZCREGCLA EQU ZCRENTER+9 01850000 ZCREGCEB EQU ZCRENTER+9 01851000 ZCREGCDB EQU ZCRENTER+9 01852000 @NM00090 EQU ZCRENTER+9 01853000 ZCREGCBB EQU ZCRENTER+9 01854000 ZCREGCAB EQU ZCRENTER+9 01855000 ZCREFCEB EQU ZCRENTER+9 01856000 ZCREFCEA EQU ZCRENTER+8 01857000 ZCREECTA EQU ZCRENTER+8 01858000 ZCREECEA EQU ZCRENTER+8 01859000 ZCREECDA EQU ZCRENTER+8 01860000 ZCREECCB EQU ZCRENTER+8 01861000 ZCREECCA EQU ZCRENTER+8 01862000 ZCREECBB EQU ZCRENTER+8 01863000 ZCREECBA EQU ZCRENTER+8 01864000 ZCREDCMB EQU ZCRENTER+7 01865000 ZCREDCL0 EQU ZCRENTER+7 01866000 ZCREDCKB EQU ZCRENTER+7 01867000 ZCREDCKA EQU ZCRENTER+7 01868000 ZCREDCJ0 EQU ZCRENTER+7 01869000 ZCREDCI0 EQU ZCRENTER+7 01870000 ZCREDCH0 EQU ZCRENTER+7 01871000 ZCREDCF0 EQU ZCRENTER+7 01872000 ZCREDCE0 EQU ZCRENTER+6 01873000 ZCREDCD0 EQU ZCRENTER+6 01874000 ZCREDCC0 EQU ZCRENTER+6 01875000 ZCREDCB0 EQU ZCRENTER+6 01876000 ZCREDCA0 EQU ZCRENTER+6 01877000 ZCRECC2B EQU ZCRENTER+6 01878000 ZCRECC1B EQU ZCRENTER+6 01879000 ZCRECC1A EQU ZCRENTER+6 01880000 ZCRECC0B EQU ZCRENTER+5 01881000 ZCRECC0A EQU ZCRENTER+5 01882000 ZCREBC0B EQU ZCRENTER+5 01883000 ZCREBC0A EQU ZCRENTER+5 01884000 ZCREBCZ0 EQU ZCRENTER+5 01885000 ZCREBCY0 EQU ZCRENTER+5 01886000 ZCREBCX0 EQU ZCRENTER+5 01887000 ZCREBCXA EQU ZCRENTER+5 01888000 ZCREBCSC EQU ZCRENTER+4 01889000 ZCREBCRB EQU ZCRENTER+4 01890000 ZCREBCRA EQU ZCRENTER+4 01891000 ZCREBCQB EQU ZCRENTER+4 01892000 ZCREBCPB EQU ZCRENTER+4 01893000 ZCREBCOB EQU ZCRENTER+4 01894000 ZCREBCNE EQU ZCRENTER+4 01895000 ZCREBCND EQU ZCRENTER+4 01896000 ZCREBCMB EQU ZCRENTER+3 01897000 ZCREBCLB EQU ZCRENTER+3 01898000 ZCREBCLA EQU ZCRENTER+3 01899000 ZCREBCKB EQU ZCRENTER+3 01900000 ZCREBCKA EQU ZCRENTER+3 01901000 ZCREBCJB EQU ZCRENTER+3 01902000 ZCREBCJA EQU ZCRENTER+3 01903000 ZCREBCID EQU ZCRENTER+3 01904000 ZCREBCIB EQU ZCRENTER+2 01905000 ZCREBCIA EQU ZCRENTER+2 01906000 ZCREBCHB EQU ZCRENTER+2 01907000 ZCREBCHA EQU ZCRENTER+2 01908000 ZCREBCGB EQU ZCRENTER+2 01909000 ZCREBCGA EQU ZCRENTER+2 01910000 ZCREBCFB EQU ZCRENTER+2 01911000 ZCREBCFA EQU ZCRENTER+2 01912000 ZCREBCEB EQU ZCRENTER+1 01913000 ZCREBCDI EQU ZCRENTER+1 01914000 ZCREBCCB EQU ZCRENTER+1 01915000 ZCREBCBI EQU ZCRENTER+1 01916000 ZCREBCBB EQU ZCRENTER+1 01917000 ZCREBCBA EQU ZCRENTER+1 01918000 ZCREBCAM EQU ZCRENTER+1 01919000 ZCREBCAI EQU ZCRENTER+1 01920000 ZCREBCAG EQU ZCRENTER 01921000 ZCREBCAE EQU ZCRENTER 01922000 ZCREBCAB EQU ZCRENTER 01923000 ZCREBCAA EQU ZCRENTER 01924000 ZCREAC1B EQU ZCRENTER 01925000 ZCREAC0B EQU ZCRENTER 01926000 ZCREAC0A EQU ZCRENTER 01927000 ZCREAC1A EQU ZCRENTER 01928000 ZCRTNAME EQU ZCRAUDIT+1 01929000 ZCRTID EQU ZCRAUDIT 01930000 ZCRREMIC EQU ISTZCRR+436 01931000 ZCRSAVEZ EQU ISTZCRR+196 01932000 ZCRDAFSV EQU ZCRCIDSV+2 01933000 ZCRSAFSV EQU ZCRCIDSV 01934000 ZCRR13SV EQU ISTZCRR+188 01935000 ZCRR2SV EQU ISTZCRR+184 01936000 ZCROPCDE EQU ISTZCRR+183 01937000 ZCRPRMTC EQU ISTZCRR+182 01938000 ZCRRCDSV EQU ISTZCRR+181 01939000 ZCRAWQSW EQU ISTZCRR+180 01940000 ZCRTOPQ EQU ISTZCRR+180 01941000 ZCRLSTFB EQU ISTZCRR+180 01942000 ZCRXSCHD EQU ISTZCRR+180 01943000 ZCRNXTEL EQU ISTZCRR+180 01944000 ZCRSCANQ EQU ISTZCRR+180 01945000 ZCRMOREL EQU ISTZCRR+180 01946000 ZCRFBPRC EQU ISTZCRR+180 01947000 ZCRFSBSV EQU ISTZCRR+176 01948000 ZCRSVWK5 EQU ZCRWKARA+16 01949000 ZCRSVWK4 EQU ZCRWKARA+12 01950000 ZCRSVWK3 EQU ZCRWKARA+8 01951000 ZCRSVWK2 EQU ZCRWKARA+4 01952000 ZCRSVWK1 EQU ZCRWKARA 01953000 ZCRSVF25 EQU ZCRSVRTN+96 01954000 ZCRSVF24 EQU ZCRSVRTN+92 01955000 ZCRSVF23 EQU ZCRSVRTN+88 01956000 ZCRSVF22 EQU ZCRSVRTN+84 01957000 ZCRSVF21 EQU ZCRSVRTN+80 01958000 ZCRSVF20 EQU ZCRSVRTN+76 01959000 ZCRSVF19 EQU ZCRSVRTN+72 01960000 ZCRSVF18 EQU ZCRSVRTN+68 01961000 ZCRSVF17 EQU ZCRSVRTN+64 01962000 ZCRSVF16 EQU ZCRSVRTN+60 01963000 ZCRSVF15 EQU ZCRSVRTN+56 01964000 ZCRSVF14 EQU ZCRSVRTN+52 01965000 ZCRSVF13 EQU ZCRSVRTN+48 01966000 ZCRSVF12 EQU ZCRSVRTN+44 01967000 ZCRSVF11 EQU ZCRSVRTN+40 01968000 ZCRSVF10 EQU ZCRSVRTN+36 01969000 ZCRSVF9 EQU ZCRSVRTN+32 01970000 ZCRSVF8 EQU ZCRSVRTN+28 01971000 ZCRSVF7 EQU ZCRSVRTN+24 01972000 ZCRSVF6 EQU ZCRSVRTN+20 01973000 ZCRSVF5 EQU ZCRSVRTN+16 01974000 ZCRSVF4 EQU ZCRSVRTN+12 01975000 ZCRSVF3 EQU ZCRSVRTN+8 01976000 ZCRSVF2 EQU ZCRSVRTN+4 01977000 ZCRSVF1 EQU ZCRSVRTN 01978000 ZCRPVZB EQU ISTZCRR+52 01979000 ZCRZLB EQU ISTZCRR+48 01980000 ZCRBFPTR EQU ISTZCRR+44 01981000 ZCRCCWA EQU ISTZCRR+40 01982000 ZCRPSW EQU ZCRPARMS+15 01983000 ZCRPCHAR EQU ZCRPARMS+14 01984000 ZCRPRES2 EQU ZCRPCOD2 01985000 ZCRPMFGF EQU ZCRPCOD2 01986000 ZCRPFHDR EQU ZCRPCOD2 01987000 ZCRPPG2 EQU ZCRPCOD2 01988000 ZCRPRES EQU ZCRPCOD1 01989000 ZCRPCFTX EQU ZCRPCOD1 01990000 ZCRPBUF EQU ZCRPCOD1 01991000 ZCRPLSCB EQU ZCRPCOD1 01992000 ZCRPLSBQ EQU ZCRPLSBF 01993000 ZCRPFSB EQU ZCRPCOD1 01994000 ZCRPLNG EQU ZCRPCOD1 01995000 ZCRPPG EQU ZCRPCOD1 01996000 ZCRDTODA EQU ZCRDFRDA 01997000 ZCRMLNG EQU ZCRPARMS+8 01998000 ZCRTBPTR EQU ZCRPARMS+4 01999000 ZCRCBPTR EQU ZCRFBPTR 02000000 ZCRCRLCP EQU ISTZCRR+20 02001000 @NM00089 EQU ZCRSCPSW 02002000 ZCRSKIPT EQU ZCRSCPSW 02003000 ZCRFSBWE EQU ZCRSCPSW 02004000 ZCRPRCMP EQU ZCRSCPSW 02005000 ZCRLREQ EQU ZCRSCPSW 02006000 ZCRRJLCP EQU ZCRSCPSW 02007000 ZCRTPINV EQU ZCRSCPSW 02008000 ZCRTPEX EQU ZCRSCPSW 02009000 @NM00088 EQU ZCRIBPR 02010000 ZCR3270R EQU ZCRIBPR 02011000 ZCR3270 EQU ZCRIBPR 02012000 ZCRLCPFD EQU ZCRIBPR 02013000 ZCRLCPFR EQU ZCRIBPR 02014000 ZCRRELK EQU ZCRIBPR 02015000 ZCRERR EQU ZCRIBPR 02016000 ZCRNOBUF EQU ZCRIBPR 02017000 @NM00087 EQU ZCRPFLGS 02018000 ZCRQAHED EQU ZCRPFLGS 02019000 ZCRF1RES EQU ZCRGENSW 02020000 ZCRBRIS EQU ZCRGENSW 02021000 ZCRCLRBD EQU ZCRGENSW 02022000 ZCREXRES EQU ZCRGENSW 02023000 ZCRLCSYN EQU ZCRGENSW 02024000 ZCRRT06 EQU ZCRGENSW 02025000 ZCRTSW2 EQU ZCRGENSW 02026000 ZCRTSW1 EQU ZCRGENSW 02027000 ZCRINLCP EQU ZCRFLGS3 02028000 ZCRWRPTR EQU ZCRFLGS3 02029000 ZCRNOFRE EQU ZCRFLGS3 02030000 ZCREDRIV EQU ZCRFLGS3 02031000 ZCRDISC EQU ZCRFLGS3 02032000 ZCRTPDIS EQU ZCRFLGS3 02033000 ZCRTPCON EQU ZCRFLGS3 02034000 ZCRTIC EQU ZCRFLGS3 02035000 ZCRCNLXL EQU ZCRRESET 02036000 ZCRENDAN EQU ZCRSWFLD 02037000 ZCRENDXL EQU ZCRSWFLD 02038000 ZCRENDX EQU ZCRSWFLD 02039000 ZCROB1 EQU ZCRNDLCP 02040000 ZCRENDPR EQU ZCRSWFLD 02041000 ZCREXTYP EQU ZCRSWFLD 02042000 ZCRSLCP EQU ZCRENDSH 02043000 ZCRIF0E3 EQU ZCRFLGS2 02044000 ZCRIF0E2 EQU ZCRFLGS2 02045000 ZCRIF0E1 EQU ZCRFLGS2 02046000 ZCROB EQU ZCRFLGS2 02047000 ZCRFMSED EQU ZCRFLGS2 02048000 ZCRSHEDI EQU ZCRFLGS2 02049000 ZCRLOCAL EQU ZCRFLGS2 02050000 ZCRFEXIT EQU ZCRFLGS1 02051000 ZCRUNSOL EQU ZCRFLGS1 02052000 ZCRENDLP EQU ZCRFLGS1 02053000 ZCRNRMEX EQU ZCRFLGS1 02054000 ZCRWAIT EQU ZCRFLGS1 02055000 ZCRDEQSW EQU ZCRFLGS1 02056000 ZCRQUESW EQU ZCRFLGS1 02057000 ZCREXSW EQU ZCRFLGS1 02058000 ZCRFRRA EQU ISTZCRR+8 02059000 ZCRCHAIN EQU ISTZCRR+4 02060000 ZCRFLAG EQU ZCRCRR+3 02061000 ZCRLEN EQU ZCRCRR+1 02062000 ZCRID EQU ZCRCRR 02063000 ZSAZTRAC EQU ISTZSAVE+36 02064000 ZSAZSVVR EQU ISTZSAVE+12 02065000 ZSAZSVRR EQU ISTZSAVE+8 02066000 ZSAZSVFC EQU ISTZSAVE+4 02067000 ZSAZACTV EQU ZSAZSVMS 02068000 LCPFTYPE EQU LCPRPHA 02069000 LCPRSTQH EQU LCPLCCW 02070000 LCPCLREP EQU ISTLCPB+44 02071000 LCPUBFSB EQU LCPFLCCW 02072000 LCPRSV77 EQU ISTLCPB+39 02073000 LCPLCCWC EQU ISTLCPB+38 02074000 LCPRSV78 EQU LCPFLG1 02075000 LCPTRANS EQU LCPFLG1 02076000 LCPSTLB EQU LCPFLG1 02077000 LCPREDRV EQU LCPFLG1 02078000 LCPDIRPT EQU LCPFLG1 02079000 LCPINTER EQU LCPFLG1 02080000 LCPRESET EQU LCPFLG1 02081000 LCPSTYPE EQU ISTLCPB+36 02082000 LCPFSNCH EQU ISTLCPB+34 02083000 LCPFOSN EQU ISTLCPB+32 02084000 LCPTLBAD EQU ISTLCPB+28 02085000 LCPFDB2 EQU LCPFDBA+1 02086000 LCPFDB1 EQU LCPFDBA 02087000 LCPNXLCW EQU ISTLCPB+20 02088000 LCPDAF EQU LCPCID+2 02089000 LCPSAF EQU LCPCID 02090000 LCPLCCW1 EQU ISTLCPB+12 02091000 LCPRRCNT EQU LCPSEQ+1 02092000 LCPRRCCT EQU LCPSEQ 02093000 LCPATOP EQU LCPFLAG2 02094000 LCPFREE EQU LCPFLAG2 02095000 LCPDSTAT EQU LCPFLAG2 02096000 LCPEXRES EQU LCPFID0 02097000 LCPZRIMM EQU LCPTLBPI 02098000 LCPRSTRT EQU LCPFLAG2 02099000 LCPASYN EQU LCPFLAG2 02100000 LCPPRFLG EQU LCPFLAG2 02101000 LCPZMIRC EQU LCPRUCNT 02102000 LCPCHAI2 EQU LCPCHAIN+1 02103000 LCPCHNG EQU LCPCHAI1 02104000 LCPZRT0B EQU LCPMNRCD 02105000 LCPZRT0A EQU LCPMNRCD 02106000 LCPZRTL9 EQU LCPZRT09 02107000 LCPZRTL8 EQU LCPZRT08 02108000 LCPZRTL7 EQU LCPZRT07 02109000 LCPZRTL6 EQU LCPZRT06 02110000 LCPZRTL5 EQU LCPZRT05 02111000 LCPZRTL4 EQU LCPZRT04 02112000 LCPZRTL3 EQU LCPZRT03 02113000 LCPZRTL2 EQU LCPZRT02 02114000 LCPZRT01 EQU LCPFLAGS 02115000 LCPZRT00 EQU LCPFLAGS 02116000 LCPLNGTH EQU ISTLCPB+1 02117000 LCPTYPE EQU ISTLCPB 02118000 LCCWDATA EQU ISTLCCW+4 02119000 LCCWCNT EQU ISTLCCW+2 02120000 LCCWACI EQU LCCWFLAG 02121000 LCCWRFI EQU LCCWFLAG 02122000 LCCWPER EQU LCCWLSI 02123000 LCCWIDAT EQU LCCWFLAG 02124000 LCCWNTVC EQU LCCWFLAG 02125000 LCCWCKPT EQU LCCWFLAG 02126000 LCCWCC EQU LCCWFLAG 02127000 LCCWCD EQU LCCWFLAG 02128000 LCCWTYPE EQU LCCWCTL 02129000 LCCWMODE EQU LCCWCTL 02130000 LCCWSOP EQU LCCWRWOP 02131000 @NM00086 EQU LCCWRWOP 02132000 LCCWSD EQU LCCWOP 02133000 LCCWSI EQU LCCWOP 02134000 CCWCOUNT EQU ISTCCW+6 02135000 CCWSPRSV EQU CCWSPARE 02136000 CCWCFTX EQU CCWSPARE 02137000 CCWTRCE EQU CCWSPARE 02138000 CCWNULL EQU CCWFLAGS 02139000 CCWPCI EQU CCWFLAGS 02140000 CCWSKIP EQU CCWFLAGS 02141000 CCWSLI EQU CCWFLAGS 02142000 CCWCC EQU CCWFLAGS 02143000 CCWCD EQU CCWFLAGS 02144000 CCWADDR EQU CCWVADDR+1 02145000 PATRSV01 EQU PATFLAGA 02146000 PATUSEFG EQU PATFLAGA 02147000 PATRDCNT EQU ISTPAT+6 02148000 PATGRPID EQU ISTPAT+5 02149000 PATPTHID EQU ISTPAT+4 02150000 PATDINDX EQU ISTPAT+2 02151000 PATGINDX EQU ISTPAT 02152000 GNTGRPNM EQU ISTGNT 02153000 DNTTELNO EQU ISTDNT+1 02154000 DNTCTDIG EQU ISTDNT 02155000 RLSRSV02 EQU ISTRLS+140 02156000 RLSRSV01 EQU ISTRLS+138 02157000 RLSCTELU EQU ISTRLS+136 02158000 RLSPRE EQU ISTRLS 02159000 RDARSVPT EQU ISTRDA+84 02160000 RDAPUBI EQU ISTRDA+83 02161000 RDADFCUA EQU ISTRDA+80 02162000 RDACTPCC EQU ISTRDA+79 02163000 RDADACUA EQU ISTRDA+76 02164000 RDALUBA EQU RDAUCBAD+1 02165000 RDACHQI EQU RDAUCBAD 02166000 RDARSV01 EQU RDAFLAG 02167000 RDARBISA EQU RDAFLAG 02168000 RDAPRE EQU ISTRDA 02169000 RSWRSV01 EQU ISTRSW+152 02170000 RSWRSV02 EQU ISTRSW+150 02171000 RSWCTELU EQU ISTRSW+148 02172000 RSWGRUPZ EQU ISTRSW+146 02173000 RSWDIALZ EQU ISTRSW+144 02174000 RSWGRUPT EQU ISTRSW+140 02175000 RSWDIALT EQU ISTRSW+136 02176000 RSWPRE EQU ISTRSW 02177000 RLXRSV03 EQU ISTRLX+80 02178000 RLXRSV02 EQU ISTRLX+77 02179000 RLXRSV01 EQU RLXFLAGA 02180000 RLXINUSE EQU RLXFLAGA 02181000 RLXNLUX EQU ISTRLX+72 02182000 RLXPRE EQU ISTRLX 02183000 RPXRSV01 EQU ISTRPX+80 02184000 RPXRSV02 EQU ISTRPX+77 02185000 RPXMAXLU EQU ISTRPX+76 02186000 RPXFLUX EQU ISTRPX+72 02187000 RPXPRE EQU ISTRPX 02188000 RLURSV02 EQU ISTRLU+172 02189000 RLULGMOD EQU ISTRLU+164 02190000 RLUMODEP EQU RLUMODET+8 02191000 RLUMODEN EQU RLUMODET 02192000 RLUUSSPT EQU RLUUSSTB+8 02193000 RLUUSSNM EQU RLUUSSTB 02194000 RLURSV01 EQU ISTRLU+137 02195000 RLULOCAD EQU ISTRLU+136 02196000 RLUNCPPM EQU RLUNCPPC+1 02197000 RLUNCPPN EQU RLUNCPPC 02198000 RLUPACEM EQU RLUPACE+1 02199000 RLUPACEN EQU RLUPACE 02200000 RLUINTA EQU ISTRLU+128 02201000 RLUSSCFM EQU ISTRLU+127 02202000 RLUCRRSV EQU RLUCRFLG 02203000 RLUACTLU EQU RLUCRFLG 02204000 RLURSV00 EQU RLUFLAG 02205000 RLUGSTAT EQU RLUFLAG 02206000 RLUBATCH EQU RLUFLAG 02207000 RLURBISA EQU RLUFLAG 02208000 RLUTYPE EQU ISTRLU+124 02209000 RLUCRPR EQU ISTRLU 02210000 RCCRVPT2 EQU ISTRCC+144 02211000 RCCXTOSW EQU ISTRCC+140 02212000 RCCSWTOX EQU ISTRCC+136 02213000 RCCRSPT2 EQU ISTRCC+133 02214000 RCCADDR EQU ISTRCC+132 02215000 RCCPASSL EQU ISTRCC+131 02216000 RCCMXOUT EQU ISTRCC+130 02217000 RCCMXDAT EQU ISTRCC+128 02218000 RCCINDEX EQU ISTRCC+126 02219000 RCCPATHZ EQU ISTRCC+124 02220000 RCCPATHT EQU ISTRCC+120 02221000 RCCDPQ EQU ISTRCC+116 02222000 RCCTPAB EQU ISTRCC+112 02223000 RCCRSV02 EQU ISTRCC+109 02224000 RCCCRRSV EQU RCCCRFLG 02225000 RCCCTCFL EQU RCCCRFLG 02226000 RCCACTPU EQU RCCCRFLG 02227000 RCCNCSPL EQU ISTRCC+104 02228000 RCCRPHCN EQU ISTRCC+100 02229000 RCCEPAB EQU ISTRCC+96 02230000 RCCDPAB EQU ISTRCC+92 02231000 RCCVPAB EQU ISTRCC+88 02232000 @NM00085 EQU ISTRCC+87 02233000 RCCSESCT EQU ISTRCC+86 02234000 RCCIDNUM EQU RCCID48+3 02235000 RCCIDBLK EQU RCCID48+2 02236000 RCCIDPA2 EQU RCCID48+1 02237000 RCCIDPUT EQU RCCID48 02238000 RCCIDPA1 EQU RCCSTAID 02239000 RCCCTELU EQU ISTRCC+76 02240000 RCCCNCNT EQU ISTRCC+75 02241000 RCCRTGOH EQU RCCFLAGB 02242000 RCCBRKCN EQU RCCFLAGB 02243000 RCCRESET EQU RCCFLAGB 02244000 RCCFINAL EQU RCCFLAGB 02245000 RCCBNNSP EQU RCCFLAGB 02246000 RCCIRETR EQU RCCFLAGB 02247000 RCCDIALP EQU RCCFLAGB 02248000 RCCDSTCT EQU RCCFLAGB 02249000 RCCCTPGD EQU RCCFLAG 02250000 RCCPRGDN EQU RCCFLAG 02251000 RCCOUERP EQU RCCFLAG 02252000 RCCOHIMM EQU RCCFLAG 02253000 RCCLDISC EQU RCCFLAG 02254000 RCCERPIP EQU RCCFLAG 02255000 RCCCUDIE EQU RCCFLAG 02256000 RCCRBISA EQU RCCFLAG 02257000 RCCTYPE EQU ISTRCC+72 02258000 RCCPRE EQU ISTRCC 02259000 DOTADTRM EQU ISTDOT 02260000 RDSADDOT EQU ISTRDS+76 02261000 RDSCTATR EQU ISTRDS+74 02262000 RDSCTTRM EQU ISTRDS+72 02263000 RDSPRE EQU ISTRDS 02264000 RINRSV05 EQU ISTRIN+156 02265000 RINRSV04 EQU ISTRIN+152 02266000 RINLOCRN EQU ISTRIN+148 02267000 RINRSV02 EQU ISTRIN+145 02268000 RTRCNCNT EQU RINCNCNT 02269000 RTRNCSPL EQU RINNCSPL 02270000 RTRRPHCN EQU RINRPHCN 02271000 RTRVPAB EQU RINVPAB 02272000 RTRREMOT EQU RINREMOT 02273000 RTRRLDAF EQU RINRLDAF 02274000 RTRNODID EQU RINNODID 02275000 RINRSV01 EQU RINDFD 02276000 RTRLDISC EQU RINLDISC 02277000 RTRNODEF EQU RINNODEF 02278000 RTRREMPO EQU RINREMPO 02279000 RINCRPRE EQU ISTRIN 02280000 RTRRSV04 EQU ISTRTR+210 02281000 RTRLCTI EQU ISTRTR+209 02282000 RTRIDCAS EQU RTRBSCID+1 02283000 RTRIDLEN EQU RTRBSCID 02284000 RTRRSVDD EQU ISTRTR+181 02285000 RTRRDFG EQU ISTRTR+180 02286000 RTRDIAA EQU ISTRTR+176 02287000 RTRPOLA EQU ISTRTR+172 02288000 RTRCADDR EQU ISTRTR+164 02289000 RTRCTADR EQU ISTRTR+162 02290000 RTRCTPOL EQU ISTRTR+160 02291000 RTRCTDIA EQU ISTRTR+158 02292000 RTRRSV03 EQU ISTRTR+156 02293000 RTRRVPT1 EQU ISTRTR+152 02294000 RTRBHSN1 EQU ISTRTR+144 02295000 RTRCRSV2 EQU RTRCRFLG 02296000 RTRDTRLM EQU RTRLSCMD 02297000 RTRCRSV1 EQU RTRCRFLG 02298000 RTRTRMAX EQU ISTRTR+142 02299000 RTRRSV24 EQU RTRRDFF 02300000 RTRRFDEK EQU RTRRDFF 02301000 RTRRFANK EQU RTRRDFF 02302000 RTRRFPFK EQU RTRRDFF 02303000 RTRRFPEN EQU RTRRDFF 02304000 RTRRFXCT EQU RTRRDFF 02305000 RTRRESCT EQU RTRRDFE 02306000 RTRRESUP EQU RTRRDFE 02307000 RTRREATT EQU RTRRDFE 02308000 RTRRECHK EQU RTRRDFE 02309000 RTRREACR EQU RTRRDFE 02310000 RTRRSV0A EQU RTRRDFE 02311000 RTRREBRK EQU RTRRDFE 02312000 RTRRSV11 EQU RTRRDFD 02313000 RTRRSV10 EQU RTRRDFD 02314000 RTRRDBHI EQU RTRRDFD 02315000 RTRRDBHD EQU RTRRDFD 02316000 RTRRDBHN EQU RTRRDFD 02317000 RTRRSV23 EQU RTRRDFC 02318000 RTRRCXMS EQU RTRRDFC 02319000 RTRRCMSG EQU RTRRDFC 02320000 RTRRCBLK EQU RTRRDFC 02321000 RTRRCPT3 EQU RTRRDFC 02322000 RTRRCIT2 EQU RTRRDFC 02323000 RTRRCIT1 EQU RTRRDFC 02324000 RTRRSV32 EQU RTRRDFB 02325000 RTRRBEND EQU RTRRDFB 02326000 RTRRBECT EQU RTRRDFB 02327000 RTRRSV02 EQU RTRRDFA 02328000 RTRRACTR EQU RTRRDFA 02329000 RTRRSV60 EQU RTRRDFA 02330000 RTRRACDT EQU RTRRDFA 02331000 RTRRAPT3 EQU RTRRAALL 02332000 RTRRAPT2 EQU RTRRAALL 02333000 RTRRAPT1 EQU RTRRAALL 02334000 RTRRAATN EQU RTRRDFA 02335000 RTRRSV45 EQU ISTRTR+132 02336000 RTRRSV01 EQU ISTRTR+130 02337000 RTRCTECM EQU ISTRTR+128 02338000 RTRADRPT EQU RTRADR+1 02339000 RTRRSV22 EQU RTRFLAG 02340000 RTRVTERM EQU RTRFLAG 02341000 RTRRSV51 EQU RTRFLAG 02342000 RTRRBISA EQU RTRFLAG 02343000 RTRRSV21 EQU RTRFLAG 02344000 RTRCRPR EQU ISTRTR 02345000 RCLRVPT2 EQU ISTRCL+92 02346000 RCLRVPT1 EQU ISTRCL+88 02347000 RCLGPOLA EQU ISTRCL+84 02348000 RCLCTNGP EQU ISTRCL+82 02349000 RCLRSV01 EQU ISTRCL+80 02350000 RCLCTECM EQU ISTRCL+78 02351000 RCLCTETR EQU ISTRCL+76 02352000 RCLGPADR EQU RCLADR+1 02353000 RCLRSV33 EQU RCLFLAG 02354000 RCLBATCH EQU RCLFLAG 02355000 RCLRBISA EQU RCLFLAG 02356000 RCLRSV22 EQU RCLFLAG 02357000 RCLPRE EQU ISTRCL 02358000 RPTRSV03 EQU ISTRPT+156 02359000 RPTRSV02 EQU ISTRPT+152 02360000 RPTNSNSV EQU ISTRPT+148 02361000 RPTPTHCT EQU ISTRPT+146 02362000 RPTPEPCT EQU ISTRPT+144 02363000 RPTDAFSV EQU ISTRPT+142 02364000 RPTRSV01 EQU ISTRPT+141 02365000 RPTISTAT EQU RPTFLAG1 02366000 RPTDYNAM EQU RPTFLAG1 02367000 RPTVYIMM EQU RPTFLAG1 02368000 RPTVIODN EQU RPTFLAG1 02369000 RPTONLIN EQU RPTFLAG1 02370000 RPTHLVPD EQU RPTFLAG1 02371000 RPTVRYPD EQU RPTFLAG1 02372000 RPTASLEP EQU RPTFLAG1 02373000 RPTUTERM EQU ISTRPT+136 02374000 RPTATERM EQU ISTRPT+132 02375000 RPTDIVT EQU RPTDITT 02376000 RPTCTNM EQU ISTRPT+120 02377000 RPTLNDAF EQU RPTLNCID+2 02378000 RPTLNSAF EQU RPTLNCID 02379000 RPTLN EQU ISTRPT 02380000 RLNRVPT2 EQU ISTRLN+112 02381000 RLNNCSPL EQU ISTRLN+108 02382000 RLNX2SW EQU ISTRLN+104 02383000 @NM00084 EQU ISTRLN+103 02384000 RLNCRRSV EQU RLNCRFLG 02385000 RLNSWEP EQU RLNCRFLG 02386000 RLNSVSKP EQU RLNLSCMD 02387000 RLNSESLM EQU RLNLSCMD 02388000 RLNNPRLM EQU RLNLSCMD 02389000 RLNSWNCP EQU RLNCRFLG 02390000 RLNACTLN EQU RLNCRFLG 02391000 RLNPAUSE EQU ISTRLN+101 02392000 RLNPOLMT EQU ISTRLN+100 02393000 RLNACTSN EQU ISTRLN+98 02394000 RLNRESV1 EQU ISTRLN+97 02395000 RLNACTRM EQU ISTRLN+96 02396000 RLNCTSES EQU ISTRLN+95 02397000 RLNRDSLM EQU ISTRLN+94 02398000 RLNAUTOA EQU ISTRLN+92 02399000 RLNRDFD EQU RLNRDF+3 02400000 RLNRDFC EQU RLNRDF+2 02401000 RLNMULTP EQU RLNRDFB 02402000 RLNRATRN EQU RLNRDFB 02403000 RLNRAPOL EQU RLNRDFB 02404000 RLNTTV EQU RLNRDFB 02405000 RLNRSV0B EQU RLNRDFB 02406000 RLNAUTOD EQU RLNRDFB 02407000 RLNANSWR EQU RLNRDFB 02408000 RLNRBUSE EQU RLNRDFB 02409000 RLNRAPEP EQU RLNRDFA 02410000 RLNRANCP EQU RLNRDFA 02411000 RLNRAEP EQU RLNRDFA 02412000 RLNIDV EQU RLNRDFA 02413000 RLNPORT EQU RLNRDFA 02414000 RLNGANSW EQU RLNRDFA 02415000 RLNRACAN EQU RLNRACNT 02416000 RLNRACAT EQU RLNRACNT 02417000 RLNRSV04 EQU RLNSTAT2 02418000 RLNINUSE EQU RLNSTAT2 02419000 RLNOHIN EQU RLNSTAT2 02420000 RLNRSV03 EQU RLNSTAT1 02421000 RLNVD EQU RLNSTAT1 02422000 RLNINOPP EQU RLNSTAT1 02423000 RLNINOPL EQU RLNSTAT1 02424000 RLNLRST EQU RLNSTAT1 02425000 RLNTRAP EQU RLNSTAT1 02426000 RLNACTCT EQU ISTRLN+84 02427000 RLNCTECM EQU ISTRLN+82 02428000 RLNCTEIN EQU ISTRLN+80 02429000 RLNCTETR EQU ISTRLN+78 02430000 RLNCTECL EQU ISTRLN+76 02431000 RLNCUA EQU RLNUCBAD 02432000 RLNRSV01 EQU RLNFLAG 02433000 RLNRBISA EQU RLNFLAG 02434000 RLNEAM EQU RLNFLAG 02435000 RLNPRE EQU ISTRLN 02436000 RGPRVPT2 EQU ISTRGP+88 02437000 RGPRVPT1 EQU ISTRGP+84 02438000 RGPCTECM EQU ISTRGP+82 02439000 RGPCTEIN EQU ISTRGP+80 02440000 RGPCTETR EQU ISTRGP+78 02441000 RGPCTECL EQU ISTRGP+76 02442000 RGPCTELN EQU ISTRGP+74 02443000 RGPRSV03 EQU ISTRGP+73 02444000 RGPRSV02 EQU RGPFLG 02445000 RGPASDLC EQU RGPFLG 02446000 RGPABSC EQU RGPFLG 02447000 RGPASS EQU RGPFLG 02448000 RGPADIL EQU RGPFLG 02449000 RGPPRE EQU ISTRGP 02450000 RRNRINNM EQU ISTRRN+248 02451000 @NM00083 EQU ISTRRN+247 02452000 RRNRDCUA EQU ISTRRN+244 02453000 RRNLASTE EQU ISTRRN+240 02454000 RRNNCSPL EQU ISTRRN+236 02455000 RRNRPLPT EQU ISTRRN+232 02456000 RRNMSIZE EQU ISTRRN+228 02457000 RRNNCPNM EQU ISTRRN+221 02458000 RRNCTPCC EQU ISTRRN+220 02459000 RRNHBUFS EQU ISTRRN+218 02460000 RRNHLENT EQU RRNHPRE+1 02461000 RRNHLENH EQU RRNHPRE 02462000 RRNNMNCP EQU ISTRRN+208 02463000 RRNDELAY EQU ISTRRN+206 02464000 RRNRSV04 EQU ISTRRN+200 02465000 RRNRSV88 EQU RRNNMDPD+7 02466000 RRNPUBI EQU RRNNMDPD+6 02467000 RRNDPLUB EQU RRNNMDPD 02468000 RRNEPADR EQU ISTRRN+190 02469000 RRNCPLUB EQU ISTRRN+184 02470000 RRNFLUX EQU ISTRRN+180 02471000 RRNRSV05 EQU RRNCMFD 02472000 RRNREMPO EQU RRNCMFD 02473000 RRNCDREC EQU RRNCMFD 02474000 RRNCDDSI EQU RRNCMFD 02475000 RRNCDBCK EQU RRNCMFD 02476000 RRNCDDTL EQU RRNCMFD 02477000 RRNCDSTD EQU RRNCMFD 02478000 RRNCDCSP EQU RRNCMFD 02479000 RRNCCCSL EQU RRNCMFC 02480000 RRNCCSIM EQU RRNCMFC 02481000 RRNCCRCM EQU RRNCMFC 02482000 RRNCCRIM EQU RRNCMFC 02483000 RRNCCCRC EQU RRNCMFC 02484000 RRNCCRST EQU RRNCMFC 02485000 RRNCCRDQ EQU RRNCMFC 02486000 RRNCCRCN EQU RRNCMFC 02487000 RRNCBALT EQU RRNCMFB 02488000 RRNCBMOD EQU RRNCMFB 02489000 RRNCBNPL EQU RRNCMFB 02490000 RRNCBRLS EQU RRNCMFB 02491000 RRNCBRDS EQU RRNCMFB 02492000 RRNCBDLR EQU RRNCMFB 02493000 RRNCBDLH EQU RRNCMFB 02494000 RRNCBDLO EQU RRNCMFB 02495000 RRNCADGO EQU RRNCMFA 02496000 RRNCADTD EQU RRNCMFA 02497000 RRNCACDT EQU RRNCMFA 02498000 RRNCAMBH EQU RRNCMFA 02499000 RRNCAATI EQU RRNCMFA 02500000 RRNCAATG EQU RRNCMFA 02501000 RRNCAATD EQU RRNCMFA 02502000 RRNCAALL EQU RRNCMFA 02503000 RRNRSV55 EQU RRNRDF+3 02504000 RRNPTASL EQU RRNRDFB+1 02505000 RRNRSV01 EQU RRNRDFB+1 02506000 RRNVYDON EQU RRNRDFB+1 02507000 RRNRBBUP EQU RRNRDFB+1 02508000 RRNRSV03 EQU RRNRDFB 02509000 RRNRBCT2 EQU RRNRDFB 02510000 RRNRBCT1 EQU RRNRDFB 02511000 RRNRBSEC EQU RRNRDFB 02512000 RRNRBCCT EQU RRNRDFB 02513000 RRNRBCCL EQU RRNRDFB 02514000 RRNRSV02 EQU RRNRDFB 02515000 RRNRBMDL EQU RRNRDFB 02516000 RRNRAPEP EQU RRNRDFA 02517000 RRNRANCP EQU RRNRDFA 02518000 RRNRBREM EQU RRNRDFA 02519000 RRNRAOLT EQU RRNRDFA 02520000 RRNRASYN EQU RRNRDFA 02521000 RRNRADMP EQU RRNRDFA 02522000 RRNRAIPL EQU RRNRDFA 02523000 RRNRASHT EQU RRNRDFA 02524000 RRNCTENT EQU ISTRRN+170 02525000 RRNCTECM EQU ISTRRN+168 02526000 RRNCTEIN EQU ISTRRN+166 02527000 RRNCTETR EQU ISTRRN+164 02528000 RRNCTECL EQU ISTRRN+162 02529000 RRNCTELI EQU ISTRRN+160 02530000 RRNCTEGP EQU ISTRRN+158 02531000 RRNCTBHS EQU ISTRRN+156 02532000 RRNBHSET EQU ISTRRN+152 02533000 RRNTRENT EQU ISTRRN+148 02534000 RRNRSV22 EQU ISTRRN+147 02535000 RRNRNCUA EQU ISTRRN+144 02536000 RRNGRPA EQU ISTRRN+140 02537000 RRNLUBA EQU RRNUCBAD+1 02538000 RRNCHQI EQU RRNUCBAD 02539000 RRNRSV11 EQU RRNFLAG 02540000 RRNDSTCT EQU RRNFLAG 02541000 RRNERPIP EQU RRNFLAG 02542000 RRNLCDIP EQU RRNFLAG 02543000 RRNLCDIE EQU RRNFLAG 02544000 RRNLCSIP EQU RRNFLAG 02545000 RRNRBISA EQU RRNFLAG 02546000 RRNRSV89 EQU RRNFLAG 02547000 RRNPRE EQU ISTRRN 02548000 RLCRVPT2 EQU ISTRLC+80 02549000 RLCRVPT1 EQU ISTRLC+79 02550000 RLCLCCUA EQU ISTRLC+76 02551000 RLCUCBAD EQU RLCADR+1 02552000 RLCRSVDE EQU RLCFLAG 02553000 RLCACNT EQU RLCFLAG 02554000 RLCRSV14 EQU RLCFLAG 02555000 RLCRBISA EQU RLCFLAG 02556000 RLCRSV22 EQU RLCFLAG 02557000 RLCPRE EQU ISTRLC 02558000 RAPRVPT2 EQU ISTRAP+116 02559000 RAPRVPT1 EQU ISTRAP+112 02560000 RAPBFACT EQU ISTRAP+111 02561000 RAPRSV17 EQU RAPFLGC 02562000 RAPRSV16 EQU RAPFLGC 02563000 RAPRSV15 EQU RAPFLGC 02564000 RAPRSV14 EQU RAPFLGC 02565000 RAPRSV13 EQU RAPFLGC 02566000 RAPRSV12 EQU RAPFLGC 02567000 RAPRSV11 EQU RAPFLGC 02568000 RAPRSV10 EQU RAPFLGC 02569000 RAPRSV09 EQU RAPFLGB 02570000 RAPASPO EQU RAPFLGB 02571000 RAPAPPO EQU RAPFLGB 02572000 RAPAACQ EQU RAPFLGB 02573000 RAPAPRMT EQU RAPFLGB 02574000 RAPAPASS EQU RAPFLGB 02575000 RAPABLCK EQU RAPFLGB 02576000 RAPALLF EQU RAPFLGB 02577000 RAPRSV06 EQU RAPFLG 02578000 RAPRSV05 EQU RAPFLG 02579000 RAPRSV04 EQU RAPFLG 02580000 RAPRSV03 EQU RAPFLG 02581000 RAPATLGN EQU RAPFLG 02582000 RAPASLGI EQU RAPFLG 02583000 RAPAQUI EQU RAPFLG 02584000 RAPABLGN EQU RAPFLG 02585000 RAPACEQD EQU ISTRAP+106 02586000 RAPTRPRE EQU ISTRAP+104 02587000 RAPACEAP EQU ISTRAP+100 02588000 RAPICEAQ EQU ISTRAP+96 02589000 RAPICEAC EQU ISTRAP+92 02590000 RAPICELG EQU ISTRAP+88 02591000 RAPAPPWD EQU ISTRAP+80 02592000 RAPACDEB EQU ISTRAP+76 02593000 RAPACBA EQU ISTRAP+72 02594000 RAPPRE EQU ISTRAP 02595000 RDTVSRPL EQU ISTRDT+132 02596000 RDTCRSPW EQU ISTRDT+124 02597000 RDTCRSDS EQU ISTRDT+116 02598000 @NM00082 EQU ISTRDT+113 02599000 RRNSTCNT EQU RDTSTCNT 02600000 RRNVYRPH EQU RDTVYRPH 02601000 RDTTPAB EQU ISTRDT+104 02602000 RDTDPAB EQU ISTRDT+100 02603000 RDTEPAB EQU ISTRDT+96 02604000 RDTVPAB EQU ISTRDT+92 02605000 RDTRSV01 EQU RDTFLAGB 02606000 RDTBHSET EQU RDTFLAGB 02607000 RDTCTCFL EQU RDTFLAGB 02608000 RDTCTPGD EQU RDTFLAGB 02609000 RDTPRGDN EQU RDTFLAGB 02610000 RDTOUERP EQU RDTFLAGB 02611000 RDTLGCT EQU ISTRDT+90 02612000 RDTNODID EQU ISTRDT+89 02613000 RDTMAXID EQU ISTRDT+88 02614000 RDTCTSNT EQU ISTRDT+86 02615000 RDTFLAGS EQU ISTRDT+84 02616000 RDTBACK EQU ISTRDT+80 02617000 RDTFORW EQU ISTRDT+76 02618000 RDTLEN EQU RDTPLEN+1 02619000 RDTPRILS EQU RDTPRIOR 02620000 RDTPRISW EQU RDTPRIOR 02621000 RDTPRIRN EQU RDTPRIOR 02622000 RDTPRILC EQU RDTPRIOR 02623000 RDTPRIAP EQU RDTPRIOR 02624000 @NM00081 EQU RDTPRIOR 02625000 RCPRSV05 EQU ISTRCPRE+120 02626000 RCPRSV04 EQU ISTRCPRE+116 02627000 RCPRSV03 EQU ISTRCPRE+112 02628000 RCPINTA EQU RCPLGNIN+16 02629000 RCPLGNCT EQU RCPLGNIN+8 02630000 RCPLGNAP EQU RCPLGNIN 02631000 @NM00080 EQU RCPPMODE 02632000 RCPRRECD EQU RCPPMODE 02633000 RCPRBASC EQU RCPPMODE 02634000 RCPBFLIM EQU ISTRCPRE+90 02635000 RCPBHSI2 EQU ISTRCPRE+89 02636000 RCPBHSI1 EQU ISTRCPRE+88 02637000 RCPACETR EQU ISTRCPRE+84 02638000 RCPICEAQ EQU ISTRCPRE+80 02639000 RCPLNAPA EQU ISTRCPRE+76 02640000 RCPICELN EQU ISTRCPRE+72 02641000 RCPPRE EQU ISTRCPRE 02642000 RPRCONID EQU ISTRPRE+63 02643000 RPRCLVPD EQU RPRFLAGC 02644000 RPRINIMM EQU RPRFLAGD 02645000 RPRRSV05 EQU RPRFLAGD 02646000 @NM00079 EQU RPRFLAGD 02647000 RPRRSON EQU RPRFLAGD 02648000 RPRCONCT EQU RPRFLAGD 02649000 RPRLTASN EQU RPRFLAGD 02650000 RPRPTHCT EQU ISTRPRE+60 02651000 RPRSWDAF EQU ISTRPRE+58 02652000 RPRSTPCT EQU ISTRPRE+56 02653000 RPRRVPT1 EQU ISTRPRE+52 02654000 RPRDEVCH EQU ISTRPRE+44 02655000 RPRNCBA EQU ISTRPRE+40 02656000 RPRNSNEA EQU ISTRPRE+36 02657000 RPRLGONB EQU ISTRPRE+32 02658000 RPRLGONF EQU ISTRPRE+28 02659000 RPRHDTYP EQU ISTRPRE+27 02660000 RPRTIOCT EQU ISTRPRE+26 02661000 RPRPEPCT EQU ISTRPRE+24 02662000 RPRRSV03 EQU RPRCAUSE 02663000 RPRRSYNC EQU RPRCAUSE 02664000 RPRCRCPT EQU RPRCAUSE 02665000 RPRNOSRT EQU RPRCAUSE 02666000 RPRINTST EQU RPRFLAGB 02667000 RPRVYIMM EQU RPRFLAGB 02668000 RPRHLVPD EQU RPRFLAGB 02669000 RPRONLIN EQU RPRFLAGB 02670000 RPRVIODN EQU RPRFLAGB 02671000 RPRAOPN EQU RPRFLAGB 02672000 RPRENTVT EQU RPRFLAGB 02673000 RPRENTVH EQU RPRFLAGB 02674000 RPRLIVE EQU RPRFLAGA 02675000 RPRVRYPD EQU RPRFLAGA 02676000 RPRENTED EQU RPRFLAGA 02677000 RPRENTIO EQU RPRFLAGA 02678000 RPRENTBF EQU RPRFLAGA 02679000 RPRTIED EQU RPRFLAGA 02680000 RPRINV EQU RPRFLAGA 02681000 RPRACT EQU RPRFLAGA 02682000 RPRPELEN EQU ISTRPRE+18 02683000 RPRRLOCK EQU ISTRPRE+12 02684000 RPRDAF EQU RPRCOMID+2 02685000 RPRSAF EQU RPRCOMID 02686000 ZIBLNG1 EQU ZIBFSM 02687000 FSBFDB EQU ISTFSB+32 02688000 FSBRSV01 EQU FSBFSB+30 02689000 FSBTHCNT EQU FSBFSB+28 02690000 FSBRLRSV EQU FSBRLSTS 02691000 FSBCFTX EQU FSBRLSTS 02692000 FSBICNCB EQU FSBMSGID 02693000 FSBSSOC EQU FSBSS2 02694000 FSBSSCC EQU FSBSS2 02695000 FSBSSDC EQU FSBSS2 02696000 FSBSSEC EQU FSBSS2 02697000 FSBSSIR EQU FSBSS2 02698000 FSBSSCR EQU FSBSS2 02699000 @NM00072 EQU FSBSS2 02700000 @NM00071 EQU FSBSS1 02701000 FSBSSDE EQU FSBSS1 02702000 FSBSSUS EQU FSBSS1 02703000 @NM00070 EQU FSBSS1 02704000 FSBSOHI EQU FSBERC 02705000 FSBLGI EQU FSBERC 02706000 FSBLMRI EQU FSBFBMI 02707000 FSBETI EQU FSBERC 02708000 FSBEMI EQU FSBERC 02709000 FSBEBI EQU FSBERC 02710000 FSBECI EQU FSBERC 02711000 FSBELI EQU FSBERC 02712000 FSBMJRCD EQU FSBSRCAT 02713000 FSBXLCI EQU FSBXCODE 02714000 FSBXFINS EQU FSBXCODE 02715000 FSBXNORM EQU FSBXFSTS 02716000 FSBSCODE EQU FSBSYSRS 02717000 FSBSPHSE EQU FSBSYSRS 02718000 FSBSERR EQU FSBSYSRS 02719000 FSBCMD EQU FSBSEQ 02720000 FSBDTRCE EQU FSBFLAGS 02721000 FSBASBTU EQU FSBFLAGS 02722000 FSBINPET EQU FSBFLAGS 02723000 FSBNONCB EQU FSBFLAGS 02724000 FSBLBIND EQU FSBFLAGS 02725000 FSBFFIND EQU FSBFLAGS 02726000 FSBACIND EQU FSBFLAGS 02727000 FSBRFIND EQU FSBFLAGS 02728000 FSBDAF EQU FSBCID+2 02729000 FSBSAF EQU FSBCID 02730000 FSBGATE EQU FSBFSBA 02731000 FSBRSV02 EQU FSBSFLGS 02732000 FSBPGBUF EQU FSBSFLGS 02733000 FSBMNSDA EQU FSBMNRCD 02734000 FSBMNOA EQU FSBMNRCD 02735000 FSBMNDIF EQU FSBMNRCD 02736000 FSBMNEOP EQU FSBMNRCD 02737000 FSBMNDNU EQU FSBMNRCD 02738000 FSBMNATN EQU FSBMNRCD 02739000 FSBMNRVI EQU FSBMNRCD 02740000 FSBMNELI EQU FSBMNRCD 02741000 FSBLNGTH EQU FSBFSB+1 02742000 FSBTYPE EQU FSBFSB 02743000 BTUTEXT EQU ISTBTU+20 02744000 BTUEXTR EQU ISTBTU+19 02745000 BTURSV02 EQU BTUSYSTR 02746000 BTUPHASE EQU BTUSYSTR 02747000 BTURSV01 EQU BTUSYSTR 02748000 BTUPAD EQU BTURH+3 02749000 BTURH3 EQU BTURH+2 02750000 BTURH2 EQU BTURH+1 02751000 BTURH1 EQU BTURH 02752000 BTUDCF EQU BTUBTH+8 02753000 BTUZRTSC EQU BTURQFLG+1 02754000 BTUZRT0B EQU BTURQFLG+1 02755000 BTUZRT0A EQU BTURQFLG+1 02756000 BTUZRT09 EQU BTURQFLG+1 02757000 BTUZRT08 EQU BTURQFLG+1 02758000 BTUZRT07 EQU BTURQFLG 02759000 BTUZRT06 EQU BTURQFLG 02760000 BTUZRT05 EQU BTURQFLG 02761000 BTUZRT04 EQU BTURQFLG 02762000 BTUZRT03 EQU BTURQFLG 02763000 BTUZRT02 EQU BTURQFLG 02764000 BTUZRT01 EQU BTURQFLG 02765000 BTUZRT00 EQU BTURQFLG 02766000 BTUSORCE EQU BTUBTH+4 02767000 BTUDEST EQU BTUBTH+2 02768000 BTUCDF EQU BTUFID+1 02769000 BTUSCF EQU BTUFID+1 02770000 BTUPRY EQU BTUFID+1 02771000 BTUASFL EQU BTUFID 02772000 BTUPSFL EQU BTUFID 02773000 BTUMPF EQU BTUFID 02774000 BTUFIDNO EQU BTUFID 02775000 TH2SNF EQU ISTTH2+4 02776000 TH2OAF EQU ISTTH2+3 02777000 TH2DAF EQU ISTTH2+2 02778000 TH2CDF EQU TH2FLAG1+1 02779000 TH2SEF EQU TH2FLAG1+1 02780000 TH2PYF EQU TH2FLAG1+1 02781000 TH2AFI EQU TH2FLAG1 02782000 TH2PSI EQU TH2FLAG1 02783000 TH2CMPLI EQU TH2MPF 02784000 TH2RHI EQU TH2MPF 02785000 TH2FID EQU TH2FLAG1 02786000 THDCF EQU ISTTH+8 02787000 THSNF EQU ISTTH+6 02788000 THOAF EQU ISTTH+4 02789000 THDAF EQU ISTTH+2 02790000 THCDF EQU THFLGB 02791000 THSEF EQU THFLGB 02792000 THPYF EQU THFLGB 02793000 THAFI EQU THFLGA 02794000 THPSI EQU THFLGA 02795000 THCMPLI EQU THMPF 02796000 THRHI EQU THMPF 02797000 THFID EQU THFLAG1 02798000 LHVDATA EQU ISTLH+4 02799000 LHFUNCT EQU ISTLH+3 02800000 @NM00069 EQU ISTLH+2 02801000 LHLEN EQU ISTLH 02802000 FDBOFSET EQU ISTFDB+10 02803000 FDBDATCT EQU ISTFDB+8 02804000 FDBDATAA EQU ISTFDB+4 02805000 FDBFDBA EQU ISTFDB 02806000 BDURSV04 EQU BDUFLAGS 02807000 BDURTOE EQU BDUFLAGS 02808000 BDUSTPR EQU BDUFLAGS 02809000 BDURSV03 EQU BDUFLAGS 02810000 BDUALT EQU BDUFUNC 02811000 BDUNACK EQU BDUFUNC 02812000 BDUACK EQU BDUFUNC 02813000 BDUTRPM EQU BDUFUNC 02814000 BDUFBMI EQU BDUFUNC 02815000 BDULDGPH EQU BDUFUNC 02816000 BDUHEADP EQU BDUFUNC 02817000 BDUSOH EQU BDUCHECK 02818000 BDURSV01 EQU BDUMODIF 02819000 BDUMOD0 EQU BDUMOD1 02820000 BDUCOMND EQU ISTBDU 02821000 ATCAOS EQU ISTATCVT+1552 02822000 ATCVIOPM EQU ATCAOSM+636 02823000 ATCTPMMI EQU ATCAOSM+632 02824000 ATCTPMPB EQU ATCAOSM+600 02825000 ATCRPLCT EQU ATCAOSM+594 02826000 ATCCRACT EQU ATCAOSM+592 02827000 ATCSRBCT EQU ATCAOSM+590 02828000 ATCRSV75 EQU ATCAOSM+589 02829000 ATCRSV66 EQU ATCZFLAG 02830000 ATCZF001 EQU ATCZFLAG 02831000 ATCTPCP1 EQU ATCAOSM+584 02832000 ATCTPCP0 EQU ATCAOSM+580 02833000 ATCAICTN EQU ATCAOSM+576 02834000 ATCZR01 EQU ATCAOSM+572 02835000 ATCMPLTA EQU ATCAOSM+568 02836000 ATCASCB EQU ATCAOSM+564 02837000 ATCAP86 EQU ATCAOSM+560 02838000 ATCAP85 EQU ATCAOSM+556 02839000 ATCAP84 EQU ATCAOSM+552 02840000 ATCAP83 EQU ATCAOSM+548 02841000 ATCAP82 EQU ATCAOSM+544 02842000 ATCAP69 EQU ATCAOSM+540 02843000 ATCAP66 EQU ATCAOSM+536 02844000 ATCAP62 EQU ATCAOSM+532 02845000 ATCAPC59 EQU ATCAOSM+528 02846000 ATCAP56 EQU ATCAOSM+524 02847000 ATCAP55 EQU ATCAOSM+520 02848000 ATCRCFY0 EQU ATCAOSM+516 02849000 ATCAP41 EQU ATCAOSM+512 02850000 ATCAPC25 EQU ATCAOSM+508 02851000 ATCAP23 EQU ATCAOSM+504 02852000 ATCTPSPB EQU ATCAOSM+472 02853000 ATCTRMBP EQU ATCAOSM+440 02854000 ATCPSTA EQU ATCAOSM+432 02855000 ATCSMABF EQU ATCAOSM+428 02856000 ATCSMAPR EQU ATCAOSM+424 02857000 ATCTPWQA EQU ATCAOSM+420 02858000 ATCSMAID EQU ATCAOSM+416 02859000 ATCSMARA EQU ATCAOSM+412 02860000 ATCCACXA EQU ATCAOSM+408 02861000 ATCZLAAB EQU ATCAOSM+404 02862000 ATCATA10 EQU ATCAOSM+400 02863000 ATCHLTCB EQU ATCAOSM+396 02864000 @NM00068 EQU ATCVTFLG 02865000 ATCVTACT EQU ATCVTFLG 02866000 ATCRPT40 EQU ATCAOSM+388 02867000 ATCRPT39 EQU ATCAOSM+384 02868000 ATCRPT38 EQU ATCAOSM+380 02869000 ATCRPT37 EQU ATCAOSM+376 02870000 ATCRPT36 EQU ATCAOSM+372 02871000 ATCRPT35 EQU ATCAOSM+368 02872000 ATCRPT34 EQU ATCAOSM+364 02873000 ATCRPT33 EQU ATCAOSM+360 02874000 ATCRPT32 EQU ATCAOSM+356 02875000 ATCRPT31 EQU ATCAOSM+352 02876000 ATCRPT30 EQU ATCAOSM+348 02877000 ATCRPT29 EQU ATCAOSM+344 02878000 ATCRPT28 EQU ATCAOSM+340 02879000 ATCRPT27 EQU ATCAOSM+336 02880000 ATCRPT26 EQU ATCAOSM+332 02881000 ATCRPT25 EQU ATCAOSM+328 02882000 ATCRPT24 EQU ATCAOSM+324 02883000 ATCRPT23 EQU ATCAOSM+320 02884000 ATCRPT22 EQU ATCAOSM+316 02885000 ATCRPT21 EQU ATCAOSM+312 02886000 ATCRPT20 EQU ATCAOSM+308 02887000 ATCRPT19 EQU ATCAOSM+304 02888000 ATCRPT18 EQU ATCAOSM+300 02889000 ATCRPT17 EQU ATCAOSM+296 02890000 ATCRPT16 EQU ATCAOSM+292 02891000 ATCRPT15 EQU ATCAOSM+288 02892000 ATCRPT14 EQU ATCAOSM+284 02893000 ATCRPT13 EQU ATCAOSM+280 02894000 ATCRPT12 EQU ATCAOSM+276 02895000 ATCRPT11 EQU ATCAOSM+272 02896000 ATCAP38 EQU ATCAOSM+268 02897000 ATCAP37 EQU ATCAOSM+264 02898000 ATCZDFJ0 EQU ATCAOSM+260 02899000 ATCAP51 EQU ATCAOSM+256 02900000 ATCZPAB2 EQU ATCAOSM+224 02901000 ATCZPAB1 EQU ATCAOSM+192 02902000 ATCZLFVT EQU ATCAOSM+188 02903000 ATCZLPVT EQU ATCAOSM+184 02904000 ATCZDVTX EQU ATCAOSM+180 02905000 ATCZDVTA EQU ATCAOSM+176 02906000 ATCZDVT9 EQU ATCAOSM+172 02907000 ATCZDVT8 EQU ATCAOSM+168 02908000 ATCZDVT7 EQU ATCAOSM+164 02909000 ATCRSV56 EQU ATCDAPVT+22 02910000 ATCDAPDG EQU ATCDAPVT+20 02911000 ATCDXCEA EQU ATCDAPVT+16 02912000 ATCDCEA EQU ATCDAPVT+12 02913000 ATCDPCIA EQU ATCDAPVT+8 02914000 ATCDSIOA EQU ATCDAPVT+4 02915000 ATCDEOEA EQU ATCDAPVT 02916000 ATCZLAEA EQU ATCLDAPP+16 02917000 ATCZLCEA EQU ATCLDAPP+12 02918000 ATCRSV17 EQU ATCLDAPP+8 02919000 ATCSMFRR EQU ATCLDAPP+4 02920000 ATCCDTID EQU ATCLDAPP 02921000 ATCZAEA EQU ATCICAPP+16 02922000 ATCZCEA EQU ATCICAPP+12 02923000 ATCCDTCB EQU ATCICAPP+8 02924000 ATCZSIOA EQU ATCICAPP+4 02925000 ATCCDRPH EQU ATCICAPP 02926000 ATCAP65 EQU ATCAOSM+96 02927000 ATCZDVT6 EQU ATCAOSM+92 02928000 ATCZDVT4 EQU ATCAOSM+88 02929000 ATCZDVT3 EQU ATCAOSM+84 02930000 ATCZDVT1 EQU ATCAOSM+80 02931000 ATCICNCB EQU ATCAOSM+76 02932000 ATCZPSVT EQU ATCAOSM+72 02933000 ATCZFSVT EQU ATCAOSM+68 02934000 ATCAP64 EQU ATCAOSM+64 02935000 ATCAP63 EQU ATCAOSM+60 02936000 ATCAP61 EQU ATCAOSM+56 02937000 ATCAP58 EQU ATCAOSM+52 02938000 ATCAP57 EQU ATCAOSM+48 02939000 ATCAP54 EQU ATCAOSM+44 02940000 ATCAP53 EQU ATCAOSM+40 02941000 ATCAP52 EQU ATCAOSM+36 02942000 ATCAP34 EQU ATCAOSM+32 02943000 ATCAP32 EQU ATCAOSM+28 02944000 ATCAP31 EQU ATCAOSM+24 02945000 ATCAP12 EQU ATCAOSM+20 02946000 ATCAP11 EQU ATCAOSM+16 02947000 ATCCMTCB EQU ATCAOSM+12 02948000 ATCPRPH EQU ATCAOSM+8 02949000 ATCGSRBF EQU ATCGSRBG 02950000 ATCSRBRT EQU ATCAOSM 02951000 ATCRSVBB EQU ISTATCVT+908 02952000 ATCVDLOK EQU ISTATCVT+904 02953000 ATCVFPAB EQU ISTATCVT+872 02954000 ATCVDPAB EQU ISTATCVT+840 02955000 ATCIOECB EQU ISTATCVT+836 02956000 ATCINCW3 EQU ISTATCVT+832 02957000 ATCMODTB EQU ISTATCVT+828 02958000 ATCUSSPT EQU ISTATCVT+824 02959000 ATCSRTAB EQU ISTATCVT+820 02960000 @NM00067 EQU ISTATCVT+818 02961000 ATCNMCTR EQU ISTATCVT+816 02962000 ATCSEC51 EQU ATCSECST 02963000 ATCSEC40 EQU ATCSIPD+8 02964000 ATCSEC30 EQU ATCSIPD+4 02965000 ATCSEC21 EQU ATCSIPD 02966000 ATCSEC10 EQU ATCSOPD+4 02967000 ATCSEC01 EQU ATCSOPD 02968000 ATCPOIA EQU ISTATCVT+788 02969000 ATCPODVT EQU ISTATCVT+784 02970000 ATCS49XL EQU ISTATCVT+780 02971000 ATCS49XI EQU ISTATCVT+776 02972000 ATCLCLCT EQU ATCVLCNT+2 02973000 ATCRNCNT EQU ATCVLCNT 02974000 ATCCFEAD EQU ISTATCVT+768 02975000 ATCPTR00 EQU ISTATCVT+736 02976000 ATCRSV10 EQU ISTATCVT+704 02977000 ATCTACB EQU ISTATCVT+700 02978000 ATCVTINM EQU ISTATCVT+696 02979000 ATCTCLIM EQU ISTATCVT+692 02980000 ATCTCLOM EQU ISTATCVT+688 02981000 ATCVTIPB EQU ISTATCVT+656 02982000 ATCTCIPB EQU ISTATCVT+624 02983000 ATCTIPAB EQU ISTATCVT+592 02984000 ATCOCCCB EQU ISTATCVT+588 02985000 ATCOCCOB EQU ISTATCVT+584 02986000 ATCCDLAD EQU ISTATCVT+580 02987000 ATCCCLAD EQU ISTATCVT+576 02988000 ATCDLRPB EQU ISTATCVT+544 02989000 ATCPGPAB EQU ISTATCVT+512 02990000 ATCVPAB1 EQU ISTATCVT+480 02991000 ATCRSV97 EQU ISTATCVT+476 02992000 ATCRDTLK EQU ISTATCVT+472 02993000 ATCVOCLK EQU ISTATCVT+468 02994000 ATCCDFDN EQU ISTATCVT+464 02995000 ATCCDFIN EQU ISTATCVT+460 02996000 ATCDVTLK EQU ISTATCVT+456 02997000 ATCAP36 EQU ISTATCVT+452 02998000 ATCAP35 EQU ISTATCVT+448 02999000 ATCAP33 EQU ISTATCVT+444 03000000 ATCRSV99 EQU ISTATCVT+412 03001000 ATCLDECB EQU ISTATCVT+408 03002000 ATCLDNCS EQU ISTATCVT+404 03003000 ATCCDPTR EQU ISTATCVT+400 03004000 ATCADEL EQU ISTATCVT+396 03005000 ATCTODVT EQU ISTATCVT+392 03006000 ATCDEBCH EQU ISTATCVT+388 03007000 ATCHBSIZ EQU ATCHPGM+2 03008000 ATCHBFNO EQU ATCHPGM 03009000 ATCCRME EQU ISTATCVT+380 03010000 ATCRVCHS EQU ISTATCVT+372 03011000 ATCECTLP EQU ISTATCVT+368 03012000 ATCZDVTB EQU ISTATCVT+364 03013000 ATCECPRT EQU ISTATCVT+360 03014000 ATCVTLOD EQU ISTATCVT+356 03015000 ATCTRPAB EQU ISTATCVT+352 03016000 ATCMSGM EQU ISTATCVT+348 03017000 ATCMSGP EQU ISTATCVT+344 03018000 ATCEPT EQU ISTATCVT+340 03019000 ATCDVT EQU ISTATCVT+336 03020000 ATCTRCPT EQU ISTATCVT+332 03021000 ATCDVLOD EQU ISTATCVT+328 03022000 ATCALERT EQU ISTATCVT+324 03023000 ATCEPA EQU ISTATCVT+320 03024000 ATCSAF EQU ISTATCVT+318 03025000 ATCXRANG EQU ISTATCVT+317 03026000 ATCLAST EQU ATCSHRFG 03027000 ATCSHRTN EQU ISTATCVT+308 03028000 ATCUEP EQU ISTATCVT+304 03029000 ATCOCRT EQU ISTATCVT+300 03030000 ATCCSMA EQU ATCCSMR 03031000 ATCESC02 EQU ISTATCVT+292 03032000 ATCESC01 EQU ISTATCVT+288 03033000 ATCCDFND EQU ISTATCVT+284 03034000 ATCCDDEL EQU ISTATCVT+280 03035000 ATCCDADD EQU ISTATCVT+276 03036000 ATCMNT EQU ISTATCVT+272 03037000 ATCRSV16 EQU ISTATCVT+270 03038000 ATCMAXID EQU ISTATCVT+269 03039000 ATCMSGSP EQU ATCCOM+268 03040000 ATCCIDM EQU ATCCOM+266 03041000 ATCACTRM EQU ATCCOM+264 03042000 ATCNERAP EQU ATCCOM+260 03043000 ATCNESAL EQU ATCCOM+256 03044000 ATCRCC65 EQU ATCCOM+252 03045000 ATCRCC26 EQU ATCCOM+248 03046000 ATCRCC63 EQU ATCCOM+244 03047000 ATCRSV11 EQU ATCCOM+242 03048000 ATCVTMID EQU ATCCOM+240 03049000 ATCAPOST EQU ATCCOM+236 03050000 ATCNERFN EQU ATCCOM+232 03051000 ATCNERNE EQU ATCCOM+228 03052000 ATCNERCV EQU ATCCOM+224 03053000 ATCNERST EQU ATCCOM+220 03054000 ATCDCC61 EQU ATCCOM+216 03055000 ATCDCC60 EQU ATCCOM+212 03056000 ATCSRTDF EQU ATCCOM+208 03057000 ATCSRTAD EQU ATCCOM+204 03058000 ATCFIRA EQU ATCCOM+200 03059000 ATCSMBQ EQU ATCCOM+196 03060000 ATCSMRC EQU ATCCOM+192 03061000 ATCSMRS EQU ATCCOM+188 03062000 ATCSMQU EQU ATCCOM+184 03063000 ATCSMRQ EQU ATCCOM+180 03064000 ATCACDA EQU ATCCOM+176 03065000 ATCSTMA EQU ATCCOM+172 03066000 ATCFRSTR EQU ATCCOM+168 03067000 ATCGTSTR EQU ATCCOM+164 03068000 ATCREADA EQU ATCCOM+160 03069000 ATCALOAD EQU ATCCOM+156 03070000 ATCBLDLA EQU ATCCOM+152 03071000 ATCFBRPH EQU ATCCOM+148 03072000 ATCBFTRC EQU ATCCOM+144 03073000 ATCTPBUF EQU ATCTHTRC 03074000 ATCREMOV EQU ATCCOM+136 03075000 ATCADD EQU ATCCOM+132 03076000 ATCBPDA EQU ATCCOM+128 03077000 ATCDVTPT EQU ATCCOM+124 03078000 ATCFEPT EQU ATCCOM+120 03079000 ATCFDVT EQU ATCCOM+116 03080000 ATCCONFT EQU ATCCOM+112 03081000 ATCPTCHA EQU ATCCOM+108 03082000 ATCAUTHA EQU ATCCOM+104 03083000 ATCACCTA EQU ATCCOM+100 03084000 ATCRDTH EQU ATCCOM+96 03085000 ATCFRSCH EQU ATCCOM+92 03086000 ATCFSB EQU ATCCOM+88 03087000 ATCHLTMS EQU ATCCOM+84 03088000 ATCECPRM EQU ATCCOM+80 03089000 ATCECNET EQU ATCCOM+76 03090000 ATCECOPC EQU ATCCOM+72 03091000 ATCVPARM EQU ATCCOM+68 03092000 ATCECVRQ EQU ATCCOM+64 03093000 ATCECSES EQU ATCCOM+60 03094000 ATCOCHA EQU ATCCOM+56 03095000 ATCDSPLQ EQU ATCCOM+52 03096000 ATCECDSP EQU ATCCOM+48 03097000 ATCVARYQ EQU ATCCOM+44 03098000 ATCECVRY EQU ATCCOM+40 03099000 ATCHALTQ EQU ATCCOM+36 03100000 ATCECHLT EQU ATCCOM+32 03101000 ATCMODQ EQU ATCCOM+28 03102000 ATCECMOD EQU ATCCOM+24 03103000 ATCASCHD EQU ATCCOM+20 03104000 ATCSRT EQU ATCCOM+16 03105000 ATCRDT EQU ATCCOM+12 03106000 ATCDCFRR EQU ATCCOM+8 03107000 ATCAPI EQU ATCCOM+4 03108000 ATCRSV04 EQU ATCSTAT4 03109000 ATCNCSD EQU ATCSTAT4 03110000 ATCMTST EQU ATCSTAT4 03111000 ATCTPRT EQU ATCSTAT4 03112000 ATCPRTAT EQU ATCSTAT4 03113000 @NM00066 EQU ATCPOFLG 03114000 ATCPOUNS EQU ATCPOFLG 03115000 ATCHSDMF EQU ATCSTFLG 03116000 @NM00065 EQU ATCSTAT1 03117000 ATCINHLT EQU ATCSTAT1 03118000 ATCNETSL EQU ATCSTAT1 03119000 ATCQKHLT EQU ATCSTAT1 03120000 ATCSNHLT EQU ATCSTAT1 03121000 ATCACTIV EQU ATCSTAT1 03122000 ATCSTART EQU ATCSTAT1 03123000 DYPPAB EQU ISTDYPAB+16 03124000 DYPRSV01 EQU ISTDYPAB+12 03125000 DYPTSKID EQU ISTDYPAB+8 03126000 DYPCHAIN EQU ISTDYPAB+4 03127000 DYPFLGS EQU ISTDYPAB+2 03128000 DYPLNGTH EQU ISTDYPAB+1 03129000 DYPTYPE EQU ISTDYPAB 03130000 ICNZCON6 EQU ICNZCONS+10 03131000 ICNZCON5 EQU ICNZCONS+8 03132000 ICNZCON4 EQU ICNZCONS+6 03133000 ICNZCON3 EQU ICNZCONS+4 03134000 ICNZCON2 EQU ICNZCONS+2 03135000 ICNZCON1 EQU ICNZCONS 03136000 ICNZATSA EQU ISTICNCB+676 03137000 ICNSRB EQU ISTICNCB+628 03138000 ICNZX013 EQU ISTICNCB+511 03139000 ICNZS010 EQU ICNZH002+1 03140000 ICNZS00F EQU ICNZH002+1 03141000 ICNZS00E EQU ICNZH002+1 03142000 ICNZS00D EQU ICNZH002+1 03143000 ICNZS00C EQU ICNZH002+1 03144000 ICNZS00B EQU ICNZH002+1 03145000 ICNZS01A EQU ICNZS00A 03146000 ICNZS019 EQU ICNZS009 03147000 ICNZS018 EQU ICNZS008 03148000 ICNZS017 EQU ICNZS007 03149000 ICNZS016 EQU ICNZS006 03150000 ICNZS005 EQU ICNZH002 03151000 ICNZS014 EQU ICNZS004 03152000 ICNZS013 EQU ICNZS003 03153000 ICNZS012 EQU ICNZS002 03154000 ICNZS001 EQU ICNZH002 03155000 ICNZF028 EQU ICNZFLAG 03156000 ICNZF027 EQU ICNZFLAG 03157000 ICNZF025 EQU ICNZFLAG 03158000 ICNZF021 EQU ICNZFLAG 03159000 ICNWORD5 EQU ISTICNCB+504 03160000 ICNMSIZE EQU ISTICNCB+500 03161000 ICNLCVTA EQU ISTICNCB+496 03162000 ICNDEBAD EQU ICNDIDEB+1 03163000 ICNDCBIF EQU ICNDIDEB 03164000 ICNUCBAD EQU ICNDCDEB+8 03165000 ICNAPPAD EQU ICNDCDEB+5 03166000 ICNEXSCL EQU ICNDCDEB+4 03167000 ICNDCBAD EQU ICNDCDEB+1 03168000 ICNDEBID EQU ICNDCDEB 03169000 @NM00064 EQU ISTICNCB+477 03170000 ICNERCNT EQU ISTICNCB+476 03171000 ICNZX002 EQU ISTICNCB+475 03172000 ICNZSW3R EQU ISTICNCB+468 03173000 ICNZSW2R EQU ISTICNCB+464 03174000 ICNZSW1R EQU ISTICNCB+460 03175000 ICNZS4VR EQU ISTICNCB+436 03176000 ICNZS4RR EQU ISTICNCB+432 03177000 ICNZS4FC EQU ISTICNCB+428 03178000 ICNZS4BC EQU ISTICNCB+424 03179000 ICNZS3VR EQU ISTICNCB+400 03180000 ICNZS3RR EQU ISTICNCB+396 03181000 ICNZS3FC EQU ISTICNCB+392 03182000 ICNZS3BC EQU ISTICNCB+388 03183000 ICNZS1RC EQU ICNZS1VR+36 03184000 ICNDIEW3 EQU ICNDIEWA+8 03185000 ICNDIEW2 EQU ICNDIEWA+4 03186000 ICNDIEW1 EQU ICNDIEWA 03187000 ICNZS1RR EQU ISTICNCB+344 03188000 ICNZS1FC EQU ISTICNCB+340 03189000 ICNZS1BC EQU ISTICNCB+336 03190000 ICNRSTIC EQU ICNZD004 03191000 ICNRDCOD EQU ICNRSCCW 03192000 ICNZD006 EQU ISTICNCB+312 03193000 ICNZD005 EQU ISTICNCB+304 03194000 ICNWSTIC EQU ICNZD002 03195000 ICNWRCOD EQU ICNWSCCW 03196000 ICNZV008 EQU ISTICNCB+284 03197000 ICNZV007 EQU ISTICNCB+280 03198000 ICNZV005 EQU ISTICNCB+272 03199000 ICNZV004 EQU ISTICNCB+268 03200000 ICNLSTIF EQU ISTICNCB+260 03201000 ICNZV002 EQU ISTICNCB+256 03202000 ICNZV001 EQU ISTICNCB+252 03203000 ICNZV00A EQU ISTICNCB+249 03204000 ICNBUFF EQU ISTICNCB+248 03205000 ICNCPQ EQU ISTICNCB+244 03206000 ICNNICNA EQU ISTICNCB+240 03207000 @NM00063 EQU ICNFLAG2+2 03208000 ICNZF019 EQU ICNFLAG2+2 03209000 ICNZF018 EQU ICNFLAG2+2 03210000 ICNZF017 EQU ICNFLAG2+2 03211000 ICNZF016 EQU ICNFLAG2+2 03212000 ICNZF015 EQU ICNFLAG2+2 03213000 ICNMSG EQU ICNFLAG2+1 03214000 ICNZF014 EQU ICNFLAG2+1 03215000 ICNZF013 EQU ICNFLAG2+1 03216000 ICNZF012 EQU ICNFLAG2+1 03217000 ICNZF011 EQU ICNFLAG2+1 03218000 ICNZF00D EQU ICNFLAG2+1 03219000 ICNZF00B EQU ICNFLAG2+1 03220000 ICNZF00A EQU ICNFLAG2 03221000 ICNZF007 EQU ICNFLAG2 03222000 ICNZF005 EQU ICNFLAG2 03223000 ICNZF004 EQU ICNFLAG2 03224000 ICNZF003 EQU ICNFLAG2 03225000 ICNZF002 EQU ICNFLAG2 03226000 ICNZF001 EQU ICNFLAG2 03227000 ICNLOCK EQU ISTICNCB+232 03228000 ICNLICNA EQU ISTICNCB+228 03229000 ICNZV003 EQU ISTICNCB+116 03230000 ICNLAST EQU ISTICNCB+112 03231000 ICNLSTBT EQU ISTICNCB+108 03232000 ICNSIOQ EQU ISTICNCB+104 03233000 ICNFLAG1 EQU ISTICNCB+103 03234000 ICNZSW08 EQU ICNZSWS 03235000 ICNZSW07 EQU ICNZSWS 03236000 ICNZSW06 EQU ICNZSWS 03237000 ICNZSW05 EQU ICNZSWS 03238000 ICNZSW04 EQU ICNZSWS 03239000 ICNZSW03 EQU ICNZSWS 03240000 ICNZSW02 EQU ICNZSWS 03241000 ICNZSW01 EQU ICNZSWS 03242000 ICNZFF69 EQU ICNFFLAG 03243000 @NM00062 EQU ICNFFLAG 03244000 ICNZFF05 EQU ICNFFLAG 03245000 ICNZFF04 EQU ICNFFLAG 03246000 ICNZFF03 EQU ICNFFLAG 03247000 ICNZFF02 EQU ICNFFLAG 03248000 ICNZFF01 EQU ICNFFLAG 03249000 ICNZFF00 EQU ICNFFLAG 03250000 @NM00061 EQU ICNFLAG 03251000 ICNZCRIT EQU ICNFLAG 03252000 ICNSTART EQU ICNFLAG 03253000 ICNSLOW EQU ICNFLAG 03254000 ICNZF010 EQU ICNFLAG 03255000 ICNZF00F EQU ICNFLAG 03256000 ICNZF00E EQU ICNFLAG 03257000 ICNCONF EQU ICNZF006 03258000 ICNCKPAB EQU ICNCKFLD+1 03259000 ICNRSV07 EQU ICNCKFLD 03260000 ICNCKBIT EQU ICNCKFLD 03261000 ICNZPAB4 EQU ISTICNCB+80 03262000 ICNZPAB1 EQU ISTICNCB+64 03263000 ICNRSV01 EQU ISTICNCB+60 03264000 @NM00060 EQU ISTICNCB+56 03265000 @NM00059 EQU ISTICNCB+54 03266000 @NM00058 EQU @NM00057 03267000 ICNRRY EQU @NM00057 03268000 ICNROLN EQU @NM00057 03269000 ICNRNRY EQU @NM00057 03270000 ICNLNKMD EQU ISTICNCB+52 03271000 ICNCUUA EQU ISTICNCB+48 03272000 ICNCB EQU ISTICNCB 03273000 NCBRSV01 EQU ISTNCB+46 03274000 NCBSWDAF EQU ISTNCB+44 03275000 NCBDEVCH EQU ISTNCB+36 03276000 NCBFMCBP EQU ISTNCB+32 03277000 NCBLTRC EQU ISTNCB+30 03278000 NCBRVPT1 EQU ISTNCB+28 03279000 NCBNMLLN EQU NCBFLAGS+3 03280000 @NM00056 EQU NCBFLAG1 03281000 @NM00055 EQU NCBFLAG1 03282000 NCBTTF EQU NCBFLAG1 03283000 NCBRSYNC EQU NCBFLAG1 03284000 NCBRSTRT EQU NCBFLAG1 03285000 NCBCONF EQU NCBFLAG1 03286000 NCBSNAI EQU NCBFLAG1 03287000 NCBFLTIO EQU NCBFTRIO 03288000 NCBCSTAT EQU NCBFLAGS 03289000 NCBNCSL EQU ISTNCB+22 03290000 NCBNCBA EQU ISTNCB+20 03291000 NCBFMCBA EQU ISTNCB+16 03292000 NCBNSNA EQU ISTNCB+12 03293000 NCBTSKID EQU ISTNCB+8 03294000 NCBDAF EQU ISTNCB+2 03295000 NCBLNGTH EQU ISTNCB+1 03296000 NCBTYPE EQU ISTNCB 03297000 RPHNEXPO EQU ISTRPH+104 03298000 RPHSAV16 EQU RPHWORK+60 03299000 RPHSAV15 EQU RPHWORK+56 03300000 RPHSAV14 EQU RPHWORK+52 03301000 RPHSAV13 EQU RPHWORK+48 03302000 RPHSAV12 EQU RPHWORK+44 03303000 RPHSAV11 EQU RPHWORK+40 03304000 RPHSAV10 EQU RPHWORK+36 03305000 RPHSAVE9 EQU RPHWORK+32 03306000 RPHSAVE8 EQU RPHWORK+28 03307000 RPHSAVE7 EQU RPHWORK+24 03308000 RPHSAVE6 EQU RPHWORK+20 03309000 RPHSAVE5 EQU RPHWORK+16 03310000 RPHSAVE4 EQU RPHWORK+12 03311000 RPHSAVE3 EQU RPHWORK+8 03312000 RPHSAVE2 EQU RPHWORK+4 03313000 RPHSHALF EQU RPHSAVE1+2 03314000 RPHSBIT8 EQU RPHSBITS 03315000 RPHSBIT7 EQU RPHSBITS 03316000 RPHSBIT6 EQU RPHSBITS 03317000 RPHSBIT5 EQU RPHSBITS 03318000 RPHSBIT4 EQU RPHSBITS 03319000 RPHSBIT3 EQU RPHSBITS 03320000 RPHSBIT2 EQU RPHSBITS 03321000 RPHSBIT1 EQU RPHSBITS 03322000 RPHSBYTE EQU RPHSAVE1 03323000 RPHPABQP EQU RPHPABQA+1 03324000 RPHPABFG EQU RPHPABQA 03325000 RPHCRR EQU ISTRPH+32 03326000 RPHSRP34 EQU RPHSRPRM+2 03327000 RPHSRP12 EQU RPHSRPRM 03328000 RPHWEGT EQU RPHCSPA 03329000 RPHMAJCB EQU ISTRPH+21 03330000 RPHPABOF EQU ISTRPH+20 03331000 RPHRESUM EQU RPHRESMA+1 03332000 RPHRSV01 EQU RPHWPFLG 03333000 RPHPURGE EQU RPHWPFLG 03334000 RPHPT EQU RPHWPFLG 03335000 RPHWT EQU RPHWPFLG 03336000 RPHRSKEY EQU RPHWPFLG 03337000 RPHDVTA EQU ISTRPH+12 03338000 RPHTIK EQU RPHTSKID+3 03339000 @NM00054 EQU RPHTSKID 03340000 RPHRPHAP EQU RPHRPHA+1 03341000 @NM00053 EQU RPHRPHA 03342000 RPHGATE EQU RPHRPHA 03343000 @NM00052 EQU RPHFLGB 03344000 RPHRLCRA EQU RPHFLGB 03345000 RPHNRSAV EQU RPHFLGB 03346000 RPHPGCMP EQU RPHFLGB 03347000 RPHFBAPS EQU RPHFLGB 03348000 RPHBSSP EQU RPHFLGB 03349000 RPHLOCK EQU RPHFLGB 03350000 RPHFNFLG EQU RPHFSTLC 03351000 RPHMLTCP EQU RPHFLAGS 03352000 RPHSMCLR EQU RPHFLAGS 03353000 RPHSMTYP EQU RPHFLAGS 03354000 RPHSMQ EQU RPHFLAGS 03355000 RPHAUTEX EQU RPHAPTYP 03356000 RPHSPGIN EQU RPHFLAGS 03357000 RPHOGIND EQU RPHFLAGS 03358000 RPHLNGTH EQU ISTRPH+1 03359000 RPHTYPE EQU ISTRPH 03360000 PABRPHA EQU PABRPHFG+1 03361000 PABNODQ EQU PABFLAGS 03362000 PABINHBT EQU PABFLAGS 03363000 PABERLOK EQU PABERRLK 03364000 PABSSN EQU PABFLAGS 03365000 PABDYNAM EQU PABFLAGS 03366000 PABNORPR EQU PABFLAGS 03367000 PABPRIOR EQU PABFLAGS 03368000 PABAPYP EQU PABFLAGS 03369000 PABDVTA EQU ISTPAB+9 03370000 PABOFFST EQU ISTPAB+8 03371000 PABCHNGP EQU PABCHAIN+1 03372000 PABRSV02 EQU PABCHAIN 03373000 PABRUNNG EQU PABCHAIN 03374000 PABRESET EQU PABCHAIN 03375000 PABUNCON EQU PABCHAIN 03376000 PABCDP EQU PABCHAIN 03377000 PABRESCH EQU PABCHAIN 03378000 PABCHNG EQU PABCHAIN 03379000 PABWEQP EQU PABWEQA+1 03380000 PABRSV01 EQU PABWEQA 03381000 PABWEQG EQU PABWEQA 03382000 LOKXCL EQU @NM00050 03383000 LOKPRY EQU @NM00050 03384000 @NM00051 EQU @NM00050 03385000 @NM00049 EQU LOKCHNG 03386000 LOKCT EQU ISTLOK 03387000 DEVRSV03 EQU ISTDEVCH+5 03388000 DEVPHYSA EQU ISTDEVCH+4 03389000 DEVCSLPN EQU DEVCHAR3 03390000 DEVCSTCL EQU DEVCHAR3 03391000 DEVCCHEK EQU DEVCHAR3 03392000 DEVCATTN EQU DEVCHAR3 03393000 DEVCSWL EQU DEVFCCTL 03394000 DEVCRVB EQU DEVFCCTL 03395000 DEVCSSL EQU DEVFCCTL 03396000 DEVCBSC EQU DEVFCCTL 03397000 DEVMCODE EQU ISTDEVCH+2 03398000 DEVCHAR2 EQU DEVTCODE 03399000 DEVRSV01 EQU DEVCHAR 03400000 DEVCCTL EQU DEVCHAR 03401000 DEVNNSPT EQU DEVCHAR 03402000 DEVSPS EQU DEVCHAR 03403000 DEVSUBND EQU DEVCHAR 03404000 DEVCONVR EQU DEVCHAR 03405000 DEVOTPUT EQU DEVCHAR 03406000 DEVINPUT EQU DEVCHAR 03407000 EWACPU EQU EWA+27 03408000 @NM00048 EQU EWA+26 03409000 EWACSEQ EQU EWAXCSW2 03410000 EWACDIN EQU EWAXCSW2 03411000 @NM00047 EQU EWAXCSW2 03412000 EWACTEC EQU EWAXCSW2 03413000 EWACDAV EQU EWAXCSW1 03414000 EWACCHV EQU EWAXCSW1 03415000 EWACCMD EQU EWAXCSW1 03416000 EWACUNS EQU EWAXCSW1 03417000 EWACSQV EQU EWAXCSW1 03418000 @NM00046 EQU EWAXCSW1 03419000 EWACITF EQU EWAXCSW1 03420000 @NM00045 EQU EWARGFG2 03421000 EWACCUE EQU EWARGFG2 03422000 EWACSTG EQU EWARGFG2 03423000 EWACSCU EQU EWARGFG2 03424000 EWACCHA EQU EWARGFG2 03425000 EWACCPU EQU EWARGFG2 03426000 EWANORTY EQU EWARGFG1 03427000 EWACCNT EQU EWARGFG1 03428000 EWACSNS EQU EWARGFG1 03429000 @NM00044 EQU EWARGFG1 03430000 EWACHIO EQU EWARGFG1 03431000 EWACTIO EQU EWARGFG1 03432000 EWACINT EQU EWARGFG1 03433000 EWACSIO EQU EWARGFG1 03434000 EWAUCB EQU EWAERPIB+1 03435000 @NM00043 EQU EWAERPIB 03436000 EWACNTR4 EQU EWACNTRS+3 03437000 EWACNTR3 EQU EWACNTRS+2 03438000 EWACNTR2 EQU EWACNTRS+1 03439000 EWACNTR1 EQU EWACNTRS 03440000 EWASSTAT EQU EWA+8 03441000 EWASCTMX EQU EWASNSCT 03442000 @NM00042 EQU EWASNSCT 03443000 EWAFLG3 EQU EWAFLAGS+2 03444000 @NM00041 EQU EWAFLG2 03445000 EWADIR EQU EWAFLG2 03446000 EWACOVF EQU EWAFLG2 03447000 EWAWTEMP EQU EWAFLG2 03448000 EWAMDR EQU EWAFLG2 03449000 EWABDSNS EQU EWAFLG1 03450000 EWADDMSG EQU EWAFLG1 03451000 EWASCC1 EQU EWASCC3 03452000 EWASCC2 EQU EWASCC3 03453000 @NM00040 EQU EWAFLG1 03454000 EWASLIS EQU EWAFLG1 03455000 EWAEXT EQU EWAHDR 03456000 @NM00039 EQU SRBSECT+40 03457000 @NM00038 EQU SRBSECT+38 03458000 SRBPRIOR EQU SRBSECT+37 03459000 SRBPKF EQU SRBSECT+36 03460000 SRBSAVE EQU SRBSECT+32 03461000 SRBPARM EQU SRBSECT+28 03462000 SRBRMTR EQU SRBSECT+24 03463000 SRBEP EQU SRBSECT+20 03464000 SRBPTCB EQU SRBFLC+4 03465000 SRBPASID EQU SRBFLC+2 03466000 SRBCPAFF EQU SRBFLC 03467000 SRBASCB EQU SRBSECT+8 03468000 SRBFLNK EQU SRBSECT+4 03469000 SRBID EQU SRBSECT 03470000 IOSEND EQU IOSB+108 03471000 IOSSKR EQU IOSEEKA+7 03472000 IOSSKH2 EQU IOSSKHH+1 03473000 IOSSKH1 EQU IOSSKHH 03474000 IOSSKCC EQU IOSCCHH 03475000 IOSSKBB EQU IOSEEKA+1 03476000 IOSSKM EQU IOSEEKA 03477000 IOSEEK EQU IOSB+92 03478000 IOSMDM EQU IOSB+91 03479000 IOSMDB EQU IOSB+90 03480000 IOSCKEY7 EQU IOSCKEY 03481000 IOSCKEY6 EQU IOSCKEY 03482000 IOSCKEY5 EQU IOSCKEY 03483000 IOSCKEY4 EQU IOSCKEY 03484000 @NM00034 EQU IOSCKEY 03485000 IOSFMSK EQU IOSB+88 03486000 IOSCUDEV EQU IOSPATH+1 03487000 @NM00033 EQU IOSCHN 03488000 IOSPATH3 EQU IOSCHN 03489000 IOSPATH2 EQU IOSCHN 03490000 IOSEXP EQU IOSCHN 03491000 IOSGDP EQU IOSCHN 03492000 IOSAFF EQU IOSB+85 03493000 IOSRSS1B EQU IOSB+84 03494000 IOSDSID EQU IOSB+80 03495000 IOSVST EQU IOSB+76 03496000 IOSRST EQU IOSB+72 03497000 IOSDIE EQU IOSB+68 03498000 IOSABN EQU IOSB+64 03499000 IOSNRM EQU IOSB+60 03500000 IOSPCI EQU IOSB+56 03501000 IOSPCHN EQU IOSB+48 03502000 IOSAPMSK EQU IOSB+40 03503000 IOSRES4A EQU IOSB+36 03504000 IOSUSE EQU IOSB+32 03505000 IOSSRB EQU IOSB+28 03506000 IOSCSWRC EQU IOSCSW+5 03507000 IOSTSB EQU IOSTATUS+1 03508000 IOSTSA EQU IOSTATUS 03509000 IOSCC EQU @NM00032 03510000 IOSOPT2X EQU IOSOPT2 03511000 IOSHTP EQU IOSOPT2 03512000 IOSRELSE EQU IOSOPT 03513000 IOSAPR EQU IOSOPT 03514000 IOSTSLL EQU IOSOPT 03515000 IOSNERP EQU IOSOPT 03516000 IOSPSLL EQU IOSOPT 03517000 IOSQISCE EQU IOSOPT 03518000 IOSDEP EQU IOSOPT 03519000 IOSBYP EQU IOSOPT 03520000 IOSCOD EQU IOSB+13 03521000 IOSPKY7 EQU IOSPKEY 03522000 IOSPGDPX EQU IOSPKEY 03523000 IOSIDR EQU IOSPKEY 03524000 IOSLCL EQU IOSPKEY 03525000 @NM00031 EQU IOSPKEY 03526000 IOSPGAD EQU IOSB+8 03527000 IOSASID EQU IOSB+6 03528000 IOSPRLVL EQU IOSB+5 03529000 IOSDVRID EQU IOSB+4 03530000 IOSPROC EQU IOSB+3 03531000 IOSFLC7 EQU IOSFLC 03532000 IOSFLC6 EQU IOSFLC 03533000 IOSGLC5 EQU IOSFLC 03534000 IOSFLC4 EQU IOSFLC 03535000 IOSFLC3 EQU IOSFLC 03536000 IOSFLC2 EQU IOSFLC 03537000 IOSVERIF EQU IOSDVALT 03538000 IOSDVMNT EQU IOSFLC 03539000 IOSBDCST EQU IOSFLB 03540000 IOSFLB4 EQU IOSFLB 03541000 IOSFLB3 EQU IOSFLB 03542000 IOSFLB2 EQU IOSFLB 03543000 IOSFLB1 EQU IOSFLB 03544000 IOSDIESE EQU IOSFLB 03545000 IOSIOSB EQU IOSFLA 03546000 IOSDOM EQU IOSFLA 03547000 IOSSMDB EQU IOSFLA 03548000 IOSSMDA EQU IOSFLA 03549000 IOSERR EQU IOSFLA 03550000 IOSCCHN EQU IOSACHN 03551000 IOSDCHN EQU IOSACHN 03552000 UCBERADR EQU UCBUCS+12 03553000 UCBFCBID EQU UCBUCS+8 03554000 UCBERCNT EQU UCBUCS+7 03555000 UCBRSV51 EQU UCBUCS+6 03556000 UCBRSV50 EQU UCBFCBOP 03557000 UCBRSV49 EQU UCBFCBOP 03558000 UCBRSV48 EQU UCBFCBOP 03559000 UCBRSV47 EQU UCBFCBOP 03560000 UCBRSV46 EQU UCBFCBOP 03561000 UCBRSV45 EQU UCBFCBOP 03562000 UCBRSV44 EQU UCBFCBOP 03563000 UCBFCBO1 EQU UCBFCBOP 03564000 UCBUCSPE EQU UCBUCSOP 03565000 UCBRSV43 EQU UCBUCSOP 03566000 UCBRSV42 EQU UCBUCSOP 03567000 UCBRSV41 EQU UCBUCSOP 03568000 UCBRSV40 EQU UCBUCSOP 03569000 UCBRSV39 EQU UCBUCSOP 03570000 UCBUCSO2 EQU UCBUCSOP 03571000 UCBUCSO1 EQU UCBUCSOP 03572000 UCBUCSID EQU UCBUCS 03573000 UCBMDRBA EQU UCBMDRBF+1 03574000 UCBRV075 EQU UCBMDRBF 03575000 UCBRV074 EQU UCB3800X+32 03576000 UCBIMAGE EQU UCB3800X+28 03577000 UCBFCBNM EQU UCB3800X+24 03578000 UCBCHAR4 EQU UCB3800X+20 03579000 UCBCHAR3 EQU UCB3800X+16 03580000 UCBCHAR2 EQU UCB3800X+12 03581000 UCBCHAR1 EQU UCB3800X+8 03582000 UCBCGMID EQU UCB3800X+4 03583000 UCBBRSTA EQU UCBACTIV 03584000 UCBRV063 EQU UCBACTIV 03585000 UCBRV062 EQU UCBACTIV 03586000 UCBRV061 EQU UCBACTIV 03587000 UCBRV060 EQU UCBACTIV 03588000 UCBRV059 EQU UCBACTIV 03589000 UCBRV058 EQU UCBACTIV 03590000 UCBRV057 EQU UCBACTIV 03591000 UCBRV050 EQU UCB3800X+2 03592000 UCBCGMNO EQU UCB3800X+1 03593000 UCBRV083 EQU UCBOPTNS 03594000 UCBBRSTR EQU UCBOPTNS 03595000 UCBRV056 EQU UCBOPTNS 03596000 UCBRV055 EQU UCBOPTNS 03597000 UCBRV054 EQU UCBOPTNS 03598000 UCBRV053 EQU UCBOPTNS 03599000 UCBRV052 EQU UCBOPTNS 03600000 UCBRV051 EQU UCBOPTNS 03601000 UCBRV073 EQU UCB3540X+7 03602000 UCBRV072 EQU UCBDKBYT 03603000 UCBRV071 EQU UCBDKBYT 03604000 UCBRV070 EQU UCBDKBYT 03605000 UCBRV069 EQU UCBDKBYT 03606000 UCBRV068 EQU UCBDKBYT 03607000 UCBRV067 EQU UCBDKBYT 03608000 UCBVLVER EQU UCBDKBYT 03609000 UCBDKAMX EQU UCBDKBYT 03610000 UCBVLSER EQU UCB3540X 03611000 UCBRDATA EQU UCBOCR+4 03612000 UCBFRID EQU UCBOCR 03613000 UCBCLN EQU UCBMT+14 03614000 UCBERG EQU UCBMT+12 03615000 UCBMS EQU UCBMT+11 03616000 UCBNB EQU UCBMT+10 03617000 UCBPW EQU UCBMT+9 03618000 UCBPR EQU UCBMT+8 03619000 UCBSIO EQU UCBMT+6 03620000 UCBTW EQU UCBMT+5 03621000 UCBTR EQU UCBMT+4 03622000 UCBTWT EQU UCBMT+3 03623000 UCBTRT EQU UCBMT+2 03624000 UCBCTD EQU UCBMT 03625000 UCBWTOID EQU UCBCMEXT+17 03626000 UCBRV043 EQU UCBCMEXT+16 03627000 UCBASID EQU UCBCMEXT+14 03628000 UCBMFCNT EQU UCBCMEXT+12 03629000 UCBPMSK EQU UCBCMEXT+10 03630000 UCBCCWOF EQU UCBCMEXT+8 03631000 UCBRV041 EQU UCBCMEXT+6 03632000 UCBRV036 EQU UCBFLP1 03633000 UCBRV035 EQU UCBFLP1 03634000 UCBERLOG EQU UCBFLP1 03635000 UCBRV033 EQU UCBFLP1 03636000 UCBRV032 EQU UCBFLP1 03637000 UCBRV031 EQU UCBFLP1 03638000 UCBSHRUP EQU UCBFLP1 03639000 UCBNSRCH EQU UCBFLP1 03640000 UCBSNSCT EQU UCBCMEXT+4 03641000 UCBHPDV EQU @NM00030 03642000 UCBHALI EQU @NM00030 03643000 UCBRSV09 EQU @NM00030 03644000 UCBRSV08 EQU @NM00030 03645000 UCBRSV07 EQU @NM00030 03646000 UCBRSV06 EQU @NM00030 03647000 UCBRSV05 EQU @NM00030 03648000 UCBRSV04 EQU @NM00030 03649000 UCBDTI EQU UCBCMEXT+2 03650000 UCBSTI EQU UCBCMEXT+1 03651000 UCBETI EQU UCBCMEXT 03652000 UCBEXTP EQU UCBEXTPT+1 03653000 UCBDDRSW EQU UCBFLC 03654000 UCBTICBT EQU UCBFLC 03655000 UCBIVRR EQU UCBFLC 03656000 UCBIVRS EQU UCBFLC 03657000 UCBITF EQU UCBFLC 03658000 UCBUDE EQU UCBFLC 03659000 UCBWAA EQU UCBFLC 03660000 UCBATTP EQU UCBFLC 03661000 UCBUNTYP EQU UCBTBYT4 03662000 UCBRSV11 EQU UCBDVCLS 03663000 UCBRSV10 EQU UCBDVCLS 03664000 UCB3CHAR EQU UCBDVCLS 03665000 UCB3UREC EQU UCBDVCLS 03666000 UCB3DISP EQU UCBDVCLS 03667000 UCB3DACC EQU UCBDVCLS 03668000 UCB3COMM EQU UCBDVCLS 03669000 UCB3TAPE EQU UCBDVCLS 03670000 UCBDVPWR EQU UCB2OPT7 03671000 UCBVLPWR EQU UCB2OPT6 03672000 UCB2OPT5 EQU UCBTBYT2 03673000 UCBRVDEV EQU UCBRWTAU 03674000 UCBRPS EQU UCBDUDN2 03675000 UCBRR EQU UCBDUDN1 03676000 UCB2OPT1 EQU UCBTBYT2 03677000 UCB2OPT0 EQU UCBTBYT2 03678000 UCB1FEA7 EQU UCBTBYT1 03679000 UCBD6250 EQU UCB1FEA6 03680000 UCBD1600 EQU UCB1FEA5 03681000 UCB1FEA4 EQU UCBTBYT1 03682000 UCB1FEA3 EQU UCBTBYT1 03683000 UCB1FEA2 EQU UCBTBYT1 03684000 UCB1FEA1 EQU UCBTBYT1 03685000 UCB1FEA0 EQU UCBTBYT1 03686000 UCBNAME EQU UCBOB+13 03687000 UCBRV029 EQU UCBWGT 03688000 UCBVHRSN EQU UCBWGT 03689000 UCBVORSN EQU UCBWGT 03690000 UCBMTPXP EQU UCBWGT 03691000 UCBREW EQU UCBWGT 03692000 UCBPUB EQU UCBWGT 03693000 UCBOUT EQU UCBWGT 03694000 UCBIN EQU UCBWGT 03695000 UCBCPU EQU UCBOB+11 03696000 UCBLCI EQU UCBOB+10 03697000 UCBCNT EQU UCBOB+9 03698000 UCBRV017 EQU UCBCHM1 03699000 UCBRV016 EQU UCBCHM1 03700000 UCBRV015 EQU UCBCHM1 03701000 UCBRV014 EQU UCBCHM1 03702000 UCBSPB EQU UCBPTH1 03703000 UCBPPB EQU UCBPTH1 03704000 UCBSPA EQU UCBPTH0 03705000 UCBPPA EQU UCBPTH0 03706000 UCBSIGP EQU UCBFLB 03707000 UCBVALPH EQU UCBFLB 03708000 UCBCRHSN EQU UCBFLB 03709000 UCBCRHRV EQU UCBFLB 03710000 UCBRESVH EQU UCBFLB 03711000 UCBSPST EQU UCBFLB 03712000 UCBASNS EQU UCBFLB 03713000 UCBIORST EQU UCBFLB 03714000 UCBQISCE EQU UCBFL1 03715000 UCBACTV EQU UCBFL1 03716000 UCBSAP EQU UCBFL1 03717000 UCBNOTRC EQU UCBCUB 03718000 UCBPSNS EQU UCBFL1 03719000 UCBUSING EQU UCBPST 03720000 UCBNOTRD EQU UCBNRY 03721000 UCBBUSYD EQU UCBBSY 03722000 UCBUA EQU UCBCHAN+1 03723000 UCBCHA EQU UCBCHAN 03724000 UCBDADI EQU UCBSTAT 03725000 UCBSYSR EQU UCBSTAT 03726000 UCBPRES EQU UCBSTAT 03727000 UCBALOC EQU UCBSTAT 03728000 UCBUNLD EQU UCBSTAT 03729000 UCBRESV EQU UCBSTAT 03730000 UCBCHGS EQU UCBSTAT 03731000 UCBONLI EQU UCBSTAT 03732000 UCBID EQU UCBOB+2 03733000 UCBALTPH EQU UCBFL5 03734000 UCBALTCU EQU UCBFL5 03735000 UCBNALOC EQU UCBFL5 03736000 UCBENVRD EQU UCBFL5 03737000 UCBVSDR EQU UCBFL5 03738000 UCBSASK EQU UCBFL5 03739000 UCBAMV EQU UCBAF 03740000 UCBDCC EQU UCBFL5 03741000 UCBMONT EQU UCBJBNR 03742000 UCBRV011 EQU UCBJBNR 03743000 UCBRSV02 EQU UCBJBNR 03744000 UCBOLDSM EQU UCBJBNR 03745000 UCBRV003 EQU UCBJBNR 03746000 UCBRV002 EQU UCBJBNR 03747000 UCBJES3 EQU UCBJBNR 03748000 UCBVRDEV EQU UCBJBNR 03749000 UCBCMSEG EQU UCBOB 03750000 UCBPFXND EQU UCB+512 03751000 UCBIOQ EQU UCB+508 03752000 UCBLOCK EQU UCB+504 03753000 UCBPXST EQU UCB+504 03754000 @NM00027 EQU UCB 03755000 CVTLEVL EQU CVTRELNO+2 03756000 CVTNUMB EQU CVTRELNO 03757000 CVTMDL EQU CVTFIX+250 03758000 @NM00026 EQU CVTFIX+248 03759000 @NM00025 EQU CVTFIX 03760000 CVTRV482 EQU CVTXTNT2+128 03761000 CVTRV481 EQU CVTXTNT2+124 03762000 CVTRV480 EQU CVTXTNT2+120 03763000 CVTRV479 EQU CVTXTNT2+118 03764000 CVTRV478 EQU CVTXTNT2+117 03765000 CVTRV477 EQU CVTXTNT2+116 03766000 CVTRV476 EQU CVTXTNT2+115 03767000 CVTRV475 EQU CVTXTNT2+114 03768000 CVTRV474 EQU CVTRV466 03769000 CVTRV473 EQU CVTRV466 03770000 CVTRV472 EQU CVTRV466 03771000 CVTRV471 EQU CVTRV466 03772000 CVTRV470 EQU CVTRV466 03773000 CVTRV469 EQU CVTRV466 03774000 CVTRV468 EQU CVTRV466 03775000 CVTRV467 EQU CVTRV466 03776000 CVTRV465 EQU CVTRV457 03777000 CVTRV464 EQU CVTRV457 03778000 CVTRV463 EQU CVTRV457 03779000 CVTRV462 EQU CVTRV457 03780000 CVTRV461 EQU CVTRV457 03781000 CVTRV460 EQU CVTRV457 03782000 CVTRV459 EQU CVTRV457 03783000 CVTRV458 EQU CVTRV457 03784000 CVTRV456 EQU CVTXTNT2+108 03785000 CVTRV455 EQU CVTXTNT2+104 03786000 CVTRV454 EQU CVTXTNT2+100 03787000 CVTRV453 EQU CVTXTNT2+96 03788000 CVTRV452 EQU CVTXTNT2+94 03789000 CVTRV451 EQU CVTXTNT2+92 03790000 CVTRV450 EQU CVTXTNT2+90 03791000 CVTRV449 EQU CVTXTNT2+88 03792000 CVTRV448 EQU CVTXTNT2+87 03793000 CVTRV447 EQU CVTXTNT2+86 03794000 CVTRV446 EQU CVTRV438 03795000 CVTRV445 EQU CVTRV438 03796000 CVTRV444 EQU CVTRV438 03797000 CVTRV443 EQU CVTRV438 03798000 CVTRV442 EQU CVTRV438 03799000 CVTRV441 EQU CVTRV438 03800000 CVTRV440 EQU CVTRV438 03801000 CVTRV439 EQU CVTRV438 03802000 CVTRV437 EQU CVTRV429 03803000 CVTRV436 EQU CVTRV429 03804000 CVTRV435 EQU CVTRV429 03805000 CVTRV434 EQU CVTRV429 03806000 CVTRV433 EQU CVTRV429 03807000 CVTRV432 EQU CVTRV429 03808000 CVTRV431 EQU CVTRV429 03809000 CVTRV430 EQU CVTRV429 03810000 CVTRV428 EQU CVTXTNT2+80 03811000 CVTRV427 EQU CVTXTNT2+76 03812000 CVTRV426 EQU CVTXTNT2+72 03813000 CVTRV425 EQU CVTXTNT2+68 03814000 CVTATACT EQU CVTATCVT 03815000 CVTRV423 EQU CVTXTNT2+62 03816000 CVTRV422 EQU CVTXTNT2+60 03817000 CVTRV421 EQU CVTXTNT2+58 03818000 CVTRV420 EQU CVTXTNT2+56 03819000 CVTRV419 EQU CVTXTNT2+55 03820000 CVTRV418 EQU CVTXTNT2+54 03821000 CVTRV417 EQU CVTRV409 03822000 CVTRV416 EQU CVTRV409 03823000 CVTRV415 EQU CVTRV409 03824000 CVTRV414 EQU CVTRV409 03825000 CVTRV413 EQU CVTRV409 03826000 CVTRV412 EQU CVTRV409 03827000 CVTRV411 EQU CVTRV409 03828000 CVTRV410 EQU CVTRV409 03829000 CVTRV408 EQU CVTRV400 03830000 CVTRV407 EQU CVTRV400 03831000 CVTRV406 EQU CVTRV400 03832000 CVTRV405 EQU CVTRV400 03833000 CVTRV404 EQU CVTRV400 03834000 CVTRV403 EQU CVTRV400 03835000 CVTRV402 EQU CVTRV400 03836000 CVTRV401 EQU CVTRV400 03837000 CVTICB EQU CVTXTNT2+48 03838000 CVTSKTA EQU CVTXTNT2+44 03839000 CVTSHSB EQU CVTSHS 03840000 CVTRSV98 EQU CVTXTNT2+36 03841000 CVTRSV97 EQU CVTXTNT2+34 03842000 CVTRSV96 EQU CVTXTNT2+32 03843000 CVTOLTEP EQU CVTXTNT2+28 03844000 CVTQIDA EQU CVTQID+1 03845000 CVTRSV95 EQU CVTQID 03846000 CVTRSV94 EQU CVTXTNT2+20 03847000 CVTRSV93 EQU CVTXTNT2+16 03848000 CVTRSV92 EQU CVTXTNT2+12 03849000 CVTDEBVR EQU CVTXTNT2+8 03850000 CVTRSV91 EQU CVTXTNT2+6 03851000 CVTRSV9H EQU CVTFLGBT 03852000 CVTRSV9G EQU CVTFLGBT 03853000 CVTRSV9F EQU CVTFLGBT 03854000 CVTRSV9E EQU CVTFLGBT 03855000 CVTRSV9D EQU CVTFLGBT 03856000 CVTRSV9C EQU CVTFLGBT 03857000 CVTVME EQU CVTFLGBT 03858000 CVTNPE EQU CVTFLGBT 03859000 CVTNUCLS EQU CVTXTNT2+4 03860000 CVTDSSVA EQU CVTDSSV+1 03861000 CVTRSV89 EQU CVTDSSV 03862000 CVTRSV88 EQU CVTXTNT1+8 03863000 CVTRSV87 EQU CVTXTNT1+4 03864000 CVTFACHN EQU CVTXTNT1 03865000 CVTRV488 EQU CVTMAP+412 03866000 CVTRV487 EQU CVTMAP+408 03867000 CVTRV486 EQU CVTMAP+404 03868000 CVTRV485 EQU CVTMAP+400 03869000 CVTACTAP EQU CVTMAP+396 03870000 CVTAUTH EQU CVTMAP+392 03871000 CVTATMCA EQU CVTATMCT+1 03872000 CVTATMST EQU CVTATMCT 03873000 CVTRSV61 EQU CVTMAP+384 03874000 CVTVOLT1 EQU CVTVOLM1+1 03875000 CVTVOLI1 EQU CVTVOLF1 03876000 CVTSTOA EQU CVTMAP+376 03877000 CVTRSV58 EQU CVTMAP+374 03878000 CVTRSV57 EQU CVTMAP+372 03879000 CVTDDCE EQU CVTMAP+368 03880000 CVTPNWFR EQU CVTMAP+364 03881000 CVTSMF EQU CVTMAP+360 03882000 CVTSULK EQU CVTMAP+358 03883000 CVTSLKO EQU CVTSYSK 03884000 CVTSLKP EQU CVTSYSK 03885000 CVTSLKQ EQU CVTSYSK 03886000 CVTSLKR EQU CVTSYSK 03887000 CVTRSV56 EQU CVTSYSK 03888000 CVTRSV55 EQU CVTSYSK 03889000 CVTRSV54 EQU CVTSYSK 03890000 CVTRSV53 EQU CVTSYSK 03891000 CVTRSV52 EQU CVTA1F1 03892000 CVTRSV51 EQU CVTA1F1 03893000 CVTRSV50 EQU CVTA1F1 03894000 CVTRSV49 EQU CVTA1F1 03895000 CVTRSV48 EQU CVTA1F1 03896000 CVTRSV47 EQU CVTA1F1 03897000 CVTSRSW EQU CVTA1F1 03898000 CVTPFSW EQU CVTA1F1 03899000 CVTPCVT EQU CVTMAP+352 03900000 CVTRSV46 EQU CVTMAP+344 03901000 CVTRSV45 EQU CVTMAP+340 03902000 CVTRSV44 EQU CVTMAP+338 03903000 CVTRSV43 EQU CVTMAP+336 03904000 CVTHJESA EQU CVTHJES+1 03905000 CVTRSV42 EQU CVTHJES 03906000 CVTEXT2A EQU CVTEXT2+1 03907000 CVTRSV41 EQU CVTEXT2 03908000 CVTAPFA EQU CVTAPF+1 03909000 CVTRSV40 EQU CVTAPF 03910000 CVTRV518 EQU CVTINTLA 03911000 CVTRV517 EQU CVTERPV 03912000 CVTEORM EQU CVTMAP+312 03913000 CVTMCHPR EQU CVTMAP+308 03914000 CVTTZ EQU CVTMAP+304 03915000 CVTJEPS EQU CVTMAP+300 03916000 CVTJESCT EQU CVTMAP+296 03917000 CVTMODE EQU CVTMAP+292 03918000 CVTPTRV EQU CVTMAP+288 03919000 CVTREAL EQU CVTMAP+284 03920000 CVTRSV39 EQU CVTMAP+280 03921000 CVTRSV38 EQU CVTMAP+276 03922000 CVTDMSRA EQU CVTDMSR+1 03923000 CVTRSV37 EQU CVTDMSR 03924000 CVTQMSGA EQU CVTQMSG+1 03925000 CVTRSV36 EQU CVTQMSG 03926000 CVTAMFF EQU CVTMAP+264 03927000 CVTPURGA EQU CVTPURG+1 03928000 CVTRSV35 EQU CVTPURG 03929000 CVTCBSP EQU CVTMAP+256 03930000 CVTATERA EQU CVTATER+1 03931000 CVTSYST EQU CVTATER 03932000 CVTVOLT2 EQU CVTTAT 03933000 CVTVOLI2 EQU CVTVOLF2 03934000 CVTAQAVB EQU CVTAQAVT+1 03935000 CVTRSV34 EQU CVTTCMFG 03936000 CVTRSV33 EQU CVTTCMFG 03937000 CVTRSV32 EQU CVTTCMFG 03938000 CVTRSV31 EQU CVTTCMFG 03939000 CVTRSV30 EQU CVTTCMFG 03940000 CVTRSV29 EQU CVTTCMFG 03941000 CVTRSV28 EQU CVTTCMFG 03942000 CVTTCRDY EQU CVTTCMFG 03943000 CVTGTFA EQU CVTGTF+1 03944000 CVTRSV27 EQU CVTGTFST 03945000 CVTRNIO EQU CVTGTFST 03946000 CVTUSR EQU CVTGTFST 03947000 CVTRV318 EQU CVTFORM 03948000 CVTRV317 EQU CVTTMODE 03949000 CVTRV316 EQU CVTSTATE 03950000 CVTRV315 EQU CVTGTFS 03951000 CVTGTFAV EQU CVTGTFS 03952000 CVT0SCR1 EQU CVTMAP+232 03953000 CVTRV515 EQU CVTMAP+228 03954000 CVTRMS EQU CVTMAP+224 03955000 CVTPATCH EQU CVTMAP+220 03956000 CVTTSCE EQU CVTMAP+216 03957000 CVTLNKSC EQU CVTMAP+214 03958000 CVTQABST EQU CVTMAP+212 03959000 CVTMDLDS EQU CVTMAP+208 03960000 CVTUSER EQU CVTMAP+204 03961000 CVTABEND EQU CVTMAP+200 03962000 CVTSMCA EQU CVTMAP+196 03963000 CVTRSV18 EQU CVTMAP+192 03964000 CVTQLPAQ EQU CVTMAP+188 03965000 CVTQCDSR EQU CVTMAP+184 03966000 CVTRSV17 EQU CVTOPTB 03967000 CVTRSV16 EQU CVTOPTB 03968000 CVTFP EQU CVTOPTB 03969000 CVTAPTHR EQU CVTOPTB 03970000 CVTNLOG EQU CVTOPTB 03971000 CVTTOD EQU CVTOPTB 03972000 CVTCTIMS EQU CVTOPTB 03973000 CVTPROT EQU CVTOPTB 03974000 CVTXPFP EQU CVTOPTA 03975000 CVTASCII EQU CVTOPTA 03976000 CVTRSV13 EQU CVTOPTA 03977000 CVTRSV12 EQU CVTOPTA 03978000 CVTNIP EQU CVTOPTA 03979000 CVTDDR EQU CVTOPTA 03980000 CVTAPR EQU CVTOPTA 03981000 CVTCCH EQU CVTOPTA 03982000 CVTSNCTR EQU CVTMAP+180 03983000 CVTQMWR EQU CVTMAP+176 03984000 CVTQOCR EQU CVTMAP+172 03985000 CVT1EF00 EQU CVTMAP+168 03986000 CVTMZ00 EQU CVTMAP+164 03987000 CVTHEAD EQU CVTMAP+160 03988000 CVTRSV11 EQU CVTMAP+156 03989000 CVT0PT01 EQU CVTMAP+152 03990000 CVTMSER EQU CVTMAP+148 03991000 CVTRV516 EQU CVTIERLC 03992000 CVTILCH EQU CVTMAP+140 03993000 CVT0DS EQU CVTMAP+136 03994000 CVTFBOSV EQU CVTMAP+132 03995000 CVTNUCB EQU CVTMAP+128 03996000 CVTIXAVL EQU CVTMAP+124 03997000 CVTIOQET EQU CVTMAP+120 03998000 CVTDCBA EQU CVTMAP+117 03999000 CVTMVS2 EQU CVTDCB 04000000 CVT6DAT EQU CVTDCB 04001000 CVT4MPS EQU CVTDCB 04002000 CVTRSV09 EQU CVTDCB 04003000 CVT4MS1 EQU CVTDCB 04004000 CVT2SPS EQU CVTDCB 04005000 CVT1SSS EQU CVTDCB 04006000 CVTRSV08 EQU CVTDCB 04007000 CVTSTB EQU CVTMAP+112 04008000 CVTQTD00 EQU CVTMAP+108 04009000 CVTQTE00 EQU CVTMAP+104 04010000 CVTCUCB EQU CVTMAP+100 04011000 CVTSJQ EQU CVTMAP+96 04012000 CVTPBLDL EQU CVTMAP+92 04013000 CVTTPC EQU CVTMAP+88 04014000 CVTSVDCB EQU CVTMAP+84 04015000 CVTBRET EQU CVTMAP+82 04016000 CVTEXIT EQU CVTMAP+80 04017000 CVT0FN00 EQU CVTMAP+76 04018000 CVTDARA EQU CVTDAR+1 04019000 CVTRSV07 EQU CVTFLGS1 04020000 CVTRSV06 EQU CVTFLGS1 04021000 CVTRSV05 EQU CVTFLGS1 04022000 CVTRSV04 EQU CVTFLGS1 04023000 CVTRSV03 EQU CVTFLGS1 04024000 CVTRSV02 EQU CVTFLGS1 04025000 CVTRSV01 EQU CVTFLGS1 04026000 CVTDMPLK EQU CVTFLGS1 04027000 CVTXITP EQU CVTMAP+68 04028000 CVTZDTAB EQU CVTMAP+64 04029000 CVTMSLT EQU CVTMAP+60 04030000 CVTDATE EQU CVTMAP+56 04031000 CVTBTERM EQU CVTMAP+52 04032000 CVTSYSAD EQU CVTMAP+48 04033000 CVTILK2 EQU CVTMAP+40 04034000 CVTILK1 EQU CVTMAP+36 04035000 CVTPRLTV EQU CVTMAP+32 04036000 CVTPCNVT EQU CVTMAP+28 04037000 CVT0VL00 EQU CVTMAP+24 04038000 CVTXAPG EQU CVTMAP+20 04039000 CVTBUF EQU CVTMAP+16 04040000 CVTJOB EQU CVTMAP+12 04041000 CVTLINK EQU CVTMAP+8 04042000 CVT0EF00 EQU CVTMAP+4 04043000 CVTTCBP EQU CVTMAP 04044000 CVT EQU CVTMAP 04045000 @NM00024 EQU PSA+3668 04046000 PSASTAK EQU PSA+3072 04047000 @NM00023 EQU PSA+1040 04048000 PSAUSEND EQU PSA+1040 04049000 PSARV062 EQU PSA+1036 04050000 PSAATCVT EQU PSA+1032 04051000 PSAPCPSW EQU PSA+1024 04052000 PSAPIR2 EQU PSA+1020 04053000 PSARV059 EQU PSA+1018 04054000 PSASVC13 EQU PSA+1016 04055000 PSALSFCC EQU PSA+1012 04056000 PSASFACC EQU PSA+1008 04057000 PSASTOP EQU PSA+992 04058000 PSASTART EQU PSA+976 04059000 PSARSPSW EQU PSA+968 04060000 PSASRPSW EQU PSA+960 04061000 PSARV045 EQU PSA+892 04062000 PSARV044 EQU PSA+888 04063000 PSARV043 EQU PSA+884 04064000 PSARV042 EQU PSA+880 04065000 PSARV041 EQU PSA+876 04066000 PSARV040 EQU PSA+872 04067000 PSARV025 EQU PSA+868 04068000 PSADSSED EQU PSA+868 04069000 PSADSSPR EQU PSA+864 04070000 PSADSSFW EQU PSA+860 04071000 PSADSS14 EQU PSA+856 04072000 PSADSSPP EQU PSA+848 04073000 PSADSSRP EQU PSA+840 04074000 PSADSS05 EQU PSADSSF4 04075000 PSADSS10 EQU PSADSSF4 04076000 PSADSSVE EQU PSADSSF4 04077000 PSADSSDE EQU PSADSSF4 04078000 PSADSSC0 EQU PSADSSF4 04079000 PSADSSIE EQU PSADSSF4 04080000 PSADSS12 EQU PSADSSF4 04081000 PSADSSRC EQU PSADSSF4 04082000 PSARV057 EQU PSADSSF3 04083000 PSARV056 EQU PSADSSF3 04084000 PSARV055 EQU PSADSSF3 04085000 PSADSSMC EQU PSADSSF3 04086000 PSADSSRW EQU PSADSSF3 04087000 PSADSSNM EQU PSADSSF3 04088000 PSADSSES EQU PSADSSF3 04089000 PSADSSGP EQU PSADSSF3 04090000 PSADSSF2 EQU PSADSSFL+1 04091000 PSADSSPI EQU PSADSSF1 04092000 PSADSSOI EQU PSADSSF1 04093000 PSADSSSP EQU PSADSSF1 04094000 PSADSSTP EQU PSADSSF1 04095000 PSADSSDW EQU PSADSSF1 04096000 PSADSSDD EQU PSADSSF1 04097000 PSADSSDM EQU PSADSSF1 04098000 PSADSSMV EQU PSADSSF1 04099000 PSADSSTS EQU PSA+816 04100000 PSADSSWK EQU PSA+812 04101000 PSADSSR3 EQU PSA+808 04102000 PSADSSR2 EQU PSA+804 04103000 PSADSSRS EQU PSA+800 04104000 PSASTOR EQU PSA+796 04105000 PSACPUSA EQU PSA+794 04106000 PSAVSTAP EQU PSA+792 04107000 PSAWKVAP EQU PSA+788 04108000 PSAWKRAP EQU PSA+784 04109000 PSAMCHIC EQU PSA+783 04110000 PSARV061 EQU PSA+782 04111000 PSASYMSK EQU PSA+781 04112000 PSAMCHFL EQU PSA+780 04113000 PSACR0 EQU PSA+776 04114000 PSAPSWSV EQU PSA+768 04115000 PSALITA EQU PSA+764 04116000 PSACLHS EQU PSAHLHI 04117000 PSALKR15 EQU PSALKSA+60 04118000 PSALKR14 EQU PSALKSA+56 04119000 PSALKR13 EQU PSALKSA+52 04120000 PSALKR12 EQU PSALKSA+48 04121000 PSALKR11 EQU PSALKSA+44 04122000 PSALKR10 EQU PSALKSA+40 04123000 PSALKR9 EQU PSALKSA+36 04124000 PSALKR8 EQU PSALKSA+32 04125000 PSALKR7 EQU PSALKSA+28 04126000 PSALKR6 EQU PSALKSA+24 04127000 PSALKR5 EQU PSALKSA+20 04128000 PSALKR4 EQU PSALKSA+16 04129000 PSALKR3 EQU PSALKSA+12 04130000 PSALKR2 EQU PSALKSA+8 04131000 PSALKR1 EQU PSALKSA+4 04132000 PSALKR0 EQU PSALKSA 04133000 PSARV023 EQU PSACLHT+52 04134000 PSALOCAL EQU PSACLHT+48 04135000 PSACMSL EQU PSACLHT+44 04136000 PSAOPTL EQU PSACLHT+40 04137000 PSATPACL EQU PSACLHT+36 04138000 PSATPDNL EQU PSACLHT+32 04139000 PSATPNCL EQU PSACLHT+28 04140000 PSAIOSLL EQU PSACLHT+24 04141000 PSAIOSUL EQU PSACLHT+20 04142000 PSAIOSCL EQU PSACLHT+16 04143000 PSAIOSSL EQU PSACLHT+12 04144000 PSASALCL EQU PSACLHT+8 04145000 PSAASML EQU PSACLHT+4 04146000 PSADISPL EQU PSACLHT 04147000 PSASRSA EQU PSA+636 04148000 PSARV050 EQU PSA+634 04149000 PSADSSGO EQU PSA+633 04150000 PSARECUR EQU PSA+632 04151000 PSAHLHIS EQU PSA+628 04152000 PSAIPCSA EQU PSA+624 04153000 @NM00022 EQU PSA+621 04154000 PSAIPCDM EQU PSA+620 04155000 PSAIPCD EQU PSA+616 04156000 @NM00021 EQU PSA+613 04157000 PSAIPCRM EQU PSA+612 04158000 PSAIPCR EQU PSA+608 04159000 PSAMCHEX EQU PSA+600 04160000 PSAMPSW EQU PSA+592 04161000 PSAEXPS2 EQU PSA+584 04162000 PSAEXPS1 EQU PSA+576 04163000 PSAPIREG EQU PSA+572 04164000 PSARSREG EQU PSA+568 04165000 PSAGPREG EQU PSA+556 04166000 PSARV022 EQU PSASUP4 04167000 PSARV021 EQU PSASUP4 04168000 PSARV020 EQU PSASUP4 04169000 PSARV019 EQU PSASUP4 04170000 PSARV018 EQU PSASUP4 04171000 PSARV017 EQU PSASUP4 04172000 PSARV016 EQU PSASUP4 04173000 PSARV015 EQU PSASUP4 04174000 PSARV014 EQU PSASUP3 04175000 PSARV013 EQU PSASUP3 04176000 PSARV012 EQU PSASUP3 04177000 PSARV011 EQU PSASUP3 04178000 PSASPR EQU PSASUP3 04179000 PSAPSREG EQU PSASUP3 04180000 PSAPI2 EQU PSASUP3 04181000 PSAIOSUP EQU PSASUP3 04182000 PSALCR EQU PSASUP2 04183000 PSARTM EQU PSASUP2 04184000 PSAACR EQU PSASUP2 04185000 PSAIPCE2 EQU PSASUP2 04186000 PSAIPCES EQU PSASUP2 04187000 PSAIPCEC EQU PSASUP2 04188000 PSAGTF EQU PSASUP2 04189000 PSAIPCRI EQU PSASUP2 04190000 PSAIPCRP EQU PSASUP1 04191000 PSAIPCDR EQU PSASUP1 04192000 PSADISP EQU PSASUP1 04193000 PSALOCK EQU PSASUP1 04194000 PSAPI EQU PSASUP1 04195000 PSAEXT EQU PSASUP1 04196000 PSASVC EQU PSASUP1 04197000 PSAIO EQU PSASUP1 04198000 PSAAOLD EQU PSA+548 04199000 PSAANEW EQU PSA+544 04200000 PSATOLD EQU PSA+540 04201000 PSATNEW EQU PSA+536 04202000 PSALCCAR EQU PSA+532 04203000 PSALCCAV EQU PSA+528 04204000 PSAPCCAR EQU PSA+524 04205000 PSAPCCAV EQU PSA+520 04206000 PSACPULA EQU PSA+518 04207000 PSACPUPA EQU PSA+516 04208000 PSAPSA EQU PSA+512 04209000 FLCHDEND EQU PSA+512 04210000 FLCCRSAV EQU FLCMCLA+280 04211000 FLCGRSAV EQU FLCMCLA+216 04212000 FLCFPSAV EQU FLCMCLA+184 04213000 FLCFLA EQU FLCMCLA+88 04214000 FLCRGNCD EQU FLCMCLA+84 04215000 FLCFSAA EQU FLCFSA+1 04216000 @NM00020 EQU FLCFSA 04217000 @NM00019 EQU FLCMCLA+72 04218000 FLCMCIC EQU FLCMCLA+64 04219000 @NM00018 EQU FLCMCLA+20 04220000 FLCIOAA EQU FLCIOA+1 04221000 @NM00017 EQU FLCIOA 04222000 @NM00016 EQU FLCMCLA+15 04223000 @NM00015 EQU FLCMCLA+14 04224000 @NM00014 EQU FLCMCLA+12 04225000 FLCLCL EQU FLCMCLA+8 04226000 FLCIOELA EQU FLCIOEL+1 04227000 @NM00013 EQU FLCIOEL 04228000 FLCCHNID EQU FLCMCLA 04229000 @NM00012 EQU PSA+160 04230000 FLCMTRCD EQU PSA+157 04231000 @NM00011 EQU PSA+156 04232000 FLCPERA EQU FLCPER+1 04233000 @NM00010 EQU FLCPER 04234000 @NM00009 EQU PSA+151 04235000 FLCPERCD EQU PSA+150 04236000 FLCMCNUM EQU PSA+149 04237000 @NM00008 EQU PSA+148 04238000 FLCTEAA EQU FLCTEA+1 04239000 @NM00007 EQU FLCTEA 04240000 PSAPIPC EQU PSAPICOD 04241000 PSAPIMC EQU PSAPICOD 04242000 PSAPIPER EQU PSAPICOD 04243000 PSARV049 EQU FLCPICOD 04244000 FLCPILCB EQU FLCPIILC 04245000 @NM00006 EQU FLCPIILC 04246000 @NM00005 EQU PSAEPPSW 04247000 FLCSVCN EQU PSAESPSW+2 04248000 FLCSILCB EQU FLCSVILC 04249000 @NM00004 EQU FLCSVILC 04250000 @NM00003 EQU PSAESPSW 04251000 FLCEICOD EQU PSAEEPSW+2 04252000 PSASPAD EQU PSAEEPSW 04253000 @NM00002 EQU PSA+128 04254000 FLCINPSW EQU PSA+120 04255000 FLCMNPSW EQU PSA+112 04256000 FLCPNPSW EQU PSA+104 04257000 FLCSNPSW EQU PSA+96 04258000 FLCENPSW EQU PSA+88 04259000 FLCTRACE EQU PSA+84 04260000 FLCTIMER EQU PSA+80 04261000 FLCCVT2 EQU PSA+76 04262000 FLCCAW EQU PSA+72 04263000 FLCCSW EQU PSA+64 04264000 FLCIOPSW EQU PSA+56 04265000 FLCMOPSW EQU PSA+48 04266000 FLCPOPSW EQU PSA+40 04267000 FLCSOPSW EQU PSA+32 04268000 FLCEOPSW EQU PSA+24 04269000 @NM00001 EQU FLCICCW2+4 04270000 FLCICCW1 EQU FLCROPSW 04271000 FLCIPPSW EQU FLCRNPSW 04272000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04273000 @RC00552 EQU @RC00548 04274000 @RC00584 EQU @RC00580 04275000 @RC00514 EQU @RC00512 04276000 @ENDDATA EQU * 04277000 END ISTZBM0K,(C'PLS1509',0603,75130) 04278000