MACRO 00001000
TSOBLKS &SECT 00002000
PUSH PRINT 00002200
AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
PRINT OFF,NOGEN 00002600
.ACC01 ANOP 00002800
AIF ('&SECT' EQ 'CSECT').CSECT 00003000
TSOBLKS DSECT 00004000
AGO .CONT 00005000
.CSECT ANOP 00006000
TSOBLKS DS 0D 00007000
ENTRY TSOBLKS 00008000
.CONT ANOP 00009000
CPPL DS 0F - TMP PLIST TO CP PROGRAMS 00010000
CPPLOBUF DC AL4(0) - ADDRESS OF COMMAND LINE 00011000
CPPLUPT DC AL4(UPT) - ADDR OF DUMMY UPT 00012000
CPPLPSCB DC AL4(PSCB) - ADDR OF DUMMY PSCB 00013000
CPPLECT DC AL4(ECT) - ADDR OF DUMMY ECT 00014000
* 00015000
* THE FOLLOWING ARE FACSIMILE TSO CONTROL BLOCKS 00016000
* 00017000
* USER PROFILE TABLE (UPT) 00018000
UPT DS 0F 00019000
DS CL2 - RESERVED 00020000
UPTUSER DS CL10 - RESERVED FOR INSTALLATION USE 00021000
UPTSWS DC X'00' - USER'S ENVIRONMENT SWITCH 00022000
* EQU X'80' - RESERVED 00023000
UPTNPRM EQU X'40' - NO PROMPTING IS TO BE DONE 00024000
UPTMID EQU X'20' - PRINT MESSAGE IDENTIFIERS 00025000
UPTNCOM EQU X'10' - NO USER COMMUNICATION ALLOWED VIA SEND 00026000
UPTPAUS EQU X'08' - PAUSE FOR '?'WHEN IN NON-INTERFACE MODE 00027000
UPTALD EQU X'04' - ATTN HAS BEEN SPECIFIED AS LINE DELETE 00028000
UPTCDEL DC X'00' - CHAR DELETE CHARACTER 00029000
UPTDEL DC X'00' - LINE DELETE CHARACTER 00030000
DS CL1 - RESERVED 00031000
* 00032000
* PROTECTED STEP CONTROL BLOCK (PSCB) 00033000
* 00034000
PSCB DS 0F 00035000
PSCBUSER DC CL7' ' - USER ID PADDED WITH BLANKS 00036000
PSCBUSRL DC X'00' - LENGTH OF USER ID 00037000
PSCBGPNM DS CL8 - ESOTERIC GROUP NAME INIT BY LOGON 00038000
PSCBATR1 DS X - 15 BIT STRING OF USER ATTRIBUTES 00039000
PSCBCTRL EQU X'80' - OPERATOR COMMAND USER 00040000
PSCBACCT EQU X'40' - ACCOUNT COMMAND USER 00041000
PSCBJCL EQU X'20' - SUBMIT COMMAND USER 00042000
* BITS 3 -15 RESERVED FOR IBM USE 00043000
DS X - RESERVED 00044000
PSCBATR2 DS X - 15 BIT STRING RESERVED FOR INST. USE 00045000
DS X - 00046000
* THE FOLLOWING 6 FULL WORDS ARE USED IN TSO FOR ACCOUNTING 00047000
* THEY WILL BE LEFT INIT TO ZERO 00048000
* 00049000
DC 6F'0' 00050000
PSCBTCOL DS 1F - 00051000
PSCBRLGB DS AL4(0) - 00052000
PSCBUPT DC AL4(UPT) - PTR TO THE USER PROFILE TABLE 00053000
PSCBUPTL DC AL2(16) - LENGTH OF THE UPT 00054000
DS BL.16 - RESERVED 00055000
PSCBRSZ DS A - REGION SIZE REQUESTED IN 2K UNITS 00056000
PSCBU DS CL8 - RESERVED FOR INSTALLATION USE 00057000
* 00058000
* ENVIRONMENT CONTROL TABLE (ECT) 00059000
* 00060000
ECT DS 0F 00061000
ECTRCDF DC AL1(0) - HIGH ORDER BIT INDICATES CP ABENDED 00062000
ECTRTCD DC AL3(0) - RETURN CODE FROM LAST CP 00063000
ECTIOWA DC AL4(0) - ADDR OF I/O SERVICE ROUTINE WORK AREA 00064000
* THIS FIELD MUST BE INITIALIZED BY USER AT START OF HIS PGM. 00065000
ECTMSGF DC X'00' - HIGH ORD. BIT MEANS DEL. 2ND LEVEL MSGS. 00066000
ECTSMSG DC AL3(0) ADDR OF SECOND LEVEL MSG CHAIN @VA03882 00067100
ECTPCMD DC CL8' ' - PRIMARY COMMAND NAME 00068000
ECTSCMD DS CL8 - SUBCOMMAND NAME 00069000
ECTSWS DC X'00' - ECT SW 00070000
ECTNOPD EQU X'80' - 0 BIT= ON, NO OPERANDS EXIST IN COMMAND B 00071000
ECTATRM EQU X'20' - CP TERMINATED BY TMP DETACH W/ STAE 00072000
* EQU X'40' - RESERVED 00073000
ECTLOGF EQU X'10' - LOGON/OFF REQUESTED TMP TO LOG OFF 00074000
ECTNMAL EQU X'08' - NO USER MESSAGES RECEIVED AT LOGON 00075000
ECTNNOT EQU X'04' - NO BRDCST NOTICES TO BE RECEIVED 00076000
ECTDDNUM DC AL3(0) - COUNTER FOR GEN TEMP DDNAMS 00077000
ECTUSER DS A - RESERVED FOR INSTALL 00078000
DS A - RESERVED 00079000
* @V1D1709 00080000
* TERMINAL ATTENTION EXIT ELEMENT (TAXE) @V1D1709 00081000
* @V1D1709 00082000
CMSTAXE DSECT @V1D1709 00083000
TAXESPSW DS 1F LEFT HALF PSW FOR ATTN RTN. @V1D1709 00084000
TAXEEXIT DS A ATTN EXIT ADDR. @V1D1709 00085000
TAXESTAT DS 0X STATUS OF EXIT RTN. @V1D1709 00086000
TAXEFREQ EQU X'80' ATTN EXIT TAKEN @V1D1709 00087000
TAXELNK DS A NEXT TAXE ON QUEUE @V1D1709 00088000
TAXEIOL DS 1F LEFT HALF IO OLD PSW @V1D1709 00089000
TAXETSOF DS 1F TSOFLAGS SAVED HERE @V1D1709 00090000
TAXERTNA DS A RETURN ADDR. @V1D1709 00091000
TAXEEXTS DS 18F ATTN EXIT RTN. SAVE AREA @V1D1709 00092000
TAXEIOWS DS 11F DMSIOW SAVE AREA @V1D1709 00093000
* @V1D1709 00094000
* ALSO ATTENTION EXIT PARAMETER LIST @V1D1709 00095000
* @V1D1709 00096000
TAXETAIE DS A ADDR. OF TAIE @V1D1709 00097000
DS 1F RESERVED @V1D1709 00098000
TAXEDEF DS 0X DEFER INDICATOR @V1D1709 00099000
TAXEUSER DS A USER PARAMETER LIST ADDR. @V1D1709 00100000
* @V1D1709 00101000
* ALSO TERMINAL ATTENTION INTERRUPT ELEMENT (TAIE) @V1D1709 00102000
* @V1D1709 00103000
TAIEMSGL DS 2X RESERVED @V1D1709 00104000
TAIETGET DS 1X RESERVED @V1D1709 00105000
DS 1X RESERVED @V1D1709 00106000
TAIEIAD DS A RIGHT HALF IO OLD PSW @V1D1709 00107000
TAIERSAV DS 16F REGS 0-15 INTERRUPTED PGM. 00108000
AIF ('&SECT' NE 'CSECT').BYCS @V1D1709 00109000
&SYSECT CSECT @V1D1709 00110000
.BYCS ANOP @V1D1709 00111000
EJECT 00112000
POP PRINT 00112100
MEND 00113000