home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / math / ultra101 / ult32_c.asm < prev    next >
Encoding:
Assembly Source File  |  1992-03-26  |  2.5 KB  |  114 lines
  1. ; Program:      ULTRA.ASM (80386 Turbo C version)
  2. ; 
  3. ; Description:  The greatest random number generator that ever was
  4. ;               or ever will be.  Way beyond Super-Duper.
  5. ;               (Just kidding, but we think its a good one.)
  6. ; Authors:      Arif Zaman (arif@stat.fsu.edu) and
  7. ;               George Marsaglia (geo@stat.fsu.edu).
  8. ; Date:         18 March 1992
  9. ; Version:      1.01
  10. ; Copyright:    To obtain permission to incorporate this program into
  11. ;               any commercial product, please contact the authors at
  12. ;               the e-mail address given above or at
  13. ;
  14. ;               Department of Statistics and
  15. ;               Supercomputer Computations Research Institute
  16. ;               Florida State University
  17. ;               Tallahassee, FL 32306.
  18. ;
  19. ; See Also:    The file ULTRA.DOC contains detailed comments
  20. ;
  21. ; Compilation:  The variable mem must be set to the memory model to compile:
  22. ;        Eg:    TASM /dm=medium ult32_c.asm
  23. ;        will compile this program using the medium memory model.
  24. ;
  25. DOSSEG
  26. .MODEL m,c
  27.  
  28. ;===== B: GLOBAL FUNCTIONS, SUBROUTINES and VARIABLES =================
  29. ;
  30.     public  i31bit, i15bit, i7bit,  i1bit,  uni,    duni,
  31.     public  i32bit, i16bit, i8bit,  rinit,  vni,    dvni
  32.     public  swbfill,swbx,   swbn
  33.  
  34. ;===== D. MACRO DEFINITIONS ===========================================
  35. ;
  36. ; RinitProcStart should take two 32-bit arguments conx and shrx
  37. ;   and place them in eax and ebx.
  38. ;   es and ds should both point to the data segment.
  39. ;   conx must be odd (so we or with 1 just to make sure).
  40. ; FillProc
  41. ;   DS is already the data segment. ES should also be made the same.
  42.  
  43. EnterProcedure   macro
  44.     if @DataSize eq 2
  45.       mov  dx,seg x
  46.       push ds
  47.       mov  ds,dx
  48.     endif
  49. endm
  50.  
  51. ExitProcedure    macro
  52.     if @DataSize eq 2
  53.       pop ds
  54.     endif
  55.     ret
  56. endm
  57.  
  58. RinitProcStart   macro
  59.   rinit   proc conx:dword, shrx:dword
  60.   EnterProcedure
  61.     push si
  62.     push di
  63.     mov ax,ds
  64.     mov es,ax
  65.     mov eax,conx
  66.     or  al,1
  67.     mov ebx,shrx
  68. endm
  69.  
  70. RinitProcEnd     macro
  71.     pop di
  72.     pop si
  73.     ExitProcedure
  74.   rinit endp
  75. endm
  76.  
  77. FillProcStart    macro
  78.   fillswb proc near
  79.     mov ax,ds
  80.     mov es,ax
  81.     push si
  82.     push di
  83. endm
  84.  
  85. FillProcEnd      macro
  86.     pop di
  87.     pop si
  88.     ret
  89.   fillswb endp
  90. endm
  91.  
  92. DwordFn macro
  93. endm
  94.  
  95. WordFn  macro
  96. endm
  97.  
  98. ByteFn  macro
  99. endm
  100.  
  101. RealFn  macro
  102. endm
  103.  
  104. DoubleFn macro
  105. endm
  106.  
  107. .DATA
  108.   INCLUDE ULT32DAT.INC
  109.  
  110. .STACK 10h
  111.  
  112. .CODE
  113.   INCLUDE ULT32COD.INC
  114. END