main.s

AVR单片机

	.module main.c
	.area text(rom, con, rel)
	.dbfile D:\avr\+++精华+++\44键盘/delay.h
	.dbfunc e delay_1us _delay_1us fV
	.even
_delay_1us::
	.dbline -1
	.dbline 15
; /*****************************************
; *      基于4*4键盘程序设计 		   	     *
; * 功    能：4*4键盘          			 *
; * 时钟频率：内部1M 						 *
; * 设    计：莫锦攀						 *
; * 修改日期：2007年07月04日				 *
; * 编译环境：ICC-AVR6.31					 *
; * 实验环境：M16学习板					 *
; * 使用端口：PC6,PC7,PA4~PA7,PD0~PD7 	 *
; *****************************************/
; 
; #include <iom16v.h>
; #include "1602.h"
; #include "key.h"
; 
	.dbline 16
; void main(void)
	nop
	.dbline -2
L1:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e delay_nus _delay_nus fV
;              i -> R20,R21
;              n -> R22,R23
	.even
_delay_nus::
	xcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 20
; {	unsigned char i; 
;    LCD_init();
;   
;    while(1)
	.dbline 21
;    {i=get_key();
	clr R20
	clr R21
	.dbline 22
; 	LCD_write_string(3,0,"4*4 by MJP"); 
	xjmp L6
L3:
	.dbline 23
	xcall _delay_1us
L4:
	.dbline 22
	subi R20,255  ; offset = 1
	sbci R21,255
L6:
	.dbline 22
	cp R20,R22
	cpc R21,R23
	brlo L3
	.dbline -2
L2:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e delay_1ms _delay_1ms fV
;              i -> R16,R17
	.even
_delay_1ms::
	.dbline -1
	.dbline 27
; 	if(i!=0x00)
; 	{LCD_write_char(7,1,i);}
;   
;    }
;  
	.dbline 29
	clr R16
	clr R17
	xjmp L11
L8:
	.dbline 29
L9:
	.dbline 29
	subi R16,255  ; offset = 1
	sbci R17,255
L11:
	.dbline 29
; }
; }
	cpi R16,116
	ldi R30,4
	cpc R17,R30
	brlo L8
	.dbline -2
L7:
	.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 33
; }
; }
; }
; }
	.dbline 34
; }
	clr R20
	clr R21
	.dbline 35
; }
	xjmp L16
L13:
	.dbline 36
	xcall _delay_1ms
L14:
	.dbline 35
	subi R20,255  ; offset = 1
	sbci R21,255
L16:
	.dbline 35
	cp R20,R22
	cpc R21,R23
	brlo L13
	.dbline -2
L12:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfile D:\avr\+++精华+++\44键盘/1602.h
	.dbfunc e LCD_init _LCD_init fV
	.even
_LCD_init::
	.dbline -1
	.dbline 45
; }
; }
; }
; }
; }
; }
; }
; }
; }
; }
	.dbline 46
; }
	in R24,0x1a
	ori R24,240
	out 0x1a,R24
	.dbline 47
; }
	sbi 0x14,7
	.dbline 48
; }
	sbi 0x14,6
	.dbline 49
; }
	ldi R16,40
	xcall _LCD_write_command
	.dbline 50
; }
	xcall _LCD_en_write
	.dbline 51
; }
	ldi R16,40
	ldi R17,0
	xcall _delay_nus
	.dbline 52
; }
	ldi R16,40
	xcall _LCD_write_command
	.dbline 53
; }
	ldi R16,12
	xcall _LCD_write_command
	.dbline 54
; }
	ldi R16,1
	xcall _LCD_write_command
	.dbline 55
; }
	ldi R16,2
	ldi R17,0
	xcall _delay_nms
	.dbline -2
L17:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e LCD_en_write _LCD_en_write fV
	.even
_LCD_en_write::
	.dbline -1
	.dbline 59
; }
; }
; }
; }
	.dbline 60
; }
	sbi 0x15,7
	.dbline 61
; }
	ldi R16,1
	ldi R17,0
	xcall _delay_nus
	.dbline 62
; }
	cbi 0x15,7
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e LCD_write_command _LCD_write_command fV
;        command -> R20
	.even
_LCD_write_command::
	xcall push_gset1
	mov R20,R16
	.dbline -1
	.dbline 66
; }
; }
; }
; }
	.dbline 67
; }
	ldi R16,16
	ldi R17,0
	xcall _delay_nus
	.dbline 68
; }
	cbi 0x15,6
	.dbline 69
; }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 70
; }
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 71
; }
	xcall _LCD_en_write
	.dbline 72
; }
	mov R24,R20
	andi R24,#0x0F
	swap R24
	mov R20,R24
	.dbline 73
; }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 74
; }
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 75
; }
	xcall _LCD_en_write
	.dbline -2
L19:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r command 20 c
	.dbend
	.dbfunc e LCD_write_data _LCD_write_data fV
;           data -> R20
	.even
_LCD_write_data::
	xcall push_gset1
	mov R20,R16
	.dbline -1
	.dbline 80
