LIST p=16F88
include "P16F88.inc"
__config _CONFIG1, _WDT_OFF & _MCLR_ON & _LVP_OFF
TIMER1 EQU 0x20
TIMER2 EQU 0x21
org 0x00 ;start of program
init
banksel OPTION_REG ;bank 1
movlw 0x42 ;8MHz internal osc
movwf OSCCON
clrf ANSEL ;all A pins digital
movlw 0x00 ;all A pins outputs
movwf TRISA
movlw 0xFF ;all B pins inputs
movwf TRISB
movlw 0x00 ;PORTB pull up
movwf OPTION_REG
banksel PORTA ;select bank 0
clrf PORTA
main
bsf PORTA,6
call delay
bcf PORTA,6
call delay
btfss PORTB,4
goto main
;____________________________________
delay
MOVLW D'1'
MOVWF TIMER1
DELAY2
MOVLW D'2'
MOVWF TIMER2
DECFSZ TIMER2,F
GOTO $-1
DECFSZ TIMER1,F
GOTO DELAY2
RETLW 0
end