请教各位了!!!fc里的一段程序

L     P##DATA_FIELD              
     LAR1  
     L     B [AR1,P#1.0]            
     JL    ERR0
     JU    ERR0                      
     JU    ERR0                      
     JU    BYT0                      
ERR0: L     W#16#8080                  
     JU    ERR3                        
BYT0: L     W [AR1,P#2.0]              
     L     50                        
     <I    
     JC    ERR4

     L     P##LIST_SLAVES_NOT_PRESENT  
     LAR1  
     L     B [AR1,P#1.0]              
     JL    ERR1
     JU    ERR1                    
     JU    BOL1                      
     JU    BYT1                      
     JU    ERR1                        
     JU    WRD1                      
     JU    ERR1                        
     JU    DWD1                        
ERR1: L     W#16#8080                
     JU    ERR3                      
BOL1: L     W [AR1,P#2.0]            
     L     128                        
     <I    
     JC    ERR4
     JU    GO1
BYT1: L     W [AR1,P#2.0]
     L     16                        
     <I    
     JC    ERR4
     JU    GO1
WRD1: L     W [AR1,P#2.0]
     L     8                          
     <I    
     JC    ERR4
     JU    GO1
DWD1: L     W [AR1,P#2.0]
     L     4                          
     <I    
     JC    ERR4

GO1:  L     P##LIST_SLAVES_ERROR      
     LAR1  
     L     B [AR1,P#1.0]              
     JL    ERR2
     JU    ERR2                      
     JU    BOL2                        
     JU    BYT2                      
     JU    ERR2                        
     JU    WRD2                      
     JU    ERR2                        
     JU    DWD2                        
ERR2: L     W#16#8080                  
     JU    ERR3                      
BOL2: L     W [AR1,P#2.0]            
     L     128                        
     <I    
     JC    ERR4
     JU    GO2
BYT2: L     W [AR1,P#2.0]
     L     16                        
     <I    
     JC    ERR4
     JU    GO2
WRD2: L     W [AR1,P#2.0]
     L     8                          
     <I    
     JC    ERR4
     JU    GO2
DWD2: L     W [AR1,P#2.0]
     L     4                          
     <I    
     JC    ERR4
     JU    GO2

//ERROR-Routine
ERR4: L     W#16#8081                
ERR3: T     #RETVAL                    
     L     0
     T     #SUM_SLAVES_DIAG            
     CLR  
     SAVE                            
     =     #BUSY                    
     BEU                              

请问各位,这段程序怎样看啊?这是fc里的一段程序， P##DATA_FIELD   是输入参数（any）型的。谢谢了