Pisca LED

; PIC usado #include ; Declarando
#define LED1 PORTA,1
#define LED2 PORTA,2
#define Botao PORTA,0
#define BANK0 BCF STATUS,RP0 ;SETA BANK 0 DE MEMÓRIA
#DEFINE BANK1 BSF STATUS,RP0 ;SETA BANK 1 DE MAMÓRIA

ORG 0

INICIO BANK0 ;acessando o banco de memoria 0 CLRF PORTA ;limpando PORTA CLRF PORTB ;limpando PORTB BANK1 ;acessando o banco de memoria 0 MOVLW B'0010001' MOVWF TRISA ;Dizendo para o TRISA quem será a entrada e a saida MOVLW B'00000000' MOVWF TRISB ;Dizendo para o TRISB quem será a entrada e a saida

BANK0 MOVLW B'00000111' ;DEsativando os comparadores analogicos MOVWF CMCON MOVLW B'00000110' ;"salvando no work" para depois inverter os led;00000110 ;

MAIN BSF LED1 ; Acender LED 1 BCF LED2 ; Apagar LED 2
LOOP
BTFSC Botao ;Se 0 pule a instruçao GOTO LOOP ;Faz "voltar" para o LOOP XORWF PORTA, 1 ; Para as portas irá o XOR do que ta salvo no Work e segue p prox linha 00001010
LOOP2
BTFSS Botao ;Se 1 pule a instruçao GOTO LOOP2 GOTO LOOP ; Volta para o LOOP

END

;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
;* BOTÃO E LED - EX1 *
;* DESBRAVANDO O PIC *
;* DESENVOLVIDO PELA MOSAICO ENGENHARIA E CONSULTORIA *
;* VERSÃO: 1.0 DATA: 10/10/01 *
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
;* DESCRIÇÃO DO ARQUIVO *
;*-----------------------------------------------------------------*
;* SISTEMA MUITO SIMPLES PARA REPRESENTAR O ESTADO DE *
;* UM BOTÃO ATRAVÉS DE UM LED. *
;*