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

*    (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
Commit	Line	Data
f020a29e	1	* (VPUNCH) 27.05.2005
	2	*
	3	*
	4	* PUNCH VISIBLE TEXT ON THE PAPER TAPE PUNCH
	5	*
	6	*
	7	* AUTHOR
	8	* PHILIPP HACHTMANN
	9	*
	10	* USAGE
	11	* JST VCHAR
	12	* DAC ARG
	13	*
	14	*
325547c4	15	SUBR VPUNCH,VPUN
f020a29e	16	REL
f020a29e	17	*
325547c4	18	VPUN DAC **
	19	LDA* VPUN ARGUMENT HOLEN
	20	IRS VPUN RUECKSPRUNG KORRIGIEREN
f020a29e	21	ALS 3 ZEICHENOFFSET GENERIEREN
	22	ADD FP FONTADRESSE ADDIEREN
	23	STA POS UND IN POINTER TUN
	24	LDA =-8
	25	STA CNT LOOPCOUNTER INITIALISIEREN
	26	OCP 2
	27	LOOP LDA* POS
	28	ICA
	29	OTA 2
	30	JMP *-1
	31	ICA
	32	OTA 2
	33	JMP *-1
	34	IRS POS
	35	IRS CNT
	36	JMP LOOP
325547c4	37	JMP* VPUN RETURN
f020a29e	38	*
	39	*
	40	POS DEC 0
	41	CNT DEC 0
325547c4	42	FP XAC FONT POINTER TO THE FONT BASE (8X16)
f020a29e	43	*
325547c4	44	END
325547c4	45