2a7ce7f9e66c46d3e67117c948a5b9baa0986f46
[h316.git] / vpunch.1
1 * (VPUNCH) 27.05.2005
2 *
3 *
4 * PUNCH VISIBLE TEXT ON THE PAPER TAPE PUNCH
5 *
6 *
7 * AUTHOR
8 * PHILIPP HACHTMANN
9 *
10 * USAGE
11 * JST VCHAR
12 * DAC ARG
13 *
14 *
15 SUBR VPUNCH,STRT
16 REL
17 *
18 STRT DAC **
19 LDA* STRT ARGUMENT HOLEN
20 IRS STRT RUECKSPRUNG KORRIGIEREN
21 ALS 3 ZEICHENOFFSET GENERIEREN
22 ADD FP FONTADRESSE ADDIEREN
23 STA POS UND IN POINTER TUN
24 LDA =-8
25 STA CNT LOOPCOUNTER INITIALISIEREN
26 OCP 2
27 LOOP LDA* POS
28 ICA
29 OTA 2
30 JMP *-1
31 ICA
32 OTA 2
33 JMP *-1
34 IRS POS
35 IRS CNT
36 JMP LOOP
37 JMP* STRT RETURN
38 *
39 *
40 POS DEC 0
41 CNT DEC 0
42 FP DAC FONT POINTER TO THE FONT BASE (8X16)
43 *
44 **** HIER WIRD ANGEBAUT *****