|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2304 (0x900)
Types: TextFile
Names: »kebastx«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0f6e8048b⟧ »preditfile«
└─⟦this⟧
comment predit text * page 16 11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;
comment case 5, kebas;
______________________
comment programm: jørgen hjelme;
________________________________
begin
zone z(1, 1, stderror);
integer i, j, k, state;
array a(1:2);
integer array ia(1:17), action(0:3, -2:4, 0:3);
long array field name;
procedure error(a, b); value a, b; integer a, b;
write(out, <:<10>sorry monitor call :>, a, <: results :>, b);
for state:=0 step 1 until 3 do
begin
for i:= 1 step 1 until 3 do action(i, -2, state):=7;
for k:=-1 step 1 until 4 do action(0, k, state):=7;
for i:= 1 step 1 until 3 do
for k:=-1 step 1 until 4 do action(i, k, state):=6;
end;
action(3, 1, 1):=1;
action(3, 2, 1):=2;
action(2, 2, 1):=3;
action(2, 4, 2):=4;
action(2, 4, 3):=5;
\f
comment predit text * page 16 11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;
state:=1;
for j:=0, j+1 while state>0 do
begin
k:=system(4, j, a);
i:=(k extract 12)shift(-1); if i>3 then i:=3;
k:=k shift(-13);
comment testoutput :
write(out, <:<10>:>, << -z>, j, i, k, state, action(i, k, state));
case action(i, k, state) of begin
begin
i:=1;
open(z, 0, string a(increase(i)), 0);
close(z, true);
j:=1;
end;
state:=if long a(1)=long <:key:> then 3 else 1;
begin
ia(1):=a(1);
state:=2;
end;
begin
ia(2):=a(1);
k:=monitor(74, z, 0, ia);
if k>0 then error(74, k);
state:=1;
end;
begin
i:=a(1);
k:=monitor(50, z, i, ia);
if k>0 then error(50, k);
state:=1;
end;
state:=1;
state:=0;
end of case;
end of for;
k:=monitor(76, z, 0, ia);
name:=6;
if k=0 then write(out, nl, 2, ia.name, sp, 4,
<<z>, <:key<95>and<95>base :>, ia(1)extract 3, sp, 1,
ia(2), <:.:>, ia(3))else error(76, k);
end case 5, kebas;
▶EOF◀