.Title DevTab Device Table & Descriptors
           .Psect Alvin,Gbl,Con
           .Ident /LVL51 /
           .Mcall $Alv51
           .Globl LIIntr,LOIntr   ;External globals - interrupt service.
	   .Globl Bufd1,Bufd2	  ;The default buffers for console I/O.
	   .Globl RTTin,RTKbCtl,RTTout ; RT Console handlers.
$Alv51
;;**********************************************************************
;;  Device table for Tracor/Northern & Micro-Spectrometer.
;;  8-May-84 DVJensen
;;**********************************************************************
;;        C O N T R O L   T A B L E S   &   D E F I N I T I O N S
;;**********************************************************************
;;        LOGICAL DEVICE TABLE - CONTAINS ABS ADR OF UNIT DESCRIPTORS
;;
;; The device table descriptor assumes DevTable and DevTEnd are Global:
;; The Alvin Nucleus defines it as: 
;;
; LDEVICE:: .WORD DEVTABLE    ;ABSOLUTE ADR OF START OF TABLE
;          .WORD  DEVTEND     ;ABS ADR OF END OF TABLE
;          .WORD  DEVICES     ;NUMBER OF DEVICES DEFINED
;;
DEVTABLE:: .WORD  CONSKB     ;COMMAND KEYBOARD (none)
           .WORD  CONSLT     ;KEYBOARD ECHO AND LIST (none)
           .WORD  TNRecv     ;Tracor/Northern input.
           .WORD  TNSend     ;Tracor/Northern output.
           .WORD  MSRecv     ;Micro-Spectrometer input.
           .WORD  MSSend     ;Micro-Spectrometer output.
           .WORD  0          ;Device # 6 (none)
DevTend::  .WORD  0          ;Device # 7 (none)
;;****************************
;;
CONSKB::  .WORD  DISABLE     ;CONSOLE KEYBOARD LOGICAL STATUS
          .WORD  0           ;ACTUAL DEVICE STATUS ADDRESS
          .WORD  0           ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS
          .WORD  0           ;INTERRUPT VECTOR ADDRESS
          .WORD  RTTIN       ;INTERRUPT HANDLER ADDRESS
          .WORD  0           ;ACTUAL DEVICE STATUS AT LAST INTERRUPT
          .WORD  0,0,0,0     ;STORAGE FOR PREVIOUS DEVICE STATE
          .WORD  RTCTL!Echo  ;LOGICAL CONTROL WORD
          .WORD  KEYB        ;LOGICAL UNIT NUMBER
          .Word  Bufd1	     ;Default Buffer Descriptor.
          .WORD  0           ;fill lwork0
          .WORD  0           ;CHARACTER ERROR COUNT
          .ASCII '? '        ;Error character override = ?
          .WORD  CONSLT      ;Associated device desc for echo.
          .WORD  0,0,0       ;fill lwork 4-6
          .Word  RTKBCtl     ;Control string for RT activation chars.
          .Word  0,0,0,0,0,0 ;Fill 
;;
CONSLT::  .WORD  DISABLE     ;CONSOLE LISTER LOGICAL STATUS
          .WORD  0           ;ACTUAL DEVICE STATUS ADDRESS
          .WORD  0           ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS
          .WORD  0           ;INTERRUPT VECTOR ADDRESS
          .WORD  RTTOUT      ;INTERRUPT HANDLER ADDRESS
          .WORD  0           ;ACTUAL DEVICE STATUS AT LAST INTERRUPT
          .WORD  0,0,0,0     ;STORAGE FOR PREVIOUS DEVICE STATE
          .WORD  RTCTL!Output ;LOGICAL CONTROL = RT controlled
          .Word  LIST        ;LOGICAL UNIT NUMBER, no redirection
          .Word  Bufd2	     ;Default buffer descriptor address.
          .Word  132.        ;LENGTH IN CHARACTERS OF THE CARRIAGE
          .BYTE  51.         ;(RESERVED FOR POSSIBLE LINE/PAGE COUNT)
          .BYTE  43.         ;(TTY43 LINES/PAGE BEFORE EJECT)
          .WORD  0           ;fill lwork2
          .Word  CONSKB      ;Console keyboard is the associated device.
          .Word  0,0,0,0     ;fill (lwork 4-7)
          .WORD  0           ;DYNAMIC STRING DESCRIPTOR FOR AUTO NEWLINE
          .WORD  0           ;DYNAMIC STRING DESCRIPTOR FOR AUTO NEWLINE
          .WORD  0,0,0,0     ;DYNAMIC BUFFER DESCRIPTOR
