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