INTEGER FUNCTION SOPLST (DUM) 
    
      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     NAME (9)  
      COMMON      /NLNAME/ NAME 
    
      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     NLIST (500)   
      INTEGER     NLOC  (500)   
      INTEGER     NTEXT (1500)  
      INTEGER     NTEXTX (500)  
      COMMON   /NARAY/  NLIST   
      COMMON   /NARAY/  NLOC
      COMMON   /NARAY/  NTEXT   
      COMMON   /NARAY/  NTEXTX  
    
      INTEGER  NINE 
      INTEGER  COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE
      INTEGER  RBRACE, LBRACE, RETOP, CRUTCH
      INTEGER  LPAREN, RPAREN, LBK, RBK 
      INTEGER  EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW 
      INTEGER  PLUS, MINUS, MULT, DIVIDE, MODOP 
      INTEGER  OROP, ANDOP, AOROP, XOROP, AANDOP
      INTEGER  LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT   
      INTEGER  NEG, UPARO, DNARO, COM   
      INTEGER  LOC, GIZZY, QUOTE, ZRL, TEMPL
      INTEGER  SP, DP, ST, HEX  
      INTEGER  ATSIGN   
      INTEGER  ICLP06   
      COMMON /OPERS/     NINE   
      COMMON /OPERS/     COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE  
      COMMON /OPERS/     RBRACE, LBRACE, RETOP, CRUTCH  
      COMMON /OPERS/     LPAREN, RPAREN, LBK, RBK   
      COMMON /OPERS/     EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW   
      COMMON /OPERS/     PLUS, MINUS, MULT, DIVIDE, MODOP   
      COMMON /OPERS/     OROP, ANDOP, AOROP, XOROP, AANDOP  
      COMMON /OPERS/     LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT 
      COMMON /OPERS/     NEG, UPARO, DNARO, COM 
      COMMON /OPERS/     LOC, GIZZY, QUOTE, ZRL, TEMPL  
      COMMON /OPERS/     SP, DP, ST, HEX
      COMMON /OPERS/    ATSIGN  
      COMMON /OPERS/    ICLP06  
      INTEGER NLXTS, TS, DUM
      INTEGER GCHAR 
      NLXTS = NLX   
      TS = GCHAR (NAME, 1)  
      TS = TS + OPBIT   
      CALL PCHAR (NAME, 1, TS)  
      IF (.NOT. (PSYMB .NE. GIZZY))GO TO 13006  
    
      CALL FAULTP (9)   
13006 CONTINUE  
    
      CALL SEARCH   
      SOPLST = NLOC (NLX)   
      IF (.NOT. (SOPLST .EQ. -1))GO TO 13008
    
      CALL FAULTP (9)   
      SOPLST = COMMA
13008 CONTINUE  
    
      NLX = NLXTS   
      RETURN
      END