HP3000: Initial release of the HP 3000 Series III simulator (from Dav…

…e Bryan)

HP3000/hp3000_cpu_fp.h

@@ -0,0 +1,111 @@
+/* hp3000_cpu_fp.h: HP 3000 floating-point interface declarations
+
+   Copyright (c) 2016, J. David Bryan
+
+   Permission is hereby granted, free of charge, to any person obtaining a copy
+   of this software and associated documentation files (the "Software"), to deal
+   in the Software without restriction, including without limitation the rights
+   to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+   copies of the Software, and to permit persons to whom the Software is
+   furnished to do so, subject to the following conditions:
+
+   The above copyright notice and this permission notice shall be included in
+   all copies or substantial portions of the Software.
+
+   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+   AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+   ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+   WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+   Except as contained in this notice, the name of the author shall not be used
+   in advertising or otherwise to promote the sale, use or other dealings in
+   this Software without prior written authorization from the author.
+
+   21-Jan-16    JDB     First release version
+   29-Mar-15    JDB     Created
+
+
+   This file contains declarations used by the CPU to interface with the
+   floating-point operations executor.
+*/
+
+
+
+/* Program constants */
+
+#define SIGN_BIT            0100000
+#define EXPONENT_BITS       0077700
+#define ASSUMED_BIT         0000100
+#define FRACTION_BITS       0000077
+
+
+/* Operand precisions:
+
+    - S = 1-word integer
+    - D = 2-word integer
+    - F = 2-word single-precision floating-point
+    - X = 3-word extended-precision floating-point
+    - E = 4-word double-precision floating-point
+
+
+   Implementation notes:
+
+    1. The ordering of the enumeration constants is important, as we depend on
+       the "fp" type codes to reflect the number of words used by the packed
+       representation.
+*/
+
+typedef enum {
+    in_s = 0,                                   /* 1-word integer */
+    in_d = 1,                                   /* 2-word integer */
+    fp_f = 2,                                   /* 2-word single-precision floating-point */
+    fp_x = 3,                                   /* 3-word extended-precision floating-point */
+    fp_e = 4                                    /* 4-word double-precision floating-point */
+    } FP_OPSIZE;
+
+
+/* Conversion from operand size to word count */
+
+#define TO_COUNT(s)     ((uint32) (s + (s < fp_f)))
+
+
+/* Floating point operations */
+
+typedef enum {
+    fp_add,
+    fp_sub,
+    fp_mpy,
+    fp_div,
+    fp_flt,
+    fp_fixr,
+    fp_fixt
+    } FP_OPR;
+
+
+/* General operand.
+
+   An in-memory representation of an integer or packed floating-point number.
+   An actual value will use one, two, three, or four words, as indicated by the
+   "precision" specified.
+
+   "trap" is significant only for result values; it is ignored for operand
+   values.  A good result will have trap_None.
+*/
+
+typedef struct {
+    HP_WORD    words [4];                       /* integer or floating-point value */
+    FP_OPSIZE  precision;                       /* operand size descriptor */
+    uint32     trap;                            /* validity of the result */
+    } FP_OPND;
+
+
+/* Special operands */
+
+static const FP_OPND FP_NOP = { { 0, 0, 0, 0 }, in_s, trap_None };    /* an unneeded operand */
+
+
+/* Floating-point global routines */
+
+extern FP_OPND fp_exec (FP_OPR operator, FP_OPND left, FP_OPND right);

HP3000/hp3000_cpu_ims.h

