Codigo SPI Prueba
Codigo SPI Prueba
Codigo SPI Prueba
PROCESSOR P16F887
INCLUDE <P16F887.INC>
__CONFIG _CONFIG1, (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF &
_CP_OFF & _CPD_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF & _LVP_OFF & _DEBUG_OFF)
__CONFIG _CONFIG2, (_WRT_OFF & _BOR40V)
;METODO 1
;C_P MOVLW 0x01 ;CICLO PRINCIPAL
; MOVWF PORTB
; CALL RET
; MOVLW 0x02
; MOVWF PORTB
; CALL RET
; MOVLW 0x04
; MOVWF PORTB
; CALL RET
; MOVLW 0x08
; MOVWF PORTB
; CALL RET
; MOVLW 0x10
; MOVWF PORTB
; CALL RET
; MOVLW 0x20
; MOVWF PORTB
; CALL RET
; MOVLW 0x40
; MOVWF PORTB
; CALL RET
; MOVLW 0x80
; MOVWF PORTB
; CALL RET
; MOVLW 0x40
; MOVWF PORTB
; CALL RET
; MOVLW 0x20
; MOVWF PORTB
; CALL RET
; MOVLW 0x10
; MOVWF PORTB
; CALL RET
; MOVLW 0x08
; MOVWF PORTB
; CALL RET
; MOVLW 0x04
; MOVWF PORTB
; CALL RET
; MOVLW 0x02
; MOVWF PORTB
; CALL RET
; GOTO C_P
;METODO 2
;C_P MOVLW 0x01 ;CICLO PRINCIPAL
; MOVWF PORTB
; RLF PORTB,F
; CALL RET
; RLF PORTB,F
; CALL RET
; RLF PORTB,F
; CALL RET
; RLF PORTB,F
; CALL RET
; RLF PORTB,F
; CALL RET
; RLF PORTB,F
; CALL RET
; RLF PORTB,F
; CALL RET
; RRF PORTB,F
; CALL RET
; RRF PORTB,F
; CALL RET
; RRF PORTB,F
; CALL RET
; RRF PORTB,F
; CALL RET
; RRF PORTB,F
; CALL RET
; RRF PORTB,F
; CALL RET
; RRF PORTB,F
; CALL RET
;
; GOTO C_P
;METODO 3
MOVLW 0x01 ;CICLO PRINCIPAL
MOVWF PORTB
CALL RET
C_1 BCF STATUS,C
RLF PORTB,F
CALL RET
MOVF CONTA,W
INCF CONTA,F
MOVLW 0x07
SUBWF CONTA,W
BTFSS STATUS,Z
GOTO C_1
CLRF CONTA
C_2 BCF STATUS,C
RRF PORTB,F
CALL RET
MOVF CONTA,W
INCF CONTA,F
MOVLW 0x07
SUBWF CONTA,W
BTFSS STATUS,Z
GOTO C_2
CLRF CONTA
GOTO C_1
END ;FIN