DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦14d81d029⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »retmtpool«

Derivation

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »retmtpool«

TextFile

begin
zone mtrecord(128,1,stderror);
integer i,j;
integer mtrsize;
integer field mttotal;
mttotal:=14;
mtrsize:=16;
open(mtrecord,4,<:mtpool:>,0);
swoprec6(mtrecord,2);
for i:= 1 step 1 until 46 do
begin
swoprec6(mtrecord,mtrsize);
write(out,<:<10>i=:>,i);
setposition(out,0,0);
read(in,j);
if j = 1 then mtrecord.mttotal:=mtrecord.mttotal +1 shift 10
else if mtrecord.mttotal > 100 then
 mtrecord.mttotal:=mtrecord.mttotal - 1 shift 10;

end;
close(mtrecord,true);
end;
▶EOF◀