ORG  0000H
              RS EQU P2.7
              RW EQU P2.6
              E  EQU P2.5
START:       
              ACALL DELAY16MS
	      SETB E
              MOV P1 , #3FH
              CLR  RS
              CLR RW
              CLR E
	      ACALL DELAY5MS
	      SETB E
	      MOV P1 , #3FH
              CLR  RS
              CLR RW
              CLR E
	      ACALL DELAY5MS
	      SETB E
	      MOV P1 , #3FH
              CLR  RS
              CLR RW
              CLR E
	      NOP
	      SETB E
	      ACALL BUSY
	      MOV P1 , #38H
	      CLR  RS
              CLR RW
              CLR E
	      NOP
	      SETB E
	      ACALL BUSY
	      MOV P1 , #08H
	      CLR  RS
              CLR RW
              CLR E
	      NOP
	      SETB E
	      ACALL BUSY
	      MOV P1 , #01H
	      CLR  RS
              CLR RW
              CLR E
	      NOP
	      SETB E
	      ACALL BUSY
	      MOV P1 , #06H
	      CLR  RS
              CLR RW
              CLR E
	      NOP
	      SETB E
	      ACALL BUSY

MAIN:         MOV P1 , #01H
	      ACALL ENABLE
              MOV P1 , #38H
	      ACALL ENABLE
	      MOV P1 , #0FH
	      ACALL ENABLE
	      MOV P1 , #06H
	      ACALL ENABLE
	      MOV P1 , #80H
	      ACALL ENABLE
              MOV P1 , #48H
              ACALL ENABLE1
	      MOV P1 , #45H
              ACALL ENABLE1
              MOV P1 , #4CH
              ACALL ENABLE1
	      MOV P1 , #4CH
	      ACALL ENABLE1
	      MOV P1 , #4FH
	      ACALL ENABLE1
	      MOV P1 , #86H
              ACALL ENABLE
	      MOV P1 , #57H
	      ACALL ENABLE1
              MOV P1 , #4FH
	      ACALL ENABLE1
              MOV P1 , #52H
	      ACALL ENABLE1
              MOV P1 , #4CH
	      ACALL ENABLE1
	      MOV P1 , #44H
	      ACALL ENABLE1
	      MOV P1 , #8CH
	      ACALL ENABLE
	      MOV DPTR , #TABLE
	      MOV A , #0FFH
	      MOV P0 , A
	      MOV A , P0
	      MOV 30H , A
	      ANL A , #0F0H
	      SWAP A
	      MOVC A , @A+DPTR
	      MOV P1 , A
	      ACALL ENABLE1
	      MOV A , 30H
	      ANL A , #0FH
	      MOVC A , @A+DPTR
	      MOV P1 , A
	      ACALL ENABLE1
	      AJMP START



ENABLE:       CLR RS 
              CLR RW 
              CLR E
 	      NOP
	      SETB E
              ACALL BUSY
              SETB E 
              RET 

ENABLE1:      SETB RS 
              CLR RW 
              CLR E
 	      NOP
	      SETB E
              ACALL BUSY
              SETB E 
              RET 

BUSY:         
              CLR RS 
              SETB RW
              CLR E 
              NOP 
              SETB E 
	      MOV A , #0FFH
	      MOV P1 , A
	      MOV A , P1
	      JB ACC.7 , BUSY
	      RET
              
DELAY16MS:    MOV R7 , #30H
TM:           MOV R6 , #0FFH
TM6:          DJNZ R6 , TM6
              DJNZ R7 , TM
	      RET

DELAY5MS:     MOV R7 , #0AH
TM1:          MOV R6 , #0FFH
TM7:          DJNZ R6 , TM7
              DJNZ R7 , TM1
	      RET

TABLE:        DB 30H , 31H , 32H , 33H , 34H , 35H , 36H , 37H , 38H , 39H 
              DB 41H , 42H , 43H , 44H , 45H , 46H 
	      END