          TITLE  GLOBAL DATA LOCATIONS.
*         CTEXT CTC$DFT GLOBAL DATA.
 GLOBAL   SPACE  4,10
****      GLOBAL DATA ITEMS.

 TFLG     CON    0           DELAY TIMING FLAG
 PDSO     CON    0           TOGGLE FOR DUMPING PP REGISTERS
 RDATA    BSS    10B         MAINTENANCE REGISTER BUFFER
 SHRR     CON    0           SHORT WARNING ERROR FLAG
 PERR     CON    0           ENVIRONMENT WARNING FLAG
 CTIB     CON    0           CTI BUFFER
 CTIBR    CON    0           CTI BUFFER RETURNED FROM *2AP*
 SUMS     CON    0           SUMMARY STATUS REGISTER
 OLSS     CON    0           OLD SUMMARY STATUS
 PPNO     CON    0           8/PP TYPE, 8/DFT PP NUMBER
 CPSA     CON    0           NONZERO IF TIME TO CHECK PACKET STATUS
 FNUM     CON    0           FILE NUMBER FOR CONSOLE LOGGING
 FSIZ     CON    0           FILE SIZE FOR CONSOLE LOGGING
 L2AP     CON    1           FORCE *2AP* TO BE LOADED ON NEXT CALL TO *ECM*
 MRTU     CON    0           MRT UPDATE NEEDS TO BE WRITTEN TO S0/S0E CONSOLE
 RST1     CON    0           RESIDENT TEMPORARY SAVE AREA
 SYCD     CON    0           SYNDROME CODE
 R170     CON    0           FLAG FOR 170 REQUESTS
 TIMA     CON    0           1 MILLISECOND COUNTER
 TIMB     CON    0           MILLISECOND COUNTER RESET EVERY SCAN
 CRQA     CON    0           TIMER FOR *SCI* RELOCATION
 SBER     CON    0,0         ADDRESS OF SINGLE BIT ERROR
 CPUO     CON    0           CPU ORDINAL WITHIN *HBUF*
 CPUH     CON    0           CPU ORDINAL HALTED BY *APE* OVERLAY
 IOUO     CON    0           IOU ORDINAL WITHIN *HBUF*
 IOSS     CON    0           4/STATUS, 12/COMPOSITE STATUS SUMMARY
 IOUN     CON    0           4/NUMBER OF IOU-S - 1,12/NUMBER OF CURRENT IOU (0,1)
 DFTD     CON    0           ISSUE TIME OUT MESSAGE FLAG
 MBPS     CON    0           MEMORY BOUNDS PORT SELECT
 S0FLG    CON    0           S0/S0E FLAG (1 = S0/S0E, 0 = OTHER)
 S0PMC    CON    0           S0/S0E PAGE MAP CONNECT CODE (0 ON OTHER MODELS)
 UETV     CON    0           TIME TO UPDATE EICB
 DRCR     CON    0           DFT RELOCATION CHECK REQUIRED
 ELMO     CON    0           ELEMENT ORDINAL FOR SEARCHES
 DFTA     CON    0           DFT ACTION LIST
 TERT     CON    0           TERMINATE TASK FLAG
 EIEF     CON    0           EXPECTED IOU ERROR FLAG
 RLST     CON    0           CORRECTED/UNCORRECTED REGISTER LIST FLAG
 CALB     BSSZ   10          *2AP* CALL BLOCK AREA
 NERR     CON    0           NO ERROR ENCOUNTERED ON A PASS
 UMEM     CON    0           UPDATE THE *2AP* DATA AND OVERLAYS IN MEMORY
 UWCC     CON    0           UPDATE WALL CLOCK CHIP (0=DEFAULT=YES)
 STIM     CON    0           TIME TO COUNT DOWN TO SO AS TO TRIGGER AN EVENT
 TIMU     CON    0           TIME DELAY IS UP
 TENV     CON    0           TIMING ON AN ENVIRONMENT ERROR
 DTEW     CON    0           FLAG DENOTING DONE TIMING AN ENVIRONMENT WARNING  (0=DONE)
 TSIT     CON    0           TIME TO CHECK *SIT*
 NSIT     CON    0           NUMBER OF TIMES *SIT* WAS < -2 SECONDS
 BATT     CON    0           FLAG INDICATING RUNNING ON BATTERY
 PKCT     CON    0           COUNT OF NUMBER OF TIMES DUAL I4 PACKETS TRIED
 PPTY     CON    1           PP TYPE (0 = UPPER PP)
 RTP1     CON    0           RESIDENT TEMPORARY CELL 1
 RTP2     CON    0           RESIDENT TEMPORARY CELL 2
 JOBF     CON    0           180 JOB TASK ERROR FLAG
 JOBS     CON    0,0,0,0     JOB STATUS SAVED ACROSS *2AP* CALLS
 CHEF     CON    0           CPU/PP HANDSHAKING TIMEOUT FLAG (=6 IF MONITOR TIMEOUT)
 VOSD     CON    0           VALID OS DATA FLAGS ACCUMULATED DURING PROCESSING ERROR(S)
                             ON A HARDWARE ELEMENT. THE TWO FLAGS ACCUMULATED ARE THE
                             V7, AND V8 FLAGS FROM THE BUFFER CONTROL WORDS
 REGI     CON    0           REGISTER LIST INDEX FOR BUILD REGISTER LIST
 REGL     BSSZ   MAXRL       REGISTER LISTS TO BE PROCESSED BY *RMR*
 ISPB     CON    0           FLAG DENOTING WHETHER TO IGNORE OS BOUNDS SETTING
 DSIF     CON    0           FLAG DENOTING WHETHER OR NOT DFT SET THE I/L ON A BUFFER CNTRL WD
 ERRC     CON    0           ERROR CODE PASSED TO ERROR HANDLING OVERLAY
 LLOG     CON    0           LENGTH TO LOG IN THE NON REGISTER STATUS BUFFER
 DTLA     CON    0           DEGRADE CPU TASK LIST ADDRESS
 STON     CON    0           STUCK ON ERROR CONDITION FLAG
 REDF     CON    0           FLAG TO INDICATE WHETHER TO READ EPM DATA

