*M*      TABLES   MISCELLANEOUS MONITOR DATA
         SYSTEM   UTS
*
TABLES:  RES
         DEF      TABLES:           PATCHING DEF
         PCC      0
*P*
*P*      NAME:    TABLES
*P*      PURPOSE: TO CONTAIN MISCELLANEOUS MONITOR VARIABLE DATA
*P*               AND CONSTANTS.
         PAGE
*                 SYMBOLIC REGISTER DEFINITIONS.
R0       EQU      0
R1       EQU      1
R2       EQU      2
R3       EQU      3
R4       EQU      4
R5       EQU      5
R6       EQU      6
R7       EQU      7
SR1      EQU      8
SR2      EQU      9
SR3      EQU      10
SR4      EQU      11
D1       EQU      12
D2       EQU      13
D3       EQU      14
D4       EQU      15
         PAGE
*
*                 DEFS FOR STATIC DATA
*
         DEF      BUF1              DCB OFFSET FOR BUF1
         DEF      BUF2              DCB OFFSET FOR BUF2
         DEF      ERBLOCK
         DEF      ERRCOUNT
         DEF      DID               USER NUMBER OF DIAG USER
         DEF      S:LCORE           NUMBER OF LOCKED PAGES
         DEF      IOCLINC
         DEF      AVRDCT            DCTX OF DEVICE FOR KEYIN TO AVR
         DEF      ERINPROG          FOR ERHNDLR TO USE
         DEF      UNEXP             COUNT OF UNEXPECTED I/O INTS
         DEF      DEVCTCHK
         DEF      RCVRCNT           RECOVERY COUNTER
         DEF      CURGRAN           CURRENT GRAN FOR ERRLOG
         DEF      SGRAN
         DEF      BGRAN
         DEF      FGRAN1
         DEF      FGRAN2,FGRAN3
         DEF      GARBING           NON-ZERO IF CFU GARBAGE COLLCT'G
         DEF      GOODNGT           CONTROL CELL FOR ZAP
         DEF      DUSK              CONTROL COUNTER FOR !ZAP
         DEF      CURBUF            CURRENT BUFFER FOR ERRLOG
         REF      M17               17 BIT MASK
         REF      X20               CONSTANT X'00000020
         REF      Y0004             CONSTANT X'00040000'
         REF      Y0002             CONSTANT X'00020000'
         REF      Y0008             CONSTANT X'00080000'
         REF      MASKS             TABLE  OF ORDERED MASKS
         DEF      0PSD              SPD FOR EMPTY STACK
         REF      TSTACK            JIT TEMP STACK
         REF      JTSTACKSZ         SIZE OF JIT TEMP STACK
         DEF      COPBNFLG
         DEF      OPNCLSUS          USER WHO IS OPEN/CLOSE USER
         DEF      CTFLAGS           CONTROL TASK INTERRUPT FLAGS
         DEF      Q4AVL             POOL OF EA INFO BLOCKS
         DEF      RAD1ST
         DEF      S:BSPIN,S:OSPIN
         DEF      S:GSPIN
         DEF      PL:JIF
         DEF      CLOCKTMP          TEMP FOR CLOCK3 HANDLER
         DEF      TEMPT
         DEF      CURBQ             CURRENT NUMBER OF BUSY IOQS
         DEF      CTOC              CONTROL TASK FLAG
         DEF      DRSP              DRSP INHIBIT FLAG
         DEF      TAPEFLGS          HOTAVR TAPE FLAGS
         DEF      CTACT             CONTROL TASK ACTIVE FLAG
         DEF       S:CRASHUN
         REF      SDGA              SYMBIONT DISK AVAIL
         DEF      SYSICBTUN,SYSICBCLK
         DEF      S:SSCRCH          SLAVE REQUESTED SCREECH FLAG
         DEF      SIPSD1            INTERPROCESSOR INT RECEIVER
         DEF      SIPSD2            INTERPROCESSOR INT RECEIVER
         DEF      SIPSD3            INTERPROCESSOR INT RECEIVER
         DEF      BOOTSBAND
*,*               SYSTEM DISK ADDRESS ON PRIMARY SWAPPER TO
*,*               USER #4.
         DEF      CNDD
*,*               DEVICE ADDRESS FROM WHERE PATCH CARDS ARE READ.
         DEF      DUMPFILE
*,*               INFORMATION WORD FOR THE SUA DUMPFILE.
         DEF      LLNDD
*,*               DEVICE ADDRESS TO PRINT PATCH DECK AT BOOT TIME.
         DEF      MPPSEEK
*,*               DEVICE SEEK ADDRESS OF MONITOR LOCATION
*,*               X'4000' ON PRIMARY SWAPPER.
         DEF      OCNDD
*,*               DEVICE ADDRESS OF TY DEVICE FOR XDELTA.
         DEF      RCVCODE
*,*               CODE, SUBCODE OF LAST RECOVERY.
         DEF      RCVDISC
*,*               DEVICE SEEK ADDRESS OF RECOVERY ON PRIMARY SWAPPER.
*
*
*,*               ENTRY PSD FOR SCREECH, SUA AND DUMP.
         DEF      RCVRAD
*,*               SYSTEM DISK ADDRESS OF THE RECOVERY BUFFER ON
*,*               PRIMARY SWAPPER.
         DEF      RCVRDSZ
