-- RandomCode.mesa  last edited by Sturgis: May 15, 1984 11:31:58 am PDT

DIRECTORY
IO USING[STREAM];
    

RandomCode: CEDAR DEFINITIONS =

BEGIN

GenerateRandomProgramBytes: PROCEDURE[
    initialByteAddress: INT,
    randomSeed: CARDINAL,
    seeOneByte: PROC[[0..255]],
    dribble: IO.STREAM];
    
    -- this procedure generates 2^16 different programs.
    -- randomSeed controls which program is to be generated
    -- the programs are assumed to be stored starting at virtual word address initialByteAddress/4
    -- initialByteAddress is assumed to be 0 MOD 4
    -- the program and data bytes are delivered one at a time to the caller via seeOneByte
    -- If dribble is non NIL, then a lot of informative text will be delivered to dribble, one byte at a time.
    -- it is assumed that after the programs have been placed in virtual memory, execution will continue at initialByteAddress


END.
MODULE HISTORY

Initial by: Sturgis,   May 15, 1984 11:32:21 am PDT