Форум РадиоКот

Код: Выделить всё

;
;Светофор
;
#include <p16f84.inc>	;подключаем файл определений мк

...
	org	0	;начальный адрес программы
	clrf	INTCON	;запрет всех прерываний
	goto	START	;переход на начало
				
	org	04h	;вектор прерываний
	goto	interrupt	;переход на подпрограмму обработки прерываний
;
START
	bsf	STATUS, RP0	;включаем BANK1
	movlw	b'11111000'	;RA0,RA1,RA2 - выходы
	movwf	TRISA		;запись в TRISA
	movlw	b'00000011'	;RB7..RB2 - выходы
	movwf	TRISB		;запись в TRISB
	movlw	b'00000100'	;определение прескалера для таймера 1:32
	movwf	OPTION_REG	;запись в OPTION_REG
	bcf	STATUS,RP0	;включаем BANK0
	clrw			;обнуляем рабочий регистр
	movwf	PORTA		;устанавливаем на выходах порта А нули(гасим лампы)
	movwf	PORTB		;устанавливаем на выходах порта B нули(гасим лампы)

	movlw	0x3D		;начальное состояние счетчика
	movwf	counter		;в переменную
	movlw	.31		;начальное количество тактов
	movwf	takt		;в переменную

	movlw	b'10100000'	;взводим биты нужных прерываний
	movwf	INTCON		;разрешаем прерывание от таймера и общее разрешение
loop
	goto	loop		;зацикливаемся на метке loop
;************************
;
;************************
interrupt
	btfss	INTCON,T0IF	;проверяем флаг прерывания от таймера
	retfie			;если не таймер, то выходим из п/п

...
m1
	bcf	INTCON,T0IF	;сбрасываем флаг прерывания от таймера
	retfie			;выход из п/п обработки прерывания
;
;Подпрограмма возвращает данные для ламп
;Такты перебираются от 31-го до 1-го и далее, по кругу.
;
;    b'D7 D6 D5 D4 D3 D2 D1 D0'
;
;D0 - красный светофора_1 и светофора_3
;D1 - желтый светофора_1 и светофора_3
...
	end	;конец программы