mirror of
https://github.com/PDP-10/PCC20.git
synced 2026-01-13 15:17:51 +00:00
32 lines
449 B
Plaintext
32 lines
449 B
Plaintext
;
|
|
; RANDOM - RANDOM NUMBER GENERATOR (STOLEN FROM MUDDLE)
|
|
;
|
|
; This file is PDP-10 dependent, system-independent.
|
|
;
|
|
|
|
TITLE RANDOM
|
|
.INSRT NC
|
|
.INSRT NM
|
|
|
|
CENTRY SRAND,[SEED]
|
|
MOVE A,SEED
|
|
ROT A,-1
|
|
MOVEM A,RLOW
|
|
RETURN
|
|
|
|
CENTRY RAND
|
|
MOVE A,RHI
|
|
MOVE B,RLOW
|
|
MOVEM A,RLOW ;Update Low seed
|
|
LSHC A,-1 ;Shift both right one bit
|
|
XORB B,RHI ;Generate output and update High seed
|
|
MOVE A,B
|
|
RETURN
|
|
|
|
.IDATA
|
|
RHI: 267762113337
|
|
RLOW: 155256071112
|
|
.PDATA
|
|
|
|
END
|