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 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 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 ------------------------------