.TITLE GetLATportinfo
; Copyright (c) 1994 Glenn C. Everhart
; All Rights Reserved
;
EVAX = 1
ALPHA = 1
BIGPAGE = 1
ADDRESSBITS = 32
	.LIBRARY "ALPHA$LIBRARY:LIB.MLB" ; Inlcude system library
	$DVIDEF				; $GETDVI device characteristics
; glatprt - read lat port (accpornam) 
	.psect gl_data
ilprt:	.word	64,1	;itemlist to get port info
lprtd:	.long	0	;addre for accport name
dvfcn:	.long	DVI$_TT_ACCPORNAM
trnm:	.word	7,1
tnma:	.long	0	;addr of term. name
lpln:	.long	0
dval:	.long	6	;6 args for lib$getdvi
	.address	dvfcn
	.long	0
	.address	trnm
	.long	0
	.address	ilprt
	.address	lpln
	.psect gl_code
	.entry glatport,^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11>
; glatport(ttyname,latname)
; get the args
	movl	4(ap),r2	;ttyname descriptor
	cvtbl	(r2),r3		;length of buffer
	bleq	99$		;on neg., skip
	movw	r3,trnm
	movl	4(r2),tnma	;fill in data address
	beql	99$
	movl	8(ap),r2	;lat result desc.
	cvtbl	(r2),r3		;length
	bleq	99$
	movw	r3,ilprt
	movl	4(r2),lprtd	;buff addr
	beql	99$
	callg	dval,g^lib$getdvi	;get access port name
99$:	movl	#1,r0
	ret
	.END