高精度数字电压表原理图及源程序.doc

LCD_CMD_WR EQU 00E0H LCD_DATA_WR EQU 00E1H LCD_BUSY_RD EQU 00E2H LCD_DATA_RD EQU 00E3H ;******************************** AD_12CMD_WR EQU 00E0H ;初始化为12位转换器 AD_8CMD_WR EQU 00E8H ;初始化为8位转换器 AD_8HB_RD EQU 00E4H ;高8Bit输出 AD_4LB_RD EQU 00ECH ;低4Bit输出 ;********************************* ORG 0000H LJMP MAIN ORG 0030H ;========================================= MAIN: MOV SP,#60H CLR RS0 CLR RS1 ACALL INIT ;LCD初始化 ;======================================= ;参数设置 ;======================================= AD574: MOV DPTR,#AD_12CMD_WR MOVX @DPTR,A ;启动转换 SETB P3.0 LOOP: NOP JB P3.0,LOOP MOV DPTR,#AD_8HB_RD MOVX A,@DPTR MOV R2,A MOV DPTR,#AD_4LB_RD MOVX A,@DPTR MOV R3,A ;======================================== ;数据处理（参数）传递 ;R2R3=(ABC0) ;处理后R2R3=(0ABC) ;======================================== MOV A,R2 SWAP A ;高低交换 MOV R5,A ANL A,#0F0H ; MOV R4,A MOV A,R3 SWAP A ORL A,R4 MOV R3,A MOV A,R5 ANL A,#0FH MOV R2,A ;======================================== ;入口参数：被减数在R2R3中，减数在R6R7中 ;出口参数：差值在R2R3中 ;======================================== MOV R6,#08H MOV R7,#00H CLR C ;============= MOV A,R2 SUBB A,R6 JNC SUBI ;无借位，直接运算 SETB 02H MOV A,R2 CPL A ;取反 ANL A,#0FH MOV R2,A MOV A,R3 CPL A MOV R3,A ;=========================== ;计算 ;========================== SUBI: CLR C MOV A,R3 SUBB A,R7 MOV R3,A MOV A,R2 SUBB A,R6 MOV R2,A ;========================================== ;乘以10计算 ;=========================================== MOV R1,#00H MOV A,R3 LCALL MUL10 MOV 49H,A MOV A,R2 LCALL MUL10 MOV 48H,A ;======================================== ;============================================ ;除法运算 ;============================================ ;============================ ;整数部分 ;============================ MOV R0,#30H LCALL DIVD0 MOV A,40H MOV @R0,A INC R0 MOV A,#2EH MOV @R0,A INC R0 ;==