;TEST TO WC2004D
;CONTROLLER: KS0073U
;SIDE: 20 X 4 CHARACTER
;DATA: 
;*****************************************************************
RS       EQU    P2.0            ;DEFINE LCM DATA/INSTRUCTION PIN        
RRW      EQU    P2.1            ;DEFINE LCM READ/WRITE PIN
E        EQU    P2.4            ;DEFINE LCM CHIP ENABLE PIN
;DB0~DB7 REQ    P0.0~P0.7       DEFINE LCM DATA BUS PIN
                
             
        ORG     0000H
INIT:   LCALL   DELAY           ;DELAY TIME
        LCALL   DELAY
        MOV     A,#38H          ;8 BITS INTERFACE,2 LINE DISPLAY,5 X 7 DOTS
        LCALL   COM1
        LCALL   DELAY
	MOV     A,#38H          ;8 BITS INTERFACE,2 LINE DISPLAY,5 X 7 DOTS
        LCALL   COM1
	LCALL   DELAY
        MOV     A,#38H          ;8 BITS INTERFACE,2 LINE DISPLAY,5 X 7 DOTS
        LCALL   COM1
	LCALL   DELAY
        MOV     A,#0CH          ;DISPLAY ON,CURSOR OFF,BLINKING OFF
        LCALL   COM
        MOV     A,#06H          ;INCREASE,DISPLAY IS NOT SHIFTED
        LCALL   COM
	MOV     A,#01H          ;DISPLAY CLEAR
        LCALL   COM

        MOV     A,#3CH          ;Extended function set,RE=1
        LCALL   COM
        MOV     A,#09H          ;set 4-line mode
        LCALL   COM
        MOV     R1,#14H       
INIT3:  DJNZ    R1,INIT3      
            
                 

START:  MOV     A,#01H          ;START TO TEST
        LCALL   COM
	MOV     DPTR ,#CG
	LCALL   WRCHAR
	LCALL   DELAYL
        LCALL   DELAYL
        LCALL   DELAYL
        MOV     DPTR,#CG1
        LCALL   WRCHAR
	
	LCALL   DELAYL
MOVING:	MOV     DPTR,#CG1
        MOV     42H,DPH
        MOV     40H,DPL
	MOV     41H,#0AH
MOVING1: MOV     DPL,40H
        MOV      DPH,42H
        LCALL   WRCHAR
	LCALL   DELAYL
        MOV     A,40H
        CLR     C
	ADD     A,#20
        MOV     40H,A
        MOV     A,#0
        ADDC    A,42H
	MOV     42H,A
	DJNZ    41H,MOVING1
        LCALL   DELAYL
        LCALL   DELAYL
	LCALL   DELAYL
	JMP     INIT



WRCHAR: 
               
WRCHAR1:MOV     A,#80H          
        LCALL   COM            
        MOV     R3,#14H         
WRCHAR2:CLR     A               
        MOVC    A,@A+DPTR       
        LCALL   DAT            
        INC     DPTR
	DJNZ    R3,WRCHAR2        
        MOV     A,#0C0H         
        LCALL   COM            
        MOV     R3,#14H         
WRCHAR3:  CLR     A               
        MOVC    A,@A+DPTR       
        LCALL   DAT            
        INC     DPTR
	DJNZ    R3,WRCHAR3
       
WRCHAR4:MOV     A,#94H          
        LCALL   COM            
        MOV     R3,#14H         
WRCHAR5:CLR     A               
        MOVC    A,@A+DPTR       
        LCALL   DAT            
        INC     DPTR
	DJNZ    R3,WRCHAR5        
        MOV     A,#0D4H         
        LCALL   COM            
        MOV     R3,#14H         
WRCHAR6:  CLR     A               
        MOVC    A,@A+DPTR       
        LCALL   DAT            
        INC     DPTR
	DJNZ    R3,WRCHAR6        
	RET


COM:    LCALL   BUSY           ;SEND OUT COMMAND
        MOV     P0,A            
        CLR     RS            
        CLR     RRW            
        SETB    E            
        CLR     E            
        RET                     
COM1:               ;SEND OUT COMMAND
        MOV     P0,A            
        CLR     RS            
        CLR     RRW            
        SETB    E            
        CLR     E            
        RET      

DAT:    LCALL   BUSY           ;SEND OUT DATA
        MOV     P0,A            
        SETB    RS            
        CLR     RRW            
        SETB    E            
        CLR     E            
        RET                     

BUSY:   MOV     P0,#0FFH        ;READ BUSY 
        CLR     RS            
        SETB    RRW            
        SETB    E            
        MOV     C,P0.7          
        CLR     E            
        JC      BUSY           
        RET                     

DELAY:  MOV     R2,#20H         ;DELAY TIME
DELAY0: MOV     R3,#34H         
DELAY1: DJNZ    R3,DELAY1       
        DJNZ    R2,DELAY0       
	RET

DELAYL: MOV     R1,#03H 
DELAYL2:MOV     R2,#0FFH         ;DELAY TIME
DELAYL0: MOV     R3,#0FFH         
DELAYL1: DJNZ    R3,DELAYL1       
        DJNZ    R2,DELAYL0       
	DJNZ    R1,DELAYL2 
	RET

CG:     DB      '                    '
        DB      '  ^   ^      ^   ^  '               
        DB      '    -          -    '
        DB      '                    '
CG1:    DB      '                    '
        DB      '  CHARACTER DISPLAY '
        DB      '       20 X 4       '
        DB      '                    '
        DB      'Wincom Tech.Co.,LTD '
        DB      ' TEL:0755-83308729  '
        DB      ' FAX:0755-83308659  '
        DB      ' www.wincomlcd.com  '
        DB      '                    '
        DB      'Wincom Tech.Co.,LTD '
        DB      ' TEL:0755-83308729  '
        DB      ' FAX:0755-83308659  '
        DB      ' www.wincomlcd.com  '
	



END