数模转换

ORG 0000H
AJMP MAIN
ORG 0003H
AJMP SERVE
MAIN:SETB IT0
     SETB EA
     SETB EX0
     CLR A
     MOV 30H,A
     MOV 31H,A
     MOV 32H,A
     MOV 33H,A
     MOV 34H,A
     MOV 35H,A
     SJMP DIS1
SERVE:MOV DPTR,#0FEFFH
     MOV A,#00H
     MOVX @DPTR,A
     MOVX A,@DPTR
     MOV 30H,A
     DA A
     MOV B,#64H
     DIV AB
     MOV 36H,A
     MOV A,B
     MOV B,#0AH
     DIV  AB
     MOV 35H,A
     MOV 34H,B
DIS0: MOV R0,#36H
     MOV R2,#01H
     MOV A,R2
LOP:  MOV DPTR,#0FF7DH
      MOVX @DPTR,A
     MOV DPTR,#0FFEH
    MOV A,@R0
DIS1:MOV R0,#36H
    MOV R2,#20H
   MOV A,R2
LP0:MOV DPTR,#0FF7DH
     MOVX @DPTR,A
     MOV DPTR,#5FF7EH
     MOV A,@R0
     ADD A,0DH
     MOVC A,@A+PC
     MOVX @DPTR,A
     ACALL DIMS
     MOV A,R2
      JB ACC.0,DIS1
     RR A
     MOV R2,A
     DEC R0
     AJMP LP0
LP1: RET
    DB  0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
DIMS:MOV R7 ,#02H
DL: MOV R6,0FFH
DL1: DJNZ R6,DL1
     DJNZ R7,DL
     RET
END