51单片机的问题，求大神帮忙解决一下吧

我写的程序总是黑屏，有没有大神帮忙解决一下，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
课设作业，就这几天时间了，帮忙解决下，谢谢

没人吗。

汇编太难读