SAUT AVEC TROIS IMPULSIONS

;;;;;;;;;;;;;;;;;;;;;;;;text du 21/2/2009;;;;;;;;;;;;;;;;;;;;;;;;;;;;


	LIST P=16F84, R=DEC
	#include      "P16F84.INC"

	__CONFIG  _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC
	__IDLOCS  1998h

	

	mavariable  		EQU		h'0C'	
	mavariable1		EQU		h'0D'

	ORG     0x004
	GOTO    proger
;;;;;;;;;;;;;;;;;;;;;;;;; zorne des souprogrammes;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        BANK0 	macro
	bcf 	STATUS,RP0 		; passer en banque 0
	endm

	BANK1 	macro
	bsf 	STATUS,RP0 		; passer en banque1
	endm

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  proger			; contiguration des ports du pic 

 
	BANK1			; 1 pour dit en entrée OU 0 en sortie 
	movlw	b'00011'	;  0     0     0     1    1
	movwf	TRISA		;  A4    A3    A2    A1   A0
	movlw	b'0'		;  0     0     0     0    0    0     0     0     
	movwf	TRISB		;  B7    B6    B5    B4   B3   B2    B1    B0
        BANK0
	
	clrf	PORTA		; effacé les ports du pic portA
	clrf	PORTB
               
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  programm    
        btfss PORTA,0
        call  on_off 
        btfss PORTA,1
        call  on_off1                    
          goto programm


;;;;;;;;;;;;;;;;;;;;;;;;; zorne des souprogrammes1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on_off
        btfss PORTA,0
        goto  $-1
        btfsc PORTB,1
	goto	$+2
	goto	$+5  
	bcf   PORTB,1
        bcf   PORTB,2
        bcf   PORTB,3
	RETURN
	bsf   PORTB,1
        bsf   PORTB,2
        bsf   PORTB,3
	RETURN
   
on_off1      
        btfss PORTA,1
        goto  $-1
        btfsc PORTB,4
	goto	$+2
	goto	$+4 
	bcf   PORTB,4
        bcf   PORTB,5
	RETURN
	bsf   PORTB,4
        bsf   PORTB,5
	RETURN
    
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       
	
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	END	; fin du proget