.TITLE	VTTBL
	.IDENT	/01.00/
 
;
; DATA STRUCTURES FOR VIRTUAL TERMINAL DRIVER, RSX-11M VERSION 3
;
; D. ELDERKIN 23-MAY-77
;
; MODIFIED BY:
;
	.MCALL	HWDDF$
	HWDDF$			;DEFINE HARDWARE REGISTERS
	.MCALL	SCBDF$
	SCBDF$	,,SYSDEF	;DEFINE SCB OFFSETS
	.MCALL	UCBDF$
	UCBDF$			;DEFINE UCB OFFSETS
 
$VTDAT::			;START OF LOADABLE DATA BASE
;+
; DEVICE CONTROL BLOCK
;-
DCB0:
	.IIF DF L$$DRV,	$VTTBL=0
	.WORD	0
	.WORD	UCB0		;LINK TO FIRST UCB
	.ASCII	/VT/
	.BYTE	0,1
	.WORD	VTND-VTST
	.WORD	$VTTBL
W1=160037
W2=30
;	.IIF DF T$$GMC!T$$GTS!T$$SMC,	W1=W1!40		;DE003
;	.IIF	DF	T$$RPR, W1=W1!1000			;DE003
	.WORD	W1,W2,160000,0,7,0,1,6
	.IF DF	L$$DRV
	.WORD	0
	.ENDC
;+
; UNIT CONTROL BLOCK 0
;-
VTST=.
	.IF DF	M$$CLI
	.WORD	$MCRPT
	.ENDC
	.IF	DF M$$MUP!M$$CLI
	.WORD	0
	.WORD	0
	.ENDC
UCB0:
	.WORD	DCB0
	.WORD	.-2
	.BYTE	UC.PWF,0
	.BYTE	0,0
	.WORD	DV.REC!DV.CCL!DV.TTY
 
	.IF DF	M$$MUP
	.IFF
 
	.WORD	U2.PRV
 
	.IFT
	.IF GT M$$MUP
	
	.WORD	U2.LOG
 
	.IFF
 
	.WORD	U2.PRV
 
	.IFTF
M$$MUP=M$$MUP+1
	.ENDC
	.ENDC
 
	.WORD	0
	.WORD	80.
	.WORD	$VT0
	.WORD	0,0,0,0,0,0,0,0,0,100200,$BTMSK+1,0,0,0
	.IIF DF	T$$ACR!T$$BTW!T$$CCO!T$$ESC!T$$HLD!T$$CCA,	T1=0
	.IF DF	T1!T$$RPR!T$$SYN!T$$TRW!T$$UTB!T$$30P
	.WORD	0
	.ENDC
	.IFDF	T$$CCA&A$$TRP
	.WORD	0
	.ENDC
	.IF DF	T$$ESC
	.WORD	0
	.ENDC
VTND=.
;+
; UNIT CONTROL BLOCK 1
;-
VTST=.
	.IF DF	M$$CLI
	.WORD	$MCRPT
	.ENDC
	.IF	DF M$$MUP!M$$CLI
	.WORD	0
	.WORD	0
	.ENDC
UCB1:
	.WORD	DCB0
	.WORD	.-2
	.BYTE	UC.PWF,0
	.BYTE	0,0
	.WORD	DV.REC!DV.CCL!DV.TTY
 
	.IF DF	M$$MUP
	.IFF
 
	.WORD	U2.PRV
 
	.IFT
	.IF GT M$$MUP
	
	.WORD	U2.LOG
 
	.IFF
 
	.WORD	U2.PRV
 
	.IFTF
M$$MUP=M$$MUP+1
	.ENDC
	.ENDC
 
	.WORD	0
	.WORD	80.
	.WORD	$VT1
	.WORD	0,0,0,0,0,0,0,0,0,100200,$BTMSK+1,0,0,0
	.IIF DF	T$$ACR!T$$BTW!T$$CCO!T$$ESC!T$$HLD!T$$CCA,	T1=0
	.IF DF	T1!T$$RPR!T$$SYN!T$$TRW!T$$UTB!T$$30P
	.WORD	0
	.ENDC
	.IFDF	T$$CCA&A$$TRP
	.WORD	0
	.ENDC
	.IF DF	T$$ESC
	.WORD	0
	.ENDC
VTND=.
;+
; START OF SCB 0
;-
	.PSECT
$VT0:
	.WORD	0
	.WORD	.-2
	.BYTE	0,0		;NO INTERRUPTS HERE
	.BYTE	0,0		;NO TIMEOUTS
	.BYTE	0,0
	.WORD	0
	.WORD	0,0,0,0,0
	.IF DF	L$$DRV&M$$MGE
	.WORD	0
	.ENDC
;+
; START OF SCB 1
;-
	.PSECT
$VT1:
	.WORD	0
	.WORD	.-2
	.BYTE	0,0		;NO INTERRUPTS HERE
	.BYTE	0,0		;NO TIMEOUTS
	.BYTE	2,0
	.WORD	0
	.WORD	0,0,0,0,0
	.IF DF	L$$DRV&M$$MGE
	.WORD	0
	.ENDC
$VTEND::
	.END