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

;;; Generated by jrm on Monday the eighth of December, 1986; 6:40:26 pm

;;; COMMON group
(defconstant %%inst-global-frame-number                         (byte  4. 37.))
(defconstant %%inst-destination                                 (byte  7. 41.))
(defconstant %%inst-call-hardware-op                            (byte  3. 48.))
(defconstant %%inst-data-type-check                             (byte  3. 51.))
(defconstant %%inst-boxed-result                                (byte  2. 54.))
(defconstant %%inst-next-pc                                     (byte  2. 56.))
(defconstant %%inst-op-code                                     (byte  3. 58.))
(defconstant %%inst-sub-op-code                                 (byte  2. 58.))
(defconstant %%inst-spare1                                      (byte  1. 62.))
(defconstant %%inst-stat-bit                                    (byte  1. 63.))

;;; ALU group
(defconstant %%inst-alu-alu-mask                                (byte  5.  0.))
(defconstant %%inst-alu-alu-shift                               (byte  6.  5.))
(defconstant %%inst-alu-spare3                                  (byte  1. 11.))
(defconstant %%inst-alu-alu-operation                           (byte  7. 12.))
(defconstant %%inst-alu-left-source                             (byte  6. 19.))
(defconstant %%inst-alu-right-source                            (byte  7. 25.))
(defconstant %%inst-alu-byte-width                              (byte  2. 32.))
(defconstant %%inst-alu-jump-condition-select                   (byte  3. 34.))
(defconstant %%inst-alu-dispatch-to-16-inst-block               (byte  1. 61.))

;;; ALU-16-BIT-IMMEDIATE group
(defconstant %%inst-alu-16i-immediate-16                        (byte 16.  0.))
(defconstant %%inst-alu-16i-spare4                              (byte  3. 16.))
(defconstant %%inst-alu-16i-left-source                         (byte  6. 19.))
(defconstant %%inst-alu-16i-alu-operation                       (byte  7. 25.))
(defconstant %%inst-alu-16i-byte-width                          (byte  2. 32.))
(defconstant %%inst-alu-16i-jump-condition-select               (byte  3. 34.))
(defconstant %%inst-alu-16i-dispatch-to-16-inst-block           (byte  1. 61.))

;;; ALU-24-BIT-IMMEDIATE group
(defconstant %%inst-alu-24i-immediate-24                        (byte 24.  0.))
(defconstant %%inst-alu-24i-spare5                              (byte  1. 24.))
(defconstant %%inst-alu-24i-alu-operation                       (byte  7. 25.))
(defconstant %%inst-alu-24i-byte-width                          (byte  2. 32.))
(defconstant %%inst-alu-24i-jump-condition-select               (byte  3. 34.))
(defconstant %%inst-alu-24i-dispatch-to-16-inst-block           (byte  1. 61.))

;;; LOAD-32-BIT-IMMEDIATE group
(defconstant %%inst-load-32i-immediate-32                       (byte 32.  0.))
(defconstant %%inst-load-32i-spare2                             (byte  2. 32.))
(defconstant %%inst-load-32i-jump-condition-select              (byte  3. 34.))
(defconstant %%inst-load-32i-dispatch-to-16-inst-block          (byte  1. 61.))

;;; FLOATING-POINT-ALU group
(defconstant %%inst-float-fpu-unload                            (byte  3.  0.))
(defconstant %%inst-float-fpu-load                              (byte  6.  3.))
(defconstant %%inst-float-fpu-op                                (byte  8.  9.))
(defconstant %%inst-float-fpu-trap-status                       (byte  2. 17.))
(defconstant %%inst-float-left-source                           (byte  6. 19.))
(defconstant %%inst-float-right-source                          (byte  7. 25.))
(defconstant %%inst-float-spare2                                (byte  2. 32.))
(defconstant %%inst-float-jump-condition-select                 (byte  3. 34.))
(defconstant %%inst-float-dispatch-to-16-inst-block             (byte  1. 61.))

