
          CTEXT  CTC$DFT CONSTANTS.
 CTCDFT   SPACE  4,10
***       CTC$DFT CONSTANTS.
*         G. J. FALCONER.    85/05/02.
 CTCDFT   SPACE  4,10
***              DEFINES DFT-RELATED CONSTANTS.
          SPACE  4,10
*         THE FOLLOWING SYMBOLS DEFINE THE CURRENT AND PREDECESSOR VERSIONS
*         OF DFT.

 CURNTV   EQU    7
 VER7     EQU    7
 VER6     EQU    6
 VER5     EQU    5
 VER4     EQU    4
 VER3     EQU    3
 VER2     EQU    2
 VER1     EQU    1

*         OVERLAY ORIGIN FOR RESIDENT II.

 R2ORG    EQU    5700B

*         S0/S0E PAGE MAP INTERNAL ELEMENT ID.

 DFTPMID  EQU    3

*         FOLLOWING IS THE BASE SIZE DEFINITION FOR THE NON REGISTER STATUS BUFFER

 NRSBL    EQU    5

*         FOLLOWING IS THE MAXIMUM NUMBER OF REGISTER LIST ENTRIES ALLOWED.

 MAXRL    EQU    2*10        MAXIMUM OF 10 REGISTER LISTS

*         FOLLOWING IS THE DEFAULT THRESHOLD FOR MAINFRAME ELEMENT
*         COUNTERS BUFFER.

 THRH     EQU    20D

*         FOLLOWING IS THE CONSTANT DESCRIBING THE MULTIPLE OCCURRENCE BIT
*         BIT 11 ( 0 .. 11).

 MUOC     EQU    0#800       MULTIPLE OCCURRENCE BIT

*         FOLLOWING ARE DEFINITIONS OF TOP OF HOUR STATISTIC DFT ANALYSIS CODES.

 TOHE     EQU    0#1707      ELEMENT COUNTERS ANALYSIS CODE
 TOHS     EQU    0#1708      SECDED ID TABLE ANALYSIS CODE


*         FOLLOWING ARE THE EQUATES FOR REFERENCING THE MAINFRAME
*         ELEMENT COUNTERS BUFFER.

 METH     EQU    0           THRESHOLD FIELD
 MEUL     EQU    1           UNLOGGED COUNTER
 MECO     EQU    2           CORRECTED ERROR
 MEUN     EQU    3           UNCORRECTED ERROR

*         FOLLOWING IS THE EQUATE SPECIFYING THE POINTER BLOCK LENGTH IN
*         THE DFT CONTROL BLOCK.

 DHPL     EQU    6

*         FOLLOWING ARE SHIFT COUNTS FOR ACCESSING DFT HEADER FIELDS.

 DH.NPW   EQU    10          NUMBER OF POINTER WORDS
 DH.RL    EQU    10          REVISION LEVEL
 DH.LBF   EQU    10          LENGTH OF MAINTENANCE REGISTER BUFFER IN CM WORDS
 DH.BKP   EQU    14          PP BREAKPOINT FLAG
 DH.DT    EQU    13          DUAL STATE TRANSITION FLAG
 DH.MO    EQU    12          MANUAL OVERRIDE OF DFT BY MDD
 DH.FFC   EQU    11          FREEZE SYSTEM ON CORRECTED ERROR
 DH.FFU   EQU    10          FREEZE SYSTEM ON UNCORRECTED ERROR
 DH.FV    EQU    7           DFT VERIFICATION FLAG
 DH.FR    EQU    6           DFT REJECT FLAG
 DH.FZ    EQU    5           ZERO COUNTERS AND SECDED ID TABLE
 DH.FC    EQU    4           C170 DEDICATED MODE
 DH.FL    EQU    3           LOGGING FLAG
 DH.FD    EQU    2           DEDICATED MODE FLAG
 DH.FE8   EQU    1           C180 ERROR FLAG
 DH.FE7   EQU    0           C170 ERROR FLAG

*         FOLLOWING ARE EQUATES FOR ACCESSING DFT HEADER CM WORD.

 DHSEQ    EQU    0           SEQUENCE NUMBER
 DHNPW    EQU    0           NUMBER OF POINTER WORDS
 DHRL     EQU    1           REVISION LEVEL
 DHPP     EQU    1           LOGICAL PP NUMBER OF DFT
 DHLBF    EQU    2           LENGTH OF MAINTENANCE REGISTER BUFFER
 DHNBF    EQU    2           NUMBER OF MAINTENANCE REGISTER BUFFERS
 DHFLG    EQU    3           FLAGS

