DataMuseum.dk

top - metrics - download

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

└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
    └─⟦f546e193b⟧ 
        └─⟦this⟧ »tmemtest    « 

TextFile

clear user omemtest
omemtest = set 400 disc1
scope user omemtest

lmemtest = set 300 disc1

o lmemtest
head iso
( omemtest=algol list.yes blocks.yes connect.no ix.no

  if ok.yes
  if warning.yes
  ( o c
    message kikset
    visfejl lmemtest
    finis
  )
  o c
  message ok
  scope user omemtest

  end
)
begin
  zone z (xmaxbuflgd (1, 10000) // 4, 1, stderror);
  long array field laf;
  integer idx, maxidx, startadr, fejl;
  integer array ia (1 : 20);

  trap (trapped);
  laf := 0;
  fejl := 0;
  getzone6 (z, ia);
  startadr := ia (14) + 1;
  maxidx := ia (20);

  write (out, "nl", 1, <<d>,
    <:memtest, startadr.:>, startadr, <: memsize.:>, maxidx * 4, "nl", 1);
  setposition (out, 0, 0);

  for idx := maxidx step - 1 until 1 do z.laf (idx) := idx;

  repeat
    for idx := maxidx step - 1 until 1 do
    if z.laf (idx) <> idx then
    begin <* fejl *>
      write (out, "nl", 1, <<zddddd>, <:kl::>, xkl, <:: :>,
        <<d>, <:fejl i adr.:>, startadr + idx * 4 - 4,
        <: fundet.:>, z.laf (idx), <: forventet.:>, idx, "nl", 1);
      setposition (out, 0, 0);

      z.laf (idx) := idx;
      fejl := fejl + 1;
    end fejl;

    outchar (out, '.');
    setposition (out, 0, 0);
  until false;

trapped:
  write (out, "nl", 1, <:antal fejl:>, fejl);
end
▶EOF◀