V5/usr/source/s2/tty.s

Find at most related files.
including files from this version of Unix. 
/ tty -- get tty number

.globl	ttyn

	clr	r0
	jsr	pc,ttyn
	tst	r0
	movb	r0,nam
	mov	$1,r0
	sys	write; name; 5
	sys	exit

name:
	<tty>
nam:
	<x\n>
.even