1602.s

AVR MEGA16 控制 LCD（1602） 显示英文单词

	.module _1602.c
	.area data(ram, con, rel)
_str1::
	.blkb 16
	.area idata
	.byte 32,32,32,'I,32,'l,'o,'v,'e,32,'y,'o,'u,32,32,0
	.area data(ram, con, rel)
	.dbfile 1602.c
	.dbsym e str1 _str1 A[16:16]c
_str2::
	.blkb 17
	.area idata
	.byte 32,'w,'w,'w,46,'o,'u,'r,'a,'v,'r,46,'c,'o,'m,32
	.byte 0
	.area data(ram, con, rel)
	.dbfile 1602.c
	.dbsym e str2 _str2 A[17:17]c
	.area text(rom, con, rel)
	.dbfile 1602.c
	.dbfunc e main _main fV
	.even
_main::
	.dbline -1
	.dbline 54
; #include <iom16v.h>
; #include <macros.h>
; 
; #define lcd_data_port PORTD
; #define lcd_data_ddr DDRD
; #define lcd_busy_pin PIND
; #define lcd_busy_ddr DDRD
; #define lcd_control_port PORTA
; #define lcd_control_ddr DDRA
; 
; #define lcd_RS 0x01	
; //PORTA0
; #define lcd_RW 0x02	
; //PORTA1
; #define lcd_EN 0x04	
; //PORTA2
; #define busy 0x80	
; //LCD_DB7
; 
; 
; 
; 
; 
; 
; 
; /*----------------------------------函数声明------------------------------------------*/
; void lcd_init(void);
; void lcd_write_command(unsigned char command,unsigned char wait_en);
; void lcd_write_data(unsigned char char_data);
; void wait_enable(void);
; void display_a_char(unsigned char position,unsigned char char_data);
; void display_a_string(unsigned char col,unsigned char *ptr);
; void delay_1ms(void);
; void delay_nms(unsigned int n);
; 
; 
; 
; 
; 
; 
; 
; //显示的两行字符
; unsigned char str1[]="   I love you  ";
; unsigned char str2[]=" www.ouravr.com ";
; 
; 
; 
; 
; 
; 
; 
; /*------------------------------------主函数-------------------------------------------*/
; void main(void)
; {
	.dbline 55
; 	lcd_data_port=0xff;
	ldi R24,255
	out 0x12,R24
	.dbline 56
; 	lcd_data_ddr=0xff;
	out 0x11,R24
	.dbline 57
; 	lcd_control_port=0x07;
	ldi R24,7
	out 0x1b,R24
	.dbline 58
; 	lcd_control_ddr=0x07;
	out 0x1a,R24
	.dbline 59
; 	lcd_init();
	xcall _lcd_init
	.dbline 60
; 	display_a_string(0,str1);
	ldi R18,<_str1
	ldi R19,>_str1
	clr R16
	xcall _display_a_string
	.dbline 61
; 	display_a_string(1,str2);
	ldi R18,<_str2
	ldi R19,>_str2
	ldi R16,1
	xcall _display_a_string
L2:
	.dbline 62
L3:
	.dbline 62
	xjmp L2
X0:
	.dbline -2
	.dbline 63
; 	while(1);
; }
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e lcd_init _lcd_init fV
	.even
_lcd_init::
	.dbline -1
	.dbline 77
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 	
; /*------------------------------------液晶驱动函数-------------------------------------*/
; //液晶初始化
; void lcd_init(void)
; {
	.dbline 78
; 	delay_nms(15);
	ldi R16,15
	ldi R17,0
	xcall _delay_nms
	.dbline 79
; 	lcd_write_command(0x38,0);//显示模式设置三次(此时不管lcd空闲与否)
	clr R18
	ldi R16,56
	xcall _lcd_write_command
	.dbline 80
; 	delay_nms(5);
	ldi R16,5
	ldi R17,0
	xcall _delay_nms
	.dbline 81
; 	lcd_write_command(0x38,0);
	clr R18
	ldi R16,56
	xcall _lcd_write_command
	.dbline 82
; 	delay_nms(5);
	ldi R16,5
	ldi R17,0
	xcall _delay_nms
	.dbline 83
; 	lcd_write_command(0x38,0);
	clr R18
	ldi R16,56
	xcall _lcd_write_command
	.dbline 84
; 	delay_nms(5);
	ldi R16,5
	ldi R17,0
	xcall _delay_nms
	.dbline 86
; 	
; 	lcd_write_command(0x38,1);//显示模式设置(从此之后均需lcd空闲)
	ldi R18,1
	ldi R16,56
	xcall _lcd_write_command
	.dbline 87
; 	lcd_write_command(0x08,1);//显示关闭
	ldi R18,1
	ldi R16,8
	xcall _lcd_write_command
	.dbline 88
; 	lcd_write_command(0x01,1);//显示清屏
	ldi R18,1
	ldi R16,1
	xcall _lcd_write_command
	.dbline 89
; 	lcd_write_command(0x06,1);//显示光标移动设置
	ldi R18,1
	ldi R16,6
	xcall _lcd_write_command
	.dbline 90
; 	lcd_write_command(0x0c,1);//显示开及光标设置
	ldi R18,1
	ldi R16,12
	.dbline -2
	.dbline 91
; }
L5:
	.dbline 0 ; func end
	xjmp _lcd_write_command
	.dbend
	.dbfunc e lcd_write_command _lcd_write_command fV
