TITLE 'ISTINFXI/AXI-VS1/MXI-VS2 370X DUMP INITIALIZATION *00001000 ' 00002000 ISTINFXI CSECT , 0001 00003000 ISTINCXI DS 0H 0001 00004000 ENTRY ISTINCXI 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'ISTINFXI 75.135' 0001 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0001 00013000 BALR @12,0 0001 00014000 @PSTART DS 0H 0001 00015000 USING @PSTART,@12 0001 00016000 AH @15,4(,@15) 0001 00017000 BR @15 0001 00018000 @EP00001 DS 0H 0002 00019000 * 0458 00020000 */* MAINLINE PROCESSING */ 00021000 * 0459 00022000 * /*GETSTOR SIZE(FXISIZE)SAVE(NO)CLEAR(YES)*/ 0459 00023000 * DO; 0459 00024000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 0460 00025000 * /* DYNAMIC PAB 1K633 */ 0460 00026000 * /* 1K0997 JAN 20, 1973 MB */ 0460 00027000 * /* 1K1142 MAR 03, 1973 MB */ 0460 00028000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0460 00029000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0460 00030000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 00031000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0460 00032000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0460 00033000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 00034000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0460 00035000 * 1K0997 */ 00036000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 00037000 * PAB */ 00038000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 00039000 */* REVISIONS 011 04/25/75 * 00040000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 00041000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0463 00042000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 00043000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 00044000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 00045000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 00046000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 00047000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 00048000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 00049000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 00050000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 00051000 * 5 * BIT(2), /* RESERVED * 00052000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 00053000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 00054000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 00055000 * /* INTERFACE FLAGS * 00056000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 00057000 * /* RECEIVE UNSOLICITED MESSAGES* 00058000 * /* 1 = YES * 00059000 * 5 * BIT(7), /* RESERVED * 00060000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 00061000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0463 00062000 * 0 = NOT ACTIVE * 00063000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 00064000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0463 00065000 * PROCESS * 00066000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 00067000 * 5 ATCRSV04 BIT(4), /* RESERVED * 00068000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 00069000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 00070000 * LAYER,INITIALIZED BY OPENDST* 00071000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 00072000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 00073000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 00074000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 00075000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 00076000 * /* FOR MODIFY COMMAND * 00077000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 00078000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00079000 * /* FOR HALT COMMAND * 00080000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 00081000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00082000 * /* FOR VARY COMMAND * 00083000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 00084000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00085000 * /* FOR DISPLAY COMMAND * 00086000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 00087000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 00088000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 00089000 * /* REQUEST NOTIFICATION * 00090000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 00091000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 00092000 * /* CONTROL PROCESSING COMPLETE * 00093000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 00094000 * /* CONFIGURATION REQUEST * 00095000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 00096000 * /* ECB PARAMETERS * 00097000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 00098000 * /* OR HALT RETURN MESSAGE * 00099000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 00100000 * /* BLOCK * 00101000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 00102000 * /* ROUTINE SCHEDULER * 00103000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 00104000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 00105000 * /* ACCOUNTING ROUTINE * 00106000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 00107000 * /* AUTHORISATION ROUTINE * 00108000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 00109000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 00110000 * /* CONFIGURATION TABLE * 00111000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 00112000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 00113000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 00114000 * /* TYPE=VTAM TRACING * 00115000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 00116000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 00117000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 00118000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 00119000 * /* PROCEDURE * 00120000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 00121000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 00122000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 00123000 * /* PROCEDURE * 00124000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 00125000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 00126000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 00127000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 00128000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 00129000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 00130000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 00131000 * /* ROUTINE * 00132000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 00133000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 00134000 * /* ROUTINE * 00135000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 00136000 * - DOS ONLY * 00137000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 00138000 * /* ROUTINE * 00139000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 00140000 * /* ROUTINE - DOS ONLY * 00141000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 00142000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 00143000 * /* RPH * 00144000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 00145000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 00146000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 00147000 * MOVE TO USER AREA * 00148000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 00149000 * MOVE FIXED TO PAGABLE * 00150000 */* BEGIN 'ANY' DVT * 00151000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 00152000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 00153000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 00154000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 00155000 */* END 'ANY' DVT * 00156000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 00157000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 00158000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 00159000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 00160000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 00161000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 00162000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 00163000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 00164000 * PURGE * 00165000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 00166000 * 3 ATCCIDM BIT(16), /* CID MASK * 00167000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 00168000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 00169000 * NUMBER OF ENTRIES IN THE MNT * 00170000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 00171000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 00172000 * DEF. REF. BY ISTSDCCB (CBDEF), 0463 00173000 * ISTSDCCI (CINDEXY) * 00174000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0463 00175000 * REF. BY CIDCTL MACRO * 00176000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0463 00177000 * REF. BY CIDCTL MACRO * 00178000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0463 00179000 * REF. BY CIDCTL MACRO * 00180000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 00181000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 00182000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 00183000 * /* MASTER ROUTINE * 00184000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0463 00185000 * MASTER ROUTINE * 00186000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 00187000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 00188000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 00189000 * /* TO BE LOADED * 00190000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 00191000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 00192000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0463 00193000 * PORTION OF CID * 00194000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 00195000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 00196000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0463 00197000 * ISTSDCAL * 00198000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 00199000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 00200000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 00201000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 00202000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 00203000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0463 00204000 * CSECT * 00205000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 00206000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 00207000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 00208000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 00209000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 00210000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 00211000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 00212000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 00213000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 00214000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00215000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 00216000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0463 00217000 * TO BY 3RD WORD OF PAB */ 00218000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 00219000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 00220000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 00221000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 00222000 * 2 ATCRSV99 CHAR(32), /* RESERVED FOR LATER POINTERS */ 00223000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 00224000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 00225000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 00226000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 00227000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 00228000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 00229000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 00230000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 00231000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 00232000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 00233000 * UNDER PSS CONTROL */ 00234000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 00235000 * PURGE */ 00236000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 00237000 * RESTART PAB */ 00238000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 00239000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 00240000 * (ISTINCDL) */ 00241000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 00242000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 00243000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0463 00244000 * FOR ISTOLTP */ 00245000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0463 00246000 * FOR TOLTEP CLIP */ 00247000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0463 00248000 * FOR TOLTEP-VTAM INTERFACE*/ 00249000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 00250000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 00251000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 00252000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 00253000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 00254000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 00255000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 00256000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 00257000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 00258000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 00259000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 00260000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 00261000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 00262000 * 2 ATCPOIA PTR(31), /* PTR TO PROGRAM OPERATOR */ 00263000 * /* INTERFACE AREA */ 00264000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 00265000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 00266000 * 3 ATCSEC10 PTR(31), /* DVT */ 00267000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 00268000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 00269000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 00270000 * 3 ATCSEC40 PTR(31), /* DVT */ 00271000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 00272000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 00273000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 00274000 * 2 * FIXED(15), /* RESERVED */ 00275000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 00276000 * /* RTN ADDRESS (ISTINCSH) */ 00277000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 00278000 * /* TABLE ADDRESS (ISTINCDT) */ 00279000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 00280000 * /* TABLE ADDRESS (ISTINCLM) */ 00281000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 00282000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 00283000 * /* POINTED TO BY IOBECBPT */ 00284000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0463 00285000 * /* SSCP COMMAND PROCESSING PAB */ 00286000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0463 00287000 * /* SSCP FRONT END PAB */ 00288000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 00289000 */* END OF COMMON AREA */ 00290000 */* VS1/VS2 COMMON CODE. */ 00291000 * 2 ATCRSVBB PTR(31), /* RESERVED * 00292000 * 2 ATCAOSM BDY(DWORD), 0463 00293000 */* * 00294000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 00295000 * /* SRB CONTROL * 00296000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 00297000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 00298000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 00299000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 00300000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 00301000 * /* TCB * 00302000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 00303000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 00304000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 00305000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 00306000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 00307000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 00308000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 00309000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 00310000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 00311000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 00312000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 00313000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 00314000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 00315000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 00316000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 00317000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 00318000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 00319000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 00320000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 00321000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 00322000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 00323000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 00324000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0463 00325000 * (DUMMY EOA APP.) */ 00326000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 00327000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 00328000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0463 00329000 * APPENDAGE */ 00330000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0463 00331000 * APPENDAGE */ 00332000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 00333000 * VECTOR */ 00334000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0463 00335000 * (DUMP EOE) */ 00336000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0463 00337000 * (DUMMY SIOA) */ 00338000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 00339000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0463 00340000 * APPENDAGE */ 00341000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0463 00342000 * APPENDAGE */ 00343000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0463 00344000 * VECTOR TABLE FOR LOAD/DVMMY*/ 00345000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0463 00346000 * OF EXTENT APPENDAGE */ 00347000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0463 00348000 * OF SIO APPENDAGE */ 00349000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0463 00350000 * APPENDAGE */ 00351000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0463 00352000 * APPENDAGE */ 00353000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0463 00354000 * END APPENDAGE */ 00355000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 00356000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 00357000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0463 00358000 * (PHASE 1) * 00359000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0463 00360000 * FEEDBACK ROUTER */ 00361000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 00362000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 00363000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0463 00364000 * DEACTIVATE ROUTINE */ 00365000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 00366000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0463 00367000 * SERVICES VECTOR TABLE */ 00368000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 00369000 * TEST AND CTL FEEDBACK ROUTER* 00370000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0463 00371000 * STATUS AND FEEDBACK ROUTER 00372000 * DYNAMIC PAB */ 00373000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 00374000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 00375000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 00376000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 00377000 * 3 ATCRPT11 PTR(31), /* RESERVED */ 00378000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 00379000 * 3 ATCRPT13 PTR(31), /* RESERVED */ 00380000 * 3 ATCRPT14 PTR(31), /* RESERVED */ 00381000 * 3 ATCRPT15 PTR(31), /* RESERVED */ 00382000 * 3 ATCRPT16 PTR(31), /* RESERVED */ 00383000 * 3 ATCRPT17 PTR(31), /* RESERVED */ 00384000 * 3 ATCRPT18 PTR(31), /* RESERVED */ 00385000 * 3 ATCRPT19 PTR(31), /* RESERVED */ 00386000 * 3 ATCRPT20 PTR(31), /* RESERVED */ 00387000 * 3 ATCRPT21 PTR(31), /* RESERVED */ 00388000 * 3 ATCRPT22 PTR(31), /* RESERVED */ 00389000 * 3 ATCRPT23 PTR(31), /* RESERVED */ 00390000 * 3 ATCRPT24 PTR(31), /* RESERVED */ 00391000 * 3 ATCRPT25 PTR(31), /* RESERVED */ 00392000 * 3 ATCRPT26 PTR(31), /* RESERVED */ 00393000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 00394000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 00395000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 00396000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 00397000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 00398000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 00399000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 00400000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 00401000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 00402000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 00403000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 00404000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 00405000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 00406000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 00407000 */* END OF VS1/VS2 COMMON CODE. */ 00408000 */* START OF VS2 UNIQUE CODE. */ 00409000 * 3 ATCVTFLG BIT(32), 0463 00410000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 00411000 * 4 * BIT(31), /* RESERVED */ 00412000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 00413000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 00414000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 00415000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 00416000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 00417000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 00418000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 00419000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 00420000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 00421000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 00422000 * 3 ATCTRMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0463 00423000 * /* PAB FOR VTAM TERM TASK */ 00424000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0463 00425000 * /* PAB FOR TPIOS */ 00426000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 00427000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 00428000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 00429000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 00430000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 00431000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 00432000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 00433000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 00434000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 00435000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 00436000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 00437000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 00438000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 00439000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 00440000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 00441000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 00442000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 00443000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 00444000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 00445000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 00446000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 00447000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 00448000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 00449000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 00450000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 00451000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 00452000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 00453000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 00454000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 00455000 * FOR VS2 */ 00456000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 00457000 * FOR SRB MODE ROUTINES */ 00458000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 00459000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 00460000 */* END OF ATBUILD */ 0464 00461000 * DCL GPR00F FIXED(31) REG(00); 0464 00462000 * DCL GPR00P PTR(31) REG(00); 0465 00463000 * DCL GPR01F FIXED(31) REG(01); 0466 00464000 * DCL GPR01P PTR(31) REG(01); 0467 00465000 * DCL GPR02F FIXED(31) REG(02); 0468 00466000 * DCL GPR02P PTR(31) REG(02); 0469 00467000 * DCL GPR03F FIXED(31) REG(03); 0470 00468000 * DCL GPR03P PTR(31) REG(03); 0471 00469000 * DCL GPR04F FIXED(31) REG(04); 0472 00470000 * DCL GPR04P PTR(31) REG(04); 0473 00471000 * DCL GPR05F FIXED(31) REG(05); 0474 00472000 * DCL GPR05P PTR(31) REG(05); 0475 00473000 * DCL GPR06F FIXED(31) REG(06); 0476 00474000 * DCL GPR06P PTR(31) REG(06); 0477 00475000 * DCL GPR07F FIXED(31) REG(07); 0478 00476000 * DCL GPR07P PTR(31) REG(07); 0479 00477000 * DCL GPR08F FIXED(31) REG(08); 0480 00478000 * DCL GPR08P PTR(31) REG(08); 0481 00479000 * DCL GPR09F FIXED(31) REG(09); 0482 00480000 * DCL GPR09P PTR(31) REG(09); 0483 00481000 * DCL GPR10F FIXED(31) REG(10); 0484 00482000 * DCL GPR10P PTR(31) REG(10); 0485 00483000 * DCL GPR11F FIXED(31) REG(11); 0486 00484000 * DCL GPR11P PTR(31) REG(11); 0487 00485000 * DCL GPR12F FIXED(31) REG(12); 0488 00486000 * DCL GPR12P PTR(31) REG(12); 0489 00487000 * DCL GPR13F FIXED(31) REG(13); 0490 00488000 * DCL GPR13P PTR(31) REG(13); 0491 00489000 * DCL GPR14F FIXED(31) REG(14); 0492 00490000 * DCL GPR14P PTR(31) REG(14); 0493 00491000 * DCL GPR15F FIXED(31) REG(15); 0494 00492000 * DCL GPR15P PTR(31) REG(15); 0495 00493000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 0496 00494000 * GPR00F = FXISIZE; /*SIZE IN REG0*/ 00495000 L GPR00F,FXISIZE 0497 00496000 * DCL 1 CMZA0004 FIXED(31) STATIC LOCAL, 0498 00497000 * 2 * FIXED(8) INIT(32), /* OPTION FLAGS */ 00498000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00499000 * 2 * FIXED(8) INIT(231), /* SUBPOOL NUMBER */ 00500000 * 2 * FIXED(8) INIT('00'X); /* REQUEST TYPE */ 00501000 * GPR03F = CMZA0004; 0499 00502000 * 0499 00503000 L GPR03F,CMZA0004 0499 00504000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 0500 00505000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0501 00506000 L GPR02P,ATCLCPTR 0501 00507000 * END; /*LISATCVT*/ 0502 00508000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 00509000 L @15,ATCGTSTR(,GPR02P) 0503 00510000 BALR @14,@15 0503 00511000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) UNRSTD; 0504 00512000 * END ; /*END OF GETSTOR*/ 00513000 * IF RCODE^=0 /* IS SPACE AVAILABLE */ 00514000 * THEN /* NO */ 00515000 LTR RCODE,RCODE 0506 00516000 BZ @RF00506 0506 00517000 * RCREG=32; /* GETSTOR FAILED */ 00518000 LA RCREG,32 0507 00519000 * ELSE /* YES CONTINUE */ 00520000 * DO; 0508 00521000 B @RC00506 0508 00522000 @RF00506 DS 0H 0509 00523000 * FXIREG10=FXIREG3; /* INIT WORK AREA BASE @XM08666*/ 00524000 LR FXIREG10,FXIREG3 0509 00525000 * RFY 0510 00526000 * WKDATA BASED(FXIREG10); 0510 00527000 * FXIREG8=ADDR(DEVAREA); /* INIT WORK ADDR FOR DEVTYPE */ 00528000 LA FXIREG8,DEVAREA(,FXIREG10) 0511 00529000 * NCSPLPTR=FXIREG1; /* INIT NCSPL AREA BASE */ 00530000 LR NCSPLPTR,FXIREG1 0512 00531000 * RDTPTR=NCSPLRPT; /* INIT RDT PTR FROM NCSPL */ 00532000 L RDTPTR,NCSPLRPT(,NCSPLPTR) 0513 00533000 * NCBPTR=RPRNCBA; /* INIT ICNCB PTR FROM RDT */ 00534000 L NCBPTR,RPRNCBA(,RDTPTR) 0514 00535000 * DVLREG=ADDR(DVLWORK); /* INIT DVL PTR */ 00536000 LR DVLREG,FXIREG10 0515 00537000 * DVLEXSAV=ADDR(DVLSAEXT); /* INIT SAVE PTR */ 00538000 LA DVLEXSAV,DVLSAEXT(,FXIREG10) 0516 00539000 * SAVPTR=FXIREG13; /* SAVE RETURN SAVE ADDR */ 00540000 STCM FXIREG13,15,SAVPTR(DVLEXSAV) 0517 00541000 * FXIREG13=DVLEXSAV; /* INIT SAVE ADDR */ 00542000 * 0518 00543000 LR FXIREG13,DVLEXSAV 0518 00544000 * /*************************************************************/ 00545000 * /* */ 00546000 * /* INIT DASD I/O BLOCK DVLDIDIB */ 00547000 * /* */ 00548000 * /*************************************************************/ 00549000 * 0519 00550000 * DVLDCB=ICNDCBAD; /* DCBAD FROM ICNCB TO DVL */ 00551000 L @09,ICNDCBAD-1(,NCBPTR) 0519 00552000 LA @09,0(,@09) 0519 00553000 ST @09,DVLDCB(,DVLREG) 0519 00554000 * DVLDDN=RRNNMDPD; /* DDNAME FROM RDT TO DVL */ 00555000 MVC DVLDDN(8,DVLREG),RRNNMDPD(RDTPTR) 0520 00556000 * GEN REFS(DVLDDN,DEVAREA,DVLREG,FXIREG10); 0521 00557000 DEVTYPE DVLDDN(,DVLREG),DEVAREA(,FXIREG10),DEVTAB 00558000 * IF DTYPE='20'X /* IS IT DIRECT DASD DEVICE */ 00559000 * THEN /* YES */ 00560000 CLI DTYPE(FXIREG10),X'20' 0522 00561000 BNE @RF00522 0522 00562000 * DO; 0523 00563000 * 0523 00564000 */*VLOAD MODULE(IFLH1DAS)*/ 0524 00565000 * DO; 0524 00566000 * GENERATE; 0525 00567000 LOAD EP=IFLH1DAS 00568000 * END; /*VLOAD */ 0526 00569000 * DVLDIB=REG0; /* INIT EP ADDR */ 00570000 ST REG0,DVLDIB(,DVLREG) 0527 00571000 * RCREG=0; /* INIT GOOD RETURN CODE */ 00572000 * 0528 00573000 SLR RCREG,RCREG 0528 00574000 * /*********************************************************/ 00575000 * /* */ 00576000 * /* COMPLETE DVL INIT DVLDICOM */ 00577000 * /* */ 00578000 * /*********************************************************/ 00579000 * 0529 00580000 * 0529 00581000 */*VLOAD MODULE(IFLH1DIO)*/ 0529 00582000 * DO; 0529 00583000 * GENERATE; 0530 00584000 LOAD EP=IFLH1DIO 00585000 * END; /*VLOAD *//* LOAD DASD I/O ROUTINE */ 0531 00586000 * DVLDIO=REG0; /* INIT EP ADDR */ 00587000 ST REG0,DVLDIO(,DVLREG) 0532 00588000 * DVLWSR=ADDR(DVLDWAIT); /* INIT WAIT ADDR */ 00589000 * 0533 00590000 LA @09,DVLDWAIT 0533 00591000 ST @09,DVLWSR(,DVLREG) 0533 00592000 * /*********************************************************/ 00593000 * /* */ 00594000 * /* EXECUTE DIXIO DVLDIXIO */ 00595000 * /* */ 00596000 * /*********************************************************/ 00597000 * 0534 00598000 * IF NCSPLSPL=0 /* IS IT LOCAL DEVICE */ 00599000 * THEN /* YES */ 00600000 L @09,NCSPLSPL(,NCSPLPTR) 0534 00601000 LTR @09,@09 0534 00602000 BNZ @RF00534 0534 00603000 * DO; 0535 00604000 * /*INIT PARAMS AND UNHOOK TPIOS APPENDAGES */ 00605000 * FXIREG0=4; 0536 00606000 LA FXIREG0,4 0536 00607000 * FXIREG1=NCSPLPTR; 0537 00608000 LR FXIREG1,NCSPLPTR 0537 00609000 * CALL ISTINCN8; 0538 00610000 L @15,@CV03005 0538 00611000 BALR @14,@15 0538 00612000 * EXCPBIT='1'B; /* INIT EXCP MODE SWITCH */ 00613000 * 0539 00614000 OI EXCPBIT(FXIREG10),B'10000000' 0539 00615000 */*VLOAD MODULE(IFWH1LIO)*/ 0540 00616000 * DO; 0540 00617000 * GENERATE; 0541 00618000 LOAD EP=IFWH1LIO 00619000 * END; /*VLOAD *//* LOAD LOCAL I/O RTN */ 0542 00620000 * DVLXIO=REG0; /* INIT EP ADDR */ 00621000 * 0543 00622000 ST REG0,DVLXIO(,DVLREG) 0543 00623000 */*VLOAD MODULE(IFLH170X)*/ 0544 00624000 * DO; 0544 00625000 * GENERATE; 0545 00626000 LOAD EP=IFLH170X 00627000 * END; /*VLOAD *//* LOAD LOCAL I/O BLOCK */ 0546 00628000 * DVLXIB=REG0; /* INIT EP ADDR */ 00629000 * 0547 00630000 ST REG0,DVLXIB(,DVLREG) 0547 00631000 * /*****************************************************/ 00632000 * /* */ 00633000 * /* LOAD BOOTSTRAP PROGRAM DVLDIDBP */ 00634000 * /* */ 00635000 * /*****************************************************/ 00636000 * 0548 00637000 * RDTPTR=NCSPLRPT; /* INIT RDT PTR FROM NCSPL */ 00638000 L RDTPTR,NCSPLRPT(,NCSPLPTR) 0548 00639000 * IF RRNRBCT1='0'B /* IS IT TYPE1 CHAN ADAPTER */ 00640000 * THEN /* LOAD TYPE1 BOOTSTRAP */ 00641000 * 0549 00642000 TM RRNRBCT1(RDTPTR),B'00000100' 0549 00643000 BNZ @RF00549 0549 00644000 */*VLOAD MODULE(IFWDMPT1)*/ 0550 00645000 * DO; 0550 00646000 * GENERATE; 0551 00647000 LOAD EP=IFWDMPT1 00648000 * END; /*VLOAD */ 0552 00649000 * ELSE /* LOAD TYPE2 BOOTSTRAP */ 00650000 * 0553 00651000 */*VLOAD MODULE(IFWDMPT2)*/ 0553 00652000 * DO; 0553 00653000 B @RC00549 0553 00654000 @RF00549 DS 0H 0554 00655000 * GENERATE; 0554 00656000 LOAD EP=IFWDMPT2 00657000 * END; /*VLOAD */ 0555 00658000 * DVLDBP=REG0; /* INIT EP ADDR */ 00659000 @RC00549 ST REG0,DVLDBP(,DVLREG) 0556 00660000 * END; 0557 00661000 * ELSE /* REMOTE */ 00662000 * DO; 0558 00663000 * 0558 00664000 B @RC00534 0558 00665000 @RF00534 DS 0H 0559 00666000 */*VLOAD MODULE(ISTINCXM)*/ 0559 00667000 * DO; 0559 00668000 * GENERATE; 0560 00669000 LOAD EP=ISTINCXM 00670000 * END; /*VLOAD *//* LOAD REMOTE I/O RTN */ 0561 00671000 * DVLXIO=REG0; /* INIT EP ADDR */ 00672000 ST REG0,DVLXIO(,DVLREG) 0562 00673000 * DVLXIB=NCSPLSPL; /* INIT REMOTE NCSPL ADDR */ 00674000 L @09,NCSPLSPL(,NCSPLPTR) 0563 00675000 ST @09,DVLXIB(,DVLREG) 0563 00676000 * END; 0564 00677000 * 0564 00678000 * /*********************************************************/ 00679000 * /* */ 00680000 * /* LOAD DUMP WRITER DVLDIEXW */ 00681000 * /* */ 00682000 * /*********************************************************/ 00683000 * 0565 00684000 * 0565 00685000 */*VLOAD MODULE(IFWH1WRT)*/ 0565 00686000 * DO; 0565 00687000 @RC00534 DS 0H 0566 00688000 * GENERATE; 0566 00689000 LOAD EP=IFWH1WRT 00690000 * END; /*VLOAD *//* LOAD DUMP WRITER */ 0567 00691000 * RCODE=REG0; 0568 00692000 LR RCODE,REG0 0568 00693000 * CALL RCODE; /* CALL WRITER */ 00694000 BALR @14,@15 0569 00695000 * RCREG=RCODE; 0570 00696000 LR RCREG,RCODE 0570 00697000 * END; 0571 00698000 * ELSE /* NOT DASD DEVICE */ 00699000 * RCREG=28; /* SET INVALID RETURN CODE */ 00700000 * 0572 00701000 B @RC00522 0572 00702000 @RF00522 LA RCREG,28 0572 00703000 * /*************************************************************/ 00704000 * /* */ 00705000 * /* WRITE MESSAGE DVLDIMSG */ 00706000 * /* */ 00707000 * /*************************************************************/ 00708000 * 0573 00709000 * MSGNETNM=RPRNAME; /* INIT MSG PARAM */ 00710000 @RC00522 MVC MSGNETNM(8,FXIREG10),RPRNAME(RDTPTR) 0573 00711000 * MSGDDNM=RRNNMDPD; 0574 00712000 MVC MSGDDNM(8,FXIREG10),RRNNMDPD(RDTPTR) 0574 00713000 * FXIREG4=ADDR(MSGPARAM); 0575 00714000 LA FXIREG4,MSGPARAM(,FXIREG10) 0575 00715000 * FXIREG8=ADDR(MSGPLARE); 0576 00716000 LA FXIREG8,MSGPLARE(,FXIREG10) 0576 00717000 * IF RCREG=0 /* IS CODE 0 */ 00718000 * THEN /* SUCCESSFUL 370X DUMP OPERATION*/ 00719000 * 0577 00720000 SLR @09,@09 0577 00721000 CR RCREG,@09 0577 00722000 BNE @RF00577 0577 00723000 */*TPMSG MSGID('285I')MSG((FXIREG4))PLAREA((FXIREG8))OPTIONS(NCSPLSID)* 00724000 * 0578 00725000 * 0578 00726000 * DO; 0578 00727000 * DCL REG1030 REG(1) PTR; 0579 00728000 * RFY (REG1030) RSTD; 0580 00729000 * 0580 00730000 * RFY (EMCR13) RSTD; 0581 00731000 * DCL 1 * BASED(REG1030), 0582 00732000 * 2 CMZID030 PTR(31), 0582 00733000 * 2 *, 0582 00734000 * 3 CMZRL030 PTR(8), 0582 00735000 * 3 CMZRA030 PTR(24) BDY(BYTE), 0582 00736000 * 2 CMZEA030 PTR(31), 0582 00737000 * 2 CMZVP030 PTR(31); 0582 00738000 * 0582 00739000 */*XREGSET PID('PLAREA')PPARM((FXIREG8))RREG(,REG1030)*/ 0583 00740000 * DO; 0583 00741000 * REG1030=FXIREG8; /*SET RREG SYMBOL TO VALUE*/ 00742000 LR REG1030,FXIREG8 0584 00743000 * /*OF PPARM OPERAND */ 00744000 * END; /* XREGSET */ 0585 00745000 * CMZID030 = 0; 0586 00746000 ST @09,CMZID030(,REG1030) 0586 00747000 * CMZRL030 = 0; 0587 00748000 MVI CMZRL030(REG1030),X'00' 0587 00749000 * CMZRA030 = 0; 0588 00750000 STCM @09,7,CMZRA030(REG1030) 0588 00751000 * CMZEA030 = 0; 0589 00752000 ST @09,CMZEA030(,REG1030) 0589 00753000 * CMZVP030 = 0; 0590 00754000 ST @09,CMZVP030(,REG1030) 0590 00755000 * DCL CMZAA030 CHAR(4) INIT('285I'); 0591 00756000 * CMZID030 = ADDR(CMZAA030); 0592 00757000 LA @09,CMZAA030 0592 00758000 ST @09,CMZID030(,REG1030) 0592 00759000 * CMZVP030 = FXIREG4; 0593 00760000 ST FXIREG4,CMZVP030(,REG1030) 0593 00761000 * DCL CMZSA030 (18) PTR(31) BASED(EMCR13); 0594 00762000 * CMZSA030(5) = ADDR(NCSPLSID); 0595 00763000 * 0595 00764000 LA @09,NCSPLSID(,NCSPLPTR) 0595 00765000 ST @09,CMZSA030+16(,EMCR13) 0595 00766000 * DCL REG15030 REG(15) PTR; 0596 00767000 * RFY REG15030 RSTD; 0597 00768000 * 0597 00769000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15030)) */ 0598 00770000 * REG15030 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0599 00771000 L REG15030,ATCLCPTR 0599 00772000 * END; /*LISATCVT*/ 0600 00773000 * DCL CMTA030 BASED(REG15030) ENTRY VALUERANGE(*); 0601 00774000 * REG15030 = REG15030->ATCMSGP; 0602 00775000 L REG15030,ATCMSGP(,REG15030) 0602 00776000 * CALL CMTA030; 0603 00777000 BALR @14,@15 0603 00778000 * RESPECIFY (REG1030,REG15030) UNRESTRICTED; 0604 00779000 * 0604 00780000 * RFY (EMCR13) UNRSTD; 0605 00781000 * END; 0606 00782000 * IF RCREG=4|RCREG=8 /* IS CODE 4 OR 8 */ 00783000 * THEN /* DASD I/O ERROR PARTIAL DUMP */ 00784000 * 0607 00785000 @RF00577 C RCREG,@CF00078 0607 00786000 BE @RT00607 0607 00787000 C RCREG,@CF00076 0607 00788000 BNE @RF00607 0607 00789000 @RT00607 DS 0H 0608 00790000 */*TPMSG MSGID('286I')MSG((FXIREG4))PLAREA((FXIREG8))OPTIONS(NCSPLSID)* 00791000 * 0608 00792000 * 0608 00793000 * DO; 0608 00794000 * DCL REG1039 REG(1) PTR; 0609 00795000 * RFY (REG1039) RSTD; 0610 00796000 * 0610 00797000 * RFY (EMCR13) RSTD; 0611 00798000 * DCL 1 * BASED(REG1039), 0612 00799000 * 2 CMZID039 PTR(31), 0612 00800000 * 2 *, 0612 00801000 * 3 CMZRL039 PTR(8), 0612 00802000 * 3 CMZRA039 PTR(24) BDY(BYTE), 0612 00803000 * 2 CMZEA039 PTR(31), 0612 00804000 * 2 CMZVP039 PTR(31); 0612 00805000 * 0612 00806000 */*XREGSET PID('PLAREA')PPARM((FXIREG8))RREG(,REG1039)*/ 0613 00807000 * DO; 0613 00808000 * REG1039=FXIREG8; /*SET RREG SYMBOL TO VALUE*/ 00809000 LR REG1039,FXIREG8 0614 00810000 * /*OF PPARM OPERAND */ 00811000 * END; /* XREGSET */ 0615 00812000 * CMZID039 = 0; 0616 00813000 SLR @09,@09 0616 00814000 ST @09,CMZID039(,REG1039) 0616 00815000 * CMZRL039 = 0; 0617 00816000 MVI CMZRL039(REG1039),X'00' 0617 00817000 * CMZRA039 = 0; 0618 00818000 STCM @09,7,CMZRA039(REG1039) 0618 00819000 * CMZEA039 = 0; 0619 00820000 ST @09,CMZEA039(,REG1039) 0619 00821000 * CMZVP039 = 0; 0620 00822000 ST @09,CMZVP039(,REG1039) 0620 00823000 * DCL CMZAA039 CHAR(4) INIT('286I'); 0621 00824000 * CMZID039 = ADDR(CMZAA039); 0622 00825000 LA @09,CMZAA039 0622 00826000 ST @09,CMZID039(,REG1039) 0622 00827000 * CMZVP039 = FXIREG4; 0623 00828000 ST FXIREG4,CMZVP039(,REG1039) 0623 00829000 * DCL CMZSA039 (18) PTR(31) BASED(EMCR13); 0624 00830000 * CMZSA039(5) = ADDR(NCSPLSID); 0625 00831000 * 0625 00832000 LA @09,NCSPLSID(,NCSPLPTR) 0625 00833000 ST @09,CMZSA039+16(,EMCR13) 0625 00834000 * DCL REG15039 REG(15) PTR; 0626 00835000 * RFY REG15039 RSTD; 0627 00836000 * 0627 00837000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15039)) */ 0628 00838000 * REG15039 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0629 00839000 L REG15039,ATCLCPTR 0629 00840000 * END; /*LISATCVT*/ 0630 00841000 * DCL CMTA039 BASED(REG15039) ENTRY VALUERANGE(*); 0631 00842000 * REG15039 = REG15039->ATCMSGP; 0632 00843000 L REG15039,ATCMSGP(,REG15039) 0632 00844000 * CALL CMTA039; 0633 00845000 BALR @14,@15 0633 00846000 * RESPECIFY (REG1039,REG15039) UNRESTRICTED; 0634 00847000 * 0634 00848000 * RFY (EMCR13) UNRSTD; 0635 00849000 * END; 0636 00850000 * IF RCREG=12|RCREG=16 /* IS CODE 12 OR 16 */ 00851000 * THEN /* DASD I/O ERROR NONUSABLE DUMP */ 00852000 * 0637 00853000 @RF00607 C RCREG,@CF01260 0637 00854000 BE @RT00637 0637 00855000 C RCREG,@CF00107 0637 00856000 BNE @RF00637 0637 00857000 @RT00637 DS 0H 0638 00858000 */*TPMSG MSGID('287I')MSG((FXIREG4))PLAREA((FXIREG8))OPTIONS(NCSPLSID)* 00859000 * 0638 00860000 * 0638 00861000 * DO; 0638 00862000 * DCL REG1048 REG(1) PTR; 0639 00863000 * RFY (REG1048) RSTD; 0640 00864000 * 0640 00865000 * RFY (EMCR13) RSTD; 0641 00866000 * DCL 1 * BASED(REG1048), 0642 00867000 * 2 CMZID048 PTR(31), 0642 00868000 * 2 *, 0642 00869000 * 3 CMZRL048 PTR(8), 0642 00870000 * 3 CMZRA048 PTR(24) BDY(BYTE), 0642 00871000 * 2 CMZEA048 PTR(31), 0642 00872000 * 2 CMZVP048 PTR(31); 0642 00873000 * 0642 00874000 */*XREGSET PID('PLAREA')PPARM((FXIREG8))RREG(,REG1048)*/ 0643 00875000 * DO; 0643 00876000 * REG1048=FXIREG8; /*SET RREG SYMBOL TO VALUE*/ 00877000 LR REG1048,FXIREG8 0644 00878000 * /*OF PPARM OPERAND */ 00879000 * END; /* XREGSET */ 0645 00880000 * CMZID048 = 0; 0646 00881000 SLR @09,@09 0646 00882000 ST @09,CMZID048(,REG1048) 0646 00883000 * CMZRL048 = 0; 0647 00884000 MVI CMZRL048(REG1048),X'00' 0647 00885000 * CMZRA048 = 0; 0648 00886000 STCM @09,7,CMZRA048(REG1048) 0648 00887000 * CMZEA048 = 0; 0649 00888000 ST @09,CMZEA048(,REG1048) 0649 00889000 * CMZVP048 = 0; 0650 00890000 ST @09,CMZVP048(,REG1048) 0650 00891000 * DCL CMZAA048 CHAR(4) INIT('287I'); 0651 00892000 * CMZID048 = ADDR(CMZAA048); 0652 00893000 LA @09,CMZAA048 0652 00894000 ST @09,CMZID048(,REG1048) 0652 00895000 * CMZVP048 = FXIREG4; 0653 00896000 ST FXIREG4,CMZVP048(,REG1048) 0653 00897000 * DCL CMZSA048 (18) PTR(31) BASED(EMCR13); 0654 00898000 * CMZSA048(5) = ADDR(NCSPLSID); 0655 00899000 * 0655 00900000 LA @09,NCSPLSID(,NCSPLPTR) 0655 00901000 ST @09,CMZSA048+16(,EMCR13) 0655 00902000 * DCL REG15048 REG(15) PTR; 0656 00903000 * RFY REG15048 RSTD; 0657 00904000 * 0657 00905000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15048)) */ 0658 00906000 * REG15048 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0659 00907000 L REG15048,ATCLCPTR 0659 00908000 * END; /*LISATCVT*/ 0660 00909000 * DCL CMTA048 BASED(REG15048) ENTRY VALUERANGE(*); 0661 00910000 * REG15048 = REG15048->ATCMSGP; 0662 00911000 L REG15048,ATCMSGP(,REG15048) 0662 00912000 * CALL CMTA048; 0663 00913000 BALR @14,@15 0663 00914000 * RESPECIFY (REG1048,REG15048) UNRESTRICTED; 0664 00915000 * 0664 00916000 * RFY (EMCR13) UNRSTD; 0665 00917000 * END; 0666 00918000 * IF RCREG=20 /* IS CODE 20 */ 00919000 * THEN /* DASD NOT OPENED NONUSABLE DUMP*/ 00920000 * 0667 00921000 @RF00637 C RCREG,@CF00171 0667 00922000 BNE @RF00667 0667 00923000 */*TPMSG MSGID('288I')MSG((FXIREG4))PLAREA((FXIREG8))OPTIONS(NCSPLSID)* 00924000 * 0668 00925000 * 0668 00926000 * DO; 0668 00927000 * DCL REG1057 REG(1) PTR; 0669 00928000 * RFY (REG1057) RSTD; 0670 00929000 * 0670 00930000 * RFY (EMCR13) RSTD; 0671 00931000 * DCL 1 * BASED(REG1057), 0672 00932000 * 2 CMZID057 PTR(31), 0672 00933000 * 2 *, 0672 00934000 * 3 CMZRL057 PTR(8), 0672 00935000 * 3 CMZRA057 PTR(24) BDY(BYTE), 0672 00936000 * 2 CMZEA057 PTR(31), 0672 00937000 * 2 CMZVP057 PTR(31); 0672 00938000 * 0672 00939000 */*XREGSET PID('PLAREA')PPARM((FXIREG8))RREG(,REG1057)*/ 0673 00940000 * DO; 0673 00941000 * REG1057=FXIREG8; /*SET RREG SYMBOL TO VALUE*/ 00942000 LR REG1057,FXIREG8 0674 00943000 * /*OF PPARM OPERAND */ 00944000 * END; /* XREGSET */ 0675 00945000 * CMZID057 = 0; 0676 00946000 SLR @09,@09 0676 00947000 ST @09,CMZID057(,REG1057) 0676 00948000 * CMZRL057 = 0; 0677 00949000 MVI CMZRL057(REG1057),X'00' 0677 00950000 * CMZRA057 = 0; 0678 00951000 STCM @09,7,CMZRA057(REG1057) 0678 00952000 * CMZEA057 = 0; 0679 00953000 ST @09,CMZEA057(,REG1057) 0679 00954000 * CMZVP057 = 0; 0680 00955000 ST @09,CMZVP057(,REG1057) 0680 00956000 * DCL CMZAA057 CHAR(4) INIT('288I'); 0681 00957000 * CMZID057 = ADDR(CMZAA057); 0682 00958000 LA @09,CMZAA057 0682 00959000 ST @09,CMZID057(,REG1057) 0682 00960000 * CMZVP057 = FXIREG4; 0683 00961000 ST FXIREG4,CMZVP057(,REG1057) 0683 00962000 * DCL CMZSA057 (18) PTR(31) BASED(EMCR13); 0684 00963000 * CMZSA057(5) = ADDR(NCSPLSID); 0685 00964000 * 0685 00965000 LA @09,NCSPLSID(,NCSPLPTR) 0685 00966000 ST @09,CMZSA057+16(,EMCR13) 0685 00967000 * DCL REG15057 REG(15) PTR; 0686 00968000 * RFY REG15057 RSTD; 0687 00969000 * 0687 00970000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15057)) */ 0688 00971000 * REG15057 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0689 00972000 L REG15057,ATCLCPTR 0689 00973000 * END; /*LISATCVT*/ 0690 00974000 * DCL CMTA057 BASED(REG15057) ENTRY VALUERANGE(*); 0691 00975000 * REG15057 = REG15057->ATCMSGP; 0692 00976000 L REG15057,ATCMSGP(,REG15057) 0692 00977000 * CALL CMTA057; 0693 00978000 BALR @14,@15 0693 00979000 * RESPECIFY (REG1057,REG15057) UNRESTRICTED; 0694 00980000 * 0694 00981000 * RFY (EMCR13) UNRSTD; 0695 00982000 * END; 0696 00983000 * IF RCREG=28 /* IS CODE 28 */ 00984000 * THEN /* INVALID DASD DEVICE */ 00985000 * 0697 00986000 @RF00667 C RCREG,@CF03401 0697 00987000 BNE @RF00697 0697 00988000 */*TPMSG MSGID('289I')MSG((FXIREG4))PLAREA((FXIREG8))OPTIONS(NCSPLSID)* 00989000 * 0698 00990000 * 0698 00991000 * DO; 0698 00992000 * DCL REG1066 REG(1) PTR; 0699 00993000 * RFY (REG1066) RSTD; 0700 00994000 * 0700 00995000 * RFY (EMCR13) RSTD; 0701 00996000 * DCL 1 * BASED(REG1066), 0702 00997000 * 2 CMZID066 PTR(31), 0702 00998000 * 2 *, 0702 00999000 * 3 CMZRL066 PTR(8), 0702 01000000 * 3 CMZRA066 PTR(24) BDY(BYTE), 0702 01001000 * 2 CMZEA066 PTR(31), 0702 01002000 * 2 CMZVP066 PTR(31); 0702 01003000 * 0702 01004000 */*XREGSET PID('PLAREA')PPARM((FXIREG8))RREG(,REG1066)*/ 0703 01005000 * DO; 0703 01006000 * REG1066=FXIREG8; /*SET RREG SYMBOL TO VALUE*/ 01007000 LR REG1066,FXIREG8 0704 01008000 * /*OF PPARM OPERAND */ 01009000 * END; /* XREGSET */ 0705 01010000 * CMZID066 = 0; 0706 01011000 SLR @09,@09 0706 01012000 ST @09,CMZID066(,REG1066) 0706 01013000 * CMZRL066 = 0; 0707 01014000 MVI CMZRL066(REG1066),X'00' 0707 01015000 * CMZRA066 = 0; 0708 01016000 STCM @09,7,CMZRA066(REG1066) 0708 01017000 * CMZEA066 = 0; 0709 01018000 ST @09,CMZEA066(,REG1066) 0709 01019000 * CMZVP066 = 0; 0710 01020000 ST @09,CMZVP066(,REG1066) 0710 01021000 * DCL CMZAA066 CHAR(4) INIT('289I'); 0711 01022000 * CMZID066 = ADDR(CMZAA066); 0712 01023000 LA @09,CMZAA066 0712 01024000 ST @09,CMZID066(,REG1066) 0712 01025000 * CMZVP066 = FXIREG4; 0713 01026000 ST FXIREG4,CMZVP066(,REG1066) 0713 01027000 * DCL CMZSA066 (18) PTR(31) BASED(EMCR13); 0714 01028000 * CMZSA066(5) = ADDR(NCSPLSID); 0715 01029000 * 0715 01030000 LA @09,NCSPLSID(,NCSPLPTR) 0715 01031000 ST @09,CMZSA066+16(,EMCR13) 0715 01032000 * DCL REG15066 REG(15) PTR; 0716 01033000 * RFY REG15066 RSTD; 0717 01034000 * 0717 01035000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15066)) */ 0718 01036000 * REG15066 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0719 01037000 L REG15066,ATCLCPTR 0719 01038000 * END; /*LISATCVT*/ 0720 01039000 * DCL CMTA066 BASED(REG15066) ENTRY VALUERANGE(*); 0721 01040000 * REG15066 = REG15066->ATCMSGP; 0722 01041000 L REG15066,ATCMSGP(,REG15066) 0722 01042000 * CALL CMTA066; 0723 01043000 BALR @14,@15 0723 01044000 * RESPECIFY (REG1066,REG15066) UNRESTRICTED; 0724 01045000 * 0724 01046000 * RFY (EMCR13) UNRSTD; 0725 01047000 * END; 0726 01048000 * IF RCREG^=28 /* WAS IT INVALID DEVICE */ 01049000 * THEN /* NO */ 01050000 @RF00697 C RCREG,@CF03401 0727 01051000 BE @RF00727 0727 01052000 * DO; /* DELETE LOADED MODULES */ 01053000 */*VDELETE MODULE(IFLH1DAS)*/ 0729 01054000 * DO; /*INVOKE 'DELETE' MACRO*/ 0729 01055000 * GEN; 0730 01056000 DELETE EP=IFLH1DAS 01057000 * END; /* VDELETE */ 0731 01058000 * 0731 01059000 */*VDELETE MODULE(IFLH1DIO)*/ 0732 01060000 * DO; /*INVOKE 'DELETE' MACRO*/ 0732 01061000 * GEN; 0733 01062000 DELETE EP=IFLH1DIO 01063000 * END; /* VDELETE */ 0734 01064000 * IF NCSPLSPL=0 /* IS IT LOCAL DEVICE */ 01065000 * THEN /* YES */ 01066000 L @09,NCSPLSPL(,NCSPLPTR) 0735 01067000 LTR @09,@09 0735 01068000 BNZ @RF00735 0735 01069000 * DO; 0736 01070000 * 0736 01071000 */*VDELETE MODULE(IFWH1LIO)*/ 0737 01072000 * DO; /*INVOKE 'DELETE' MACRO*/ 0737 01073000 * GEN; 0738 01074000 DELETE EP=IFWH1LIO 01075000 * END; /* VDELETE *//* DELETE LOCAL I/O RTN */ 0739 01076000 * 0739 01077000 */*VDELETE MODULE(IFLH170X)*/ 0740 01078000 * DO; /*INVOKE 'DELETE' MACRO*/ 0740 01079000 * GEN; 0741 01080000 DELETE EP=IFLH170X 01081000 * END; /* VDELETE *//* DELETE LOCAL I/O BLOCK */ 0742 01082000 * IF RRNRBCT1='0'B /* IS IT TYPE1 CHAN ADAPTER */ 01083000 * THEN /* DELETE TYPE1 BOOTSTRAP */ 01084000 * 0743 01085000 TM RRNRBCT1(RDTPTR),B'00000100' 0743 01086000 BNZ @RF00743 0743 01087000 */*VDELETE MODULE(IFWDMPT1)*/ 0744 01088000 * DO; /*INVOKE 'DELETE' MACRO*/ 0744 01089000 * GEN; 0745 01090000 DELETE EP=IFWDMPT1 01091000 * END; /* VDELETE */ 0746 01092000 * ELSE /* DELETE TYPE2 BOOTSTRAP */ 01093000 * 0747 01094000 */*VDELETE MODULE(IFWDMPT2)*/ 0747 01095000 * DO; /*INVOKE 'DELETE' MACRO*/ 0747 01096000 B @RC00743 0747 01097000 @RF00743 DS 0H 0748 01098000 * GEN; 0748 01099000 DELETE EP=IFWDMPT2 01100000 * END; /* VDELETE */ 0749 01101000 * END; 0750 01102000 * ELSE /* REMOTE */ 01103000 * 0751 01104000 */*VDELETE MODULE(ISTINCXM)*/ 0751 01105000 * DO; /*INVOKE 'DELETE' MACRO*/ 0751 01106000 B @RC00735 0751 01107000 @RF00735 DS 0H 0752 01108000 * GEN; 0752 01109000 DELETE EP=ISTINCXM 01110000 * END; /* VDELETE *//* DELETE REMOTE I/O RTN */ 0753 01111000 * END; 0754 01112000 @RC00735 DS 0H 0755 01113000 * FXIREG13=SAVPTR; /* RESTORE MY RETURN SAVE ADDR */ 01114000 @RF00727 ICM FXIREG13,15,SAVPTR(DVLEXSAV) 0755 01115000 * FXIREG1=FXIREG5; /*@XM09484*/ 01116000 LR FXIREG1,FXIREG5 0756 01117000 * FXIREG11=RCREG; /*@XM09484*/ 01118000 LR FXIREG11,RCREG 0757 01119000 * /* FREE DVL/WORK AREA */ 01120000 * /*FREESTOR AREA(DVLREG)SIZE(FXISIZE)SAVE(NO)*/ 0758 01121000 * DO; 0758 01122000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 0759 01123000 */* END OF ATBUILD */ 0759 01124000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P) RSTD; 0759 01125000 * GPR00F = FXISIZE; /*SIZE IN REG0*/ 01126000 L GPR00F,FXISIZE 0760 01127000 * DCL 1 CMZA0082 FIXED(31) STATIC LOCAL, 0761 01128000 * 2 * FIXED(8) INIT(0), /* OPTION FLAGS */ 01129000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 01130000 * 2 * FIXED(8) INIT(231), /* SUBPOOL NUMBER */ 01131000 * 2 * FIXED(8) INIT('01'X); /* REQUEST TYPE */ 01132000 * GPR03F = CMZA0082; 0762 01133000 L GPR03F,CMZA0082 0762 01134000 * RFY (GPR04P) RSTD; 0763 01135000 * GPR04P = DVLREG; /*PUT FREEMAIN ADDR IN REG4*/ 01136000 * 0764 01137000 LR GPR04P,DVLREG 0764 01138000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR02P)) */ 0765 01139000 * GPR02P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0766 01140000 L GPR02P,ATCLCPTR 0766 01141000 * END; /*LISATCVT*/ 0767 01142000 * CALL GPR02P -> ATCGTSTR; /*CALL ISTORFSR*/ 01143000 L @15,ATCGTSTR(,GPR02P) 0768 01144000 BALR @14,@15 0768 01145000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P) UNRSTD; 0769 01146000 * END ; /*END OF FREESTOR*/ 01147000 * FXIREG5=FXIREG1; /*@XM09484*/ 01148000 LR FXIREG5,FXIREG1 0771 01149000 * RCREG=FXIREG11; /*@XM09484*/ 01150000 LR RCREG,FXIREG11 0772 01151000 * END; 0773 01152000 * NCSIORC=RCREG; /* SET NCSPL RETURN CODE */ 01153000 @RC00506 STC RCREG,NCSIORC(,NCSPLPTR) 0774 01154000 */*TPPOST (NCSPLRPH) NSTR*/ 0775 01155000 * DO; 0775 01156000 * /*DECLARE AND RESTRICT REGS*/ 01157000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 0776 01158000 * GPR06F,GPR14F,GPR15F) RSTD; 0776 01159000 * /*0,1,4,5,6,14, AND 15 */ 01160000 * 0777 01161000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH,ISTAVT,ISTATCVT) */ 0777 01162000 */* VTAM ADDRESS VECTOR TABLE */ 0777 01163000 */* REVISIONS 002 03/06/75 */ 01164000 *DCL 1 ISTAVT BDY(WORD) BASED, 0777 01165000 * 2 ISTACVT PTR(31), /* ADDR OF VTAM CVT */ 01166000 * 2 ISTAS49 PTR(31), /* ADDR OF SVC 49 CODE */ 01167000 * 3 ISTAHIP BIT(1), /* HALT IN PROGRESS */ 01168000 * 2 ISTAS53 PTR(31), /* ADDR OF SVC 53 CODE */ 01169000 * 2 ISTAPSTA PTR(31), /* ADDR OF APS TABLE */ 01170000 * 2 AVTASID FIXED(15), /* VTAM ASID */ 01171000 * 2 ISTVTTIK FIXED(15), /* VTAMRP TASK ID */ 01172000 * 2 ISTAPSEX PTR(31), /* ADDR OF APS EXIT */ 01173000 * 2 ISTPHNM CHAR(5), /* PHASE NAME OF TRANSIENT */ 01174000 * 2 ISTX1 CHAR(1), /* TEST FIELD */ 01175000 * 2 ISTARID PTR(15), /* ADDR OF RID */ 01176000 * 2 ISTATRT PTR(15), /* ADDR OF VTAM GATES IN RETAB*/ 01177000 * 2 ISTAGTWT PTR(15), /* ADDR OF GATEWAIT ROUTINE */ 01178000 * 2 ISTVTTP PTR(15), /* ADDR OF CODE TO CHECK FOR */ 01179000 * /* PENDING TIMER INTERRUPT */ 01180000 * 2 ISTAVR01 CHAR(2), /* RESERVED */ 01181000 * 2 ISTPDAVP PTR(31); /* VECTOR FOR PDAIDS SMS TRACE*/ 01182000 */* END OF ATBUILD */ 0778 01183000 * GPR04F=NCSPLRPH; /*LOAD RPH PNTR INTO REG 4*/ 01184000 L GPR04F,NCSPLRPH(,NCSPLPTR) 0778 01185000 * RFY GPR03F RSTD; 0779 01186000 * GPR03F=0; 0780 01187000 * 0780 01188000 SLR @09,@09 0780 01189000 LR GPR03F,@09 0780 01190000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG(GPR05F)*/ 01191000 * RESPECIFY (GPR02F) RESTRICTED; 0782 01192000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 0783 01193000 LR GPR05F,GPR02F 0783 01194000 * IPK; /*SAVE CURRENT PSW KEY*/ 0784 01195000 IPK 0784 01196000 * GPR06F = GPR02F; 0785 01197000 LR GPR06F,GPR02F 0785 01198000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 0786 01199000 LR GPR02F,GPR05F 0786 01200000 * SPKA (GPR03F); /*SET PSW KEY*/ 0787 01201000 SPKA 0(GPR03F) 0787 01202000 * RESPECIFY (GPR02F) UNRESTRICTED; 0788 01203000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG(GPR05F)*/ 01204000 * RFY GPR03F UNRSTD; 0790 01205000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 0791 01206000 L GPR05P,RPHMAJCB-1(,GPR04P) 0791 01207000 LA GPR05P,0(,GPR05P) 0791 01208000 SLR @09,@09 0791 01209000 IC @09,RPHPABOF(,GPR04P) 0791 01210000 ALR GPR05P,@09 0791 01211000 * /*LOAD REG 5 WITH ADDR OF*/ 01212000 * /*MAJOR CONTROL BLOCK PLUS*/ 01213000 * /*OFFSET OF PAB IN BLOCK */ 01214000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 01215000 SLR @09,@09 0792 01216000 LR GPR14P,@09 0792 01217000 * GPR15P='FFFFFFFF'X; /*LOAD REG 15 WITH DUMMY */ 01218000 SLR GPR15P,GPR15P 0793 01219000 BCTR GPR15P,0 0793 01220000 * /*ADDRESS */ 01221000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0794 01222000 CS GPR14P,@15,RPHRESMA(GPR04P) 0794 01223000 * /*COMPARE RESUME ADDRESS */ 01224000 * /*WITH 0 AND,IF EQUAL, PUT*/ 01225000 * /*DUMMY ADDRESS IN CONTROL*/ 01226000 * /*BLOCK RESUME ADDRESS */ 01227000 * BC (8,FMZT0101); /*IF EQUAL, BYPASS REMAINDER*/ 01228000 BC 8,FMZT0101 0795 01229000 * /*OF EXPANSION */ 01230000 *FMZL0101: 0796 01231000 * IF GPR04P->RPHWT='1'B THEN /*WT/EXT CONTENTION FLAG ON */ 01232000 FMZL0101 TM RPHWT(GPR04P),B'00001000' 0796 01233000 BNO @RF00796 0796 01234000 * DO; /*IN RPH */ 01235000 * GPR14P=GPR04P->RPHRESMA|RPHWT1;/*LOAD REG 14 WITH FLAG FIELD*/ 01236000 L GPR14P,RPHRESMA(,GPR04P) 0798 01237000 O GPR14P,@CF02613 0798 01238000 * /*AND MAKE CERTAIN WT/EXT */ 01239000 * /*CONTENTION FLAG STILL ON */ 01240000 * GPR15P=GPR14P|RPHPT1; /*LOAD REG 15 WITH FLAG FIELD*/ 01241000 LR GPR15P,GPR14P 0799 01242000 O GPR15P,@CF02603 0799 01243000 * /*AND TURN POST FLAG ON */ 01244000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0800 01245000 CS GPR14P,@15,RPHRESMA(GPR04P) 0800 01246000 * /*COMPARE REG 14 WITH FLAG */ 01247000 * /*FIELD--IF WT/EXT BIT ON, */ 01248000 * /*TURN ON POST FLAG */ 01249000 * BC (4,FMZL0101); /*IF WT/EXT BIT WAS OFF, LOOP*/ 01250000 BC 4,FMZL0101 0801 01251000 * /*TO TEST CONTENTION FLAG */ 01252000 * BC (8,FMZT0101); /*IF WT/EXT BIT WAS OFF, */ 01253000 BC 8,FMZT0101 0802 01254000 * /*BRANCH TO BYPASS CODE GEN */ 01255000 * END; /*IF POST FLAG IS ON, FALL*/ 01256000 * /*THRU BOTTOM OF LOOP */ 01257000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 01258000 @RF00796 DS 0H 0805 01259000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 01260000 * 0805 01261000 SLR GPR00F,GPR00F 0805 01262000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0806 01263000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0807 01264000 L GPR15P,ATCLCPTR 0807 01265000 * END; /*LISATCVT*/ /*PUT POINTER TO ATCVT IN */ 01266000 * /* IN REG 15 */ 01267000 * CALL GPR15P->ATCAP32; /* CALL ISTAPC32: TPSCHED */ 01268000 L @09,ATCAP32(,GPR15P) 0809 01269000 LR @15,@09 0809 01270000 BALR @14,@15 0809 01271000 *FMZT0101: 0810 01272000 * 0810 01273000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 0810 01274000 FMZT0101 DS 0H 0811 01275000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION*/ 0811 01276000 LR GPR05F,GPR06F 0811 01277000 * SPKA (GPR05F); /*SET PSW KEY*/ 0812 01278000 SPKA 0(GPR05F) 0812 01279000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 0813 01280000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F, 0814 01281000 * GPR14F,GPR15F) UNRSTD; /*UNRESTRICT REGS 0,1, */ 01282000 * /*4,5,14, AND 15 */ 01283000 * END; /****END OF TPPOST GENERATION****/ /* TPPOST RPH 01284000 * */ 0815 01285000 * RCODE=RCREG; /* SET RETURN CODE */ 01286000 LR RCODE,RCREG 0816 01287000 * RETURN CODE(RCREG); /* RETURN TO SYSTEM */ 01288000 * 0817 01289000 LR @15,RCREG 0817 01290000 L @14,12(,@13) 0817 01291000 LM @00,@12,20(@13) 0817 01292000 BR @14 0817 01293000 */* SEPERATE WAIT ROUTINE FOR LOCAL I/O ROUTINE */ 01294000 * 0818 01295000 *DVLDWAIT: 0818 01296000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0818 01297000 DVLDWAIT DS 0H 0819 01298000 * DVLWWA(1:4)=FXIREG14; /* SAVE RETURN ADDR */ 01299000 STCM FXIREG14,15,DVLWWA(DVLREG) 0819 01300000 * DVLWWA(5:8)=FXIREG1; /* SAVE ECB ADDR */ 01301000 STCM FXIREG1,15,DVLWWA+4(DVLREG) 0820 01302000 * GEN(WAIT ECB=(1)); 0821 01303000 WAIT ECB=(1) 01304000 * FXIREG1=DVLWWA(5:8); /* RESTORE REG1 */ 01305000 ICM FXIREG1,15,DVLWWA+4(DVLREG) 0822 01306000 * FXIREG14=DVLWWA(1:4); /* RESTORE REG14 */ 01307000 ICM FXIREG14,15,DVLWWA(DVLREG) 0823 01308000 * END DVLDWAIT; 0824 01309000 * 0824 01310000 @EL00002 DS 0H 0824 01311000 @EF00002 DS 0H 0824 01312000 @ER00002 BR @14 0824 01313000 */* TPEPILOG */ 0825 01314000 * GEN (PRINT OFF); 0825 01315000 * 0825 01316000 * 0825 01317000 PRINT OFF 01318000 * DECLARE 0826 01319000 * EMCR0 PTR REG(0), 0826 01320000 * EMCR1 PTR REG(1), 0826 01321000 * EMCR2 PTR REG(2), 0826 01322000 * EMCR3 PTR REG(3), 0826 01323000 * EMCR4 PTR REG(4), 0826 01324000 * EMCR5 PTR REG(5), 0826 01325000 * EMCR6 PTR REG(6), 0826 01326000 * EMCR7 PTR REG(7), 0826 01327000 * EMCR8 PTR REG(8), 0826 01328000 * EMCR9 PTR REG(9), 0826 01329000 * EMCR10 PTR REG(10), 0826 01330000 * EMCR11 PTR REG(11), 0826 01331000 * EMCR12 PTR REG(12), 0826 01332000 * EMCR13 PTR REG(13), 0826 01333000 * EMCR14 PTR REG(14), 0826 01334000 * EMCR15 PTR REG(15); 0826 01335000 * GEN (PRINT ON); 0827 01336000 PRINT ON 01337000 */* END OF TPEPILOG */ 0828 01338000 * END ISTINFXI 0828 01339000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01340000 */*%INCLUDE SYSLIB (IECDIOSB) * 01341000 */*%INCLUDE SYSLIB (IHASRB ) * 01342000 */*%INCLUDE SYSLIB (CVT ) * 01343000 */*%INCLUDE SYSLIB (IEZIOB ) * 01344000 */*%INCLUDE SYSLIB (IFWH1DVL) * 01345000 *; 0828 01346000 @EL00001 DS 0H 0828 01347000 @EF00001 DS 0H 0828 01348000 @ER00001 LM @14,@12,12(@13) 0828 01349000 BR @14 0828 01350000 @DATA DS 0H 01351000 @DATD DSECT 01352000 DS 0F 01353000 ISTINFXI CSECT 01354000 DS 0F 01355000 @CF00078 DC F'4' 01356000 @CF00076 DC F'8' 01357000 @CF01260 DC F'12' 01358000 @CF00107 DC F'16' 01359000 @CF00171 DC F'20' 01360000 @CF03401 DC F'28' 01361000 @CF02603 DC XL4'04000000' 01362000 @CF02613 DC XL4'08000000' 01363000 @DATD DSECT 01364000 DS 0D 01365000 @ENDDATD EQU * 01366000 ISTINFXI CSECT 01367000 NOPR ((@ENDDATD-@DATD)*16) 01368000 DS 0F 01369000 @SIZDATD DC AL1(0) 01370000 DC AL3(@ENDDATD-@DATD) 01371000 @CV03005 DC V(ISTINCN8) 01372000 DS 0D 01373000 FXISIZE DC AL4(241) 01374000 CMZA0004 DS FL4 01375000 ORG CMZA0004 01376000 @NM00049 DC AL1(32) 01377000 @NM00050 DC AL1(96) 01378000 @NM00051 DC AL1(231) 01379000 @NM00052 DC XL1'00' 01380000 ORG CMZA0004+4 01381000 CMZA0082 DS FL4 01382000 ORG CMZA0082 01383000 @NM00063 DC AL1(0) 01384000 @NM00064 DC AL1(96) 01385000 @NM00065 DC AL1(231) 01386000 @NM00066 DC XL1'01' 01387000 ORG CMZA0082+4 01388000 CMZAA030 DC CL4'285I' 01389000 CMZAA039 DC CL4'286I' 01390000 CMZAA048 DC CL4'287I' 01391000 CMZAA057 DC CL4'288I' 01392000 CMZAA066 DC CL4'289I' 01393000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01394000 @01 EQU 01 01395000 @02 EQU 02 01396000 @03 EQU 03 01397000 @04 EQU 04 01398000 @05 EQU 05 01399000 @06 EQU 06 01400000 @07 EQU 07 01401000 @08 EQU 08 01402000 @09 EQU 09 01403000 @10 EQU 10 01404000 @11 EQU 11 01405000 @12 EQU 12 01406000 @13 EQU 13 01407000 @14 EQU 14 01408000 @15 EQU 15 01409000 IOSBPTR EQU @00 01410000 SRBPTR EQU @00 01411000 CVTPTR EQU @00 01412000 IOBPRPTR EQU @00 01413000 IOBSTPTR EQU @00 01414000 RPHPTR EQU @01 01415000 FXIREG0 EQU @00 01416000 REG0 EQU @00 01417000 AVTPTR EQU @00 01418000 NCSPLPTR EQU @05 01419000 FXIREG5 EQU @05 01420000 FXIREG1 EQU @01 01421000 DVLREG EQU @02 01422000 RDTPTR EQU @03 01423000 FXIREG3 EQU @03 01424000 FXIREG4 EQU @04 01425000 NCBPTR EQU @04 01426000 DVLEXSAV EQU @06 01427000 RCREG EQU @07 01428000 FXIREG8 EQU @08 01429000 FXIREG10 EQU @10 01430000 FXIREG11 EQU @11 01431000 FXIREG13 EQU @13 01432000 FXIREG14 EQU @14 01433000 RCODE EQU @15 01434000 GPR00F EQU @00 01435000 GPR00P EQU @00 01436000 GPR01F EQU @01 01437000 GPR01P EQU @01 01438000 GPR02F EQU @02 01439000 GPR02P EQU @02 01440000 GPR03F EQU @03 01441000 GPR03P EQU @03 01442000 GPR04F EQU @04 01443000 GPR04P EQU @04 01444000 GPR05F EQU @05 01445000 GPR05P EQU @05 01446000 GPR06F EQU @06 01447000 GPR14F EQU @14 01448000 GPR14P EQU @14 01449000 GPR15F EQU @15 01450000 GPR15P EQU @15 01451000 REG1030 EQU @01 01452000 EMCR13 EQU @13 01453000 REG15030 EQU @15 01454000 REG1039 EQU @01 01455000 REG15039 EQU @15 01456000 REG1048 EQU @01 01457000 REG15048 EQU @15 01458000 REG1057 EQU @01 01459000 REG15057 EQU @15 01460000 REG1066 EQU @01 01461000 REG15066 EQU @15 01462000 EMCR0 EQU @00 01463000 EMCR1 EQU @01 01464000 EMCR10 EQU @10 01465000 EMCR11 EQU @11 01466000 EMCR12 EQU @12 01467000 EMCR14 EQU @14 01468000 EMCR15 EQU @15 01469000 EMCR2 EQU @02 01470000 EMCR3 EQU @03 01471000 EMCR4 EQU @04 01472000 EMCR5 EQU @05 01473000 EMCR6 EQU @06 01474000 EMCR7 EQU @07 01475000 EMCR8 EQU @08 01476000 EMCR9 EQU @09 01477000 GPR06P EQU @06 01478000 GPR07F EQU @07 01479000 GPR07P EQU @07 01480000 GPR08F EQU @08 01481000 GPR08P EQU @08 01482000 GPR09F EQU @09 01483000 GPR09P EQU @09 01484000 GPR10F EQU @10 01485000 GPR10P EQU @10 01486000 GPR11F EQU @11 01487000 GPR11P EQU @11 01488000 GPR12F EQU @12 01489000 GPR12P EQU @12 01490000 GPR13F EQU @13 01491000 GPR13P EQU @13 01492000 ATCLCPTR EQU 1032 01493000 IOSB EQU 0 01494000 IOSFLA EQU IOSB 01495000 IOSACHN EQU IOSFLA 01496000 IOSFLB EQU IOSB+1 01497000 IOSFLC EQU IOSB+2 01498000 IOSDVALT EQU IOSFLC 01499000 IOSPKEY EQU IOSB+12 01500000 IOSOPT EQU IOSB+14 01501000 IOSOPT2 EQU IOSB+15 01502000 @NM00002 EQU IOSB+20 01503000 IOSCSW EQU @NM00002+1 01504000 IOSTATUS EQU IOSCSW+3 01505000 IOSIPIB EQU IOSB+44 01506000 IOSPATH EQU IOSB+86 01507000 IOSCHN EQU IOSPATH 01508000 IOSCKEY EQU IOSB+89 01509000 IOSEEKA EQU IOSB+100 01510000 IOSCCHH EQU IOSEEKA+3 01511000 IOSSKHH EQU IOSCCHH+2 01512000 SRBSECT EQU 0 01513000 SRBFLC EQU SRBSECT+12 01514000 CVTMAP EQU 0 01515000 CVTDAR EQU CVTMAP+72 01516000 CVTFLGS1 EQU CVTDAR 01517000 CVTDCB EQU CVTMAP+116 01518000 CVTIERLC EQU CVTMAP+144 01519000 CVTOPTA EQU CVTMAP+182 01520000 CVTOPTB EQU CVTMAP+183 01521000 CVTGTF EQU CVTMAP+236 01522000 CVTGTFST EQU CVTGTF 01523000 CVTGTFS EQU CVTGTFST 01524000 CVTSTATE EQU CVTGTFST 01525000 CVTTMODE EQU CVTGTFST 01526000 CVTFORM EQU CVTGTFST 01527000 CVTAQAVT EQU CVTMAP+240 01528000 CVTTCMFG EQU CVTAQAVT 01529000 CVTVOLM2 EQU CVTMAP+244 01530000 CVTTATA EQU CVTVOLM2 01531000 CVTTSKS EQU CVTTATA 01532000 CVTVOLF2 EQU CVTTSKS 01533000 CVTTAT EQU CVTTATA+1 01534000 CVTATER EQU CVTMAP+248 01535000 CVTEXT1 EQU CVTMAP+252 01536000 CVTPURG EQU CVTMAP+260 01537000 CVTQMSG EQU CVTMAP+268 01538000 CVTDMSR EQU CVTMAP+272 01539000 CVTERPV EQU CVTMAP+316 01540000 CVTINTLA EQU CVTMAP+320 01541000 CVTAPF EQU CVTMAP+324 01542000 CVTEXT2 EQU CVTMAP+328 01543000 CVTHJES EQU CVTMAP+332 01544000 CVTPGSIA EQU CVTMAP+348 01545000 CVTA1F1 EQU CVTMAP+356 01546000 CVTSYSK EQU CVTMAP+357 01547000 CVTVOLM1 EQU CVTMAP+380 01548000 CVTVOLF1 EQU CVTVOLM1 01549000 CVTATMCT EQU CVTMAP+388 01550000 CVTXTNT1 EQU 0 01551000 CVTXTNT2 EQU 0 01552000 CVTDSSV EQU CVTXTNT2 01553000 CVTFLGBT EQU CVTXTNT2+5 01554000 CVTQID EQU CVTXTNT2+24 01555000 CVTSHS EQU CVTXTNT2+40 01556000 CVTRV400 EQU CVTXTNT2+52 01557000 CVTRV409 EQU CVTXTNT2+53 01558000 CVTATCVT EQU CVTXTNT2+64 01559000 CVTRV429 EQU CVTXTNT2+84 01560000 CVTRV438 EQU CVTXTNT2+85 01561000 CVTRV457 EQU CVTXTNT2+112 01562000 CVTRV466 EQU CVTXTNT2+113 01563000 CVTFIX EQU 0 01564000 CVTRELNO EQU CVTFIX+252 01565000 IOBPREFX EQU 0 01566000 IOBCFLG1 EQU IOBPREFX 01567000 IOBSTDRD EQU 0 01568000 IOBFLAG1 EQU IOBSTDRD 01569000 IOBCYCCK EQU IOBFLAG1 01570000 IOBRSTRT EQU IOBFLAG1 01571000 IOBFLAG2 EQU IOBSTDRD+1 01572000 IOBPURGE EQU IOBFLAG2 01573000 IOBRDHA0 EQU IOBFLAG2 01574000 IOBSENS0 EQU IOBSTDRD+2 01575000 IOBS0B7 EQU IOBSENS0 01576000 IOBSENS1 EQU IOBSTDRD+3 01577000 IOBECBPT EQU IOBSTDRD+4 01578000 IOBFLAG3 EQU IOBSTDRD+8 01579000 IOBFL3 EQU IOBFLAG3 01580000 IOBCNC EQU IOBFL3 01581000 IOBICL EQU IOBFL3 01582000 IOBCSW EQU IOBSTDRD+9 01583000 IOBIOCSW EQU IOBCSW 01584000 IOBSTBYT EQU IOBIOCSW+3 01585000 IOBUSTAT EQU IOBSTBYT 01586000 IOBCSTAT EQU IOBSTBYT+1 01587000 IOBSTART EQU IOBSTDRD+16 01588000 IOBDCBPT EQU IOBSTDRD+20 01589000 IOBFLAG4 EQU IOBDCBPT 01590000 IOBRESTR EQU IOBSTDRD+24 01591000 IOBINCAM EQU IOBSTDRD+28 01592000 IOBBTAMF EQU IOBINCAM 01593000 IFWH1DVL EQU 0 01594000 DVLXIO EQU IFWH1DVL 01595000 DVLXIB EQU IFWH1DVL+4 01596000 DVLDIO EQU IFWH1DVL+8 01597000 DVLDIB EQU IFWH1DVL+12 01598000 DVLWSR EQU IFWH1DVL+16 01599000 DVLDBP EQU IFWH1DVL+20 01600000 DVLDCB EQU IFWH1DVL+24 01601000 DVLDDN EQU IFWH1DVL+28 01602000 DVLWWA EQU IFWH1DVL+36 01603000 ISTPOHD EQU 0 01604000 POHSTAT EQU ISTPOHD+1 01605000 ISTPFX EQU 0 01606000 PFXID EQU ISTPFX 01607000 ISTNCSPL EQU 0 01608000 @NM00012 EQU ISTNCSPL 01609000 NCSPFX EQU @NM00012 01610000 NCSPLVBF EQU ISTNCSPL+18 01611000 NCSPLVFL EQU ISTNCSPL+20 01612000 NCSPLVF1 EQU ISTNCSPL+21 01613000 NCSIORC EQU ISTNCSPL+23 01614000 NCSPLRPT EQU ISTNCSPL+52 01615000 NCSPLCMD EQU ISTNCSPL+60 01616000 NCSCMDA EQU NCSPLCMD 01617000 NCSCRFLG EQU ISTNCSPL+67 01618000 NCSPLRAD EQU ISTNCSPL+144 01619000 NCSIOCID EQU ISTNCSPL+148 01620000 NCSPLCID EQU NCSIOCID 01621000 NCSPLRPH EQU ISTNCSPL+160 01622000 NCSPLFSB EQU ISTNCSPL+168 01623000 NCSPLFL1 EQU ISTNCSPL+176 01624000 NCSPLFL2 EQU ISTNCSPL+177 01625000 NCSPLFL3 EQU ISTNCSPL+178 01626000 NCSPLFL4 EQU ISTNCSPL+179 01627000 NCSPLFL5 EQU ISTNCSPL+181 01628000 NCSPLSPL EQU ISTNCSPL+196 01629000 NCSPLAPP EQU ISTNCSPL+216 01630000 NCSSENSE EQU ISTNCSPL+244 01631000 NCSCRMSK EQU ISTNCSPL+268 01632000 NCSCHKPT EQU NCSCRMSK 01633000 NCSCRMOD EQU NCSCRMSK+2 01634000 NCSPLSID EQU ISTNCSPL+271 01635000 NCSPLSTA EQU NCSPLSID 01636000 NCSPLPHD EQU NCSPLSID+1 01637000 NCSAPP EQU 0 01638000 NCSAPBUE EQU NCSAPP+88 01639000 NCSUSSRU EQU 0 01640000 ISTLOK EQU 0 01641000 LOKCHN EQU ISTLOK+1 01642000 LOKCHNG EQU LOKCHN 01643000 @NM00018 EQU LOKCHNG+2 01644000 ISTDEVCH EQU 0 01645000 DEVSHCH EQU ISTDEVCH 01646000 DEVCHAR EQU DEVSHCH 01647000 DEVTCODE EQU ISTDEVCH+1 01648000 DEVFLAGS EQU ISTDEVCH+3 01649000 DEVFCCTL EQU DEVFLAGS 01650000 DEVCHAR3 EQU DEVFLAGS 01651000 ISTRPRE EQU 0 01652000 RPRNAME EQU ISTRPRE 01653000 RPRCOMID EQU ISTRPRE+8 01654000 RPRFLAGA EQU ISTRPRE+21 01655000 RPRFLAGB EQU ISTRPRE+22 01656000 RPRCAUSE EQU ISTRPRE+23 01657000 RPRNCBA EQU ISTRPRE+40 01658000 RPRFLAGD EQU ISTRPRE+61 01659000 RPRFLAGC EQU ISTRPRE+62 01660000 ISTRCPRE EQU 0 01661000 RCPPMODE EQU ISTRCPRE+91 01662000 RCPLGNIN EQU ISTRCPRE+92 01663000 ISTRDT EQU 0 01664000 RDTPLEN EQU ISTRDT+72 01665000 RDTPRIOR EQU RDTPLEN 01666000 RDTFLAGB EQU ISTRDT+91 01667000 RDTVYRPH EQU ISTRDT+108 01668000 RDTSTCNT EQU ISTRDT+112 01669000 ISTRAP EQU 0 01670000 RAPFLG EQU ISTRAP+108 01671000 RAPFLGB EQU ISTRAP+109 01672000 RAPFLGC EQU ISTRAP+110 01673000 ISTRLC EQU 0 01674000 RLCADR EQU ISTRLC+72 01675000 RLCFLAG EQU RLCADR 01676000 ISTRRN EQU 0 01677000 RRNADR EQU ISTRRN+136 01678000 RRNFLAG EQU RRNADR 01679000 RRNUCBAD EQU RRNADR+1 01680000 RRNRDF EQU ISTRRN+172 01681000 RRNRDFA EQU RRNRDF 01682000 RRNRDFB EQU RRNRDF+1 01683000 RRNRBCT1 EQU RRNRDFB 01684000 RRNCMF EQU ISTRRN+176 01685000 RRNCMFA EQU RRNCMF 01686000 RRNCMFB EQU RRNCMF+1 01687000 RRNCMFC EQU RRNCMF+2 01688000 RRNCMFD EQU RRNCMF+3 01689000 RRNNMDPD EQU ISTRRN+192 01690000 RRNHPRE EQU ISTRRN+216 01691000 ISTRGP EQU 0 01692000 RGPFLG EQU ISTRGP+72 01693000 ISTRLN EQU 0 01694000 RLNADR EQU ISTRLN+72 01695000 RLNFLAG EQU RLNADR 01696000 RLNUCBAD EQU RLNADR+1 01697000 RLNSTAT1 EQU ISTRLN+86 01698000 RLNSTAT2 EQU ISTRLN+87 01699000 RLNRDF EQU ISTRLN+88 01700000 RLNRDFA EQU RLNRDF 01701000 RLNRACNT EQU RLNRDFA 01702000 RLNRDFB EQU RLNRDF+1 01703000 RLNCRFLG EQU ISTRLN+102 01704000 RLNLSCMD EQU RLNCRFLG 01705000 ISTRPT EQU 0 01706000 RPTLNCID EQU ISTRPT+116 01707000 RPTDITT EQU ISTRPT+128 01708000 RPTFLAG1 EQU ISTRPT+140 01709000 ISTRCL EQU 0 01710000 RCLADR EQU ISTRCL+72 01711000 RCLFLAG EQU RCLADR 01712000 ISTRTR EQU 0 01713000 RTRADR EQU ISTRTR+124 01714000 RTRFLAG EQU RTRADR 01715000 RTRRDFA EQU ISTRTR+136 01716000 RTRRAALL EQU RTRRDFA 01717000 RTRRDFB EQU ISTRTR+137 01718000 RTRRDFC EQU ISTRTR+138 01719000 RTRRDFD EQU ISTRTR+139 01720000 RTRRDFE EQU ISTRTR+140 01721000 RTRRDFF EQU ISTRTR+141 01722000 RTRCRFLG EQU ISTRTR+143 01723000 RTRLSCMD EQU RTRCRFLG 01724000 RTRBSCID EQU ISTRTR+188 01725000 ISTRIN EQU 0 01726000 RINDFD EQU ISTRIN+124 01727000 RINREMPO EQU RINDFD 01728000 RINNODEF EQU RINDFD 01729000 RINLDISC EQU RINDFD 01730000 RINNODID EQU ISTRIN+125 01731000 RINRLDAF EQU ISTRIN+126 01732000 RINREMOT EQU ISTRIN+128 01733000 RINVPAB EQU ISTRIN+132 01734000 RINRPHCN EQU ISTRIN+136 01735000 RINNCSPL EQU ISTRIN+140 01736000 RINCNCNT EQU ISTRIN+144 01737000 ISTRDS EQU 0 01738000 ISTDOT EQU 0 01739000 ISTRCC EQU 0 01740000 RCCFLAG EQU ISTRCC+73 01741000 RCCFLAGB EQU ISTRCC+74 01742000 RCCSTAID EQU ISTRCC+78 01743000 RCCID48 EQU RCCSTAID+2 01744000 RCCCRFLG EQU ISTRCC+108 01745000 ISTRLU EQU 0 01746000 RLUFLAG EQU ISTRLU+125 01747000 RLUCRFLG EQU ISTRLU+126 01748000 RLUPACE EQU ISTRLU+132 01749000 RLUNCPPC EQU ISTRLU+134 01750000 RLUUSSTB EQU ISTRLU+140 01751000 RLUMODET EQU ISTRLU+152 01752000 ISTRPX EQU 0 01753000 ISTRLX EQU 0 01754000 RLXFLAGA EQU ISTRLX+76 01755000 ISTRSW EQU 0 01756000 ISTRDA EQU 0 01757000 RDAADR EQU ISTRDA+72 01758000 RDAFLAG EQU RDAADR 01759000 RDAUCBAD EQU RDAADR+1 01760000 ISTRLS EQU 0 01761000 ISTDNT EQU 0 01762000 ISTGNT EQU 0 01763000 ISTPAT EQU 0 01764000 PATFLAGA EQU ISTPAT+7 01765000 ISTPAB EQU 0 01766000 PABWQCHN EQU ISTPAB 01767000 PABWEQA EQU PABWQCHN 01768000 PABCHAIN EQU PABWQCHN+4 01769000 PABRPHFG EQU ISTPAB+12 01770000 PABFLAGS EQU PABRPHFG 01771000 PABERLCK EQU PABFLAGS 01772000 PABERRLK EQU PABERLCK 01773000 ISTRPH EQU 0 01774000 RPHFLAGS EQU ISTRPH+2 01775000 RPHAPTYP EQU RPHFLAGS 01776000 RPHFSTLC EQU RPHFLAGS 01777000 RPHFLGB EQU ISTRPH+3 01778000 RPHRPHA EQU ISTRPH+4 01779000 RPHTSKID EQU ISTRPH+8 01780000 RPHRESMA EQU ISTRPH+16 01781000 RPHWPFLG EQU RPHRESMA 01782000 RPHWT EQU RPHWPFLG 01783000 RPHPABOF EQU ISTRPH+20 01784000 RPHMAJCB EQU ISTRPH+21 01785000 RPHWEA EQU ISTRPH+24 01786000 RPHCSPA EQU RPHWEA 01787000 RPHSRPRM EQU ISTRPH+28 01788000 RPHPABQA EQU ISTRPH+36 01789000 RPHWORK EQU ISTRPH+40 01790000 RPHSAVE1 EQU RPHWORK 01791000 RPHSBITS EQU RPHSAVE1+1 01792000 ISTNCB EQU 0 01793000 NCBFLAGS EQU ISTNCB+24 01794000 NCBFRAS EQU NCBFLAGS+1 01795000 NCBFTRIO EQU NCBFRAS 01796000 NCBFLAG1 EQU NCBFLAGS+2 01797000 ISTICNCB EQU 0 01798000 @NM00032 EQU ISTICNCB+53 01799000 ICNCKFLD EQU ISTICNCB+96 01800000 ICNFLAG EQU ISTICNCB+100 01801000 ICNZF006 EQU ICNFLAG 01802000 ICNFFLAG EQU ISTICNCB+101 01803000 ICNZSWS EQU ISTICNCB+102 01804000 ICNFLAG2 EQU ISTICNCB+236 01805000 ICNZD001 EQU ISTICNCB+288 01806000 ICNWSCCW EQU ICNZD001 01807000 ICNZD002 EQU ISTICNCB+296 01808000 ICNZD003 EQU ISTICNCB+320 01809000 ICNRSCCW EQU ICNZD003 01810000 ICNZD004 EQU ISTICNCB+328 01811000 ICNZS1VR EQU ISTICNCB+348 01812000 ICNSRV02 EQU ICNZS1VR 01813000 ICNDIEWA EQU ICNSRV02 01814000 ICNDCDEB EQU ISTICNCB+480 01815000 ICNDCBAD EQU ICNDCDEB+1 01816000 ICNDIDEB EQU ICNDCDEB+12 01817000 ICNZFLAG EQU ISTICNCB+508 01818000 ICNZH002 EQU ISTICNCB+509 01819000 ICNZS002 EQU ICNZH002 01820000 ICNZS003 EQU ICNZH002 01821000 ICNZS004 EQU ICNZH002 01822000 ICNZS006 EQU ICNZH002 01823000 ICNZS007 EQU ICNZH002 01824000 ICNZS008 EQU ICNZH002 01825000 ICNZS009 EQU ICNZH002+1 01826000 ICNZS00A EQU ICNZH002+1 01827000 ICNZCONS EQU ISTICNCB+680 01828000 WKDATA EQU 0 01829000 DVLWORK EQU WKDATA 01830000 DEVAREA EQU WKDATA+116 01831000 DTYPE EQU DEVAREA+2 01832000 DVLSAEXT EQU WKDATA+136 01833000 MSGPLARE EQU WKDATA+208 01834000 MSGPARAM EQU WKDATA+224 01835000 MSGNETNM EQU MSGPARAM 01836000 MSGDDNM EQU MSGPARAM+8 01837000 @NM00042 EQU WKDATA+240 01838000 EXCPBIT EQU @NM00042 01839000 EXSAV EQU 0 01840000 SAVPTR EQU EXSAV+4 01841000 ISTDYPAB EQU 0 01842000 ISTATCVT EQU 0 01843000 ATCCOM EQU ISTATCVT 01844000 ATCSTAT EQU ATCCOM 01845000 ATCSTAT1 EQU ATCSTAT 01846000 ATCSTFLG EQU ATCSTAT+1 01847000 ATCPOFLG EQU ATCSTAT+2 01848000 ATCSTAT4 EQU ATCSTAT+3 01849000 ATCIOTRC EQU ATCCOM+140 01850000 ATCTHTRC EQU ATCIOTRC 01851000 ATCGTSTR EQU ATCCOM+164 01852000 ATCCSMR EQU ISTATCVT+296 01853000 ATCSHRFG EQU ISTATCVT+316 01854000 ATCMSGP EQU ISTATCVT+344 01855000 ATCHPGM EQU ISTATCVT+384 01856000 ATCVLCNT EQU ISTATCVT+772 01857000 ATCSOPD EQU ISTATCVT+792 01858000 ATCSIPD EQU ISTATCVT+800 01859000 ATCSECST EQU ISTATCVT+812 01860000 ATCAOSM EQU ISTATCVT+912 01861000 ATCGSRBQ EQU ATCAOSM+4 01862000 ATCGSRBG EQU ATCGSRBQ 01863000 ATCAP32 EQU ATCAOSM+28 01864000 ATCICAPP EQU ATCAOSM+100 01865000 ATCLDAPP EQU ATCAOSM+120 01866000 ATCDAPVT EQU ATCAOSM+140 01867000 ATCVTFLG EQU ATCAOSM+392 01868000 ATCZFLAG EQU ATCAOSM+588 01869000 @NM00053 EQU 0 01870000 CMZID030 EQU @NM00053 01871000 @NM00054 EQU @NM00053+4 01872000 CMZRL030 EQU @NM00054 01873000 CMZRA030 EQU @NM00054+1 01874000 CMZEA030 EQU @NM00053+8 01875000 CMZVP030 EQU @NM00053+12 01876000 CMZSA030 EQU 0 01877000 CMTA030 EQU 0 01878000 @NM00055 EQU 0 01879000 CMZID039 EQU @NM00055 01880000 @NM00056 EQU @NM00055+4 01881000 CMZRL039 EQU @NM00056 01882000 CMZRA039 EQU @NM00056+1 01883000 CMZEA039 EQU @NM00055+8 01884000 CMZVP039 EQU @NM00055+12 01885000 CMZSA039 EQU 0 01886000 CMTA039 EQU 0 01887000 @NM00057 EQU 0 01888000 CMZID048 EQU @NM00057 01889000 @NM00058 EQU @NM00057+4 01890000 CMZRL048 EQU @NM00058 01891000 CMZRA048 EQU @NM00058+1 01892000 CMZEA048 EQU @NM00057+8 01893000 CMZVP048 EQU @NM00057+12 01894000 CMZSA048 EQU 0 01895000 CMTA048 EQU 0 01896000 @NM00059 EQU 0 01897000 CMZID057 EQU @NM00059 01898000 @NM00060 EQU @NM00059+4 01899000 CMZRL057 EQU @NM00060 01900000 CMZRA057 EQU @NM00060+1 01901000 CMZEA057 EQU @NM00059+8 01902000 CMZVP057 EQU @NM00059+12 01903000 CMZSA057 EQU 0 01904000 CMTA057 EQU 0 01905000 @NM00061 EQU 0 01906000 CMZID066 EQU @NM00061 01907000 @NM00062 EQU @NM00061+4 01908000 CMZRL066 EQU @NM00062 01909000 CMZRA066 EQU @NM00062+1 01910000 CMZEA066 EQU @NM00061+8 01911000 CMZVP066 EQU @NM00061+12 01912000 CMZSA066 EQU 0 01913000 CMTA066 EQU 0 01914000 ISTAVT EQU 0 01915000 ISTAS49 EQU ISTAVT+4 01916000 IOSATTSC EQU IOSIPIB 01917000 IOSWTOWA EQU IOSIPIB 01918000 IOSPCISC EQU IOSIPIB 01919000 CVTS01 EQU CVTPGSIA 01920000 CVTLPDIA EQU CVTS01+12 01921000 CVTDIRST EQU CVTLPDIA 01922000 CVTSLIDA EQU CVTS01+24 01923000 CVTCTLFG EQU CVTS01+50 01924000 CVTRV210 EQU CVTS01+424 01925000 CVTRV219 EQU CVTS01+425 01926000 CVTRV228 EQU CVTS01+426 01927000 CVTRV237 EQU CVTS01+427 01928000 CVTMFRTR EQU CVTS01+452 01929000 CVTRV262 EQU CVTS01+468 01930000 CVTRV271 EQU CVTS01+469 01931000 CVTRV280 EQU CVTS01+470 01932000 CVTRV289 EQU CVTS01+471 01933000 CVTGSDA EQU CVTS01+600 01934000 IOBORG01 EQU IOBPREFX+8 01935000 IOBNIOBA EQU IOBORG01 01936000 IOBNFLG1 EQU IOBNIOBA 01937000 IOBORG02 EQU IOBPREFX+8 01938000 IOBDQADA EQU IOBORG02 01939000 IOBDEQIN EQU IOBDQADA 01940000 IOBORG03 EQU IOBPREFX+12 01941000 IOBORG04 EQU IOBINCAM 01942000 IOBORG12 EQU IOBINCAM 01943000 IOBFL4 EQU IOBORG12 01944000 IOBEXTEN EQU IOBSTDRD+32 01945000 IOBSEEK EQU IOBEXTEN 01946000 IOBBB EQU IOBSEEK+1 01947000 IOBCC EQU IOBSEEK+3 01948000 IOBHH EQU IOBSEEK+5 01949000 IOBORG05 EQU IOBEXTEN 01950000 IOBORG06 EQU IOBEXTEN 01951000 IOBNXTPT EQU IOBORG06+4 01952000 IOBSTATA EQU IOBNXTPT 01953000 IOBORG07 EQU IOBEXTEN+8 01954000 W1IEXTEN EQU IOBORG07 01955000 IOBORG08 EQU IOBEXTEN+8 01956000 IOBINDCT EQU IOBORG08+4 01957000 IOBUNSQR EQU IOBORG08+5 01958000 IOBFCHAD EQU IOBORG08+8 01959000 IOBORG09 EQU IOBEXTEN+8 01960000 IOBDPLAD EQU IOBORG09+4 01961000 IOBDTYPE EQU IOBORG09+8 01962000 IOBDTYP2 EQU IOBORG09+9 01963000 IOBDSTAT EQU IOBORG09+10 01964000 IOBSTAT1 EQU IOBDSTAT 01965000 IOBORG10 EQU IOBEXTEN+8 01966000 IOBSEEK2 EQU IOBORG10 01967000 IOBORG11 EQU IOBEXTEN 01968000 IOBERCT EQU IOBORG11 01969000 IOBUCBXV EQU IOBERCT 01970000 IOBNAME EQU IOBORG11+4 01971000 IOBORG13 EQU IOBEXTEN 01972000 IOBSKADR EQU IOBORG13 01973000 RTRDNCBA EQU ISTRTR+40 01974000 SRB EQU SRBSECT 01975000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01976000 IOBSKSS EQU IOBSKADR+3 01977000 IOBSK0 EQU IOBSKADR+2 01978000 IOBSKTT EQU IOBSKADR+1 01979000 IOBSKRV EQU IOBSKADR 01980000 IOBCSWSV EQU IOBORG11+17 01981000 IOBSENSV EQU IOBORG11+16 01982000 IOBRCD EQU IOBORG11+12 01983000 IOBMDREC EQU IOBORG11+8 01984000 IOBNAMEA EQU IOBNAME+1 01985000 IOBNAMSZ EQU IOBNAME 01986000 IOBERCTA EQU IOBERCT+1 01987000 IOBRTYPE EQU IOBUCBXV 01988000 IOBRDCHP EQU IOBORG10+20 01989000 IOBNEXTA EQU IOBORG10+16 01990000 IOBREADA EQU IOBORG10+12 01991000 IOBBUFC EQU IOBORG10+8 01992000 IOBSK2R EQU IOBSEEK2+7 01993000 IOBSK2HH EQU IOBSEEK2+5 01994000 IOBSK2CC EQU IOBSEEK2+3 01995000 IOBSK2BB EQU IOBSEEK2+1 01996000 IOBSK2M EQU IOBSEEK2 01997000 IOBCHNPR EQU IOBORG09+40 01998000 IOBDNCRF EQU IOBORG09+32 01999000 IOBRSV35 EQU IOBORG09+24 02000000 IOBDQPTR EQU IOBORG09+20 02001000 IOBRSV34 EQU IOBORG09+18 02002000 IOBDBYTN EQU IOBORG09+16 02003000 IOBDCPND EQU IOBORG09+12 02004000 IOBSTAT2 EQU IOBDSTAT+1 02005000 IOBSIORT EQU IOBSTAT1 02006000 IOBADDVU EQU IOBSTAT1 02007000 IOBBUFF EQU IOBSTAT1 02008000 IOBENQUE EQU IOBSTAT1 02009000 IOBPASS2 EQU IOBSTAT1 02010000 IOBSYNCH EQU IOBSTAT1 02011000 IOBNEWVL EQU IOBSTAT1 02012000 IOBABNRM EQU IOBSTAT1 02013000 IOBRELEX EQU IOBDTYP2 02014000 IOBADDTY EQU IOBDTYP2 02015000 IOBTYPE EQU IOBDTYP2 02016000 IOBRQUST EQU IOBDTYP2 02017000 IOBSUFFX EQU IOBDTYP2 02018000 IOBSBLKL EQU IOBDTYP2 02019000 IOBSKEY EQU IOBDTYP2 02020000 IOBRELBL EQU IOBDTYPE 02021000 IOBRDEXC EQU IOBDTYPE 02022000 IOBDYNBF EQU IOBDTYPE 02023000 IOBACTAD EQU IOBDTYPE 02024000 IOBFDBCK EQU IOBDTYPE 02025000 IOBEXTSC EQU IOBDTYPE 02026000 IOBOVFLO EQU IOBDTYPE 02027000 IOBVERFY EQU IOBDTYPE 02028000 IOBDPLB EQU IOBDPLAD+1 02029000 IOBDAYLI EQU IOBDPLAD 02030000 IOBDIOBS EQU IOBORG09+2 02031000 IOBDBYTR EQU IOBORG09 02032000 IOBBCHAD EQU IOBORG08+12 02033000 IOBFCHNB EQU IOBFCHAD+1 02034000 IOBCOUNT EQU IOBFCHAD 02035000 IOBASYN EQU IOBORG08+7 02036000 IOBAPP EQU IOBORG08+6 02037000 IOBRSV32 EQU IOBUNSQR 02038000 IOBRSV31 EQU IOBUNSQR 02039000 IOBRSV30 EQU IOBUNSQR 02040000 IOBKNRWR EQU IOBUNSQR 02041000 IOBKNWR EQU IOBUNSQR 02042000 IOBNTAV2 EQU IOBUNSQR 02043000 IOBNTAV1 EQU IOBUNSQR 02044000 IOBCPBSY EQU IOBUNSQR 02045000 IOBCHNNL EQU IOBINDCT 02046000 IOBRSV29 EQU IOBINDCT 02047000 IOBRSV28 EQU IOBINDCT 02048000 IOBRSV27 EQU IOBINDCT 02049000 IOBKEYAD EQU IOBINDCT 02050000 IOBOVPTR EQU IOBINDCT 02051000 IOBUNSCH EQU IOBINDCT 02052000 IOBDEQCP EQU IOBINDCT 02053000 IOBCCWAD EQU IOBORG08 02054000 W1OEXTEN EQU W1IEXTEN 02055000 IOBCCW EQU IOBORG06+8 02056000 IOBNXTPB EQU IOBNXTPT+1 02057000 IOBRSV26 EQU IOBSTATA 02058000 IOBRSV25 EQU IOBSTATA 02059000 IOBRSV24 EQU IOBSTATA 02060000 IOBRSV23 EQU IOBSTATA 02061000 IOBRSV22 EQU IOBSTATA 02062000 IOBRSV21 EQU IOBSTATA 02063000 IOBRSV20 EQU IOBSTATA 02064000 IOBAVLFL EQU IOBSTATA 02065000 IOBRSV37 EQU IOBORG06+1 02066000 IOBUCBXG EQU IOBORG06 02067000 IOBCPA EQU IOBORG05+32 02068000 IOBERINF EQU IOBORG05+16 02069000 IOBERCCW EQU IOBORG05+8 02070000 IOBSNDPT EQU IOBORG05+7 02071000 IOBRCVPT EQU IOBORG05+6 02072000 IOBWORK EQU IOBORG05+1 02073000 IOBUCBX EQU IOBORG05 02074000 IOBR EQU IOBSEEK+7 02075000 IOBHH2 EQU IOBHH+1 02076000 IOBHH1 EQU IOBHH 02077000 IOBCC2 EQU IOBCC+1 02078000 IOBCC1 EQU IOBCC 02079000 IOBBB2 EQU IOBBB+1 02080000 IOBBB1 EQU IOBBB 02081000 IOBM EQU IOBSEEK 02082000 IOBRSV46 EQU IOBFL4 02083000 IOBRSV47 EQU IOBFL4 02084000 IOBENT EQU IOBFL4 02085000 IOBEQP EQU IOBFL4 02086000 IOBBUS EQU IOBFL4 02087000 IOBDCK EQU IOBFL4 02088000 IOBREJ EQU IOBFL4 02089000 IOBOVR EQU IOBFL4 02090000 IOBCRILC EQU IOBORG04+1 02091000 IOBCRDCC EQU IOBORG04 02092000 IOBGQECB EQU IOBORG03 02093000 IOBSWAP EQU IOBORG02+4 02094000 IOBDQADB EQU IOBDQADA+1 02095000 IOBRSV13 EQU IOBDEQIN 02096000 IOBRSV12 EQU IOBDEQIN 02097000 IOBRSV11 EQU IOBDEQIN 02098000 IOBRSV10 EQU IOBDEQIN 02099000 IOBRSV09 EQU IOBDEQIN 02100000 IOBRSV08 EQU IOBDEQIN 02101000 IOBRSV07 EQU IOBDEQIN 02102000 IOBDEQ EQU IOBDEQIN 02103000 IOBNECB EQU IOBORG01+4 02104000 IOBNIOBB EQU IOBNIOBA+1 02105000 IOBFIRST EQU IOBNFLG1 02106000 IOBUPERR EQU IOBNFLG1 02107000 IOBSPAN EQU IOBNFLG1 02108000 IOBBKSPC EQU IOBNFLG1 02109000 IOBUPDAT EQU IOBNFLG1 02110000 IOBREAD EQU IOBNFLG1 02111000 IOBWRITE EQU IOBNFLG1 02112000 IOBPRTOV EQU IOBNFLG1 02113000 CVTRV628 EQU CVTS01+728 02114000 CVTRV627 EQU CVTS01+724 02115000 CVTRV626 EQU CVTS01+720 02116000 CVTRV625 EQU CVTS01+716 02117000 CVTRV624 EQU CVTS01+712 02118000 CVTRV623 EQU CVTS01+708 02119000 CVTRV622 EQU CVTS01+704 02120000 CVTRV621 EQU CVTS01+700 02121000 CVTRV620 EQU CVTS01+696 02122000 CVTRV619 EQU CVTS01+692 02123000 CVTRV618 EQU CVTS01+688 02124000 CVTRV617 EQU CVTS01+684 02125000 CVTRV616 EQU CVTS01+680 02126000 CVTRV615 EQU CVTS01+676 02127000 CVTRV614 EQU CVTS01+672 02128000 CVTRV613 EQU CVTS01+668 02129000 CVTRV612 EQU CVTS01+664 02130000 CVTRV611 EQU CVTS01+660 02131000 CVTEVERM EQU CVTS01+656 02132000 CVTIRM EQU CVTS01+652 02133000 CVTCGK EQU CVTS01+648 02134000 CVTRAC EQU CVTS01+644 02135000 CVTRV606 EQU CVTS01+640 02136000 CVTRV605 EQU CVTS01+636 02137000 CVTRV604 EQU CVTS01+632 02138000 CVTEFF02 EQU CVTS01+628 02139000 CVTCBBR EQU CVTS01+624 02140000 CVTSSCR EQU CVTS01+620 02141000 CVTEVENT EQU CVTS01+616 02142000 CVTCRCA EQU CVTS01+612 02143000 CVTTPIO EQU CVTS01+608 02144000 CVTADV EQU CVTS01+604 02145000 CVTGSDAB EQU CVTGSDA 02146000 CVTQV3 EQU CVTS01+596 02147000 CVTQV2 EQU CVTS01+592 02148000 CVTQV1 EQU CVTS01+588 02149000 CVTRPT EQU CVTS01+584 02150000 CVTSSRB EQU CVTS01+580 02151000 CVTCSDRL EQU CVTS01+576 02152000 CVTEXP1 EQU CVTS01+572 02153000 CVTRMPMT EQU CVTS01+568 02154000 CVTRMPTT EQU CVTS01+564 02155000 CVTVPSA EQU CVTS01+560 02156000 CVTVSTOP EQU CVTS01+556 02157000 CVTGTFR8 EQU CVTS01+552 02158000 CVTQUIT EQU CVTS01+548 02159000 CVTVACR EQU CVTS01+544 02160000 CVTWTCB EQU CVTS01+540 02161000 CVTSTPRS EQU CVTS01+536 02162000 CVT0PT02 EQU CVTS01+532 02163000 CVTDARCM EQU CVTS01+528 02164000 CVTIRECM EQU CVTS01+524 02165000 CVTJRECM EQU CVTS01+520 02166000 CVTVEMS0 EQU CVTS01+516 02167000 CVTSPFRR EQU CVTS01+512 02168000 CVTRLSTG EQU CVTS01+508 02169000 CVT0TC0A EQU CVTS01+504 02170000 CVTGMBR EQU CVTS01+500 02171000 CVTLFRM EQU CVTS01+496 02172000 CVTRMBR EQU CVTS01+492 02173000 CVTVIOP EQU CVTS01+488 02174000 CVTRV307 EQU CVTS01+486 02175000 CVTRV306 EQU CVTS01+484 02176000 CVTRV305 EQU CVTS01+482 02177000 CVTRV304 EQU CVTS01+480 02178000 CVTRV303 EQU CVTS01+478 02179000 CVTRV302 EQU CVTS01+476 02180000 CVTTRCA EQU CVTS01+472 02181000 CVTRV297 EQU CVTRV289 02182000 CVTRV296 EQU CVTRV289 02183000 CVTRV295 EQU CVTRV289 02184000 CVTRV294 EQU CVTRV289 02185000 CVTRV293 EQU CVTRV289 02186000 CVTRV292 EQU CVTRV289 02187000 CVTRV291 EQU CVTRV289 02188000 CVTRV290 EQU CVTRV289 02189000 CVTRV288 EQU CVTRV280 02190000 CVTRV287 EQU CVTRV280 02191000 CVTRV286 EQU CVTRV280 02192000 CVTRV285 EQU CVTRV280 02193000 CVTRV284 EQU CVTRV280 02194000 CVTRV283 EQU CVTRV280 02195000 CVTRV282 EQU CVTRV280 02196000 CVTRV281 EQU CVTRV280 02197000 CVTRV279 EQU CVTRV271 02198000 CVTRV278 EQU CVTRV271 02199000 CVTRV277 EQU CVTRV271 02200000 CVTRV276 EQU CVTRV271 02201000 CVTRV275 EQU CVTRV271 02202000 CVTRV274 EQU CVTRV271 02203000 CVTRV273 EQU CVTRV271 02204000 CVTRV272 EQU CVTRV271 02205000 CVTRV270 EQU CVTRV262 02206000 CVTRV269 EQU CVTRV262 02207000 CVTRV268 EQU CVTRV262 02208000 CVTRV267 EQU CVTRV262 02209000 CVTRV266 EQU CVTRV262 02210000 CVTRV265 EQU CVTRV262 02211000 CVTRV264 EQU CVTRV262 02212000 CVTRV263 EQU CVTRV262 02213000 CVTVFP EQU CVTS01+464 02214000 CVTVSI EQU CVTS01+460 02215000 CVTVPSIB EQU CVTS01+456 02216000 CVTMFACT EQU CVTMFRTR 02217000 CVTMFCTL EQU CVTS01+448 02218000 CVTPVBP EQU CVTS01+444 02219000 CVTPWI EQU CVTS01+440 02220000 CVTRV254 EQU CVTS01+438 02221000 CVTRV253 EQU CVTS01+436 02222000 CVTRV252 EQU CVTS01+434 02223000 CVTRV251 EQU CVTS01+433 02224000 CVTRV250 EQU CVTS01+432 02225000 CVTRV249 EQU CVTS01+431 02226000 CVTRV248 EQU CVTS01+430 02227000 CVTRV247 EQU CVTS01+429 02228000 CVTRV246 EQU CVTS01+428 02229000 CVTRV245 EQU CVTRV237 02230000 CVTRV244 EQU CVTRV237 02231000 CVTRV243 EQU CVTRV237 02232000 CVTRV242 EQU CVTRV237 02233000 CVTRV241 EQU CVTRV237 02234000 CVTRV240 EQU CVTRV237 02235000 CVTRV239 EQU CVTRV237 02236000 CVTRV238 EQU CVTRV237 02237000 CVTRV236 EQU CVTRV228 02238000 CVTRV235 EQU CVTRV228 02239000 CVTRV234 EQU CVTRV228 02240000 CVTRV233 EQU CVTRV228 02241000 CVTRV232 EQU CVTRV228 02242000 CVTRV231 EQU CVTRV228 02243000 CVTRV230 EQU CVTRV228 02244000 CVTRV229 EQU CVTRV228 02245000 CVTRV227 EQU CVTRV219 02246000 CVTRV226 EQU CVTRV219 02247000 CVTRV225 EQU CVTRV219 02248000 CVTRV224 EQU CVTRV219 02249000 CVTRV223 EQU CVTRV219 02250000 CVTRV222 EQU CVTRV219 02251000 CVTRV221 EQU CVTRV219 02252000 CVTRV220 EQU CVTRV219 02253000 CVTRV218 EQU CVTRV210 02254000 CVTRV217 EQU CVTRV210 02255000 CVTRV216 EQU CVTRV210 02256000 CVTRV215 EQU CVTRV210 02257000 CVTRV214 EQU CVTRV210 02258000 CVTRV213 EQU CVTRV210 02259000 CVTRV212 EQU CVTRV210 02260000 CVTRV211 EQU CVTRV210 02261000 CVTLCCAT EQU CVTS01+420 02262000 CVTPCCAT EQU CVTS01+416 02263000 CVTIPCRP EQU CVTS01+412 02264000 CVTIPCRI EQU CVTS01+408 02265000 CVTIPCDS EQU CVTS01+404 02266000 CVTAIDVT EQU CVTS01+400 02267000 CVTSSAP EQU CVTS01+396 02268000 CVTEHCIR EQU CVTS01+392 02269000 CVTEHDEF EQU CVTS01+388 02270000 CVTDAIR EQU CVTS01+384 02271000 CVTPERFM EQU CVTS01+380 02272000 CVT044R2 EQU CVTS01+376 02273000 CVTFETCH EQU CVTS01+372 02274000 CVTRSTWD EQU CVTS01+368 02275000 CVTSPOST EQU CVTS01+364 02276000 CVTIOBP EQU CVTS01+360 02277000 CVTASMVT EQU CVTS01+356 02278000 CVTRECRQ EQU CVTS01+352 02279000 CVTWSAC EQU CVTS01+348 02280000 CVTRV149 EQU CVTS01+344 02281000 CVTWSAL EQU CVTS01+340 02282000 CVTSPSA EQU CVTS01+336 02283000 CVTGLMN EQU CVTS01+332 02284000 CVTVEAC0 EQU CVTS01+328 02285000 CVT062R1 EQU CVTS01+324 02286000 CVTRPOST EQU CVTS01+320 02287000 CVTDQIQE EQU CVTS01+316 02288000 CVTCSD EQU CVTS01+312 02289000 CVTLKRMA EQU CVTS01+308 02290000 CVTRSPIE EQU CVTS01+304 02291000 CVTRENQ EQU CVTS01+300 02292000 CVTLQCB EQU CVTS01+296 02293000 CVTFQCB EQU CVTS01+292 02294000 CVTQCS01 EQU CVTS01+288 02295000 CVTAPFT EQU CVTS01+284 02296000 CVTPARRL EQU CVTS01+280 02297000 CVTVWAIT EQU CVTS01+276 02298000 CVTGSPL EQU CVTS01+272 02299000 CVTLSMQ EQU CVTS01+268 02300000 CVTGSMQ EQU CVTS01+264 02301000 CVTEXPRO EQU CVTS01+260 02302000 CVTOPCTP EQU CVTS01+256 02303000 CVTSIC EQU CVTS01+252 02304000 CVTTPIOS EQU CVTS01+248 02305000 CVTRTMS EQU CVTS01+244 02306000 CVTSDBF EQU CVTS01+240 02307000 CVTSCBP EQU CVTS01+236 02308000 CVTSDMP EQU CVTS01+232 02309000 CVTSV60 EQU CVTS01+228 02310000 CVTRTMCT EQU CVTS01+224 02311000 CVTASCBL EQU CVTS01+220 02312000 CVTASCBH EQU CVTS01+216 02313000 CVTGDA EQU CVTS01+212 02314000 CVTASVT EQU CVTS01+208 02315000 CVTVVMDI EQU CVTS01+204 02316000 CVTAQTOP EQU CVTS01+200 02317000 CVTIOSCS EQU CVTS01+196 02318000 CVTSDRM EQU CVTS01+192 02319000 CVTOPTE EQU CVTS01+188 02320000 CVTSTXU EQU CVTS01+184 02321000 CVTQUIS EQU CVTS01+180 02322000 CVTPARS EQU CVTS01+176 02323000 CVTS1EE EQU CVTS01+172 02324000 CVTFRAS EQU CVTS01+168 02325000 CVTQSAS EQU CVTS01+164 02326000 CVTCRAS EQU CVTS01+160 02327000 CVTCRMN EQU CVTS01+156 02328000 CVTDELCP EQU CVTS01+152 02329000 CVTFRECL EQU CVTS01+148 02330000 CVTGETCL EQU CVTS01+144 02331000 CVTBLDCP EQU CVTS01+140 02332000 CVTAUTHL EQU CVTS01+136 02333000 CVTSCAN EQU CVTS01+132 02334000 CVTRV144 EQU CVTS01+130 02335000 CVTMAXMP EQU CVTS01+128 02336000 CVTSTCK EQU CVTS01+124 02337000 CVTRV139 EQU CVTS01+123 02338000 CVTDSSAC EQU CVTS01+122 02339000 CVTRV513 EQU CVTS01+121 02340000 CVTIOSPL EQU CVTS01+120 02341000 CVTPTGT EQU CVTS01+116 02342000 CVTCSPIE EQU CVTS01+112 02343000 CVTSMFEX EQU CVTS01+108 02344000 CVTOLT0A EQU CVTS01+104 02345000 CVTSRBRT EQU CVTS01+100 02346000 CVTPUTL EQU CVTS01+96 02347000 CVTRV519 EQU CVTS01+92 02348000 CVTRV327 EQU CVTS01+88 02349000 CVTRV326 EQU CVTS01+84 02350000 CVTRV325 EQU CVTS01+80 02351000 CVTRV324 EQU CVTS01+76 02352000 CVT0VL01 EQU CVTS01+72 02353000 CVTSHRVM EQU CVTS01+68 02354000 CVTRV332 EQU CVTS01+64 02355000 CVTTAS EQU CVTS01+60 02356000 CVTRSCN EQU CVTS01+56 02357000 CVTTRAC2 EQU CVTS01+54 02358000 CVTTRACE EQU CVTS01+52 02359000 CVTAPG EQU CVTS01+51 02360000 CVTSDTRC EQU CVTCTLFG 02361000 CVTGTRCE EQU CVTCTLFG 02362000 CVTNOMP EQU CVTCTLFG 02363000 CVTRSV79 EQU CVTCTLFG 02364000 CVTDSTAT EQU CVTCTLFG 02365000 CVTRSV78 EQU CVTCTLFG 02366000 CVTRV333 EQU CVTCTLFG 02367000 CVTRV323 EQU CVTCTLFG 02368000 CVTSPVLK EQU CVTS01+49 02369000 CVTRSV77 EQU CVTS01+48 02370000 CVTRV331 EQU CVTS01+44 02371000 CVTRV330 EQU CVTS01+40 02372000 CVTRV329 EQU CVTS01+36 02373000 CVTRV328 EQU CVTS01+32 02374000 CVTRV322 EQU CVTS01+28 02375000 CVTSLID EQU CVTSLIDA+1 02376000 CVTSYLK EQU CVTSLIDA 02377000 CVTRV321 EQU CVTS01+20 02378000 CVTRV320 EQU CVTS01+16 02379000 CVTLPDIR EQU CVTLPDIA+1 02380000 CVTRSV69 EQU CVTDIRST 02381000 CVTRSV68 EQU CVTDIRST 02382000 CVTRSV67 EQU CVTDIRST 02383000 CVTRSV66 EQU CVTDIRST 02384000 CVTRSV65 EQU CVTDIRST 02385000 CVTRSV64 EQU CVTDIRST 02386000 CVTRSV63 EQU CVTDIRST 02387000 CVTDICOM EQU CVTDIRST 02388000 CVTPVTP EQU CVTS01+8 02389000 CVTLPDSR EQU CVTS01+4 02390000 CVTGETL EQU CVTS01 02391000 IOSPCIWA EQU IOSPCISC+44 02392000 IOSPCIRS EQU IOSPCISC+8 02393000 @NM00007 EQU IOSPCISC+4 02394000 @NM00006 EQU IOSPCISC 02395000 IOSWRNDR EQU IOSWTOWA+4 02396000 IOSWTOPT EQU IOSWTOWA+3 02397000 IOSWTOCP EQU IOSWTOWA+2 02398000 IOSWTOCH EQU IOSWTOWA 02399000 IOSATTWA EQU IOSATTSC+40 02400000 @NM00005 EQU IOSATTSC+24 02401000 IOSATTSN EQU IOSATTSC 02402000 ISTPDAVP EQU ISTAVT+40 02403000 ISTAVR01 EQU ISTAVT+38 02404000 ISTVTTP EQU ISTAVT+36 02405000 ISTAGTWT EQU ISTAVT+34 02406000 ISTATRT EQU ISTAVT+32 02407000 ISTARID EQU ISTAVT+30 02408000 ISTX1 EQU ISTAVT+29 02409000 ISTPHNM EQU ISTAVT+24 02410000 ISTAPSEX EQU ISTAVT+20 02411000 ISTVTTIK EQU ISTAVT+18 02412000 AVTASID EQU ISTAVT+16 02413000 ISTAPSTA EQU ISTAVT+12 02414000 ISTAS53 EQU ISTAVT+8 02415000 ISTAHIP EQU ISTAS49 02416000 ISTACVT EQU ISTAVT 02417000 ATCAOS EQU ISTATCVT+1552 02418000 ATCVIOPM EQU ATCAOSM+636 02419000 ATCTPMMI EQU ATCAOSM+632 02420000 ATCTPMPB EQU ATCAOSM+600 02421000 ATCRPLCT EQU ATCAOSM+594 02422000 ATCCRACT EQU ATCAOSM+592 02423000 ATCSRBCT EQU ATCAOSM+590 02424000 ATCRSV75 EQU ATCAOSM+589 02425000 ATCRSV66 EQU ATCZFLAG 02426000 ATCZF001 EQU ATCZFLAG 02427000 ATCTPCP1 EQU ATCAOSM+584 02428000 ATCTPCP0 EQU ATCAOSM+580 02429000 ATCAICTN EQU ATCAOSM+576 02430000 ATCZR01 EQU ATCAOSM+572 02431000 ATCMPLTA EQU ATCAOSM+568 02432000 ATCASCB EQU ATCAOSM+564 02433000 ATCAP86 EQU ATCAOSM+560 02434000 ATCAP85 EQU ATCAOSM+556 02435000 ATCAP84 EQU ATCAOSM+552 02436000 ATCAP83 EQU ATCAOSM+548 02437000 ATCAP82 EQU ATCAOSM+544 02438000 ATCAP69 EQU ATCAOSM+540 02439000 ATCAP66 EQU ATCAOSM+536 02440000 ATCAP62 EQU ATCAOSM+532 02441000 ATCAPC59 EQU ATCAOSM+528 02442000 ATCAP56 EQU ATCAOSM+524 02443000 ATCAP55 EQU ATCAOSM+520 02444000 ATCRCFY0 EQU ATCAOSM+516 02445000 ATCAP41 EQU ATCAOSM+512 02446000 ATCAPC25 EQU ATCAOSM+508 02447000 ATCAP23 EQU ATCAOSM+504 02448000 ATCTPSPB EQU ATCAOSM+472 02449000 ATCTRMPB EQU ATCAOSM+440 02450000 ATCPSTA EQU ATCAOSM+432 02451000 ATCSMABF EQU ATCAOSM+428 02452000 ATCSMAPR EQU ATCAOSM+424 02453000 ATCTPWQA EQU ATCAOSM+420 02454000 ATCSMAID EQU ATCAOSM+416 02455000 ATCSMARA EQU ATCAOSM+412 02456000 ATCCACXA EQU ATCAOSM+408 02457000 ATCZLAAB EQU ATCAOSM+404 02458000 ATCATA10 EQU ATCAOSM+400 02459000 ATCHLTCB EQU ATCAOSM+396 02460000 @NM00048 EQU ATCVTFLG 02461000 ATCVTACT EQU ATCVTFLG 02462000 ATCRPT40 EQU ATCAOSM+388 02463000 ATCRPT39 EQU ATCAOSM+384 02464000 ATCRPT38 EQU ATCAOSM+380 02465000 ATCRPT37 EQU ATCAOSM+376 02466000 ATCRPT36 EQU ATCAOSM+372 02467000 ATCRPT35 EQU ATCAOSM+368 02468000 ATCRPT34 EQU ATCAOSM+364 02469000 ATCRPT33 EQU ATCAOSM+360 02470000 ATCRPT32 EQU ATCAOSM+356 02471000 ATCRPT31 EQU ATCAOSM+352 02472000 ATCRPT30 EQU ATCAOSM+348 02473000 ATCRPT29 EQU ATCAOSM+344 02474000 ATCRPT28 EQU ATCAOSM+340 02475000 ATCRPT27 EQU ATCAOSM+336 02476000 ATCRPT26 EQU ATCAOSM+332 02477000 ATCRPT25 EQU ATCAOSM+328 02478000 ATCRPT24 EQU ATCAOSM+324 02479000 ATCRPT23 EQU ATCAOSM+320 02480000 ATCRPT22 EQU ATCAOSM+316 02481000 ATCRPT21 EQU ATCAOSM+312 02482000 ATCRPT20 EQU ATCAOSM+308 02483000 ATCRPT19 EQU ATCAOSM+304 02484000 ATCRPT18 EQU ATCAOSM+300 02485000 ATCRPT17 EQU ATCAOSM+296 02486000 ATCRPT16 EQU ATCAOSM+292 02487000 ATCRPT15 EQU ATCAOSM+288 02488000 ATCRPT14 EQU ATCAOSM+284 02489000 ATCRPT13 EQU ATCAOSM+280 02490000 ATCRPT12 EQU ATCAOSM+276 02491000 ATCRPT11 EQU ATCAOSM+272 02492000 ATCAP38 EQU ATCAOSM+268 02493000 ATCAP37 EQU ATCAOSM+264 02494000 ATCZDFJ0 EQU ATCAOSM+260 02495000 ATCAP51 EQU ATCAOSM+256 02496000 ATCZPAB2 EQU ATCAOSM+224 02497000 ATCZPAB1 EQU ATCAOSM+192 02498000 ATCZLFVT EQU ATCAOSM+188 02499000 ATCZLPVT EQU ATCAOSM+184 02500000 ATCZDVTX EQU ATCAOSM+180 02501000 ATCZDVTA EQU ATCAOSM+176 02502000 ATCZDVT9 EQU ATCAOSM+172 02503000 ATCZDVT8 EQU ATCAOSM+168 02504000 ATCZDVT7 EQU ATCAOSM+164 02505000 ATCRSV56 EQU ATCDAPVT+22 02506000 ATCDAPDG EQU ATCDAPVT+20 02507000 ATCDXCEA EQU ATCDAPVT+16 02508000 ATCDCEA EQU ATCDAPVT+12 02509000 ATCDPCIA EQU ATCDAPVT+8 02510000 ATCDSIOA EQU ATCDAPVT+4 02511000 ATCDEOEA EQU ATCDAPVT 02512000 ATCZLAEA EQU ATCLDAPP+16 02513000 ATCZLCEA EQU ATCLDAPP+12 02514000 ATCRSV17 EQU ATCLDAPP+8 02515000 ATCSMFRR EQU ATCLDAPP+4 02516000 ATCCDTID EQU ATCLDAPP 02517000 ATCZAEA EQU ATCICAPP+16 02518000 ATCZCEA EQU ATCICAPP+12 02519000 ATCCDTCB EQU ATCICAPP+8 02520000 ATCZSIOA EQU ATCICAPP+4 02521000 ATCCDRPH EQU ATCICAPP 02522000 ATCAP65 EQU ATCAOSM+96 02523000 ATCZDVT6 EQU ATCAOSM+92 02524000 ATCZDVT4 EQU ATCAOSM+88 02525000 ATCZDVT3 EQU ATCAOSM+84 02526000 ATCZDVT1 EQU ATCAOSM+80 02527000 ATCICNCB EQU ATCAOSM+76 02528000 ATCZPSVT EQU ATCAOSM+72 02529000 ATCZFSVT EQU ATCAOSM+68 02530000 ATCAP64 EQU ATCAOSM+64 02531000 ATCAP63 EQU ATCAOSM+60 02532000 ATCAP61 EQU ATCAOSM+56 02533000 ATCAP58 EQU ATCAOSM+52 02534000 ATCAP57 EQU ATCAOSM+48 02535000 ATCAP54 EQU ATCAOSM+44 02536000 ATCAP53 EQU ATCAOSM+40 02537000 ATCAP52 EQU ATCAOSM+36 02538000 ATCAP34 EQU ATCAOSM+32 02539000 ATCAP31 EQU ATCAOSM+24 02540000 ATCAP12 EQU ATCAOSM+20 02541000 ATCAP11 EQU ATCAOSM+16 02542000 ATCCMTCB EQU ATCAOSM+12 02543000 ATCPRPH EQU ATCAOSM+8 02544000 ATCGSRBF EQU ATCGSRBG 02545000 ATCSRBRT EQU ATCAOSM 02546000 ATCRSVBB EQU ISTATCVT+908 02547000 ATCVDLOK EQU ISTATCVT+904 02548000 ATCVFPAB EQU ISTATCVT+872 02549000 ATCVDPAB EQU ISTATCVT+840 02550000 ATCIOECB EQU ISTATCVT+836 02551000 ATCINCW3 EQU ISTATCVT+832 02552000 ATCMODTB EQU ISTATCVT+828 02553000 ATCUSSPT EQU ISTATCVT+824 02554000 ATCSRTAB EQU ISTATCVT+820 02555000 @NM00047 EQU ISTATCVT+818 02556000 ATCNMCTR EQU ISTATCVT+816 02557000 ATCSEC51 EQU ATCSECST 02558000 ATCSEC40 EQU ATCSIPD+8 02559000 ATCSEC30 EQU ATCSIPD+4 02560000 ATCSEC21 EQU ATCSIPD 02561000 ATCSEC10 EQU ATCSOPD+4 02562000 ATCSEC01 EQU ATCSOPD 02563000 ATCPOIA EQU ISTATCVT+788 02564000 ATCPODVT EQU ISTATCVT+784 02565000 ATCS49XL EQU ISTATCVT+780 02566000 ATCS49XI EQU ISTATCVT+776 02567000 ATCLCLCT EQU ATCVLCNT+2 02568000 ATCRNCNT EQU ATCVLCNT 02569000 ATCCFEAD EQU ISTATCVT+768 02570000 ATCPTR00 EQU ISTATCVT+736 02571000 ATCRSV10 EQU ISTATCVT+704 02572000 ATCTACB EQU ISTATCVT+700 02573000 ATCVTINM EQU ISTATCVT+696 02574000 ATCTCLIM EQU ISTATCVT+692 02575000 ATCTCLOM EQU ISTATCVT+688 02576000 ATCVTIPB EQU ISTATCVT+656 02577000 ATCTCIPB EQU ISTATCVT+624 02578000 ATCTIPAB EQU ISTATCVT+592 02579000 ATCOCCCB EQU ISTATCVT+588 02580000 ATCOCCOB EQU ISTATCVT+584 02581000 ATCCDLAD EQU ISTATCVT+580 02582000 ATCCCLAD EQU ISTATCVT+576 02583000 ATCDLRPB EQU ISTATCVT+544 02584000 ATCPGPAB EQU ISTATCVT+512 02585000 ATCVPAB1 EQU ISTATCVT+480 02586000 ATCRSV97 EQU ISTATCVT+476 02587000 ATCRDTLK EQU ISTATCVT+472 02588000 ATCVOCLK EQU ISTATCVT+468 02589000 ATCCDFDN EQU ISTATCVT+464 02590000 ATCCDFIN EQU ISTATCVT+460 02591000 ATCDVTLK EQU ISTATCVT+456 02592000 ATCAP36 EQU ISTATCVT+452 02593000 ATCAP35 EQU ISTATCVT+448 02594000 ATCAP33 EQU ISTATCVT+444 02595000 ATCRSV99 EQU ISTATCVT+412 02596000 ATCLDECB EQU ISTATCVT+408 02597000 ATCLDNCS EQU ISTATCVT+404 02598000 ATCCDPTR EQU ISTATCVT+400 02599000 ATCADEL EQU ISTATCVT+396 02600000 ATCTODVT EQU ISTATCVT+392 02601000 ATCDEBCH EQU ISTATCVT+388 02602000 ATCHBSIZ EQU ATCHPGM+2 02603000 ATCHBFNO EQU ATCHPGM 02604000 ATCCRME EQU ISTATCVT+380 02605000 ATCRVCHS EQU ISTATCVT+372 02606000 ATCECTLP EQU ISTATCVT+368 02607000 ATCZDVTB EQU ISTATCVT+364 02608000 ATCECPRT EQU ISTATCVT+360 02609000 ATCVTLOD EQU ISTATCVT+356 02610000 ATCTRPAB EQU ISTATCVT+352 02611000 ATCMSGM EQU ISTATCVT+348 02612000 ATCEPT EQU ISTATCVT+340 02613000 ATCDVT EQU ISTATCVT+336 02614000 ATCTRCPT EQU ISTATCVT+332 02615000 ATCDVLOD EQU ISTATCVT+328 02616000 ATCALERT EQU ISTATCVT+324 02617000 ATCEPA EQU ISTATCVT+320 02618000 ATCSAF EQU ISTATCVT+318 02619000 ATCXRANG EQU ISTATCVT+317 02620000 ATCLAST EQU ATCSHRFG 02621000 ATCSHRTN EQU ISTATCVT+308 02622000 ATCUEP EQU ISTATCVT+304 02623000 ATCOCRT EQU ISTATCVT+300 02624000 ATCCSMA EQU ATCCSMR 02625000 ATCESC02 EQU ISTATCVT+292 02626000 ATCESC01 EQU ISTATCVT+288 02627000 ATCCDFND EQU ISTATCVT+284 02628000 ATCCDDEL EQU ISTATCVT+280 02629000 ATCCDADD EQU ISTATCVT+276 02630000 ATCMNT EQU ISTATCVT+272 02631000 ATCRSV16 EQU ISTATCVT+270 02632000 ATCMAXID EQU ISTATCVT+269 02633000 ATCMSGSP EQU ATCCOM+268 02634000 ATCCIDM EQU ATCCOM+266 02635000 ATCACTRM EQU ATCCOM+264 02636000 ATCNERAP EQU ATCCOM+260 02637000 ATCNESAL EQU ATCCOM+256 02638000 ATCRCC65 EQU ATCCOM+252 02639000 ATCRCC26 EQU ATCCOM+248 02640000 ATCRCC63 EQU ATCCOM+244 02641000 ATCRSV11 EQU ATCCOM+242 02642000 ATCVTMID EQU ATCCOM+240 02643000 ATCAPOST EQU ATCCOM+236 02644000 ATCNERFN EQU ATCCOM+232 02645000 ATCNERNE EQU ATCCOM+228 02646000 ATCNERCV EQU ATCCOM+224 02647000 ATCNERST EQU ATCCOM+220 02648000 ATCDCC61 EQU ATCCOM+216 02649000 ATCDCC60 EQU ATCCOM+212 02650000 ATCSRTDF EQU ATCCOM+208 02651000 ATCSRTAD EQU ATCCOM+204 02652000 ATCFIRA EQU ATCCOM+200 02653000 ATCSMBQ EQU ATCCOM+196 02654000 ATCSMRC EQU ATCCOM+192 02655000 ATCSMRS EQU ATCCOM+188 02656000 ATCSMQU EQU ATCCOM+184 02657000 ATCSMRQ EQU ATCCOM+180 02658000 ATCACDA EQU ATCCOM+176 02659000 ATCSTMA EQU ATCCOM+172 02660000 ATCFRSTR EQU ATCCOM+168 02661000 ATCREADA EQU ATCCOM+160 02662000 ATCALOAD EQU ATCCOM+156 02663000 ATCBLDLA EQU ATCCOM+152 02664000 ATCFBRPH EQU ATCCOM+148 02665000 ATCBFTRC EQU ATCCOM+144 02666000 ATCTPBUF EQU ATCTHTRC 02667000 ATCREMOV EQU ATCCOM+136 02668000 ATCADD EQU ATCCOM+132 02669000 ATCBPDA EQU ATCCOM+128 02670000 ATCDVTPT EQU ATCCOM+124 02671000 ATCFEPT EQU ATCCOM+120 02672000 ATCFDVT EQU ATCCOM+116 02673000 ATCCONFT EQU ATCCOM+112 02674000 ATCPTCHA EQU ATCCOM+108 02675000 ATCAUTHA EQU ATCCOM+104 02676000 ATCACCTA EQU ATCCOM+100 02677000 ATCRDTH EQU ATCCOM+96 02678000 ATCFRSCH EQU ATCCOM+92 02679000 ATCFSB EQU ATCCOM+88 02680000 ATCHLTMS EQU ATCCOM+84 02681000 ATCECPRM EQU ATCCOM+80 02682000 ATCECNET EQU ATCCOM+76 02683000 ATCECOPC EQU ATCCOM+72 02684000 ATCVPARM EQU ATCCOM+68 02685000 ATCECVRQ EQU ATCCOM+64 02686000 ATCECSES EQU ATCCOM+60 02687000 ATCOCHA EQU ATCCOM+56 02688000 ATCDSPLQ EQU ATCCOM+52 02689000 ATCECDSP EQU ATCCOM+48 02690000 ATCVARYQ EQU ATCCOM+44 02691000 ATCECVRY EQU ATCCOM+40 02692000 ATCHALTQ EQU ATCCOM+36 02693000 ATCECHLT EQU ATCCOM+32 02694000 ATCMODQ EQU ATCCOM+28 02695000 ATCECMOD EQU ATCCOM+24 02696000 ATCASCHD EQU ATCCOM+20 02697000 ATCSRT EQU ATCCOM+16 02698000 ATCRDT EQU ATCCOM+12 02699000 ATCDCFRR EQU ATCCOM+8 02700000 ATCAPI EQU ATCCOM+4 02701000 ATCRSV04 EQU ATCSTAT4 02702000 ATCNCSD EQU ATCSTAT4 02703000 ATCMTST EQU ATCSTAT4 02704000 ATCTPRT EQU ATCSTAT4 02705000 ATCPRTAT EQU ATCSTAT4 02706000 @NM00046 EQU ATCPOFLG 02707000 ATCPOUNS EQU ATCPOFLG 02708000 ATCHSDMF EQU ATCSTFLG 02709000 @NM00045 EQU ATCSTAT1 02710000 ATCINHLT EQU ATCSTAT1 02711000 ATCNETSL EQU ATCSTAT1 02712000 ATCQKHLT EQU ATCSTAT1 02713000 ATCSNHLT EQU ATCSTAT1 02714000 ATCACTIV EQU ATCSTAT1 02715000 ATCSTART EQU ATCSTAT1 02716000 DYPPAB EQU ISTDYPAB+16 02717000 DYPRSV01 EQU ISTDYPAB+12 02718000 DYPTSKID EQU ISTDYPAB+8 02719000 DYPCHAIN EQU ISTDYPAB+4 02720000 DYPFLGS EQU ISTDYPAB+2 02721000 DYPLNGTH EQU ISTDYPAB+1 02722000 DYPTYPE EQU ISTDYPAB 02723000 @NM00044 EQU EXSAV 02724000 @NM00043 EQU @NM00042 02725000 @NM00041 EQU DEVAREA+3 02726000 @NM00040 EQU DEVAREA 02727000 ICNZCON6 EQU ICNZCONS+10 02728000 ICNZCON5 EQU ICNZCONS+8 02729000 ICNZCON4 EQU ICNZCONS+6 02730000 ICNZCON3 EQU ICNZCONS+4 02731000 ICNZCON2 EQU ICNZCONS+2 02732000 ICNZCON1 EQU ICNZCONS 02733000 ICNZATSA EQU ISTICNCB+676 02734000 ICNZX012 EQU ISTICNCB+675 02735000 ICNZX011 EQU ISTICNCB+674 02736000 ICNZX010 EQU ISTICNCB+672 02737000 ICNSRB EQU ISTICNCB+628 02738000 ICNIOSB EQU ISTICNCB+520 02739000 ICNZC001 EQU ISTICNCB+512 02740000 ICNZX013 EQU ISTICNCB+511 02741000 ICNZS010 EQU ICNZH002+1 02742000 ICNZS00F EQU ICNZH002+1 02743000 ICNZS00E EQU ICNZH002+1 02744000 ICNZS00D EQU ICNZH002+1 02745000 ICNZS00C EQU ICNZH002+1 02746000 ICNZS00B EQU ICNZH002+1 02747000 ICNZS01A EQU ICNZS00A 02748000 ICNZS019 EQU ICNZS009 02749000 ICNZS018 EQU ICNZS008 02750000 ICNZS017 EQU ICNZS007 02751000 ICNZS016 EQU ICNZS006 02752000 ICNZS005 EQU ICNZH002 02753000 ICNZS014 EQU ICNZS004 02754000 ICNZS013 EQU ICNZS003 02755000 ICNZS012 EQU ICNZS002 02756000 ICNZS001 EQU ICNZH002 02757000 ICNZF028 EQU ICNZFLAG 02758000 ICNZF027 EQU ICNZFLAG 02759000 ICNZF026 EQU ICNZFLAG 02760000 ICNZF025 EQU ICNZFLAG 02761000 ICNZF024 EQU ICNZFLAG 02762000 ICNZF023 EQU ICNZFLAG 02763000 ICNZF022 EQU ICNZFLAG 02764000 ICNZF021 EQU ICNZFLAG 02765000 ICNWORD5 EQU ISTICNCB+504 02766000 ICNMSIZE EQU ISTICNCB+500 02767000 ICNLCVTA EQU ISTICNCB+496 02768000 ICNDEBAD EQU ICNDIDEB+1 02769000 ICNDCBIF EQU ICNDIDEB 02770000 ICNUCBAD EQU ICNDCDEB+8 02771000 ICNAPPAD EQU ICNDCDEB+5 02772000 ICNEXSCL EQU ICNDCDEB+4 02773000 ICNDEBID EQU ICNDCDEB 02774000 @NM00039 EQU ISTICNCB+477 02775000 ICNERCNT EQU ISTICNCB+476 02776000 ICNZX002 EQU ISTICNCB+475 02777000 ICNZX001 EQU ISTICNCB+474 02778000 ICNZH001 EQU ISTICNCB+472 02779000 ICNZSW3R EQU ISTICNCB+468 02780000 ICNZSW2R EQU ISTICNCB+464 02781000 ICNZSW1R EQU ISTICNCB+460 02782000 ICNZS4VR EQU ISTICNCB+436 02783000 ICNZS4RR EQU ISTICNCB+432 02784000 ICNZS4FC EQU ISTICNCB+428 02785000 ICNZS4BC EQU ISTICNCB+424 02786000 ICNZS3VR EQU ISTICNCB+400 02787000 ICNZS3RR EQU ISTICNCB+396 02788000 ICNZS3FC EQU ISTICNCB+392 02789000 ICNZS3BC EQU ISTICNCB+388 02790000 ICNZS1RC EQU ICNZS1VR+36 02791000 ICNDIEW3 EQU ICNDIEWA+8 02792000 ICNDIEW2 EQU ICNDIEWA+4 02793000 ICNDIEW1 EQU ICNDIEWA 02794000 ICNZS1RR EQU ISTICNCB+344 02795000 ICNZS1FC EQU ISTICNCB+340 02796000 ICNZS1BC EQU ISTICNCB+336 02797000 ICNRSTIC EQU ICNZD004 02798000 ICNRDCOD EQU ICNRSCCW 02799000 ICNZD006 EQU ISTICNCB+312 02800000 ICNZD005 EQU ISTICNCB+304 02801000 ICNWSTIC EQU ICNZD002 02802000 ICNWRCOD EQU ICNWSCCW 02803000 ICNZV008 EQU ISTICNCB+284 02804000 ICNZV007 EQU ISTICNCB+280 02805000 ICNZV006 EQU ISTICNCB+276 02806000 ICNZV005 EQU ISTICNCB+272 02807000 ICNZV004 EQU ISTICNCB+268 02808000 ICNLSTIT EQU ISTICNCB+264 02809000 ICNLSTIF EQU ISTICNCB+260 02810000 ICNZV002 EQU ISTICNCB+256 02811000 ICNZV001 EQU ISTICNCB+252 02812000 ICNZV00A EQU ISTICNCB+249 02813000 ICNBUFF EQU ISTICNCB+248 02814000 ICNCPQ EQU ISTICNCB+244 02815000 ICNNICNA EQU ISTICNCB+240 02816000 @NM00038 EQU ICNFLAG2+2 02817000 ICNZF019 EQU ICNFLAG2+2 02818000 ICNZF018 EQU ICNFLAG2+2 02819000 ICNZF017 EQU ICNFLAG2+2 02820000 ICNZF016 EQU ICNFLAG2+2 02821000 ICNZF015 EQU ICNFLAG2+2 02822000 ICNMSG EQU ICNFLAG2+1 02823000 ICNCLOSE EQU ICNFLAG2+1 02824000 ICNZF014 EQU ICNFLAG2+1 02825000 ICNZF013 EQU ICNFLAG2+1 02826000 ICNZF012 EQU ICNFLAG2+1 02827000 ICNZF011 EQU ICNFLAG2+1 02828000 ICNZF00D EQU ICNFLAG2+1 02829000 ICNZF00B EQU ICNFLAG2+1 02830000 ICNZF00A EQU ICNFLAG2 02831000 ICNZF008 EQU ICNFLAG2 02832000 ICNZF007 EQU ICNFLAG2 02833000 ICNZF005 EQU ICNFLAG2 02834000 ICNZF004 EQU ICNFLAG2 02835000 ICNZF003 EQU ICNFLAG2 02836000 ICNZF002 EQU ICNFLAG2 02837000 ICNZF001 EQU ICNFLAG2 02838000 ICNLOCK EQU ISTICNCB+232 02839000 ICNLICNA EQU ISTICNCB+228 02840000 ICNRPH EQU ISTICNCB+120 02841000 ICNZV003 EQU ISTICNCB+116 02842000 ICNLAST EQU ISTICNCB+112 02843000 ICNLSTBT EQU ISTICNCB+108 02844000 ICNSIOQ EQU ISTICNCB+104 02845000 ICNFLAG1 EQU ISTICNCB+103 02846000 ICNZSW08 EQU ICNZSWS 02847000 ICNZSW07 EQU ICNZSWS 02848000 ICNZSW06 EQU ICNZSWS 02849000 ICNZSW05 EQU ICNZSWS 02850000 ICNZSW04 EQU ICNZSWS 02851000 ICNZSW03 EQU ICNZSWS 02852000 ICNZSW02 EQU ICNZSWS 02853000 ICNZSW01 EQU ICNZSWS 02854000 ICNZFF69 EQU ICNFFLAG 02855000 @NM00037 EQU ICNFFLAG 02856000 ICNZFF05 EQU ICNFFLAG 02857000 ICNZFF04 EQU ICNFFLAG 02858000 ICNZFF03 EQU ICNFFLAG 02859000 ICNZFF02 EQU ICNFFLAG 02860000 ICNZFF01 EQU ICNFFLAG 02861000 ICNZFF00 EQU ICNFFLAG 02862000 @NM00036 EQU ICNFLAG 02863000 ICNZCRIT EQU ICNFLAG 02864000 ICNSTART EQU ICNFLAG 02865000 ICNSLOW EQU ICNFLAG 02866000 ICNZF010 EQU ICNFLAG 02867000 ICNZF00F EQU ICNFLAG 02868000 ICNZF00E EQU ICNFLAG 02869000 ICNCONF EQU ICNZF006 02870000 ICNCKPAB EQU ICNCKFLD+1 02871000 ICNRSV07 EQU ICNCKFLD 02872000 ICNCKBIT EQU ICNCKFLD 02873000 ICNZPAB4 EQU ISTICNCB+80 02874000 ICNZPAB1 EQU ISTICNCB+64 02875000 ICNRSV01 EQU ISTICNCB+60 02876000 @NM00035 EQU ISTICNCB+56 02877000 @NM00034 EQU ISTICNCB+54 02878000 @NM00033 EQU @NM00032 02879000 ICNRRY EQU @NM00032 02880000 ICNLCLUS EQU @NM00032 02881000 ICNROLN EQU @NM00032 02882000 ICNRNRY EQU @NM00032 02883000 ICNLNKMD EQU ISTICNCB+52 02884000 ICNCUUA EQU ISTICNCB+48 02885000 ICNCB EQU ISTICNCB 02886000 NCBRSV01 EQU ISTNCB+46 02887000 NCBSWDAF EQU ISTNCB+44 02888000 NCBDEVCH EQU ISTNCB+36 02889000 NCBFMCBP EQU ISTNCB+32 02890000 NCBLTRC EQU ISTNCB+30 02891000 NCBRVPT1 EQU ISTNCB+28 02892000 NCBNMLLN EQU NCBFLAGS+3 02893000 @NM00031 EQU NCBFLAG1 02894000 @NM00030 EQU NCBFLAG1 02895000 NCBTTF EQU NCBFLAG1 02896000 NCBRSYNC EQU NCBFLAG1 02897000 NCBRSTRT EQU NCBFLAG1 02898000 NCBCONF EQU NCBFLAG1 02899000 NCBSNAI EQU NCBFLAG1 02900000 NCBFLTIO EQU NCBFTRIO 02901000 NCBCSTAT EQU NCBFLAGS 02902000 NCBNCSL EQU ISTNCB+22 02903000 NCBNCBA EQU ISTNCB+20 02904000 NCBFMCBA EQU ISTNCB+16 02905000 NCBNSNA EQU ISTNCB+12 02906000 NCBTSKID EQU ISTNCB+8 02907000 NCBRDTE EQU ISTNCB+4 02908000 NCBDAF EQU ISTNCB+2 02909000 NCBLNGTH EQU ISTNCB+1 02910000 NCBTYPE EQU ISTNCB 02911000 RPHNEXPO EQU ISTRPH+104 02912000 RPHSAV16 EQU RPHWORK+60 02913000 RPHSAV15 EQU RPHWORK+56 02914000 RPHSAV14 EQU RPHWORK+52 02915000 RPHSAV13 EQU RPHWORK+48 02916000 RPHSAV12 EQU RPHWORK+44 02917000 RPHSAV11 EQU RPHWORK+40 02918000 RPHSAV10 EQU RPHWORK+36 02919000 RPHSAVE9 EQU RPHWORK+32 02920000 RPHSAVE8 EQU RPHWORK+28 02921000 RPHSAVE7 EQU RPHWORK+24 02922000 RPHSAVE6 EQU RPHWORK+20 02923000 RPHSAVE5 EQU RPHWORK+16 02924000 RPHSAVE4 EQU RPHWORK+12 02925000 RPHSAVE3 EQU RPHWORK+8 02926000 RPHSAVE2 EQU RPHWORK+4 02927000 RPHSHALF EQU RPHSAVE1+2 02928000 RPHSBIT8 EQU RPHSBITS 02929000 RPHSBIT7 EQU RPHSBITS 02930000 RPHSBIT6 EQU RPHSBITS 02931000 RPHSBIT5 EQU RPHSBITS 02932000 RPHSBIT4 EQU RPHSBITS 02933000 RPHSBIT3 EQU RPHSBITS 02934000 RPHSBIT2 EQU RPHSBITS 02935000 RPHSBIT1 EQU RPHSBITS 02936000 RPHSBYTE EQU RPHSAVE1 02937000 RPHPABQP EQU RPHPABQA+1 02938000 RPHPABFG EQU RPHPABQA 02939000 RPHCRR EQU ISTRPH+32 02940000 RPHSRP34 EQU RPHSRPRM+2 02941000 RPHSRP12 EQU RPHSRPRM 02942000 RPHWEGT EQU RPHCSPA 02943000 RPHRESUM EQU RPHRESMA+1 02944000 RPHRSV01 EQU RPHWPFLG 02945000 RPHPURGE EQU RPHWPFLG 02946000 RPHPT EQU RPHWPFLG 02947000 RPHRSKEY EQU RPHWPFLG 02948000 RPHDVTA EQU ISTRPH+12 02949000 RPHTIK EQU RPHTSKID+3 02950000 @NM00029 EQU RPHTSKID 02951000 RPHRPHAP EQU RPHRPHA+1 02952000 @NM00028 EQU RPHRPHA 02953000 RPHGATE EQU RPHRPHA 02954000 @NM00027 EQU RPHFLGB 02955000 RPHRLCRA EQU RPHFLGB 02956000 RPHNRSAV EQU RPHFLGB 02957000 RPHPGCMP EQU RPHFLGB 02958000 RPHFBAPS EQU RPHFLGB 02959000 RPHBSSP EQU RPHFLGB 02960000 RPHLOCK EQU RPHFLGB 02961000 RPHFNFLG EQU RPHFSTLC 02962000 RPHMLTCP EQU RPHFLAGS 02963000 RPHSMCLR EQU RPHFLAGS 02964000 RPHSMTYP EQU RPHFLAGS 02965000 RPHSMQ EQU RPHFLAGS 02966000 RPHAUTEX EQU RPHAPTYP 02967000 RPHSPGIN EQU RPHFLAGS 02968000 RPHOGIND EQU RPHFLAGS 02969000 RPHLNGTH EQU ISTRPH+1 02970000 RPHTYPE EQU ISTRPH 02971000 PABRPHA EQU PABRPHFG+1 02972000 PABNODQ EQU PABFLAGS 02973000 PABINHBT EQU PABFLAGS 02974000 PABERLOK EQU PABERRLK 02975000 PABSSN EQU PABFLAGS 02976000 PABDYNAM EQU PABFLAGS 02977000 PABNORPR EQU PABFLAGS 02978000 PABPRIOR EQU PABFLAGS 02979000 PABAPYP EQU PABFLAGS 02980000 PABDVTA EQU ISTPAB+9 02981000 PABOFFST EQU ISTPAB+8 02982000 PABCHNGP EQU PABCHAIN+1 02983000 PABRSV02 EQU PABCHAIN 02984000 PABRUNNG EQU PABCHAIN 02985000 PABRESET EQU PABCHAIN 02986000 PABUNCON EQU PABCHAIN 02987000 PABCDP EQU PABCHAIN 02988000 PABRESCH EQU PABCHAIN 02989000 PABCHNG EQU PABCHAIN 02990000 PABWEQP EQU PABWEQA+1 02991000 PABRSV01 EQU PABWEQA 02992000 PABWEQG EQU PABWEQA 02993000 PATRSV01 EQU PATFLAGA 02994000 PATUSEFG EQU PATFLAGA 02995000 PATRDCNT EQU ISTPAT+6 02996000 PATGRPID EQU ISTPAT+5 02997000 PATPTHID EQU ISTPAT+4 02998000 PATDINDX EQU ISTPAT+2 02999000 PATGINDX EQU ISTPAT 03000000 GNTGRPNM EQU ISTGNT 03001000 DNTTELNO EQU ISTDNT+1 03002000 DNTCTDIG EQU ISTDNT 03003000 RLSRSV02 EQU ISTRLS+140 03004000 RLSRSV01 EQU ISTRLS+138 03005000 RLSCTELU EQU ISTRLS+136 03006000 RLSPRE EQU ISTRLS 03007000 RDARSVPT EQU ISTRDA+84 03008000 RDAPUBI EQU ISTRDA+83 03009000 RDADFCUA EQU ISTRDA+80 03010000 RDACTPCC EQU ISTRDA+79 03011000 RDADACUA EQU ISTRDA+76 03012000 RDALUBA EQU RDAUCBAD+1 03013000 RDACHQI EQU RDAUCBAD 03014000 RDARSV01 EQU RDAFLAG 03015000 RDARBISA EQU RDAFLAG 03016000 RDAPRE EQU ISTRDA 03017000 RSWRSV01 EQU ISTRSW+152 03018000 RSWRSV02 EQU ISTRSW+150 03019000 RSWCTELU EQU ISTRSW+148 03020000 RSWGRUPZ EQU ISTRSW+146 03021000 RSWDIALZ EQU ISTRSW+144 03022000 RSWGRUPT EQU ISTRSW+140 03023000 RSWDIALT EQU ISTRSW+136 03024000 RSWPRE EQU ISTRSW 03025000 RLXRSV03 EQU ISTRLX+80 03026000 RLXRSV02 EQU ISTRLX+77 03027000 RLXRSV01 EQU RLXFLAGA 03028000 RLXINUSE EQU RLXFLAGA 03029000 RLXNLUX EQU ISTRLX+72 03030000 RLXPRE EQU ISTRLX 03031000 RPXRSV01 EQU ISTRPX+80 03032000 RPXRSV02 EQU ISTRPX+77 03033000 RPXMAXLU EQU ISTRPX+76 03034000 RPXFLUX EQU ISTRPX+72 03035000 RPXPRE EQU ISTRPX 03036000 RLURSV02 EQU ISTRLU+172 03037000 RLULGMOD EQU ISTRLU+164 03038000 RLUMODEP EQU RLUMODET+8 03039000 RLUMODEN EQU RLUMODET 03040000 RLUUSSPT EQU RLUUSSTB+8 03041000 RLUUSSNM EQU RLUUSSTB 03042000 RLURSV01 EQU ISTRLU+137 03043000 RLULOCAD EQU ISTRLU+136 03044000 RLUNCPPM EQU RLUNCPPC+1 03045000 RLUNCPPN EQU RLUNCPPC 03046000 RLUPACEM EQU RLUPACE+1 03047000 RLUPACEN EQU RLUPACE 03048000 RLUINTA EQU ISTRLU+128 03049000 RLUSSCFM EQU ISTRLU+127 03050000 RLUCRRSV EQU RLUCRFLG 03051000 RLUACTLU EQU RLUCRFLG 03052000 RLURSV00 EQU RLUFLAG 03053000 RLUGSTAT EQU RLUFLAG 03054000 RLUBATCH EQU RLUFLAG 03055000 RLURBISA EQU RLUFLAG 03056000 RLUTYPE EQU ISTRLU+124 03057000 RLUCRPR EQU ISTRLU 03058000 RCCRVPT2 EQU ISTRCC+144 03059000 RCCXTOSW EQU ISTRCC+140 03060000 RCCSWTOX EQU ISTRCC+136 03061000 RCCRSPT2 EQU ISTRCC+133 03062000 RCCADDR EQU ISTRCC+132 03063000 RCCPASSL EQU ISTRCC+131 03064000 RCCMXOUT EQU ISTRCC+130 03065000 RCCMXDAT EQU ISTRCC+128 03066000 RCCINDEX EQU ISTRCC+126 03067000 RCCPATHZ EQU ISTRCC+124 03068000 RCCPATHT EQU ISTRCC+120 03069000 RCCDPQ EQU ISTRCC+116 03070000 RCCTPAB EQU ISTRCC+112 03071000 RCCRSV02 EQU ISTRCC+109 03072000 RCCCRRSV EQU RCCCRFLG 03073000 RCCCTCFL EQU RCCCRFLG 03074000 RCCACTPU EQU RCCCRFLG 03075000 RCCNCSPL EQU ISTRCC+104 03076000 RCCRPHCN EQU ISTRCC+100 03077000 RCCEPAB EQU ISTRCC+96 03078000 RCCDPAB EQU ISTRCC+92 03079000 RCCVPAB EQU ISTRCC+88 03080000 @NM00026 EQU ISTRCC+87 03081000 RCCSESCT EQU ISTRCC+86 03082000 RCCIDNUM EQU RCCID48+3 03083000 RCCIDBLK EQU RCCID48+2 03084000 RCCIDPA2 EQU RCCID48+1 03085000 RCCIDPUT EQU RCCID48 03086000 RCCIDPA1 EQU RCCSTAID 03087000 RCCCTELU EQU ISTRCC+76 03088000 RCCCNCNT EQU ISTRCC+75 03089000 RCCRTGOH EQU RCCFLAGB 03090000 RCCBRKCN EQU RCCFLAGB 03091000 RCCRESET EQU RCCFLAGB 03092000 RCCFINAL EQU RCCFLAGB 03093000 RCCBNNSP EQU RCCFLAGB 03094000 RCCIRETR EQU RCCFLAGB 03095000 RCCDIALP EQU RCCFLAGB 03096000 RCCDSTCT EQU RCCFLAGB 03097000 RCCCTPGD EQU RCCFLAG 03098000 RCCPRGDN EQU RCCFLAG 03099000 RCCOUERP EQU RCCFLAG 03100000 RCCOHIMM EQU RCCFLAG 03101000 RCCLDISC EQU RCCFLAG 03102000 RCCERPIP EQU RCCFLAG 03103000 RCCCUDIE EQU RCCFLAG 03104000 RCCRBISA EQU RCCFLAG 03105000 RCCTYPE EQU ISTRCC+72 03106000 RCCPRE EQU ISTRCC 03107000 DOTADTRM EQU ISTDOT 03108000 RDSADDOT EQU ISTRDS+76 03109000 RDSCTATR EQU ISTRDS+74 03110000 RDSCTTRM EQU ISTRDS+72 03111000 RDSPRE EQU ISTRDS 03112000 RINRSV05 EQU ISTRIN+156 03113000 RINRSV04 EQU ISTRIN+152 03114000 RINLOCRN EQU ISTRIN+148 03115000 RINRSV02 EQU ISTRIN+145 03116000 RTRCNCNT EQU RINCNCNT 03117000 RTRNCSPL EQU RINNCSPL 03118000 RTRRPHCN EQU RINRPHCN 03119000 RTRVPAB EQU RINVPAB 03120000 RTRREMOT EQU RINREMOT 03121000 RTRRLDAF EQU RINRLDAF 03122000 RTRNODID EQU RINNODID 03123000 RINRSV01 EQU RINDFD 03124000 RTRLDISC EQU RINLDISC 03125000 RTRNODEF EQU RINNODEF 03126000 RTRREMPO EQU RINREMPO 03127000 RINCRPRE EQU ISTRIN 03128000 RTRRSV04 EQU ISTRTR+210 03129000 RTRLCTI EQU ISTRTR+209 03130000 RTRIDCAS EQU RTRBSCID+1 03131000 RTRIDLEN EQU RTRBSCID 03132000 RTRRSVDD EQU ISTRTR+181 03133000 RTRRDFG EQU ISTRTR+180 03134000 RTRDIAA EQU ISTRTR+176 03135000 RTRPOLA EQU ISTRTR+172 03136000 RTRCADDR EQU ISTRTR+164 03137000 RTRCTADR EQU ISTRTR+162 03138000 RTRCTPOL EQU ISTRTR+160 03139000 RTRCTDIA EQU ISTRTR+158 03140000 RTRRSV03 EQU ISTRTR+156 03141000 RTRRVPT1 EQU ISTRTR+152 03142000 RTRBHSN1 EQU ISTRTR+144 03143000 RTRCRSV2 EQU RTRCRFLG 03144000 RTRDTRLM EQU RTRLSCMD 03145000 RTRCRSV1 EQU RTRCRFLG 03146000 RTRTRMAX EQU ISTRTR+142 03147000 RTRRSV24 EQU RTRRDFF 03148000 RTRRFDEK EQU RTRRDFF 03149000 RTRRFANK EQU RTRRDFF 03150000 RTRRFPFK EQU RTRRDFF 03151000 RTRRFPEN EQU RTRRDFF 03152000 RTRRFXCT EQU RTRRDFF 03153000 RTRRESCT EQU RTRRDFE 03154000 RTRRESUP EQU RTRRDFE 03155000 RTRREATT EQU RTRRDFE 03156000 RTRRECHK EQU RTRRDFE 03157000 RTRREACR EQU RTRRDFE 03158000 RTRRSV0A EQU RTRRDFE 03159000 RTRREBRK EQU RTRRDFE 03160000 RTRRSV11 EQU RTRRDFD 03161000 RTRRSV10 EQU RTRRDFD 03162000 RTRRDBHI EQU RTRRDFD 03163000 RTRRDBHD EQU RTRRDFD 03164000 RTRRDBHN EQU RTRRDFD 03165000 RTRRSV23 EQU RTRRDFC 03166000 RTRRCXMS EQU RTRRDFC 03167000 RTRRCMSG EQU RTRRDFC 03168000 RTRRCBLK EQU RTRRDFC 03169000 RTRRCPT3 EQU RTRRDFC 03170000 RTRRCIT2 EQU RTRRDFC 03171000 RTRRCIT1 EQU RTRRDFC 03172000 RTRRSV32 EQU RTRRDFB 03173000 RTRRBEND EQU RTRRDFB 03174000 RTRRBECT EQU RTRRDFB 03175000 RTRRSV02 EQU RTRRDFA 03176000 RTRRACTR EQU RTRRDFA 03177000 RTRRSV60 EQU RTRRDFA 03178000 RTRRACDT EQU RTRRDFA 03179000 RTRRAPT3 EQU RTRRAALL 03180000 RTRRAPT2 EQU RTRRAALL 03181000 RTRRAPT1 EQU RTRRAALL 03182000 RTRRAATN EQU RTRRDFA 03183000 RTRRSV45 EQU ISTRTR+132 03184000 RTRRSV01 EQU ISTRTR+130 03185000 RTRCTECM EQU ISTRTR+128 03186000 RTRADRPT EQU RTRADR+1 03187000 RTRRSV22 EQU RTRFLAG 03188000 RTRVTERM EQU RTRFLAG 03189000 RTRRSV51 EQU RTRFLAG 03190000 RTRRBISA EQU RTRFLAG 03191000 RTRRSV21 EQU RTRFLAG 03192000 RTRCRPR EQU ISTRTR 03193000 RCLRVPT2 EQU ISTRCL+92 03194000 RCLRVPT1 EQU ISTRCL+88 03195000 RCLGPOLA EQU ISTRCL+84 03196000 RCLCTNGP EQU ISTRCL+82 03197000 RCLRSV01 EQU ISTRCL+80 03198000 RCLCTECM EQU ISTRCL+78 03199000 RCLCTETR EQU ISTRCL+76 03200000 RCLGPADR EQU RCLADR+1 03201000 RCLRSV33 EQU RCLFLAG 03202000 RCLBATCH EQU RCLFLAG 03203000 RCLRBISA EQU RCLFLAG 03204000 RCLRSV22 EQU RCLFLAG 03205000 RCLPRE EQU ISTRCL 03206000 RPTRSV03 EQU ISTRPT+156 03207000 RPTRSV02 EQU ISTRPT+152 03208000 RPTNSNSV EQU ISTRPT+148 03209000 RPTPTHCT EQU ISTRPT+146 03210000 RPTPEPCT EQU ISTRPT+144 03211000 RPTDAFSV EQU ISTRPT+142 03212000 RPTRSV01 EQU ISTRPT+141 03213000 RPTISTAT EQU RPTFLAG1 03214000 RPTDYNAM EQU RPTFLAG1 03215000 RPTVYIMM EQU RPTFLAG1 03216000 RPTVIODN EQU RPTFLAG1 03217000 RPTONLIN EQU RPTFLAG1 03218000 RPTHLVPD EQU RPTFLAG1 03219000 RPTVRYPD EQU RPTFLAG1 03220000 RPTASLEP EQU RPTFLAG1 03221000 RPTUTERM EQU ISTRPT+136 03222000 RPTATERM EQU ISTRPT+132 03223000 RPTDIVT EQU RPTDITT 03224000 RPTCTNM EQU ISTRPT+120 03225000 RPTLNDAF EQU RPTLNCID+2 03226000 RPTLNSAF EQU RPTLNCID 03227000 RPTLN EQU ISTRPT 03228000 RLNRVPT2 EQU ISTRLN+112 03229000 RLNNCSPL EQU ISTRLN+108 03230000 RLNX2SW EQU ISTRLN+104 03231000 @NM00025 EQU ISTRLN+103 03232000 RLNCRRSV EQU RLNCRFLG 03233000 RLNSWEP EQU RLNCRFLG 03234000 RLNSVSKP EQU RLNLSCMD 03235000 RLNSESLM EQU RLNLSCMD 03236000 RLNNPRLM EQU RLNLSCMD 03237000 RLNSWNCP EQU RLNCRFLG 03238000 RLNACTLN EQU RLNCRFLG 03239000 RLNPAUSE EQU ISTRLN+101 03240000 RLNPOLMT EQU ISTRLN+100 03241000 RLNACTSN EQU ISTRLN+98 03242000 RLNRESV1 EQU ISTRLN+97 03243000 RLNACTRM EQU ISTRLN+96 03244000 RLNCTSES EQU ISTRLN+95 03245000 RLNRDSLM EQU ISTRLN+94 03246000 RLNAUTOA EQU ISTRLN+92 03247000 RLNRDFD EQU RLNRDF+3 03248000 RLNRDFC EQU RLNRDF+2 03249000 RLNMULTP EQU RLNRDFB 03250000 RLNRATRN EQU RLNRDFB 03251000 RLNRAPOL EQU RLNRDFB 03252000 RLNTTV EQU RLNRDFB 03253000 RLNRSV0B EQU RLNRDFB 03254000 RLNAUTOD EQU RLNRDFB 03255000 RLNANSWR EQU RLNRDFB 03256000 RLNRBUSE EQU RLNRDFB 03257000 RLNRAPEP EQU RLNRDFA 03258000 RLNRANCP EQU RLNRDFA 03259000 RLNRAEP EQU RLNRDFA 03260000 RLNIDV EQU RLNRDFA 03261000 RLNPORT EQU RLNRDFA 03262000 RLNGANSW EQU RLNRDFA 03263000 RLNRACAN EQU RLNRACNT 03264000 RLNRACAT EQU RLNRACNT 03265000 RLNRSV04 EQU RLNSTAT2 03266000 RLNINUSE EQU RLNSTAT2 03267000 RLNOHIN EQU RLNSTAT2 03268000 RLNRSV03 EQU RLNSTAT1 03269000 RLNVD EQU RLNSTAT1 03270000 RLNINOPP EQU RLNSTAT1 03271000 RLNINOPL EQU RLNSTAT1 03272000 RLNLRST EQU RLNSTAT1 03273000 RLNTRAP EQU RLNSTAT1 03274000 RLNACTCT EQU ISTRLN+84 03275000 RLNCTECM EQU ISTRLN+82 03276000 RLNCTEIN EQU ISTRLN+80 03277000 RLNCTETR EQU ISTRLN+78 03278000 RLNCTECL EQU ISTRLN+76 03279000 RLNCUA EQU RLNUCBAD 03280000 RLNRSV01 EQU RLNFLAG 03281000 RLNRBISA EQU RLNFLAG 03282000 RLNEAM EQU RLNFLAG 03283000 RLNPRE EQU ISTRLN 03284000 RGPRVPT2 EQU ISTRGP+88 03285000 RGPRVPT1 EQU ISTRGP+84 03286000 RGPCTECM EQU ISTRGP+82 03287000 RGPCTEIN EQU ISTRGP+80 03288000 RGPCTETR EQU ISTRGP+78 03289000 RGPCTECL EQU ISTRGP+76 03290000 RGPCTELN EQU ISTRGP+74 03291000 RGPRSV03 EQU ISTRGP+73 03292000 RGPRSV02 EQU RGPFLG 03293000 RGPASDLC EQU RGPFLG 03294000 RGPABSC EQU RGPFLG 03295000 RGPASS EQU RGPFLG 03296000 RGPADIL EQU RGPFLG 03297000 RGPPRE EQU ISTRGP 03298000 RRNRINNM EQU ISTRRN+248 03299000 @NM00024 EQU ISTRRN+247 03300000 RRNRDCUA EQU ISTRRN+244 03301000 RRNLASTE EQU ISTRRN+240 03302000 RRNNCSPL EQU ISTRRN+236 03303000 RRNRPLPT EQU ISTRRN+232 03304000 RRNMSIZE EQU ISTRRN+228 03305000 RRNNCPNM EQU ISTRRN+221 03306000 RRNCTPCC EQU ISTRRN+220 03307000 RRNHBUFS EQU ISTRRN+218 03308000 RRNHLENT EQU RRNHPRE+1 03309000 RRNHLENH EQU RRNHPRE 03310000 RRNNMNCP EQU ISTRRN+208 03311000 RRNDELAY EQU ISTRRN+206 03312000 RRNRSV04 EQU ISTRRN+200 03313000 RRNRSV88 EQU RRNNMDPD+7 03314000 RRNPUBI EQU RRNNMDPD+6 03315000 RRNDPLUB EQU RRNNMDPD 03316000 RRNEPADR EQU ISTRRN+190 03317000 RRNCPLUB EQU ISTRRN+184 03318000 RRNFLUX EQU ISTRRN+180 03319000 RRNRSV05 EQU RRNCMFD 03320000 RRNREMPO EQU RRNCMFD 03321000 RRNCDREC EQU RRNCMFD 03322000 RRNCDDSI EQU RRNCMFD 03323000 RRNCDBCK EQU RRNCMFD 03324000 RRNCDDTL EQU RRNCMFD 03325000 RRNCDSTD EQU RRNCMFD 03326000 RRNCDCSP EQU RRNCMFD 03327000 RRNCCCSL EQU RRNCMFC 03328000 RRNCCSIM EQU RRNCMFC 03329000 RRNCCRCM EQU RRNCMFC 03330000 RRNCCRIM EQU RRNCMFC 03331000 RRNCCCRC EQU RRNCMFC 03332000 RRNCCRST EQU RRNCMFC 03333000 RRNCCRDQ EQU RRNCMFC 03334000 RRNCCRCN EQU RRNCMFC 03335000 RRNCBALT EQU RRNCMFB 03336000 RRNCBMOD EQU RRNCMFB 03337000 RRNCBNPL EQU RRNCMFB 03338000 RRNCBRLS EQU RRNCMFB 03339000 RRNCBRDS EQU RRNCMFB 03340000 RRNCBDLR EQU RRNCMFB 03341000 RRNCBDLH EQU RRNCMFB 03342000 RRNCBDLO EQU RRNCMFB 03343000 RRNCADGO EQU RRNCMFA 03344000 RRNCADTD EQU RRNCMFA 03345000 RRNCACDT EQU RRNCMFA 03346000 RRNCAMBH EQU RRNCMFA 03347000 RRNCAATI EQU RRNCMFA 03348000 RRNCAATG EQU RRNCMFA 03349000 RRNCAATD EQU RRNCMFA 03350000 RRNCAALL EQU RRNCMFA 03351000 RRNRSV55 EQU RRNRDF+3 03352000 RRNPTASL EQU RRNRDFB+1 03353000 RRNRSV01 EQU RRNRDFB+1 03354000 RRNVYDON EQU RRNRDFB+1 03355000 RRNRBBUP EQU RRNRDFB+1 03356000 RRNRSV03 EQU RRNRDFB 03357000 RRNRBCT2 EQU RRNRDFB 03358000 RRNRBSEC EQU RRNRDFB 03359000 RRNRBCCT EQU RRNRDFB 03360000 RRNRBCCL EQU RRNRDFB 03361000 RRNRSV02 EQU RRNRDFB 03362000 RRNRBMDL EQU RRNRDFB 03363000 RRNRAPEP EQU RRNRDFA 03364000 RRNRANCP EQU RRNRDFA 03365000 RRNRBREM EQU RRNRDFA 03366000 RRNRAOLT EQU RRNRDFA 03367000 RRNRASYN EQU RRNRDFA 03368000 RRNRADMP EQU RRNRDFA 03369000 RRNRAIPL EQU RRNRDFA 03370000 RRNRASHT EQU RRNRDFA 03371000 RRNCTENT EQU ISTRRN+170 03372000 RRNCTECM EQU ISTRRN+168 03373000 RRNCTEIN EQU ISTRRN+166 03374000 RRNCTETR EQU ISTRRN+164 03375000 RRNCTECL EQU ISTRRN+162 03376000 RRNCTELI EQU ISTRRN+160 03377000 RRNCTEGP EQU ISTRRN+158 03378000 RRNCTBHS EQU ISTRRN+156 03379000 RRNBHSET EQU ISTRRN+152 03380000 RRNTRENT EQU ISTRRN+148 03381000 RRNRSV22 EQU ISTRRN+147 03382000 RRNRNCUA EQU ISTRRN+144 03383000 RRNGRPA EQU ISTRRN+140 03384000 RRNLUBA EQU RRNUCBAD+1 03385000 RRNCHQI EQU RRNUCBAD 03386000 RRNRSV11 EQU RRNFLAG 03387000 RRNDSTCT EQU RRNFLAG 03388000 RRNERPIP EQU RRNFLAG 03389000 RRNLCDIP EQU RRNFLAG 03390000 RRNLCDIE EQU RRNFLAG 03391000 RRNLCSIP EQU RRNFLAG 03392000 RRNRBISA EQU RRNFLAG 03393000 RRNRSV89 EQU RRNFLAG 03394000 RRNPRE EQU ISTRRN 03395000 RLCRVPT2 EQU ISTRLC+80 03396000 RLCRVPT1 EQU ISTRLC+79 03397000 RLCLCCUA EQU ISTRLC+76 03398000 RLCUCBAD EQU RLCADR+1 03399000 RLCRSVDE EQU RLCFLAG 03400000 RLCACNT EQU RLCFLAG 03401000 RLCRSV14 EQU RLCFLAG 03402000 RLCRBISA EQU RLCFLAG 03403000 RLCRSV22 EQU RLCFLAG 03404000 RLCPRE EQU ISTRLC 03405000 RAPRVPT2 EQU ISTRAP+116 03406000 RAPRVPT1 EQU ISTRAP+112 03407000 RAPBFACT EQU ISTRAP+111 03408000 RAPRSV17 EQU RAPFLGC 03409000 RAPRSV16 EQU RAPFLGC 03410000 RAPRSV15 EQU RAPFLGC 03411000 RAPRSV14 EQU RAPFLGC 03412000 RAPRSV13 EQU RAPFLGC 03413000 RAPRSV12 EQU RAPFLGC 03414000 RAPRSV11 EQU RAPFLGC 03415000 RAPRSV10 EQU RAPFLGC 03416000 RAPRSV09 EQU RAPFLGB 03417000 RAPASPO EQU RAPFLGB 03418000 RAPAPPO EQU RAPFLGB 03419000 RAPAACQ EQU RAPFLGB 03420000 RAPAPRMT EQU RAPFLGB 03421000 RAPAPASS EQU RAPFLGB 03422000 RAPABLCK EQU RAPFLGB 03423000 RAPALLF EQU RAPFLGB 03424000 RAPRSV06 EQU RAPFLG 03425000 RAPRSV05 EQU RAPFLG 03426000 RAPRSV04 EQU RAPFLG 03427000 RAPRSV03 EQU RAPFLG 03428000 RAPATLGN EQU RAPFLG 03429000 RAPASLGI EQU RAPFLG 03430000 RAPAQUI EQU RAPFLG 03431000 RAPABLGN EQU RAPFLG 03432000 RAPACEQD EQU ISTRAP+106 03433000 RAPTRPRE EQU ISTRAP+104 03434000 RAPACEAP EQU ISTRAP+100 03435000 RAPICEAQ EQU ISTRAP+96 03436000 RAPICEAC EQU ISTRAP+92 03437000 RAPICELG EQU ISTRAP+88 03438000 RAPAPPWD EQU ISTRAP+80 03439000 RAPACDEB EQU ISTRAP+76 03440000 RAPACBA EQU ISTRAP+72 03441000 RAPPRE EQU ISTRAP 03442000 RDTVSRPL EQU ISTRDT+132 03443000 RDTCRSPW EQU ISTRDT+124 03444000 RDTCRSDS EQU ISTRDT+116 03445000 @NM00023 EQU ISTRDT+113 03446000 RRNSTCNT EQU RDTSTCNT 03447000 RRNVYRPH EQU RDTVYRPH 03448000 RDTTPAB EQU ISTRDT+104 03449000 RDTDPAB EQU ISTRDT+100 03450000 RDTEPAB EQU ISTRDT+96 03451000 RDTVPAB EQU ISTRDT+92 03452000 RDTRSV01 EQU RDTFLAGB 03453000 RDTBHSET EQU RDTFLAGB 03454000 RDTCTCFL EQU RDTFLAGB 03455000 RDTCTPGD EQU RDTFLAGB 03456000 RDTPRGDN EQU RDTFLAGB 03457000 RDTOUERP EQU RDTFLAGB 03458000 RDTLGCT EQU ISTRDT+90 03459000 RDTNODID EQU ISTRDT+89 03460000 RDTMAXID EQU ISTRDT+88 03461000 RDTCTSNT EQU ISTRDT+86 03462000 RDTFLAGS EQU ISTRDT+84 03463000 RDTBACK EQU ISTRDT+80 03464000 RDTFORW EQU ISTRDT+76 03465000 RDTLEN EQU RDTPLEN+1 03466000 RDTPRILS EQU RDTPRIOR 03467000 RDTPRISW EQU RDTPRIOR 03468000 RDTPRIRN EQU RDTPRIOR 03469000 RDTPRILC EQU RDTPRIOR 03470000 RDTPRIAP EQU RDTPRIOR 03471000 @NM00022 EQU RDTPRIOR 03472000 RDTPRE EQU ISTRDT 03473000 RCPRSV05 EQU ISTRCPRE+120 03474000 RCPRSV04 EQU ISTRCPRE+116 03475000 RCPRSV03 EQU ISTRCPRE+112 03476000 RCPINTA EQU RCPLGNIN+16 03477000 RCPLGNCT EQU RCPLGNIN+8 03478000 RCPLGNAP EQU RCPLGNIN 03479000 @NM00021 EQU RCPPMODE 03480000 RCPRRECD EQU RCPPMODE 03481000 RCPRBASC EQU RCPPMODE 03482000 RCPBFLIM EQU ISTRCPRE+90 03483000 RCPBHSI2 EQU ISTRCPRE+89 03484000 RCPBHSI1 EQU ISTRCPRE+88 03485000 RCPACETR EQU ISTRCPRE+84 03486000 RCPICEAQ EQU ISTRCPRE+80 03487000 RCPLNAPA EQU ISTRCPRE+76 03488000 RCPICELN EQU ISTRCPRE+72 03489000 RCPPRE EQU ISTRCPRE 03490000 RPRCONID EQU ISTRPRE+63 03491000 RPRCLVPD EQU RPRFLAGC 03492000 RPRINIMM EQU RPRFLAGD 03493000 RPRRSV05 EQU RPRFLAGD 03494000 @NM00020 EQU RPRFLAGD 03495000 RPRRSON EQU RPRFLAGD 03496000 RPRCONCT EQU RPRFLAGD 03497000 RPRLTASN EQU RPRFLAGD 03498000 RPRPTHCT EQU ISTRPRE+60 03499000 RPRSWDAF EQU ISTRPRE+58 03500000 RPRSTPCT EQU ISTRPRE+56 03501000 RPRRVPT1 EQU ISTRPRE+52 03502000 RPRDEVCH EQU ISTRPRE+44 03503000 RPRNSNEA EQU ISTRPRE+36 03504000 RPRLGONB EQU ISTRPRE+32 03505000 RPRLGONF EQU ISTRPRE+28 03506000 RPRHDTYP EQU ISTRPRE+27 03507000 RPRTIOCT EQU ISTRPRE+26 03508000 RPRPEPCT EQU ISTRPRE+24 03509000 RPRRSV03 EQU RPRCAUSE 03510000 RPRRSYNC EQU RPRCAUSE 03511000 RPRCRCPT EQU RPRCAUSE 03512000 RPRNOSRT EQU RPRCAUSE 03513000 RPRINTST EQU RPRFLAGB 03514000 RPRVYIMM EQU RPRFLAGB 03515000 RPRHLVPD EQU RPRFLAGB 03516000 RPRONLIN EQU RPRFLAGB 03517000 RPRVIODN EQU RPRFLAGB 03518000 RPRAOPN EQU RPRFLAGB 03519000 RPRENTVT EQU RPRFLAGB 03520000 RPRENTVH EQU RPRFLAGB 03521000 RPRLIVE EQU RPRFLAGA 03522000 RPRVRYPD EQU RPRFLAGA 03523000 RPRENTED EQU RPRFLAGA 03524000 RPRENTIO EQU RPRFLAGA 03525000 RPRENTBF EQU RPRFLAGA 03526000 RPRTIED EQU RPRFLAGA 03527000 RPRINV EQU RPRFLAGA 03528000 RPRACT EQU RPRFLAGA 03529000 RPRENTRY EQU ISTRPRE+20 03530000 RPRPELEN EQU ISTRPRE+18 03531000 RPRELEN EQU ISTRPRE+16 03532000 RPRRLOCK EQU ISTRPRE+12 03533000 RPRDAF EQU RPRCOMID+2 03534000 RPRSAF EQU RPRCOMID 03535000 DEVRSV03 EQU ISTDEVCH+5 03536000 DEVPHYSA EQU ISTDEVCH+4 03537000 DEVCSLPN EQU DEVCHAR3 03538000 DEVCSTCL EQU DEVCHAR3 03539000 DEVCCHEK EQU DEVCHAR3 03540000 DEVCATTN EQU DEVCHAR3 03541000 DEVCSWL EQU DEVFCCTL 03542000 DEVCRVB EQU DEVFCCTL 03543000 DEVCSSL EQU DEVFCCTL 03544000 DEVCBSC EQU DEVFCCTL 03545000 DEVMCODE EQU ISTDEVCH+2 03546000 DEVCHAR2 EQU DEVTCODE 03547000 DEVRSV01 EQU DEVCHAR 03548000 DEVCCTL EQU DEVCHAR 03549000 DEVNNSPT EQU DEVCHAR 03550000 DEVSPS EQU DEVCHAR 03551000 DEVSUBND EQU DEVCHAR 03552000 DEVCONVR EQU DEVCHAR 03553000 DEVOTPUT EQU DEVCHAR 03554000 DEVINPUT EQU DEVCHAR 03555000 LOKXCL EQU @NM00018 03556000 LOKPRY EQU @NM00018 03557000 @NM00019 EQU @NM00018 03558000 @NM00017 EQU LOKCHNG 03559000 LOKCT EQU ISTLOK 03560000 NCSRUITS EQU NCSUSSRU+2 03561000 NCSRULEN EQU NCSUSSRU 03562000 NCSAPPAB EQU NCSAPP+608 03563000 NCSAPDAT EQU NCSAPBUE+8 03564000 NCSAPRU EQU NCSAPBUE+3 03565000 NCSRSV04 EQU NCSAPBUE 03566000 NCSAPEND EQU NCSAPP+84 03567000 NCSAPTXT EQU NCSAPP+76 03568000 NCSAPECB EQU NCSAPP+72 03569000 NCSAPSA EQU NCSAPP 03570000 NCSPLPDB EQU NCSPLSID+5 03571000 NCSPLNID EQU NCSPLPHD 03572000 NCSRSVD4 EQU NCSPLSTA 03573000 NCSPLPO EQU NCSPLSTA 03574000 NCSRSVD2 EQU NCSCRMOD 03575000 NCSPTMOD EQU NCSCRMOD 03576000 NCSAIMOD EQU NCSCRMOD 03577000 NCSRSVD1 EQU NCSCHKPT+1 03578000 NCSPTUSE EQU NCSCHKPT+1 03579000 NCSRNME EQU NCSCHKPT+1 03580000 NCSCUA EQU NCSCHKPT+1 03581000 NCSANSMD EQU NCSCHKPT+1 03582000 NCSLGMOD EQU NCSCHKPT 03583000 NCSLGAPL EQU NCSCHKPT 03584000 NCSDTRLM EQU NCSCHKPT 03585000 NCSESLM EQU NCSCHKPT 03586000 NCSNRPL EQU NCSCHKPT 03587000 NCSPOLD EQU NCSCHKPT 03588000 NCSPACTV EQU NCSCHKPT 03589000 NCSACTV EQU NCSCHKPT 03590000 NCSCRDTE EQU ISTNCSPL+264 03591000 NCSPLRTY EQU ISTNCSPL+263 03592000 NCSPLRH EQU ISTNCSPL+260 03593000 NCSUFMCB EQU ISTNCSPL+256 03594000 NCSMGLPT EQU ISTNCSPL+252 03595000 NCSCPWPT EQU ISTNCSPL+248 03596000 NCSSENS2 EQU NCSSENSE+2 03597000 NCSSNS2 EQU NCSSENSE+1 03598000 NCSSNS1 EQU NCSSENSE 03599000 NCSPLNSN EQU ISTNCSPL+240 03600000 NCSPLMID EQU ISTNCSPL+232 03601000 NCSPLPID EQU ISTNCSPL+231 03602000 NCSPLGID EQU ISTNCSPL+230 03603000 NCSPLSQN EQU ISTNCSPL+228 03604000 NCSRNAME EQU ISTNCSPL+220 03605000 NCSPLRUI EQU ISTNCSPL+212 03606000 NCSPLRUO EQU ISTNCSPL+208 03607000 NCSPLRRP EQU ISTNCSPL+204 03608000 NCSPLWEL EQU ISTNCSPL+200 03609000 NCSPLP3 EQU ISTNCSPL+192 03610000 NCSPLP2 EQU ISTNCSPL+188 03611000 NCSPLP1 EQU ISTNCSPL+184 03612000 NCSPLOLN EQU ISTNCSPL+182 03613000 @NM00016 EQU NCSPLFL5 03614000 NCSSDLK EQU NCSPLFL5 03615000 NCSSCPPS EQU NCSPLFL5 03616000 NCSDLRSN EQU ISTNCSPL+180 03617000 NCSPL2AP EQU NCSPLFL4 03618000 NCSDSPN EQU NCSPLFL4 03619000 NCSDSPI EQU NCSPLFL4 03620000 NCSDSPA EQU NCSPLFL4 03621000 NCSDSPE EQU NCSPLFL4 03622000 NCSPLVID EQU NCSPLFL4 03623000 NCSPLRSO EQU NCSPLFL4 03624000 NCSDLNID EQU NCSPLFL4 03625000 NCSEND EQU NCSPLFL3 03626000 NCSFINAL EQU NCSPLFL3 03627000 NCSANS EQU NCSPLFL3 03628000 NCSPID EQU NCSPLFL3 03629000 NCSGID EQU NCSPLFL3 03630000 NCSPLANS EQU NCSPLFL3 03631000 NCSEPP EQU NCSPLFL3 03632000 NCSPLMOM EQU NCSPLFL3 03633000 NCSPLVIT EQU NCSPLFL2 03634000 NCSPLVIS EQU NCSPLFL2 03635000 NCSREMPO EQU NCSPLFL2 03636000 NCSPLDS EQU NCSPLFL2 03637000 NCSOUFMC EQU NCSPLFL2 03638000 NCSPLRIO EQU NCSPLFL2 03639000 NCSPLRSF EQU NCSPLFL2 03640000 NCSPLVDP EQU NCSPLFL2 03641000 NCSPLPOS EQU NCSPLFL1 03642000 NCSPL2CN EQU NCSPLFL1 03643000 NCSPLAPU EQU NCSPLFL1 03644000 NCSPLNON EQU NCSPLFL1 03645000 NCSPLREQ EQU NCSPLFL1 03646000 NCSPLEBN EQU NCSPLFL1 03647000 NCSPLSOM EQU NCSPLFL1 03648000 NCSPL2IN EQU NCSPLFL1 03649000 NCSPLRCR EQU ISTNCSPL+172 03650000 NCSPLECB EQU ISTNCSPL+164 03651000 NCSPLCVT EQU ISTNCSPL+156 03652000 NCSPLWKA EQU ISTNCSPL+152 03653000 NCSPLDAF EQU NCSPLCID+2 03654000 NCSPLSAF EQU NCSPLCID 03655000 NCSPLRCD EQU NCSPLRAD+1 03656000 NCSLSCMD EQU NCSPLRAD 03657000 NCSPLWRF EQU ISTNCSPL+72 03658000 NCSPLWRE EQU ISTNCSPL+68 03659000 NCSSTCMD EQU NCSCRFLG 03660000 NCSUSRNF EQU NCSCRFLG 03661000 NCSOPRQU EQU NCSCRFLG 03662000 NCSCRDSE EQU NCSCRFLG 03663000 NCSFMERP EQU NCSCRFLG 03664000 NCSFMCLD EQU NCSCRFLG 03665000 NCSPLCLD EQU NCSCRFLG 03666000 NCSPLWRM EQU NCSCRFLG 03667000 NCSPLUAD EQU ISTNCSPL+64 03668000 NCSMSGSP EQU ISTNCSPL+63 03669000 NCSNCPEP EQU ISTNCSPL+62 03670000 NCSCMDB EQU NCSPLCMD+1 03671000 @NM00015 EQU NCSCMDA 03672000 NCSPLUFM EQU NCSCMDA 03673000 NCSPLFLO EQU NCSCMDA 03674000 NCSPLSYN EQU NCSCMDA 03675000 NCSPLCTL EQU NCSCMDA 03676000 NCSPLSYS EQU NCSCMDA 03677000 NCSPLLPT EQU ISTNCSPL+56 03678000 NCSCRPID EQU ISTNCSPL+51 03679000 NCSCRCMD EQU ISTNCSPL+50 03680000 NCSDLID EQU ISTNCSPL+44 03681000 NCSPLLID EQU ISTNCSPL+36 03682000 NCSPLRID EQU ISTNCSPL+28 03683000 NCSRRNPT EQU ISTNCSPL+24 03684000 NCSPRMRC EQU ISTNCSPL+22 03685000 NCSOVFMC EQU NCSPLVF1 03686000 NCSRSV02 EQU NCSPLVFL 03687000 NCSDACLK EQU NCSPLVFL 03688000 NCSABCON EQU NCSPLVFL 03689000 NCSDCONT EQU NCSPLVFL 03690000 NCSVSTAT EQU NCSPLVFL 03691000 NCSVDEL EQU NCSPLVFL 03692000 NCSVNCSA EQU NCSPLVFL 03693000 NCSVBF16 EQU NCSPLVBF+1 03694000 NCSVBF15 EQU NCSPLVBF+1 03695000 NCSVBF14 EQU NCSPLVBF+1 03696000 NCSVBF13 EQU NCSPLVBF+1 03697000 NCSVBF12 EQU NCSPLVBF+1 03698000 NCSVBF11 EQU NCSPLVBF+1 03699000 NCSVBF10 EQU NCSPLVBF+1 03700000 NCSVBF09 EQU NCSPLVBF+1 03701000 NCSVBF08 EQU NCSPLVBF 03702000 NCSVBF07 EQU NCSPLVBF 03703000 NCSVBF06 EQU NCSPLVBF 03704000 NCSVBF05 EQU NCSPLVBF 03705000 NCSVBF04 EQU NCSPLVBF 03706000 NCSVBF03 EQU NCSPLVBF 03707000 NCSVBF02 EQU NCSPLVBF 03708000 NCSVBF01 EQU NCSPLVBF 03709000 NCSPLVCD EQU ISTNCSPL+17 03710000 @NM00014 EQU ISTNCSPL+16 03711000 NCSCRWKA EQU NCSPFX+12 03712000 @NM00013 EQU NCSPFX 03713000 PFXBCK EQU ISTPFX+12 03714000 PFXFWD EQU ISTPFX+8 03715000 PFXLNG EQU ISTPFX+5 03716000 PFXPRTY EQU ISTPFX+4 03717000 PFXCBID EQU PFXID 03718000 POHID EQU ISTPOHD+2 03719000 POHGEN EQU POHSTAT 03720000 POHRREQ EQU POHSTAT 03721000 POHRSVD2 EQU POHSTAT 03722000 POHCNTRL EQU POHSTAT 03723000 POHLBL EQU POHSTAT 03724000 POHDATA EQU POHSTAT 03725000 POHEND EQU POHSTAT 03726000 POHRSVD1 EQU ISTPOHD 03727000 DVLSAV EQU IFWH1DVL+44 03728000 DVLDLUB EQU DVLDDN 03729000 DVLXLUB EQU DVLDCB 03730000 IOBERRCT EQU IOBSTDRD+30 03731000 IOBRSV19 EQU IOBINCAM+1 03732000 IOBOLTST EQU IOBBTAMF 03733000 IOBRFTMG EQU IOBBTAMF 03734000 IOBRSV17 EQU IOBBTAMF 03735000 IOBRSV16 EQU IOBBTAMF 03736000 IOBRSV15 EQU IOBBTAMF 03737000 IOBRSV14 EQU IOBBTAMF 03738000 IOBINUSE EQU IOBBTAMF 03739000 IOBPRMER EQU IOBBTAMF 03740000 IOBRSTRB EQU IOBRESTR+1 03741000 IOBREPOS EQU IOBRESTR 03742000 IOBDCBPB EQU IOBDCBPT+1 03743000 IOBRSV44 EQU IOBFLAG4 03744000 IOBJES3I EQU IOBFLAG4 03745000 IOBRSV42 EQU IOBFLAG4 03746000 IOBRSV41 EQU IOBFLAG4 03747000 IOBRSV40 EQU IOBFLAG4 03748000 IOBPMERR EQU IOBFLAG4 03749000 IOBCC3WE EQU IOBFLAG4 03750000 IOBGDPOL EQU IOBFLAG4 03751000 IOBSTRTB EQU IOBSTART+1 03752000 IOBSIOCC EQU IOBSTART 03753000 IOBCSB7 EQU IOBCSTAT 03754000 IOBCSB6 EQU IOBCSTAT 03755000 IOBCSB5 EQU IOBCSTAT 03756000 IOBCSB4 EQU IOBCSTAT 03757000 IOBCSB3 EQU IOBCSTAT 03758000 IOBCSB2 EQU IOBCSTAT 03759000 IOBCSB1 EQU IOBCSTAT 03760000 IOBCSB0 EQU IOBCSTAT 03761000 IOBUSB7 EQU IOBUSTAT 03762000 IOBUSB6 EQU IOBUSTAT 03763000 IOBUSB5 EQU IOBUSTAT 03764000 IOBUSB4 EQU IOBUSTAT 03765000 IOBUSB3 EQU IOBUSTAT 03766000 IOBUSB2 EQU IOBUSTAT 03767000 IOBUSB1 EQU IOBUSTAT 03768000 IOBUSB0 EQU IOBUSTAT 03769000 IOBCMDA EQU IOBIOCSW 03770000 IOBLOG EQU IOBFL3 03771000 IOBJAM EQU IOBICL 03772000 IOBMSG EQU IOBFL3 03773000 IOBSDR EQU IOBCNC 03774000 IOBACU EQU IOBFL3 03775000 IOBCDC EQU IOBFL3 03776000 IOBICC EQU IOBFL3 03777000 IOBCCC EQU IOBFL3 03778000 IOBECBPB EQU IOBECBPT+1 03779000 IOBECBCC EQU IOBECBPT 03780000 IOBS1B7 EQU IOBSENS1 03781000 IOBS1B6 EQU IOBSENS1 03782000 IOBS1B5 EQU IOBSENS1 03783000 IOBS1B4 EQU IOBSENS1 03784000 IOBS1B3 EQU IOBSENS1 03785000 IOBS1B2 EQU IOBSENS1 03786000 IOBS1B1 EQU IOBSENS1 03787000 IOBS1B0 EQU IOBSENS1 03788000 IOBSNSC9 EQU IOBS0B7 03789000 IOBS0B6 EQU IOBSENS0 03790000 IOBS0B5 EQU IOBSENS0 03791000 IOBS0B4 EQU IOBSENS0 03792000 IOBS0B3 EQU IOBSENS0 03793000 IOBS0B2 EQU IOBSENS0 03794000 IOBS0B1 EQU IOBSENS0 03795000 IOBS0B0 EQU IOBSENS0 03796000 IOBPNCH EQU IOBFLAG2 03797000 IOBSTATO EQU IOBFLAG2 03798000 IOBSKUPD EQU IOBFLAG2 03799000 IOBALTTR EQU IOBFLAG2 03800000 IOBRRT2 EQU IOBRDHA0 03801000 IOBRRT3 EQU IOBPURGE 03802000 IOBSENSE EQU IOBFLAG2 03803000 IOBHALT EQU IOBFLAG2 03804000 IOBSPSVC EQU IOBRSTRT 03805000 IOBUNREL EQU IOBFLAG1 03806000 IOBIOERR EQU IOBFLAG1 03807000 IOBFCREX EQU IOBCYCCK 03808000 IOBRPSTN EQU IOBFLAG1 03809000 IOBERRTN EQU IOBFLAG1 03810000 IOBCMDCH EQU IOBFLAG1 03811000 IOBDATCH EQU IOBFLAG1 03812000 IOBCNOPA EQU IOBPREFX+12 03813000 IOBCICB EQU IOBPREFX+8 03814000 IOBCECB EQU IOBPREFX+4 03815000 IOBCONOP EQU IOBPREFX+3 03816000 IOBCINOP EQU IOBPREFX+2 03817000 IOBRSV05 EQU IOBPREFX+1 03818000 IOBPCI EQU IOBCFLG1 03819000 IOBRSTCH EQU IOBCFLG1 03820000 IOBABAPP EQU IOBCFLG1 03821000 IOBPTST EQU IOBCFLG1 03822000 IOBRSV04 EQU IOBCFLG1 03823000 IOBRSV03 EQU IOBCFLG1 03824000 IOBRSV02 EQU IOBCFLG1 03825000 IOBRSV01 EQU IOBCFLG1 03826000 CVTLEVL EQU CVTRELNO+2 03827000 CVTNUMB EQU CVTRELNO 03828000 CVTMDL EQU CVTFIX+250 03829000 @NM00011 EQU CVTFIX+248 03830000 @NM00010 EQU CVTFIX 03831000 CVTRV482 EQU CVTXTNT2+128 03832000 CVTRV481 EQU CVTXTNT2+124 03833000 CVTRV480 EQU CVTXTNT2+120 03834000 CVTRV479 EQU CVTXTNT2+118 03835000 CVTRV478 EQU CVTXTNT2+117 03836000 CVTRV477 EQU CVTXTNT2+116 03837000 CVTRV476 EQU CVTXTNT2+115 03838000 CVTRV475 EQU CVTXTNT2+114 03839000 CVTRV474 EQU CVTRV466 03840000 CVTRV473 EQU CVTRV466 03841000 CVTRV472 EQU CVTRV466 03842000 CVTRV471 EQU CVTRV466 03843000 CVTRV470 EQU CVTRV466 03844000 CVTRV469 EQU CVTRV466 03845000 CVTRV468 EQU CVTRV466 03846000 CVTRV467 EQU CVTRV466 03847000 CVTRV465 EQU CVTRV457 03848000 CVTRV464 EQU CVTRV457 03849000 CVTRV463 EQU CVTRV457 03850000 CVTRV462 EQU CVTRV457 03851000 CVTRV461 EQU CVTRV457 03852000 CVTRV460 EQU CVTRV457 03853000 CVTRV459 EQU CVTRV457 03854000 CVTRV458 EQU CVTRV457 03855000 CVTRV456 EQU CVTXTNT2+108 03856000 CVTRV455 EQU CVTXTNT2+104 03857000 CVTRV454 EQU CVTXTNT2+100 03858000 CVTRV453 EQU CVTXTNT2+96 03859000 CVTRV452 EQU CVTXTNT2+94 03860000 CVTRV451 EQU CVTXTNT2+92 03861000 CVTRV450 EQU CVTXTNT2+90 03862000 CVTRV449 EQU CVTXTNT2+88 03863000 CVTRV448 EQU CVTXTNT2+87 03864000 CVTRV447 EQU CVTXTNT2+86 03865000 CVTRV446 EQU CVTRV438 03866000 CVTRV445 EQU CVTRV438 03867000 CVTRV444 EQU CVTRV438 03868000 CVTRV443 EQU CVTRV438 03869000 CVTRV442 EQU CVTRV438 03870000 CVTRV441 EQU CVTRV438 03871000 CVTRV440 EQU CVTRV438 03872000 CVTRV439 EQU CVTRV438 03873000 CVTRV437 EQU CVTRV429 03874000 CVTRV436 EQU CVTRV429 03875000 CVTRV435 EQU CVTRV429 03876000 CVTRV434 EQU CVTRV429 03877000 CVTRV433 EQU CVTRV429 03878000 CVTRV432 EQU CVTRV429 03879000 CVTRV431 EQU CVTRV429 03880000 CVTRV430 EQU CVTRV429 03881000 CVTRV428 EQU CVTXTNT2+80 03882000 CVTRV427 EQU CVTXTNT2+76 03883000 CVTRV426 EQU CVTXTNT2+72 03884000 CVTRV425 EQU CVTXTNT2+68 03885000 CVTATACT EQU CVTATCVT 03886000 CVTRV423 EQU CVTXTNT2+62 03887000 CVTRV422 EQU CVTXTNT2+60 03888000 CVTRV421 EQU CVTXTNT2+58 03889000 CVTRV420 EQU CVTXTNT2+56 03890000 CVTRV419 EQU CVTXTNT2+55 03891000 CVTRV418 EQU CVTXTNT2+54 03892000 CVTRV417 EQU CVTRV409 03893000 CVTRV416 EQU CVTRV409 03894000 CVTRV415 EQU CVTRV409 03895000 CVTRV414 EQU CVTRV409 03896000 CVTRV413 EQU CVTRV409 03897000 CVTRV412 EQU CVTRV409 03898000 CVTRV411 EQU CVTRV409 03899000 CVTRV410 EQU CVTRV409 03900000 CVTRV408 EQU CVTRV400 03901000 CVTRV407 EQU CVTRV400 03902000 CVTRV406 EQU CVTRV400 03903000 CVTRV405 EQU CVTRV400 03904000 CVTRV404 EQU CVTRV400 03905000 CVTRV403 EQU CVTRV400 03906000 CVTRV402 EQU CVTRV400 03907000 CVTRV401 EQU CVTRV400 03908000 CVTICB EQU CVTXTNT2+48 03909000 CVTSKTA EQU CVTXTNT2+44 03910000 CVTSHSB EQU CVTSHS 03911000 CVTRSV98 EQU CVTXTNT2+36 03912000 CVTRSV97 EQU CVTXTNT2+34 03913000 CVTRSV96 EQU CVTXTNT2+32 03914000 CVTOLTEP EQU CVTXTNT2+28 03915000 CVTQIDA EQU CVTQID+1 03916000 CVTRSV95 EQU CVTQID 03917000 CVTRSV94 EQU CVTXTNT2+20 03918000 CVTRSV93 EQU CVTXTNT2+16 03919000 CVTRSV92 EQU CVTXTNT2+12 03920000 CVTDEBVR EQU CVTXTNT2+8 03921000 CVTRSV91 EQU CVTXTNT2+6 03922000 CVTRSV9H EQU CVTFLGBT 03923000 CVTRSV9G EQU CVTFLGBT 03924000 CVTRSV9F EQU CVTFLGBT 03925000 CVTRSV9E EQU CVTFLGBT 03926000 CVTRSV9D EQU CVTFLGBT 03927000 CVTRSV9C EQU CVTFLGBT 03928000 CVTVME EQU CVTFLGBT 03929000 CVTNPE EQU CVTFLGBT 03930000 CVTNUCLS EQU CVTXTNT2+4 03931000 CVTDSSVA EQU CVTDSSV+1 03932000 CVTRSV89 EQU CVTDSSV 03933000 CVTRSV88 EQU CVTXTNT1+8 03934000 CVTRSV87 EQU CVTXTNT1+4 03935000 CVTFACHN EQU CVTXTNT1 03936000 CVTRV488 EQU CVTMAP+412 03937000 CVTRV487 EQU CVTMAP+408 03938000 CVTRV486 EQU CVTMAP+404 03939000 CVTRV485 EQU CVTMAP+400 03940000 CVTACTAP EQU CVTMAP+396 03941000 CVTAUTH EQU CVTMAP+392 03942000 CVTATMCA EQU CVTATMCT+1 03943000 CVTATMST EQU CVTATMCT 03944000 CVTRSV61 EQU CVTMAP+384 03945000 CVTVOLT1 EQU CVTVOLM1+1 03946000 CVTVOLI1 EQU CVTVOLF1 03947000 CVTSTOA EQU CVTMAP+376 03948000 CVTRSV58 EQU CVTMAP+374 03949000 CVTRSV57 EQU CVTMAP+372 03950000 CVTDDCE EQU CVTMAP+368 03951000 CVTPNWFR EQU CVTMAP+364 03952000 CVTSMF EQU CVTMAP+360 03953000 CVTSULK EQU CVTMAP+358 03954000 CVTSLKO EQU CVTSYSK 03955000 CVTSLKP EQU CVTSYSK 03956000 CVTSLKQ EQU CVTSYSK 03957000 CVTSLKR EQU CVTSYSK 03958000 CVTRSV56 EQU CVTSYSK 03959000 CVTRSV55 EQU CVTSYSK 03960000 CVTRSV54 EQU CVTSYSK 03961000 CVTRSV53 EQU CVTSYSK 03962000 CVTRSV52 EQU CVTA1F1 03963000 CVTRSV51 EQU CVTA1F1 03964000 CVTRSV50 EQU CVTA1F1 03965000 CVTRSV49 EQU CVTA1F1 03966000 CVTRSV48 EQU CVTA1F1 03967000 CVTRSV47 EQU CVTA1F1 03968000 CVTSRSW EQU CVTA1F1 03969000 CVTPFSW EQU CVTA1F1 03970000 CVTPCVT EQU CVTMAP+352 03971000 CVTRSV46 EQU CVTMAP+344 03972000 CVTRSV45 EQU CVTMAP+340 03973000 CVTRSV44 EQU CVTMAP+338 03974000 CVTRSV43 EQU CVTMAP+336 03975000 CVTHJESA EQU CVTHJES+1 03976000 CVTRSV42 EQU CVTHJES 03977000 CVTEXT2A EQU CVTEXT2+1 03978000 CVTRSV41 EQU CVTEXT2 03979000 CVTAPFA EQU CVTAPF+1 03980000 CVTRSV40 EQU CVTAPF 03981000 CVTRV518 EQU CVTINTLA 03982000 CVTRV517 EQU CVTERPV 03983000 CVTEORM EQU CVTMAP+312 03984000 CVTMCHPR EQU CVTMAP+308 03985000 CVTTZ EQU CVTMAP+304 03986000 CVTJEPS EQU CVTMAP+300 03987000 CVTJESCT EQU CVTMAP+296 03988000 CVTMODE EQU CVTMAP+292 03989000 CVTPTRV EQU CVTMAP+288 03990000 CVTREAL EQU CVTMAP+284 03991000 CVTRSV39 EQU CVTMAP+280 03992000 CVTRSV38 EQU CVTMAP+276 03993000 CVTDMSRA EQU CVTDMSR+1 03994000 CVTRSV37 EQU CVTDMSR 03995000 CVTQMSGA EQU CVTQMSG+1 03996000 CVTRSV36 EQU CVTQMSG 03997000 CVTAMFF EQU CVTMAP+264 03998000 CVTPURGA EQU CVTPURG+1 03999000 CVTRSV35 EQU CVTPURG 04000000 CVTCBSP EQU CVTMAP+256 04001000 CVTATERA EQU CVTATER+1 04002000 CVTSYST EQU CVTATER 04003000 CVTVOLT2 EQU CVTTAT 04004000 CVTVOLI2 EQU CVTVOLF2 04005000 CVTAQAVB EQU CVTAQAVT+1 04006000 CVTRSV34 EQU CVTTCMFG 04007000 CVTRSV33 EQU CVTTCMFG 04008000 CVTRSV32 EQU CVTTCMFG 04009000 CVTRSV31 EQU CVTTCMFG 04010000 CVTRSV30 EQU CVTTCMFG 04011000 CVTRSV29 EQU CVTTCMFG 04012000 CVTRSV28 EQU CVTTCMFG 04013000 CVTTCRDY EQU CVTTCMFG 04014000 CVTGTFA EQU CVTGTF+1 04015000 CVTRSV27 EQU CVTGTFST 04016000 CVTRNIO EQU CVTGTFST 04017000 CVTUSR EQU CVTGTFST 04018000 CVTRV318 EQU CVTFORM 04019000 CVTRV317 EQU CVTTMODE 04020000 CVTRV316 EQU CVTSTATE 04021000 CVTRV315 EQU CVTGTFS 04022000 CVTGTFAV EQU CVTGTFS 04023000 CVT0SCR1 EQU CVTMAP+232 04024000 CVTRV515 EQU CVTMAP+228 04025000 CVTRMS EQU CVTMAP+224 04026000 CVTPATCH EQU CVTMAP+220 04027000 CVTTSCE EQU CVTMAP+216 04028000 CVTLNKSC EQU CVTMAP+214 04029000 CVTQABST EQU CVTMAP+212 04030000 CVTMDLDS EQU CVTMAP+208 04031000 CVTUSER EQU CVTMAP+204 04032000 CVTABEND EQU CVTMAP+200 04033000 CVTSMCA EQU CVTMAP+196 04034000 CVTRSV18 EQU CVTMAP+192 04035000 CVTQLPAQ EQU CVTMAP+188 04036000 CVTQCDSR EQU CVTMAP+184 04037000 CVTRSV17 EQU CVTOPTB 04038000 CVTRSV16 EQU CVTOPTB 04039000 CVTFP EQU CVTOPTB 04040000 CVTAPTHR EQU CVTOPTB 04041000 CVTNLOG EQU CVTOPTB 04042000 CVTTOD EQU CVTOPTB 04043000 CVTCTIMS EQU CVTOPTB 04044000 CVTPROT EQU CVTOPTB 04045000 CVTXPFP EQU CVTOPTA 04046000 CVTASCII EQU CVTOPTA 04047000 CVTRSV13 EQU CVTOPTA 04048000 CVTRSV12 EQU CVTOPTA 04049000 CVTNIP EQU CVTOPTA 04050000 CVTDDR EQU CVTOPTA 04051000 CVTAPR EQU CVTOPTA 04052000 CVTCCH EQU CVTOPTA 04053000 CVTSNCTR EQU CVTMAP+180 04054000 CVTQMWR EQU CVTMAP+176 04055000 CVTQOCR EQU CVTMAP+172 04056000 CVT1EF00 EQU CVTMAP+168 04057000 CVTMZ00 EQU CVTMAP+164 04058000 CVTHEAD EQU CVTMAP+160 04059000 CVTRSV11 EQU CVTMAP+156 04060000 CVT0PT01 EQU CVTMAP+152 04061000 CVTMSER EQU CVTMAP+148 04062000 CVTRV516 EQU CVTIERLC 04063000 CVTILCH EQU CVTMAP+140 04064000 CVT0DS EQU CVTMAP+136 04065000 CVTFBOSV EQU CVTMAP+132 04066000 CVTNUCB EQU CVTMAP+128 04067000 CVTIXAVL EQU CVTMAP+124 04068000 CVTIOQET EQU CVTMAP+120 04069000 CVTDCBA EQU CVTMAP+117 04070000 CVTMVS2 EQU CVTDCB 04071000 CVT6DAT EQU CVTDCB 04072000 CVT4MPS EQU CVTDCB 04073000 CVTRSV09 EQU CVTDCB 04074000 CVT4MS1 EQU CVTDCB 04075000 CVT2SPS EQU CVTDCB 04076000 CVT1SSS EQU CVTDCB 04077000 CVTRSV08 EQU CVTDCB 04078000 CVTSTB EQU CVTMAP+112 04079000 CVTQTD00 EQU CVTMAP+108 04080000 CVTQTE00 EQU CVTMAP+104 04081000 CVTCUCB EQU CVTMAP+100 04082000 CVTSJQ EQU CVTMAP+96 04083000 CVTPBLDL EQU CVTMAP+92 04084000 CVTTPC EQU CVTMAP+88 04085000 CVTSVDCB EQU CVTMAP+84 04086000 CVTBRET EQU CVTMAP+82 04087000 CVTEXIT EQU CVTMAP+80 04088000 CVT0FN00 EQU CVTMAP+76 04089000 CVTDARA EQU CVTDAR+1 04090000 CVTRSV07 EQU CVTFLGS1 04091000 CVTRSV06 EQU CVTFLGS1 04092000 CVTRSV05 EQU CVTFLGS1 04093000 CVTRSV04 EQU CVTFLGS1 04094000 CVTRSV03 EQU CVTFLGS1 04095000 CVTRSV02 EQU CVTFLGS1 04096000 CVTRSV01 EQU CVTFLGS1 04097000 CVTDMPLK EQU CVTFLGS1 04098000 CVTXITP EQU CVTMAP+68 04099000 CVTZDTAB EQU CVTMAP+64 04100000 CVTMSLT EQU CVTMAP+60 04101000 CVTDATE EQU CVTMAP+56 04102000 CVTBTERM EQU CVTMAP+52 04103000 CVTSYSAD EQU CVTMAP+48 04104000 CVTXTLER EQU CVTMAP+44 04105000 CVTILK2 EQU CVTMAP+40 04106000 CVTILK1 EQU CVTMAP+36 04107000 CVTPRLTV EQU CVTMAP+32 04108000 CVTPCNVT EQU CVTMAP+28 04109000 CVT0VL00 EQU CVTMAP+24 04110000 CVTXAPG EQU CVTMAP+20 04111000 CVTBUF EQU CVTMAP+16 04112000 CVTJOB EQU CVTMAP+12 04113000 CVTLINK EQU CVTMAP+8 04114000 CVT0EF00 EQU CVTMAP+4 04115000 CVTTCBP EQU CVTMAP 04116000 CVT EQU CVTMAP 04117000 @NM00009 EQU SRBSECT+40 04118000 @NM00008 EQU SRBSECT+38 04119000 SRBPRIOR EQU SRBSECT+37 04120000 SRBPKF EQU SRBSECT+36 04121000 SRBSAVE EQU SRBSECT+32 04122000 SRBPARM EQU SRBSECT+28 04123000 SRBRMTR EQU SRBSECT+24 04124000 SRBEP EQU SRBSECT+20 04125000 SRBPTCB EQU SRBFLC+4 04126000 SRBPASID EQU SRBFLC+2 04127000 SRBCPAFF EQU SRBFLC 04128000 SRBASCB EQU SRBSECT+8 04129000 SRBFLNK EQU SRBSECT+4 04130000 SRBID EQU SRBSECT 04131000 IOSEND EQU IOSB+108 04132000 IOSSKR EQU IOSEEKA+7 04133000 IOSSKH2 EQU IOSSKHH+1 04134000 IOSSKH1 EQU IOSSKHH 04135000 IOSSKCC EQU IOSCCHH 04136000 IOSSKBB EQU IOSEEKA+1 04137000 IOSSKM EQU IOSEEKA 04138000 IOSEEK EQU IOSB+92 04139000 IOSMDM EQU IOSB+91 04140000 IOSMDB EQU IOSB+90 04141000 IOSCKEY7 EQU IOSCKEY 04142000 IOSCKEY6 EQU IOSCKEY 04143000 IOSCKEY5 EQU IOSCKEY 04144000 IOSCKEY4 EQU IOSCKEY 04145000 @NM00004 EQU IOSCKEY 04146000 IOSFMSK EQU IOSB+88 04147000 IOSCUDEV EQU IOSPATH+1 04148000 @NM00003 EQU IOSCHN 04149000 IOSPATH3 EQU IOSCHN 04150000 IOSPATH2 EQU IOSCHN 04151000 IOSEXP EQU IOSCHN 04152000 IOSGDP EQU IOSCHN 04153000 IOSAFF EQU IOSB+85 04154000 IOSRSS1B EQU IOSB+84 04155000 IOSDSID EQU IOSB+80 04156000 IOSVST EQU IOSB+76 04157000 IOSRST EQU IOSB+72 04158000 IOSDIE EQU IOSB+68 04159000 IOSABN EQU IOSB+64 04160000 IOSNRM EQU IOSB+60 04161000 IOSPCI EQU IOSB+56 04162000 IOSERP EQU IOSB+52 04163000 IOSPCHN EQU IOSB+48 04164000 IOSSNS EQU IOSB+42 04165000 IOSAPMSK EQU IOSB+40 04166000 IOSRES4A EQU IOSB+36 04167000 IOSUSE EQU IOSB+32 04168000 IOSSRB EQU IOSB+28 04169000 IOSCSWRC EQU IOSCSW+5 04170000 IOSTSB EQU IOSTATUS+1 04171000 IOSTSA EQU IOSTATUS 04172000 IOSCSWCA EQU IOSCSW 04173000 IOSCC EQU @NM00002 04174000 IOSUCB EQU IOSB+16 04175000 IOSOPT2X EQU IOSOPT2 04176000 IOSHTP EQU IOSOPT2 04177000 IOSRELSE EQU IOSOPT 04178000 IOSAPR EQU IOSOPT 04179000 IOSTSLL EQU IOSOPT 04180000 IOSNERP EQU IOSOPT 04181000 IOSPSLL EQU IOSOPT 04182000 IOSQISCE EQU IOSOPT 04183000 IOSDEP EQU IOSOPT 04184000 IOSBYP EQU IOSOPT 04185000 IOSCOD EQU IOSB+13 04186000 IOSPKY7 EQU IOSPKEY 04187000 IOSPGDPX EQU IOSPKEY 04188000 IOSIDR EQU IOSPKEY 04189000 IOSLCL EQU IOSPKEY 04190000 @NM00001 EQU IOSPKEY 04191000 IOSPGAD EQU IOSB+8 04192000 IOSASID EQU IOSB+6 04193000 IOSPRLVL EQU IOSB+5 04194000 IOSDVRID EQU IOSB+4 04195000 IOSPROC EQU IOSB+3 04196000 IOSFLC7 EQU IOSFLC 04197000 IOSFLC6 EQU IOSFLC 04198000 IOSGLC5 EQU IOSFLC 04199000 IOSFLC4 EQU IOSFLC 04200000 IOSFLC3 EQU IOSFLC 04201000 IOSFLC2 EQU IOSFLC 04202000 IOSVERIF EQU IOSDVALT 04203000 IOSDVMNT EQU IOSFLC 04204000 IOSLOG EQU IOSFLB 04205000 IOSBDCST EQU IOSFLB 04206000 IOSMSG EQU IOSFLB 04207000 IOSFLB4 EQU IOSFLB 04208000 IOSFLB3 EQU IOSFLB 04209000 IOSFLB2 EQU IOSFLB 04210000 IOSFLB1 EQU IOSFLB 04211000 IOSDIESE EQU IOSFLB 04212000 IOSIOSB EQU IOSFLA 04213000 IOSDOM EQU IOSFLA 04214000 IOSEX EQU IOSFLA 04215000 IOSSMDB EQU IOSFLA 04216000 IOSSMDA EQU IOSFLA 04217000 IOSERR EQU IOSFLA 04218000 IOSCCHN EQU IOSACHN 04219000 IOSDCHN EQU IOSACHN 04220000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04221000 @RC00743 EQU @RC00735 04222000 @ENDDATA EQU * 04223000 END ISTINFXI,(C'PLS0234',0603,75135) 04224000