*** empty log message ***

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

diff --git a/lib/fortran/src/vpunch.1 b/lib/fortran/src/vpunch.1
new file mode 100644 (file)
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 *****