*,*               GRANULE SIZE OF THE RECOVERY BUFFER PLUS
*,*               SHARED PROCESSOR ON PRIMARY SWAPPER.
         DEF      RCVSIZE
*,*               BYTE SIZE OF RECOVERY ON PRIMARY SWAPPER.
         DEF      RCVSTART
*,*               START ADDRESS OF RECOVERY.
         DEF      SAVEREGS
*,*               SAVE AREA FOR REGISTER BLOCK ZERO.
         DEF      SAVEREGS1
*,*               SAVE AREA FOR REGISTER BLOCK ONE.
         DEF      SEEK4000
*,*               DEVICE SEEK ADDRESS TO DUMP CORE X'4000'-X'7FFF'.
         DEF      SMAKFLG
         DEF      MPCD2             IOCD TO WRITE MPC ROS MEMORY
         DEF      MPCD3             IOCD TO WRITE MPC R/W MEMORY
         DEF      MPCRTN            MPC LOAD RETURN ADDRESS
         DEF      MPCCHN            CHANNEL NUMBER OF LOOADED MPC
         DEF      MPCCLIST          CLIST TO DUMP 0-X'7FFF'
         DEF      MPCSEEK           MPC SEEK IDCW
         DEF      MPCWRITE          MPC WRITE ORDER
         DEF      MPCSEEK1          MPC SEEK ADDRESS
         DEF      MPCRESTR          MPC RESTORE ORDER
*,*               INFORMATION WORD TO INDICATE A SYSMAK IS NEEDED.
         DEF      SUABTFLE
*,*               SYSTEM DISK ADDRESS OF SUA DUMPFILE.
         DEF      SUACNT
*,*               COUNT OF SUA'S SINCE LAST CRASH.
         DEF      SUACUN
*,*               USER NUMBER OF LAST FOUR SUA'S
         DEF      SUATIME
*,*               TIME OF LAST FOUR SUA'S.
         DEF      SYSVERS
*,*               CELL TO RESTORE THE CONTENTS OF X'2B' AFTER A BOOT
*,*               AT CRASH.
         DEF      TRAPPSD
*,*               CELLS TO SAVE THE TRAP PSD.
         DEF      TRAPSAVE
*,*               CELLS TO SAVE X'40' AND X'46' FOR ANLZ.
         DEF      CRASHTYP          TYPE OF CRASH PROCESSING.
*,*                                   0= DUMP
*,*                                   1= SUA
*,*                                   2= SLOW PATH
*,*                                   4= FAST PATH
         DEF      ABORT
*,*               ENTRY POINT TO REPORT SUA 7E.
         DEF      SCR61
*,*               ENTRY POINT TO REPORT SUA61
         DEF      RCVBASE
         DEF      REDDWD
         DEF      SAVEDCTX
         DEF      SEEK
         DEF      SEEK1
         DEF      TDV%STATUS
         DEF      TIO%STATUS
         DEF      DUMPCOM           INITRCVR PRE-DUMP COM LIST
         DEF      COMMPACK          INITRCVR COM LIST TO CROSS CYL.
         DEF      S:TELLEM          * ALARM COUNT CELL
         DEF      S:MYTICS          * ALARM DURATION CELL
         REF      24BM15
         SREF     T:SLAVE           INTERPROCESSOR INT HANDLER
         REF      F:ELOGB           ERROR LOG BUFFER ADDRESS IN TCATCH
         PAGE
:CDW     CNAME
         PROC
         BOUND    8
LF       GEN,8,24,8,24  AF(1),;     ORDER CODE
                        AF(2),;     ADDRESS
                        AF(3),;     FLAGS
                        AF(4)       SIZE
         PEND
*
:IDCW    CNAME
         PROC
         BOUND    8
LF       GEN,6,6,6,3,1,1,1,6,34  CF(2),;  DEVICE COMMAND
                                     0,;  DEVICE ADDRESS
                                      ,;  MBZ
                                     7,;  MUST BE ALL ONES
                                     0,;  MASK FIELD
                                 AF(1),;  CONTINUE BIT
                                     0,;  MARK BIT
                                 AF(2),;  CHANNEL INSTRUCTION
                                     0    MBZ
         PEND
*
CC       EQU      X'28'             COMMAND CHAIN FLAGS
DC       EQU      X'A8'             DATA CHAIN FLAGS
SIL      EQU      X'2A'             SUPPRESS INCORRECT LENGTH FLAGS
NCC      EQU      X'08'             NO COMMAND CHAINING
WRT      EQU      X'19'             MPC WRITE ORDER
SK       EQU      X'1C'             MPC SEEK ORDER
RESTORE  EQU      X'22'             MPC RESTORE CARRIAGE ORDER
         PAGE
         BOUND    8
0PSD     DATA     TSTACK+1
         GEN,16,16  JTSTACKSZ,0     USED BY STEP AND SSS
         DEF      75TABLE
         DEF      TXTCFU,75BUF
TXTCFU   TEXTC    'M:*'             NAME OF DUMMY CFU DCB
GARBING  DATA     0                 FLAG FOR OPNF
75TABLE  RES      0                 LAST 6 75 DISK ADDRESSES
         DO1      3
         TEXT     'IAMADUCK'        INIT TO GARBAGE
