* Generate a pseudo-random number: int rand(limit)
rand    LDD     RANDSEED        Get current seed
        STD     ?parm           Save for RL call
        LDD     #13709          First calculation
        JSR     ?mul            Perform it
        ADDD    #13849          Add second
        STD     RANDSEED        Resave seed
        STD     ?parm           Set new parm
        TSX                     Address stack
        LDD     2,X             Get limit
        JMP     ?mod            And perform it
$DD:RANDSEED 2