Commit | Line | Data |
---|---|---|
c08e22bb | 1 | * PRINT CHAR |
2 | * | |
3 | * | |
4 | ****** USAGE | |
5 | * | |
6 | * JST PCHAR | |
7 | * DAC Arg1 | |
8 | * | |
9 | * | |
10 | * | |
11 | SUBR PCHAR,P | |
12 | REL | |
13 | * | |
14 | * | |
15 | P DAC ** | |
16 | LDA* P ERSTE ARG-ADRESSE | |
17 | STA TMP1 POINTER | |
18 | LDA* TMP1 IN | |
c3e0f81a | 19 | SKS '104 TEST IF ASR BUSY |
20 | JMP *-1 JUMP BACK | |
21 | OCP '104 ASR START | |
c08e22bb | 22 | CAL CLEAR UPPER BITS |
23 | OTA 4 OUTPUT CHAR | |
24 | JMP *-1 SECURITY | |
25 | IRS P RETURN ADDRESS | |
26 | JMP* P | |
27 | ******* | |
28 | TMP1 DEC 0 | |
29 | TMP2 DEC 0 | |
30 | ******* | |
31 | END |