# SMMMAI - STAGING MEMORY MANAGER MAIN PROGRAM
#
# PROGRAMMER: CARL T. MICKELSON
#             GOODYEAR AEROSPACE CORP
#             1210 MASSILLON ROAD
#             AKRON, OHIO 44315
#
# PROJECT: MASSIVELY PARALLEL PROCESSOR (MPP)
#
# DATE: APRIL 1983
#
##
INCLUDE "SMMDEF.RAT"
PROGRAM SMMMAI
INCLUDE "CERRDF.RAT"
INTEGER OPNSYS   #-SYSTEM FILE OPEN FUNCTION
LOGICAL SMMPRC   #-STAGER ALGORITHM DRIVER FUNCTION
INTEGER OPNSTA,INDX,LUNDAT(6)
LOGICAL TERMIN,BADFLG,ERRFLG
 
# OPEN ERROR OUTPUT DEVICE
OPEN(UNIT=ERROUT,NAME='TI:',TYPE='NEW',CARRIAGECONTROL='FORTRAN')
# OPEN ERROR MESSAGE FILE
MSGSOK = .FALSE.
OPEN(UNIT=ERRMSGLUN,NAME='LB:[2,1]SMMERRMSG.SYS',TYPE='OLD',READONLY,
     SHARED,ACCESS='DIRECT',FORM='UNFORMATTED',ERR=10)
MSGSOK = .TRUE.
10 CONTINUE
IF (.NOT. MSGSOK) WRITE(ERROUT,100)
REPEAT $(
   CALL GETCMD
   ERRFLG = .FALSE.
   INDX = DELFIL
   IF (OPNSYS(STDOUT,OUTPUTONLY) .NE. EROR) $(
      IF (OPNSYS(LSTOUT,OUTPUTONLY) .NE. EROR) $(
         IF (OPNSYS(SMMOUT,OUTPUTONLY) .NE. EROR) $(
            REPEAT $(
               OPNSTA = OPNSYS(STDIN,INPUTONLY)
               IF (OPNSTA == NEWLINE) BREAK
               IF (OPNSTA == EROR) NEXT
               CALL GETLUN(STDIN,LUNDAT)
               TERMIN = .FALSE.
               IF (IAND(LUNDAT(3),4) .NE. 0) TERMIN = .TRUE.
               BADFLG = SMMPRC(TERMIN)
               ERRFLG = ERRFLG .OR. BADFLG
               CALL CLOSE(STDIN,SAVFIL)
               $)
            IF (.NOT. ERRFLG) INDX = SAVFIL
            CALL CLOSE(SMMOUT,SAVFIL)
            $)
         CALL CLOSE(LSTOUT,SAVFIL)
         $)
      CALL CLOSE(STDOUT,INDX)
      $)
   $)
#-FORMAT STATEMENTS
100 FORMAT(' SMM -- MESSAGE FILE OPEN ERROR, MESSAGES SUPPRESSED')
END