;***************************************************************************************************
;file type: ASM. ;
;processor: PIC16F84. ;
;program Description: accelerated counting in response to push button ;
;Author: king_rero ;
;contact: [email]king_rero@yahoo.co.uk[/email] ;
;done date: 19-jan-2007 9:09 AM ;
;***************************************************************************************************
;tested on Proteus 6 Professional Release 6.9 SP4 with advanced Simulation ;
;***************************************************************************************************
list p=16f84
radix hex
#DEFINE BANK0 BCF STATUS,5
#DEFINE BANK1 BSF STATUS,5
STATUS EQU 3
TRISA EQU 5
PORTA EQU 5
TRISB EQU 6
PORTB EQU 6
COUNT EQU H'20'
DELA EQU H'21'
ORG 0
BANK1
movlw B'00000001'
movwf TRISA
clrf TRISB
BANK0
BEGIN clrf COUNT
btfss PORTA,0
goto BEGIN
LOOP
btfss PORTA,0
call DELAY
incf COUNT,1
movf COUNT,W
movwf PORTB
goto LOOP
DELAY movlw 0x0f
movwf DELA
LOOP1 decfsz DELA,1
goto LOOP1
return
end