Verze 30.11.2006

• Hlavní menu
  • Úvodní stránka
  • O mně
  • O firmě
  • Odkazy
• Autodráha
  • Inteligentní ovladač
  • Zobrazovací panely
• Střední škola
  • Matematika
  • Procesory 8051
  • Elektrotechnická měření
  • Maturita
  • Třída A4
• Vysoká škola
  • X16PMA
  • X36SIN
  • X36ALG
  • X36SKD
  • X36LOB
  • Další materiály
• Mobilní telefony
  • Program Mobil365
  • Rady programátorům
  • Knihovna Port.dll
• Další programy
  • Internet
  • Windows
  • Hry

Strojový kód a data (X36SKD)

Stránky předmětu X36SKD.

Na této stránce by se měly postupně objevovat moje nově nabyté znalosti z předmětu SKD. Zabýváme se zde programováním mikrokontrolerů Atmel AVR v prostředí AVR studia - v assembleru. Konkrétně používáme mikrokontroler ATmega169 s LCD displejem a joyistickem - zařízení Butterfly.

Šikovná knihovna

(verze 30.11.2006 07:26:27)
Knihovna, která ve své hlavičce obsahuje popis základních instrukcí. Následují některé jednoduché funkce, které se občas mohou hodit
Obsah souboru "skd.inc":
; knihovna na predmet SKD ; ======================= ; ; Registry: ; R0..R31 = 8-bit registry ; X (R26, R27) = 16-bit ; Y (R28, R29) = 16-bit ; Z (R30, R31) = 16-bit ; SP = 16-bit - ukazatel zásobníku ; PC = 16-bit - programový čítač ; SREG = speciální registry ; ; Paměť programu ; 16kB - data po 8 bitech, instrukce po 16 bitech ; ; lpm - načte do R0 data z adresy Z ; ; Paměť dat ; ; 1 kB - po 8 bitech ; ; ld Rd, x+ ; d = 0..31 ; ld Rd, -y ; d = 0..31 ; ld Rd, z ; d = 0..31 ; ldd Rd, z+q ; d = 0..31, q = 0..63, JEN PRO Y a Z !!! ; ; st x+, Rr ; r = 0..31 ; st -y, Rr ; r = 0..31 ; st z, Rr ; r = 0..31 ; std z+q, Rr ; r = 0..31, q = 0..63, JEN PRO Y a Z !!! ; sts adresa+offset, R0 ; ; Manipulace s registry ; ; clr r0 ; vynuluje obsah registru ; ldi r16, 15 ; načte kladnou konstantu, pouze registry r16-r31 !!! ; ldi r16, -15 ; načte zápornou konstantu ; ldi r16, 0x0F ; hexa ; ldi r16, 0b00001000 ; binárně ; mov r0, r1 ; zkopíruje obsah registru ; add r16, r18 ; součet - nastaví Z,C,N,V,H ; adc r17, r19 ; součet + carry ; sub r0, r1 ; rozdíl ; subi r16, 5 ; dekrementace o 5 ; inc r16 ; +1 ; dec r16 ; -1 ; ; adiw XH:XL, 1 ; přičte k X jedničku ; sbiw XH:XL, 1 ; odečte od X jedničku ; ; lsl r0 ; L rotace, vstup = 0, výstup = C ; lsr r0 ; R rotace, vstup = 0, výstup = C ; rol r0 ; L rotace, vstup = C, výstup = C ; ror r0 ; R rotace, vstup = C, výstup = C ; asr r0 ; R rotace, vstup = bit 7, výstup = C ; ; ori r16, 0x0F ; OR ; andi r16, 0x0F ; AND ; or r1, r2 ; OR ; and r1, r2 ; AND ; com r16 ; NOT ; neg r16 ; dvojkový doplněk ; eor r16, r17 ; XOR ; ; Porovnávání ; cpi r16, 10 ; porovnání ; cp r1, r2 ; porování ; cpc r1, r2 ; porovnání r1, r2 a carry ; ; Skoky ; ; breq rel ;Z=1 rovnost ; brne rel ;Z=0 nerovnost ; brsh rel ;C=0 větší nebo rovno ; brlo rel ;C=1 menší ; brmi rel ;N=1 mínus (záporné) ; brpl rel ;N=0 plus (nezáporné) ; brge rel ; větší nebo rovno ; brlt rel ; menší ; ; jmp adresa ; skok ; ; call ; volání podprogramu ; ret ; návrat z podprogramu ; ijmp ; skočí na adresu v registru Z ; vynásobí dvě 8-bitová čísla (R16 a R18) ; a 16-bitový výsledek uloží do R17 a R16 ; ničí obsah registru r19 mul8: ldi r19, 9 mul8_cykl: lsr r17 ror r16 brsh mul8_nula add r17, r18 mul8_nula: dec r19 cpi r19, 0 brne mul8_cykl ret ; vynásobí dvě 8-bitová čísla na zásobníku ; a 16-bitový výsledek uloží do zásobníku (pop H, pop L) ; neničí obsah žádných registrů mul8stack: push r28 ; Y(L) push r29 ; Y(H) push r16 push r17 push r18 push r19 in r28, SPL in r29, SPH ldd r16, Y+10 ; parametr 1 ldd r18, Y+9 ; parametr 2 call mul8 std Y+10, r16 ; výsledek (L) std Y+ 9, r17 ; výsledek (H) pop r19 pop r18 pop r17 pop r16 pop r29 pop r28 ret ; vypočítá faktoriál 8-bitového čísla v zásobníku ; výsledek (8-bitový) uloží do zásobníku ; nepoškozuje obsah žádných registrů fact: ; uložím do zásobníku používané registry push r28 ; Y(L) push r29 ; Y(H) push r16 ; načtu parametr ze zásobníku (do r16) in r28, SPL in r29, SPH ldd r16, Y+6 ; parametr ; vypočítám faktoriál r16 (do r16) cpi r16, 1 breq fact_jedna dec r16 push r16 ; n-1 call fact ; (n-1)! inc r16 push r16 ; n call mul8stack ; n * (n-1)! pop r16 ; H (nezajímá mě) pop r16 ; L fact_jedna: ; uložím výsledek do zásobníku std Y+6, r16 ; obnovím použité registry pop r16 pop r29 pop r28 ret fib: ; uložím do zásobníku používané registry push r28 ; Y(L) push r29 ; Y(H) push r16 push r17 ; načtu parametr ze zásobníku (do r16) in r28, SPL in r29, SPH ldd r16, Y+7 ; parametr ; vypočítám fibonačiho číslo r16 (do r17) ldi r17, 1 ; výsledek cpi r16, 2 brlo fib_nula_jedna dec r16 push r16 ; n-1 call fib ; fib(n-1) pop r17 dec r16 push r16 ; n-2 call fib ; fib(n-2) pop r16 add r17, r16; fib(n-1) + fib(n-2) fib_nula_jedna: ; uložím výsledek do zásobníku std Y+7, r17 ; obnovím použité registry pop r17 pop r16 pop r29 pop r28 ret

