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

⟦e8d02bf6c⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »ramkatrx«

Derivation

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

TextFile

clear user ramkatr
ramkatr=set 1 disc5
scope user ramkatr
ramkatr=algol
\f


RAMAN KATALOG                                                     KATR

external procedure ramkatr(nr);
integer nr;

begin
integer j,m; real time,r; integer array t(1:10);
long array BS(1:2); array head(1:12);
zone ZBS(128,1,stderror);

ramng(nr,BS,1);
lookuptail(BS,t);
open(ZBS,4,BS,0);


setposition(ZBS,0,0);
inrec(ZBS,128);
write(out,"nl",1,<:dato   power sp hast pol  <head>:>);
write(out,"nl",1,<<dddddd>,ZBS(17),<<  ddd>,ZBS(13),<<  d>,ZBS(14),
<<  ddd>,ZBS(15),if ZBS(16)<0 then <:   d:> else <:   p:>);
for j:=1 step 1 until 12 do head(j):=ZBS(j);
write(out,false add 32,3,<:<60>:>,string inc(head),<:<62>:>);
write(out,<< dddd>,ZBS(18),ZBS(19),ZBS(20),ZBS(21),ZBS(22),"nl",1);
setposition(ZBS,0,0); swoprec(ZBS,128);
setposition(out,0,0);
read(in,ZBS(17),ZBS(13),ZBS(14),ZBS(15));
Z: if readchar(in,m) <> 6 then goto Z;
if m=112 then ZBS(16):=1 else ZBS(16):=-1;
readhead(in,head,1); for j:=1 step 1 until 12 do ZBS(j):=head(j);
read(in,ZBS(18),ZBS(19),ZBS(20),ZBS(21),ZBS(22));close(ZBS,true);
end; end
\f


▶EOF◀