*** empty log message ***

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

diff --git a/lib/fortran/src/pchar_lp.asm b/lib/fortran/src/pchar_lp.asm
deleted file mode 100644 (file)
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