ASCII tabulka pro LCD displej Butterfly

(verze 30.11.2006 07:26:27)
Tabulka, která přiřazuje ASCII hodnotám znaků jejich reprezentaci na LCD displeji Butterfly
Obsah souboru "znaky.inc":
;********************************************************* ; ; Tabulka tvaru znaku pro AVR Butterfly ; ;********************************************************* ; znaky: ; znaky ASCII tabulky od kodu 42 (*) do kodu 95 (_) ; platna je vzdy spodni polovina bity ; prvni bajt: 0 0 0 0 K 0 0 A ; druhy bajt: 0 0 0 0 J F H B ; treti bajt: 0 0 0 0 L E G C ; ctvrty bajt: 0 0 0 0 M P N D .db 0x08, 0x0A, 0x0A, 0x0E ; * .db 0x00, 0x08, 0x0A, 0x02 ; + .db 0x00, 0x00, 0x00, 0x00 ; , (nedefinovano) .db 0x00, 0x00, 0x0A, 0x00 ; - .db 0x01, 0x05, 0x0A, 0x00 ; . .db 0x08, 0x00, 0x00, 0x04 ; / .db 0x09, 0x05, 0x05, 0x05 ; 0 .db 0x08, 0x01, 0x01, 0x00 ; 1 .db 0x01, 0x01, 0x0E, 0x01 ; 2 .db 0x01, 0x01, 0x0B, 0x01 ; 3 .db 0x00, 0x05, 0x0B, 0x00 ; 4 .db 0x01, 0x04, 0x0B, 0x01 ; 5 .db 0x01, 0x04, 0x0F, 0x01 ; 6 .db 0x01, 0x01, 0x01, 0x00 ; 7 .db 0x01, 0x05, 0x0F, 0x01 ; 8 .db 0x01, 0x05, 0x0B, 0x01 ; 9 .db 0x00, 0x00, 0x00, 0x00 ; : (nedefinovano) .db 0x00, 0x00, 0x00, 0x00 ; ; (nedefinovano) .db 0x08, 0x00, 0x00, 0x08 ; < .db 0x00, 0x00, 0x0A, 0x01 ; = .db 0x00, 0x02, 0x00, 0x04 ; > .db 0x00, 0x00, 0x00, 0x00 ; ? (nedefinovano) .db 0x00, 0x00, 0x00, 0x00 ; @ (nedefinovano) .db 0x01, 0x05, 0x0F, 0x00 ; A .db 0x01, 0x09, 0x09, 0x03 ; B .db 0x01, 0x04, 0x04, 0x01 ; C .db 0x01, 0x09, 0x01, 0x09 ; D .db 0x01, 0x04, 0x0E, 0x01 ; E .db 0x01, 0x04, 0x0E, 0x00 ; F .db 0x01, 0x04, 0x0D, 0x01 ; G .db 0x00, 0x05, 0x0F, 0x00 ; H .db 0x00, 0x08, 0x00, 0x02 ; I .db 0x00, 0x01, 0x05, 0x01 ; J .db 0x08, 0x04, 0x06, 0x08 ; K .db 0x00, 0x04, 0x04, 0x01 ; L .db 0x08, 0x07, 0x05, 0x00 ; M .db 0x00, 0x07, 0x05, 0x08 ; N .db 0x01, 0x05, 0x05, 0x01 ; O .db 0x01, 0x05, 0x0E, 0x00 ; P .db 0x01, 0x05, 0x05, 0x09 ; Q .db 0x01, 0x05, 0x0E, 0x08 ; R .db 0x01, 0x02, 0x00, 0x09 ; S .db 0x01, 0x08, 0x00, 0x02 ; T .db 0x00, 0x05, 0x05, 0x01 ; U .db 0x08, 0x04, 0x04, 0x04 ; V .db 0x00, 0x05, 0x05, 0x0C ; W .db 0x08, 0x02, 0x00, 0x0C ; X .db 0x08, 0x02, 0x00, 0x02 ; Y .db 0x09, 0x00, 0x00, 0x05 ; Z .db 0x01, 0x04, 0x04, 0x01 ; [ .db 0x00, 0x02, 0x00, 0x08 ; \ .db 0x01, 0x01, 0x01, 0x01 ; ] .db 0x00, 0x00, 0x00, 0x00 ; ^ (nedefinovano) .db 0x00, 0x00, 0x00, 0x01 ; _ .db 0x09, 0x0F, 0x0F, 0x0F ; vse ;----------------------------------------

Ovládání LCD displeje Butterfly

