         SYSTEM   SIG7FDP
*
         REF      :9
         DEF      TABLES
TABLES   EQU      %
         PCC      0
*                                  TABLES
*
*                        PROGRAM NAME - BATCH TABLES AND CONSTANTS
*                                   SIGMA 6/7/9 UTS
*
SYSGEN   SET      0
SYSGEN   SET      1
         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
:PSD     CNAME
         PROC
         LOCAL    :B9MA,:560MA
         DO1      TCOR(S:FR,:B9)
         REF      :B9,:B560
         BOUND    8
P        SET      S:KEYS(2,*0,CC,IA,WK,RP,18,OMA,RES,;
                  FR,FS,FZ,FN,(SLAVE,MASTER),MAP,DM,AM,;
                  CI,II,EI,INH)
         DO       (P(2)&X'2040')=0  NOT MAP & NOT OMA
:B9MA    SET      :B9               SET FOR BIG9'S ONLY
:B560MA  SET      :B560             SET FOR BIG560'S ONLY
         ELSE
:B9MA    SET      0
:B560MA  SET      0
         FIN
LF       GEN,((P(2)&X'1000')>0)*64,;   OPTIONAL TWO WORDS OF ZEROS
         4,8,3,17,;   CC,(FR,FS,FZ,FN,SLAVE,MAP,DM,AM),,IA
         2,2,1,3,1,6,1,;            0,WK,,(CI,II,EI),:B9MA,,:B9MA
         8,4,1,1,2 ;                0,RP,,:B560MA,0
         0,;                        OPTIONAL TWO WORDS OF ZEROS
         AF(P(3),2),;               CC
         (P(2)**-4)&X'FF',;         FR,FS,FZ,FN,SLAVE,MAP,DM,AM
         0,;
         AF(P(4),2),;               IA
         0,;
         AF(P(5),2),;               WK
         0,;
         ((P(2)**-1)&7)|((P(2)&1)*7),;  CI,II,EI, OR INH
         :B9MA,;                    MA FOR SIGMA 9
         0,;
         :B9MA,;                    EA FOR SIGMA 9
         0,;
         AF(P(6),2),;               RP
         0,;
         :B560MA,;                  MA FOR XEROX 560
         0
         PEND
*
*                 DEFS FOR STATIC DATA
*
         DEF      BUF1,BUF2
         DEF      C:MSM             MILS SINCE MIDNIGHT
         DEF      ERBLOCK
         DEF      ERRCOUNT
         DEF      DID,S:LCORE
         DEF      IOCLINC
         DEF      IOCLOCK
         DEF      UNEXP
         DEF      DEVCTCHK
         DEF      RCVRCNT
         DEF      CURGRAN
         DEF      SGRAN
         DEF      BGRAN
         DEF      FGRAN1
         DEF      FGRAN2,FGRAN3
         DEF      GOODNGT
         DEF      CURBUF
         DEF      X2
         DEF      BALANCE
         DEF      1MIN
         DEF      M2,M3,M4,M7,M11,M15,M16,M17,M8,M9
         DEF      M22,M23
         DEF      M13
         DEF      MINUS2
         DEF      M5
         DEF      X1FE00
         DEF      MN9
         DEF      M32
         DEF      M19,X4000,XFFF,XF,XFF,X1FFFF,X8000
         DEF      XDFFF,XFFFD,XF7FF
         DEF      XN2
         DEF      XFFFF
         DEF      X0,Y004,Y01,YA
         DEF      Y6,Y0003
         DEF      SYSACT
         DEF      Y003E
         DEF      0PSD
         REF      TSTACK
         REF      JTSTACKSZ
         DEF      DOUBLEZERO,DOUBLEONE
         DEF      X1
         DEF      COPBNFLG
         DEF      QUIESCENT
           DEF     Y2
         DEF      Y04,Y02,Y03,Y08,Y1,Y18,Y15,Y06
         DEF      Y001,Y008,Y09,Y4,Y40,Y7F,Y8,YFA,YFF
         DEF      YFFFE
         DEF      YFFF
         DEF      Y00FE
         DEF      Y0004
         DEF      Y003
         DEF      Y0001,Y002,Y0002,Y0008,Y000C
         DEF      YC,Y00FF,Y0C,Y0038
         DEF      Y3,Y82,YFFFF,FF3FFFFF
         DEF      OPNCLSUS,OPNCLSTK
         DEF      X4
         DEF      X100,X400,XFFEF
         DEF      M31
         DEF      X8,X10,X20,X40,X80
         DEF      XFF00,Y01FE,XFFFF00,XFC
         DEF      XCF
         DEF      M21
         DEF      X3FFE00
         DEF      YF
         DEF      Y05,Y07,Y0A
         DEF      YE
         DEF      XFE,X7F,X3,XFB
         DEF      XA
         DEF      XE7,X7,M24,M6,CTFLAGS,Q4AVL
         DEF      24BM18
         DEF      24BM2
         DEF     24BM14,XFFF800
         DEF      24BM15
         DEF      X44
         DEF      XFFF0,Y000A,X1000001,X500000D
         DEF      XF3FF,XF1FFFFFF,XF0
         DEF      HEX               TEXT '0123456789ABCDEF'
         DEF      YBE
         DEF      RAD1ST
         DEF      FIN,BLANK
         DEF      S:BSPIN,S:OSPIN
         DEF      S:GSPIN
         DEF      PL:JIF
         DEF      CLOCKTMP
         DEF      TEMPT
         DEF      TJOB
         DEF      CURBQ
         DEF      CTOC
         DEF      DRSP
         DEF      CTACT
         DEF       S:CRASHUN
         REF      SDGA
         DEF      SYSICBTUN,SYSICBCLK
         SPACE    2
         DEF      MASKS,BT31TO0,NB31TO0
         SPACE    2
         BOUND    8