;        wait_en -> R22
;        command -> R20
	.even
_lcd_write_command::
	xcall push_gset2
	mov R22,R18
	mov R20,R16
	.dbline -1
	.dbline 102
; 
; 
; 
; 
; 
; 
; 
; 
; //写指令函数: E=高脉冲 RS=0 RW=0
; void lcd_write_command(unsigned char command,unsigned char wait_en)//command为指令，wait_en指定是否要检测LCD忙信号
; {
	.dbline 103
; 	if(wait_en)wait_enable();//若wait_en为1，则要检测LCD忙信号，等待其空闲
	tst R22
	breq L7
	.dbline 103
	xcall _wait_enable
L7:
	.dbline 104
; 	lcd_control_port&=~lcd_RS;//RS=0
	cbi 0x1b,0
	.dbline 105
; 	lcd_control_port&=~lcd_RW;//RW=0
	cbi 0x1b,1
	.dbline 106
; 	lcd_control_port&=~lcd_EN;//E=0,下面给LCD一个高脉冲
	cbi 0x1b,2
	.dbline 107
; 	NOP();
	nop
	.dbline 108
; 	lcd_control_port|=lcd_EN;//E=1
	sbi 0x1b,2
	.dbline 109
; 	lcd_data_port=command;
	out 0x12,R20
	.dbline 110
; 	lcd_control_port&=~lcd_EN;//重设E=0
	cbi 0x1b,2
	.dbline -2
	.dbline 111
; }
L6:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r wait_en 22 c
	.dbsym r command 20 c
	.dbend
	.dbfunc e lcd_write_data _lcd_write_data fV
;      char_data -> R20
	.even
_lcd_write_data::
	xcall push_gset1
	mov R20,R16
	.dbline -1
	.dbline 123
; 
; 
; 
; 
; 
; 
; 
; 
; 
; //写数据函数: E =高脉冲 RS=1 RW=0
; void lcd_write_data(unsigned char char_data)
; {
	.dbline 124
; 	wait_enable();//等待LCD空闲
	xcall _wait_enable
	.dbline 125
; 	lcd_control_port|=lcd_RS;//RS=1
	sbi 0x1b,0
	.dbline 126
; 	lcd_control_port&=~lcd_RW;//RW=0
	cbi 0x1b,1
	.dbline 127
; 	lcd_control_port&=~lcd_EN;//E=0,下面给LCD一个高脉冲
	cbi 0x1b,2
	.dbline 128
; 	NOP();
	nop
	.dbline 129
; 	lcd_control_port|=lcd_EN;//E=1
	sbi 0x1b,2
	.dbline 130
; 	lcd_data_port=char_data;
	out 0x12,R20
	.dbline 131
; 	lcd_control_port&=~lcd_EN;//重设E=0
	cbi 0x1b,2
	.dbline -2
	.dbline 132
; }
L9:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r char_data 20 c
	.dbend
	.dbfunc e wait_enable _wait_enable fV
	.even
_wait_enable::
	.dbline -1
	.dbline 146
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; //正常读写操作之前必须检测LCD控制器状态:E=1 RS=0 RW=1;DB7: 0 LCD控制器空闲，1 LCD控制器忙。
; //检测忙信号,等待LCD空闲函数
; void wait_enable(void)
; {
	.dbline 147
; 	lcd_busy_ddr&=~busy;//设置busy口为输入
	cbi 0x11,7
	.dbline 148
; 	lcd_control_port&=~lcd_RS;//RS=0
	cbi 0x1b,0
	.dbline 149
; 	lcd_control_port|=lcd_RW;//RW=1
	sbi 0x1b,1
	.dbline 150
; 	NOP();
	nop
	.dbline 151
; 	lcd_control_port|=lcd_EN;//E=1
	sbi 0x1b,2
L11:
	.dbline 152
L12:
	.dbline 152
; 	while(lcd_busy_pin&busy);//等待LCD_DB7为0
	sbic 0x10,7
	rjmp L11
	.dbline 153
; 	lcd_control_port&=~lcd_EN;//重设E=0
	cbi 0x1b,2
	.dbline 154
; 	lcd_busy_ddr|=busy;//设置busy口为输出
	sbi 0x11,7
	.dbline -2
	.dbline 155
; }
L10:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e display_a_char _display_a_char fV
;   position_tem -> R22
;      char_data -> R20
;       position -> R10
	.even
