protectoc1_current.asm

电力系统中的保护装置全部代码

;----------------------------------------------------------------------
        ldp       @CL21,DP
        ldiu      1,r0                  ; |134| 
        ldiu      @CL21,r1              ; |134| 
        addi      *+fp(4),r0            ; |134| Unsigned
        push      r1                    ; |134| 
        push      r0                    ; |134| 
        call      _strcpy               ; |134| 
                                        ; |134| Call Occurs
        subi      2,sp                  ; |134| 
        ldiu      *+fp(4),ar0           ; |134| 
        sti       r0,*ar0               ; |134| 
	.line	117
;----------------------------------------------------------------------
; 135 | pValue->pvalue_alias        =    "Ic";                                 
;----------------------------------------------------------------------
        ldp       @CL22,DP
        ldiu      *+fp(4),ar0           ; |135| 
        ldiu      @CL22,r0              ; |135| 
        sti       r0,*+ar0(21)          ; |135| 
	.line	118
;----------------------------------------------------------------------
; 136 | pValue->value_calculate_style =    CHL_FOURIER1_;                      
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |136| 
        ldiu      0,r0                  ; |136| 
        sti       r0,*+ar0(23)          ; |136| 
	.line	119
;----------------------------------------------------------------------
; 137 | pValue->pvalue_dimension    =    "A";                                  
;----------------------------------------------------------------------
        ldp       @CL11,DP
        ldiu      *+fp(4),ar0           ; |137| 
        ldiu      @CL11,r0              ; |137| 
        sti       r0,*+ar0(24)          ; |137| 
	.line	120
;----------------------------------------------------------------------
; 138 | pValue->value_calculate_coefficient = 1;                               
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |138| 
        ldfu      1.0000000000e+00,f0   ; |138| 
        stf       f0,*+ar0(25)          ; |138| 
	.line	121
;----------------------------------------------------------------------
; 139 | pValue->value_measure       =    0.0;                                  
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |139| 
        ldfu      0.0000000000e+00,f0   ; |139| 
        stf       f0,*+ar0(26)          ; |139| 
	.line	122
;----------------------------------------------------------------------
; 140 | pValue++;                                                              
; 142 | //////报告                                                             
; 143 | // ----------------------------------------------------- //            
;----------------------------------------------------------------------
        ldiu      29,r0                 ; |140| 
        addi      *+fp(4),r0            ; |140| Unsigned
        sti       r0,*+fp(4)            ; |140| 
	.line	126
;----------------------------------------------------------------------
; 144 | pReport = &OC1_Report;                                                 
;----------------------------------------------------------------------
        ldp       @CL23,DP
        ldiu      @CL23,r0              ; |144| 
        sti       r0,*+fp(6)            ; |144| 
	.line	127
;----------------------------------------------------------------------
; 145 | pReport->pro_report_flag = 2;                                          
; 146 | //SOE                                                                  
;----------------------------------------------------------------------
        ldiu      r0,ar0
        ldiu      2,r0                  ; |145| 
        sti       r0,*ar0               ; |145| 
	.line	129
;----------------------------------------------------------------------
; 147 | pSoe = &pReport->pro_report_soe;                                       
; 148 | //------------------------------------------------//
;     |                                                                        
;----------------------------------------------------------------------
        ldiu      1,r0                  ; |147| 
        addi      *+fp(6),r0            ; |147| Unsigned
        sti       r0,*+fp(3)            ; |147| 
	.line	131
;----------------------------------------------------------------------
; 149 | pSoe->pSOE_name = "过流Ⅰ段动作";                                      
;----------------------------------------------------------------------
        ldp       @CL24,DP
        ldiu      r0,ar0
        ldiu      @CL24,r0              ; |149| 
        sti       r0,*ar0               ; |149| 
	.line	132
