'HEAD'  INITIAL DATA VALUE DEFINITIONS
C     EDIT DATE   14JAN79  09:50
C     SOURCE FILE DDEFFTM.FS
C     AUTHOR      F. T. MICKEY
      'OUTFILE' BRACEDATA.FR
      BLOCK DATA
      'INCLUDE' BRACEFTM.IN,P
      DATA  BRACEX   /1/
      DATA  SELX     /1/
      DATA  LSX      /2/   WHSTRT   /30*0/
      DATA  SELXB    /1/
      DATA  NRFLS    /6/
      END
      'OUTFILE'   BLDPODATA.FR
      BLOCK DATA
      'INCLUDE'   BLDPOAJH.IN,P
      END
      'OUTFILE' CODE1DATA.FR
      BLOCK DATA
      'INCLUDE' CODE1FTM.IN,P
      DATA  WOPTR    /1/
      DATA  TLI      /1/
      DATA  BO       /3/
      DATA  SS       / 9/
      DATA  SS2      / 8/
      DATA  NRFCH    / 0/
      END
      'OUTFILE'   COMPDATA.FR
      BLOCK DATA
      'INCLUDE'   CPAREAJH.IN,P
      DATA     NESTX    / 1/
      DATA     PNESTX   / 1/
      DATA     CLX      / 2/
      DATA     BRCT     / 0/
      DATA     BROK     / 0/
      END
      'OUTFILE' CTRLDATA.FR
      BLOCK DATA
      'INCLUDE' CTRLAJH.IN,P
      DATA  LISTF, SNLPRT / 0, 1/
      DATA  SUMPRT   /0/
      DATA  SYMFLG   /0/
      DATA  PRINTF   /1/
      DATA  SKIP     /0/
      DATA  COMPFL   /2*0/
      DATA  LOCPRT   /1/
      DATA  USFLGS   /0/
      DATA  ORGFLG   /0/
      DATA  CTLUSE   /0/
      DATA  TTL      /'                '/
      DATA  DUMFLG   /0/
      END
      'OUTFILE'   CRUDATA.FR
      BLOCK DATA
      'INCLUDE'   CRUCOMJHP.IN,P
      END
      'OUTFILE' GENCDATA.FR
      BLOCK DATA
      'INCLUDE' GENCOMFTM.IN,P
      DATA  TSTSTK   /1/
      DATA  SWAP     /2/
      DATA  TOPDP    /3/
      DATA  NEXTDP   /4/
      DATA  TOPSP    /5/
      DATA  NEXTSP   /6/
      DATA  SAVCAL   /7/
      DATA  OUT      /8/
      DATA  GETSP    /9/
      DATA  SMODEX   /10/
      DATA  SETX     /11/
      END
      'OUTFILE' IODATA.FR
      BLOCK DATA
      'INCLUDE' IOCONFTM.IN,P
      DATA  IOFLAG   /0/
      DATA  IOINDX   /1/
