SUBROUTINE GSAVE INTEGER STK (20, 13) INTEGER NAMEX (40) INTEGER OPX, STKSIZ, OCBIT, FUNBIT, SBIAS INTEGER ICLP14 COMMON /SDEFS/ STK, OPX, STKSIZ, OCBIT, FUNBIT, SBIAS COMMON /SDEFS/ ICLP14 EQUIVALENCE (STK (1,1), NAMEX (1)) INTEGER MODE (40), SUBX (20), SUBXM (20), BIAS (40) EQUIVALENCE (STK (1, 3), MODE (1)) EQUIVALENCE (STK (1, 2), SUBX (1)) EQUIVALENCE (STK (1, 4), SUBXM (1)) EQUIVALENCE (STK (1, 5), BIAS (1)) INTEGER CODE INTEGER NOUNLC INTEGER DATALC INTEGER COMLOC INTEGER FBLOCK INTEGER ZREL INTEGER ABSLC INTEGER CBTAB (15) INTEGER CBX INTEGER LCTAB (15) COMMON /LCFUNC/ CODE COMMON /LCFUNC/ NOUNLC COMMON /LCFUNC/ DATALC COMMON /LCFUNC/ COMLOC COMMON /LCFUNC/ FBLOCK COMMON /LCFUNC/ ZREL COMMON /LCFUNC/ ABSLC COMMON /LCFUNC/ CBTAB COMMON /LCFUNC/ CBX COMMON /LCFUNC/ LCTAB 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 AREG, XREG, YREG, NRREGS INTEGER STATUS (10), STAREG, STXREG, STYREG INTEGER REGS (10) INTEGER ACTREG (2), ACTLO, ACTHI INTEGER NZREG INTEGER ICLP10 COMMON / REGS / AREG, XREG, YREG, NRREGS COMMON / REGS / STATUS, REGS, ACTREG, NZREG COMMON / REGS / ICLP10 EQUIVALENCE (ACTLO, ACTREG (1)) EQUIVALENCE (ACTHI, ACTREG (2)) EQUIVALENCE (STAREG, STATUS (1)) EQUIVALENCE (STXREG, STATUS (2)) EQUIVALENCE (STYREG, STATUS (3)) INTEGER DTX INTEGER STX COMMON /STEMP/ DTX COMMON /STEMP/ STX 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 TS, AS, THIS, OTHER, TIMES, STKX INTEGER STAXY (3) INTEGER INDNAM DATA STAXY / 141, 142, 140/ IF (.NOT. (ACTHI .NE. 0))GO TO 13008 IF (.NOT. (ACTHI .EQ. AREG))GO TO 13010 THIS = 1 OTHER = 0 GO TO 13011 13010 CONTINUE THIS = 0 OTHER = 1 13011 CONTINUE NAME (1) = 810 NLX = INDNAM (DTX, NOUNLC, 2) CALL BLDOP (141, WF8, THIS, NLX, WF7) TS = ACTREG (OTHER+1) IF (TS .EQ. XREG) CALL BLDOP (142, WF8, OTHER, NLX, WF7) IF (.NOT. (TS .GT. YREG))GO TO 13012 CALL BLDOP (165, WF5, OTHER, REGS (TS), WF7) CALL BLDOP (141, WF8, OTHER, NLX, WF7) 13012 CONTINUE STKX = STATUS (AREG) NAMEX (STKX) = NLX STATUS (AREG) = 0 STATUS (TS) = 0 ACTHI = 0 13008 CONTINUE DO 13014 AS = AREG, YREG STKX = STATUS (AS) IF (.NOT. (STKX .NE. 0))GO TO 13016 NAME (1) = 803 NLX = INDNAM (STX, NOUNLC, 1) CALL BLDOP (STAXY (AS), WF8, 0, NLX, WF7) STATUS (AS) = 0 NAMEX (STKX) = NLX 13016 CONTINUE 13014 CONTINUE ACTLO = 0 DO 13018 AS = 4, NRREGS STKX = STATUS (AS) IF (.NOT. (STKX .NE. 0))GO TO 13020 IF (.NOT. (MODE (STKX) .EQ. DPMODE))GO TO 13022 TIMES = 2 NAME (1) = 810 NLX = INDNAM (DTX, NOUNLC, 2) GO TO 13023 13022 CONTINUE TIMES = 1 NAME (1) = 803 NLX = INDNAM (STX, NOUNLC, 1) 13023 CONTINUE DO 13024 THIS = 1, TIMES CALL BLDOP (165, WF8, THIS - 1, REGS (AS), WF7) CALL BLDOP (141, WF8, THIS - 1, NLX, WF7) 13024 CONTINUE STATUS (AS) = 0 NAMEX (STKX) = NLX 13020 CONTINUE 13018 CONTINUE RETURN END