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
