DataMuseum.dk

top - metrics - download

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

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tgetrecku« 

TextFile

begin
  zone z(128*8,1,bp);
  integer fil,i,j,k;
  real array obj,kilde,prog,a(1:2);
  long array field l;

  procedure bp(z,s,b);
  zone z; integer s,b;
  if false add s then stderror(z,s,b) else
  if false add(s shift(-22)) then s:= logor(s,1 shift 16);

  procedure fejl(s);
  string s;
  begin
    write(out,<:***:>,prog.l,<: :>,s);
    goto ud
  end;

  l:= 0;
  system(4,0,obj);
  if system(4,1,prog)<>6 shift 12+10 then
  begin
    system(4,0,prog);
    fejl(<:der mangler en venstreside:>)
  end;
  if system(4,2,kilde)<>4 shift 12+10
  then fejl(<:der mangler et båndnavn:>);
  if system(4,4,a)<>0 or system(4,3,a)<>8 shift 12+4
  then fejl(<:besværligt filnummer:>);
  fil:= a(1);
  fpproc(29)stackin:(0,in,0);
  i:= 100 shift 1 add 1;
  fpproc(28)connectout:(i,in,obj);
  if i<>0 then fejl(<:besværlig venstreside:>);
  setposition(in,0,0);

  open(z,18,kilde,1 shift 7+1 shift 22);
  setposition(z,fil,0);
  for i:= inrec6(z,0) while i>2 do
  for j:= i step -512 until 1 do
  begin
    k:= if j>512 then 512 else j;
    inrec6(z,k);
    outrec6(in,k);
    tofrom(in,z,k)
  end;

  close(z,true);
  setposition(in,0,0);
ud:
end
▶EOF◀