.TITLE	TIPC
	.MCALL	.EXIT,.PRINT,.TRPSET

TIPC::	.TRPSET	#AREA,#TRINT
	MOV	#BUFF,R0
	MOV	#FMT1,R1
	MOV	#AREA,R2
	MOV	PC,@R2
	TST	@#160000
OSHIT:	.PRINT	#SHIT
	.EXIT

TRINT::	MOV	@SP,2(R2)
	CALL	$EDMSG
	.PRINT	#BUFF
	INC	#-1
	BNE	10$
	.TRPSET	#AREA,#TRINT
	MOV	#BUFF,R0
	MOV	#FMT2,R1
	MOV	#AREA,R2
	MOV	PC,@R2
	MOV	#160000,PC
	BR	OSHIT
10$:	CALL	$EDMSG
	.PRINT	#BUFF
	.EXIT

AREA:	.BLKW	2
BUFF:	.BLKB	80.
FMT1:	.ASCIZ	/%P	TST	@#160000	;PC=%P/
FMT2:	.ASCIZ	/%P	MOV	#160000,PC	;PC=%P/
SHIT:	.ASCIZ	/SHIT HAPPENS/


	.END	TIPC