(verze 30.11.2006 07:26:27)
Knihovna pro ovládání LCD displeje Butterfly
Obsah souboru "skd_lcd.inc":
.include "znaky.inc" ; inicializace LCD displeje ; neničí obsah žádných registrů init_disp: push r16 ldi r16, 0xB7 sts LCDCRB, r16 ldi r16, 0x10 sts LCDFRR, r16 ldi r16, 0x0F sts LCDCCR, r16 ldi r16, 0x80 sts LCDCRA, r16 pop r16 ret ; vymaže obsah LCD displeje ; neničí obsah žádných registrů clear_disp: push r16 ldi r16, 0x00 sts LCDDR0, r16 sts LCDDR0+5, r16 sts LCDDR0+10, r16 sts LCDDR0+15, r16 sts LCDDR1, r16 sts LCDDR1+5, r16 sts LCDDR1+10, r16 sts LCDDR1+15, r16 sts LCDDR2, r16 sts LCDDR2+5, r16 sts LCDDR2+10, r16 sts LCDDR2+15, r16 sts LCDDR3, r16 sts LCDDR3+5, r16 sts LCDDR3+10, r16 sts LCDDR3+15, r16 pop r16 ret ; zobrazí na LCD displeji dvojtečky ; neničí obsah žádných registrů zobr_dvojtecky: push r16 lds r16, LCDDR3+5 ori r16, 0b00000011 sts LCDDR3+5, r16 pop r16 ret ; zhasne na LCD displeji dvojtečky ; neničí obsah žádných registrů zhasni_dvojtecky: push r16 lds r16, LCDDR3+5 andi r16, 0b11111100 sts LCDDR3+5, r16 pop r16 ret ; zobrazí na displeji přesípací hodiny ; neničí obsah žádných registrů presip_hodiny: push r16 ldi r16, 0x09 sts LCDDR0, r16 ldi r16, 0x02 sts LCDDR0+5, r16 ldi r16, 0x0D sts LCDDR0+15, r16 pop r16 ret ; zobrazí na displeji znak ; push ASCII hodnota ; push pozice ; neničí obsah žádných registrů show_char: ; uložím do zásobníku obsah použitých registrů push r0 push r16 push r17 push r18 push r28 ; Y(L) push r29 ; Y(H) push r30 ; Z(L) push r31 ; Z(H) ; načtu ze zásobníku vstupní parametry in r28, SPL in r29, SPH ldd r16, Y+12 ; parametr 1 (ASCII hodnota) ldd r17, Y+11 ; parametr 2 (pozice) ; překopíruju návratovou adresu + 2 * r0 na stacku ldd r30, Y+10 ldd r31, Y+9 std Y+12, r30 std Y+11, r31 std Y+10, r0 std Y+10, r0 ; do registru Z (r30, r31) načtu adresu v tabulce znaků ldi r30, low(znaky<<1) ldi r31, high(znaky<<1) subi r16,42 ; r16 = řádek v tabulce (L) clr r18 ; r18 = řádek v tabulce (H) lsl r16 rol r18 lsl r16 rol r18 add r30, r16 ; adresa = "znaky" + 4 * číslo řádku adc r31, r18 ; do Y uložím adresu ovládacích bytů, do r17, r18 pozici ldi r28, low(LCDDR0) ; Y = ovládací byty ldi r29, high(LCDDR0) subi r17, 2 ; pozice mínus dva (první číslice má označení 2) clr r18 ; ovládání horním nebo dolním nibblem? lsr r17 ; pozice děleno dvěma brlo show_char_horni ; liché pozice se ovládají horním nibblem show_char_dolni: add r28, r17 adc r29, r18 ld r16, Y andi r16, 0xF0 lpm add r0, r16 st Y, r0 adiw r30, 1 ldd r16, Y+5 andi r16, 0xF0 lpm add r0, r16 std Y+5, r0 adiw r30, 1 ldd r16, Y+10 andi r16, 0xF0 lpm add r0, r16 std Y+10, r0 adiw r30, 1 ldd r16, Y+15 andi r16, 0xF0 lpm add r0, r16 std Y+15, r0 jmp show_char_konec show_char_horni: add r28, r17 adc r29, r18 ld r16, Y andi r16, 0x0F lpm swap r0 add r0, r16 st Y, r0 adiw r30, 1 ldd r16, Y+5 andi r16, 0x0F lpm swap r0 add r0, r16 std Y+5, r0 adiw r30, 1 ldd r16, Y+10 andi r16, 0x0F lpm swap r0 add r0, r16 std Y+10, r0 adiw r30, 1 ldd r16, Y+15 andi r16, 0x0F lpm swap r0 add r0, r16 std Y+15, r0 show_char_konec: ; obnovím ze zásobníku obsah použitých registrů pop r31 pop r30 pop r29 pop r28 pop r18 pop r17 pop r16 pop r0 pop r0 ; 2 * r0, protože se kvůli vstup. parametrům posunul zásobník pop r0 ret ; zobrazí dekadické číslo na displeji ; push 8-bitové číslo ; neničí obsah žádných registrů show_dec: ; uložím do zásobníku obsah použitých registrů push r16 push r17 push r28 ; Y(L) push r29 ; Y(H) ; načtu ze zásobníku vstupní parametry in r28, SPL in r29, SPH ldd r16, Y+7 ; parametr 1 (zobrazované číslo) ; překopíruju návratovou adresu + r16 na stacku ldd r17, Y+6 std Y+7, r17 ldd r17, Y+5 std Y+6, r17 ldd r17, Y+4 std Y+5, r17 ; vymažu displej call clear_disp ; přeskočím nulové číslice cpi r16, 10 brlo show_dec_10_preskoc cpi r16, 100 brlo show_dec_100_preskoc ; zobrazím číslici v řádu stovek ldi r17, '0' show_dec_100: cpi r16, 100 brlo show_dec_100_end subi r16, 100 inc r17 jmp show_dec_100 show_dec_100_end: push r17 ldi r17, 5 ; pozice push r17 call show_char; show_dec_100_preskoc: ; zobrazím číslici v řádu desítek ldi r17, '0' show_dec_10: cpi r16, 10 brlo show_dec_10_end subi r16, 10 inc r17 jmp show_dec_10 show_dec_10_end: push r17 ldi r17, 6 ; pozice push r17 call show_char; show_dec_10_preskoc: ; zobrazím číslici v řádu jednotek ldi r17, '0' add r17, r16 push r17 ldi r17, 7 ; pozice push r17 call show_char; ; obnovím ze zásobníku obsah použitých registrů pop r29 pop r28 pop r17 pop r16 pop r16 ; protože se kvůli vstup. parametrům posunul zásobník ret ; zobrazí dekadické číslo na displeji ; push 8-bitové číslo ; neničí obsah žádných registrů show_dec1: push r16 push r16 push r28 ; Y(L) push r29 ; Y(H) in r28, SPL in r29, SPH ldd r16, Y+5 ; návratová adresa (high) std Y+4, r16 ldd r16, Y+6 ; návratová adresa (low) std Y+5, r16 ldi r16, 0 ; vyšší byte zobrazovaného čísla std Y+6, r16 pop r29 pop r28 pop r16 jmp show_dec2 ; zobrazí dekadické číslo na displeji ; push nižší byte 16-bitového čísla ; push vyšší byte 16-bitového čísla ; neničí obsah žádných registrů show_dec2: ; význam jednotlivých registrů: ; r16 = nižší byte vstupního čísla ; r17 = vyšší byte vstupního čísla ; r18 = nižší byte řádu ; r19 = vyšší byte řádu ; r20 = znak '0' nebo ' ' ; r21 = zobrazovaná číslice ; r22 = nižší byte doplňku řádu ; r23 = vyšší byte doplňku řádu ; uložím do zásobníku obsah použitých registrů (10 bytů) push r16 push r17 push r18 push r19 push r20 push r21 push r22 push r23 push r28 ; Y(L) push r29 ; Y(H) ; načtu ze zásobníku vstupní parametry in r28, SPL in r29, SPH ldd r16, Y+14 ; parametr 1 (nižší byte zobrazovaného čísla) ldd r17, Y+13 ; parametr 2 (vyšší byte zobrazovaného čísla) ; překopíruju návratovou adresu + r16 na stacku ldd r20, Y+12 std Y+14, r20 ldd r20, Y+11 std Y+13, r20 ldd r20, Y+10 std Y+12, r20 ; zobrazení jednotlivých číslic ldi r20, '@' ldi r18, 0x10 ldi r19, 0x27 call show_dec2_pom push r21 ldi r21, 3 push r21 call show_char ldi r18, 0xE8 ldi r19, 0x03 call show_dec2_pom push r21 ldi r21, 4 push r21 call show_char ldi r18, 100 ldi r19, 0 call show_dec2_pom push r21 ldi r21, 5 push r21 call show_char ldi r18, 10 ldi r19, 0 call show_dec2_pom push r21 ldi r21, 6 push r21 call show_char ldi r20, '0' ldi r18, 1 ldi r19, 0 call show_dec2_pom push r21 ldi r21, 7 push r21 call show_char ; obnovím ze zásobníku obsah použitých registrů pop r29 pop r28 pop r23 pop r22 pop r21 pop r20 pop r19 pop r18 pop r17 pop r16 pop r16 pop r16 ; protože se kvůli vstup. parametrům posunul zásobník ret ; pomocná procedura pro výpočet jedné číslice show_dec2_pom: ; vypočítám dvojkový doplněk řádu číslice mov r22, r18 mov r23, r19 com r22 com r23 ldi r21, 1 add r22, r21 ldi r21, 0 adc r23, r21 ; cyklem vypočítám číslici pro zobrazení ldi r21, '0' show_dec2_pom_cykl: cp r17, r19 brlo show_dec2_pom_hotovo breq show_dec2_pom_nevim show_dec2_pom_odecti: add r16, r22 adc r17, r23 inc r21 ldi r20, '0' jmp show_dec2_pom_cykl show_dec2_pom_nevim: cp r16, r18 brlo show_dec2_pom_hotovo jmp show_dec2_pom_odecti show_dec2_pom_hotovo: ; nuly na začátku čísla nahradím mezerami cpi r21, '0' brne show_dec2_pom_konec mov r21, r20 ; konec pomocné procedury show_dec2_pom_konec: ret

