;;; -*- 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-