protectoc2_current.asm

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

;     |                                                                        
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |96| 
        ldiu      1,r0                  ; |96| 
        addi      *+ar0(71),r0          ; |96| Unsigned
        sti       r0,*+ar0(71)          ; |96| 
        ldiu      *+fp(2),ar0           ; |96| 
        sti       r0,*+ar0(1)           ; |96| 
	.line	80
;----------------------------------------------------------------------
;  97 | pSets->pset_name     =    (CHAR*)strcpy(pSets->set_name,"Ⅱ段时间值"); 
;----------------------------------------------------------------------
        ldp       @CL13,DP
        ldiu      @CL13,r1              ; |97| 
        ldiu      3,r0                  ; |97| 
        addi      *+fp(2),r0            ; |97| Unsigned
        push      r1                    ; |97| 
        push      r0                    ; |97| 
        call      _strcpy               ; |97| 
                                        ; |97| Call Occurs
        subi      2,sp                  ; |97| 
        ldiu      *+fp(2),ar0           ; |97| 
        sti       r0,*+ar0(2)           ; |97| 
	.line	81
;----------------------------------------------------------------------
;  98 | pSets->pset_alias    =    "T2";
;     |                                                                        
;----------------------------------------------------------------------
        ldp       @CL14,DP
        ldiu      *+fp(2),ar0           ; |98| 
        ldiu      @CL14,r0              ; |98| 
        sti       r0,*+ar0(25)          ; |98| 
	.line	82
;----------------------------------------------------------------------
;  99 | pSets->pset_dimension     =    "S";                                    
;----------------------------------------------------------------------
        ldp       @CL15,DP
        ldiu      *+fp(2),ar0           ; |99| 
        ldiu      @CL15,r0              ; |99| 
        sti       r0,*+ar0(24)          ; |99| 
	.line	83
;----------------------------------------------------------------------
; 100 | pSets->set_lower_limit    =    0.00;                                   
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |100| 
        ldfu      0.0000000000e+00,f0   ; |100| 
        stf       f0,*+ar0(28)          ; |100| 
	.line	84
;----------------------------------------------------------------------
; 101 | pSets->set_high_limit     =    100;                                    
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |101| 
        ldfu      1.0000000000e+02,f0   ; |101| 
        stf       f0,*+ar0(29)          ; |101| 
	.line	85
;----------------------------------------------------------------------
; 102 | pSets->set_calculate_style    =    CHL_MUL_;                           
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |102| 
        ldiu      1,r0                  ; |102| 
        sti       r0,*+ar0(23)          ; |102| 
	.line	86
;----------------------------------------------------------------------
; 103 | pSets->set_calculate_coefficient    =    CHL_CONSTANT_1;               
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |103| 
        ldfu      1.0000000000e+00,f0   ; |103| 
        stf       f0,*+ar0(27)          ; |103| 
	.line	87
;----------------------------------------------------------------------
; 104 | for(i=0;i<SET_ZONE;i++)                                                
;----------------------------------------------------------------------
        ldiu      0,r0                  ; |104| 
        sti       r0,*+fp(7)            ; |104| 
        ldiu      r0,r1
        cmpi      8,r1                  ; |104| 
        ldfu      1.0000000000e+00,f0   ; |105| 
        bge       L5                    ; |104| 
;*      Branch Occurs to L5             ; |104| 
L4:        
	.line	88
;----------------------------------------------------------------------
; 105 | pSets->set_value_zone[i]      =    1.0*CHL_CONSTANT_1;                 
;----------------------------------------------------------------------
        ldiu      *+fp(7),ar0           ; |105| 
        addi      *+fp(2),ar0           ; |105| Unsigned
        stf       f0,*+ar0(30)          ; |105| 
	.line	87
        ldiu      1,r1                  ; |104| 
        addi      *+fp(7),r1            ; |104| 
        sti       r1,*+fp(7)            ; |104| 
        cmpi      8,r1                  ; |104| 
        blt       L4                    ; |104| 
;*      Branch Occurs to L4             ; |104| 
L5:        
	.line	89
;----------------------------------------------------------------------
; 106 | pSets++;                                                               
; 108 | //////实时参数                                                         
; 109 | // ----------------------------------------------------- //            
;----------------------------------------------------------------------
        ldiu      38,r0                 ; |106| 
        addi      *+fp(2),r0            ; |106| Unsigned
        sti       r0,*+fp(2)            ; |106| 
	.line	93
;----------------------------------------------------------------------
; 110 | pProtect->pro_run_data_number    =    0;                               
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |110| 
        ldiu      0,r0                  ; |110| 
        sti       r0,*+ar0(75)          ; |110| 
	.line	94
;----------------------------------------------------------------------
; 111 | pValue    =    pProtect->pro_run_data;                                 
; 112 | //------------------------------------------------//                   
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |111| 
        ldiu      *+ar0(76),r0          ; |111| 
        sti       r0,*+fp(4)            ; |111| 
	.line	96
;----------------------------------------------------------------------
; 113 | pValue->value_index_number  =    ++(pProtect->pro_run_data_number);    
;----------------------------------------------------------------------
        ldiu      1,r0                  ; |113| 
        addi      *+ar0(75),r0          ; |113| Unsigned
        sti       r0,*+ar0(75)          ; |113| 
        ldiu      *+fp(4),ar0           ; |113| 
        sti       r0,*+ar0(22)          ; |113| 
	.line	97
