SET  
      SAVE  
      =     L      6.1
      L     DIW [AR2,P#68.0]
      T     LW     8
      TAK  
      OPN   DB [LW 8]
      L     DID [AR2,P#70.0]
      LAR1  
      TAK  
      A      [AR1,P#0.0]
      JCN   A7d0
      L     1
      T     #i
A7d1: L     #i
      L     8
      <=I  
      JCN   A7d0
      L     1
      T     #j
A7d3: L     #j
      L     8
      <=I  
      JCN   A7d4
      L     #i
      ITD  
      L     L#1
      -D    
      L     L#8
      *D    
      L     #j
      ITD  
      +D    
      L     L#1
      -D    
      L     L#16
      *D    
      L     L#16
      +D    
      L     0
      T     LD     8
      TAK  
      T     LD    14
      TAK  
      L     DIW [AR2,P#68.0]
      T     LW    12
      TAK  
      OPN   DB [LW 12]
      L     DID [AR2,P#70.0]
      L     LD    14
      +D    
      LAR1  
      L     LD     8
      T     W [AR1,P#0.0]
      L     #j
      L     1
      +I    
      T     #j
      JU    A7d3
A7d4: L     #i
      L     1
      +I    
      T     #i
      JU    A7d1
A7d0: L     DIW [AR2,P#68.0]
      T     LW     8
      TAK  
      OPN   DB [LW 8]
      L     DID [AR2,P#70.0]
      LAR1  
      TAK  
      CLR  
      A      [AR1,P#0.1]
      JCN   A7d5
      L     1
      T     #i
A807: CLR  
      A     L      6.1
      SAVE  
      BE