_display_a_char::
	xcall push_gset3
	mov R20,R18
	mov R10,R16
	.dbline -1
	.dbline 169
; 
; 
; 
; 
; 
; 
; 
; //指定位置显示一个字符:第一行位置0~15,第二行16~31
; //显示一个字符函数
; //LCD显示字符的位置，我是按附图的坐标安排的，参数position就是指图中的0~31，比如你要在第二行第三个位置显示“s”，你只要display_a_char（18，s）就可以了。 
;  
; // lcd_writecommand是用来指定显示寄存器地址亦即显示的地址的
; void display_a_char(unsigned char position,unsigned char char_data)//参数position指定位置0~31,char_data为要显示的字符
; {
	.dbline 171
; 	unsigned char position_tem;
; 	if(position>=0x10)
	mov R24,R10
	cpi R24,16
	brlo L15
	.dbline 172
; 	position_tem=position+0xb0;//因为LCD第一行显示寄存器地址0X80-0X8F，第二行显示寄存器地址：0XC0-0XCF，所以你的position〉=16位置时，即要写显示寄存器地址position+0xC0-16即是position+0xB0。
	mov R22,R10
	subi R22,80    ; addi 176
	xjmp L16
L15:
	.dbline 174
; 	else
; 	position_tem=position+0x80;//第一行显示
	mov R22,R10
	subi R22,128    ; addi 128
L16:
	.dbline 175
; 	lcd_write_command(position_tem,1);
	ldi R18,1
	mov R16,R22
	xcall _lcd_write_command
	.dbline 176
; 	lcd_write_data(char_data);
	mov R16,R20
	xcall _lcd_write_data
	.dbline -2
	.dbline 177
; }
L14:
	xcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r position_tem 22 c
	.dbsym r char_data 20 c
	.dbsym r position 10 c
	.dbend
	.dbfunc e display_a_string _display_a_string fV
;        col_tem -> R20
;              i -> R22
;            ptr -> R10,R11
;            col -> R20
	.even
_display_a_string::
	xcall push_gset3
	movw R10,R18
	mov R20,R16
	.dbline -1
	.dbline 188
; 
; 
; 
; 
; 
; 
; 
; //指定一行显示连续字符串:0显示在第一行,1显示在第二行,注字符串不能长于16个字符
; //显示一行连续字符串函数
; void display_a_string(unsigned char col,unsigned char *ptr)//参数col指定行,*ptr指字符串数组的首指针
; {
	.dbline 190
; 	unsigned char col_tem,i;
; 	col_tem=col<<4;//若col为1(即在LCD第二行显示字符串),先把col左移4位,使显示字符的首位置改到第二行首位,即位置16
	mov R24,R20
	andi R24,#0x0F
	swap R24
	mov R20,R24
	.dbline 191
; 	for(i=0;i<16;i++)
	clr R22
	xjmp L21
L18:
	.dbline 192
	mov R30,R22
	clr R31
	add R30,R10
	adc R31,R11
	ldd R18,z+0
	mov R2,R20
	subi R20,255    ; addi 1
	mov R16,R2
	xcall _display_a_char
L19:
	.dbline 191
	inc R22
L21:
	.dbline 191
	cpi R22,16
	brlo L18
	.dbline -2
	.dbline 193
; 	display_a_char(col_tem++,*(ptr+i));
; }
L17:
	xcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r col_tem 20 c
	.dbsym r i 22 c
	.dbsym r ptr 10 pc
	.dbsym r col 20 c
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 205
; 
; 
; 
; 
; 
; 
; 
; 
; /*---------------------------------------延时函数-------------------------------------*/
; //1ms延时函数
; void delay_1ms(void)
; {
	.dbline 207
	clr R16
	clr R17
	xjmp L26
L23:
	.dbline 207
L24:
	.dbline 207
	subi R16,255  ; offset = 1
	sbci R17,255
L26:
	.dbline 207
; 	unsigned int i;
; 	for(i=0;i<600;i++);
	cpi R16,88
	ldi R30,2
	cpc R17,R30
	brlo L23
	.dbline -2
	.dbline 208
; }
L22:
	.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 212
; 
; //n ms延时函数
; void delay_nms(unsigned int n)
; {
	.dbline 214
	clr R20
	clr R21
	xjmp L31
L28:
	.dbline 214
	xcall _delay_1ms
L29:
	.dbline 214
	subi R20,255  ; offset = 1
	sbci R21,255
L31:
	.dbline 214
; 	unsigned int i;
; 	for(i=0;i<n;i++)delay_1ms();
	cp R20,R22
	cpc R21,R23
	brlo L28
	.dbline -2
	.dbline 215
; }
L27:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend