/***************************************************************
*    g l o b a l   v a r i a b l e   a n d   c o n s t a n t   *
*                d a t a   d e c l a r a t i o n               *
***************************************************************/
  declare equ literally 'literally';
  declare init equ 'initial';
  declare
  maxline  equ  '66',      /* maximum page length */
  maxout  equ  '128',      /* maximum output line length */
  pagewidth equ  '70',
  huge  equ  '100',
  buflen  equ  '128',      /* the buffer length */
  lsize  equ  '128',
  eos  equ  '1',           /* end of string */
  unknown  equ  '0',
  newline  equ  '2h',      /* end of line */
  eofile  equ  '1ah',      /* end of file character */
  cr  equ  '0dh',
  lf  equ  '10',
  true  equ  '1',
  false  equ  '0',
  yes  equ  '1',
  no  equ  '0',
  pagelen  equ  '66',
  backspace equ  '08h',
  underline equ  '05h',
  tab  equ  '09',
  pluss  equ  '2bh',
  minuss  equ  '2dh',
  blank  equ  '20h',
  s$quote  equ  '27h',
  d$quote  equ  '22h',
  pagenum  equ  '25h';

$eject
/* input and output file parameter */

declare
  eofset byte external,    /* end of file flag */
  actual$count  address external,
  input$count  address external,
  output$count  address external,
  status    address external,
  aft$in address external,             /* aftn for input file */
  aft$out address external;            /* aftn for output file */


/* page layout parameter */

declare
  cur$page byte external ,     /* current output page number */
  newpage byte external ,      /* next output page number */
  lineno  byte external ,      /* next line to be printed */
  plval byte external ,  /* page length in lines */
  m1$val byte external ,       /* top margin include header */
  m2$val byte external ,       /* margin after header */
  m3$val byte external ,       /* margin after last text line */
  m4$val byte external ,       /* bottom margin include footer */
  bottom byte external,      /* last live line */
  header (maxout) byte external,
  footer (maxout) byte external,

  headflag byte external,
  footflag byte external,
  fnot$flag byte external,
$eject
/* line indent, spacing, margin parameters */

  spval  byte external,                /* blank space line value */
  fill  byte external,      /* rigth margin justification flag */
  lsval  byte external ,       /* current line spacing */
  inval  byte external ,       /* current indent */
  rmval  byte external ,  /* right margin value */
  tival  byte external ,       /* current temporary indent */

  ceval  byte external ,       /* number of lines to be centered */
  ulval  byte external ,       /* number of lines to be underlined */
  argtyp  byte external;               /* argument type */


/* buffer and pointer for input and output */

declare  
  outbuf (maxout) byte external,   /*output buffer*/
  outp byte external ,     /* last char position in outbuf */
  outw byte external ,     /* width of text currently in outbuf */
  outwds byte external ,   /* number of words in outbuf */
  wrdbuf (maxout) byte external,   /* word buffer */

  wordp  byte external,
  inbuf (buflen) byte external,    /* input file buffer */
  ibp   byte external,             /* inbuf pointer */
  lbuff (lsize) byte external,     /* line buffer */

  blankbuf (lsize) byte external ,         
  lbp  byte external,              /* pointer for lbuff */
  lblen  byte external,            /* line length */
  textbuf (buflen) byte external,  /* output text buffer */
  tbp  byte external;              /* text buffer pointer */



/* parameter for footnote */

declare rmjust  byte external;
declare error$flag byte external ;