求助，怎样把下列STL转换成LAD

SET  
     SAVE  
     L     0
     T     #TEMP1
     L     #IN0
     T     #TEMP2
     L     0
     <D    
     JC    M001
     TAK  
     L     L#9990000
     <=D  
     JC    M002
     L     W#16#3999
     JC    M001
M002: L     #TEMP2
     L     L#10
     /D    
     T     #TEMP2
     L     L#999
     <=D  
     JC    M003
     L     #TEMP1
     INC   1
     T     #TEMP1
     JU    M002
M003: TAK  
     DTB  
     L     #TEMP1
     SLW   12
     OW    
     JU    M004
M001: CLR  
     SAVE  
M004: T     #RET_VAL
     BE    

哪是什么工作原里，大家谈谈看

SET  
     SAVE                              // BIE setzen
     L     0                           // Zeitbasis l鰏chen
     T     #y_Base
     L     #IN
     T     #d_Temp
     L     0                           // Zeitwert negativ
     <D                                // ja, dann S5_Time := 0
     JC    FEHL
     TAK  
     L     L#9990000                   // Zeitwert > als erlaubt
     <=D  
     JC    LOP
     L     W#16#3999                   // ja, S5_Time := 3.999
     JC    FEHL
LOP:  L     #d_Temp                     // Zeit
     L     L#10
     /D                                // Zeit : 10      
     T     #d_Temp
     L     L#999                       // Ergebnis : > 999
     <=D  
     JC    FERT                        // ja, dann Basis + 1
     L     #y_Base
     INC   1
     T     #y_Base
     JU    LOP
FERT: TAK                               // Zeitwert holen
     DTB                               // Wandlung BCD
     L     #y_Base                     // Basis einblenden
     SLW   12
     OW    
     JU    RET
FEHL: CLR                               // BIE := 0
     SAVE  
RET:  T     #RET_VAL
     BE