projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Fixed dependencies in Makefile
[h316.git]
/
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
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