OPN   "gp_par"

      L     31

      T     #tmpDB

      L     DW#16#84000000

      L     P#174.0

      +D    

      LAR1  

      L     31

NEXT: T     #tmpCount

      A      [AR1,P#0.0]

      JCN   M2

      OPN   DI [#tmpDB]

      SET   

      =     DIX    1.5

      =     DIX    2.1

      =     DIX   21.7

      =     DIX    1.7

M2:   +AR1  P#0.1

      L     #tmpDB

      INC   1

      T     #tmpDB

      L     #tmpCount

      LOOP  NEXT