C     DATA  IONAME   / '<7>ENTER', '<7>INTRP /
N     DATA  IONAME   / 1861, 'NTER',  1865, 'NTRP'/
P     DATA  IONAME   /17671, 'NTER', 18695, 'NTRP'/
      END
      'OUTFILE'   LCFNCDATA.FR
      BLOCK DATA
      'INCLUDE'   LCFUNCAJH.IN,P
      DATA        CODE   / 1/
      DATA        NOUNLC / 2/
      DATA        DATALC / 3/
      DATA        COMLOC / 4/
      DATA        FBLOCK / 5/
      DATA        ZREL   /14/
      DATA        ABSLC  /15/
      DATA        CBTAB  /15*0/
      DATA        CBX    /   5/
      DATA        LCTAB  /15*0/
      END
      'OUTFILE'   LEVELDATA.FR
      BLOCK DATA
      'INCLUDE'   LEVELSAJH.IN,P
      DATA  NLEVEL   /1/
      DATA  LLEVEL   /2/
      DATA  ILEVEL   /3/
      DATA  CLEVEL   /4/
      END
      'OUTFILE'   LISTCDATA.FR
      BLOCK DATA
      'INCLUDE'   LISTCMAJH.IN,P
      DATA  LINE  /40*8224/
      DATA  OFFSET   / 0/
      DATA  LENTER   / .FALSE. /
      END
      'OUTFILE'   LCNSTDATA.FR
      BLOCK DATA
      'INCLUDE'   LCONSTAJH.IN,P
      DATA  LOWWF    / 1/  // OBJECT WORD AND WORD FLAG
      DATA  LTLNA    / 2/  // TRANSFER LIST NAME
      DATA  LLPOOL   / 3/  // LITERAL POOL
      DATA  LLNAME   / 4/  // NAME DEFINITION
      DATA  LMOVEP   / 5/  // BSS 0
      DATA  LBSS     / 6/  // BSS N
      DATA  LEXEQU   / 7/  // EXTERNAL EQU
      DATA  LNLEQU   / 8/  // NAME: NUMBER
      END
      'OUTFILE' LOGOSDATA.FR
      BLOCK DATA
      'INCLUDE' LOGOSAJH.IN,P
      DATA     ADRFLG   /2/
      DATA     DPVFLG   /3/
      DATA     VALFLG   /1/
      DATA     PI       /4/
      DATA     XBBL     /'  '/
      DATA     XA       /65/
      DATA     XF       /70/
      DATA     XZERO    /48/
      DATA     LOCSUP   /0/
      DATA     LC       /0/
      DATA     LCI      /1/
      DATA     LODLCI   /1/
      DATA     LODLCV   /0/
      DATA     LDLCVO   /0/
      DATA     MAXLCV   /0/
      DATA     OVCHN    /0/
      DATA     LO       /12/
      DATA     CI       /10/
      DATA     CO       /11/
      DATA     LOGICF   /0/
      DATA     J        /81/
      DATA     CRUCNT   /0/
      DATA     FLTCNT   /0/
      END
      'OUTFILE' NLARADATA.FR
      BLOCK DATA
      'INCLUDE' NLARAYFTM.IN,P
      DATA     NLIST /500*0/ NTEXTX /500*0/ NLOC /500*0/
      END
      'OUTFILE' NLISTDATA.FR
      BLOCK DATA
      'INCLUDE' NLISTCFTM.IN,P
      DATA  NSIZE /16/
      DATA  NLX   /1/
      DATA  FNLX  /1/
      DATA  REMNLX   /1/
      DATA  NLSTRT   /1/
      DATA  NLSTOP   /499/
      DATA  NLSIZE   /499/
      DATA  SRCHST   /1/
      DATA  NTSTRT   /1/
      DATA  NTSTOP   /1500/
      DATA  NTSIZE   /1500/
      DATA  PARFLG   /0/
      DATA  SPARFL   /0/
      DATA  NLWRDS   /0/
      DATA  TX       /1/
      DATA  NLENO    /0/
      DATA  STDMD    /0/
      DATA  MSHIFT   /13/
      DATA  REGCNT   /0/
      DATA  NULLX    /0/
      DATA  SPMODE   /0/
      DATA  DPMODE   /1/
      DATA  DFINED   /1/
      DATA  CVALUE   /2/
      DATA  NLXLCI   /3/
      DATA  ENEXTD   /4/
      DATA  NAMAT0   /5/
      DATA  NAMCON   /6/
      DATA  NLMODE   /7/
      DATA  NAMLOC   /8/
      DATA  REGNUM   /9/
      DATA  PARBIT   /128/
      DATA  OPBIT    /64/
      DATA  LOCALB   /32/
      DATA  EXTBIT   /16384/
      DATA  STRBIT   /16384/
      DATA  DPBIT    /8192/
      DATA  CBIT     /2048/
      DATA  PBIT     /1024/
      DATA  EPBIT    /512/
      DATA  IOBIT    /256/
      DATA  ARBIT    /128/
      DATA  EXDBIT   /64/
      DATA  TPLBIT   /32/
      DATA  USEBIT   /16/
      DATA  LCMASK   /15/
      DATA  MDMASK   /12288/
      END
      'OUTFILE' OPERSDATA.FR
      BLOCK DATA
      'INCLUDE' OPERSAJH.IN,P
      DATA     NINE     /1/
      DATA     COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE ^
               /   2,     3,      4,     5,   6,    7,     8/
      DATA     RBRACE, LBRACE, RETOP, CRUTCH ^
               /    9,     10,    11,     12/
      DATA     LPAREN, RPAREN, LBK, RBK ^
               /   13,     14,  15,  16/
      DATA     EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW ^
               /  17,     18,  19,  20,   21,     22,    23/
      DATA     PLUS, MINUS, MULT, DIVIDE, MODOP ^
               / 24,    25,   26,     27,    28/
      DATA     OROP, ANDOP, AOROP, XOROP, AANDOP ^
               / 29,    30,    31,    32,     33/
      DATA     LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT ^
               /   34,     35,     36,     37,     38,     39/
      DATA     NEG, UPARO, DNARO, COM ^
               /40,    41,    42,  43/
      DATA     LOC, GIZZY, QUOTE, ZRL, TEMPL ^
               /44,    45,    46,  47,    48/
      DATA     SP, DP, ST, HEX ^
              /49, 50, 51,  52/
      DATA     ATSIGN ^
              /    53/
      END
      'OUTFILE'   OPINXDATA.FR
      BLOCK DATA
      'INCLUDE'   OPINXJHP.IN,P
      'EJECT'
