;USE UC1697v
;	RST	EQU	P3.1
	WR1	EQU	P3.5
	RD1	EQU	P3.6
	CD	EQU	P3.4
	CS	EQU	P3.0
	DAT1	EQU	40H
	DAT2	EQU	41H
	CON1	EQU     42H
	CON2	EQU     43H
        NUM     EQU     44H

	org  0000h
	ljmp main
	org  0030h
MAIN:
        MOV    SP,#80H
	MOV  IE,#00H
	LCALL   DELAY
	LCALL    LCD_INIT
DD:
	MOV     DAT1,#0F8H
	MOV     DAT2,#000H
	LCALL   DISPLAY1

	MOV     A,#0AfH			;SET DISPLAY ENABLE
	LCALL	WRITE_COM
 ;      LCALL   WAITKEY      
     
	MOV     DAT1,#007H
;	MOV     DAT2,#0e0H
;	LCALL   DISPLAY1

;       LCALL   WAITKEY

;        MOV     DAT1,#00H
;	MOV     DAT2,#01FH
;	LCALL   DISPLAY1

;       LCALL   WAITKEY

;	MOV     DAT1,#0FFH
;	MOV     DAT2,#0FFH
;	LCALL   DISPLAY1

;       LCALL   WAITKEY

;	MOV     DAT1,#000H
;	MOV     DAT2,#000H
;	LCALL   DISPLAY1
  
;      LCALL   WAITKEY

        MOV       DPTR,#map1
	LCALL      DISPLAY_PIC
	LCALL      DELAY1
;       LCALL   WAITKEY
		
        LCALL  TEST
;        LCALL   WAITKEY

	LJMP	DD



LCD_INIT:
        CLR	CS
;	CLR	RST
;	LCALL   DELAY
;  	SETB    RST
;       LCALL   DELAY1
	LCALL   DELAY1

	MOV	A,#0E2H			;SYSTEM RESET
	LCALL	WRITE_COM

	MOV	A,#02FH			;SET pump control
	LCALL	WRITE_COM

	MOV	A,#02AH			;SET panel loading
	LCALL	WRITE_COM


;	MOV	A,#0C6H			;SET LCD MAPPING CONTROL
        MOV	A,#0C0H	
	LCALL	WRITE_COM


	MOV	A,#0A3H			;SET LINE RATE
	LCALL	WRITE_COM

        MOV	A,#0D1H			;SET CLOR Pattern
  	LCALL	WRITE_COM

    	MOV	A,#0D6H			;SET CLOR MODE
	LCALL	WRITE_COM

;	MOV	A,#0DEH			;SET Scan Function
;	LCALL	WRITE_COM

	MOV	A,#0EBH			;SET LCD BIAS RATIO
	LCALL	WRITE_COM


	MOV	A,#081H			;SET V BIAS POTENTIOMESTER
	LCALL	WRITE_COM
;	MOV	A,#52
       	MOV	A,#87    ;57
	LCALL	WRITE_COM

	MOV	A,#0C8H			;SET N-line
	LCALL	WRITE_COM
        MOV	A,#0CH
	LCALL	WRITE_COM

	MOV	A,#0DDH
	LCALL	WRITE_COM
	
	MOV	A,#030H			;APC
	LCALL	WRITE_COM
        MOV	A,#05fH
	LCALL	WRITE_COM

	MOV  	 A,#00H
	LCALL 	WRITE_COM
	MOV  	 A,#010H
	LCALL 	WRITE_COM

	MOV  	 A,#06FH
	LCALL 	WRITE_COM
	MOV  	 A,#077H
	LCALL 	WRITE_COM

	
	MOV  	 A,#0F4H
	LCALL 	WRITE_COM
	MOV  	 A,#00
	LCALL 	WRITE_COM

	MOV  	 A,#0F5H
	LCALL 	WRITE_COM
	MOV  	 A,#00
	LCALL 	WRITE_COM

	MOV  	 A,#0F6H
	LCALL 	WRITE_COM
	MOV  	 A,#0127
	LCALL 	WRITE_COM

	MOV  	 A,#0F7H
	LCALL 	WRITE_COM
	MOV  	 A,#0127
	LCALL 	WRITE_COM

	MOV  	 A,#0f8h
	LCALL 	WRITE_COM

        MOV	A,#08dH			;SET SRAM MODE
	LCALL	WRITE_COM

;	 MOV	A,#0A7H			;SET inverse display
;	LCALL	WRITE_COM

	LCALL   DELAY


	RET

	
DISPLAY1:

	MOV  	 A,#00H
	LCALL 	WRITE_COM
	MOV  	 A,#010H
	LCALL 	WRITE_COM

	MOV  	 A,#06FH
	LCALL 	WRITE_COM
	MOV  	 A,#077H
	LCALL 	WRITE_COM

	MOV    R1,#0128

DIS1:	MOV    R2,#0128
	
DIS:	MOV	A,DAT1
	LCALL	WRITE_DATA
	MOV	A,DAT2
	LCALL	WRITE_DATA
	DJNZ    R2,DIS
	DJNZ    R1,DIS1

	RET


DISPLAY2:
        MOV    R1,#128
BBB1:	MOV    R2,#128
AAA1:	CLR   A
lcall  DELAY3
        ;clr  P3.7
;	MOVX   A,@DPTR	;WRITE DATA
	MOVX   A,@DPTR
        LCALL WRITE_DATA
	INC    DPTR
	CLR   A
lcall  DELAY3
;	clr  P3.7
;	MOVX   A,@DPTR	;WRITE DATA
	MOVX   A,@DPTR
        LCALL WRITE_DATA
	INC    DPTR
	DJNZ   R2,AAA1