#include <stdio.h>
#include <asm/types.h>
#include <unistd.h>
#include <asm/io.h>
#include <stdlib.h>

int ipow(int base, int power){
  int counter;
  int running=1;
  for (counter=0; counter<power; counter++){
    running *= 2;
  }
  //printf("_%d_", running);
  return running;
}

#define LP_BASE 0x378
int main(int argc, char *argv[]){

  FILE *fonts;
  char buff1[9][7];
  char c1;
  long pos;
  char wrd1[20];
  int i,j,k, bin1;
  int count;

  __u8 portdata;

  //scanf("%s", wrd1);
  fonts = fopen("./font1.dat", "r");
  ioperm(LP_BASE, 3, 1);
  //set permissions for the port (must be root user!)

  for (count=1; count<argc; count++){
    c1 = argv[count][0];
    //c1 = wrd1[0];
    i=0;

    while (c1 != '\0') {
      if ((c1 < '9') && (c1 > '0')){
	pos= 1300 + ((c1-48)*50);
      } else {
	pos = 50*(c1-97);
      }
        
      fseek(fonts, pos, SEEK_SET);

      for (j=0; j<8; j++){
	fgets(buff1[j], 8, fonts);
      }

      for (j=0; j<8; j++){
	printf("%s", buff1[j]);
      }

      for (j=0; j<5; j++){
	bin1=0;
	for (k=0; k<8; k++){
	  if (buff1[k][j] == '+')
	    bin1 += ipow(2,k);
	}
	printf("%d, ", bin1);
	portdata = (__u8) (255-bin1);
	outb(portdata, LP_BASE);
	usleep(50000);
      }
      portdata = (__u8) 255;
      outb(portdata, LP_BASE);
      usleep(50000);
      i++;
      //c1 = wrd1[i];
      c1 = argv[count][i];
    }
  }
  fclose(fonts);

  //      outb(portdata, LP_BASE);

  ioperm(LP_BASE, 3, 0);

  return 0;
}