Mercurial > hg > Members > kono > nitros9-code

comparison lib/alib/to_sp.a @ 2474:7d70b7e1cb21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 * Advance X to 1st space character
4
5 * OTHER MODULES NEEDED: none
6
7 * ENTRY: X=somewhere in a string
8
9 * EXIT: X=1st space character in string
10
11
12 nam Advance to space
13 ttl Assembler Library Module
14
15 psect TO_SP,0,0,0,0,0
16
17 TO_SP:
18 pshs b
19 spl
20 ldb ,x+
21 cmpb #$20 is it space?
22 bne spl no, loop
23 leax -1,x point to space
24 puls b,pc
25
26 endsect