|
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: 5842 (0x16d2)
Types: s3xseg
Names: »S$ETCB«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ETCB«
MACRO 00010000
.********************************************************************** 00020000
.* * 00040000
.* NAME: $ETCB (5704SC2CP) RELEASE 03 * 00050000
.* * 00055000
.* FUNCTION: DEFINE THE LABELS FOR THE CCP EXTENSION TO THE TCB. * 00070000
.* INPUT OPERANDS: NONE * 00090000
.* * 00095000
.********************************************************************** 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' TCBEJC - USER TERMINATION CODE 00340000
SPACE 1 00350000
TCB@AS EQU X'64' NPNAME-4 PROG APPENDED STORAGE @ 00360000
TCBPAS EQU TCB@AS+1 SIZE (X256) OF PAS 00370000
TCBFDT EQU TCBPAS+1 SIZE (X256) OF LARGEST FDT 00380000
TCBINQ EQU TCBFDT+2 Q OF TUBS WITH DATA FOR ACCEPT 00390000
SPACE 1 00400000
TCBIR EQU X'A7' NPSCH-1 XIENT AREA IAR SAVE FLD 00410000
TCBPR EQU TCBIR+2 TRANSIENT AREA PMR SAVE FIELD 00420000
TCBX2 EQU TCBPR+2 TRANSIENT AREA REG 2 SAVE FIELD 00430000
TCBX1 EQU TCBX2+2 TRANSIENT AREA REG 1 SAVE FIELD 00440000
SPACE 00450000
TCBDMG EQU TCBX1+1 CCP INTERNAL FLAGS 00460000
TCBRUF EQU B'10000000' PRUF 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
* END OF CCP PROGRAM LEVEL TCB(CM TASK). 00560000
SPACE 1 00570000
* BEGINNING OF CCP EXTENSION FOR TCB (ALL CCP TASKS EXCEPT CM) 00580000
* CCP BITS WITHIN TCBECB 00620000
TCBACW EQU X'01' THIS TASK AT ACCEPT INPUT WAIT 00630000
* 00640000
TCBPL EQU X'C4' NPRCCP-39 TP PARAMETER LIST 00641000
TCBPLE EQU TCBPL+18 END OF PARM LIST 00642000
TCBXQ EQU TCBPLE+2 CCP CHAIN OF WAITING TASKS 00643000
TCBWK EQU TCBXQ WORK FIELD 00644000
TCBTUB EQU TCBXQ+2 OWNED TUB CHAIN START POINT 00645000
TCBECB EQU TCBTUB+1 INTERNAL ECB FOR CCP - START 00646000
TCBIIC EQU TCBECB+3 INVITE INPUT COUNT FOR USERS 00650000
TCBMAX EQU TCBIIC+1 MAX NUMBER OF TERMINALS 00660000
TCBATR EQU TCBMAX+1 CURRENT TERMINAL COUNT 00670000
SPACE 00680000
TCBURA EQU TCBATR+1 UNIT RECORD ALLOCATE MASK 00690000
TCBPRS EQU B'10000000' PRINTER IS SHARED 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 TCBURA+2 FILE BIT MASK, DISPLACEMENT 00750000
TCBUSE EQU TCBFBM+1 00760000
SPACE 00765000
TCBOFG EQU TCBUSE+1 CCP INTERNAL FLAGS 00770000
TCBSRT EQU B'10000000' SORT PGM ACTIVE 00780000
TCBCHN EQU B'01000000' TASK WAS REQUESTED VIA CHAIN OP 00790000
TCBLOW EQU B'00100000' LOW PRIORITY TASK REQUEST 00791000
* EQU B'00010000' 00792000
* EQU B'00001000' 00793000
* EQU B'00000100' 00794000
* EQU B'00000010' 00795000
* EQU B'00000001' 00796000
SPACE 1 00796200
TCBPCB EQU TCBOFG+2 ADDR OF REQUIRED PORT. 00796400
TCBXR@ EQU TCBPCB+2 ADDR OF CCP XIENT RIB BYTE. 00796600
TCBRV EQU TCBPL+39 RESERVED AREA FROM 'TCBXR@' 00797000
SPACE 1 00797050
********************************************************************* 00797100
* RESIDENT OPEN CLOSE ATT SAVE AREA * 00797200
********************************************************************* 00797300
TCBATS EQU X'010D' START OF SAVE AREA 00797400
TCBEPL EQU TCBATS+1 E.P.L. ATTS 00797500
TCBROC EQU TCBEPL+4 RESIDENT OPEN/CLOSE ATTS 00797600
TCBFSA EQU TCBROC+4 F.S.A. ATTS 00797700
SPACE 1 00797800
********************************************************************* 00798080
* THE FOLLOWING REDEFINES THE PARM-LIST AREA FOR THE * 00798160
* COMMUNICATIONS SCHEDULAR ($CC4CS). DEFINES THE ATTS * 00798240
* THAT MAPS THE SIOC DM/IOCS/IH. (4K-MAX) * 00798320
********************************************************************* 00798400
.* IF THE FOLLOWING EQUATES CHANGE INSURE THAT $@TRAP KNOWS *. 00798480
.* OF THE CHANGE SO THAT HE MAY MAKE THE NECESSARY CHANGES. *. 00798560
.*******************************************************************. 00798640
TCBSAD EQU TCBPL DISPLACEMENT FOR SIOC DM ATR 00798720
TCBSAT EQU TCBSAD+2 ATRS VALUES TO MAP SIOC DM. 00798800
TCBSAS EQU TCBSAT+2 ATRS TO RESTORE $CC4#M ATRS. 00798880
TCBSAV EQU TCBSAS+2 ATRS SAVE AREA FOR $@TRAP. 00798960
SPACE 1 00799040
********************************************************************* 00799120
* THE FOLLOWING REDEFINES TCBIIC, TCBMAX, TCBATR, TCBURA, * 00799200
* TCBFBM, TCBUSE, AND TCBOFG FOR THE COMMAND PROCESSOR TCB * 00799280
* ONLY (SUCH FIELDS ARE MEANINGFUL ONLY FOR USER TCB'S). * 00799360
* EACH OF THE FOLLOWING FOUR FIELDS IS 2 BYTES LONG. * 00799440
********************************************************************* 00799520
#CPDAT EQU TCBMAX TIMES CP TASK RECEIVED DATA 00799600
#PGMLD EQU TCBURA # OF USER PGM LOADS DONE 00799680
#MRTAT EQU TCBFBM PGM REQS ATTACHED TO ACTIVE MRTS 00799760
#TCACC EQU TCBOFG TASK CHAIN REQUESTS ACCEPTED 00799840
SPACE 1 00799920
MEND 00800000