.module _1602_main.c
	.area text(rom, con, rel)
	.dbfile D:\我的資源\我的文件\電子技術(shù)\AVR\AVR學習\JASON'~2\M16頻率計(10K-5MHz,誤差0.1%以下)(已驗證)\1602_main.c
	.dbfile D:\我的資源\我的文件\電子技術(shù)\AVR\AVR學習\JASON'~2\M16頻率計(10K-5MHz,誤差0.1%以下)(已驗證)\1602.h
	.dbfunc e s_ms _s_ms fV
;             ms -> R16,R17
	.even
_s_ms::
	.dbline -1
	.dbline 9
; #define uchar unsigned char 
; #define uint unsigned int 
; 
; #define RS 5
; #define RW 6
; #define EN 7
; 
; void s_ms(uint ms)
; {
	.dbline 10
; 	for(;ms>1;ms--);
	xjmp L5
L2:
	.dbline 10
L3:
	.dbline 10
	subi R16,1
	sbci R17,0
L5:
	.dbline 10
	ldi R24,1
	ldi R25,0
	cp R24,R16
	cpc R25,R17
	brlo L2
X0:
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbsym r ms 16 i
	.dbend
	.dbfunc e busy _busy fV
;           temp -> R20
	.even
_busy::
	st -y,R20
	.dbline -1
	.dbline 15
; }	
; 
; //查忙
; void busy(void)
; {
	.dbline 17
;     uchar temp;
; 	PORTB&=~(1<<RS);    //RS=0
	cbi 0x18,5
	.dbline 18
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 19
; 	PORTB|=(1<<RW);     //RW=1
	sbi 0x18,6
	.dbline 20
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	xjmp L8
L7:
	.dbline 22
; 	while(temp)
; 	{
	.dbline 23
; 		PORTB|=(1<<EN); //EN=1
	sbi 0x18,7
	.dbline 24
; 		s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 25
; 		DDRA=0x00;      //A口變輸入
	clr R2
	out 0x1a,R2
	.dbline 26
; 		PORTA=0xff;     //上拉使能
	ldi R24,255
	out 0x1b,R24
	.dbline 27
; 		s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 28
; 		temp = PINA&0x80;    //讀取A口
	in R20,0x19
	andi R20,128
	.dbline 29
; 		s_ms(20);      
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 30
; 		DDRA=0xff;      
	ldi R24,255
	out 0x1a,R24
	.dbline 31
; 		PORTA=0xff;        //A口變輸出
	out 0x1b,R24
	.dbline 32
; 		s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 33
; 		PORTB&=~(1<<EN);   //EN=0
	cbi 0x18,7
	.dbline 34
; 		s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 35
; 	}
L8:
	.dbline 21
	tst R20
	brne L7
X1:
	.dbline -2
L6:
	.dbline 0 ; func end
	ld R20,y+
	ret
	.dbsym r temp 20 c
	.dbend
	.dbfunc e writecom _writecom fV
;            com -> R10
	.even
_writecom::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 40
; }
; 
; //寫指令
; void writecom(uchar	com)
; {
	.dbline 41
; 	busy();
	xcall _busy
	.dbline 42
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 43
; 	PORTB&=~(1<<RS);   //RS=0
	cbi 0x18,5
	.dbline 44
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 45
; 	PORTB&=~(1<<RW);   //RW=0
	cbi 0x18,6
	.dbline 46
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 47
; 	PORTB|=(1<<EN);    //EN=1
	sbi 0x18,7
	.dbline 48
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 49
; 	PORTA = com;       //輸出指令
	out 0x1b,R10
	.dbline 50
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 51
; 	PORTB&=~(1<<EN);   //EN=0
	cbi 0x18,7
	.dbline 52
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline -2
L10:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r com 10 c
	.dbend
	.dbfunc e LcdInit _LcdInit fV
	.even
_LcdInit::
	.dbline -1
	.dbline 57
; }
; 
; //1602初始化
; void	LcdInit(void)
; {
	.dbline 58
;     DDRA = 0xff; 
	ldi R24,255
	out 0x1a,R24
	.dbline 59
;     PORTA = 0x00; 
	clr R2
	out 0x1b,R2
	.dbline 60
; 	writecom(0x38);
	ldi R16,56
	xcall _writecom
	.dbline 61
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 62
; 	writecom(0x01);
	ldi R16,1
	xcall _writecom
	.dbline 63
; 	s_ms(1000);
	ldi R16,1000
	ldi R17,3
	xcall _s_ms
	.dbline 64
; 	s_ms(1000);
	ldi R16,1000
	ldi R17,3
	xcall _s_ms
	.dbline 65
; 	s_ms(1000);
	ldi R16,1000
	ldi R17,3
	xcall _s_ms
	.dbline 66
; 	writecom(0x02);
	ldi R16,2
	xcall _writecom
	.dbline 67
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 68
; 	writecom(0x06);
	ldi R16,6
	xcall _writecom
	.dbline 69
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 70
; 	writecom(0x0c);
	ldi R16,12
	xcall _writecom
	.dbline 71
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 72
; 	writecom(0x38);	
	ldi R16,56
	xcall _writecom
	.dbline 73
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline -2
L11:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e writedata _writedata fV
;           data -> R10
	.even
_writedata::
	st -y,R10
	mov R10,R16
	.dbline -1
	.dbline 78
; }	
; 
; //寫數(shù)據(jù)
; void	writedata(uchar data)
; {
	.dbline 79
; 	busy();
	xcall _busy
	.dbline 80
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 81
; 	PORTB|=(1<<RS);   //RS=1
	sbi 0x18,5
	.dbline 82
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 83
; 	PORTB&=~(1<<RW);   //RW=0
	cbi 0x18,6
	.dbline 84
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 85
; 	PORTB|=(1<<EN);    //EN=1
	sbi 0x18,7
	.dbline 86
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 87
; 	PORTA = data;      //輸出數(shù)據(jù)
	out 0x1b,R10
	.dbline 88
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 89
; 	PORTB&=~(1<<EN);   //EN=0
	cbi 0x18,7
	.dbline 90
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline -2
L12:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r data 10 c
	.dbend
	.dbfunc e readdata _readdata fc
;           temp -> R10
	.even
_readdata::
	st -y,R10
	.dbline -1
	.dbline 96
; }
; 
; 
; //讀數(shù)據(jù)
; uchar	readdata(void)
; {
	.dbline 98
; 	uchar temp;
; 	busy();
	xcall _busy
	.dbline 99
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 100
; 	PORTB|=(1<<RS);  //RS=1
	sbi 0x18,5
	.dbline 101
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 102
; 	PORTB|=(1<<RW);  //RW=1
	sbi 0x18,6
	.dbline 103
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 104
; 	PORTB|=(1<<EN);  //EN=1
	sbi 0x18,7
	.dbline 105
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 106
; 	DDRA=0x00;       //A端口變輸入
	clr R2
	out 0x1a,R2
	.dbline 107
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 108
; 	temp = PINA;     //讀A端口
	in R10,0x19
	.dbline 109
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 110
; 	DDRA=0xff;       //A端口變輸出
	ldi R24,255
	out 0x1a,R24
	.dbline 111
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 112
; 	PORTB&=~(1<<EN); //EN=0
	cbi 0x18,7
	.dbline 113
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 114
; 	return temp;	
	mov R16,R10
	.dbline -2
L13:
	.dbline 0 ; func end
	ld R10,y+
	ret
	.dbsym r temp 10 c
	.dbend
	.dbfunc e WriteCGRAM _WriteCGRAM fV
;              t -> R10,R11
;              i -> R20,R21
;        pBuffer -> R22,R23
;            num -> R10,R11
	.even
_WriteCGRAM::
	xcall push_xgsetF00C
	movw R22,R18
	movw R10,R16
	.dbline -1
	.dbline 124
; }
; 
; //=================================================
; // 描述： 寫LCD內(nèi)部CGRAM函數(shù)
; // 入口： ‘num’要寫的數(shù)據(jù)個數(shù)
; //        ‘pbuffer’要寫的數(shù)據(jù)的首地址
; // 出口： 無
; //================================================
; void	WriteCGRAM(uint	num, const uint	*pBuffer)
; {
	.dbline 126
; 	uint	i,t;
; 	writecom(0x40);
	ldi R16,64
	xcall _writecom
	.dbline 127
; 	PORTB|=(1<<RS);
	sbi 0x18,5
	.dbline 128
; 	PORTB&=~(1<<RW);
	cbi 0x18,6
	.dbline 129
; 	for(i=num;i!=0;i--)
	movw R20,R10
	xjmp L18
L15:
	.dbline 130
; 	{
	.dbline 131
; 		t = *pBuffer;
	movw R30,R22
	lpm R10,Z+
	lpm R11,Z
	.dbline 132
; 		PORTB|=(1<<EN);
	sbi 0x18,7
	.dbline 133
; 		PORTA = t;
	out 0x1b,R10
	.dbline 134
; 		PORTB&=~(1<<EN);				
	cbi 0x18,7
	.dbline 135
; 		pBuffer++;
	subi R22,254  ; offset = 2
	sbci R23,255
	.dbline 136
; 	}
L16:
	.dbline 129
	subi R20,1
	sbci R21,0
L18:
	.dbline 129
	cpi R20,0
	cpc R20,R21
	brne L15
X2:
	.dbline -2
L14:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r t 10 i
	.dbsym r i 20 i
	.dbsym r pBuffer 22 pki
	.dbsym r num 10 i
	.dbend
	.dbfunc e WriteMenu _WriteMenu fV
;              t -> R10
;              i -> R22
;        pBuffer -> R20,R21
	.even
_WriteMenu::
	xcall push_xgsetF00C
	movw R20,R16
	.dbline -1
	.dbline 146
; 	
; }
; 
; //=================================================
; //描述：寫菜單函數(shù)，本程序使用的LCD規(guī)格為 16 * 2
; //入口：菜單數(shù)組首地址
; //出口：無
; //=================================================
; void	WriteMenu(const uchar *pBuffer)
; {
	.dbline 148
; 	uchar	i,t;
; 	writecom(0x80);   //數(shù)據(jù)地址
	ldi R16,128
	xcall _writecom
	.dbline 150
; 	
; 	PORTB|=(1<<RS);
	sbi 0x18,5
	.dbline 151
; 	PORTB&=~(1<<RW);
	cbi 0x18,6
	.dbline 152
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 153
; 	for(i=0;i<16;i++)
	clr R22
	xjmp L23
L20:
	.dbline 154
; 	{
	.dbline 155
; 		t = *pBuffer;
	movw R30,R20
	lpm R10,Z
	.dbline 156
; 		PORTA = t;
	out 0x1b,R10
	.dbline 157
; 		PORTB|=(1<<EN);
	sbi 0x18,7
	.dbline 158
; 		s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 159
; 		PORTB&=~(1<<EN);				
	cbi 0x18,7
	.dbline 160
; 		pBuffer++;
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 161
; 	}
L21:
	.dbline 153
	inc R22
L23:
	.dbline 153
	cpi R22,16
	brlo L20
X3:
	.dbline 162
; 	writecom(0xC0);
	ldi R16,192
	xcall _writecom
	.dbline 164
; 
; 	PORTB|=(1<<RS);
	sbi 0x18,5
	.dbline 165
; 	PORTB&=~(1<<RW);
	cbi 0x18,6
	.dbline 166
; 	s_ms(20);	
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 167
; 	for(i=0;i<16;i++)
	clr R22
	xjmp L27
L24:
	.dbline 168
; 	{
	.dbline 169
; 		t = *pBuffer;
	movw R30,R20
	lpm R10,Z
	.dbline 170
; 		PORTA = t;
	out 0x1b,R10
	.dbline 171
; 		PORTB|=(1<<EN);
	sbi 0x18,7
	.dbline 172
; 		s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 173
; 		PORTB&=~(1<<EN);				
	cbi 0x18,7
	.dbline 174
; 		pBuffer++;
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 175
; 	}
L25:
	.dbline 167
	inc R22
L27:
	.dbline 167
	cpi R22,16
	brlo L24
X4:
	.dbline -2
L19:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r t 10 c
	.dbsym r i 22 c
	.dbsym r pBuffer 20 pkc
	.dbend
	.dbfunc e WriteNum _WriteNum fV
;            num -> R20,R21
;            col -> R10,R11
;            row -> R22,R23
	.even
_WriteNum::
	xcall push_xgsetF00C
	movw R10,R18
	movw R22,R16
	ldd R20,y+6
	ldd R21,y+7
	.dbline -1
	.dbline 185
; }
; //====================================================
; // 描述：在任意位置寫數(shù)字函數(shù)
; // 入口：’row‘表示要寫數(shù)字所在的行地址，只能為1或2
; //       ’col‘表示要寫數(shù)字所在的列地址，只能為0--15
; //		 ‘num’表示要寫的數(shù)字，只能為0--9
; // 出口：無
; //===================================================
; void	WriteNum(uint	row,uint	col,uint	 num)
; {
	.dbline 186
; 	if (row == 1)	row = 0x80 + col;
	cpi R22,1
	ldi R30,0
	cpc R23,R30
	brne L29
X5:
	.dbline 186
	movw R22,R10
	subi R22,128  ; offset = 128
	sbci R23,255
	xjmp L30
L29:
	.dbline 187
; 	else	row = 0xC0 + col;
	movw R22,R10
	subi R22,64  ; offset = 192
	sbci R23,255
L30:
	.dbline 188
; 	writecom(row);
	mov R16,R22
	xcall _writecom
	.dbline 189
; 	if (num<=0 | num>9)	num =0x30;
	cpi R20,0
	cpc R20,R21
	brne L33
X6:
	ldi R24,1
	ldi R25,0
	movw R10,R24
	xjmp L34
L33:
	clr R10
	clr R11
L34:
	ldi R24,9
	ldi R25,0
	cp R24,R20
	cpc R25,R21
	brsh L35
X7:
	ldi R22,1
	ldi R23,0
	xjmp L36
L35:
	clr R22
	clr R23
L36:
	movw R2,R10
	or R2,R22
	or R3,R23
	tst R2
	brne X8
	tst R3
	breq L31
X8:
	.dbline 189
	ldi R20,48
	ldi R21,0
	xjmp L32
L31:
	.dbline 190
; 	else	num = 0x30 + num;
	subi R20,208  ; offset = 48
	sbci R21,255
L32:
	.dbline 192
; 
; 	PORTB|=(1<<RS);
	sbi 0x18,5
	.dbline 193
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 194
; 	PORTB&=~(1<<RW);
	cbi 0x18,6
	.dbline 195
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 196
; 	PORTA = num;
	out 0x1b,R20
	.dbline 197
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 198
; 	PORTB|=(1<<EN);
	sbi 0x18,7
	.dbline 199
; 	s_ms(20);
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline 200
; 	PORTB&=~(1<<EN);	
	cbi 0x18,7
	.dbline 201
; 	s_ms(20);			
	ldi R16,20
	ldi R17,0
	xcall _s_ms
	.dbline -2
L28:
	.dbline 0 ; func end
	xjmp pop_xgsetF00C
	.dbsym r num 20 i
	.dbsym r col 10 i
	.dbsym r row 22 i
	.dbend
	.dbfunc e WriteChar _WriteChar fV
;              t -> R12
;              i -> R10
;        pBuffer -> R20,R21
;            num -> y+8
;            col -> R10
;            row -> R22
	.even
_WriteChar::
	xcall push_xgsetF03C