home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
bin
/
p205.zip
/
ckop200.ini
next >
Wrap
Text File
|
1994-12-18
|
10KB
|
227 lines
; FILE P200.INI (CKOP200.INI)
; Macros for invoking P version 2.xx from OS/2 C-Kermit.
;
; Jeffrey Altman, Altmania Productions and Seer Technologies, New York
; <p00118@psilink.com>
; September 6, 1994
;
; P is an external protocol package providing X-modem, Y-modem, Y-modem-G
; and Z-modem send and receive capabilities on OS/2 via Serial, IBM TCP/IP 2.0,
; and Named Pipe connections written by Jyrki Salmi <jytasa@jyu.fi>.
;
; The P protocol dynamic link library is freeware available from most major
; ftp sites (ftp-os2.nmsu.edu, ftp.cdrom.com), bulletin board services
; and CompuServe (IBMCOM and OS2BVEN). From the documentation:
;
;"3. Distribution policy
;
; P.EXE - the front-end for the DLL is distributed as public
; domain, which means that anyone can modify and recompile the
; sources and do whatever they want with it. However, credits to
; the original author (me) would be highly appreciated but not
; required, if found so repugnant.
;
; P.DLL - the transfer protocol engine is distributed as
; freeware, which means that the author (me) wants to keep his
; copyright to the program but gives everyone the right to use
; and copy it freely, without of charge."
;
; P version 2.xx was designed with OS/2 C-Kermit in mind. The following
; macro definitions provide X,Y, and Z modem file send and receive
; capabilities on all connection types supported by OS/2 C-Kermit 5A(190)
; excluding NetBIOS and DECnet. With C-Kermit versions prior to 5A(190)
; only asynchronous connections are supported.
;
; Commands:
; sz/rz - send/receive with Zmodem
; sy/ry - send/receive with Ymodem
; sg/rg - send/receive with Ymodem-G
; sx/rx - send/receive with Xmodem
;
; As of this writing, the current release of P is 2.03.
;
; WARNING:
; It has been observed that P 2.00 through 2.03 only work on OS/2 systems
; that have IBM TCP/IP 2.0 installed. This should rectified in a
; forthcoming release of P. If when trying these commands on a TCP/IP
; TELNET connection, you receive an error "cannot load SO32DLL" this means
; that you are not using IBM TCP/IP version 2.0. This file should need no
; changes in order to work with future 2.xx releases of P.
;
; DISCLAIMER:
; These macro definitions are included with C-Kermit as a convenience
; to users of P 2.0x. Columbia University is not a source for the P
; software, nor does it support P in any way.
;
echo Initializing X,Y,YG,Z-modem support using P version 2.xx...
if < \v(version) 501190 goto asynconly
; Send via Zmodem
define sz, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "sz not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
-filebuf 8192 -mileage -protocol zmodem -send \%1, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol zmodem -send \%1, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol zmodem -send \%1, end
; Receive via Zmodem
define rz, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "rz not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol zmodem -receive, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol zmodem -receive, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol zmodem -receive, end
; Send via Ymodem-G
define sg, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "sy not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -send \%1, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol ymodem-g -send \%1, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol ymodem-g -send \%1, end
; Receive via Ymodem-G
define rg, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "ry not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -receive, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol ymodem-g -receive, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol ymodem-g -receive, end
; Send via Ymodem
define sy, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "sy not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -send \%1, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol ymodem -send \%1, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol ymodem -send \%1, end
; Receive via Ymodem
define ry, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "ry not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -receive, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol ymodem -receive, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol ymodem -receive, end
; Send via Xmodem
define sx, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "sx not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
-filebuf 8192 -mileage -protocol xmodem -send \%1, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol xmodem -send \%1, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol xmodem -send \%1, end
; Receive via Xmodem
define rx, -
if equal "\v(connection)" "serial" goto async, -
if equal "\v(connection)" "named_pipe" goto pipe, -
if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
echo "rx not supported on \v(connection) connections.",-
end, -
:async, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
-filebuf 8192 -mileage -protocol xmodem -receive, end, -
:pipe, !p.exe -type pipe -handle \v(ttyfd) -commbufs 4096 -filebuf 32768 -
-mileage -protocol xmodem -receive, end, -
:socket, !p.exe -type socket -handle \v(ttyfd) -telnet -commbufs 4096 -
-filebuf 32768 -mileage -protocol xmodem -receive, end
forward p200end
:asynconly ; support for async connections only when \v(connection) is
; not defined.
; Send via Zmodem
define sz, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
-filebuf 8192 -mileage -protocol zmodem -send \%1, end, -
; Receive via Zmodem
define rz, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol zmodem -receive, end, -
; Send via Ymodem-G
define sg, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -send \%1, end, -
; Receive via Ymodem-G
define rg, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem-g -receive, end, -
; Send via Ymodem
define sy, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -send \%1, end, -
; Receive via Ymodem
define ry, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -
-commbufs 4096 -filebuf 8192 -mileage -protocol ymodem -receive, end, -
; Send via Xmodem
define sx, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
-filebuf 8192 -mileage -protocol xmodem -send \%1, end, -
; Receive via Xmodem
define rx, -
!p.exe -type async -handle \v(ttyfd) -speed \v(speed) -commbufs 4096 -
-filebuf 8192 -mileage -protocol xmodem -receive, end, -
:p200end