; }
; }
; }
; }
; }
	.dbline 81
; }
	ldi R16,16
	ldi R17,0
	xcall _delay_nus
	.dbline 82
; }
	sbi 0x15,6
	.dbline 83
; }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 84
; }
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 85
; }
	xcall _LCD_en_write
	.dbline 86
; }
	mov R24,R20
	andi R24,#0x0F
	swap R24
	mov R20,R24
	.dbline 87
; }
	in R24,0x1b
	andi R24,15
	out 0x1b,R24
	.dbline 88
; }
	mov R24,R20
	andi R24,240
	in R2,0x1b
	or R2,R24
	out 0x1b,R2
	.dbline 89
; }
	xcall _LCD_en_write
	.dbline -2
L20:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r data 20 c
	.dbend
	.dbfunc e LCD_set_xy _LCD_set_xy fV
;        address -> R20
;              y -> R20
;              x -> R22
	.even
_LCD_set_xy::
	xcall push_gset2
	mov R20,R18
	mov R22,R16
	.dbline -1
	.dbline 94
; }
; }
; }
; }
; }
	.dbline 96
; }
; }
	tst R20
	brne L22
	.dbline 96
	mov R20,R22
	subi R20,128    ; addi 128
	xjmp L23
L22:
	.dbline 97
; }
	mov R20,R22
	subi R20,64    ; addi 192
L23:
	.dbline 98
; }
	mov R16,R20
	xcall _LCD_write_command
	.dbline -2
L21:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r address 20 c
	.dbsym r y 20 c
	.dbsym r x 22 c
	.dbend
	.dbfunc e LCD_write_string _LCD_write_string fV
;              s -> R20,R21
;              Y -> R10
;              X -> R22
	.even
_LCD_write_string::
	xcall push_gset3
	mov R10,R18
	mov R22,R16
	ldd R20,y+6
	ldd R21,y+7
	.dbline -1
	.dbline 102
; }
; }
; }
; }
	.dbline 103
; }
	mov R18,R10
	mov R16,R22
	xcall _LCD_set_xy
	xjmp L26
L25:
	.dbline 105
	.dbline 106
	movw R30,R20
	ldd R16,z+0
	xcall _LCD_write_data
	.dbline 107
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 108
L26:
	.dbline 104
; }
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L25
	.dbline -2
L24:
	xcall pop_gset3
	.dbline 0 ; func end
	ret
	.dbsym r s 20 pc
	.dbsym r Y 10 c
	.dbsym r X 22 c
	.dbend
	.dbfunc e LCD_write_char _LCD_write_char fV
;           data -> y+4
;              Y -> R22
;              X -> R20
	.even
_LCD_write_char::
	xcall push_gset2
	mov R22,R18
	mov R20,R16
	.dbline -1
	.dbline 113
; }
; }
; }
; }
; }
; }
; }
; }
; }
	.dbline 114
; }
	mov R18,R22
	mov R16,R20
	xcall _LCD_set_xy
	.dbline 115
; }
	ldd R16,y+4
	xcall _LCD_write_data
	.dbline -2
L28:
	xcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym l data 4 c
	.dbsym r Y 22 c
	.dbsym r X 20 c
	.dbend
	.dbfile D:\avr\+++精华+++\44键盘/key.h
	.dbfunc e key_read _key_read fc
;              i -> R20
	.even
_key_read::
	xcall push_gset1
	.dbline -1
	.dbline 7
	.dbline 10
	ldi R24,240
	out 0x17,R24
	.dbline 11
	ldi R24,15
	out 0x18,R24
	.dbline 12
	ldi R16,1
	ldi R17,0
	xcall _delay_nms
	.dbline 14
	in R20,0x16
	andi R20,15
	.dbline 17
	ldi R24,15
	out 0x17,R24
	.dbline 18
	ldi R24,240
	out 0x18,R24
	.dbline 19
	ldi R16,1
	ldi R17,0
	xcall _delay_nms
	.dbline 21
	in R24,0x16
	andi R24,240
	or R20,R24
	.dbline 23
	clr R21
	cpi R20,215
	ldi R30,0
	cpc R21,R30
	brne X1
	xjmp L47
X1:
	cpi R20,219
	ldi R30,0
	cpc R21,R30
	brne X2
	xjmp L43
X2:
	cpi R20,221
	ldi R30,0
	cpc R21,R30
	brne X3
	xjmp L39
X3:
	cpi R20,222
	ldi R30,0
	cpc R21,R30
	brne X4
	xjmp L35
X4:
	ldi R24,222
	ldi R25,0
	cp R24,R20
	cpc R25,R21
	brlt L51
L50:
	cpi R20,119
	ldi R30,0
	cpc R21,R30
	brne X5
	xjmp L49
X5:
	cpi R20,123
	ldi R30,0
	cpc R21,R30
	brne X6
	xjmp L45
X6:
	cpi R20,125
	ldi R30,0
	cpc R21,R30
	brne X7
	xjmp L41