C     DATA VALUES PROVIDE INDEXING TO CRUTCH CODE TABLES
C     STRUCTURE:
C        LEFT HALF:  IDENTIFIES CRUTCH CODE TABLE
C                    1 (256)  IMPLID
C                    2 (512)  RELTIV
C                    3 (768)  GROUP1
C                    4 (1024) OTHERS
C        RIGHT HALF: INDEX INTO TABLE
      DATA  ADCINX   / 769/
      DATA  ANDINX   / 776/
      DATA  ASLINX   /1025/
      DATA  BITINX   /1036/
      DATA  CMPINX   / 775/
      DATA  CPXINX   /1047/
      DATA  CPYINX   /1058/
      DATA  DECINX   /1069/
      DATA  EORINX   / 778/
      DATA  INCINX   /1080/
      DATA  JMPINX   /1091/
      DATA  JSRINX   /1102/
      DATA  LDAINX   / 781/
      DATA  LDXINX   /1113/
      DATA  LDYINX   /1124/
      DATA  LSRINX   /1135/
      DATA  ORAINX   / 784/
      DATA  ROLINX   /1146/
      DATA  RORINX   /1157/
      DATA  SBCINX   / 787/
      DATA  STAINX   / 790/
      DATA  STXINX   /1168/
      DATA  STYINX   /1179/
      END
      'OUTFILE'   PNADATA.FR
      BLOCK DATA
      'INCLUDE'   PNACOMAJH.IN,P
      END
      'OUTFILE' PRTCMDATA.FR
      BLOCK DATA
      'INCLUDE' PRTCOMFTM.IN,P
      DATA     LBUF     /66*8224/  // '  '
      DATA     LCOUNT   /0/
      DATA     PGECNT   /0/
      DATA     UHEAD    /15*8224/  // '  '
      DATA     CHEAD    /'MOS LOGOS (2.0G)'/
      END
      'OUTFILE' PPCOMDATA.FR
      BLOCK DATA
      'INCLUDE' PSHCOMFTM.IN,P
      DATA  PX    /1/
      DATA  PEND  /10/     // PSTACK SIZE - 2
      END
      'OUTFILE' REGSDATA.FR
      BLOCK DATA

      'INCLUDE' REGSJHP.IN,P
      DATA  AREG  / 1 /
      DATA  XREG  / 2 /
      DATA  YREG  / 3 /
      DATA  NZREG /11/
      END
      'OUTFILE'   RMCDATA.FR
      BLOCK DATA
      'INCLUDE'   RMCODES.IN,P
      DATA  CLRACV   / 1 /
      DATA  CLRACX   / 2 /
      DATA  CLRSTA   / 3 /
      DATA  TRAREG   / 4 /
      DATA  SAVREG   / 5 /
      DATA  CTFREE   / 6 /
      DATA  SETREG   / 7 /
      END
      'OUTFILE'   SETDATA.FR
      BLOCK DATA
      'INCLUDE'   SETCOMJHP.IN,P
      DATA  LDAZP    /165/
      DATA  LDAABS   /173/
      DATA  LDAIMM   /169/
      DATA  LDAABY   /185/
      DATA  LDAINY   /177/
      DATA  LDYZP    /164/
      DATA  LDYABS   /172/
      DATA  LDYIMM   /160/
      DATA  SLEFT    / 19/
      DATA  SRIGHT   / 20/
      END
      'OUTFILE' SRCDFDATA.FR
      BLOCK DATA
      'INCLUDE' SRCDFSFTM.IN,P
      DATA     QUOTEX   /0/
      DATA     CONTRL   /10023/   // ''
      DATA     HEAD     /'HE'/
      DATA     EJECT    /'EJ'/
      DATA     BLANK    /32/
      DATA     SLASH    /47/
      DATA     CARDC    /0/
      DATA     EOCC     /13/
      DATA     ENDCRD   /10023, 'END '/
      DATA     SRCEND   /80/
      DATA     SLEN     /72/
      DATA     TF    /'TT', 'TT', 'FF'/
      END
      'OUTFILE' SRCXDDATA.FR
      BLOCK DATA
      'INCLUDE' SRCXDFFTM.IN,P
      DATA     FCHRTS   /1/
      DATA     SCFLAG   /0/
      DATA     QMODE    /0/
      DATA     NOTINQ   /.TRUE./
      DATA     LBIAS    /0/
      DATA     QINDEX   /0/
      END
      'OUTFILE'   STACKDATA.FR
      BLOCK DATA
      'INCLUDE'   STKDEFA.IN,P
      'INCLUDE'   STKDEFB.IN,P
      'INCLUDE'   STKDEFC.IN,P
      'INCLUDE'   STKDEFD.IN,P
      'INCLUDE'   STKDEFE.IN,P
      'INCLUDE'   STKDEFF.IN,P
      DATA     OCBIT    /256/   // 0100
      DATA     FUNBIT   / 64/   // 0040
      DATA     STKSIZ   / 20/
      END
      'OUTFILE' SYMDATA.FR
      BLOCK DATA
      'INCLUDE' SYMBOLFTM.IN,P
      DATA  SYMTBL   /0, 29, 46, 18, 12, -1, 30, 45, ^
                     13, 14, 26, 24,  2, 25,  4, 27, ^
                      1,  1,  1,  1,  1,  1,  1,  1, ^
                      1,  1,  5,  3, 21, 17, 19, -1, ^
                     53,  0,  0,  0,  0,  0,  0,  0, ^
                      0,  0,  0,  0,  0,  0,  0,  0, ^
                      0,  0,  0,  0,  0,  0,  0,  0, ^
                      0,  0,  0, 15, -1, 16, 41, -1, ^
                      9/
      END
      'OUTFILE' TEMPSDATA.FR
      BLOCK DATA
      'INCLUDE' TEMPSFTM.IN,P
      DATA     DTX    /0/
      DATA     STX    /0/
      END
      'OUTFILE' WFDATA.FR
      BLOCK DATA
      'INCLUDE' WFLAGSJHP.IN,P
      'EJECT'
      DATA  WF1   /  1 /
      DATA  WF2   /  2 /
      DATA  WF3   /  3 /
      DATA  WF4   /  4 /
      DATA  WF5   /  5 /
      DATA  WF6   /  6 /
      DATA  WF7   /  7 /
      DATA  WF8   /  8 /
      DATA  WF9   /  9 /
      DATA  WF10  / 10 /
      DATA  WF11  / 11 /
      DATA  WF12  / 12 /
      DATA  WF13  / 13 /
      DATA  WF14  / 14 /
      DATA  WF15  / 15 /
      DATA  WF16  / 16 /
      DATA  WF17  / 17 /
      END
      'OUTFILE'   XNAMEDATA.FR
      BLOCK DATA
      'INCLUDE'   XNAMEAJH.IN,P
      DATA     XNX      /    1/
      DATA     XNXMAX   /   99/
      DATA     XNAME    /100*0/
      END