1602.s

4线接法的液晶1602+MEGA8的源程序 包括源文件和PROTUES仿真文件

	.module _1602.c
	.area text(rom, con, rel)
	.dbfile E:\电子\avr 单片机大全\实例\DIY 成功例子\1602/1602.h
	.dbfunc e delay_1us _delay_1us fV
	.even
_delay_1us::
	.dbline -1
	.dbline 30
; #include <iom8v.h>
; #include <macros.h>
; #include"1602.h"
; 
; void main(void)
; {
;    LCD_init();
;             //      X  Y      *s
;    LCD_write_string(2, 0, "hello!!");
;    while(1)
;    {
;             //      X  Y      *s
;    LCD_write_string(2, 1,"1234567890");
;            //     X  Y   data
;    LCD_write_char(12, 0, '8');
;    LCD_write_char(13, 0, '8');    
;    }
;  
; }
; }
; }
; }
; }
; }
; }
; }
; }
; }
; }
; }
	.dbline 31
; }
	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::
	rcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 35
; }
; }
; }
; }
	.dbline 36
; }
	clr R20
	clr R21
	.dbline 37
; }
	rjmp L6
L3:
	.dbline 38
	rcall _delay_1us
L4:
	.dbline 37
	subi R20,255  ; offset = 1
	sbci R21,255
L6:
	.dbline 37
	cp R20,R22
	cpc R21,R23
	brlo L3
	.dbline -2
L2:
	rcall 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 42
; }
; }
; }
; }
; }
	.dbline 44
	clr R16
	clr R17
	rjmp L11
L8:
	.dbline 44
L9:
	.dbline 44
	subi R16,255  ; offset = 1
	sbci R17,255
L11:
	.dbline 44
; }
; }
	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::
	rcall push_gset2
	movw R22,R16
	.dbline -1
	.dbline 48
; }
; }
; }
; }
	.dbline 49
; }
	clr R20
	clr R21
	.dbline 50
; }
	rjmp L16
L13:
	.dbline 51
	rcall _delay_1ms
L14:
	.dbline 50
	subi R20,255  ; offset = 1
	sbci R21,255
L16:
	.dbline 50
	cp R20,R22
	cpc R21,R23
	brlo L13
	.dbline -2
L12:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym r i 20 i
	.dbsym r n 22 i
	.dbend
	.dbfunc e LCD_init _LCD_init fV
	.even
_LCD_init::
	.dbline -1
	.dbline 57
; }
; }
; }
; }
; }
; }
; }
	.dbline 58
; }
	in R24,0x11
	ori R24,240
	out 0x11,R24
	.dbline 59
; }
	sbi 0x11,2
	.dbline 60
; }
	sbi 0x11,0
	.dbline 61
; }
	ldi R16,40
	rcall _LCD_write_command
	.dbline 62
; }
	rcall _LCD_en_write
	.dbline 63
; }
	ldi R16,40
	ldi R17,0
	rcall _delay_nus
	.dbline 64
; }
	ldi R16,40
	rcall _LCD_write_command
	.dbline 65
; }
	ldi R16,12
	rcall _LCD_write_command
	.dbline 66
; }
	ldi R16,1
	rcall _LCD_write_command
	.dbline 67
; }
	ldi R16,2
	ldi R17,0
	rcall _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 72
; }
; }
; }
; }
; }
	.dbline 73
; }
	sbi 0x12,2
	.dbline 74
; }
	ldi R16,1
	ldi R17,0
	rcall _delay_nus
	.dbline 75
; }
	cbi 0x12,2
	.dbline -2
L18:
	.dbline 0 ; func end
	ret
	.dbend
	.dbfunc e LCD_write_command _LCD_write_command fV
;        command -> R20
	.even
_LCD_write_command::
	rcall push_gset1
	mov R20,R16
	.dbline -1
	.dbline 80
; }
; }
; }
; }
; }
	.dbline 81
; }
	ldi R16,16
	ldi R17,0
	rcall _delay_nus
	.dbline 82
; }
	cbi 0x12,0
	.dbline 83
; }
	in R24,0x12
	andi R24,15
	out 0x12,R24
	.dbline 84
; }
	mov R24,R20
	andi R24,240
	in R2,0x12
	or R2,R24
	out 0x12,R2
	.dbline 85
; }
	rcall _LCD_en_write
	.dbline 86
; }
	mov R24,R20
	andi R24,#0x0F
	swap R24
	mov R20,R24
	.dbline 87
; }
	in R24,0x12
	andi R24,15
	out 0x12,R24
	.dbline 88