Hodiny

(verze 30.11.2006 07:26:27)
Knihovna pro zobrazení času na LCD displeji a inkrementaci / dekrementaci číslel
Obsah souboru "skd_hodiny.inc":
; zobrazí na displeji hodiny ; vstupním parametrem je adresa v paměti dat, kde je uložen ; potřebuje proměnné s názvem "kurzor" a "blikani" !!!! ; čas pro zobrazení ve formátu HH:MM:SS, ; kde každá číslice má svůj vlastní byte ; push adresa low ; push adresa high ; neničí obsah žádných registrů show_hodiny: ; uložím do zásobníku obsah použitých registrů push r16 push r26 ; X(L) push r27 ; X(H) push r28 ; Y(L) push r29 ; Y(H) ; načtu ze zásobníku vstupní parametry in r28, SPL in r29, SPH ldd r26, Y+9 ; parametr 1 (adresa low) ldd r27, Y+8 ; parametr 2 (adresa high) ; překopíruju návratovou adresu a původní r16 na stacku ; o 2 byty zpět (přepíšu původní vstupní parametry) ldd r16, Y+7 std Y+9, r16 ldd r16, Y+6 std Y+8, r16 ldd r16, Y+5 std Y+7, r16 ; zobrazení dvojteček na displeji ; a načtení pozice kurzoru do r28 ; (hodnota 255 = všechno svítí) lds r16, blikani cpi r16, 0 breq show_hodiny_tma call zobr_dvojtecky ldi r28, 255 jmp show_hodiny_go show_hodiny_tma: lds r28, kurzor cpi r28, 255 breq show_hodiny_zhasni_dvojtecky jmp show_hodiny_go show_hodiny_zhasni_dvojtecky: call zhasni_dvojtecky show_hodiny_go: ; zobrazení hodin na displeji ld r16, X+ cpi r28, 0 brne show_hodiny_cislice_0 ldi r16, '-' show_hodiny_cislice_0: push r16 ldi r16, 2 push r16 call show_char ld r16, X+ cpi r28, 1 brne show_hodiny_cislice_1 ldi r16, '-' show_hodiny_cislice_1: push r16 ldi r16, 3 push r16 call show_char ld r16, X+ cpi r28, 2 brne show_hodiny_cislice_2 ldi r16, '-' show_hodiny_cislice_2: push r16 ldi r16, 4 push r16 call show_char ld r16, X+ cpi r28, 3 brne show_hodiny_cislice_3 ldi r16, '-' show_hodiny_cislice_3: push r16 ldi r16, 5 push r16 call show_char ld r16, X+ cpi r28, 4 brne show_hodiny_cislice_4 ldi r16, '-' show_hodiny_cislice_4: push r16 ldi r16, 6 push r16 call show_char ld r16, X+ cpi r28, 5 brne show_hodiny_cislice_5 ldi r16, '-' show_hodiny_cislice_5: push r16 ldi r16, 7 push r16 call show_char ; obnovím ze zásobníku obsah použitých registrů pop r29 pop r28 pop r27 pop r26 pop r16 pop r16 ; 2 * pop, protože se kvůli vstup. parametrům posunul zásobník pop r16 ret ; zvýší nebo sníží hodnotu času ; vstupním parametrem je adresa v paměti dat, kde je uložen ; čas pro zobrazení ve formátu HH:MM:SS, ; kde každá číslice má svůj vlastní byte ; push adresa low ; push adresa high ; push číslice (0 = vyšší byte hodin) ; push změna (1 = plus, 255 = mínus, 0 = nic) ; neničí obsah žádných registrů zmenit_hodiny: ; ozálohuju registry do zásobníku (7 bytů) push r16 push r17 push r18 push r26 push r27 push r28 push r29 ; načtu ze zásobníku vstupní parametry in r28, SPL in r29, SPH ldd r26, Y+13 ; parametr 1 (adresa hodin low => X low) ldd r27, Y+12 ; parametr 2 (adresa hodin high => X high) ldd r16, Y+11 ; parametr 3 (pozice nastavované číslice) ldd r18, Y+10 ; parametr 4 (změna) ; překopíruju návratovou adresu a původní r16 na stacku ; o 4 byty zpět (přepíšu původní vstupní parametry) ldd r17, Y+9 std Y+13, r17 ldd r17, Y+8 std Y+12, r17 ldd r17, Y+7 std Y+11, r17 ; najedu na číslici, kterou chci nastavit ldi r17, 0 add r26, r16 adc r27, r17 zmenit_hodiny_cyklus: ; je pozice platná? cpi r16, 6 brsh zmenit_hodiny_konec ; vypočítám novou hodnotu číslice ld r17, X add r17, r18 ; rozvětvení programu podle číslice cpi r16, 0 breq zmenit_hodiny_0 cpi r16, 1 breq zmenit_hodiny_1 cpi r16, 2 breq zmenit_hodiny_2_a_4 cpi r16, 3 breq zmenit_hodiny_3_a_5 cpi r16, 4 breq zmenit_hodiny_2_a_4 cpi r16, 5 breq zmenit_hodiny_3_a_5 ; konec procedury zmenit_hodiny_konec: pop r29 pop r28 pop r27 pop r26 pop r18 pop r17 pop r16 pop r16 pop r16 pop r16 ; 4 * pop, protože se kvůli vstup. parametrům posunul zásobník pop r16 ret ; obsluha jednotlivých číslic ; (v r16 je pozice, v r17 je nová hodnota číslice) ; (do r18 uložím maximální hodnotu číslice) zmenit_hodiny_0: adiw XH:XL, 1 ld r18, X ; hodiny - pravá číslice sbiw XH:XL, 1 cpi r18, '4' brsh zmenit_hodiny_max_1 ldi r18, '2' jmp zmenit_hodiny_go zmenit_hodiny_max_1: ldi r18, '1' jmp zmenit_hodiny_go zmenit_hodiny_1: sbiw XH:XL, 1 ld r18, X ; hodiny - levá číslice adiw XH:XL, 1 cpi r17, '0' brlo zmenit_hodiny_1_podteceni cpi r18, '2' ; 0x a 1x => max x9, ale 2x => max x3 jmp zmenit_hodiny_1_spolecne zmenit_hodiny_1_podteceni: cpi r18, '0' ; 00 => 23 ale 10 => 09 a 20 => 19 zmenit_hodiny_1_spolecne: breq zmenit_hodiny_max_3 ldi r18, '9' jmp zmenit_hodiny_go zmenit_hodiny_max_3: ldi r18, '3' jmp zmenit_hodiny_go zmenit_hodiny_2_a_4: ldi r18, '5' jmp zmenit_hodiny_go zmenit_hodiny_3_a_5: ldi r18, '9' jmp zmenit_hodiny_go ; společná část programu pro všechny číslice ; (v r16 je pozice, v r17 je nová hodnota číslice, ; v r18 je maximální hodnota číslice) zmenit_hodiny_go: cpi r17, '0' brlo zmenit_hodiny_podteceni cp r17, r18 breq zmenit_hodiny_ok brlo zmenit_hodiny_ok ; přetečení ldi r17, '0' ; nová hodnota číslice st X, r17 ; uložím sbiw XH:XL, 1 ; posunu X na další číslici dec r16 ; posun pozice ldi r18, 1 ; další číslici zvětšit o jedničku jmp zmenit_hodiny_cyklus ; podtečení zmenit_hodiny_podteceni: mov r17, r18 ; nová hodnota číslice st X, r17 ; uložím sbiw XH:XL, 1 ; posunu X na další číslici dec r16 ; posun pozice ldi r18, 255 ; další číslici zmenšit o jedničku jmp zmenit_hodiny_cyklus ; OK zmenit_hodiny_ok: st X, r17 ; uložím novou číslici jmp zmenit_hodiny_konec ; zkopíruje čas z adresy "X" na adresu "Y" ; ničí pouze obsah registrů X a Y kopiruj_cas: push r16 ld r16, X+ st Y, r16 ld r16, X+ std Y+1, r16 ld r16, X+ std Y+2, r16 ld r16, X+ std Y+3, r16 ld r16, X+ std Y+4, r16 ld r16, X+ std Y+5, r16 pop r16 ret

