spi.inc
author Tero Marttila <terom@paivola.fi>
Thu, 03 Apr 2014 19:44:13 +0300
changeset 51 ec6271f0637b
parent 36 06e1e554acbb
permissions -rw-r--r--
make: fix build-deps, and avr-objdump -d build/src/hello.elf

build/src/hello.elf: file format elf32-avr


Disassembly of section .text:

00000000 <__vectors>:
0: 0c 94 34 00 jmp 0x68 ; 0x68 <__ctors_end>
4: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
8: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
10: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
14: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
18: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
1c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
20: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
24: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
28: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
2c: 0c 94 58 00 jmp 0xb0 ; 0xb0 <__vector_11>
30: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
34: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
38: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
3c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
40: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
44: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
48: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
4c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
50: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
54: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
58: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
5c: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
60: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>
64: 0c 94 3e 00 jmp 0x7c ; 0x7c <__bad_interrupt>

00000068 <__ctors_end>:
68: 11 24 eor r1, r1
6a: 1f be out 0x3f, r1 ; 63
6c: cf ef ldi r28, 0xFF ; 255
6e: d8 e0 ldi r29, 0x08 ; 8
70: de bf out 0x3e, r29 ; 62
72: cd bf out 0x3d, r28 ; 61
74: 0e 94 90 00 call 0x120 ; 0x120 <main>
78: 0c 94 a3 00 jmp 0x146 ; 0x146 <_exit>

0000007c <__bad_interrupt>:
7c: 0c 94 00 00 jmp 0 ; 0x0 <__vectors>

00000080 <timer_init>:
80: 10 92 80 00 sts 0x0080, r1
84: 88 e0 ldi r24, 0x08 ; 8
86: 80 93 81 00 sts 0x0081, r24
8a: 10 92 82 00 sts 0x0082, r1
8e: 08 95 ret

00000090 <timer1_start>:
90: 10 92 85 00 sts 0x0085, r1
94: 10 92 84 00 sts 0x0084, r1
98: 90 93 89 00 sts 0x0089, r25
9c: 80 93 88 00 sts 0x0088, r24
a0: f1 9a sbi 0x1e, 1 ; 30
a2: 82 e0 ldi r24, 0x02 ; 2
a4: 80 93 6f 00 sts 0x006F, r24
a8: 8d e0 ldi r24, 0x0D ; 13
aa: 80 93 81 00 sts 0x0081, r24
ae: 08 95 ret

000000b0 <__vector_11>:
b0: 1f 92 push r1
b2: 0f 92 push r0
b4: 0f b6 in r0, 0x3f ; 63
b6: 0f 92 push r0
b8: 11 24 eor r1, r1
ba: 10 92 81 00 sts 0x0081, r1
be: f1 98 cbi 0x1e, 1 ; 30
c0: 0f 90 pop r0
c2: 0f be out 0x3f, r0 ; 63
c4: 0f 90 pop r0
c6: 1f 90 pop r1
c8: 18 95 reti

000000ca <timer_sleep>:
ca: 0e 94 48 00 call 0x90 ; 0x90 <timer1_start>
ce: 81 e0 ldi r24, 0x01 ; 1
d0: 83 bf out 0x33, r24 ; 51
d2: 01 c0 rjmp .+2 ; 0xd6 <timer_sleep+0xc>
d4: 88 95 sleep
d6: 8e b3 in r24, 0x1e ; 30
d8: 81 fd sbrc r24, 1
da: fc cf rjmp .-8 ; 0xd4 <timer_sleep+0xa>
dc: 13 be out 0x33, r1 ; 51
de: 08 95 ret

000000e0 <serial_init>:
e0: 10 92 c0 00 sts 0x00C0, r1
e4: 10 92 c1 00 sts 0x00C1, r1
e8: 86 e0 ldi r24, 0x06 ; 6
ea: 80 93 c2 00 sts 0x00C2, r24
ee: 87 e6 ldi r24, 0x67 ; 103
f0: 90 e0 ldi r25, 0x00 ; 0
f2: 90 93 c5 00 sts 0x00C5, r25
f6: 80 93 c4 00 sts 0x00C4, r24
fa: 08 95 ret

000000fc <serial_enable>:
fc: 88 e1 ldi r24, 0x18 ; 24
fe: 80 93 c1 00 sts 0x00C1, r24
102: 08 95 ret

