protectoc1_current.asm

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

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