sca_xl_l3.a96

基于80c296算法程序例程

	MUL	SUM,SUM1,0EA10H[0];
	MUL	SSU,SSU1,0EA10H[0];
	SCA_BCSUM
	SCA_BCSSU
	ST      SUM1,5CH[SCA_FLYBASE];UAB-测量
        ST      SSU1,5EH[SCA_FLYBASE]

        ;-UBC--INT1
        LD      TMPBX,#SCA_DATA_BURA
        ADD	TMPBX,#40H;UBC
        LD      SCA_GLBASE,#SCA_GLBASEA
        ADD	SCA_GLBASE,#50H;
	ADD     TMPCX,SCA_BUR,SCA_GLBASE;
	LCALL   SCA_JSYXZS;?
       	LCALL	SCA_SQRT
	SHLL	SUM,#04;
	MULU	SUM,SUM2,#9428
	DIVU	SUM,#10000;SQRT(1.125)
	CMP	SUM2,#4999
	JNH	SCA_CLUBC
	INC	SUM1
SCA_CLUBC:
	MULU	SUM,SUM1,0EA14H[0];
	DIVU	SUM,#4096
	CMP	SUM2,#2047
	JNH	SCA_SSSB
	INC	SUM1
SCA_SSSB:
	ST      SUM1,[TMPCX]+
        ST      00H,[TMPCX]+
        LD      TMPBX,#SCA_DATA_BURA
        ADD	TMPBX,#40H;UBC
	LCALL  	SCA_FSJB
	MUL	SUM,SUM1,0EA14H[0];
	MUL	SSU,SSU1,0EA14H[0];
	SCA_BCSUM
	SCA_BCSSU
	ST     	SUM1,60H[SCA_FLYBASE]
	ST	SSU1,62H[SCA_FLYBASE]		
	
	;UCA--INT2
        LD	TMPBX,#SCA_DATA_BURA
        ADD	TMPBX,#80H
        LD      SCA_GLBASE,#SCA_GLBASEA
        ADD	SCA_GLBASE,#0A0H;
	ADD     TMPCX,SCA_BUR,SCA_GLBASE;
	LCALL   SCA_JSYXZS
       	LCALL	SCA_SQRT
	SHLL	SUM,#04;
	MULU	SUM,SUM2,#9428
	DIVU	SUM,#10000;SQRT(1.125)
	CMP	SUM2,#4999
	JNH	SCA_CLUCA
	INC	SUM1
SCA_CLUCA:
	MULU	SUM,SUM1,0EA18H[0];
	DIVU	SUM,#4096
	CMP	SUM2,#2047
	JNH	SCA_SSSC
	INC	SUM1
SCA_SSSC:
	ST      SUM1,[TMPCX]+
        ST      00H,[TMPCX]+
        LD	TMPBX,#SCA_DATA_BURA
        ADD	TMPBX,#80H
	LCALL	SCA_FSJB
	MUL	SUM,SUM1,0EA18H[0];
	MUL	SSU,SSU1,0EA18H[0];
	SCA_BCSUM
	SCA_BCSSU
	ST	SUM1,64H[SCA_FLYBASE]
	ST	SSU1,66H[SCA_FLYBASE]

       	;IA--INT3
       	LD      TMPBX,#SCA_CYBASEA
       	ADD	TMPBX,#180H
       	LD	SCA_GLBASE,#SCA_GLBASEA
       	ADD	SCA_GLBASE,#100H;
	ADD     TMPCX,SCA_BUR,SCA_GLBASE;
     	LCALL   SCA_JSYXZS;
       	LCALL	SCA_SQRT
	SHLL	SUM,#04;
	MULU	SUM,SUM2,#9428
	DIVU	SUM,#10000;SQRT(1.125)
	CMP	SUM2,#4999
	JNH	SCA_CLIA
	INC	SUM1
SCA_CLIA:
	MUL	SUM,SUM1,0EA1CH[0];
	DIVU	SUM,#4096
	CMP	SUM2,#2047
	JNH	SCA_SSSD
	INC	SUM1
SCA_SSSD:
	ST      SUM1,[TMPCX]+
        ST      00H,[TMPCX]+
       	LD      TMPBX,#SCA_CYBASEA
       	ADD	TMPBX,#180H
	LCALL	SCA_FSJB
	MUL	SUM,SUM1,0EA1CH[0];
	MUL	SSU,SSU1,0EA1CH[0];
	SCA_BCSUM
	SCA_BCSSU
	ST	SUM1,20H[SCA_FLYBASE];?
        ST	SSU1,22H[SCA_FLYBASE];

       	;IB--INT4
       	LD      TMPBX,#SCA_CYBASEA
       	ADD	TMPBX,#200H
       	LD	SCA_GLBASE,#SCA_GLBASEA
       	ADD	SCA_GLBASE,#150H;
	ADD     TMPCX,SCA_BUR,SCA_GLBASE;
     	LCALL   SCA_JSYXZS;
       	LCALL	SCA_SQRT
	SHLL	SUM,#04;
	MULU	SUM,SUM2,#9428
	DIVU	SUM,#10000;SQRT(1.125)
	CMP	SUM2,#4999
	JNH	SCA_CLIB
	INC	SUM1
