INTEGER ARRAY                                                           00010000
   QAM1(*)  =  Q-1,                                                     00015000
   QAM2(*)  =  Q-2;                                                     00020000
ARRAY                                                                   00025000
   QP0(*)   =  QARRAY+0,                                                00030000
   QP1(*)   =  QARRAY+1,                                                00035000
   QP2(*)   =  QARRAY+2,                                                00040000
   QP3(*)   =  QARRAY+3,                                                00045000
   QP4(*)   =  QARRAY+4,                                                00050000
   QP5(*)   =  QARRAY+5,                                                00055000
   QP6(*)   =  QARRAY+6,                                                00060000
   QP7(*)   =  QARRAY+7,                                                00065000
   QP8(*)   =  QARRAY+8,                                                00070000
   QP9(*)   =  QARRAY+9,                                                00075000
   QP10(*)  =  QARRAY+10,                                               00080000
   QP11(*)  =  QARRAY+11,                                               00085000
   QP12(*)  =  QARRAY+12,                                               00090000
   QP13(*)  =  QARRAY+13,                                               00095000
   QP14(*)  =  QARRAY+14,                                               00100000
   QP15(*)  =  QARRAY+15,                                               00105000
   QP16(*)  =  QARRAY+16,                                               00110000
   QP17(*)  =  QARRAY+17,                                               00115000
   QP18(*)  =  QARRAY+18,                                               00120000
   QP19(*)  =  QARRAY+19,                                               00125000
   QP20(*)  =  QARRAY+20,                                               00130000
   QP21(*)  =  QARRAY+21,                                               00135000
   QP22(*)  =  QARRAY+22,                                               00140000
   QP23(*)  =  QARRAY+23,                                               00145000
   QP24(*)  =  QARRAY+24,                                               00150000
   QP25(*)  =  QARRAY+25,                                               00155000
   QP26(*)  =  QARRAY+26,                                               00160000
   QP27(*)  =  QARRAY+27,                                               00165000
   QP28(*)  =  QARRAY+28,                                               00170000
   QP29(*)  =  QARRAY+29,                                               00175000
   QP30(*)  =  QARRAY+30,                                               00180000
   QP31(*)  =  QARRAY+31,                                               00185000
   QP32(*)  =  QARRAY+32,                                               00190000
   QP33(*)  =  QARRAY+33,                                               00195000
   QP34(*)  =  QARRAY+34,                                               00200000
   QP35(*)  =  QARRAY+35,                                               00205000
   QP36(*)  =  QARRAY+36,                                               00210000
   QP42(*)  =  QARRAY+42,                                               00215000
   QP43(*)  =  QARRAY+43,                                               00220000
   QP44(*)  =  QARRAY+44,                                               00225000
   QP45(*)  =  QARRAY+45,                                               00230000
   QP46(*)  =  QARRAY+46,                                               00235000
   QP47(*)  =  QARRAY+47,                                               00240000
   QP48(*)  =  QARRAY+48,                                               00245000
   QP49(*)  =  QARRAY+49,                                               00250000
   QP50(*)  =  QARRAY+50,                                               00255000
   QP56(*)  =  QARRAY+56,                                               00260000
   QP57(*)  =  QARRAY+57,                                               00265000
   QP58(*)  =  QARRAY+58,                                               00270000
   QP60(*)  =  QARRAY+60,                                               00275000
   QP61(*)  =  QARRAY+61,                                               00280000
   QP62(*)  =  QARRAY+62,                                               00285000
   QP63(*)  =  QARRAY+63,                                               00290000
   QP64(*)  =  QARRAY+64,                                               00295000
   QP65(*)  =  QARRAY+65,                                               00300000
   QP66(*)  =  QARRAY+66,                                               00305000
   QP67(*)  =  QARRAY+67,                                               00310000
   QP68(*)  =  QARRAY+68,                                               00315000
   QP69(*)  =  QARRAY+69,                                               00320000
   QP70(*)  =  QARRAY+70,                                               00325000
   QP71(*)  =  QARRAY+71,                                               00330000
   QP72(*)  =  QARRAY+72,                                               00335000
   QP73(*)  =  QARRAY+73,                                               00340000
   QP74(*)  =  QARRAY+74,                                               00345000
   QP75(*)  =  QARRAY+75,                                               00350000
   QP76(*)  =  QARRAY+76;                                               00355000
