No to od początku
Na początku mamy ustawienie zmiennych, z których korzysta program. Instrukcja asemblera EQU to nic innego jak przypisanie danej cyfry/liczby do zmiennej
np
.EQU jasiu = 400
jest równoznaczne z C
int jasiu=4;
Czyli w tej części mamy przypisanie zmiennych
[syntax=asm].EQU LowFrekv = 1667
.EQU HiFrekv = 1333
.EQU GuardFrekv = 2083
;* UBR=INT(clk/(16*Baud)-1+0.5)
.EQU BaudRate = 207 ;1200 Baud @4.000MHz
;**************************************************************************
;* Hardware Def.
.EQU FSKPort = PORTD
.EQU FSKPortDIR = DDRD
.EQU FSKBit = 4[/syntax]
Następnie mamy segment danych .DSEG i segment danych EEPROM .ESEG
[syntax=asm];***************************************************************************
;**** VARIABLES
.DSEG
;***************************************************************************
.ESEG
.DB "TriTone Modem [2002.03.22.] "
.DB "Latest Upd.: 2002.05.29."
.DB "Rev:1.3.0 Final"[/syntax]
To czas na segment kodu czyli miejsce gdzie znajduje się właściwy program. Na początek zgodnie z opisem datasheeta str 44 tablica wektorów przerwań czyli informacje co powinno się wykonać (w tym wypadku skok do odpowiedniej funkcji ale może też być instrukcja RETI - powrót z przerwania)
[syntax=asm]rjmp RESET ;Reset Handle
rjmp EXT_INTO ;IRQ0 Handle
rjmp EXT_INT1 ;IRQ1 Handle
rjmp TIM_CAPT1 ;Timer1 capture Handle
rjmp TIM_COMP1 ;Timer1 compare Handle
rjmp TIM_OVF1 ;Timer1 overflow Handle
rjmp TIM_OVF0 ;Timer0 overflow Handle
rjmp UART_RXC ;UART RX Complete Handle
rjmp UART_DRE ;UDR Empty Handle
rjmp UART_TXC ;UART TX Complete Handle
rjmp ANA_COMP ;Analog Comparator Handle[/syntax]
Czyli teraz czas na pierwszą funkcję wywoływaną zgodnie z opisem z PDF po resetowaniu procesora. W tym wypadku jest to funkcja nazwana RESET, a skok do niej mamy ustawiony w tablicy wektorów przerwań.
OBSŁUGA RESET. Czyli co ma się uruchamiać zaraz po resecie[syntax=asm]RESET: CLI ;GLOBAL INTERRUP DIS.[/syntax]
Ustawienie adresu stosu na koniec programu
[syntax=asm]ldi R16, low(RAMEND)
out SPL,R16[/syntax]
USTAWIENIE Przerwań i tym podobnych. Zgodnie z opisem obok i na str 64
[syntax=asm]LDI R16,0b00101010 ;Sleep enable, Idle mode,INT0, INT1 edge sens.
OUT MCUCR,R16 ;7. = 1 SRE External SRAM Enabled
;6. = 1 SRW Ext. SRAM Wait State Enabled
;5. = 1 Sleep Enable
;4. = 0 SLEEP => Idle Mode
; 1 SLEEP => Power Down Mode
;3:2 = Inerrupt Sense Control for INT1
; 00 -> Low Level INT1
; 01 -> Reserved
; 10 -> Falling Edge INT1
; 11 -> Rising Edge INT1
;1:0 = Inerrupt Sense Control for INT0
; 00 -> Low Level INT0
; 01 -> Reserved
; 10 -> Falling Edge INT0
; 11 -> Rising Edge INT0[/syntax]
Tego nie znalazlem w pdf
[syntax=asm]LDI R16,0b00000000 ;INT0, INT1 Disabled
OUT GIMSK,R16 ;7. = 1 EXT INT1 ACTIVE
;6. = 1 EXT INT0 ACTIVE[/syntax]
Ustawienie przerwań zegara zgodnie z opisem na stronie 70 PDF'a
[syntax=asm]LDI R16,0b01000000
OUT TIMSK,R16 ;7. = 1 TC1 OWRF EN. *
;6. = 1 TC1 COMP MATCH EN.
;3. = 1 TC1 INP CAPTURE EN.
;1. = 1 TC0 OWRF EN. *
;************************************
;** Timer0 Init *****
;**[/syntax]
Inicjalizacja Timera
[syntax=asm]InitTimer0: LDI R20,GuardFrekv
OUT TCNT0,R16
LDI R16,0b00000000
OUT TCCR0,R16 ;TC0 Control Register
;2:0 Clock Select
; 000 -> Stop
; 001 -> CK
; 010 -> CK/8
; 011 -> CK/64
; 100 -> CK/256
; 101 -> CK/1024
; 110 -> External pin T0 falling edge
; 111 -> External pin T0 risinrg edge[/syntax]
Inicjalizacja timera zgodnie z opisem w komentarzach i str 70 pdf
[syntax=asm]LDI R17,0b00000000
OUT TCCR1A,R17 ;Non-invert 8bit PWM,
;7:6 00 => OC1 not connected
; 01 => OC1 not connected
; 10 => OC1 non-inverted PWM
; 11 => OC1 inverted PWM
;1:0 00 => PWM Disabled
; 01 => 8 bit PWM
; 10 => 9 bit PWM
; 11 => 10 bit PWM
LDI R17,0b00001001
OUT TCCR1B,R17 ;Input Capture Dis., f=CLK/8
;7. = 0 Input Capture Noise Canceller Disabled
;6. = 0 InputCapture ICP Falling edge
;3. = 1 Reset TC1 when copare match
;2:0 Clock select
; 000 => TC1 Stop
; 001 => Ck
; 010 => Ck/8
; 011 => Ck/64
; 100 => Ck/256
; 101 => Ck/1024
; 110 => External T1 Falling Edge
; 111 => External T1 rising Edge[/syntax]
Inicjalizacja UART str 130 pdf'a
[syntax=asm];UART Init
LDI R16,0b00011000 ;RXCIE,TXCIE,UDRIE,RXEN,TXEN,CHR9,RXB8,TXB8
OUT UCR,R16
LDI R16,BaudRate
OUT UBRR,R16 ;BaudRate Gen.
ldi R16,255
out USR,R16 ;status torlese
;FSK Port beallitas[/syntax]
Ustawienie bitu 4 PORTD oraz bitu 4 DDRD na 1 patrz troche wyżej inicjalizacja zmeinnych
[syntax=asm]sbi FSKPort,FSKBit ;kimeneti = 1
sbi FSKPortDIR,FSKBit ;minden bit output
clr R21 ;bit counter lesz
clr R19 ;nincs uj uart adat
SEI ;SET GLOBAL INT EN.
RJMP Main SKOK DO GŁÓWNEJ CZĘŚCI PROGRAMU
;*******************[/syntax]
Pozostałe funkcje obsługi przerwań. W tym wypadku tylko powrót bez robienia czegokolwiek (RETI)
[syntax=asm]EXT_INTO: RETI
EXT_INT1: RETI
TIM_CAPT1: RETI
TIM_COMP1: RETI
TIM_OVF1: RETI
;********************
;* Timer0 Int
;*
TIM_OVF0: RETI
;*****************
;* UART RX COMPLET
UART_RXC: RETI
;*******************
UART_DRE: RETI
;******************
;* UART TX COMPLET
UART_TXC: RETI
ANA_COMP: RETI[/syntax]
No i przyszedł czas na opis pętli głównej main programu. Tym razem opisy daje jako komentarze żeby co chwila nie przerywać listingu.
[syntax=asm]ldi R20,3
Guard3: ldi R16,High(GuardFrekv) ;przypisanie do rejestru R16 bajtu bardziej znaczącego liczby 2083 (patrz część dotycząca zmiennych)
out OCR1AH,R16 ; Ustawienie rejestru OCR1AH i przypisanie mu rejestru R16
ldi R16,Low(GuardFrekv) ;jednym słowem ustawiamy odpowiednie rejestry timera (preskalery itp) Strona 99 Dataszita
out OCR1AL,R16
sleep
nop
cbi FSKPort,FSKBit ;FSK = L ;zerowanie 4 bitu PORTD
sleep ;uśpienie procesora
nop
sbi FSKPort,FSKBit ;FSK = H ;Ustawienie 1 w 4 bicie PORTD
dec R20 ;zmniejszenie rejestru R20 (ustawionego na początku funkcji main liczbą 3)
brne Guard3 ;jeżeli R20 nie jest równe zero to skocz do Guard3 jeśli jest to przejdź do następnej instrukcji
;Guard vege van uj adat ay UARTon?
ldi R20,1
sbis USR,RXC ;Jeśli bit RXC w rejestrze USR jest ustawiony to olej linie poniżej. Jeśli nie to skocz do Guard3
rjmp Guard3
; zwukła obsługa USART
in R5,UDR ;R5=new data
ldi R19,255 ;uj adat flag
out USR,R19 ;status torlese
ldi R21,8 ;8 bitet kell majd kirakni[/syntax]
Na dzisiaj wystarczy. Mam nadzieje, że choć trochę pomogłem. Późno jest, a wczoraj byłem na weselu więc jak ktoś wyłapie jakiś błąd to nie krzyczeć tylko poprawić
Statystyki: Napisane przez WoodPaker — 10 sie 2014, o 23:36
]]>