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     ! 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.