75BUF    DATA     -1                REPORTING DISABLED
         DEF      LFGUN
LFGUN    DATA     -1                USER # OF FIX PROCESSOR IF > 0.
*                                   -1 MEANS ALLOCAT IS NOT TO RUN
*                                   YET (FIX IS DOING HGP RECON).
*                                   0 MEANS GHOST COPY OF FIX NOT
*                                   CURRENTLY RUNNING.
         DEF      FDFLAGS
FDFLAGS  DATA     -1
*
         PAGE
         DEF      ALLOOUT
*                 FLAG FOR SWAPPER TO SWAP OUT ALLOCAT
ALLOOUT  DATA     0
         DEF      SGB,SGL,SGT
SGB      DATA     0
SGL      DATA     X'FFFFF'
SGT      DATA     X'FFFFF'
GOODNGT  DATA     0
DUSK     DATA     5000              10 SECONDS @ 2 MS PER COUNT
LASTTPE  DATA     0                 SAVE LAST DRIVE USED FOR TYPR
         DEF      LASTTPE
*
CURBQ    DATA     0
CTOC     DATA     0
CTACT    DATA     0
COPBNFLG DATA     0                 COOP NEEDS BUFFER FLAG
OPNCLSUS DATA     0
*
*
         DEF      #DLBLKS           CNT OF DO-LIST BLKS USED BY KEYIN
#DLBLKS  DATA     0
*
*
*
S:CRASHUN DATA     0
*
*                                   SYSTEM LOAD PARAMETER
*                                   THE INTERRUPTED ENVIRONMENT
DRSP     DATA     0                 INHIBIT FLAG FOR DRSP
*
*
         DEF      PIGHEAD
*,*                                 HEAD OF PIGEONS COM BUFS
PIGHEAD  DATA     0
S:TELLEM DATA     0                 * MAKE NONZERO TO SOUND ALARM
S:MYTICS DATA     0                 * ALARM DURATION SO FAR
         PAGE
*        THE FOLLOWING IS FOR DISK B SUPPORT                            DISCB
*                 DCT%FLD + SECTOR%FLD ARE DEFINED IN SYSTEM UTS        DISCB
*                  AND IN TABLES:  IE. CHANGE BOTH                      DISCB
*                                                                       DISCB
DCT%FLD  EQU      10,6
SECTOR%FLD EQU    8,2
*                                                                       DISCB
DCT%MASK  EQU     MASKS+DCT%FLD(2)                                      DISCB
         DEF      DCT%MASK                                              DISCB
*                 GENERATE INVERTED%DCT%MASK                            DISCB
         OPEN     X,I,Y                                                 DISCB
X        SET      X'80000000'                                           DISCB
I        DO       31-DCT%FLD(2)                                         DISCB
X        SET      X|X'80000000'**(-I)                                   DISCB
         FIN                                                            DISCB
INVERTED%DCT%MASK DATA   X                                              DISCB
         DEF      INVERTED%DCT%MASK                                     DISCB
*                                                                       DISCB
Y        SET      0                                                     DISCB
I        DO       SECTOR%FLD(2)                                         DISCB
Y        SET      Y|X'80000000'**(-SECTOR%FLD(1)+1-I)                   DISCB
         FIN                                                            DISCB
SECTOR%MASK DATA  Y                                                     DISCB
         DEF      SECTOR%MASK                                           DISCB
*                                                                       DISCB
SECTOR%MASK%1 DATA  Y**-16                                              DISCB
         DEF         SECTOR%MASK%1                                      DISCB
*                                                                       DISCB
SECTOR#MASK DATA  Y|X'0000FFFF'                                         DISCB
         DEF      SECTOR#MASK                                           DISCB
*                                                                       DISCB
X        SET         0                                                  DISCB
X        SET         Y||X'FFFF0000'                                     DISCB
DCT%MASK%1 DATA      X                                                  DISCB
         DEF         DCT%MASK%1                                         DISCB
