MOV R2，#84H ； RTEC：MOV A，R0 MOV P2，A
MOV R7，#00H
MOV R1，21H
AD12C:MOV R0,40H MOV A,R0 SHC：JNB 00H，SHC NOP NOP
NOP CLR P2.0
MOV P3，#3FH AD1C：JB P1.3，AD1C SETB P2.0 LCALL DATA MOV R0,0A0H MOV A,R0 MOV P2,A CLR P2.0
MOV P3，#3FH AD2C：JB P1.3，AD2C ； INC R2 ； SETB P2.0 LCALL DATA INC R7 INC R1 INC R1
CJNE R7，#10H，AD12 NOP
NOP NOP INC R0 INC R2
MOV R1，21H
CJNE R1，#03H，RTEC MOV IE ,9FH;开中断 LCALL PL
PL: MOV TMOE , # 15H ；频率测量子程序：
MOV TH0 , # FFH MOV TL0 , # 80H MOV TH1 , # 00H MOV TL1 , # 00H SETB TR0 SETB TR1 LP1 : JBC TF0 , LP2
AJMP LP1 :循环等待 LP2 : CLR TR1
CLR TR0 :停止计时
CLR TF0 :清标志位 CLR TF1 :清标志位 MOV R0 , # 50H MOV @R0 , TL0 : INC R0 :
MOV @R0 ,TH0 : LCALL NDIV42 NDIV42 :MOV R5,0 MOV R2,0 MOV R3,51H MOV R4,50H MOV R6,#FFH MOV R7,#80H
MOV A,R1 PUSH A
MOV B,#00H
NDV421 : MOV A,R2
CLR C SUBB A,R7 NOP
NOP
NOP
MOV R1,A MOV A,R5
SUBB A,R6
NOP
NOP
NOP
LJMP 0000H
JC NDV422 MOV R5,A MOV A,R1 MOV R2,A INC B
SJMP NDV421
NDV422 : PUSH B
MOV B,#10H
NDV423 : CLR C
MOV A,R4 RLC A MOV R4,A MOV A,R3 RLC A MOV R3,A MOV A,R2 RLC A MOV R2,A XCH A,R5 RLC A XCH A,R5 MOV F0,C CLR C
SUBB A,R7 MOV R1,A MOV A,R5 SUBB A,R6 NOP
NOP
NOP
LJMP 0000H
JB F0,NCV424 JC NDV425
NCV424 : MOV R5,A
MOV A,R1 MOV R2,A
INC R4
NDV425 : DJNZ B,NDV423 NOP
NOP
NOP
LJMP 0000H
POP A
CLR OV
JNZ NDV426 SETB OV
NDV426 : XCH A,R2
MOV R7,A MOV A,R5 MOV R6,A POP A MOV R1,A
RET
U：MOV R7, 10H; 电压电流计算子程序： MOV R1,#80H
MOV AL, [80H]; MOV BL, [80H];
MUL AB; NOP
NOP NOP
LJMP 0000H
ADD [80H], AL;电压 INC R1 INC R1 DEC R7 CJNE R7,#0H,U NOP NOP NOP
LJMP 0000H
MOV R2,80H LJMP NDIV31 MOV R0,80H
LJMP FSQR NOP NOP NOP
LJMP 0000H
I: MOV R7, 10H; MOV R1,#881H MOV AL, [81H]; MOV BL, [81H]; MUL AB; NOP NOP NOP
LJMP 0000H
ADD [81H], AL;//电流 INC R1 INC R1 DEC R7
CJNE R7,#0H,I NOP NOP NOP
LJMP 0000H
MOV R2,81H LJMP NDIV31 MOV R0,81H LJMP FSQR
NDIV31 : MOV A,R2
MOV B,R7 DIV AB
NOP
NOP
NOP
LJMP 0000H
PUSH A
MOV R2,B MOV B,#10H
NDV311 : CLR C