Programação Lâmpada De Led E Semáforo

LED com interrupção externa

#INCLUDE P16F628A.INC

ORG 0X00

GOTO CONFIGUR

ORG 0X04

GOTO INTERRUPT

CONFIGUR

BSF STATUS,RP0

BSF TRISA,RA0

BSF INTCON,GIE

BSF INTCON,INTE

BCF STATUS,RP0

LOOP NOP

GOTO LOOP

INTERRUPT

BCF INTCON,GIE

BCF INTCON,INTF

MOVLW 0X01

XORWF PORTA,PORTA

RETFIE

END

SEMAFORO

#INCLUDE P16F628A.INC

#DEFINE d1 0X21

#DEFINE d2 0X22

#DEFINE d3 0X23

#DEFINE VERDE PORTA,RA2

#DEFINE AMARELO PORTA,RA1

#DEFINE VERMELHO PORTA,RA0

ORG 0X00

GOTO CONF

ORG 0X04

GOTO LIGA

RETFIE

;CONF

BSF STATUS,RP0

CLRF TRISA

BCF STATUS,RP0

LOOP

BSF VERDE

CALL Delay3s

BCF VERDE

BSF AMARELO

CALL delay1S

BCF AMARELO

BSF VERMELHO

CALL Delay3S

BCF VERMELHO

GOTO LOOP

;Gasta 2999995 cycles

Delay3s

MOVLW 0X1A

MOVWF d1

MOVLWOX8

MOVWF d2

MOVLW 0X07

MOVWF d3

Delay_03

DECFSZ d1,F

GOTO $+2

DECFSZ d2,F