L     DB90.DBW   44
      L     14
      *I    
      L     42
      +I    
      T     #DW_nr
      SLW   3
      T     #DW_ptr
      OPN   DB    29
      L     DBW [#DW_ptr]
      L     DB90.DBW   46
      -I    
      L     0
      <=I   
      JC    M002
      TAK   
M002: T     #rem_sp

M004: L     #DW_nr
      L     14
      +I    
      T     #DW_nr
      L     168
      >I    
      JC    M003
      L     DB29.DBW   16
      L     3
      <I    
      JC    M005
      L     #DW_nr
      L     42
      -I    
      L     14
      /I    
      L     DB29.DBW   16
      >=I   
      JC    M003
M005: L     #DW_nr
      SLW   3
      T     #DW_ptr
      OPN   DB    29
      L     DBW [#DW_ptr]
      L     #rem_sp
      +I    
      T     #rem_sp
      JU    M004

M003: L     #rem_sp
      L     24
      *I    
      L     DB111.DBW   12
      -I    
      T     #rem_sp