SUBROUTINE BLDBLK (OBWORD, WFLAG) 
 
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      INTEGER     NEXT,   NUMBER, I,      IOTYPE 
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP 
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      INTEGER ICLP05 
      LOGICAL     ENDOK,CONEND 
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE 
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N 
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX 
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS 
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP 
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      COMMON   /LOGOS/  ICLP05 
      COMMON   /LOGOS/  ENDOK,CONEND 
 
      INTEGER  WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12,WF13,W
     1F14,WF15,WF16,WF17 
      INTEGER  ICLP16 
      COMMON   / WF / WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12
     1,WF13,WF14,WF15,WF16,WF17 
      COMMON   / WF / ICLP16 
 
      INTEGER     WOPTR,  WO (64), TLI,     TL (128) 
      INTEGER     BO,     SS,      SS2,     NRFCH 
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL 
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH 
 
      INTEGER  NI,     NJ,     NK 
      INTEGER  NSIZE 
      INTEGER  NLX,    FNLX,   REMNLX, OVNLX,  TNAME 
      INTEGER  NLSTRT, NLSTOP, NLSIZE, SRCHST 
      INTEGER  NTSTRT 
      INTEGER  NTSTOP 
      INTEGER  NTSIZE 
      INTEGER  PARFLG 
      INTEGER  SPARFL 
      INTEGER  NLWRDS 
      INTEGER  TX 
      INTEGER  NLENO 
      INTEGER  STDMD 
      INTEGER  MSHIFT 
      INTEGER  REGCNT 
      INTEGER  NULLX 
      INTEGER  STPTRX 
      INTEGER  SPMODE 
      INTEGER  DPMODE 
      INTEGER  SPECMD 
      INTEGER  ENFLAG 
      INTEGER  DFINED 
      INTEGER  CVALUE 
      INTEGER  NLXLCI 
      INTEGER  ENEXTD 
      INTEGER  NAMAT0 
      INTEGER  NAMCON 
      INTEGER  NLMODE 
      INTEGER  PARBIT 
      INTEGER  OPBIT 
      INTEGER  LOCALB 
      INTEGER  REGBIT 
      INTEGER  EXTBIT 
      INTEGER  STRBIT 
      INTEGER  DPBIT 
      INTEGER  CBIT 
      INTEGER  PBIT 
      INTEGER  EPBIT 
      INTEGER  IOBIT 
      INTEGER  ARBIT 
      INTEGER  EXDBIT 
      INTEGER  TPLBIT 
      INTEGER  USEBIT 
      INTEGER  LCMASK 
      INTEGER  MDMASK 
      INTEGER  NAMLOC, REGNUM 
      COMMON   /NLIST/     NI 
      COMMON   /NLIST/     NJ 
      COMMON   /NLIST/     NK 
      COMMON   /NLIST/     NSIZE 
      COMMON   /NLIST/     NLX 
      COMMON   /NLIST/     FNLX 
      COMMON   /NLIST/     REMNLX 
      COMMON   /NLIST/     OVNLX 
      COMMON   /NLIST/     TNAME 
      COMMON   /NLIST/     NLSTRT 
      COMMON   /NLIST/     NLSTOP 
      COMMON   /NLIST/     NLSIZE 
      COMMON   /NLIST/     SRCHST 
      COMMON   /NLIST/     NTSTRT 
      COMMON   /NLIST/     NTSTOP 
      COMMON   /NLIST/     NTSIZE 
      COMMON   /NLIST/     PARFLG 
      COMMON   /NLIST/     SPARFL 
      COMMON   /NLIST/     NLWRDS 
      COMMON   /NLIST/     TX 
      COMMON   /NLIST/     NLENO 
      COMMON   /NLIST/     STDMD 
      COMMON   /NLIST/     MSHIFT 
      COMMON   /NLIST/     REGCNT 
      COMMON   /NLIST/     NULLX 
      COMMON   /NLIST/     STPTRX 
      COMMON   /NLIST/     SPMODE 
      COMMON   /NLIST/     DPMODE 
      COMMON   /NLIST/     SPECMD 
      COMMON   /NLIST/     ENFLAG 
      COMMON   /NLIST/     DFINED 
      COMMON   /NLIST/     CVALUE 
      COMMON   /NLIST/     NLXLCI 
      COMMON   /NLIST/     ENEXTD 
      COMMON   /NLIST/     NAMAT0 
      COMMON   /NLIST/     NAMCON 
      COMMON   /NLIST/     NLMODE 
      COMMON   /NLIST/     PARBIT 
      COMMON   /NLIST/     OPBIT 
      COMMON   /NLIST/     LOCALB 
      COMMON   /NLIST/     REGBIT 
      COMMON   /NLIST/     EXTBIT 
      COMMON   /NLIST/     STRBIT 
      COMMON   /NLIST/     DPBIT 
      COMMON   /NLIST/     CBIT 
      COMMON   /NLIST/     PBIT 
      COMMON   /NLIST/     EPBIT 
      COMMON   /NLIST/     IOBIT 
      COMMON   /NLIST/     ARBIT 
      COMMON   /NLIST/     EXDBIT 
      COMMON   /NLIST/     TPLBIT 
      COMMON   /NLIST/     USEBIT 
      COMMON   /NLIST/     LCMASK 
      COMMON   /NLIST/     MDMASK 
      COMMON   /NLIST/     NAMLOC, REGNUM 
 
      INTEGER  LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS 
      INTEGER  LEXEQU, LNLEQU 
      COMMON   /LCON/   LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS 
      COMMON   /LCON/   LEXEQU, LNLEQU 
      INTEGER OBWORD, OW, WFLAG, WF, PRIORS 
      INTEGER WFSTEP (17) 
      LOGICAL     NLTEST 
      DATA WFSTEP / 1,0,0,1,2,0,0,3,0,0,0,0,0,0,0,0,0 / 
      DATA PRIORS / 0/ 
      OW = OBWORD 
      WF = WFLAG 
      IF (.NOT. (WF .EQ. WF7 .OR. WF .EQ. WF12 .OR. WF .EQ. WF13 .OR. WF
     1 .EQ. WF16))GO TO 13000 
 
      IF (.NOT. (OW .NE. 0))GO TO 13002 
 
      N = IAND (OW, 32767) 
      IF (.NOT. (NLTEST (N, REGBIT)))GO TO 13004 
 
      CALL FAULTP (35) 
      OW = NULLX 
