home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ibmtsochicago.tar.gz
/
ibmtsochicago.tar
/
tsoker.bwr
< prev
next >
Wrap
Internet Message Format
|
1984-07-18
|
23KB
Date: Wed, 17 Oct 84 08:03:53 pdt
From: dual!islenet!david%Berkeley@columbia.arpa
To: Info-Kermit@CU20B, systems.ron%UCHICAGO@MIT-MULTICS.ARPA
Subject: TSO Kermit
Finally got KERMIT-TSO working here. Here's a summary of the changes
we had to make. Perhaps this will save someone else some energy.
1) We had to severely edit the ASCII-EBCDIC translation tables. We
use our own TCAM tables here (slightly modified versions of the
TEKTRONIX tables), and edited KERMIT-TSO to agree with them. This
is not a job for the faint-hearted or poor-of-vision, since it
involves reversing all the ASCII hex codes to decipher the TCAM tables.
2) The default device (DASD group) for creating new files is hard-coded
as SYSDA. If your installation does not allow users to catalog
datasets on SYSDA they will not be able to RECEIVE to a new dataset.
Easy change.
David Lassner,
University of Hawaii
------------------------------
Date: 25 Oct 1984 1319 PDT
From: Joe Wieclawek <JAW@JPL-VLSI.ARPA>
Subject: Problem with TSO Kermit
To: Info-Kermit@CU20B.ARPA
Can any TSO Kermit users offer some help? The program seems to run as it
should, but no characters ever get sent to the micro. The micros run MS and
CP/M versions of Kermit and have no problem talking to each other or VMS and
UNIX Kermit. The DEBUG in TSO Kermit tells me:
(When TSO is the receiver and the micro is the sender)
> TGET gets the send init packer
> The ACK packet is formed
> TPUT is called
> TPUT returns no-error status
*> NO characters are sent out (no ACK)
(The micro's port was monitored and nothing gets there)
> TGET gets a send init packet again etc, until max retries
(When TSO is the sender)
> The send init packet is formed
> TPUT is called
> TPUT returns no-error status
*> no characters are sent out
??????????????????
Joe Wieclawek
Jet Propulsion Laboratory
Pasadena California
(818)354-2419
JAW@JPL-VLSI.ARPA
------------------------------
Date: 29 October 1984, 11:58:30 CST
From: ("Ron Rusnak (312) 962-7607") SYSRONR at UCHIVM1
To: SY.FDC at CU20B.BITNET
Subject: Re: Problem with TSO Kermit
I'm the guy unfortunately. The problem that this guy is having is probably
related to either his terminal handler (TCAM or VTAM or whatever), or the
translate tables. As far as, I know the only complaints I have heard come from
folks who have ASCII translate tables. It is neccessary that TPUT control send
all ASCII characters.
Given what this person said, I would suspect something wierd with whatever
acess method they're using.
------------------------------
Date: Wed 14 Aug 85 08:52:52-PDT
From: Wing Lee <WingLee%ECLD@ECLA>
Subject: Solution to TSO Kermit vs 7171 Problem
Good News! The problem we had with the Series/1 version of TSO-KERMIT
has been solved. The problem we were having was that TSO-KERMIT would
hang at random places whenever you tried to upload to TSO. One of
our Systems Programmers, Valaine Saito, discovered what we think
the problem is. What follows is Valaine's message to me.
> i looked at the kermit through the 7171 problem again since it appears
>that it really HAS to work if we're going to lose a s/1. i stumbled through
>the assembler program, it looks like the logic is okay. after determining
>that, i went to the s/1 and 7171 manuals to see what the difference was. it
>turns out that there is NO logical difference, but there clearly is a
>functional difference.
>
> both the s/1 and the 7171 have 64 char type ahead buffers. the s/1 must
>handle it differently. when i have both the host and micro kermits sending
>packet lengths of 60 (less than the 64 char buffer size), everything works
>fine. when either of the kermits sends > 64 packet lengths, the familiar
>"failure to receive ackn from host" msg appears on the micro and the transfer
>stops. (all this pertains to file transfer from micro to host, i assume the
>other way works since no one has said otherwise.) at 9600 baud, i ran a
>largish file (60+ kb) through a number of times (10 or so) and it worked
>every time with BOTH kermits sending packet sizes of less than 64.
>
> so the solution is to send packets of size X, where x is less than 64
>(i always tried sizes of < 64, i didn't try 64). the practical options
>are:
>
> tell users about the packet length problem and have them set both
> lengths themselves.
>
> re-code the host kermit to accept a max packet size of 63 or 64.
> (this isn't too cool because only the receive section has the
> problem. changing the max packet size would affect all
> sections.)
>
> re-code the host kermit to utilize the RPSIZ variable correctly
> and change the value to F'64' (or 63). RPSIZ is the max receive
> packet size.
I have tried sending packet sizes of 64 bytes and that works. When I tried 65
byte packets, the upload failed, so it looks like 64 is the magic number.
wing lee
[Ed. - For CMS Kermit, we will look into the possibility that the program
can determine if it's a 7171 (it's not clear that it reports itself
differently from a Series/1) and in that case use the smaller packet size.]
------------------------------
************
File TSOKERM.ASM;2
**************** 00000000
* 00000000
* ----> THE WRTERM AND PROMPT MACROS ARE REWRITTEN TO ALLOW 00000000
* IT TO ASSEMBLE UNDER IFOX00. 00000000
* 00000000
* MACRO TSO00310
*&LAB WRTERM &MSG TSO00320
* LCLC &MS TSO00330
* LCLA &LN TSO00340
*&MS SETC '&MSG' TSO00350
*&LN SETA K'&MS TSO00360
*&LN SETA &LN-2 TSO00370
*&LAB TPUT &MS,&LN TSO00380
* MEND TSO00390
* MACRO TSO00400
*&LAB PROMPT &MSG TSO00410
* LCLC &MS TSO00420
* LCLA &LN TSO00430
*&MS SETC '&MSG' TSO00440
*&LN SETA K'&MS TSO00450
*&LN SETA &LN-2 TSO00460
*&LAB TPUT &MS,&LN,ASIS TSO00470
* MEND TSO00480
MACRO 00000000
&LAB WRTERM &MSG 00000000
LCLC &LEN 00000000
&LEN SETC 'L''' 00000000
&LAB B WRX&SYSNDX 00000000
WRT&SYSNDX DC C&MSG 00000000
WRX&SYSNDX TPUT WRT&SYSNDX,&LEN.WRT&SYSNDX 00000000
MEND 00000000
MACRO 00000000
&LAB PROMPT &MSG 00000000
LCLC &LEN 00000000
&LEN SETC 'L''' 00000000
&LAB B WRX&SYSNDX 00000000
WRT&SYSNDX DC C&MSG 00000000
WRX&SYSNDX TPUT WRT&SYSNDX,&LEN.WRT&SYSNDX,ASIS 00000000
MEND 00000000
******
File TSOKERM.ASM;1
MACRO TSO00310
&LAB WRTERM &MSG TSO00320
LCLC &MS TSO00330
LCLA &LN TSO00340
&MS SETC '&MSG' TSO00350
&LN SETA K'&MS TSO00360
&LN SETA &LN-2 TSO00370
&LAB TPUT =C&MS,&LN TSO00380
MEND TSO00390
MACRO TSO00400
&LAB PROMPT &MSG TSO00410
LCLC &MS TSO00420
LCLA &LN TSO00430
&MS SETC '&MSG' TSO00440
&LN SETA K'&MS TSO00450
&LN SETA &LN-2 TSO00460
&LAB TPUT =C&MS,&LN,ASIS TSO00470
MEND TSO00480
************
************
File TSOKERM.ASM;2
PRINT ON,GEN 00000000
******
File TSOKERM.ASM;1
************
************
File TSOKERM.ASM;2
WRTERM 'KERMIT-TSO Version 1.00 (&SYSDATE,&SYSTIME)' TSO01680
******
File TSOKERM.ASM;1
WRTERM 'KERMIT-TSO Version 1.00' TSO01680
************
************
File TSOKERM.ASM;2
NI FLAGS,X'FF'-FLG3 turn off left-over data 00000000
******
File TSOKERM.ASM;1
************
************
File TSOKERM.ASM;2
WRTERM 'Specify dataset name.' TSO03620
******
File TSOKERM.ASM;1
WRTERM 'Specify dataset name.' [ ] TSO03620
************
************
File TSOKERM.ASM;2
LA R15,READX LOCATE READ ROUTINE TSO14760
BALR R15,R15 COME AND GO ON SAME REG TSO14770
******
File TSOKERM.ASM;1
LA R15,READX TSO14760
BALR R15,R15 TSO14770
************
************
File TSOKERM.ASM;2
CH R4,=Y(ERCOD) RETCODE OF 12 MEANS EOF TSO14810
******
File TSOKERM.ASM;1
C R4,=A(ERCOD) RETCODE OF 12 MEANS EOF TSO14810
************
************
File TSOKERM.ASM;2
BZ NODEBG2 BYPASS IF NO DEBUG ON TSO17840
MVC WRKBUFF(2),=H'18' LENGTH OF WRKBUFF FOR PUT TSO17850
******
File TSOKERM.ASM;1
BZ NODEBG2 TSO17840
MVC WRKBUFF(2),=H'18' TSO17850
************
************
File TSOKERM.ASM;2
* AT EXIT R1 CONTAINS 0 FOR SUCCESSFUL READ OR 12 FOR EOF * 00000000
* R0 CONTAINS RECORD LENGTH OR ZERO FOR EOF * 00000000
******
File TSOKERM.ASM;1
************
************
File TSOKERM.ASM;2
LH R1,KERIN+(DCBLRECL-IHADCB) GET LRECL TSO18230
STH R1,WRKBUFF SAVE IN DEBUG BUFF TSO18240
******
File TSOKERM.ASM;1
LH R1,KERIN+(DCBLRECL-IHADCB) TSO18230
STH R1,WRKBUFF TSO18240
************
************
File TSOKERM.ASM;2
RDNODBG XR R1,R1 SET RETURN CODE=0 TSO18270
******
File TSOKERM.ASM;1
RDNODBG XR R1,R1 SET RETURN CODE TSO18270
************
************
File TSOKERM.ASM;2
LA R1,ERCOD SET RC=12 TSO18380
XR R0,R0 SET LENGTH = 0 TSO18390
******
File TSOKERM.ASM;1
LA R1,12 TSO18380
XR R0,R0 TSO18390
************
************
File TSOKERM.ASM;2
BR R15 RETURN TSO18410
******
File TSOKERM.ASM;1
BR R15 TSO18410
************
************
File TSOKERM.ASM;2
XC RSAVPL,RSAVPL CLEAR BUFFER OUT *KMG PRC* 00000000
******
File TSOKERM.ASM;1
************
************
File TSOKERM.ASM;2
SPACE 1 00000000
******
File TSOKERM.ASM;1
************
************
File TSOKERM.ASM;2
SPACE 1 00000000
******
File TSOKERM.ASM;1
************
************
File TSOKERM.ASM;2
SPACE 1 00000000
******
File TSOKERM.ASM;1
************
************
File TSOKERM.ASM;2
PUT KEROUT,(0) TSO23540
******
File TSOKERM.ASM;1
PUT KEROUT,(R0) TSO23540
************
************
File TSOKERM.ASM;2
*DSSIZ DC F'40' DEFAULT MAX SEND PACKET SIZE TSO24410
DSSIZ DC F'80' DEFAULT MAX SEND PACKET SIZE TSO24410
******
File TSOKERM.ASM;1
DSSIZ DC F'40' DEFAULT MAX SEND PACKET SIZE TSO24410
************
************
File TSOKERM.ASM;2
*DLRECL DC X'50' DEFAULT LRECL SIZE OF 80 TSO24730
DLRECL DC X'FF' DEFAULT LRECL SIZE OF 255 TSO24730
******
File TSOKERM.ASM;1
DLRECL DC X'50' DEFAULT LRECL SIZE OF 80 TSO24730
************
************
File TSOKERM.ASM;2
*DBLKSIZE DC H'80' DEFAULT BLKSIZE OF 80 TSO24750
DBLKSIZE DC H'255' DEFAULT BLKSIZE OF 255 TSO24750
******
File TSOKERM.ASM;1
DBLKSIZE DC H'80' DEFAULT BLKSIZE OF 80 TSO24750
************
************
File TSOKERM.ASM;2
READSAVE DS 4F REGISTER SAVEAREA TSO24880
WRITSAVE DS 4F REGISTER SAVEAREA TSO24890
******
File TSOKERM.ASM;1
READSAVE DS 4F TSO24880
WRITSAVE DS 4F TSO24890
************
************
File TSOKERM.ASM;2
* THIS IS THE ORIGINAL ASCII TO EBCDIC TABLE TSO25350
*ATOE DC X'00010203372D2E2F1605250B0C0D0E0F' TSO25360
* DC X'101112133C3D322618193F271C1D1E1F' TSO25370
* DC X'405A7F7B5B6C507D4D5D5C4E6B604B61' TSO25380
* DC X'F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F' TSO25390
* DC X'7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6' TSO25400
* DC X'D7D8D9E2E3E4E5E6E7E8E9ADE0BD5F6D' TSO25410
* DC X'79818283848586878889919293949596' TSO25420
* DC X'979899A2A3A4A5A6A7A8A9C04FD0A107' TSO25430
*THIS IS THE ORIGINAL EBCDIC TO ASCII CONVERSION TABLE TSO25440
*CHARACTERS NOT REPRESENTABLE IN ASCII ARE REPLACED BY A NULL TSO25450
*ETOA DC X'000102030009007F0000000B0C0D0E0F' TSO25460
*G DC X'1011121300000800181900001C1D1E1F' TSO25470
* DC X'10111213000D0800181900001C1D1E1F' TSO25480
* DC X'00000000000A171B0000000000050607' TSO25490
* DC X'0000160000000004000000001415001A' TSO25500
* DC X'20000000000000000000002E3C282B7C' TSO25510
* DC X'2600000000000000000021242A293B5E' TSO25520
* DC X'2D2F00000000000000007C2C255F3E3F' TSO25530
* DC X'000000000000000000603A2340273D22' TSO25540
* DC X'00616263646566676869007B00000000' TSO25550
* DC X'006A6B6C6D6E6F707172007D00000000' TSO25560
* DC X'007E737475767778797A0000005B0000' TSO25570
* DC X'000000000000000000000000005D0000' TSO25580
* DC X'7B414243444546474849000000000000' TSO25590
* DC X'7D4A4B4C4D4E4F505152000000000000' TSO25600
* DC X'5C00535455565758595A000000000000' TSO25610
* DC X'303132333435363738397C0000000000' TSO25620
* THIS IS THE PRC MODIFIED ASCII TO EBCDIC TABLE 6/28/85 9:00 TSO25350
* 0.1.2.3.4.5.6.7.8.9.A.B.C.D.E.F. 00000000
ATOE DC X'00010203372D2E2F1605250B0C0D0E0F' TSO25360
DC X'101112133C3D322618193F271C1D1E1F' TSO25370
DC X'405A7F7B5B6C507D4D5D5C4E6B604B61' TSO25380
DC X'F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F' TSO25390
DC X'7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6' TSO25400
DC X'D7D8D9E2E3E4E5E6E7E8E9ADCFBDB06D' TSO25410
DC X'BF818283848586878889919293949596' TSO25420
DC X'979899A2A3A4A5A6A7A8A98B4F9B5F07' TSO25430
*THIS IS THE PRC MODIFIED EBCDIC TO ASCII CONVERSION TABLE 6/28/85 9:00 TSO25440
*CHARACTERS NOT REPRESENTABLE IN ASCII ARE REPLACED BY A NULL TSO25450
* 0.1.2.3.4.5.6.7.8.9.A.B.C.D.E.F. 00000000
ETOA DC X'000102030009007F0000000B0C0D0E0F' TSO25460
DC X'10111213000D0800181900001C1D1E1F' TSO25480
DC X'00000000000A171B0000000000050607' TSO25490
DC X'0000160000000004000000001415001A' TSO25500
DC X'20000000000000000000002E3C282B7C' TSO25510
DC X'2600000000000000000021242A293B7E' TSO25520
DC X'2D2F00000000000000007C2C255F3E3F' TSO25530
DC X'000000000000000000603A2340273D22' TSO25540
DC X'00616263646566676869007B00000000' TSO25550
DC X'006A6B6C6D6E6F707172007D00000000' TSO25560
DC X'007E737475767778797A0000005B0000' TSO25570
DC X'5E0000000000000000000000005D0060' TSO25580
DC X'7B41424344454647484900000000005C' TSO25590
DC X'7D4A4B4C4D4E4F505152000000000000' TSO25600
DC X'5C00535455565758595A000000000000' TSO25610
DC X'303132333435363738397C0000000000' TSO25620
******
File TSOKERM.ASM;1
* THIS IS THE ASCII TO EBCDIC TABLE TSO25350
ATOE DC X'00010203372D2E2F1605250B0C0D0E0F' TSO25360
DC X'101112133C3D322618193F271C1D1E1F' TSO25370
DC X'405A7F7B5B6C507D4D5D5C4E6B604B61' TSO25380
DC X'F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F' TSO25390
DC X'7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6' TSO25400
DC X'D7D8D9E2E3E4E5E6E7E8E9ADE0BD5F6D' TSO25410
DC X'79818283848586878889919293949596' TSO25420
DC X'979899A2A3A4A5A6A7A8A9C04FD0A107' TSO25430
*THIS IS THE EBCDIC TO ASCII CONVERSION TABLE TSO25440
*CHARACTERS NOT REPRESENTABLE IN ASCII ARE REPLACED BY A NULL TSO25450
ETOA DC X'000102030009007F0000000B0C0D0E0F' TSO25460
*G DC X'1011121300000800181900001C1D1E1F' TSO25470
DC X'10111213000D0800181900001C1D1E1F' TSO25480
DC X'00000000000A171B0000000000050607' TSO25490
DC X'0000160000000004000000001415001A' TSO25500
DC X'20000000000000000000002E3C282B7C' TSO25510
DC X'2600000000000000000021242A293B5E' TSO25520
DC X'2D2F00000000000000007C2C255F3E3F' TSO25530
DC X'000000000000000000603A2340273D22' TSO25540
DC X'00616263646566676869007B00000000' TSO25550
DC X'006A6B6C6D6E6F707172007D00000000' TSO25560
DC X'007E737475767778797A0000005B0000' TSO25570
DC X'000000000000000000000000005D0000' TSO25580
DC X'7B414243444546474849000000000000' TSO25590
DC X'7D4A4B4C4D4E4F505152000000000000' TSO25600
DC X'5C00535455565758595A000000000000' TSO25610
DC X'303132333435363738397C0000000000' TSO25620
************
------------------------------
Date: Mon, 3 Nov 86 18:10:24 pst
From: thobe@ee.UCLA.EDU (Glenn Thobe)
Subject: "gotcha" in TSO Kermit
TSO Kermit v.1.1 appeared to be broken as file transfers would regularly
fail at the same point in the transmission. I was advised to enter the
following TSO command:
profile char(bs)
which totally fixed the problem. Apparently anything other than "bs" for this
profile parameter causes some character translation which interferes with the
incoming data. I hope this information will be of use to others.
-Glenn Thobe
------------------------------