00000104 <serial_read>:
104: 80 91 c0 00 lds r24, 0x00C0
108: 87 ff sbrs r24, 7
10a: fc cf rjmp .-8 ; 0x104 <serial_read>
10c: 80 91 c6 00 lds r24, 0x00C6
110: 08 95 ret

00000112 <serial_write>:
112: 90 91 c0 00 lds r25, 0x00C0
116: 95 ff sbrs r25, 5
118: fc cf rjmp .-8 ; 0x112 <serial_write>
11a: 80 93 c6 00 sts 0x00C6, r24
11e: 08 95 ret

00000120 <main>:
120: 1f 93 push r17
122: 0e 94 40 00 call 0x80 ; 0x80 <timer_init>
126: 0e 94 70 00 call 0xe0 ; 0xe0 <serial_init>
12a: 25 9a sbi 0x04, 5 ; 4
12c: 0e 94 7e 00 call 0xfc ; 0xfc <serial_enable>
130: 78 94 sei
132: 88 e5 ldi r24, 0x58 ; 88
134: 10 e2 ldi r17, 0x20 ; 32
136: 0e 94 89 00 call 0x112 ; 0x112 <serial_write>
13a: 85 b1 in r24, 0x05 ; 5
13c: 81 27 eor r24, r17
13e: 85 b9 out 0x05, r24 ; 5
140: 0e 94 82 00 call 0x104 ; 0x104 <serial_read>
144: f8 cf rjmp .-16 ; 0x136 <main+0x16>

00000146 <_exit>:
146: f8 94 cli

00000148 <__stop_program>:
148: ff cf rjmp .-2 ; 0x148 <__stop_program>
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
     1
;; vim: filetype=avr
18
79b25e81721f use timer for 1s delay
Tero Marttila <terom@fixme.fi>
parents: 17
diff changeset
     2
;;
79b25e81721f use timer for 1s delay
Tero Marttila <terom@fixme.fi>
parents: 17
diff changeset
     3
;; SPI interface control and use
79b25e81721f use timer for 1s delay
Tero Marttila <terom@fixme.fi>
parents: 17
diff changeset
     4
;;
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
     5
33
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
     6
;; I/O Port
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
     7
.equ SPI_DDR    = DDRB
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
     8
.equ SPI_PORT   = PORTB
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
     9
.equ SPI_SCK    = PORTB5
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    10
.equ SPI_MISO   = PORTB4
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    11
.equ SPI_MOSI   = PORTB3
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    12
.equ SPI_SS     = PORTB2
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    13
33
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    14
;; Internal status flags
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    15
.equ SPI_FLAGS  = GPIOR0
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    16
.equ SPI_BUSY   = 0
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    17
33
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    18
;; Settings
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    19
.set SPI_DORD = 0           ; word order
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    20
.set SPI_CPOL = 0           ; clock polarity
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    21
.set SPI_CPHA = 0           ; clock phase
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    22
.set SPI_CLOCK  = 0b01      ; clock speed
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    23
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    24
;; Internal state
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    25
; Number of in/out bytes
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    26
.set SPI_BUFLEN  = 2
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    27
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    28
.dseg
33
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    29
; Buffer for incoming frames
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    30
spi_inbuf:  .byte SPI_BUFLEN
33
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    31
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    32
; Buffer for outgoing frames
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    33
spi_outbuf: .byte SPI_BUFLEN
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    34
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    35
.cseg
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    36
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    37
;; Initialize SPI subsystem for master operation
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    38
SPI_Init:
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    39
    ; Set modes
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    40
        sbi         SPI_DDR, SPI_SCK        ; Out
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    41
        sbi         SPI_DDR, SPI_MOSI       ; Out
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    42
        sbi         SPI_DDR, SPI_SS         ; Out
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    43
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    44
    ; Drive SS high (off)
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    45
        sbi         SPI_PORT, SPI_SS
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    46
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    47
    ; Set control mode
23
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
    48
        ; XXX: Enable interrupt
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    49
        ; Enable SPI
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    50
        ; MSB first
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    51
        ; Master mode
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    52
        ; Polarity/phase: Mode 0 (sample on rising edge)
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    53
        ; Clock rate 1/16
33
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
    54
        ldi         r16, (0 << SPIE) | (1 << SPE) | (SPI_DORD << DORD) | (1 << MSTR) | (SPI_CPOL << CPOL) | (SPI_CPHA << CPHA) | (SPI_CLOCK << SPR0)
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    55
        out         SPCR, r16
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    56
    
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    57
    ; Flags
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    58
        clr         r0
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    59
        out         SPI_FLAGS, r0
