protectzero_seq1.asm

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

        sti       r0,*+ar0(1)           ; |97| 
	.line	79
;----------------------------------------------------------------------
;  98 | pSets->pset_name = (CHAR *)strcpy(pSets->set_name,"零序时间值");
;     |                                                                        
;----------------------------------------------------------------------
        ldp       @CL14,DP
        ldiu      @CL14,r1              ; |98| 
        ldiu      3,r0                  ; |98| 
        addi      *+fp(2),r0            ; |98| Unsigned
        push      r1                    ; |98| 
        push      r0                    ; |98| 
        call      _strcpy               ; |98| 
                                        ; |98| Call Occurs
        subi      2,sp                  ; |98| 
        ldiu      *+fp(2),ar0           ; |98| 
        sti       r0,*+ar0(2)           ; |98| 
	.line	80
;----------------------------------------------------------------------
;  99 | pSets->pset_alias          =    "T0";
;     |                                                                        
;----------------------------------------------------------------------
        ldp       @CL15,DP
        ldiu      *+fp(2),ar0           ; |99| 
        ldiu      @CL15,r0              ; |99| 
        sti       r0,*+ar0(25)          ; |99| 
	.line	81
;----------------------------------------------------------------------
; 100 | pSets->pset_dimension      =    "S";                                   
;----------------------------------------------------------------------
        ldp       @CL16,DP
        ldiu      *+fp(2),ar0           ; |100| 
        ldiu      @CL16,r0              ; |100| 
        sti       r0,*+ar0(24)          ; |100| 
	.line	82
;----------------------------------------------------------------------
; 101 | pSets->set_lower_limit     =    0.00;                                  
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |101| 
        ldfu      0.0000000000e+00,f0   ; |101| 
        stf       f0,*+ar0(28)          ; |101| 
	.line	83
;----------------------------------------------------------------------
; 102 | pSets->set_high_limit      =    100.0;                                 
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |102| 
        ldfu      1.0000000000e+02,f0   ; |102| 
        stf       f0,*+ar0(29)          ; |102| 
	.line	84
;----------------------------------------------------------------------
; 103 | pSets->set_calculate_style =    CHL_MUL_;                              
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |103| 
        ldiu      1,r0                  ; |103| 
        sti       r0,*+ar0(23)          ; |103| 
	.line	85
;----------------------------------------------------------------------
; 104 | pSets->set_calculate_coefficient = CHL_CONSTANT_1;                     
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |104| 
        ldfu      1.0000000000e+00,f0   ; |104| 
        stf       f0,*+ar0(27)          ; |104| 
	.line	86
;----------------------------------------------------------------------
; 105 | for(i=0;i<SET_ZONE;i++)                                                
;----------------------------------------------------------------------
        ldiu      0,r0                  ; |105| 
        sti       r0,*+fp(7)            ; |105| 
        ldiu      r0,r1
        cmpi      8,r1                  ; |105| 
        ldfu      2.0000000000e+00,f0   ; |106| 
        bge       L5                    ; |105| 
;*      Branch Occurs to L5             ; |105| 
L4:        
	.line	87
;----------------------------------------------------------------------
; 106 | pSets->set_value_zone[i]   =    2.0*CHL_CONSTANT_1;                    
;----------------------------------------------------------------------
        ldiu      *+fp(7),ar0           ; |106| 
        addi      *+fp(2),ar0           ; |106| Unsigned
        stf       f0,*+ar0(30)          ; |106| 
	.line	86
        ldiu      1,r1                  ; |105| 
        addi      *+fp(7),r1            ; |105| 
        sti       r1,*+fp(7)            ; |105| 
        cmpi      8,r1                  ; |105| 
        blt       L4                    ; |105| 
;*      Branch Occurs to L4             ; |105| 
L5:        
	.line	88
