home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / ck190b.zip / P200.INI < prev    next >
Text File  |  1994-08-20  |  7KB  |  156 lines
  1. ; FILE CKOP200.INI - Macros for invoking P version 2.00 from OS/2 C-Kermit.
  2. ;
  3. ; Jeffrey Altman, Altmania Productions and Seer Technologies
  4. ;  <p00118@psilink.com>
  5. ;  August 1994
  6. ;
  7. ; P is an external protocol package providing X-modem, Y-modem, Y-modem-G
  8. ; and Z-modem send and receive capabilities on OS/2 via Serial, IBM TCP/IP, 
  9. ; and Named Pipe connections.  
  10. ;
  11. ; The P protocol dynamic link library is freeware available from most major
  12. ; ftp sites, bulletin board services and CompuServe.  From the documentation:
  13. ;
  14. ;"3. Distribution policy
  15. ;
  16. ;    P.EXE - the front-end for the DLL is distributed as public
  17. ;    domain, which means that anyone can modify and recompile the
  18. ;    sources and do whatever they want with it. However, credits to
  19. ;    the original author (me) would be highly appreciated but not
  20. ;    required, if found so repugnant.
  21. ;
  22. ;    P.DLL - the transfer protocol engine is distributed as
  23. ;    freeware, which means that the author (me) wants to keep his
  24. ;    copyright to the program but gives everyone the right to use
  25. ;    and copy it freely, without of charge."
  26. ;
  27. ; P version 2.00 was designed with OS/2 C-Kermit in mind.  The following
  28. ; macro definitions provide X,Y, and Z modem file send and receive 
  29. ; capabilities on all connection types supported by OS/2 C-Kermit excluding
  30. ; NetBIOS and DecNET.
  31. ;
  32. ; Commands:
  33. ;    sz/rz - send/receive with Zmodem
  34. ;    sy/ry - send/receive with Ymodem
  35. ;    sg/rg - send/receive with Ymodem-G
  36. ;    sx/rx - send/receive with Xmodem
  37.  
  38. echo Initializing X,Y,YG,Z-modem support using P version 2.00... 
  39.  
  40. ; Send via Zmodem 
  41. define sz, -
  42.   if equal "\v(connection)" "serial" goto async, -
  43.   if equal "\v(connection)" "named_pipe" goto pipe, -
  44.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  45.   echo "sz not supported on \v(connection) connections.",-
  46.   end, -
  47.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  48.            -filebuf 8192 -protocol zmodem -send \%1, end, -
  49.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  50.            -protocol zmodem -send \%1, end, -
  51.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  52.            -filebuf 32768 -protocol zmodem -send \%1, end
  53.  
  54. ; Receive via Zmodem
  55. define rz, -
  56.   if equal "\v(connection)" "serial" goto async, -
  57.   if equal "\v(connection)" "named_pipe" goto pipe, -
  58.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  59.   echo "rz not supported on \v(connection) connections.",-
  60.   end, -
  61.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  62.            -commbufs 4096 -filebuf 8192 -protocol zmodem -receive, end, -
  63.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  64.            -protocol zmodem -receive, end, -
  65.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  66.            -filebuf 32768 -protocol zmodem -receive, end
  67.  
  68. ; Send via Ymodem-G
  69. define sg, - 
  70.   if equal "\v(connection)" "serial" goto async, -
  71.   if equal "\v(connection)" "named_pipe" goto pipe, -
  72.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  73.   echo "sy not supported on \v(connection) connections.",-
  74.   end, -
  75.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  76.            -commbufs 4096 -filebuf 8192 -protocol ymodem-g -send \%1, end, -
  77.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  78.            -protocol ymodem-g -send \%1, end, -
  79.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  80.            -filebuf 32768 -protocol ymodem-g -send \%1, end
  81.  
  82. ; Receive via Ymodem-G
  83. define rg, -
  84.   if equal "\v(connection)" "serial" goto async, -
  85.   if equal "\v(connection)" "named_pipe" goto pipe, -
  86.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  87.   echo "ry not supported on \v(connection) connections.",-
  88.   end, -
  89.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  90.            -commbufs 4096 -filebuf 8192 -protocol ymodem-g -receive, end, -
  91.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  92.            -protocol ymodem-g -receive, end, -
  93.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  94.            -filebuf 32768 -protocol ymodem-g -receive, end
  95.  
  96. ; Send via Ymodem
  97. define sy, - 
  98.   if equal "\v(connection)" "serial" goto async, -
  99.   if equal "\v(connection)" "named_pipe" goto pipe, -
  100.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  101.   echo "sy not supported on \v(connection) connections.",-
  102.   end, -
  103.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  104.            -commbufs 4096 -filebuf 8192 -protocol ymodem -send \%1, end, -
  105.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  106.            -protocol ymodem -send \%1, end, -
  107.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  108.            -filebuf 32768 -protocol ymodem -send \%1, end
  109.  
  110. ; Receive via Ymodem
  111. define ry, -
  112.   if equal "\v(connection)" "serial" goto async, -
  113.   if equal "\v(connection)" "named_pipe" goto pipe, -
  114.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  115.   echo "ry not supported on \v(connection) connections.",-
  116.   end, -
  117.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
  118.            -commbufs 4096 -filebuf 8192 -protocol ymodem -receive, end, -
  119.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  120.            -protocol ymodem -receive, end, -
  121.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  122.            -filebuf 32768 -protocol ymodem -receive, end
  123.  
  124. ; Send via Xmodem
  125. define sx, -
  126.   if equal "\v(connection)" "serial" goto async, -
  127.   if equal "\v(connection)" "named_pipe" goto pipe, -
  128.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  129.   echo "sx not supported on \v(connection) connections.",-
  130.   end, -
  131.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  132.            -filebuf 8192 -protocol xmodem -send \%1, end, -
  133.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  134.            -protocol xmodem -send \%1, end, -
  135.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  136.            -filebuf 32768 -protocol xmodem -send \%1, end
  137.  
  138. ; Receive via Xmodem
  139. define rx, -
  140.   if equal "\v(connection)" "serial" goto async, -
  141.   if equal "\v(connection)" "named_pipe" goto pipe, -
  142.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  143.   echo "rx not supported on \v(connection) connections.",-
  144.   end, -
  145.   :async,  !p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
  146.            -filebuf 8192 -protocol xmodem -receive, end, -
  147.   :pipe,   !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
  148.            -protocol xmodem -receive, end, -
  149.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
  150.            -filebuf 32768 -protocol xmodem -receive, end
  151.  
  152.  
  153.  
  154.  
  155.  
  156.