arduino: spi.inc@79b25e81721f (annotated)

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
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	6	.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	7	.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	8	.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	9	.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	10	.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	11	.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	12
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	.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	14	.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	15
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	;; 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	17	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	18	; 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	19	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	20	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	21	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	22
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	23	; 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	24	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	25
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	26	; Set control 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	27	; Enable 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	28	; 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	29	; 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	30	; 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	31	; 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	32	; Clock rate 1/16
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	33	ldi r16, (1 << SPIE) \| (1 << SPE) \| (0 << DORD) \| (1 << MSTR) \| (0 << CPOL) \| (0 << CPHA) \| (0b01 << SPR0)
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	34	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	35
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	36	; 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	37	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	38	out SPI_FLAGS, 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	39
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	; 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	41	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	42
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	;; Send byte
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	;; Input: 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	45	;; XXX: should not be 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	46	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	47	; 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	48	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	49
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	; Enable slave (low)
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	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	52
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	; Write byte (starts SCK)
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	54	out SPDR, 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	55
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	; Wait for 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	57	; 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	58	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	59
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	60	;; Wait for byte to be sent
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	61	SPI_Wait:
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	62	sbic SPI_FLAGS, SPI_BUSY ; Test for busy 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	63	rjmp SPI_Wait ; loop
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	64
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	; 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	66	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	67
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	;; 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	69	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	70	; Store SREG
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	71	in r16, SREG
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	72
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	73	; 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	74	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	75
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	76	; Read
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	77	in r10, SPDR
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	78
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	79	; 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	80	cbi 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	81
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	; 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	83	out SREG, 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	84	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	85
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

author	Tero Marttila <terom@fixme.fi>
	Sat, 08 May 2010 17:27:27 +0300
changeset 18	79b25e81721f
parent 17	a7c668003a19
child 23	a6afc0eb347f
permissions	-rw-r--r--