*DECK,GETOUT
      SUBROUTINE GET OUT
C 
C  THIS SUBROUTINE OBTAINS THE NEXT 12-BIT FIELD FROM THE CURRENT 
C  OPTIONS LIST AND RETURNS IT IN  OH.
C  ENTRY: DFOPL = THE ADDRESS OF THE CURRENT OPTION WORD IN THE OPTIONS 
C                 LIST
C         MULT = THE POINTER TO THE CURRENT FIELD IN THE OPTIONS LIST 
C  EXIT:  OH = THE NEXT 12-BIT OPTION FIELD 
C 
*CALL LDBGCOM 
      MULT = MULT - 1 
      IF (MULT.GE.0) GO TO 10 
      MULT = 4
      DFOPL = DFOPL + 1 
   10 OH = SHIFT(DEBUG(DFOPL) .AND. SHIFT(MINZERO, MULT*12),(5-MULT)*12)
      RETURN
      END 
