*DECK,PUTIN 
      SUBROUTINE PUT IN 
C 
C  THIS SUBROUTINE PUTS A 12-BIT -OH- FIELD INTO THE NEXT AVAILABLE 
C  12-BIT FIELD OF THE OPTIONS LIST.
C  ENTRY: DFNESTW = THE ADDRESS OF THE CURRENT OPTION WORD IN THE 
C                   OPTIONS LIST
C         OH = THE 12-BIT FIELD TO BE ENTERED IN THE OPTIONS LIST 
C         DFNEST = A POINTER TO THE NEXT AVAILABLE 12-BIT FIELD IN THE
C                  OPTIONS LIST 
C         ELAST = THE ENDING ADDRESS OF ELIST 
C  UPON EXIT, DFNEST AND DFNESTW ARE UPDATED. 
C 
*CALL LDBGCOM 
      DEBUG(DFNESTW) = (DEBUG(DFNESTW) .AND.
     ,    ( .NOT.SHIFT(MINZERO, 12*DFNEST))) .OR. 
     ,    SHIFT( OH, 12 * DFNEST) 
      DFNEST = DFNEST - 1 
      IF (DFNEST .GE. 0) RETURN 
      DFNEST = 4
      DFNESTW = DFNESTW + 1 
      IF (DFNESTW .EQ. ELAST) CALL BUGCLO, RETURNS (10) 
      IF (OPENFL .GE. 0) DEBUG(DFNESTW)= 0
      RETURN
   10 DEBUG(DFNESTW - 1) = DEBUG(DFNESTW - 1) .OR. MINZERO
      POW = 0 
      CALL BUGCLO 
      RETURN
      END 