*         FOLLOWING ARE SHIFT COUNTS FOR BUFFER CONTROL WORD FIELDS.

 BC.MO    EQU    13          MULTIPLE OCCURRENCE BIT
 BC.EI    EQU    10          ELEMENT INDEX
 BC.ANP   EQU    14          DFT ANALYSIS CODE PRIORITY
 BC.ANE   EQU    10          DFT ANALYSIS CODE ERROR NUMBER
 BC.SEQ   EQU    10          SEQUENCE NUMBER

*         FOLLOWING ARE SHIFT COUNTS FOR BUFFER CONTROL WORD FLAGS.

*UNUSED   EQU    7           RESERVED FOR FUTURE USE
 BC.MDB   EQU    6           MODEL DEPENDENT BUFFER DATA TO LOG
 BC.CL    EQU    5           LOG MAINTENANCE REGISTERS TO CONSOLE FLAG
 BC.TE    EQU    4           THRESHOLD EXCEEDED
 BC.FL    EQU    3           OS SHOULD LOG MAINTENANCE REGISTERS FLAG
 BC.FI    EQU    2           INTERLOCK FLAG
 BC.FV8   EQU    1           C180 VALID DATA FLAG
 BC.FV7   EQU    0           C170 VALID DATA FLAG

*         FOLLOWING ARE EQUATES FOR ACCESS TO BUFFER CONTROL WORD.

 BCEI     EQU    0           ELEMENT INDEX
 BCOA     EQU    0           OS ACTION CODE
 BCDA     EQU    1           DFT ANALYSIS
 BCSEQ    EQU    2           SEQUENCE NUMBER
 BCFLG    EQU    2           FLAGS
 BCOFF    EQU    3           OFFSET

*         FOLLOWING ARE EQUATES FOR OFFSETS TO DFT STRUCTURES.

 HDRP     EQU    0           OFFSET TO DFT CONTROL WORD
 SECP     EQU    1           OFFSET TO SECDED ID TABLE POINTER
 MRBP     EQU    2           OFFSET TO MAINTENANCE REGISTER BUFFER POINTER
 MDLP     EQU    3           OFFSET TO MODEL-DEPENDENT BUFFER POINTER
 NVEP     EQU    4           OFFSET TO NOS/VE BUFFER POINTER
 C17P     EQU    5           OFFSET TO C170 PP RESIDENT BUFFER POINTER
 OSRP     EQU    6           OFFSET TO C170 OS REQUEST POINTER (VERSION 2-N)
 BCWP     EQU    7           OFFSET TO BUFFER CONTROL WORDS
 MECP     EQU    10          OFFSET TO MAINFRAME ELEMENT COUNTERS
 ECRP     EQU    11          OFFSET TO ERROR CONTROL RECORD
 SSBP     EQU    12          OFFSET TO SUPPORTIVE STATUS BUFFER
 NRSP     EQU    13          OFFSET TO NON REGISTER STATUS BUFFER
 DCMP     EQU    14          OFFSET TO DFT CM RESIDENT BUFFER
 PRDP     EQU    15          OFFSET TO PP REGISTER SAVE AREA
 SDBP     EQU    16          OFFSET TO SECONDARY DFT BUFFER POINTER

*         THE FOLLOWING DEFINES THE STRUCTURE OF THE DFT CM RESIDENT BUFFER.

 CMSS     EQU    0           BITS 48-63:  1/IOU1 SS READ,7/0,8/IOU1 SS
 CMSN     EQU    1           BITS 48-63:  16/NUMBER OF TIMES *SIT* < -2 SECONDS
 CMTO     EQU    1           BITS 32-47:  16/NUMBER OF PACKET TIME OUTS
 CMSM     EQU    1           BITS 16-31:  16/NUMBER OF MISMATCHED PACKET SEQUENCE NUMBERS
 CMRC     EQU    2           BITS 48-63:  RETRY COUNTER FOR 960
 CMRA     EQU    3           BITS 24-63:  R-REGISTER ADDRESS FOR 960 RETRY
 CMPRA    EQU    4           BITS 00-63:  P-REGISTER ADDRESS FOR 960 RETRY
 CMDK     EQU    10 - 16     DISK STATUS BUFFER FROM ERROR ENCOUNTERED BY *2AP*
 CMEPM    EQU    17 - 34     960 ENVIRONMENT POWER MONITOR PACKET DATA

