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

*    (VPUNCH) 27.05.2005
*
*
*    PUNCH VISIBLE TEXT ON THE PAPER TAPE PUNCH
*
*
*    AUTHOR
*      PHILIPP HACHTMANN
*   
*    USAGE
*      JST VCHAR
*      DAC ARG
*
*
	SUBR	VPUNCH,STRT
	REL
*
STRT	DAC	**
	LDA*	STRT	ARGUMENT HOLEN
	IRS	STRT	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*	STRT	RETURN	
*
*
POS	DEC	0
CNT	DEC	0
FP	DAC	FONT	POINTER TO THE FONT BASE (8X16)
*
**** HIER WIRD ANGEBAUT *****
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	*
	15	SUBR VPUNCH,STRT
	16	REL
	17	*
	18	STRT DAC **
	19	LDA* STRT ARGUMENT HOLEN
	20	IRS STRT RUECKSPRUNG KORRIGIEREN
	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
	37	JMP* STRT RETURN
	38	*
	39	*
	40	POS DEC 0
	41	CNT DEC 0
	42	FP DAC FONT POINTER TO THE FONT BASE (8X16)
	43	*
	44	** HIER WIRD ANGEBAUT ***