f020a29e |
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 | * |
325547c4 |
15 | SUBR VPUNCH,VPUN |
f020a29e |
16 | REL |
17 | * |
325547c4 |
18 | VPUN DAC ** |
19 | LDA* VPUN ARGUMENT HOLEN |
20 | IRS VPUN RUECKSPRUNG KORRIGIEREN |
f020a29e |
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 |
325547c4 |
37 | JMP* VPUN RETURN |
f020a29e |
38 | * |
39 | * |
40 | POS DEC 0 |
41 | CNT DEC 0 |
325547c4 |
42 | FP XAC FONT POINTER TO THE FONT BASE (8X16) |
f020a29e |
43 | * |
325547c4 |
44 | END |
45 | |