#include <config.h>
#include <binary.h>
#include <stdio.h>
delay(int x) {
  int i;
  for(i=0;i<x*100;i++) asm(" nop");
}



#define C1H b00000001
#define C1N b00000000
#define C1L b00000010

#define C2H b00000100
#define C2N b00000000
#define C2L b00001000
int __portj;
main() {
  int dly,ch,i,dir,pos,stop;
  float d;
  
  static step[8] = {C1H | C2H, C1H | C2N, C1H | C2L, C1N | C2L, C1L | C2L, C1L | C2N, C1L | C2H, C1N | C2H};

  d = 1000.;
  pos = 0;
  stop = 0;
  while(1) {
    for(i=0;i<8;i++) {
      pos += (dir)?1:-1;
      dly = d;
      if (!stop) WRITE_PORTJ(step[pos & 7]); delay(dly);
      if (char_ready(iochana)) {
	ch = getc(iochana);
	if (ch == 'z') d /= 1.03;
	if (ch == 'x') d *= 1.03;
	if (ch == 'f') dir = 1;
	if (ch == 'r') dir = 0;
	if (ch == 's') stop= !stop;
	printf("%f\n",d);
      }
      if (char_ready(iochanb)) {
	ch = getc(iochanb);
	if (ch == 'z') d /= 1.03;
	if (ch == 'x') d *= 1.03;
	if (ch == 'f') dir = 1;
	if (ch == 'r') dir = 0;
	if (ch == 's') stop= !stop;
	fprintf(iochanb,"%f\n",d);
      }
    }
    printf("%d ",pos);
    fprintf(iochanb,"%d ",pos);
  }

}