07ca30e9adb9d8b28cd94ba8d516799a875e31b8
[h316.git] / uc.asm
1 * UPPER CHAR
2 * UC(INTEGER) RETURN THE ARGUMENT'S FIRST 8 BIT IN LOWER 8 BIT
3 *
4 * USAGE:
5 * JST UC
6 * DAC ARG1
7 *
8 * RESULT WILL BE IN A-REG
9 *
10 *
11 *******
12 SUBR UCHAR,UC
13 SUBR UC
14 *
15 REL
16 UC DAC **
17 LDA* UC
18 IRS UC RETURN ADDRESS
19 ICL
20 JMP* UC
21 *******
22 END