Trailing-Edge
-
PDP-10 Archives
-
decus_20tap5_198111
-
decus/20-0150/tstau1.sim
There is 1 other file named tstau1.sim in the archive. Click here to see a list.
00100 BEGIN
00200 ! SIMULA PROGRAM TESTAUS;
00300 ! TO VALIDATE TAUS.MAC WITH SIMULA MAIN PROGRAM ;
00400 EXTERNAL PROCEDURE outoct, rlint,taus;
00500 INTEGER ARRAY a[0:6];
00600 INTEGER i,j,k,randnum; REAL rx;
00700 Outtext("NUMBER OF ITERATIONS : " );Breakoutimage; k:=Inint;
00800 Outimage;Outimage;
00900 FOR i:=0 STEP 1 UNTIL 6 DO
01000 a[i] := 0;a[6]:=1;
01100 FOR i:=0 STEP 1 UNTIL 6 DO BEGIN
01200 Outtext(" A(");Outint(i,1);Outtext(") ");
01300 END; Outtext(" RX "); Outimage; Outimage;
01400 FOR i:=0 STEP 1 UNTIL 6 DO
01500 outoct(a[i],13); Outimage;
01600 FOR j:=1 STEP 1 UNTIL k DO BEGIN
01700 taus(a,rx); rlint(rx,randnum);
01800 FOR i:=0 STEP 1 UNTIL 6 DO
01900 outoct (a[i],13);
02000 outoct(randnum,13);Outimage;
02100 END;
02200 END TSTAU