home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / 22rsx / byestuff.ark / ENDCALL.PAS < prev    next >
Pascal/Delphi Source File  |  1985-12-08  |  896b  |  35 lines
  1. PROGRAM endcall(output);
  2. (* called when the external system disconnects *)
  3.  
  4.   CONST
  5.     maxstring  = 20;
  6. (*$s-*)
  7.     eos        = (:0:);
  8. (*$s+*)
  9.  
  10.   TYPE
  11.     string     = PACKED ARRAY[1..maxstring] OF char;
  12.  
  13.   (* 1---------------1 *)
  14.  
  15.   PROCEDURE chain(ln : string);
  16.  
  17.     VAR
  18.       junk, i   : integer;
  19.  
  20.     BEGIN (* chain *)
  21.     ln[maxstring] := eos;    (* ensure terminated *)
  22. (*$x+,s-,d- illegal pointer, non-std Pascal, save options *)
  23.     junk := syscall(26, pointerto(ln)); (* set DMA *)
  24. (*$x- restore options *)
  25.     junk := syscall(47, 0); (* the chain *)
  26.     END; (* chain *)
  27.  
  28.   (* 1---------------1 *)
  29.  
  30.   BEGIN (* endcall *)
  31.   writeln('Call terminated');
  32.   chain('RUNPCD BYE          ');
  33.   writeln('BYERSX not mounted, cannot chain');
  34.   END. (* endcall *)
  35. @'