Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!tut.cis.ohio-state.edu!ucbvax!CMR001.BITNET!GELINASJ
From: GELINASJ@CMR001.BITNET
Newsgroups: comp.sys.apollo
Subject: /com/crp kermit
Message-ID: <900115.03113295.062479@CMR.CP6>
Date: 15 Jan 90 08:06:54 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 56


      After some blind hacking, i have managed to get a working KERMIT
under SR10.1, BSD4.3. But i have a few problems left to solve and would
like the help of an old time AEGIS programmer or two.
Please contact me by email if you can help.
Here are the problems, followed by short extracts of the code itself.

 Problem 1: When used with /com/crp, KERMIT cannot find what kind of
                terminal is used. I solved that by adding an else clause.

 Problem 2: When used with /com/crp, KERMIT cannot program the function
                keys F1 and F8 ( ?crp -- ***illegal code ****).

 Problem 3: KERMIT and EMT can no longer display what the mainframe
            (CP-6) sends at 9600 bauds. But i got KERMIT receiving files
            from an IBM PC AT at 19200 bauds (boy! it this fast!).

On the whole, though, i am satisfied with this KERMIT since it accepts
wildcards and can be stopped (this did not work before).

----------------------------------------------
char *ckxv = "Apollo Aegis tty I/O, 4C(023), 13 Feb 87";
/* C-Kermit interrupt, terminal control & i/o functions  */
/* by:    Neal Holtz, (holtz%cascade.carleton.cdn@ubc.csnet)
          CASCADE, Carleton University, Ottawa, Canada
 from the Unix 4.2 version originally by:
 Author: Frank da Cruz (SY.FDC@CU20B),
----------------------------------------------
/* undocumented declarations stolen from  (/sys/source/emt/emt.pas) */
/* for CRP mbx functions */
          /* Identify stream as crp mailbox */
#define      spm_$crp_mbx       (char)(0x04)
          /* Issue a pad_$def_pfk */
#define      spm_$pad_def_pfk   (char)(0x05)
-----------------------------------------------
/*  C O N R A W -- Put console in one of two flavours of "raw" mode */
!!!         mbx_func(spm_$pad_def_pfk,"F1  ER 1C; ER 43");  /* define function k
eys */
!!!         mbx_func(spm_$pad_def_pfk,"F8  ER 1C; ER 42");
            break;
-----------------------------------------------
/*  C O N R E S  --  Restore the console terminal  */
!!!          mbx_func(spm_$pad_def_pfk,"F1  ");  /* reset function keys */
!!!          mbx_func(spm_$pad_def_pfk,"F8  ");
-----------------------------------------------
/*  C O N T Y P E  -- determine what kind of console we have */
    if( is_sio(stream_$stdin) )
        console_type = con_sio;
!!!    else if( is_mbx(stream_$stdin) )
        console_type = con_mbx;
!!! else                                /* added to make kermit */
!!!     console_type = con_mbx;         /* work with crp j.g. jan 90 */
-----------------------------------------------

Jacques Ge'linas    bitnet: gelinasj@cmr001
                  internet: gelinasj%cmr001.bitnet@cunyvm.cuny.edu