1
2; ===============================================================
3; Dec 2013
4; ===============================================================
5;
6; char *strlwr(char *s)
7;
8; Change letters in string s to lowercase.
9;
10; ===============================================================
11
12SECTION code_clib
13SECTION code_string
14
15PUBLIC asm_strlwr
16
17EXTERN asm_tolower
18
19asm_strlwr:
20
21   ; enter: hl = char *s
22   ;
23   ; exit : hl = char *s
24   ;
25   ; uses : af
26
27   push hl
28
29loop:
30
31   ld a,(hl)
32   or a
33   jr z, exit
34
35   call asm_tolower
36   ld (hl),a
37
38   inc hl
39   jr loop
40
41exit:
42
43   pop hl
44   ret
45