*
Y        SET      X'FFFF0000'[X**-16
DCT%MASK%2 DATA   Y
*
         DEF      DCT%MASK%2
*                                                                       DISCB
         CLOSE    I,X,Y                                                 DISCB
*                                                                       DISCB
*                                   END DISK B MASKS                    DISCB
         PAGE                                                           DISCB
*
*    END-ACTION QUEUE USED BY IORT, RDF
*
         BOUND    8
Q4AVL    EQU      %
I        DO       10                10 USABLE ENTRIES
         DATA     I,0
         FIN
         DATA     0,0
         PAGE
         PAGE
CNM      EQU      1                 SET=1 FOR TP SLAVE LINE CODE
         DO       CNM
         DEF      ADR:LNID          +11 WDS INTO DCB=ADDRESS OF LINE ID
         DEF      ADR:LIST          +14 WDS INTO DCB=ADDRESS OF P/S LIST
         DEF      VAL:INDX          +21 WDS INTO DCB=P/S LIST INDEX
         DEF      ADDRMASK          VIRTUAL ADDRESS MASK = X'1FFFF'
         DEF      REGMASK           VIRTUAL ADR VS. REG MASK=X'1FFF0'
         DEF      CNMLNDCB          SLAVE LINE DCB'S ASN+ MASK=X'803'
         DEF      LNDEVCD           OP LABEL CODE FOR SLAVE LINE DCB
         DEF      OPNBIT            DCB OPEN BIT IN LINE'S SWITCHES=X'20'
         DEF      HALTL             P/S LIST'S HALT BIT=X'00040000'
         DEF      INUSEL            P/S LIST'S IN-USE BIT=X'00020000'
         DEF      AUTORDL           P/S LIST'S AUTO BIT=X'00080000'
*
*        THE FOLLOWING 3 EQUATES ARE FOR TP  SLAVE LINE DCBS
*
ADR:LNID EQU      11                LINE ID ADR HELD HERE
ADR:LIST EQU      14                POL/SEL LIST ADR HELD HERE
VAL:INDX EQU      21                RD OR WRT INDEX VALUE HELD HERE
*
ADDRMASK EQU      M17
REGMASK  DATA     X'0001FFF0'
CNMLNDCB DATA     X'803'            BIT 20 SET & ASN=3 FOR LN DCB
LNDEVCD  EQU      X'D3D5'           OP LABEL CODE FOR TP SLV LN DCB='LN'
OPNBIT   EQU      X20               TP  SLV LN SWITCHES DCB-OPEN BIT
HALTL    EQU      Y0004             LIST FLAGS' HALT BIT MASK
INUSEL   EQU      Y0002             LIST FLAGS' IN-USE BIT MASK
AUTORDL  EQU      Y0008             LIST FLAGS' AUTO READ BIT MASK
         FIN
         SPACE    2
         DEF      MOS:ADDR          * MOS ADDRESS/BANK LOCATIONS
MOS:ADDR EQU      %
         DO1      8                 *
         DATA     0                 *
         SPACE
         PAGE
         DEF      S:ACORE,S:STL#,S:STLC,SL:STLM,SL:RSVP
         DEF      S:PWP#
S:ACORE  DATA     0
S:STL#   DATA     0
S:STLC   DATA     0
SL:STLM  DATA     18
SL:RSVP  DATA     1
S:PWP#   DATA     0
*                                   RETURNS TO AVR SEG
*
*
         DEF      MP:UPPH,MP:UPPT,MP:UPPC
MP:UPPH  DATA     0                 HEAD OF UNMAPPED MONITOR ROUTINES
MP:UPPT  DATA     0                 TAIL OF UNMAPPED MONITOR ROUTINES
MP:UPPC  DATA     0                 COUNT OF UNMAPPED MONITOR ROUTINES
*
*
CTFLAGS  DATA     0                 CONTROL TASK FLAGS
DEVCTCHK DATA     0
IOCLINC  DATA     4                 PULSE COUNTER FOR I/O CLOCK
AVRDCT   DATA     0
IOCLOCK  DATA     0                 # OF 5 SECOND INTERVALS ELAPSED
         DEF      IOCLOCK
UNEXP    DATA     0                 COUNT OF UNEXPECTED INTS
         PAGE
*
*                 DEFS FOR ENTRY PSDS.
         DEF      CLK3PSD
         DEF      IOPSD
         DEF      OCPSD
         REF      IOINT,OCINT
         REF      CLOCKI
         DEF      CSED%BEST%END     EXIT DECISION- SC ABORT RETRY
         DEF      CSED%CF           TRAP CC & FLOAT CONTROL
         DEF      CSED%ERR          TYPE OF TRAP (0-3)
         DEF      CSED%LINK         TEMP STORE FOR LINK REG
         DEF      CSED%LOG%MFI
         DEF      CSED%MAPPED
         DEF      CSED%PATH
         DEF      PSD%IOFAIL
         DEF      CSED%PSD,CSED%REGS
         DEF      CSED%RTRY%CNT,CSED%SPDF,CSED%STOP%TABLE
         DEF      CSED%STOP,CSED%WHY,CSED%MSG
         DEF      CSEP%MSG%SIZE
         DEF      CSED%3STAT,3COUNT,3ANDADD,3ORADD,3ANDCONT,3ORCONT
         DEF      3FIRST,3FIRSTC,3LAST,3LASTC,3BUFCLR
*
         REF      CSE%STOP%IOFAIL
         DEF      LEE20
         DEF      DLTBIAS
*
         DEF      POWRON
         REF      BEGINON
         SPACE    2
IOPSD    :PSD     RES,(IA,IOINT),(WK,1),INH
OCPSD    :PSD     RES,(IA,OCINT),(WK,1),INH,(CC,6)
CLK3PSD  :PSD     RES,(IA,CLOCKI),(WK,1),(CC,6)
LEE20    :PSD     RES,(IA,LEE10-1),INH
PSD%IOFAIL  :PSD   (IA,CSE%STOP%IOFAIL),RES,INH
         DEF      TQRPSD,TQVPSD
         REF      TQRETURN
TQVPSD   :PSD     RES,MAP,(IA,TQRETURN),(WK,1)
TQRPSD   :PSD     RES,(IA,TQRETURN),(WK,1)
DLTBIAS  B        0                 ADDRESS PUT IN BY BOOTSUBR
LEE10    MTW,-1   LEE20             DECREMENT PSD LIKE XDELTA
         LPSD,8   LEE20
         DEF      IBRKEXEC,EXECINST,EXECPSD
IBRKEXEC DATA     0,0               XDELTA EXECUTES BROKEN INST. HERE
EXECINST DATA     0
         XPSD,0   EXECPSD           USED BY ;X TO EXECUTE INST.
         BOUND    8
EXECPSD  :PSD     RES,(IA,0),INH
*
POWRON   DATA     1,1               MARKED SO WE KNOW
         :PSD     (IA,BEGINON),INH
*
*        INTERPROCESSOR INTERRUPT RECEIVER FOR MP SYSTEMS
*
SIPSD1   :PSD     (IA,T:SLAVE),(WK,1),INH,RES
SIPSD2   EQU      SIPSD1
SIPSD3   EQU      SIPSD1
         PAGE
*   TABLE OF DATA FROM STOP SEQUENCE
*        *** DO NOT DISTURB BOUND 8 THRU CSED%PSD
         BOUND    8
CSED%STOP%TABLE   EQU   %           FAULT DATA TABLE FOR STOP SEQ
CSED%CF           DATA  0           TCC AND FC
CSED%REGS         RES  16           REGS UPON ENTRY
CSED%WHY          DATA  0           WHY CODE
CSED%PSD          DATA  0,0         TRAP PSD
         SREF     C%MSTAT           MEMORY POLLING TABLE (9 & 560 ONLY)
         SREF     C%PSTAT           PROC POLLING TABLE (560 ONLY)
         DATA     C%MSTAT
         DATA     C%PSTAT
CSED%3STAT%ADR    DATA   CSED%3STAT   ADDRESS OF LOCATION POLLING TABLE
CSED%MSG          DATA,1    X'15',X'05','C','S'
                  TEXT      'E STOP-'
CSEP%MSG%SIZE     EQU    BA(%)-BA(CSED%MSG)   BYTE COUNT OF MSG
                  DATA      0,0,0,0 TOTAL OF 7 WORDS
CSED%STOP         DATA    0
         DATA     F:ELOGB           ADDRESS OF ERROR LOG BUFFER IN TCATCH
CSED%BEST%END     DATA    0         BEST END SO FAR
CSED%ERR          DATA    0         WHAT TYPE OF FAULT
CSED%MAPPED       DATA    0         MAPPED FLAG
CSEI%PATH%INIT  EQU  X'04'          INITIALIZATION FLAG
CSED%PATH         DATA    CSEI%PATH%INIT  REENTRY FLAG, TRACK
CSED%SPDF         DATA    -1        SOFT PDF FLAG
CSED%RTRY%CNT     DATA    3         RESET TO 3 EVERY 1.2 SECS
CSED%LOG%MFI      DATA    0         OK TO LOG MFI FLAG
CSED%LINK         DATA    0         TEMP SAVE OF LINK REG
CSED%3STAT EQU    %                 LOCATION POLLING TABLE
         DATA     X'490B0000'       ERROR CODE AND COUNT
         DATA     0                 ROOM FOR RELATIVE TIME
3COUNT   DATA     0                 COUNT OF BAD LOCATIONS
3ANDADD  DATA     0                 AND OF BAD ADDRESSES
3ORADD   DATA     0                 OR OF BAD ADDRESSES
3ANDCONT DATA     0                 AND OF BAD CONTENTS
3ORCONT  DATA     0                 OR OF BAD CONTENTS
3FIRST   DATA     0                 FIRST BAD ADDRESS
3FIRSTC  DATA     0                 CONTENTS OF FIRST BAD LOCATION
3LAST    DATA     0                 LAST BAD LOCATION
3LASTC   DATA     0                 CONTENTS OF LAST BAD LOCATION
3BUFCLR  GEN,8,24   BA(%)-BA(CSED%3STAT+1),BA(CSED%3STAT+1)
         SPACE    2
*  FINDER FILE FOR ACCOUNT DIRECTORY
ACNTBLM  EQU      4*26              26 FOUR WORD ENTRIES.
ACNTBL   DATA     0                 END OF ACTIVE TABLE
         RES      ACNTBLM           TABLE SPACE
         DEF      ACNTBL,ACNTBLM
         DEF      SYSACTL
SYSACTL  DATA     0  DISK ADDRESS OF FDA OF :SYS FILE DRCTRY
         SPACE    3
INTCNT   DATA     0
INTFLG   DATA     0
         DEF      INTCNT,INTFLG
         PAGE
*I/O COMMANDS FOR DISC BOOT
         DEF      BOOTIC
         REF      ROOTSA            DEFED IN BOOTSUBR,X'35'
         BOUND    8
BOOTIC   EQU      %
         GEN,8,24 3,BA(ROOTSA+1)    SEEK FOR 2ND 16K OF MON
         GEN,8,24 X'2E',4
         DATA     X'2000000',X'E000000' READ
*
         GEN,8,24 3,BA(ROOTSA+2)    SEEK FOR THIRD PART
         GEN,8,24 X'2E',4
         DATA     X'2000000',X'E000000' READ
*
         GEN,8,24 3,BA(ROOTSA+3)    SEEK FOR THIRD PART
         GEN,8,24 X'2E',4
         GEN,8,24 2,X'8000'*4       READ
         GEN,8,24 X'E',0
*
         PAGE
         PAGE
         DEF      RTICBCLKHDR
         REF      1SEC:EP
*
*
*
RTICBCLKHDR   EQU % *******************************************
*                 THIS IS THE 2-WORD CHAIN-HEADER OF ACTIVE CLOCK-3 ICB'S
*
         GEN,15,17   0,SYSICB1      LINK TO 1ST ACTIVE ICB
         GEN,15,17   0,SYSICB1      LINK TO LAST ACTIVE ICB
*
*
*
         BOUND    8
SYSICB1  EQU      % ***************************************************
*                 THIS IS THE 5-WORD SYSTEM ICB WHICH DRIVES THE CLOCK-3
*                 (TIME OF DAY) TASKS
*
         GEN,1,3,3,2,1,5,17   1,0,3,2,1,0,0
*            |   | | |
*            |   | | |--------ICBSTATSY
*            |   | |----------ICBSTATYP
*            |   |------------ICBSTATINT
*            |----------------ICBSTATA
SYSICBTUN EQU     %
         GEN,32      600      ICBTUN
SYSICBCLK EQU     %
         GEN,32      600      ICBCLK
         GEN,15,17   0,1SEC:EP ICBSYSEP
         GEN,32      0        ICBBLNK
         PAGE
*
*                 DEFS FOR MONITOR GENERAL DATA
*
         DEF      CJOB
         DEF      MFL
         REF      CPE
MFL      EQU      CPE
RAD1ST   DATA     0
S:BSPIN  DATA     0                 BIT MAP OF BATCH ALLOCATED AVR ENTRIES
         DATA     0,0
S:OSPIN  DATA     0                 BIT MAP OF ONLINE ALLOCATED AVR ENTRIES
         DATA     0,0
S:GSPIN DATA      0,0,0
         DEF      S:SYMDB,S:SYMDO,S:SYMDG
*        THE ORDER OF THE DEFAULT PERIF'S IS NECESSARY
S:SYMDB  DATA     -1
S:SYMDG  DATA     -1
S:SYMDO  DATA     -1
PL:JIF   DATA     X'800F'           JOB INDEP PART FLGS
*          HOLD,LOCK,CR,TRM,RP
         DEF      SL:COMAXG         # OF DISK BLOCKS PER CONCURRENT
*,*                                 OUTPUT MODE 'CHUNK'.
         DEF      SH:COMID          SEED FOR CONCURRENT OUTPUT MODE ID'S
         DEF      SH:STEAL          FLAG FOR WHETHER OR NOT TO STEAL PFA
SL:COMAXG DATA    80                DEFAULT CHUNK SIZE = 80 DISK BLOCKS
SH:COMID DATA,2   1                 SEED FOR COMODE I.D.
SH:STEAL DATA,2   1                 ALLOW PFA STEALING BY DEFAULT
S:PCORE  DATA     0
         BOUND    8
TAPEFLGS DATA     0,0               HOTAVR TAPE-SCANNED FLAGS
HIGH     DATA     0
LOW      DATA     0
S:LCORE  DATA     0                 # PAGES LOCKED IN CORE CURRENTLY
         DEF      S:PCORE,HIGH,LOW
         DEF      MONCHK
MONCHK   DATA     0                 MONITOR PROCEDURE CHECKSUM
*
*  SET M:RDCK    TO NON-ZERO TO DO READ CHECKS
*        MUST BE SET USING PATCH
*
         DEF      M:RDCK:
         DEF      M:RDCK
M:RDCK   DATA     0                 DO READ CHECKS ON DISK
M:RDCK:  EQU      M:RDCK
         PAGE
         DEF      GMBSIZ
GMBSIZ   EQU      34
XTRB     SET      0                 DON'T BUILD LVL1 ON FLY
         DO1      XTRB
         DEF      XTRAGRAN   UNUSED GRANULE FOR MULTI-LEVELS
XX       SET      ABSVAL(%)&1       IS LOC CTR ODD
         DO1      XX&XTRB
XTRAGRAN DATA     0
         BOUND    8
         DEF      ALLODIRA
ALLODIRA DATA     0,0
CFUSIZE  EQU      8
CJOB     EQU      X'4F'
         DEF      RQLDGA
RQLDGA   DATA     SDGA
         DEF      CFUSIZE           SIZE EACH CFU ENTRY
RCVRCNT  DATA     0
         BOUND    8
TEMPT    DATA     0,0
CLOCKTMP DATA     0,0
         DO1      (1-XX)&XTRB
XTRAGRAN DATA     0
         SPACE    3
         DEF      NMPO
NMPO     EQU      -22
         PAGE
*
*                 DEFS FOR PARAMETERS OF MONITOR TABLES.
*
         DEF      BTDBIT,MBGBIT,CFUBIT,OPLBBIT,BATYC
         DEF      BUFMSIZ           ERROR LOG USABLE BUFFER SIZE
         DEF      BUFTSIZ           ERROR LOG TOTAL BUFFER SIZE
         DEF      NAOMASK,TRAPFLGB,TRAPFLAG,TCB,PSMASK,FXMASK
         DEF      FLTMASK,DECMASK
         REF      TRPFLAGS,TCBADR
         SPACE    2
BTDBIT   EQU      25                BIT POSN OF BYTE DISPL. (LAST BIT)
MBGBIT   EQU      8                 BIT POSN OF BUFFER IND.
CFUBIT   EQU      1                 VALUE OF ASSIGN TYPE FOR DISC.
OPLBBIT  EQU      X'8000'           MASK TO CHECK IF OPLB
BATYC    EQU      9                 BA(TYPE OF COMPLETION)
         SPACE    5
NAOMASK  EQU      32                MASK FOR 40
TRAPFLGB EQU      17                BIT OF TRAPFLAG (FROM RIGHT)
TRAPFLAG EQU      TRPFLAGS
TCB      EQU      TCBADR
PSMASK   EQU      8                 MASK FOR STACK VIOLATION
FXMASK   EQU      1                 MASK FOR FIXED ARITH VIOL
FLTMASK  EQU      4                 MASK FOR FLOAT ARITH VIOL
DECMASK  EQU      2                 MASK FOR DECIM ARITH VIOL
         PAGE
         PAGE
*F*
*F*      NAME:
*F*               CURBUF
*F*
*F*      PURPOSE:
*F*               PROVIDE DATA CELLS FOR THE CP-V ERROR LOGGING
*F*               MECHANISM.
*F*
*F*      DESCRIPTION:
*F*
*F*      CELL                       USAGE
*F*      -------- -------------------------------------------------
*F*      CURBUF   POINTS TO BUFFER CURENTLY IN USE (BUF1 OR BUF2)
*F*      SGRAN    ADDRESS OF 1ST BUFFER ON THE DISC
*F*      BGRAN    CURRENT BACK LINK DISC ADDRESS
*F*      CURGRAN  CURRENT DISC ADDRESS ON DISC
*F*      FGRAN1   NEXT FORWARD LINK ON DISC
*F*      FGRAN2   NEXT AFTER FGRAN1 FLINK
*F*      FGRAN3   NEXT AFTER FGRAN2 FLINK
*F*
CURBUF   DATA     BUF1              CURRENT BUF POINTER
*
SGRAN    DATA     0                 FIRST SECTOR OF ERROR LOG FILE
*
BGRAN    DATA     0                 CURRENT BLINK
*
CURGRAN  DATA     0                 CURRENT LOC OF FILE
*
FGRAN1   DATA     0                 FLINK # 1
*
FGRAN2   DATA     0                 FLINK # 2
*
FGRAN3   DATA     0                 FLINK # 3
*
         DATA     0                 USED TO RESET FGRAN3 CELL
*
BUF1HD   DATA     BUF1ST            NEXT AVAIL WA IN THIS BUFFER
BUF1     DATA     0,0,0             BLINK / FLINK / # WORDS IN BUF
BUF1ST   EQU      %                 FIRST USABLE LOC IN BUF
         RES      80                RESERVE BUF SPACE
BUFMSIZ  EQU      %-BUF1ST          # OF USABLE WORDS IN BUF
BUFTSIZ  EQU      %-BUF1            MAX WORDS IN ONE BUFFER
*
*
BUF2HD   DATA     BUF2ST            NEXT AVAIL WA IN THIS BUF
BUF2     DATA     0,0,0             BLINK/FLINK/# WORDS USED IN BUF
BUF2ST   EQU      %
         RES      80                RESERVE BUFFER SPACE
*
ERBLOCK  DATA     0                 # OF MISSED RECORDS COUNTER
*
ERRCOUNT DATA     0                 ERROR LOGGER IN PROGRESS FLAG
*
ERINPROG DATA     0                 NON-ZERO IF WE HAVE BEEN RECORDING
*
*******  DIAGNOSTIC DATA WORDS
DID      DATA     0    ID OF DIAG USER
S:SSCRCH DATA     0                 SLAVE REQUESTED SCREECH FLAG
         PAGE
         BOUND    8
DUMPCOM  GEN,8,24 3,BA(SEEK)
         GEN,8,24 X'2A',4
         GEN,8,24 1,4*0             PRE-DUMP 0-X'3FFF'
         GEN,8,24 X'28',0
         GEN,8,24 1,4*X'4000'       PRE-DUMP X'4000'-X'7FFF'
         GEN,8,24 8,0
*
MPCCLIST :CDW     3,BA(MPCSEEK),CC,5
         :CDW     1,BA(MPCSEEK1),CC,5
MPCL1    :CDW     3,BA(MPCWRITE),CC,5
         :CDW     1,4*0,DC,0        0-X'3FFF'
         :CDW     8,DA(%+4)
         :CDW     8,DA(MPCL1)
         :CDW     1,4*X'4000',CC,0  X'4000'-X'7FFF'
         :CDW     X'B0',0,NCC       STOP
         :CDW     8,DA(MPCL1)
*
MPCSEEK  :IDCW,SK 1,X'11'           MPC SEEK ORDER
MPCSEEK1 DATA     0,0               MPC SEEK ADDRESS
MPCWRITE :IDCW,WRT                  MPC WRITE ORDER
MPCRESTR :IDCW,RESTORE  0,X'11'
*
COMMPACK GEN,8,24   X'03',BA(SEEK1) SEEK TO NEXT CYLINDER
         GEN,8,24   X'2A',4
         GEN,8,24   X'08',0         TIC BACK INTO COMMRAD
         GEN,8,24   0,0
         BOUND    8
TRAPSAVE DATA     ,                 SAVE .40 & .46 IN RECOVERY
TRAPPSD  DATA     ,                 PSD OF TRAP
REDDWD   GEN,8,24 3,BA(RCVDISC)
         GEN,8,24 X'2A',4
RCVBASE  GEN,8,24 2,0               BOOTSUBR SUPPLIED BIAS.
RCVSIZE  GEN,8,24 8,0               BYTE SIZE OF RECOVERY
RCVDISC  DATA     0
RCVRDSZ  DATA     0
RCVRAD   DATA     0
OCNDD    DATA     1
LLNDD    DATA     2
CNDD     DATA     3
SYSVERS  RES      1
BOOTSBAND RES     1
RCVSTART DATA     0                 START ADDRESS OF RECOVERY
RCVCODE  DATA     0                 CRASH CODE & SUBCODE
         BOUND    8
TIO%STATUS  DATA  0,0
TDV%STATUS  DATA  0
         DATA     0                 SEEK OF X'4000' FOR SUA FILE
SEEK4000 DATA     0                 SEEK OF X'4000' FOR RECOVER
SEEK     DATA     0                 SEEK TO PUT X'4000'-X'7FFF'
SEEK1    DATA     0                 SEEK TO CROSS CYCL.
CRASHTYP DATA     0                 TYPE OF CRASH INDICATOR.
SAVEREGS RES      16                REGS AT TIME OF ENTRY TO RECOVERY
SAVEREGS1 RES     16                REGISTER BLOCK ONE AT TIME OF CRASH
SUACNT   DATA     0                 COUNT OF SUA'S SINCE LAST CRASH
SUATIME  DATA     0,0,0,0           TIME OF SUA'S
SUACUN   DATA     0                 USER NUMBER OF SUA'S
MPPSEEK  DATA     0
DUMPFILE DATA     0                 Z DUMP FILE FREE,NZ DUMP FILE BUSY
         DATA,2   0,0               NUMBER OF CORE PAGES,NUMBER OF JITS
SAVEDCTX DATA     0                 SAVE DCTX OF DEVICES STOPED FOR SUA
SUABTFLE DATA     0                 FIRST DISC ADDRESS OF DUMP FILE
         DATA     0                 GRANULE SIZE OF DUMP FILE
SMAKFLG  DATA     0                 Z SYSMAK NEEDED
*                                   NZ SYSMAK PERFORMED
*                                   NEG UP AFTER CRASH
         BOUND    8
MPCD2    GEN,8,24 3,BA(MPCB2)       WRITE THE ROS MEMORY
         GEN,8,24 X'28',5
         GEN,8,24 1,0
         GEN,8,24 X'08',0
*
MPCD3    GEN,8,24 3,BA(MPCB3)       WRITE THE R/W MEMORY
         GEN,8,24 X'28',5
         GEN,8,24 1,0
         GEN,8,24 X'08',0
*
MPCB2    DATA     X'20003800',0
MPCB3    DATA     X'24003800',0
MPCRTN   DATA     0                 MPC LOAD RETURN ADDRESS
MPCCHN   DATA     0                 CHANNEL NUMBER OF LOADED MPC
         PAGE
*F*      NAME:        SCR61
*F*      PURPOSE:     REPORT A SUA CODE 61 WHERE THE SUBCODE IS
*F*                   THE TRAP CELL ADDRESS.
SCR61    EQU      %
         STS,R6   SCR61E+1          TRAP CELL AS SUB CODE
         LW,1     TSTACK            L/TOP OF STACK ADR; REGS FROM TSTACK
         LCI      0                 L/CC'S OF 0 FOR LM
         LM,R0    *24BM15,R1        L/REGS (AT TIME OF TRAP)
*S*      SCREECH CODE: 61-(TRAP CELL)
*S*      REPORTED BY: INITRCVR
*S*      MESSAGE:     TEL OR CCI HAS TRAPED.
*S*      TYPE:        SUA
*S*      REGISTERS:   REGISTERS AT TIME OF TRAP.
*S*      REMARKS;     TRAP OCCURRED WHILE OPERATING MAPPED,
*S*                   SLAVE, AND WITH TEL-IN-CONTROL SET.
*S*                   SUBCODE IS TRAP LOCATION.
SCR61E   SUA      X'61'             SUA X'61'
         PAGE
*F*      NAME:        ABORT
*F*      PURPOSE:     REPORT A SUA CODE 7E WHERE THE SUBCODE IS
*F*                   THE TRAP CELL ADDRESS.
ABORT    EQU      %
*
         DISABLE
         STS,R6   SCR7EE+1          TRAP CELL AS SUB CODE
         LW,1     TSTACK            L/TOP OF STACK ADDRESS
         LCI      0                 L/CC'S OF 0 FOR LM
         LM,R0    *24BM15,R1        L/REGS (AT TIME OF TRAP)
*S*      SCREECHCODE; 7E-(TRAP CELL)
*S*      REPORTED BY: INITRCVR
*S*      MESSAGE:     MONITOR HAS TRAPPED
*S*      TYPE:        SUA
*S*      REGISTERS:   REGISTERS AT TIME OF TRAP.
*S*      REMARKS:     SUBCODE IS TRAP LOCATION.
SCR7EE   SUA      X'7E'             SUA X'7E'
         END

