projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a2704dd779647d24ee4bafab23f76e5c1cff4acd
[h316.git]
/
lib
/
fortran
/
src
/
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
REL
13
SUBR UC
14
UC DAC **
15
LDA* UC
16
IRS UC RETURN ADDRESS
17
ICL
18
JMP* UC
19
*******
20
END