.module spi.c
	.area text(rom, con, rel)
	.dbfile E:\心電監護系統\測試程序\第一階段\無線測試\發送端\spi.c
	.dbfunc e init_spi _init_spi fV
;           temp -> R16
	.even
_init_spi::
	.dbline -1
	.dbline 22
; /***************************************
; *2008,浙江工業大學信息與控制研究所
; *All rights reserved
; *
; *文件名稱：spi.h
; *摘    要：SPI口的相關函數實現
; *
; *當前版本：1.1
; *作    者：王微
; *完成日期：2008.4.22
; ****************************************/
; 
; #include "spi.h"
; 
; /*************************************************
; 函數功能：初始化SPI口
; 輸入參數：無
; 輸出參數：無
; 返 回 值：無
; **************************************************/
; void init_spi(void)
; { 
	.dbline 24
;     unsigned char temp;
; 	DDRB|=(1<<MOSI)|(1<<SCK)|(1<<TRX_CE);//設置MOSI、SCK和SS 為輸出，其他為輸入 
	in R24,0x17
	ori R24,7
	out 0x17,R24
	.dbline 25
; 	DDRE|=(1<<CSN)|(1<<PWR_UP)|(1<<TX_EN);//設置端口E的1，2，3引腳為輸出引腳
	in R24,0x2
	ori R24,14
	out 0x2,R24
	.dbline 27
; 
;     SPCR = (1<<SPE)|(1<<MSTR);// 使能SPI，主機模式，設置時鐘速率為fck/4 
	ldi R24,80
	out 0xd,R24
	.dbline 28
; 	SPSR = BIT(SPI2X);
	ldi R24,1
	out 0xe,R24
	.dbline 30
; 
;     temp = SPSR; //!!! 讀一次SPSR為了清除SPIF位和WCOL位
	in R16,0xe
	.dbline 32
; 
;     temp = SPDR; //清空SPI，和中斷標志，使SPI空閑
	in R16,0xf
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r temp 16 c
	.dbend
	.dbfunc e SpiWrite _SpiWrite fc
;           temp -> R20,R21
;       data_spi -> R16
	.even
_SpiWrite::
	xcall push_gset1
	.dbline -1
	.dbline 42
; }
; 
; /**************************************************
; 函數功能：寫SPI一個字節
; 輸入參數：要寫的數據
; 輸出參數：無
; 返 回 值：對應指令的結果
; **************************************************/
; unsigned char SpiWrite(unsigned char data_spi)
; { 
	.dbline 44
;   unsigned temp;
;   SPDR=data_spi;
	out 0xf,R16
L3:
	.dbline 45
	.dbline 45
	.dbline 45
L4:
	.dbline 45
;   while(!(SPSR & (1<<SPIF))){;}//等待傳輸結束
	sbis 0xe,7
	rjmp L3
	.dbline 46
;   temp=SPDR;
	in R20,0xf
	clr R21
	.dbline 47
;   return temp;
	mov R16,R20
	.dbline -2
L2:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r temp 20 i
	.dbsym r data_spi 16 c
	.dbend