Код: Выделить всё
.def Temp=R16
.def Temp2=R17
.def Temp3=R18
.def Temp4=R19
.def Temp5=R20
.def ResCnt=R21
.cseg
.org 0
rjmp RESET ; Reset Handler
reti ; IRQ0 Handler
reti ; IRQ1 Handler
reti ; Timer2 Compare Handler
reti ; Timer2 Overflow Handler
reti ; Timer1 Capture Handler
rjmp TIM1_COMPA ; Timer1 CompareA Handler
reti ; Timer1 CompareB Handler
reti ; Timer1 Overflow Handler
reti ; Timer0 Overflow Handler
reti ; SPI Transfer Complete Handler
reti ; USART RX Complete Handler
reti ; UDR Empty Handler
reti ; USART TX Complete Handler
reti ; ADC Conversion Complete Handler
reti ; EEPROM Ready Handler
reti ; Analog Comparator Handler
reti ; Two-wire Serial Interface
reti ; Store Program Memory Ready
Reset:
ldi Temp2,0
ldi Temp3,0
l_res:
dec Temp2
brne l_res
dec Temp3
brne l_res
inc ResCnt
ldi Temp, 0b11111111
out DDRB, Temp
ldi Temp, 0b00010001
out TIMSK, Temp
ldi Temp, 0b00000011
out TCCR1B, Temp
ldi Temp, 0x23
out OCR1AH, Temp
ldi Temp, 0x28
out OCR1AL, Temp
ldi Temp,low(RamEnd) ;[1]Спросить про неполную таюлицу прерываний. Разобраться со СТЕКом до конца.
out SPL,Temp ;
ldi Temp,high(RamEnd) ;СТЕК - разобраться - пошерстить даташит
out SPH,Temp ;Такая структура работает (в связи с особенностями Меги 8-ой), но прога не пашет. Разобраться! (Разобрался [1])
ldi Temp2, 0b00000001
ldi Temp, 0
out TCNT1H, Temp
out TCNT1L, Temp
sei
Inf: rjmp Inf
TIM1_CompA:
ldi Temp,0
out TCNT1H, Temp
out TCNT1L, Temp
SelectArray: ;выбор массива
andi ResCnt,0b00000011 ;отсечка лишних разрядов сч. сбросов
cpi ResCnt,0 ;сравнение счетчика сбросов с конст.
brne Tst1 ;если не равно - след. проверка
ldi ZH,High(Array0*2) ;загрузка начального адреса массива
ldi ZL,Low(Array0*2)
rjmp ReadArray
Tst1: cpi ResCnt,1
brne Tst2
ldi ZH,High(Array1*2)
ldi ZL,Low(Array1*2)
rjmp ReadArray
Tst2: cpi ResCnt,2
brne Tst3
ldi ZH,High(Array2*2)
ldi ZL,Low(Array2*2)
rjmp ReadArray
Tst3: ldi ZH,High(Array3*2)
ldi ZL,Low(Array3*2)
rjmp ReadArray
ReadArray:
ldi Temp,0 ;прибавление относит. адреса
add ZL,Temp2
adc ZH,Temp
lpm ;загрузка из ПЗУ
mov Temp,R0 ;копирование в РОН
cpi Temp,0 ;пороверка на нулевой элемент
breq Init ;если нулевой - в начало
inc Temp2 ;увеличение относит адреса на 1
rjmp Output ;перейти на вывод в порт
Init: ldi Temp2,0 ;загрузить нач. значение
rjmp SelectArray
Output: out PortB,Temp ;вывод в порт
reti ;выход из обработчика
Array0:
.db 0b10000000,0b01000000
.db 0b00100000,0b00010000
.db 0b00001000,0b00000100
.db 0b00000010,0b00000001
.db 0,0
Array1:
.db 0b00000001,0b00000010
.db 0b00000100,0b00001000
.db 0b00010000,0b00100000
.db 0b01000000,0b10000000
.db 0,0
Array2:
.db 0b10000001,0b01000010
.db 0b00100100,0b00011000
.db 0b00100100,0b01000010
.db 0,0
Array3:
.db 0b10000000,0b01000000,0b00100000,0b00010000
.db 0b00001000,0b00000100,0b00000010,0b00000001
.db 0b00000010,0b00000100,0b00001000,0b00010000
.db 0b00100000,0b01000000
.db 0,0
спасибо и на этом
