Commit | Line | Data |
---|---|---|
f020a29e | 1 | * (LPCHAR) PRINT CHAR ON LINE PRINTER |
2 | * | |
3 | * | |
4 | ****** USAGE | |
5 | * | |
6 | * JST LPCHAR | |
7 | * DAC Arg1 | |
8 | * | |
9 | * | |
10 | * | |
11 | SUBR LPCHAR,P | |
12 | REL | |
13 | * | |
14 | * | |
15 | P DAC ** | |
16 | LDA* P ERSTE ARG-ADRESSE | |
17 | STA TMP1 POINTER | |
18 | LDA* TMP1 IN | |
19 | CAL CLEAR UPPER BITS | |
20 | OTA 0 OUTPUT CHAR | |
21 | JMP *-1 SECURITY | |
22 | IRS P RETURN ADDRESS | |
23 | JMP* P | |
24 | ******* | |
25 | TMP1 DEC 0 | |
26 | TMP2 DEC 0 | |
27 | ******* | |
28 | END |