* %GOTO ESTABSL1; /* 00050002 MACRO 00100002 IHAESTA &DSECT=YES */ 00150002 *%ESTABSL1 : ; 00160002 * /* MACMEAN ESTA MEANS EXTENDED STAE PARAMETER LIST */ 00170002 * /* MACCOMP Y-1 SC1C5/PZD81 */ 00180002 * /* MACSTAT Y-1 72245/Y02704 */ 00190002 * %GOTO ESTABSL; /* 00192002 AIF ('&DSECT' EQ 'YES').ESTA001 00242002 ESTA DS 0D - 00244002 AGO .ESTA002 00246002 .ESTA001 ANOP 00248002 ESTA DSECT ESTAPTR 00250002 .ESTA002 SPACE 2 00260002 ESTAEXT DS 0A FLAGS AND USER EXIT ADDRESS 00300002 ESTAFLG1 DS B OPTION FLAGS 00350002 ESTASTAI EQU X'80' .(E)STAI REQUEST (TCB SPECIFIED) 00400002 ESTASTAR EQU X'40' .ESTAR REQUEST 00450002 * .(E)STAE REQUEST IF NEITHER ESTASTAI 00500002 * NOR ESTASTAR IS ON. 00550002 * X'20' .(RESERVED) 00600002 ESTAESTA EQU X'10' .ESTAR/ESTAI/ESTAE PARAMETER LIST 00650002 * OFF (0) INDICATES STAI/STAE PARM LIST 00700002 * X'08' .(RESERVED) 00750002 ESTASYNC EQU X'04' .ALLOW ASYNCHRONOUS INTERRUPTS 00800002 ESTAIO EQU X'03' .I/O PROCESSING OPTION, BITS 6 AND 7 - 00850002 * 00 - QUIESCE I/O 00900002 * 01 - HALT I/O 00950002 * 10 - BYPASS I/O INTERVENTION 01000002 * 11 - (RESERVED) 01050002 ESTANOIO EQU X'02' BYPASS I/O INTERVENTION 01100002 ESTAHALT EQU X'01' .HALT I/O 01150002 ESTAEXIT DS AL3 ADDRESS OF USER EXIT ROUTINE 01200002 ESTAPARM DS A ADDRESS OF USER PARAMETER LIST 01250002 ESTAOWNR DS A TCB ADDRESS IF STAI REQUEST 01300002 * OTHERWISE, ZERO 01350002 ESTAFGRS DS 0A FLAGS AND RESERVED FIELD 01400002 ESTAFLG2 DS B OPTION FLAGS 01450002 * X'80' .(RESERVED) 01500002 ESTATERM EQU X'40' .REQUEST FOR TERM PROCESSING 01550002 ESTAEREC EQU X'20' .REQUEST FOR ERROR RECORDING 01600002 * X'10' .(RESERVED) 01650002 * X'08' .(RESERVED) 01700002 ESTABRNT EQU X'04' .REQUEST FOR BRANCH ENTRY TO SVC 60 01750002 * X'02' .(RESERVED) 01800002 * X'01' .(RESERVED) 01850002 ESTARSVI DS AL3 RESERVED 01900002 ESTALEN EQU *-ESTA LENGTH OF (E)STA PARAMETER LIST 01950002 MEND , */ 02000002 *%ESTABSL : ; 02050002 */* 6/6/72 */ 02100002 *DECLARE 02150002 * 1 ESTA BASED(ESTAPTR), 02200002 * 2 ESTAEXT PTR(31), /* FLAGS AND USER EXIT ADDRESS */ 02250002 * 3 ESTAFLG1 CHAR(1), /* OPTION FLAGS */ 02300002 * 4 ESTASTAI BIT(1), /* (E)STAI REQUEST (TCB SPECIFIED)*/ 02350002 * 4 ESTASTAR BIT(1), /* ESTAR REQUEST */ 02400002 * /* (E)STAE REQUEST IF NEITHER */ 02450002 * /* ESTASTAI NOR ESTASTAR IS ON */ 02500002 * 4 * BIT(1), /* RESERVED */ 02550002 * 4 ESTAESTA BIT(1), /* ESTAR/ESTAI/ESTAE PARAMETERS */ 02600002 * /* OFF, INDICATES STAI/STAE PARMS */ 02650002 * 4 * BIT(1), /* RESERVED */ 02700002 * 4 ESTASYNC BIT(1), /* ALLOW ASYNCHRONOUS INTERRUPTS */ 02750002 * 4 ESTAIO BIT(2), /* I/O PROCESSING OPTIONS 02800002 * 00 - QUIESCE I/O 02850002 * 01 - HALT I/O 02900002 * 10 - BYPASS I/O INTERVENTION 02950002 * 11 - RESERVED */ 03000002 * 5 ESTANOIO BIT(1), /* BYPASS I/O INTERVENTION */ 03050002 * 5 ESTAHALT BIT(1), /* HALT I/O */ 03100002 * 3 ESTAEXIT PTR(24) BDY(BYTE), /* ADDRESS OF USER EXIT ROUTINE */ 03150002 * 2 ESTAPARM PTR(31), /* ADDRESS OF USER PARAMETER LIST */ 03200002 * 2 ESTAOWNR PTR(31), /* TCB ADDRESS IF (E)STAI REQUEST, 03250002 * OTHERWISE, ZERO */ 03300002 * 2 ESTAFGRS PTR(31), /* FLAGS AND RESERVED FIELD */ 03350002 * 3 ESTAFLG2 CHAR(1), /* OPTION FLAGS */ 03400002 * 4 * BIT(1), /* RESERVED */ 03450002 * 4 ESTATERM BIT(1), /* REQUEST FOR TERM PROCESSING */ 03500002 * 4 ESTAEREC BIT(1), /* REQUEST FOR ERROR RECORDING */ 03550002 * 4 * BIT(2), /* RESERVED */ 03600002 * 4 ESTABRNT BIT(1), /* REQUEST BRANCH ENTRY TO SVC 60 */ 03650002 * 4 * BIT(2), /* RESERVED */ 03700002 * 3 ESTARSVI PTR(24) BDY(BYTE); /* RESERVED */ 03750002 *%ESTALEN='LENGTH(ESTA)'; /* LENGTH OF (E)STA PARAMETER 03900002 * LIST */ 03950002