SCA_CLIB:
	MUL	SUM,SUM1,0EA20H[0];
	DIVU	SUM,#4096
	CMP	SUM2,#2047
	JNH	SCA_SSSE
	INC	SUM1
SCA_SSSE:
	ST      SUM1,[TMPCX]+
        ST      00H,[TMPCX]+
       	LD      TMPBX,#SCA_CYBASEA
       	ADD	TMPBX,#200H
	LCALL	SCA_FSJB
	MUL	SUM,SUM1,0EA20H[0];
	MUL	SSU,SSU1,0EA20H[0];
	SCA_BCSUM
	SCA_BCSSU
	ST	SUM1,24H[SCA_FLYBASE];?
        ST	SSU1,26H[SCA_FLYBASE];
	
	;IC--INT5
	LD	TMPBX,#SCA_CYBASEA
	ADD	TMPBX,#280H
        LD	SCA_GLBASE,#SCA_GLBASEA;?
        ADD     TMPCX,SCA_GLBASE,#1A0H
	ADD     TMPCX,SCA_BUR;
     	LCALL   SCA_JSYXZS
       	LCALL	SCA_SQRT
	SHLL	SUM,#04;
	MULU	SUM,SUM2,#9428
	DIVU	SUM,#10000;SQRT(1.125)
	CMP	SUM2,#4999
	JNH	SCA_CLIC
	INC	SUM1
SCA_CLIC:
	MULU	SUM,SUM1,0EA24H[0];
	DIVU	SUM,#4096
	CMP	SUM2,#2047
	JNH	SCA_SSSF
	INC	SUM1
SCA_SSSF:
	ST      SUM1,[TMPCX]+
        ST      00H,[TMPCX]+
	LD	TMPBX,#SCA_CYBASEA
	ADD	TMPBX,#280H
	LCALL	SCA_FSJB
	MUL	SUM,SUM1,0EA24H[0];
	MUL	SSU,SSU1,0EA24H[0];
	SCA_BCSUM
	SCA_BCSSU
	ST	SUM1,28H[SCA_FLYBASE];
        ST	SSU1,2AH[SCA_FLYBASE];
	
	;P?
	LD	ACC_00,R0
	LD	ACC_02,R0
	LD	TMPAX,#SCA_DATA_BURA;	(UAB,IA)
	LD	TMPBX,#SCA_CYBASEA
	ADD	TMPBX,#180H;
        LDB	TMPCL,#24;
SCA_YGGL_LS1:
	LD	SUM1,[TMPAX]+
	MUL	SUM,SUM1,0EA10H[0];
	SCA_BCSUM
	LD	SSU1,[TMPBX]+
	MUL	SSU,SSU1,0EA1CH[0];
        SCA_BCSSU
        SMAC	SUM1,SSU1
        DJNZ	TMPCL,SCA_YGGL_LS1
	
	LD	TMPAX,#SCA_DATA_BURA;(UBC,IC)
	ADD	TMPAX,#40H;
	LD	TMPBX,#SCA_CYBASEA
	ADD	TMPBX,#280H
	LDB	TMPCL,#24
SCA_YGGL_LS2:
	LD	SUM1,[TMPAX]+
	MUL	SUM,SUM1,0EA14H[0];
        SCA_BCSUM
        NEG     SUM1
	LD	SSU1,[TMPBX]+
	MUL	SSU,SSU1,0EA24H[0];
        SCA_BCSSU
        SMAC	SUM1,SSU1
        DJNZ	TMPCL,SCA_YGGL_LS2
	MVAC	SUM,#15;一周波求和
	SHRAL	SUM,#04;1.5倍
	LD	TMPCX,#SCA_GLBASEA
	ADD	TMPCX,#200H
	ADD	TMPCX,SCA_BUR
	ST	SUM1,[TMPCX]+
	ST	SUM2,[TMPCX];P?
	        
        ;Q?
	LD	ACC_00,R0
	LD	ACC_02,R0
	LD	TMPAX,#SCA_DATA_BURA ;	(UAB,IC)
	LD	TMPBX,#SCA_CYBASEA
	ADD	TMPBX,#280H
        LDB	TMPCL,#24   
SCA_WGGL_LS1:
	LD	SUM1,[TMPAX]+
	MUL	SUM,SUM1,0EA10H[0];
	SCA_BCSUM
	LD	SSU1,[TMPBX]+
	MUL	SSU,SSU1,0EA24H[0];
        SCA_BCSSU
        SMAC	SUM1,SSU1
        DJNZ	TMPCL,SCA_WGGL_LS1

	LDB	TMPCL,#24
	LD	TMPAX,#SCA_DATA_BURA;(UBC,IA)
	ADD	TMPAX,#40H;
	LD	TMPBX,#SCA_CYBASEA
	ADD	TMPBX,#180H
