SUBTITLE 1
      *FORNAT OF FILE BLOCK
&FILENUMBER AWORD 0
&FILENAME AWORD 1
&FILEUS AWORD (&FILENAME+4)
&FILESTATUS AWORD (&FILEUS+2)
&FILEMARGIN AWORD (&FILESTATUS+1)
&FILEROUTE AWORD (&FILEMARGIN+1)
&FILECURR AWORD (&FILEROUTE+1)
&FILEBUFFER AWORD (&FILECURR+2)
&FILEBUFDR AWORD (&FILEBUFFER+2)  *ACTUAL BUFFER DESC
&FILEENDGOTO AWORD (&FILEBUFDR+2)
&FILERECNUMB AWORD (&FILEENDGOTO+1)
&FILEHDLENG AWORD (&FILERECNUMB+1)
 SUBTITLE 1
      *STATUS BITS FOR FILE STATUS
&NULLSTATUS AWORD 0
&FILEMODEIN AWORD 1
&FILEMODEOUT AWORD 2
&FILEMODEDEL AWORD 32
&ASSDSTATUS AWORD 4
&SELDSTATUS AWORD 8
&ATENDSTATUS AWORD 16
 SUBTITLE 1
      *OTHER ATVS
&MAXFILEBLKS AWORD 16  *MAX NO OF FILES
&FBTSZ AWORD (&MAXFILEBLKS*2)  *FILE BLOCK TABLE SIZE
&FILEBUFSIZE AWORD 132  *MAX BUFFER SIZE
&FILEDEFMARG AWORD 80
&FILEBLKSIZE AWORD (&FILEBUFSIZE+4/4+&FILEHDLENG)  *INCLUDE EOL CHAR
&MFBSIZE AWORD (&MAXFILEBLKS*&FILEBLKSIZE)  *SIZE OF FILE BLOCK SPACE
&FILEERRNUMB AWORD 1  *FILE ERROR NUMBERS START AT THIS
&ENDOFLINE AWORD 21  *END OF LINE CHAR
 SUBTITLE 12
      *AN EXTENDABLE SEGMENT IS USED TO CONTAIN THE
      *FILE BLOCKS EACH OF WHICK CONTAINS INFORMATION
      *ABOUT A FILE NUMBER.
      *    ITITIALLY 3 FILE BLOCKS ARE CREATED, 2 FOR FILE
      *0 (THIS IS A SPECIAL) AND ONE FOR -1 THE SYSTEM FILE.
      *    FILEBLKSPACE CONTAINS A DESCRIPTOR TO THIS SEGMENT.
      *    A SUBSIDUARY TABLE FILEBLKTAB CONTAINS 2 WORD
      *ITEMS, THE FIRST IS THE FILE NUMBER, THE SECOND THE ADDRESS
      *OF THE CORRESPONDING FILE BLOCK. THIS IS SUPERFLUOUS IN THE CURRENT
      *SCHEME AS FILE BLOCKS ARE ALLOCATED SEQUENTIALLY AND ONLY
      *RELEASED AS A WHOLE. NFILEBLKS CONTAINS THE
      *NUMBER OF ENTRIS IN FILEBLKTAB.
 DATA FILEDATA
RESTOFFORMAT LWORD  *DESC TO REMAINDER OF FORMAT
FORMAT LWORD  *DESC TO WHOLE FORMAT
INUSING WORD 0  *NONZERO IF IN PRINT USING
NFILEBLKS WORD 0  *CURRENT NO OF FILE BLOCKS ALLOCATED
INPUTFILE WORD  *POINTER TO CURRENT INPUT FILE BLOCK
OUTPUTFILE WORD  *POINTER TO CURRENT OUPUT FILE BLOCK
JLINELIMIT INT -1  *LINE LIMIT FOR JOURNAL OUTPUT
INTERACTIVE INT  *SET NONZERO IF I-O ROUTES EQUAL
OPTIONMASK WORD  *BIT MAP OF SETOPTIONS
             *BIT 0=A ETC
FILEBLKSPACE LWORD  *DESC TO SPACE CONTAINING FILE BLOCKS
FILEBLKTAB W(&FBTSZ)  *TABLE OF FILE NUMBER AND FILE BLOCK ADDRESS
****