X0       DATA     0,0
DOUBLEZERO EQU X0
DOUBLEONE DATA 1,1
BT31TO0  EQU      %-1
I        DO       32
         DATA     1**(I-1)
         FIN
NB31TO0  EQU      %-1
I        DO       32
         DATA     X'FFFFFFFF'-1**(I-1)
         FIN
MASKS    EQU      %-1
I        DO       32
         DATA     -1+1**I
         FIN
X1       EQU      BT31TO0+1
X2       EQU      BT31TO0+2
X4       EQU      BT31TO0+3
X8       EQU      BT31TO0+4
X10      EQU      BT31TO0+5
X20      EQU      BT31TO0+6
X40      EQU      BT31TO0+7
X80      EQU      BT31TO0+8
X100     EQU      BT31TO0+9
X200     EQU      BT31TO0+10
X400     EQU      BT31TO0+11
X800     EQU      BT31TO0+12
X1000    EQU      BT31TO0+13
X2000    EQU      BT31TO0+14
X4000    EQU      BT31TO0+15
X8000    EQU      BT31TO0+16
Y0001    EQU      BT31TO0+17
Y0002    EQU      BT31TO0+18
Y0004    EQU      BT31TO0+19
Y0008    EQU      BT31TO0+20
Y001     EQU      BT31TO0+21
Y002     EQU      BT31TO0+22
Y004     EQU      BT31TO0+23
Y008     EQU      BT31TO0+24
Y01      EQU      BT31TO0+25
Y02      EQU      BT31TO0+26
Y04      EQU      BT31TO0+27
Y08      EQU      BT31TO0+28
Y1       EQU      BT31TO0+29
Y2       EQU      BT31TO0+30
Y4       EQU      BT31TO0+31
Y8       EQU      BT31TO0+32
M1       EQU      MASKS+1
M2       EQU      MASKS+2
M3       EQU      MASKS+3
M4       EQU      MASKS+4
M5       EQU      MASKS+5
M6       EQU      MASKS+6
M7       EQU      MASKS+7
M8       EQU      MASKS+8
M9       EQU      MASKS+9
M10      EQU      MASKS+10
M11      EQU      MASKS+11
M12      EQU      MASKS+12
M13      EQU      MASKS+13
M14      EQU      MASKS+14
M15      EQU      MASKS+15
M16      EQU      MASKS+16
M17      EQU      MASKS+17
M18      EQU      MASKS+18
M19      EQU      MASKS+19
M20      EQU      MASKS+20
M21      EQU      MASKS+21
M22      EQU      MASKS+22
M23      EQU      MASKS+23
M24      EQU      MASKS+24
M25      EQU      MASKS+25
M26      EQU      MASKS+26
M27      EQU      MASKS+27
M28      EQU      MASKS+28
M29      EQU      MASKS+29
M30      EQU      MASKS+30
M31      EQU      MASKS+31
M32      EQU      MASKS+32
XFFF     EQU      M12
XFFFE    EQU      NB31TO0+1
XFFFD    EQU      NB31TO0+2
XFFFB    EQU      NB31TO0+3
XFFF7    EQU      NB31TO0+4
XFFEF    EQU      NB31TO0+5
XFFDF    EQU      NB31TO0+6
XFFBF    EQU      NB31TO0+7
XFF7F    EQU      NB31TO0+8
XFEFF    EQU      NB31TO0+9
XFDFF    EQU      NB31TO0+10
XFBFF    EQU      NB31TO0+11
XF7FF    EQU      NB31TO0+12
XEFFF    EQU      NB31TO0+13
XDFFF    EQU      NB31TO0+14
XBFFF    EQU      NB31TO0+15
X7FFF    EQU      NB31TO0+16
MINUS2   EQU      NB31TO0+1
XN2      EQU      NB31TO0+1
XFFFFFEFF EQU     NB31TO0+9
XF       EQU      M4
XFF      EQU      M8
XFFFF    EQU      M16
X10000   EQU      Y0001
X1FFFF   EQU      M17
X7FFFF   EQU      M19
X1FE00   DATA     X'1FE00'
MN9      EQU      X1FE00
XFE      DATA     X'FE'
X7F      EQU      M7
X3       EQU      M2
XFB      DATA     X'FB'
XE7      DATA     X'E7'
X7       EQU      M3
X44      DATA     X'44'
XFF00    DATA     X'FF00'
XF3FF    DATA     X'F3FF'
XF1FFFFFF  DATA   X'F1FFFFFF'
XF0      DATA     X'F0'
X3FFE00  DATA     X'3FFE00'
X1000FFFF DATA    X'1000FFFF'
         DEF      X1000FFFF