13004 CONTINUE 
 
      IF (.NOT. (N .EQ. STPTRX))GO TO 13006 
 
      CALL FAULTP (70) 
      OW = NULLX 
13006 CONTINUE 
 
      CALL NLSET (N, USEBIT) 
      GO TO 13003 
13002 CONTINUE 
 
      CALL FAULTP (10) 
      OW = NULLX 
13003 CONTINUE 
 
13000 CONTINUE 
 
 
      IF (.NOT. (WF .NE. WF6 .OR. OW .NE. 0))GO TO 13008 
 
      WO (WOPTR) = WF 
      WO (WOPTR+1) = OW 
      WOPTR = WOPTR + 2 
      IF (WOPTR .GE. 64) CALL WRITWO 
      CALL LIST (LOWWF, OW, WF) 
      IF (.NOT. (WF .EQ. WF5 .OR. WF .EQ. WF8))GO TO 13010 
 
      PRIORS = WFSTEP (WF) 
      GO TO 13011 
13010 CONTINUE 
 
      IF (.NOT. (WF .NE. WF6))GO TO 13012 
 
      IF (WF .EQ. WF7 .AND. PRIORS .EQ. 0) PRIORS = 2 
      LC = LC + WFSTEP (WF) + PRIORS 
      PRIORS = 0 
13012 CONTINUE 
 
13011 CONTINUE 
 
13008 CONTINUE 
 
      IF (TLI .GE. 125) CALL FAULTP (89) 
      RETURN 
      END