30
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    60
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    61
    ; Start update timer
31
dfb246ecaf23 8x8 LED Matrix driver
Tero Marttila <terom@fixme.fi>
parents: 30
diff changeset
    62
    ; XXX: also used for ADC
dfb246ecaf23 8x8 LED Matrix driver
Tero Marttila <terom@fixme.fi>
parents: 30
diff changeset
    63
;        ldi         r16, 64         ; every 64k cycles
dfb246ecaf23 8x8 LED Matrix driver
Tero Marttila <terom@fixme.fi>
parents: 30
diff changeset
    64
;        rcall       Timer0_Start
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    65
    
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    66
    ; Done
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    67
        ret
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    68
30
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    69
;; Triggered by Timer0, updates the spi_bufs
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    70
;;  Run from timer interrupt context
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    71
SPI_Update:
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    72
        ; skip if updating
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    73
        sbic        SPI_FLAGS, SPI_BUSY
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    74
        ret
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    75
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    76
    ;; Continue
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    77
    ; XXX: blocks too much?
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
    78
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    79
;; Send/Recv from/to SPI buffers
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    80
SPI_SendRecv:
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    81
    ; Flag
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    82
        sbi         SPI_FLAGS, SPI_BUSY
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    83
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    84
    ; Start of packet
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    85
        cbi         SPI_PORT, SPI_SS
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    86
    
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    87
    ; Init buffers
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    88
        ldi         r16, SPI_BUFLEN
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    89
        
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    90
        ; send/recv in reverse order
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    91
        ldi         XL, low(spi_inbuf + SPI_BUFLEN)
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    92
        ldi         XH, high(spi_inbuf + SPI_BUFLEN)
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    93
        ldi         YL, low(spi_outbuf + SPI_BUFLEN)
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    94
        ldi         YH, high(spi_outbuf + SPI_BUFLEN)
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
    95
    
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    96
    ; Write
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    97
spi_sr_next:
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    98
        ; load+send tail byte
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
    99
        ld          r1, -Y
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   100
        out         SPDR, r1
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   101
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   102
    ; Wait
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   103
spi_sr_wait:        
23
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   104
        in          r1, SPSR
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   105
        sbrs        r1, SPIF
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   106
        rjmp        spi_sr_wait
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   107
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   108
    ; Read
36
06e1e554acbb Rename Matrix_ShiftRight to ShiftLeft, improve matrix.inc documentation
Tero Marttila <terom@fixme.fi>
parents: 33
diff changeset
   109
        ; XXX: wrong, should be head byte?
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   110
        ; read+store tail byte
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   111
        in          r1, SPDR
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   112
        st          -X, r1
23
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   113
 
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   114
    ; Done?
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   115
        dec         r16
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   116
        brne        spi_sr_next         ; if nonzero
23
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   117
    
26
db2ec641c955 refactor code to move buffers to SPI
Tero Marttila <terom@fixme.fi>
parents: 24
diff changeset
   118
    ; End of packet
23
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   119
        sbi         SPI_PORT, SPI_SS
30
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
   120
        
5226e512755c Use Timer0 for async SPI updates (semi-useful)
Tero Marttila <terom@fixme.fi>
parents: 26
diff changeset
   121
        cbi         SPI_FLAGS, SPI_BUSY
23
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   122
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   123
    ; Done
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   124
        ret
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   125
33
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   126
;; Wait for SPI to be ready for send
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   127
SPI_Wait:
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   128
    ; Test
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   129
        in          r1, SPSR
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   130
        sbrs        r1, SPIF
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   131
        rjmp        SPI_Wait
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   132
    
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   133
    ; Read SPDR to clear SPIF
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   134
        in          r10, SPDR
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   135
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   136
    ; Done
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   137
        ret
0d0309787be3 Working matrix scan
Tero Marttila <terom@fixme.fi>
parents: 31
diff changeset
   138
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   139
;; Service SPI interrupt
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   140
SPI_Interrupt:
23
a6afc0eb347f synchronous SPI, two-digit led7
Tero Marttila <terom@fixme.fi>
parents: 18
diff changeset
   141
    ; XXX: disabled
17
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   142
        reti
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   143
a7c668003a19 split led7seg.s into .inc modules, and update Makefile to use .s -> .hex, and above .inc's for led7seg
Tero Marttila <terom@fixme.fi>
parents:
diff changeset
   144