Joystick

(verze 30.11.2006 07:26:27)
Knihovna pro práci s joystickem na přípravku Butterfly
Obsah souboru "skd_joystick.inc":
; inicializace joysticku ; neničí obsah žádných registrů joy_init: push r16 push r17 in r17, DDRE andi r17, 0b11110011 in r16, PORTE ori r16, 0b00001100 out DDRE, r17 out PORTE, r16 ldi r16, 0b00000000 sts DIDR1, r16 in r17, DDRB andi r17, 0b00101111 in r16, PORTB ori r16, 0b11010000 out DDRB, r17 out PORTB, r16 pop r17 pop r16 ret ; procedury na test stisku jednotlivých tlačítek joysticku ; neničí obsah žádných registrů ; BREQ ... skok, když JE stisknuté ; BRNE ... skok, když NENÍ stisknuté joy_vlevo: push r16 in r16, PINE andi r16, 0b00000100 cpi r16, 0 pop r16 ret joy_vpravo: push r16 in r16, PINE andi r16, 0b00001000 cpi r16, 0 pop r16 ret joy_nahoru: push r16 in r16, PINB andi r16, 0b01000000 cpi r16, 0 pop r16 ret joy_dolu: push r16 in r16, PINB andi r16, 0b10000000 cpi r16, 0 pop r16 ret joy_enter: push r16 in r16, PINB andi r16, 0b00010000 cpi r16, 0 pop r16 ret ; procedury, které čekají na uvolnění daného tlačítka joysticku ; neničí obsah žádných registrů joy_uvolnit_vlevo: call joy_vlevo breq joy_uvolnit_vlevo ret joy_uvolnit_vpravo: call joy_vpravo breq joy_uvolnit_vpravo ret joy_uvolnit_nahoru: call joy_nahoru breq joy_uvolnit_nahoru ret joy_uvolnit_dolu: call joy_dolu breq joy_uvolnit_dolu ret joy_uvolnit_enter: call joy_enter breq joy_uvolnit_enter ret

