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

{
For this sort program, I needed a routine to convert a byte value into a
string with leading zeros. So I made one in BASM: Byte2lzStr. If you want,
include this routine in SWAG.
}

var s: string;
    tel, n : byte;

procedure Byte2lzStr( n, width: byte; var str: string ); assembler;
  { Byte to string with leading zeros }
asm
        std                 { string operations backwards }
        mov   al, [n]       { numeric value to convert    }
        mov   cl, [width]   { width of str                }
        xor   ch, ch        { clear ch                    }
        les   di, str       { adress of str               }
        mov   [di], cl      { length of str               }
        add   di, cx        { start with last char str    }
@start: jcxz  @exit         { done?                       }
        aam                 { divide al by 10             }
        add   al, 30h       { convert remainder to char   }
        stosb               { store digit                 }
        xchg  al, ah        { swap remainder and quotient }
        dec   cl            { count down                  }
        jmp   @start        { next digit                  }
@exit:
end  { Byte2lzStr };

begin
  randomize;
  for tel := 1 to 24 do
  begin
    n := random( 256 );
    Byte2lzStr( n, 5, s );
    writeln( tel:2,':  ', n:3,'  ', s,'  [',length(s),']' );
  end;
end.

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