Файл: Справочник по программированию «Bascom-AVR» (М.Л. Кулиш).pdf

'---------

1

Cpi R31 ,

Breq Led_1

'---------

2

Cpi R31 ,

Breq Led_2

'---------

3

Cpi R31 ,

Breq Led_3

Led_0:

'---------

{buf_dis}

Lds R30 ,

' ЗНАЧЕНИЕ ДЛЯ ПОДСВЕТКИ 1-ГО ЗНАКОМЕСТА

Ldi R31 ,

N_sc1

Rjmp Led_e

'---------

Led_1:

{buf_dis+1}

Lds R30 ,

' ЗНАЧЕНИЕ ДЛЯ ПОДСВЕТКИ 2-ГО ЗНАКОМЕСТА

Ldi R31 ,

N_sc2

Rjmp Led_e

'---------

Led_2:

{buf_dis+2}

Lds R30 ,

' ЗНАЧЕНИЕ ДЛЯ ПОДСВЕТКИ 3-ГО ЗНАКОМЕСТА

Ldi R31 ,

N_sc3

Rjmp Led_e

'---------

Led_3:

{buf_dis+3}

Lds R30 ,

' ЗНАЧЕНИЕ ДЛЯ ПОДСВЕТКИ 4-ГО ЗНАКОМЕСТА

Ldi R31 ,

N_sc4

Led_e:

, R30

Out Portd

In R30 , Portc

' МАСКА СКАНИРОВАНИЯ

Ori R30 ,

N_scn

And R30 ,

R31

Out Portc

, R30

Ret

Главный

Состоит из операций проверки появления одной из задач, вызова программы обработки задачи и

цикл

очистки признака наличия задачи. Причем для клавиатуры очистка производится после обработки,

так как сам признак является носителем информации о номере кнопки. Проверяемые задачи рас-

полагаются в порядке приоритета, а после обработки одно задачи производится переход на начало

ГЦ.

'----------------------------------------------------------------------------------

'ГЛАВНЫЙ ЦИКЛ

Mc:

If Ndat <> 0 Then

'очистить "обновить данные"

Ndat = 0

Gosub New_data

'обработать данные

Goto Mc

End If

If Ddat <> 0 Then

'очистить "обновить индикатор"

Ddat = 0

Gosub New_led

'обновить индикатор

Goto Mc

End If

If Buf_kl <> 0 Then

'обработать нажатие, только потом

Gosub W_klb

Buf_kl = 0

'очистить уже обработанное нажатие

Goto Mc

End If

Idle

Goto Mc

'----------------------------------------------------------------------------------

Заготовки для программ

Создаются одновременно с оформлением структуры ГЦ, чтобы не потерять все

обработки событий ГЦ

имеющиеся метки (имена подпрограмм)

ПРОГРАММА 3

Содержать три программных модуля по числу обрабатываемых задач

Рабочие программы

'----------------------------------------------------------------------------------

'ОБРАБОТКА ПРОГРАММ ГЛАВНОГО ЦИКЛА

'---------------------

'обработать данные времени по истечении секунды

New_data:

'плюс секунда

Incr Rsec

If Rsec > 59 Then

'при необходимости

Rsec = 0 : Goto Ndata1

'скорректировать счетчик секунд

End If

Goto Ndata3

Ndata1:

'плюс минута

Incr Rmin

=============================================================================

9

If Rmin > 59 Then

'при необходимости

Rmin = 0 : Goto Ndata2

'скорректировать счетчик минут

End If

Goto Ndata3

Ndata2:

'плюс час

Incr Rhour

If Rhour > 23 Then

'при необходимости

Rhour = 0

'скорректировать счетчик часов

End If

Ndata3:

'поставить признак обновления индикации

Ddat = 255

Return

'----------------------------------------------------------------------------------

Программа

Самая сложная программа. Содержит последовательность преобразований (символьное изо-

формирования

бражение – двоичное число – сегментный код числа). Повторяющиеся модули оформлены в

изображения

виде подпрограмм.

'обновить индикатор по завершению одной

из операций в соответствии с текущим состоянием

New_led:

'сформировать символьное изображение времени

Bufr = ""

'очистить строку

If Rhour < 10 Then

'если значение часов выражается одной цифрой

Bufr = Bufr + "0"

'добавить символ лидирующего нуля

End If

'добавить значение часов

Bufr = Bufr + Str(rhour)

If Rmin < 10 Then

'если значение часов выражается одной цифрой

Bufr = Bufr + "0"

'добавить символ лидирующего нуля

End If

'добавить значение минут

Bufr = Bufr + Str(rmin)

'---------

'получить код первого знакоместа

Gosub Asc_seg : Buf_dis(4) = Tmpb

'---------

'получить код второго знакоместа

Gosub Asc_seg2 : Buf_dis(3) = Tmpb

'---------

'получить код третьего знакоместа

Gosub Asc_seg2 : Buf_dis(2) = Tmpb

'---------

'получить код четчертого знакоместа

Gosub Asc_seg2 : Buf_dis(1) = Tmpb

'---------

Return

'-----------------------------------------------------------

КОДЕ ИЗ ASCII (ВТОРОГО СИМВОЛА)

'П/П ВЫБОРА ИЗ ТАБЛИЦЫ КОДА ЧИСЛА В 7-СЕГМЕНТНОМ

Asc_seg2:

'сдвинуть строку влево на одну позицию

Bufr = Mid(bufr , 2)

'---------

КОДЕ ИЗ ASCII

'П/П ВЫБОРА ИЗ ТАБЛИЦЫ КОДА ЧИСЛА В 7-СЕГМЕНТНОМ

Asc_seg:

'считать

первый символ строки

Tmpb = Asc(bufr)

Tmpb = Tmpb - &H30

'преобразовать ASCII в число

Tmpb = Lookup(tmpb , Tabseg0)

'считать

из таблицы, используя число как смещение

Return

'---------

'ТАБЛИЦА РАСПОЛОЖЕНИЯ СЕГМЕНТОВ ИНДИКАТОРА - ПРОТОТИПА

'---------

D7

D6

D5

D4

D3

D2

D1

D0

'

'

¦-----------------------------------------------h1

g1

f1

e1

d1

c1

b1

a1

'BUF_DIS(1)

'BUF_DIS(2)

¦ h2

g2

f2

e2

d2

c2

b2

a2

'BUF_DIS(3)

¦ h3

g3

f3

e3

d3

c3

b3

a3

'BUF_DIS(4)

¦ h4

g4

f4

e4

d4

c4

b4

a4

'-------------------------------------------

' ¦

-a4-

-a3-

-a2-

-a1-

¦

' ¦

I

I

I

I

¦

' ¦ I

I

I

I

¦

' ¦

f4

b4

f3

b3

f2

b2

f1

b1

¦

' ¦ I

I

I

I

I

I

I

I

¦

' ¦

-g4-

I

-g3-

I

I

-g2-

-g1-

I

¦

' ¦ I

I

I

I

¦

' ¦

e4

c4

e3

c3

e2

c2

e1

c1

¦

' ¦ I

I

I

I

I

I

I

I

¦

' ¦

-d4-

[h4]

-d3-

[h3]

-d2-

-d1-

¦

' ¦

[h2]

[h1]¦

' ¦

===============================================

¦

'

'-----------------------------------------------------------

15(0Fh) , СВЕЧЕНИЕ "0"

' ТАБЛИЦА КОДОВ СЕГМЕНТОВ ОТ 0(00h) ДО