Test faktoriálu a LCD displeje

(verze 30.11.2006 07:26:27)
Program pro otestování funkce faktoriál (skd.inc) a LCD displeje (skd_displej.inc)
Obsah souboru "skd_faktorial_lcd.asm":
.org 0 jmp start .include "m169def.inc" ; definujeme, ze budem pouzivat stack .include "skd.inc" .include "skd_lcd.inc" start: ; inicializace stacku ldi r16, 0x00 ;nutne pro stack out SPL, r16 ;nutne pro stack ldi r16, 0x04 ;nutne pro stack out SPH, r16 ;nutne pro stack ; výpočet faktoriálu ; ldi r20, 4 ; push r20 ; call fact ; pop r20 ; testy displeje call init_disp call clear_disp ;call presip_hodiny ldi r16, '2' ; znak ldi r17, 2 ; pozice disp_cykl: push r16 push r17 call show_char inc r16 inc r17 cpi r17, 8 brlo disp_cykl ldi r16, 0 push r16 call show_dec konec: jmp konec

Ukázkové programy pro práci s řetězci

(verze 30.11.2006 07:26:27)
Jednoduché programy ukazující jak načíst znakový řetězec z paměti programu do paměti dat atd...
Obsah souboru "skd_retezce.asm":
.org 0 jmp start .cseg str_1: .db "Ahoj ", 0 .dseg .org 0x100 str_1c: .byte 32 str: .byte 32 .cseg start: lstr1: ldi r30, low(str_1<<1) ldi r31, high(str_1<<1) ldi r28, low(str_1c) ldi r29, high(str_1c) cycle1: lpm st Y+, r0 adiw r30, 1 tst r0 brne cycle1 lstr2: ldi r30, low(str_2<<1) ldi r31, high(str_2<<1) ldi r28, low(str_2c) ldi r29, high(str_2c) cycle2: lpm st Y+, r0 adiw r30, 1 tst r0 brne cycle2 ldi r26, low(str_1c) ldi r27, high(str_1c) ldi r30, low(str) ldi r31, high(str) cycle3: ld r0, X+ st Z+, r0 tst r0 brne cycle3 ldi r28, low(str_2c) ldi r29, high(str_2c) sbiw r30, 1 cycle4: ld r0, Y+ st Z+, r0 tst r0 brne cycle4 zacatek: jmp zacatek ============================================ .org 0 jmp start .cseg str_1: .db "Ahoj", 0 .dseg .org 0x100 str_1c: .byte 32 str: .byte 32 .cseg start: lstr1: ldi r30, low(str_1<<1) ldi r31, high(str_1<<1) ldi r28, low(str_1c) ldi r29, high(str_1c) cycle1: lpm st Y+, r0 adiw r30, 1 tst r0 brne cycle1 ldi r26, low(str_1c) ldi r27, high(str_1c) ldi r30, low(str) ldi r31, high(str) nadcykl: mov r28, r26 mov r29, r27 cycle3: ld r0, Y+ st Z+, r0 tst r0 brne cycle3 sbiw r30, 1 ld r0, X+ tst r0 brne nadcykl zacatek: jmp zacatek ========================================================== Volání ... zásobník .org 0 .include "m169def.inc" ; definujeme, ze budem pouzivat stack ldi r16, 0x00 ;nutne pro stack out SPL, r16 ;nutne pro stack ldi r16, 0x04 ;nutne pro stack out SPH, r16 ;nutne pro stack ldi r16, 0x00 ldi r17, 0x80 ldi r18, 0x00 ldi r19, 0x01 call add16 call add16 konec: jmp konec add16: add r16, r18 adc r17, r19 ret =========================================================== .org 0 .include "m169def.inc" ; definujeme, ze budem pouzivat stack jmp start .cseg vstup: .db "Ahoj lidi", 0 .dseg .org 0x100 kopie: .byte 32 .cseg start: ; inicializace stacku ldi r16, 0x00 ;nutne pro stack out SPL, r16 ;nutne pro stack ldi r16, 0x04 ;nutne pro stack out SPH, r16 ;nutne pro stack ; nahraju to ldi r30, low(vstup<<1) ldi r31, high(vstup<<1) ldi r28, low(kopie) ldi r29, high(kopie) kopiruj: lpm st Y+, r0 adiw r30, 1 tst r0 brne kopiruj ; go call strlen konec: jmp konec ; do r20 spocita delku kopie strlen: ldi r26, low(kopie) ldi r27, high(kopie) ldi r20, 0 cycle3: ld r0, X+ inc r20 tst r0 brne cycle3 dec r20 ret

