          SPACE  3
*
*  NAME: FUNMC
*
*  PURPOSE:  THIS MACRO IS USED TO FUNCTION THE MAINTENANCE CHANNEL.
*
*  INPUT:
*         ELE = DIRECT CELL CONTAINING CONNECT CODE AND THE ELEMENT TYPE.
*         FC  = MAINTENANCE CHANNEL FUNCTION CODE.
*

 FUNMC    MACRO  ELE,FC
          LOCAL  LFC
 MAXFC    EQU    17B         MAXIMUM FUNCTION CODE VALUE.

*         TEST FOR VALID FUNCTION CODE.

 IF1      IFGE   FC,0
 IF2      IFLE   FC,MAXFC
 LFC      SET    FC*16
 IF2      ELSE
          ERR    FUNCTION CODE NOT IN RANGE.
 IF2      ENDIF
 IF1      ELSE
          ERR    FUNCTION CODE NOT IN RANGE.
 IF1      ENDIF

          LDD    ELE
          ADC    LFC
          FAN    MCHNL
          ENDM
