C     EDIT DATE     15NOV78 13:00
C     SOURCE FILE   RSTDEFAPB.IN
C     AUTHOR        A.P. BUCHALTER
C     SOME CONSTANTS FOR REGSAVEAPB.FS (REGISTER STACK)
C     SAVSIZ= NUMBER OF ITEMS SAVED FOR EACH LEVEL
      INTEGER SAVSIZ
C     MAXLEV(1)=# LEVELS FOR BOOLEAN, (2)=# LEVELS CONDITIONAL
      INTEGER MAXLEV(2)
C     SCRLEV= LEVEL NUMBER FOR SCRATCH LEVEL
      INTEGER SCRLEV
C     LEVST= SEE REGSAVEAPB.FS
      INTEGER LEVST(2)
      DATA  SAVSIZ/15/
C     BOOLEAN STARTS AT 2
      DATA  MAXLEV/6,2/
      DATA  SCRLEV/7/
      DATA  LEVST/-2,4/