X7:
	cpi R20,126
	ldi R30,0
	cpc R21,R30
	brne X8
	xjmp L37
X8:
	cpi R20,119
	ldi R30,0
	cpc R21,R30
	brge X9
	xjmp L30
X9:
L52:
	cpi R20,183
	ldi R30,0
	cpc R21,R30
	brne X10
	xjmp L48
X10:
	cpi R20,187
	ldi R30,0
	cpc R21,R30
	brne X11
	xjmp L44
X11:
	cpi R20,189
	ldi R30,0
	cpc R21,R30
	breq L40
	cpi R20,190
	ldi R30,0
	cpc R21,R30
	breq L36
	xjmp L30
L51:
	cpi R20,231
	ldi R30,0
	cpc R21,R30
	breq L46
	cpi R20,235
	ldi R30,0
	cpc R21,R30
	breq L42
	cpi R20,237
	ldi R30,0
	cpc R21,R30
	breq L38
	cpi R20,238
	ldi R30,0
	cpc R21,R30
	breq L34
	cpi R20,231
	ldi R30,0
	cpc R21,R30
	brlt L30
L53:
	cpi R20,255
	ldi R30,0
	cpc R21,R30
	breq L33
	xjmp L30
X0:
	.dbline 24
L33:
	.dbline 25
	clr R16
	xjmp L29
L34:
	.dbline 26
	ldi R16,68
	xjmp L29
L35:
	.dbline 27
	ldi R16,35
	xjmp L29
L36:
	.dbline 28
	ldi R16,48
	xjmp L29
L37:
	.dbline 29
	ldi R16,42
	xjmp L29
L38:
	.dbline 30
	ldi R16,67
	xjmp L29
L39:
	.dbline 31
	ldi R16,57
	xjmp L29
L40:
	.dbline 32
	ldi R16,56
	xjmp L29
L41:
	.dbline 33
	ldi R16,55
	xjmp L29
L42:
	.dbline 34
	ldi R16,66
	xjmp L29
L43:
	.dbline 35
	ldi R16,54
	xjmp L29
L44:
	.dbline 36
	ldi R16,53
	xjmp L29
L45:
	.dbline 37
	ldi R16,52
	xjmp L29
L46:
	.dbline 38
	ldi R16,65
	xjmp L29
L47:
	.dbline 39
	ldi R16,51
	xjmp L29
L48:
	.dbline 40
	ldi R16,50
	xjmp L29
L49:
	.dbline 41
	ldi R16,49
	xjmp L29
L30:
	.dbline 42
	clr R16
	.dbline -2
L29:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
	.area bss(ram, con, rel)
	.dbfile D:\avr\+++精华+++\44键盘/key.h
L55:
	.blkb 1
	.area text(rom, con, rel)
	.dbfile D:\avr\+++精华+++\44键盘/key.h
	.dbfunc e get_key _get_key fc
	.dbsym s j L55 c
;              i -> R20
	.even
_get_key::
	xcall push_gset1
	.dbline -1
	.dbline 47
	.dbline 49
	xcall _key_read
	mov R20,R16
	.dbline 50
	tst R16
	brne L56
	.dbline 51
	.dbline 52
	clr R2
	sts L55,R2
	.dbline 53
	clr R16
	xjmp L54
L56:
	.dbline 55
	lds R2,L55
	tst R2
	brne L58
	.dbline 56
	.dbline 56
	sts L55,R20
	.dbline 57
	ldi R16,10
	ldi R17,0
	xcall _delay_nms
	.dbline 58
	xcall _key_read
	mov R20,R16
	.dbline 59
	lds R2,L55
	cp R16,R2
	brne L60
	.dbline 59
	.dbline 59
	xjmp L54
L60:
	.dbline 60
L58:
	.dbline 61
	clr R16
	.dbline -2
L54:
	xcall pop_gset1
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
	.dbfile D:\avr\+++精华+++\44键盘\main.c
	.dbfunc e main _main fV
;              i -> R20
	.even
_main::
	sbiw R28,2
	.dbline -1
	.dbline 17
	.dbline 18
	xcall _LCD_init
	xjmp L64
L63:
	.dbline 21
	.dbline 21
	xcall _get_key
	mov R20,R16
	.dbline 22
	ldi R24,<L66
	ldi R25,>L66
	std y+1,R25
	std y+0,R24
	clr R18
	ldi R16,3
	xcall _LCD_write_string
	.dbline 23
	tst R20
	breq L67
	.dbline 24
	.dbline 24
	std y+0,R20
	ldi R18,1
	ldi R16,7
	xcall _LCD_write_char
	.dbline 24
L67:
	.dbline 26
L64:
	.dbline 20
	xjmp L63
X12:
	.dbline -2
L62:
	adiw R28,2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 c
	.dbend
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\44键盘\main.c
L66:
	.blkb 11
	.area idata
	.byte 52,42,52,32,'b,'y,32,'M,'J,'P,0
	.area data(ram, con, rel)
	.dbfile D:\avr\+++精华+++\44键盘\main.c