Joystick

(verze 30.11.2006 07:26:27)
Ukázkový program pro práci s joystickem
Obsah souboru "skd_joystick.asm":
.include "m169def.inc" ; definujeme, ze budem pouzivat stack .org 0x0000 jmp start .org 0x0002 reti .org 0x0004 reti .org 0x0006 reti .org 0x0008 reti .org 0x000A jmp int_T2 .org 0x0100 start: ; inicializace stacku ldi r16, 0x00 ;nutne pro stack out SPL, r16 ;nutne pro stack ldi r16, 0x04 ;nutne pro stack out SPH, r16 ;nutne pro stack ; inicializace joysticku in r17, DDRE andi r17, 0b11110011 in r16, PORTE ori r16, 0b00001100 out DDRE, r17 out PORTE, r16 ldi r16, 0b00000000 sts DIDR1, r16 in r17, DDRB andi r17, 0b00101111 in r16, PORTB ori r16, 0b11010000 out DDRB, r17 out PORTB, r16 ; inicializace přerušení ldi r16, 0b00000001 sts TIMSK2, r16 ; povolení přerušení od časovače 2 ldi r16, 0b00000101 sts TCCR2A, r16 ; spuštění čítače s dělicím poměrem 128 ldi r16, 0b00001000 sts ASSR, r16 ; vyber hodiny od krystalového oscilátoru 32768 Hz sei ; povolení přerušení (globální) ; testy displeje call init_disp call clear_disp ;call presip_hodiny ; ldi r16, '2' ; znak ; ldi r17, 2 ; pozice ;disp_cykl: ; push r16 ; push r17 ; call show_char ; inc r16 ; inc r17 ; cpi r17, 8 ; brlo disp_cykl ; výpočet faktoriálu ldi r20, 5 push r20 call fact pop r20 push r20 call show_dec kkkk: jmp kkkk ldi r17, 10 cykl: ldi r16, '-' ; NIC ldi r19, '-'; ldi r20, '-'; ldi r21, '-'; ldi r22, '-'; in r18, PINE ori r18, 0b11110111 ; R cpi r18, 0xFF breq ne_R ldi r16, 'R' ldi r19, 'I'; ldi r20, 'G'; ldi r21, 'H'; ldi r22, 'T'; ne_R: in r18, PINE ori r18, 0b11111011 ; L cpi r18, 0xFF breq ne_L ldi r16, 'L' ldi r19, 'E'; ldi r20, 'F'; ldi r21, 'T'; ldi r22, '-'; ne_L: in r18, PINB ori r18, 0b10111111 ; U cpi r18, 0xFF breq ne_U ldi r16, 'U' ldi r19, 'P'; ldi r20, '-'; ldi r21, '-'; ldi r22, '-'; ne_U: in r18, PINB ori r18, 0b01111111 ; D cpi r18, 0xFF breq ne_D ldi r16, 'D' ldi r19, 'O'; ldi r20, 'W'; ldi r21, 'N'; ldi r22, '-'; ne_D: in r18, PINB ori r18, 0b11101111 ; E cpi r18, 0xFF breq ne_E ldi r16, 'E' ldi r19, 'N'; ldi r20, 'T'; ldi r21, 'E'; ldi r22, 'R'; ne_E: push r16 ldi r16, 2 push r16 call show_char push r19 ldi r16, 3 push r16 call show_char push r20 ldi r16, 4 push r16 call show_char push r21 ldi r16, 5 push r16 call show_char push r22 ldi r16, 6 push r16 call show_char jmp cykl konec: jmp konec int_T2: push r16 in r16, SREG ; push r17 ; call show_dec ; cpi r17, 0 ; breq je_nula ; dec r17 ;je_nula: out SREG, r16 pop r16 reti .include "skd.inc" .include "skd_lcd.inc"

Hodiny

