*** empty log message ***

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

diff --git a/lib/fortran/src/lpchar.asm b/lib/fortran/src/lpchar.asm
new file mode 100644 (file)
index 0000000..07e105f
--- /dev/null
+++ b/lib/fortran/src/lpchar.asm
@@ -0,0 +1,28 @@
+* (LPCHAR)         PRINT CHAR ON LINE PRINTER
+*
+*
+****** USAGE
+*
+*      JST LPCHAR
+*      DAC Arg1
+*
+*
+*
+       SUBR    LPCHAR,P
+       REL
+*
+*
+P      DAC     **
+       LDA*    P       ERSTE ARG-ADRESSE
+       STA     TMP1    POINTER
+       LDA*    TMP1    IN
+       CAL             CLEAR UPPER BITS
+       OTA     0       OUTPUT CHAR
+       JMP     *-1     SECURITY
+       IRS     P       RETURN ADDRESS 
+       JMP*    P
+*******        
+TMP1   DEC     0             
+TMP2   DEC     0
+*******
+       END