[unix-history] / usr / source / s2 / tty.s

/ tty -- get tty number

.globl	ttyn

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

.data
name:
	<tty>
nam:
	<x\n>
.even
Commit	Line	Data
fa9f9b8b DR	1	/ tty -- get tty number
	2
	3	.globl ttyn
	4
	5	clr r0
	6	jsr pc,ttyn
	7	movb r0,nam
	8	mov $1,r0
	9	sys write; name; 5
	10	sys exit
	11
	12	.data
	13	name:
	14	<tty>
	15	nam:
	16	<x\n>
	17	.even