LCD1602程序下载(AVR) -
[导读]
.include "8515def.inc".equ rs=0.equ rw=1.equ en=2.org $000rjmp resetreset:.org $010ldi r16,low(ramend)ldi r17,high(ramend)out spl,r16out sph,r17main:ser r16out ddra,r16out porta,r16out dd
.include "8515def.inc"
.equ rs=0
.equ rw=1
.equ en=2
本文引用地址: http://www.21ic.com/app/mcu/201807/765270.htm
.org $000
rjmp reset
reset:
.org $010
ldi r16,low(ramend)
ldi r17,high(ramend)
out spl,r16
out sph,r17
main:
ser r16
out ddra,r16
out porta,r16
out ddrc,r16
out portc,r16
rcallLCDIni
ldi r16,$84
rcall WrOp
ldi r16,'a'
rcall WrDat
ldi r16,'b'
rcall WrDat
ldi r16,'c'
rcall WrDat
ldi r16,$c4
rcall WrOp
ldi r16,'d'
rcall WrDat
ldi r16,'e'
rcall WrDat
ldi r16,'f'
rcall WrDat
ldi r16,'g'
rcall WrDat
me:
rjmp me
;end of main
;------------------------------------------
LcdIni:
ldi r16,$38
rcall WrOp
nop
nop
ldi r16,$06
rcall WrOp
ldi r16,$0c
rcall WrOp
ret
;------------------------------------------
WrOp:
;将R16命令字传送到LCD
rcall check
cbi portc,rs
cbi portc,rw
cbi portc,en
out porta,r16
sbi portc,en
ldi r16,200
wo_lp:
dec r16
brne wo_lp
cbi portc,en
ret
;------------------------------------------
WrDat:
;将R16数据传送到LCD
rcall check
sbi portc,rs
cbi portc,rw
cbi portc,en
out porta,r16
sbi portc,en
ldi r16,200
wd_lp:
dec r16
brne wd_lp
cbi portc,en
ret
;-----------------------------------------
check:
;忙位检测
cbi ddra,7;设置PA的第七位为读入
cbi portc,rs
sbi portc,rw
sbi portc,en
c_lp:
sbICPINa,7;为零时就退出
rjmp c_lp
cbi portc,en
sbi ddra,7
ret
;-----------------------------------------
查看评论 回复
