+1 #PATCH PAR 10/8
GRAN     CSECT    0
+10,10 #XREF PAR 10/8
         DEF      GBG
         DEF      GCYL
         DEF      GNBG
         DEF      GSG
+12,12 #XREF PAR 10/8
         REF      Y2
+20,20 #XREF PAR 10/8
+23,23 #XREF PAR 10/8
+29,29 #XREF PAR 10.8
+31,32 ##XREF PAR 10/8
         REF      HITHRSH
+34,34 #XREF PAR 10/8
+38,38 #XREF PAR 10/8
         REF      UH:FLG2
         REF      T:ABORTM
+67,67 #XREF PAR 10/8
+195,197 #LOOP PAR 10/8
         MTH,0    WORDCNT,1         DO WE HAVE ANY TO GIVE
         BGZ      GETONE            YES..DO IT
+204,205 #LOOP PAR 10/8
GETONE   LH,R4    TOP,R1            GET INDEX OF NEXT TO GET
+252,252 #XREF PAR 10/8
+END
