Aduc842 генератор прямоугольных импульсов

T2CON EQU 0xC8 ; управление Т/С2
TR2 EQU 0xCA ;бит управления Т/С2
TF2 EQU 0xCF ;флаг переполнения/прерывание Т/С2
TH2 EQU 0xCD ;старший байт Т/С2
TL2 EQU 0xCC ;младший байт Т/С2
RCAP2H EQU 0xCB ;старший байт доп. регистра Т/С2
RCAP2L EQU 0xCA ;младший байт доп. регистра Т/С2
T3CON EQU 0x9E ;регистр управления T3CON T/С3
T3FD EQU 0x9D ;регистр управления T3FD T/С3
DACCON EQU 0xFD ;конфигурирование ЦАП
DAC0L EQU 0xF9 ;мл. байт данных ЦАП0
DAC0H EQU 0xFA ;ст. байт данных ЦАП0
;указание адресов переменных
FP EQU 0x43 ;флаг приема байтов из порта
numberbait EQU 0x74 ;счетчик байтов из порта
 
ORG 0x00 ;начало выполнения программы с адреса 0x00
AJMP setup ;переход на setup
ORG 0x23 ;адрес вектора прерывания от UART порта
AJMP int_uart ;переход на подпрогр. обработки прерыв. от UART-порта
ORG 0x2B ;адрес вектора прерывания от таймера 2
AJMP int_timer2 ;переход на подпрогр. обработ. прерыв. от таймера 2
ORG 0x30 ;адрес основной программы
 
setup:
mov SCON,#01010000b ;инициализация UART-порта
mov T3CON,#0x82 ;установка скорости UART-порта
mov T3FD,#0x2d ;установка скорости UART-порта
mov T2CON,#00000000b ;конфигурирование T/С2
MOV DACCON,#00000101b ;конфигурирование ЦАП.
;PD0= 1- ЦАП вкл., SYNC =1-бит синхронизации ЦАП0/1
;ЦАП изменяется, когда данные попадают на регистры DACxL SFR.
MOV DAC0H,#0x06 ;установка выхода ЦАП0=1В
MOV DAC0L,#0x66
mov IE,#10110000b ;разрешаем запрос от последовательного порта.
;даем разрешение на вссе запросы
 
mov numberbait,#3 ;счетчик байтов из порта
mov R1,#0xda
mov R2,#0xc3
mov R3,#16
mov A,R3 ;запись байта 3 в аккумулятор
mov R5,A ;запись аккумулятора в R5 для таймера 2
mov RCAP2H,R1 ;загрузка байта 1 из рег. R1 в таймер 2
mov RCAP2L,R2 ;загрузка байта 2 из рег. R2 в таймер 2
main:
SETB TR2 ;запуск таймера 2
JNB FP,$ ;ожидание прерывания от порта
CLR FP ;сброс флага приема байта
CJNE R4,#3, main ;переход на main пока не будет принято 3 байта
AJMP main ;переход на main
 
;подпрограмма обработки прерывания от таймера 2
int_timer2:
DJNZ R5,out_int_timer2 ;R5:=R5-1 и п. на out_int_timer2, если не равно 0
MOV A,DACCON ;запись в аккум. рег. управления ЦАП
CPL Acc.3 ;инверсия бита №3 (сброс ЦАП0, 0=0В, 1=1В)
MOV DACCON,A ;запись результата в рег. управления ЦАП
MOV A,R3 ;восстановление R5 из R3
MOV R5,A
CLR TF2 ;сброс прерывания от таймера 2
 
out_int_timer2: clr TF2 ;сброс прерывания от таймера 2
reti ;выход из подпрограммы обработки прерывания таймера 2
;подпрограмма обработка прерывания от UART порта
int_uart:
clr RI ;сброс флага прерывания приемника порта
dec numberbait ;счетчик байтов numberbait:=numberbait-1
mov R4,numberbait ;запись numberbait в регистр R4
cjne R4,#2, Bait2 ;если R4 не равно 2, то переход на m1
mov R1,SBUF ;считывание байта 1 из порта
setb FP ;установка флага считывания байта
reti ;выход из прерывания порта
Bait2:
cjne R4,#1, Bait3 ;если R4 не равно 1, то переход на m2
mov R2,SBUF ;считывание байта 2 из порта
setb FP ;установка флага считывания байта
reti ;выход из прерывания порта
 
Bait3:
mov R3,SBUF ;считывание байта 3 из порта
setb FP ;установка флага считывания байта
mov numberbait,#3 ;восстановление счетчика байтов nb:=3
reti ;выход из прерывания порта
END ;конец программы

mov R1,#0xda
mov R2,#0xc3