X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Ffortran%2Fsrc%2Fpchar_lp.asm;fp=lib%2Ffortran%2Fsrc%2Fpchar_lp.asm;h=0000000000000000000000000000000000000000;hb=c3e0f81a307ef2688fee7ad1b92309ce226d536b;hp=5bb3e5b6d41a14e7afed9d15d720bf864a19f5f7;hpb=1cdd230d2872a59d05b4030785f9a01350bf1577;p=h316.git

diff --git a/lib/fortran/src/pchar_lp.asm b/lib/fortran/src/pchar_lp.asm
deleted file mode 100644
index 5bb3e5b..0000000
--- a/lib/fortran/src/pchar_lp.asm
+++ /dev/null
@@ -1,27 +0,0 @@
-*               PRINT CHAR - ON LINEPRINTER :-)
-*
-*
-****** USAGE
-*
-*      JST PCHAR
-*      DAC Arg1
-*
-*
-*
-	SUBR	PCHAR,P
-	REL
-*
-*
-P	DAC	**
-	LDA*	P	ERSTE ARG-ADRESSE
-	STA	TMP1	POINTER
-	LDA*	TMP1	IN
-	OTA	0	OUTPUT CHAR
-	JMP 	*-1	SECURITY
-	IRS	P	RETURN ADDRESS 
-	JMP*	P
-*******	
-TMP1	DEC	0             
-TMP2	DEC	0
-*******
-	END