Config PORTA.0 = Output         ' Тактирование модуля
PORTA.0 = 1
Config PORTD.2 = Input           ' Прием сигналов от модуля

CLOCK Alias PORTA.0               ' Определение бита CLOCK
DIN Alias PIND.2

Const tc = 250                         ' Длительность задержки при тактировании
Dim key As Word                      ' Считанное значение

'====================================================================

knop:
If PIND.2 = 0 Then Goto knop       ' Ждем окончания сигнала DV от модуля
Waitus 10

For a = 0 To 15
    CLOCK = 0                              ' Активный фронт тактирования
    Waitus tc                                 ' Задержка
    key.a = DIN                            ' Чтение бита данных
    CLOCK = 1
    Waitus tc                                 ' Задержка
Next a

Waitms 2                                     ' Задержка-сигнал окончания сеанса

knop:
If PIND.2 = 0 Then Goto knop       ' Ждем окончания сигнала DV от модуля
Waitus 10

For a = 0 To 15
    CLOCK = 0                              ' Активный фронт тактирования
    Waitus tc                                 ' Задержка
    key.a = DIN                            ' Чтение бита данных
    CLOCK = 1
    Waitus tc                                 ' Задержка
Next a

Waitms 2                                     ' Задержка-сигнал окончания сеанса

$Regfile="m32adef.dat"
$Crystal=8000000
$hwstack=16
$swstack=16
$framesize=32

'=======================================================
Config Timer0 = Pwm, Compare Pwm = Clear Up, Prescale = 64

Config PORTA.0 = Output        ' CLOCK
Config PORTA.1 = Output        ' OUT
Config PORTA.2 = Output        ' LATCH
'Config PORTB.3 = Output         ' ENABLE

CLOCK Alias PORTA.0             ' Определение бита CLOCK
DOUT Alias PORTA.1                ' Определение бита OUT
LATCH Alias PORTA.2              ' Определение бита LATCH
'ENABL Alias PORTB.3              ' Определение бита ENABLE (выход ШИМ)

Const tc = 5                               ' Требуемая задержка для работы SD16739

Dim a As Byte
Dim b As Byte
Dim c As Byte
Dim symb As Byte
Dim shim As Byte                      ' значение ШИМ
Dim br_counter As Byte             ' значение яркости

Dim symbols(12) As Byte
'                                                    Таблица символов
symbols(1) = 252     ' 0
symbols(2) = 96       ' 1
symbols(3) = 218     ' 2
symbols(4) = 242     ' 3
symbols(5) = 102     ' 4
symbols(6) = 182     ' 5
symbols(7) = 190     ' 6
symbols(8) = 224     ' 7
symbols(9) = 254     ' 8
symbols(10) = 246   ' 9
symbols(11) = 1       ' . (точка)
symbols(12) = 0       ' пустой разряд

'=======================================================
'=======================================================
Do

For br_counter = 1 To 32              ' Цикл управления яркостью
Gosub bright

For symb = 1 To 12                      ' Перебор символов из таблицы
    Gosub show
    Waitms 500
Next symb

Next br_counter

Loop
End
'=======================================================
'=======================================================
bright:                                              ' Значение ШИМ (управление яркостью)

'                                                        Таблица ШИМ
'-------------------------------------------------------------------------------------------------------
'ШИМ         255    247     239     231     223     215     207     199     191    183    175    167
'яркость     32      31       30       29       28       27       26       25       24      23      22      21
'-------------------------------------------------------------------------------------------------------
'ШИМ         159    151     143     135    127     119      111      103     95      87      79      71
'яркость     20      19       18       17       16       15       14       13       12      11      10      9
'-------------------------------------------------------------------------------------------------------
'ШИМ         63       55       47      39      31      23      15      7
'яркость     8         7         6        5        4        3        2       1
'-------------------------------------------------------------------------------------------------------

shim = br_counter * 8
shim = shim - 1
PWM0 = shim

Return

'=======================================================
show:                                             ' Показать текущие значения
a = symbols(symb)                       ' Выбор символа из таблицы
Gosub send
LATCH = 1                                     ' "Щелк" для загрузки в выходной регистр
LATCH = 0
Waitms 250

b = symb + 1
a = symbols(b)
Gosub send
LATCH = 1
LATCH = 0
Waitms 250
Return

'=======================================================
send:                                              ' Отправить 1 байт в SERIAL_IN
For c = 0 To 7
    CLOCK = 0
    DOUT = a.c
    Waitus tc
    CLOCK = 1
Next c
Return

'=======================================================