<mdl.int>/const.mid.5

   1 TITLE CONSTS
   2
   3 RELOCA
   4
   5 DEFINE C%MAKE A,B
   6         .GLOBAL A
   7
   8         IRP LH,RH,[B]
   9                 A==[LH,,RH]
  10                 .ISTOP
  11                 TERMIM
  12 TERMIN
  13 TERMIN
  14
  15 IRP X,,[[C%11,1,1],[C%22,2,2],[C%33,3,3],[C%44,4,4],[C%55,5,5],[C%66,6,6]
  16 [C%0,0,0],[C%1,0,1],[C%2,0,2],[C%3,0,3],[C%M1,-1,-1],[C%M2,-1,-2]
  17 [C%M10,-1,0],[C%M20,-2,0],[C%M30,-3,0],[C%M40,-4,0],[C%M60,-6,0]]
  18
  19         IRP A,B,[X]
  20         C%MAKE A,[B]
  21         .ISTOP
  22         TERMIN
  23
  24 TERMIN
  25 TERMIN
  26 END