Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/is_upper.a @ 2664:09feb97c181f lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial changes to use lwasm instead of mamou Initial high level changes to use lwasm instead of mamou.
author William Astle <lost@l-w.ca>
date Sun, 10 Jun 2012 12:40:11 -0600
parents 7d70b7e1cb21
children aaba193af04f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
1 *****************************************
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
3 * See if character in "B" is a uppercase letter
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5 * OTHER MODULES NEEDED: none
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7 * ENTRY: B=character to test
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9 * EXIT: CC zero=1 if uppercase, 0 if not
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11 nam Is Char Uppercase?
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15 psect IS_UPPER,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 IS_UPPER:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19 cmpb #'A
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 blo no not uppercase, zero cleared
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 cmpb #'Z if equal, zero set
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22 bhi no not upperc, zero cleared
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 orcc #%00000100 set zero
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 no
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 rts
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29