*         FOLLOWING ARE EQUATES FOR OS ACTION CODES (VERSION 1-3).

 OSEW     EQU    1           ENVIRONMENT WARNING
 OSLPW    EQU    2           LONG POWER WARNING
 OSSPW    EQU    3           SHORT POWER WARNING
 OSWC     EQU    4           WARNING CLEAR
 OSFIE    EQU    5           FATAL IOU ERROR
 OSVEI    EQU    6           NOS/VE IOU ERROR
 OSUCM    EQU    7           UNCORRECTED CM ERROR
 OSMOB    EQU    10          MULTIPLE ODD BIT ERROR
 OSUPE    EQU    11          UNCORRECTED PROCESSOR ERROR
 OSNSI    EQU    12          NOS PP FAILURE

*         FOLLOWING ARE EQUATES FOR OS ACTION CODES (VERSION 4-N).

 OSNA     EQU     0          NO OS ACTION
 OSSI     EQU    13          SYSTEM IDLE/CHECKPOINT
 OSSR     EQU    14          SYSTEM RESUME
 OS17I    EQU    15          C170 STATE IDLE (CHECKPOINT)
 OS17R    EQU    16          C170 STATE RESUME (RESTART)
 OS18I    EQU    17          C180 STATE IDLE
 OS18R    EQU    20          C180 STATE RESUME
 OSSS     EQU    21          SYSTEM STEP
 OSSU     EQU    22          SYSTEM UNSTEP
 OS17S    EQU    23          C170 STATE STEP
 OS17U    EQU    24          C170 STATE UNSTEP
 OS18S    EQU    25          C180 STATE STEP
 OS18U    EQU    26          C180 STATE UNSTEP
 OSRME    EQU    27          RECONFIGURE MAINFRAME ELEMENTS
 OSVCD    EQU    30          990 VECTOR DEGRADE
 OSSED    EQU    31          POST SUBELEMENT DEGRADE(SERVICE PROCESSOR)
 OSCMF    EQU    32          FLAW CM PAGE(SERVICE PROCESSOR)
 OSOAM    EQU    33          POST OPERATOR ACTION MESSAGE (SERVICE PROCESSOR)
 OSHGP    EQU    34          HUNG PP PROCESSING
 OSIMB    EQU    35          IOU BIT 57 CM ACCESS BLOCKED

*         FOLLOWING ARE ERROR PRIORITY VALUES.

 EPSW     EQU    6           SHORT WARNING
 EPEN     EQU    5           ENVIRONMENT WARNING
 EPCH     EQU    4           CPU HALT ERROR
 EPUN     EQU    3           UNCORRECTED ERROR
 EPCO     EQU    2           CORRECTED ERROR
 EPTH     EQU    1           TOP OF HOUR PROCESSING
 EPRT     EQU    0           RETRY OPERATION

*         EQUATES FOR TYPE CODES.

 TC.MAC   EQU    0#0         MAC TYPE CODE - MAC, PMF, PSR
 TC.RGU   EQU    0#7         RGU TYPE CODE - RGU
 TC.ACU   EQU    0#4         ACU TYPE CODE - M2, M3, M4
 TC.BDP   EQU    0#5         BDP TYPE CODE - BDP, BP3
 TC.IDU   EQU    0#1         IDU TYPE CODE - CW, CS, INSTR MAP
 TC.EPN   EQU    0#9         EPN TYPE CODE - EPN
 TC.LSU   EQU    0#8         LSU TYPE CODE - LSU

*         EQUATES FOR ELEMENT IDENTIFIERS.

 EIDCM    EQU    1           CENTRAL MEMORY ELEMENT ID
 EIDIOU0  EQU    2           IOU0 ELEMENT ID
 EIDIOU1  EQU    0#12        IOU1 ELEMENT ID
 EIDCPU0  EQU    0#00        CPU0 ELEMENT ID
 EIDCPU1  EQU    0#10        CPU1 ELEMENT ID

*         EQUATES FOR 990 ISSUE TIMEOUT DETECTION.

 VGAT     EQU    0#55        VECTOR GATHER OPCODE
 VSCA     EQU    0#56        VECTOR SCATTER OPCODE
 VMID     EQU    0#80        CIR VMID BIT MASK
 BOB      EQU    7           BYTE OFFSET BITS

