;;; -*- Mode:LISP; Package:SIM; Readtable:CL; Base:10 -*-

(defvar *proc*)

(defstruct (proc (:type :named-array)
		 (:conc-name "")
		 )
  proc-frame-size
  proc-n-frames

  proc-frame-free-list
  proc-frame-free-list-ptr

  proc-h-active
  proc-h-open
  proc-h-pc

  proc-frames
  proc-active-frame
  proc-open-frame
  proc-return-frame

  proc-main-memory
  proc-pc
  proc-next-pc

  proc-l1-map
  proc-l2-map-control
  proc-l2-map-physical-page

  proc-zero-bit
  proc-carry-bit
  proc-sign-bit
  proc-overflow-bit

  proc-noop-next-bit

  )