单片机汇编语言模块化编程-LCD1602驱动
;===================================
; Function : LCD1602 drives
; Programer : MicroAC
; Date : 2012.03.06
;===================================
name LCD1602
;You should know that A-register as
;transper if you gonna delier data.
;MCU'SEPCIAL REGISTER
;ACC DATA 0E0H
;B DATA 0F0H
;SP DATA 81H
;DPL DATA 82H
;DPH DATA 83H
;DEFINE CONTROL PIN HERE & DATA PORT
RS BIT P2.4
RW BIT P2.5
E BIT P2.6
DAT EQU P0
;SOME CONTROLER FLAG OR DAT
CHECK BIT 20H.0 ;Bit rang you can search.
BUSY EQU 80H
;SOME PARATERMER DEFINE
DEL_TIM EQU 100 ;SETTING TIME YOU WANT DELAY.
;***********************************
;--FUNCTION : MAIN
;--IN PARAMETER : NONE
;--OUTPARAMETER : NONE
;--PROTEST : NONE
;***********************************
MAIN SEGMENT CODE
START:
....add your instruction here!
AJMP START
;***********************************
;--FUNCTION : InitLCD
;--IN PARAMETER : CHECK , A
;--OUTPARAMETER : NONE
;--PROTEST : NONE
;***********************************
InitLCD PROC NEAR
MOV R1,#3 ;CIRCLE 3 TIMES
CIRCLE:
MOV DAT,#0 ;COMMAND 0X38，NO CHECK BF
MOV A,#38H
CLR CHECK
CALL WriteCom ;WRITE COMMAND
LCALL DELAY ;DELAY
DJNZ R1,CIRCLE
;COMMAND 0X38，CHECK BF & SETTING BEGINNING
MOV A,#38H ;NO DELAY
SETB CHECK
CALL WriteCom ;WRITE COMMAND
;COMMAND 0X08，CHECK BF & SETTING BEGINNING
MOV A,#08H ;NO DELAY
SETB CHECK
CALL WriteCom ;WRITE COMMAND
;COMMAND 0X01，CHECK BF & SETTING BEGINNING
MOV A,#01H ;NO DELAY
SETB CHECK
CALL WriteCom ;WRITE COMMAND
;COMMAND 0X06，CHECK BF & SETTING BEGINNING
MOV A,#06H ;NO DELAY
SETB CHECK
CALL WriteCom ;WRITE COMMAND
;COMMAND 0X0C，CHECK BF & SETTING BEGINNING
MOV A,#0CH ;NO DELAY
SETB CHECK
CALL WriteCom ;WRITE COMMAND
CALL DELAY ;DELAY
RET
InitLCD ENDP
;***********************************
;--FUNCTION : WriteDat
;--IN PARAMETER : CHECK , A
;--OUTPARAMETER : NONE
;--PROTEST : NONE
;***********************************
WriteDat PROC NEAR
JNB CHECK,NOCHE ;NEEDN'T CHECKE BUSY-BF
CLR CHECK ;CLR CHECK FLAG FOR NEXT CHECK.
CALL ReadStatus
NOCHE:
MOV DAT,A ;DAT<-(A),COMMAND RESTORE AT A-REGISTER
SETB RS
CLR RW
SETB E
CLR E
SETB E
RET
WriteDat ENDP
;***********************************
;--FUNCTION : WriteCom
;--IN PARAMETER : CHECK,A
;--OUTPARAMETER : NONE
;--PROTEST : NONE
;***********************************
WriteCom PROC NEAR
JNB CHECK,NOCHE ;NEEDN'T CHECKE BUSY-BF
CALL ReadStatus
NOCHE:
MOV DAT,A ;DAT<-(A),COMMAND RESTORE AT A-REGISTER
CLR RS
CLR RW
SETB E
CLR E
SETB E
RET
WriteCom ENDP
;***********************************
;--FUNCTION : ReadStatus
;--IN PARAMETER : NONE
;--OUTPARAMETER : NONE
;--PROTEST : NONE
;***********************************
ReadStatus PROC NEAR
MOV DAT,#0FFH ;PIN READ MODULE
CLR RS
SETB RW
SETB E
CLR E
BLOOP: ;GET BUSY BIT -BF
MOV A,DAT
ANL A,#BUSY
JBC ACC.7 ,BLOOP
SETB E
RET
ReadStatus ENDP
;***********************************
;--FUNCTION : DispOneChar
;--IN PARAMETER : A
;--OUTPARAMETER : NONE
;--PROTEST : A
;***********************************
DispOneChar PROC NEAR
PUSH ACC ;NEED TO PROTECT DISPLAY DATA.
CLR A ;CLEAR A
ORL A , #(80H+ 4) ;CHANG INTO INSTRUCTION(SET ADDRESS)
SETB CHECK ;AND DISPLAY ONE LINE WITH CHECK BF
CALL WriteCom
POP ACC ;DISPLAY DATA OUT.
SETB CHECK
CALL WriteDat
CALL DELAY
RET
DispOneChar ENDP
;***********************************
;--FUNCTION : DEALY
;--IN PARAMETER : DEL_TIM
;--OUTPARAMETER : NONE
;--PROTEST : PSW
;***********************************
DEALY PROC FAR
PUSH PSW
SETB RS0 ;USING WORK REGISTER 3
SETB RS1
MOV R7,#DEL_TIM
MOV R6,#200
LOOP:
DJNZ R6,$
DJNZ R7,LOOP
POP PSW
RETS ;FAR PROCEDURE RETURN
DEALY ENDP
END