;----------------------------------------------------------------------
; 107 | pSets++;                                                               
; 109 | //////保护投退控制字                                                   
; 110 | // ----------------------------------------------------- //            
;----------------------------------------------------------------------
        ldiu      38,r0                 ; |107| 
        addi      *+fp(2),r0            ; |107| Unsigned
        sti       r0,*+fp(2)            ; |107| 
	.line	92
;----------------------------------------------------------------------
; 111 | pSets->pro_id    =    pProtect->pro_id;                                
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar1           ; |111| 
        ldiu      r0,ar0                ; |111| 
        ldiu      *+ar1(3),r0           ; |111| 
        sti       r0,*ar0               ; |111| 
	.line	93
;----------------------------------------------------------------------
; 112 | pSets->set_id    =    ++(pProtect->pro_setting_number);                
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |112| 
        ldiu      1,r0                  ; |112| 
        addi      *+ar0(71),r0          ; |112| Unsigned
        sti       r0,*+ar0(71)          ; |112| 
        ldiu      *+fp(2),ar0           ; |112| 
        sti       r0,*+ar0(1)           ; |112| 
	.line	94
;----------------------------------------------------------------------
; 113 | pSets->pset_name = (CHAR *)strcpy(pSets->set_name,"跳闸控制字");       
;----------------------------------------------------------------------
        ldp       @CL17,DP
        ldiu      @CL17,r1              ; |113| 
        ldiu      3,r0                  ; |113| 
        addi      *+fp(2),r0            ; |113| Unsigned
        push      r1                    ; |113| 
        push      r0                    ; |113| 
        call      _strcpy               ; |113| 
                                        ; |113| Call Occurs
        subi      2,sp                  ; |113| 
        ldiu      *+fp(2),ar0           ; |113| 
        sti       r0,*+ar0(2)           ; |113| 
	.line	95
;----------------------------------------------------------------------
; 114 | pSets->pset_alias          =    "L0t";
;     |                                                                        
;----------------------------------------------------------------------
        ldp       @CL18,DP
        ldiu      *+fp(2),ar0           ; |114| 
        ldiu      @CL18,r0              ; |114| 
        sti       r0,*+ar0(25)          ; |114| 
	.line	96
;----------------------------------------------------------------------
; 115 | pSets->pset_dimension      =    " ";                                   
;----------------------------------------------------------------------
        ldp       @CL19,DP
        ldiu      *+fp(2),ar0           ; |115| 
        ldiu      @CL19,r0              ; |115| 
        sti       r0,*+ar0(24)          ; |115| 
	.line	97
;----------------------------------------------------------------------
; 116 | pSets->set_lower_limit     =    0.00;                                  
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |116| 
        ldfu      0.0000000000e+00,f0   ; |116| 
        stf       f0,*+ar0(28)          ; |116| 
	.line	98
;----------------------------------------------------------------------
; 117 | pSets->set_high_limit      =    1.00;                                  
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |117| 
        ldfu      1.0000000000e+00,f0   ; |117| 
        stf       f0,*+ar0(29)          ; |117| 
	.line	99
;----------------------------------------------------------------------
; 118 | pSets->set_calculate_style =    MODE_;                                 
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |118| 
        ldiu      4,r0                  ; |118| 
        sti       r0,*+ar0(23)          ; |118| 
	.line	100
;----------------------------------------------------------------------
; 119 | pSets->set_calculate_coefficient = CHL_CONSTANT_1;                     
;----------------------------------------------------------------------
        ldiu      *+fp(2),ar0           ; |119| 
        ldfu      1.0000000000e+00,f0   ; |119| 
        stf       f0,*+ar0(27)          ; |119| 
	.line	101
;----------------------------------------------------------------------
; 120 | for(i=0;i<SET_ZONE;i++)                                                
;----------------------------------------------------------------------
        ldiu      0,r0                  ; |120| 
        sti       r0,*+fp(7)            ; |120| 
        ldfu      1.0000000000e+00,f1   ; |121| 
        cmpi      8,r0                  ; |120| 
        bge       L7                    ; |120| 