XFFF800  DATA    X'FFF800'
XA       DATA     X'A'
XFFFF00 DATA     X'FFFF00'
XFC     DATA     X'FC'
XCF      DATA     X'CF'
X1000001 DATA     X'1000001'
X500000D DATA     X'500000D'
XFFF0    DATA     X'FFF0'
Y000A    DATA     X'000A0000'
YBE      DATA     X'BE000000'
Y000C    DATA     X'C0000'
Y003     DATA     X'300000'
Y0038    DATA     X'380000'
Y00FE    DATA     X'FE0000'
Y00FF    DATA     X'FF0000'
Y03      DATA     X'3000000'
Y05      DATA     X'05000000'
Y06      DATA     X'6000000'
Y07      DATA     X'07000000'
Y09      DATA     X'9000000'
Y0A      DATA     X'0A000000'
YE       DATA     X'E0000000'
YF       DATA     X'F0000000'
Y0C      DATA     X'C000000'
Y01FE   DATA     X'01FE0000'
Y15      DATA     X'15000000'
Y18      DATA     X'18000000'
Y3       DATA     X'30000000'
Y40      EQU      Y4
Y6       DATA     X'60000000'
Y0003    DATA     X'30000'
Y7F      DATA     X'7F000000'
YC1FF    DATA     X'C1FF0000'
         DEF      YC1FF
Y003E    DATA     X'3E0000'
HEX      TEXT     '0123456789ABCDEF'
         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
75TABLE  RES      0                 LAST 6 75 DISK ADDRESSES
         DO1      3
         TEXT     'IAMADUCK'        INIT TO GARBAGE
