L     11
LL0:  T     MW  1000
      L     P#0.0
      LAR1  
      L     11

LL1:  T     MW  1002
      OPN   #DB_NO1
      L     DBW [AR1,P#0.0]
      L     DBW [AR1,P#2.0]
      <I    
      JC    LL2

      L     DBW [AR1,P#0.0]
      T     #TEMP1
      L     DBW [AR1,P#2.0]
      T     DBW [AR1,P#0.0]
      L     #TEMP1
      T     DBW [AR1,P#2.0]
      OPN   #DB_NO2
      L     DBW [AR1,P#0.0]
      T     #TEMP2
      L     DBW [AR1,P#2.0]
      T     DBW [AR1,P#0.0]
      L     #TEMP2
      T     DBW [AR1,P#2.0]

LL2:  +AR1  P#2.0
      L     MW  1002
      LOOP  LL1
      L     MW  1000
      LOOP  LL0