*         THE FOLLOWING CELLS HOLD INFORMATION NECESSARY TO
*         ACCOMPLISH THE CALL MECHANISM USED. A TWO WORD STACK
*         IS USED TO SAVE THE OVERLAY NUMBER AND RETURN ADDRESS
*         OF A CALLER.

 OVLS     BSS    1           COUNT OF OVERLAYS ACTUALLY LOADED
 CUOV     CON    0           CURRENT OVERLAY LOADED
 STKL     EQU    11+1        CURRENTLY 11B CALL LIMIT ALLOWED
 STAK     BSSZ   2*STKL-2    CALLERS STACK (11B CALLS - EACH TWO WORDS)
 STKD     BSSZ   1           CURRENT STACK DEPTH

*         FOLLOWING IS NEEDED FOR GET HARDWARE ELEMENT ROUTINES.

          BSSZ   3           SLACK FOR ENTRY
 HBUF     BSSZ   CMXLEN      HARDWARE ELEMENT BUFFER
 ACTB     SPACE  4,10
**        ACTB - ACTIVATION TABLE.
*
*         THE FOLLOWING TABLE IS USED BY ROUTINE *TIM* TO DETERMINE
*         WHICH ROUTINES TO CALL ON A PERIOD OF MILLISECONDS BASIS.
*         THE TABLE CONSISTS OF THREE WORD ENTRIES IN THE FOLLOWING
*         FORMAT.
*
*         16/ROUTINE TO CALL, 16/CALL TIME INTERVAL, 16/ELAPSED TIME.

 ACTB     BSS    0           TABLE OF TIMED ROUTINES

          CON    SEC,1000D/5,0  PROCESS ONCE-PER-SECOND EVENTS
 ACTB1    CON    HTO,105D/5,0   DELAY FOR TRANSIENTS 100 MILLISECONDS
                                + 5 MILLISECONDS FOR GOOD MEASURE
          CON    IHS,5000D/5,0  INITIATE CPU/PP HANDSHAKING EVERY 5 SECONDS
          CON    DPD,30000D/5,0 INITIATE DUMPING OF PP REGISTERS EVERY 30 SECONDS
 ACTBL    EQU    *

