'HEAD'  PASS 2
C     EDIT DATE   09DEC78  15:15
C     SOURCE FILE PASS2AJH.FS
C     AUTHOR      A. J. HOWARD
C     CLUSTER     4
      'OUTFILE'   PASS2AJH.FR
N     OVERLAY     OLPS2
      SUBROUTINE  PASS2
      'INCLUDE'   LOGOSAJH.IN,
      'INCLUDE'   NLISTCFTM.IN,
      'INCLUDE'   LCFUNCAJH.IN,
      'INCLUDE'   XNAMEAJH.IN,
      INTEGER     IERR
      EXTERNAL    DEFLIT, OLPNA, OLOBJ
      LOGICAL     NLTEST
      CALL RBOTH  (DATALC)
      CALL NLSCAN (DEFLIT, NLX)
      CALL RBOTH  (CODE)
      CALL WRBLOK
      XNX = XNX - 2
      'IF' (XNX .GT. 0)
         'DOLOOP' I = 1, XNX, 2
            IF (NLTEST (XNAME (I), USEBIT)) ^
               CALL NLSET (XNAME (I+1), USEBIT)
            'END'
         'ENDIF'
C      CALL OVLOD (OLPNA)
      CALL PNAMEL
C      CALL OVLOD (OLOBJ)
      CALL PNCHO
      CALL QUIT
      RETURN
      END
      'OUTFILE'   DEFLITAJH.FR
      SUBROUTINE  DEFLIT
      'INCLUDE'   NLISTCFTM.IN,
      'INCLUDE'   WFLAGSJHP.IN,
      INTEGER     NUM
      EXTERNAL    NLOPS
      LOGICAL     NLTEST
      'IF' (NLOPS (DFINED, NLX) .EQ. 0)
         'IF' (NLTEST (NLX, CBIT) .AND. NLTEST (NLX, USEBIT))
            FNLX = NLX
            CALL NDEFN
            NUM = NLOPS (CVALUE, NLX)
            CALL BLDBLK (NUM, WF1)
            'IF' (NLTEST (NLX, DPBIT))
               CALL BLDBLK (ISHFT (NUM, -8), WF1)
               'ENDIF'
            'ENDIF'
         'ENDIF'
      RETURN
      END
      'OUTFILE'   QUITAJH.FR
      SUBROUTINE  QUIT
      'INCLUDE'   LOGOSAJH.IN,
      'INCLUDE'   CODE1FTM.IN,
      'INCLUDE'   CTRLAJH.IN,
      'INCLUDE'   PRTCOMFTM.IN,
      'INCLUDE'   SSNAMES.IN,P
      'IF' (FLTCNT .EQ. 0)
         CALL EST ('NO', LBUF, 5, 6)
         'ELSE'
         CALL ESP (FLTCNT, LBUF, 1, 6)
         'ENDIF'
      CALL EST ('ERROR(S), COMPILATION COMPLETE', LBUF, 8, 37)
      CALL WRLIN (CO, LBUF, 38)
      CALL SGLPRT
      IF (PRINTF .NE. 0 .AND. IAND (PGECNT, 1) .NE. 0)CALL NPAGE
      CALL CLOSF (LO, IERR)
      CALL DELETE (SS,  SCR1)
      CALL DELETE (SS2, SCR2)
      RETURN
      END