.Title	Pause - Program to simulate TSX+ pause command

	.psect	code
	.psect	data

lf	=12			;ascii line feed

msg:	.blkb	134.		;place to put message
prompt:	.ascii	'>>'<200>
	.even

	.mcall	.gtlin,.print,.ttyin,.exit

	.psect	code

	.enable	lsb
start:	.gtlin	#msg		;get message
	.print	#msg		;print message
1$:	.print	#prompt		;print prompt
2$:	.ttyin			;wait for cr or lf
	cmpb	#lf	,r0	;empty input buffer
	bne	2$		;go until lf is found
	.exit			;that's all folks
	.dsable	lsb

	.end	start
