X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Ffortran%2Fsrc%2Fvpunch.1;fp=lib%2Ffortran%2Fsrc%2Fvpunch.1;h=2a7ce7f9e66c46d3e67117c948a5b9baa0986f46;hb=f020a29eadb9a6e0a0343e0fae9f7bf03941bde2;hp=0000000000000000000000000000000000000000;hpb=61311b701f05e28e34407df39e3c775fd7132e08;p=h316.git

diff --git a/lib/fortran/src/vpunch.1 b/lib/fortran/src/vpunch.1
new file mode 100644
index 0000000..2a7ce7f
--- /dev/null
+++ b/lib/fortran/src/vpunch.1
@@ -0,0 +1,44 @@
+*    (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 *****