ibm:vm370-lib:macro:tsoblks.macro_src
Table of Contents
TSOBLKS Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- TSOBLKS.MACRO.txt
- 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
ibm/vm370-lib/macro/tsoblks.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator