Форум РадиоКот

Код: Выделить всё

.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