;При нажатии на одну из семи кнопок будет звучать одна из семи мелодий
.include "tn2313def.inc"
.list
.def     loop1=r0
.def     loop2=r1
.def     loop=r21
.def     temp=r16
.def     temp1=r17
.def     count=r18
.def     fnota=r19
.def     dnota=r20
         .cseg
         .org    0
start:   rjmp    init
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
         reti
init:    ldi     temp,ramend
         out     spl,temp
         ldi     temp,0x08
         out     ddrb,temp
         out     portb,temp
         ldi     temp,0x7f
         out     portd,temp
         ldi     temp,0
         out     ddrd,temp
         ldi     temp,0x80
         out     acsr,temp
         ldi     temp,0x09      ;включаем режим CTC
         out     tccr1b,temp
stop:    ldi     temp,0
         out     tccr1a,temp    ;выключаем звук
main:    clr     count
         in      temp,pind
button:  lsr     temp
         brcc    prog
         inc     count
         cpi     count,7
         brne    button
         rjmp    stop
;-------------------Выбор мелодии------------------
prog:    mov     yl,count       ;вычисляем адрес,где
         ldi     zl,low(tabm*2) ;хранится начало мелодии
         ldi     zh,high(tabm*2)
         rcall   addw           ;к подпрограмме 16-разрядного сложения
         lpm     xl,z+          ;извлекаем адреса из таблицы
         lpm     xh,z           ;и помещаем в X
;-------------------Воспроизведение мелодии-----------
play:    mov     zh,xh          ;записываем в Z начало мелодии
         mov     zl,xl
s1:      in      temp,pind      ;читаем содержимое порта D
         cpi     temp,0x7f      ;проверяем на равенство 7f
         breq    stop           ;если равно(кнопки отпущены)
         lpm     temp,z         ;изслекаем код ноты
         cpi     temp,0xff      ;проверяем,не конец ли мелодии
         breq    play           ;если конец,начинаем мелодию сначала
         andi    temp,0x1f      ;выделяем код тона из кода ноты
         mov     fnota,temp     ;записываем в регистр кода тона
         lpm     temp,z+        ;еще раз берём код ноты
         rol     temp           ;производим четырёх кратный сдвиг кода ноты
         rol     temp
         rol     temp
         rol     temp
         andi    temp,0x07      ;выделяем код длительности
         mov     dnota,temp     ;помещаем его в регистр длительности
         rcall   nota           ;вызываем подпрограмму воспроизведения ноты
         rjmp    s1             ;в начало цикла(следующая нота)
;------------------Подпрограмма 16-ти разрядного сложения--------------
addw:    push    yh
         lsl     yl             ;Умножение первого слагаемого на 2
         ldi     yh,0           ;Второй байт первого слагаемого=0
         add     zl,yl          ;складываем 2 слогаемых
         adc     zh,yh
         pop     yh             
         ret
;------------------Подпрограмма исполнения одной ноты-------------------
nota:    push    zh
         push    zl
         push    yl
         push    temp
         cpi     fnota,0x00      ;проверка не пауза ли
         breq    nt1             ;если пауза,переходим к задержке
         mov     yl,fnota        ;вычисляем адрес,где хранится
         ldi     zl,low(tabkd*2) ;коэфициент деления для текущей ноты
         ldi     zh,high(tabkd*2)
         rcall   addw
         lpm     temp,z+         ;извлекаем мл.разряд КД для текущей ноты
         lpm     temp1,z         ;ст. разряд КД
         out     ocr1ah,temp1    ;записать в ст.часть регистра совпадения
         out     ocr1al,temp     ;записать в мл.часть регистра совпадения
         ldi     temp,0x40       ;включить звук
         out     tccr1a,temp
nt1:     rcall   wait
         ldi     temp,0
         out     tccr1a,temp     ;выключить звук
         ldi     dnota,0         ;сбрасываем задержку для паузы между нотами
         rcall   wait            ;пауза между нотами
         pop     temp
         pop     yl
         pop     zl
         pop     zh
         ret
;--------------------Подпрограмма формирования задержки--------------
wait:    push    zh
         push    zl
         push    yh
         push    yl
         mov     yl,dnota          ;вычисляем адрес,где хранится
         ldi     zl,low(tabz*2)    ;ножный коэфициент задержки
         ldi     zh,high(tabz*2)
         rcall   addw              ;к подпрограмме 16-разрядного сложения
         lpm     yl,z+             ;читаем первый байт коэфициента задержки
         lpm     yh,z              ;читаем второй байт коэфициента задержки
         clr     zl                ;обнуляем регистровую пару
         clr     zh