*         THE FOLLOWING DATA IS SAVED IN THE DFT BUFFER IN
*         NON-DEDICATED MODE.
*
*         NOTE: THIS AREA MUST BE A MULTIPLE OF CM WORDS IN SIZE.

 SAVE     BSS    0           START OF SAVE AREA
 DHSV     CON    0,0,0       DIRECTORY POINTER
 ELCO     CON    0           TOTAL NUMBER OF ELEMENTS IN MAINFRAME
 FREE     CON    0           LAST OBTAINED MR BUFFER ENTRY
 SWEP     CON    0           OFFSET TO SHORT WARNING ENTRY
 PWEP     CON    0           OFFSET TO POWER WARNING ENTRY
 LBUF     CON    0           LENGTH OF MAINTENANCE REGISTER BUFFERS
 NBUF     CON    0           NUMBER OF MAINTENANCE REGISTER BUFFERS
 MLIT     CON    0           MICROCODE LONG INIT ADDRESS
 MIDL     CON    0           MICROCODE PROCESSOR IDLE ADDRESS
 HEOM     CON    0           MICROCODE HALF EXCHANGE OUT MONITOR ADDRESS
 HEOJ     CON    0           MICROCODE HALF EXCHANGE OUT JOB ADDRESS
 HEIM     CON    0           MICROCODE HALF EXCHANGE IN MONITOR ADDRESS
 HEIJ     CON    0           MICROCODE HALF EXCHANGE IN JOB ADDRESS
 WARC     CON    0           NUMBER OF TIMES *1MB*/*1MR* CALLED WITH WARNING
 WARN     CON    0           ENVIRONMENT OR POWER WARNING ENCOUNTERED
 VRSN     CON    0           VERSION IN DFT HEADER CONTROL WORD
 NUMHW    CON    0           NUMBER OF HEADER WORDS - DFT HEADER + POINTERS
 IOUM     CON    0           IOU MODEL
 I0CC     CON    0           IOU CONNECT CODE
 IO0C     CON    0           IOU CORRECTED ERROR REGISTER LIST
 IO0U     CON    0           IOU UNCORRECTED ERROR REGISTER LIST
 MEMM     CON    0           MEMORY MODEL
 CMCC     CON    0           MEMORY CONNECT CODE
 ME0C     CON    0           MEMORY CORRECTED ERROR REGISTER LIST
 ME0U     CON    0           MEMORY UNCORRECTED ERROR REGISTER LIST
 NPERR    CON    0           NUMBER OF CH15 PARITY ERRORS READING WALL CLOCK CHIP

*         PACKET RELATED DATA.

 PKFLG    CON    0           1, IF PACKETS ARE SUPPORTED ON MAINFRAME
 PKSEQ    CON    0           LAST PACKET SEQUENCE NUMBER
 TCPU     SPACE  4,10
**        TCPU - TABLE OF CPU INFORMATION.
*
*         THE ENTRIES IN THIS TABLE MAY EITHER BE ACCESSED
*         INDIVIDUALLY BY NAME OR BY INDEXING INTO THE TABLE.
*         WHEN INDEXING INTO THE TABLE, IT IS TO BE THOUGHT OF
*         AS A TWO DIMENSIONAL ARRAY:  TCPU[I,J] WHERE J
*         INDICATES THE CPU FOR WHICH INFORMATION IS DESIRED
*         AND I IS ONE OF THE INDICIES:  CPUM, CPUC, CPUP, CPUR, CPUU.


 TCPU     BSS    0           START OF TABLE
 CPU0M    CON    0           CPU0 MODEL
 CP0CC    CON    0           CPU0 CONNECT CODE
 CP0P     CON    0           CPU0 MEMORY PORT
 CP0C     CON    0           CPU0 CORRECTED REGISTER LIST ADDRESS
 CP0U     CON    0           CPU0 UNCORRECTED REGISTER LIST ADDRESS
 CPNR     EQU    *-TCPU      NUMBER OF ROWS IN ARRAY
 CPU1M    CON    0           CPU1 MODEL
 CP1CC    CON    0           CPU1 CONNECT CODE
 CP1P     CON    0           CPU1 MEMORY PORT
 CP1C     CON    0           CPU1 CORRECTED REGISTER LIST ADDRESS
 CP1U     CON    0           CPU1 UNCORRECTED REGISTER LIST ADDRESS

 CPUM     EQU    CPU0M-TCPU  ROW OFFSET TO CPU MODEL NUMBER
 CPUC     EQU    CP0CC-TCPU  ROW OFFSET TO CPU CONNECT CODE
 CPUP     EQU    CP0P-TCPU   ROW OFFSET TO CPU MEMORY PORT
 CPUR     EQU    CP0C-TCPU   ROW OFFSET TO CPU CORRECTED REGISTER LIST ADDRESS
 CPUU     EQU    CP0U-TCPU   ROW OFFSET TO CPU UNCORRECTED REGISTER LIST ADDRESS
          ERRNZ  CPUM-CPU1M+TCPU+CPNR  MODEL NUMBER OUT OF POSITION
          ERRNZ  CPUC-CP1CC+TCPU+CPNR  CONNECT CODE OUT OF POSITION
          ERRNZ  CPUP-CP1P+TCPU+CPNR   MEMORY PORT OUT OF POSITION
          ERRNZ  CPUR-CP1C+TCPU+CPNR   CORRECTED REGISTER LIST ADDRESS OUT OF POSITION
          ERRNZ  CPUU-CP1U+TCPU+CPNR   UNCORRECTED REGISTER LIST ADDRESS OUT OF POSITION

 NNRB     CON    0           NUMBER OF NON REGISTER BUFFERS
 SNRB     CON    0           SIZE OF A NON REGISTER BUFFER
 TOHI     CON    LGC3        STARTING ADDRESS FOR TOP OF HOUR PROCESSING FOR VERSION 5
 LOGB     CON    0           ORDINAL OF AVAILABLE BUFFER TO LOG TO
 CMP0     CON    0           CPU 0 MEMORY PORT
 CMP1     CON    0           CPU 1 MEMORY PORT
 PAD      CON    0,0         PAD TO MULTIPLE OF CM WORDS
 SAVL     EQU    *-SAVE      LENGTH TO SAVE
          ERRNZ  SAVL/4*4-SAVL  MUST BE MULTIPLE OF CM WORDS
****

*         END DECK CTC$DFT_GLOBAL_DATA

