OPN   DB    19
      L     P#0.0
      LAR1  
      L     #Num
      T     #num1
_001: NOP   0
      L     #num1
      L     1
      >=I  
      JNB   _002
      A     DBX [AR1,P#0.0]
      =     DBX [AR1,P#20.0]
      +AR1  
      L     #num1
      L     1
      -I    
      T     #num1
      JU    _001
_002: NOP   0

OPN   DB    19
      L     P#0.0
      LAR1  
      L     #Num
      T     #num1
_011: NOP   0
      L     #num1
      L     1
      >=I  
      JNB   _015
      A     #bQj
      JNB   _013
      A     DBX [AR1,P#20.0]
      =     DBX [AR1,P#0.1]
      JU    _014
_013: NOP   0
      A     #bHt
      JNB   _014
      A     DBX [AR1,P#20.1]
      =     DBX [AR1,P#0.0]
_014: NOP   0
      +AR1  
      L     #num1
      L     1
      -I    
      T     #num1
      JU    _011
_015: NOP   0

  OPN   DB    19
      A     #bHt
      JNB   _065
      L     P#0.0
      LAR1  
      L     #Num
      L     1
      -I    
      T     #num1
_061: NOP   0
      L     #num1
      L     1
      >=I  
      JNB   _062
      +AR1  
      L     #num1
      L     1
      -I    
      T     #num1
      JU    _061
_062: NOP   0
      A     DB19.DBX   18.7
      =     DBX [AR1,P#0.0]
_065: NOP   0

兄弟们这几段程序怎样理解