Блок-схема алгоритма (ASM)

.INCLUDE "m8def.inc"
.MACRO LINE
        cbi PORTD,PD6
        ldi r20,@0
        rcall WRITE
 
        sbi PORTD,PD6
        ldi ZL,low(@1*2)
        ldi ZH,high(@1*2)
        ldi r19,16
L2:     lpm r20,z+
 
        rcall WRITE
        dec r19
        brne L2
.ENDMACRO
 
 
.CSEG
ldi r16,high(RAMEND)
out SPH,r16
ldi r16,low(RAMEND)
out SPL,r16
 
    ldi r16,$ff
    out DDRB, r16
    clr r16
    ldi r16,(1<<PD6) | (1<<PD7);PD6, PD7
    out DDRD, r16
 
    rcall INIT
 
Lstart:
    LINE $80, Row1Scr1
    LINE $C0,Row2Scr1
    rcall DELAY_big
    LINE $80, Row1Scr2
    LINE $C0,Row2Scr2
    rcall DELAY_big
    rjmp Lstart
 
 
INIT:   cbi PORTD,PD6
 
    ldi r20,0b00111000
    rcall WRITE
 
    ldi r20, 0b00000110
    rcall WRITE
 
    ldi r20, 0b00001100
    rcall write
 
    ldi r20, 0b00000001
    rcall WRITE
    ret
 
WRITE:  sbi PORTD, PD7
        out PORTB, r20
        cbi PORTD, PD7
        rcall DELAY
        ldi r20, $FF
        out PORTB,r20
        ret
        
DELAY:  ldi YL,low(498)
        ldi YH,high(498)
 
Ld1:    sbiw YL,1
        brne Ld1
        ret
DELAY_big:
        ldi r25,30
Ld3:    ldi YL,low(25000)
        ldi YH,high(25000)
Ld2:    sbiw YL,1
        brne Ld2
        dec r25
        brne Ld3
        ret
 
Row1Scr1: .db $E0,$6F,$BD,$48,$54,$A9,$10,$10,$10,$BA,$61,$E4, $2E,$A1,$AF,$41
Row2Scr1: .db $4D,$A8,$54,$10,$41,$A9,$A8,$2D,$30,$39,$61,$10, $32,$30,$31,$31
 
Row1Scr2: .db $A5,$B3,$61,$BD,$6F,$B3,$10,$4D,$B8,$78,$61,$B8, $BB,$10,$10,$10
Row2Scr2: .db $10,$10,$10,$10,$10,$10,$10,$AA,$B5,$E3,$6F,$70, $6F,$B3,$B8,$C0

