DataMuseum.dk

top - metrics - download

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

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

TextFile

<*fp-procedures using the external procedure fpproc
1981.09.08
Anders Lindgård
*>
integer in_stacked,out_stacked;

procedure finis;
begin
  fpproc(14,0,0,0);
end;

procedure in_block(z);
zone z;
begin
   fpproc(22,0,z,0);
end;

procedure out_block(z);
zone z;
begin
  fpproc(23,0,z,0);
end;

integer procedure in_char(z);
zone z;
begin
integer char;
  fpproc(25,0,z,char);
  inchar:=char;
end;

procedure out_char(z,char);
value char; integer char;
zone z;
begin
  fpproc(26,0,z,char);
end;

procedure connect_in_z(z,name);
long array name; zone z;
begin
integer res;
  fppproc(27,res,z,name);
  connect_in_z:=res;
end;

procedure outend(z,char);
value char; integer char;
zone z;
begin
  fpproc(33,0,z,char);
end;

procedure parent_message(mess);
integer array mess;
begin
  zone z(1,1,stderror);
  long array field n;
  n:=8;
  open(z,0,mess.n,0);
  fpproc(35,0,mess,z);
  close(z,true);
end;
▶EOF◀