+* (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 *****