|
|
env mov cu0,#5
call wait_us
setb lce
nop
clrb lce
mov cu0,#40
call wait_us
ret
swait call inrb
and bf,#3
cjne bf,#3,swait
mov cu0,#50
call wait_ms
call inrb
and bf,#3
cjne bf,#3,swait
ret
wait_ms mov cu1,#0
wait_ms1 nop
nop
nop
nop
djnz cu1,wait_ms1
djnz cu0,wait_ms
ret
wait_us djnz cu0,wait_us
ret
inra mov bf,ra
nop
nop
nop
cjne bf,ra,inra
ret
inrb mov bf,rb
nop
nop
nop
nop
cjne bf,rb,inrb
ret
;------------ LCD init --------------
lcd_init clrb lcrs
mov ra,#3
call env
mov cu0,#5
call wait_ms
mov ra,#3
call env
mov cu0,#100
call wait_us
mov ra,#3
call env
mov ra,#2
call env
mov ra,#2
call env
mov ra,#8
call env
mov ra,#0 ;dsp off
call env
mov ra,#8
call env
mov ra,#0 ;dsp clr
call env
mov ra,#1
call env
mov cu0,#2
call wait_ms
mov ra,#0 ;ent
call env
mov ra,#6
call env
mov ra,#0 ;dsp on
call env
mov ra,#0eh
call env
ret
http://homepage2.nifty.com/JG1FJC/
|
|
