COMPGBN 
COMMON
          CTEXT  COMPGBN - GENERATE BANNER NAME.
          SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPGBN
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       GBN - GENERATE BANNER NAME FROM USER INDEX. 
*         D. A. COAPSTICK.   74/05/01.
          SPACE  4
***              GBN GENERATES THE 4 CHARACTER BANNER NAME FROM THE USER
*         INDEX.
* 
*         ENTRY  (T1-T2) = USER INDEX.
* 
*         EXIT   (T1-T2) = BANNER NAME. 
* 
*         USES   T0.
* 
*         CALLS  NONE.
  
  
 GBN      SUBR               ENTRY/EXIT 
          LDD    T1          CONVERT USER INDEX TO 4 CHARACTER HASH 
          LPN    37 
          ADN    1
          SHN    6
          STD    T0 
          LDD    T2 
          SHN    -7 
          ADN    1
          LMD    T0 
          STD    T1          GENERATE FIRST AND SECOND CHARACTERS 
          LDD    T2 
          SHN    -2 
          LPN    37 
          ADN    1
          SHN    6
          STD    T0 
          LDD    T2 
          LPN    3
          SHN    3
          ADN    1
          LMD    T0 
          STD    T2          GENERATE THIRD AND FOURTH CHARACTERS 
          UJN    GBNX 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 GBN      EQU    /COMPGBN/GBN 
 QUAL$    ENDIF 
          ENDX
