# ttycook - put the console that does actual I/O of packet into a cook mode # subroutine ttycook include ratdef include kerdef include kercom integer ier integer xchar(3) if(host==TRUE){ # we have in the host kermit mode, use the TTY the user is loggin under call qgchr(000000k,"@console",xchar,ier) call iset(xchar(1),0) call iset(xchar(1),1) call iclr(xchar(2),15) call qschr(000000k,"@console",xchar,ier) } else { #we are in the local kermit mode, which remote TTY is used for packet I/O if(speed==FALSE){ # turn tty with 1200 baud into raw mode call qgchr(000000k,"@con11",xchar,ier) call iset(xchar(1),0) call iset(xchar(1),1) call iclr(xchar(2),15) call qschr(000000k,"@con11",xchar,ier) } else { # turn TTY with 9600 baud into raw mode call qgchr(000000k,"@con4",xchar,ier) call iset(xchar(1),0) call iset(xchar(1),1) call iclr(xchar(2),15) call qschr(000000k,"@con4",xchar,ier) } } return end