;*      Branch Occurs to L7             ; |120| 
L6:        
	.line	102
;----------------------------------------------------------------------
; 121 | pSets->set_value_zone[i]   =    1.0*CHL_CONSTANT_1;                    
;----------------------------------------------------------------------
        ldiu      *+fp(7),ar0           ; |121| 
        addi      *+fp(2),ar0           ; |121| Unsigned
        stf       f1,*+ar0(30)          ; |121| 
	.line	101
        ldiu      1,r0                  ; |120| 
        addi      *+fp(7),r0            ; |120| 
        sti       r0,*+fp(7)            ; |120| 
        cmpi      8,r0                  ; |120| 
        blt       L6                    ; |120| 
;*      Branch Occurs to L6             ; |120| 
L7:        
	.line	103
;----------------------------------------------------------------------
; 122 | pSets++;                                                               
; 124 | //////实时参数                                                         
; 125 | // ----------------------------------------------------- //            
;----------------------------------------------------------------------
        ldiu      38,r0                 ; |122| 
        addi      *+fp(2),r0            ; |122| Unsigned
        sti       r0,*+fp(2)            ; |122| 
	.line	107
;----------------------------------------------------------------------
; 126 | pProtect->pro_run_data_number    =    0;                               
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |126| 
        ldiu      0,r0                  ; |126| 
        sti       r0,*+ar0(75)          ; |126| 
	.line	108
;----------------------------------------------------------------------
; 127 | pValue    =    pProtect->pro_run_data;                                 
; 128 | //------------------------------------------------//                   
;----------------------------------------------------------------------
        ldiu      *+fp(1),ar0           ; |127| 
        ldiu      *+ar0(76),r0          ; |127| 
        sti       r0,*+fp(4)            ; |127| 
	.line	110
;----------------------------------------------------------------------
; 129 | pValue->value_index_number    =    ++(pProtect->pro_run_data_number);
;     |                                                                        
;----------------------------------------------------------------------
        ldiu      1,r0                  ; |129| 
        addi      *+ar0(75),r0          ; |129| Unsigned
        sti       r0,*+ar0(75)          ; |129| 
        ldiu      *+fp(4),ar0           ; |129| 
        sti       r0,*+ar0(22)          ; |129| 
	.line	111
;----------------------------------------------------------------------
; 130 | pValue->pvalue_name = (CHAR *)strcpy(pValue->value_name,"零序电流");
;     |                                                                        
;----------------------------------------------------------------------
        ldp       @CL20,DP
        ldiu      @CL20,r1              ; |130| 
        ldiu      1,r0                  ; |130| 
        addi      *+fp(4),r0            ; |130| Unsigned
        push      r1                    ; |130| 
        push      r0                    ; |130| 
        call      _strcpy               ; |130| 
                                        ; |130| Call Occurs
        subi      2,sp                  ; |130| 
        ldiu      *+fp(4),ar0           ; |130| 
        sti       r0,*ar0               ; |130| 
	.line	112
;----------------------------------------------------------------------
; 131 | pValue->pvalue_alias     =    "I0";                                    
;----------------------------------------------------------------------
        ldp       @CL21,DP
        ldiu      *+fp(4),ar0           ; |131| 
        ldiu      @CL21,r0              ; |131| 
        sti       r0,*+ar0(21)          ; |131| 
	.line	113
;----------------------------------------------------------------------
; 132 | pValue->value_calculate_style =     CHL_FOURIER1_;                     
;----------------------------------------------------------------------
        ldiu      *+fp(4),ar0           ; |132| 
        ldiu      0,r0                  ; |132| 
        sti       r0,*+ar0(23)          ; |132| 
	.line	114
;----------------------------------------------------------------------
; 133 | pValue->pvalue_dimension      =    "A";                                
;----------------------------------------------------------------------
        ldp       @CL11,DP