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

    Procedure RightPas(Var S:String; MaxLen:Byte);
     Begin
     ASm
           LES     BX, S;
           ESSeg
           Mov     AL, [ES:BX];
          Xor      AH, AH;
           Add     BX, AX;
    @@Loop:
           Cmp     AL, MaxLen;
           Jge     @@Done;
           Mov     Word Ptr [ES:BX],' ';
           Inc     BX;

           Inc     AL;
           Jmp     @@Loop;
    @@Done:
    End;

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