AD转换和DA转换实验.doc

汇编程序 01：AD转换器 此为0.01精度 ORG 0000H LJMP MAIN ORG 0013H LJMP LOOP MAIN:MOV SP,#30H SETB IT1 SETB EA SETB EX1 MOV DPTR,#0FEF8H MOVX @DPTR,A HERE:LCALL DISPLAY AJMP HERE LOOP:MOV DPTR,#0FEF8H MOVX A,@DPTR MOVX @DPTR,A LCALL DSP ;对接收的数据进行处理 LCALL DSP1 LCALL DISPLAY ;显示转换的数据 LJMP LOOP DSP: MOV B,#100 MUL AB MOV R7,B MOV R6,A MOV R5,#00H MOV R4,#33H MOV R3,#00H MOV R2,#00H LCALL DIV2BY MOV R5,#00H MOV R4,#64H MOV R3,#00H MOV R2,#00H LCALL DIV2BY MOV 73H,R6 ;百位电压值 MOV A,R3 MOV R7,A MOV A,R2 MOV R6,A MOV R5,#00H MOV R4,#0AH MOV R3,#00H MOV R2,#00H LCALL DIV2BY MOV 72H,R6 ;十位电压值 MOV A,R3 MOV R7,A MOV A,R2 MOV R6,A MOV R5,#00H MOV R4,#01H MOV R3,#00H MOV R2,#00H LCALL DIV2BY MOV 71H,R6 ;个位电压值 RET DIV2BY: MOV 20H,#16 ;双字节除法 DIV2B:CLR C ;商存在R7R6,余数存R3R2 MOV A,R6 RLC A MOV R6,A MOV A,R7 RLC A MOV R7,A MOV A,R2 RLC A MOV R2,A MOV A,R3 RLC A MOV R3,A CLR C MOV A,R2 SUBB A,R4 MOV R0,A MOV A,R3 SUBB A,R5 JC NEXT CLR C MOV R3,A MOV A,R0 MOV R2,A MOV A,R6 ADD A,#01H MOV R6,A MOV A,R7 ADDC A,#00H MOV R7,A NEXT:DJNZ 20H,DIV2B RET DSP1:MOV R0,#71H MOV A,@R0 CLR C CJNE A,#10,EXIT1 ;个位加1等于10？等于10，是则个位清零 CLR A MOV @R0,A INC R0 ;指向十位 MOV A,@R0 INC A ;十位加1 MOV @R0,A CJNE A,#10,EXIT1 CLR A MOV @R0,A INC R0 MOV A,@R0 INC A MOV @R0,A CJNE A,#10,EXIT1 CLR A MOV @R0,A INC R0 MOV A,@R0 INC A MOV @R0,A CJNE A,#10,EXIT1 CLR A MOV @R0,A EXIT1:RET DISPLAY:MOV R1,#74H ;指向数据显示缓冲区 MOV R5,#0FEH ;显示位选择