; ********************************************
; Function : LCD显示示例程序 *
; MicroProcessor : HT48R50A-1/28SKDIP-A *
; Author: www.picavr.com *
; Crystal : 4MHz *
; ********************************************
#INCLUDE HT48R50A-1.INC
LCD_DATA EQU PA
LCD_DATA_CTRL EQU PAC
LCD_CTRL EQU PC
LCD_CTRL_CTRL EQU PCC
E EQU 2
RW EQU 1
RS EQU 0
;------------------------------------------------------
DATA .SECTION AT 60H 'DATA'
DELAY_COUNTER_1 DB ? ;[60H]
DELAY_COUNTER_2 DB ? ;[61H]
DELAY_COUNTER_3 DB ? ;[62H]
DISPLAY_DATA DB ? ;[63H]
DISPLAY_COUNTER DB ? ;[64H]
;------------------------------------------------------
CODE .SECTION AT 00H 'CODE'
ORG 00H
JMP START
START:
CLR LCD_DATA
CLR LCD_DATA_CTRL
CLR LCD_CTRL
CLR LCD_CTRL_CTRL
CALL DELAY
CLR TBLP
MOV A,30H ;\
MOV LCD_DATA,A ; > STEP 0
CALL WRITE ;/ LCD RESET
CALL DELAY
MOV A,30H ;\
MOV LCD_DATA,A ; > STEP 0
CALL WRITE ;/ LCD RESET
CALL DELAY
MOV A,38H ;\
MOV LCD_DATA,A ; > STEP 1
CALL WRITE ;/ Function set
MOV A,06H ;\
MOV LCD_DATA,A ; > STEP 2
CALL WRITE ;/ Entry mode set
MOV A,01H ;\
MOV LCD_DATA,A ; > STEP 3
CALL WRITE ;/ Display clear
CALL DELAY
MOV A,0EH ;\
MOV LCD_DATA,A ; > STEP 4
CALL WRITE ;/ Display turn on/off
MOV A,83H ;\
MOV LCD_DATA,A ; > STEP 5
CALL WRITE ;/ DD RAM address set(First line)
SET LCD_CTRL.RS ; STEP 6
MOV A,0AH ; DD RAM data write
MOV DISPLAY_COUNTER,A
DISPLAY1:
TABRDL DISPLAY_DATA
MOV A,DISPLAY_DATA
MOV LCD_DATA,A
CALL WRITE
INC TBLP
SDZ DISPLAY_COUNTER
JMP DISPLAY1
CLR LCD_CTRL.RS ;\
MOV A,0C3H ; > STEP 7
MOV LCD_DATA,A ; | DD RAM address set(Second line)
CALL WRITE ;-
SET LCD_CTRL.RS ; SETP 8
MOV A,0AH ; DD RAM data write
MOV DISPLAY_COUNTER,A
DISPLAY2:
TABRDL DISPLAY_DATA
MOV A,DISPLAY_DATA
MOV LCD_DATA,A
CALL WRITE
INC TBLP
SDZ DISPLAY_COUNTER
JMP DISPLAY2
HALT
RET
;------------------------------------------------------
WRITE PROC
SET LCD_CTRL.E
CLR LCD_CTRL.E
MOV A,0FFH
MOV DELAY_COUNTER_1,A
WAIT:
SDZ DELAY_COUNTER_1
JMP WAIT
RET
WRITE ENDP
;------------------------------------------------------
DELAY PROC
MOV A,003H
MOV DELAY_COUNTER_1,A
MOV DELAY_COUNTER_2,A
MOV DELAY_COUNTER_3,A
WAITING:
SDZ DELAY_COUNTER_3
JMP WAITING
SDZ DELAY_COUNTER_2
JMP WAITING
SDZ DELAY_COUNTER_1
JMP WAITING
RET
DELAY ENDP
;------------------------------------------------------
ORG 0F00H
;[LCD.......]
;[Test OK !!]
DC 4CH,43H,44H,2EH,2EH,2EH,2EH,2EH,2EH,2EH
DC 54H,65H,73H,74H,20H,4FH,4BH,20H,21H,21H
;------------------------------------------------------
END