【正文】 TEST_RIN MOV 30H,A AJMP RIN_JUGTEST_RIN: AJMP RIN_JUG。計算 (55H*XH)/[27DH19*X]===?H K歐姆 ===BCD K歐姆 IN ORDER TO 精確，將此式計算乘10RIN_OVER: MOV R2,03H MOV R3,52H 。55H*0AH === 352H MOV R6,00H MOV R7,30H LCALL MULD MOV 31H,R5 。R4R5 32H31H MOV 32H,R4 MOV R2,00H MOV R3,19H MOV R6,00H MOV R7,30H LCALL MULD 。R4R534H33H MOV 33H,R5 MOV 34H,R4 MOV 35H,7DH MOV 36H,02H MOV R0,35H MOV R1,33H LCALL D_QYJSUB MOV R2,00H MOV R3,00H MOV R4,32H MOV R5,31H MOV R6,36H MOV R7,35H LCALL DIVD MOV 31H,R3 MOV 32H,R2 MOV R0,31H MOV R7,02H MOV R1,33H LCALL BMBCD 。34H33H MOV A,34H ANL A,0FH MOV 32H,A MOV 34H,33H MOV A,33H ANL A,0F0H SWAP A MOV 33H,A MOV A,34H ANL A,0FH MOV 34H,A ORL 32H,30H ORL 33H,30H ORL 34H,30H MOV SBUF,49H 。發(fā)送I JNB TI,$ CLR TI MOV R0,32H MOV R1,03HR_VALUE: MOV A,@R0 MOV SBUF,A JNB TI,$ CLR TI INC R0 DJNZ R1,R_VALUE MOV A,53H 。發(fā)送S MOV SBUF,A JNB TI,$ CLR TI CLR R_IN MOV P1,0FH SETB EX0 LCALL TEST_PRO AJMP LOOP。***************測量放大器輸出阻抗******************ME_R_OUT: CLR EX0 MOV 25H,03H 。500HZ SIN SIGNAL MOV 24H,00H LCALL RANGE_1 MOV 30H,00H 。給9850寫入500HZ的信號以便利于測量最大不失真電壓 LCALL WR_DDS MOV P1,01H 。選通道1 CLR HC373 SETB HC373 NOP CLR 。測量接入較大負載時的電壓峰值 MOV 47H,0AH LCALL DIS1 LCALL DElAy_1s LCALL RIN_LOOP MOV 31H,30H 。將測量得到的值存入31H SETB 。接入較小的負載 MOV 47H,0DH LCALL DIS1 LCALL DElAy_1s LCALL RIN_LOOP CLR MOV 47H,0 LCALL DIS1 MOV 32H,30H 。將得到的值存入32H 。([31H][32H]) *64H/[32H] MOV A,31H MOV B,32H SUBB A,B MOV R2,00H MOV R3,A MOV R6,00H MOV R7,64H LCALL MULD MOV R2,00H MOV R3,00H MOV R6,00H MOV R7,32H LCALL DIVD 。R2R3 MOV 31H,R3 MOV 32H,R2 MOV R0,31H MOV R1,33H MOV R7,02H LCALL BMBCD 。BIAMHUAN 3GE MOV A,35H ANL A,0FH MOV 30H,A MOV A,34H ANL A,0F0H SWAP A MOV 31H,A MOV A,34H ANL A,0FH MOV 32H,A MOV 36H,33H MOV A,36H ANL A,0F0H SWAP A MOV 33H,A MOV A,36H ANL A,0FH MOV 34H,A ORL 30H,30H ORL 31H,30H ORL 32H,30H ORL 33H,30H ORL 34H,30H。******************** MOV SBUF,4FH 。發(fā)送O JNB TI,$ CLR TI MOV R2,05H MOV R0,30HRIN_PC: MOV A,@R0 MOV SBUF,A JNB TI,$ CLR TI INC R0 DJNZ R2,RIN_PC MOV SBUF,53H 。發(fā)送S信號對主機進行告警 JNB TI,$ CLR TI LCALL TEST_PRO 。 SETB EX0 CLR R_OUT AJMP LOOP。********************************************RIN_LOOP: MOV R1,0FFH LCALL READ_0831 MOV 30H,ARIN_GO1: LCALL READ_0831 CJNE A,30H,RIN_HL MOV 30H,A 。值相等則繼續(xù)執(zhí)行RIN_GO2: DJNZ R1,RIN_GO1 RET 。循環(huán)測量電壓值程序結束RIN_HL: 。判斷此次采集的數(shù)據(jù)是否和上次相等 JNC RIN_NEW