;----------------------------------------------------------------------
; 114 | pValue->pvalue_name =(CHAR *)strcpy(pValue -> value_name,"Ａ相电流");  
;----------------------------------------------------------------------
        ldp       @CL16,DP
        ldiu      @CL16,r1              ; |114| 
        ldiu      1,r0                  ; |114| 
        addi      *+fp(4),r0            ; |114| Unsigned
        push      r1                    ; |114| 
        push      r0                    ; |114| 
        call      _strcpy               ; |114| 
                                        ; |114| Call Occurs
        subi      2,sp                  ; |114| 
        ldiu      *+fp(4),ar0           ; |114| 
        sti       r0,*ar0               ; |114| 
	.line	98
;----------------------------------------------------------------------
; 115 | pValue->pvalue_alias        =    "Ia";                                 
;----------------------------------------------------------------------
        ldp       @CL17,DP
        ldiu      *+fp(4),ar0           ; |115| 
        ldiu      @CL17,r0              ; |115| 
        sti       r0,*+ar0(21)          ; |115| 
	.line	99
;----------------------------------------------------------------------
; 116 | pValue->value_calculate_style =    CHL_FOURIER1_;                      
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |116| 
        ldiu      0,r0                  ; |116| 
        sti       r0,*+ar0(23)          ; |116| 
	.line	100
;----------------------------------------------------------------------
; 117 | pValue->pvalue_dimension    =    "A";                                  
;----------------------------------------------------------------------
        ldp       @CL11,DP
        ldiu      *+fp(4),ar0           ; |117| 
        ldiu      @CL11,r0              ; |117| 
        sti       r0,*+ar0(24)          ; |117| 
	.line	101
;----------------------------------------------------------------------
; 118 | pValue->value_calculate_coefficient = 1;                               
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |118| 
        ldfu      1.0000000000e+00,f0   ; |118| 
        stf       f0,*+ar0(25)          ; |118| 
	.line	102
;----------------------------------------------------------------------
; 119 | pValue->value_measure       =    0.0;                                  
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |119| 
        ldfu      0.0000000000e+00,f0   ; |119| 
        stf       f0,*+ar0(26)          ; |119| 
	.line	103
;----------------------------------------------------------------------
; 120 | pValue++;                                                              
; 121 | //------------------------------------------------//                   
;----------------------------------------------------------------------
        ldiu      29,r0                 ; |120| 
        addi      *+fp(4),r0            ; |120| Unsigned
        sti       r0,*+fp(4)            ; |120| 
	.line	105
;----------------------------------------------------------------------
; 122 | pValue->value_index_number  =    ++(pProtect->pro_run_data_number);    
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |122| 
        ldiu      1,r0                  ; |122| 
        addi      *+ar0(75),r0          ; |122| Unsigned
        sti       r0,*+ar0(75)          ; |122| 
        ldiu      *+fp(4),ar0           ; |122| 
        sti       r0,*+ar0(22)          ; |122| 
	.line	106
;----------------------------------------------------------------------
; 123 | pValue->pvalue_name =(CHAR *)strcpy(pValue -> value_name,"Ｂ相电流");  
;----------------------------------------------------------------------
        ldp       @CL18,DP
        ldiu      @CL18,r1              ; |123| 
        ldiu      1,r0                  ; |123| 
        addi      *+fp(4),r0            ; |123| Unsigned
        push      r1                    ; |123| 
        push      r0                    ; |123| 
        call      _strcpy               ; |123| 
                                        ; |123| Call Occurs
        subi      2,sp                  ; |123| 
        ldiu      *+fp(4),ar0           ; |123| 
        sti       r0,*ar0               ; |123| 
	.line	107
;----------------------------------------------------------------------
; 124 | pValue->pvalue_alias        = "Ib";                                    
;----------------------------------------------------------------------
        ldp       @CL19,DP
        ldiu      *+fp(4),ar0           ; |124| 
        ldiu      @CL19,r0              ; |124| 
        sti       r0,*+ar0(21)          ; |124| 
	.line	108
;----------------------------------------------------------------------
; 125 | pValue->value_calculate_style =     CHL_FOURIER1_;                     
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |125| 
        ldiu      0,r0                  ; |125| 
        sti       r0,*+ar0(23)          ; |125| 
	.line	109
;----------------------------------------------------------------------
; 126 | pValue->pvalue_dimension    =    "A";                                  
;----------------------------------------------------------------------
        ldp       @CL11,DP
        ldiu      *+fp(4),ar0           ; |126| 
        ldiu      @CL11,r0              ; |126| 
        sti       r0,*+ar0(24)          ; |126| 
	.line	110
;----------------------------------------------------------------------
; 127 | pValue->value_calculate_coefficient = 1;                               
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |127| 
        ldfu      1.0000000000e+00,f0   ; |127| 
        stf       f0,*+ar0(25)          ; |127| 
	.line	111
;----------------------------------------------------------------------
; 128 | pValue->value_measure       =       0.0;                               
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |128| 
        ldfu      0.0000000000e+00,f0   ; |128| 
        stf       f0,*+ar0(26)          ; |128| 
	.line	112
;----------------------------------------------------------------------
; 129 | pValue++;                                                              
; 130 | //------------------------------------------------//                   
;----------------------------------------------------------------------
        ldiu      29,r0                 ; |129| 
        addi      *+fp(4),r0            ; |129| Unsigned
        sti       r0,*+fp(4)            ; |129| 
	.line	114
;----------------------------------------------------------------------
; 131 | pValue->value_index_number  =    ++(pProtect->pro_run_data_number);    
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |131| 
        ldiu      1,r0                  ; |131| 
        addi      *+ar0(75),r0          ; |131| Unsigned
        sti       r0,*+ar0(75)          ; |131| 
        ldiu      *+fp(4),ar0           ; |131| 
        sti       r0,*+ar0(22)          ; |131| 
	.line	115
;----------------------------------------------------------------------
; 132 | pValue->pvalue_name =(CHAR *)strcpy(pValue -> value_name,"Ｃ相电流");  
;----------------------------------------------------------------------