*  PRINT A CARRIAGE RETURN / LINE FEED through CP/M

acrlf:	move.w	#$02,d0			* bdos write char call
	move.w	#$2d,d1			
	trap	#$2			* call bdos

keybrd: move.w	#$b,d0			* bdos con stat call
	trap	#2			* call bdos
	cmpi.w	#0,d0			* was key pressed?
	beq	acrlf
	rts