.Title DLTDev Digital Loopback Device Table. .Psect Alvin,Gbl,Con .Ident /LVL51C/ .Mcall $Alvin .Globl CLout, CLin ; External globals - TSX CL handlers. .Globl LIintr, LOintr ; External globals - RT direct interrupt. .Globl Bufd1,Bufd2 ; The default buffers for console I/O. .Globl Bufd6,Bufd5 ; For additional remote system input. .Globl RTTin,RTKbCtl,RTTout ; RT Console handlers. $Alvin ;;********************************************************************** ;; Device table for testing TSX-Plus CL support. ;; 4-Oct-85 DVJensen ;; 5-Dec-85 DJ Device table configured for Torgeson Station 4: RT or TSX. ;; 8-Apr-86 DJ Device table for Digital Loopback Testing. ;;********************************************************************** ;; 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 ;; . ;; . ;; . ;; unit function DEVTABLE:: .WORD CONSKB ; 0 - Console keyboard. .WORD CONSLT ; 1 - Console display (echo and list). .WORD Port0R ; 2 .WORD Port0T ; 3 .WORD Port1R ; 4 .WORD Port1T ; 5 .Word Port2R ; 6 .Word Port2T ; 7 .Word Port3R ; 8 .Word Port3T ; 9 .Word Port4R ; 10 .Word Port4T ; 11 .Word Port5R ; 12 .Word Port5T ; 13 .Word Port6R ; 14 .Word Port6T ; 15 .Word Port7R ; 16 .Word Port7T ; 17 .Word PortCR ; 18 DevTend:: .Word PortCT ; 19 ;;**************************** ;; 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 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 ;; .=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 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 ;; .=ConsLT+DevDend ;; ;; Port0R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176500 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 300 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 2 ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port0T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 0 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port0R+DevDend ;; ;; Port0T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176504 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 304 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 3 ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 0 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port0T+DevDend ;; ;; Port1R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176510 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 310 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 4 ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port1T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 1 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port1R+DevDend ;; ;; Port1T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176514 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 314 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 5 ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 1 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port1T+DevDend ;; ;; Port2R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176520 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 320 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 6 ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port2T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 2 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port2R+DevDend ;; ;; Port2T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176524 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 324 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 7 ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 2 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port2T+DevDend ;; ;; Port3R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176530 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 330 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 8. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port3T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 3 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port3R+DevDend ;; ;; Port3T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176534 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 334 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 9. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 3 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port3T+DevDend ;; ;; Port4R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176540 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 340 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 10. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port4T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 4 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port4R+DevDend ;; ;; Port4T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176544 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 344 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 11. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 4 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port4T+DevDend ;; ;; Port5R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176550 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 350 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 12. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port5T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 5 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port5R+DevDend ;; ;; Port5T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176554 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 354 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 13. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 5 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port5T+DevDend ;; ;; Port6R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176560 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 360 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 14. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port6T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 6 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port6R+DevDend ;; ;; Port6T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176564 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 364 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 15. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 6 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port6T+DevDend ;; Port7R:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 176570 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 370 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 16. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD Port7T ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 7 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port7R+DevDend ;; ;; Port7T:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 176574 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 374 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 17. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 7 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=Port7T+DevDend ;; ;; PortCR:: .WORD DISABLE ; Port Receiver definition - LOGICAL STATUS. .WORD 177560 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 60 ; Interrupt VECTOR address (for RT). .WORD CLin ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Flowctl ; Logical control word, CL and RT pseudo CL. .WORD 18. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD PortCT ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 0 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=PortCR+DevDend ;; ;; PortCT:: .WORD DISABLE ; Port Transmitter - LOGICAL STATUS. .WORD 177564 ; Actual DEVICE status address (for RT). .WORD 0 ; Active BUFFER descriptor address. .WORD 64 ; Interrupt VECTOR address (for RT). .WORD CLout ; CL input HANDLER (overriden for RT). .WORD 0 ; Actual DEVICE STATUS at last interrupt. .WORD 0,0,0,0 ; Storage for previous device state. .WORD CLctl!Output ; Logical control word, CL and RT pseudo CL. .WORD 19. ; Logical unit number. .Word 0 ; Default Buffer Descriptor. .WORD 0 ; fill Lwork0 (usage is context dependent.) .WORD 0 ; Character ERROR COUNT. .WORD 0 ; fill (lwork2) .WORD 0 ; Associated Device desc adr (RT flow control) .WORD 0,0,0,0 ; fill (lwork4-7) .Byte 0 ; CL unit number. .Byte 0 ; TSX line number to be taken over (none). .Byte 0,0 ; This will be the job number and alloc job. .WORD 0,0,0,0 ; Dynamic buffer descriptor. ;; .=PortCT+DevDend ;; ;;********************************************************************** .EVEN .End