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