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

UptoLike

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

Рубрика:

Рис.1.22. Отображение кода нажатой клавиши на ЖКД

Снова компилируем, полученную на этом этапе программу

. В этот

момент она должна иметь следующий вид

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 }

{--------------------------------------------------------------}

const keyASCII: string = '123456789*0#';//== ASCII коды клавиш/цифр

const key8segm: string = #$F9 + #$A4 + #$B0 + #$99 + #$92 + #$82 + #$F8 +

#$80 + #$90 + #$7F + #$C0 + #$B6; //== инверсные 8-ми сегм. коды цифр

{ Var Declarations }

{$IDATA}

var sound :boolean;

s:string[5];//== для хранения 8-ми сегм. Цифр

maskind,j,key,kn,e2temp: byte;

adccode:word;