Программирование МК на ассемблере ASM-51 и AVR Pascal. Китаев Ю.В. - 11 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

11
ВАЖНОЕ ПРИМЕЧАНИЕ! После каждой редакции текста
выполняйте сборку проекта кнопкой . Иначе выявить все
накопившиеся ошибки будет трудней.
Проверим, правильность расчета значений, загружаемых в регистры
DDRD и DDRE. Для этого временно включим в программу файл
“testPorts.pas” и сделаем вызов процедуры тестирования в основной
программе. Добавьте в указанные места программы 2 строчки.
Снова компилируем
программу. На данном этапе она должна
иметь следующий вид:
program atMega8888KLM;
{ $BOOTRST $0F000} {Reset Jump to $0F000}
{$NOSHADOW}
{ $W+ Warnings} {Warnings off}
Device = mega128, VCC=5;
Import ;
From System Import ;
Define
ProcClock = 6000000; {Hertz}
StackSize = $0064, iData;
FrameSize = $0064, iData;
Implementation
{$IDATA}
{--------------------------------------------------------------}
{ Type Declarations }
type
{--------------------------------------------------------------}
{ Const Declarations }
{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
var s:array[0..2]of byte;key,kn:byte; adccode:word;
{--------------------------------------------------------------}
{ functions }
{$I C:\EMUL\Work\KeyLib4PascaL.pas}//== ДОБАВИТЬ
САМОСТОЯТЕЛЬНО
{$I C:\EMUL\Work\testPorts.pas}//== только для тестирования

Страницы