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

    {
    KELD R. HANSEN
    }

    PROCEDURE TidyString(VAR Str : String); ASSEMBLER;
    ASM
      LES     DI,STR
      XOR     BH,BH
      MOV     BL,ES:[DI]
      LEA     DI,[DI+BX+1]
      MOV     SI,WORD PTR STR-2
      NEG     BX
      LEA     CX,[SI+BX]
      XOR     AL,AL
      CLD
      REP     STOSB
    END;

    {
    which fills up the garbage after the current string length with zeroes.
    }

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