|
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: »allstatel2«
└─⟦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⟧
<* allstateloop2 *>
<* 2 begin symbols*>
A:=osc:=Sl:=lambda:=0;
if -,computed then trans:=0;
for trans:=trans step -1 until 1 do
begin
dipi:=dipf:=tottrans*diprecsize;
sta:=dipval.dipi(1);
state2:=dipval.dipi(2);
getstate(states,state2,n2,J2,seriesindex2,nstar2,Ecm2,L2,app2);
ser2:=seriesindex2*seriessize;
l2:=series.ser2(1);
if L2<0 then L2:=l2;
computed2:=getcomputed(states,state2,cutcase2,cut2);
if computed2 and -,(sta=0 and state2=0) then
begin
if sta<>state then
begin
write(out,"nl",1,"*",2,<:wrong state index :>,sta,state,"nl",1);
writestate(out,L,n,l,J); write(out,"sp",2,<: to :>);
writestate(out,L2,n2,l2,J2);
end error in state;
tau2:=gettau(states,state2);
c:=dipval.dipf(3);
osc:=dipval.dipf(4);
A:=dipval.dipf(5);
lambda:=dipval.dipf(6);
b:=dipval.dipf(7);
▶EOF◀