#use fixed_io(a_outputs=PIN_A4)
#use fixed_io(b_outputs=PIN_B2)
#use standard_io(C)
#define  pwr_led  PIN_A4      // blinking power led
#define  in       PIN_C0      // PIN_C0 is an input
#define  step_out PIN_B2      // PIN_B2 is an output for control
//*** variables ***
static int16 line_num;
int1  pin_stat;
byte  lambda [9];
#locate  lambda=0x50
static int16 counter, delay_count;
#locate  counter = 0x70
#locate  delay_count = 0x73
static int  bptr, bptrdiv;
#locate  bptrdiv=0x7c
#locate  bptr=0x7d
int save_status;
#locate save_status=0x7e
int save_w;
#locate save_w=0x7f
#byte status=3
#bit zero_flag = status.2
#bit t0if = 0xb.2
#bit  intf   = 0x00b.1  //intcon register . intf R=0
#bit  intedg = 0x081.6  //option register . intedg 1=rising 0=faliing R=1

//#INT_GLOBAL
#INT_EXT noclear
void isr()  {
   #asm
   //store current state of processor
   MOVWF save_w
   SWAPF status,W
   BCF   status,5
   BCF   status,6
   MOVWF save_status
   // Save anything else your code may change
   // You need to do something with PCLATH if you have GOTOs

   // remember to check to see what interrupt fired if using more than one!!

   // code for isr
   CLRF  delay_count
   INCF  counter,F
   BTFSC zero_flag
   INCF  (&counter+1),F
   #endasm
   
   if(bptrdiv == 4){
      bptr++;
      if(bptr == 3) bptr++;    //avoiding overwrite '.' sign
      bptrdiv=0;
   }
   delay_us(50);
   if (bptr <= 8)shift_left(&lambda[bptr],1,input(in));
   bptrdiv++;

   #asm
   BCF   intf  //reenable intr
   // restore processor and return from interrupt
   SWAPF save_status,W
   MOVWF status
   SWAPF save_w,F
   SWAPF save_w,W
   #endasm
}

void cpl_pwr_led(){

   if ( pin_stat == 1 ){
      output_bit(pwr_led,0);
      pin_stat=0;
    }
   else{
      output_bit(pwr_led,1);
      pin_stat=1;
    }
}

void main(){
int i,j,k;
   setup_adc_ports(NO_ANALOGS);
   setup_adc(ADC_OFF);
   setup_spi(FALSE);
   setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
   setup_timer_1(T1_DISABLED);
   setup_timer_2(T2_DISABLED,0,1);

   printf("Let's play rock and roll !\r");
   counter = 0;
   bptr = 0;
   bptrdiv =0;

   for (i=0; i<9; i++)
     if (i == 3 ) lambda[i]='.';
     else lambda[i]=0;

   intedg = false;  //int0 to falling edge
   enable_interrupts(INT_EXT);
   enable_interrupts(GLOBAL);

   while (TRUE) {
      while( delay_count != 0 );  // waith for first counter clear
      while( delay_count != 6 ){  // waith for intrs pause >= 18ms
         delay_ms(3);
         delay_count++;
      }

      cpl_pwr_led();

      printf("%5lu ",line_num);
      printf("bits: %5lu LAMBDA : ",counter);
      printf("%U",lambda[0]);
      printf("%C",' ');
      printf("%U",lambda[1]);
      printf("%C",' ');
      printf("%U",lambda[2]);
      printf("%C",' ');
      printf("%C", lambda[3]); //this is a '.' sign
      printf("%C",' ');
      printf("%U",lambda[4]);
      printf("%C",' ');
      printf("%U",lambda[5]);
      printf("%C",' ');
      printf("%U",lambda[6]);
      printf("%C",' ');
      printf("%U",lambda[7]);
      putc(13);
      putc(10);
      line_num++;
      counter = 0;
      bptr = 0;
      bptrdiv = 0;
      for (i=0; i<9; i++)
        if (i == 3 ) lambda[i]='.';
        else lambda[i]=0;
   }
}

int1 asciibuffer[28]; // нее възможно нали?

   #asm
   //store current state of processor
   MOVWF save_w
   SWAPF status,W
   BCF   status,5
   BCF   status,6
   MOVWF save_status
   // Save anything else your code may change
...
   #asm
   BCF   intf  //reenable intr
   // restore processor and return from interrupt
   SWAPF save_status,W
   MOVWF status
   SWAPF save_w,F
   SWAPF save_w,W
   #endasm

shift_left(&lambda[bptr],1,input(in));

shift_left(&променливата,колко байта ще се мести, 1 или 0);

shift_left(lambda[bptr],1,input(in));

shift_left(&lambda[bptr], 1, input(in));

//lambda[0] е със адрес 0x50 и стойност 0
....................       shift_left(&lambda[0],1,input(in));//lambda[0]=0
008A:  BSF    2E.0
008B:  MOVF   2E,W
008C:  BSF    03.5   ;status.5=1   bank #1
008D:  MOVWF  07   ;W -> TRIS C (PIN_C0 = input)
008E:  BCF    03.5   ;status.5=0   bank #0
008F:  BTFSC  07.0   ;if PIN_C0==1 goto 093
0090:  GOTO   093   ;goto 093
0091:  BCF    03.0   ;status.0=0   C=0
0092:  GOTO   094   ;goto 094
0093:  BSF    03.0   ;status.0=1   C=1
0094:  RLF    50,F   ;RAM addr(0x50) = RAM addr(0x50) << C

//lambda[0] е със адрес 0x50 и стойност 0
....................       shift_left(lambda[0],1,input(in));//lambda[0]=0
008A:  BSF    2E.0
008B:  MOVF   2E,W
008C:  BSF    03.5   ;status.5=1   bank #1
008D:  MOVWF  07   ;W -> TRIS C (PIN_C0 = input)
008E:  BCF    03.5   ;status.5=0   bank #0
008F:  BTFSC  07.0   ;if PIN_C0==1 goto 093
0090:  GOTO   093   ;goto 093
0091:  BCF    03.0   ;status.0=0   C=0
0092:  GOTO   094   ;goto 094
0093:  BSF    03.0   ;status.0=1   C=1
0094:  MOVF   50,W   ;W=lambda[0]
0095:  MOVWF  04   ;FSR=lambda[0]
0096:  RLF    00,F   ;RAM addr(0x00) = { RAM addr(0x00) } << C

shift_left(&lambda[bptr],1,input(in));

byte data[4];
#locate data =0x50;

shift_left(&byte_3, 1, shift_left(&byte_2, 1, shift_left(&byte_1, 1, shift_left(&byte_0, 1, input(in)))));