|
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: 1536 (0x600)
Types: TextFile
Names: »resorttxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦e6c2bcfa6⟧ »cryprog«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦e6c2bcfa6⟧ »cryprog«
└─⟦this⟧
;al3 time.200 lines.7000
mode list.yes
lookup resorttxt
rydresort=set 180
scope day rydresort
lookup rydlist
if ok.yes
mode 15.yes
lkj=lookup statevar alutproc ryproc coreproc rydseg rydstruct,
allstatel ionloop ryglobal
if ok.no
contract from.crypr statevar alutproc ryproc coreproc rydseg rydstruct,
allstatel ionloop ryglobal
lkj=lookup statevar2 allstatel2
if ok.no
contract from.crypr statevar2 allstatel2
lkj=lookup nsresortpr
if ok.no
contract from.cryprog nsresortpr
rydresort=algol
rydresort
1981-01-29
begin
integer i,res;
integer array tail,ctail(1:10);
array output,name(1:3);
boolean resortkey,statesort;
algol list.off copy.rydstruct;
algol list.off copy.rydseg;
algol list.off copy.alutproc;
algol list.off copy.coreproc;
algol list.off copy.ryproc;
algol list.off copy.nsresortpr;
algol list.off copy.ryglobal;
if -,readinfp(name,1) then alarm(<:sequence missing:>);
readbfp(<:resortkey:>,resortkey,false);
readbfp(<:statesort:>,statesort,true);
algol list.off copy.ionloop;
begin
nsresort(bsname,parterm);
end;
end end end ionloop;
end;
mode 10.no list.no
▶EOF◀