Mercurial > hg > Members > kono > nitros9-code
comparison lib/alib/is_lower.a @ 2474:7d70b7e1cb21
Moved net and alib files into here
| author | boisy |
|---|---|
| date | Tue, 30 Mar 2010 02:44:42 +0000 |
| parents | |
| children | aaba193af04f |
comparison
equal
deleted
inserted
replaced
| 2473:dac1ff96637f | 2474:7d70b7e1cb21 |
|---|---|
| 1 ***************************************** | |
| 2 | |
| 3 * See if character in "B" is a lowercase letter | |
| 4 | |
| 5 * OTHER MODULES NEEDED: none | |
| 6 | |
| 7 * ENTRY: B=character to test | |
| 8 | |
| 9 * EXIT: CC zero=1 if lowercase, 0 if not | |
| 10 | |
| 11 nam Is Char. Lowercase? | |
| 12 ttl Assembler Library Module | |
| 13 | |
| 14 | |
| 15 psect IS_LOWER,0,0,0,0,0 | |
| 16 | |
| 17 | |
| 18 IS_LOWER: | |
| 19 cmpb #'a | |
| 20 blo no not lowercase, zero cleared | |
| 21 cmpb #'z if equal, zero set | |
| 22 bhi no not lowc, zero cleared | |
| 23 orcc #%00000100 set zero | |
| 24 | |
| 25 no | |
| 26 rts | |
| 27 | |
| 28 endsect | |
| 29 |