yejing.s

1602液晶驱动程序

	.module yejing.c
	.area text(rom, con, rel)
	.dbfile E:\训练\1602液晶\yejing.c
	.area code(ram, con, rel)
	.dbfile E:\训练\1602液晶\yejing.c
	.area lit(rom, con, rel)
_table1::
	.byte 32,32,32,'W,'e,'l,'c,'o,'m,32,'t,'o,0
	.dbsym e table1 _table1 A[13:13]kc
_table2::
	.byte 'w,'w,'w,46,'q,'u,'s,'t,46,'e,'d,'u,46,'c,'n,0
	.dbsym e table2 _table2 A[16:16]kc
	.area text(rom, con, rel)
	.dbfile E:\训练\1602液晶\yejing.c
	.dbfunc e delay _delay fV
;              i -> R20,R21
;              j -> R22,R23
;             ms -> R16,R17
	.even
_delay::
	xcall push_xgsetF000
	.dbline -1
	.dbline 9
; #include<iom16v.h>
; #include<macros.h>
; #define uchar unsigned char
; #define uint unsigned int
; #pragma data:code 
; const uchar table1[]="   Welcom to"; //双引号将字符转换位ANSIC码
; const uchar table2[]="www.qust.edu.cn";
; void delay(uint ms)//毫秒级延时程序
; {
	.dbline 11
;   uint i,j;
;   for(i=0;i<ms;i++)
	clr R20
	clr R21
	xjmp L5
L2:
	.dbline 12
;     for(j=0;j<1141;j++);
	clr R22
	clr R23
	xjmp L9
L6:
	.dbline 12
L7:
	.dbline 12
	subi R22,255  ; offset = 1
	sbci R23,255
L9:
	.dbline 12
	cpi R22,117
	ldi R30,4
	cpc R23,R30
	brlo L6
X0:
L3:
	.dbline 11
	subi R20,255  ; offset = 1
	sbci R21,255
L5:
	.dbline 11
	cp R20,R16
	cpc R21,R17
	brlo L2
X1:
	.dbline -2
L1:
	.dbline 0 ; func end
	xjmp pop_xgsetF000
	.dbsym r i 20 i
	.dbsym r j 22 i
	.dbsym r ms 16 i
	.dbend
	.dbfunc e write_com _write_com fV
;            com -> R10
	.even
_write_com::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 16
; }
; 
; void write_com(uchar com)//写指令
; {
	.dbline 17
;  PORTA&=~BIT(5);
	cbi 0x1b,5
	.dbline 18
;  PORTA&=~BIT(6);
	cbi 0x1b,6
	.dbline 19
;  PORTB=com;
	out 0x18,R10
	.dbline 20
;  PORTA|=BIT(7);
	sbi 0x1b,7
	.dbline 21
;  delay(1);
	ldi R16,1
	ldi R17,0
	xcall _delay
	.dbline 22
;  PORTA&=~BIT(7); 
	cbi 0x1b,7
	.dbline -2
L10:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r com 10 c
	.dbend
	.dbfunc e write_dat _write_dat fV
;            dat -> R10
	.even
_write_dat::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 26
; }
; 
; void write_dat(uchar dat)//写数据
; {
	.dbline 27
;  PORTA|=BIT(5);
	sbi 0x1b,5
	.dbline 28
;  PORTA&=~BIT(6);
	cbi 0x1b,6
	.dbline 29
;  PORTB=dat;
	out 0x18,R10
	.dbline 30
;  PORTA|=BIT(7);
	sbi 0x1b,7
	.dbline 31
;  delay(1);
	ldi R16,1
	ldi R17,0
	xcall _delay
	.dbline 32
;  PORTA&=~BIT(7);
	cbi 0x1b,7
	.dbline -2
L11:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r dat 10 c
	.dbend
	.dbfunc e main _main fV
;              i -> R20
	.even
_main::
	.dbline -1
	.dbline 36
; }
; 
; void main()
; {
	.dbline 38
;  uchar i;
;  DDRB=0XFF;
	ldi R24,255
	out 0x17,R24
	.dbline 39
;  DDRA|=BIT(5)|BIT(6)|BIT(7);
	in R24,0x1a
	ori R24,224
	out 0x1a,R24
	.dbline 40
;  PORTA&=~BIT(7);
	cbi 0x1b,7
	.dbline 41
;  write_com(0x38);//显示模式设置
	ldi R16,56
	xcall _write_com
	.dbline 42
;  delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 43
;  write_com(0x01);//清屏，很重要!
	ldi R16,1
	xcall _write_com
	.dbline 44
;  delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 46
;  //write_com(0x0f);//显示光标并闪烁
;  write_com(0x0c);//不显示光标
	ldi R16,12
	xcall _write_com
	.dbline 47
;  delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 48
;  write_com(0x06);//显示光标移动设置
	ldi R16,6
	xcall _write_com
	.dbline 49
;  delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 50
;  write_com(0x80+0x10);
	ldi R16,144
	xcall _write_com
	.dbline 51
;  delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 52
;  for(i=0;i<12;i++)//第一行显示
	clr R20
	xjmp L16
L13:
	.dbline 53
;  {
	.dbline 54
;   write_dat(table1[i]);
	ldi R24,<_table1
	ldi R25,>_table1
	mov R30,R20
	clr R31
	add R30,R24
	adc R31,R25
	lpm R16,Z
	xcall _write_dat
	.dbline 55
;   delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 56
;  }
L14:
	.dbline 52
	inc R20
L16:
	.dbline 52
	cpi R20,12
	brlo L13
X2:
	.dbline 57
;   write_com(0x80+0x50);//第二行显示
	ldi R16,208
	xcall _write_com
	.dbline 58
;   delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 59
;    for(i=0;i<15;i++)
	clr R20
	xjmp L20
L17:
	.dbline 60
;  {
	.dbline 61
;   write_dat(table2[i]);
	ldi R24,<_table2
	ldi R25,>_table2
	mov R30,R20
	clr R31
	add R30,R24
	adc R31,R25
	lpm R16,Z
	xcall _write_dat
	.dbline 62
;   delay(5);
	ldi R16,5
	ldi R17,0
	xcall _delay
	.dbline 63
;  }
L18:
	.dbline 59
	inc R20
L20:
	.dbline 59
	cpi R20,15
	brlo L17
X3:
	.dbline 64
;  for(i=0;i<16;i++)
	clr R20
	xjmp L24
L21:
	.dbline 65
;  {
	.dbline 66
;   write_com(0x1c);//从左到右移动显示屏
	ldi R16,28
	xcall _write_com
	.dbline 67
;   delay(230);
	ldi R16,230
	ldi R17,0
	xcall _delay
	.dbline 68
;  }
L22:
	.dbline 64
	inc R20
L24:
	.dbline 64
	cpi R20,16
	brlo L21
X4:
	.dbline -2
L12:
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
; }