list      p=16F1455        ; list directive to define processor
    #include "p16F1455.inc"        ; processor specific variable definitions
 __CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_ON & _FCMEN_ON
 __CONFIG _CONFIG2, _WRT_OFF & _CPUDIV_NOCLKDIV & _USBLSCLK_48MHz & _PLLMULT_3x & _PLLEN_DISABLED & _STVREN_ON & _BORV_LO & _LPBOR_OFF & _LVP_ON

    errorlevel  -302 , -207             ; suppress message 302 from list file
  banksel OSCCON
  movlw B'00111110'
  movwf OSCCON


  banksel TRISC
  clrf TRISC
  banksel TRISA
  movlw h'FF'
  movwf TRISA
  banksel LATC
  clrf LATC
loopy1:
  banksel PORTA
  btfsc PORTA, 0
  call buttonpress
  goto loopy1


buttonpress:
  banksel LATC
  incf LATC
  btfsc LATC, 4
  clrf LATC
  movlw d'50'
  movwf h'0070'
count1:
  banksel PORTA
  btfss PORTA, 0
  decfsz h'0070',1
  goto count1
  movlw d'50'
  movwf h'0070'
count2:
  banksel PORTA
  btfss PORTA, 0
  decfsz h'0070',1
  goto count2
  return
  
  
  
    end