*file member=mt library=snoman language=inc date=30:Jul:1999
 
*     SNOMAN:  MTT System: The xCONS ZEBRA Memory.
 
*     Contact:  N. West, Oxford.
 
*     Revision History:-
*     ================
 
*     1.03  N. West     First version with revision history.
*     2.05  N. West     Increase number of managed banks to 100
*                       Increase memory size 100K -> 200K.
*                       Allocate one reference link to MTCONS.
*     2.06  N. West     Increase memory size 200K -> 300K.
*     2.07  N. West     Remove memory size parameters (see define_memory_size).
*                       Restructure links area.  Rename fence.
*                       Separate out into /MT/  - Zebra memory
*                                         /MT2/ - Bank management tables.
*     2.08  N. West     Increase Max number of banks managed (100 -> 200).
*     3.00  N. West     Move all system data to mtt_com.inc
*     3.02  N. West     Add Program Notes.  Add MTDIV_SHORT/SPARE.
 
 
*    Program Notes:-
*    =============
 
*    If making changes that move LCONS/ICONS/RCONS relative to the start of
*    the COMMON update DEFINE_MEMORY_SIZE.
 
 
*     Variables:-
*     =========
 
*     MTSTOR            Store index.
*     MTDIV             Division holding titles banks.
*     MTDIV_SHORT       Short range division - used by DMM.  Division is not
*                       wiped each event; it hold permanent data like MTDIV.
*     MTDIV_SPARE       Space for further divisions.
 
      INTEGER           MTSTOR, MTDIV, MTDIV_SHORT, MTDIV_SPARE(5)
 
 
*     Fence.
 
*     MT_FENCE          ZEBRA protective fence.
      INTEGER           MT_FENCE(16)
 
*     Structural links.
 
*     MT_STR_LINKS      Structural links (none used at present).
      INTEGER           MT_STR_LINKS(20)
 
*     Reference links.
 
*     MT_REF_LINKS      Reference links. Currently used:-
*                       Index   Variable      Routine
*
*                        None are currently used.
 
      INTEGER           MT_REF_LINKS(50)
 
 
*     Workspace.
 
      INTEGER           MT_WORK(100)
 
 
*     The following variables are part of the main memory.:-
 
*     LCONS             Access to bank links.
*     RCONS             Access to bank floating point words.
*     ICONS             Access to bank integer words.
 
      INTEGER           LCONS(100), ICONS(100)
      REAL              RCONS(100)
 
      EQUIVALENCE       (MT_STR_LINKS,LCONS),
     +                  (LCONS(9), ICONS, RCONS)
 
*     For more information about the MTT system see the User Manual.
 
 
      COMMON /MT/       MT_FENCE,
     +                  MT_STR_LINKS,
     +                  MT_REF_LINKS,
     +                  MT_WORK
 
      COMMON /MT2/      MTSTOR, MTDIV, MTDIV_SHORT, MTDIV_SPARE
 
*ENDFILE MEMBER=MT