.NLIST	TTM
	.TITLE	PTYTB  - PTY DEVICE TABLES
	.SBTTL	PTYTB  - TITLE PAGE
	.IDENT	/V03.00/
;
; ************************************************************************
;                                                                        *
; THIS PROGRAM IS PROVIDED ON AN "AS IS" BASIS ONLY.  DIGITAL  EQUIPMENT *
; COMPUTER USER'S SOCIETY,  DIGITAL EQUIPMENT CORPORATION, MONSANTO, AND *
; THE AUTHOR DISCLAIM  ALL WARRANTIES ON THE PROGRAM,  INCLUDING WITHOUT *
; LIMITATION, ALL IMPLIED WARRANTIES OF MERCHANTABLITY AND FITNESS.      *
;									 *
; FULL PERMISSION AND CONSENT IS HEREBY GIVEN TO DECUS  AND TO THE DECUS *
; SPECIAL INTEREST  GROUPS  TO  REPRODUCE,  DISTRIBUTE,  AND PUBLISH AND *
; PERMIT  OTHERS  TO  REPRODUCE  IN  WHOLE  OR  IN PART, IN ANY FORM AND *
; WITHOUT RESTRICTION, THIS PROGRAM AND ANY INFORMATION RELATING THERETO *
;									 *
; ************************************************************************
;
; VERSION:	V03.00
;
; AUTHOR:	RW STAMERJOHN	MAPS	31-AUG-77
;
; PTY DATA BASE.
;
; ASSEMBLY INTRUCTIONS:
;
;	OBJECT,LISTING=EXEMC/ML,RSXMC/PA:1,PTYTB
;
; MODIFICATION HISTORY:
;
;	V02.00	RWS	01-AUG-78	CONVERT TO VERSION 3.1
;
;	V02.01	RWS	17-AUG-78	ADD SYSTEM NAME, BASE-LEVEL, COUNTERS
;
;	V02.02	RWS	26-AUG-78	CORRECT PTY UCB MACRO, MAKE TOTAL
;					IDLE TIME TRIPLE PRECISON, AND SET
;					11/34 IDLE TIME CONSTANT.
;
;	V02.03	RWS	27-AUG-78	ADD 100 BYTE PATCH SPACE.
;
;	V02.04	PJH	05-OCT-78	ALLOCATE VECTORS FROM V$$CTR
;					DOWN.  ADD WORD LOCATION 
;					CONTAINING THE VALUE OF P$$PTY
;
;	V03.00	RWS	23-MAR-79	SEPERATE FROM EVENT LOGGING DATA BASE

	.SBTTL	PTYTB  - GLOBAL DEFINITIONS

	.IF DF	P$$PTY

;
; SYSTEM MACROS:
;
	.MCALL	HWDDF$		;DEFINE HARDWARE SYMBOLS
	HWDDF$
	.MCALL	DEVDF$		;DEFINE DEVICE OFFSETS
	DEVDF$
;
; GLOBAL DECLARATIONS:
;
	.GLOBL	$USRTB		;LINK TO PTY'S

	.IF DF	P$$PTY

	.GLOBL	$PTYTB		;PTY UCB TABLE.
	.GLOBL	$PTYNM		;NUMBER OF PTYS ON SYSTEM

	.ENDC
;
; GLOBAL REFERENCES:
;
	.GLOBL	$MAPTB		;LINK TO OTHER DEVICES.

	.IF NDF	LD$TT

	.GLOBL	$TTTBL		;TTDRV TABLE.

	.ENDC

	.SBTTL	PTYTB  - DATA DEFINITIONS
;
; LOCAL MACROS:
;
	.MACRO	PTUCB	NX

PTST	= .

	.IF DF	M$$MUP
	.WORD	0
	.WORD	0
	.ENDC

.PT'NX::
	.WORD	.PTD
	.WORD	.-2

	.IF DF	T$$RPR!T$$BTW
	.BYTE	UC.ATT!UC.PWF!UC.QUE,0
	.IFF
	.BYTE	UC.ATT!UC.PWF,0
	.ENDC

	.BYTE	0,US.RED
	.WORD	DV.REC!DV.CCL!DV.TTY

	.IF DF	M$$MUP
	.WORD	U2.LOG
	.IFF
	.WORD	U2.PRV
	.ENDC

	.WORD	0
	.WORD	80.
	.WORD	$PT'NX
	.WORD	0,0,0,0,0,0,0,0,0,$BTMSK+1,0,0,100200,0

	.IIF DF	T$$ACR!T$$BTW!T$$CCA!T$$CCO!T$$ESC!T$$HLD,	T1=0
	.IF  DF T1!T$$RPR!T$$SYN!T$$TRW!T$$UTB!T$$30P
	.WORD	0
	.ENDC

	.IF DF	T$$CCA&A$$TRP
	.WORD	0
	.ENDC

	.IF DF	T$$ESC
	.WORD	0
	.ENDC

PTND	= .

	.ENDM	PTUCB

	.MACRO	PTSCB	NX,NY

$PT'NX::
	.WORD	0
	.WORD	.-2
	.BYTE	PR4,<<V$$CTR-4>-<NX*10>>/4
	.BYTE	0,0
	.BYTE	NY*2,0
	.WORD	PTC'NX
	.WORD	0,0,0,0,0

	.IF DF	L$$DRV&M$$MGE
	.WORD	0
	.ENDC

PTC'NX:	.WORD	200
	.WORD	0
	.WORD	200
	.WORD	0

	.ENDM

	.MACRO	PTTBL	NX
	.WORD	.PT'NX
	.ENDM


	.SBTTL	PTYTB  * PTY DEVICE TABLES

$USRTB::			;REF. LABEL.
;
;	THE FOLLOWING TABLES DEFINE THE PTY DEVICE TABLES. THE CODE
;	WAS LIFTED FROM THE DL11 DEFINITIONS FOUND IN SYSGEN.TXT.
;
	.IIF DF	LD$TT,	$TTTBL=0
.PTD::	.WORD	$MAPTB
	.WORD	.PT0
	.ASCII	/TT/
	.BYTE	100-P$$PTY,77
	.WORD	PTND-PTST
	.WORD	$TTTBL
W1	= 160037
W2	= 000030
	.IIF DF	T$$GMC!T$$GTS!T$$SMC,	W1=W1!000040
	.IIF DF	T$$RPR,			W1=W1!001000
	.WORD	     W1,    W2,160000,000000
	.WORD	0000007,000000,000001,000006

	.IF DF	L$$DRV
	.WORD	0
	.ENDC

NUM	= 0

	.REPT	P$$PTY

	PTUCB	\NUM
NUM	= NUM+1

	.ENDR

NUM	= 0
IDX	= D$$L11-P$$PTY

	.REPT	P$$PTY

	PTSCB	\NUM,IDX
NUM	= NUM+1
IDX	= IDX+1

	.ENDR

$PTYTB::			;REF. LABEL

NUM	= 0

	.REPT	P$$PTY

	PTTBL	\NUM
NUM	= NUM+1

	.ENDR

$PTYNM::
	.WORD	P$$PTY			;NUMBER OF PTYS ON SYSTEM

	.ENDC

	.END