@@ -0,0 +1,200 @@
+/* hp3000_cpu_ims.h: HP 3000 CPU-to-IOP/MPX/SEL interface declarations
+
+   Copyright (c) 2016, J. David Bryan
+
+   Permission is hereby granted, free of charge, to any person obtaining a copy
+   of this software and associated documentation files (the "Software"), to deal
+   in the Software without restriction, including without limitation the rights
+   to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+   copies of the Software, and to permit persons to whom the Software is
+   furnished to do so, subject to the following conditions:
+
+   The above copyright notice and this permission notice shall be included in
+   all copies or substantial portions of the Software.
+
+   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+   AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+   ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+   WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+   Except as contained in this notice, the name of the author shall not be used
+   in advertising or otherwise to promote the sale, use or other dealings in
+   this Software without prior written authorization from the author.
+
+   05-Sep-15    JDB     First release version
+   11-Dec-12    JDB     Created
+
+
+   This file contains declarations used by the CPU to interface with the HP 3000
+   I/O Processor, Multiplexer Channel, and Selector Channel.
+*/
+
+
+
+/* Global data structures */
+
+
+/* I/O commands.
+
+   The enumeration values correspond to the IOP bus IOCMD0-2 signal
+   representations.
+*/
+
+typedef enum {
+    ioSIN  = 0,                                 /* set interrupt */
+    ioCIO  = 1,                                 /* control I/O */
+    ioSIO  = 2,                                 /* start I/O */
+    ioWIO  = 3,                                 /* write I/O */
+    ioRIN  = 4,                                 /* reset interrupt */
+    ioTIO  = 5,                                 /* test I/O */
+    ioSMSK = 6,                                 /* set interrupt mask */
+    ioRIO  = 7                                  /* read I/O */
+    } IO_COMMAND;
+
+
+/* SIO program orders.
+
+   32-bit I/O program words are formed from a 16-bit I/O control word (IOCW) and
+   a 16-bit I/O address word (IOAW).  The Interrupt, Control, Sense, Write, and
+   Read orders use this format:
+
+       0 | 1   2   3 | 4   5   6 | 7   8   9 |10  11  12 |13  14  15
+     +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+     | C |   order   |           control word 1/word count           |  IOCW
+     +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+     |                 control word 2/status/address                 |  IOAW
+     +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+
+   For the Write and Read orders only, bit 0 of the IOCW is the "data chain"
+   flag.  If it is set, then this transfer is a continuation of the previous
+   Write or Read transfer.
+
+   The Jump, End, Return Residue, and Set Bank orders require an additional bit
+   (IOCW bit 4) to define their orders fully:
+
+       0 | 1   2   3 | 4   5   6 | 7   8   9 |10  11  12 |13  14  15
+     +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+     | - |     order     | -   -   -   -   -   -   -   -   -   -   - |  IOCW
+     +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+     |                     address/status/count                      |  IOAW
+     +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+     | -   -   -   -   -   -   -   -   -   -   -   - |     bank      |  IOAW
+     +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
+
+   In simulation, IOCW bits 0-4 are used to index into a 32-element lookup table
+   to produce the final I/O order (because some of the orders define IOCW bit 4
+   as "don't care", there are only thirteen distinct orders).
+
+
+   Implementation notes:
+
+    1. The IOCW_COUNT(w) macro sign-extends the 12-bit two's-complement word
+       count in the IOCW for the Read and Write orders.
+
+    2. The sioWRITE, sioWRITEC, sioREAD, and sioREADC enumeration constants must
+       be contiguous and the final four values, so that a ">= sioWRITE" test
+       identifies all four cases.
+*/
+
+#define IOCW_DC             0100000             /* data chain */
+#define IOCW_SIO_MASK       0070000             /* general SIO order mask */
+#define IOCW_ORDER_MASK     0174000             /* fully decoded I/O order mask */
+#define IOCW_CNTL_MASK      0007777             /* control word mask */
+#define IOCW_WCNT_MASK      0007777             /* word count mask */
+
+#define IOAW_BANK_MASK      0000017             /* bank number mask */
+
+#define IOCW_ORDER_SHIFT    11                  /* I/O order alignment shift */
+#define IOCW_CNTL_SHIFT     0                   /* control word alignment shift */
+#define IOCW_WCNT_SHIFT     0                   /* word count alignment shift */
+
+#define IOAW_BANK_SHIFT     0                   /* bank number alignment shift */
+
+#define IOCW_ORDER(w)       to_sio_order [((w) & IOCW_ORDER_MASK) >> IOCW_ORDER_SHIFT]
+
+#define IOCW_CNTL(w)        (((w) & IOCW_CNTL_MASK) >> IOCW_CNTL_SHIFT)
+#define IOCW_WCNT(w)        (((w) & IOCW_WCNT_MASK) >> IOCW_WCNT_SHIFT)
+#define IOCW_COUNT(w)       (- (int32) (~(w) + 1 & IOCW_WCNT_MASK))
+
+#define IOAW_BANK(w)        (((w) & IOAW_BANK_MASK) >> IOAW_BANK_SHIFT)
+
+
+typedef enum {
+    sioJUMP,                                    /* Jump unconditionally */
+    sioJUMPC,                                   /* Jump conditionally */
+    sioRTRES,                                   /* Return residue */
+    sioSBANK,                                   /* Set bank */
+    sioINTRP,                                   /* Interrupt */
+    sioEND,                                     /* End */
+    sioENDIN,                                   /* End with interrupt */
+    sioCNTL,                                    /* Control */
+    sioSENSE,                                   /* Sense */
+    sioWRITE,                                   /* Write */
+    sioWRITEC,                                  /* Write chained */
+    sioREAD,                                    /* Read */
+    sioREADC                                    /* Read chained */
+    } SIO_ORDER;
+
+
+/* Global CPU routine declarations */
+
+extern t_bool cpu_read_memory  (ACCESS_CLASS classification, uint32 offset, HP_WORD *value);
+extern t_bool cpu_write_memory (ACCESS_CLASS classification, uint32 offset, HP_WORD  value);
+
+
+/* Global SIO order structures.
+
+   to_sio_order   : translates IOCW bits 1-4 to an SIO_ORDER
+   sio_order_name : the name of the orders indexed by SIO_ORDER
+*/
+
+extern const SIO_ORDER   to_sio_order   [];
+extern const char *const sio_order_name [];
+
+
+/* Global I/O processor state and functions.
+
+   iop_interrupt_request_set : the set of devices requesting interrupts
+
+   iop_initialize   : initialize the I/O processor
+   iop_poll         : poll the interfaces for an active interrupt request
+   iop_read_memory  : read memory via the module control unit
+   iop_write_memory : write memory via the module control unit
+   iop_direct_io    : dispatch an I/O command to an interface
+*/
+
+extern uint32 iop_interrupt_request_set;
+
+extern uint32  iop_initialize   (void);
+extern uint32  iop_poll         (void);
+extern HP_WORD iop_direct_io    (HP_WORD device_number, IO_COMMAND io_cmd, HP_WORD write_value);
+
+
+/* Global multiplexer channel state and functions.
+
+   mpx_request_set : the set of pending channel service requests
+
+   mpx_initialize : initialize the multiplexer channel
+   mpx_service    : poll the interfaces for an active service request
+*/
+
+extern uint32 mpx_request_set;
+
+extern void mpx_initialize (void);
+extern void mpx_service    (uint32 ticks_elapsed);
+
+
+/* Global selector channel state and functions
+
+   sel_request : TRUE if a pending channel service request
+
+   sel_initialize : initialize the selector channel
+   sel_service    : service the interface with an active service request
+*/
+
+extern t_bool sel_request;
+
+extern void sel_initialize (void);
+extern void sel_service    (uint32 ticks_elapsed);