/* link obj: cci util */
#define ESC 0x1b
extern char key;
main(argc,argv)
int argc;
char **argv;
{
 int i,j,k,b8_cnt=2;
 char d,b[8];

 if (argc>=2) {
  d=argv[1][0];
  if (d&0xdf=='I') {
   ci_init();
   puts("PIO Initialisiert !\n");
   exit(0);
  } else if (d>='2'&&d<='8') {
   b8_cnt=d&0x0f;
  } else {
   puts(": mcio [i]|[2-8]<CR>\n");
  }
 }
 puts("Karte Stecken ... ");
 ci_cin();
 puts("\n");
 if (key==ESC) exit(0);
 ci_pon();
 ci_adr0();
 for (i=0;i<b8_cnt;i++) {
  put2h(i*8); puts(" : ");
  for (j=0;j<8;j++) {
   for (k=0;k<8;k++) {
    d>>=1; d|=ci_in()<<7;
    ci_clk();
   }
   b[j]=d; put2h(d); puts(" ");
  }
  puts("- ");
  for (j=0;j<8;j++) {
   if (b[j]>=0x20) putchar(b[j]);
   else putchar('.');
  }
  puts("\n");
 }
 ci_poff();
 puts("\n");
}