我写的程序总是黑屏，有没有大神帮忙解决一下，proteus仿真如图。。代码如下
RS EQU P2.0
RW EQU P2.1
E EQU P2.2
RST EQU P2.5
COUNT EQU 30H

ORG 0000H
LJMP MAIN
ORG 0100H
MAIN: MOV SP,#60H
CLR RST
LCALL DELAY1
SETB RST
NOP


CSH:MOV A,#34H
LCALL SEND1
MOV A,#30H
LCALL SEND1
MOV A,#01H
LCALL SEND1
MOV A,#06H
LCALL SEND1
MOV A,#0CH
LCALL SEND1


HAN:LCALL CLEAR
    MOV DPTR,#TAB1
    MOV COUNT,#10H
    MOV A,#80H
    LCALL SEND1
    LCALL QUSHU


SEND1:
     CLR RS
     CLR RW
     MOV P0,A
     SETB E
     NOP
NOP
CLR E
RET

SENDD:
SETB RS
SETB RW
MOV P0,A
SETB E
NOP
NOP
CLR E

RET

QUSHU:CLR A
MOVC A,@A+DPTR
LCALL SENDD
INC DPTR
LCALL DELAY1
DJNZ COUNT,QUSHU
RET

CLEAR:MOV A,#01H
LCALL SEND1
MOV A,#34H
LCALL SEND1
MOV A,#30H
LCALL SEND1
RET




DELAY1:
MOV R6,#100
DEL1:MOV R7,#200
DEL2:DJNZ R7,DEL2
    DJNZ R6,DEL1
RET



TAB1:
db 80h, 00h, 00h, 00h, 00h, 3Ch, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 01h
db 80h, 00h, 00h, 00h, 00h, 7Fh, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 01h
db 80h, 00h, 00h, 00h, 00h,0FFh,0C0h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 01h
db 80h, 00h, 00h, 00h, 01h,0BFh,0F8h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h, 01h

end

课设作业，就这几天时间了，帮忙解决下，谢谢