75BUF    DATA     -1                REPORTING DISABLED
         DEF      LFGUN
LFGUN    DATA     0                 USER # OF LFG
         DEF      FDFLAGS
FDFLAGS  DATA     -1
*
*  ROUTINE CALLED FROM SLDDWN IN WRTF.
*  THE ARG FIELD OF MBS IS CHANGED BEFORE COMING HERE.
*
         DEF      SLDMOVE
         REF      J:BASE
SLDMOVE  AW,R5    J:BASE+11         DECR R5 BY SIZE OF 2 KEYS, ADD COUNT
         MBS,R5   -1                MOVE ONE KEY
         BDR,D2   SLDMOVE
         B        0,R2              RETURN
         PAGE
*                 COUNTERS FOR BUFGRAN-PURGE..USED IN DETERMINING
*                 WHEN OPERATOR MESSAGES AND AUTO PURGES MUST BE DONE
GRANRESET DATA    1                 NO. GRANULES TO RELEASE BEFORE
*                                   RESETTING GRANMIN
GRANMIN  DATA     1                 NO. GRANULES THAT MAY BE ALLOCATED
*                                   BEFORE REACHING A PURGE THRESHOLD
*                 ABOVE VALUES ASSURE PURGE WILL BE CALLED TO
*                 RESET THESE ITEMS
PURGEFLAG DATA    0                 BUFGRAN CALLS PURGE ONLY IF LATTER
*                                   READY, NON-ZERO SAYS READY
         DEF      GRAVAIL,GRANRAD,GRANPACK
         DEF      GRANSYM,GRANCYL,GRAJST
GRAVAIL  EQU      %
GRANRAD  DATA     0
GRANPACK DATA     0
GRANSYM  DATA     0
GRANCYL  DATA     0
GRAJST   DO1      4
         DATA     0
         DEF      GRANMIN,GRANRESET,PURGEFLAG
         DEF      ALLOOUT
*                 FLAG FOR SWAPPER TO SWAP OUT ALLOCAT
ALLOOUT  DATA     0
ALLYON   DATA     0
         DEF      ALLYON
         DEF      SGB,SGL,SGT
SGB      DATA     0
SGL      DATA     X'FFFFF'
SGT      DATA     X'FFFFF'
GOODNGT  DATA     0
LASTTPE  DATA     0                 SAVE LAST DRIVE USED FOR TYPR
         DEF      LASTTPE
*
Y82      DATA     X'82000000'
CURBQ    DATA     0
CTOC     DATA     0
CTACT    DATA     0
YA       DATA     X'A0000000'
YC       DATA     X'C0000000'
YFA      DATA     X'FA000000'
YFF      DATA     X'FF000000'
YFFF     DATA     X'FFF00000'
YFFFE    DATA     X'FFFE0000'
YFFFF    DATA     X'FFFF0000'
FF3FFFFF DATA     X'FF3FFFFF'
         DEF      X1FFFE
X1FFFE   DATA     X'1FFFE'
24BM2    GEN,8,24 0,-2
24BM18   GEN,8,24 0,-18
24BM14   GEN,8,24 0,-14
24BM15   GEN,8,24 ,-15
COPBNFLG DATA     0                 COOP NEEDS BUFFER FLAG
OPNCLSUS DATA     0
OPNCLSTK DATA     0
S:CRASHUN DATA     0
QUIESCENT DATA    0
BALANCE  DATA     0                 FOR POWON AND POWROFF
         DEF      OFFCNTER,ONCNTER
OFFCNTER DATA     0                 POWER OFF INT. COUNTER
ONCNTER  DATA     0                 POWER ON INT. COUNTER
*
*                                   SYSTEM LOAD PARAMETER
*                                   THE INTERRUPTED ENVIRONMENT
1MIN     DATA     50                # OF 1.2 SEC INTERVALS PER MINUTE
DRSP     DATA     0                 INHIBIT FLAG FOR DRSP
*
         DEF      S:SECPR