(verze 30.11.2006 07:26:27)
Program pro zobrazení aktuálního času na displeji, s možností nastavení času pomocí joysticku.
Obsah souboru "skd_hodiny_2.asm":
;======================================================== ;============= inicializace ============================= ;======================================================== .include "m169def.inc" ; definujeme, ze budem pouzivat stack .org 0x0000 jmp start .org 0x0002 reti .org 0x0004 reti .org 0x0006 reti .org 0x0008 reti .org 0x000A jmp int_T2 .dseg .org 0x0100 aktualni_cas: .byte 6 nast_cas: .byte 6 kurzor: .byte 1 blikani: .byte 1 .cseg start: ; inicializace stacku ldi r16, 0x00 ;nutne pro stack out SPL, r16 ;nutne pro stack ldi r16, 0x04 ;nutne pro stack out SPH, r16 ;nutne pro stack ; inicializace joysticku call joy_init ; inicializace přerušení ldi r16, 0b00000001 sts TIMSK2, r16 ; povolení přerušení od časovače 2 ldi r16, 0b00000100 sts TCCR2A, r16 ; spuštění čítače s dělicím poměrem 64 ldi r16, 0b00001000 sts ASSR, r16 ; vyber hodiny od krystalového oscilátoru 32768 Hz sei ; povolení přerušení (globální) ; inicializace displeje call init_disp call clear_disp ; inicializace aktuálního času ldi r26, low(aktualni_cas) ldi r27, high(aktualni_cas) ldi r16, '0' st X+, r16 st X+, r16 st X+, r16 st X+, r16 st X+, r16 st X+, r16 ;======================================================== ;============= normální režim - běžící čas ============== ;======================================================== bezici_cas: ldi r16, 255 sts kurzor, r16 call zobr_aktualni_cas call joy_enter brne bezici_cas ;======================================================== ;============= režim nastavování času =================== ;======================================================== ; zkopíruju si aktuální čas ldi r26, low(aktualni_cas) ldi r27, high(aktualni_cas) ldi r28, low(nast_cas) ldi r29, high(nast_cas) call kopiruj_cas call joy_uvolnit_enter ldi r16, 0 sts kurzor, r16 ; pozice kurzoru cykl_nast: ; zobrazení na displeji call zobr_nast_cas ; rozvětvení programu podle stisknutého tlačítka call joy_enter breq nast_exit call joy_vlevo breq nast_doleva call joy_vpravo breq nast_doprava call joy_nahoru breq nast_plus call joy_dolu breq nast_minus jmp cykl_nast ; tlačítko DOLEVA nast_doleva: call joy_uvolnit_vlevo lds r16, kurzor cpi r16, 0 breq cykl_nast dec r16 sts kurzor, r16 jmp cykl_nast ; tlačítko DOPRAVA nast_doprava: call joy_uvolnit_vpravo lds r16, kurzor cpi r16, 5 breq cykl_nast inc r16 sts kurzor, r16 jmp cykl_nast ; tlačítka PLUS a MÍNUS nast_plus: ldi r16, 1 jmp nast_plus_nebo_minus nast_minus: ldi r16, -1 nast_plus_nebo_minus: ldi r17, low(nast_cas) ; adresa low push r17 ldi r17, high(nast_cas) ; adresa high push r17 lds r17, kurzor push r17 ; číslice push r16 ; změna call zmenit_hodiny call zobr_nast_cas call joy_uvolnit_dolu call joy_uvolnit_nahoru jmp cykl_nast ; tlačítko EXIT nast_exit: call joy_uvolnit_enter ; zkopíruju čas zpět ldi r26, low(nast_cas) ldi r27, high(nast_cas) ldi r28, low(aktualni_cas) ldi r29, high(aktualni_cas) call kopiruj_cas ; vrátím se do režimu běžícího času jmp bezici_cas ;======================================================== ;============= obsluha přerušení od časovače ============ ;======================================================== int_T2: push r16 push r17 in r16, SREG lds r17, blikani inc r17 andi r17, 1 sts blikani, r17 cpi r17, 0 breq int_T2_tma ldi r17, low(aktualni_cas) ; adresa low push r17 ldi r17, high(aktualni_cas) ; adresa high push r17 ldi r17, 5 ; číslice push r17 ldi r17, 1 ; změna push r17 call zmenit_hodiny int_T2_tma: out SREG, r16 pop r17 pop r16 reti ;======================================================== ;============= pomocné procedury ======================== ;======================================================== ; zobrazí aktuální čas ; (neničí obsah žádných registrů) zobr_aktualni_cas: push r16 ldi r16, low(aktualni_cas) push r16 ldi r16, high(aktualni_cas) push r16 call show_hodiny pop r16 ret ; zobrazí nastavovaný čas ; (neničí obsah žádných registrů) zobr_nast_cas: push r16 ldi r16, low(nast_cas) push r16 ldi r16, high(nast_cas) push r16 call show_hodiny pop r16 ret ; další pomocné procedury .include "skd.inc" .include "skd_lcd.inc" .include "skd_hodiny.inc" .include "skd_joystick.inc"

Fibonačiho posloupnost

(verze 30.11.2006 07:26:27)
Test funkce na výpočet fibonačiho posloupnosti v skd.inc.
Obsah souboru "skd_fibonaci.asm":
;======================================================== ;============= inicializace ============================= ;======================================================== .include "m169def.inc" ; definujeme, ze budem pouzivat stack .org 0x0000 jmp start .cseg start: ; inicializace stacku ldi r16, 0x00 ;nutne pro stack out SPL, r16 ;nutne pro stack ldi r16, 0x04 ;nutne pro stack out SPH, r16 ;nutne pro stack ; inicializace joysticku call joy_init ; inicializace displeje call init_disp call clear_disp ; test zobrazení 16bitového čísla (číslo 54321) ; ldi r16, 0x31 ; push r16 ; ldi r16, 0xD4 ; push r16 ; call show_dec2 ; test zobrazení 16bitového čísla (číslo 123) ; ldi r16, 123 ; push r16 ; ldi r16, 0 ; push r16 ; call show_dec2 ; test zobrazení 16bitového čísla (číslo 0) ; ldi r16, 0 ; push r16 ; ldi r16, 0 ; push r16 ; call show_dec2 ; vstup ldi r16, 6 cykl: ; vypocet push r16 call fib call show_dec1 ; enter call joy_enter brne ne_enter push r16 call show_dec1 call joy_uvolnit_enter ne_enter: ; nahoru call joy_nahoru brne ne_nahoru inc r16 push r16 call show_dec1 call joy_uvolnit_nahoru ne_nahoru: ; dolu call joy_dolu brne ne_dolu dec r16 push r16 call show_dec1 call joy_uvolnit_dolu ne_dolu: jmp cykl ; další pomocné procedury .include "skd.inc" .include "skd_lcd.inc" .include "skd_joystick.inc"