uart.s

PS2_KEYBOARD for AVR

	.module uart.c
	.area text(rom, con, rel)
	.dbfile C:\mega8\PS2_KEYBOARD\uart.c
	.dbfunc e putchar _putchar fV
;              c -> R16
	.even
_putchar::
	.dbline -1
	.dbline 20
; /******************************************/
; /*           广州天河双龙电子公司         */
; /*           http://www.sl.com.cn         */
; /*              PS2键盘演示程序           */
; /*            作者:[e-mail]         */
; /*               2002年5月10日            */
; /*  目标MCU:MEGA8   晶振:外部(EXT) 8MHZ   */
; /******************************************/
; //  1、使用ICCAVR的终端调试窗口(Terminal)，进行调试。
; //  2、对ICCAVR的终端调试窗口进行设置，设置串口为com1或com2,
; //     通信波特率为19200(Tools->Environment Options...)。
; //  3、将PS2键盘插入SL-MEGA8开发板的PS2键盘插座。 
; #include <iom8v.h>
; #define fosc 8000000 //晶振8MHZ
; #define baud 19200	 //波特率
; extern unsigned char read_flash(unsigned int add);
; extern void init_kb(void);
; /*  		字符输出函数 		 */
; void putchar(unsigned char c)
; 	{	 
L2:
	.dbline 21
L3:
	.dbline 21
;      while (!(UCSRA&(1<<UDRE)));
	sbis 0xb,5
	rjmp L2
	.dbline 22
; 	 UDR=c;    
	out 0xc,R16
	.dbline -2
	.dbline 23
; 	}	
L1:
	.dbline 0 ; func end
	ret
	.dbsym r c 16 c
	.dbend
	.dbfunc e puts _puts fI
;              s -> R20,R21
	.even
_puts::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 27
; extern unsigned char getchar(void);	
; /*			字符串输出函数	   	 */	
; int puts(char *s)
; 	{
	rjmp L7
L6:
	.dbline 29
	.dbline 30
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 31
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 32
L7:
	.dbline 28
; 	while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L6
	.dbline 33
; 		{
; 		putchar(*s);
; 		s++;
; 		}	
;     putchar(0x0a);//回车换行
	ldi R16,10
	rcall _putchar
	.dbline 34
; 	putchar(0x0d);
	ldi R16,13
	rcall _putchar
	.dbline 35
; 	return 1;
	ldi R16,1
	ldi R17,0
	.dbline -2
L5:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r s 20 pc
	.dbend
	.dbfunc e putstr _putstr fV
;              s -> R20,R21
	.even
_putstr::
	rcall push_gset1
	movw R20,R16
	.dbline -1
	.dbline 39
; 	}
; /*	 	   不含回车换行的字符串输出函数 	 */	
; void putstr(char *s)
; 	{
	rjmp L11
L10:
	.dbline 41
	.dbline 42
	movw R30,R20
	ldd R16,z+0
	rcall _putchar
	.dbline 43
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 44
L11:
	.dbline 40
; 	while (*s)
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L10
	.dbline -2
	.dbline 45
; 		{
; 		putchar(*s);
; 		s++;
; 		}	
; 	}	
L9:
	rcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r s 20 pc
	.dbend
	.dbfunc e uart_init _uart_init fV
	.even
_uart_init::
	.dbline -1
	.dbline 48
