int base0=0x378;
int base1=base0+1;
int base2=base0+2;

unsigned char S3=0x08;  
unsigned char S4=0x10;  
unsigned char S5=0x20;  
unsigned char S6=0x40;  
unsigned char S7=0x80;  
 
/***************************************
15	Error	      In	Status-3	No	0x08
13	Select	In	Status-4	No	0x10
12	PapOut	In	Status-5	No	0x20
10	Ack	     In	Status-6	No	0x40
11	Busy	     In	Status-7	Yes	0x80
****************************************/
int IBM1401NotReady = 0x00;
int IBM1401Ready    = 0x80;

int strobeHigh=0xff;	
int strobeLow=0x00;
int IBMStrobe=0x80;

void PC_Strobe(void)
{
  int	i;
  		
  for(i=0;i<strobeClocks;i++)
  {
    Out32(base2,strobeHigh);   //ff          
  }
  for(i=0;i<strobeClocks;i++)
  {
    Out32(base2,strobeLow);    //0         
  }
  return;
}
int get_1401_Ready(void)
{
  //now wait for the strobe to go active
   
  dataBase1   = Inp32(base1);      //get 1401  status
  IBM1401Flag = (dataBase1 & S7);  //pick up the bit
        
  while(IBM1401Flag == IBM1401NotReady) //look for 1401  to go active
  {
    printf("C2 data = %2.2x Output Count = %5.5d Flag = %c\r",
    dataBase1,outCount,flags[(flagCount/100)]);
    flagCount++;
    if(flagCount == 400)flagCount=0;
    Sleep(1);                 //wait a while then check again
    dataBase1=Inp32(base1);    //get 1401 strobe status
    IBM1401Flag=(dataBase1 & S7);
  }
  //
  //strobe went active
  //
  return(0);
}