--- /dev/null
+* (VPUNCH) 27.05.2005
+*
+*
+* PUNCH VISIBLE TEXT ON THE PAPER TAPE PUNCH
+*
+*
+* AUTHOR
+* PHILIPP HACHTMANN
+*
+* USAGE
+* JST VCHAR
+* DAC ARG
+*
+*
+ SUBR VPUNCH,VPUN
+ REL
+*
+VPUN DAC **
+ LDA* VPUN ARGUMENT HOLEN
+ IRS VPUN 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* VPUN RETURN
+*
+*
+POS DEC 0
+CNT DEC 0
+FP XAC FONT POINTER TO THE FONT BASE (8X16)
+*
+ END
+