[h316.git] / lib / fortran / src / pchar.asm

*               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
Commit	Line	Data
c08e22bb	1	* PRINT CHAR
	2	*
	3	*
	4	****** USAGE
	5	*
	6	* JST PCHAR
fcb7b340	7	* DAC Arg1-Addr
c08e22bb	8	*
	9	*
	10	*
	11	SUBR PCHAR,P
	12	REL
	13	*
	14	*
	15	P DAC **
	16	LDA* P ERSTE ARG-ADRESSE
	17	STA TMP1 POINTER
	18	LDA* TMP1 IN
c3e0f81a	19	SKS '104 TEST IF ASR BUSY
	20	JMP *-1 JUMP BACK
	21	OCP '104 ASR START
c08e22bb	22	CAL CLEAR UPPER BITS
	23	OTA 4 OUTPUT CHAR
	24	JMP *-1 SECURITY
	25	IRS P RETURN ADDRESS
	26	JMP* P
	27	*******
	28	TMP1 DEC 0
	29	TMP2 DEC 0
	30	*******
	31	END