#define ESC 0x1b
extern char key;
ci_wait(wt)
int wt;
{
 int i;
 for (i=0;i<wt;i++);
}
ci_init()
{
 _outb(0x89,0x807b);
 _outb(0xff,0x8079);
 _outb(0x00,0x8078);
}
ci_cin()
{
 _outb(0x01,0x8078); /* poff cin */
 ci_wait(5);
 while(_inb(0x807a)&0x02&&key!=ESC)
  key_in();
}
ci_cout()
{
 _outb(0x01,0x8078); /* poff cin */
 ci_wait(5);
 while(_inb(!(0x807a)&0x02)&&key!=ESC)
  key_in();
}
ci_pon()
{
 _outb(0xe1,0x8078); /* pon cin */
 ci_wait(100);
}
ci_adr0()
{
 ci_resh();
 ci_clk();
 ci_resl();
}
ci_poff()
{
 _outb(0x00,0x8078); /* poff */
 ci_wait(100);
}
ci_power()
{
 if (_inb(0x8078)&0xe0==0xe0) return 1;
 else return 0;
}
ci_resh()
{
 if (ci_power) {
  _outb(0x02|_inb(0x8078),0x8078);
  ci_wait(5);
 }
}
ci_resl()
{
 _outb(0xfd&_inb(0x8078),0x8078);
 ci_wait(5);
}
ci_clkh()
{
 if (ci_power) {
  _outb(0x04|_inb(0x8078),0x8078);
  ci_wait(5);
 }
}
ci_clkl()
{
 _outb(0xfb&_inb(0x8078),0x8078);
 ci_wait(5);
}
ci_clk()
{
 ci_clkh();
 ci_clkl(); 
}
ci_in()
{
 return (_inb(0x807a)&1);
}
ci_out(d)
{
 if (ci_power) {
  _outb((d&1)|(_inb(0x8078)&0xfe)
   ,0x8078);
  ci_wait(5);
 }
}
ci_tsth()
{
 if (ci_power) {
  _outb(0x08|_inb(0x8078),0x8078);
  ci_wait(5);
 }
}
ci_tstl()
{
 _outb(0xf7&_inb(0x8078),0x8078);
 ci_wait(5);
}
ci_prgh()
{
 if (ci_power) {
  _outb(0x10|_inb(0x8078),0x8078);
  ci_wait(5);
 }
}
ci_prgl()
{
 _outb(0xef&_inb(0x8078),0x8078);
 ci_wait(5);
}