DJNZ   R1,BBB1
        ret

DISPLAY_PIC:
        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,#128
BBB2:	MOV    R2,#128
AAA2:	CLR   A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
        CLR    A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
	DJNZ   R2,AAA2
	DJNZ   R1,BBB2

       ret

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

	MOV  	 A,#06BH
	LCALL 	WRITE_COM
	MOV  	 A,#076H
	LCALL 	WRITE_COM

	 MOV    R1,#85
TT0:	MOV    R2,#128
TTT0:	CLR   A
	MOV	A,#0FFH	;WRITE DATA
        LCALL WRITE_DATA
	MOV	A,#0FFH	;WRITE DATA
        LCALL WRITE_DATA
	DJNZ   R2,TTT0
	DJNZ   R1,TT0

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

	MOV  	 A,#069H
	LCALL 	WRITE_COM
	MOV  	 A,#076H
	LCALL 	WRITE_COM

        MOV       DPTR,#map2
        MOV    R1,#27
TT1:	MOV    R2,#128
TTT1:	CLR   A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
        CLR    A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
	DJNZ   R2,TTT1
	DJNZ   R1,TT1

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

	MOV  	 A,#06CH
	LCALL 	WRITE_COM
	MOV  	 A,#074H
	LCALL 	WRITE_COM

        MOV       DPTR,#map2
        MOV    R1,#27
TT2:	MOV    R2,#128
TTT2:	CLR   A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
        CLR    A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
	DJNZ   R2,TTT2
	DJNZ   R1,TT2

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

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

        MOV       DPTR,#map2
        MOV    R1,#27
TT3:	MOV    R2,#128
TTT3:	CLR   A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
        CLR    A
	MOVC	A,@A+DPTR	;WRITE DATA
        LCALL WRITE_DATA
	INC    DPTR
	DJNZ   R2,TTT3
	DJNZ   R1,TT3

        RET


READ_COM:
	CLR     CD
	SETB    WR1
	SETB    RD1
        CLR     RD1
;	MOV     A,P1
        SETB    RD1
	MOV     A,P1
	MOV     A,P1
        MOV    R0,A
     
        SETB    RD1
        CLR     RD1
;	MOV     A,P1
        SETB    RD1
	MOV     A,P1
	MOV     A,P1
        MOV    R1,A

        SETB    RD1
        CLR     RD1
	;MOV     A,P1
        SETB    RD1
	MOV     A,P1
	MOV     A,P1
        MOV    R2,A

	SETB    WR1
	RET

;--------------
; set contraset
;--------------

;------------------------------


WRITE_COM:
	CLR     CD
	CLR     WR1
	SETB    RD1
	MOV     P1,A
MOV     P1,A
	SETB    WR1
	RET


WRITE_DATA:
	SETB    CD
	SETB    RD1
       ;	CLR     WR1
	MOV     P1,A
MOV     P1,A
CLR     WR1
	SETB    WR1
;	clr  cd
	RET

DELAY1:

		MOV	R2,#5
DELAY112:	MOV     R3,#0FFH
DELAY111:	MOV     R4,#0FFH
		DJNZ    R4,$
		DJNZ    R3,DELAY111
		DJNZ	R2,DELAY112

	RET

DELAY:

		MOV	R2,#1
DELAY114:	MOV     R3,#01FH
DELAY113:	MOV     R4,#0FFH
		DJNZ    R4,$
		DJNZ    R3,DELAY113
		DJNZ	R2,DELAY114	
	RET

DELAY2:

		MOV	R2,#1
DELAY214:	MOV     R3,#040
DELAY213:	MOV     R4,#0FFH
		DJNZ    R4,$
		DJNZ    R3,DELAY213
		DJNZ	R2,DELAY214