Основы программирования микроконтроллеров ATMega128 и 68hc908. Китаев Ю.В. - 28 стр.

UptoLike

ВУЗ: 

Университет ИТМО | Санкт-Петербург

Составители: 

Рубрика: 

Снова компилируем, полученную на этом этапе программу . В этот
момент она должна иметь следующий вид:
program myATMega128;
{ $BOOTRST $0F000} {Reset Jump to $0F000}
{$NOSHADOW}
{ $W+ Warnings} {Warnings off}
Device = mega128, VCC=5;
Import ;
From System Import ;
Define
ProcClock = 6000000; //== частота основного кварц.резонатора - 6МГц
StackSize = $0064, iData; //== для временного хранения адресов возврата и
др.
FrameSize = $0064, iData; //== для хранения локальных переменных и
//== фактических параметров
Implementation
{$IDATA}
{--------------------------------------------------------------}
{ Type Declarations }
type
{--------------------------------------------------------------}
{ Const Declarations }
{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
{--------------------------------------------------------------}
{ functions }
{--------------------------------------------------------------}
procedure Init_Ports; //== задаем направления передачи данных через порты,
begin //== а также начальные значения
DDRD:=%10001111;//== PD0..PD3 выводим "бегущий 0", PD4..PD6
считываем код возврата
//== линия PORTD.7 подключена к пъезодинамику, поэтому
настроим ее на вывод
DDRC:=$FF; //== порт C на вывод 8-ми сегментного кода
DDRE:=%11110000;//== бит7 порта E (LED) на вывод(по RESET'у все
порты настроены на ввод)
//== 6,5,4 биты на базы транзисторов, коллекторы к общим
анодам индикаторов
PORTE:=%11111111;//== гасим индикаторы, подавая на их аноды нули
через инверторы
end;
28

Страницы