S:SECPR  DATA     X'00'             USERS AT OR BELOW THIS PRIV WILL BE CLEANEDD
         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                 TEMP CARD*******************
         DO       CNM
         DEF      ADR:ECB,ADR:LNID,ADR:LIST,VAL:INDX
         DEF      ADDRMASK,REGMASK,AUTORDCB
         DEF      CNMLNDCB,LNDEVCD
         DEF      SLVLNCT,OPNBIT,HALTL,INUSEL,OPNCLSL,AUTORDL
         DEF      CT:MASTR,CT:SLAVE,SLVLNST,MOCMNEM
*
*        THE FOLLOWING 4 EQU'S ARE FOR CNM SLAVE LINE DCBS
*
ADR:ECB  EQU      9                 RD/WRT ECB ADR HELD HERE
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
AUTORDCB EQU      Y0001             AUTO READ BIT IN DCB'S WORD0
SLVLNCT  DATA     X'C0'             CNM SLV LN SWITCHES' CURRENT TYPE BITS
SLVLNST  EQU      X3                CNM SLV LN SWITCHES' SYSGEN TYPE BITS
CT:SLAVE EQU      X80               CNM LN CURRENT TYPE=SLAVE BIT
CT:MASTR EQU      X40               CNM LN CURRENT TYPE=MASTER BIT
OPNBIT   EQU      X20               CNM SLV LN SWITCHES DCB-OPEN BIT
HALTL    EQU      Y0004             LIST FLAGS' HALT BIT MASK
INUSEL   EQU      Y0002             LIST FLAGS' IN-USE BIT MASK
OPNCLSL  EQU      Y0001             LIST FLAGS' OPN/CLS BIT MASK
AUTORDL  EQU      Y0008             LIST FLAGS' AUTO READ BIT MASK
LNDEVCD  EQU      X'D3D5'           OP LABEL CODE FOR CNM SLV LN DCB
MOCMNEM  EQU      X'D4D6'           DEVICE MNEMONIC FOR CNM MOC LINE
         FIN
         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
*
* THIS COMES OUT IF SPECIAL HANDLERS ARENT HANDLED AS ANTICIPATED
*
         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
OCFLG    DATA     0
DEVCTCHK DATA     0
IOCLINC  DATA     4                 PULSE COUNTER FOR I/O CLOCK
IOCLOCK  DATA     0
UNEXP    DATA     0                 COUNT OF UNEXPECTED INTS
         PAGE
*
*                 DEFS FOR ENTRY PSDS.
         DEF      CLK3PSD
         DEF      IOPSD
         DEF      OCPSD
         REF      IOINT,OCINT
         DEF      T:OVBPSD,T:OVBALPSD,SKIPPSD
         REF      T:OVB,T:OVBAL,RETURN
         REF      CLOCKI
         DEF      CSED%BEST%END,CSED%BREG,CSED%CF,CSED%EA%REAL
         DEF      CSED%EA%VIRT,CSED%EL%PSD,CSED%ERR,CSED%ERRLOG%BUF
         DEF      CSED%FI%REAL,CSED%IA%FLAGS,CSED%INST,CSED%LINK
         DEF      CSED%LOG%MFI,CSED%MAPPED,CSED%PATH,CSED%PSD%IOFAIL
         DEF      CSED%PSD,CSED%REGS
         DEF      CSED%RTRY%CNT,CSED%SPDF,CSED%STOP%TABLE
         DEF      CSED%STOP,CSED%WHY,CSED%MSG,CSED%PMFI%DISARMED
         DEF      CSEP%MSG%SIZE
         DEF      CSED%3STAT,3COUNT,3ANDADD,3ORADD,3ANDCONT,3ORCONT
         DEF      3FIRST,3FIRSTC,3LAST,3LASTC,3BUFCLR
*
         REF      CSE%STOP%IOFAIL,CSE%ERR,CSEI%PATH%INIT
         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)
T:OVBPSD :PSD     RES,(IA,T:OVB),(WK,1),INH,MAP
T:OVBALPSD :PSD   RES,(IA,T:OVBAL),(WK,1),INH,MAP
SKIPPSD  :PSD     RES,(IA,RETURN),(WK,1),INH,MAP
LEE20    :PSD     RES,(IA,LEE10-1),INH
CSED%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    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
         PAGE
