uart.s

本实例实现GSM模块的发送短消息

	.module UART.c
	.area text(rom, con, rel)
	.dbfile F:\学习\avr\sim340_e\UART.c
	.dbfunc e delay_1us _delay_1us fV
	.even
_delay_1us::
	.dbline -1
	.dbline 5
; #include "UART.h"
; #define XTAL 4    //晶振频率，单位MHz
; 
; void delay_1us(void)                 //1us延时函数
;   {
	.dbline 6
;    asm("nop");
	nop
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_nus _delay_nus fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nus::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 10
;   }
; 
; void delay_nus(unsigned int n)       //N us延时函数
;   {
	.dbline 11
;    unsigned int i=0;
	clr R20
	clr R21
	.dbline 12
;    for (i=0;i<n;i++)
	xjmp L6
L3:
	.dbline 13
	xcall _delay_1us
L4:
	.dbline 12
	subi R20,255  ; offset = 1
	sbci R21,255
L6:
	.dbline 12
	cp R20,R22
	cpc R21,R23
	brlo L3
	.dbline -2
L2:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 17
;    delay_1us();
;   }
;  
; void delay_1ms(void)                 //1ms延时函数
;   {
	.dbline 19
	clr R16
	clr R17
	xjmp L11
L8:
	.dbline 19
L9:
	.dbline 19
	subi R16,255  ; offset = 1
	sbci R17,255
L11:
	.dbline 19
;    unsigned int i;
;    for (i=0;i<(unsigned int)(XTAL*143-2);i++);
	cpi R16,58
	ldi R30,2
	cpc R17,R30
	brlo L8
	.dbline -2
L7:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delay_nms _delay_nms fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nms::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 23
;   }
;   
; void delay_nms(unsigned int n)       //N ms延时函数
;   {
	.dbline 24
;    unsigned int i=0;
	clr R20
	clr R21
	.dbline 25
;    for (i=0;i<n;i++)
	xjmp L16
L13:
	.dbline 26
	.dbline 27
	xcall _delay_1ms
	.dbline 28
L14:
	.dbline 25
	subi R20,255  ; offset = 1
	sbci R21,255
L16:
	.dbline 25
	cp R20,R22
	cpc R21,R23
	brlo L13
	.dbline -2
L12:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e SetOK _SetOK fI
;   UART1_TX_BUF -> R16,R17
	.even
_SetOK::
	.dbline -1
	.dbline 31
;    {
;       delay_1ms();
;    }   
;   }
; int SetOK(char UART1_TX_BUF[])
; {
	.dbline 32
;     UART1_TX_BUF[0] = 'O';
	ldi R24,79
	movw R30,R16
	std z+0,R24
	.dbline 33
;     UART1_TX_BUF[1] = 'K';
	ldi R24,75
	std z+1,R24
	.dbline 34
;     UART1_TX_BUF[2] = 13;
	ldi R24,13
	movw R30,R16
	std z+2,R24
	.dbline 36
;        
;     return 3;
	ldi R16,3
	ldi R17,0
	.dbline -2
L17:
	.dbline 0 ; func end
	ret
	.dbsym r UART1_TX_BUF 16 pc
	.dbend
	.dbfunc e SetError _SetError fI
;   UART1_TX_BUF -> R16,R17
	.even
_SetError::
	.dbline -1
	.dbline 39
; }
; int SetError(char UART1_TX_BUF[])
; {
	.dbline 40
;     UART1_TX_BUF[0] = 'E';
	ldi R24,69
	movw R30,R16
	std z+0,R24
	.dbline 41
;     UART1_TX_BUF[1] = 'R';
	ldi R24,82
	std z+1,R24
	.dbline 42
;     UART1_TX_BUF[2] = 'O';
	ldi R24,79
	movw R30,R16
	std z+2,R24
	.dbline 43
;     UART1_TX_BUF[3] = 'R';
	ldi R24,82
	movw R30,R16
	std z+3,R24
	.dbline 44
;     UART1_TX_BUF[4] = 'R';
	movw R30,R16
	std z+4,R24
	.dbline 45
;     UART1_TX_BUF[5] = 13;
	ldi R24,13
	movw R30,R16
	std z+5,R24
	.dbline 47
;        
;     return 6;
	ldi R16,6
	ldi R17,0
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbsym r UART1_TX_BUF 16 pc
	.dbend
	.dbfunc e SetPhone _SetPhone fI
;          chrLo -> R22
;          chrHi -> R20
;              i -> R22,R23
;           nLen -> y+4
;          phone -> R18,R19
;           recv -> R16,R17
	.even
_SetPhone::
	xcall push_gset2
	.dbline -1
	.dbline 50
; }
; int SetPhone(char recv[],char phone[],int nLen)
; {
	.dbline 53
;     int i;
;     char chrHi,chrLo;
;     chrHi = recv[0];//长度
	movw R30,R16
	ldd R20,z+0
	.dbline 54
;     chrLo = recv[1];
	ldd R22,z+1
	.dbline 55
;     if(recv[1] == ',')
	movw R30,R16
	ldd R24,z+1
	cpi R24,44
	brne L20
	.dbline 56
;     {
	.dbline 57
;         for(i = 0;i < chrHi;i++)
	clr R22
	clr R23
	xjmp L25
L22:
	.dbline 58
	.dbline 59
	movw R30,R22
	add R30,R16
	adc R31,R17
	ldd R2,z+2
	movw R30,R22
	add R30,R18
	adc R31,R19
	std z+0,R2
	.dbline 60
L23:
	.dbline 57
	subi R22,255  ; offset = 1
	sbci R23,255
L25:
	.dbline 57
	mov R2,R20
	clr R3
	cp R22,R2
	cpc R23,R3
	brlt L22
	.dbline 61
;         {
;     	    phone[i] = recv[i + 2];
;         }
;     }
	xjmp L21
L20:
	.dbline 62
;     else return 0;
	clr R16
	clr R17
	xjmp L19
L21:
	.dbline 64
; 
;     return chrHi;
	mov R16,R20
	clr R17
	.dbline -2
L19:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r chrLo 22 c
	.dbsym r chrHi 20 c
	.dbsym r i 22 I
	.dbsym l nLen 4 I
	.dbsym r phone 18 pc
	.dbsym r recv 16 pc
	.dbend
	.dbfunc e GetPhone _GetPhone fI
;              i -> R20,R21
;            out -> R18,R19
;             in -> R16,R17
	.even
_GetPhone::
	xcall push_gset1
	.dbline -1
	.dbline 68
; }
; 
; int  GetPhone(char *in,char *out)
; {
	.dbline 69
;  int i=0;
	clr R20
	clr R21
	xjmp L28
L27:
	.dbline 71
	.dbline 72
	movw R30,R20
	add R30,R16
	adc R31,R17
	ldd R2,z+7
	movw R30,R20
	add R30,R18
	adc R31,R19
	std z+0,R2
	.dbline 73
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 74
L28:
	.dbline 70
;  while(in[i]!=',')
	movw R30,R20
	add R30,R16
	adc R31,R17
	ldd R24,z+0
	cpi R24,44
	brne L27
	.dbline 75
;    {
;     out[i]=in[i+7];
; 	i++;
;    }
;   return  i; 
	movw R16,R20
	.dbline -2
L26:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 20 I
	.dbsym r out 18 pc
	.dbsym r in 16 pc
	.dbend