*COMDECK ALBLKDATA
      BLOCK DATA
*CALL ALCOMMON
      DATA MODEFLT / 0,0,0,0,1000000B/
      DATA INPUT,DIRUNIT, LIST /1,4,5/
      DATA BINARY1,BINARY2,TMPUNIT /2,3,6/
      DATA ERRFIL / 7 / 
      DATA ADLNMSK,ADPTRMS,ABSADMS /16000B,1777B,17777B/
      DATA MODNAME,LDADMSK /77777777777700000000B , 77777777B/
      DATA THNMASK,SYNRMSK /77777777777700000000B , 40000000B/
      DATA THDLMSK,PGVNMSK /20000000B , 4000000B/ 
      DATA DUMYMSK /2000000B/ 
      DATA OVNMASK,PVALMSK /77777777777700000000B , 1400000B/ 
      DATA PGVLMSK / 374000B /
      DATA BINOMSK /3777B/
      DATA FILLMSK / 10000000B /
      DATA BASEMSK / 10000000B /
      DATA ADRFLAG / 1000000B / 
      DATA SYNRSHF,THDLSHF,PGVLSHF /23,22,11/ 
      DATA ADLNSHF,ADPTSHF,PVALSHF /10,0,17/
      DATA ANAMASK,CVALMSK /77777777777700000000B , 20000000B/
      DATA APAGMSK,APRTMSK / 7600000B , 40000000B / 
      DATA APLNMSK,APAGSHF /177777B, 16/
      DATA PAGABLE,REVERSE,FORCE /1,0,3/
      DATA A,F,Z,ZERO,NINE,DOLLAR /1RA,1RF,1RZ,1R0,1R9,1R$/ 
      DATA BLANK,BLANKS,EQUALS,COMMA,LPAREN/1R ,1H ,1R=,1R,,1R(/
      DATA RPAREN,PLUS,MINUS,SLASH,COLON,ASTER/1R),1R+,1R-,1R/,1R:,1R*/ 
      DATA SAMAFLG/.FALSE./,SAMMFLG/.FALSE./,MDUFLAG/.FALSE./ 
      DATA SAMMASK/400000B/,MDUMASK/377B/,PEQNPMK/200000B/
         DATA PVALCMP/77777777777776377777B/,PVR/0/,
     1   PVP/400000B/,PVNP/1000000B/,PVF/1400000B/
      END 
C 
C 
