*               PRINT CHAR
*
*
****** USAGE
*
*      JST PCHAR
*      DAC Arg1-Addr
*
*
*
	SUBR	PCHAR,P
	REL
*
*
P	DAC	**
	LDA*	P	ERSTE ARG-ADRESSE
	STA	TMP1	POINTER
	LDA*	TMP1	IN
	SKS	'104	TEST IF ASR BUSY
	JMP	*-1	JUMP BACK
	OCP	'104	ASR START
	CAL		CLEAR UPPER BITS
	OTA	4	OUTPUT CHAR
	JMP 	*-1	SECURITY
	IRS	P	RETURN ADDRESS 
	JMP*	P
*******	
TMP1	DEC	0             
TMP2	DEC	0
*******
	END