;----------------------------------------------------------------------
; 150 | strcpy(pSoe->SOE_name,pSoe->pSOE_name);                                
;----------------------------------------------------------------------
        ldiu      *+fp(3),ar0           ; |150| 
        ldiu      *ar0,r1               ; |150| 
        ldiu      1,r0                  ; |150| 
        addi      *+fp(3),r0            ; |150| Unsigned
        push      r1                    ; |150| 
        push      r0                    ; |150| 
        call      _strcpy               ; |150| 
                                        ; |150| Call Occurs
        subi      2,sp                  ; |150| 
	.line	133
;----------------------------------------------------------------------
; 151 | pSoe->SOE_Inf = 94;                                                    
;----------------------------------------------------------------------
        ldiu      *+fp(3),ar0           ; |151| 
        ldiu      94,r0                 ; |151| 
        sti       r0,*+ar0(21)          ; |151| 
	.line	134
;----------------------------------------------------------------------
; 152 | pSoe->DPI = 2;                                                         
; 153 | //动作值                                                               
;----------------------------------------------------------------------
        ldiu      *+fp(3),ar0           ; |152| 
        ldiu      2,r0                  ; |152| 
        sti       r0,*+ar0(22)          ; |152| 
	.line	136
;----------------------------------------------------------------------
; 154 | pReport->pro_report_data_number = 0;                                   
;----------------------------------------------------------------------
        ldiu      *+fp(6),ar0           ; |154| 
        ldiu      0,r0                  ; |154| 
        sti       r0,*+ar0(33)          ; |154| 
	.line	137
;----------------------------------------------------------------------
; 155 | pReport->pro_report_data = OC_I_reportdata;                            
;----------------------------------------------------------------------
        ldp       @CL25,DP
        ldiu      *+fp(6),ar0           ; |155| 
        ldiu      @CL25,r0              ; |155| 
        sti       r0,*+ar0(34)          ; |155| 
	.line	138
;----------------------------------------------------------------------
; 156 | pValue = pReport->pro_report_data;                                     
; 157 | //------------------------------------------------//                   
;----------------------------------------------------------------------
        ldiu      *+fp(6),ar0           ; |156| 
        ldiu      *+ar0(34),r0          ; |156| 
        sti       r0,*+fp(4)            ; |156| 
	.line	140
;----------------------------------------------------------------------
; 158 | pValue->pvalue_name =(CHAR *)strcpy(pValue -> value_name,"Ａ相动作电流"
;     | );                                                                     
;----------------------------------------------------------------------
        ldp       @CL26,DP
        ldiu      1,r0                  ; |158| 
        ldiu      @CL26,r1              ; |158| 
        addi      *+fp(4),r0            ; |158| Unsigned
        push      r1                    ; |158| 
        push      r0                    ; |158| 
        call      _strcpy               ; |158| 
                                        ; |158| Call Occurs
        subi      2,sp                  ; |158| 
        ldiu      *+fp(4),ar0           ; |158| 
        sti       r0,*ar0               ; |158| 
	.line	141
;----------------------------------------------------------------------
; 159 | pValue->pvalue_alias                = "Ia";                            
;----------------------------------------------------------------------
        ldp       @CL18,DP
        ldiu      *+fp(4),ar0           ; |159| 
        ldiu      @CL18,r0              ; |159| 
        sti       r0,*+ar0(21)          ; |159| 
	.line	142
;----------------------------------------------------------------------
; 160 | pValue->value_calculate_style = CHL_FOURIER1_;                         
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |160| 
        ldiu      0,r0                  ; |160| 
        sti       r0,*+ar0(23)          ; |160| 
	.line	143
;----------------------------------------------------------------------
; 161 | pValue->pvalue_dimension  =       "A";                                 
;----------------------------------------------------------------------
        ldp       @CL11,DP
        ldiu      *+fp(4),ar0           ; |161| 
        ldiu      @CL11,r0              ; |161| 
        sti       r0,*+ar0(24)          ; |161| 
	.line	144
