DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦0bab63eab⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »YFS06«

Derivation

└─⟦45bd0f8dd⟧ Bits:30000464 DOMUS disk image
    └─⟦this⟧ »/YFS06« 
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
    └─⟦this⟧ »/YFS06« 
└─⟦a2e222af0⟧ Bits:30001626 DOMUS disk image
    └─⟦this⟧ »/YFS06«

TextFile


.TITL RANDM
.RDX 8
.NREL

;PROCEDURE RANDOM(VAR I:INTEGER);
;CODEBODY RANDM;
;
;XN+1 := (XN*512+XN)*4+XN+8'33031;


A1:	JSR@	MZSTART+2	; TAKEADDRESS
	MOV	1,3		;
	LDA	0,0,3		; TAKEVALUE XN
	LDA	2,M10		;
	MOVZL	0,1		;
	MOVZL	1,1		;
	INC	2,2 SZR		;
	JMP	.-2		;
	ADD	0,1		; XN:=XN*512+XN;
	MOVZL	1,1		;
	MOVZL	1,1		;
	ADD	1,0		; XN:=XN*4+XN;
	LDA	1,RCONST	;
	ADD	1,0		; XN:=XN+8'33031;
	MOVS	0,0		;
	STA	0,0,3		; STOREVALUE XN+1
	LDA	2,CUR		;
	JMP@	MZSTART+1	;

RCONST:	33031			;
M10:	-10			;

.END A1
«ff»
«nul»