*COMDECK VALUE,NOPROP 
_$J+  PAGE EJECT? 
VALUE 
_*****************************
*                            *
*         V A L U E          *
*                            *
*****************************?
_**   COMMON VALUES   **? 
  
_***********************************************************************
*    PLACE COPYRIGHT NOTICE IN WORKLIST INTERMEDIATE ARRAY IN OBJECT   *
*    CODE (INTERNAL ASCII)                                             *
***********************************************************************?
  
      BWWLENTRY = (#COPYRIGHT CONTROL DATA CORP. #, 
                   #1975, 1985#); 
_?
_?
  
                        _ FIRMWARE ADDRESSES ?
  
      N2CHARTO  = $07E2;               _ E. P. FOR CHARACTER TIMEOUT   ?
      PFLSGET   = $0607;               _ LIST GET                      ?
      PFLSPUT   = $0608;               _ LIST PUT                      ?
      PFBURLS   = $0606;               _ BUFFER RELEASE                ?
      PFBUGET   = $0605;               _ BUFFER GET                    ?
      PFBUEXT   = $0609;               _ BUFFER EXTRACT                ?
      PFCOPY    = $095A;               _ PBFCOPY ENTRY ADDRESS         ?
      N1FIRMAD  = $0600;               _ OUTPUT TO CLA SEQUENCE        ?
      N1INFLG   = $07EC;               _ RESET NAION FOR NKINOUT CMD   ?
      N2P3INTAD = $0601;               _ P3 INTERRUPT GENERATION       ?
      N3P3INTAD = $0602;               _ RESET P3 INTERRUPT            ?
      PFLINTO   = $060A;               _ LINE TIMEOUT                  ?
      PFSR2SM   = $060E;               _ SET/RESET BITS IN SM2         ?
      B1DMTA    = $060B;                _DEADMAN TIMER RESET           ?
      LEVELNO   = OPS;                      _ PRIORITY TO OPS LEVEL    ?
_?
      BEMSK16 = ($C000,$3000,$3000,$C000,$0C00,$0300,$0300,$0C00);
      BEMSK8 = ($8000,$4000,$4000,$8000,$2000,$1000,$1000,$2000,
                $0800,$0400,$0400,$0800,$0200,$0100,$0100,$0200); 
_?
             _ BIT MASKS ?
BITMASK=(1,2,4,8,$10,$20,$40,$80,$100,$200,$400,$800,$1000,$2000,$4000, 
         $8000);
_?
      JNCNVTFROM=(0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,$A,$B,$C,$D,$E,$F); 
      JMCNVTO    = (#0#,#1#,#2#,#3#,#4#,#5#,#6#,#7#,#8#,#9#,
                    #A#,#B#,#C#,#D#,#E#,#F#); 
_?
      ONE = (0,1);
      MINUSONE = ($FFFF,$FFFE); 
      ZERO = (0,0); 
*IF DEF,TUP 
      JF3SNPTABLE = (0,$100,
                     0,$100,
                     DELIM);
      JIPRINTREGS = (# #,#1#,#2#,#3#,#4#,#Q#,#A#,#I#,#M#,# #);
      J0HLTMSG = (J1CRLF,#HLT XXXXX]#); 
      JEBPTABLE = (0,$100,160*0,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM,
                   J1BREAKMAX*DELIM); 
*ENDIF
_?
*IF DEF,CONSOLE 
      J6WMSG = (J1CRLF,#*WM]#); 
      J0ERRMSG  = (J1CRLF,#*ERR]#); 
     J0ERRFOR = (J1CRLF,#FORMAT ERROR]#); 
      J0ERRNOO= (J1CRLF,#OLD NOT AVAILABLE]#);
      J0SETUP = (J1CRLF,#*   ]#); 
      JBASSIGNTABLE = (TTY,        _ SUPERVISORY INPUT   ?
                       TTY,        _ SUPERVISORY OUTPUT  ?
                       TTY,        _ ALARMS              ?
                       TTY,        _ REPORTS             ?
                       TTY,        _ ORDERWIRE           ?
                       TTY,        _ DIAGNOSTICS         ?
*IF DEF,TUP,9 
                       TTY,        _ TUP INPUT           ?
                       TTY,        _ TUP OUTPUT          ?
                       LP1742,     _ TUP DUMP            ?
                       TTY,        _ SNAPSHOT CORE       ?
                       TTY,        _ SNAPSHOT REGISTERS  ?
                       NODEVICE,   _ SNAPSHOT BP ADDRESS ?
                       NODEVICE,   _ SPARE               ?
                       TTY,        _ QUICK OUTPUT        ?
                       NODEVICE,   _ WRAP SNAPSHOT       ?
                       NODEVICE);  _ SPARE               ?
  J1CR       = $D;            _CARRIAGE RETURN? 
  J1LF       = $A;            _LINE FEED? 
  J1CTLH     = 8;             _CONTROL H - TREATED AS BACKSPACE?
  J1BCKSPCE  = $5F;           _BACKSPACE? 
  J1TUPEOM   = #/#;           _SLASH? 
  J1TUPCAN   = $3F;           _QUESTION MARK? 
  J1ENTERTUP = 1;             _CONTROL A? 
  J1LVETUP   = 4;             _CONTROL D (EOT)? 
  J2ENTERMP  = $1B;           _ESCAPE?
  J2LVEMP    = $40;           _AT SIGN? 
  J1ICR      = $1E;           _CONTROL SHIFT N? 
  J1ILF      = $1D;           _CONTROL SHIFT M? 
  J1IDISCARD = 3;             _CONTROL C? 
  J1SYSEOM   = 4;             _CONTROL D (EOT)? 
_?
      C0THRESH = 20;
_?
  TTYCLR   = 2;               _CLEAR INTERRUPTS?
  TTYREAD  = $216;            _SELECT READ MODE,DATA AND ALARM INT? 
  TTYRITE  = $102;            _SELECT WRITE MODE, NO INT? 
  TTYWRITE = $116;            _SELECT WRITE MODE, DATA AND ALARM INT? 
  TTYEOP = $A;                _CLEAR INT, SELECT EOP INT? 
*ENDIF
_?
_?
      B1CIBSIZ = B0SCIB;
      B1ODDT   = 10;
_?
      CICLKADT = ($80F0,$0000,$0009,$0000); 
      CNCELIMIT = 10; 
      JSDELIMSET = ($10,0,$9001); 
      JSHEXSET = (0,0,0,$3FF,$7E);
      B3LOWER = B0S0 ;
      B3UPPER = B0S3 ;
      B4FSTL  = B0FSWL;                     _ FIRST WORKLIST VALUE     ?
  
  
       _INDEX = -1, 0, 1, 2, 3, 4, 5, 6, 7, 8?
      K0BSNA = ( 7, 7, 1, 2, 3, 4, 5, 6, 7, 1); 
  
_*****************************
*                            *
*    STRUCTURE SERVICES      *
*    VALUE INITIALIZATION    *
*                            *
*****************************?
      BREND = ($FFFF,0);
