home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / DNTPAPER / DNT_04.MSA / ARCHIVES.DNT / SOURCES.ZIP / RANDOM / RND_TEST.S < prev   
Text File  |  1992-12-07  |  579b  |  20 lines
  1. ; Un exemple d'utilisation du Random. On demande d'abord un random
  2. ; optimisé (a=1, cf article dans le DNT-Paper 4) avec __RND_TYPE equ 0
  3. ; puis on initialise la routine (InitRandom). Il ne reste plus qu'à
  4. ; appeler quand on le veut la routine Random !.
  5. ;
  6. ; (C)oderight Nullos/DNT-Crew 1992.
  7. ;
  8. __RND_TYPE    equ    0
  9.     move.l    #0,d0        ;Initialisation automatique
  10.     bsr    InitRandom        ;(essayez une autre valeur!)
  11.     ;...       votre programme    ...;
  12.     bsr    Random        ;
  13.     ;...       votre programme    ...;
  14.  
  15.  
  16.     clr.w    (sp)
  17.     trap    #1
  18.     
  19.     include    random.s        ;inclure le fichier RANDOM.S
  20.