那个高手可以帮帮我改向左移动的程序啊？？？

现在只可以变动字体显示，那个高手可以帮我改成向左移动显示的呢？感激不尽啊~~




ORG 00H
LJMP ST
ORG 0BH
LJMP TS0
ST: MOV TMOD,#01H
MOV TH0,#0D8H
MOV TL0,#0F0H
MOV SP,#70H
MOV R6,#20
MOV IE,#82H
MOV 55H,#0
SETB TR0
KS:LCALL DZ
LJMP KS
DZ:MOV 50H,#0
   MOV 51H,#0
   MOV 52H,#80H
   MOV 53H,#01H
   MOV 54H,#0
   DZ1:LCALL QP
       MOV P1,52H
       MOV A,#0C0H
       ORL A,53H
       MOV P2,A
       MOV P2,#0C4H
       MOV 54H,#0C4H
       LCALL ZUO
       MOV 54H,#0C8H
       LCALL ZUO
       MOV 54H,#0D0H
       LCALL YOU
       MOV 54H,#0E0H
       LCALL YOU  
       LCALL DE
       MOV A,52H
       RR   A
       MOV 52H,A
       CJNE A,#80H,DZ1
       MOV A,53H
       RL  A
       MOV 53H,A
       CJNE A,#04H,DZ1
       RET
ZUO:  MOV DPTR,#ZTAB      
      MOV A,50H
      ADD A,55H
      MOVC A,@ A+DPTR
       CPL A
      MOV P1,A
      MOV P2,54H
      MOV P2,#0C0H
      INC 50H
      RET
YOU:  MOV DPTR,#YTAB

      MOV A,51H
      ADD A,55H
      MOVC A,@ A+DPTR
       CPL A
      MOV P1,A
      MOV P2,54H
      MOV P2,#0C0H
      INC 51H
      RET
QP:   MOV P2,#0C0H
      MOV P1,#00H
      MOV P2,#0FFH
      MOV P2,#0C0H
      RET
ZTAB:

   DB 00H,08H,7FH,0FCH,04H,40H,04H,40H,04H,40H,04H,40H,44H,48H,24H,4CH
   DB 24H,50H,14H,50H,14H,60H,04H,40H,04H,40H,04H,44H,0FFH,0FEH,00H,00H


   DB 01H,00H,01H,00H,01H,00H,01H,00H,01H,04H,0FFH,0FEH,01H,00H,01H,00H
   DB  02H,80H,02H,80H,04H,40H,06H,40H,09H,30H,31H,0EH,0C0H,04H,00H,00H

   DB 02H,00H,02H,00H,02H,10H,7FH,0F8H,42H,10H,42H,10H,7FH,0F0H,42H,10H
   DB 42H,10H,7FH,0F0H,42H,10H,02H,00H,02H,04H,02H,04H,01H,0FCH,00H,00H


    DB 10H,20H,08H,20H,02H,20H,0FFH,24H,24H,7EH,22H,84H,41H,44H,0A4H,44H
    DB 14H,48H,08H,28H,14H,28H,24H,10H,22H,28H,42H,28H,80H,46H,01H,84H





YTAB:  DB 00H,08H,7FH,0FCH,04H,40H,04H,40H,04H,40H,04H,40H,44H,48H,24H,4CH
   DB 24H,50H,14H,50H,14H,60H,04H,40H,04H,40H,04H,44H,0FFH,0FEH,00H,00H


   DB 01H,00H,01H,00H,01H,00H,01H,00H,01H,04H,0FFH,0FEH,01H,00H,01H,00H
   DB  02H,80H,02H,80H,04H,40H,06H,40H,09H,30H,31H,0EH,0C0H,04H,00H,00H

   DB 02H,00H,02H,00H,02H,10H,7FH,0F8H,42H,10H,42H,10H,7FH,0F0H,42H,10H
   DB 42H,10H,7FH,0F0H,42H,10H,02H,00H,02H,04H,02H,04H,01H,0FCH,00H,00H


    DB 10H,20H,08H,20H,02H,20H,0FFH,24H,24H,7EH,22H,84H,41H,44H,0A4H,44H
    DB 14H,48H,08H,28H,14H,28H,24H,10H,22H,28H,42H,28H,80H,46H,01H,84H


  DE:MOV 38H,#200
   DJNZ 38H,$  
         


   RET
TS0: PUSH PSW
     PUSH ACC
     DJNZ R6,TSH
     MOV R6,#20
     MOV TH0,#0D8H
     MOV TL0,#0F0H
     MOV A,55H
     ADD A,#32
     MOV 55H,A
     MOV A,55H
     CJNE A,#128,TSH
     MOV 55H,#0
     TSH:POP ACC
     POP PSW
     REti
     END