home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / math / ultra101 / ult32dat.inc < prev    next >
Encoding:
Text File  |  1992-03-26  |  1.6 KB  |  29 lines
  1.   ; This set of constants is initialized to what their values would be
  2.   ; if the command RINIT(1234567,7654321) were used. This way, forgetting
  3.   ; to call RINIT poses no problems.
  4.   ;
  5.   N equ 37          ; The number of 32 bit words in the table
  6.  
  7.   swbx dd N dup (?)       ; The values of (x) xor'ed with a congruential
  8.   swbneg equ this word    ; The end of swbx. We generally use swbneg[bx]
  9.               ; with bx containing negative offsets. When bx
  10.               ; becomes positive, we are out of bounds.
  11.   x dd 2514488732,  431628406, 1236830750, 4003720720,  823319423,   94684520
  12.     dd 1527338240,  679520694, 2422692153, 3355680443,  728196457,  701184857
  13.     dd 1109123469, 3203485719, 1941719477, 2470545560, 1105091547, 2688956238
  14.     dd 3621637922, 1273782189, 4288988815,  764409422, 2813964156, 2010860282
  15.     dd  683656203, 3648603015,   73133971, 3968408432, 3402270263, 3808241722
  16.     dd 2695095159, 2490074496, 1477949423, 3995273805,  760366478, 2466020322
  17.     dd 2727416986         ; seed array for the SWB generator.
  18.  
  19.   swbn   dw 0             ; Number of fresh bytes remaining in swbx.
  20.   bits   db ?             ; Eight bits to be fed out one at a time by i1bit.
  21.   nbits  db 0             ; Number of fresh bits remaining in bits.
  22.   flags  db 0             ; The state of the carry flag for the SWB generator.
  23.      db 0             ; just to word align the remaining data.
  24.   congx  dd 02C6CE807h    ; seed for x = 69069*x mod 2^32 congruential generator
  25.  
  26.   seven   dw 7            ; The 8087 can't load immediate values.
  27.   scale31 dw  -31         ; these are some values we need to scale integers
  28.   scale63 dw  -63         ; into floating point numbers.
  29.