Return to RAND.s CVS log

Up to [Research Unix] / researchv10dc / cmd / pascal / libpc

Annotation of researchv10dc/cmd/pascal/libpc/RAND.s, revision 1.1.1.1

1.1       root        1: #
                      2: # Copyright (c) 1979 Regents of the University of California
                      3: #
                      4: # sccsid[] = "@(#)RAND.s 1.1 1/16/81";
                      5: #
                      6: # calculate (1103515245*seed) mod 2^31-1
                      7: #
                      8:        .globl  _RAND
                      9: _RAND:
                     10:        .word   0
                     11:        emul    4(ap),$1103515245,$0,r0 # a * seed into r1,r0 quadword
                     12:        ediv    $0x7fffffff,r0,r1,r0    # get quotient into r1, remainder in r0
                     13:        ret

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.