w1:      ldi     loop,255          ;пустой внутренний цикл
w2:      dec     loop
         brne    w2
         adiw    r30,1             ;увеличение регистровой пары Z на единицу
         cp      yl,zl             ;проверка младшего разряда
         brne    w1
         cp      yh,zh             ;проверка старшего разряда
         brne    w1
         pop     yl
         pop     yh
         pop     zl
         pop     zh
         ret
;----------------Таблица длительности задержек-----------------------
tabz:    .dw     128,256,512,1024,2048,4096,8192
;----------------Таблица коэфициента делеия-------------------------
tabkd:   .dw     4748,4480,4228,3992,3768,3556,3356,3168,2990,2822,2664,2514
         .dw     2374,2240,2114,1996,1884,1778,1678,1584,1495,1411,1332,1257
         .dw     1187,1120,1057,998,942,889,839,792
;----------------Таблица начала всех мелодий-------------------------
tabm:    .dw     mel1*2,mel2*2,mel3*2,mel4*2,mel5*2,mel6*2,mel7*2
;----------------Таблица мелодий-------------------------------------
;в траве сидел кузнечик
mel1:    .db     109,104,109,104,109,108,108,96,108,104
         .db     108,104,108,109,109,96,109,104,109,104
         .db     109,108,108,96,108,104,108,104,108,141
         .db     96,109,111,79,79,111,111,112,80,80
         .db     112,112,112,111,109,108,109,109,96,109
         .db     111,79,79,111,111,112,80,80,112,112
         .db     112,111,109,108,141,128,96,255
;песенка крокодила гены
mel2:    .db     109,110,141,102,104,105,102,109,110,141
         .db     104,105,107,104,109,110,141,104,105,139
         .db     109,110,173,96,114,115,146,109,110,112
         .db     109,114,115,146,107,109,110,114,112,110
         .db     146,109,105,136,107,105,134,128,128,102
         .db     105,137,136,128,104,107,139,137,128,105
         .db     109,141,139,128,110,109,176,112,108,109
         .db     112,144,142,128,107,110,142,141,128,105
         .db     109,139,128,173,134,128,128,109,112,144
         .db     142,128,107,110,142,141,128,105,109,139
         .db     128,173,146,128,96,255
;в лесу родилась елочка
mel3:    .db     132,141,141,139,141,137,132,132,132,141
         .db     141,142,139,176,128,144,146,146,154,154
         .db     153,151,149,144,153,153,151,153,181,128
         .db     96,255
;happy births to you
mel4:    .db     107,107,141,139,144,143,128,107,107,141
         .db     139,146,144,128,107,107,151,148,146,112
         .db     111,149,117,117,148,144,146,144,128,255
;с чего начинается родина
mel5:    .db     99,175,109,107,106,102,99,144,111,175
         .db     96,99,107,107,107,107,102,104,170,96
         .db     99,109,109,109,109,104,106,171,96,99
         .db     111,109,107,106,102,99,144,111,143,104
         .db     114,114,114,114,109,111,176,96,104,116
         .db     112,109,107,106,64,73,143,107,131,99
         .db     144,80,80,112,111,64,75,173,128,255
;песня из кинофильма "Весёлые ребята"
mel6:    .db     105,109,112,149,116,64,80,148,114,64
         .db     78,146,112,96,105,105,109,144,111,64
         .db     80,145,112,64,81,178,96,117,117,117
         .db     149,116,64,82,146,112,64,79,146,144
         .db     96,105,105,107,141,108,109,112,110,102
         .db     104,137,128,96,105,105,105,137,102,64
         .db     73,142,105,107,109,64,75,137,96,105
         .db     105,105,137,102,105,142,112,64,82,180
         .db     96,116,116,116,148,114,112,142,109,64
         .db     78,146,144,96,105,105,107,141,108,109
         .db     112,110,102,104,169,96,96,255
;улыбка
mel7:    .db     107,104,141,139,102,105,104,102,164,128
         .db     104,107,109,109,109,111,114,112,111,109
         .db     144,139,128,109,111,144,96,111,109,104
         .db     107,105,173,128,111,109,112,107,111,109
         .db     109,107,102,104,134,132,128,100,103,107
         .db     107,107,107,139,112,100,103,102,102,102
         .db     134,102,103,107,105,107,108,108,108,108
         .db     107,105,107,108,144,142,128,112,107,110
         .db     140,112,105,108,107,107,107,105,140,139
         .db     139,112,103,102,103,105,108,107,105,103
         .db     128,112,107,110,108,108,108,140,112,105
         .db     108,107,107,107,139,112,103,102,103,105
         .db     108,107,105,103,105,139,132,128,96,96
         .db     96,255 

 

 

 

НАЗАД                  Assembler PIC                  Си AVR                  ДАЛЬШЕ