.Title P2Device Table - Print Server .Psect PServe,Gbl,Con .Ident /LVL51 / .Mcall $Alv51 .Globl LIIntr,LOIntr,FlowIn ; External globals - interrupt service. .Globl RTTin, RTTout, RtKbCtl ; RT Console support. $Alv51 ;;********************************************************************** ;; Device table for Print Server on Micro-11 - 2 input streams, 1 printer. ;; 25-Oct-84 DVJensen ;; 30-Oct-85 DVJ Updated for device table compatability with 5.1c (CL). ;; 7-May-86 DJ Added NoAbort option to console descriptors so ^C will be ;; passed to the program. ;;********************************************************************** ;; 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 address of device descriptors. ;; ;; The device table descriptor assumes DevTable and DevTEnd are Global: ;; The Alvin Nucleus defines it as: ;; ; LDEVICE:: .WORD DEVTABLE ;Address of start of table. ; .WORD DEVTEND ;Address of end of table. ; .WORD DEVICES ;Number of devices defined. ;; DEVTABLE:: .WORD CONSKB ;RT-11 console keyboard. .WORD CONSLT ;RT-11 console echo and list. .WORD P1In ;SCS TSX-Plus serial printer in. .WORD P1Out ;SCS TSX-Plus serial printer flow control. .WORD Printin ;Serial printer flow control. .WORD Printout ;Serial printer output (actual printer). .WORD P2in ;VAX queued printer input stream. DevTend:: .WORD P2out ;VAX queued printer flow control. ;;**************************** ;; 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!NoAbort ;LOGICAL CONTROL WORD .WORD KEYB ;LOGICAL UNIT NUMBER .Word 0 ;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 ;; .=ConsKB+DevDend ;; 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!NoAbort ;LOGICAL CONTROL = RT controlled .Word LIST ;LOGICAL UNIT NUMBER, no redirection .Word 0 ;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 ;; .=ConsLT+DevDend ;; P1In:: .WORD DISABLE ;Printer 1 input. .WORD 176600 ;ACTUAL DEVICE STATUS ADDRESS .WORD 0 ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS .WORD 200 ;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 FLOWCTL ;LOGICAL CONTROL WORD .WORD 2 ;LOGICAL UNIT NUMBER .Word 0 ;Default Buffer Descriptor. .WORD 0 ;fill .WORD 0 ;CHARACTER ERROR COUNT .Ascii '? ' ;Input error override character. (lwork2) .WORD P1Out ;Device desc adr - flow control output .WORD 0,0,0,0 ;fill (lwork4-7) .WORD 0,0,0,0,0,0 ;SD & BD work ;; .=P1In+DevDend ;; P1Out:: .WORD DISABLE ;Tracor Norther output stream. .WORD 176604 ;ACTUAL DEVICE STATUS ADDRESS .WORD 0 ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS .WORD 204 ;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 ;; .=P1Out+DevDend ;; P2In:: .WORD DISABLE ;Printer 2 input. .WORD 176610 ;ACTUAL DEVICE STATUS ADDRESS .WORD 0 ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS .WORD 210 ;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 FLOWCTL ;LOGICAL CONTROL WORD .WORD 6 ;LOGICAL UNIT NUMBER .Word 0 ;Default Buffer Descriptor. .WORD 0 ;fill .WORD 0 ;CHARACTER ERROR COUNT .Ascii '? ' ;Input error override character. (lwork2) .WORD P2Out ;Device desc adr - flow control output .WORD 0,0,0,0 ;fill (lwork4-7) .WORD 0,0,0,0,0,0 ;SD & BD work ;; .=P2In+DevDend ;; P2Out:: .WORD DISABLE ;Tracor Norther output stream. .WORD 176614 ;ACTUAL DEVICE STATUS ADDRESS .WORD 0 ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS .WORD 214 ;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 7 ;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 .WORD 0 .WORD 0,0,0,0 ;DYNAMIC BUFFER DESCRIPTOR ;; .=P2Out+DevDend ;; PrintIn:: .WORD DISABLE ;Serial Printronix-300 Flow control input. .WORD 176630 ;ACTUAL DEVICE STATUS ADDRESS .WORD 0 ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS .WORD 230 ;INTERRUPT VECTOR ADDRESS .WORD FlowIn ;INTERRUPT HANDLER ADDRESS .WORD 0 ;ACTUAL DEVICE STATUS AT LAST INTERRUPT .WORD 0,0,0,0 ;STORAGE FOR PREVIOUS DEVICE STATE .WORD 0 ;LOGICAL CONTROL WORD .WORD 4 ;LOGICAL UNIT NUMBER .Word 0 ;Default Buffer Descriptor. .WORD 0 ;fill .WORD 0 ;CHARACTER ERROR COUNT .WORD 0 ;fill (lwork2) .WORD Printout ;Associated device - Output flow being controled. .BYTE XOFF,XON ;Flow control bytes .WORD 0,0,0 ;fill (lwork5-7) .WORD 0,0,0,0,0,0 ; BD work ;; .=PrintIn+DevDend ;; PrintOut::.WORD DISABLE ;Serial Printer Output. .WORD 176634 ;ACTUAL DEVICE STATUS ADDRESS .WORD 0 ;BUFFER DESCRIPTOR ABSOLUTE ADDRESS .WORD 234 ;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!FlowCtl ;LCONTROL = Output and Flowcontrol restart. .WORD 5 ;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 .WORD 0 .WORD 0,0,0,0 ;DYNAMIC BUFFER DESCRIPTOR ;; .=PrintOut+DevDend ;;********************************************************************** .EVEN .End