Svenska ElektronikForumet

Kod: Markera allt

	
    list		p=16f690		; list directive to define processor
	#include	<P16F690.inc>		; processor specific variable definitions
	
	__CONFIG    _CP_OFF & _CPD_OFF & _BOR_OFF & _PWRTE_ON & _WDT_OFF & _INTRC_OSC_NOCLKOUT & _MCLRE_ON & _FCMEN_OFF & _IESO_OFF

	cblock	0x20
		swStat
		counter
		delayCount1
		delayCount2
	endc




;**********************************************************************
	ORG		0x000			; processor reset vector
  	goto		Start			; go to beginning of program


Start
	clrf	swStat
	clrf	PORTC
	bsf		STATUS,RP0		; select bank 1
	bsf		TRISA,3
	clrf	TRISC			; set all Port C output
	
	bcf		STATUS,RP0		; back to bank 0

Released
	bsf		swStat,0
	movf	swStat,w
	movwf	PORTC
	clrf	counter
ReleasLoop
	btfss	PORTA,3			; if pressed
	goto	$-2				; clear counter if not pressed

	incf	counter			; increment counter
	movlw	0x05			; compare to 5
	subwf	counter,w
	btfsc	STATUS,Z
	goto	Pressed

	goto	Delay

Pressed
	bcf		swStat,0
	movf	swStat,w
	movwf	PORTC
	clrf	counter
PressLoop
	btfsc	PORTA,3
	goto	$-2

	incf	counter
	movlw	0x05
	subwf	counter,w
	btfsc	STATUS,Z
	goto	Released

	goto	Delay

Delay
	movlw	0x07
	movwf	delayCount1
DelayLoop
	decfsz	delayCount2
	goto	DelayLoop
	decfsz	delayCount1
	goto	DelayLoop

	btfsc	swStat,0
	goto	ReleasLoop
	
	goto	PressLoop

	END

Kod: Markera allt

#include <p16F690.inc>
     __config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF)

     cblock     0x20
Delay               ; Assign an address to label Delay1
Display             ; define a variable to hold the diplay
LastStableState     ; keep track of switch state (open-1; closed-0)
Counter
     endc
     
     org 0
Start:
     bsf       STATUS,RP0          ; select Register Page 1
     movlw     0xFF
     movwf     TRISA               ; Make PortA all input
     clrf      TRISC               ; Make PortC all output

     bcf       STATUS,RP0          ; address Register Page 2
     bsf       STATUS,RP1     
     movlw     0xF7                ; PortA3 pin is digital
     movwf     ANSEL
     bcf       STATUS,RP0          ; address Register Page 0
     bcf       STATUS,RP1
     
     clrf      Display
     clrf      PORTC
     movlw     1
     movwf     LastStableState     ; Assume the Switch is up.
     clrf      Counter
MainLoop:
     btfsc     LastStableState,0
     goto      LookingForUp
LookingForDown:
     clrw                          ; assume it's not, so clear
     btfss     PORTA,3             ; wait for switch to go low
     incf      Counter,w           ; if it's low, bump the counter
     movwf     Counter             ; store either the 0 or incremented value
     goto      EndDebounce
     
LookingForUp:
     clrw                          ; assume it's not, so clear
     btfsc     PORTA,3             ; wait for switch to go low
     incf      Counter,w
     movwf     Counter

EndDebounce:
     movf      Counter,w           ; have we seen 10 in a row?
     xorlw     5
     btfss     STATUS,Z     
     goto      Delay1mS
     
     comf      LastStableState,f   ; after 10 straight, reverse the direction
     clrf      Counter
     btfss     LastStableState,0   ; Was it a key-down press?
     goto      Delay1mS            ; no: take no action
     
     incf      Display,f           ; if it's the down direction, 
     movf      Display,w           ; take action on the switch
     movwf     PORTC               ; (increment counter and put on display)
     
Delay1mS:
     movlw     .71                 ; delay ~1000uS
     movwf     Delay
     decfsz    Delay,f             ; this loop does 215 cycles
     goto      $-1          
     decfsz    Delay,f             ; This loop does 786 cycles
     goto      $-1
     goto      MainLoop
     end

Kod: Markera allt

#ifdef __DEBUG
	__config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF)
#else
	__config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF)
#endif