.INCLUDE "m8def.inc"
.MACRO LINE  ;МАКРОС ЗАПИСИ СТРОКИ В ПАМЯТЬ ДИСПЛЕЯ (DDRAM) 
;Параметры: @0 - начальный адрес DDRAM дисплея, 
;с которого начать писать строку
;@1 - метка строки символов, которую надо вывести 
;Установка адреса DDRAM, с которого начинать строку 
cbi PORTD,PD6   ;RS=0 - подаются КОМАНДЫ
ldi r20,@0  ;отображать, начиная с адреса @0 DDRAM rcall WRITE  
;подпрогр. записи байта из r20 в порт LCD
;посимвольная запись строки в DDRAM sbi PORTD,PD6  
;RS=1 - подаются ДАННЫЕ
ldi ZL,low(@1*2)    ;загр. в Z адрес первого байта строки @1 ldi ZH,high(@1*2)       
;*2 - т.к. адрес. памяти - по словам
L2:
.ENDMACRO 
ldi r19,16 lpm r20,Z+
rcall WRITE dec r19 brne L2 
;счетчик символов (в строке 16 символов) 
;загр. из памяти прогр. (адр. - в Z)
;в r20 байт, кодирующ. символ, для вывода 
;на порт, после этого Z=Z+1 (подгот. к 
;прочтению следующего символа)
;подпр. записи байта из r20 в порт LCD 
;декремент счетчика символов в строке 
;если символы еще не кончились, то вывод.
;следующий 
;конец макроса
.CSEG       ;НАЧАЛО ПРОГРАММНОГО СЕГМЕНТА ldi r16,high(RAMEND) 
;инициализация стека out SPH,r16
ldi r16,low(RAMEND) out SPL,r16
ldi r16,$FF ;конфигурирование портов out DDRB,r16 
;порт В - выход
clr r16
ldi r16,(1<<PD6)|(1<<PD7);PD6, PD7 - выходы out DDRD,r16
rcall INIT  ;инициализация дисплея
Lstart: ;ОСНОВНОЙ ЦИКЛ ПРОГРАММЫ
LINE $80,Row1Scr1 LINE $C0,Row2Scr1 
;отобразить ЭКРАН №1
;отображать Row1Scr1 в 1 строке экрана №1 
;отображать Row2Scr1 во 2 строке экрана №1
rcall DELAY_big ;задержка 3 сек
LINE $80,Row1Scr2 LINE $C0,Row2Scr2 
;отобразить ЭКРАН №2 
;отображать Row1Scr2 в 1 строке экрана №2
;отображать Row2Scr2 в 2 строке экрана №2 
rcall DELAY_big ;задержка 3 сек
rjmp Lstart ;повторять основной цикл
;ПОДПРОГРАММА ИНИЦИАЛИЗАЦИИ ДИСПЛЕЯ INIT:   cbi PORTD,PD6   
;RS=0 - подаются команды
ldi r20,0b00111000 rcall WRITE 
;а) DL=1 (8-битный дислей) 
; N=1 (2 строки)
; F=0 (знакоместо 5х8) 
;r20 - байт команды/данных 
ldi r20,0b00000110 rcall WRITE
ldi r20,0b00001100 rcall WRITE 
;б) I/D=1 (инкремент адреса) 
; S=0(экран не движется)
;в) D=1 (включить дисплей),
; C=0 (нет курсор в виде прочерка) 
; B=0 (нет курсора в виде квадрата) 
ldi r20,0b00000001 rcall WRITE
ret 
;г) очистка экрана, счетчик адреса на 
; нулевую позицию DDRAM
;возврат из подпрограммы
WRITE:   sbi PORTD,PD7 out PORTB,r20 cbi PORTD,PD7 rcall DELAY ldi r20,$FF out PORTB,r20 ret
DELAY:   ldi YL,low(498) ldi YH,high(498) 
;ПОДПРОГРАММА ЗАПИСИ БАЙТА ИЗ r20 В ПОРТ 
;E=1 - установить строб-сигнал
;вывести байт на порт
;Е=0 – сброс. строб-сигнал (запис. в LCD) 
;задержка на 2мс
;установить шину в "1"
;возврат из подпрограммы
;ПОДПРОГРАММА ЗАДЕРЖКИ НА 2мс
;загрузить константу в регистровую пару Y 
36 
Ld1:
DELAY_big:
Ld3:
Ld2: 
sbiw YL,1 brne Ld1 ret
ldi r25,30
ldi YL,low(25000) ldi YH,high(25000) sbiw YL,1
brne Ld2 dec r25 brne Ld3 ret 
;вычесть 1 из регистровой пары Y 
;проверка цикла на окончание 
;возврат из подпрограммы
;ПОДПРОГРАММА ЗАДЕРЖКИ НА 3 сек
;задержка между сменами экранов - 3сек 
;загрузить константу в регистровую пару Y
;вычесть 1 из регистровой пары Y 
;проверка внутреннего цикла на окончание 
;декремент внешнего счетчика
;проверка внешнего цикла на окончание 
;возврат из подпрограммы
;КОДЫ СИМВОЛОВ (записываются в память программ) 
;строки по 16 байт
Row1Scr1: .db $E0,$6F,$BD,$48,$54,$A9,$10,$10,$10,$BA,$61,$E4, $2E,$A1,$AF,$41
Row2Scr1: .db $4D,$A8,$54,$10,$41,$A9,$A8,$2D,$30,$39,$61,$10, $32,$30,$31,$31
 
Row1Scr2: .db $A5,$B3,$61,$BD,$6F,$B3,$10,$4D,$B8,$78,$61,$B8, $BB,$10,$10,$10
Row2Scr2: .db $10,$10,$10,$10,$10,$10,$10,$AA,$B5,$E3,$6F,$70, $6F,$B3,$B8,$C0