[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... LowerCase()
 * Purpose ....... To convert a string to all lower case
 * Parameters .... s          String to convert
 * Returns ....... <s> in all lower case leters
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... October 2, 1992
 *****************************************************************************}
FUNCTION LowerCase( s: STRING ): STRING; ASSEMBLER;
ASM
      PUSH   DS
      CLD
      LDS    SI, s
      XOR    AX, AX
      LODSB
      XCHG   AX, CX
      LES    DI, @Result
      MOV    BYTE PTR ES:[DI], CL
      JCXZ   @@3

@@1:  LODSB
      CMP    AL, 'A'
      JB     @@2
      CMP    AL, 'Z'
      JA     @@2
      OR     AL, $20

@@2:  STOSB
      LOOP   @@1

@@3:  POP    DS
END;

[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]