V2/lib/gtty.s

/ C library -- gtty

/ error = gtty(filep, ttyvec);

/ filep is descriptor of open tty
/ ttyvec[0, 1, 2] correspond to args of gtty

.globl	_gtty

.data
_gtty:
	1f
.text
1:
	mov	2(sp),r0
	mov	4(sp),0f
	sys	gtty; 0:..
	bes	1f
	clr	r0
	rts	pc
1:
	mov	$1,r0
	rts	r0