|
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: »stateloop2«
└─⟦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⟧
<* stateloop 2 *>
<* 3 begin symbols *>
trans:=get_trans_no(states,state);
if seriesindex<=parterm.pardes(5)-dl and computed then
begin
ser2:=(seriesindex+dl)*seriessize;
l2:=series.ser2(1);
stateindex2:=series.ser2(2);
stateno2:=series.ser2(3);
state2ul:=(stateno2-stateindex2+1)*statesize//2;
if keystat then write(out,"nl",3,<:state 2 uppper limit :>,state2ul);
begin
integer array states2(1:state2ul);
getstruct(bsname,states2,stateindex2,stateno2,statesize,chargesegdes(5));
for state2:=0 step 1 until stateno2-stateindex2 do
begin
if keystat then writestaterec(states2,state2);
getstate(states2,state2,n2,J2,0,nstar2,Ecm2,L2,app2);
if L2<0 then L2:=l2;
computed2:=get_computed(states2,state2,cutcase2,cut2);
▶EOF◀