DataMuseum.dk

top - metrics - download

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

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

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, progsize * 512) // 4, 1, stderror);
  integer field inf;
  integer idx, maxadr, startadr, fejl;
  integer array ia (1 : 20);

  trap (trapped);
  lock (0, progsize - 1);
  fejl := 0;
  getzone6 (z, ia);
  startadr := ia (14) + 1;
  maxadr := ia (20) * 2;

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

  for inf := maxadr step - 2 until 2 do z.inf := inf;

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

      z.inf := inf;
      fejl := fejl + 1;
    end fejl;

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

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