*   TABLE OF DATA FROM STOP SEQUENCE
*       *** THIS MUST BE ON BOUND 8 ***
         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%BREG         DATA   0          X 560 BRANCH REGISTER
CSED%PSD          DATA  0,0         TRAP PSD
CSED%WHY          DATA   0          WHY CODE
         SREF     CSED%MSTAT
         SREF     CSED%PSTAT        FOR X560 ONLY
CSED%MSTAT%ADR    DATA   CSED%MSTAT   ADRESS OF MEMPOLL TABLE
CSED%PSTAT%ADR    DATA   CSED%PSTAT   ADRESS OF PROC POLL TABLE
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         BEST END SO FAR
*
*   ITEMS FOR CSE%ANALZE%INST (IN FORMAT FOR ERROR LOG)
*
         BOUND    8
CSED%ERRLOG%BUF   DATA    0         CODE,COUNT,FLAGS,TCC
                  DATA    0         RELATIVE TIME
CSED%EL%PSD       DATA    0,0       TRAPPED PSD
                  DATA    0,0       RESERVED FOR PSD 3,4
CSED%FI%REAL      DATA    0         REAL ADDRESS OF TRAPPED INSTRUCTION
CSED%INST         DATA    0         TRAPPED INSTRUCTION
CSED%EA%VIRT      DATA    0         ANLZ CC, VIRTUAL ADDRESS
CSED%EA%REAL      DATA    0         REAL ADDRESS OF TRAPPED INSTRUCTION
*
CSED%IA%FLAGS     DATA    0         INST ANLZ FLAGS
CSED%BEST%END     DATA    0         BEST END SO FAR
CSED%ERR          DATA    0         WHAT TYPE OF FAULT
CSED%MAPPED       DATA    0         MAPPED FLAG
CSED%PATH         DATA    CSEI%PATH%INIT  REENTRY FLAG, TRACK
CSED%PMFI%DISARMED DATA   0         DISARMED NESTING COUNTER
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'750B0000'
         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      63                21 THREE 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
         GEN,8,24 2,X'4000'*4       READ
         GEN,8,24 X'2E',0
*
         GEN,8,24 3,BA(ROOTSA+2)    SEEK FOR OVFLWED MON(2K MAX)
         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      DATE,TIME
         DEF      MFL
         REF      CPE
MFL      EQU      CPE
RAD1ST   DATA     0
FIN      TEXT     '!FIN'
BLANK    TEXT     '    '
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
TJOB     TEXT     '!JOB'
S:PCORE  DATA     0
         BOUND    8
HIGH     DATA     0
LOW      DATA     0
CORED    DATA     0
         DEF      S:PCORE,HIGH,LOW,CORED
         DEF      MONCHK
MONCHK   DATA     0                 MONITOR PROCEDURE CHECKSUM
         PAGE
         DEF      GMBSIZ
GMBSIZ   EQU      34
         DEF      SYSACCT
         BOUND    8
SYSACCT  TEXT     ':SYS    '
SYSACT   EQU      SYSACCT
         DEF      ALLODIRA
ALLODIRA DATA     0,0
CFUSIZE  EQU      8
CJOB     EQU      X'4F'
         DEF      RQLDGA
RQLDGA   DATA     SDGA
         DEF      CFUSIZE           SIZE EACH CFU ENTRY
DATE     TEXT     '0101  70'
TIME     TEXT     '0000'
         BOUND    8
TEMPT    DATA     0,0
CLOCKTMP DATA     0,0
RCVRCNT  DATA     0
         SPACE    3
         DEF      NMPO
NMPO     EQU      -22
         PAGE
*
*                 DEFS FOR PARAMETERS OF MONITOR TABLES.
*
         DEF      BTDBIT,MBGBIT,CFUBIT,OPLBBIT,BATYC,EXITBITS
         DEF      NAOMASK,TRAPFLGB,TRAPFLAG,TCB,PSMASK,FXMASK
         DEF      FLTMASK,DECMASK
         REF      TRPFLAGS,TCBADR
         DEF      WABLK,WAARS,WAFCN
         SPACE    2