;----------------------------------------------------------------------
; 162 | pValue->value_calculate_coefficient = CHL_FOURIER_CURRENT;             
;----------------------------------------------------------------------
        ldp       @CL27,DP
        ldiu      *+fp(4),ar0           ; |162| 
        ldfu      @CL27,f0              ; |162| 
        stf       f0,*+ar0(25)          ; |162| 
	.line	145
;----------------------------------------------------------------------
; 163 | pValue->value_index_number = pReport->pro_report_data_number;          
;----------------------------------------------------------------------
        ldiu      *+fp(6),ar1           ; |163| 
        ldiu      *+fp(4),ar0           ; |163| 
        ldiu      *+ar1(33),r0          ; |163| 
        sti       r0,*+ar0(22)          ; |163| 
	.line	146
;----------------------------------------------------------------------
; 164 | pValue++;                                                              
;----------------------------------------------------------------------
        ldiu      29,r0                 ; |164| 
        addi      *+fp(4),r0            ; |164| Unsigned
        sti       r0,*+fp(4)            ; |164| 
	.line	147
;----------------------------------------------------------------------
; 165 | pReport->pro_report_data_number++;                                     
; 166 | //------------------------------------------------//                   
;----------------------------------------------------------------------
        ldiu      *+fp(6),ar0           ; |165| 
        ldiu      1,r0                  ; |165| 
        addi      *+ar0(33),r0          ; |165| Unsigned
        sti       r0,*+ar0(33)          ; |165| 
	.line	149
;----------------------------------------------------------------------
; 167 | pValue->pvalue_name =(CHAR *)strcpy(pValue -> value_name,"Ｂ相动作电流"
;     | );                                                                     
;----------------------------------------------------------------------
        ldp       @CL28,DP
        ldiu      @CL28,r1              ; |167| 
        ldiu      1,r0                  ; |167| 
        addi      *+fp(4),r0            ; |167| Unsigned
        push      r1                    ; |167| 
        push      r0                    ; |167| 
        call      _strcpy               ; |167| 
                                        ; |167| Call Occurs
        subi      2,sp                  ; |167| 
        ldiu      *+fp(4),ar0           ; |167| 
        sti       r0,*ar0               ; |167| 
	.line	150
;----------------------------------------------------------------------
; 168 | pValue->pvalue_alias                = "Ib";                            
;----------------------------------------------------------------------
        ldp       @CL20,DP
        ldiu      *+fp(4),ar0           ; |168| 
        ldiu      @CL20,r0              ; |168| 
        sti       r0,*+ar0(21)          ; |168| 
	.line	151
;----------------------------------------------------------------------
; 169 | pValue->value_calculate_style = CHL_FOURIER1_;                         
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |169| 
        ldiu      0,r0                  ; |169| 
        sti       r0,*+ar0(23)          ; |169| 
	.line	152
;----------------------------------------------------------------------
; 170 | pValue->pvalue_dimension  =       "A";                                 
;----------------------------------------------------------------------
        ldp       @CL11,DP
        ldiu      *+fp(4),ar0           ; |170| 
        ldiu      @CL11,r0              ; |170| 
        sti       r0,*+ar0(24)          ; |170| 
	.line	153
;----------------------------------------------------------------------
; 171 | pValue->value_calculate_coefficient = CHL_FOURIER_CURRENT;             
;----------------------------------------------------------------------
        ldp       @CL27,DP
        ldiu      *+fp(4),ar0           ; |171| 
        ldfu      @CL27,f0              ; |171| 
        stf       f0,*+ar0(25)          ; |171| 
	.line	154
;----------------------------------------------------------------------
; 172 | pValue->value_index_number = pReport->pro_report_data_number;          
;----------------------------------------------------------------------
        ldiu      *+fp(6),ar1           ; |172| 
        ldiu      *+fp(4),ar0           ; |172| 
        ldiu      *+ar1(33),r0          ; |172| 
        sti       r0,*+ar0(22)          ; |172| 
	.line	155
;