OldComp.cz

   .syntax unified
   .cpu cortex-m4
   .thumb

   .section data

// lokalni data
BusData:
   .lcomm   BusDataMulL,1      // 0: nasobek LOW
   .lcomm   BudDataMulH,1      // 1: nasobek HIGH
   .lcomm   BusDataMulResL,1   // 2: nasobek vysledek LOW
   .lcomm   BudDataMulResH,1   // 3: nasobek vysledek HIGH

   .section .text

/* Piny:
PA15 - D1
PA14 - D2 (SWCLK)
PA13 - D3 (SWDIO)
PA12 - D4
PA11 - D5
PA10 - D6
PA9 - D7
PA8 - D8
PA7 - A0
PA6 - /CS
PA5, PA4, PA3 - 0
PA2 - /WR
PA1 - /RD
PA0 - FR
*/

// --------------------------------------------------------
//       Obsluha sbernice pri cekani na command
// --------------------------------------------------------

.global BusCmd
BusCmd:
   // uschova registru
   push   {r4,r5,r6}

   // priprava basove adresy GPIOA -> R3
   movs   r3,#0x90      // bazova adresa GPIOA >> 23
   lsls   r3,r3,#23      // posun, basova adresa GPIOA = 0x48000000

   // bazova adresa tabulky skoku -> R12
   ldr   r12,=BusCmdJmp

   // priprava masky ridicich signalu -> R2
   movs   r2,#0xf8      // maska, bity 3..7

   // priprava bazove adresy lokalnich dat
   ldr   r6,=BusData

// zacatek cekaci smycky
BusCmdLoop:

   // nacteni portu A
   ldr   r1,[r3, #0x10]      // nacteni vstupu z GPIOA (registr IDR)

   // priprava adresy skoku (adresa skoku je nasobek 8) -> R4
   // pozn: bity 3..5 jsou = 0
   lsls   r4,r1,#3      // portA << 3
   orrs   r4,r1         // portA | (portA << 3)
   ands   r4,r2         // maskovani bitu ridicich signalu
   add   r3,r12         // pricteni bazove adresy tabulky skoku

   // skok na obsluhu
   bx   r3

// --------------------------------------------------------
//   Obsluhy ridicich signalu sbernice - cekani na povel
// --------------------------------------------------------
// - je to 64 obsluh, kazda obsluha 8 bajtu = 4 instrukce
// Cela tabulka ma velikost 256 bajtu.

   .align   3      // zarovnani na 8 bajtu
BusCmdJmp:         // zacatek tabulky obsluh

// ---- 00000: neplatny stav
//  B7: A0 = 0
//  B6: /CS = 0
//  B5: /WR = 0
//  B4: /RD = 0
//  B5: A1 = 0
   .align   3      // zarovnani na 8 bajtu
   b   BusCmdLoop   // skok zpet do smycky
// .... atd

// ---- 00100: zacatek cteciho impulsu, adresa 0: cteni vysledku nasobeni LOW
//  B7: A0 = 0
//  B6: /CS = 0
//  B5: /WR = 1
//  B4: /RD = 0
//  B5: A1 = 0
   .align   3      // zarovnani na 8 bajtu
   b   BusReadL   // skok na obsluhu cteni vysledku nasobeni LOW
// .... atd

// Obsluha cteni vysledku nasobeni LOW
BusReadL:

   ldrb   r1,[r6,#2]   // nasobek vysledku LOW
   lsls   r1,r1,#8   // posun
   strb   r1,[r3,#0x14]   // vystup na port GPIOA (registr ODR)
   
   ldr   r1,=0x55550000   // bity 8..15 jako vystup
   str   r1,[r3,#0]   // nastaveni bitu jako vystup

// ... pokracuje obsluha cekani na konec /RD