C     EDIT DATE   01JUN78  17:38
C     SOURCE FILE MEMORYGAK.IN
C     AUTHOR      GARY A. KUDIS
C     MEMORY USE MAP
C
C     ONE BIT PER MEMORY BYTE; THE BIT IS SETTO ONE (1) WHEN
C     IT IS USED. THERE ARE 4096 ENTRIES IN 'MEMORY'. EACH
C     ENTRY REPRESENTS THE STATUS OF 16 MEMORY BYTES - THUS
C     THE STATUS OF ALL 65636 BYTES.
C
C     ACCESS ALGORITHM TO STATUS OF MEMORY WITH ADDRESS = MEMLOC :
C        MEMX = MEMLOC/16 + 1
C        BITNO = MOD (MEMLOC, 16) + 1
C        BIT = BITS (BITNO)
C
C     ROM MEMORY MAP
C        ONE WORD PER 1K BYTES OF MEMORY; SET TO ZERO (0) WHEN
C        MEMORY IS 'ROM' AND SET TO ONE (1) WHEN 'RAM' MEMORY.
C
      INTEGER     MEMORY (4096)
      INTEGER     MEMX
      INTEGER     MEMLOC
      INTEGER     ROM (64)
      INTEGER     ONEK, ENDK
      COMMON      /MEMORY/ MEMORY
      COMMON      /MEMORY/ MEMX
      COMMON      /MEMORY/ MEMLOC
      COMMON      /MEMORY/ ROM
      COMMON      /MEMORY/ ONEK, ENDK