|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3810 (0xee2)
Types: s3xseg
Names: »S$ETCB«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ETCB«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 6 AJS 00030000
.* * 00040000
.* NAME: $ETCB * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS FOR THE CCP EXTENSION TO THE TCB. * 00070000
.* * 00080000
.* INPUT OPERANDS: NONE * 00090000
.********************************************************************** 00100000
$ETCB 00110000
TEXT 00120000
*********************************************************************** 00130000
* EQUATES FOR THE CCP TCB EXTENSION * 00140000
*********************************************************************** 00150000
TCBCAL EQU 0 OCC CANCEL WHILE TCB IN ALLOC 00160000
* CCP BIT INDICATORS APPEARING IN FIELDS IN THE STANDARD TCB. 00170000
* BIT EQUATES FOR TCBID. 00180000
TCBWID EQU B'11111111' SYSTEM WAIT TASK ID 00190000
SPACE 00200000
* BIT EQUATES FOR TCBFG1. 00210000
TCBUSR EQU B'10000000' CCP USER TASK 00220000
TCBNCL EQU B'00000100' CANCEL NOT ALLOWED 00230000
** TCBUSR+TCBNCL = CCP SYSTEM TASK 00240000
SPACE 00250000
* BIT EQUATES FOR TCBFG2. 00260000
TCBTRC EQU B'10000000' TERMINATION CALL OF CLOSE 00270000
SPACE 00280000
* BIT EQUATES FOR TCBDS1. 00290000
TCBSUS EQU B'01000000' WAIT INDICATOR FOR SUSPENDED TCB 00300000
TCBTRM EQU B'00100000' TCB IS IN CCP TERMINATION 00310000
SPACE 2 00320000
* FIELDS OVERLAYING DSM TCB FIELDS. 00330000
TCBCMP EQU X'2B' USER TASK TERMINATION CODE 00340000
SPACE 1 00350000
TCB@AS EQU X'64' PROGRAM APPENDED STORAGE ADDRESS 00360000
TCBPAS EQU X'65' SIZE (X256) OF PAS 00370000
TCBFDT EQU X'66' SIZE (X256) OF LARGEST FDT 00380000
TCBINQ EQU X'68' Q OF TUBS WITH DATA FOR ACCEPT 00390000
SPACE 1 00400000
TCBIR EQU X'A6' TRANSIENT AREA IAR SAVE FIELD 00410000
TCBPR EQU X'A8' TRANSIENT AREA PMR SAVE FIELD 00420000
TCBX2 EQU X'AA' TRANSIENT AREA REG 2 SAVE FIELD 00430000
TCBX1 EQU X'AC' TRANSIENT AREA REG 1 SAVE FIELD 00440000
SPACE 00450000
TCBDMG EQU X'AD' CCP INTERNAL FLAGS 00460000
TCBRUF EQU B'10000000' RUF PROGRAM ACTIVE 00465000
TCBKRQ EQU B'01000000' CONSOLE WAS PROGRAM REQUESTOR 00470000
TCBALC EQU B'00100000' TASK IS IN ALLOCATE 00480000
TCBNEP EQU B'00010000' TASK IS A NEVER-ENDING-PROGRAM 00490000
TCBCM EQU B'00001000' COMMUNICATIONS MANAGEMENT ID 00500000
TCBMTS EQU B'00000100' TASK IS A MULTI-TERM-SERVICER 00510000
TCBEMG EQU B'00000010' END MSG IS WANTED BY TERMINAL 00520000
TCBSHQ EQU B'00000001' SHUTDOWN COMMAND HAS BEEN KEYED 00530000
SPACE 00540000
TCBWK EQU X'AF' WORK FIELD 00550000
* END OF CCP PROGRAM LEVEL TCB(CM TASK). 00560000
SPACE 1 00570000
* BEGINNING OF CCP EXTENSION FOR TCB (ALL CCP TASKS EXCEPT CM) 00580000
TCBXQ EQU X'AF' WAIT Q 00590000
TCBTUB EQU X'B1' LIST ORIGIN - TASK'S OWNED TUBS 00600000
TCBECB EQU X'B2' GENERAL PURPOSE ECB 00610000
* CCP BITS WITHIN TCBECB 00620000
TCBACW EQU X'01' THIS TASK AT ACCEPT INPUT WAIT 00630000
* 00640000
TCBIIC EQU X'B5' NUMBER OF OUTSTANDING INVITES 00650000
TCBMAX EQU X'B6' MAX # OF MRT Q'D INVITES 00660000
TCBATR EQU X'B7' # OF Q'D TUBS 00670000
SPACE 00680000
TCBURA EQU X'B8' UNIT RECORD ALLOCATE MASK 00690000
TCBPRS EQU B'10000000' PRINTER IS SHARED AJS 00695000
TCB501 EQU B'00100000' PROGRAM USES 2501 00700000
TCBPRT EQU B'00010000' PROGRAM USES LINE PRINTER 00710000
TCB142 EQU B'00001000' PROGRAM USES 1442 00720000
TCBMFU EQU B'00000100' PROGRAM USES MFCU OR MFCM 00730000
TCB741 EQU B'01000000' 3741 USED AS UNIT RECORD DEVICE 00735000
SPACE 00740000
TCBFBM EQU X'BA' FILE BIT MASK, DISPLACEMENT 00750000
TCBUSE EQU X'BB' TCB USE COUNT 00760000
TCBOFG EQU X'BC' CCP INTERNAL FLAGS 00763000
TCBSRT EQU X'80' PROGRAM IS A SORT PROGRAM 00766000
TCBPL EQU X'BD' 19 BYTE TP PARAMETER LIST 00770000
TCBFRA EQU X'D0' 10 BYTE ASSIGN/FREE MASK 00780000
TCBINT EQU X'DA' 17 BYTE TIMER QUEUE ELEMENT 00790000
MEND 00800000