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

⟦d5f520001⟧ TextFile

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

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦545a06c52⟧ »tcodeproc« 
            └─⟦this⟧

TextFile

mode list.yes listing.yes
kk=set 50
kk=algol
begin
integer i,j,k;
integer array im(1:4),tail(1:17);
array m(1:2);
integer array field fi;
array field fa;
fi:=0;
fa:=0;
movestring(m,1,<:kktestkk:>);
i:=firstaddr(m); j:=firstaddr(im);
write(out,false add 10,1,i,j);
for k:=1 step 1 until 4 do im(k):=m.fi(k);
for k:=1 step 1 until 4 do
  write(out,false add 10,1,wordload(i+2*k-2),wordload(j+2*k-2));
write(out,lookupentry(m));
write(out,lookupentry(im.fa));
write(out,lookupentry(m.fi));
write(out,lookupentry(i-2));
write(out,lookuptail(m,tail),<:-:>,tail(1));
write(out,headandtail(m,tail),<:-:>,tail(8));
write(out,removeentry(im));
end
kktestkk=set 1
kk
lookup kktestkk
mode list.no listing.no
▶EOF◀