     HED 12604 DIAGNOSTIC - VARIABLES, CONSTANTS, MESSAGES
      ORG 300B
      SUP 
MAD1  DEF *+1 
      OCT 6412
      ASC 17,12604 DIAGNOSTIC PROGRAM  -   3/75 
ML1   DEC 36
      SPC 1 
MAD2  DEF *+1 
      GCT 6412
      ASC 6,I/O CHANNEL?
ML2   DEC 14
      SPC 1 
MAD3  DEF *+1 
      OCT 6412
      ASC 19,CONNECT PERIPHERAL DEVICE AND PUSH RUN 
      OCT 6412
ML3   DEC 42
      SPC 1 
MAD4  DEF *+1 
      OCT 6412
      ASC 10,PUSH PRESET THEN RUN 
      OCT 6412
ML4   DEC 24
      SPC 1 
MAD5  DEF *+1 
      OCT 6412
      ASC 18,INT. CONT. FF NOT CLEARED BY PRESET
      OCT 6412
ML5   DEC 40
      SPC 1 
MAD6  DEF *+1 
      OCT 6412
      ASC 18,STATIC TEST FOR STATE OF FLIP-FLOPS
      OCT 6412
      ASC 18,AND LEVELS OF HOLD AND ENCODE LINES
      OCT 6412
ML6   DEC 78
      SPC 1 
MAD7  DEF *+1 
      ASC 11,FLAG NOT SET BY PRESET 
      OCT 6412
ML7   DEC 24
      SPC 1 
MAD8  DEF *+1 
      OCT 6412
      ASC 3,ERROR 
MES8  OCT 0 
      OCT 6412
ML8   DEC 12
      SPC 1 
MAD9  DEF *+1 
      OCT 6412
      ASC 10,WHAT COMPUTER MODEL? 
ML9   DEC 22
      SKP 
MAD10 DEF *+1 
      ASC 5,NOT VALID 
ML10  DEC 10
      SPC 1 
MAD11 DEF *+1 
      OCT 6412
      ASC 14,TYPE "1" FOR 1.0 MSEC DELAY
      OCT 6412
      ASC 14,TYPE "0" FOR 0.1 MSEC DELAY
ML11  DEC 60
      SPC 1 
MAD12 DEF *+1 
      OCT 6412
      ASC 10,DELAY TIME TOO LONG
      OCT 6412
ML12  DEC 24
      SPC 1 
MAD13 DEF *+1 
      OCT 6412
      ASC 10,DELAY TIME TOO SHORT 
      OCT 6412
ML13  DEC 24
      SPC 1 
MAD14 DEF *+1 
      OCT 6412
      ASC 8,WAITING TOO LONG
      OCT 6412
ML14  DEC 20
      SPC 3 
A0    OCT 30040 
A1    OCT 30440 
A14   ASC 1,14
A15   ASC 1,15
A16   ASC 1,16
A21   ASC 1,21
A00   ASC 1,00
AMX   ASC 1,MX
ADATA DEF DATA
ADDR  OCT 0 
ATMP1 OCT 0 
BTMP1 OCT 0 
BIT3  OCT 0 
BIT4  OCT 0 
BIT5  OCT 0 
BIT6  OCT 0 
BIT7  OCT 0 
BIT8  OCT 0 
BLK0  OCT 20060 
CNT0  OCT 0 
C1    OCT 60
CNT1  OCT -1050 
CNT2  OCT 0 
CNT3  OCT 0 
CNT4  OCT 0 
CNT5  OCT 0 
CNT6  OCT 0 
CNT7  OCT 0 
CNT8  OCT 0 
CNT9  OCT 0 
CNT20 OCT 0 
COMP  OCT 0 
DATA  BSS 8 
DELY  OCT 0 
DELY0 OCT 0 
DELAY OCT 0 
D16   DEC 16
ERR   JMP EXX,I 
EXX   DEF P9
ERR1  OCT 0 
ERJMP JSB 110B,I
HI    HLT 10B 
HIS   STA 10B 
IDATA DEF DATA
INTRP JMP L1,I
L1    DEF LIB1
M2    OCT -2
M4    OCT -4
M6    OCT -6
M7    OCT -7
M10   DEC -10 
M67   OCT -67 
MIN   OCT 0 
MAX   OCT 0 
MSK1  OCT 170 
MSK2  OCT 7 
MSK3  OCT 77
MSK4  OCT -100
MSK5  OCT 771 
MSK17 OCT 17
ONE0  OCT 30446 
RAD1  DEF *+1 
REP1  OCT 0 
RL1   OCT 2 
RAD2  DEF *+1 
REP2  OCT 0 
RFP2  OCT 0 
RL2   OCT 4 
RAD3  DEF *+1 
REP3  OCT 0 
RL3   OCT 1 
RCVR  OCT 0 
RELY  OCT 0 
RELY0 OCT 0 
SBOK  JMP 111B,I
TEST  OCT 0 
X1    OCT 0 
X2    OCT 0 
X3    OCT 0 
X4    OCT 0 
X5    OCT 0 
X6    OCT 0 
X7    OCT 0 
X8    OCT 0 
      SPC 2 
      END 
                                                                                                