Листинг программы

start: do;

include(reg51.dcl)

declare

DZY byte (65526) auxiliry,

(adr1, adr2) word,/* адрес считываемой ячейки, адрес записываемой ячейки*/

P bit (128),

(temp, delay, t, sec, min, hour, day, month, num_dat, f1,f2) byte,

m(13) byte, ms(16) byte, /* m-массив для месяцев года, ms-массив с предыдущими состояниями датчиков*/

ms11 word constant(1272),

comand byte, /*команды от компьютера*/

input byte, /* считываемый вход*/

adr word;

/*-------------------------------------------------------*/

Init: procedure;

delay=20;

t=0;

sec=0;

min=0;

hour=0;

day=0;

month=1;

m(1)=31;/*январь*/

m(2)=28;/*февраль*/

m(3)=31;/*март*/

m(4)=30;/*апрель*/

m(5)=31;/*май*/

m(6)=30;/*июнь*/

m(7)=31;/*июль*/

m(8)=31;/*август*/

m(9)=30;/*сентябрь*/

m(10)=31;/*октябрь*/

m(11)=30;/*ноябрь*/

m(12)=31;/*декабрь*/

P0=0ffh;/*настройка портов на вход*/

P1=0ffh;/* настройка портов на вход*/

P2=0ffh;/* настройка портов на вход*/

P3=0ffh; /* настройка портов на вход*/

/*XTAL=12MHz кварцевый резонатор*/

TMOD=21h; /*Счётчики Т/С0 - 1 реж и Т/С1 во 2-м режиме*/

SCON=60h; /*UART во втором режиме*/

TL0=0AFh; /*Переполнение счётчика 0*/

TH0=03Ch; /* через 50мс при 12МГц*/

TL1=0F3h; /*счётчик1 - генератор частоты*/

TH1=0F3h; /*обмена скорости с ЭВМ, 2400 Бод*/

IE=09Ah; /*Разрешение прерываний 1001 1010 разрешение прерывания от УАПП*/

IP=2; /*Приоритеты прерываний: Т/С0=1, Т/С2=0, SBUF=0*/

End ;

/*----------------------------------------------------------*/

timer0:procedure interrupt1;

do;

/*часы реального времени*/

TL0=0AFh; /*Переполнение счётчика 0 через 50мс при 12МГц*/

TH0=03Ch; /*загрузили 15535 в таймер, переполнение ч/з 50000*/

if ((t=t+1)=20) /* 1 секунда после 20 срабатываний*/

then

do;

t=0;

if (f1=1) then P3.3=not(P3.3); /*бит порта*/

if (f2=1) then P3.4= notP3.4;

sec=sec+1; then

if (sec)=60 /*подсчёт секунд*/

do;

sec=0;

min=min+1; then

if (min)=60 /*подсчёт минут*/

do;

min=0;

hour= hour+1; then

if (hour)=24 /*подсчёт часов*/

do;

hour=0;temp=m(month)+1;

day= day+1; then

if (day)=temp) /*подсчёт дней*/

do;

day=1;

month= month+1; then

if (month)=13 /*подсчёт месяцев*/

month=1; do;

end;

end;

end;

end;

end;

end timer0;

/*---------------------------------------------------------*/

uchar Scan_Dat(uchar ndat) /* процедура сканирования датчика */

uchar nbyte,nbit,p,s;

call init;

do while 1;

nbyte=ndat/8; /*вычисляем номер байта*/

nbit=(ndat mod8); /*вычисляем номер бита*/

P1=ndat; /*выбираем датчик № ndat*/

s=P3; /*считываем порт Р3*/

s=80h and SHL(ms(nbyte),(8-nbit)); /*1000 0000 массив состояния каждого датчика*/

p=(80h and(SHL(p,2))); /*0001 0000 << 3 = 1000 0000*/

yes=0;

then

end;

if (p(ndat)=1)and(s=0) then /* смотрим было ли изменение состояния*/

do;

yes=1; /*было изменение состояния*/

p(ndat)=0;

end;

if (p(ndat)=0)and(s=1) then

do;

yes=1;

p(ndat)=1;

end;

return s;

end;

/*---------------------------------------------------------*/

Serial: procedure interrupt 4//подпрограмма прерывания от УАПП

do; /*0xAA=0b10101010*/

if (SBUF=0AAh) then /*если принятое число равно 0xAA - установка времени*/

end;

/***-----------------------------------------------------***/

uchar sob;

adr=0;

call init;

TCON=0F0h; /*Разрешение работы счётчиков 0 и 1*/

do while (I);

do;

/*Блок чтения*/

do while (not(RI)); /*RI=1 когда передача от ЭВМ к УАПП закончена*/

sec=SBUF;

end;

RI=0;

do while (not(RI)); /*RI=1 когда передача от ЭВМ к УАПП закончена*/

min=SBUF;

end;

RI=0;

do while(not(RI)); /*RI=1 когда передача от ЭВМ к УАПП закончена*/

hour=SBUF;

end;

RI=0;

do while(not(RI)); /*RI=1 когда передача от ЭВМ к УАПП закончена*/

day=SBUF;

end;

RI=0;

do while(not(RI)); /*RI=1 когда передача от ЭВМ к УАПП закончена*/

month=SBUF;

RI=0;

end;

if SBUF=0DDh then /* цикл передачи данных*/

do;

if fl_per=1 then

do;

i=0;

do while i<=adr+6;

sbuf=DZY(i);

i=i+1;

call time(50);

end;

end;

end;

do;

/* формат хранения:*/

/* 0000 0000 - номер датчика*/

/* хх00 0000 - секунды*/

/* хх00 0000 - минуты*/

/* ххх0 0000 - часы*/

/* 0хх0 0000 - событие 1-0/день*/

/*хххх 0000 - /*зянятость ячейки/месяц*/

/*опрос датчика*/

sob=Scan_Dat(num_dat); /*событие от датчика 1000 0000 или 0000 0000*/

if (yes) then do; /*если у датчика изменение состояния*/

do; /*то производим его запись*/ DZY(adr)=num_dat; /*запись номера датчика*/

ms11=ms11-1;

while (ms11); /*пауза 11 мс*/

DZY(adr+1)=sec; /*запись секунд*/

ms11=ms11-1;

while (ms11); /*пауза 11 мс*/

DZY(adr+2)=min; /*запись минут*/

ms11=ms11-1;

while (ms11); /*пауза 11 мс*/

DZY(adr+3)=hour; /*запись часов*/

ms11=ms11-1;

while (ms11); /*пауза 11 мс*/

DZY (adr+4)=day and sob; /*запись дней*/

ms11=ms11-1;

while (ms11); /*пауза 11 мс*/

DZY(adr+5)=month; /*запись месяца*/

ms11=ms11-1;

while (ms11); /*пауза 11 мс*/

adr=adr+6; /* увеличение адреса для записи в память, следующая запись через 6 ячеек*/

end;

f1=0; f2=0;

if (adr>07FFFh) then f1=1; /* Flash переполнена, включ. моргание светодиода 1*/

else f2=1; /*включ. моргание светодиода 2*/

num_dat=num_dat+1; /*увеличение номера датчика*/

end;

end; /*while(1)*/

/*-----------------------------------------------------*/

Заключение

При выполнении данной курсовой работы был изучен однокристальный микроконтроллер Intel 80C51, Flash - память производства корпорации Atmel, приобретены навыки программирования однокристальных контроллеров. При написании и отладке программного обеспечения был изучен симулятор микроконтроллеров семейства MCS'51 Keil uVision 2.

Приложение

Размещено на Allbest.ru