| strtolower public | |
| link a6,#0 ;Set up stack frame | |
| movea 8(a6),a0 ;A0 = src, from stack | |
| movea 12(a6),a1 ;A1 = dst, from stack | |
| loop move.b (a0)+,d0 ;Load D0 from (src) | |
| cmpi #'A',d0 ;If D0 < 'A', | |
| blo copy ;skip | |
| cmpi #'Z',d0 ;If D0 > 'Z', | |
| bhi copy ;skip | |
| addi #'a'-'A',d0 ;D0 = lowercase(D0) | |
| copy move.b d0,(a1)+ ;Store D0 to (dst) | |
| bne loop ;Repeat while D0 <> NUL | |
| unlk a6 ;Restore stack frame | |
| rts ;Return | |
| end |