*    (VPUNCH) 27.05.2005
*
*
*    PUNCH VISIBLE TEXT ON THE PAPER TAPE PUNCH
*
*
*    AUTHOR
*      PHILIPP HACHTMANN
*   
*    USAGE
*      JST VCHAR
*      DAC ARG
*
*
	SUBR	VPUNCH,VPUN
	REL
*
VPUN	DAC	**
	LDA*	VPUN	ARGUMENT HOLEN
	IRS	VPUN	RUECKSPRUNG KORRIGIEREN
	ALS	3	ZEICHENOFFSET GENERIEREN
	ADD	FP	FONTADRESSE ADDIEREN
	STA	POS	UND IN POINTER TUN
	LDA	=-8
	STA	CNT	LOOPCOUNTER INITIALISIEREN
	OCP	2
LOOP	LDA*	POS
	ICA
	OTA	2
	JMP	*-1
	ICA
	OTA	2
	JMP	*-1
	IRS	POS
	IRS	CNT
	JMP	LOOP
	JMP*	VPUN	RETURN	
*
*
POS	DEC	0
CNT	DEC	0
FP	XAC	FONT	POINTER TO THE FONT BASE (8X16)
*
	END