DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFileVerbose
    Names: »rc3500links«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »rc3500links« 

TextFileVerbose

\f


begin <*special rc3500 devices*>
  integer host3500devno,rc3500hostno,rc3500devno,
          ticmkind,ticbufs,ticbufsize,
          tocmkind,tocbufs,tocbufsize;

  procedure tic(devno,devname);
  integer       devno;
  string              devname;
  linkup(ticmkind,ticbufs,ticbufsize,devno,devname);

  procedure toc(devno,devname);
  integer       devno;
  string              devname;
  linkup(tocmkind,tocbufs,tocbufsize,devno,devname);

  ticmkind:=10;
  ticbufs:=1;
  ticbufsize:=10000;

  tocmkind:=14;
  tocbufs:=1;
  tocbufsize:=10000;
\f


<*begin standard rc3500 links vr 2 5 78*>

  host3500devno:=21;
  rc3500hostno:=5076;
  rc3500devno:=43;

  write(out,<:<10>begin rc3500links: :>,
  <:<10>host3500 devno: :>,host3500devno,
  <:<10>rc3500 device hostno: :>,rc3500hostno);

  host(host3500devno,rc3500hostno,0,0);

  write(out,<:<10>reader1: :>,rc3500devno);
  name(<:reader1:>);
  ptr(rc3500devno,<:reader:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>punch1: :>,rc3500devno);
  name(<:punch1:>);
  ptp(rc3500devno,<:punch:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>printer1: :>,rc3500devno);
  name(<:printer1:>);
  lpt(rc3500devno,<:printer:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>printer2: :>,rc3500devno);
  name(<:printer2:>);
  lpt(rc3500devno,<:printer1:>);
\f


  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termin3: :>,rc3500devno);
  name(<:termin3:>);
  tic(rc3500devno,<:termin1:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termin4: :>,rc3500devno);
  name(<:termin4:>);
  tic(rc3500devno,<:termin2:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termin5: :>,rc3500devno);
  name(<:termin5:>);
  tic(rc3500devno,<:termin3:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termin6: :>,rc3500devno);
  name(<:termin6:>);
  tic(rc3500devno,<:termin4:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termout3: :>,rc3500devno);
  name(<:termout3:>);
  toc(rc3500devno,<:termout1:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termout4: :>,rc3500devno);
  name(<:termout4:>);
  toc(rc3500devno,<:termout2:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termout5: :>,rc3500devno);
  name(<:termout5:>);
  toc(rc3500devno,<:termout3:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>termout6: :>,rc3500devno);
  name(<:termout6:>);
  toc(rc3500devno,<:termout4:>);
\f


  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal9: :>,rc3500devno);
  name(<:terminal9:>);
  tw(rc3500devno,<:terminal1:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal10: :>,rc3500devno);
  name(<:terminal10:>);
  tw(rc3500devno,<:terminal2:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal11: :>,rc3500devno);
  name(<:terminal11:>);
  tw(rc3500devno,<:terminal3:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal12: :>,rc3500devno);
  name(<:terminal12:>);
  tw(rc3500devno,<:terminal4:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal13: :>,rc3500devno);
  name(<:terminal13:>);
  tw(rc3500devno,<:terminal5:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal14: :>,rc3500devno);
  name(<:terminal14:>);
  tw(rc3500devno,<:terminal6:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal15: :>,rc3500devno);
  name(<:terminal15:>);
  tw(rc3500devno,<:terminal7:>);

  rc3500devno:=rc3500devno+1;
  write(out,<:<10>terminal16: :>,rc3500devno);
  name(<:terminal16:>);
  tw(rc3500devno,<:terminal8:>);

  write(out,<:<10>finis rc3500links:>);

<*end standard rc3500 links*>

end <*special rc3500 devices *>;

«eof»