; }
	mov R24,R20
	andi R24,240
	in R2,0x12
	or R2,R24
	out 0x12,R2
	.dbline 89
; }
	rcall _LCD_en_write
	.dbline -2
L19:
	rcall 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::
	rcall push_gset1
	mov R20,R16
	.dbline -1
	.dbline 94
; }
; }
; }
; }
; }
	.dbline 95
; }
	ldi R16,16
	ldi R17,0
	rcall _delay_nus
	.dbline 96
; }
	sbi 0x12,0
	.dbline 97
; }
	in R24,0x12
	andi R24,15
	out 0x12,R24
	.dbline 98
; }
	mov R24,R20
	andi R24,240
	in R2,0x12
	or R2,R24
	out 0x12,R2
	.dbline 99
; }
	rcall _LCD_en_write
	.dbline 100
; }
	mov R24,R20
	andi R24,#0x0F
	swap R24
	mov R20,R24
	.dbline 101
; }
	in R24,0x12
	andi R24,15
	out 0x12,R24
	.dbline 102
; }
	mov R24,R20
	andi R24,240
	in R2,0x12
	or R2,R24
	out 0x12,R2
	.dbline 103
; }
	rcall _LCD_en_write
	.dbline -2
L20:
	rcall 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::
	rcall push_gset2
	mov R20,R18
	mov R22,R16
	.dbline -1
	.dbline 107
; }
; }
; }
; }
	.dbline 109
; }
; }
	tst R20
	brne L22
	.dbline 109
	mov R20,R22
	subi R20,128    ; addi 128
	rjmp L23
L22:
	.dbline 110
; }
	mov R20,R22
	subi R20,64    ; addi 192
L23:
	.dbline 111
; }
	mov R16,R20
	rcall _LCD_write_command
	.dbline -2
L21:
	rcall 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::
	rcall push_gset3
	mov R10,R18
	mov R22,R16
	ldd R20,y+6
	ldd R21,y+7
	.dbline -1
	.dbline 115
; }
; }
; }
; }
	.dbline 116
; }
	mov R18,R10
	mov R16,R22
	rcall _LCD_set_xy
	rjmp L26
L25:
	.dbline 118
	.dbline 119
	movw R30,R20
	ldd R16,z+0
	rcall _LCD_write_data
	.dbline 120
	subi R20,255  ; offset = 1
	sbci R21,255
	.dbline 121
L26:
	.dbline 117
; }
	movw R30,R20
	ldd R2,z+0
	tst R2
	brne L25
	.dbline -2
L24:
	rcall 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::
	rcall push_gset2
	mov R22,R18
	mov R20,R16
	.dbline -1
	.dbline 127
; }
; }
; }
; }
; }
; }
; }
; }
; }
; }
	.dbline 128
; }
	mov R18,R22
	mov R16,R20
	rcall _LCD_set_xy
	.dbline 129
; }
	ldd R16,y+4
	rcall _LCD_write_data
	.dbline -2
L28:
	rcall pop_gset2
	.dbline 0 ; func end
	ret
	.dbsym l data 4 c
	.dbsym r Y 22 c
	.dbsym r X 20 c
	.dbend
	.dbfile 1602.c
	.dbfunc e main _main fV
	.even
_main::
	sbiw R28,2
	.dbline -1
	.dbline 6
	.dbline 7
	rcall _LCD_init
	.dbline 9
	ldi R24,<L30
	ldi R25,>L30
	std y+1,R25
	std y+0,R24
	clr R18
	ldi R16,2
	rcall _LCD_write_string
	rjmp L32
L31:
	.dbline 11
	.dbline 13
	ldi R24,<L34
	ldi R25,>L34
	std y+1,R25
	std y+0,R24
	ldi R18,1
	ldi R16,2
	rcall _LCD_write_string
	.dbline 15
	ldi R24,56
	std y+0,R24
	clr R18
	ldi R16,12
	rcall _LCD_write_char
	.dbline 16
	ldi R24,56
	std y+0,R24
	clr R18
	ldi R16,13
	rcall _LCD_write_char
	.dbline 17
L32:
	.dbline 10
	rjmp L31
X0:
	.dbline -2
L29:
	adiw R28,2
	.dbline 0 ; func end
	ret
	.dbend
	.area data(ram, con, rel)
	.dbfile 1602.c
L34:
	.blkb 11
	.area idata
	.byte 49,50,51,52,53,54,55,56,57,48,0
	.area data(ram, con, rel)
	.dbfile 1602.c
L30:
	.blkb 8
	.area idata
	.byte 'h,'e,'l,'l,'o,33,33,0
	.area data(ram, con, rel)
	.dbfile 1602.c