A     #IO11
      =     L      1.0
      BLD   103
      Call
      BLD   14
      =     L      8.0
      L     DINO
      T     LW     6
      CDB   
      OPN   DI [LW 6]
      TAR2  LD     2
      A     L      1.0
      =     DIX [AR2,P#16.0]
      L     DBW [AR2,P#2.0]
      T     DIW [AR2,P#18.0]
      +AR2  P#16.0
      UC    FB     2
      LAR2  LD     2
      A     DIX [AR2,P#20.0]
      =     L      0.0
      L     DIW [AR2,P#22.0]
      T     DBW [AR2,P#8.0]
      CDB   
      BLD   15
      End Call
      NOP   0