Arith.gcc

LCGs.gcc

LDC 8 ; now
LDC 3 ; A
LDC 5 ; B
LDC 13 ; M
LDF LCGs
AP 4
LDC 3 ; A
LDC 5 ; B
LDC 13 ; M
LDF LCGs
AP 4
LDC 3 ; A
LDC 5 ; B
LDC 13 ; M
LDF LCGs
AP 4
RTN
LCGs:
LD 0 0 ; load now from env
LD 0 1 ; load A from env
MUL
LD 0 2 ; load B from env
ADD
LD 0 3 ; load M from env
LDF mod
AP 2
RTN
mod:
LD 0 0 ; mod fucntion
LD 0 0
LD 0 1
DIV
LD 0 1
MUL
SUB
RTN
; 線形合同法 Linear congruential generators(LCGs）
;; next = LCGs(now, A, B, M){ return (A * now + B) mod M; }

mod.gcc

LDC 10 ; a
LDC 3 ; b
LDF 6 ; load mod 
AP 2 ; call mod(a, b)
DBUG
RTN
LD 0 0 ; mod fucntion
LD 0 0
LD 0 1
DIV
LD 0 1
MUL
SUB
RTN

mod の ラベル付きバーションはこちら

LDC 7 ; a = 7
LDC 5 ; b = 5
LDF mod
AP 2
DBUG
RTN
mod:
LD 0 0 ; mod fucntion
LD 0 0
LD 0 1
DIV
LD 0 1
MUL
SUB
RTN

これを レポジトリにある deref.cpp を使えばコンパイルできる

g++ deref.cpp -o deref
./deref < labeled.gcc > unlabeled.gcc

deref.cpp は現在のバージョンだと、先頭にコメントをつけると行数がずれる

よい seed, A, B, M の選び方
http://www7b.biglobe.ne.jp/~robe/cpphtml/html03/cpp03031.html