DataMuseum.dk

top - metrics - download

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

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

<*              ion loop             *>
<* 3 begin symbols*>
begin
integer chargestates;
boolean b,keystat,endchargestate;
array bsname(1:3),txt(1:10);

keystat:=lookupentry(<:keystat:>)=0;
endchargestate:=false;
initrydproc(1,1,1,1);
initrydseg;
initrydfile(name(1),real <:dat:>,1,true);
  for i:=1,2 do bsname(i):=segdes.dataname(i);
  getstruct(bsname,segdes,0,0,segdesrecsize,0);

if keystat then 
begin
write(out,"nl",1,<:chargestates :>,segdes(2),
  "nl",1,<:neutral :>,string atsym(segdes(1)));
end;

Z:=chargestates:=0;
for chargestates:=chargestates+1 while Z<=Zmax
  and -,endchargestate and chargestates<=segdes(2) do
begin
  curchargestate:=chargestates;
  getstruct(bsname,chargestate,2*chargestates-2,2*chargestates-2,chargesize,1);
  maxstates:=chargestate(6)+1;
  finestruct:=chargestate(12)=-1;
  initrydproc(chargestate(19),maxstates-1,chargestate(5),chargestate(4));
  if keystat then writechargerec(out);
  Z:=chargestate(1);
  S:=chargestate(2);
  atno:=chargestate(3);
  if Z>=Zmin and Z<=Zmax then
  begin
    integer array parterm(1:parentul);
    cleararray(parterm);
    getstruct(bsname,chargesegdes,2*chargestates-1,2*chargestates-1,chargerecsize,1);
    getstruct(bsname,parterm,0,chargestate(4),parentsize,chargesegdes(1));
▶EOF◀