Mercurial > hg > Members > kono > nitros9-code
annotate lib/alib/to_non_sp.a @ 2765:0bd16cca86b7
Updated rules.mak for all the os9 format's to format the entire disk. People were having some issues with the disk images not being formatted to their full capacity and preventing some functions from working.
author | drencor-xeen |
---|---|
date | Thu, 17 Jan 2013 11:03:26 -0600 |
parents | 7d70b7e1cb21 |
children | aaba193af04f |
rev | line source |
---|---|
2474 | 1 ********************************** |
2 | |
3 * Advance X to 1st non-space character | |
4 | |
5 * OTHER MODULES NEEDED: none | |
6 | |
7 * ENTRY: X=somewhere in a string | |
8 | |
9 * EXIT: X=1st non-space character in string | |
10 * B=char at X | |
11 | |
12 | |
13 nam Advance to non-space | |
14 ttl Assembler Library Module | |
15 | |
16 psect TO_NON_SP,0,0,0,0,0 | |
17 | |
18 TO_NON_SP: | |
19 ldb ,x+ | |
20 cmpb #$20 is it space? | |
21 beq TO_NON_SP yes, loop | |
22 leax -1,x point to non-space | |
23 rts | |
24 | |
25 endsect |