; ********************************************
; 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