;;
TNRecv::  .WORD  DISABLE     ;Tracor Northern input stream.
          .WORD  176500      ;ACTUAL DEVICE STATUS ADDRESS
          .WORD  0           ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS
          .WORD  300         ;INTERRUPT VECTOR ADDRESS
          .WORD  LIINTR      ;INTERRUPT HANDLER ADDRESS
          .WORD  0           ;ACTUAL DEVICE STATUS AT LAST INTERRUPT
          .WORD  0,0,0,0     ;STORAGE FOR PREVIOUS DEVICE STATE
          .WORD  0   ;FLOWCTL     ;LOGICAL CONTROL WORD
          .WORD  2           ;LOGICAL UNIT NUMBER
          .Word  0           ;Default Buffer Descriptor.
          .WORD  0           ;fill
          .WORD  0           ;CHARACTER ERROR COUNT
          .WORD  0           ;fill (lwork2)
          .WORD  0   ;TNSend      ;Device desc adr - flow control output
          .WORD  0,0,0,0     ;fill (lwork4-7)
          .WORD  0,0,0,0,0,0 ;SD & BD work
;;
TNSend::  .WORD  DISABLE     ;Tracor Norther output stream.
          .WORD  176504      ;ACTUAL DEVICE STATUS ADDRESS
          .WORD  0           ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS
          .WORD  304         ;INTERRUPT VECTOR ADDRESS
          .WORD  LOINTR      ;INTERRUPT HANDLER ADDRESS
          .WORD  0           ;ACTUAL DEVICE STATUS AT LAST INTERRUPT
          .WORD  0,0,0,0     ;STORAGE FOR PREVIOUS DEVICE STATE
          .WORD  Output      ;LCONTROL 
          .WORD  3           ;LOGICAL UNIT NUMBER
          .Word  0           ;Default buffer descriptor address.
          .WORD  0,0,0,0     ;fill (lwork 0-3)
          .BYTE  XOFF,XON    ;Flow control bytes
          .WORD  0,0,0       ;fill 
          .WORD  0           ;DYNAMIC STRING DESCRIPTOR FOR AUTO NEWLINE
          .WORD  0           ;DYNAMIC STRING DESCRIPTOR FOR AUTO NEWLINE
          .WORD  0,0,0,0     ;DYNAMIC BUFFER DESCRIPTOR
;;
MSRecv::  .WORD  DISABLE     ;Micro Spectrometer input stream.
          .WORD  176510      ;ACTUAL DEVICE STATUS ADDRESS
          .WORD  0           ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS
          .WORD  310         ;INTERRUPT VECTOR ADDRESS
          .WORD  LIINTR      ;INTERRUPT HANDLER ADDRESS
          .WORD  0           ;ACTUAL DEVICE STATUS AT LAST INTERRUPT
          .WORD  0,0,0,0     ;STORAGE FOR PREVIOUS DEVICE STATE
          .WORD  0   ;FLOWCTL     ;LOGICAL CONTROL WORD
          .WORD  2           ;LOGICAL UNIT NUMBER
          .Word  0           ;Default Buffer Descriptor.
          .WORD  0           ;fill
          .WORD  0           ;CHARACTER ERROR COUNT
          .WORD  0           ;fill (lwork2)
          .WORD  0   ;MSSend      ;Device desc adr - flow control output
          .WORD  0,0,0,0     ;fill (lwork4-7)
          .WORD  0,0,0,0,0,0 ;SD & BD work
;;
MSSend::  .WORD  DISABLE     ;Micro Spectrometer output stream.
          .WORD  176514      ;ACTUAL DEVICE STATUS ADDRESS
          .WORD  0           ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS
          .WORD  314         ;INTERRUPT VECTOR ADDRESS
          .WORD  LOINTR      ;INTERRUPT HANDLER ADDRESS
          .WORD  0           ;ACTUAL DEVICE STATUS AT LAST INTERRUPT
          .WORD  0,0,0,0     ;STORAGE FOR PREVIOUS DEVICE STATE
          .WORD  Output      ;LCONTROL = Output unit
          .WORD  3           ;LOGICAL UNIT NUMBER
          .Word  0           ;Default buffer descriptor address.
          .WORD  0,0,0,0     ;fill (lwork 0-3)
          .BYTE  XOFF,XON    ;Flow control bytes
          .WORD  0,0,0       ;fill 
          .WORD  0           ;DYNAMIC STRING DESCRIPTOR FOR AUTO NEWLINE
          .WORD  0           ;DYNAMIC STRING DESCRIPTOR FOR AUTO NEWLINE
          .WORD  0,0,0,0     ;DYNAMIC BUFFER DESCRIPTOR
;;**********************************************************************
          .EVEN
          .End