.title rand .enabl lc .ident /01/ .psect .prog. ; ; Random number generator. ; Returns a 16-bit random item in r0. ; ; Caveat: use's eis. ; I must look at this more carefully to see ; if the 2 word result is needed! ; ; seed(n) sets the random seed to (grave)n', after ; making it positive and odd. ; oldran: .word 13507 seed:: mov 2(sp),r0 bic #100000,r0 bis #1,r0 mov r0,oldran return rand:: mov oldran, r0 mul #403, r0 mov r1,oldran bic #100000, oldran ashc #8., r0 return .end