60a9a43335aa37bdaaf9ccee00be378719d8fff4
[h316.git] / pchar.asm
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
19 SKS '104 TEST IF ASR BUSY
20 JMP *-1 JUMP BACK
21 OCP '104 ASR START
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