/*************************************************************/
/*                                                           */
/*                                                           */
/*                     E C C E                               */
/*                                                           */
/*                                                           */
/*************************************************************/

GET "libhdr"

MANIFEST $(1
   fg             = FIRSTFREEGLOBAL
   fr             = fg + 100
   cr             = '*N'
   bs             = 8
   bell           = 7
   nul            = 0
   del            = 127
   deletechar     = 127   // In RDARGS
   casebit        = 'a'-'A'
   minusbit       = casebit
   plusbit        = #X80
   max.size       = 127
   rep            = 1
   txt            = 2
   scope          = 4
   sign           = 8
   delim          = 16
   numb           = 32
   ext            = 64
   err            = 128
   dig            = 0
   pc             = 1
   lpar           = 2
   comma          = 3
   rpar           = 4
   plus           = 5
   minus          = 6
   pling          = 7
   star           = 8
   termin         = 15

   F       = 0
   T       = 1
   L       = 2
   B       = 3

$)1

GLOBAL $(1
//                  VARIABLES
   sym.type       : fg
   ok             : fg + 1
   printed        : fg + 2
//Spare
   a              : fg + 4
   stopper        : fg + 5
   max.unit       : fg + 6
   pending.sym    : fg + 7
   com            : fg + 8
   link           : fg + 9
   text           : fg + 10
   num            : fg + 11
   lim            : fg + 12
   Main.in        : fg + 14
   Main.out       : fg + 15
   tty.in         : fg + 16
   tty.out        : fg + 17
   fbeg           : fg + 18
   lbeg           : fg + 19
   pp             : fg + 20
   fp             : fg + 21
   lend           : fg + 22
   fend           : fg + 23
   type           : fg + 24
   command        : fg + 25
   repeat.count   : fg + 26
   limit          : fg + 27
   pointer        : fg + 28
   last.unit      : fg + 29
   this.unit      : fg + 30
   pos            : fg + 31
   endpos         : fg + 32
   sym            : fg + 33
   number         : fg + 34
   pp.before      : fg + 35
   fp.before      : fg + 36
   ms             : fg + 37
   ms.back        : fg + 38
   ml             : fg + 39
   ml.back        : fg + 40
   mlen           : fg + 41
   to.upper.case  : fg + 42
   to.lower.case  : fg + 43
   log.out        : fg + 44
   blank.line     : fg + 45
   eprompt        : fg + 46
   noted          : fg + 47
   changes        : fg + 48
   note.file      : fg + 49
   in.second      : fg + 50
   com.prompt     : fg + 51
   buffer.size    : fg + 52
$)1

GLOBAL $(1
//                  PROCEDURES
   read.sym       : fr
   fail.with      : fr + 1
   read.item      : fr + 2
   percent        : fr + 3
   unchain        : fr + 4
   stack          : fr + 5
   analyse        : fr + 6
   scan.sign      : fr + 7
   scan.scope     : fr + 8
   scan.text      : fr + 9
   scan.repeat    : fr + 10
   execute        : fr + 11
   execute.unit   : fr + 12
   execute.command: fr + 13
   case.op        : fr + 14
   right          : fr + 15
   left           : fr + 16
   right.star     : fr + 17
   left.star      : fr + 18
   move           : fr + 19
   move.star      : fr + 20
   move.back.star : fr + 21
   insert         : fr + 22
   insert.back    : fr + 23
   verify         : fr + 24
   verify.back    : fr + 25
   find           : fr + 26
   find.back      : fr + 27
   load.file      : fr + 28
   move.back      : fr + 29
   local.echo     : fr + 30
   init.globals   : fr + 31
   copy.string    : fr + 32
   free.buffers   : fr + 33

$)