*DECK             MSKGEN
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TSYMCNS 
USETEXT   TCEXEC
USETEXT   TCOM37Q 
USETEXT   TCOM78Q 
USETEXT   TC7DECS 
FUNC MSKGEN((P3)); # MASK GENERATION #
BEGIN   #RETURNS SYMBOL TABLE POINTER#
  
  
  
  
*CALL COMEX 
  
  
  
  
    ITEM P3 I; # NUMBER OF BITS, BY VALUE #                              JANDRE 
    ITEM I3 I;                                                           JANDRE 
    XREF FUNC PSICON; 
    XDEF PROC MSKGNC;                                                    JANDRE 
    I3=0;                                                                JANDRE 
    B<0,P3>I3=SEVENS;                                                    JANDRE 
    MSKGEN=PSICON(I3);
    RETURN;                                                              JANDRE 
CONTROL EJECT;
PROC MSKGNC((I1),(I2),M1,W);  #SEARCH THE BEST MASK GENERATION #
    BEGIN                                                                JANDRE 
       ITEM I3,M2,                                                       JANDRE 
            I1, #FIRST BITE#                                             JANDRE 
            I2, #NUMBER OF BITS#                                         JANDRE 
            M1, #MASK (SYMBOL TABLE POINTER)#                            JANDRE 
            W B;                                                         JANDRE 
       I3=0;                                                             JANDRE 
       B<I1,I2>I3=SEVENS;                                                JANDRE 
       M1=PSICON(I3);                                                    JANDRE 
       I3=LNO I3;                                                        JANDRE 
       M2=PSICON(I3);                                                    JANDRE 
       IF CONL[M1] GR CONL[M2] THEN                                      JANDRE 
            BEGIN                                                        JANDRE 
            W=NOT W;                                                     JANDRE 
            M1=M2;                                                       JANDRE 
            END                                                          JANDRE 
    END 
END 
TERM