SCA_WGGL_LS2:
	LD	SUM1,[TMPAX]+
	MUL	SUM,SUM1,0EA14H[0];
	SCA_BCSUM
	LD	SSU1,[TMPBX]+
	MUL	SSU,SSU1,0EA1CH[0];
        SCA_BCSSU
        SMAC	SSU1,SUM1
        DJNZ	TMPCL,SCA_WGGL_LS2
	MVAC	SSU,#15	;一周波Q求和
	SHRAL	SSU,#04	;1.5倍无SQRT(3)/2
	LD	TMPCX,#SCA_GLBASEA
	ADD	TMPCX,#250H
	ADD	TMPCX,SCA_BUR
	ST	SSU1,[TMPCX]+
	ST	SSU2,[TMPCX];
	
	INCB    SCA_FRE_NUM;
	ADD     SCA_BUR,#04;
       	SJMP	SCA_ZZHUAN
SCA_GL_2:
       	LJMP	SCA_GL_ENDL;
SCA_ZZHUAN:
       	CMPB     SCA_FRE_NUM,#19;
        JNH      SCA_GL_2;

	;20周波平均有效值
	;UAB,UBC,UCA
	LD      TMPEL,#03
	LD      TMPBX,#SCA_GLBASEA;
	LD      TMPCX,#SCA_SHBASEA;
SCA_YXZA:
	LCALL   SCA_PJZS;1.25倍
	LD	TMPAX,SUM1
	MULU	SSU,TMPAX,#4000
	DIVU	SSU,#5000
	SHR	SSU1,#04
	ST	SSU1,0CH[TMPCX];TX
        MULU    SUM,SUM1,PDZ_PT[0];?
	DIVU	SUM,#2412;
	CMP	SUM2,#1206;100倍?
        JNH	SCA_YXZAA
	INC	SUM1
SCA_YXZAA:
       	ADD	TMPDX,TMPCX,#80H
       	CMP	SUM1,#149;QI'DONG?
	JH	SCA_XSUQD
	CLR	SUM1
	ST	SUM1,0CH[TMPCX];TX
SCA_XSUQD:
       	ST      SUM1,4CH[TMPDX];XS-0.01KV?
     	ADD     TMPBX,#50H
	ADD     TMPCX,#04
     	DJNZ    TMPEL,SCA_YXZA;
     	                     
        ;IA,IB,IC
        LD      TMPEL,#03;
	LD      TMPBX,#SCA_GLBASEA;
	ADD	TMPBX,#100H;
	LD      TMPCX,#SCA_SHBASEA
SCA_YXZB:
	LCALL   SCA_PJZS;
     	LD	TMPAX,SUM1
	MULU	SSU,TMPAX,#4000
	DIVU	SSU,#5000
	SHR	SSU1,#04
	ST	SSU1,24H[TMPCX];TX.YC
     	MULU	SUM,SUM1,PDZ_CT[0];
	DIVU	SUM,#4824;
        CMP	SUM2,#2412
        JNH	SCA_YXZBB
	INC	SUM1
SCA_YXZBB:
       	ADD	TMPDX,TMPCX,#80H
	CMP	SUM1,#04;QI'DONG
	JH	SCA_XSIQD
	CLR	SUM1
	ST	SUM1,24H[TMPCX];TX
SCA_XSIQD:
	ST      SUM1,64H[TMPDX];XS-0.1A
     	ADD     TMPBX,#50H
	ADD     TMPCX,#04
     	DJNZ    TMPEL,SCA_YXZB;

 	;P
        LD	TMPBX,#SCA_GLBASEA
        ADD	TMPBX,#200H
	LCALL	SCA_PJZS;1.25倍
	LD	MMM1,SUM1
	LD	MMM2,SUM2
	SHRAL   MMM,#12;?
	MUL	MMM,MMM1,#5333
	DIV	MMM,#10000
	ST	MMM1,68H[SCA_SHBASE];TX P.补码.12位
        JBC     SUM2H,7,SCA_YGL2
        ;LDB     SCA_YGFHAO,#0FFH;P负号?
	ORB	SCA_GLFX,#01H
        NOT     SUM1
        NOT     SUM2
        INC     SUM1
        ADDC    SUM2,#00H
        SJMP    SCA_YGL3
SCA_YGL2:
	;LDB     SCA_YGFHAO,#00H;P正号
	ANDB	SCA_GLFX,#0FEH
SCA_YGL3:	
       	DIVU    SUM,#5454;20周波平均值,系数转换
       	CMP     SUM2,#2727
	JNH     SCA_YG_BC
	INC     SUM1
SCA_YG_BC:
       	ST      SUM1,18H[SCA_JBBASE];无PT,CT的P绝对值-W
        ST     	R0,1AH[SCA_JBBASE];