; /*			UART初始化				*/	
; void uart_init(void)
; {
	.dbline 49
;  OSCCAL=read_flash(0x1f20);
	ldi R16,7968
	ldi R17,31
	rcall _read_flash
	out 0x31,R16
	.dbline 50
;  UCSRB=(1<<RXEN)|(1<<TXEN);//允许发送和接收
	ldi R24,24
	out 0xa,R24
	.dbline 51
;  UBRRL=(fosc/16/(baud+1))%256;
	ldi R24,26
	out 0x9,R24
	.dbline 52
;  UBRRH=(fosc/16/(baud+1))/256;
	clr R2
	out 0x20,R2
	.dbline 53
;  UCSRC=(1<<URSEL)|(1<<UCSZ1)|(1<<UCSZ0);//8位数据+1位STOP位
	ldi R24,134
	out 0x20,R24
	.dbline -2
	.dbline 54
; }
L13:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e main _main fV
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 57
; /*			RS232通信main函数		*/
; void main(void)
; {
	.dbline 59
;  unsigned char i; 
;  init_kb();
	rcall _init_kb
	.dbline 60
;  uart_init();
	rcall _uart_init
	.dbline 61
;  puts("广州天河双龙电子公司PS2键盘演示程序");
	ldi R16,<L15
	ldi R17,>L15
	rcall _puts
	.dbline 62
;  puts("HTTP://WWW.SL.COM.CN");
	ldi R16,<L16
	ldi R17,>L16
	rcall _puts
	.dbline 63
;  puts("MAIL TO:[e-mail]");
	ldi R16,<L17
	ldi R17,>L17
	rcall _puts
	.dbline 64
;  putchar(0x0a);
	ldi R16,10
	rcall _putchar
	.dbline 65
;  putchar(0x0d);//换行 
	ldi R16,13
	rcall _putchar
	rjmp L19
L18:
	.dbline 67
;  while(1)
;     {
	.dbline 68
; 	 i=getchar();
	rcall _getchar
	mov R20,R16
	.dbline 69
; 	 if (i!=0)//按PC键盘开始测试
	tst R16
	breq L21
	.dbline 70
; 	   {
	.dbline 71
; 	    putstr("当前按键是：");
	ldi R16,<L23
	ldi R17,>L23
	rcall _putstr
	.dbline 72
; 		putchar(i);
	mov R16,R20
	rcall _putchar
	.dbline 73
; 		putchar(0x0a);
	ldi R16,10
	rcall _putchar
	.dbline 74
; 		putchar(0x0d);
	ldi R16,13
	rcall _putchar
	.dbline 75
; 	    puts("广州天河双龙电子公司PS2键盘演示程序");
	ldi R16,<L15
	ldi R17,>L15
	rcall _puts
	.dbline 76
;  		puts("HTTP://WWW.SL.COM.CN");
	ldi R16,<L16
	ldi R17,>L16
	rcall _puts
	.dbline 77
;   		puts("MAIL TO:[e-mail]");
	ldi R16,<L17
	ldi R17,>L17
	rcall _puts
	.dbline 78
; 		putchar(0x0a);
	ldi R16,10
	rcall _putchar
	.dbline 79
; 		putchar(0x0d); 
	ldi R16,13
	rcall _putchar
	.dbline 80
; 	   }	 
L21:
	.dbline 81
L19:
	.dbline 66
	rjmp L18
X0:
	.dbline -2
	.dbline 82
; 	}
; }
L14:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
	.area data(ram, con, rel)
	.dbfile C:\mega8\PS2_KEYBOARD\uart.c
L23:
	.blkb 13
	.area idata
	.byte 181,177,199,176,176,180,188,252,202,199,163,186,0
	.area data(ram, con, rel)
	.dbfile C:\mega8\PS2_KEYBOARD\uart.c
L17:
	.blkb 23
	.area idata
	.byte 'M,'A,'I,'L,32,'T,'O,58,'s,'l,'l,'g,64,'s,'l,46
	.byte 'c,'o,'m,46,'c,'n,0
	.area data(ram, con, rel)
	.dbfile C:\mega8\PS2_KEYBOARD\uart.c
L16:
	.blkb 21
	.area idata
	.byte 'H,'T,'T,'P,58,47,47,'W,'W,'W,46,'S,'L,46,'C,'O
	.byte 'M,46,'C,'N,0
	.area data(ram, con, rel)
	.dbfile C:\mega8\PS2_KEYBOARD\uart.c
L15:
	.blkb 36
	.area idata
	.byte 185,227,214,221,204,236,186,211,203,171,193,250,181,231,215,211
	.byte 185,171,203,190,'P,'S,50,188,252,197,204,209,221,202,190,179
	.byte 204,208,242,0
	.area data(ram, con, rel)
	.dbfile C:\mega8\PS2_KEYBOARD\uart.c