LIST P=12F675
INCLUDE
ORG 00
BANK1 MACRO
BSF STATUS,5
BCF STATUS,6
ENDM
BANK0 MACRO
BCF STATUS,5
BCF STATUS,6
ENDM
CONTADOR1 EQU 20H
CONTADOR2 EQU 21H
CONTADOR3 EQU 22H
ORG 05
SETUP
BANK1
MOVLW 0x03
MOVWF TRISIO
BANK0
MOVLW 0xFF
MOVWF CONTADOR1
MOVLW 0xFF
MOVWF CONTADOR2
MOVLW B'0000100'
MOVWF CONTADOR3
GOTO LOOP
SALTO DECFSZ CONTADOR1
GOTO SALTO
DECFSZ CONTADOR2
GOTO SALTO
DECFSZ CONTADOR3
GOTO SALTO
RETURN
DIGIO
BTFSC GPIO,0
CALL LOOP
GOTO DIGIO
LOOP
BSF GPIO,5
MOVLW 0x04
MOVWF CONTADOR3
CALL SALTO
BCF GPIO,5
MOVLW 0x04
RETURN
END

No comments:
Post a Comment