Mercurial > hg > Members > kono > nitros9-code

comparison lib/alib/to_upprs.a @ 2782:aaba193af04f lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated code to use lwasm/lwlink
author Boisy Pitre <boisy.pitre@nuance.com>
date Sat, 26 Jan 2013 08:26:31 -0600
parents 7d70b7e1cb21
children
comparison
equal deleted inserted replaced
2779:3c95627d0ca9 2782:aaba193af04f
11 11
12 nam Convert String to Uppercase 12 nam Convert String to Uppercase
13 ttl Assembler Library Module 13 ttl Assembler Library Module
14 14
15 15
16 psect TO_UPPRS,0,0,0,0,0 16 section .text
17 17
18 TO_UPPRS: 18 TO_UPPRS:
19 pshs cc,b,x 19 pshs cc,b,x
20 20
21 loop 21 loop
22 ldb ,x get char to check 22 ldb ,x get char to check
23 beq exit exit if all done 23 beq exit exit if all done
24 bsr TO_UPPER convert to upper 24 lbsr TO_UPPER convert to upper
25 stb ,x+ put back in string 25 stb ,x+ put back in string
26 bra loop 26 bra loop
27 27
28 exit 28 exit
29 puls cc,b,x,pc 29 puls cc,b,x,pc