;* * * * *  Small-C/Plus Z88 * * * * *
;  Version: v1.10b0.46 Date: 1/3/99 
;
;       Reconstructed for the z80 Module Assembler
;       By Dominic Morris <djm@jb.man.ac.uk>

;       Small C+ Library Function
;
;       Mildly hand optimized by djm 1/3/99

        XLIB    strlwr

        INCLUDE "#z88_crt0.hdr"
        LIB     tolower

.strlwr
        push    bc
        ld      hl,4
        add     hl,sp
        call    l_gint
        pop     bc
        push    hl
.i_3
;Get top int off stack optimized
        pop     hl
        push    hl
        push    hl
;Fetch second into off stack optimized
        pop     bc
        pop     hl
        push    hl
        push    bc
        ld      l,(hl)
        ld      h,0
        push    hl
        call    tolower
        pop     bc
        pop     de
        ld      a,l
        ld      (de),a
        and     a
        jp      z,i_4
;        ld      a,h
;        or      l
;        jp      z,i_4
;Increment int at top of stack optimised (from ++)
        pop     hl
        inc     hl
        push    hl
; Removed surplus dec hl
;        dec     hl
        jp      i_3
.i_4
        ld      hl,4
        add     hl,sp
        call    l_gint
        pop     bc
        ret




; --- Start of Static Variables ---


; --- End of Compilation ---