*DECK S$GNSH2 
          IDENT  S$GNSH2
          TITLE  S$GNSH2 -  GENERATE SHORT-CODE, PART 2 
          COMMENT  GENERATE SHORT-CODE, PART 2
          SPACE  4
  
*CALL LBLPTR
  
**        S$GNSH2 -  GENERATE SHORT-CODE, PART 2
* 
*     CALLING SEQUENCE- 
*         S$GNSH2;
* 
*     DOES- 
*         GENERATES PART 2 OF SHORT-CODE
  
  
          ENTRY  S$GNSH2
 S$GNSH2  SUBR
          GEN    (PL X7,"SHORT5")      *IF LL \ CR, HAVE CORRECT ORDER
          GEN    (SA6 A4)              *LEAVE LL = SMALLER
          GEN    (BX6 X4)              *LEAVE CR = LARGER 
  
          GENLBL SHORT5 
          GEN    (AX2 1)               *ADVANCE TO NEXT LEVEL 
          GEN    (NZ X2,"SHORT4")      *IF TOURNAMENT NOT DONE, LOOP
          EXIT
  
  
          END 
