07e105fdadac80e899b6d175748b8dbcdc31b6d5
[h316.git] / lpchar.asm
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