.DEVICE ATmega16 .include "m16def.inc" .equ ActvSens = 0xFE ;статус-байт Active Sensing = 0xFE посылается передатчиком не реже 270-300 мс .equ NoteOn = 0x90 ;Взять ноту .equ NoteOff = 0x80 ;Отпустить ноту .equ AllNotesOff = 0x7B .equ SysEx = 0xF0 ;System Exclusive: F0(SysEx) ID Byte1 Byte2... ByteN F7(EoSysEx) .equ EoSysEx = 0xF7 ;End Of System Exclusive .equ BuffCMDSize = 30 ;размер буфера комманд .equ BuffKeySize = 30 ;размер буфера нажатых клавиш .equ MCAFlag = 0 ;флаг добалвения миди комманд в очередь .list .def temp =r16 .def KeyPinOut1=r17 .def KeyPinOut2=r18 .def NChanel =r10 .def OktavKeyCnt =r11 .def OktavShiftConst=r12 .def OktavShift =r13 .def CurKeyCode =r14 .def MIDIBUFF1 =r21 .def MIDIBUFF2 =r22 .def MIDIBUFF3 =r23 .def UserFLAGs =r3 ;Пользовательский флаговый регистр ;UserFlag0 = MCAFlag //r19 r24 r25 то что пока свободно .DSEG MIDIquee: .BYTE BuffCMDSize ;максимальный размер очереди миди сообщений - 30 (байт) для 10 клавиш по 3 сообщения в очереди PressedKeyTab: .BYTE BuffKeySize ;максимальный число нажатых одноврменно клавиш - 30 (20 для двух "пианистов" + 10 для служебных) .cseg .org 0x0000 rjmp RESET ;Reset Handler .org OVF0addr rjmp Timer_int ;Timer0 Overflow Interrupt Vector Address .org UDREaddr rjmp USARTClear ;UART Data Register Empty Interrupt Vector Address .org UTXCaddr rjmp UART_Tx_ok ;UART Transmit Complete Interrupt Vector Address .org ADCCaddr rjmp ADC_Int ;ADC Interrupt Vector Address RESET: ; тут начинается инициализация стека ; потом все подготовительные операции ; настройка портов, таймеров и т.п. ;Инициализация стека ldi temp, low(RAMEND) out SPL, temp ldi temp, high(RAMEND) out SPH, temp ;Инициализация портов ;Инициализация порта A ldi temp, 0xFF out DDRA, temp ;Порт A на ввод ldi temp, 0xFF out PORTA, temp ;Включаем подтягивающие резисторы ;Инициализация порта B ldi temp, 0xFF out DDRB, temp ;Порт B на ввод ldi temp, 0xFF out PORTB, temp ;Включаем подтягивающие резисторы ;Инициализация порта С ldi temp, 0x00 out DDRC, temp ;Порт С на вывод ;Инициализация порта D ldi temp, 0x0D out DDRD, temp ;Порт D на смешаный ввод/вывод ldi temp, 0x0D out PORTD, temp ;Включаем подтягивающие резисторы на входах ;Инициализация USART (31,25 Кбит/с) ;USART.Mode=32125,N,1(8Mhz) ldi temp,0x00 ;U2x=0 + (1< выходим MOV temp,YL ;текущий конец буфера нажатых клавиш SUBI temp,Low(PressedKeyTab);минус начало буфера (=размер буфер) CPI temp,BuffCMDSize ;текущий размер буфера минус максимальный размер BRPL SkipPressed ;если не минус (буфер закончился) => выходим ST Y+,MIDIBUFF1 ;заносим в список (буфер) включенных клавиш SkipPressed: ret ;конец процедуры +++ AddQueCode: ;процедура добавления сообщений в очередь MOV temp,XL ;текущий конец очереди сообщений SUBI temp,Low(MIDIquee) ;минус начало очереди (=размер) LDI MIDIBUFF2,0x03 ADD temp,MIDIBUFF2 ;+3 комманды (место для 3х фрагментов) CPI temp,BuffCMDSize ;(размер+3)-(максимальная длинна) BRPL AddQueCodeEnd ;если не минус очередь переполненна => выходим MOV MIDIBUFF2,NChanel ;номер канала по которому идет передача ADD MIDIBUFF2,MIDIBUFF3 ;+комманда (NoteOn/NoteOff/..) SBIC UCSRA,5 ;если Transmiter'у нечего передавать RJMP Skip1Cmd ;сохраняем только 2 фрагмента ST X+,MIDIBUFF2 ;пишем в очередь первый миди фрагмент (NoteOn/NoteOff/..) Skip1Cmd: ST X+,MIDIBUFF1 ;пишем второй фрагмент (номер ноты) LDI temp,0x3F ;динамика 63 (временно!!!!)<======================тут нужно вставить переменную!!!!! ST X+,temp ;пишем в очередь третий фрагмент SBIS UCSRA,5 ;если Transmiter'у есть что передавать пропускаем вывод первой!! ;ret ;выходим ;иначе - инициализируем передачу out UDR,MIDIBUFF2 ;иначе выводим первую миди комманду ldi temp,(1< отпускаем её rjmp IsKeyLoop2 ;иначе цикл ;Генерация NoteOff => в очередь - если удалось занести ldi MIDIBUFF3,NoteOff ;"взять ноту" (0х9n) ldi temp,0x00 mov UserFLAGs,temp rcall AddQueCode SBRC UserFLAGs,0 ret ;цикл сдвигания кодов клавиш от текущей до конца списка INC ZL KeyShiftLoop2: ;сдвигаем список на 1 вперед CP YL,ZL ;=конец-текщая_позиция BREQ DecKeyBuff ;если =0 (достигнута последняя запись списка) LD MIDIBUFF1,Z ST -Z,MIDIBUFF1 INC ZL INC ZL rjmp KeyShiftLoop2 ;(удаляем клавишу со списка) DecKeyBuff: DEC YL KeyUpped: ret ;=========================ПЕРЫВАНИЯ============================================= Timer_int: ;Active Sensing посылается передатчиком в не реже 270-300 мс (статус-байт 0xFE (0FEh)) если передачи нету и/или буфер пустой SBIS UCSRA,5 ;если там и так есть что передавать RJMP TimerIntEnd ;выходим ldi temp,ActvSens ;иначе - выгружаем комманду 0xFE out UDR,temp ;и выплевываем через USART TimerIntEnd: reti USARTClear: ;буфер пустой Читаем след. фрагмент в очереди, если нету: выводим + обнуляем LDI ZL,Low(MIDIquee) ;начало череди сообщений LDI ZH,High(MIDIquee) CP XL,ZL ;=конец-начало BREQ ClearUDRFlag ;если =0 (достигнуто начало списка сообщений) LD MIDIBUFF1,Z+ ;иначе первое сообщение в очереди => буфер1 out UDR,MIDIBUFF1 ;выводим KeyShiftLoop: ;сдвигаем очередь на 1 вперед CP XL,ZL ;=конец-текщая_позиция BREQ DecQuee ;если =0 (достигнутконец очереди) ; BRMI DecQuee LD MIDIBUFF1,Z ST -Z,MIDIBUFF1 INC ZL INC ZL rjmp KeyShiftLoop DecQuee: DEC XL ;очередь-1 reti ;и выход ClearUDRFlag: ldi temp,(0<