单片机实验-A/D和D/A转换

ORG     0000H 
DATAR0  EQU     50H         ;定义保存采集现场数据单元 
        LJMP    MAIN 
        ORG     000BH       ;定义定时/计数器 T0 中断入口地址 
        LJMP    T0P 
        ORG     0100H 
MAIN :  MOV     SP , #60H    ;设置中断指针 
        MOV     TMOD,#01H   ;设置定时/计数器 T0 为工作方式 1、定时 
        MOV     TL0 ,#0D0H  ;设置定时常数 
        MOV     TH0 ,#80H 
        SETB    TR0         ;开启定时/计数器 T0 
        SETB    ET0         ;打开定时/计数器 T0 中断允许开关 
        SETB    EA          ;打开总开关 
        MOV     DPTR,#3000H  ;设置第三通道地址                   
        MOVX    @DPTR,A     ;启动第三通道转换       
LOOP:   LCALL   DATA1 
        LCALL   DISPLAY 
        SJMP    LOOP 
T0P:    MOV    TL0,#0D0H    ;重新设置定时常数 
        MOV    TH0,#80H 
        MOV    DPTR,#3000H  ;将第三通道地址送 DPTR 
        MOVX   A,@DPTR      ;读取转换值 
        MOV    DATAR0,A     ;保留转换值 
        MOVX   @DPTR,A      ;重启第三通道转换 
        RETI 
        DATA1:              ;显示格式转换子程序 
        MOV     79H,#03H 
        MOV     7AH,#11H 
        MOV     A,DATAR0 
        ANL     A,#0F0H 
        SWAP    A 
        MOV     7BH,A 
        MOV     A,DATAR0 
        ANL     A,#0FH 
        MOV     7CH,A             
        RET        
DISPLAY:                  
      MOV    R0,#79H       ;显示缓冲区首地址送 R0 
      MOV    R3,#01H       ;字位码送 R3 保存 
      MOV    A,R3 
LD0:  MOV    P2,A          ;字位码送位码端口 P2，点亮该位 
      MOV    A,@R0         ;取出一位要显示的数据 
      MOV    DPTR,#TAB1    ;表首地址送 DPTR 
      MOVC   A,@A+DPTR     ;查表获取该数据的字型码            
DIR1: MOV    P0,A          ;字型码送段码端口 P0 
      ACALL  DL11          ;调用延时子程序 
      INC    R0            ;缓冲区地址+1 
      MOV    A,R3          ;取出位码 
      JB     ACC.5,LD1     ;判断 6 位数码管显示完吗？显示完转 LD1 
      RL     A             ;未完，左移一位 
      MOV    R3,A          ;保存位码 
      AJMP   LD0 
LD1:  RET                  ;子程序返回 
TAB1: DB     0C0H,0F9H,0A4H,0B0H,99H,92H 
      DB     82H,0F8H,80H,90H,88H,83H,0C6H,0A1H            
      DB     86H,8EH,0BFH,0FFH,0FFH 
DL11: MOV    R7,#02H 
DL:   MOV    R6,#0FFH 
DL6:  DJNZ   R6,DL6 
      DJNZ   R7,DL 
      RET 
      END 

ORG 0000H
LJMP MAIN
ORG 000BH
AJMP LOOP
ORG 001BH
AJMP LOOP1
ORG 0030H
MAIN:MOV SP,#60H
     MOV DPTR,#7FFFH
     MOV TMOD,#11H
     MOV TH0,#3CH
     MOV TL0,#0B0H
     MOV TH1,#3CH
     MOV TL1,#0B0H
     SETB EA
     SETB ET0
     SETB ET1
     SETB TR0
     SJMP $
LOOP:MOV A,#0F2H
     MOVX @DPTR,A
     CLR TR0
     MOV TH0,#3CH
     MOV TL0,#0B0H
     SETB TR1
     RETI
LOOP1:MOV A,#01H
     MOVX @DPTR,A
     CLR TR1
     MOV TH1,#3CH
     MOV TL1,#0B0H
     SETB TR0
     RETI
     END