BLOCK DATA
    
      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   
      DATA     MEMORY /4096*0/  
      DATA     ROM    /64*0/
      END