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

    {*****************************************************************************
     * Function ...... Empty()
     * Purpose ....... To determine if a string is empty
     * Parameters .... s          String to check
     * Returns ....... TRUE if <s> is 0 bytes in length, or is filled with #0 or
     *                 spaces.
     * Notes ......... None
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    FUNCTION Empty( s: STRING ): BOOLEAN; ASSEMBLER;
    ASM
           CLD
           XOR   CH, CH
           LES   DI, s
           MOV   CL, BYTE PTR ES:[DI]
           JCXZ  @@1
           INC   DI
           MOV   AL, ' '
           REPE  SCASB
           JZ    @@1          { empty }
           MOV   AL, False
           JMP   @@2
    @@1:   MOV   AL, True
    @@2:
    END;

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