.module common.c
	.area text(rom, con, rel)
	.dbfile F:\我的BACK\淘寶\128開發板\程序\128L_USART1\common.c
	.dbfunc e port_init _port_init fV
	.even
_port_init::
	.dbline -1
	.dbline 7
; 
; #include <iom128v.h>
; #include <macros.h>
; #include "config.h"
; 
; void port_init(void)
; {
	.dbline 8
;  PORTA = 0x00;
	clr R2
	out 0x1b,R2
	.dbline 9
;  DDRA  = 0x00;
	out 0x1a,R2
	.dbline 10
;  PORTB = 0x80;
	ldi R24,128
	out 0x18,R24
	.dbline 11
;  DDRB  = 0x80;
	out 0x17,R24
	.dbline 12
;  PORTC = 0x00; //m103 output only
	out 0x15,R2
	.dbline 13
;  DDRC  = 0x00;
	out 0x14,R2
	.dbline 14
;  PORTD = 0x00;
	out 0x12,R2
	.dbline 15
;  DDRD  = 0x00;
	out 0x11,R2
	.dbline 16
;  PORTE = 0x00;
	out 0x3,R2
	.dbline 17
;  DDRE  = 0x00;
	out 0x2,R2
	.dbline 18
;  PORTF = 0x00;
	sts 98,R2
	.dbline 19
;  DDRF  = 0x00;
	sts 97,R2
	.dbline 20
;  PORTG = 0x00;
	sts 101,R2
	.dbline 21
;  DDRG  = 0x00;
	sts 100,R2
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e spi_init _spi_init fV
	.even
_spi_init::
	.dbline -1
	.dbline 27
; }
; 
; //SPI initialize
; // clock rate: 1000000hz
; void spi_init(void)
; {
	.dbline 28
;  SPCR = 0x50; //setup SPI
	ldi R24,80
	out 0xd,R24
	.dbline 29
;  SPSR = 0x00; //setup SPI
	clr R2
	out 0xe,R2
	.dbline -2
L2:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e uart0_init _uart0_init fV
	.even
_uart0_init::
	.dbline -1
	.dbline 33
; }
; //1200  4M
; void uart0_init(void)
; {
	.dbline 34
;  UCSR0B = 0x00; //disable while setting baud rate
	clr R2
	out 0xa,R2
	.dbline 35
;  UCSR0A = 0x00;
	out 0xb,R2
	.dbline 36
;  UCSR0C = 0x06;
	ldi R24,6
	sts 149,R24
	.dbline 37
;  UBRR0L = 0xCF; //set baud rate lo
	ldi R24,207
	out 0x9,R24
	.dbline 38
;  UBRR0H = 0x00; //set baud rate hi
	sts 144,R2
	.dbline 39
;  UCSR0B = 0x18;
	ldi R24,24
	out 0xa,R24
	.dbline -2
L3:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e uart1_init _uart1_init fV
	.even
_uart1_init::
	.dbline -1
	.dbline 48
; }
; 
; //UART1 initialize
; // desired baud rate:2400
; // actual baud rate:2404 (0.2%)
; // char size: 8 bit
; // parity: Disabled
; void uart1_init(void)
; {
	.dbline 49
;  UCSR1B = 0x00; //disable while setting baud rate
	clr R2
	sts 154,R2
	.dbline 50
;  UCSR1A = 0x00;
	sts 155,R2
	.dbline 51
;  UCSR1C = 0x06;
	ldi R24,6
	sts 157,R24
	.dbline 52
;  UBRR1L = 0x67; //set baud rate lo
	ldi R24,103
	sts 153,R24
	.dbline 53
;  UBRR1H = 0x00; //set baud rate hi
	sts 152,R2
	.dbline 54
;  UCSR1B = 0x18;
	ldi R24,24
	sts 154,R24
	.dbline -2
L4:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e init_devices _init_devices fV
	.even
_init_devices::
	.dbline -1
	.dbline 59
; }
; 
; //call this routine to initialize all peripherals
; void init_devices(void)
; {
	.dbline 61
;  //stop errant interrupts until set up
;  CLI(); //disable all interrupts
	cli
	.dbline 62
;  XDIV  = 0x00; //xtal divider
	clr R2
	out 0x3c,R2
	.dbline 63
;  XMCRA = 0x00; //external memory
	sts 109,R2
	.dbline 64
;  port_init();
	xcall _port_init
	.dbline 65
;  spi_init();
	xcall _spi_init
	.dbline 66
;  uart0_init();
	xcall _uart0_init
	.dbline 67
;  uart1_init();
	xcall _uart1_init
	.dbline 69
; 
;  MCUCR = 0x00;
	clr R2
	out 0x35,R2
	.dbline 70
;  EICRA = 0x00; //extended ext ints
	sts 106,R2
	.dbline 71
;  EICRB = 0x00; //extended ext ints
	out 0x3a,R2
	.dbline 72
;  EIMSK = 0x00;
	out 0x39,R2
	.dbline 73
;  TIMSK = 0x00; //timer interrupt sources
	out 0x37,R2
	.dbline 74
;  ETIMSK = 0x00; //extended timer interrupt sources
	sts 125,R2
	.dbline 75
;  SEI(); //re-enable interrupts
	sei
	.dbline -2
L5:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay _delay fV
;              i -> R20,R21
;              j -> R22,R23
;              t -> R16,R17
	.even
_delay::
	xcall push_gset2
	.dbline -1
	.dbline 90
;  //all peripherals are now initialized
; }
; 
; 
; 
; 
; 
; //*********************************************************************/ 
; //*函數名：delay()
; //*函數功能：延時函數
; //*函數說明：無返回值  t為一個延時的時間
; //*設計者： yu  日期：2007-10-20
; //**********************************************************************/
; void delay(int t)
; {
	.dbline 92
;     int i,j ;
;     for(i=0;i<t;i++)
	clr R20
	clr R21
	xjmp L10
L7:
	.dbline 93
	clr R22
	clr R23
	xjmp L14
L11:
	.dbline 93
L12:
	.dbline 93
	subi R22,255  ; offset = 1
	sbci R23,255
L14:
	.dbline 93
	cp R22,R16
	cpc R23,R17
	brlt L11
L8:
	.dbline 92
	subi R20,255  ; offset = 1
	sbci R21,255
L10:
	.dbline 92
	cp R20,R16
	cpc R21,R17
	brlt L7
	.dbline -2
L6:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 I
	.dbsym r j 22 I
	.dbsym r t 16 I
	.dbend
	.dbfunc e led_on_off _led_on_off fV
;       led_flag -> R16
	.even
_led_on_off::
	.dbline -1
	.dbline 101
;     for(j=0;j<t;j++);
; }
; 
; //////////////////////////////////////////////////////////
; /*led_on_off()
; /*LED的開和關閉
; */
; void led_on_off(BYTE led_flag)
; {
	.dbline 103
;     //設置PC0口為輸出0，點亮LED
;     if(led_flag==1)
	cpi R16,1
	brne L16
	.dbline 104
;     {
	.dbline 105
;         PBO.B4=0 ;
	in R24,0x18
	andi R24,239
	out 0x18,R24
	.dbline 106
;         PBD.B4=1 ;
	in R24,0x17
	ori R24,16
	out 0x17,R24
	.dbline 107
;     }
	xjmp L17
L16:
	.dbline 110
	.dbline 111
	in R24,0x18
	ori R24,16
	out 0x18,R24
	.dbline 112
	in R24,0x17
	ori R24,16
	out 0x17,R24
	.dbline 113
L17:
	.dbline -2
L15:
	.dbline 0 ; func end
	ret
	.dbsym r led_flag 16 c
	.dbend
	.dbfunc e led_response _led_response fV
;              i -> R20,R21
;              t -> R22,R23
	.even
_led_response::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 117
;     //設置PC0口為輸出1，關閉LED
;     else 
;     {
;         PBO.B4=1 ;
;         PBD.B4=1 ;
;     }
; }
; 
; void led_response (int t)
; {
	.dbline 119
;  int i;
;  for(i = 0;i < t;i++)
	clr R20
	clr R21
	xjmp L22
L19:
	.dbline 120
	.dbline 121
	ldi R16,1
	xcall _led_on_off
	.dbline 122
	ldi R16,150
	ldi R17,0
	xcall _delay
	.dbline 123
	clr R16
	xcall _led_on_off
	.dbline 124
	ldi R16,150
	ldi R17,0
	xcall _delay
	.dbline 125
L20:
	.dbline 119
	subi R20,255  ; offset = 1
	sbci R21,255
L22:
	.dbline 119
	cp R20,R22
	cpc R21,R23
	brlt L19
	.dbline -2
L18:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 I
	.dbsym r t 22 I
	.dbend
	.dbfunc e SPI_MasterInit _SPI_MasterInit fV
	.even
_SPI_MasterInit::
	.dbline -1
	.dbline 129
;   {
;     led_on_off(ON);           //點亮LED燈
;     delay(150);
;     led_on_off(OFF);           //關閉LED燈
;     delay(150);    
;   }
; }
; 
; void SPI_MasterInit(void)
; {
	.dbline 131
; /* 設置MOSI 和SCK 片選為輸出，其他為輸入 */
; PORTB |= (1<<PB3) | (1<<PB4) | (1<<PB5) | (1<<PB6); 
	in R24,0x18
	ori R24,120
	out 0x18,R24
	.dbline 132
; DDRB = (1<<DDB2)|(1<<DDB1)|(1<<DDB0);
	ldi R24,7
	out 0x17,R24
	.dbline 134
; /* 使能SPI 主機模式，設置時鐘速率為fck/16 */
; SPCR = (1<<SPE)|(1<<MSTR)|(1<<SPR0);
	ldi R24,81
	out 0xd,R24
	.dbline -2
L23:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e SPI_MasterTransmit _SPI_MasterTransmit fV
;          cData -> R16
	.even
_SPI_MasterTransmit::
	.dbline -1
	.dbline 137
; }
; void SPI_MasterTransmit(char cData)
; {
	.dbline 138
; PORTB &=~ (1<<PB0); //強制接收方進入從模式
	cbi 0x18,0
	.dbline 139
; SPCR |= (1<<MSTR); // MSTR有時會被清零，這里強制進入主機模式
	sbi 0xd,4
	.dbline 141
; /* 啟動數據傳輸 */
; SPDR = cData;
	out 0xf,R16
L25:
	.dbline 143
L26:
	.dbline 143
; /* 等待傳輸結束 */
; while(!(SPSR & (1<<SPIF)));
	sbis 0xe,7
	rjmp L25
	.dbline -2
L24:
	.dbline 0 ; func end
	ret
	.dbsym r cData 16 c
	.dbend