*         EQUATES FOR 990 RETRY OPERATIONS.

 TRPC.TH  EQU    0#10        THETA RETRY P COUNTER THRESHOLD
 TRHC.TH  EQU    0#80        THETA RETRY HOURLY COUNTER THRESHOLD
 MICLEV   EQU    3443B       LEVEL 18 IN DISPLAY CODE
 TRPO     EQU    28D         THETA RETRY PROGRAM ADDRESS OFFSET
 TRCO     EQU    29D         THETA RETRY COUNTER OFFSET

*         990 CONTROL STORE ADDRESS EQUATES.

 CSAH     EQU    0#20        CONTROL STORE ADDRESS HALT
 CSHA     EQU    0#24        CONTROL STORE SW HALT ADDR
 CSRA     EQU    0#44        CONTROL STORE RETRY ADDR
 CSHHA    EQU    0#92        CONTROL STORE HW HALT ADDR
 CSBDPI   EQU    0#3FE       CONTROL STORE BDP INIT ADDR

*         EQUATES FOR THE *MRB TYPE* FIELD IN THE SUPPORTIVE STATUS BUFFER.

 MTMRB    EQU    1           MRB REGISTER GROUP
 MTMEC    EQU    4           MAINFRAME ELEMENT COUNTERS
 MTSIT    EQU    5           SECDED ID TABLE
 MTI4C    EQU    6           I4C PACKET STATUS
 MTNRB    EQU    7           ENTRY IN NON REGISTER STATUS BUFFER

*         EQUATES FOR BYTE OFFSETS IN MRB AFTER READ INTO CM.

 OCW1     EQU    CM+2
 OCW2     EQU    CM+3
 OCST     EQU    CM+1
 OBDP     EQU    CM+3
 OACUM4   EQU    CM+2
 OBP31    EQU    CM
 OBP32    EQU    CM+1
 OACUM3   EQU    CM+1
 OLSU     EQU    CM+2
 OIMAP    EQU    CM
 OEPN     EQU    CM+3
 OACUM2   EQU    CM+1

*         CONTROL MEMORY ADDRESS EQUATES.

 ACU.M2   EQU    0#800       FWA ACU M2 SCM
 ACU.M3   EQU    0#900       FWA ACU M3 SCM
 ACU.M4   EQU    0#A00       FWA ACU M4 SCM
 BDP.SCM  EQU    0#C00       FWA BDP SCM
 BP3.FWA  EQU    0#00        FWA OF BP3 TYPE CODE
 EPN.ETM  EQU    0#20        FWA EPN ERROR INFO TABLE
 EPN.SCM  EQU    0#00        FWA EPN SCM
 IDU.CIR  EQU    0#7000      FWA CURRENT INSTR REGISTER
 IDU.CSMM EQU    0#4000      FWA CS MULTIPLE MICRAND MEMORY
 IDU.CSSM EQU    0#5000      FWA CS SINGLE MICRAND MEMORY
 IDU.CW   EQU    0#6000      FWA CONTROL WORD
 INU.IBS  EQU    0#00        FWA INSTRUCTION BUFFER STACK
 INU.IMAP EQU    0#2000      FWA 170 AND 180 MAP MEMORY
 LSU.SCM  EQU    0#00        FWA LSU SCM
 SVA.BN   EQU    0#C00       SVA BYTE NUMBER

*         MODEL-DEPENDENT BUFFER EQUATES.

 MDBL     EQU    0#2D0       MODEL DEPENDENT BUFFER LENGTH
 MBIO     EQU    -12D        MDB INTERLOCK OFFSET
 MDB.IF   EQU    0#8000      MDB INTERLOCK FLAG MASK
 MDB.IM   EQU    0#7FFF      MDB INTERLOCK MASK
 MDB.IC   EQU    3           MDB INTERLOCK CODE
 MDB.NIT  EQU    1           NOT ISSUE TIMEOUT INTERLOCK CODE
 MDB.IT   EQU    2           ISSUE TIMEOUT INTERLOCK CODE
 MDB.MRB  EQU    0#25D
 MDB.HF   EQU    MDB.MRB+30D
 MDB.XP   EQU    MDB.HF+64D
 MDB.P    EQU    MDB.XP+52D
 MDB.CB   EQU    MDB.P+14

*         EQUATES FOR WORD OFFSETS FOR THE ELEMENT FIELDS IN THE DFT ERROR CONTROL RECORD.

 ECRID    EQU    0           IDENTIFIER
 ECRTH    EQU    1           CORRECTED/UNCORRECTED THRESHOLDS
 ECRM1    EQU    2           M1 BIT MASK
 ECRR1    EQU    3           R1 BITS TO SELECT
 ECRM2    EQU    4           M2 BIT MASK
 ECRR2    EQU    5           R2 BITS TO SELECT
 ECRES    EQU    ECRR2+1     ECR ELEMENT SIZE

