|
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: 6604 (0x19cc)
Types: s3xseg
Names: »S$EPCT«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EPCT«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 3 * 00030000
.* * 00040000
.* NAME: $EPCT * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS NEEDED TO REFERENCE THE FIELDS IN * 00070000
.* THE 'PROGRAM CONTROL TABLE' IN $CCPFILE. * 00080000
.* * 00090000
.* INPUT OPERANDS: * 00100000
.* * BITS-YES/Y GENERATE THE BIT INDICATORS FOR FIELDS IN THE* 00110000
.* PCT IN ADDITION TO THE FIELD OFFSETS. THIS * 00120000
.* IS THE DEFAULT. * 00130000
.* NO/N DO NOT GENERATE THE BIT DEFINITIONS. * 00140000
.********************************************************************** 00150000
$EPCT 00160000
TEXT 00170000
*********************************************************************** 00180000
* P R O G R A M C O N T R O L T A B L E O F F S E T S * 00190000
*********************************************************************** 00200000
PCTCCP EQU 0 HI-ORDER OFFSET 00210000
SPACE 00220000
************ FIXED SECTION ******************************************** 00230000
PCTJMP EQU PCTCCP-1+2 LENGTH OF THIS ENTIRE PCT ENTRY 00240000
PCTNAM EQU PCTJMP+6 PROGRAM NAME 00250000
PCTOFF EQU PCTNAM+1-PCTCCP @ OFFSET FOR PCT REFERENCE 00260000
* IN TUB BUFFER 00270000
SPACE 00280000
*----------- PROGRAM LOAD INFORMATION --------------------------------* 00290000
PCTCS EQU PCTNAM+2 C/S OF O.MODULE 00300000
PCT#S EQU PCTCS+1 NO. TEXT SECTORS IN O.MODULE 00310000
PCTLNK EQU PCT#S+2 LINK EDIT ADDR OF O.MODULE 00320000
PCTRLD EQU PCTLNK+1 DISPLACEMENT OF RLDS IN 1ST SCTR 00330000
PCTENT EQU PCTRLD+2 O.MODULE ENTRY POINT ADDRESS 00340000
SPACE 00350000
*----------- OTHER PROGRAM ATTRIBUTES --------------------------------* 00360000
PCTLNG EQU PCTENT+1 PGM LENGTH- 00370000
* NO. OF 256 BYTE BLOCKS - 1 00380000
PCTSIZ EQU PCTLNG+1 PGM LENGTH- 00390000
* NO. OF 2K BLOCKS 00400000
PCTEXB EQU PCTSIZ+1 EXTERNAL BUFFER LENGTH 00403000
* NO. OF 256 BYTE BLOCKS 00406000
SPACE 1 00410000
PCTAT1 EQU PCTEXB+1 ATTRIBUTES BYTE 1 00420000
SPACE 1 00430000
PCTPRS EQU BIT0 * PGM WILL SHARE PRINTER. 00440000
PCTMTS EQU BIT1 * PGM SUPPORTS MULT REQ TERMINL 00450000
PCT501 EQU BIT2 * PGM REQUIRES 2501 00460000
PCTPRT EQU BIT3 * PGM REQUIRES LINE PRINTER 00470000
PCTNEP EQU BIT4 * PGM IS NEVER ENDING 00480000
PCTMFU EQU BIT5 * PGM REQUIRES MFCU/M 00490000
PCT14R EQU BIT6 * PGM REQUIRES 1442 AS A READER 00500000
PCT14P EQU BIT7 * PGM REQUIRES 1442 AS A PUNCH 00510000
SPACE 1 00520000
PCTAT2 EQU PCTAT1+1 ATTRIBUTES BYTE 2 00530000
SPACE 1 00540000
PCTSU EQU BIT0 * PGM SUPPRESSED BIT FROM INIT 00550000
PCTPAK EQU BIT1 1--PGM IS ON SYSTEM PACK 00560000
* 0--PGM IS ON PROGRAM PACK 00570000
PCTEMG EQU BIT2 END OF JOB MESSAGE OPTION 00580000
* 1--SEND ENDED/RELEASED MESSAGE 00590000
* 0--DON'T SEND ENDED/RELEASED MSG 00600000
PCTDAT EQU BIT3 * 1--INPUT DATA ALLOWED ON REQ 00610000
* * 0--INPUT DATA PROHIBITED ON 00620000
* * REQUEST LINE 00630000
PCTCMN EQU BIT4 PROGRAM HAS COMMON 00640000
PCTSUS EQU BIT5 INIT SUSPENDED FOR THIS PROG 00641000
PCTXEC EQU BIT6 * EXECUTION TIME PROGRAM FIND 00642000
* 1-FIND PROGRAM AT EXECUTION 00644000
* 0-FIND PROGRAM AT STARTUP 00646000
PCTTSK EQU BIT7 * TASK SIZE SPECIFIED IN SET 00653000
SPACE 1 00660000
PCTAT3 EQU PCTAT2+1 ATTRIBUTES BYTE 3 00670000
SPACE 1 00680000
PCT41I EQU BIT0 * PGM REQ NATIVE 3741 AS INPUT 00690000
PCT41O EQU BIT1 * PGM REQ NATIVE 3741 AS OUTPUT 00700000
PCTSR EQU BIT2 * PGM REQUIRES MFCU/M SEC AS RDR 00710000
PCTSP EQU BIT3 * PGM REQUIRES MFCU/M SEC AS PCH 00720000
PCT142 EQU BIT4 * PGM REQUIRES 1442. 00730000
PCTPR EQU BIT6 * PGM REQUIRES MFCU/M PRI AS RDR 00740000
PCTPP EQU BIT7 * PGM REQUIRES MFCU/M PRI AS P 00750000
SPACE 1 00760000
PCTAT4 EQU PCTAT3+1 ATTRIBUTE BYTE FOUR 00761000
SPACE 1 00761500
PCTSRT EQU BIT0 * SORT PROGRAM 00762000
PCTCHN EQU BIT1 * TASK CHAIN PROGRAM 00763000
PCTKEY EQU BIT2 * PROGRAM USES KEYSORT 00763500
PCTLOW EQU BIT3 * PROGRAM PRIORITY 00764000
* 1 -- LOW PRIORITY SPECIFIED 00765000
* 0 -- NORMAL PRIORITY SPECIFIED 00766000
PCTPGM EQU BIT4 * PROGRAM FIND ALLOWED 00766500
SPACE 1 00767000
PCTMAX EQU PCTAT4+1 MAX NO. TERMINALS FOR MTS PGM 00770000
PCTFDT EQU PCTMAX+1 # OF 256 BYTE BLOCKS IN LONGEST 00780000
* DFF FORMAT DESCRIPTOR TABLE 00790000
PCTDFF EQU PCTFDT+1 ZERO-DFF NOT USED 00800000
* NON-ZERO--# OF 256 BYTE BLOCKS 00810000
* FOR FORMATTING WORK AREA 00820000
PCT$Z EQU PCTDFF+4 READ UNDER FORMAT - FORMAT NAME 00830000
* 1ST BYTE = 01 IF NO NAME BUT 00840000
* LENGTH IS GIVEN. 00850000
PCTMRO EQU PCT$Z+1 # OF 2K BLOCKS FOR MRO PGM 00860000
PCTQB EQU PCTMRO+1 IF PACK-##, CORRESPONDING Q-BYTE 00860001
PCTRS1 EQU PCTQB+3 RESERVED 00865000
SPACE 2 00870000
*----------- COUNTS OF VARIABLE-LENGTH PORTIONS ----------------------* 00880000
SPACE 1 00890000
PCTNLT EQU PCTRS1+1 NO. REQ'D LOGICAL TERM ENTRIES 00900000
PCTNDT EQU PCTNLT+1 NO. DISK FILE ENTRIES 00910000
SPACE 2 00920000
PCTFXL EQU PCTNDT+1 END OF THE FIXED PORTION OF THE 00930000
* PCT 00940000
SPACE 1 00950000
************ VARIABLE LENGTH PORTION ********************************** 00960000
SPACE 1 00970000
* EACH OF THE FOLLOWING ENTRY GROUPS IS ORIGINED INITIALLY TO ZERO 00980000
SPACE 2 00990000
*----------- REQUIRED TERMINAL ENTRY ---------------------------------* 01000000
SPACE 1 01010000
PCTLTD EQU 0-1+1 INDEX OF LOGICAL TERM IN TNT 01020000
PCTTAS EQU PCTLTD+1 TERMINAL ATTRIBUTE SET NUMBER 01030000
PCTTLN EQU PCTTAS+1 LENGTH OF PCT TERMINAL ENTRY 01040000
SPACE 2 01050000
*----------- DISK FILE ENTRY -----------------------------------------* 01060000
SPACE 1 01070000
PCTDTD EQU 0-1+1 RELATIVE SHORT DTF AT STARTUP 01080000
PCTMDE EQU PCTDTD+1 FILE USE MODE + FLAG BYTE 01090000
SPACE 1 01100000
PCTSYM EQU BIT0 1--THIS IS A SYMBOLIC FILE ENTRY 01110000
* 0--THIS IS A PHYSICAL FILE ENTRY 01120000
PCTUPD EQU BIT1 FILE IS UPDATE ONLY 01130000
PCTADD EQU BIT2 FILE IS ADD ONLY 01140000
PCTSHR EQU BIT3 * 'SHAREABLE' INDICATOR 01150000
* * 0--WILL SHARE 01160000
* * 1--WILL *NOT* SHARE + IO, 01170000
* IOU,ISA,ISUA,CO, OR CA 01180000
PCTREF EQU BIT4 * FILE IS REFERENCE ONLY 01190000
PCTLOD EQU BIT5 * ACCESS IS ORDERED INDEX LOAD 01200000
PCTIOU EQU BIT6 * ACCESS IS UNORDERED INDEX LOAD 01210000
PCTISA EQU BIT7 * ACCESS IS ISA OR ISUA 01220000
SPACE 1 01230000
PCTDTA EQU PCTMDE+1 RELATIVE NO. OF FILE--ASSIGNMENT 01240000
PCTCRL EQU PCTDTA+1 2ND FILE USE MODE + FLAG BYTE 01250000
PCTMVF EQU BIT0 FILE IS MULTIVOLUME 01255000
PCTKYS EQU BIT1 FILE TO BE KEYSORTED 01257000
SPACE 1 01260000
PCTFLN EQU PCTCRL+1 LENGTH OF A PCT DISK FILE ENTRY 01270000
SPACE 01280000
*----------- PROGRAM REQUEST COUNT ----------------------------------- 01290000
SPACE 1 01300000
PCTDCT EQU PCTCRL+2 DISPL OF IN-CORE PROGRAM 01310000
* REQUEST COUNT TABLE 01320000
PCTNUM EQU PCTDCT+2 NO. TIMES PGM REQ (IF USED) 01330000
MEND 01340000