|
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: 8128 (0x1fc0)
Types: s3xseg
Names: »S$ETCB«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ETCB«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ETCB * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 15,MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR TASK CONTROL BLOCK: * 00110000
.* * 00120000
.* . OFFSETS OF CELLS * 00130000
.* . BIT VALUES WITHIN CELLS * 00140000
.* * 00150000
.* INPUT OPERANDS: * 00160000
.* * 00170000
.* . NONE * 00180000
.* * 00182000
.* RELEASE 15 * 00184000
.* @L - INCR/S1505 BUSY PRINTER SUPPORT * 00186000
.* * 00190000
.********************************************************************** 00200000
$ETCB 00210000
TEXT 00220000
.* 00230000
*********************************************************************** 00240000
* T A S K C O N T R O L B L O C K O F F S E T S * 00250000
*********************************************************************** 00260000
SPACE 2 00270000
TCBCCP EQU 0 HI-ORDER OFFSET 00280000
SPACE 2 00290000
*----------- TASK MANAGEMENT CONTROL BYTE ----------------------------* 00300000
SPACE 1 00310000
TCBTSK EQU TCBCCP-1+1 TASK MANAGEMENT CONTROL BYTE 00320000
SPACE 1 00330000
TCBATV EQU BIT0 * 'ACTIVE' INDICATOR -- 00340000
* * 1--TASK IS EXECUTABLE 00350000
* * 0--SUSPENDED BY SYS OPERATOR 00360000
TCBDSP EQU BIT1 * 'DISPATCHABLE' INDICATOR -- 00370000
* * 1--DISPATCHABLE 00380000
* * 0--NOT DISPATCHABLE 00390000
TCBRSM EQU BIT2 * TASK SUSPENDED INDICATOR 00400000
* * TASK INDICATOR 00410000
* * 1--TASK WAS SUSPENDED 00420000
* * WHILE INTERRUPTED 00430000
* * 0--NOT SUSPENDED WHILE INTR. 00440000
TCBSYT EQU BIT3 * 'SYSTEM TASK' INDICATOR -- 00450000
* * 1--SYSTEM TASK 00460000
* * 0--USER TASK 00470000
TCBDSM EQU BIT4 * TASK USE OF DSM BIT 00480000
* * 1--TASK IN DSM 00490000
* * 0--TASK NOT IN DSM 00500000
TCBDSV EQU BIT5 * 'REGISTER SAVE' INDICATOR -- 00510000
* * 1--REGS SAVED BY DISPATCHER 00520000
* * 0--REGS NOT SAVED 00530000
TCBRUN EQU BIT6 * 1--TCB IS IN USE BY USER PGM 00540000
* * 0--TCB AVAILABLE FOR USE 00550000
TCBKRQ EQU BIT7 * CCP SYSTEM OPERATOR REQ BIT 00560000
* * 1--USER TASK REQUESTED BY 00570000
* * CCP SYSTEM OPERATOR 00580000
* * 0--SYSTEM OPERATOR DIDN'T 00590000
* * REQUEST PROGRAM 00600000
SPACE 1 00610000
*----------- TASK IDENTIFICATION BYTE --------------------------------* 00620000
SPACE 1 00630000
TCBID EQU TCBTSK+1 TASK IDENTIFICATION CHARACTER 00640000
SPACE 2 00650000
TCBWMK EQU TCBID+1 * TASK WAIT MASK 00660000
SPACE 1 00670000
*------------WAIT/POST MASK BYTE ONE BIT DEFINITIONS------------------* 00680000
SPACE 1 00690000
WPAAII EQU BIT0 REQUEST FOR COMMUNICATION TASK 00700000
* I/O SERVICE 00710000
WPADIO EQU BIT1 DISK I/O WAIT COMPLETE 00720000
WPACP EQU BIT2 ACCEPT INPUT COMPLETE 00730000
WPASHD EQU BIT3 SHUTDOWN REQUESTED BY SYSTEM 00740000
* OPERATOR 00750000
WPATA EQU BIT4 TRANSIENT AREA AVAILABLE 00760000
* (NON-COMMUNICATION TASK) 00770000
WPASQB EQU BIT5 TASK WAITING ON ENQUEUED DATA 00780000
WPABSY EQU BIT6 TASK WAITING ON PRINTER BUSY @L 00785000
SPACE 1 00790000
*------------WAIT/POST MASK BYTE TWO BIT DEFINITIONS------------------* 00800000
SPACE 1 00810000
WPBFR EQU BIT0 FREEMAIN OF COMMUNICATION BUFFER 00820000
* OR USER PROGRAM AREA 00830000
WPBDA EQU BIT1 ALLOCATION ONLY--DISK FILE 00840000
WPBUR EQU BIT2 ALLOCATION ONLY--UNIT REC DEV 00850000
WPBTUB EQU BIT3 ALLOCATION ONLY--TERMINAL 00860000
WPBDSX EQU BIT4 DISK SYSTEM (DSM) ENTRY/EXIT 00870000
WPBTIO EQU BIT5 TASK WAITING FOR UNIT RECORD 00880000
* DEVICE READY OR NOT BUSY 00890000
WPBOHA EQU BIT6 DFF OUTPUT HOLD AREA SPACE REQ'D 00900000
SPACE 1 00910000
TCBECT EQU TCBWMK+2 * TASK EVENT COUNT 00920000
* * THE NUMBER OF UNIQUE EVENTS 00930000
* * WHICH MUST OCCUR PRIOR TO THE 00940000
* * TASK BEING MARKED DISPATCHABLE 00950000
SPACE 1 00960000
TCBPMK EQU TCBECT+1 * TASK POST MASK 00970000
* * SET BY POST TO INDICATE THE 00980000
* * TYPE OF EVENT COMPLETED 00990000
* * BIT DEFINITIONS ARE THE SAME 01000000
* * AS TCBWMK 01010000
TCBRCT EQU TCBPMK+2 * RESIDUAL EVENT COUNT 01020000
* * DECREMENTED BY ONE FOR EACH 01030000
* * UNIQUE EVENT COMPLETION-- 01040000
* * TASK MADE DISPATCHABLE WHEN 01050000
* * VALUE BECOMES ZERO 01060000
SPACE 1 01070000
TCBFLG EQU TCBRCT+1 * SAVE BYTE FOR $DPFLG WHEN TASK 01080000
* *LOOSES CONTROL OR GIVES CONTROL 01090000
* * TO THE CCP DISPATCHER 01100000
* * BIT DEFINITIONS ARE THE SAME 01110000
* * AS $CCCOM FIELD $DPFLG 01120000
SPACE 2 01130000
*----------- I/O SCHEDULER ADDRESSES ---------------------------------* 01140000
SPACE 1 01150000
TCBIOB EQU TCBFLG+2 ADDRESS OF WAITED ON DISK IOB 01160000
SPACE 2 01170000
*----------- TASK CONTROL BLOCK CHAIN --------------------------------* 01180000
SPACE 1 01190000
TCBNXT EQU TCBIOB+2 ADDR OF NEXT TCB FOR DISPATCHER 01200000
SPACE 2 01210000
*----------- REGISTER SAVE AREAS -------------------------------------* 01220000
SPACE 1 01230000
TCBIAR EQU TCBNXT+2 INSTRUCTION ADDRESS REGISTER 01240000
TCBPSR EQU TCBIAR+2 PROGRAM-STATUS REGISTER 01250000
TCBSAV EQU TCBPSR+2 ADDR OF THE REGISTER TRIPLET 01260000
* * FOR CURRENT LEVEL OF CONTROL 01270000
* * FOR THIS TASK. INITIALLY 01280000
* * CONTAINS TCBSAV-6 01290000
TCBARR EQU TCBSAV+2 ADDRESS-RECALL REGISTER 01300000
TCBXR1 EQU TCBARR+2 INDEX REGISTER 1 01310000
TCBXR2 EQU TCBXR1+2 INDEX REGISTER 2 01320000
* * A TOTAL OF *7* SAVE AREAS ARE 01330000
* * PROVIDED IN THE TCB 01340000
SPACE 2 01350000
************ END OF SYSTEM TASK CONTROL BLOCK ************************* 01360000
* * 01370000
TCBSYS EQU TCBXR2+42+1 OFFSET FOR END OF SYSTEM TCB * 01380000
* * 01390000
*********************************************************************** 01400000
SPACE 1 01410000
************ USER TCB INCLUDES THE FOLLOWING ************************** 01420000
SPACE 2 01430000
*----------- TERMINAL CONTROL FIELDS ---------------------------------* 01440000
SPACE 1 01450000
TCBTUB EQU TCBSYS-1+2+2 @ OF THE FIRST TUB ON THE TASK'S 01460000
* ALLOCATED TUB QUEUE 01470000
TCBINQ EQU TCBTUB+2 @ OF THE OLDEST TUB QUEUED FOR 01480000
* INPUT TO BE PROCESSED 01490000
TCBIIC EQU TCBINQ+1 INVITE INPUT COUNT FOR THIS TASK 01500000
TCBMAX EQU TCBIIC+1 MAXIMUM # OF TERMINALS THAT 01510000
* * MAY BE ACTIVE FOR THIS TASK 01520000
TCBATR EQU TCBMAX+1 # OF TERMINALS CURRENTLY ACTIVE 01530000
* * FOR THIS TASK 01540000
SPACE 2 01550000
*----------- DATA MANAGEMENT FIELDS ----------------------------------* 01560000
SPACE 1 01570000
TCBDTF EQU TCBATR+2 @ OF 1ST OPEN NON-DISK DTF 01580000
SPACE 2 01590000
*------DATA MANAGEMENT TASK BIT MASK----------------------------------* 01600000
SPACE 1 01610000
TCBFBM EQU TCBDTF+1 TCB FILE BIT MASK 01620000
SPACE 2 01630000
*----------- DATA MANAGEMENT CONTROL BYTE ----------------------------* 01640000
SPACE 1 01650000
TCBDMG EQU TCBFBM+1 DATA MANAGEMENT CONTROL BYTE 01660000
SPACE 1 01670000
SPACE 1 01680000
TCBSHQ EQU BIT0 * SHUTDOWN INQUIRY BIT - $CC4II 01690000
* * 1-RESPONSE HAS BEEN GIVEN 01700000
* * 0-RESPONSE NOT GIVEN YET 01710000
TCBACC EQU BIT1 PGM HAS ISSUED AN ACCEPT INPUT 01715000
TCBRUF EQU BIT2 RUF PROGRAM ACTIVE 01717000
TCBNEP EQU BIT3 * PROGRAM RUNNING UNDER THIS TCB 01720000
* * IS A N.E.P. 01730000
TCBIT4 EQU BIT4 * (RESERVED) 01735000
TCBMTS EQU BIT5 * MULTIPLE REQ TERMINAL SUPPORT 01740000
* * 1-USER PGM IS MRTS 01750000
* * 0-PGM NON-MRTS 01760000
TCBDA EQU BIT6 * DASD ALLOCATION BIT 01770000
* * 1--DISK FILES ARE ALLOCATED 01780000
* * 0--NO DISK FILES ALLOCATED 01790000
TCBOCF EQU BIT7 * 1 - CLOSE IS PURGING BUFFERS 01800000
SPACE 2 01810000
*----------- TASK MANAGEMENT CONTROL FIELDS --------------------------* 01820000
SPACE 1 01830000
TCBJOB EQU TCBDMG+1 JOB MANAGEMENT CONTROL BYTE 01840000
SPACE 1 01850000
TCBALC EQU BIT0 * TASK IS IN ALLOCATION 01860000
TCBTRM EQU BIT1 * TASK IS IN TERMINATION 01870000
TCBCAN EQU BIT2 * CANCEL REQUESTED BY CCP 01880000
TCBCON EQU BIT3 * CANCEL REQUESTED BY CCP OPER. 01890000
TCBPRT EQU BIT5 * PRINTER ALLOC'D TO THIS TASK 01900000
TCBMFU EQU BIT6 * MFCU ALLOC'D TO THIS TASK 01910000
TCB142 EQU BIT7 * 1442 ALLOC'D TO THIS TASK 01920000
SPACE 1 01930000
TCBCMP EQU TCBJOB+1 TASK COMPLETION CODE 01940000
TCBCDE EQU TCBCMP+2 ADDR OF CDE FOR THIS PROGRAM 01950000
TCBDFF EQU TCBCDE+2 * @ OF FORMATTING WORK AREA 01960000
TCBWRK EQU TCBDFF+1 * MAP BYTE @L 01963000
TCBPL@ EQU TCBWRK+2 *SAVED @ OF PUT PL IF 328X PRT@L 01966000
SPACE 2 01970000
************ END OF USER TASK CONTROL BLOCK *************************** 01980000
* * 01990000
TCBUSE EQU TCBPL@+1 LENGTH OF USER TCB @L 02000000
* * 02010000
************************************************************************02020000
.* 02030000
SPACE 1 02040000
MEND 02050000