*         EQUATES FOR ELEMENT IDENTIFIERS IN THE NON REGISTER STATUS BUFFER.

 DFTREID  EQU    0#4         DFT REPORTED ERRORS


*         INDICES FOR THE NON-REGISTER STATUS BUFFERS.

 NRSSB    EQU    0           SCRATCH BUFFER
 NRSTH    EQU    1           TOP OF HOUR BUFFER
 NRSSC    EQU    2           *SCI* BUFFER
 NRSFR    EQU    3           FIRST REGULAR USE BUFFER

*         EQUATES FOR CALL TO *2AP*.

 ORG2AP   EQU    20000B      MAXIMUM ADDRESS OF OVERLAY (ON S0/S0E)
 TOAP     EQU    2502B       LOAD ADDRESS FOR *2AP*
 TOAPS0   EQU    24000B      S0/S0E LOAD ADDRESS FOR *2AP*
 TOEP     EQU    2504B       ENTRY POINT FOR *2AP*
 TOEPS0   EQU    24002B      S0/S0E ENTRY POINT FOR *2AP*
 TOBP     EQU    2002B       START OF CTI BUFFER MINUS LINKAGE WORDS
 TOBPS0   EQU    22004B      S0/S0E CTI BUFFER MINUS LINKAGE WORDS
 TOIP     EQU    2000B       START OF CTI BUFFER FOR INPUT DATA
 TOIPS0   EQU    22000B      S0/S0E CTI BUFFER FOR INPUT DATA

*         REGISTER EQUATES.

 RGU.HF   EQU    0#100       HISTORY FILE
 PFS0     EQU    0#80        PFS REGISTER 81
 PFS4     EQU    0#84        PFS REGISTER 84
 PFS6     EQU    0#86        PFS REGISTER 86
 PFSB     EQU    0#8B        PFS REGISTER 8B
 PFSF     EQU    0#8F        PFS REGISTER 8F

*         FOLLOWING ARE EQUATES FOR THE DFT RUN TIME ERROR MESSAGES.

 DMC      EQU    0           RESET AND CONTINUE
 TDFT     EQU    1S12        TERMINATE DFT INDEX

*         FOLLOWING ARE EQUATES FOR DEREFERENCING THE DFT DEFINITION RECORD

 H77TBLC  EQU    20          NUMBER OF CM WORDS THE 77 TABLE USES
 H77TBLP  EQU    100         NUMBER OF 16 BIT PP WORDS THE 77 TABLE USES

 DBDH1    EQU    H77TBLP     DFT BUFFER DEFINITION HEADER WORD 1
 DBDH2    EQU    DBDH1+4     DFT BUFFER DEFINITION HEADER WORD 2
 DBDH3    EQU    DBDH1+10    DFT BUFFER DEFINITION HEADER WORD 3
 DBDH4    EQU    DBDH1+14    DFT BUFFER DEFINITION HEADER WORD 4
 DBDH5    EQU    DBDH1+20    DFT BUFFER DEFINITION HEADER WORD 5
 DBDHS    EQU    24          NUMBER OF PP WORDS IN DFT HEADERS

 DCWP0    EQU    H77TBLP+DBDHS   DFT BUFFER DEFINITION RECORD DFT CONTROL WORD PARCEL 0
 DCWP1    EQU    DCWP0+1     DFT BUFFER DEFINITION RECORD DFT CONTROL WORD PARCEL 1
 DCWP2    EQU    DCWP0+2     DFT BUFFER DEFINITION RECORD DFT CONTROL WORD PARCEL 2
 DCWP3    EQU    DCWP0+3     DFT BUFFER DEFINITION RECORD DFT CONTROL WORD PARCEL 3

 MDBSIZE  EQU    H77TBLP+2  DFT BUFFER DEFINITION RECORD MODEL DEP BUFFER SIZE
 STRSIZE  EQU    H77TBLP+3  DFT BUFFER DEFINITION RECORD TOTAL DFT STRUCTURE SIZE

*         PACKET CONTROL WORD EQUATES FOR USE IN *CELCW*, *PKTCW* AND *DI4CW*.

 PKWRP    EQU    0#8000      PACKET RESPONSE PENDING
 PKWTO    EQU    0#4000      PACKET TIME OUT
 PKWIU    EQU    0#2000      PACKET IN USE
          SPACE  4,10
          ENDX
