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

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

; Где-то внутри главного цикла
	mov	DPTR,#AT_CMGS			; Загружаем адрес 1 символа команды
	call    Send_comm
;=======
Send_comm:                                              ; Подпрограмма отправки
	clr	A                                       ; Очистим АСС
	movc	A,	@A+DPTR                         ; Поместим очередной символ команды в АСС	
	mov	SBUF,	A                               ; Скопируем его в буфер передатчика
	jnb     TI,$                    		; Нет флага ТІ (окончания посылки) - топчемся на месте
   clr	TI					; Был флаг ТІ, байт ушел, сбросим флаг ТІ
	inc	DPTR                                    ; Возьмем следующий символ
	jnz	Send_comm			; Если конец команды, выходим
	ret
;=======
Serial_int:						; Обработчик прерываний посл. порта
	clr	EA					; Запретим все прерывания
	jb	RI,	Receive				; Если есть флаг RI, значит это прием
	jmp     Serial_end
Receive:						; Это прием
	mov	A,	SBUF				; Это прием, примем байт
	clr	RI					; Сбросим флаг RI
Serial_end:
	setb	EA					; Разрешим все прерывания
	reti

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

irpc   Pass,   123
   db   'Pass'
endm

транслируется вот в это:
Код:
db   '1'
db   '2'
db   '3'

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

; Для начала надо сконфигурировать системный таймер, чтобы он генерировал нам системные тики. У меня за один тик принята 1мс.
; Поэтому я настраиваю таймер таким образом, чтобы он мне каждую миллисекунду генерировал прерывание. А вот в его прерывании мы и учиним беспредел.

bank_0	macro
	anl	PSW,	#11100111b
	endm

bank_3	macro
	orl	PSW,	#00011000b
	endm

Frequency	equ	12000
Koeficient	equ	12000/Frequency
Timer_Period    equ     64542*Koeficient		; for 1 ms
TH_def          equ     high(Timer_Period)
TL_def          equ     low(Timer_Period)
Num_of_Timers	equ	6                       	; количество софт-таймеров, до 8 шт. больше не хватает быстродействия контроллера
Timer_1_Task	equ	3Fh                             ; адрес задачи 1 таймера, следующий адрес - младший байт таймера, следующий - старший байт таймера, следующий - адрес задачи 2 таймера и т.д. Каждый следующий адрес - на 1 меньше предыдущего
Timer		equ     3h
Timers_Counter  equ     R2                              ; 3 банка
Timer_Pointer   equ     R1                              ; 3 банка
Tail_           equ     R1                              ; 0 банка

cseg

Timer0:                                                 ; Timer0 interrupt heandler
	mov	TH0,	#TH_def                         ; перезагрузим таймер
	mov	TL0,    #TL_def
	push	ACC
	push	PSW                                     ; сохраним рабочий банк памяти
	bank_3                                          ; выберем 3 банк
	mov	Timers_Counter,#Num_of_Timers		; загрузим количество софт-таймеров
	mov	Timer_Pointer,#Timer_1_Task		; загрузим адрес задачи 1 софт-таймера
Next_Timer:
	mov	A,	@Timer_Pointer                  ; загрузим в АСС номер задачи этого софт-таймера
	jz	Skip_Set_Task                           ; если 0 - пропускаем этот софт-таймер
	dec	Timer_Pointer                           ; выберем младший байт этого софт-таймера
	mov	Timer,	@Timer_Pointer			; загружаем содержимое младшего байта софт-таймера в проверяемую ячейку
	djnz	Timer,	Skip_Set_Task_2			; проверяем, и если не ноль - пропускаем установку флага этого таймера
	mov	@Timer_Pointer,Timer			; обновим содержимое младшего байта софт-таймера
	dec	Timer_Pointer				; младший байт таймера = 0, вибираем старший байт
	mov	Timer,	@Timer_Pointer			; загружаем содержимое старшего байта софт-таймера в проверяемую ячейку
	djnz	Timer,	Skip_Set_Task_3			; проверяем, и если не ноль - пропускаем установку флага этого таймера
	bank_0
	mov	@Tail_,	A				; загрузим в конец очереди номер задачи этого софт-таймера
	dec	Tail_					; подвинем хвост для следующей задачи
	bank_3
	inc	Timer_Pointer                           ; вернем ячейку номера задачи
	inc	Timer_Pointer
	mov	@Timer_Pointer,#0                       ; и обнулим номер задачи
Skip_Set_Task:
	dec	Timer_Pointer                           ; пропускаем младший байт этого софт-таймера
	dec	Timer_Pointer                           ; пропускаем старший байт этого софт-таймера
Next_Timer_2:
	dec     Timer_Pointer                           ; берем следующий софт-таймер
	djnz	Timers_Counter,Next_Timer		; перебор всех софт-таймеров
	pop	PSW                                     ; восстановим банк памяти
	pop     ACC
	reti
Skip_Set_Task_2:
	mov     @Timer_Pointer,Timer			; обновим содержимое младшего байта софт-таймера
	dec     Timer_Pointer                           ; пропускаем старший байт этого софт-таймера
	jmp     Next_Timer_2
Skip_Set_Task_3:
	mov     @Timer_Pointer,Timer			; обновим содержимое старшего байта софт-таймера
	jmp     Next_Timer_2
end