*DECK S$GNOM3 
          IDENT  S$GNOM3
          TITLE  S$GNOM3  - GENERATE USER MERGE CODE PART 3 
          COMMENT  GENERATE USER MERGE CODE PART 3. 
  
*CALL LBLPTR
  
          B1=1
  
  
**        S$GNOM3  - GENERATE USER MERGE CODE PART 3
* 
*     CALLING SEQUENCE- 
*         S$GNOM3 ; 
* 
*     DOES- 
*         GENERATE USER MERGE CODE PART 3 
* 
*     GENERATED CODE EXPECTS- 
*         X2 = INDEX TO TOURNAMENT FOR RECORD DESCRIBED BY X6 
*         X6 = 0 FOR END-OF-DATA (EOD)
*            < 0 FOR NULL ( 1/1, LR/<RECORD-NUMBER>,...)
*            > 0 FOR DATA RECORD (CURRENT RECORD CR ) 
*         B1 = 1
*         B2 = ADDRESS OF WORKING STORAGE AREA (WSA)
* 
*     GENERATED CODE DOES-
*         "TRUMRG3": IF CR IS NULL, 
*                        WE HAVE A WINNER SO GO TO "TRUMRG2"
*                    SET LL TO TOURNAMENT ENTRY AT X2.
*                    IF LL IS END-OF-DATA,
*                        CR REMAINS CURRENT SO GO TO "TRUMRG4". 
*                    IF LL IS NULL, 
*                        SWAP CR AND LL,
*                        NULL ENTRY (CR) IS WINNER SO GO TO "TRUMRG2".
*                    (LL IS A DATA RECORD)
*                    IF CR IS END-OF-DATA,
*                        SWAP CR AND LL,
*                        COMPETE AT NEXT LEVEL SO GO TO "TRUMRG4".
* 
  
  
          ENTRY  S$GNOM3
 S$GNOM3  SUBR               ENTRY/EXIT WORD
          SB1    1           CONSTANT 1 
  
          GENLBL TRUMRG3
          GEN    (NG X6,"TRUMRG2")     *IF X6=NULL
          GEN    (SA4 X2+B2)
          NEWLBL TRUMRG4
          GEN    (ZR X4,"TRUMRG4")     *IF X4=EOD 
          NEWLBL FNL5 
          GEN    (PL X4,"FNL5")        *IF X4=DATA
          GEN    (ZR X2,"TRUMRG1")
          GEN    (SA6 A4)              *SWAP CR 
          GEN    (BX6 X4)              *   AND LL 
          GEN    (EQ "TRUMRG2")        *GOTO COMPUTE NEW TRN INDEX
  
          GENLBL FNL5 
          NEWLBL FNL6 
          GEN    (NZ X6,"FNL6")        *IF X6"EOD 
          GEN    (SA6 A4)              *SWAP CR 
          GEN    (BX6 X4)              *   AND LL 
          GEN    (EQ "TRUMRG4")        *GOTO NEXT LEVEL 
  
          GENLBL FNL6 
  
          EXIT
          END 
