高手帮忙分析下，这个程序是什么作用？

   SET  
      R     #TEMP934
      R     #STAT924
      LAR1  P#0.0
M005: L     DID [AR1,P#0.0]
      L     DID [AR1,P#330.0]
      ==D  
      JC    M003
      L     0
      T     #TEMP937
M006: L     DIB [AR1,P#330.0]
      L     DIB [AR1,P#0.0]
      ==I  
      JC    M001
      T     #STAT922
      T     DIB [AR1,P#330.0]
      =     #STAT924
      TAR1 
      SRD   3
      T     #STAT923
      JC    M004
M001: +AR1  P#1.0
      TAR1 
      SRD   3
      L     330
      >=D  
      =     #TEMP934
      JC    M004
      L     #TEMP937
      +     1
      T     #TEMP937
      L     4
      >=I  
      JC    M005
      JC    M006

M003: +AR1  P#4.0
      TAR1 
      SRD   3
      L     330
      >=D  
      =     #TEMP934
      JC    M004
      JC    M005
M004: NOP   0

---------------------------------------------------------------------------

     L     #STAT922
      T     #STAT922
      TAR1 
      T     #TEMP935
      CALL  FC    21
       IN0 :=#STAT924
       IN1 :=B#16#4
       IN2 :=#STAT922
       IN3 :=#STAT923
       IN4 :=-1
       OUT5:=#STAT930
       OUT6:=#STAT926
      L     #TEMP935
      LAR1 
      AN    #TEMP934
      JC    M001