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

(defconstant $$next-pc-from-ir    0)
(defconstant $$next-pc-from-oreg  1)
(defconstant $$next-pc-from-retpc 2)
(defconstant $$next-pc-pc+1       3)

(defconstant $$functional-destination 1.)
(defconstant $$fdest-nop
(defconstant $$fdest-return-destination
(defconstant $$fdest-no-overflow
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-
(defconstant $$fdest-