;;; -*- Mode:LISP; Package:LAMBDA; Base:8 -*-

(defmethod (regint-hh :case :spy-reg :data-path-width) ()
  32.)

(defmethod (regint-hh :case :spy-reg :data-path-read) ()
  (spy-read 17))

(defmethod (regint-hh :case :spy-reg :data-path-write) (data)
  (spy-write 17 data))


(defmethod (regint-hh :case :a-mem :data-path-width) ()
  32.)

(defmethod (regint-hh :case :a-mem :data-path-read) ()
  (hh-read-a-mem 1))

(defmethod (regint-hh :case :a-mem :data-path-write) (data)
  (hh-write-a-mem 1 data))

(defmethod (regint-hh :case :a-mem :fast-address-size) ()
  4096.)

(defmethod (regint-hh :case :a-mem :fast-address-test-read) (adr)
  (hh-read-a-mem adr))

(defmethod (regint-hh :case :a-mem :fast-address-test-write) (adr data)
  (hh-write-a-mem adr data))