DataMuseum.dk

top - metrics - download

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

└─⟦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⟧ 

TextFile

<*          stateloop        *>
<* 4 begin symbols *>
  keystat:=lookupentry(<:statestat:>)=0;
  for cores:=0 step 1 until chargestate(4) do
  begin
  integer array series(1:seriesul);
  if keystat then writeparentrec(parterm,cores);
  pardes:=cores*parentsize;
  parentterm:=parterm.pardes(1)>0;
  S:=parterm.pardes(6);
  Ip:=getIp(cores,parterm);
  if survey then begin
  write(out,"nl",1);
  writeatsym(out,S,atno,Z);
  write(out,"sp",2);
  writecore(out,cores,parterm);
  write(out,<<  dd ddd ddd.dd>,Ip,"nl",1);
  end;
  getstruct(bsname,series,0,chargestate(5),seriessize,chargesegdes(3));
  if keystat then write(out,"nl",1,<:state upperlimit :>,stateul,
    "nl",1,<:statesize :>,statesize,
    "nl",1,<:number of states :>,chargestate(6)+1);
  for seriesindex:=parterm.pardes(4) step 1 until parterm.pardes(5) do
  begin
    ser:=seriesindex*seriessize;
    if keystat then writeseriesrec(series,seriesindex);
    stateindex:=series.ser(2);
    stateno:=series.ser(3);
    l:=series.ser(1);
    initrydproc(chargestate(19),stateno-stateindex,chargestate(5),chargestate(4));
    if stateul>0 and l>=lmin and l<=lmax then
    begin
    integer array states(1:stateul);
    getstruct(bsname,states,stateindex,stateno,statesize,chargesegdes(5));
    if keystat then write(out,"nl",3,<:state upper limit :>,stateul);
    for state:=0 step 1 until stateno-stateindex do
    begin
      if keystat then writestaterec(states,state);
      getstate(states,state,n,J,0,nstar,Ecm,L,app);
      if L<0 then L:=l;
▶EOF◀