*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