home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPFZM100.ZIP / FZM.DOC next >
Encoding:
Text File  |  1991-04-11  |  2.1 KB  |  46 lines
  1.  
  2.      This unit is a translation of some Zmodem code I ran across.
  3. It was made for use with a multitude of units including it's own
  4. serial port driver routines.  Conversion to the use of the FOSSIL
  5. driver included some hand written assembly FOSSIL interface routines
  6. while trying to read the German than the documentation was in.  In
  7. addition to the assembly, I removed it's need for multiple support
  8. units so that you only need the FZM.TPU file to get it working.
  9. This unit has NOT been tested very extensively and any bug reports,
  10. bricks, donations or fan mail can be sent to me in the following
  11. ways.
  12.  
  13.      David Rye                     Signal-7
  14.      201 Brantley Rd.         OR   (904) 659-2337   3/12/2400 Baud
  15.      Grandin, FL 32138             10:00 P.M.  - 5:00 A.M.  EST ONLY!
  16.  
  17.      In addition, netmail to me at either 1:18/41 or 1:208/2 will
  18. find it's way to me.
  19.  
  20.      Special thanks to Gary Lagier for his help with all the Turbo
  21. Pascal stuff.  He's made life a lot easier for many TP programmers.
  22.  
  23.      Also, special thanks to John Traphofner, my Alpha Guinnea Pig.
  24. It takes guts to run a strange man's code on your system.
  25.  
  26.  
  27.      The use of the unit is easy.  It has two procedures, they follow.
  28.  
  29.      To receive a file or file with Zmodem call this procedure.
  30. PROCEDURE ZR (path : STRING;                  { Path for the file(s) }
  31.               baudrate : LONGINT;             { Baudrate to receive at }
  32.               port  : WORD;                   { Port to receive from }
  33.               VAR failedflag : BOOLEAN);      { TRUE if no errors }
  34.  
  35.  
  36.      To send a file with Zmodem call this procedure.
  37. PROCEDURE ZS (filename : STRING;              { Path and filename }
  38.               baudrate : LONGINT;             { Baudrate to send at }
  39.               port  : WORD;                   { Port to send from }
  40.               lastfile : BOOLEAN;             { TRUE if only sending 1 file }
  41.               VAR fehler : WORD);             { Failed if <> 0 }
  42.  
  43.      You must call these procedures with the FOSSIL driver for the
  44. specified port already 'hot', in other words, the port must be open
  45. already.
  46.