.TITLE WHOTT
;
;  WHAT TT NUMBER IS THIS?
;
	.MCALL ALUN$S,GLUN$S,EXST$S
;
BUFF:	.BLKW	6
;+
;
;  WHOTT
;
;	WHOTT RETURNS THE TERMINAL NUMBER THAT IT IS RUN FROM
;	IN THE EXIT STATUS.
;
;-
WHOTT:	ALUN$S	#1,#"TI,#0
;
	GLUN$S	#1,#BUFF
;
	MOVB	BUFF+G.LUNU,R1
	EXST$S	R1
;
	.END	WHOTT