-----------------------------Name=PRIMES Parentname= Shared declarations report:Declared B:i[65535..0] Type=VALUE Declared B:j[65535..0] Type=VALUE Declared B:k[65535..0] Type=VALUE Declared B:PA[15..0][1000] Type=VALUE Array length=1000 Declarations report end. Local declarations report:Local declarations report end. report PRIMES analyse 0:call(printf, "Primes test %i starting "tnow[1073741823..0] ) 1:i[65535..0] := 0; 2:_LL102:3:beq( i[65535..0]<50,_LL101, 8) 4:Xwait(true) 5:PA[15..0][1000][i[65535..0]] := 1; 6:i[65535..0] := i[65535..0]+1; 7:Xgoto(_LL102, 2); 8:_LL101:9:j[65535..0] := 2; 10:Xwait(true) 11:call(printf, "Primes test: cleared array at tnow=%i "tnow[1073741823..0] ) 12:_LL104:13:beq( j[65535..0]<50,_LL103, 25) 14:i[65535..0] := j[65535..0]+j[65535..0]; 15:Xwait(true) 16:_LL106:17:beq( i[65535..0]<50,_LL105, 22) 18:PA[15..0][1000][i[65535..0]] := 0; 19:i[65535..0] := i[65535..0]+j[65535..0]; 20:Xwait(true) 21:Xgoto(_LL106, 16); 22:_LL105:23:j[65535..0] := j[65535..0]+1; 24:Xgoto(_LL104, 12); 25:_LL103:26:call(printf, "The primes are:" ) 27:Xwait(true) 28:i[65535..0] := 1; 29:_LL108:30:beq( i[65535..0]<50,_LL107, 37) 31:beq( PA[15..0][1000][i[65535..0]],_LL109, 33) 32:call(printf, "%i "i[65535..0] ) 33:_LL109:34:Xwait(true) 35:i[65535..0] := i[65535..0]+1; 36:Xgoto(_LL108, 29); 37:_LL107:38:Xwait(true) 39:call(printf, " " ) 40:call(printf, "Primes test: complete at tnow=%i. "tnow[1073741823..0] ) 41:call(sysexit, 0 ) PRIMES report end.