Commit | Line | Data |
---|---|---|
c08e22bb | 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 | ******* | |
c3e0f81a | 12 | SUBR UCHAR,UC |
13 | SUBR UC | |
14 | * | |
c08e22bb | 15 | REL |
c08e22bb | 16 | UC DAC ** |
17 | LDA* UC | |
18 | IRS UC RETURN ADDRESS | |
19 | ICL | |
20 | JMP* UC | |
21 | ******* | |
22 | END |