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

Function RandomInteger: Integer; Assembler;
asm
  mov ah,2ch
  int 21h     { Get a random seed from DOS's clock }
  imul 9821
  inc ax
  ror al,1
  rol ah,1    { Randomize the seed }
end;

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