TITLE 'ISTSQC01 - LOGON DATA *00001000 ' 00002000 ISTSQC01 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTSQC01 75.130' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @01,@12,24(@13) 0001 00011000 BALR @03,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@03 0001 00014000 * CREG1=CREG1; 0237 00015000 * 0237 00016000 */********************************************************************/ 00017000 */* ROUTINE NAME: ISTSQC01 - INQUIRE: TYPE = LOGON DATA (MAINLINE) */ 00018000 */* */ 00019000 */* FUNCTION: PERFORMS HOUSEKEEPING. TESTS TO SEE IF REQUEST IS FOR */ 00020000 */* A VALID RDTE TYPE (LOCAL OR REMOTE TERMINAL, LOGICAL */ 00021000 */* UNIT, OR COMPONENT) AND IF A LOGON ICE (INACTIVE */ 00022000 */* EXISTS. IF THE ICE BELONGS TO THE APPLICATION THAT */ 00023000 */* IS REQUESTING THE DATA, CLGNDTA1 IS CALLED TO PROCESS */ 00024000 */* THE ICE. */ 00025000 */* */ 00026000 */* INPUT: CREG1 (R1) - POINTER TO RPL HEADER (ISTRPH) */ 00027000 */* CREGD (R13) - POINTER TO O/C SAVE AREA */ 00028000 */* CREGE (R14) - NSI ADDRESS IN CALLING ROUTINE */ 00029000 */* */ 00030000 */* OUTPUT: CRETC (R15) - RETURN CODE (4=UNSUCCESSFUL) */ 00031000 */* CREGE (R14) - NSI ADDRESS IN CALLING ROUTINE */ 00032000 */* */ 00033000 */* ROUTINES CALLED: CLGNDTA1 - TO CHECK LOGON DATA AND USER- */ 00034000 */* SUPPLIED BUFFER AREA */ 00035000 */* */ 00036000 */* MACROS USED: CRRMAINT - TO ESTABLISH COMPONENT RECOVERY RECORD */ 00037000 */********************************************************************/ 00038000 * 0238 00039000 * 0238 00040000 * DO; 0238 00041000 */*** CRRMAINT PROCNM(ISTSQC01)COMP(NS)FUNC(SUB) ***/ 0239 00042000 * DCL CMZK0005 PTR(31) REG(1); 0239 00043000 * RFY (CMZK0005) RSTD; 0240 00044000 * 0240 00045000 */* ATBUILD (ISTRPH,ISTCRA,ISTPFCRR,ISTNSCRR) */ 0241 00046000 */* LOGICAL CHANNEL COMMAND WORD * 00047000 */* ADD A DECLARE 003 10/18/74 * 00048000 *DCL 1 ISTLCCW BDY(WORD) BASED, 0241 00049000 * 2 LCCWOP CHAR(1), /* OPERATION CODE -CONTROL * 00050000 * 3 LCCWSI BIT(1), /* SESS INIT / START DIALOG FLG* 00051000 * 3 LCCWSD BIT(1), /* SESS DISCON/END DIALOG FLG * 00052000 * 3 LCCWRWOP BIT(6), /* READ/WRITE OPERATION CODE * 00053000 * 4 * BIT(1), /* RESERVED * 00054000 * 4 LCCWSOP BIT(1), /* SPECIAL OPERATION LIKE 0241 00055000 * ERASE OR READ CONT * 00056000 * 4 LCCWCTL BIT(4), /* CONTROL TYPE * 00057000 * 5 LCCWMODE BIT(2), /* MODE TYPE * 00058000 * 5 LCCWTYPE BIT(2), /* OPERATION TYPE * 00059000 * 2 LCCWFLAG CHAR(1), /* FLAG BYTE * 00060000 * 3 LCCWCD BIT(1), /* CHAIN DATA * 00061000 * 3 LCCWCC BIT(1), /* CHAIN COMMAND * 00062000 * 3 LCCWCKPT BIT(1), /* SUPPRESS 3705 CHECK POINT 00063000 * RECORD * 00064000 * 3 LCCWNTVC BIT(1), /* DO NOT PERFORM VALCHEK * 00065000 * 3 LCCWIDAT BIT(1), /* LCCWDATA CONTAINS DATA * 00066000 * 3 LCCWLSI BIT(1), /* LCCW SYNCH INDICATOR * 00067000 * 4 LCCWPER BIT(1), /* POST=RESP * 00068000 * 3 LCCWRFI BIT(1), /* REQUEST FEEDBACK INDICATOR * 00069000 * 3 LCCWACI BIT(1), /* ADDITION COMMAND INDICATOR * 00070000 * 2 LCCWCNT FIXED(16), /* DATA COUNT * 00071000 * 2 LCCWDATA PTR(31); /* DATA ADDRESS OR IMMED. DATA * 00072000 */* LOGICAL COMMAND CODES */ 0242 00073000 *DCL LXDQ BIT(8) CONSTANT('3B'X), /* RESET DEVICE QUEUE * 00074000 * LXEC BIT(8) CONSTANT('4B'X), /* RESET AT END OF COMMAND * 00075000 * LXO BIT(8) CONSTANT('5B'X), /* RESET ORDERLY * 00076000 * LCCWPRGE BIT(8) CONSTANT('6B'X), /* PURGE * 00077000 * LWH BIT(8) CONSTANT('0F'X), /* WRITE HEADER INDI. 1ST BLOCK* 00078000 * LWRVI BIT(8) CONSTANT('1F'X), /* WRITE RVI * 00079000 * LWNA BIT(8) CONSTANT('2F'X), /* WRITE NEGATIVE ACK * 00080000 * LWAA BIT(8) CONSTANT('3F'X), /* WRITE ALTERNATE ACK * 00081000 * LWPLG BIT(8) CONSTANT('5F'X), /* WRITE ACK LEADING GRAPHICS * 00082000 * LWNLG BIT(8) CONSTANT('6F'X), /* WRITE NACK LEADING GRAPHICS * 00083000 * LSMDE BIT(8) CONSTANT('4F'X), /* SET MODE * 00084000 * LIFBM BIT(8) CONSTANT('7F'X), /* INDIC 1ST BLOCK OF MESSAGE * 00085000 * LTEST BIT(8) CONSTANT('FE'X), /* TEST LCCW * 00086000 * LPRMPT BIT(8) CONSTANT('13'X), /* PREEMPT LCCW * 00087000 * LRSTR BIT(8) CONSTANT('43'X), /* RESTORE LCCW * 00088000 * LEXEC BIT(8) CONSTANT('FF'X), /* SPECIAL CONTROL OPERATION * 00089000 * LREAD BIT(2) CONSTANT('10'B), /* READ TYPE LCCW * 00090000 * LWRITE BIT(2) CONSTANT('01'B), /* WRITE TYPE LCCW * 00091000 * LCNTRL BIT(2) CONSTANT('11'B), /* CONTROL TYPE LCCW * 00092000 * LRESET BIT(4) CONSTANT('1011'B),/* RESET COMMANDS * 00093000 * LTIC BIT(8) CONSTANT('08'X), /* LOGICAL TIC * 00094000 * LWR BIT(6) CONSTANT('000001'B), /* WRITE CONVERSATIONAL * 00095000 * LWB BIT(6) CONSTANT('000101'B), /* WRITE BLOCK * 00096000 * LWM BIT(6) CONSTANT('001001'B), /* WRITE MESSAGE * 00097000 * LWT BIT(6) CONSTANT('001101'B), /* WRITE TRANSMISSION * 00098000 * LEWM BIT(6) CONSTANT('011001'B), /* ERASE/WRITE MESSAGE * 00099000 * LEWT BIT(6) CONSTANT('011101'B), /* ERASE/WRITE TRNSMSSN * 00100000 * LEAU BIT(6) CONSTANT('010001'B), /* ERASE ALL UNPROTECTED * 00101000 * LRB BIT(6) CONSTANT('000110'B), /* READ BLOCK * 00102000 * LRM BIT(6) CONSTANT('001010'B), /* READ MESSAGE * 00103000 * LRT BIT(6) CONSTANT('001110'B), /* READ TRANSMISSION * 00104000 * LRMOD BIT(6) CONSTANT('010010'B), /* READ MODIFIED * 00105000 * LRBUF BIT(6) CONSTANT('010110'B), /* READ BUFFER * 00106000 * LRCONT BIT(6) CONSTANT('011010'B), /* READ CONTINUOUS * 00107000 * LRPEP BIT(6) CONSTANT('011110'B), /* READ PERPETUAL * 00108000 * LCPYM BIT(6) CONSTANT('101001'B), /* COPY MESSAGE * 00109000 * LCPYT BIT(6) CONSTANT('101101'B), /* COPY TRANSMISSION * 00110000 * LD BIT(8) CONSTANT('23'X), /* DISCONNECT * 00111000 * LDEC BIT(8) CONSTANT('33'X), /* DISCONNECT WITH END OF CALL* 00112000 * LEOC BIT(8) CONSTANT('53'X), /* END OF CALL COMMAND * 00113000 * LXEL BIT(8) CONSTANT('0B'X), /* RESET ERROR LOCK * 00114000 * LXC BIT(8) CONSTANT('1B'X), /* RESET CONDITIONAL * 00115000 * LXI BIT(8) CONSTANT('2B'X), /* RESET IMMEDIATE * 00116000 * LC BIT(8) CONSTANT('03'X), /* CONTACT * 00117000 * LWPA BIT(8) CONSTANT('FD'X); /* WRITE POSITIVE ACK * 00118000 *DCL LMT BIT(2) CONSTANT('11'B), /* TRANSMISSION MODE * 00119000 * LMS BIT(2) CONSTANT('00'B), /* SPECIAL MODE LIKE CONV, EAU * 00120000 * LMB BIT(2) CONSTANT('01'B), /* BLOCK MODE * 00121000 * LMM BIT(2) CONSTANT('10'B); /* MSG OR CONTINUOUS MODE * 00122000 */* FOLLOWING EQUATES FOR - PORT SOLICITOR (DIAL) * 00123000 */* PORT SOLICITOR COMMAND CODES * 00124000 *DCL PSOL BIT(8) CONSTANT('FE'X), /* SPECIAL PORT SOLICITOR 0244 00125000 * COMMAND * 00126000 * STCTL BIT(8) CONSTANT('01'X), /* START CONTROL * 00127000 * RESTCTL BIT(8) CONSTANT('02'X), /* RESET & CONTROL - REDRIVE * 00128000 * STIPUT BIT(8) CONSTANT('03'X); /* START INPUT * 00129000 */* FOLLOWING EQUATES FOR SDLC SUPPORT * 00130000 *DCL LCCHOLD BIT(8) CONSTANT('01'X), /* HOLD * 00131000 * LCCRHOLD BIT(8) CONSTANT('02'X), /* RELEASE HOLD * 00132000 * LSEND BIT(8) CONSTANT ('F1'X), /* SEND * 00133000 * LCLEAR BIT(8) CONSTANT ('F2'X), /* CLEAR * 00134000 * LCRUD BIT(8) CONSTANT ('F3'X), /* CLEAR, UNBIND * 00135000 * LCRUDNFY BIT(8) CONSTANT ('F4'X), /* CLEAR, UNBIND, NOTIFY * 00136000 * LNFY BIT(8) CONSTANT ('F5'X), /* NOTIFY * 00137000 * LRELCB BIT(8) CONSTANT ('F6'X), /* RELEASE CB * 00138000 * LRESTSR BIT(8) CONSTANT ('F7'X), /* RESETSR * 00139000 * LCLRNFY BIT(8) CONSTANT('F8'X), /* CLEAR/NOTIFY * 00140000 * LCHPUR BIT(8) CONSTANT('F9'X); /* PURGE * 00141000 *DCL LCCWSIZE FIXED(8) CONSTANT(8); /* LCCW SIZE * 00142000 *DCL LRDS BIT(8) CONSTANT('FF'X); /* RECORD DEV STATS COMMAND * 00143000 *DCL LQUIS BIT(8) CONSTANT('FE'X); /* QUIESCE COMMAND * 00144000 */* LOGICAL CHANNEL PROGRAM BLOCK */ 00145000 */* */ 00146000 */* REVISIONS 006 03/24/75 */ 00147000 */* */ 00148000 *DCL 1 ISTLCPB BDY(WORD) BASED(LCPBPTR), 0249 00149000 * 2 LCPTYPE CHAR(1), /* TYPE CODE */ 00150000 * 2 LCPLNGTH PTR(8), /* LENGTH IN BYTES */ 00151000 * 2 LCPREQTG CHAR(2), /* LCPB REQ. TAG FIELD */ 00152000 * 3 LCPFLAGS BIT(8), /* FLAG BYTE */ 00153000 * 4 LCPZRT00 BIT(1), /* LOGICAL ERROR FLAG */ 00154000 * 4 LCPZRT01 BIT(1), /* CONTROL BLOCK ERROR */ 00155000 * 4 LCPZF001 BIT(1), /* LCP START PROCESS FLAG */ 00156000 * 5 LCPZRT02 BIT(1), /* I/O INITIATION DISABLED */ 00157000 * 6 LCPZRTL2 BIT(1), /* END OF SCHEDULABLE BLOCK */ 00158000 * 4 LCPZF002 BIT(1), /* LCP IN PROCESSING FLAG */ 00159000 * 5 LCPZRT03 BIT(1), /* GO LOOK AT FMCB LINE STATE */ 00160000 * /* FIELD (REQ. TAG OVERLAY) */ 00161000 * 6 LCPZRTL3 BIT(1), /* WRITE/READ REQUEST */ 00162000 * 4 LCPZF003 BIT(1), /* LCP PROCESSING COMPLETE FLAG* 00163000 * 5 LCPZRT04 BIT(1), /* STPR SET IN BDU FLAG */ 00164000 * /* (REQ. TAG OVERLAY) */ 00165000 * 6 LCPZRTL4 BIT(1), /* FEEDBACK REQUESTED */ 00166000 * 4 LCPZF004 BIT(1), /* SINGLE LCCW/LCP FLAG */ 00167000 * 5 LCPZRT05 BIT(1), /* FEEDBACK TO BE ROUTED TO */ 00168000 * /* ICNCB FMCB (REQ. TAG */ 00169000 * /* OVERLAY) */ 00170000 * 6 LCPZRTL5 BIT(1), /* DECREMENT SCHED COUNT ON DEQ* 00171000 * 4 LCPZRT06 BIT(1), /* CRITICAL TEXT BLOCK */ 00172000 * /* FLAG (REQ. TAG OVERLAY) */ 00173000 * 5 LCPZRTL6 BIT(1), /* WRITE REQUEST */ 00174000 * 4 LCPZRT07 BIT(1), /* BUFFER TRACE ACTIVE */ 00175000 * /* FLAG (REQ. TAG OVERLAY) */ 00176000 * 5 LCPZRTL7 BIT(1), /* SCHEDULING FLAG */ 00177000 * 3 LCPMNRCD CHAR(1), /* LCP MINOR REJECTION CODE */ 00178000 * 4 LCPZRT08 BIT(1), /* I/O TRACE ACTIVE FLAG */ 00179000 * /* (REQ. TAG OVERLAY) */ 00180000 * 5 LCPZRTL8 BIT(1), /* DEVICE END NOTIFICATION */ 00181000 * 4 LCPZRT09 BIT(1), /* DIALOGUE SCHED DISABLED */ 00182000 * 5 LCPZRTL9 BIT(1), /* CRITICAL TEXT FLAG */ 00183000 * 4 LCPZRT0A BIT(1), /* SIMULATED CONTACT FLAG */ 00184000 * 4 LCPZRT0B BIT(1), /* SIMULATED DISCONNECT FLAG */ 00185000 * 2 LCPCHAIN PTR(31), /* APS CHAIN */ 00186000 * 3 LCPCHAI1 PTR(8), 0249 00187000 * 4 LCPCHNG BIT(1), /* GATE BIT */ 00188000 * 3 LCPCHAI2 PTR(24), /* ADDRESS FIELD */ 00189000 * 2 LCPRUCNT PTR(8), /* NUMBER OF RU FOR THIS LCPB */ 00190000 * 3 LCPZMIRC CHAR(1), /* MINOR RETURN CODE */ 00191000 * 2 LCPFLAG2 CHAR(1), /* SECOND FLAG BYTE */ 00192000 * 3 LCPPRFLG BIT(1), /* PACING REQUIRED */ 00193000 * 3 LCPASYN BIT(1), /* ASYNCHRONOUS LCPB */ 00194000 * 3 LCPRSTRT BIT(1), /* RESTART LCPB */ 00195000 * 3 LCPTLBPI BIT(1), /* TPIOS BLOCK LCCW */ 00196000 * 4 LCPZRIMM BIT(1), /* RESET IMMED REQUIRED ON ERR*/ 00197000 * 3 LCPFID0 BIT(1), /* FID0 TH INDICATOR FOR RECORD* 00198000 * 4 LCPEXRES BIT(1), /* EXCEP. RESPONSE SPEC. 3270R*/ 00199000 * 3 LCPDSTAT BIT(1), /* DIALOGUE STATE BIT, 3270R */ 00200000 * /* 0=REQ. REJECT,1=STATE ERROR*/ 00201000 * 3 LCPFREE BIT(1), /* DEALLOCATE LCPB 3270R */ 00202000 * 3 LCPATOP BIT(1), /* ATOP LCPB 3270R */ 00203000 * 2 LCPSEQ FIXED(16), /* OUTBOUND SEQUENCE NUMBER */ 00204000 * 3 LCPRRCCT PTR(8), /* COUNT OF RESPONSES RECEIVED*/ 00205000 * 3 LCPRRCNT PTR(8), /* COUNT OF RESPONSES REQUESTED* 00206000 * 2 LCPLCCW1 PTR(31), /* ADDR FIRST LCCW FOR FID1 */ 00207000 * 2 LCPCID CHAR(4) BDY(WORD), /* COMMUNICATION ID */ 00208000 * 3 LCPSAF BIT(16), /* SOURCE IDENTIFICATION */ 00209000 * 3 LCPDAF BIT(16), /* DESTINATION IDENTIFICATION */ 00210000 * 2 LCPNXLCW PTR(31), /* ADDR NEXT LCCW */ 00211000 * 2 LCPFDBA PTR(31), /* BTU ADDRESS */ 00212000 * 3 LCPFDB1 PTR(8), 0249 00213000 * 3 LCPFDB2 PTR(24), /* ADDRESS FIELD */ 00214000 * 2 LCPTLBAD PTR(31), /* ADDRESS OF TLB */ 00215000 * 2 LCPFOSN BIT(16), /* SEQUENCE NUMBER FIRST RU */ 00216000 * 2 LCPFSNCH FIXED(15), /* 1ST SEQ NUMBER IN RU CHAIN */ 00217000 * 2 LCPSTYPE FIXED(8), /* LCPB SUB-TYPE X'FF' = RESET,* 00218000 * /* X'00' = NON-RESET */ 00219000 * 2 LCPFLG1 CHAR(1), /* FLAGS */ 00220000 * 3 LCPRESET BIT(1), /* A TPQUE WITH RESET QUEUED */ 00221000 * /* THIS ELEMENT */ 00222000 * 3 LCPINTER BIT(1), /* INTERNAL LCPB */ 00223000 * 3 LCPDIRPT BIT(1), /* NOT SEND W/POST=SCHED=0 */ 00224000 * 3 LCPREDRV BIT(1), /* LCPB IS FOR REDRIVE */ 00225000 * 3 LCPSTLB BIT(1), /* TLB NOT TO BE FREED */ 00226000 * 3 LCPTRANS BIT(1), /* DATA INCLUDES CONTROL CHARS*/ 00227000 * 3 LCPRSV78 BIT(2), /* RESERVED */ 00228000 * 2 LCPLCCWC BIT(8), /* COUNT OF LCCWS */ 00229000 * 2 LCPRSV77 CHAR(1), /* RESERVED */ 00230000 * 2 LCPFLCCW PTR(31), /* ADDR OF FIRST LCCW */ 00231000 * 3 LCPUBFSB PTR(31), /* UNBIND FSB ADDRESS */ 00232000 * 2 LCPCLREP PTR(31), /* PTR TO CLEAR LCPB IN UCB */ 00233000 */* NOTE: THE FOLLOWING FIELD - LCPLCCW MUST BE THE LAST FIELD */ 00234000 */* IN THIS CONTROL BLOCK. THE CONTROL BLOCK ISTDCLCP HAS */ 00235000 */* FIELDS IN IT WHICH MUST BE CONTIGUOUS WITH LCPLCCW */ 00236000 * 2 LCPLCCW CHAR(LENGTH(ISTLCCW)) BDY(WORD), /* FIRST LCCW */ 00237000 * 3 LCPRSTQH PTR(31), /* RESET LCPB QUEUE HEADER */ 00238000 * 3 LCPPABA PTR(31), /* PAB POINTER */ 00239000 * 4 LCPRPHA PTR(31), /* RPH POINTER */ 00240000 * 5 LCPFTYPE BIT(1); /* FEEDBACK TYPE */ 00241000 */* CONSTANTS FOR LCPTYPE * 00242000 *DCL LCRPHFT BIT(1) CONSTANT('1'B); 0250 00243000 *DCL LCPABFT BIT(1) CONSTANT('0'B); 0251 00244000 *DCL LCPBFIRM BIT(8) CONSTANT('10'X); /* LU FAILED, CLSDST, SCHED LOST 00245000 * TERM, OPNDST MAY BE TRIED * 00246000 *DCL LCPBTERM BIT(8) CONSTANT('11'X); /* TERM RECEIVED,CLSDST, 0253 00247000 * SCHED LOST TERM * 00248000 */* * 00249000 * 0254 00250000 *DCL 1 LCPZTIE BDY(WORD) DEFINED(LCPCID), /* TOLTEP INTERFACE 0254 00251000 * ELEMENT OVERLAY */ 00252000 * 2 LCPZFMCA PTR(31), /* ACTIVE FMCB ADDRESS */ 00253000 * 2 LCPZSNA PTR(31), /* SYMBOLIC NAME ADDRESS */ 00254000 * 2 LCPZSNAM CHAR(8) BDY(WORD), /* SYMBOLIC NAME */ 00255000 * 3 LCPZTRV1 PTR(31), /* RESERVED FOR RESTORE LCP */ 00256000 * 3 LCPZTRV4 PTR(31); /* RESERVED FOR RESTORE LCP */ 00257000 *DCL LCTYPE BIT(8) CONSTANT('04'X); 0255 00258000 *DCL PLCPTYPE BIT(8) CONSTANT('28'X); /* PURGE LCPB TYPE ID */ 00259000 *DCL LCPCLACB BIT(8) CONSTANT('04'X); /* LCPB FROM CLOSE ACB */ 00260000 *DCL LSRSTYPE BIT(8) CONSTANT('FF'X); /* RESET SUBTYPE */ 00261000 *DCL LCPETYPE BIT(8) CONSTANT('40'X); /* EXTENDED LCPB TYPE ID */ 00262000 */* */ 00263000 */* MINOR RETURN CODES */ 00264000 */* */ 00265000 *DCL LCMCRSTR BIT(8) CONSTANT('F7'X), /* MINOR RC FOR RESETSR */ 00266000 * LCPMNEW BIT(8) CONSTANT('02'X), /* EARLY WARNING, */ 00267000 * /* RECOVERY IN PROGRESS */ 00268000 * LCPMNPF BIT(8) CONSTANT('03'X), /* PERM. I/O FAILURE */ 00269000 * LCPMNAS BIT(8) CONSTANT('04'X), /* AUTO NETWORK SHUTDOWN */ 00270000 * LCPMNCL BIT(8) CONSTANT('06'X), /* CLOSE/CLSDST OCCURED */ 00271000 * LCPMNVD BIT(8) CONSTANT('07'X), /* VARY DEACTIVATE */ 00272000 * LCPMNTF BIT(8) CONSTANT('10'X), /* TEMP RECORD DEVICE FAILURE */ 00273000 * LCPMNSF BIT(8) CONSTANT('01'X), /* TEMP BASIC FAILURE / */ 00274000 * LCPMNTS BIT(8) CONSTANT('11'X), /* TERMINATE SELF */ 00275000 * LCPMNAP BIT(8) CONSTANT('0A'X), /* APPL. ISSUED CLEAR */ 00276000 * LCPMNPR BIT(8) CONSTANT('0B'X), /* PREEMPT */ 00277000 * LCPMNRE BIT(8) CONSTANT('0C'X); /* RESTORE */ 00278000 */* VS1, VS2 TPIOS SAVEAREA FORMAT */ 0261 00279000 *DCL 1 ISTZSAVE BDY(WORD) BASED, 0261 00280000 * 2 ZSAZSVBC PTR(31), /* SAVEAREA BACK CHAIN */ 00281000 * 3 ZSAZSVMS CHAR(1), /* MODULE TRACE CODE */ 00282000 * 4 ZSAZACTV BIT(1), /* ACTIVE SAVE AREA FLAG */ 00283000 * 2 ZSAZSVFC PTR(31), /* SAVEAREA FORWARD CHAIN */ 00284000 * 2 ZSAZSVRR PTR(31), /* RETURN REGISTER */ 00285000 * 2 ZSAZSVVR (6) PTR(31), /* VARIABLE REGS (7-12) SVEAREA*/ 00286000 * 2 ZSAZTRAC CHAR(4); /* EBCDIC NAME OF OWNER */ 00287000 */* 0262 00288000 *THE FOLLOWING EQUATES SHOULD READ ''FIXED(8) CONSTANT(LENGTH(X))'', 00289000 *WHERE X IS THE NAME OF THE VARIABLE CONTROL BLOCK OR FIELD OF WHICH 00290000 *LENGTH IS THE VALUE BEING EQUATED, SHOULD THE PLS COMPILER BE 0262 00291000 *BE ABLE TO TAKE IT. 0262 00292000 * */ 00293000 *DCL ZSAZSVVA FIXED(8) CONSTANT(8); /* DISPLACEMENT TO VARIABLE REGS*/ 00294000 *DCL ZSAZSVSZ FIXED(8) CONSTANT(40); /* LENGTH OF ISTZSAVE */ 00295000 */* PREFIX FOR CRR */ 00296000 */* */ 00297000 */* RELEASE 1 - JUNE 28, 1973 */ 00298000 */* */ 00299000 *DCL 1 ISTPFCRR BASED BDY(WORD), /* PREFIX FOR CRR */ 00300000 * 2 PFCCRR CHAR(4), /* CRR HEADER */ 00301000 * 3 PFCCRRID CHAR(1), /* CRR ID FIELD */ 00302000 * 4 CRRID CHAR(1), /* BASIC CTL LAYER DEFINITION*/ 00303000 * 3 PFCRSV10 CHAR(1), /* RESERVED FOR ALIGNMENT */ 00304000 * 3 PFCCRRLN CHAR(2), /* CRR LENGTH */ 00305000 * 4 CRRLEN CHAR(2), /* BASIC CTL LAYER DEF */ 00306000 * 2 PFCHDR CHAR(8) BDY(WORD), /* SAVE AREA FOR OLD CRR FRR */ 00307000 * 3 PFCCRRO PTR(31), /* PTR TO OLD CRR */ 00308000 * 4 CRRCHAIN PTR(31), /* BASIC CTL LAYER DEFINITION 00309000 * FOR OLD CRR PTR */ 00310000 * 3 PFCFRRO PTR(31), /* PTR TO OLD FRR */ 00311000 * 4 CRRFRR PTR(31), /* BASIC CTL LAYER 0264 00312000 * DEFINITION OF OLD FRR PTR */ 00313000 * 2 PFCFTA BIT(8), /* ID OF LAST FUNCTION TRACED*/ 00314000 * 2 PFCRSV01 CHAR(3); /* ALIGNMENT */ 00315000 *DCL PFIDPIE BIT(8) CONSTANT('80'X); /* DOS/VS TPIOS */ 00316000 *DCL PFIDORE BIT(8) CONSTANT('81'X); /* DOS/VS BMS */ 00317000 *DCL PFIDAPE BIT(8) CONSTANT('82'X); /* DOS/VS PSS */ 00318000 *DCL PFCIDPSV BIT(8) CONSTANT('38'X); /* COMPONENT ID 0268 00319000 * PSS - VS1 AND 2 */ 00320000 *DCL PFCIDTPV BIT(8) CONSTANT('3C'X); /* COMPONENT ID 0269 00321000 * TPIOS VS1 AND 2 */ 00322000 *DCL PFCIDSME BIT(8) CONSTANT('3D'X); /* COMPONENT ID 0270 00323000 * STORAGE MANAGEMENT DOS */ 00324000 *DCL PFCIDOC BIT(8) CONSTANT('31'X); /* COMPONENT ID OPEN/CLOSE */ 00325000 *DCL PFCIDPS BIT(8) CONSTANT('32'X); /* PORT SOLICITOR */ 00326000 *DCL PFCIDCS BIT(8) CONSTANT('34'X); /* CLUSTER SOLICITOR */ 00327000 *DCL PFCIDIT BIT(8) CONSTANT('35'X); /* INIT/TERM */ 00328000 *DCL PFCIDVY BIT(8) CONSTANT('36'X); /* VARY */ 00329000 *DCL PFCIDNS BIT(8) CONSTANT('37'X); /* NET. STAT.SRV. */ 00330000 *DCL PFCIDTPE BIT(8) CONSTANT('38'X); /* COMPONENT ID 0277 00331000 * TPIOS - DOS */ 00332000 *DCL PFCIDCL BIT(8) CONSTANT('39'X); /* COMPONENT ID 0278 00333000 * CONTROL LAYER */ 00334000 *DCL PFCIDPSE BIT(8) CONSTANT('3A'X); /* COMPONENT ID 0279 00335000 * PSS - DOS */ 00336000 *DCL PFCIDSMV BIT(8) CONSTANT('3F'X); /* COMPONENT ID 0280 00337000 * STORAGE MANAGEMENT */ 00338000 *DCL PFCIDTIO BIT(8) CONSTANT('40'X); /* COMPONENT ID TIIO 0281 00339000 * PROCESSING (VS2) */ 00340000 *DCL PFCIDRS BIT(8) CONSTANT('41'X); /* ID FOR REMOTE SOLICITOR */ 00341000 */* CRR FOR COMMAND FACILITIES */ 00342000 *DCL 1 ISTCFCRR BDY(WORD) BASED, /* CRR FOR COMMAND FACILITIES */ 00343000 * 2 CFCAUDIT, /* AUDIT TRAIL FOR CMD FACILITIES*/ 00344000 * 3 CFCNTRD CHAR(1), /* LIST OF MODULES IN COMMAND */ 00345000 * /* FACILITIES ENTERED */ 00346000 * 4 NCFCS1 BIT(1), /* IND MODULE ISTCFCS1 ENTERED */ 00347000 * 4 NCFCS2 BIT(1), /* IND MODULE ISTCFCS2 ENTERED */ 00348000 * 4 NCFCR1 BIT(1), /* IND MODULE ISTCFCR1 ENTERED */ 00349000 * 4 NCFCRP BIT(1), /* IND MODULE ISTCFCRP ENTERED */ 00350000 * 4 NCFCR2 BIT(1), /* IND MODULE ISTCFCR2 ENTERED */ 00351000 * 4 NCFRSVD BIT(3), /* RESERVED */ 00352000 * 3 CFCCRT CHAR(1), /* LIST OF MODULES IN COMMAND */ 00353000 * /* FACILITIES RUNNING */ 00354000 * 4 CCFCS1 BIT(1), /* IND MODULE ISTCFCS1 RUNNING */ 00355000 * 4 CCFCS2 BIT(1), /* IND MODULE ISTCFCS2 RUNNING */ 00356000 * 4 CCFCR1 BIT(1), /* IND MODULE ISTCFCR1 RUNNING */ 00357000 * 4 CCFCRP BIT(1), /* IND MODULE ISTCFCRP RUNNING */ 00358000 * 4 CCFCR2 BIT(1), /* IND MODULE ISTCFCR2 RUNNING */ 00359000 * 4 CCFRSVD1 BIT(3); /* RESERVED */ 00360000 */* COMPONENT RECOVERY RECORD FOR TPIOS */ 0284 00361000 */* DELTA 006 02/10/75 */ 00362000 *DCL 0284 00363000 *1 ISTZCRR BDY(WORD) BASED, /* CONTROL WORD */ 00364000 * 2 ZCRCRR CHAR(4), /* CONTROL WORD */ 00365000 * 3 ZCRID CHAR(1), /* CONTROL BLOCK ID */ 00366000 * 3 ZCRLEN CHAR(2), /* LENGTH OF ZCR */ 00367000 * 3 ZCRFLAG CHAR(1), /* FLAGS */ 00368000 * 2 ZCRCHAIN PTR(31), /* POINTER TO PREVIOUS ZCR */ 00369000 * 2 ZCRFRRA PTR(31), /* PTR TO FRR */ 00370000 * 2 ZCRFLGS1 CHAR(1), /* FLGS USED BY REQUEST COMPLETION */ 00371000 * 3 ZCREXSW BIT(1), /* EXIT SWITCH */ 00372000 * 3 ZCRQUESW BIT(1), /* QUEUE SWITCH */ 00373000 * 3 ZCRDEQSW BIT(1), /* DEQUEUE SWITCH */ 00374000 * 3 ZCRWAIT BIT(1), /* WAIT Q ANALYSIS COMPLETE */ 00375000 * 3 ZCRNRMEX BIT(1), /* NORMAL EXIT TO BE TAKEN */ 00376000 * 3 ZCRENDLP BIT(1), /* END OF LOOP SWITCH */ 00377000 * 3 ZCRUNSOL BIT(1), /* UNSOLICITED DATA */ 00378000 * 3 ZCRFEXIT BIT(1), /* FORCE EXIT SWITCH */ 00379000 * 2 ZCRFLGS2 CHAR(1), /* FLAGS USED WITHIN TPIOS */ 00380000 * 3 ZCRLOCAL BIT(1), /* LOCAL SUPPORT */ 00381000 * 3 ZCRSHEDI BIT(1), /* IMMEDIATE SCHEDULE */ 00382000 * 3 ZCRFMSED BIT(1), /* FMCB SEARCH ENDED */ 00383000 * 3 ZCROB BIT(1), /* OUTBOUND PROC IN PROGRESS */ 00384000 * 3 ZCRIF0E1 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 00385000 * INBOUND PROCESSING */ 00386000 * 3 ZCRIF0E2 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 00387000 * INBOUND PROCESSING */ 00388000 * 3 ZCRIF0E3 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 00389000 * INBOUND PROCESSING */ 00390000 * 2 ZCRSWFLD CHAR(1), /* SWITCHES FOR TPIOS OUTBOUND */ 00391000 * 3 ZCRENDSH BIT(1), /* EXIT FROM REMOTE DEV SCHEDULER */ 00392000 * 4 ZCRSLCP BIT(1), /* SCHEDULE LCPB */ 00393000 * 3 ZCREXTYP BIT(1), /* TPEXIT TYPE */ 00394000 * 3 ZCRENDPR BIT(1), /* EXIT FROM INNER PROCESS */ 00395000 * 3 ZCRNDLCP BIT(1), /* EXIT FROM LCPB PROCESSING */ 00396000 * 4 ZCROB1 BIT(1), /* REMOTE DEV SCHED 1ST TIME SWITCH */ 00397000 * 3 ZCRENDX BIT(1), /* EXIT FROM LCCW/BTU XLATION */ 00398000 * 3 ZCRENDXL BIT(1), /* EXIT FROM LCCW PROC */ 00399000 * 3 ZCRENDAN BIT(1), /* EXIT FROM LCPB ANALYSIS */ 00400000 * 3 ZCRRESET BIT(1), 0284 00401000 * 4 ZCRCNLXL BIT(1), /* CANCEL FURTHER XLATE */ 00402000 * 2 ZCRFLGS3 CHAR(1), /* FLAGS FOR OUTBOUND PROCESSING */ 00403000 * 3 ZCRTIC BIT(1), /* SELECT NOT TO BE SENT */ 00404000 * 3 ZCRTPCON BIT(1), /* TPIOS CONTACT SENT */ 00405000 * 3 ZCRTPDIS BIT(1), /* TPIOS DISCONNECT TO BE SENT */ 00406000 * 3 ZCRDISC BIT(1), /* DISCONNECT IN PROCESS */ 00407000 * 3 ZCREDRIV BIT(1), /* DO DERIVE */ 00408000 * 3 ZCRNOFRE BIT(1), /* NO FREEING OF SIO QUEUE */ 00409000 * 3 ZCRWRPTR BIT(1), /* WRITE TO PRINTER REQUEST */ 00410000 * 3 ZCRINLCP BIT(1), /* ERROR OCCURED DURING OUTBND PROC */ 00411000 * 2 ZCRGENSW CHAR(1), /* GENERAL SWITCHES */ 00412000 * 3 ZCRTSW1 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 00413000 * 3 ZCRTSW2 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 00414000 * 3 ZCRRT06 BIT(1), /* CRITICAL TEXT OPTION */ 00415000 * 3 ZCRLCSYN BIT(1), /* LCCW SYNC SPECIFIED */ 00416000 * 3 ZCREXRES BIT(1), /* EXCEPTION RESPONSE SPECIFIED */ 00417000 * 3 ZCRCLRBD BIT(1), /* FLAG INDICATING BIND WAS CLEARED */ 00418000 * 3 ZCRBRIS BIT(1), /* BRACKET REJECTED DUE TO IN BRAC. */ 00419000 * 3 ZCRF1RES BIT(1), /* FID1 RESPONSE TO BE GENERATED */ 00420000 * 2 ZCRPFLGS CHAR(1), /* UTILITIES PROC OPTION FLAGS */ 00421000 * 3 ZCRQAHED BIT(1), /* QXFR RTN TO USE INSERT OPT'N ON TPQ* 00422000 * 3 * BIT(7), /* RESERVED */ 00423000 * 2 ZCRIBPR CHAR(1), /* INBOUND PROCESSING FLAGS */ 00424000 * 3 ZCRNOBUF BIT(1), /* FSB WITH NO BUFFER */ 00425000 * 3 ZCRERR BIT(1), /* ERROR INDICATOR */ 00426000 * 3 ZCRRELK BIT(1), /* RESET ERROR LOCK FUNCTION REQ. */ 00427000 * 3 ZCRLCPFR BIT(1), /* FLAG IND. DEALLOCATE ATOP LCPB */ 00428000 * 3 ZCRLCPFD BIT(1), /* FLAG IND. LCPB FOUND ON WAITQ */ 00429000 * 3 ZCR3270 BIT(1), /* 3270 DEVICE */ 00430000 * 3 ZCR3270R BIT(1), /* 3270 DEVICE IN RECORD MODE */ 00431000 * 3 * BIT(1), /* RESERVED */ 00432000 * 2 ZCRSCPSW CHAR(1), /* SESSION CONTROL FLAGS */ 00433000 * 3 ZCRTPEX BIT(1), /* TP EXIT */ 00434000 * 3 ZCRTPINV BIT(1), /* INVOKE TPIOS */ 00435000 * 3 ZCRRJLCP BIT(1), /* LCPB REJECTED */ 00436000 * 3 ZCRLREQ BIT(1), /* REQUEST */ 00437000 * 3 ZCRPRCMP BIT(1), /* PROCESSING COMPLETE */ 00438000 * 3 ZCRFSBWE BIT(1), /* FSB IS WORK ELEMENT */ 00439000 * 3 ZCRSKIPT BIT(1), /* SKIP TRACE FLAG */ 00440000 * 3 * BIT(1), /* RESERVED */ 00441000 * 2 ZCRCRLCP PTR(31), /* CURRENT LCPB PTR */ 00442000 * 2 ZCRPARMS BDY(WORD), /* PARAMETERS PASSED TO UTILITIES */ 00443000 * 3 ZCRFBPTR PTR(31), /* PTR TO FROM BUFFER */ 00444000 * 4 ZCRCBPTR PTR(31), /* PTR TO CURRENT BUFFER */ 00445000 * 3 ZCRTBPTR PTR(31), /* PTR TO TO-OR-TRANSLATE BUFFER */ 00446000 * 3 ZCRMLNG FIXED(15), /* LENGTH TO MOVE */ 00447000 * 3 ZCRDFRDA FIXED(15), /* OFFSET FROM DATA ADDR IN FROM BUF*/ 00448000 * 4 ZCRDTODA FIXED(15), /* OFFSET FROM DATA ADDR XLATE BUF */ 00449000 * 3 ZCRPCOD1 CHAR(1), /* CODE BYTE FOR ALLOC/DISALLOC */ 00450000 * 4 ZCRPPG BIT(1), /* GET PAGEABLE BUFF */ 00451000 * 4 ZCRPLNG BIT(1), /* LENGTH OF BUFFER SPECIFIED */ 00452000 * 4 ZCRPFSB BIT(1), /* GET FSB */ 00453000 * 4 ZCRPLSBF BIT(1), /* GET LSCB AND BUFFER */ 00454000 * 5 ZCRPLSBQ BIT(1), /* PURGE LSCB QUEUE */ 00455000 * 4 ZCRPLSCB BIT(1), /* GET OR RELEASE LSCB */ 00456000 * 4 ZCRPBUF BIT(1), /* GET OR RELEASE BUFFER */ 00457000 * 4 ZCRPCFTX BIT(1), /* CONFIDENTIAL TEXT */ 00458000 * 4 ZCRPRES BIT(1), /* RESERVED */ 00459000 * 3 ZCRPCOD2 CHAR(1), /* CODE BYTE FOR MOVE */ 00460000 * 4 ZCRPPG2 BIT(1), /* GET PAGEABLE BUFFER */ 00461000 * 4 ZCRPFHDR BIT(1), /* FROM BUFFER FDB TO BE USED */ 00462000 * 4 ZCRPMFGF BIT(1), /* MOVE STARTS WIHT 1ST BUFF IN BLOCK* 00463000 * 4 ZCRPRES2 BIT(5), /* RESERVED */ 00464000 * 3 ZCRPCHAR CHAR(1), /* TRANSLATE & TEST SEARCH CHARACTER*/ 00465000 * 3 ZCRPSW CHAR(1), /* SWITCH FIELD */ 00466000 * 2 ZCRCCWA PTR(31), /* PTR TO CURRENT CCW (CCW 1 OR 2) */ 00467000 * 2 ZCRBFPTR PTR(31), /* SAVE 1ST BUFF PTR IN TO-BUFF CHN 00468000 * OR LAST BUFFER IN CHANNEL PGM */ 00469000 * 2 ZCRZLB PTR(31), /* PTR TO CURR BUFF IN CHANNEL PGM */ 00470000 * 2 ZCRPVZB PTR(31), /* PTR TO PREVIOUS BUFF IN CHAN PGM */ 00471000 * 2 ZCRSVRTN BDY(WORD), /* REG 14 SAVE AREAS */ 00472000 * 3 ZCRSVF1 PTR(31), /* SAVE REQUIRED REGISTER */ 00473000 * 3 ZCRSVF2 PTR(31), /* SAVE REQUIRED REGISTER */ 00474000 * 3 ZCRSVF3 PTR(31), /* SAVE REQUIRED REGISTER */ 00475000 * 3 ZCRSVF4 PTR(31), /* SAVE REQUIRED REGISTER */ 00476000 * 3 ZCRSVF5 PTR(31), /* SAVE REQUIRED REGISTER */ 00477000 * 3 ZCRSVF6 PTR(31), /* SAVE REQUIRED REGISTER */ 00478000 * 3 ZCRSVF7 PTR(31), /* SAVE REQUIRED REGISTER */ 00479000 * 3 ZCRSVF8 PTR(31), /* SAVE REQUIRED REGISTER */ 00480000 * 3 ZCRSVF9 PTR(31), /* SAVE REQUIRED REGISTER */ 00481000 * 3 ZCRSVF10 PTR(31), /* SAVE REQUIRED REGISTER */ 00482000 * 3 ZCRSVF11 PTR(31), /* SAVE REQUIRED REGISTER */ 00483000 * 3 ZCRSVF12 PTR(31), /* SAVE REQUIRED REGISTER */ 00484000 * 3 ZCRSVF13 PTR(31), /* SAVE REQUIRED REGISTER */ 00485000 * 3 ZCRSVF14 PTR(31), /* SAVE REQUIRED REGISTER */ 00486000 * 3 ZCRSVF15 PTR(31), /* SAVE REQUIRED REGISTER */ 00487000 * 3 ZCRSVF16 PTR(31), /* SAVE REQUIRED REGISTER */ 00488000 * 3 ZCRSVF17 PTR(31), /* SAVE REQUIRED REGISTER */ 00489000 * 3 ZCRSVF18 PTR(31), /* SAVE REQUIRED REGISTER */ 00490000 * 3 ZCRSVF19 PTR(31), /* SAVE REQUIRED REGISTER */ 00491000 * 3 ZCRSVF20 PTR(31), /* SAVE REQUIRED REGISTER */ 00492000 * 3 ZCRSVF21 PTR(31), /* SAVE REQUIRED REGISTER */ 00493000 * 3 ZCRSVF22 PTR(31), /* SAVE REQUIRED REGISTER */ 00494000 * 3 ZCRSVF23 PTR(31), /* SAVE REQUIRED REGISTER */ 00495000 * 3 ZCRSVF24 PTR(31), /* SAVE REQUIRED REGISTER */ 00496000 * 3 ZCRSVF25 PTR(31), /* SAVE REQUIRED REGISTER */ 00497000 * 2 ZCRWKARA BDY(WORD), /* TEMPORARY REG SAVE AREA */ 00498000 * 3 ZCRSVWK1 PTR(31), /* SAVE REQUIRED REG */ 00499000 * 3 ZCRSVWK2 PTR(31), /* SAVE REQUIRED REG */ 00500000 * 3 ZCRSVWK3 PTR(31), /* SAVE REQUIRED REG */ 00501000 * 3 ZCRSVWK4 PTR(31), /* SAVE REQUIRED REG */ 00502000 * 3 ZCRSVWK5 PTR(31), /* SAVE REQUIRED REG */ 00503000 * 2 ZCRFSBSV PTR(31), /* FSB CHAIN PTR SAVEAREA */ 00504000 * 2 ZCRFBPRC BIT(1), /* FSB PROCESS SW */ 00505000 * 2 ZCRMOREL BIT(1), /* MORE ELEMENTS SW */ 00506000 * 2 ZCRSCANQ BIT(1), /* SCAN QUEUE SW */ 00507000 * 2 ZCRNXTEL BIT(1), /* NEXT ELEMENT SW */ 00508000 * 2 ZCRXSCHD BIT(1), /* EXIT SCHEDULE SW */ 00509000 * 2 ZCRLSTFB BIT(1), /* INBOUND PROC LAST FSB FOR ELEM SW*/ 00510000 * 2 ZCRTOPQ BIT(1), /* QUEUE ELEMENT TO TOP SW */ 00511000 * 2 ZCRAWQSW BIT(1), /* CHECK AWAITQ FOR MORE WORK =1 */ 00512000 * /* CHECK WAITQ =0 */ 00513000 * 2 ZCRRCDSV CHAR(1), /* RETURN CODE SAVEAREA */ 00514000 * 2 ZCRPRMTC CHAR(1), /* PREEMPT COMPLETION PARAMETER BYTE*/ 00515000 * 2 ZCROPCDE CHAR(1), /* OP CODE TO BE TRANSFORMED * 00516000 * 2 ZCRR2SV PTR(31), /* ISTZBFDI REG 2 SAVE EREA */ 00517000 * 2 ZCRR13SV PTR(31), /* ISTSBFDI REG 13 SAVE EREA */ 00518000 * 2 ZCRCIDSV BDY(WORD), /* ISTZBFDI CID SAVE AREA */ 00519000 * 3 ZCRSAFSV CHAR(2), /* ISTZBFDI SAF SAVE AREA */ 00520000 * 3 ZCRDAFSV CHAR(2), /* ISTZBFDI DAF SAVE AREA */ 00521000 * 2 ZCRSAVEZ (6) BDY(WORD) CHAR(LENGTH(ISTZSAVE)), 0284 00522000 * /* SAVE/TRACE AREAS FOR TPIOS MODS */ 00523000 * 2 ZCRREMIC PTR(31), /* POINTER TO REMOTE RN ICNCB */ 00524000 * 2 ZCRAUDIT CHAR(36), /* TPIOS AUDIT TRAIL AREA */ 00525000 * 3 ZCRTID CHAR(1), /* THREAD I.D. */ 00526000 * 3 ZCRTNAME CHAR(4), /* LAST 4 CHARS OF THREAD NAME */ 00527000 * 3 ZCRENTER BIT(248), /* BIT ARRAY FOR MODULES ENTERED */ 00528000 * 4 ZCREAC1A BIT(1), /* ISTZAC1A ENTERED */ 00529000 * 4 ZCREAC0A BIT(1), /* ISTZAC0A ENTERED */ 00530000 * 4 ZCREAC0B BIT(1), /* ISTZAC0B ENTERED */ 00531000 * 4 ZCREAC1B BIT(1), /* ISTZAC1B ENTERED */ 00532000 * 4 ZCREBCAA BIT(1), /* ISTZBCAA ENTERED */ 00533000 * 4 ZCREBCAB BIT(1), /* ISTZBCAB ENTERED */ 00534000 * 4 ZCREBCAE BIT(1), /* ISTZBCAE ENTERED */ 00535000 * 4 ZCREBCAG BIT(1), /* ISTZBCAG ENTERED */ 00536000 * 4 ZCREBCAI BIT(1), /* ISTZBCAI ENTERED */ 00537000 * 4 ZCREBCAM BIT(1), /* ISTZBCAM ENTERED */ 00538000 * 4 ZCREBCBA BIT(1), /* ISTZBCBA ENTERED */ 00539000 * 4 ZCREBCBB BIT(1), /* ISTZBCBB ENTERED */ 00540000 * 4 ZCREBCBI BIT(1), /* ISTZBCBI ENTERED */ 00541000 * 4 ZCREBCCB BIT(1), /* ISTZBCCB ENTERED */ 00542000 * 4 ZCREBCDI BIT(1), /* ISTZBCDI ENTERED */ 00543000 * 4 ZCREBCEB BIT(1), /* ISTZBCEB ENTERED */ 00544000 * 4 ZCREBCFA BIT(1), /* ISTZBCFA ENTERED */ 00545000 * 4 ZCREBCFB BIT(1), /* ISTZBCFB ENTERED */ 00546000 * 4 ZCREBCGA BIT(1), /* ISTZBCGA ENTERED */ 00547000 * 4 ZCREBCGB BIT(1), /* ISTZBCGB ENTERED */ 00548000 * 4 ZCREBCHA BIT(1), /* ISTZBCHA ENTERED */ 00549000 * 4 ZCREBCHB BIT(1), /* ISTZBCHB ENTERED */ 00550000 * 4 ZCREBCIA BIT(1), /* ISTZBCIA ENTERED */ 00551000 * 4 ZCREBCIB BIT(1), /* ISTZBCIB ENTERED */ 00552000 * 4 ZCREBCID BIT(1), /* ISTZBCID ENTERED */ 00553000 * 4 ZCREBCJA BIT(1), /* ISTZBCJA ENTERED */ 00554000 * 4 ZCREBCJB BIT(1), /* ISTZBCJB ENTERED */ 00555000 * 4 ZCREBCKA BIT(1), /* ISTZBCKA ENTERED */ 00556000 * 4 ZCREBCKB BIT(1), /* ISTZBCKB ENTERED */ 00557000 * 4 ZCREBCLA BIT(1), /* ISTZBCLA ENTERED */ 00558000 * 4 ZCREBCLB BIT(1), /* ISTZBCLB ENTERED */ 00559000 * 4 ZCREBCMB BIT(1), /* ISTZBCMB ENTERED */ 00560000 * 4 ZCREBCND BIT(1), /* ISTZBCND ENTERED */ 00561000 * 4 ZCREBCNE BIT(1), /* ISTZBCNE ENTERED */ 00562000 * 4 ZCREBCOB BIT(1), /* ISTZBCOB ENTERED */ 00563000 * 4 ZCREBCPB BIT(1), /* ISTZBCPB ENTERED */ 00564000 * 4 ZCREBCQB BIT(1), /* ISTZBCQB ENTERED */ 00565000 * 4 ZCREBCRA BIT(1), /* ISTZBCRA ENTERED */ 00566000 * 4 ZCREBCRB BIT(1), /* ISTZBCRB ENTERED */ 00567000 * 4 ZCREBCSC BIT(1), /* ISTZBCSC ENTERED */ 00568000 * 4 ZCREBCXA BIT(1), /* ISTZBCXA ENTERED */ 00569000 * 4 ZCREBCX0 BIT(1), /* ISTZBCX0 ENTERED */ 00570000 * 4 ZCREBCY0 BIT(1), /* ISTZBCY0 ENTERED */ 00571000 * 4 ZCREBCZ0 BIT(1), /* ISTZBCZ0 ENTERED */ 00572000 * 4 ZCREBC0A BIT(1), /* ISTZBC0A ENTERED */ 00573000 * 4 ZCREBC0B BIT(1), /* ISTZBC0B ENTERED */ 00574000 * 4 ZCRECC0A BIT(1), /* ISTZCC0A ENTERED */ 00575000 * 4 ZCRECC0B BIT(1), /* ISTZCC0B ENTERED */ 00576000 * 4 ZCRECC1A BIT(1), /* ISTZCC1A ENTERED */ 00577000 * 4 ZCRECC1B BIT(1), /* ISTZCC1B ENTERED */ 00578000 * 4 ZCRECC2B BIT(1), /* ISTZCC2B ENTERED */ 00579000 * 4 ZCREDCA0 BIT(1), /* ISTZDCA0 ENTERED */ 00580000 * 4 ZCREDCB0 BIT(1), /* ISTZDCB0 ENTERED */ 00581000 * 4 ZCREDCC0 BIT(1), /* ISTZDCC0 ENTERED */ 00582000 * 4 ZCREDCD0 BIT(1), /* ISTZDCD0 ENTERED */ 00583000 * 4 ZCREDCE0 BIT(1), /* ISTZDCE0 ENTERED */ 00584000 * 4 ZCREDCF0 BIT(1), /* ISTZDCF0 ENTERED */ 00585000 * 4 ZCREDCH0 BIT(1), /* ISTZDCH0 ENTERED */ 00586000 * 4 ZCREDCI0 BIT(1), /* ISTZDCI0 ENTERED */ 00587000 * 4 ZCREDCJ0 BIT(1), /* ISTZDCJ0 ENTERED */ 00588000 * 4 ZCREDCKA BIT(1), /* ISTZDCKA ENTERED */ 00589000 * 4 ZCREDCKB BIT(1), /* ISTZDCKB ENTERED */ 00590000 * 4 ZCREDCL0 BIT(1), /* ISTZDCL0 ENTERED */ 00591000 * 4 ZCREDCMB BIT(1), /* ISTZDCMB ENTERED */ 00592000 * 4 ZCREECBA BIT(1), /* ISTZECBA ENTERED */ 00593000 * 4 ZCREECBB BIT(1), /* ISTZECBB ENTERED */ 00594000 * 4 ZCREECCA BIT(1), /* ISTZECCA ENTERED */ 00595000 * 4 ZCREECCB BIT(1), /* ISTZECCB ENTERED */ 00596000 * 4 ZCREECDA BIT(1), /* ISTZECDA ENTERED */ 00597000 * 4 ZCREECEA BIT(1), /* ISTZECEA ENTERED */ 00598000 * 4 ZCREECTA BIT(1), /* ISTZECTA ENTERED */ 00599000 * 4 ZCREFCEA BIT(1), /* ISTZFCEA ENTERED */ 00600000 * 4 ZCREFCEB BIT(1), /* ISTZFCEB ENTERED */ 00601000 * 4 ZCREGCAB BIT(1), /* ISTZGCAB ENTERED */ 00602000 * 4 ZCREGCBB BIT(1), /* ISTZGCBB ENTERED */ 00603000 * 4 * BIT(1), /* NOT USED */ 00604000 * 4 ZCREGCDB BIT(1), /* ISTZGCDB ENTERED */ 00605000 * 4 ZCREGCEB BIT(1), /* ISTZGCEB ENTERED */ 00606000 * 4 ZCREGCLA BIT(1), /* ISTZGCLA ENTERED */ 00607000 * 4 ZCREGC0A BIT(1), /* ISTZGC0A ENTERED */ 00608000 * 4 ZCREGC0B BIT(1), /* ISTZGC0B ENTERED */ 00609000 * 4 ZCREHCAN BIT(1), /* ISTZHCAN ENTERED */ 00610000 * 4 ZCREICAA BIT(1), /* ISTZICAA ENTERED */ 00611000 * 4 ZCREICAB BIT(1), /* ISTZICAB ENTERED */ 00612000 * 4 ZCREICBB BIT(1), /* ISTZICBB ENTERED */ 00613000 * 4 ZCREICBI BIT(1), /* ISTZICBI ENTERED */ 00614000 * 4 ZCREICCB BIT(1), /* ISTZICCB ENTERED */ 00615000 * 4 ZCREICCI BIT(1), /* ISTZICCI ENTERED */ 00616000 * 4 ZCREICDB BIT(1), /* ISTZICDB ENTERED */ 00617000 * 4 ZCREICEB BIT(1), /* ISTZICEB ENTERED */ 00618000 * 4 ZCREICGB BIT(1), /* ISTZICGB ENTERED */ 00619000 * 4 ZCREICHB BIT(1), /* ISTZICHB ENTERED */ 00620000 * 4 ZCREICIB BIT(1), /* ISTZICIB ENTERED */ 00621000 * 4 ZCREICID BIT(1), /* ISTZICID ENTERED */ 00622000 * 4 ZCREICJB BIT(1), /* ISTZICJB ENTERED */ 00623000 * 4 ZCREICKB BIT(1), /* ISTZICKB ENTERED */ 00624000 * 4 ZCREICKE BIT(1), /* ISTZICKE ENTERED */ 00625000 * 4 ZCREICKG BIT(1), /* ISTZICKG ENTERED */ 00626000 * 4 ZCREICLB BIT(1), /* ISTZICLB ENTERED */ 00627000 * 4 ZCREICMB BIT(1), /* ISTZICMB ENTERED */ 00628000 * 4 ZCREICNA BIT(1), /* ISTZICNA ENTERED */ 00629000 * 4 ZCREICNB BIT(1), /* ISTZICNB ENTERED */ 00630000 * 4 ZCREICOA BIT(1), /* ISTZICOA ENTERED */ 00631000 * 4 ZCREICOB BIT(1), /* ISTZICOB ENTERED */ 00632000 * 4 ZCREICQA BIT(1), /* ISTZICQA ENTERED */ 00633000 * 4 ZCREICQB BIT(1), /* ISTZICQB ENTERED */ 00634000 * 4 ZCREICRB BIT(1), /* ISTZICRB ENTERED */ 00635000 * 4 ZCREICSB BIT(1), /* ISTZICSB ENTERED */ 00636000 * 4 ZCREICSC BIT(1), /* ISTZICSC ENTERED */ 00637000 * 4 ZCREICTB BIT(1), /* ISTZICTB ENTERED */ 00638000 * 4 ZCREICUB BIT(1), /* ISTZICUB ENTERED */ 00639000 * 4 ZCREICVB BIT(1), /* ISTZICVB ENTERED */ 00640000 * 4 ZCREICWB BIT(1), /* ISTZICWB ENTERED */ 00641000 * 4 ZCREICX0 BIT(1), /* ISTZICX0 ENTERED */ 00642000 * 4 ZCREIC0B BIT(1), /* ISTZIC0B ENTERED */ 00643000 * 4 ZCREIC1B BIT(1), /* ISTZIC1B ENTERED */ 00644000 * 4 ZCREJCAB BIT(1), /* ISTZJCAB ENTERED */ 00645000 * 4 ZCREJCBB BIT(1), /* ISTZJCBB ENTERED */ 00646000 * 4 ZCREJCCB BIT(1), /* ISTZJCCB ENTERED */ 00647000 * 4 ZCREJCDB BIT(1), /* ISTZJCDB ENTERED */ 00648000 * 4 ZCREJC0B BIT(1), /* ISTZJC0B ENTERED */ 00649000 * 4 ZCREKCBB BIT(1), /* ISTZKCBB ENTERED */ 00650000 * 4 ZCREKCBN BIT(1), /* ISTZKCBN ENTERED */ 00651000 * 4 ZCREKCCN BIT(1), /* ISTZKCCN ENTERED */ 00652000 * 4 ZCREDCWR BIT(1), /* ISTZDCWR ENTERED */ 00653000 * 4 ZCREDCWB BIT(1), /* ISTZDCWB ENTERED */ 00654000 * 4 ZCREDCXR BIT(1), /* ISTZDCXR ENTERED */ 00655000 * 4 ZCREBCBR BIT(1), /* ISTZBCBR ENTERED */ 00656000 * 4 ZCREBCDR BIT(1), /* ISTZBCDR ENTERED */ 00657000 * 4 ZCREBCAR BIT(1), /* ISTZBCAR ENTERED */ 00658000 * 4 ZCRECCBI BIT(1), /* ISTZCCBI ENTERED */ 00659000 * 4 ZCRECCAI BIT(1), /* ISTZCCAI ENTERED */ 00660000 * 4 ZCRECCCI BIT(1), /* ISTZCCCI ENTERED */ 00661000 * 4 ZCREAC1R BIT(1), /* ISTZAC1R ENTERED */ 00662000 * 4 ZCREBCSB BIT(1), /* ISTZBCSB ENTERED */ 00663000 * 4 ZCREDCPR BIT(1), /* ISTZDCPR ENTERED */ 00664000 * 4 ZCREDCQR BIT(1), /* ISTZDCQR ENTERED */ 00665000 * 4 ZCREBCAL BIT(1), /* ISTZBCAL ENTERED */ 00666000 * 4 ZCREBC0L BIT(1), /* ISTZBC0L ENTERED */ 00667000 * 4 ZCREBCNB BIT(1), /* ISTZBCNB ENTERED */ 00668000 * 4 ZCREICOE BIT(1), /* ISTZICOE ENTERED */ 00669000 * 4 ZCREDCNB BIT(1), /* ISTZDCNB ENTERED */ 00670000 * 4 ZCREKCCB BIT(1), /* ISTZKCCB ENTERED */ 00671000 * 4 ZCRECFY0 BIT(1), /* ISTZCFY0 ENTERED */ 00672000 * 4 ZCREDCK0 BIT(1), /* ISTZDFK0 ENTERED */ 00673000 * 4 ZCREICSG BIT(1), /* ISTZICSG ENTERED */ 00674000 * 4 ZCREBCIF BIT(1), /* ISTZBCIF ENTERED */ 00675000 * 4 ZCREDCMF BIT(1), /* ISTZDCMF ENTERED */ 00676000 * 4 ZCRELCAB BIT(1), /* ISTZLCAB ENTERED */ 00677000 * 4 ZCREAC2B BIT(1), /* ISTZAC2B ENTERED */ 00678000 * 4 ZCREIC2B BIT(1), /* ISTZIC2B ENTERED */ 00679000 * 4 ZCRRSV97 BIT(97), /* RESERVED */ 00680000 * 2 ZCRCMNRC CHAR(1), /* PURGE MWOR RETURN CODE */ 00681000 * 2 ZCRWORDA CHAR(3), /* RESERVED FOR LATER USE */ 00682000 * 2 ZCRLCPB CHAR(LENGTH(ISTLCPB)), /* 3270 S/R LCPB */ 00683000 * 3 ZCRRHRU, /* SAVEAREA FOR RH AND RU */ 00684000 * 4 ZCRRH CHAR(3), /* RH */ 00685000 * 4 ZCRRU CHAR(*); /* RU */ 00686000 *DCL ZCTYPE BIT(8) CONSTANT('00'X); /* ZCR TYPE */ 00687000 *DCL ZCLNG FIXED(15) CONSTANT(172); /* ZCRR LENGTH */ 00688000 *DCL ZCRSAVNO BIT(8) CONSTANT('06'X); /* NUMBER OF SAVEAREAS IN ZCRR */ 00689000 *DCL ZCRLSVNO BIT(8) CONSTANT('04'X); /* NUMBER OF SAVE AREAS IN 0288 00690000 * LOCAL SUPPORT */ 00691000 */* *** EQUATES FOR ZCRRCDSV *** */ 0289 00692000 * 0289 00693000 *DCL ZCRMRFSB BIT(8) CONSTANT('0C'X); /* REQUEST COMPLETION MOVE FSB 00694000 * TO PROCESS */ 00695000 *DCL ZCRSRCHQ BIT(8) CONSTANT('10'X); /* REQUEST COMPLETION SEARCH 00696000 * REQUEST QUEUE */ 00697000 *DCL ZCREXIT BIT(8) CONSTANT('14'X); /* REQUEST COMPLETION EXIT */ 00698000 *DCL ZCRSFSB BIT(8) CONSTANT('18'X); /* REQUEST COMPLETION SINGLE 00699000 * FSB */ 00700000 *DCL ZCRDLFSB BIT(8) CONSTANT('1C'X); /* REQUEST COMPLETION DUAL FSB * 00701000 *DCL ZCRNOSCH BIT (8) CONSTANT('20'X); /* REQUEST COMPLETION, EXIT WITH 00702000 * SCHED NONE */ 00703000 *DCL ZCRNRSCH BIT (8) CONSTANT('24'X); /* REQUEST COMPLETION, EXIT WITH 00704000 * SCHED NORM */ 00705000 *DCL ZCRLGERR FIXED(8) CONSTANT(8); /* LOGICAL ERROR */ 00706000 *DCL ZCPLSCB BIT(8) CONSTANT('08'X); /* GET A RELEASE LSCB */ 00707000 *DCL ZCPBUF BIT(8) CONSTANT('04'X); /* GET A RELEASE BUFFER */ 00708000 *DCL ZCRTAC0A FIXED(8) CONSTANT(01); /* LOCAL DEVICE SCHEDULER(OUT)*/ 00709000 *DCL ZCRTAC0B FIXED(8) CONSTANT(02); /* REMOTE DEVICE SCHEDLER(OUT)*/ 00710000 *DCL ZCRTCC1A FIXED(8) CONSTANT(03); /* LOCAL DIALOG SCHEDLER(IN) */ 00711000 *DCL ZCRTCC1B FIXED(8) CONSTANT(04); /* REMOTE DIALOG SCHEDLER(IN) */ 00712000 *DCL ZCRTDCE0 FIXED(8) CONSTANT(05); /* NCP SLOWDOWN RECOVERY */ 00713000 *DCL ZCRTDCKA FIXED(8) CONSTANT(06); /* LOCAL GENERAL FUNCTIONS */ 00714000 *DCL ZCRTDCKB FIXED(8) CONSTANT(07); /* REMOTE GENERAL FUNCTIONS */ 00715000 *DCL ZCRTFCEB FIXED(8) CONSTANT(08); /* REMOTE READ BUFFER ALLOC. */ 00716000 *DCL ZCRTGCLA FIXED(8) CONSTANT(09); /* LCAL CTL & TEST FEEDBACK(IN)* 00717000 *DCL ZCRTGC0A FIXED(8) CONSTANT(10); /* LOCAL REQ. COMPLETION(IN) */ 00718000 *DCL ZCRTGC0B FIXED(8) CONSTANT(11); /* REMOTE REQ. COMPLETION(IN) */ 00719000 *DCL ZCRTICWB FIXED(8) CONSTANT(12); /* RESET CLEANUP (PHASE 5) */ 00720000 *DCL ZCRTIC0B FIXED(8) CONSTANT(13); /* REMOTE REQ COMPLTION CTL(IN)* 00721000 *DCL ZCRTAC1B FIXED(8) CONSTANT(14); /* ISTZAC1B THREAD ID */ 00722000 *DCL ZCRTIC1B FIXED(8) CONSTANT(15); /* ISTZIC1B THREAD ID */ 00723000 *DCL ZCRTCCBI FIXED(8) CONSTANT(16); /* ISTZCCBI THREAD ID */ 00724000 *DCL ZCRTAC1R FIXED(8) CONSTANT(17); /* ISTZAC1R THREAD ID */ 00725000 *DCL ZCRTAC1A FIXED(8) CONSTANT(18); /* ISTZAC1A THREAD ID */ 00726000 *DCL ZCRTLCAB FIXED(8) CONSTANT(19); /* ISTZLCAB THREAD ID */ 00727000 */* COMPONENT RECOVERY */ 00728000 */* */ 00729000 *DCL 1 ISTASCRR BDY(WORD) BASED, /* CRR FOR SMS */ 00730000 * 2 ASCPFCRR CHAR(LENGTH(ISTPFCRR)), 0318 00731000 * 2 ASCFLAGS CHAR(7), /* FLAGS */ 00732000 * 3 ASCFLG1 CHAR(2), /* MODULE TRACE FLAGS */ 00733000 * 4 ASCFBA BIT(1), /* ALLOCATION IN PATH */ 00734000 * 4 ASCFBD BIT(1), /* DE-ALLOCATION IN PATH */ 00735000 * 4 ASCFSR BIT(1), /* FSR IN PATH */ 00736000 * 4 ASCPASTR BIT(13), /* RESERVED PATH FLAGS */ 00737000 * 3 ASCFLG2 CHAR(2), /* MODULE IN CONTROL FLAGS */ 00738000 * 4 ASCFBAIC BIT(1), /* ALLOCATION IN CONTROL */ 00739000 * 4 ASCFBDIC BIT(1), /* DE-ALLOCATION IN CONTROL */ 00740000 * 4 ASCFSRIC BIT(1), /* FSR IN CONTROL */ 00741000 * 4 ASCICR BIT(13), /* RESERVED IN CONTROL FLAGS */ 00742000 * 3 ASCFLG3 CHAR(3), /* AUDIT FLAGS */ 00743000 * 4 ASCFSRGT BIT(1), /* FSR DOING GET PROCESSING */ 00744000 * 4 ASCFBDAL BIT(1), /* FBD DOING ALLOCATION */ 00745000 * 4 ASCKEYF BIT(1), /* KEY HAS BEEN ALTERED */ 00746000 * 4 ASCLLKF BIT(1), /* LOCAL LOCK HELD */ 00747000 * 4 ASCFBDUD BIT(1), /* FBD USING USER DATA */ 00748000 * 4 ASCAUDIT BIT(19), /* RESERVED AUDIT BITS */ 00749000 * 2 ASCKEY CHAR(1), /* ORIGINAL KEY */ 00750000 * 2 ASCETRYA PTR(31), /* RETRY ADRS FOR CONTINUE 0318 00751000 * OPTION */ 00752000 * 2 ASCUSRGS CHAR(16), /* SAVE AREA FOR USER REGS 0318 00753000 * 14 - 1 */ 00754000 * 3 ASCUSR14 CHAR(4), /* REGISTER 14 */ 00755000 * 3 ASCUSR15 CHAR(4), /* REGISTER 15 */ 00756000 * 3 ASCUSR00 CHAR(4), /* REGISTER 0 */ 00757000 * 3 ASCUSR01 CHAR(4), /* REGISTER 1 */ 00758000 * 2 ASCPSREG CHAR(16); /* SAVE AREA FOR PSS 0318 00759000 * REGS 1 - 4 */ 00760000 */* INITIAL LEVEL 001 04/09/75 */ 00761000 *DCL 1 ISTAPCRR BDY(WORD) BASED, 0319 00762000 * 2 APCHDRSV CHAR(LENGTH(ISTPFCRR)), /* HEADER */ 00763000 * 2 APCATFLG CHAR(2), /* AUDIT TRACE FLAGS */ 00764000 * 3 APC51E BIT(1), /* ISTAPC51 WAS ENTERED */ 00765000 * 3 APC52E BIT(1), /* ISTAPC52 ' ' */ 00766000 * 3 APC53E BIT(1), /* ISTAPC53 */ 00767000 * 3 APC54E BIT(1), 0319 00768000 * 3 APC56E BIT(1), 0319 00769000 * 3 APC57E BIT(1), 0319 00770000 * 3 APC58E BIT(1), 0319 00771000 * 3 APC31E BIT(1), 0319 00772000 * 3 * BIT(8), /* RESERVED */ 00773000 * 2 APCRFLG CHAR(2), /* AUDIT TRACE FLAGS */ 00774000 * 3 APC51R BIT(1), /* ISTAPCR1 IS RUNNING */ 00775000 * 3 APC52R BIT(1), /* ISTAPC52 IS RUNNING */ 00776000 * 3 APC53R BIT(1), 0319 00777000 * 3 APC54R BIT(1), 0319 00778000 * 3 APC56R BIT(1), 0319 00779000 * 3 APC57R BIT(1), 0319 00780000 * 3 APC58R BIT(1), 0319 00781000 * 3 APC31R BIT(1), 0319 00782000 * 3 * BIT(8), /* RESERVED */ 00783000 * 2 APCPSTA PTR(31), /* PST@ */ 00784000 * 2 APCTCBA PTR(31), /* TCB@ */ 00785000 * 2 APCRTRN PTR(31), /*@ TO BR14 TO RTN TO SYSTEM */ 00786000 * 2 APCPABSV PTR(31), /*SAVED PAB@ TO REDISPATCH */ 00787000 * 2 APCQWFO PTR(31), /* Q@ IN PST WORK AREA ON */ 00788000 * 2 APCFRRPM PTR(31), /* WORKAREA@ RTN'D FROM SETFR*/ 00789000 * 2 APCSAVE CHAR(72), 0319 00790000 * 3 APCESTAL CHAR(72), /* ESTAE PARAMETER LIST AREA */ 00791000 * 2 APCCOMF CHAR(4) BDY(HWORD), /* FLAGS USED BY ALL PSS RTN */ 00792000 * 3 APCCOMF1 CHAR(2), 0319 00793000 * 4 APCSSTSK BIT(1), /* IRB TYPE WORK */ 00794000 * 4 APCUETSK BIT(1), /* USER EXIT RUNNING UNDER IRB* 00795000 * 4 APCSMCR BIT(1), /* SMA CRA BEING USED */ 00796000 * 4 APCIRB1 BIT(1), /* IRB1 BEING USED */ 00797000 * 4 APCIRB2 BIT(1), /* IRB2 BEING USED */ 00798000 * 4 APCRELR BIT(1), /*CALL ISTAPC58 TO RLEASE CRA*/ 00799000 * 4 APCEXIT BIT(1), /* TELLS ISTAPC58 TO EXIT SYS*/ 00800000 * 4 APCZLBER BIT(1), /* ERR WHILE RUNNING ZLFAB PAB* 00801000 * 4 * BIT(8), /* RESERVED */ 00802000 * 3 APCRETCD FIXED(15), /* RTN CODE FOR R15 FOR SYS */ 00803000 * 2 APCSAV1 PTR(31), /* 1ST SAVE WORD */ 00804000 * 2 APCSAV2 PTR(31), /* 2ND SAVE WORD */ 00805000 * 2 APCSWTWD CHAR(4), /* SWITCH AREA FOR PSS RTN */ 00806000 * 2 APC31FLG CHAR(1), /* ISTAPC31 FLAGS */ 00807000 * 3 APCTPXIT BIT(1), /* TPEXIT IN PROGRESS */ 00808000 * 3 APCRESCH BIT(1), /*PAB TPEXIT OCCURED RESCHED*/ 00809000 * 3 APCSORT BIT(1), /* PAB SORTED TO PROPER PST/MPST */ 00810000 * 3 * BIT(5), /* RESERVED */ 00811000 * 2 APC52FLG CHAR(1), /* ISTAPC52 FLAGS */ 00812000 * 3 APCCKRQ BIT(1), /* CHECK RDY Q FOR WORK */ 00813000 * 3 APCSMSR BIT(1), /* RETURNING SMS RPH */ 00814000 * 3 APCQENQ BIT(1), /* ENQUEUEING PAB'S ON PST Q'S */ 00815000 * 3 APCRDQ BIT(1), /* DEQUEING PAB'S FROM PST RDY Q */ 00816000 * 3 APCNWF BIT(1), /* NO WORK FOUND */ 00817000 * 3 APCWKF BIT(1), /* WORK FOUND */ 00818000 * 3 * BIT(2), /* RESERVED */ 00819000 * 2 APC53FLG CHAR(1), /* ISTAPC53 FLAGS */ 00820000 * 3 APCPR153 BIT(1), /* USED PREALLOCATED CRA */ 00821000 * 2 APC54FLG CHAR(1), /* ISTAPC54 FLAGS */ 00822000 * 3 APCRLST BIT(1), /* SMS BEING CALLED TO RELEASE UECB*/ 00823000 * 3 * BIT(7), /* RESERVED */ 00824000 * 2 APC57FLG CHAR(1), /* ISTAPC57 FLAGS */ 00825000 * 3 APCRECRA BIT(1), /* RELEASE CRA BEING DONE */ 00826000 * 3 APCNREL BIT(1), /* DID NOT RELEASE CRA */ 00827000 * 3 * BIT(6), /* RESERVED */ 00828000 * 2 * CHAR(15); /* RESERVED */ 00829000 */* COMPONENT RECOVERY AREA */ 00830000 */* REVISIONS 005 04/09/75 */ 00831000 *DCL 1 ISTCRA BASED BDY(DWORD), /* COMPONENT RECOVERY AREA */ 00832000 * 2 CRABASIC BDY(WORD), /* CRA WITHOUT PROCESS CRR */ 00833000 * 3 CRAHDR CHAR(8) BDY(WORD), /* CRA HEADER */ 00834000 * 4 CRACRR PTR(31), /* PTR TO ACTIVE CRR */ 00835000 * 4 CRAFRR PTR(31), /* PTR TO ACTIVE FRR */ 00836000 * 3 CRALKACT BIT(32), /* LOCK LEVEL AND 0320 00837000 * OWNERSHIP FLAGS */ 00838000 * 4 CRALEV32 BIT(1), /* 1 = LEVEL 32 LOCK HELD */ 00839000 * 4 CRALEV31 BIT(1), /* 1 = LEVEL 31 LOCK HELD */ 00840000 * 4 CRALEV30 BIT(1), /* 1 = LEVEL 30 LOCK HELD */ 00841000 * 4 CRALEV29 BIT(1), /* 1 = LEVEL 29 LOCK HELD */ 00842000 * 4 CRALEV28 BIT(1), /* 1 = LEVEL 28 LOCK HELD */ 00843000 * 4 CRALEV27 BIT(1), /* 1 = LEVEL 27 LOCK HELD */ 00844000 * 4 CRALEV26 BIT(1), /* 1 = LEVEL 26 LOCK HELD */ 00845000 * 4 CRALEV25 BIT(1), /* 1 = LEVEL 25 LOCK HELD */ 00846000 * 4 CRALEV24 BIT(1), /* 1 = LEVEL 24 LOCK HELD */ 00847000 * 4 CRALEV23 BIT(1), /* 1 = LEVEL 23 LOCK HELD */ 00848000 * 4 CRALEV22 BIT(1), /* 1 = LEVEL 22 LOCK HELD */ 00849000 * 4 CRALEV21 BIT(1), /* 1 = LEVEL 21 LOCK HELD */ 00850000 * 4 CRALEV20 BIT(1), /* 1 = LEVEL 20 LOCK HELD */ 00851000 * 4 CRALEV19 BIT(1), /* 1 = LEVEL 19 LOCK HELD */ 00852000 * 4 CRALEV18 BIT(1), /* 1 = LEVEL 18 LOCK HELD */ 00853000 * 4 CRALEV17 BIT(1), /* 1 = LEVEL 17 LOCK HELD */ 00854000 * 4 CRALEV16 BIT(1), /* 1 = LEVEL 16 LOCK HELD */ 00855000 * 4 CRALEV15 BIT(1), /* 1 = LEVEL 15 LOCK HELD */ 00856000 * 4 CRALEV14 BIT(1), /* 1 = LEVEL 14 LOCK HELD */ 00857000 * 4 CRALEV13 BIT(1), /* 1 = LEVEL 13 LOCK HELD */ 00858000 * 4 CRALEV12 BIT(1), /* 1 = LEVEL 12 LOCK HELD */ 00859000 * 4 CRALEV11 BIT(1), /* 1 = LEVEL 11 LOCK HELD */ 00860000 * 4 CRALEV10 BIT(1), /* 1 = LEVEL 10 LOCK HELD */ 00861000 * 4 CRALEV09 BIT(1), /* 1 = LEVEL 9 LOCK HELD */ 00862000 * 4 CRALEV08 BIT(1), /* 1 = LEVEL 8 LOCK HELD */ 00863000 * 4 CRALEV07 BIT(1), /* 1 = LEVEL 7 LOCK HELD */ 00864000 * 4 CRALEV06 BIT(1), /* 1 = LEVEL 6 LOCK HELD */ 00865000 * 4 CRALEV05 BIT(1), /* 1 = LEVEL 5 LOCK HELD */ 00866000 * 4 CRALEV04 BIT(1), /* 1 = LEVEL 4 LOCK HELD */ 00867000 * 4 CRALEV03 BIT(1), /* 1 = LEVEL 3 LOCK HELD */ 00868000 * 4 CRALEV02 BIT(1), /* 1 = LEVEL 2 LOCK HELD */ 00869000 * 4 CRALEV01 BIT(1), /* 1 = LEVEL 1 LOCK HELD */ 00870000 * 3 CRAL1PTR PTR(31), /* PTR TO LEVEL 1 LOCK */ 00871000 * 3 CRAL2PTR PTR(31), /* PTR TO LEVEL 2 LOCK */ 00872000 * 3 CRAL3PTR PTR(31), /* PTR TO LEVEL 3 LOCK */ 00873000 * 3 CRAL4PTR PTR(31), /* PTR TO LEVEL 4 LOCK */ 00874000 * 3 CRAL5PTR PTR(31), /* PTR TO LEVEL 5 LOCK */ 00875000 * 3 CRAL6PTR PTR(31), /* PTR TO LEVEL 6 LOCK */ 00876000 * 3 CRAL7PTR PTR(31), /* PTR TO LEVEL 7 LOCK */ 00877000 * 3 CRAL8PTR PTR(31), /* PTR TO LEVEL 8 LOCK */ 00878000 * 3 CRAL9PTR PTR(31), /* PTR TO LEVEL 9 LOCK */ 00879000 * 3 CRALAPTR PTR(31), /* RESERVED */ 00880000 */* */ 00881000 */* VS1/VS2 EXTENSION */ 00882000 */* */ 00883000 * 2 CRARPH CHAR(LENGTH(ISTRPH)), /* RPH ASSOCIATED WITH 0320 00884000 * THIS CRH */ 00885000 * 2 CRAPSS CHAR(LENGTH(ISTAPCRR)), /* PSS CRR */ 00886000 * 2 CRAPROCR CHAR(LENGTH(ISTZCRR)) BDY(DWORD), /* PROCESS CRR */ 00887000 * 2 CRASVC CHAR(72) BDY(WORD), /* SERVICE RTN CRA */ 00888000 * 3 CRAASCRR CHAR(LENGTH(ISTASCRR)), /* CRR FOR SMS */ 00889000 * 3 CRAHSIZ PTR(31), /* HEADER SIZE QUED SMS REQ */ 00890000 * 3 CRAMASK PTR(31), /* PREFIX MASK QUED SMS REQ */ 00891000 * 3 CRABUFA FIXED(31), /* BUFF QUE FOR FBQ ALLOCATION* 00892000 * 4 CRABFTBA BIT(1), /* NO BUFFERS ALLOCATED YET * 00893000 * 2 CRARSV01 PTR(31), /* RESERVED */ 00894000 * 2 CRARSV02 PTR(31), /* RESERVED */ 00895000 * 2 CRACHAIN PTR(31); /* CHAIN FIELD USED TO QUEUE 00896000 * CRA TO PREALLOCATE QUEUE 00897000 * WHEN NOT IN USE */ 00898000 *DCL CRALMS32 BIT(32) CONSTANT('80000000'X); /* 32ND LEVEL LOCK MASK */ 00899000 *DCL CRALMS31 BIT(32) CONSTANT('40000000'X); /* 31ST LEVEL LOCK MASK */ 00900000 *DCL CRALMS30 BIT(32) CONSTANT('20000000'X); /* 30TH LEVEL LOCK MASK */ 00901000 *DCL CRALMS29 BIT(32) CONSTANT('10000000'X); /* 29TH LEVEL LOCK MASK */ 00902000 *DCL CRALMS28 BIT(32) CONSTANT('08000000'X); /* 28TH LEVEL LOCK MASK */ 00903000 *DCL CRALMS27 BIT(32) CONSTANT('04000000'X); /* 27TH LEVEL LOCK MASK */ 00904000 *DCL CRALMS26 BIT(32) CONSTANT('02000000'X); /* 26TH LEVEL LOCK MASK */ 00905000 *DCL CRALMS25 BIT(32) CONSTANT('01000000'X); /* 25TH LEVEL LOCK MASK */ 00906000 *DCL CRALMS24 BIT(32) CONSTANT('00800000'X); /* 24TH LEVEL LOCK MASK */ 00907000 *DCL CRALMS23 BIT(32) CONSTANT('00400000'X); /* 23RD LEVEL LOCK MASK */ 00908000 *DCL CRALMS22 BIT(32) CONSTANT('00200000'X); /* 22ND LEVEL LOCK MASK */ 00909000 *DCL CRALMS21 BIT(32) CONSTANT('00100000'X); /* 21ST LEVEL LOCK MASK */ 00910000 *DCL CRALMS20 BIT(32) CONSTANT('00080000'X); /* 20TH LEVEL LOCK MASK */ 00911000 *DCL CRALMS19 BIT(32) CONSTANT('00040000'X); /* 19TH LEVEL LOCK MASK */ 00912000 *DCL CRALMS18 BIT(32) CONSTANT('00020000'X); /* 18TH LEVEL LOCK MASK */ 00913000 *DCL CRALMS17 BIT(32) CONSTANT('00010000'X); /* 17TH LEVEL LOCK MASK */ 00914000 *DCL CRALMS16 BIT(32) CONSTANT('00008000'X); /* 16TH LEVEL LOCK MASK */ 00915000 *DCL CRALMS15 BIT(32) CONSTANT('00004000'X); /* 15TH LEVEL LOCK MASK */ 00916000 *DCL CRALMS14 BIT(32) CONSTANT('00002000'X); /* 14TH LEVEL LOCK MASK */ 00917000 *DCL CRALMS13 BIT(32) CONSTANT('00001000'X); /* 13TH LEVEL LOCK MASK */ 00918000 *DCL CRALMS12 BIT(32) CONSTANT('00000800'X); /* 12TH LEVEL LOCK MASK */ 00919000 *DCL CRALMS11 BIT(32) CONSTANT('00000400'X); /* 11TH LEVEL LOCK MASK */ 00920000 *DCL CRALMS10 BIT(32) CONSTANT('00000200'X); /* 10TH LEVEL LOCK MASK */ 00921000 *DCL CRALMS09 BIT(32) CONSTANT('00000100'X); /* 9TH LEVEL LOCK MASK */ 00922000 *DCL CRALMS08 BIT(32) CONSTANT('00000080'X); /* 8TH LEVEL LOCK MASK */ 00923000 *DCL CRALMS07 BIT(32) CONSTANT('00000040'X); /* 7TH LEVEL LOCK MASK */ 00924000 *DCL CRALMS06 BIT(32) CONSTANT('00000020'X); /* 6TH LEVEL LOCK MASK */ 00925000 *DCL CRALMS05 BIT(32) CONSTANT('00000010'X); /* 5TH LEVEL LOCK MASK */ 00926000 *DCL CRALMS04 BIT(32) CONSTANT('00000008'X); /* 4TH LEVEL LOCK MASK */ 00927000 *DCL CRALMS03 BIT(32) CONSTANT('00000004'X); /* 3RD LEVEL LOCK MASK */ 00928000 *DCL CRALMS02 BIT(32) CONSTANT('00000002'X); /* 2ND LEVEL LOCK MASK */ 00929000 *DCL CRALMS01 BIT(32) CONSTANT('00000001'X); /* 1ST LEVEL LOCK MASK */ 00930000 *DCL CRACRA CHAR(4) CONSTANT('CRA '); /* CHARACTER C.B. ID */ 00931000 * /* CRR FOR NETWORK STATUS SERVICES */ 00932000 */* INITIAL LEVEL 001 10/18/74 */ 00933000 * /* */ 00934000 * DCL 1 ISTNSCRR BDY(WORD) BASED,/* CRR FOR NETWORK 0354 00935000 * STATUS SERVICES */ 00936000 * 2 NSCPRFX CHAR(LENGTH(ISTPFCRR)), /* AUDIT TRAIL FOR 0354 00937000 * NETWORK STATUS SERVICES */ 00938000 * 2 NSCAUDIT, /* MODULE INDICATORS */ 00939000 * 3 NSCNTRD CHAR(2), /* LIST OF MODULES ENTERED FOR 00940000 * NSS */ 00941000 * 4 NSTC00 BIT(1), /* INDICATES MODULE ISTSTC00 00942000 * ENTERED */ 00943000 * 4 NSQC00 BIT(1), /* INDICATES MODULE ISTSQC00 00944000 * ENTERED */ 00945000 * 4 NSQC01 BIT(1), /* INDICATES MODULE ISTSQC01 00946000 * ENTERED */ 00947000 * 4 NSQC02 BIT(1), /* INDICATES MODULE ISTSQC02 00948000 * ENTERED */ 00949000 * 4 NSQC03 BIT(1), /* INDICATES MODULE ISTSQC03 00950000 * ENTERED */ 00951000 * 4 NSQC04 BIT(1), /* INDICATES MODULE ISTSQC04 00952000 * ENTERED */ 00953000 * 4 NSQC05 BIT(1), /* INDICATES MODULE ISTSQC05 00954000 * ENTERED */ 00955000 * 4 NSQC06 BIT(1), /* INDICATES MODULE ISTSQC06 00956000 * ENTERED */ 00957000 * 4 NSQC07 BIT(1), /* INDICATES MODULE ISTSQC07 00958000 * ENTERED */ 00959000 * 4 NSQC09 BIT(1), /* INDICATES MODULE ISTSQC09 00960000 * ENTERED */ 00961000 * 4 NSQC08 BIT(1), /* INDICATES MODULE ISTSQC08 00962000 * ENTERED */ 00963000 * 4 NSQC0A BIT(1), /* INDICATES MODULE ISTSQC0A 00964000 * ENTERED */ 00965000 * 4 NSQC0B BIT(1), /* INDICATES MODULE ISTSQC0B 00966000 * ENTERED */ 00967000 * 4 NNSRSVRD BIT(3), /* RESERVED */ 00968000 * 3 NSCCRT CHAR(2), /* LIST OF MODULES CURRENTLY 00969000 * RUNNING */ 00970000 * 4 CSTC00 BIT(1), /* INDICATES MODULE ISTSTC00 00971000 * RUNNING */ 00972000 * 4 CSQC00 BIT(1), /* INDICATES MODULE ISTSQC00 00973000 * RUNNING */ 00974000 * 4 CSQC01 BIT(1), /* INDICATES MODULE ISTSQC01 00975000 * RUNNING */ 00976000 * 4 CSQC02 BIT(1), /* INDICATES MODULE ISTSQC02 00977000 * RUNNING */ 00978000 * 4 CSQC03 BIT(1), /* INDICATES MODULE ISTSQC03 00979000 * RUNNING */ 00980000 * 4 CSQC04 BIT(1), /* INDICATES MODULE ISTSQC04 00981000 * RUNNING */ 00982000 * 4 CSQC05 BIT(1), /* INDICATES MODULE ISTSQC05 00983000 * RUNNING */ 00984000 * 4 CSQC06 BIT(1), /* INDICATES MODULE ISTSQC06 00985000 * RUNNING */ 00986000 * 4 CSQC07 BIT(1), /* INDICATES MODULE ISTSQC07 00987000 * RUNNING */ 00988000 * 4 CSQC09 BIT(1), /* INDICATES MODULE ISTSQC09 00989000 * RUNNING */ 00990000 * 4 CSQC08 BIT(1), /* INDICATES MODULE ISTSQC08 00991000 * RUNNING */ 00992000 * 4 CSQC0A BIT(1), /* INDICATES MODULE ISTSQC0A 00993000 * RUNNING */ 00994000 * 4 CSQC0B BIT(1), /* INDICATES MODULE ISTSQC0B 00995000 * RUNNING */ 00996000 * 4 CNSRSVRD BIT(3); /* RESERVED */ 00997000 *DCL TIDSTC00 BIT(8) CONSTANT('00'X); /* THREAD ID FOR 0355 00998000 * ISTSTC00 */ 00999000 *DCL TIDSQC00 BIT(8) CONSTANT('01'X); /* THREAD ID FOR 0356 01000000 * ISTSQC00 */ 01001000 */* END OF ATBUILD */ 0357 01002000 * /*** SET ENTERED BIT FOR THIS PROCEDURE ***/ 0357 01003000 *CMZK0005->RPHCRR->CRACRR->NSQC01 = '1'B; 0357 01004000 L @12,RPHCRR(,CMZK0005) 0357 01005000 L @12,CRACRR(,@12) 0357 01006000 OI NSQC01(@12),B'00100000' 0357 01007000 * /*** CLEAR AND SET CURRENT PROCEDURE BIT ***/ 0358 01008000 *CMZK0005->RPHCRR->CRACRR->NSCCRT = '0'B; 0358 01009000 MVI NSCCRT+1(@12),X'00' 0358 01010000 MVI NSCCRT(@12),B'00000000' 0358 01011000 *CMZK0005->RPHCRR->CRACRR->CSQC01 = '1'B; 0359 01012000 OI CSQC01(@12),B'00100000' 0359 01013000 * END; 0360 01014000 * 0360 01015000 *SAVR13 = CREGD; /* SAVE REG 13 */ 0361 01016000 LR SAVR13,CREGD 0361 01017000 *CREGD = CREGD + SAVELENT; /* POINT TO OUR SAVE AREA */ 0362 01018000 AL CREGD,@CF02682 0362 01019000 *CSAVBACK = SAVR13; /* BACK CHAIN */ 0363 01020000 ST SAVR13,CSAVBACK(,CREGD) 0363 01021000 *SAVR13 -> CSAVFORW = CREGD; /* FORWARD CHAIN */ 0364 01022000 ST CREGD,CSAVFORW(,SAVR13) 0364 01023000 *RFY SAVR13 UNRSTD; /* ALL DONE WITH IT @ZM00709*/ 01024000 *PTRRPH=CREG1; /*SAVE POINTER TO RPH */ 0366 01025000 LR PTRRPH,CREG1 0366 01026000 *IF (RPRENTRY = RPRENTCM) | /* IS RDTE A COMPONENT, OR */ 0367 01027000 * (RPRENTRY = RPRENTTR) | /* A TERMINAL, OR */ 0367 01028000 * (RPRENTRY = RPRENTLC) | /* A LOCAL DEVICE, OR */ 0367 01029000 * (RPRENTRY = RPRENTUT) | /* AN UNIDENTIFIED TERM @DM03858*/ 01030000 * (RPRENTRY = RPRENTLU) /* A LOGICAL UNIT */ 0367 01031000 * THEN /* IF ONE OF ABOVE */ 0367 01032000 L @12,RPHWEA(,PTRRPH) 0367 01033000 L @12,OCWDRDTE(,@12) 0367 01034000 CLI RPRENTRY(@12),X'90' 0367 01035000 BE @RT00367 0367 01036000 CLI RPRENTRY(@12),X'80' 0367 01037000 BE @RT00367 0367 01038000 CLI RPRENTRY(@12),X'45' 0367 01039000 BE @RT00367 0367 01040000 CLI RPRENTRY(@12),X'75' 0367 01041000 BE @RT00367 0367 01042000 CLI RPRENTRY(@12),X'81' 0367 01043000 BNE @RF00367 0367 01044000 @RT00367 DS 0H 0368 01045000 * DO; /* PROCESS REQUEST */ 0368 01046000 * IF RCPICELN ^= ADDR(RCPICELN) /* DOES A LOGON ICE EXIST */ 0369 01047000 * THEN 0369 01048000 L @12,RPHWEA(,PTRRPH) 0369 01049000 L @08,OCWDRDTE(,@12) 0369 01050000 L @06,RCPICELN(,@08) 0369 01051000 LA @08,RCPICELN(,@08) 0369 01052000 CR @06,@08 0369 01053000 BE @RF00369 0369 01054000 * DO; /* YES PROCESS IT */ 0370 01055000 * IF OCWARDTE = ICESUBJ /* DOES ICE BELONG TO APPL */ 0371 01056000 * /* REQUESTING INFO */ 0371 01057000 * THEN DO; 0371 01058000 CLC OCWARDTE(4,@12),ICESUBJ(@06) 0371 01059000 BNE @RF00371 0371 01060000 * CALL CLGNDTA1; /* PROCESS ICE */ 0373 01061000 BAL @14,CLGNDTA1 0373 01062000 * CRETC=CREG9; /*MOVE RETURN CODE INTO PARM REG * 01063000 LR CRETC,CREG9 0374 01064000 * END; 0375 01065000 * ELSE 0376 01066000 * CRETC = NVINPT; /* NOT VALID INPUT RETURN CODE */ 01067000 B @RC00371 0376 01068000 @RF00371 LA CRETC,4 0376 01069000 * /* NOT APPL'S ICE */ 0377 01070000 * END; 0377 01071000 * ELSE /* NO ICE EXISTS */ 0378 01072000 * CRETC = NVINPT; /* NOT VALID INPUT R.C. */ 0378 01073000 B @RC00369 0378 01074000 @RF00369 LA CRETC,4 0378 01075000 * END; 0379 01076000 *ELSE /* NOT CORRECT NODE TYPE */ 0380 01077000 * CRETC = NVINPT; /* NOT VALID INPUT R. C. */ 0380 01078000 B @RC00367 0380 01079000 @RF00367 LA CRETC,4 0380 01080000 *CREGD = CREGD - SAVELENT; /* RESTORE SAVEAREA PTR @ZM00709*/ 01081000 @RC00367 SL CREGD,@CF02682 0381 01082000 *GEN(EJECT); 0382 01083000 EJECT 01084000 */********************************************************************/ 01085000 */* ROUTINE NAME: CLGNDTA1 - CHECK LOGON DATA */ 01086000 */* */ 01087000 */* FUNCTION: CALLED BY MAIN-LINE TO PROCESS VALID REQUESTS. TESTS */ 01088000 */* TO SEE IF THERE IS LOGON DATA TO MOVE AND OBTAINS ITS */ 01089000 */* LENGTH AND THE ADDRESS AND LENGTH OF THE USER-SUPPLIED */ 01090000 */* AREA. TESTS TO SEE IF THE USER-SUPPLIED AREA IS LARGE */ 01091000 */* ENOUGH TO HOLD THE LOGON DATA AND, IF IT IS, OBTAINS */ 01092000 */* (AND LATER RELEASES) A LOCAL MEMORY LOCK AND VALIDATES */ 01093000 */* THE USER-SUPPLIED AREA. IF IT'S VALID, CALLS C01MVDTA */ 01094000 */* TO MOVE LOGON DATA TO USER-SUPPLIED AREA. */ 01095000 */* */ 01096000 */* INPUT: PTRRPH (R6) - POINTER TO RPL HEADER (ISTRPH) */ 01097000 */* CREGE (R14) - NSI ADDRESS IN CALLING ROUTINE (MAINLINE) */ 01098000 */* */ 01099000 */* OUTPUT: CREG9 (R9) - RETURN CODE (0=SUCCESSFUL, X'0B'=COULD */ 01100000 */* NOT OBTAIN LOCAL MEMORY LOCK, X'17'= */ 01101000 */* INVALID USER AREA, X'2B'=USER AREA NOT */ 01102000 */* LARGE ENOUGH, X'2C'=NO LOGON DATA) */ 01103000 */* CREGE (R14) - NSI ADDRESS IN CALLING ROUTINE (MAINLINE) */ 01104000 */* */ 01105000 */* ROUTINES CALLED: C01MVDTA - TO MOVE DATA TO USER-SUPPLIED AREA */ 01106000 */* */ 01107000 */* MACROS USED: VSETLCK - TO SET LOCAL MEMORY LOCK */ 01108000 */* VALCHEK - TO VALIDITY CHECK USER SPECIFIED AREA */ 01109000 */********************************************************************/ 01110000 * 0383 01111000 *CLGNDTA1: PROC OPTIONS(NOSAVE,NOSAVEAREA); 0383 01112000 B @PB00002 0383 01113000 CLGNDTA1 DS 0H 0384 01114000 *OCWR14SV(3) = CREGE; /* SAVE RETURN POINT */ 0384 01115000 L @12,RPHWEA(,PTRRPH) 0384 01116000 ST CREGE,OCWR14SV+8(,@12) 0384 01117000 *RFY BFHDRPTR RSTD; 0385 01118000 *BFHDRPTR = ICEDATA; /* GET ADDR OF LOGON DATA */ 0386 01119000 L @08,OCWDRDTE(,@12) 0386 01120000 L @08,RCPICELN(,@08) 0386 01121000 L BFHDRPTR,ICEDATA(,@08) 0386 01122000 *IF BFHDRPTR ^= 0 /* DOES ANY LOGON DATA EXIST */ 0387 01123000 * THEN 0387 01124000 SLR @10,@10 0387 01125000 CR BFHDRPTR,@10 0387 01126000 BE @RF00387 0387 01127000 * DO; /* YES PROCESS ICE DATA */ 0388 01128000 * RFY (DATASIZE,CLGNT) RSTD; 0389 01129000 * DATASIZE = BINUSEL; /* GET LENGTH OF LOGONDATA @D32CKTQ*/ 01130000 LA @08,12 0390 01131000 LR @06,BFHDRPTR 0390 01132000 ALR @06,@08 0390 01133000 SLR DATASIZE,DATASIZE 0390 01134000 IC DATASIZE,BINUSEL(,@06) 0390 01135000 * IF DATASIZE ^= 0 /* SEE IF DATA EXISTS @D32CKTQ*/ 01136000 * THEN /*@D32CKTQ*/ 01137000 CR DATASIZE,@10 0391 01138000 BE @RF00391 0391 01139000 * DO; /*@D32CKTQ*/ 01140000 * IF RPLBUFL >= DATASIZE /* IS USER SUPPLIED @D32CKTQ*/ 01141000 * THEN /* AREA BIG ENOUGH */ 0393 01142000 L @12,OCWRPL(,@12) 0393 01143000 C DATASIZE,RPLBUFL(,@12) 0393 01144000 BH @RF00393 0393 01145000 * DO; /* YES */ 0394 01146000 */* OBTAIN LOCAL MEMORY LOCK */ 0395 01147000 * CREGD = CREGD + 12; /*@XM08755*/ 01148000 * 0395 01149000 ALR CREGD,@08 0395 01150000 */*VSETLCK (CRETC,OBTAIN,LOCAL,(LOCAL,ISTSQC01(C01REL)))*/ 0396 01151000 *C01OBT: DO; 0396 01152000 C01OBT DS 0H 0397 01153000 * /*DECLARE AND RESTRICT REGS */ 01154000 * /* 2,10,11,12,13,14, AND 15 01155000 **/ 0397 01156000 * DCL GPR02F FIXED(31) REG(02); 0397 01157000 * DCL GPR02P PTR(31) REG(02); 0398 01158000 * DCL GPR10F FIXED(31) REG(10); 0399 01159000 * DCL GPR10P PTR(31) REG(10); 0400 01160000 * DCL GPR11F FIXED(31) REG(11); 0401 01161000 * DCL GPR11P PTR(31) REG(11); 0402 01162000 * DCL GPR12F FIXED(31) REG(12); 0403 01163000 * DCL GPR12P PTR(31) REG(12); 0404 01164000 * DCL GPR13F FIXED(31) REG(13); 0405 01165000 * DCL GPR13P PTR(31) REG(13); 0406 01166000 * DCL GPR14F FIXED(31) REG(14); 0407 01167000 * DCL GPR14P PTR(31) REG(14); 0408 01168000 * DCL GPR15F FIXED(31) REG(15); 0409 01169000 * DCL GPR15P PTR(31) REG(15); 0410 01170000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) 01171000 *RSTD; 0411 01172000 * /*SAVE REGS 2 AND 10 THRU 14*/ 01173000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 0412 01174000 * 0412 01175000 STM GPR10F,GPR12F,0(GPR13P) 01176000 ST GPR14F,12(GPR13P) 01177000 ST GPR02F,16(GPR13P) 01178000 * /*INVOKE MODESET TO CHANGE */ 01179000 * /*PSW PROTECTION KEY TO 0 */ 01180000 * GEN SETS(2); 0413 01181000 * 0413 01182000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 01183000 * GPR10P=GPR13P; /*PUT SAVE AREA ADDR IN R 10*/ 01184000 LR GPR10P,GPR13P 0414 01185000 * /*INVOKE OS/VS SETLOCK MACRO*/ 01186000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 0415 01187000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *01188000 RELATED=(LOCAL,ISTSQC01(C01REL)) 01189000 * GPR15P=GPR13P; /*PUT RETURN CODE IN R 15 */ 01190000 LR GPR15P,GPR13P 0416 01191000 * /*INVOKE MODESET MACRO TO */ 01192000 * DO; /*RESTORE PSW PROTECTION KEY*/ 01193000 * GEN SETS(2); 0418 01194000 MODESET KEYADDR=(2),WORKREG=2 01195000 * END; /* RESTORE REGISTERS */ 01196000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F, 0420 01197000 * GPR12F,GPR13F,GPR14F,GPR02F); 0420 01198000 LR GPR13F,GPR10F 01199000 LM GPR10F,GPR12F,0(GPR13P) 01200000 L GPR14F,12(GPR13P) 01201000 L GPR02F,16(GPR13P) 01202000 * IF GPR15F=4 THEN GPR15F=0; 0421 01203000 C GPR15F,@CF00053 0421 01204000 BNE @RF00421 0421 01205000 SLR GPR15F,GPR15F 0422 01206000 * CRETC=GPR15F; /*PUT RETURN CODE IN RCREG*/ 01207000 * 0423 01208000 @RF00421 DS 0H 0424 01209000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) 01210000 *UNRSTD; END; /*C01OBT:VSETLCK */ 0424 01211000 * CREGD = CREGD - 12; /*@XM08755*/ 01212000 SL CREGD,@CF01001 0426 01213000 * IF CRETC ^= GOODCODE 0427 01214000 * THEN 0427 01215000 LTR CRETC,CRETC 0427 01216000 BZ @RF00427 0427 01217000 * CREG9 = '0B'X; 0428 01218000 LA CREG9,11 0428 01219000 * ELSE DO; 0429 01220000 B @RC00427 0429 01221000 @RF00427 DS 0H 0430 01222000 */* CHECK LENGTH OF AREA SUPPLIED */ 0430 01223000 * CREGD = CREGD + 12; /* ADJUST SAVE AREA */ 0430 01224000 AL CREGD,@CF01001 0430 01225000 * CREG1=PTRRPH; 0431 01226000 LR CREG1,PTRRPH 0431 01227000 */*VALCHEK (CRETC,(CREGD),(RPLAREA),UA,RPLBUFL) RANGE*/ 0432 01228000 * DO; 0432 01229000 * 0432 01230000 * DCL GPR01F FIXED(31) REG(01); 0433 01231000 * DCL GPR01P PTR(31) REG(01); 0434 01232000 * DCL GPR04F FIXED(31) REG(04); 0435 01233000 * DCL GPR04P PTR(31) REG(04); 0436 01234000 * DCL GPR06F FIXED(31) REG(06); 0437 01235000 * DCL GPR06P PTR(31) REG(06); 0438 01236000 * RFY (GPR01P,GPR02P,GPR04P,GPR06P,GPR13P,GPR14P,GPR15P) RSTD; 01237000 * /*DECLARE AND RESTRICT REGS*/ 01238000 * /* 1, 2, 4, 6, 13,14, AND 15 01239000 */ CRETC=0; /*SET RETURN CODE TO NO ERROR*/ 01240000 SLR CRETC,CRETC 0440 01241000 * /*INVOKE XREGSET MACRO TO */ 01242000 * /*VERIFY SAVEAREA OPERAND */ 01243000 * /*AND PUT IT IN REG 13 */ 01244000 * 0441 01245000 */*XREGSET PID('SAVEAREA')PPARM((CREGD))RREG(13,GPR13P)*/ 0441 01246000 * DO; 0441 01247000 * GPR13P=CREGD; /*SET RREG SYMBOL TO VALUE*/ 01248000 * /*OF PPARM OPERAND */ 01249000 * END; /* XREGSET */ 0443 01250000 * DCL 1 SAV0010 CHAR(20) BASED(GPR13P), 0444 01251000 * /*ESTABLISH SAVE AREA MAP */ 01252000 * 2 SAV10010 CHAR(4), /*TO SAVE REGS 1,2,4,6, AND 14 01253000 */ 2 SAV20010 CHAR(4), 0444 01254000 * 2 SAV40010 CHAR(4), 0444 01255000 * 2 SAV60010 CHAR(4), 0444 01256000 * 2 SAVE0010 CHAR(4); 0444 01257000 * SAV10010=GPR01F; /* SAVE REGS ONE, */ 0445 01258000 STCM GPR01F,15,SAV10010(GPR13P) 0445 01259000 * SAV20010=GPR02F; /* TWO, */ 0446 01260000 STCM GPR02F,15,SAV20010(GPR13P) 0446 01261000 * SAV40010=GPR04F; /* FOUR, */ 0447 01262000 STCM GPR04F,15,SAV40010(GPR13P) 0447 01263000 * SAV60010=GPR06F; /* SIX, */ 0448 01264000 STCM GPR06F,15,SAV60010(GPR13P) 0448 01265000 * SAVE0010=GPR14F; /* AND FOURTEEN */ 0449 01266000 STCM GPR14F,15,SAVE0010(GPR13P) 0449 01267000 * GPR04P=GPR01P->RPHTSKID; /*PUT ADDR OF PROCESS SCHED-*/ 01268000 L GPR04P,RPHTSKID(,GPR01P) 0450 01269000 * /*ULING TABLE IN REG 4 */ 01270000 * 0451 01271000 */* ATBUILD (ISTPST) */ 0451 01272000 */* PROCESS ANCHOR BLOCK * 01273000 */* INITIAL LEVEL 001 01/16/75 */ 01274000 *DCL 1 ISTPAB BDY(DWORD) BASED, 0451 01275000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 01276000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 01277000 * 4 PABWEQG BIT(1), /* GATING BIT * 01278000 * 4 PABRSV01 BIT(7), /* RESERVED * 01279000 * 4 PABWEQP PTR(24), /* WKEL PTR * 01280000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 01281000 * 4 PABCHNG BIT(1), /* GATING BIT * 01282000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 0451 01283000 * TPEXIT * 01284000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 01285000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 01286000 * PAB AT TPEXIT * 01287000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 01288000 * 4 PABRUNNG BIT(1), /* PAB RUNNING * 01289000 * 4 PABRSV02 BIT(2), /* RESERVED * 01290000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 01291000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 01292000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 01293000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 01294000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 01295000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 01296000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 01297000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 01298000 * /* RESCHEDUALABLE * 01299000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 01300000 * 4 PABSSN BIT(1), /* SYSTEM SERVICES * 01301000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 01302000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 01303000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 01304000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 01305000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 01306000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 01307000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 01308000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 01309000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 01310000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 01311000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 01312000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 01313000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 01314000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 01315000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 01316000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 01317000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 01318000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 01319000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 01320000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 01321000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 01322000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 01323000 * PABRST1 BIT(32) CONSTANT('08000000'X); /* TURN PABRESET ON * 01324000 * /* DYNAMIC PAB 1K633 */ 0453 01325000 * /* 1K0997 JAN 20, 1973 MB */ 0453 01326000 * /* 1K1142 MAR 03, 1973 MB */ 0453 01327000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0453 01328000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0453 01329000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 01330000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0453 01331000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0453 01332000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 01333000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0453 01334000 * 1K0997 */ 01335000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 01336000 * PAB */ 01337000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 01338000 */* ***** PROCESS SCHEDULING TABLE FOR VS/2 ****** */ 0455 01339000 */* INITIAL LEVEL 001 04/09/75 */ 01340000 *DCL 1 ISTPST BDY(DWORD) BASED, 0455 01341000 * 2 PSTTYPE CHAR(1), /* CONTROL BLOCK TYPE */ 01342000 * 2 PSTLNGTH PTR(8), /* LENGTH IN BYTES */ 01343000 * 2 * CHAR(2), /* RESERVED */ 01344000 * 2 PSTCHAIN PTR(31), /* ADDRESS OF NEXT PST */ 01345000 * 2 PSTRQFGA CHAR(8) BDY(DWORD), /* READY QUEUE AND FLAGS */ 01346000 * 3 PSTRQUE PTR(31), /* READY QUEUE */ 01347000 * 4 PSTRQFLG BIT(1), /* READY QUEUE GATE */ 01348000 * 4 PSTRSV01 BIT(1), /* REVERVED */ 01349000 * 4 PSTRSV02 BIT(1), /* REVERVED */ 01350000 * 4 PSTRSV03 BIT(1), /* REVERVED */ 01351000 * 4 PSTRSV04 BIT(1), /* REVERVED */ 01352000 * 4 PSTRSV05 BIT(1), /* REVERVED */ 01353000 * 4 PSTRSV06 BIT(1), /* REVERVED */ 01354000 * 4 PSTRSV07 BIT(1), /* REVERVED */ 01355000 * 4 PSTRQUEA PTR(24), /* READY QUEUE */ 01356000 * 3 PSTFLGA PTR(32), /* FLAG FIELD */ 01357000 * 4 PSTSSRN BIT(1), /* IRB RUNNING SYSTEM SERVICE 01358000 * TYPE REQUESTS */ 01359000 * 4 PSTUERN BIT(1), /* IRB RUNNING USER EXIT TYPE 01360000 * REQUESTS */ 01361000 * 4 PSTIRBU1 BIT(1), /* IRB # 1 IN USE */ 01362000 * 4 PSTIRBU2 BIT(1), /* IRB # 2 IN USE */ 01363000 * 4 PSTSMQR BIT(1), /* SMS RPH QUEUED FOR STORAGE */ 01364000 * 4 PSTSMCU BIT(1), /* SMS CRA IN USE */ 01365000 * 4 PSTAUTH BIT(1), /* THE TASK THIS PST IS OBTAINED 01366000 * FOR IS AUTHORIZED */ 01367000 * 4 PSTABINP BIT(1), /* ABEND IN PROGRESS ON THIS 01368000 * TASK */ 01369000 * 5 PSTABEND BIT(1), /* TASK ABEND IN PROGRESS */ 01370000 * 4 PSTDMPC BIT(1), /* DUMP HAS BEEN REQUESTED */ 01371000 * 4 PSTRSV08 BIT(23), /* RESERVED */ 01372000 * 2 PSTTCBA PTR(31), /* TCB POINTER */ 01373000 * 2 PSTMPSTP PTR(31), /* MPST POINTER - PST 6TH WORD*/ 01374000 * 2 PSTACBCT FIXED(31), /* COUNT OF OPEN ACB'S USING 01375000 * THIS PST */ 01376000 * 2 PSTPSSQ PTR(31), /* POSTED SYSTEM SERVICE QUEUE*/ 01377000 * 2 PSTNSSQ PTR(31), /* NORMAL SYSTEM SERVICE QUEUE*/ 01378000 * 2 PSTUEQ PTR(31), /* USER EXIT QUEUE */ 01379000 * 2 PSTIQE11 PTR(31), /* INACTIVE IQE FOR FIRST IRB */ 01380000 * 2 PSTIQE12 PTR(31), /* ACTIVE IQE FOR FIRST IRB */ 01381000 * 2 PSTIQE21 PTR(31), /* INACTIVE IQE FOR 2ND IRB */ 01382000 * 2 PSTIQE22 PTR(31), /* ACTIVE IQE FOR 2ND IRB */ 01383000 * 2 PSTCRR1 PTR(31), /* PREALLOCATED CRA */ 01384000 * 2 PSTCRRS PTR(31), /* SMS CRA */ 01385000 * 2 PSTSMDYP CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* SMS PAB */ 01386000 * 2 PSTSAVE CHAR(32), /* SAVE AREA */ 01387000 * 2 PSTDEBP PTR(31), /* POINTER TO DEB CHAIN */ 01388000 * /* WHEN TASK ABENDS */ 01389000 * 2 PSTDMPS FIXED(31), /* DUMMY MPST */ 01390000 * 3 PSTDGATE BIT(1), /* DUMMY MPST GATE BIT */ 01391000 * 3 * BIT(7), /* NOT TO BE USED */ 01392000 * 3 PSTDRDYQ PTR(24); /* DUMMY MPST READY QUEUE */ 01393000 *DCL PSTSSRN0 BIT(32) CONSTANT('7FFFFFFF'X); /* TURN PSTSSRN OFF */ 01394000 *DCL PSTSSRN1 BIT(32) CONSTANT('80000000'X); /* TURN PSTSSRN ON */ 01395000 *DCL PSTUERN0 BIT(32) CONSTANT('BFFFFFFF'X); /* TURN PSTUERN OFF */ 01396000 *DCL PSTUERN1 BIT(32) CONSTANT('40000000'X); /* TURN PSTUERN ON */ 01397000 *DCL PSTGATE0 BIT(32) CONSTANT('7FFFFFFF'X); /* TURN PST READY QUEUE 01398000 * GATE OFF */ 01399000 *DCL PSTGATE1 BIT(32) CONSTANT('80000000'X); /* TURN PST READY QUEUE 01400000 * GATE ON */ 01401000 *DCL PSTIRB10 BIT(32) CONSTANT('DFFFFFFF'X); /* TURN PSTIRBU1 OFF */ 01402000 *DCL PSTIRB11 BIT(32) CONSTANT('20000000'X); /* TURN PSTIRBU1 ON */ 01403000 *DCL PSTIRB20 BIT(32) CONSTANT('EFFFFFFF'X); /* TURN PSTIRBU2 OFF */ 01404000 *DCL PSTIRB21 BIT(32) CONSTANT('10000000'X); /* TURN PSTIRBU2 ON */ 01405000 *DCL PSTSMQR0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN PSTSMQR OFF */ 01406000 *DCL PSTSMQR1 BIT(32) CONSTANT('08000000'X); /* TURN PSTSMQR ON */ 01407000 *DCL PSTSMCU0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN PSTSMCU OFF */ 01408000 *DCL PSTSMCU1 BIT(32) CONSTANT('04000000'X); /* TURN PSTSMCU ON */ 01409000 *DCL PSTABIP1 BIT(32) CONSTANT('01000000'X); /* TURN PSTABINP ON */ 01410000 *DCL PSTABIP0 BIT(32) CONSTANT('FEFFFFFF'X); /* TURN OFF PSTABINP */ 01411000 *DCL PSTYPE BIT(8) CONSTANT('61'X); /* TYPE CODE FOR PST */ 01412000 */* END OF ATBUILD */ /*INCLUDE PROCESS SCHEDULING * 01413000 * /* TABLE (ISTPST) */ 01414000 * GPR15P=GPR04P->PSTTCBA; /*PUT TASK CONTROL BLOCK */ 01415000 L GPR15P,PSTTCBA(,GPR04P) 0473 01416000 * /*ADDRESS IN REGISTER 15 */ 01417000 * GPR04F=SAV40010; /*RESTORE REG 4*/ 0474 01418000 ICM @12,15,SAV40010(GPR13P) 0474 01419000 LR GPR04F,@12 0474 01420000 * /*INVOKE XREGSET MACRO TO */ 01421000 * /*VERIFY USER AREA OPERAND*/ 01422000 * /*AND PUT ADDR IN REG 1 */ 01423000 * 0475 01424000 */*XREGSET PID('USER AREA')PPARM((RPLAREA))RREG(,GPR01P)*/ 0475 01425000 * DO; 0475 01426000 * GPR01P=RPLAREA; /*SET RREG SYMBOL TO VALUE*/ 01427000 L @12,RPHWEA(,PTRRPH) 0476 01428000 L @12,OCWRPL(,@12) 0476 01429000 L GPR01P,RPLAREA(,@12) 0476 01430000 * /*OF PPARM OPERAND */ 01431000 * END; /* XREGSET */ 0477 01432000 * /*INVOKE XREGSET MACRO TO */ 01433000 * /*VERIFY LENGTH OPERAND */ 01434000 * /*AND PUT VALUE IN REG 14 */ 01435000 * 0478 01436000 */*XREGSET PID('LENGTH')PPARM(RPLBUFL)RREG(,GPR14F)OUTPUT(PARM)*/ 0478 01437000 * DO; 0478 01438000 * GPR14F=RPLBUFL; /*SET RREG SYMBOL TO VALUE*/ 01439000 L GPR14F,RPLBUFL(,@12) 0479 01440000 * /*OF PPARM OPERAND */ 01441000 * END; /* XREGSET */ 0480 01442000 * GEN SETS(2); 0481 01443000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 01444000 * GPR06P=GPR02P; 0482 01445000 LR GPR06P,GPR02P 0482 01446000 * GPR04P=GPR15P; /*RESTORE TCB ADDR*/ 0483 01447000 LR GPR04P,GPR15P 0483 01448000 * GPR02F=GPR01F+GPR14F-1; /*PUT END ADDRESS IN REG 2 */ 01449000 LR GPR02F,GPR01F 0484 01450000 ALR GPR02F,GPR14F 0484 01451000 BCTR GPR02F,0 0484 01452000 * DCL CZMP0010 PTR(31) LOCATION(16); 0485 01453000 * /*ESTABLISH POINTER TO CVT */ 01454000 * CALL CZMP0010->CVT0VL00; /*INVOKE TASK SUPERVISOR */ 01455000 L @12,CZMP0010 0486 01456000 L @15,CVT0VL00(,@12) 0486 01457000 BALR @14,@15 0486 01458000 * /*VALIDITY CHECKING ROUTINE */ 01459000 * /*UPON RETURN, CHECK PSW */ 01460000 * /*CONDITION CODE SET BY THE */ 01461000 * /*VALIDITY CHECKING ROUTINE */ 01462000 * BC (8,OKAY0010); /*IF ADDR VALID, DON'T ALTER*/ 01463000 BC 8,OKAY0010 0487 01464000 * /*RETURN CODE VALUE FROM 0 */ 01465000 * CRETC=4; /*SET RETURN CODE TO ERROR */ 01466000 LA CRETC,4 0488 01467000 * GO TO VC30010; 0489 01468000 B VC30010 0489 01469000 *OKAY0010:CRETC=0; /*PUT RETURN CODE IN RCREG */ 01470000 OKAY0010 SLR CRETC,CRETC 0490 01471000 *VC30010: GPR02P=GPR06P; 0491 01472000 VC30010 LR GPR02P,GPR06P 0491 01473000 * GEN SETS(2); 0492 01474000 MODESET KEYADDR=(2),WORKREG=2 01475000 * GPR01F=SAV10010; /*RESTORE REGS ONE, */ 01476000 ICM GPR01F,15,SAV10010(GPR13P) 0493 01477000 * GPR02F=SAV20010; /* TWO, */ 01478000 ICM GPR02F,15,SAV20010(GPR13P) 0494 01479000 * GPR04F=SAV40010; /* FOUR, */ 01480000 ICM GPR04F,15,SAV40010(GPR13P) 0495 01481000 * GPR06F=SAV60010; /* SIX, */ 01482000 ICM GPR06F,15,SAV60010(GPR13P) 0496 01483000 * GPR14F=SAVE0010; /* AND FOURTEEN */ 01484000 * 0497 01485000 ICM GPR14F,15,SAVE0010(GPR13P) 0497 01486000 * RFY (GPR01P,GPR02P,GPR04P,GPR06P,GPR13P,GPR14P,GPR15P) UNRSTD; 01487000 * /*UNRESTRICT REGISTERS */ 01488000 * END; /* VALCHEK */ /*DA04556*/ 0499 01489000 * /* VALIDITY CHECK AREA SUPPLIED */ 01490000 * CREGD = CREGD - 12; /* RESET SAVE AREA */ 0500 01491000 SL CREGD,@CF01001 0500 01492000 * IF CRETC = GOODCODE /* IF AREA IS VALID */ 0501 01493000 * THEN /* THEN CONTINUE */ 0501 01494000 LTR CRETC,CRETC 0501 01495000 BNZ @RF00501 0501 01496000 * CALL C01MVDTA; 0502 01497000 BAL @14,C01MVDTA 0502 01498000 * ELSE CREG9=NVAREA; /* USER AREA INVALID @DM8461 */ 01499000 B @RC00501 0503 01500000 @RF00501 LA CREG9,23 0503 01501000 * CREGD = CREGD + 12; /*@XM08755*/ 01502000 * 0504 01503000 @RC00501 AL CREGD,@CF01001 0504 01504000 */*VSETLCK (CRETC,RELEASE,LOCAL,(LOCAL,ISTSQC01(C01OBT)))*/ 0505 01505000 *C01REL: DO; 0505 01506000 C01REL DS 0H 0506 01507000 * /*DECLARE AND RESTRICT REGS */ 01508000 * /* 2,10,11,12,13,14, AND 15 01509000 **/ 0506 01510000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) 01511000 *RSTD; 0506 01512000 * /*SAVE REGS 2 AND 10 THRU 14*/ 01513000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 0507 01514000 * 0507 01515000 STM GPR10F,GPR12F,0(GPR13P) 01516000 ST GPR14F,12(GPR13P) 01517000 ST GPR02F,16(GPR13P) 01518000 * /*INVOKE MODESET TO CHANGE */ 01519000 * /*PSW PROTECTION KEY TO 0 */ 01520000 * GEN SETS(2); 0508 01521000 * 0508 01522000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 01523000 * GPR10P=GPR13P; /*PUT SAVE AREA ADDR IN R 10*/ 01524000 LR GPR10P,GPR13P 0509 01525000 * /*INVOKE OS/VS SETLOCK MACRO*/ 01526000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 0510 01527000 SETLOCK RELEASE,TYPE=LOCAL, *01528000 RELATED=(LOCAL,ISTSQC01(C01OBT)) 01529000 * GPR15P=GPR13P; /*PUT RETURN CODE IN R 15 */ 01530000 LR GPR15P,GPR13P 0511 01531000 * /*INVOKE MODESET MACRO TO */ 01532000 * DO; /*RESTORE PSW PROTECTION KEY*/ 01533000 * GEN SETS(2); 0513 01534000 MODESET KEYADDR=(2),WORKREG=2 01535000 * END; /* RESTORE REGISTERS */ 01536000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F, 0515 01537000 * GPR12F,GPR13F,GPR14F,GPR02F); 0515 01538000 LR GPR13F,GPR10F 01539000 LM GPR10F,GPR12F,0(GPR13P) 01540000 L GPR14F,12(GPR13P) 01541000 L GPR02F,16(GPR13P) 01542000 * IF GPR15F=4 THEN GPR15F=0; 0516 01543000 C GPR15F,@CF00053 0516 01544000 BNE @RF00516 0516 01545000 SLR GPR15F,GPR15F 0517 01546000 * CRETC=GPR15F; /*PUT RETURN CODE IN RCREG*/ 01547000 * 0518 01548000 @RF00516 DS 0H 0519 01549000 * RFY (GPR02P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P) 01550000 *UNRSTD; END; /*C01REL:VSETLCK */ CREGD = CREGD - 1 01551000 *; /*@XM08755*/ 0519 01552000 SL CREGD,@CF01001 0521 01553000 * END; 0522 01554000 * END; 0523 01555000 * ELSE 0524 01556000 * CREG9 = SIZECODE; /* USER AREA NOT BIG ENOUGH */ 01557000 B @RC00393 0524 01558000 @RF00393 LA CREG9,43 0524 01559000 * END; 0525 01560000 * ELSE /*@D32CKTQ*/ 01561000 * CREG9 = NLGNDATA; /* NO LOGON MSG @D32CKTQ*/ 01562000 B @RC00391 0526 01563000 @RF00391 LA CREG9,44 0526 01564000 * END; /*@D32CKTQ*/ 01565000 *ELSE 0528 01566000 * CREG9 = NLGNDATA; /* NO LOGON DATA RET CODE */ 0528 01567000 B @RC00387 0528 01568000 @RF00387 LA CREG9,44 0528 01569000 *RFY CSIZE RSTD; /* PUT LENGTH OF LOGON DATA */ 01570000 @RC00387 DS 0H 0530 01571000 *CSIZE=DATASIZE; /* IN RETURN REG (0) */ 01572000 LR CSIZE,DATASIZE 0530 01573000 *CREGE = OCWR14SV(3); /* RESTORE RETURN REG */ 0531 01574000 L @12,RPHWEA(,PTRRPH) 0531 01575000 L CREGE,OCWR14SV+8(,@12) 0531 01576000 *END CLGNDTA1; /* END OF SUBROUTINE */ 0532 01577000 @EL00002 DS 0H 0532 01578000 @EF00002 DS 0H 0532 01579000 @ER00002 BR @14 0532 01580000 @PB00002 DS 0H 0533 01581000 *GEN(EJECT); 0533 01582000 EJECT 01583000 */********************************************************************/ 01584000 */* ROUTINE NAME: C01MVDTA - MOVE LOGON DATA */ 01585000 */* */ 01586000 */* FUNCTION: CALLED BY CLGNDTA1 TO MOVE LOGON DATA FROM BUFFER */ 01587000 */* AREA POINTED AT BY ICEDATA TO USER AREA SPECIFIED */ 01588000 */* IN RPLAREA. */ 01589000 */* */ 01590000 */* INPUT: DATASIZE (R5) - SIZE OF LOGON DATA TO BE MOVED */ 01591000 */* BFHDRPTR(R11) - POINTER TO BUFFER CONTAINING LOGON DATA */ 01592000 */* CREGE (R14) - NSI ADDR IN CALLING ROUTINE (CLGNDTA1) */ 01593000 */* */ 01594000 */* OUTPUT: CREGE (R14) - NSI ADDR IN CALLING ROUTINE (CLGNDTA1) */ 01595000 */* DATASIZE (R5) - LENGTH OF LOGON DATA MOVED */ 01596000 */* CREG9 (R9) - SET TO 0 TO INDICATE SUCCESS */ 01597000 */* */ 01598000 */* ROUTINES CALLED: CTLNSRCH - NONE */ 01599000 */* */ 01600000 */* MACROS USED: NONE */ 01601000 */********************************************************************/ 01602000 * 0534 01603000 *C01MVDTA: PROC OPTIONS(NOSAVE,NOSAVEAREA); 0534 01604000 B @PB00003 0534 01605000 C01MVDTA DS 0H 0535 01606000 *OCWR14SV(4) = CREGE; /* SAVE RETURN ADDRESS */ 01607000 L @12,RPHWEA(,PTRRPH) 0535 01608000 ST CREGE,OCWR14SV+12(,@12) 0535 01609000 *RFY CREG9 UNRSTD; /* ALLOW USE IN THIS SUBROUTINE @D32CKTQ*/ 01610000 *RFY (DATASIZE,LDATAPTR,CAREA,TEMPCNT) RSTD; 0537 01611000 *LDATAPTR =ADDR(LGPLOGNP); /* GET ADDRESS OF LOGON DATA @D32CKTQ*/ 01612000 LA LDATAPTR,LGPLOGNP(,BFHDRPTR) 0538 01613000 *CAREA=RPLAREA; /* GET ADDRESS OF USER SUPPLIED AREA */ 01614000 L @12,OCWRPL(,@12) 0539 01615000 L CAREA,RPLAREA(,@12) 0539 01616000 *CLGNT = DATASIZE; /* GET LOGON DATA SIZE */ 0540 01617000 LR CLGNT,DATASIZE 0540 01618000 *RFY CREG8 RSTD; /* SAVE FOR USE AS SAVEREG@DM10724*/ 01619000 *CREG8=DATASIZE; /* WE WILL NEED THIS VALUE TO PUT IN R0 @DM10724*/ 01620000 LR CREG8,DATASIZE 0542 01621000 *IF DATASIZE < BFHSIZE-LENGTH(LGPSESSP)-3 THEN /*@D32CKTQ*/ 01622000 LH @12,BFHSIZE(,BFHDRPTR) 0543 01623000 SL @12,@CF03790 0543 01624000 CR DATASIZE,@12 0543 01625000 BNL @RF00543 0543 01626000 * /* IF LOGON DATA IN ONE BUFFER THEN @D32CKTQ*/ 01627000 * MVCL (CAREA,LDATAPTR); /* MOVE DATA TO USER AREA */ 0544 01628000 MVCL CAREA,LDATAPTR 0544 01629000 *ELSE DO; /* LOGON DATA IN MORE THAN ONE BUFFER */ 01630000 B @RC00543 0545 01631000 @RF00543 DS 0H 0546 01632000 * DATASIZE = BFHSIZE-LENGTH(LGPSESSP)-4; /*@D32CKTQ*/ 01633000 LH DATASIZE,BFHSIZE(,BFHDRPTR) 0546 01634000 SL DATASIZE,@CF02956 0546 01635000 * /*LENGTH OF LOGON DATA IN FIRST BUFFER @D32CKTQ*/ 01636000 * CLGNT=DATASIZE; /* LENGTH OF USER AREA TO BE FILLED */ 01637000 LR CLGNT,DATASIZE 0547 01638000 * MVCL (CAREA,LDATAPTR); /* MOVE LOGON DATA FROM FIRST BUFFER */ 01639000 MVCL CAREA,LDATAPTR 0548 01640000 */* SET WORK REG TO LNGTH OF LOGON DATA REMAINING IN BUFFERS:@D32CKTQ*/ 01641000 * TEMPCNT = BINUSEL-(BFHSIZE-LENGTH(LGPSESSP)-4); /*@D32CKTQ*/ 01642000 LH TEMPCNT,BFHSIZE(,BFHDRPTR) 0549 01643000 SL TEMPCNT,@CF02956 0549 01644000 LCR TEMPCNT,TEMPCNT 0549 01645000 SLR @12,@12 0549 01646000 IC @12,BINUSEL+12(,BFHDRPTR) 0549 01647000 ALR TEMPCNT,@12 0549 01648000 * BFHDRPTR = BFHNXCHN; /* GET NEXT BUFFER ADDRESS */ 01649000 L BFHDRPTR,BFHNXCHN(,BFHDRPTR) 0550 01650000 * DO WHILE BFHDRPTR ^= 0; /* DO UNTIL DATA IN LAST BUFFER IS MOVED */ 01651000 B @DE00551 0551 01652000 @DL00551 DS 0H 0552 01653000 * LDATAPTR=BFHDRPTR + LENGTH(ISTBFHDR); /* INCREMENT POINTER BY 01654000 * HEADER LENGTH */ 0552 01655000 LA LDATAPTR,8 0552 01656000 ALR LDATAPTR,BFHDRPTR 0552 01657000 * IF TEMPCNT >= BFHSIZE THEN /* BUFFER COMPLETELY FILLED */ 01658000 LH @12,BFHSIZE(,BFHDRPTR) 0553 01659000 CR TEMPCNT,@12 0553 01660000 BL @RF00553 0553 01661000 * DATASIZE=BFHSIZE; /* SET LENGTH OF DATA TO BE MOVED */ 01662000 LR DATASIZE,@12 0554 01663000 * ELSE /* BUFFER NOT COMPLETELY FILLED */ 0555 01664000 * DATASIZE=TEMPCNT; /* SET LENGTH OF DATA TO BE MOVED */ 0555 01665000 B @RC00553 0555 01666000 @RF00553 LR DATASIZE,TEMPCNT 0555 01667000 * CLGNT=DATASIZE; /* SET LENGTH OF DATA TO BE RECEIVED */ 01668000 @RC00553 LR CLGNT,DATASIZE 0556 01669000 * TEMPCNT=TEMPCNT - DATASIZE; /*DECREMENT SIZE OF DATA REMAINING */ 01670000 SLR TEMPCNT,DATASIZE 0557 01671000 * MVCL (CAREA,LDATAPTR); /* MOVE LOGON DATA TO USER AREA @DM10725*/ 01672000 MVCL CAREA,LDATAPTR 0558 01673000 * BFHDRPTR=BFHNXCHN; /* GET NEXT BUFFER ADDRESS */ 0559 01674000 L BFHDRPTR,BFHNXCHN(,BFHDRPTR) 0559 01675000 * END; /* END OF DO WHILE */ 0560 01676000 @DE00551 LTR BFHDRPTR,BFHDRPTR 0560 01677000 BNZ @DL00551 0560 01678000 * END; /* END CHAINED BUFFER AREA */ 01679000 * CREGE = OCWR14SV(4); /* RESTORE RETURN ADDRESS*/ 01680000 @RC00543 L @12,RPHWEA(,PTRRPH) 0562 01681000 L CREGE,OCWR14SV+12(,@12) 0562 01682000 * RFY CREG9 RSTD; /* WAS USED AS WORK REG IN THIS SUBR @D32CKTQ*/ 01683000 * CREG9=GOODCODE; /* SET EVERYTHING OK RETURN CODE */ 0564 01684000 SLR CREG9,CREG9 0564 01685000 * DATASIZE=CREG8; /* REESTABLISH LENGTH OF LOGON DATA @DM10725*/ 01686000 LR DATASIZE,CREG8 0565 01687000 * RFY (DATASIZE,LDATAPTR,CAREA,TEMPCNT,CLGNT) UNRSTD; 0566 01688000 *END C01MVDTA; 0567 01689000 * 0567 01690000 @EL00003 DS 0H 0567 01691000 @EF00003 DS 0H 0567 01692000 @ER00003 BR @14 0567 01693000 @PB00003 DS 0H 0568 01694000 */* TPEPILOG */ 0568 01695000 * GEN (PRINT OFF); 0568 01696000 * 0568 01697000 PRINT OFF 01698000 * GEN (PRINT ON); 0569 01699000 PRINT ON 01700000 */* END OF TPEPILOG */ 0570 01701000 */* ATDSPLY INVOKED. */ 0570 01702000 */********************************************************************/ 01703000 */* THE FOLLOWING ATBUILD INCLUSIONS HAVE BEEN MADE IN THIS */ 01704000 */* COMPILATION: */ 01705000 */* ISTBIND */ 01706000 */* ISTDEVCH */ 01707000 */* ISTPROCD */ 01708000 */* ISTNIB */ 01709000 */* ISTRPH */ 01710000 */* ISTICE */ 01711000 */* ISTLOK */ 01712000 */* ISTRDT */ 01713000 */* ISTCSL */ 01714000 */* ISTCSP */ 01715000 */* ISTOCW */ 01716000 */* ISTBFHDR */ 01717000 */* ISTLGPFX */ 01718000 */* ISTLCCW */ 01719000 */* ISTLCPB */ 01720000 */* ISTZSAVE */ 01721000 */* ISTPFCRR */ 01722000 */* ISTCFCRR */ 01723000 */* ISTZCRR */ 01724000 */* ISTASCRR */ 01725000 */* ISTAPCRR */ 01726000 */* ISTCRA */ 01727000 */* ISTNSCRR */ 01728000 */* ISTPAB */ 01729000 */* ISTDYPAB */ 01730000 */* ISTPST */ 01731000 */********************************************************************/ 01732000 */* END OF ATDSPLY. */ 0570 01733000 *END ISTSQC01 0570 01734000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01735000 */*%INCLUDE SYSLIB (CVT ) * 01736000 */*%INCLUDE SYSLIB (IFGRPL ) * 01737000 */*%INCLUDE SYSLIB (IFGRPLVT) * 01738000 */*%INCLUDE SYSLIB (ISTRPLFB) * 01739000 */*%INCLUDE SYSLIB (IHAPSA ) * 01740000 *; 0570 01741000 @EL00001 DS 0H 0570 01742000 @EF00001 DS 0H 0570 01743000 @ER00001 L @14,12(,@13) 0570 01744000 LM @01,@12,24(@13) 0570 01745000 BR @14 0570 01746000 @DATA DS 0H 01747000 @DATD DSECT 01748000 DS 0F 01749000 ISTSQC01 CSECT 01750000 DS 0F 01751000 @CF00053 DC F'4' 01752000 @CF01001 DC F'12' 01753000 @CF03790 DC F'39' 01754000 @CF02956 DC F'40' 01755000 @CF02682 DC F'72' 01756000 @DATD DSECT 01757000 DS 0D 01758000 CVTPTR DS A 01759000 LCPBPTR DS A 01760000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01761000 @ENDDATD EQU * 01762000 ISTSQC01 CSECT 01763000 DS 0F 01764000 @SIZDATD DC AL1(0) 01765000 DC AL3(@ENDDATD-@DATD) 01766000 DS 0D 01767000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01768000 @01 EQU 01 01769000 @02 EQU 02 01770000 @03 EQU 03 01771000 @04 EQU 04 01772000 @05 EQU 05 01773000 @06 EQU 06 01774000 @07 EQU 07 01775000 @08 EQU 08 01776000 @09 EQU 09 01777000 @10 EQU 10 01778000 @11 EQU 11 01779000 @12 EQU 12 01780000 @13 EQU 13 01781000 @14 EQU 14 01782000 @15 EQU 15 01783000 RPHPTR EQU @01 01784000 BFHDRPTR EQU @11 01785000 CSIZE EQU @00 01786000 CAREA EQU @00 01787000 CREG1 EQU @01 01788000 CLGNT EQU @01 01789000 LDATAPTR EQU @04 01790000 DATASIZE EQU @05 01791000 PTRRPH EQU @07 01792000 CREG8 EQU @08 01793000 CREG9 EQU @09 01794000 SAVR13 EQU @10 01795000 TEMPCNT EQU @10 01796000 CREGD EQU @13 01797000 CREGE EQU @14 01798000 CRETC EQU @15 01799000 CMZK0005 EQU @01 01800000 GPR02F EQU @02 01801000 GPR02P EQU @02 01802000 GPR10F EQU @10 01803000 GPR10P EQU @10 01804000 GPR11F EQU @11 01805000 GPR11P EQU @11 01806000 GPR12F EQU @12 01807000 GPR12P EQU @12 01808000 GPR13F EQU @13 01809000 GPR13P EQU @13 01810000 GPR14F EQU @14 01811000 GPR14P EQU @14 01812000 GPR15F EQU @15 01813000 GPR15P EQU @15 01814000 GPR01F EQU @01 01815000 GPR01P EQU @01 01816000 GPR04F EQU @04 01817000 GPR04P EQU @04 01818000 GPR06F EQU @06 01819000 GPR06P EQU @06 01820000 PSA EQU 0 01821000 FLCRNPSW EQU PSA 01822000 FLCROPSW EQU PSA+8 01823000 FLCICCW2 EQU PSA+16 01824000 PSAEEPSW EQU PSA+132 01825000 PSAESPSW EQU PSA+136 01826000 FLCSVILC EQU PSAESPSW+1 01827000 PSAEPPSW EQU PSA+140 01828000 FLCPIILC EQU PSAEPPSW+1 01829000 FLCPICOD EQU PSAEPPSW+2 01830000 PSAPICOD EQU FLCPICOD+1 01831000 FLCTEA EQU PSAEPPSW+4 01832000 FLCPER EQU PSA+152 01833000 FLCMCLA EQU PSA+168 01834000 FLCIOEL EQU FLCMCLA+4 01835000 FLCIOA EQU FLCMCLA+16 01836000 FLCFSA EQU FLCMCLA+80 01837000 PSASUPER EQU PSA+552 01838000 PSASUP1 EQU PSASUPER 01839000 PSASUP2 EQU PSASUPER+1 01840000 PSASUP3 EQU PSASUPER+2 01841000 PSASUP4 EQU PSASUPER+3 01842000 PSACLHT EQU PSA+640 01843000 PSALKSA EQU PSA+696 01844000 PSAHLHI EQU PSA+760 01845000 PSALITA EQU PSA+764 01846000 PSADSSFL EQU PSA+836 01847000 PSADSSF1 EQU PSADSSFL 01848000 PSADSSF3 EQU PSADSSFL+2 01849000 PSADSSF4 EQU PSADSSFL+3 01850000 PSARSVT EQU PSA+896 01851000 CZMP0010 EQU 16 01852000 CVTMAP EQU 0 01853000 CVT0VL00 EQU CVTMAP+24 01854000 CVTDAR EQU CVTMAP+72 01855000 CVTFLGS1 EQU CVTDAR 01856000 CVTDCB EQU CVTMAP+116 01857000 CVTIERLC EQU CVTMAP+144 01858000 CVTOPTA EQU CVTMAP+182 01859000 CVTOPTB EQU CVTMAP+183 01860000 CVTGTF EQU CVTMAP+236 01861000 CVTGTFST EQU CVTGTF 01862000 CVTGTFS EQU CVTGTFST 01863000 CVTSTATE EQU CVTGTFST 01864000 CVTTMODE EQU CVTGTFST 01865000 CVTFORM EQU CVTGTFST 01866000 CVTAQAVT EQU CVTMAP+240 01867000 CVTTCMFG EQU CVTAQAVT 01868000 CVTVOLM2 EQU CVTMAP+244 01869000 CVTTATA EQU CVTVOLM2 01870000 CVTTSKS EQU CVTTATA 01871000 CVTVOLF2 EQU CVTTSKS 01872000 CVTTAT EQU CVTTATA+1 01873000 CVTATER EQU CVTMAP+248 01874000 CVTEXT1 EQU CVTMAP+252 01875000 CVTPURG EQU CVTMAP+260 01876000 CVTQMSG EQU CVTMAP+268 01877000 CVTDMSR EQU CVTMAP+272 01878000 CVTERPV EQU CVTMAP+316 01879000 CVTINTLA EQU CVTMAP+320 01880000 CVTAPF EQU CVTMAP+324 01881000 CVTEXT2 EQU CVTMAP+328 01882000 CVTHJES EQU CVTMAP+332 01883000 CVTPGSIA EQU CVTMAP+348 01884000 CVTA1F1 EQU CVTMAP+356 01885000 CVTSYSK EQU CVTMAP+357 01886000 CVTVOLM1 EQU CVTMAP+380 01887000 CVTVOLF1 EQU CVTVOLM1 01888000 CVTATMCT EQU CVTMAP+388 01889000 CVTXTNT1 EQU 0 01890000 CVTXTNT2 EQU 0 01891000 CVTDSSV EQU CVTXTNT2 01892000 CVTFLGBT EQU CVTXTNT2+5 01893000 CVTQID EQU CVTXTNT2+24 01894000 CVTSHS EQU CVTXTNT2+40 01895000 CVTRV400 EQU CVTXTNT2+52 01896000 CVTRV409 EQU CVTXTNT2+53 01897000 CVTATCVT EQU CVTXTNT2+64 01898000 CVTRV429 EQU CVTXTNT2+84 01899000 CVTRV438 EQU CVTXTNT2+85 01900000 CVTRV457 EQU CVTXTNT2+112 01901000 CVTRV466 EQU CVTXTNT2+113 01902000 CVTFIX EQU 0 01903000 CVTRELNO EQU CVTFIX+252 01904000 IFGRPL EQU 0 01905000 RPLCOMN EQU IFGRPL 01906000 RPLIDWD EQU RPLCOMN 01907000 RPLLEN EQU RPLIDWD+3 01908000 RPLECB EQU RPLCOMN+8 01909000 RPLFDBWD EQU RPLCOMN+12 01910000 RPLFDBK EQU RPLFDBWD+1 01911000 RPLRTNCD EQU RPLFDBK 01912000 RPLCNDCD EQU RPLFDBK+1 01913000 RPLCMPON EQU RPLCNDCD 01914000 RPLFDB2 EQU RPLCMPON 01915000 RPLERRCD EQU RPLCNDCD+1 01916000 RPLFDB3 EQU RPLERRCD 01917000 RPLKEYLE EQU RPLCOMN+16 01918000 RPLAREA EQU RPLCOMN+32 01919000 RPLARG EQU RPLCOMN+36 01920000 RPLOPTCD EQU RPLCOMN+40 01921000 RPLOPT1 EQU RPLOPTCD 01922000 RPLECBSW EQU RPLOPT1 01923000 RPLOPT2 EQU RPLOPTCD+1 01924000 RPLADR EQU RPLOPT2 01925000 RPLOPT3 EQU RPLOPTCD+2 01926000 RPLOPT4 EQU RPLOPTCD+3 01927000 RPLNXTRP EQU RPLCOMN+44 01928000 RPLBUFL EQU RPLCOMN+52 01929000 RPLOPTC2 EQU RPLCOMN+56 01930000 RPLOPT5 EQU RPLOPTC2 01931000 RPLWRTYP EQU RPLOPT5 01932000 RPLOPT6 EQU RPLOPTC2+1 01933000 RPLUNTYP EQU RPLOPT6 01934000 RPLOPT7 EQU RPLOPTC2+2 01935000 RPLCNOPT EQU RPLOPT7 01936000 RPLOPT8 EQU RPLOPTC2+3 01937000 RPLRBAR EQU RPLCOMN+60 01938000 RPLAIXID EQU RPLRBAR+2 01939000 RPLEXTDS EQU RPLCOMN+68 01940000 RPLEXTD1 EQU RPLEXTDS 01941000 RPLVTEXT EQU IFGRPL+76 01942000 RPLFDBK2 EQU RPLVTEXT+12 01943000 RPLSSNSI EQU RPLFDBK2 01944000 RPLDSB EQU RPLSSNSI 01945000 RPLDSB1 EQU RPLDSB 01946000 RPLSSEI EQU RPLDSB1 01947000 RPLDSB2 EQU RPLDSB+1 01948000 RPLUSNSI EQU RPLFDBK2+2 01949000 RPLOPTC3 EQU RPLVTEXT+20 01950000 RPLOPT9 EQU RPLOPTC3 01951000 RPLOPT10 EQU RPLOPTC3+1 01952000 RPLOPT11 EQU RPLOPTC3+2 01953000 RPLOPT12 EQU RPLOPTC3+3 01954000 RPLOSENS EQU RPLVTEXT+24 01955000 RPLSSNSO EQU RPLOSENS 01956000 RPLSSEO EQU RPLSSNSO 01957000 RPLOF16 EQU 0 01958000 RPLRH3 EQU RPLOF16 01959000 RPLSRTYP EQU RPLOF16+1 01960000 RPLSTYPE EQU RPLSRTYP 01961000 RPLRTYPE EQU RPLSRTYP 01962000 RPLCHN EQU RPLOF16+2 01963000 RPLVTFL1 EQU RPLOF16+3 01964000 RPLVTFL2 EQU RPLOF16+4 01965000 RPLPOSTV EQU RPLVTFL2 01966000 RPLRESP EQU RPLVTFL2 01967000 RPLCNTRL EQU RPLOF16+5 01968000 RPLCNTDF EQU RPLCNTRL 01969000 RPLCNTDC EQU RPLCNTRL+1 01970000 RPLCNTSC EQU RPLCNTRL+2 01971000 RPLOF60 EQU 0 01972000 RPLOBSQ EQU RPLOF60+4 01973000 RPLIBSQ EQU RPLOF60+5 01974000 ISTBIND EQU 0 01975000 BINFMTY EQU ISTBIND 01976000 BINPRIP EQU ISTBIND+3 01977000 BINSECP EQU ISTBIND+4 01978000 BINCMNP EQU ISTBIND+5 01979000 BINCMNP2 EQU ISTBIND+6 01980000 BINUSEL EQU ISTBIND+35 01981000 ISTDEVCH EQU 0 01982000 DEVSHCH EQU ISTDEVCH 01983000 DEVCHAR EQU DEVSHCH 01984000 DEVTCODE EQU ISTDEVCH+1 01985000 DEVFLAGS EQU ISTDEVCH+3 01986000 DEVFCCTL EQU DEVFLAGS 01987000 DEVCHAR3 EQU DEVFLAGS 01988000 ISTPROCD EQU 0 01989000 PROPROC EQU ISTPROCD 01990000 PROPROC1 EQU PROPROC 01991000 PROPROC2 EQU PROPROC+1 01992000 PROPROC3 EQU PROPROC+2 01993000 PROPROC4 EQU PROPROC+3 01994000 PROPROCS EQU 0 01995000 PROSETMS EQU PROPROCS+1 01996000 PROSETM2 EQU PROSETMS 01997000 PROSETM3 EQU PROSETMS+1 01998000 PROSETM4 EQU PROSETMS+2 01999000 ISTNIB EQU 0 02000000 NIBFLGS EQU ISTNIB+40 02001000 NIBFLG1 EQU NIBFLGS 02002000 ISTRPH EQU 0 02003000 RPHFLAGS EQU ISTRPH+2 02004000 RPHAPTYP EQU RPHFLAGS 02005000 RPHFSTLC EQU RPHFLAGS 02006000 RPHFLGB EQU ISTRPH+3 02007000 RPHRPHA EQU ISTRPH+4 02008000 RPHTSKID EQU ISTRPH+8 02009000 RPHRESMA EQU ISTRPH+16 02010000 RPHWPFLG EQU RPHRESMA 02011000 RPHWEA EQU ISTRPH+24 02012000 RPHCSPA EQU RPHWEA 02013000 RPHSRPRM EQU ISTRPH+28 02014000 RPHCRR EQU ISTRPH+32 02015000 RPHPABQA EQU ISTRPH+36 02016000 RPHWORK EQU ISTRPH+40 02017000 RPHSAVE1 EQU RPHWORK 02018000 RPHSBITS EQU RPHSAVE1+1 02019000 ISTICE EQU 0 02020000 ICESUBJ EQU ISTICE 02021000 ICEDATA EQU ISTICE+20 02022000 ICEFLAGS EQU ISTICE+28 02023000 ISTLOK EQU 0 02024000 LOKCHN EQU ISTLOK+1 02025000 LOKCHNG EQU LOKCHN 02026000 @NM00064 EQU LOKCHNG+2 02027000 ISTRPRE EQU 0 02028000 RPRCOMID EQU ISTRPRE+8 02029000 RPRENTRY EQU ISTRPRE+20 02030000 RPRFLAGA EQU ISTRPRE+21 02031000 RPRFLAGB EQU ISTRPRE+22 02032000 RPRCAUSE EQU ISTRPRE+23 02033000 RPRFLAGD EQU ISTRPRE+61 02034000 RPRFLAGC EQU ISTRPRE+62 02035000 ISTRCPRE EQU 0 02036000 RCPICELN EQU ISTRCPRE+72 02037000 RCPPMODE EQU ISTRCPRE+91 02038000 RCPLGNIN EQU ISTRCPRE+92 02039000 ISTRDT EQU 0 02040000 RDTPLEN EQU ISTRDT+72 02041000 RDTPRIOR EQU RDTPLEN 02042000 RDTFLAGB EQU ISTRDT+91 02043000 RDTVYRPH EQU ISTRDT+108 02044000 RDTSTCNT EQU ISTRDT+112 02045000 ISTRAP EQU 0 02046000 RAPFLG EQU ISTRAP+108 02047000 RAPFLGB EQU ISTRAP+109 02048000 RAPFLGC EQU ISTRAP+110 02049000 ISTRLC EQU 0 02050000 RLCADR EQU ISTRLC+72 02051000 RLCFLAG EQU RLCADR 02052000 ISTRRN EQU 0 02053000 RRNADR EQU ISTRRN+136 02054000 RRNFLAG EQU RRNADR 02055000 RRNUCBAD EQU RRNADR+1 02056000 RRNRDF EQU ISTRRN+172 02057000 RRNRDFA EQU RRNRDF 02058000 RRNRDFB EQU RRNRDF+1 02059000 RRNCMF EQU ISTRRN+176 02060000 RRNCMFA EQU RRNCMF 02061000 RRNCMFB EQU RRNCMF+1 02062000 RRNCMFC EQU RRNCMF+2 02063000 RRNCMFD EQU RRNCMF+3 02064000 RRNNMDPD EQU ISTRRN+192 02065000 RRNHPRE EQU ISTRRN+216 02066000 ISTRGP EQU 0 02067000 RGPFLG EQU ISTRGP+72 02068000 ISTRLN EQU 0 02069000 RLNADR EQU ISTRLN+72 02070000 RLNFLAG EQU RLNADR 02071000 RLNUCBAD EQU RLNADR+1 02072000 RLNSTAT1 EQU ISTRLN+86 02073000 RLNSTAT2 EQU ISTRLN+87 02074000 RLNRDF EQU ISTRLN+88 02075000 RLNRDFA EQU RLNRDF 02076000 RLNRACNT EQU RLNRDFA 02077000 RLNRDFB EQU RLNRDF+1 02078000 RLNCRFLG EQU ISTRLN+102 02079000 RLNLSCMD EQU RLNCRFLG 02080000 ISTRPT EQU 0 02081000 RPTLNCID EQU ISTRPT+116 02082000 RPTDITT EQU ISTRPT+128 02083000 RPTFLAG1 EQU ISTRPT+140 02084000 ISTRCL EQU 0 02085000 RCLADR EQU ISTRCL+72 02086000 RCLFLAG EQU RCLADR 02087000 ISTRTR EQU 0 02088000 RTRADR EQU ISTRTR+124 02089000 RTRFLAG EQU RTRADR 02090000 RTRRDFA EQU ISTRTR+136 02091000 RTRRAALL EQU RTRRDFA 02092000 RTRRDFB EQU ISTRTR+137 02093000 RTRRDFC EQU ISTRTR+138 02094000 RTRRDFD EQU ISTRTR+139 02095000 RTRRDFE EQU ISTRTR+140 02096000 RTRRDFF EQU ISTRTR+141 02097000 RTRCRFLG EQU ISTRTR+143 02098000 RTRLSCMD EQU RTRCRFLG 02099000 RTRBSCID EQU ISTRTR+188 02100000 ISTRIN EQU 0 02101000 RINDFD EQU ISTRIN+124 02102000 RINREMPO EQU RINDFD 02103000 RINNODEF EQU RINDFD 02104000 RINLDISC EQU RINDFD 02105000 RINNODID EQU ISTRIN+125 02106000 RINRLDAF EQU ISTRIN+126 02107000 RINREMOT EQU ISTRIN+128 02108000 RINVPAB EQU ISTRIN+132 02109000 RINRPHCN EQU ISTRIN+136 02110000 RINNCSPL EQU ISTRIN+140 02111000 RINCNCNT EQU ISTRIN+144 02112000 ISTRDS EQU 0 02113000 ISTDOT EQU 0 02114000 ISTRCC EQU 0 02115000 RCCFLAG EQU ISTRCC+73 02116000 RCCFLAGB EQU ISTRCC+74 02117000 RCCSTAID EQU ISTRCC+78 02118000 RCCID48 EQU RCCSTAID+2 02119000 RCCCRFLG EQU ISTRCC+108 02120000 ISTRLU EQU 0 02121000 RLUFLAG EQU ISTRLU+125 02122000 RLUCRFLG EQU ISTRLU+126 02123000 RLUPACE EQU ISTRLU+132 02124000 RLUNCPPC EQU ISTRLU+134 02125000 RLUUSSTB EQU ISTRLU+140 02126000 RLUMODET EQU ISTRLU+152 02127000 ISTRPX EQU 0 02128000 ISTRLX EQU 0 02129000 RLXFLAGA EQU ISTRLX+76 02130000 ISTRSW EQU 0 02131000 ISTRDA EQU 0 02132000 RDAADR EQU ISTRDA+72 02133000 RDAFLAG EQU RDAADR 02134000 RDAUCBAD EQU RDAADR+1 02135000 ISTRLS EQU 0 02136000 ISTDNT EQU 0 02137000 ISTGNT EQU 0 02138000 ISTPAT EQU 0 02139000 PATFLAGA EQU ISTPAT+7 02140000 ISTCSL EQU 0 02141000 CSLRDEF EQU ISTCSL 02142000 CSLRDTE EQU CSLRDEF 02143000 CSLNDEF EQU ISTCSL+4 02144000 CSLNIB EQU CSLNDEF 02145000 CSLDDEF EQU ISTCSL+8 02146000 CSLDATA EQU CSLDDEF 02147000 ISTCSP EQU 0 02148000 CSPOPT EQU ISTCSP+2 02149000 CSPOPT1 EQU CSPOPT 02150000 CSPOPT2 EQU CSPOPT+1 02151000 ISTOCW EQU 0 02152000 OCWRPL EQU ISTOCW+12 02153000 OCWLRDTE EQU ISTOCW+40 02154000 OCWDRDTE EQU OCWLRDTE 02155000 OCWARDTE EQU ISTOCW+48 02156000 OCWODRC EQU ISTOCW+92 02157000 OCWSVCOD EQU ISTOCW+94 02158000 OCWSWTA EQU ISTOCW+204 02159000 OCWSWTB EQU ISTOCW+205 02160000 OCWSWTC EQU ISTOCW+206 02161000 OCWSWTD EQU ISTOCW+207 02162000 OCWR14SV EQU ISTOCW+624 02163000 OCWSWTRD EQU ISTOCW+730 02164000 OCWSWTE EQU ISTOCW+731 02165000 OCWLOCKS EQU ISTOCW+740 02166000 OCWCID EQU ISTOCW+744 02167000 OCWSHPL EQU ISTOCW+784 02168000 OCWBIND EQU ISTOCW+796 02169000 OCWFLG1 EQU ISTOCW+847 02170000 ISTBFHDR EQU 0 02171000 BFHNXCHN EQU ISTBFHDR 02172000 BFHSIZE EQU ISTBFHDR+4 02173000 ISTLGPFX EQU 0 02174000 LGPSESSP EQU ISTLGPFX+12 02175000 LGPLOGNP EQU ISTLGPFX+48 02176000 CSAVAREA EQU 0 02177000 CSAVBACK EQU CSAVAREA+4 02178000 CSAVFORW EQU CSAVAREA+8 02179000 ISTLCCW EQU 0 02180000 LCCWOP EQU ISTLCCW 02181000 LCCWRWOP EQU LCCWOP 02182000 LCCWCTL EQU LCCWRWOP 02183000 LCCWFLAG EQU ISTLCCW+1 02184000 LCCWLSI EQU LCCWFLAG 02185000 ISTLCPB EQU 0 02186000 LCPREQTG EQU ISTLCPB+2 02187000 LCPFLAGS EQU LCPREQTG 02188000 LCPZF001 EQU LCPFLAGS 02189000 LCPZRT02 EQU LCPZF001 02190000 LCPZF002 EQU LCPFLAGS 02191000 LCPZRT03 EQU LCPZF002 02192000 LCPZF003 EQU LCPFLAGS 02193000 LCPZRT04 EQU LCPZF003 02194000 LCPZF004 EQU LCPFLAGS 02195000 LCPZRT05 EQU LCPZF004 02196000 LCPZRT06 EQU LCPFLAGS 02197000 LCPZRT07 EQU LCPFLAGS 02198000 LCPMNRCD EQU LCPREQTG+1 02199000 LCPZRT08 EQU LCPMNRCD 02200000 LCPZRT09 EQU LCPMNRCD 02201000 LCPCHAIN EQU ISTLCPB+4 02202000 LCPCHAI1 EQU LCPCHAIN 02203000 LCPRUCNT EQU ISTLCPB+8 02204000 LCPFLAG2 EQU ISTLCPB+9 02205000 LCPTLBPI EQU LCPFLAG2 02206000 LCPFID0 EQU LCPFLAG2 02207000 LCPSEQ EQU ISTLCPB+10 02208000 LCPCID EQU ISTLCPB+16 02209000 LCPFDBA EQU ISTLCPB+24 02210000 LCPFLG1 EQU ISTLCPB+37 02211000 LCPFLCCW EQU ISTLCPB+40 02212000 LCPLCCW EQU ISTLCPB+48 02213000 LCPPABA EQU LCPLCCW+4 02214000 LCPRPHA EQU LCPPABA 02215000 ISTZSAVE EQU 0 02216000 ZSAZSVBC EQU ISTZSAVE 02217000 ZSAZSVMS EQU ZSAZSVBC 02218000 ISTPFCRR EQU 0 02219000 PFCCRR EQU ISTPFCRR 02220000 PFCCRRID EQU PFCCRR 02221000 PFCCRRLN EQU PFCCRR+2 02222000 PFCHDR EQU ISTPFCRR+4 02223000 PFCCRRO EQU PFCHDR 02224000 PFCFRRO EQU PFCHDR+4 02225000 ISTCFCRR EQU 0 02226000 CFCAUDIT EQU ISTCFCRR 02227000 CFCNTRD EQU CFCAUDIT 02228000 CFCCRT EQU CFCAUDIT+1 02229000 ISTZCRR EQU 0 02230000 ZCRCRR EQU ISTZCRR 02231000 ZCRFLGS1 EQU ISTZCRR+12 02232000 ZCRFLGS2 EQU ISTZCRR+13 02233000 ZCRSWFLD EQU ISTZCRR+14 02234000 ZCRENDSH EQU ZCRSWFLD 02235000 ZCRNDLCP EQU ZCRSWFLD 02236000 ZCRRESET EQU ZCRSWFLD 02237000 ZCRFLGS3 EQU ISTZCRR+15 02238000 ZCRGENSW EQU ISTZCRR+16 02239000 ZCRPFLGS EQU ISTZCRR+17 02240000 ZCRIBPR EQU ISTZCRR+18 02241000 ZCRSCPSW EQU ISTZCRR+19 02242000 ZCRPARMS EQU ISTZCRR+24 02243000 ZCRFBPTR EQU ZCRPARMS 02244000 ZCRDFRDA EQU ZCRPARMS+10 02245000 ZCRPCOD1 EQU ZCRPARMS+12 02246000 ZCRPLSBF EQU ZCRPCOD1 02247000 ZCRPCOD2 EQU ZCRPARMS+13 02248000 ZCRSVRTN EQU ISTZCRR+56 02249000 ZCRWKARA EQU ISTZCRR+156 02250000 ZCRCIDSV EQU ISTZCRR+192 02251000 ZCRAUDIT EQU ISTZCRR+440 02252000 ZCRENTER EQU ZCRAUDIT+5 02253000 ZCRLCPB EQU ISTZCRR+480 02254000 ZCRRHRU EQU ZCRLCPB 02255000 ISTASCRR EQU 0 02256000 ASCFLAGS EQU ISTASCRR+16 02257000 ASCFLG1 EQU ASCFLAGS 02258000 ASCFLG2 EQU ASCFLAGS+2 02259000 ASCFLG3 EQU ASCFLAGS+4 02260000 ASCUSRGS EQU ISTASCRR+28 02261000 ISTAPCRR EQU 0 02262000 APCATFLG EQU ISTAPCRR+16 02263000 APCRFLG EQU ISTAPCRR+18 02264000 APCSAVE EQU ISTAPCRR+44 02265000 APCCOMF EQU ISTAPCRR+116 02266000 APCCOMF1 EQU APCCOMF 02267000 APC31FLG EQU ISTAPCRR+132 02268000 APC52FLG EQU ISTAPCRR+133 02269000 APC53FLG EQU ISTAPCRR+134 02270000 APC54FLG EQU ISTAPCRR+135 02271000 APC57FLG EQU ISTAPCRR+136 02272000 ISTCRA EQU 0 02273000 CRABASIC EQU ISTCRA 02274000 CRAHDR EQU CRABASIC 02275000 CRACRR EQU CRAHDR 02276000 CRALKACT EQU CRABASIC+8 02277000 CRASVC EQU ISTCRA+848 02278000 CRABUFA EQU CRASVC+68 02279000 ISTNSCRR EQU 0 02280000 NSCAUDIT EQU ISTNSCRR+16 02281000 NSCNTRD EQU NSCAUDIT 02282000 NSQC01 EQU NSCNTRD 02283000 NSCCRT EQU NSCAUDIT+2 02284000 CSQC01 EQU NSCCRT 02285000 SAV0010 EQU 0 02286000 SAV10010 EQU SAV0010 02287000 SAV20010 EQU SAV0010+4 02288000 SAV40010 EQU SAV0010+8 02289000 SAV60010 EQU SAV0010+12 02290000 SAVE0010 EQU SAV0010+16 02291000 ISTPAB EQU 0 02292000 PABWQCHN EQU ISTPAB 02293000 PABWEQA EQU PABWQCHN 02294000 PABCHAIN EQU PABWQCHN+4 02295000 PABRPHFG EQU ISTPAB+12 02296000 PABFLAGS EQU PABRPHFG 02297000 PABERLCK EQU PABFLAGS 02298000 PABERRLK EQU PABERLCK 02299000 ISTDYPAB EQU 0 02300000 ISTPST EQU 0 02301000 PSTRQFGA EQU ISTPST+8 02302000 PSTRQUE EQU PSTRQFGA 02303000 PSTFLGA EQU PSTRQFGA+4 02304000 PSTABINP EQU PSTFLGA 02305000 PSTTCBA EQU ISTPST+16 02306000 PSTDMPS EQU ISTPST+132 02307000 ISTRPL EQU 0 02308000 CVTS01 EQU CVTPGSIA 02309000 CVTLPDIA EQU CVTS01+12 02310000 CVTDIRST EQU CVTLPDIA 02311000 CVTSLIDA EQU CVTS01+24 02312000 CVTCTLFG EQU CVTS01+50 02313000 CVTRV210 EQU CVTS01+424 02314000 CVTRV219 EQU CVTS01+425 02315000 CVTRV228 EQU CVTS01+426 02316000 CVTRV237 EQU CVTS01+427 02317000 CVTMFRTR EQU CVTS01+452 02318000 CVTRV262 EQU CVTS01+468 02319000 CVTRV271 EQU CVTS01+469 02320000 CVTRV280 EQU CVTS01+470 02321000 CVTRV289 EQU CVTS01+471 02322000 CVTGSDA EQU CVTS01+600 02323000 FLC EQU PSA 02324000 PSARSVTE EQU PSARSVT 02325000 LCPZTIE EQU LCPCID 02326000 LCPZSNAM EQU LCPZTIE+8 02327000 RTRDNCBA EQU ISTRTR+40 02328000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02329000 LCPZTRV4 EQU LCPZSNAM+4 02330000 LCPZTRV1 EQU LCPZSNAM 02331000 LCPZSNA EQU LCPZTIE+4 02332000 LCPZFMCA EQU LCPZTIE 02333000 PSARSAV EQU PSARSVTE+60 02334000 PSARSTK EQU PSARSVTE+56 02335000 PSAESAV3 EQU PSARSVTE+52 02336000 PSAESTK3 EQU PSARSVTE+48 02337000 PSAESAV2 EQU PSARSVTE+44 02338000 PSAESTK2 EQU PSARSVTE+40 02339000 PSAESAV1 EQU PSARSVTE+36 02340000 PSAESTK1 EQU PSARSVTE+32 02341000 PSAPSAV EQU PSARSVTE+28 02342000 PSAPSTK EQU PSARSVTE+24 02343000 PSAMSAV EQU PSARSVTE+20 02344000 PSAMSTK EQU PSARSVTE+16 02345000 PSASSAV EQU PSARSVTE+12 02346000 PSASSTK EQU PSARSVTE+8 02347000 PSANSTK EQU PSARSVTE+4 02348000 PSACSTK EQU PSARSVTE 02349000 CVTRV628 EQU CVTS01+728 02350000 CVTRV627 EQU CVTS01+724 02351000 CVTRV626 EQU CVTS01+720 02352000 CVTRV625 EQU CVTS01+716 02353000 CVTRV624 EQU CVTS01+712 02354000 CVTRV623 EQU CVTS01+708 02355000 CVTRV622 EQU CVTS01+704 02356000 CVTRV621 EQU CVTS01+700 02357000 CVTRV620 EQU CVTS01+696 02358000 CVTRV619 EQU CVTS01+692 02359000 CVTRV618 EQU CVTS01+688 02360000 CVTRV617 EQU CVTS01+684 02361000 CVTRV616 EQU CVTS01+680 02362000 CVTRV615 EQU CVTS01+676 02363000 CVTRV614 EQU CVTS01+672 02364000 CVTRV613 EQU CVTS01+668 02365000 CVTRV612 EQU CVTS01+664 02366000 CVTRV611 EQU CVTS01+660 02367000 CVTEVERM EQU CVTS01+656 02368000 CVTIRM EQU CVTS01+652 02369000 CVTCGK EQU CVTS01+648 02370000 CVTRAC EQU CVTS01+644 02371000 CVTRV606 EQU CVTS01+640 02372000 CVTRV605 EQU CVTS01+636 02373000 CVTRV604 EQU CVTS01+632 02374000 CVTEFF02 EQU CVTS01+628 02375000 CVTCBBR EQU CVTS01+624 02376000 CVTSSCR EQU CVTS01+620 02377000 CVTEVENT EQU CVTS01+616 02378000 CVTCRCA EQU CVTS01+612 02379000 CVTTPIO EQU CVTS01+608 02380000 CVTADV EQU CVTS01+604 02381000 CVTGSDAB EQU CVTGSDA 02382000 CVTQV3 EQU CVTS01+596 02383000 CVTQV2 EQU CVTS01+592 02384000 CVTQV1 EQU CVTS01+588 02385000 CVTRPT EQU CVTS01+584 02386000 CVTSSRB EQU CVTS01+580 02387000 CVTCSDRL EQU CVTS01+576 02388000 CVTEXP1 EQU CVTS01+572 02389000 CVTRMPMT EQU CVTS01+568 02390000 CVTRMPTT EQU CVTS01+564 02391000 CVTVPSA EQU CVTS01+560 02392000 CVTVSTOP EQU CVTS01+556 02393000 CVTGTFR8 EQU CVTS01+552 02394000 CVTQUIT EQU CVTS01+548 02395000 CVTVACR EQU CVTS01+544 02396000 CVTWTCB EQU CVTS01+540 02397000 CVTSTPRS EQU CVTS01+536 02398000 CVT0PT02 EQU CVTS01+532 02399000 CVTDARCM EQU CVTS01+528 02400000 CVTIRECM EQU CVTS01+524 02401000 CVTJRECM EQU CVTS01+520 02402000 CVTVEMS0 EQU CVTS01+516 02403000 CVTSPFRR EQU CVTS01+512 02404000 CVTRLSTG EQU CVTS01+508 02405000 CVT0TC0A EQU CVTS01+504 02406000 CVTGMBR EQU CVTS01+500 02407000 CVTLFRM EQU CVTS01+496 02408000 CVTRMBR EQU CVTS01+492 02409000 CVTVIOP EQU CVTS01+488 02410000 CVTRV307 EQU CVTS01+486 02411000 CVTRV306 EQU CVTS01+484 02412000 CVTRV305 EQU CVTS01+482 02413000 CVTRV304 EQU CVTS01+480 02414000 CVTRV303 EQU CVTS01+478 02415000 CVTRV302 EQU CVTS01+476 02416000 CVTTRCA EQU CVTS01+472 02417000 CVTRV297 EQU CVTRV289 02418000 CVTRV296 EQU CVTRV289 02419000 CVTRV295 EQU CVTRV289 02420000 CVTRV294 EQU CVTRV289 02421000 CVTRV293 EQU CVTRV289 02422000 CVTRV292 EQU CVTRV289 02423000 CVTRV291 EQU CVTRV289 02424000 CVTRV290 EQU CVTRV289 02425000 CVTRV288 EQU CVTRV280 02426000 CVTRV287 EQU CVTRV280 02427000 CVTRV286 EQU CVTRV280 02428000 CVTRV285 EQU CVTRV280 02429000 CVTRV284 EQU CVTRV280 02430000 CVTRV283 EQU CVTRV280 02431000 CVTRV282 EQU CVTRV280 02432000 CVTRV281 EQU CVTRV280 02433000 CVTRV279 EQU CVTRV271 02434000 CVTRV278 EQU CVTRV271 02435000 CVTRV277 EQU CVTRV271 02436000 CVTRV276 EQU CVTRV271 02437000 CVTRV275 EQU CVTRV271 02438000 CVTRV274 EQU CVTRV271 02439000 CVTRV273 EQU CVTRV271 02440000 CVTRV272 EQU CVTRV271 02441000 CVTRV270 EQU CVTRV262 02442000 CVTRV269 EQU CVTRV262 02443000 CVTRV268 EQU CVTRV262 02444000 CVTRV267 EQU CVTRV262 02445000 CVTRV266 EQU CVTRV262 02446000 CVTRV265 EQU CVTRV262 02447000 CVTRV264 EQU CVTRV262 02448000 CVTRV263 EQU CVTRV262 02449000 CVTVFP EQU CVTS01+464 02450000 CVTVSI EQU CVTS01+460 02451000 CVTVPSIB EQU CVTS01+456 02452000 CVTMFACT EQU CVTMFRTR 02453000 CVTMFCTL EQU CVTS01+448 02454000 CVTPVBP EQU CVTS01+444 02455000 CVTPWI EQU CVTS01+440 02456000 CVTRV254 EQU CVTS01+438 02457000 CVTRV253 EQU CVTS01+436 02458000 CVTRV252 EQU CVTS01+434 02459000 CVTRV251 EQU CVTS01+433 02460000 CVTRV250 EQU CVTS01+432 02461000 CVTRV249 EQU CVTS01+431 02462000 CVTRV248 EQU CVTS01+430 02463000 CVTRV247 EQU CVTS01+429 02464000 CVTRV246 EQU CVTS01+428 02465000 CVTRV245 EQU CVTRV237 02466000 CVTRV244 EQU CVTRV237 02467000 CVTRV243 EQU CVTRV237 02468000 CVTRV242 EQU CVTRV237 02469000 CVTRV241 EQU CVTRV237 02470000 CVTRV240 EQU CVTRV237 02471000 CVTRV239 EQU CVTRV237 02472000 CVTRV238 EQU CVTRV237 02473000 CVTRV236 EQU CVTRV228 02474000 CVTRV235 EQU CVTRV228 02475000 CVTRV234 EQU CVTRV228 02476000 CVTRV233 EQU CVTRV228 02477000 CVTRV232 EQU CVTRV228 02478000 CVTRV231 EQU CVTRV228 02479000 CVTRV230 EQU CVTRV228 02480000 CVTRV229 EQU CVTRV228 02481000 CVTRV227 EQU CVTRV219 02482000 CVTRV226 EQU CVTRV219 02483000 CVTRV225 EQU CVTRV219 02484000 CVTRV224 EQU CVTRV219 02485000 CVTRV223 EQU CVTRV219 02486000 CVTRV222 EQU CVTRV219 02487000 CVTRV221 EQU CVTRV219 02488000 CVTRV220 EQU CVTRV219 02489000 CVTRV218 EQU CVTRV210 02490000 CVTRV217 EQU CVTRV210 02491000 CVTRV216 EQU CVTRV210 02492000 CVTRV215 EQU CVTRV210 02493000 CVTRV214 EQU CVTRV210 02494000 CVTRV213 EQU CVTRV210 02495000 CVTRV212 EQU CVTRV210 02496000 CVTRV211 EQU CVTRV210 02497000 CVTLCCAT EQU CVTS01+420 02498000 CVTPCCAT EQU CVTS01+416 02499000 CVTIPCRP EQU CVTS01+412 02500000 CVTIPCRI EQU CVTS01+408 02501000 CVTIPCDS EQU CVTS01+404 02502000 CVTAIDVT EQU CVTS01+400 02503000 CVTSSAP EQU CVTS01+396 02504000 CVTEHCIR EQU CVTS01+392 02505000 CVTEHDEF EQU CVTS01+388 02506000 CVTDAIR EQU CVTS01+384 02507000 CVTPERFM EQU CVTS01+380 02508000 CVT044R2 EQU CVTS01+376 02509000 CVTFETCH EQU CVTS01+372 02510000 CVTRSTWD EQU CVTS01+368 02511000 CVTSPOST EQU CVTS01+364 02512000 CVTIOBP EQU CVTS01+360 02513000 CVTASMVT EQU CVTS01+356 02514000 CVTRECRQ EQU CVTS01+352 02515000 CVTWSAC EQU CVTS01+348 02516000 CVTRV149 EQU CVTS01+344 02517000 CVTWSAL EQU CVTS01+340 02518000 CVTSPSA EQU CVTS01+336 02519000 CVTGLMN EQU CVTS01+332 02520000 CVTVEAC0 EQU CVTS01+328 02521000 CVT062R1 EQU CVTS01+324 02522000 CVTRPOST EQU CVTS01+320 02523000 CVTDQIQE EQU CVTS01+316 02524000 CVTCSD EQU CVTS01+312 02525000 CVTLKRMA EQU CVTS01+308 02526000 CVTRSPIE EQU CVTS01+304 02527000 CVTRENQ EQU CVTS01+300 02528000 CVTLQCB EQU CVTS01+296 02529000 CVTFQCB EQU CVTS01+292 02530000 CVTQCS01 EQU CVTS01+288 02531000 CVTAPFT EQU CVTS01+284 02532000 CVTPARRL EQU CVTS01+280 02533000 CVTVWAIT EQU CVTS01+276 02534000 CVTGSPL EQU CVTS01+272 02535000 CVTLSMQ EQU CVTS01+268 02536000 CVTGSMQ EQU CVTS01+264 02537000 CVTEXPRO EQU CVTS01+260 02538000 CVTOPCTP EQU CVTS01+256 02539000 CVTSIC EQU CVTS01+252 02540000 CVTTPIOS EQU CVTS01+248 02541000 CVTRTMS EQU CVTS01+244 02542000 CVTSDBF EQU CVTS01+240 02543000 CVTSCBP EQU CVTS01+236 02544000 CVTSDMP EQU CVTS01+232 02545000 CVTSV60 EQU CVTS01+228 02546000 CVTRTMCT EQU CVTS01+224 02547000 CVTASCBL EQU CVTS01+220 02548000 CVTASCBH EQU CVTS01+216 02549000 CVTGDA EQU CVTS01+212 02550000 CVTASVT EQU CVTS01+208 02551000 CVTVVMDI EQU CVTS01+204 02552000 CVTAQTOP EQU CVTS01+200 02553000 CVTIOSCS EQU CVTS01+196 02554000 CVTSDRM EQU CVTS01+192 02555000 CVTOPTE EQU CVTS01+188 02556000 CVTSTXU EQU CVTS01+184 02557000 CVTQUIS EQU CVTS01+180 02558000 CVTPARS EQU CVTS01+176 02559000 CVTS1EE EQU CVTS01+172 02560000 CVTFRAS EQU CVTS01+168 02561000 CVTQSAS EQU CVTS01+164 02562000 CVTCRAS EQU CVTS01+160 02563000 CVTCRMN EQU CVTS01+156 02564000 CVTDELCP EQU CVTS01+152 02565000 CVTFRECL EQU CVTS01+148 02566000 CVTGETCL EQU CVTS01+144 02567000 CVTBLDCP EQU CVTS01+140 02568000 CVTAUTHL EQU CVTS01+136 02569000 CVTSCAN EQU CVTS01+132 02570000 CVTRV144 EQU CVTS01+130 02571000 CVTMAXMP EQU CVTS01+128 02572000 CVTSTCK EQU CVTS01+124 02573000 CVTRV139 EQU CVTS01+123 02574000 CVTDSSAC EQU CVTS01+122 02575000 CVTRV513 EQU CVTS01+121 02576000 CVTIOSPL EQU CVTS01+120 02577000 CVTPTGT EQU CVTS01+116 02578000 CVTCSPIE EQU CVTS01+112 02579000 CVTSMFEX EQU CVTS01+108 02580000 CVTOLT0A EQU CVTS01+104 02581000 CVTSRBRT EQU CVTS01+100 02582000 CVTPUTL EQU CVTS01+96 02583000 CVTRV519 EQU CVTS01+92 02584000 CVTRV327 EQU CVTS01+88 02585000 CVTRV326 EQU CVTS01+84 02586000 CVTRV325 EQU CVTS01+80 02587000 CVTRV324 EQU CVTS01+76 02588000 CVT0VL01 EQU CVTS01+72 02589000 CVTSHRVM EQU CVTS01+68 02590000 CVTRV332 EQU CVTS01+64 02591000 CVTTAS EQU CVTS01+60 02592000 CVTRSCN EQU CVTS01+56 02593000 CVTTRAC2 EQU CVTS01+54 02594000 CVTTRACE EQU CVTS01+52 02595000 CVTAPG EQU CVTS01+51 02596000 CVTSDTRC EQU CVTCTLFG 02597000 CVTGTRCE EQU CVTCTLFG 02598000 CVTNOMP EQU CVTCTLFG 02599000 CVTRSV79 EQU CVTCTLFG 02600000 CVTDSTAT EQU CVTCTLFG 02601000 CVTRSV78 EQU CVTCTLFG 02602000 CVTRV333 EQU CVTCTLFG 02603000 CVTRV323 EQU CVTCTLFG 02604000 CVTSPVLK EQU CVTS01+49 02605000 CVTRSV77 EQU CVTS01+48 02606000 CVTRV331 EQU CVTS01+44 02607000 CVTRV330 EQU CVTS01+40 02608000 CVTRV329 EQU CVTS01+36 02609000 CVTRV328 EQU CVTS01+32 02610000 CVTRV322 EQU CVTS01+28 02611000 CVTSLID EQU CVTSLIDA+1 02612000 CVTSYLK EQU CVTSLIDA 02613000 CVTRV321 EQU CVTS01+20 02614000 CVTRV320 EQU CVTS01+16 02615000 CVTLPDIR EQU CVTLPDIA+1 02616000 CVTRSV69 EQU CVTDIRST 02617000 CVTRSV68 EQU CVTDIRST 02618000 CVTRSV67 EQU CVTDIRST 02619000 CVTRSV66 EQU CVTDIRST 02620000 CVTRSV65 EQU CVTDIRST 02621000 CVTRSV64 EQU CVTDIRST 02622000 CVTRSV63 EQU CVTDIRST 02623000 CVTDICOM EQU CVTDIRST 02624000 CVTPVTP EQU CVTS01+8 02625000 CVTLPDSR EQU CVTS01+4 02626000 CVTGETL EQU CVTS01 02627000 PSTDRDYQ EQU PSTDMPS+1 02628000 @NM00090 EQU PSTDMPS 02629000 PSTDGATE EQU PSTDMPS 02630000 PSTDEBP EQU ISTPST+128 02631000 PSTSAVE EQU ISTPST+96 02632000 PSTSMDYP EQU ISTPST+64 02633000 PSTCRRS EQU ISTPST+60 02634000 PSTCRR1 EQU ISTPST+56 02635000 PSTIQE22 EQU ISTPST+52 02636000 PSTIQE21 EQU ISTPST+48 02637000 PSTIQE12 EQU ISTPST+44 02638000 PSTIQE11 EQU ISTPST+40 02639000 PSTUEQ EQU ISTPST+36 02640000 PSTNSSQ EQU ISTPST+32 02641000 PSTPSSQ EQU ISTPST+28 02642000 PSTACBCT EQU ISTPST+24 02643000 PSTMPSTP EQU ISTPST+20 02644000 PSTRSV08 EQU PSTFLGA+1 02645000 PSTDMPC EQU PSTFLGA+1 02646000 PSTABEND EQU PSTABINP 02647000 PSTAUTH EQU PSTFLGA 02648000 PSTSMCU EQU PSTFLGA 02649000 PSTSMQR EQU PSTFLGA 02650000 PSTIRBU2 EQU PSTFLGA 02651000 PSTIRBU1 EQU PSTFLGA 02652000 PSTUERN EQU PSTFLGA 02653000 PSTSSRN EQU PSTFLGA 02654000 PSTRQUEA EQU PSTRQUE+1 02655000 PSTRSV07 EQU PSTRQUE 02656000 PSTRSV06 EQU PSTRQUE 02657000 PSTRSV05 EQU PSTRQUE 02658000 PSTRSV04 EQU PSTRQUE 02659000 PSTRSV03 EQU PSTRQUE 02660000 PSTRSV02 EQU PSTRQUE 02661000 PSTRSV01 EQU PSTRQUE 02662000 PSTRQFLG EQU PSTRQUE 02663000 PSTCHAIN EQU ISTPST+4 02664000 @NM00089 EQU ISTPST+2 02665000 PSTLNGTH EQU ISTPST+1 02666000 PSTTYPE EQU ISTPST 02667000 DYPPAB EQU ISTDYPAB+16 02668000 DYPRSV01 EQU ISTDYPAB+12 02669000 DYPTSKID EQU ISTDYPAB+8 02670000 DYPCHAIN EQU ISTDYPAB+4 02671000 DYPFLGS EQU ISTDYPAB+2 02672000 DYPLNGTH EQU ISTDYPAB+1 02673000 DYPTYPE EQU ISTDYPAB 02674000 PABRPHA EQU PABRPHFG+1 02675000 PABNODQ EQU PABFLAGS 02676000 PABINHBT EQU PABFLAGS 02677000 PABERLOK EQU PABERRLK 02678000 PABSSN EQU PABFLAGS 02679000 PABDYNAM EQU PABFLAGS 02680000 PABNORPR EQU PABFLAGS 02681000 PABPRIOR EQU PABFLAGS 02682000 PABAPYP EQU PABFLAGS 02683000 PABDVTA EQU ISTPAB+9 02684000 PABOFFST EQU ISTPAB+8 02685000 PABCHNGP EQU PABCHAIN+1 02686000 PABRSV02 EQU PABCHAIN 02687000 PABRUNNG EQU PABCHAIN 02688000 PABRESET EQU PABCHAIN 02689000 PABUNCON EQU PABCHAIN 02690000 PABCDP EQU PABCHAIN 02691000 PABRESCH EQU PABCHAIN 02692000 PABCHNG EQU PABCHAIN 02693000 PABWEQP EQU PABWEQA+1 02694000 PABRSV01 EQU PABWEQA 02695000 PABWEQG EQU PABWEQA 02696000 CNSRSVRD EQU NSCCRT+1 02697000 CSQC0B EQU NSCCRT+1 02698000 CSQC0A EQU NSCCRT+1 02699000 CSQC08 EQU NSCCRT+1 02700000 CSQC09 EQU NSCCRT+1 02701000 CSQC07 EQU NSCCRT+1 02702000 CSQC06 EQU NSCCRT 02703000 CSQC05 EQU NSCCRT 02704000 CSQC04 EQU NSCCRT 02705000 CSQC03 EQU NSCCRT 02706000 CSQC02 EQU NSCCRT 02707000 CSQC00 EQU NSCCRT 02708000 CSTC00 EQU NSCCRT 02709000 NNSRSVRD EQU NSCNTRD+1 02710000 NSQC0B EQU NSCNTRD+1 02711000 NSQC0A EQU NSCNTRD+1 02712000 NSQC08 EQU NSCNTRD+1 02713000 NSQC09 EQU NSCNTRD+1 02714000 NSQC07 EQU NSCNTRD+1 02715000 NSQC06 EQU NSCNTRD 02716000 NSQC05 EQU NSCNTRD 02717000 NSQC04 EQU NSCNTRD 02718000 NSQC03 EQU NSCNTRD 02719000 NSQC02 EQU NSCNTRD 02720000 NSQC00 EQU NSCNTRD 02721000 NSTC00 EQU NSCNTRD 02722000 NSCPRFX EQU ISTNSCRR 02723000 CRACHAIN EQU ISTCRA+928 02724000 CRARSV02 EQU ISTCRA+924 02725000 CRARSV01 EQU ISTCRA+920 02726000 CRABFTBA EQU CRABUFA 02727000 CRAMASK EQU CRASVC+64 02728000 CRAHSIZ EQU CRASVC+60 02729000 CRAASCRR EQU CRASVC 02730000 CRAPROCR EQU ISTCRA+312 02731000 CRAPSS EQU ISTCRA+160 02732000 CRARPH EQU ISTCRA+52 02733000 CRALAPTR EQU CRABASIC+48 02734000 CRAL9PTR EQU CRABASIC+44 02735000 CRAL8PTR EQU CRABASIC+40 02736000 CRAL7PTR EQU CRABASIC+36 02737000 CRAL6PTR EQU CRABASIC+32 02738000 CRAL5PTR EQU CRABASIC+28 02739000 CRAL4PTR EQU CRABASIC+24 02740000 CRAL3PTR EQU CRABASIC+20 02741000 CRAL2PTR EQU CRABASIC+16 02742000 CRAL1PTR EQU CRABASIC+12 02743000 CRALEV01 EQU CRALKACT+3 02744000 CRALEV02 EQU CRALKACT+3 02745000 CRALEV03 EQU CRALKACT+3 02746000 CRALEV04 EQU CRALKACT+3 02747000 CRALEV05 EQU CRALKACT+3 02748000 CRALEV06 EQU CRALKACT+3 02749000 CRALEV07 EQU CRALKACT+3 02750000 CRALEV08 EQU CRALKACT+3 02751000 CRALEV09 EQU CRALKACT+2 02752000 CRALEV10 EQU CRALKACT+2 02753000 CRALEV11 EQU CRALKACT+2 02754000 CRALEV12 EQU CRALKACT+2 02755000 CRALEV13 EQU CRALKACT+2 02756000 CRALEV14 EQU CRALKACT+2 02757000 CRALEV15 EQU CRALKACT+2 02758000 CRALEV16 EQU CRALKACT+2 02759000 CRALEV17 EQU CRALKACT+1 02760000 CRALEV18 EQU CRALKACT+1 02761000 CRALEV19 EQU CRALKACT+1 02762000 CRALEV20 EQU CRALKACT+1 02763000 CRALEV21 EQU CRALKACT+1 02764000 CRALEV22 EQU CRALKACT+1 02765000 CRALEV23 EQU CRALKACT+1 02766000 CRALEV24 EQU CRALKACT+1 02767000 CRALEV25 EQU CRALKACT 02768000 CRALEV26 EQU CRALKACT 02769000 CRALEV27 EQU CRALKACT 02770000 CRALEV28 EQU CRALKACT 02771000 CRALEV29 EQU CRALKACT 02772000 CRALEV30 EQU CRALKACT 02773000 CRALEV31 EQU CRALKACT 02774000 CRALEV32 EQU CRALKACT 02775000 CRAFRR EQU CRAHDR+4 02776000 @NM00088 EQU ISTAPCRR+137 02777000 @NM00087 EQU APC57FLG 02778000 APCNREL EQU APC57FLG 02779000 APCRECRA EQU APC57FLG 02780000 @NM00086 EQU APC54FLG 02781000 APCRLST EQU APC54FLG 02782000 APCPR153 EQU APC53FLG 02783000 @NM00085 EQU APC52FLG 02784000 APCWKF EQU APC52FLG 02785000 APCNWF EQU APC52FLG 02786000 APCRDQ EQU APC52FLG 02787000 APCQENQ EQU APC52FLG 02788000 APCSMSR EQU APC52FLG 02789000 APCCKRQ EQU APC52FLG 02790000 @NM00084 EQU APC31FLG 02791000 APCSORT EQU APC31FLG 02792000 APCRESCH EQU APC31FLG 02793000 APCTPXIT EQU APC31FLG 02794000 APCSWTWD EQU ISTAPCRR+128 02795000 APCSAV2 EQU ISTAPCRR+124 02796000 APCSAV1 EQU ISTAPCRR+120 02797000 APCRETCD EQU APCCOMF+2 02798000 @NM00083 EQU APCCOMF1+1 02799000 APCZLBER EQU APCCOMF1 02800000 APCEXIT EQU APCCOMF1 02801000 APCRELR EQU APCCOMF1 02802000 APCIRB2 EQU APCCOMF1 02803000 APCIRB1 EQU APCCOMF1 02804000 APCSMCR EQU APCCOMF1 02805000 APCUETSK EQU APCCOMF1 02806000 APCSSTSK EQU APCCOMF1 02807000 APCESTAL EQU APCSAVE 02808000 APCFRRPM EQU ISTAPCRR+40 02809000 APCQWFO EQU ISTAPCRR+36 02810000 APCPABSV EQU ISTAPCRR+32 02811000 APCRTRN EQU ISTAPCRR+28 02812000 APCTCBA EQU ISTAPCRR+24 02813000 APCPSTA EQU ISTAPCRR+20 02814000 @NM00082 EQU APCRFLG+1 02815000 APC31R EQU APCRFLG 02816000 APC58R EQU APCRFLG 02817000 APC57R EQU APCRFLG 02818000 APC56R EQU APCRFLG 02819000 APC54R EQU APCRFLG 02820000 APC53R EQU APCRFLG 02821000 APC52R EQU APCRFLG 02822000 APC51R EQU APCRFLG 02823000 @NM00081 EQU APCATFLG+1 02824000 APC31E EQU APCATFLG 02825000 APC58E EQU APCATFLG 02826000 APC57E EQU APCATFLG 02827000 APC56E EQU APCATFLG 02828000 APC54E EQU APCATFLG 02829000 APC53E EQU APCATFLG 02830000 APC52E EQU APCATFLG 02831000 APC51E EQU APCATFLG 02832000 APCHDRSV EQU ISTAPCRR 02833000 ASCPSREG EQU ISTASCRR+44 02834000 ASCUSR01 EQU ASCUSRGS+12 02835000 ASCUSR00 EQU ASCUSRGS+8 02836000 ASCUSR15 EQU ASCUSRGS+4 02837000 ASCUSR14 EQU ASCUSRGS 02838000 ASCETRYA EQU ISTASCRR+24 02839000 ASCKEY EQU ISTASCRR+23 02840000 ASCAUDIT EQU ASCFLG3 02841000 ASCFBDUD EQU ASCFLG3 02842000 ASCLLKF EQU ASCFLG3 02843000 ASCKEYF EQU ASCFLG3 02844000 ASCFBDAL EQU ASCFLG3 02845000 ASCFSRGT EQU ASCFLG3 02846000 ASCICR EQU ASCFLG2 02847000 ASCFSRIC EQU ASCFLG2 02848000 ASCFBDIC EQU ASCFLG2 02849000 ASCFBAIC EQU ASCFLG2 02850000 ASCPASTR EQU ASCFLG1 02851000 ASCFSR EQU ASCFLG1 02852000 ASCFBD EQU ASCFLG1 02853000 ASCFBA EQU ASCFLG1 02854000 ASCPFCRR EQU ISTASCRR 02855000 ZCRRU EQU ZCRRHRU+3 02856000 ZCRRH EQU ZCRRHRU 02857000 ZCRWORDA EQU ISTZCRR+477 02858000 ZCRCMNRC EQU ISTZCRR+476 02859000 ZCRRSV97 EQU ZCRENTER+18 02860000 ZCREIC2B EQU ZCRENTER+18 02861000 ZCREAC2B EQU ZCRENTER+18 02862000 ZCRELCAB EQU ZCRENTER+18 02863000 ZCREDCMF EQU ZCRENTER+18 02864000 ZCREBCIF EQU ZCRENTER+18 02865000 ZCREICSG EQU ZCRENTER+18 02866000 ZCREDCK0 EQU ZCRENTER+18 02867000 ZCRECFY0 EQU ZCRENTER+17 02868000 ZCREKCCB EQU ZCRENTER+17 02869000 ZCREDCNB EQU ZCRENTER+17 02870000 ZCREICOE EQU ZCRENTER+17 02871000 ZCREBCNB EQU ZCRENTER+17 02872000 ZCREBC0L EQU ZCRENTER+17 02873000 ZCREBCAL EQU ZCRENTER+17 02874000 ZCREDCQR EQU ZCRENTER+17 02875000 ZCREDCPR EQU ZCRENTER+16 02876000 ZCREBCSB EQU ZCRENTER+16 02877000 ZCREAC1R EQU ZCRENTER+16 02878000 ZCRECCCI EQU ZCRENTER+16 02879000 ZCRECCAI EQU ZCRENTER+16 02880000 ZCRECCBI EQU ZCRENTER+16 02881000 ZCREBCAR EQU ZCRENTER+16 02882000 ZCREBCDR EQU ZCRENTER+16 02883000 ZCREBCBR EQU ZCRENTER+15 02884000 ZCREDCXR EQU ZCRENTER+15 02885000 ZCREDCWB EQU ZCRENTER+15 02886000 ZCREDCWR EQU ZCRENTER+15 02887000 ZCREKCCN EQU ZCRENTER+15 02888000 ZCREKCBN EQU ZCRENTER+15 02889000 ZCREKCBB EQU ZCRENTER+15 02890000 ZCREJC0B EQU ZCRENTER+15 02891000 ZCREJCDB EQU ZCRENTER+14 02892000 ZCREJCCB EQU ZCRENTER+14 02893000 ZCREJCBB EQU ZCRENTER+14 02894000 ZCREJCAB EQU ZCRENTER+14 02895000 ZCREIC1B EQU ZCRENTER+14 02896000 ZCREIC0B EQU ZCRENTER+14 02897000 ZCREICX0 EQU ZCRENTER+14 02898000 ZCREICWB EQU ZCRENTER+14 02899000 ZCREICVB EQU ZCRENTER+13 02900000 ZCREICUB EQU ZCRENTER+13 02901000 ZCREICTB EQU ZCRENTER+13 02902000 ZCREICSC EQU ZCRENTER+13 02903000 ZCREICSB EQU ZCRENTER+13 02904000 ZCREICRB EQU ZCRENTER+13 02905000 ZCREICQB EQU ZCRENTER+13 02906000 ZCREICQA EQU ZCRENTER+13 02907000 ZCREICOB EQU ZCRENTER+12 02908000 ZCREICOA EQU ZCRENTER+12 02909000 ZCREICNB EQU ZCRENTER+12 02910000 ZCREICNA EQU ZCRENTER+12 02911000 ZCREICMB EQU ZCRENTER+12 02912000 ZCREICLB EQU ZCRENTER+12 02913000 ZCREICKG EQU ZCRENTER+12 02914000 ZCREICKE EQU ZCRENTER+12 02915000 ZCREICKB EQU ZCRENTER+11 02916000 ZCREICJB EQU ZCRENTER+11 02917000 ZCREICID EQU ZCRENTER+11 02918000 ZCREICIB EQU ZCRENTER+11 02919000 ZCREICHB EQU ZCRENTER+11 02920000 ZCREICGB EQU ZCRENTER+11 02921000 ZCREICEB EQU ZCRENTER+11 02922000 ZCREICDB EQU ZCRENTER+11 02923000 ZCREICCI EQU ZCRENTER+10 02924000 ZCREICCB EQU ZCRENTER+10 02925000 ZCREICBI EQU ZCRENTER+10 02926000 ZCREICBB EQU ZCRENTER+10 02927000 ZCREICAB EQU ZCRENTER+10 02928000 ZCREICAA EQU ZCRENTER+10 02929000 ZCREHCAN EQU ZCRENTER+10 02930000 ZCREGC0B EQU ZCRENTER+10 02931000 ZCREGC0A EQU ZCRENTER+9 02932000 ZCREGCLA EQU ZCRENTER+9 02933000 ZCREGCEB EQU ZCRENTER+9 02934000 ZCREGCDB EQU ZCRENTER+9 02935000 @NM00080 EQU ZCRENTER+9 02936000 ZCREGCBB EQU ZCRENTER+9 02937000 ZCREGCAB EQU ZCRENTER+9 02938000 ZCREFCEB EQU ZCRENTER+9 02939000 ZCREFCEA EQU ZCRENTER+8 02940000 ZCREECTA EQU ZCRENTER+8 02941000 ZCREECEA EQU ZCRENTER+8 02942000 ZCREECDA EQU ZCRENTER+8 02943000 ZCREECCB EQU ZCRENTER+8 02944000 ZCREECCA EQU ZCRENTER+8 02945000 ZCREECBB EQU ZCRENTER+8 02946000 ZCREECBA EQU ZCRENTER+8 02947000 ZCREDCMB EQU ZCRENTER+7 02948000 ZCREDCL0 EQU ZCRENTER+7 02949000 ZCREDCKB EQU ZCRENTER+7 02950000 ZCREDCKA EQU ZCRENTER+7 02951000 ZCREDCJ0 EQU ZCRENTER+7 02952000 ZCREDCI0 EQU ZCRENTER+7 02953000 ZCREDCH0 EQU ZCRENTER+7 02954000 ZCREDCF0 EQU ZCRENTER+7 02955000 ZCREDCE0 EQU ZCRENTER+6 02956000 ZCREDCD0 EQU ZCRENTER+6 02957000 ZCREDCC0 EQU ZCRENTER+6 02958000 ZCREDCB0 EQU ZCRENTER+6 02959000 ZCREDCA0 EQU ZCRENTER+6 02960000 ZCRECC2B EQU ZCRENTER+6 02961000 ZCRECC1B EQU ZCRENTER+6 02962000 ZCRECC1A EQU ZCRENTER+6 02963000 ZCRECC0B EQU ZCRENTER+5 02964000 ZCRECC0A EQU ZCRENTER+5 02965000 ZCREBC0B EQU ZCRENTER+5 02966000 ZCREBC0A EQU ZCRENTER+5 02967000 ZCREBCZ0 EQU ZCRENTER+5 02968000 ZCREBCY0 EQU ZCRENTER+5 02969000 ZCREBCX0 EQU ZCRENTER+5 02970000 ZCREBCXA EQU ZCRENTER+5 02971000 ZCREBCSC EQU ZCRENTER+4 02972000 ZCREBCRB EQU ZCRENTER+4 02973000 ZCREBCRA EQU ZCRENTER+4 02974000 ZCREBCQB EQU ZCRENTER+4 02975000 ZCREBCPB EQU ZCRENTER+4 02976000 ZCREBCOB EQU ZCRENTER+4 02977000 ZCREBCNE EQU ZCRENTER+4 02978000 ZCREBCND EQU ZCRENTER+4 02979000 ZCREBCMB EQU ZCRENTER+3 02980000 ZCREBCLB EQU ZCRENTER+3 02981000 ZCREBCLA EQU ZCRENTER+3 02982000 ZCREBCKB EQU ZCRENTER+3 02983000 ZCREBCKA EQU ZCRENTER+3 02984000 ZCREBCJB EQU ZCRENTER+3 02985000 ZCREBCJA EQU ZCRENTER+3 02986000 ZCREBCID EQU ZCRENTER+3 02987000 ZCREBCIB EQU ZCRENTER+2 02988000 ZCREBCIA EQU ZCRENTER+2 02989000 ZCREBCHB EQU ZCRENTER+2 02990000 ZCREBCHA EQU ZCRENTER+2 02991000 ZCREBCGB EQU ZCRENTER+2 02992000 ZCREBCGA EQU ZCRENTER+2 02993000 ZCREBCFB EQU ZCRENTER+2 02994000 ZCREBCFA EQU ZCRENTER+2 02995000 ZCREBCEB EQU ZCRENTER+1 02996000 ZCREBCDI EQU ZCRENTER+1 02997000 ZCREBCCB EQU ZCRENTER+1 02998000 ZCREBCBI EQU ZCRENTER+1 02999000 ZCREBCBB EQU ZCRENTER+1 03000000 ZCREBCBA EQU ZCRENTER+1 03001000 ZCREBCAM EQU ZCRENTER+1 03002000 ZCREBCAI EQU ZCRENTER+1 03003000 ZCREBCAG EQU ZCRENTER 03004000 ZCREBCAE EQU ZCRENTER 03005000 ZCREBCAB EQU ZCRENTER 03006000 ZCREBCAA EQU ZCRENTER 03007000 ZCREAC1B EQU ZCRENTER 03008000 ZCREAC0B EQU ZCRENTER 03009000 ZCREAC0A EQU ZCRENTER 03010000 ZCREAC1A EQU ZCRENTER 03011000 ZCRTNAME EQU ZCRAUDIT+1 03012000 ZCRTID EQU ZCRAUDIT 03013000 ZCRREMIC EQU ISTZCRR+436 03014000 ZCRSAVEZ EQU ISTZCRR+196 03015000 ZCRDAFSV EQU ZCRCIDSV+2 03016000 ZCRSAFSV EQU ZCRCIDSV 03017000 ZCRR13SV EQU ISTZCRR+188 03018000 ZCRR2SV EQU ISTZCRR+184 03019000 ZCROPCDE EQU ISTZCRR+183 03020000 ZCRPRMTC EQU ISTZCRR+182 03021000 ZCRRCDSV EQU ISTZCRR+181 03022000 ZCRAWQSW EQU ISTZCRR+180 03023000 ZCRTOPQ EQU ISTZCRR+180 03024000 ZCRLSTFB EQU ISTZCRR+180 03025000 ZCRXSCHD EQU ISTZCRR+180 03026000 ZCRNXTEL EQU ISTZCRR+180 03027000 ZCRSCANQ EQU ISTZCRR+180 03028000 ZCRMOREL EQU ISTZCRR+180 03029000 ZCRFBPRC EQU ISTZCRR+180 03030000 ZCRFSBSV EQU ISTZCRR+176 03031000 ZCRSVWK5 EQU ZCRWKARA+16 03032000 ZCRSVWK4 EQU ZCRWKARA+12 03033000 ZCRSVWK3 EQU ZCRWKARA+8 03034000 ZCRSVWK2 EQU ZCRWKARA+4 03035000 ZCRSVWK1 EQU ZCRWKARA 03036000 ZCRSVF25 EQU ZCRSVRTN+96 03037000 ZCRSVF24 EQU ZCRSVRTN+92 03038000 ZCRSVF23 EQU ZCRSVRTN+88 03039000 ZCRSVF22 EQU ZCRSVRTN+84 03040000 ZCRSVF21 EQU ZCRSVRTN+80 03041000 ZCRSVF20 EQU ZCRSVRTN+76 03042000 ZCRSVF19 EQU ZCRSVRTN+72 03043000 ZCRSVF18 EQU ZCRSVRTN+68 03044000 ZCRSVF17 EQU ZCRSVRTN+64 03045000 ZCRSVF16 EQU ZCRSVRTN+60 03046000 ZCRSVF15 EQU ZCRSVRTN+56 03047000 ZCRSVF14 EQU ZCRSVRTN+52 03048000 ZCRSVF13 EQU ZCRSVRTN+48 03049000 ZCRSVF12 EQU ZCRSVRTN+44 03050000 ZCRSVF11 EQU ZCRSVRTN+40 03051000 ZCRSVF10 EQU ZCRSVRTN+36 03052000 ZCRSVF9 EQU ZCRSVRTN+32 03053000 ZCRSVF8 EQU ZCRSVRTN+28 03054000 ZCRSVF7 EQU ZCRSVRTN+24 03055000 ZCRSVF6 EQU ZCRSVRTN+20 03056000 ZCRSVF5 EQU ZCRSVRTN+16 03057000 ZCRSVF4 EQU ZCRSVRTN+12 03058000 ZCRSVF3 EQU ZCRSVRTN+8 03059000 ZCRSVF2 EQU ZCRSVRTN+4 03060000 ZCRSVF1 EQU ZCRSVRTN 03061000 ZCRPVZB EQU ISTZCRR+52 03062000 ZCRZLB EQU ISTZCRR+48 03063000 ZCRBFPTR EQU ISTZCRR+44 03064000 ZCRCCWA EQU ISTZCRR+40 03065000 ZCRPSW EQU ZCRPARMS+15 03066000 ZCRPCHAR EQU ZCRPARMS+14 03067000 ZCRPRES2 EQU ZCRPCOD2 03068000 ZCRPMFGF EQU ZCRPCOD2 03069000 ZCRPFHDR EQU ZCRPCOD2 03070000 ZCRPPG2 EQU ZCRPCOD2 03071000 ZCRPRES EQU ZCRPCOD1 03072000 ZCRPCFTX EQU ZCRPCOD1 03073000 ZCRPBUF EQU ZCRPCOD1 03074000 ZCRPLSCB EQU ZCRPCOD1 03075000 ZCRPLSBQ EQU ZCRPLSBF 03076000 ZCRPFSB EQU ZCRPCOD1 03077000 ZCRPLNG EQU ZCRPCOD1 03078000 ZCRPPG EQU ZCRPCOD1 03079000 ZCRDTODA EQU ZCRDFRDA 03080000 ZCRMLNG EQU ZCRPARMS+8 03081000 ZCRTBPTR EQU ZCRPARMS+4 03082000 ZCRCBPTR EQU ZCRFBPTR 03083000 ZCRCRLCP EQU ISTZCRR+20 03084000 @NM00079 EQU ZCRSCPSW 03085000 ZCRSKIPT EQU ZCRSCPSW 03086000 ZCRFSBWE EQU ZCRSCPSW 03087000 ZCRPRCMP EQU ZCRSCPSW 03088000 ZCRLREQ EQU ZCRSCPSW 03089000 ZCRRJLCP EQU ZCRSCPSW 03090000 ZCRTPINV EQU ZCRSCPSW 03091000 ZCRTPEX EQU ZCRSCPSW 03092000 @NM00078 EQU ZCRIBPR 03093000 ZCR3270R EQU ZCRIBPR 03094000 ZCR3270 EQU ZCRIBPR 03095000 ZCRLCPFD EQU ZCRIBPR 03096000 ZCRLCPFR EQU ZCRIBPR 03097000 ZCRRELK EQU ZCRIBPR 03098000 ZCRERR EQU ZCRIBPR 03099000 ZCRNOBUF EQU ZCRIBPR 03100000 @NM00077 EQU ZCRPFLGS 03101000 ZCRQAHED EQU ZCRPFLGS 03102000 ZCRF1RES EQU ZCRGENSW 03103000 ZCRBRIS EQU ZCRGENSW 03104000 ZCRCLRBD EQU ZCRGENSW 03105000 ZCREXRES EQU ZCRGENSW 03106000 ZCRLCSYN EQU ZCRGENSW 03107000 ZCRRT06 EQU ZCRGENSW 03108000 ZCRTSW2 EQU ZCRGENSW 03109000 ZCRTSW1 EQU ZCRGENSW 03110000 ZCRINLCP EQU ZCRFLGS3 03111000 ZCRWRPTR EQU ZCRFLGS3 03112000 ZCRNOFRE EQU ZCRFLGS3 03113000 ZCREDRIV EQU ZCRFLGS3 03114000 ZCRDISC EQU ZCRFLGS3 03115000 ZCRTPDIS EQU ZCRFLGS3 03116000 ZCRTPCON EQU ZCRFLGS3 03117000 ZCRTIC EQU ZCRFLGS3 03118000 ZCRCNLXL EQU ZCRRESET 03119000 ZCRENDAN EQU ZCRSWFLD 03120000 ZCRENDXL EQU ZCRSWFLD 03121000 ZCRENDX EQU ZCRSWFLD 03122000 ZCROB1 EQU ZCRNDLCP 03123000 ZCRENDPR EQU ZCRSWFLD 03124000 ZCREXTYP EQU ZCRSWFLD 03125000 ZCRSLCP EQU ZCRENDSH 03126000 ZCRIF0E3 EQU ZCRFLGS2 03127000 ZCRIF0E2 EQU ZCRFLGS2 03128000 ZCRIF0E1 EQU ZCRFLGS2 03129000 ZCROB EQU ZCRFLGS2 03130000 ZCRFMSED EQU ZCRFLGS2 03131000 ZCRSHEDI EQU ZCRFLGS2 03132000 ZCRLOCAL EQU ZCRFLGS2 03133000 ZCRFEXIT EQU ZCRFLGS1 03134000 ZCRUNSOL EQU ZCRFLGS1 03135000 ZCRENDLP EQU ZCRFLGS1 03136000 ZCRNRMEX EQU ZCRFLGS1 03137000 ZCRWAIT EQU ZCRFLGS1 03138000 ZCRDEQSW EQU ZCRFLGS1 03139000 ZCRQUESW EQU ZCRFLGS1 03140000 ZCREXSW EQU ZCRFLGS1 03141000 ZCRFRRA EQU ISTZCRR+8 03142000 ZCRCHAIN EQU ISTZCRR+4 03143000 ZCRFLAG EQU ZCRCRR+3 03144000 ZCRLEN EQU ZCRCRR+1 03145000 ZCRID EQU ZCRCRR 03146000 CCFRSVD1 EQU CFCCRT 03147000 CCFCR2 EQU CFCCRT 03148000 CCFCRP EQU CFCCRT 03149000 CCFCR1 EQU CFCCRT 03150000 CCFCS2 EQU CFCCRT 03151000 CCFCS1 EQU CFCCRT 03152000 NCFRSVD EQU CFCNTRD 03153000 NCFCR2 EQU CFCNTRD 03154000 NCFCRP EQU CFCNTRD 03155000 NCFCR1 EQU CFCNTRD 03156000 NCFCS2 EQU CFCNTRD 03157000 NCFCS1 EQU CFCNTRD 03158000 PFCRSV01 EQU ISTPFCRR+13 03159000 PFCFTA EQU ISTPFCRR+12 03160000 CRRFRR EQU PFCFRRO 03161000 CRRCHAIN EQU PFCCRRO 03162000 CRRLEN EQU PFCCRRLN 03163000 PFCRSV10 EQU PFCCRR+1 03164000 CRRID EQU PFCCRRID 03165000 ZSAZTRAC EQU ISTZSAVE+36 03166000 ZSAZSVVR EQU ISTZSAVE+12 03167000 ZSAZSVRR EQU ISTZSAVE+8 03168000 ZSAZSVFC EQU ISTZSAVE+4 03169000 ZSAZACTV EQU ZSAZSVMS 03170000 LCPFTYPE EQU LCPRPHA 03171000 LCPRSTQH EQU LCPLCCW 03172000 LCPCLREP EQU ISTLCPB+44 03173000 LCPUBFSB EQU LCPFLCCW 03174000 LCPRSV77 EQU ISTLCPB+39 03175000 LCPLCCWC EQU ISTLCPB+38 03176000 LCPRSV78 EQU LCPFLG1 03177000 LCPTRANS EQU LCPFLG1 03178000 LCPSTLB EQU LCPFLG1 03179000 LCPREDRV EQU LCPFLG1 03180000 LCPDIRPT EQU LCPFLG1 03181000 LCPINTER EQU LCPFLG1 03182000 LCPRESET EQU LCPFLG1 03183000 LCPSTYPE EQU ISTLCPB+36 03184000 LCPFSNCH EQU ISTLCPB+34 03185000 LCPFOSN EQU ISTLCPB+32 03186000 LCPTLBAD EQU ISTLCPB+28 03187000 LCPFDB2 EQU LCPFDBA+1 03188000 LCPFDB1 EQU LCPFDBA 03189000 LCPNXLCW EQU ISTLCPB+20 03190000 LCPDAF EQU LCPCID+2 03191000 LCPSAF EQU LCPCID 03192000 LCPLCCW1 EQU ISTLCPB+12 03193000 LCPRRCNT EQU LCPSEQ+1 03194000 LCPRRCCT EQU LCPSEQ 03195000 LCPATOP EQU LCPFLAG2 03196000 LCPFREE EQU LCPFLAG2 03197000 LCPDSTAT EQU LCPFLAG2 03198000 LCPEXRES EQU LCPFID0 03199000 LCPZRIMM EQU LCPTLBPI 03200000 LCPRSTRT EQU LCPFLAG2 03201000 LCPASYN EQU LCPFLAG2 03202000 LCPPRFLG EQU LCPFLAG2 03203000 LCPZMIRC EQU LCPRUCNT 03204000 LCPCHAI2 EQU LCPCHAIN+1 03205000 LCPCHNG EQU LCPCHAI1 03206000 LCPZRT0B EQU LCPMNRCD 03207000 LCPZRT0A EQU LCPMNRCD 03208000 LCPZRTL9 EQU LCPZRT09 03209000 LCPZRTL8 EQU LCPZRT08 03210000 LCPZRTL7 EQU LCPZRT07 03211000 LCPZRTL6 EQU LCPZRT06 03212000 LCPZRTL5 EQU LCPZRT05 03213000 LCPZRTL4 EQU LCPZRT04 03214000 LCPZRTL3 EQU LCPZRT03 03215000 LCPZRTL2 EQU LCPZRT02 03216000 LCPZRT01 EQU LCPFLAGS 03217000 LCPZRT00 EQU LCPFLAGS 03218000 LCPLNGTH EQU ISTLCPB+1 03219000 LCPTYPE EQU ISTLCPB 03220000 LCCWDATA EQU ISTLCCW+4 03221000 LCCWCNT EQU ISTLCCW+2 03222000 LCCWACI EQU LCCWFLAG 03223000 LCCWRFI EQU LCCWFLAG 03224000 LCCWPER EQU LCCWLSI 03225000 LCCWIDAT EQU LCCWFLAG 03226000 LCCWNTVC EQU LCCWFLAG 03227000 LCCWCKPT EQU LCCWFLAG 03228000 LCCWCC EQU LCCWFLAG 03229000 LCCWCD EQU LCCWFLAG 03230000 LCCWTYPE EQU LCCWCTL 03231000 LCCWMODE EQU LCCWCTL 03232000 LCCWSOP EQU LCCWRWOP 03233000 @NM00076 EQU LCCWRWOP 03234000 LCCWSD EQU LCCWOP 03235000 LCCWSI EQU LCCWOP 03236000 CSAVREGS EQU CSAVAREA+12 03237000 CSAVSYS EQU CSAVAREA 03238000 LGPUSECT EQU ISTLGPFX+10 03239000 LGPDTLEN EQU ISTLGPFX+8 03240000 LGPBFHDR EQU ISTLGPFX 03241000 BFHDATA EQU ISTBFHDR+8 03242000 BFHUSED EQU ISTBFHDR+6 03243000 OCWEND EQU ISTOCW+848 03244000 @NM00075 EQU OCWFLG1 03245000 OCWEXIT EQU OCWFLG1 03246000 OCWSENSE EQU ISTOCW+843 03247000 OCWBNDSZ EQU ISTOCW+841 03248000 OCWBINDD EQU OCWBIND+37 03249000 OCWBINDA EQU OCWBIND+1 03250000 OCWBINDC EQU OCWBIND 03251000 OCWSHPLC EQU OCWSHPL+8 03252000 OCWSHPLB EQU OCWSHPL+4 03253000 OCWSHPLA EQU OCWSHPL 03254000 OCWBNDRU EQU ISTOCW+780 03255000 OCWELCP EQU ISTOCW+776 03256000 OCWRSV12 EQU ISTOCW+772 03257000 OCWRSV11 EQU ISTOCW+768 03258000 OCWRSV10 EQU ISTOCW+764 03259000 OCWRSV09 EQU ISTOCW+760 03260000 OCWPROCD EQU ISTOCW+756 03261000 OCWRSV08 EQU ISTOCW+752 03262000 OCWRSV07 EQU ISTOCW+748 03263000 OCWDAF EQU OCWCID+2 03264000 OCWSAF EQU OCWCID 03265000 OCWNMLLN EQU ISTOCW+742 03266000 OCWRSV0A EQU ISTOCW+741 03267000 OCWRSV82 EQU OCWLOCKS 03268000 OCWMLOCK EQU OCWLOCKS 03269000 OCWALOCK EQU OCWLOCKS 03270000 OCWDLOCK EQU OCWLOCKS 03271000 OCWCLOCK EQU OCWLOCKS 03272000 OCWELOCK EQU OCWLOCKS 03273000 OCWRLOCK EQU OCWLOCKS 03274000 OCWVLOCK EQU OCWLOCKS 03275000 OCWACE EQU ISTOCW+736 03276000 OCWIOMIN EQU ISTOCW+735 03277000 OCWIOMAJ EQU ISTOCW+734 03278000 OCWBHSID EQU ISTOCW+733 03279000 OCWRSV03 EQU ISTOCW+732 03280000 OCWSWTE7 EQU OCWSWTE 03281000 OCWSWTE6 EQU OCWSWTE 03282000 OCWSWTE5 EQU OCWSWTE 03283000 OCWSWTE4 EQU OCWSWTE 03284000 OCWSWTE3 EQU OCWSWTE 03285000 OCWSWTE2 EQU OCWSWTE 03286000 OCWLCPBC EQU OCWSWTE 03287000 OCWSKEL EQU OCWSWTE 03288000 OCWSWTR7 EQU OCWSWTRD 03289000 OCWSWTR6 EQU OCWSWTRD 03290000 OCWSWTR5 EQU OCWSWTRD 03291000 OCWDPDVT EQU OCWSWTRD 03292000 OCWEPTLP EQU OCWSWTRD 03293000 OCWCPARE EQU OCWSWTRD 03294000 OCWCLEN EQU OCWSWTRD 03295000 OCWSRDVT EQU OCWSWTRD 03296000 OCWCLCD2 EQU ISTOCW+728 03297000 OCWCLCD1 EQU ISTOCW+726 03298000 OCWLALEN EQU ISTOCW+724 03299000 OCWSDVTA EQU ISTOCW+720 03300000 OCWOENIB EQU ISTOCW+716 03301000 OCWSORTP EQU ISTOCW+712 03302000 OCWMDVT EQU ISTOCW+708 03303000 OCWSDVT EQU ISTOCW+704 03304000 OCWPREV EQU ISTOCW+700 03305000 OCWLCPBA EQU ISTOCW+696 03306000 OCWSAVE5 EQU ISTOCW+552 03307000 OCWSAVE4 EQU ISTOCW+480 03308000 OCWSAVE3 EQU ISTOCW+408 03309000 OCWSAVE2 EQU ISTOCW+336 03310000 OCWSAVE1 EQU ISTOCW+264 03311000 OCWCSPL EQU ISTOCW+224 03312000 OCWRSVD EQU ISTOCW+212 03313000 OCWVPAB EQU ISTOCW+208 03314000 OCWSWTD7 EQU OCWSWTD 03315000 OCWSWTD6 EQU OCWSWTD 03316000 OCWSWTD5 EQU OCWSWTD 03317000 OCWSWTD4 EQU OCWSWTD 03318000 OCWSWTD3 EQU OCWSWTD 03319000 OCWSTCTL EQU OCWSWTD 03320000 OCWNPOST EQU OCWSWTD 03321000 OCWCLDEB EQU OCWSWTD 03322000 OCWVARY EQU OCWSWTC 03323000 OCWPRMTR EQU OCWSWTC 03324000 OCWPBH EQU OCWSWTC 03325000 OCWRBH EQU OCWSWTC 03326000 OCWCKACE EQU OCWSWTC 03327000 OCWODCLS EQU OCWSWTC 03328000 OCWSWTC1 EQU OCWSWTC 03329000 OCWSPCLS EQU OCWSWTC 03330000 OCWCSCAL EQU OCWSWTB 03331000 OCWPSREQ EQU OCWSWTB 03332000 OCWOLOCK EQU OCWSWTB 03333000 OCWCOREQ EQU OCWSWTB 03334000 OCWDOPHY EQU OCWSWTB 03335000 OCWCLOOP EQU OCWSWTB 03336000 OCWRECL EQU OCWSWTB 03337000 OCWGOFUN EQU OCWSWTB 03338000 OCWNODLT EQU OCWSWTA 03339000 OCWODCL EQU OCWSWTA 03340000 OCWGODST EQU OCWSWTA 03341000 OCWSORT EQU OCWSWTA 03342000 OCWGOCNT EQU OCWSWTA 03343000 OCWNOCON EQU OCWSWTA 03344000 OCWSRT EQU OCWSWTA 03345000 OCWGTLST EQU OCWSWTA 03346000 OCWSCPAD EQU ISTOCW+176 03347000 OCWDNIB EQU ISTOCW+112 03348000 OCWBADNO EQU ISTOCW+110 03349000 OCWDSTNO EQU ISTOCW+108 03350000 OCWODCT2 EQU ISTOCW+106 03351000 OCWODCT1 EQU ISTOCW+104 03352000 OCWRSV02 EQU ISTOCW+100 03353000 OCWRSV01 EQU ISTOCW+96 03354000 OCWSVEC EQU OCWSVCOD+1 03355000 OCWSVRC EQU OCWSVCOD 03356000 OCWEC EQU OCWODRC+1 03357000 OCWRC EQU OCWODRC 03358000 OCWODFST EQU ISTOCW+88 03359000 OCWODNAS EQU ISTOCW+84 03360000 OCWODLST EQU ISTOCW+80 03361000 OCWLPOST EQU ISTOCW+76 03362000 OCWCPOST EQU ISTOCW+72 03363000 OCWFPOST EQU ISTOCW+68 03364000 OCWACDEB EQU ISTOCW+64 03365000 OCWNCB EQU ISTOCW+60 03366000 OCWFMCB EQU ISTOCW+56 03367000 OCWEPTAB EQU ISTOCW+52 03368000 OCWNIB EQU ISTOCW+44 03369000 OCWDRHOB EQU OCWDRDTE 03370000 OCWCSL EQU ISTOCW+28 03371000 OCWACVT EQU ISTOCW+24 03372000 OCWPAB EQU ISTOCW+20 03373000 OCWRPH EQU ISTOCW+16 03374000 OCWCHAIN EQU ISTOCW+8 03375000 OCWPBCHN EQU ISTOCW+4 03376000 OCWTLEN EQU ISTOCW+2 03377000 OCWSLEN EQU ISTOCW+1 03378000 OCWID EQU ISTOCW 03379000 CSPRSC2B EQU ISTCSP+32 03380000 CSPTRDTE EQU ISTCSP+28 03381000 CSPRLRPH EQU ISTCSP+24 03382000 CSPNO EQU ISTCSP+22 03383000 CSPCC EQU ISTCSP+20 03384000 CSPDATA EQU ISTCSP+16 03385000 CSPRSCE EQU ISTCSP+12 03386000 CSPDEST EQU ISTCSP+8 03387000 CSPSRC EQU ISTCSP+4 03388000 @NM00074 EQU CSPOPT2 03389000 CSPRSC2F EQU CSPOPT2 03390000 CSPWASQD EQU CSPOPT2 03391000 CSPACQS EQU CSPOPT2 03392000 CSPACES EQU CSPOPT2 03393000 CSPNOREL EQU CSPOPT2 03394000 CSPCOREQ EQU CSPOPT2 03395000 CSPSTAP EQU CSPOPT2 03396000 @NM00073 EQU CSPOPT1 03397000 CSPANY EQU CSPOPT1 03398000 CSPACT EQU CSPOPT1 03399000 CSPSESS EQU CSPOPT1 03400000 CSPPND EQU CSPOPT1 03401000 CSPLOGI EQU CSPOPT1 03402000 CSPQ EQU CSPOPT1 03403000 CSPRSC EQU CSPOPT1 03404000 CSPIDX EQU ISTCSP 03405000 CSLDATAF EQU CSLDATA 03406000 CSLNIBF EQU CSLNIB 03407000 CSLRDTEF EQU CSLRDTE 03408000 PATRSV01 EQU PATFLAGA 03409000 PATUSEFG EQU PATFLAGA 03410000 PATRDCNT EQU ISTPAT+6 03411000 PATGRPID EQU ISTPAT+5 03412000 PATPTHID EQU ISTPAT+4 03413000 PATDINDX EQU ISTPAT+2 03414000 PATGINDX EQU ISTPAT 03415000 GNTGRPNM EQU ISTGNT 03416000 DNTTELNO EQU ISTDNT+1 03417000 DNTCTDIG EQU ISTDNT 03418000 RLSRSV02 EQU ISTRLS+140 03419000 RLSRSV01 EQU ISTRLS+138 03420000 RLSCTELU EQU ISTRLS+136 03421000 RLSPRE EQU ISTRLS 03422000 RDARSVPT EQU ISTRDA+84 03423000 RDAPUBI EQU ISTRDA+83 03424000 RDADFCUA EQU ISTRDA+80 03425000 RDACTPCC EQU ISTRDA+79 03426000 RDADACUA EQU ISTRDA+76 03427000 RDALUBA EQU RDAUCBAD+1 03428000 RDACHQI EQU RDAUCBAD 03429000 RDARSV01 EQU RDAFLAG 03430000 RDARBISA EQU RDAFLAG 03431000 RDAPRE EQU ISTRDA 03432000 RSWRSV01 EQU ISTRSW+152 03433000 RSWRSV02 EQU ISTRSW+150 03434000 RSWCTELU EQU ISTRSW+148 03435000 RSWGRUPZ EQU ISTRSW+146 03436000 RSWDIALZ EQU ISTRSW+144 03437000 RSWGRUPT EQU ISTRSW+140 03438000 RSWDIALT EQU ISTRSW+136 03439000 RSWPRE EQU ISTRSW 03440000 RLXRSV03 EQU ISTRLX+80 03441000 RLXRSV02 EQU ISTRLX+77 03442000 RLXRSV01 EQU RLXFLAGA 03443000 RLXINUSE EQU RLXFLAGA 03444000 RLXNLUX EQU ISTRLX+72 03445000 RLXPRE EQU ISTRLX 03446000 RPXRSV01 EQU ISTRPX+80 03447000 RPXRSV02 EQU ISTRPX+77 03448000 RPXMAXLU EQU ISTRPX+76 03449000 RPXFLUX EQU ISTRPX+72 03450000 RPXPRE EQU ISTRPX 03451000 RLURSV02 EQU ISTRLU+172 03452000 RLULGMOD EQU ISTRLU+164 03453000 RLUMODEP EQU RLUMODET+8 03454000 RLUMODEN EQU RLUMODET 03455000 RLUUSSPT EQU RLUUSSTB+8 03456000 RLUUSSNM EQU RLUUSSTB 03457000 RLURSV01 EQU ISTRLU+137 03458000 RLULOCAD EQU ISTRLU+136 03459000 RLUNCPPM EQU RLUNCPPC+1 03460000 RLUNCPPN EQU RLUNCPPC 03461000 RLUPACEM EQU RLUPACE+1 03462000 RLUPACEN EQU RLUPACE 03463000 RLUINTA EQU ISTRLU+128 03464000 RLUSSCFM EQU ISTRLU+127 03465000 RLUCRRSV EQU RLUCRFLG 03466000 RLUACTLU EQU RLUCRFLG 03467000 RLURSV00 EQU RLUFLAG 03468000 RLUGSTAT EQU RLUFLAG 03469000 RLUBATCH EQU RLUFLAG 03470000 RLURBISA EQU RLUFLAG 03471000 RLUTYPE EQU ISTRLU+124 03472000 RLUCRPR EQU ISTRLU 03473000 RCCRVPT2 EQU ISTRCC+144 03474000 RCCXTOSW EQU ISTRCC+140 03475000 RCCSWTOX EQU ISTRCC+136 03476000 RCCRSPT2 EQU ISTRCC+133 03477000 RCCADDR EQU ISTRCC+132 03478000 RCCPASSL EQU ISTRCC+131 03479000 RCCMXOUT EQU ISTRCC+130 03480000 RCCMXDAT EQU ISTRCC+128 03481000 RCCINDEX EQU ISTRCC+126 03482000 RCCPATHZ EQU ISTRCC+124 03483000 RCCPATHT EQU ISTRCC+120 03484000 RCCDPQ EQU ISTRCC+116 03485000 RCCTPAB EQU ISTRCC+112 03486000 RCCRSV02 EQU ISTRCC+109 03487000 RCCCRRSV EQU RCCCRFLG 03488000 RCCCTCFL EQU RCCCRFLG 03489000 RCCACTPU EQU RCCCRFLG 03490000 RCCNCSPL EQU ISTRCC+104 03491000 RCCRPHCN EQU ISTRCC+100 03492000 RCCEPAB EQU ISTRCC+96 03493000 RCCDPAB EQU ISTRCC+92 03494000 RCCVPAB EQU ISTRCC+88 03495000 @NM00072 EQU ISTRCC+87 03496000 RCCSESCT EQU ISTRCC+86 03497000 RCCIDNUM EQU RCCID48+3 03498000 RCCIDBLK EQU RCCID48+2 03499000 RCCIDPA2 EQU RCCID48+1 03500000 RCCIDPUT EQU RCCID48 03501000 RCCIDPA1 EQU RCCSTAID 03502000 RCCCTELU EQU ISTRCC+76 03503000 RCCCNCNT EQU ISTRCC+75 03504000 RCCRTGOH EQU RCCFLAGB 03505000 RCCBRKCN EQU RCCFLAGB 03506000 RCCRESET EQU RCCFLAGB 03507000 RCCFINAL EQU RCCFLAGB 03508000 RCCBNNSP EQU RCCFLAGB 03509000 RCCIRETR EQU RCCFLAGB 03510000 RCCDIALP EQU RCCFLAGB 03511000 RCCDSTCT EQU RCCFLAGB 03512000 RCCCTPGD EQU RCCFLAG 03513000 RCCPRGDN EQU RCCFLAG 03514000 RCCOUERP EQU RCCFLAG 03515000 RCCOHIMM EQU RCCFLAG 03516000 RCCLDISC EQU RCCFLAG 03517000 RCCERPIP EQU RCCFLAG 03518000 RCCCUDIE EQU RCCFLAG 03519000 RCCRBISA EQU RCCFLAG 03520000 RCCTYPE EQU ISTRCC+72 03521000 RCCPRE EQU ISTRCC 03522000 DOTADTRM EQU ISTDOT 03523000 RDSADDOT EQU ISTRDS+76 03524000 RDSCTATR EQU ISTRDS+74 03525000 RDSCTTRM EQU ISTRDS+72 03526000 RDSPRE EQU ISTRDS 03527000 RINRSV05 EQU ISTRIN+156 03528000 RINRSV04 EQU ISTRIN+152 03529000 RINLOCRN EQU ISTRIN+148 03530000 RINRSV02 EQU ISTRIN+145 03531000 RTRCNCNT EQU RINCNCNT 03532000 RTRNCSPL EQU RINNCSPL 03533000 RTRRPHCN EQU RINRPHCN 03534000 RTRVPAB EQU RINVPAB 03535000 RTRREMOT EQU RINREMOT 03536000 RTRRLDAF EQU RINRLDAF 03537000 RTRNODID EQU RINNODID 03538000 RINRSV01 EQU RINDFD 03539000 RTRLDISC EQU RINLDISC 03540000 RTRNODEF EQU RINNODEF 03541000 RTRREMPO EQU RINREMPO 03542000 RINCRPRE EQU ISTRIN 03543000 RTRRSV04 EQU ISTRTR+210 03544000 RTRLCTI EQU ISTRTR+209 03545000 RTRIDCAS EQU RTRBSCID+1 03546000 RTRIDLEN EQU RTRBSCID 03547000 RTRRSVDD EQU ISTRTR+181 03548000 RTRRDFG EQU ISTRTR+180 03549000 RTRDIAA EQU ISTRTR+176 03550000 RTRPOLA EQU ISTRTR+172 03551000 RTRCADDR EQU ISTRTR+164 03552000 RTRCTADR EQU ISTRTR+162 03553000 RTRCTPOL EQU ISTRTR+160 03554000 RTRCTDIA EQU ISTRTR+158 03555000 RTRRSV03 EQU ISTRTR+156 03556000 RTRRVPT1 EQU ISTRTR+152 03557000 RTRBHSN1 EQU ISTRTR+144 03558000 RTRCRSV2 EQU RTRCRFLG 03559000 RTRDTRLM EQU RTRLSCMD 03560000 RTRCRSV1 EQU RTRCRFLG 03561000 RTRTRMAX EQU ISTRTR+142 03562000 RTRRSV24 EQU RTRRDFF 03563000 RTRRFDEK EQU RTRRDFF 03564000 RTRRFANK EQU RTRRDFF 03565000 RTRRFPFK EQU RTRRDFF 03566000 RTRRFPEN EQU RTRRDFF 03567000 RTRRFXCT EQU RTRRDFF 03568000 RTRRESCT EQU RTRRDFE 03569000 RTRRESUP EQU RTRRDFE 03570000 RTRREATT EQU RTRRDFE 03571000 RTRRECHK EQU RTRRDFE 03572000 RTRREACR EQU RTRRDFE 03573000 RTRRSV0A EQU RTRRDFE 03574000 RTRREBRK EQU RTRRDFE 03575000 RTRRSV11 EQU RTRRDFD 03576000 RTRRSV10 EQU RTRRDFD 03577000 RTRRDBHI EQU RTRRDFD 03578000 RTRRDBHD EQU RTRRDFD 03579000 RTRRDBHN EQU RTRRDFD 03580000 RTRRSV23 EQU RTRRDFC 03581000 RTRRCXMS EQU RTRRDFC 03582000 RTRRCMSG EQU RTRRDFC 03583000 RTRRCBLK EQU RTRRDFC 03584000 RTRRCPT3 EQU RTRRDFC 03585000 RTRRCIT2 EQU RTRRDFC 03586000 RTRRCIT1 EQU RTRRDFC 03587000 RTRRSV32 EQU RTRRDFB 03588000 RTRRBEND EQU RTRRDFB 03589000 RTRRBECT EQU RTRRDFB 03590000 RTRRSV02 EQU RTRRDFA 03591000 RTRRACTR EQU RTRRDFA 03592000 RTRRSV60 EQU RTRRDFA 03593000 RTRRACDT EQU RTRRDFA 03594000 RTRRAPT3 EQU RTRRAALL 03595000 RTRRAPT2 EQU RTRRAALL 03596000 RTRRAPT1 EQU RTRRAALL 03597000 RTRRAATN EQU RTRRDFA 03598000 RTRRSV45 EQU ISTRTR+132 03599000 RTRRSV01 EQU ISTRTR+130 03600000 RTRCTECM EQU ISTRTR+128 03601000 RTRADRPT EQU RTRADR+1 03602000 RTRRSV22 EQU RTRFLAG 03603000 RTRVTERM EQU RTRFLAG 03604000 RTRRSV51 EQU RTRFLAG 03605000 RTRRBISA EQU RTRFLAG 03606000 RTRRSV21 EQU RTRFLAG 03607000 RTRCRPR EQU ISTRTR 03608000 RCLRVPT2 EQU ISTRCL+92 03609000 RCLRVPT1 EQU ISTRCL+88 03610000 RCLGPOLA EQU ISTRCL+84 03611000 RCLCTNGP EQU ISTRCL+82 03612000 RCLRSV01 EQU ISTRCL+80 03613000 RCLCTECM EQU ISTRCL+78 03614000 RCLCTETR EQU ISTRCL+76 03615000 RCLGPADR EQU RCLADR+1 03616000 RCLRSV33 EQU RCLFLAG 03617000 RCLBATCH EQU RCLFLAG 03618000 RCLRBISA EQU RCLFLAG 03619000 RCLRSV22 EQU RCLFLAG 03620000 RCLPRE EQU ISTRCL 03621000 RPTRSV03 EQU ISTRPT+156 03622000 RPTRSV02 EQU ISTRPT+152 03623000 RPTNSNSV EQU ISTRPT+148 03624000 RPTPTHCT EQU ISTRPT+146 03625000 RPTPEPCT EQU ISTRPT+144 03626000 RPTDAFSV EQU ISTRPT+142 03627000 RPTRSV01 EQU ISTRPT+141 03628000 RPTISTAT EQU RPTFLAG1 03629000 RPTDYNAM EQU RPTFLAG1 03630000 RPTVYIMM EQU RPTFLAG1 03631000 RPTVIODN EQU RPTFLAG1 03632000 RPTONLIN EQU RPTFLAG1 03633000 RPTHLVPD EQU RPTFLAG1 03634000 RPTVRYPD EQU RPTFLAG1 03635000 RPTASLEP EQU RPTFLAG1 03636000 RPTUTERM EQU ISTRPT+136 03637000 RPTATERM EQU ISTRPT+132 03638000 RPTDIVT EQU RPTDITT 03639000 RPTCTNM EQU ISTRPT+120 03640000 RPTLNDAF EQU RPTLNCID+2 03641000 RPTLNSAF EQU RPTLNCID 03642000 RPTLN EQU ISTRPT 03643000 RLNRVPT2 EQU ISTRLN+112 03644000 RLNNCSPL EQU ISTRLN+108 03645000 RLNX2SW EQU ISTRLN+104 03646000 @NM00071 EQU ISTRLN+103 03647000 RLNCRRSV EQU RLNCRFLG 03648000 RLNSWEP EQU RLNCRFLG 03649000 RLNSVSKP EQU RLNLSCMD 03650000 RLNSESLM EQU RLNLSCMD 03651000 RLNNPRLM EQU RLNLSCMD 03652000 RLNSWNCP EQU RLNCRFLG 03653000 RLNACTLN EQU RLNCRFLG 03654000 RLNPAUSE EQU ISTRLN+101 03655000 RLNPOLMT EQU ISTRLN+100 03656000 RLNACTSN EQU ISTRLN+98 03657000 RLNRESV1 EQU ISTRLN+97 03658000 RLNACTRM EQU ISTRLN+96 03659000 RLNCTSES EQU ISTRLN+95 03660000 RLNRDSLM EQU ISTRLN+94 03661000 RLNAUTOA EQU ISTRLN+92 03662000 RLNRDFD EQU RLNRDF+3 03663000 RLNRDFC EQU RLNRDF+2 03664000 RLNMULTP EQU RLNRDFB 03665000 RLNRATRN EQU RLNRDFB 03666000 RLNRAPOL EQU RLNRDFB 03667000 RLNTTV EQU RLNRDFB 03668000 RLNRSV0B EQU RLNRDFB 03669000 RLNAUTOD EQU RLNRDFB 03670000 RLNANSWR EQU RLNRDFB 03671000 RLNRBUSE EQU RLNRDFB 03672000 RLNRAPEP EQU RLNRDFA 03673000 RLNRANCP EQU RLNRDFA 03674000 RLNRAEP EQU RLNRDFA 03675000 RLNIDV EQU RLNRDFA 03676000 RLNPORT EQU RLNRDFA 03677000 RLNGANSW EQU RLNRDFA 03678000 RLNRACAN EQU RLNRACNT 03679000 RLNRACAT EQU RLNRACNT 03680000 RLNRSV04 EQU RLNSTAT2 03681000 RLNINUSE EQU RLNSTAT2 03682000 RLNOHIN EQU RLNSTAT2 03683000 RLNRSV03 EQU RLNSTAT1 03684000 RLNVD EQU RLNSTAT1 03685000 RLNINOPP EQU RLNSTAT1 03686000 RLNINOPL EQU RLNSTAT1 03687000 RLNLRST EQU RLNSTAT1 03688000 RLNTRAP EQU RLNSTAT1 03689000 RLNACTCT EQU ISTRLN+84 03690000 RLNCTECM EQU ISTRLN+82 03691000 RLNCTEIN EQU ISTRLN+80 03692000 RLNCTETR EQU ISTRLN+78 03693000 RLNCTECL EQU ISTRLN+76 03694000 RLNCUA EQU RLNUCBAD 03695000 RLNRSV01 EQU RLNFLAG 03696000 RLNRBISA EQU RLNFLAG 03697000 RLNEAM EQU RLNFLAG 03698000 RLNPRE EQU ISTRLN 03699000 RGPRVPT2 EQU ISTRGP+88 03700000 RGPRVPT1 EQU ISTRGP+84 03701000 RGPCTECM EQU ISTRGP+82 03702000 RGPCTEIN EQU ISTRGP+80 03703000 RGPCTETR EQU ISTRGP+78 03704000 RGPCTECL EQU ISTRGP+76 03705000 RGPCTELN EQU ISTRGP+74 03706000 RGPRSV03 EQU ISTRGP+73 03707000 RGPRSV02 EQU RGPFLG 03708000 RGPASDLC EQU RGPFLG 03709000 RGPABSC EQU RGPFLG 03710000 RGPASS EQU RGPFLG 03711000 RGPADIL EQU RGPFLG 03712000 RGPPRE EQU ISTRGP 03713000 RRNRINNM EQU ISTRRN+248 03714000 @NM00070 EQU ISTRRN+247 03715000 RRNRDCUA EQU ISTRRN+244 03716000 RRNLASTE EQU ISTRRN+240 03717000 RRNNCSPL EQU ISTRRN+236 03718000 RRNRPLPT EQU ISTRRN+232 03719000 RRNMSIZE EQU ISTRRN+228 03720000 RRNNCPNM EQU ISTRRN+221 03721000 RRNCTPCC EQU ISTRRN+220 03722000 RRNHBUFS EQU ISTRRN+218 03723000 RRNHLENT EQU RRNHPRE+1 03724000 RRNHLENH EQU RRNHPRE 03725000 RRNNMNCP EQU ISTRRN+208 03726000 RRNDELAY EQU ISTRRN+206 03727000 RRNRSV04 EQU ISTRRN+200 03728000 RRNRSV88 EQU RRNNMDPD+7 03729000 RRNPUBI EQU RRNNMDPD+6 03730000 RRNDPLUB EQU RRNNMDPD 03731000 RRNEPADR EQU ISTRRN+190 03732000 RRNCPLUB EQU ISTRRN+184 03733000 RRNFLUX EQU ISTRRN+180 03734000 RRNRSV05 EQU RRNCMFD 03735000 RRNREMPO EQU RRNCMFD 03736000 RRNCDREC EQU RRNCMFD 03737000 RRNCDDSI EQU RRNCMFD 03738000 RRNCDBCK EQU RRNCMFD 03739000 RRNCDDTL EQU RRNCMFD 03740000 RRNCDSTD EQU RRNCMFD 03741000 RRNCDCSP EQU RRNCMFD 03742000 RRNCCCSL EQU RRNCMFC 03743000 RRNCCSIM EQU RRNCMFC 03744000 RRNCCRCM EQU RRNCMFC 03745000 RRNCCRIM EQU RRNCMFC 03746000 RRNCCCRC EQU RRNCMFC 03747000 RRNCCRST EQU RRNCMFC 03748000 RRNCCRDQ EQU RRNCMFC 03749000 RRNCCRCN EQU RRNCMFC 03750000 RRNCBALT EQU RRNCMFB 03751000 RRNCBMOD EQU RRNCMFB 03752000 RRNCBNPL EQU RRNCMFB 03753000 RRNCBRLS EQU RRNCMFB 03754000 RRNCBRDS EQU RRNCMFB 03755000 RRNCBDLR EQU RRNCMFB 03756000 RRNCBDLH EQU RRNCMFB 03757000 RRNCBDLO EQU RRNCMFB 03758000 RRNCADGO EQU RRNCMFA 03759000 RRNCADTD EQU RRNCMFA 03760000 RRNCACDT EQU RRNCMFA 03761000 RRNCAMBH EQU RRNCMFA 03762000 RRNCAATI EQU RRNCMFA 03763000 RRNCAATG EQU RRNCMFA 03764000 RRNCAATD EQU RRNCMFA 03765000 RRNCAALL EQU RRNCMFA 03766000 RRNRSV55 EQU RRNRDF+3 03767000 RRNPTASL EQU RRNRDFB+1 03768000 RRNRSV01 EQU RRNRDFB+1 03769000 RRNVYDON EQU RRNRDFB+1 03770000 RRNRBBUP EQU RRNRDFB+1 03771000 RRNRSV03 EQU RRNRDFB 03772000 RRNRBCT2 EQU RRNRDFB 03773000 RRNRBCT1 EQU RRNRDFB 03774000 RRNRBSEC EQU RRNRDFB 03775000 RRNRBCCT EQU RRNRDFB 03776000 RRNRBCCL EQU RRNRDFB 03777000 RRNRSV02 EQU RRNRDFB 03778000 RRNRBMDL EQU RRNRDFB 03779000 RRNRAPEP EQU RRNRDFA 03780000 RRNRANCP EQU RRNRDFA 03781000 RRNRBREM EQU RRNRDFA 03782000 RRNRAOLT EQU RRNRDFA 03783000 RRNRASYN EQU RRNRDFA 03784000 RRNRADMP EQU RRNRDFA 03785000 RRNRAIPL EQU RRNRDFA 03786000 RRNRASHT EQU RRNRDFA 03787000 RRNCTENT EQU ISTRRN+170 03788000 RRNCTECM EQU ISTRRN+168 03789000 RRNCTEIN EQU ISTRRN+166 03790000 RRNCTETR EQU ISTRRN+164 03791000 RRNCTECL EQU ISTRRN+162 03792000 RRNCTELI EQU ISTRRN+160 03793000 RRNCTEGP EQU ISTRRN+158 03794000 RRNCTBHS EQU ISTRRN+156 03795000 RRNBHSET EQU ISTRRN+152 03796000 RRNTRENT EQU ISTRRN+148 03797000 RRNRSV22 EQU ISTRRN+147 03798000 RRNRNCUA EQU ISTRRN+144 03799000 RRNGRPA EQU ISTRRN+140 03800000 RRNLUBA EQU RRNUCBAD+1 03801000 RRNCHQI EQU RRNUCBAD 03802000 RRNRSV11 EQU RRNFLAG 03803000 RRNDSTCT EQU RRNFLAG 03804000 RRNERPIP EQU RRNFLAG 03805000 RRNLCDIP EQU RRNFLAG 03806000 RRNLCDIE EQU RRNFLAG 03807000 RRNLCSIP EQU RRNFLAG 03808000 RRNRBISA EQU RRNFLAG 03809000 RRNRSV89 EQU RRNFLAG 03810000 RRNPRE EQU ISTRRN 03811000 RLCRVPT2 EQU ISTRLC+80 03812000 RLCRVPT1 EQU ISTRLC+79 03813000 RLCLCCUA EQU ISTRLC+76 03814000 RLCUCBAD EQU RLCADR+1 03815000 RLCRSVDE EQU RLCFLAG 03816000 RLCACNT EQU RLCFLAG 03817000 RLCRSV14 EQU RLCFLAG 03818000 RLCRBISA EQU RLCFLAG 03819000 RLCRSV22 EQU RLCFLAG 03820000 RLCPRE EQU ISTRLC 03821000 RAPRVPT2 EQU ISTRAP+116 03822000 RAPRVPT1 EQU ISTRAP+112 03823000 RAPBFACT EQU ISTRAP+111 03824000 RAPRSV17 EQU RAPFLGC 03825000 RAPRSV16 EQU RAPFLGC 03826000 RAPRSV15 EQU RAPFLGC 03827000 RAPRSV14 EQU RAPFLGC 03828000 RAPRSV13 EQU RAPFLGC 03829000 RAPRSV12 EQU RAPFLGC 03830000 RAPRSV11 EQU RAPFLGC 03831000 RAPRSV10 EQU RAPFLGC 03832000 RAPRSV09 EQU RAPFLGB 03833000 RAPASPO EQU RAPFLGB 03834000 RAPAPPO EQU RAPFLGB 03835000 RAPAACQ EQU RAPFLGB 03836000 RAPAPRMT EQU RAPFLGB 03837000 RAPAPASS EQU RAPFLGB 03838000 RAPABLCK EQU RAPFLGB 03839000 RAPALLF EQU RAPFLGB 03840000 RAPRSV06 EQU RAPFLG 03841000 RAPRSV05 EQU RAPFLG 03842000 RAPRSV04 EQU RAPFLG 03843000 RAPRSV03 EQU RAPFLG 03844000 RAPATLGN EQU RAPFLG 03845000 RAPASLGI EQU RAPFLG 03846000 RAPAQUI EQU RAPFLG 03847000 RAPABLGN EQU RAPFLG 03848000 RAPACEQD EQU ISTRAP+106 03849000 RAPTRPRE EQU ISTRAP+104 03850000 RAPACEAP EQU ISTRAP+100 03851000 RAPICEAQ EQU ISTRAP+96 03852000 RAPICEAC EQU ISTRAP+92 03853000 RAPICELG EQU ISTRAP+88 03854000 RAPAPPWD EQU ISTRAP+80 03855000 RAPACDEB EQU ISTRAP+76 03856000 RAPACBA EQU ISTRAP+72 03857000 RAPPRE EQU ISTRAP 03858000 RDTVSRPL EQU ISTRDT+132 03859000 RDTCRSPW EQU ISTRDT+124 03860000 RDTCRSDS EQU ISTRDT+116 03861000 @NM00069 EQU ISTRDT+113 03862000 RRNSTCNT EQU RDTSTCNT 03863000 RRNVYRPH EQU RDTVYRPH 03864000 RDTTPAB EQU ISTRDT+104 03865000 RDTDPAB EQU ISTRDT+100 03866000 RDTEPAB EQU ISTRDT+96 03867000 RDTVPAB EQU ISTRDT+92 03868000 RDTRSV01 EQU RDTFLAGB 03869000 RDTBHSET EQU RDTFLAGB 03870000 RDTCTCFL EQU RDTFLAGB 03871000 RDTCTPGD EQU RDTFLAGB 03872000 RDTPRGDN EQU RDTFLAGB 03873000 RDTOUERP EQU RDTFLAGB 03874000 RDTLGCT EQU ISTRDT+90 03875000 RDTNODID EQU ISTRDT+89 03876000 RDTMAXID EQU ISTRDT+88 03877000 RDTCTSNT EQU ISTRDT+86 03878000 RDTFLAGS EQU ISTRDT+84 03879000 RDTBACK EQU ISTRDT+80 03880000 RDTFORW EQU ISTRDT+76 03881000 RDTLEN EQU RDTPLEN+1 03882000 RDTPRILS EQU RDTPRIOR 03883000 RDTPRISW EQU RDTPRIOR 03884000 RDTPRIRN EQU RDTPRIOR 03885000 RDTPRILC EQU RDTPRIOR 03886000 RDTPRIAP EQU RDTPRIOR 03887000 @NM00068 EQU RDTPRIOR 03888000 RDTPRE EQU ISTRDT 03889000 RCPRSV05 EQU ISTRCPRE+120 03890000 RCPRSV04 EQU ISTRCPRE+116 03891000 RCPRSV03 EQU ISTRCPRE+112 03892000 RCPINTA EQU RCPLGNIN+16 03893000 RCPLGNCT EQU RCPLGNIN+8 03894000 RCPLGNAP EQU RCPLGNIN 03895000 @NM00067 EQU RCPPMODE 03896000 RCPRRECD EQU RCPPMODE 03897000 RCPRBASC EQU RCPPMODE 03898000 RCPBFLIM EQU ISTRCPRE+90 03899000 RCPBHSI2 EQU ISTRCPRE+89 03900000 RCPBHSI1 EQU ISTRCPRE+88 03901000 RCPACETR EQU ISTRCPRE+84 03902000 RCPICEAQ EQU ISTRCPRE+80 03903000 RCPLNAPA EQU ISTRCPRE+76 03904000 RCPPRE EQU ISTRCPRE 03905000 RPRCONID EQU ISTRPRE+63 03906000 RPRCLVPD EQU RPRFLAGC 03907000 RPRINIMM EQU RPRFLAGD 03908000 RPRRSV05 EQU RPRFLAGD 03909000 @NM00066 EQU RPRFLAGD 03910000 RPRRSON EQU RPRFLAGD 03911000 RPRCONCT EQU RPRFLAGD 03912000 RPRLTASN EQU RPRFLAGD 03913000 RPRPTHCT EQU ISTRPRE+60 03914000 RPRSWDAF EQU ISTRPRE+58 03915000 RPRSTPCT EQU ISTRPRE+56 03916000 RPRRVPT1 EQU ISTRPRE+52 03917000 RPRDEVCH EQU ISTRPRE+44 03918000 RPRNCBA EQU ISTRPRE+40 03919000 RPRNSNEA EQU ISTRPRE+36 03920000 RPRLGONB EQU ISTRPRE+32 03921000 RPRLGONF EQU ISTRPRE+28 03922000 RPRHDTYP EQU ISTRPRE+27 03923000 RPRTIOCT EQU ISTRPRE+26 03924000 RPRPEPCT EQU ISTRPRE+24 03925000 RPRRSV03 EQU RPRCAUSE 03926000 RPRRSYNC EQU RPRCAUSE 03927000 RPRCRCPT EQU RPRCAUSE 03928000 RPRNOSRT EQU RPRCAUSE 03929000 RPRINTST EQU RPRFLAGB 03930000 RPRVYIMM EQU RPRFLAGB 03931000 RPRHLVPD EQU RPRFLAGB 03932000 RPRONLIN EQU RPRFLAGB 03933000 RPRVIODN EQU RPRFLAGB 03934000 RPRAOPN EQU RPRFLAGB 03935000 RPRENTVT EQU RPRFLAGB 03936000 RPRENTVH EQU RPRFLAGB 03937000 RPRLIVE EQU RPRFLAGA 03938000 RPRVRYPD EQU RPRFLAGA 03939000 RPRENTED EQU RPRFLAGA 03940000 RPRENTIO EQU RPRFLAGA 03941000 RPRENTBF EQU RPRFLAGA 03942000 RPRTIED EQU RPRFLAGA 03943000 RPRINV EQU RPRFLAGA 03944000 RPRACT EQU RPRFLAGA 03945000 RPRPELEN EQU ISTRPRE+18 03946000 RPRELEN EQU ISTRPRE+16 03947000 RPRRLOCK EQU ISTRPRE+12 03948000 RPRDAF EQU RPRCOMID+2 03949000 RPRSAF EQU RPRCOMID 03950000 RPRNAME EQU ISTRPRE 03951000 LOKXCL EQU @NM00064 03952000 LOKPRY EQU @NM00064 03953000 @NM00065 EQU @NM00064 03954000 @NM00063 EQU LOKCHNG 03955000 LOKCT EQU ISTLOK 03956000 ICERSC2B EQU ISTICE+36 03957000 ICEUECBX EQU ISTICE+32 03958000 @NM00062 EQU ISTICE+29 03959000 @NM00061 EQU ICEFLAGS 03960000 ICESTAPR EQU ICEFLAGS 03961000 ICERSC2F EQU ICEFLAGS 03962000 ICELGON EQU ICEFLAGS 03963000 ICEICX EQU ICEFLAGS 03964000 ICESPEC EQU ICEFLAGS 03965000 ICERPHA EQU ISTICE+24 03966000 ICESIDE EQU ISTICE+16 03967000 ICEOBJQ EQU ISTICE+12 03968000 ICESUBJQ EQU ISTICE+8 03969000 ICEOBJ EQU ISTICE+4 03970000 RPHNEXPO EQU ISTRPH+104 03971000 RPHSAV16 EQU RPHWORK+60 03972000 RPHSAV15 EQU RPHWORK+56 03973000 RPHSAV14 EQU RPHWORK+52 03974000 RPHSAV13 EQU RPHWORK+48 03975000 RPHSAV12 EQU RPHWORK+44 03976000 RPHSAV11 EQU RPHWORK+40 03977000 RPHSAV10 EQU RPHWORK+36 03978000 RPHSAVE9 EQU RPHWORK+32 03979000 RPHSAVE8 EQU RPHWORK+28 03980000 RPHSAVE7 EQU RPHWORK+24 03981000 RPHSAVE6 EQU RPHWORK+20 03982000 RPHSAVE5 EQU RPHWORK+16 03983000 RPHSAVE4 EQU RPHWORK+12 03984000 RPHSAVE3 EQU RPHWORK+8 03985000 RPHSAVE2 EQU RPHWORK+4 03986000 RPHSHALF EQU RPHSAVE1+2 03987000 RPHSBIT8 EQU RPHSBITS 03988000 RPHSBIT7 EQU RPHSBITS 03989000 RPHSBIT6 EQU RPHSBITS 03990000 RPHSBIT5 EQU RPHSBITS 03991000 RPHSBIT4 EQU RPHSBITS 03992000 RPHSBIT3 EQU RPHSBITS 03993000 RPHSBIT2 EQU RPHSBITS 03994000 RPHSBIT1 EQU RPHSBITS 03995000 RPHSBYTE EQU RPHSAVE1 03996000 RPHPABQP EQU RPHPABQA+1 03997000 RPHPABFG EQU RPHPABQA 03998000 RPHSRP34 EQU RPHSRPRM+2 03999000 RPHSRP12 EQU RPHSRPRM 04000000 RPHWEGT EQU RPHCSPA 04001000 RPHMAJCB EQU ISTRPH+21 04002000 RPHPABOF EQU ISTRPH+20 04003000 RPHRESUM EQU RPHRESMA+1 04004000 RPHRSV01 EQU RPHWPFLG 04005000 RPHPURGE EQU RPHWPFLG 04006000 RPHPT EQU RPHWPFLG 04007000 RPHWT EQU RPHWPFLG 04008000 RPHRSKEY EQU RPHWPFLG 04009000 RPHDVTA EQU ISTRPH+12 04010000 RPHTIK EQU RPHTSKID+3 04011000 @NM00060 EQU RPHTSKID 04012000 RPHRPHAP EQU RPHRPHA+1 04013000 @NM00059 EQU RPHRPHA 04014000 RPHGATE EQU RPHRPHA 04015000 @NM00058 EQU RPHFLGB 04016000 RPHRLCRA EQU RPHFLGB 04017000 RPHNRSAV EQU RPHFLGB 04018000 RPHPGCMP EQU RPHFLGB 04019000 RPHFBAPS EQU RPHFLGB 04020000 RPHBSSP EQU RPHFLGB 04021000 RPHLOCK EQU RPHFLGB 04022000 RPHFNFLG EQU RPHFSTLC 04023000 RPHMLTCP EQU RPHFLAGS 04024000 RPHSMCLR EQU RPHFLAGS 04025000 RPHSMTYP EQU RPHFLAGS 04026000 RPHSMQ EQU RPHFLAGS 04027000 RPHAUTEX EQU RPHAPTYP 04028000 RPHSPGIN EQU RPHFLAGS 04029000 RPHOGIND EQU RPHFLAGS 04030000 RPHLNGTH EQU ISTRPH+1 04031000 RPHTYPE EQU ISTRPH 04032000 NIBRESV EQU ISTNIB+60 04033000 NIBNDAR EQU ISTNIB+56 04034000 NIBLMODE EQU ISTNIB+48 04035000 NIBEXLST EQU ISTNIB+44 04036000 NIBLIMIT EQU ISTNIB+42 04037000 @NM00057 EQU ISTNIB+41 04038000 @NM00056 EQU NIBFLG1 04039000 @NM00055 EQU NIBFLG1 04040000 @NM00054 EQU NIBFLG1 04041000 @NM00053 EQU NIBFLG1 04042000 NIBSHLTP EQU NIBFLG1 04043000 NIBSDAPP EQU NIBFLG1 04044000 NIBCON EQU NIBFLG1 04045000 NIBLAST EQU NIBFLG1 04046000 NIBPROCD EQU ISTNIB+36 04047000 NIBDEVCH EQU ISTNIB+28 04048000 NIBMODE EQU ISTNIB+20 04049000 NIBSYM EQU ISTNIB+12 04050000 NIBUSER EQU ISTNIB+8 04051000 NIBCID EQU ISTNIB+4 04052000 NIBLEN EQU ISTNIB+3 04053000 NIBCONDN EQU ISTNIB+2 04054000 NIBRSV01 EQU ISTNIB+1 04055000 NIBID EQU ISTNIB 04056000 PROSRDEF EQU PROSETM4 04057000 PRORSV47 EQU PROSETM4 04058000 PROSCON EQU PROSETM4 04059000 PRORSV46 EQU PROSETM3 04060000 PROSMONT EQU PROSETM3 04061000 PRORSV45 EQU PROSETM3 04062000 PROSNTO EQU PROSETM3 04063000 PRORSV44 EQU PROSETM3 04064000 PRORSV43 EQU PROSETM2 04065000 PROSNTFL EQU PROSETM2 04066000 PRORSV42 EQU PROSETM2 04067000 PRORSV41 EQU PROPROCS 04068000 PROMODC EQU PROPROC4 04069000 PROMODT EQU PROPROC4 04070000 PROMODM EQU PROPROC4 04071000 PROMODB EQU PROPROC4 04072000 PRORSV14 EQU PROPROC4 04073000 PRORSV13 EQU PROPROC4 04074000 PRORSV12 EQU PROPROC4 04075000 PROEIB EQU PROPROC4 04076000 PRORSV11 EQU PROPROC3 04077000 PROMONT2 EQU PROPROC3 04078000 PROMONIT EQU PROPROC3 04079000 PROSUBLK EQU PROPROC3 04080000 PRONTO EQU PROPROC3 04081000 PROLGIN EQU PROPROC3 04082000 PROERPI EQU PROPROC3 04083000 PRORSV07 EQU PROPROC3 04084000 PROCFTX EQU PROPROC2 04085000 PROEMLC EQU PROPROC2 04086000 PRONTFL EQU PROPROC2 04087000 PRORSV05 EQU PROPROC2 04088000 PRORSV04 EQU PROPROC2 04089000 PROLGOT EQU PROPROC2 04090000 PROERPO EQU PROPROC2 04091000 PRORSV03 EQU PROPROC2 04092000 PRORPLC EQU PROPROC1 04093000 PROCS EQU PROPROC1 04094000 PROCA EQU PROPROC1 04095000 PRORESPX EQU PROPROC1 04096000 PRODFASY EQU PROPROC1 04097000 PROXPOPT EQU PROPROC1 04098000 PROTRUNC EQU PROPROC1 04099000 PROASYIP EQU PROPROC1 04100000 DEVRSV03 EQU ISTDEVCH+5 04101000 DEVPHYSA EQU ISTDEVCH+4 04102000 DEVCSLPN EQU DEVCHAR3 04103000 DEVCSTCL EQU DEVCHAR3 04104000 DEVCCHEK EQU DEVCHAR3 04105000 DEVCATTN EQU DEVCHAR3 04106000 DEVCSWL EQU DEVFCCTL 04107000 DEVCRVB EQU DEVFCCTL 04108000 DEVCSSL EQU DEVFCCTL 04109000 DEVCBSC EQU DEVFCCTL 04110000 DEVMCODE EQU ISTDEVCH+2 04111000 DEVCHAR2 EQU DEVTCODE 04112000 DEVRSV01 EQU DEVCHAR 04113000 DEVCCTL EQU DEVCHAR 04114000 DEVNNSPT EQU DEVCHAR 04115000 DEVSPS EQU DEVCHAR 04116000 DEVSUBND EQU DEVCHAR 04117000 DEVCONVR EQU DEVCHAR 04118000 DEVOTPUT EQU DEVCHAR 04119000 DEVINPUT EQU DEVCHAR 04120000 BINUSE EQU ISTBIND+36 04121000 BINPRIM EQU ISTBIND+27 04122000 BINPRIML EQU ISTBIND+26 04123000 BINPRSVC EQU ISTBIND+7 04124000 BINCONR EQU BINCMNP2 04125000 BINRCHN EQU BINCMNP2 04126000 BINMDIBK EQU BINCMNP2 04127000 BINBKFS EQU BINCMNP2 04128000 BINRCVR EQU BINCMNP2 04129000 BINFMTRM EQU BINCMNP2 04130000 BINRSV04 EQU BINCMNP 04131000 BINALT EQU BINCMNP 04132000 BINBKTR EQU BINCMNP 04133000 BINBRAK EQU BINCMNP 04134000 BINFMHD EQU BINCMNP 04135000 BINRSV03 EQU BINCMNP 04136000 BINSSEB EQU BINSECP 04137000 BINSCMP EQU BINSECP 04138000 BINRSV02 EQU BINSECP 04139000 BINSCHNR EQU BINSECP 04140000 BINSMCH EQU BINSECP 04141000 BINSCHN EQU BINSECP 04142000 BINPSEB EQU BINPRIP 04143000 BINPCMP EQU BINPRIP 04144000 BINRSV01 EQU BINPRIP 04145000 BINPCHNR EQU BINPRIP 04146000 BINPMCH EQU BINPRIP 04147000 BINPCHN EQU BINPRIP 04148000 BINTS EQU ISTBIND+2 04149000 BINFM EQU ISTBIND+1 04150000 BINTYPE EQU BINFMTY 04151000 BINFMT EQU BINFMTY 04152000 RPLSEQNO EQU RPLOF60+6 04153000 @NM00028 EQU RPLIBSQ 04154000 RPLIINV EQU RPLIBSQ 04155000 RPLINEG EQU RPLIBSQ 04156000 RPLIPOS EQU RPLIBSQ 04157000 RPLIIGN EQU RPLIBSQ 04158000 RPLIRSET EQU RPLIBSQ 04159000 RPLITST EQU RPLIBSQ 04160000 RPLISET EQU RPLIBSQ 04161000 @NM00027 EQU RPLOBSQ 04162000 RPLOINV EQU RPLOBSQ 04163000 RPLONEG EQU RPLOBSQ 04164000 RPLOPOS EQU RPLOBSQ 04165000 RPLOIGN EQU RPLOBSQ 04166000 RPLORSET EQU RPLOBSQ 04167000 RPLOTST EQU RPLOBSQ 04168000 RPLOSET EQU RPLOBSQ 04169000 RPLIBSQV EQU RPLOF60+2 04170000 RPLOBSQV EQU RPLOF60 04171000 @NM00026 EQU RPLCNTSC 04172000 RPLRSHUT EQU RPLCNTSC 04173000 RPLRQR EQU RPLCNTSC 04174000 RPLSHUTC EQU RPLCNTSC 04175000 RPLSHUTD EQU RPLCNTSC 04176000 RPLSTSN EQU RPLCNTSC 04177000 RPLCLEAR EQU RPLCNTSC 04178000 RPLSDT EQU RPLCNTSC 04179000 @NM00025 EQU RPLCNTDC 04180000 RPLSIGNL EQU RPLCNTDC 04181000 RPLLUS EQU RPLCNTDC 04182000 RPLRTR EQU RPLCNTDC 04183000 RPLBID EQU RPLCNTDC 04184000 @NM00024 EQU RPLCNTDF 04185000 RPLQI EQU RPLCNTDF 04186000 RPLRELQ EQU RPLCNTDF 04187000 RPLCHASE EQU RPLCNTDF 04188000 RPLQEC EQU RPLCNTDF 04189000 RPLQC EQU RPLCNTDF 04190000 RPLCNCEL EQU RPLCNTDF 04191000 RPLDATA EQU RPLCNTDF 04192000 RPLRRN EQU RPLRESP 04193000 RPLNFME EQU RPLRESP 04194000 RPLEX EQU RPLRESP 04195000 @NM00023 EQU RPLRESP 04196000 @NM00022 EQU RPLPOSTV 04197000 RPLSCHED EQU RPLPOSTV 04198000 @NM00021 EQU RPLVTFL1 04199000 RPLAUTUS EQU RPLVTFL1 04200000 RPLVTUSE EQU RPLVTFL1 04201000 @NM00020 EQU RPLVTFL1 04202000 @NM00019 EQU RPLCHN 04203000 RPLONLY EQU RPLCHN 04204000 RPLLAST EQU RPLCHN 04205000 RPLMIDLE EQU RPLCHN 04206000 RPLFIRST EQU RPLCHN 04207000 @NM00018 EQU RPLRTYPE 04208000 RPLDFASY EQU RPLRTYPE 04209000 RPLNFSYN EQU RPLRTYPE 04210000 RPLRRESP EQU RPLRTYPE 04211000 @NM00017 EQU RPLSTYPE 04212000 RPLSRESP EQU RPLSTYPE 04213000 @NM00016 EQU RPLRH3 04214000 RPLCSI EQU RPLRH3 04215000 RPLCHREQ EQU RPLRH3 04216000 RPLCMD EQU RPLRH3 04217000 RPLEB EQU RPLRH3 04218000 RPLBB EQU RPLRH3 04219000 RPLSIGDA EQU RPLVTEXT+32 04220000 RPLSAV13 EQU RPLVTEXT+28 04221000 RPLUSNSO EQU RPLOSENS+2 04222000 RPLSSMO EQU RPLSSNSO+1 04223000 @NM00015 EQU RPLSSEO 04224000 RPLRRO EQU RPLSSEO 04225000 RPLFIO EQU RPLSSEO 04226000 RPLSTATO EQU RPLSSEO 04227000 RPLCPMO EQU RPLSSEO 04228000 @NM00014 EQU RPLSSEO 04229000 RPLFMHDR EQU RPLOPT12 04230000 @NM00013 EQU RPLOPT12 04231000 @NM00012 EQU RPLOPT12 04232000 @NM00011 EQU RPLOPT12 04233000 RPLNIBTK EQU RPLOPT12 04234000 RPLTRUNC EQU RPLOPT12 04235000 RPLKEEP EQU RPLOPT12 04236000 @NM00010 EQU RPLOPT12 04237000 RPLRSVE8 EQU RPLOPT11 04238000 RPLRSVE7 EQU RPLOPT11 04239000 RPLRSVE6 EQU RPLOPT11 04240000 RPLRSVE5 EQU RPLOPT11 04241000 RPLRSVE4 EQU RPLOPT11 04242000 RPLSTOP EQU RPLOPT11 04243000 RPLSTART EQU RPLOPT11 04244000 RPLQUIES EQU RPLOPT11 04245000 RPLRSVI6 EQU RPLOPT10 04246000 RPLRSVI5 EQU RPLOPT10 04247000 RPLRSVI4 EQU RPLOPT10 04248000 RPLRSVI3 EQU RPLOPT10 04249000 RPLRSVI2 EQU RPLOPT10 04250000 RPLSPARM EQU RPLOPT10 04251000 RPLDSPLY EQU RPLOPT10 04252000 RPLBSCID EQU RPLOPT10 04253000 RPLTOPL EQU RPLOPT9 04254000 RPLCIDE EQU RPLOPT9 04255000 RPLRNNM EQU RPLOPT9 04256000 RPLAPPST EQU RPLOPT9 04257000 RPLCOUNT EQU RPLOPT9 04258000 RPLTERMS EQU RPLOPT9 04259000 RPLDEVCH EQU RPLOPT9 04260000 RPLLOGON EQU RPLOPT9 04261000 RPLUSFLD EQU RPLVTEXT+16 04262000 RPLESR2 EQU RPLUSNSI+1 04263000 RPLESR1 EQU RPLUSNSI 04264000 RPLSSMI EQU RPLDSB2 04265000 @NM00009 EQU RPLSSEI 04266000 RPLRRI EQU RPLSSEI 04267000 RPLFII EQU RPLSSEI 04268000 RPLSTATI EQU RPLSSEI 04269000 RPLCPMI EQU RPLSSEI 04270000 RPLPATHI EQU RPLSSEI 04271000 RPLARCLN EQU RPLVTEXT+8 04272000 RPLAARLN EQU RPLVTEXT+4 04273000 RPLAAREA EQU RPLVTEXT 04274000 RPLERMSA EQU RPLCOMN+72 04275000 RPLEMLEN EQU RPLCOMN+70 04276000 RPLACTIV EQU RPLCOMN+69 04277000 RPLBRANC EQU RPLEXTD1 04278000 RPLNIB EQU RPLEXTD1 04279000 @NM00008 EQU RPLEXTD1 04280000 RPLEXIT EQU RPLEXTD1 04281000 RPLNEXIT EQU RPLEXTD1 04282000 RPLEXSCH EQU RPLEXTD1 04283000 RPLDDDD EQU RPLRBAR+4 04284000 @NM00007 EQU RPLRBAR+3 04285000 @NM00006 EQU RPLAIXID 04286000 RPLAXPKP EQU RPLAIXID 04287000 RPLAIXPC EQU RPLRBAR 04288000 RPLRSV88 EQU RPLOPT8 04289000 RPLUNCON EQU RPLOPT8 04290000 RPLACTV EQU RPLOPT8 04291000 RPLSESS EQU RPLOPT8 04292000 RPLPEND EQU RPLOPT8 04293000 RPLODPRM EQU RPLOPT8 04294000 RPLODACP EQU RPLOPT8 04295000 RPLODACQ EQU RPLOPT8 04296000 RPLRSV78 EQU RPLOPT7 04297000 RPLRSV77 EQU RPLOPT7 04298000 RPLRLSOP EQU RPLOPT7 04299000 RPLTPOST EQU RPLOPT7 04300000 RPLQOPT EQU RPLOPT7 04301000 RPLCNIMM EQU RPLCNOPT 04302000 RPLCNANY EQU RPLCNOPT 04303000 RPLCNALL EQU RPLCNOPT 04304000 RPLRSV68 EQU RPLOPT6 04305000 RPLRSV67 EQU RPLOPT6 04306000 RPLLOCK EQU RPLOPT6 04307000 RPLNCOND EQU RPLOPT6 04308000 RPLCOND EQU RPLOPT6 04309000 RPLEOT EQU RPLUNTYP 04310000 RPLEOM EQU RPLUNTYP 04311000 RPLEOB EQU RPLUNTYP 04312000 RPLWROPT EQU RPLOPT5 04313000 RPLNODE EQU RPLOPT5 04314000 RPLERACE EQU RPLWRTYP 04315000 RPLEAU EQU RPLWRTYP 04316000 RPLNERAS EQU RPLWRTYP 04317000 RPLPSOPT EQU RPLOPT5 04318000 @NM00005 EQU RPLOPT5 04319000 RPLDLGIN EQU RPLOPT5 04320000 RPLRLEN EQU RPLCOMN+48 04321000 RPLCHAIN EQU RPLNXTRP 04322000 RPLBOP EQU RPLOPT4 04323000 @NM00004 EQU RPLOPT4 04324000 RPLMKFRM EQU RPLOPT4 04325000 RPLENDTR EQU RPLOPT4 04326000 RPLALIGN EQU RPLOPT3 04327000 RPLFMT EQU RPLOPT3 04328000 RPLFLD EQU RPLOPT3 04329000 RPLVFY EQU RPLOPT3 04330000 RPLBLK EQU RPLOPT3 04331000 RPLSFORM EQU RPLOPT3 04332000 RPLEODS EQU RPLOPT3 04333000 RPLNSP EQU RPLOPT2 04334000 RPLUPD EQU RPLOPT2 04335000 @NM00003 EQU RPLOPT2 04336000 RPLLRD EQU RPLOPT2 04337000 RPLBWD EQU RPLOPT2 04338000 RPLCNV EQU RPLOPT2 04339000 RPLADD EQU RPLADR 04340000 RPLKEY EQU RPLOPT2 04341000 RPLECBIN EQU RPLECBSW 04342000 RPLGEN EQU RPLOPT1 04343000 RPLKGE EQU RPLOPT1 04344000 RPLASY EQU RPLOPT1 04345000 RPLSKP EQU RPLOPT1 04346000 RPLSEQ EQU RPLOPT1 04347000 RPLDIR EQU RPLOPT1 04348000 RPLLOC EQU RPLOPT1 04349000 RPLDAF EQU RPLARG+2 04350000 RPLSAF EQU RPLARG 04351000 RPLTCBPT EQU RPLCOMN+28 04352000 RPLDACB EQU RPLCOMN+24 04353000 RPLCCHAR EQU RPLCOMN+20 04354000 RPLSTRID EQU RPLCOMN+18 04355000 RPLKEYL EQU RPLKEYLE 04356000 RPLRDSOH EQU RPLFDB3 04357000 RPLRLG EQU RPLFDB3 04358000 RPLLGFRC EQU RPLFDB3 04359000 RPLREOT EQU RPLFDB3 04360000 RPLREOM EQU RPLFDB3 04361000 RPLREOB EQU RPLFDB3 04362000 RPLSV32 EQU RPLFDB3 04363000 RPLUINPT EQU RPLFDB3 04364000 RPLSTSAV EQU RPLFDB2 04365000 RPLCUERR EQU RPLFDB2 04366000 RPLDLGFL EQU RPLFDB2 04367000 RPLIOERR EQU RPLFDB2 04368000 RPLDVUNS EQU RPLFDB2 04369000 RPLATND EQU RPLFDB2 04370000 RPLRVID EQU RPLFDB2 04371000 RPLERLK EQU RPLFDB2 04372000 RPLERREG EQU RPLRTNCD 04373000 RPLSTAT EQU RPLFDBWD 04374000 RPLPOST EQU RPLECB 04375000 RPLWAIT EQU RPLECB 04376000 RPLPLHPT EQU RPLCOMN+4 04377000 RPLLEN2 EQU RPLLEN 04378000 RPLREQ EQU RPLIDWD+2 04379000 RPLSTYP EQU RPLIDWD+1 04380000 RPLID EQU RPLIDWD 04381000 CVTLEVL EQU CVTRELNO+2 04382000 CVTNUMB EQU CVTRELNO 04383000 CVTMDL EQU CVTFIX+250 04384000 @NM00002 EQU CVTFIX+248 04385000 @NM00001 EQU CVTFIX 04386000 CVTRV482 EQU CVTXTNT2+128 04387000 CVTRV481 EQU CVTXTNT2+124 04388000 CVTRV480 EQU CVTXTNT2+120 04389000 CVTRV479 EQU CVTXTNT2+118 04390000 CVTRV478 EQU CVTXTNT2+117 04391000 CVTRV477 EQU CVTXTNT2+116 04392000 CVTRV476 EQU CVTXTNT2+115 04393000 CVTRV475 EQU CVTXTNT2+114 04394000 CVTRV474 EQU CVTRV466 04395000 CVTRV473 EQU CVTRV466 04396000 CVTRV472 EQU CVTRV466 04397000 CVTRV471 EQU CVTRV466 04398000 CVTRV470 EQU CVTRV466 04399000 CVTRV469 EQU CVTRV466 04400000 CVTRV468 EQU CVTRV466 04401000 CVTRV467 EQU CVTRV466 04402000 CVTRV465 EQU CVTRV457 04403000 CVTRV464 EQU CVTRV457 04404000 CVTRV463 EQU CVTRV457 04405000 CVTRV462 EQU CVTRV457 04406000 CVTRV461 EQU CVTRV457 04407000 CVTRV460 EQU CVTRV457 04408000 CVTRV459 EQU CVTRV457 04409000 CVTRV458 EQU CVTRV457 04410000 CVTRV456 EQU CVTXTNT2+108 04411000 CVTRV455 EQU CVTXTNT2+104 04412000 CVTRV454 EQU CVTXTNT2+100 04413000 CVTRV453 EQU CVTXTNT2+96 04414000 CVTRV452 EQU CVTXTNT2+94 04415000 CVTRV451 EQU CVTXTNT2+92 04416000 CVTRV450 EQU CVTXTNT2+90 04417000 CVTRV449 EQU CVTXTNT2+88 04418000 CVTRV448 EQU CVTXTNT2+87 04419000 CVTRV447 EQU CVTXTNT2+86 04420000 CVTRV446 EQU CVTRV438 04421000 CVTRV445 EQU CVTRV438 04422000 CVTRV444 EQU CVTRV438 04423000 CVTRV443 EQU CVTRV438 04424000 CVTRV442 EQU CVTRV438 04425000 CVTRV441 EQU CVTRV438 04426000 CVTRV440 EQU CVTRV438 04427000 CVTRV439 EQU CVTRV438 04428000 CVTRV437 EQU CVTRV429 04429000 CVTRV436 EQU CVTRV429 04430000 CVTRV435 EQU CVTRV429 04431000 CVTRV434 EQU CVTRV429 04432000 CVTRV433 EQU CVTRV429 04433000 CVTRV432 EQU CVTRV429 04434000 CVTRV431 EQU CVTRV429 04435000 CVTRV430 EQU CVTRV429 04436000 CVTRV428 EQU CVTXTNT2+80 04437000 CVTRV427 EQU CVTXTNT2+76 04438000 CVTRV426 EQU CVTXTNT2+72 04439000 CVTRV425 EQU CVTXTNT2+68 04440000 CVTATACT EQU CVTATCVT 04441000 CVTRV423 EQU CVTXTNT2+62 04442000 CVTRV422 EQU CVTXTNT2+60 04443000 CVTRV421 EQU CVTXTNT2+58 04444000 CVTRV420 EQU CVTXTNT2+56 04445000 CVTRV419 EQU CVTXTNT2+55 04446000 CVTRV418 EQU CVTXTNT2+54 04447000 CVTRV417 EQU CVTRV409 04448000 CVTRV416 EQU CVTRV409 04449000 CVTRV415 EQU CVTRV409 04450000 CVTRV414 EQU CVTRV409 04451000 CVTRV413 EQU CVTRV409 04452000 CVTRV412 EQU CVTRV409 04453000 CVTRV411 EQU CVTRV409 04454000 CVTRV410 EQU CVTRV409 04455000 CVTRV408 EQU CVTRV400 04456000 CVTRV407 EQU CVTRV400 04457000 CVTRV406 EQU CVTRV400 04458000 CVTRV405 EQU CVTRV400 04459000 CVTRV404 EQU CVTRV400 04460000 CVTRV403 EQU CVTRV400 04461000 CVTRV402 EQU CVTRV400 04462000 CVTRV401 EQU CVTRV400 04463000 CVTICB EQU CVTXTNT2+48 04464000 CVTSKTA EQU CVTXTNT2+44 04465000 CVTSHSB EQU CVTSHS 04466000 CVTRSV98 EQU CVTXTNT2+36 04467000 CVTRSV97 EQU CVTXTNT2+34 04468000 CVTRSV96 EQU CVTXTNT2+32 04469000 CVTOLTEP EQU CVTXTNT2+28 04470000 CVTQIDA EQU CVTQID+1 04471000 CVTRSV95 EQU CVTQID 04472000 CVTRSV94 EQU CVTXTNT2+20 04473000 CVTRSV93 EQU CVTXTNT2+16 04474000 CVTRSV92 EQU CVTXTNT2+12 04475000 CVTDEBVR EQU CVTXTNT2+8 04476000 CVTRSV91 EQU CVTXTNT2+6 04477000 CVTRSV9H EQU CVTFLGBT 04478000 CVTRSV9G EQU CVTFLGBT 04479000 CVTRSV9F EQU CVTFLGBT 04480000 CVTRSV9E EQU CVTFLGBT 04481000 CVTRSV9D EQU CVTFLGBT 04482000 CVTRSV9C EQU CVTFLGBT 04483000 CVTVME EQU CVTFLGBT 04484000 CVTNPE EQU CVTFLGBT 04485000 CVTNUCLS EQU CVTXTNT2+4 04486000 CVTDSSVA EQU CVTDSSV+1 04487000 CVTRSV89 EQU CVTDSSV 04488000 CVTRSV88 EQU CVTXTNT1+8 04489000 CVTRSV87 EQU CVTXTNT1+4 04490000 CVTFACHN EQU CVTXTNT1 04491000 CVTRV488 EQU CVTMAP+412 04492000 CVTRV487 EQU CVTMAP+408 04493000 CVTRV486 EQU CVTMAP+404 04494000 CVTRV485 EQU CVTMAP+400 04495000 CVTACTAP EQU CVTMAP+396 04496000 CVTAUTH EQU CVTMAP+392 04497000 CVTATMCA EQU CVTATMCT+1 04498000 CVTATMST EQU CVTATMCT 04499000 CVTRSV61 EQU CVTMAP+384 04500000 CVTVOLT1 EQU CVTVOLM1+1 04501000 CVTVOLI1 EQU CVTVOLF1 04502000 CVTSTOA EQU CVTMAP+376 04503000 CVTRSV58 EQU CVTMAP+374 04504000 CVTRSV57 EQU CVTMAP+372 04505000 CVTDDCE EQU CVTMAP+368 04506000 CVTPNWFR EQU CVTMAP+364 04507000 CVTSMF EQU CVTMAP+360 04508000 CVTSULK EQU CVTMAP+358 04509000 CVTSLKO EQU CVTSYSK 04510000 CVTSLKP EQU CVTSYSK 04511000 CVTSLKQ EQU CVTSYSK 04512000 CVTSLKR EQU CVTSYSK 04513000 CVTRSV56 EQU CVTSYSK 04514000 CVTRSV55 EQU CVTSYSK 04515000 CVTRSV54 EQU CVTSYSK 04516000 CVTRSV53 EQU CVTSYSK 04517000 CVTRSV52 EQU CVTA1F1 04518000 CVTRSV51 EQU CVTA1F1 04519000 CVTRSV50 EQU CVTA1F1 04520000 CVTRSV49 EQU CVTA1F1 04521000 CVTRSV48 EQU CVTA1F1 04522000 CVTRSV47 EQU CVTA1F1 04523000 CVTSRSW EQU CVTA1F1 04524000 CVTPFSW EQU CVTA1F1 04525000 CVTPCVT EQU CVTMAP+352 04526000 CVTRSV46 EQU CVTMAP+344 04527000 CVTRSV45 EQU CVTMAP+340 04528000 CVTRSV44 EQU CVTMAP+338 04529000 CVTRSV43 EQU CVTMAP+336 04530000 CVTHJESA EQU CVTHJES+1 04531000 CVTRSV42 EQU CVTHJES 04532000 CVTEXT2A EQU CVTEXT2+1 04533000 CVTRSV41 EQU CVTEXT2 04534000 CVTAPFA EQU CVTAPF+1 04535000 CVTRSV40 EQU CVTAPF 04536000 CVTRV518 EQU CVTINTLA 04537000 CVTRV517 EQU CVTERPV 04538000 CVTEORM EQU CVTMAP+312 04539000 CVTMCHPR EQU CVTMAP+308 04540000 CVTTZ EQU CVTMAP+304 04541000 CVTJEPS EQU CVTMAP+300 04542000 CVTJESCT EQU CVTMAP+296 04543000 CVTMODE EQU CVTMAP+292 04544000 CVTPTRV EQU CVTMAP+288 04545000 CVTREAL EQU CVTMAP+284 04546000 CVTRSV39 EQU CVTMAP+280 04547000 CVTRSV38 EQU CVTMAP+276 04548000 CVTDMSRA EQU CVTDMSR+1 04549000 CVTRSV37 EQU CVTDMSR 04550000 CVTQMSGA EQU CVTQMSG+1 04551000 CVTRSV36 EQU CVTQMSG 04552000 CVTAMFF EQU CVTMAP+264 04553000 CVTPURGA EQU CVTPURG+1 04554000 CVTRSV35 EQU CVTPURG 04555000 CVTCBSP EQU CVTMAP+256 04556000 CVTATERA EQU CVTATER+1 04557000 CVTSYST EQU CVTATER 04558000 CVTVOLT2 EQU CVTTAT 04559000 CVTVOLI2 EQU CVTVOLF2 04560000 CVTAQAVB EQU CVTAQAVT+1 04561000 CVTRSV34 EQU CVTTCMFG 04562000 CVTRSV33 EQU CVTTCMFG 04563000 CVTRSV32 EQU CVTTCMFG 04564000 CVTRSV31 EQU CVTTCMFG 04565000 CVTRSV30 EQU CVTTCMFG 04566000 CVTRSV29 EQU CVTTCMFG 04567000 CVTRSV28 EQU CVTTCMFG 04568000 CVTTCRDY EQU CVTTCMFG 04569000 CVTGTFA EQU CVTGTF+1 04570000 CVTRSV27 EQU CVTGTFST 04571000 CVTRNIO EQU CVTGTFST 04572000 CVTUSR EQU CVTGTFST 04573000 CVTRV318 EQU CVTFORM 04574000 CVTRV317 EQU CVTTMODE 04575000 CVTRV316 EQU CVTSTATE 04576000 CVTRV315 EQU CVTGTFS 04577000 CVTGTFAV EQU CVTGTFS 04578000 CVT0SCR1 EQU CVTMAP+232 04579000 CVTRV515 EQU CVTMAP+228 04580000 CVTRMS EQU CVTMAP+224 04581000 CVTPATCH EQU CVTMAP+220 04582000 CVTTSCE EQU CVTMAP+216 04583000 CVTLNKSC EQU CVTMAP+214 04584000 CVTQABST EQU CVTMAP+212 04585000 CVTMDLDS EQU CVTMAP+208 04586000 CVTUSER EQU CVTMAP+204 04587000 CVTABEND EQU CVTMAP+200 04588000 CVTSMCA EQU CVTMAP+196 04589000 CVTRSV18 EQU CVTMAP+192 04590000 CVTQLPAQ EQU CVTMAP+188 04591000 CVTQCDSR EQU CVTMAP+184 04592000 CVTRSV17 EQU CVTOPTB 04593000 CVTRSV16 EQU CVTOPTB 04594000 CVTFP EQU CVTOPTB 04595000 CVTAPTHR EQU CVTOPTB 04596000 CVTNLOG EQU CVTOPTB 04597000 CVTTOD EQU CVTOPTB 04598000 CVTCTIMS EQU CVTOPTB 04599000 CVTPROT EQU CVTOPTB 04600000 CVTXPFP EQU CVTOPTA 04601000 CVTASCII EQU CVTOPTA 04602000 CVTRSV13 EQU CVTOPTA 04603000 CVTRSV12 EQU CVTOPTA 04604000 CVTNIP EQU CVTOPTA 04605000 CVTDDR EQU CVTOPTA 04606000 CVTAPR EQU CVTOPTA 04607000 CVTCCH EQU CVTOPTA 04608000 CVTSNCTR EQU CVTMAP+180 04609000 CVTQMWR EQU CVTMAP+176 04610000 CVTQOCR EQU CVTMAP+172 04611000 CVT1EF00 EQU CVTMAP+168 04612000 CVTMZ00 EQU CVTMAP+164 04613000 CVTHEAD EQU CVTMAP+160 04614000 CVTRSV11 EQU CVTMAP+156 04615000 CVT0PT01 EQU CVTMAP+152 04616000 CVTMSER EQU CVTMAP+148 04617000 CVTRV516 EQU CVTIERLC 04618000 CVTILCH EQU CVTMAP+140 04619000 CVT0DS EQU CVTMAP+136 04620000 CVTFBOSV EQU CVTMAP+132 04621000 CVTNUCB EQU CVTMAP+128 04622000 CVTIXAVL EQU CVTMAP+124 04623000 CVTIOQET EQU CVTMAP+120 04624000 CVTDCBA EQU CVTMAP+117 04625000 CVTMVS2 EQU CVTDCB 04626000 CVT6DAT EQU CVTDCB 04627000 CVT4MPS EQU CVTDCB 04628000 CVTRSV09 EQU CVTDCB 04629000 CVT4MS1 EQU CVTDCB 04630000 CVT2SPS EQU CVTDCB 04631000 CVT1SSS EQU CVTDCB 04632000 CVTRSV08 EQU CVTDCB 04633000 CVTSTB EQU CVTMAP+112 04634000 CVTQTD00 EQU CVTMAP+108 04635000 CVTQTE00 EQU CVTMAP+104 04636000 CVTCUCB EQU CVTMAP+100 04637000 CVTSJQ EQU CVTMAP+96 04638000 CVTPBLDL EQU CVTMAP+92 04639000 CVTTPC EQU CVTMAP+88 04640000 CVTSVDCB EQU CVTMAP+84 04641000 CVTBRET EQU CVTMAP+82 04642000 CVTEXIT EQU CVTMAP+80 04643000 CVT0FN00 EQU CVTMAP+76 04644000 CVTDARA EQU CVTDAR+1 04645000 CVTRSV07 EQU CVTFLGS1 04646000 CVTRSV06 EQU CVTFLGS1 04647000 CVTRSV05 EQU CVTFLGS1 04648000 CVTRSV04 EQU CVTFLGS1 04649000 CVTRSV03 EQU CVTFLGS1 04650000 CVTRSV02 EQU CVTFLGS1 04651000 CVTRSV01 EQU CVTFLGS1 04652000 CVTDMPLK EQU CVTFLGS1 04653000 CVTXITP EQU CVTMAP+68 04654000 CVTZDTAB EQU CVTMAP+64 04655000 CVTMSLT EQU CVTMAP+60 04656000 CVTDATE EQU CVTMAP+56 04657000 CVTBTERM EQU CVTMAP+52 04658000 CVTSYSAD EQU CVTMAP+48 04659000 CVTXTLER EQU CVTMAP+44 04660000 CVTILK2 EQU CVTMAP+40 04661000 CVTILK1 EQU CVTMAP+36 04662000 CVTPRLTV EQU CVTMAP+32 04663000 CVTPCNVT EQU CVTMAP+28 04664000 CVTXAPG EQU CVTMAP+20 04665000 CVTBUF EQU CVTMAP+16 04666000 CVTJOB EQU CVTMAP+12 04667000 CVTLINK EQU CVTMAP+8 04668000 CVT0EF00 EQU CVTMAP+4 04669000 CVTTCBP EQU CVTMAP 04670000 CVT EQU CVTMAP 04671000 @NM00052 EQU PSA+3668 04672000 PSASTAK EQU PSA+3072 04673000 @NM00051 EQU PSA+1040 04674000 PSAUSEND EQU PSA+1040 04675000 PSARV062 EQU PSA+1036 04676000 PSAATCVT EQU PSA+1032 04677000 PSAPCPSW EQU PSA+1024 04678000 PSAPIR2 EQU PSA+1020 04679000 PSARV059 EQU PSA+1018 04680000 PSASVC13 EQU PSA+1016 04681000 PSALSFCC EQU PSA+1012 04682000 PSASFACC EQU PSA+1008 04683000 PSASTOP EQU PSA+992 04684000 PSASTART EQU PSA+976 04685000 PSARSPSW EQU PSA+968 04686000 PSASRPSW EQU PSA+960 04687000 PSARV045 EQU PSA+892 04688000 PSARV044 EQU PSA+888 04689000 PSARV043 EQU PSA+884 04690000 PSARV042 EQU PSA+880 04691000 PSARV041 EQU PSA+876 04692000 PSARV040 EQU PSA+872 04693000 PSARV025 EQU PSA+868 04694000 PSADSSED EQU PSA+868 04695000 PSADSSPR EQU PSA+864 04696000 PSADSSFW EQU PSA+860 04697000 PSADSS14 EQU PSA+856 04698000 PSADSSPP EQU PSA+848 04699000 PSADSSRP EQU PSA+840 04700000 PSADSS05 EQU PSADSSF4 04701000 PSADSS10 EQU PSADSSF4 04702000 PSADSSVE EQU PSADSSF4 04703000 PSADSSDE EQU PSADSSF4 04704000 PSADSSC0 EQU PSADSSF4 04705000 PSADSSIE EQU PSADSSF4 04706000 PSADSS12 EQU PSADSSF4 04707000 PSADSSRC EQU PSADSSF4 04708000 PSARV057 EQU PSADSSF3 04709000 PSARV056 EQU PSADSSF3 04710000 PSARV055 EQU PSADSSF3 04711000 PSADSSMC EQU PSADSSF3 04712000 PSADSSRW EQU PSADSSF3 04713000 PSADSSNM EQU PSADSSF3 04714000 PSADSSES EQU PSADSSF3 04715000 PSADSSGP EQU PSADSSF3 04716000 PSADSSF2 EQU PSADSSFL+1 04717000 PSADSSPI EQU PSADSSF1 04718000 PSADSSOI EQU PSADSSF1 04719000 PSADSSSP EQU PSADSSF1 04720000 PSADSSTP EQU PSADSSF1 04721000 PSADSSDW EQU PSADSSF1 04722000 PSADSSDD EQU PSADSSF1 04723000 PSADSSDM EQU PSADSSF1 04724000 PSADSSMV EQU PSADSSF1 04725000 PSADSSTS EQU PSA+816 04726000 PSADSSWK EQU PSA+812 04727000 PSADSSR3 EQU PSA+808 04728000 PSADSSR2 EQU PSA+804 04729000 PSADSSRS EQU PSA+800 04730000 PSASTOR EQU PSA+796 04731000 PSACPUSA EQU PSA+794 04732000 PSAVSTAP EQU PSA+792 04733000 PSAWKVAP EQU PSA+788 04734000 PSAWKRAP EQU PSA+784 04735000 PSAMCHIC EQU PSA+783 04736000 PSARV061 EQU PSA+782 04737000 PSASYMSK EQU PSA+781 04738000 PSAMCHFL EQU PSA+780 04739000 PSACR0 EQU PSA+776 04740000 PSAPSWSV EQU PSA+768 04741000 PSACLHS EQU PSAHLHI 04742000 PSALKR15 EQU PSALKSA+60 04743000 PSALKR14 EQU PSALKSA+56 04744000 PSALKR13 EQU PSALKSA+52 04745000 PSALKR12 EQU PSALKSA+48 04746000 PSALKR11 EQU PSALKSA+44 04747000 PSALKR10 EQU PSALKSA+40 04748000 PSALKR9 EQU PSALKSA+36 04749000 PSALKR8 EQU PSALKSA+32 04750000 PSALKR7 EQU PSALKSA+28 04751000 PSALKR6 EQU PSALKSA+24 04752000 PSALKR5 EQU PSALKSA+20 04753000 PSALKR4 EQU PSALKSA+16 04754000 PSALKR3 EQU PSALKSA+12 04755000 PSALKR2 EQU PSALKSA+8 04756000 PSALKR1 EQU PSALKSA+4 04757000 PSALKR0 EQU PSALKSA 04758000 PSARV023 EQU PSACLHT+52 04759000 PSALOCAL EQU PSACLHT+48 04760000 PSACMSL EQU PSACLHT+44 04761000 PSAOPTL EQU PSACLHT+40 04762000 PSATPACL EQU PSACLHT+36 04763000 PSATPDNL EQU PSACLHT+32 04764000 PSATPNCL EQU PSACLHT+28 04765000 PSAIOSLL EQU PSACLHT+24 04766000 PSAIOSUL EQU PSACLHT+20 04767000 PSAIOSCL EQU PSACLHT+16 04768000 PSAIOSSL EQU PSACLHT+12 04769000 PSASALCL EQU PSACLHT+8 04770000 PSAASML EQU PSACLHT+4 04771000 PSADISPL EQU PSACLHT 04772000 PSASRSA EQU PSA+636 04773000 PSARV050 EQU PSA+634 04774000 PSADSSGO EQU PSA+633 04775000 PSARECUR EQU PSA+632 04776000 PSAHLHIS EQU PSA+628 04777000 PSAIPCSA EQU PSA+624 04778000 @NM00050 EQU PSA+621 04779000 PSAIPCDM EQU PSA+620 04780000 PSAIPCD EQU PSA+616 04781000 @NM00049 EQU PSA+613 04782000 PSAIPCRM EQU PSA+612 04783000 PSAIPCR EQU PSA+608 04784000 PSAMCHEX EQU PSA+600 04785000 PSAMPSW EQU PSA+592 04786000 PSAEXPS2 EQU PSA+584 04787000 PSAEXPS1 EQU PSA+576 04788000 PSAPIREG EQU PSA+572 04789000 PSARSREG EQU PSA+568 04790000 PSAGPREG EQU PSA+556 04791000 PSARV022 EQU PSASUP4 04792000 PSARV021 EQU PSASUP4 04793000 PSARV020 EQU PSASUP4 04794000 PSARV019 EQU PSASUP4 04795000 PSARV018 EQU PSASUP4 04796000 PSARV017 EQU PSASUP4 04797000 PSARV016 EQU PSASUP4 04798000 PSARV015 EQU PSASUP4 04799000 PSARV014 EQU PSASUP3 04800000 PSARV013 EQU PSASUP3 04801000 PSARV012 EQU PSASUP3 04802000 PSARV011 EQU PSASUP3 04803000 PSASPR EQU PSASUP3 04804000 PSAPSREG EQU PSASUP3 04805000 PSAPI2 EQU PSASUP3 04806000 PSAIOSUP EQU PSASUP3 04807000 PSALCR EQU PSASUP2 04808000 PSARTM EQU PSASUP2 04809000 PSAACR EQU PSASUP2 04810000 PSAIPCE2 EQU PSASUP2 04811000 PSAIPCES EQU PSASUP2 04812000 PSAIPCEC EQU PSASUP2 04813000 PSAGTF EQU PSASUP2 04814000 PSAIPCRI EQU PSASUP2 04815000 PSAIPCRP EQU PSASUP1 04816000 PSAIPCDR EQU PSASUP1 04817000 PSADISP EQU PSASUP1 04818000 PSALOCK EQU PSASUP1 04819000 PSAPI EQU PSASUP1 04820000 PSAEXT EQU PSASUP1 04821000 PSASVC EQU PSASUP1 04822000 PSAIO EQU PSASUP1 04823000 PSAAOLD EQU PSA+548 04824000 PSAANEW EQU PSA+544 04825000 PSATOLD EQU PSA+540 04826000 PSATNEW EQU PSA+536 04827000 PSALCCAR EQU PSA+532 04828000 PSALCCAV EQU PSA+528 04829000 PSAPCCAR EQU PSA+524 04830000 PSAPCCAV EQU PSA+520 04831000 PSACPULA EQU PSA+518 04832000 PSACPUPA EQU PSA+516 04833000 PSAPSA EQU PSA+512 04834000 FLCHDEND EQU PSA+512 04835000 FLCCRSAV EQU FLCMCLA+280 04836000 FLCGRSAV EQU FLCMCLA+216 04837000 FLCFPSAV EQU FLCMCLA+184 04838000 FLCFLA EQU FLCMCLA+88 04839000 FLCRGNCD EQU FLCMCLA+84 04840000 FLCFSAA EQU FLCFSA+1 04841000 @NM00048 EQU FLCFSA 04842000 @NM00047 EQU FLCMCLA+72 04843000 FLCMCIC EQU FLCMCLA+64 04844000 @NM00046 EQU FLCMCLA+20 04845000 FLCIOAA EQU FLCIOA+1 04846000 @NM00045 EQU FLCIOA 04847000 @NM00044 EQU FLCMCLA+15 04848000 @NM00043 EQU FLCMCLA+14 04849000 @NM00042 EQU FLCMCLA+12 04850000 FLCLCL EQU FLCMCLA+8 04851000 FLCIOELA EQU FLCIOEL+1 04852000 @NM00041 EQU FLCIOEL 04853000 FLCCHNID EQU FLCMCLA 04854000 @NM00040 EQU PSA+160 04855000 FLCMTRCD EQU PSA+157 04856000 @NM00039 EQU PSA+156 04857000 FLCPERA EQU FLCPER+1 04858000 @NM00038 EQU FLCPER 04859000 @NM00037 EQU PSA+151 04860000 FLCPERCD EQU PSA+150 04861000 FLCMCNUM EQU PSA+149 04862000 @NM00036 EQU PSA+148 04863000 FLCTEAA EQU FLCTEA+1 04864000 @NM00035 EQU FLCTEA 04865000 PSAPIPC EQU PSAPICOD 04866000 PSAPIMC EQU PSAPICOD 04867000 PSAPIPER EQU PSAPICOD 04868000 PSARV049 EQU FLCPICOD 04869000 FLCPILCB EQU FLCPIILC 04870000 @NM00034 EQU FLCPIILC 04871000 @NM00033 EQU PSAEPPSW 04872000 FLCSVCN EQU PSAESPSW+2 04873000 FLCSILCB EQU FLCSVILC 04874000 @NM00032 EQU FLCSVILC 04875000 @NM00031 EQU PSAESPSW 04876000 FLCEICOD EQU PSAEEPSW+2 04877000 PSASPAD EQU PSAEEPSW 04878000 @NM00030 EQU PSA+128 04879000 FLCINPSW EQU PSA+120 04880000 FLCMNPSW EQU PSA+112 04881000 FLCPNPSW EQU PSA+104 04882000 FLCSNPSW EQU PSA+96 04883000 FLCENPSW EQU PSA+88 04884000 FLCTRACE EQU PSA+84 04885000 FLCTIMER EQU PSA+80 04886000 FLCCVT2 EQU PSA+76 04887000 FLCCAW EQU PSA+72 04888000 FLCCSW EQU PSA+64 04889000 FLCIOPSW EQU PSA+56 04890000 FLCMOPSW EQU PSA+48 04891000 FLCPOPSW EQU PSA+40 04892000 FLCSOPSW EQU PSA+32 04893000 FLCEOPSW EQU PSA+24 04894000 @NM00029 EQU FLCICCW2+4 04895000 FLCCVT EQU FLCICCW2 04896000 FLCICCW1 EQU FLCROPSW 04897000 FLCIPPSW EQU FLCRNPSW 04898000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04899000 @RC00369 EQU @RC00367 04900000 @RC00391 EQU @RC00387 04901000 @RC00371 EQU @RC00369 04902000 @RC00393 EQU @RC00391 04903000 @RC00427 EQU @RC00393 04904000 @ENDDATA EQU * 04905000 END ISTSQC01,(C'PLS1216',0603,75130) 04906000