1602lcd.s

1602lcd显示频率计 通过了proteus仿真

	.module _1602lcd.c
	.area text(rom, con, rel)
	.dbfile F:\avr单片机学习\我自编程序\1602lcd\1602lcd.c
	.dbfunc e lcd_init _lcd_init fV
	.even
_lcd_init::
	.dbline -1
	.dbline 11
; 
; /*---------------------------------------------------------------*/
; #include <iom16v.h>
; #include <macros.h>
; #include "lcd1602.h"
; /*------------------------------------主函数-------------------------------------------*/
; 
; /*------------------------------------液晶驱动函数-------------------------------------*/
; //液晶初始化
; void lcd_init(void)
; {
	.dbline 12
;  delay_nms(15);
	ldi R16,15
	ldi R17,0
	xcall _delay_nms
	.dbline 13
;  lcd_write_command(0x38,0);//显示模式设置三次(此时不管lcd空闲与否)
	clr R18
	ldi R16,56
	xcall _lcd_write_command
	.dbline 14
;  delay_nms(5);
	ldi R16,5
	ldi R17,0
	xcall _delay_nms
	.dbline 15
;  lcd_write_command(0x38,0);
	clr R18
	ldi R16,56
	xcall _lcd_write_command
	.dbline 16
;  delay_nms(5);
	ldi R16,5
	ldi R17,0
	xcall _delay_nms
	.dbline 17
;  lcd_write_command(0x38,0);
	clr R18
	ldi R16,56
	xcall _lcd_write_command
	.dbline 18
;  delay_nms(5);
	ldi R16,5
	ldi R17,0
	xcall _delay_nms
	.dbline 20
;  
;  lcd_write_command(0x38,1);//显示模式设置(从此之后均需lcd空闲)
	ldi R18,1
	ldi R16,56
	xcall _lcd_write_command
	.dbline 21
;  lcd_write_command(0x08,1);//显示关闭
	ldi R18,1
	ldi R16,8
	xcall _lcd_write_command
	.dbline 22
;  lcd_write_command(0x01,1);//显示清屏
	ldi R18,1
	ldi R16,1
	xcall _lcd_write_command
	.dbline 23
;  lcd_write_command(0x06,1);//显示光标移动设置
	ldi R18,1
	ldi R16,6
	xcall _lcd_write_command
	.dbline 24
;  lcd_write_command(0x0c,1);//显示开及光标设置
	ldi R18,1
	ldi R16,12
	xcall _lcd_write_command
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e lcd_write_command _lcd_write_command fV
;        wait_en -> R12
;        command -> R10
	.even
_lcd_write_command::
	st -y,R10
	st -y,R12
	mov R12,R18
	mov R10,R16
	.dbline -1
	.dbline 29
; }
; 
; //写指令函数: E=高脉冲 RS=0 RW=0
; void lcd_write_command(unsigned char command,unsigned char wait_en)//command为指令，wait_en指定是否要检测LCD忙信号
; {
	.dbline 30
;  if(wait_en)wait_enable();//若wait_en为1，则要检测LCD忙信号，等待其空闲
	tst R12
	breq L3
X0:
	.dbline 30
	xcall _wait_enable
L3:
	.dbline 31
;  lcd_control_port&=~lcd_RS;//RS=0
	cbi 0x1b,0
	.dbline 32
;  lcd_control_port&=~lcd_RW;//RW=0
	cbi 0x1b,1
	.dbline 33
;  lcd_control_port&=~lcd_EN;//E=0,下面给LCD一个高脉冲
	cbi 0x1b,2
	.dbline 34
;  NOP();
	nop
	.dbline 35
;  lcd_control_port|=lcd_EN;//E=1
	sbi 0x1b,2
	.dbline 36
;  lcd_data_port=command;
	out 0x12,R10
	.dbline 37
;  lcd_control_port&=~lcd_EN;//重设E=0
	cbi 0x1b,2
	.dbline -2
L2:
	.dbline 0 ; func end
	ld R12,y+
	ld R10,y+
	ret
	.dbsym r wait_en 12 c
	.dbsym r command 10 c
	.dbend
	.dbfunc e lcd_write_data _lcd_write_data fV
;      char_data -> R10
	.even
_lcd_write_data::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 42
; }
; 
; //写数据函数: E =高脉冲 RS=1 RW=0
; void lcd_write_data(unsigned char char_data)
; {
	.dbline 43
;  wait_enable();//等待LCD空闲
	xcall _wait_enable
	.dbline 44
;  lcd_control_port|=lcd_RS;//RS=1
	sbi 0x1b,0
	.dbline 45
;  lcd_control_port&=~lcd_RW;//RW=0
	cbi 0x1b,1
	.dbline 46
;  lcd_control_port&=~lcd_EN;//E=0,下面给LCD一个高脉冲
	cbi 0x1b,2
	.dbline 47
;  NOP();
	nop
	.dbline 48
;  lcd_control_port|=lcd_EN;//E=1
	sbi 0x1b,2
	.dbline 49
;  lcd_data_port=char_data;
	out 0x12,R10
	.dbline 50
;  lcd_control_port&=~lcd_EN;//重设E=0
	cbi 0x1b,2
	.dbline -2
L5:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r char_data 10 c
	.dbend
	.dbfunc e wait_enable _wait_enable fV
	.even
_wait_enable::
	.dbline -1
	.dbline 56
; }
; 
; //正常读写操作之前必须检测LCD控制器状态:E=1 RS=0 RW=1;DB7: 0 LCD控制器空闲，1 LCD控制器忙。
; //检测忙信号,等待LCD空闲函数
; void wait_enable(void)
; {
	.dbline 57
;  lcd_busy_ddr&=~busy;//设置busy口为输入
	cbi 0x11,7
	.dbline 58
;  lcd_control_port&=~lcd_RS;//RS=0
	cbi 0x1b,0
	.dbline 59
;  lcd_control_port|=lcd_RW;//RW=1
	sbi 0x1b,1
	.dbline 60
;  NOP();
	nop
	.dbline 61
;  lcd_control_port|=lcd_EN;//E=1
	sbi 0x1b,2
	.dbline 63
;  //while(lcd_busy_pin&busy);//等待LCD_DB7为0/////////////////////////
;  lcd_control_port&=~lcd_EN;//重设E=0
	cbi 0x1b,2
	.dbline 64
;  lcd_busy_ddr|=busy;//设置busy口为输出
	sbi 0x11,7
	.dbline -2
L6:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e display_a_char _display_a_char fV
;   position_tem -> R20
;      char_data -> R10
;       position -> R22
	.even
_display_a_char::
	xcall push_xgsetF00C
	mov R10,R18
	mov R22,R16
	.dbline -1
	.dbline 70
; }
; 
; //指定位置显示一个字符:第一行位置0~15,第二行16~31
; //显示一个字符函数
; void display_a_char(unsigned char position,unsigned char char_data)//参数position指定位置0~31,char_data为要显示的字符
; {
	.dbline 72
;  unsigned char position_tem;
;  if(position>=0x10)
	cpi R22,16
	brlo L8
X1:
	.dbline 73
;  position_tem=position+0xb0;///////////
	mov R20,R22
	subi R20,80    ; addi 176
	xjmp L9
L8:
	.dbline 75
;  else
;  position_tem=position+0x80;
	mov R20,R22
	subi R20,128    ; addi 128
L9:
	.dbline 76
;  lcd_write_command(position_tem,1);
	ldi R18,1
	mov R16,R20
	xcall _lcd_write_command
	.dbline 77
;  lcd_write_data(char_data);
	mov R16,R10
	xcall _lcd_write_data
	.dbline -2
L7:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r position_tem 20 c
	.dbsym r char_data 10 c
	.dbsym r position 22 c
	.dbend
	.dbfunc e display_a_string _display_a_string fV
;        col_tem -> R22
;              i -> R20
;            ptr -> R10,R11
;            col -> R20
	.even
_display_a_string::
	xcall push_xgsetF00C
	movw R10,R18
	mov R20,R16
	.dbline -1
	.dbline 83
; }
; 
; //指定一行显示连续字符串:0显示在第一行,1显示在第二行,注字符串不能长于16个字符
; //显示一行连续字符串函数
; void display_a_string(unsigned char col,unsigned char *ptr)//参数col指定行,*ptr指字符串数组的首指针
; {
	.dbline 85
;  unsigned char col_tem,i;
;  col_tem=col<<4;//若col为1(即在LCD第二行显示字符串),先把col左移4位,使显示字符的首位置改到第二行首位,即位置16
	mov R22,R20
	andi R22,#0x0F
	swap R22
	.dbline 86
;  for(i=0;i<16;i++)
	clr R20
	xjmp L14
L11:
	.dbline 87
;  display_a_char(col_tem++,*(ptr+i));
	mov R30,R20
	clr R31
	add R30,R10
	adc R31,R11
	ldd R18,z+0
	mov R2,R22
	subi R22,255    ; addi 1
	mov R16,R2
	xcall _display_a_char
L12:
	.dbline 86
	inc R20
L14:
	.dbline 86
	cpi R20,16
	brlo L11
X2:
	.dbline -2
L10:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r col_tem 22 c
	.dbsym r i 20 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 93
; }
; 
; /*---------------------------------------延时函数-------------------------------------*/
; //1ms延时函数
; void delay_1ms(void)
; {
	.dbline 95
;  unsigned int i;
;  for(i=0;i<600;i++);
	clr R16
	clr R17
	xjmp L19
L16:
	.dbline 95
L17:
	.dbline 95
	subi R16,255  ; offset = 1
	sbci R17,255
L19:
	.dbline 95
	cpi R16,88
	ldi R30,2
	cpc R17,R30
	brlo L16
X3:
	.dbline -2
L15:
	.dbline 0 ; func end
	ret
	.dbsym r i 16 i
	.dbend
	.dbfunc e delay_nms _delay_nms fV
;              i -> R20,R21
;              n -> R10,R11
	.even
_delay_nms::
	xcall push_xgset300C
	movw R10,R16
	.dbline -1
	.dbline 100
; }
; 
; //n ms延时函数
; void delay_nms(unsigned int n)
; {
	.dbline 102
;  unsigned int i;
;  for(i=0;i<n;i++)delay_1ms();
	clr R20
	clr R21
	xjmp L24
L21:
	.dbline 102
	xcall _delay_1ms
L22:
	.dbline 102
	subi R20,255  ; offset = 1
	sbci R21,255
L24:
	.dbline 102
	cp R20,R10
	cpc R21,R11
	brlo L21
X4:
	.dbline -2
L20:
	.dbline 0 ; func end
	xjmp pop_xgset300C
	.dbsym r i 20 i
	.dbsym r n 10 i
	.dbend
; }