-.pa 1
-.he 'TTYN (III)'1/15/73'TTYN (III)'
-.ti 0
-NAME ttyn -- return name of current tty
-.sp
-.ti 0
-SYNOPSIS jsr pc,ttyn
-.sp
-.ti 0
-DESCRIPTION The routine hunts up the name of the
-input tty attached to the process (one byte from the set
-{012345678abc} at present) and returns it in r0.
-.sp
-"x" is returned if no genuine input tty is attached to the process.
-.sp
-.ti 0
-FILES kept in /lib/liba.a
-.sp
-.ti 0
-SEE ALSO fstat(II)
-.sp
-.ti 0
-DIAGNOSTICS --
-.sp
-.ti 0
-BUGS --
+.th TTYN III 1/15/73
+.sh NAME
+ttyn \*- return name of current typewriter
+.sh SYNOPSIS
+.ft B
+jsr pc,ttyn
+.s3
+ttyn(file)
+.s3
+.ft R
+.sh DESCRIPTION
+.it Ttyn
+hunts up the last character of the name of the
+typewriter which is the standard input (from \fIas\fR)
+or is specified by the
+argument
+.it file
+descriptor (from C).
+If \fIn\fR is returned, the
+typewriter name is then ``/dev/tty\fIn\fR''.
+.s3
+.bd x
+is returned if the indicated file does not correspond to a
+typewriter.
+.sh BUGS