ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:CLR P1.4
     MOV 30H,#10
     MOV 31H,#0
     MOV R0,#0
     MOV R3,#128
START:MOVX @DPTR,A
     JB P3.2,$
     MOVX A,@DPTR
     CLR C
     ADD A,R0
     MOV R0,A
     CLR A
     RLC A
     ADD A,31H
     MOV 31H,A
     DJNZ R3,START
     MOV A,31H
     LCALL ZH
     LCALL DISP
     LJMP MAIN
ZH:  MOV B,#10
     DIV AB
     MOV 41H,A
     MOV 40H,B
     RET
DISP:MOV DPTR,#TABLE
     MOV A,#10
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.3
     LCALL DEL
     SETB P2.3
     CLR P2.5

     MOV A,40H
     MOV DPTR,#TABLE
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.2
     LCALL DEL
     SETB P2.2

     MOV A,41H
     MOV DPTR,#TABLE
     MOVC A,@A+DPTR
     MOV DPTR,#0EFFFH
     MOVX @DPTR,A
     CLR P2.1
     LCALL DEL
     SETB P2.1
      RET

TABLE: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ,0C6H

 DEL:MOV R6,#10
   D2:MOV R7,#50
   D1:DJNZ R7,D1
      DJNZ R6,D2
      RET
      END