;;; FLOATING-POINT-MULTIPLIER group
(defconstant %%inst-fmult-fpu-unload                            (byte  3.  0.))
(defconstant %%inst-fmult-fpu-load                              (byte  6.  3.))
(defconstant %%inst-fmult-mpu-op                                (byte  8.  9.))
(defconstant %%inst-fmult-fpu-trap-status                       (byte  2. 17.))
(defconstant %%inst-fmult-left-source                           (byte  6. 19.))
(defconstant %%inst-fmult-right-source                          (byte  7. 25.))
(defconstant %%inst-fmult-spare2                                (byte  2. 32.))
(defconstant %%inst-fmult-jump-condition-select                 (byte  3. 34.))
(defconstant %%inst-fmult-dispatch-to-16-inst-block             (byte  1. 61.))

;;; CONDITIONAL-BRANCH group
(defconstant %%inst-branch-branch-address                       (byte 12.  0.))
(defconstant %%inst-branch-alu-operation                        (byte  7. 12.))
(defconstant %%inst-branch-left-source                          (byte  6. 19.))
(defconstant %%inst-branch-right-source                         (byte  7. 25.))
(defconstant %%inst-branch-byte-width                           (byte  2. 32.))
(defconstant %%inst-branch-jump-condition-select                (byte  3. 34.))
(defconstant %%inst-branch-unconditional                        (byte  1. 61.))

;;; CALLZ group
(defconstant %%inst-callz-destination-return-bit-2-0            (byte  3.  0.))
(defconstant %%inst-callz-spare6                                (byte  1.  3.))
(defconstant %%inst-callz-callz-address                         (byte  8.  4.))
(defconstant %%inst-callz-alu-operation                         (byte  7. 12.))
(defconstant %%inst-callz-left-source                           (byte  6. 19.))
(defconstant %%inst-callz-right-source                          (byte  7. 25.))
(defconstant %%inst-callz-byte-width                            (byte  2. 32.))
(defconstant %%inst-callz-destination-return-bit-5-3            (byte  3. 34.))
(defconstant %%inst-callz-destination-return-bit-6              (byte  1. 61.))

;;; JUMP group
(defconstant %%inst-jump-target-address                         (byte 24.  0.))
(defconstant %%inst-jump-spare5                                 (byte  1. 24.))
(defconstant %%inst-jump-right-source                           (byte  7. 25.))
(defconstant %%inst-jump-byte-width                             (byte  2. 32.))
(defconstant %%inst-jump-jump-condition-select                  (byte  3. 34.))
(defconstant %%inst-jump-unconditional                          (byte  1. 61.))

;;; CALL group
(defconstant %%inst-call-target-address                         (byte 24.  0.))
(defconstant %%inst-call-destination-return-bit-0               (byte  1. 24.))
(defconstant %%inst-call-right-source                           (byte  7. 25.))
(defconstant %%inst-call-destination-return-bit-5-1             (byte  5. 32.))
(defconstant %%inst-call-destination-return-bit-6               (byte  1. 61.))

;;; CALL-DISPATCH group
(defconstant %%inst-call-dispatch-destination-return-bit-2-0    (byte  3.  0.))
(defconstant %%inst-call-dispatch-dispatch-to-16-inst-block     (byte  1.  3.))
(defconstant %%inst-call-dispatch-spare7                        (byte  8.  4.))
(defconstant %%inst-call-dispatch-alu-operation                 (byte  7. 12.))
(defconstant %%inst-call-dispatch-left-source                   (byte  6. 19.))
(defconstant %%inst-call-dispatch-right-source                  (byte  7. 25.))
(defconstant %%inst-call-dispatch-byte-width                    (byte  2. 32.))
(defconstant %%inst-call-dispatch-destination-return-bit-5-3    (byte  3. 34.))
(defconstant %%inst-call-dispatch-destination-return-bit-6      (byte  1. 61.))