#include <syscall.h>

/*
 * gtty
 */

.globl	_gtty
.globl	cerror

_gtty:
push	*r15, r14
ld	r14, r15
ld	r0, 4(r14)
ld	r7, 6(r14)
ld	t0, r7
sc	$INDIR
.word	t9
jp	c, cerror
clr	r7
pop	r14, *r15
ret

.data

t9:
sc	$GTTY

t0:
.word	0