|
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: »allstatel«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦7b6e66aaa⟧ »crypr«
└─⟦this⟧
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦84e44a383⟧ »crypr«
└─⟦this⟧
<* allstateloop *>
<* 2 begin symbols *>
Z:=chargestate(1);
atno:=chargestate(3);
initrydproc(chargestate(19),chargestate(6),chargestate(5),chargestate(4));
begin
integer array series(1:seriesul),states(1:stateul);
getstruct(bsname,series,0,chargestate(5),seriessize,chargesegdes(3));
getstruct(bsname,states,0,chargestate(6),statesize,chargesegdes(5));
if keystat then write(out,"nl",1,<:state upperlimit :>,stateul,
"nl",1,<:statesize :>,statesize,
"nl",1,<:number of states :>,chargestate(6)+1);
stateindex:=0;
stateno:=chargestate(6);
tottrans:=0;
for state:=0 step 1 until stateno do
begin
getstate(states,state,n,J,seriesindex,nstar,Ecm,L,app);
ser:=seriesindex*seriessize;
l:=series.ser(1);
if L<0 then L:=l;
cores:=series.ser(4);
pardes:=parentsize*cores;
S:=parterm.pardes(6);
Ip:=getIp(cores,parterm);
computed:=getcomputed(states,state,cutcase,cut);
tau:=gettau(states,state);
trans:=gettransno(states,state);
▶EOF◀