home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / powerd / lib / PowerD / RndQ.ass < prev    next >
Encoding:
Text File  |  1999-09-29  |  121 b   |  10 lines
  1. ; (4,a7) - seed
  2.  
  3.     xdef    _RndQ
  4.  
  5. _RndQ    move.l    (4,a7),d0
  6.     add.l    d0,d0
  7.     bgt.s    .finish
  8.     eori.l    #$1d872b41,d0
  9. .finish    rts      
  10.