|
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: 5588 (0x15d4)
Types: s3xseg
Names: »S$EPCT«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EPCT«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 6 * 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
SPACE 1 00410000
PCTAT1 EQU PCTSIZ+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
PCT40 EQU BIT5 1=PGM LINK EDITED TO USE 3340 00650000
PCTSRT EQU BIT7 CCP SORT PROGRAM 00660000
SPACE 1 00670000
PCTAT3 EQU PCTAT2+1 ATTRIBUTES BYTE 3 00680000
SPACE 1 00690000
PCT41I EQU BIT0 * PGM REQ NATIVE 3741 AS INPUT 00700000
PCT41O EQU BIT1 * PGM REQ NATIVE 3741 AS OUTPUT 00710000
PCTSR EQU BIT2 * PGM REQUIRES MFCU/M SEC AS RDR 00720000
PCTSP EQU BIT3 * PGM REQUIRES MFCU/M SEC AS PCH 00730000
PCT142 EQU BIT4 * PGM REQUIRES 1442. 00740000
PCTPR EQU BIT6 * PGM REQUIRES MFCU/M PRI AS RDR 00750000
PCTPP EQU BIT7 * PGM REQUIRES MFCU/M PRI AS P 00760000
SPACE 1 00770000
PCTMAX EQU PCTAT3+1 MAX NO. TERMINALS FOR MTS PGM 00780000
PCTFDT EQU PCTMAX+1 # OF 256 BYTE BLOCKS IN LONGEST 00790000
* DFF FORMAT DESCRIPTOR TABLE 00800000
PCTDFF EQU PCTFDT+1 ZERO-DFF NOT USED 00810000
* NON-ZERO--# OF 256 BYTE BLOCKS 00820000
* FOR FORMATTING WORK AREA 00830000
PCT$Z EQU PCTDFF+4 READ UNDER FORMAT - FORMAT NAME 00840000
* 1ST BYTE = 01 IF NO NAME BUT 00850000
* LENGTH IS GIVEN. 00860000
PCTMRO EQU PCT$Z+1 # OF 2K BLOCKS FOR MRO PGM 00870000
SPACE 2 00880000
*----------- COUNTS OF VARIABLE-LENGTH PORTIONS ----------------------* 00890000
SPACE 1 00900000
PCTNLT EQU PCTMRO+1 NO. REQ'D LOGICAL TERM ENTRIES 00910000
PCTNDT EQU PCTNLT+1 NO. DISK FILE ENTRIES 00920000
SPACE 2 00930000
PCTFXL EQU PCTNDT+1 END OF THE FIXED PORTION OF THE 00940000
* PCT 00950000
SPACE 1 00960000
************ VARIABLE LENGTH PORTION ********************************** 00970000
SPACE 1 00980000
* EACH OF THE FOLLOWING ENTRY GROUPS IS ORIGINED INITIALLY TO ZERO 00990000
SPACE 2 01000000
*----------- REQUIRED TERMINAL ENTRY ---------------------------------* 01010000
SPACE 1 01020000
PCTLTD EQU 0-1+1 INDEX OF LOGICAL TERM IN TNT 01030000
PCTTAS EQU PCTLTD+1 TERMINAL ATTRIBUTE SET NUMBER 01040000
PCTTLN EQU PCTTAS+1 LENGTH OF PCT TERMINAL ENTRY 01050000
SPACE 2 01060000
*----------- DISK FILE ENTRY -----------------------------------------* 01070000
SPACE 1 01080000
PCTDTD EQU 0-1+1 RELATIVE SHORT DTF AT STARTUP 01090000
PCTMDE EQU PCTDTD+1 FILE USE MODE + FLAG BYTE 01100000
SPACE 1 01110000
PCTSYM EQU BIT0 1--THIS IS A SYMBOLIC FILE ENTRY 01120000
* 0--THIS IS A PHYSICAL FILE ENTRY 01130000
PCTUPD EQU BIT1 FILE IS UPDATE ONLY 01140000
PCTADD EQU BIT2 FILE IS ADD ONLY 01150000
PCTSHR EQU BIT3 * 'SHAREABLE' INDICATOR 01160000
* * 0--WILL SHARE 01170000
* * 1--WILL *NOT* SHARE + IO, 01180000
* IOU,ISA,ISUA,CO, OR CA 01190000
PCTREF EQU BIT4 * FILE IS REFERENCE ONLY 01200000
PCTLOD EQU BIT5 * ACCESS IS ORDERED INDEX LOAD 01210000
PCTIOU EQU BIT6 * ACCESS IS UNORDERED INDEX LOAD 01220000
PCTISA EQU BIT7 * ACCESS IS ISA OR ISUA 01230000
SPACE 1 01240000
PCTDTA EQU PCTMDE+1 RELATIVE NO. OF FILE--ASSIGNMENT 01250000
PCTCRL EQU PCTDTA+1 *** UNUSED *** 01260000
SPACE 1 01270000
PCTFLN EQU PCTCRL+1 LENGTH OF A PCT DISK FILE ENTRY 01280000
SPACE 01290000
*----------- PROGRAM REQUEST COUNT ----------------------------------- 01300000
SPACE 1 01310000
PCTDCT EQU PCTCRL+2 DISPL OF IN-CORE PROGRAM 01320000
* REQUEST COUNT TABLE 01330000
PCTNUM EQU PCTDCT+2 NO. TIMES PGM REQ (IF USED) 01340000
MEND 01350000