除法程序.txt

电力系统远动子程序,已经完全调试通过,方便使用TI公司2407DSP的同行应用,请放心使用

//////////////////////////////////////////////////////////////////////////////////    
    
PREPARE_HEX_BIN:

//    MX0= 0x0041;                //IT'S coeff KI OF I_AD(HEX) TURN INTO I(reality)
//    MY0= 0x0064;                //IT'S coeff OF 100
//    MR = MX0*MY0(UU);               //=100*KI
    AR=0x1964;
    DM(hundred_coeff_I) = AR;   //MR0;


//    MX0= 0x0041;                //IT'S coeff KI OF I_AD(HEX) TURN INTO I(reality)
//    MY0= 0x000A;                //IT'S coeff OF 10
//    MR = MX0*MY0(UU);               //=10*KI
    AR = 0x028A;
    DM(decade_coeff_I) = AR;    //MR0;
    
///////////////////////////////////////////////////////////////////////////////////////    


I_HEX_BIN:

    AR = DM(IFDATA);
    AR = AR+0x7FFF;                 //ADJUST IFDATA FROM 8001-7FFF TO 0-FFFF
    DM(IFDATA_FIX)=AR;

    AR=DM(hundred_coeff_I);
    AY0=DM(IFDATA_FIX);
    AY1=0;
    call divdee;                    //(IFDATA_FIX)/(hundred_coeff_I)       
    DM(hundred_I)=AR;               //HUNDRED OF I TO BE DISPLAYED

///////////////////////////////////////////////////////////////////

    AX0=DM(IFDATA_FIX);
    MX0=DM(hundred_coeff_I);
    MY0=DM(hundred_I);
    MR = MX0*MY0(UU);                   //(hundred_coeff_I)*(hundred_I)
    AY0=MR1;                        
    AR=AX0-AY0;                     //(IFDATA_FIX)-[(hundred_coeff_I)*(hundred_I)]

    AY1=AR;
    AY0=0;
    AR=DM(decade_coeff_I);
    call divdee;                    //{(IFDATA_FIX)-[(hundred_coeff_I)*(hundred_I)]}/(decade_coeff_I)    
    DM(decade_I)=AR;                   //DECADE OF I TO BE DISPLAYED

///////////////////////////////////////////////////////////////////////////////////////

    AX0=DM(IFDATA_FIX);
    MX0=DM(hundred_coeff_I);
    MY0=DM(hundred_I);
    MR = MX0*MY0(UU);                   //(hundred_coeff_V)*(hundred_V)
    AY0=MR1;                        
    AR=AX0-AY0;                     //(VFDATA_FIX)-[(hundred_coeff_V)*(hundred_V)]

    AR =AX0;
    MX0=DM(decade_coeff_I);
    MY0=DM(decade_I);
    MR =MX0*MY0(UU);                   //(decade_coeff_V)*(decade_V)
    AY0=MR1;                        
    AR=AX0-AY0;                     //(VFDATA_FIX)-[(hundred_coeff_V)*(hundred_V)]-(decade_coeff_V)*(decade_V)    
    
    DM(single_I)=AR;                   //SINGLE OF I TO BE DISPLAYED