QBUF     EQU      7                 BUFFER ADDR. FOR QUEUE
BTDBIT   EQU      25                BIT POSN OF BYTE DISPL. (LAST BIT)
MBGBIT   EQU      8                 BIT POSN OF BUFFER IND.
CDA      EQU      8                 CURRENT DISC ADDR.
WABLK    EQU      6                 WA(BYTE COUNT WORD)
WAFCN    EQU      7                 WORD OFFSET IN DCB OF FCN BYTE
BANRA    EQU      8                 BA(NO. REC'S ALLOWED)
BANRT    EQU      4                 BA(NO. REC'S TRIED)
BADCBPRI EQU      22                BA(REL. PRIORITY)
BAFCN    EQU      28
WADSI    EQU      1                 WA(DEVICE SELECTION)
CFUBIT   EQU      1                 VALUE OF ASSIGN TYPE FOR DISC.
OPLBBIT  EQU      X'8000'           MASK TO CHECK IF OPLB
HACDA    EQU      16                HA(CURRENT DISC ADDRESS)
WAARS    EQU      4                 WA(ACTUAL RECORD SIZE)
ERRTYC   EQU      8                 TYC VALUE FOR ERROR
BATYC    EQU      9                 BA(TYPE OF COMPLETE
MSTRBIT  EQU      Y008              WORD WITH MASTER/SLAVE BIT ON
MAXPRI   EQU      X'FFFF'           MAX ALLOWABLE PRIORITY
         SPACE    5
BAJITPRI EQU      X'45'
ERRBIT   EQU      YA                MASK FOR ERROR
EXITBITS EQU      YFF
MERRBITS EQU      YA                MASK FOR ERROR EXIT
VIOLBIT  EQU      Y01               SET FOR ILLEGAL TRAP,ETC.
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
MERRBIT  EQU      Y8                SET FOR M:ERR
MXXXBIT  EQU      Y4                SET FOR M:XXX
BCALMSK  EQU      X'80'
         PAGE
         DATA     BUF1
         DATA     BUF2
CURBUF   DATA     BUF1              ADR OF CURBUF
SGRAN    DATA     0                 ADR OF 1ST RECORD ON DISC
BGRAN    DATA     0                 BACKWARD LINK DISC ADR
CURGRAN  DATA     0                 CURRENT DISC ADR
FGRAN1   DATA     0                 FORWARD LINK DISC ADR
FGRAN2   DATA     0                 NEXT FORWARD LINK DISC ADR OR ZERO
FGRAN3   DATA     0                 ADDITIONAL FORWARD FINK DISC ADR/0
         DATA     0                 SETS USED GRANS TO ZERO
BUF1H1   DATA     BUF1+3
BUF1H2   DATA     61
BUF1     EQU      %
         DATA     0,0,0             BLINK AND FLINK, NO. OF WORDS USED
         RES      61
BUF2H1   DATA     BUF2+3
BUF2H2   DATA     61
BUF2     EQU      %
         DATA     0,0,0             BLINK AND FLINK, NO. OF WORDS USED
         RES      61
ERBLOCK  DATA     0                 ERRLOG BLOCK FLAG
ERRCOUNT DATA      5
C:MSM    DATA     0                 MILS SINCE MIDNIGHT
         DEF      CFLAG,TYC
*
* LET NEWQ ENABLE AFTER ENTRY QUEUED
*
*MEDIA DUMP END ACTION DATA
CFLAG    DATA     0                 INPUT COMP FLAG
         DATA     0                 OUTPUT COMP FLAG
TYC      DATA     0                 INPUT TYPE COMP CODE
         DATA     0                 OUTPUT COMP CODE
*******  DIAGNOSTIC DATA WORDS
DID      DATA     0    ID OF DIAG USER
S:LCORE  DATA     0                 # PAGES LOCKED IN CORE CURRENTLY
TABLESSZ  EQU        %-TABLES
         END

