home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / strings.swg / 0081_BASM Right Pad.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-03  |  359 b   |  20 lines
  1.  
  2. Procedure RightPas(Var S:String; MaxLen:Byte);
  3.  Begin
  4.  ASm
  5.        LES     BX, S;
  6.        ESSeg
  7.        Mov     AL, [ES:BX];
  8.       Xor      AH, AH;
  9.        Add     BX, AX;
  10. @@Loop:
  11.        Cmp     AL, MaxLen;
  12.        Jge     @@Done;
  13.        Mov     Word Ptr [ES:BX],' ';
  14.        Inc     BX;
  15.  
  16.        Inc     AL;
  17.        Jmp     @@Loop;
  18. @@Done:
  19. End;
  20.