home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / strings.swg / 0060_Pad STRING to the LEFT.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  1.1 KB  |  43 lines
  1. {*****************************************************************************
  2.  * Function ...... PadL()
  3.  * Purpose ....... To pad the left side of a string with a character
  4.  * Parameters .... s      String to pad
  5.  *                 c      Character to pad with
  6.  *                 n      New length for <s>
  7.  * Returns ....... <s> padded with character <c> with length <n>
  8.  * Notes ......... None
  9.  * Author ........ Martin Richardson
  10.  * Date .......... October 2, 1992
  11.  *****************************************************************************}
  12. FUNCTION PADL( s: STRING; n: BYTE; c: CHAR ): STRING; ASSEMBLER;
  13. ASM
  14.       PUSH   DS
  15.       CLD
  16.  
  17.       LES    DI, @Result
  18.       INC    DI
  19.       LDS    SI, s
  20.       XOR    AX, AX
  21.       LODSB
  22.       PUSH   AX
  23.  
  24.       XOR    CX, CX
  25.       MOV    CL, n
  26.       SUB    CL, AL
  27.  
  28.       CMP    CX, 0
  29.       JNB    @@1
  30.       XOR    CX, CX
  31.  
  32. @@1:  MOV    AL, c
  33.       REP    STOSB
  34.  
  35.       POP    CX
  36.       REP    MOVSB
  37.  
  38.       MOV    DI, WORD PTR @Result
  39.       MOV    AL, n
  40.       MOV    BYTE PTR ES:[DI], AL
  41.       POP    DS
  42. END;
  43.