text: /* i1401_defs.h: IBM 1401 simulator definitions
  
     Copyright (c) 1993-2010, Robert M. Supnik
  
     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
     ROBERT M SUPNIK 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 Robert M Supnik shall not be
     used in advertising or otherwise to promote the sale, use or other dealings
     in this Software without prior written authorization from Robert M Supnik.
  
     06-JUl-10    RMS     Added overlap indicator definitions
     22-May-10    RMS     Added check for 64b definitions
     11-Jul-08    RMS     Added IO mode flag for boot (from Bob Abeles)
     28-Jun-07    RMS     Defined character code for tape mark
     14-Nov-04    RMS     Added column binary support
     27-Oct-04    RMS     Added maximum instruction length
     16-Mar-03    RMS     Fixed mnemonic for MCS
     03-Jun-02    RMS     Added 1311 support
     14-Apr-99    RMS     Converted t_addr to unsigned
  
     This simulator is based on the 1401 simulator written by Len Fehskens
     with assistance from Sarah Lee Harris and Bob Supnik. This one's for
     you, Len.  I am grateful to Paul Pierce and Charles Owen for their help
     in answering questions, gathering source material, and debugging.
  */
  
  #ifndef _I1401_DEFS_H_
  #define _I1401_DEFS_H_  0
  
  #include "sim_defs.h"
  
  #if defined(USE_INT64) || defined(USE_ADDR64)
  #error "1401 does not support 64b values!"
  #endif
  
  /* Simulator stop codes */
  
  #define STOP_NXI        1                               /* unimpl instr */
  #define STOP_NXM        2                               /* non-exist mem */
  #define STOP_NXD        3                               /* non-exist dev */
  #define STOP_NOWM       4                               /* no WM under op */
  #define STOP_INVA       5                               /* invalid A addr */
  #define STOP_INVB       6                               /* invalid B addr */
  #define STOP_INVL       7                               /* invalid length */
  #define STOP_INVM       8                               /* invalid modifier */
  #define STOP_INVBR      9                               /* invalid branch */
  #define STOP_IBKPT      10                              /* breakpoint */
  #define STOP_HALT       11                              /* halt */
  #define STOP_INVMTU     12                              /* invalid MT unit */
  #define STOP_MTZ        13                              /* MT zero lnt rec */
  #define STOP_MTL        14                              /* MT write lock */
  #define STOP_CCT        15                              /* inv CCT channel */
  #define STOP_NOCD       16                              /* no cards left */
  #define STOP_WRAP       17                              /* AS, BS mem wrap */
  #define STOP_IOC        18                              /* I/O check */
  #define STOP_INVDSC     19                              /* invalid disk sector */
  #define STOP_INVDCN     20                              /* invalid disk count */
  #define STOP_INVDSK     21                              /* invalid disk unit */
  #define STOP_INVDFN     22                              /* invalid disk func */
  #define STOP_INVDLN     23                              /* invalid disk reclen */
  #define STOP_WRADIS     24                              /* write address dis */
  #define STOP_WRCHKE     25                              /* write check error */
  #define STOP_INVDAD     26                              /* invalid disk addr */
  #define STOP_INVDCY     27                              /* invalid direct seek */
  
  /* Memory and devices */
  
  #define MAXMEMSIZE      16000                           /* max memory */
  #define MEMSIZE         (cpu_unit.capac)                /* current memory */
  #define CDR_BUF         1                               /* card rdr buffer */
  #define CDR_WIDTH       80                              /* card rdr width */
  #define CDP_BUF         101                             /* card punch buffer */
  #define CDP_WIDTH       80                              /* card punch width */
  #define CD_CBUF1        401                             /* r/p col bin buf 12-3 */
  #define CD_CBUF2        501                             /* r/p col bin buf 4-9 */
  #define LPT_BUF         201                             /* line print buffer */
  #define LPT_WIDTH       132                             /* line print width */
  #define CCT_LNT         132                             /* car ctrl length */
  #define INQ_WIDTH       80                              /* inq term width */
  #define ADDR_ERR(x)     (((uint32) (x)) >= MEMSIZE)
  
  /* Binary address format
  
          <14:0>          address, with index added in
          <23:16>         index register memory address
          <25:24>         address error bits
  */
  
  #define ADDRMASK        037777                          /* addr mask */
  #define INDEXMASK       077777                          /* addr + index mask */
  #define V_INDEX         16
  #define M_INDEX         0177
  #define V_ADDRERR       24
  #define BA              (1 << V_ADDRERR)                /* bad addr digit */
  #define X1              (87 << V_INDEX)                 /* index reg 1 */
  #define X2              (92 << V_INDEX)                 /* index reg 2 */
  #define X3              (97 << V_INDEX)                 /* index reg 3 */
  
  /* CPU instruction control flags.  The flag definitions must be harmonized
     with the UNIT flag definitions used by the simulator. */
  
  /* Lengths */
  
  #define L1              0001                            /* 1: op */
  #define L2              0002                            /* 2: op d */
  #define L4              0004                            /* 4: op aaa */
  #define L5              0010                            /* 5: op aaa d */
  #define L7              0020                            /* 7: op aaa bbb */
  #define L8              0040                            /* 8: op aaa bbb d */
  #define MAX_L           8                               /* max length */
  
  /* CPU options, stored in cpu_unit.flags */
  
  #define MDV             (1 << (UNIT_V_UF + 0))          /* multiply/divide */
  #define MR              (1 << (UNIT_V_UF + 1))          /* move record */
  #define XSA             (1 << (UNIT_V_UF + 2))          /* index, store addr */
  #define EPE             (1 << (UNIT_V_UF + 3))          /* expanded edit */
  #define MA              (1 << (UNIT_V_UF + 4))          /* modify address */
  #define BBE             (1 << (UNIT_V_UF + 5))          /* br bit equal */
  #define HLE             (1 << (UNIT_V_UF + 6))          /* high/low/equal */
  #define UNIT_MSIZE      (1 << (UNIT_V_UF + 7))          /* fake flag */
  #define ALLOPT          (MDV + MR + XSA + EPE + MA + BBE + HLE)
  #define STDOPT          (MDV + MR + XSA + EPE + MA + BBE + HLE)
  
  /* Fetch control */
  
  #define AREQ            (1 << (UNIT_V_UF + 8))          /* validate A */
  #define BREQ            (1 << (UNIT_V_UF + 9))          /* validate B */
  #define MLS             (1 << (UNIT_V_UF + 10))         /* move load store */
  #define NOWM            (1 << (UNIT_V_UF + 11))         /* no WM at end */
  #define HNOP            (1 << (UNIT_V_UF + 12))         /* halt or nop */
  #define IO              (1 << (UNIT_V_UF + 13))         /* IO */
  #define UNIT_BCD        (1 << (UNIT_V_UF + 14))         /* BCD strings */
  
  #if (UNIT_V_UF < 6) || ((UNIT_V_UF + 14) > 31)
      Definition error: flags overlap
  #endif
  
  /* BCD memory character format */
  
  #define WM              0100                            /* word mark */
  #define ZONE            0060                            /* zone */
  #define  BBIT           0040                            /* 1 in valid sign */
  #define  ABIT           0020                            /* sign (1 = +) */
  #define DIGIT           0017                            /* digit */
  #define CHAR            0077                            /* character */
  
  #define V_WM            6
  #define V_ZONE          4
  #define V_DIGIT         0
  
  /* Interesting BCD characters */
  
  #define BCD_BLANK       000
  #define BCD_ONE         001
  #define BCD_TWO         002
  #define BCD_THREE       003
  #define BCD_FOUR        004
  #define BCD_FIVE        005
  #define BCD_SIX         006
  #define BCD_SEVEN       007
  #define BCD_EIGHT       010
  #define BCD_NINE        011
  #define BCD_ZERO        012
  #define BCD_TAPMRK      017
  #define BCD_ALT         020
  #define BCD_S           022
  #define BCD_U           024
  #define BCD_W           026
  #define BCD_RECMRK      032
  #define BCD_COMMA       033
  #define BCD_PERCNT      034
  #define BCD_WM          035
  #define BCD_BS          036
  #define BCD_TS          037
  #define BCD_MINUS       040
  #define BCD_M           044
  #define BCD_R           051
  #define BCD_DOLLAR      053
  #define BCD_ASTER       054
  #define BCD_AMPER       060
  #define BCD_A           061
  #define BCD_B           062
  #define BCD_C           063
  #define BCD_E           065
  #define BCD_DECIMAL     073
  #define BCD_SQUARE      074
  #define BCD_GRPMRK      077
  
  /* Opcodes */
  
  #define OP_R            001                             /* read */
  #define OP_W            002                             /* write */
  #define OP_WR           003                             /* write and read */
  #define OP_P            004                             /* punch */
  #define OP_RP           005                             /* read and punch */
  #define OP_WP           006                             /* write and punch */
  #define OP_WRP          007                             /* write read punch */
  #define OP_RF           010                             /* reader feed */
  #define OP_PF           011                             /* punch feed */
  #define OP_MA           013                             /* modify address */
  #define OP_MUL          014                             /* multiply */
  #define OP_CS           021                             /* clear storage */
  #define OP_S            022                             /* subtract */
  #define OP_MTF          024                             /* magtape function */
  #define OP_BWZ          025                             /* branch wm or zone */
  #define OP_BBE          026                             /* branch bit equal */
  #define OP_MZ           030                             /* move zone */
  #define OP_MCS          031                             /* move suppr zeroes */
  #define OP_SWM          033                             /* set word mark */
  #define OP_DIV          034                             /* divide */
  #define OP_SS           042                             /* select stacker */
  #define OP_LCA          043                             /* load characters */
  #define OP_MCW          044                             /* move characters */
  #define OP_NOP          045                             /* no op */
  #define OP_MCM          047                             /* move to rec/grp mk */
  #define OP_SAR          050                             /* store A register */
  #define OP_ZS           052                             /* zero and subtract */
  #define OP_A            061                             /* add */
  #define OP_B            062                             /* branch */
  #define OP_C            063                             /* compare */
  #define OP_MN           064                             /* move numeric */
  #define OP_MCE          065                             /* move char and edit */
  #define OP_CC           066                             /* carriage control */
  #define OP_SBR          070                             /* store B register */
  #define OP_ZA           072                             /* zero and add */
  #define OP_H            073                             /* halt */
  #define OP_CWM          074                             /* clear word mark */
  
  /* I/O addresses */
  
  #define IO_INQ          023                             /* inquiry terminal */
  #define IO_MT           024                             /* magtape */
  #define IO_MTB          062                             /* binary magtape */
  #define IO_DP           066                             /* 1311 diskpack */
  
  /* I/O modes */
  
  #define MD_NORM         0                               /* normal (move) */
  #define MD_WM           1                               /* word mark (load) */
  #define MD_BIN          2                               /* binary */
  #define MD_BOOT         4                               /* boot read */
  
  /* Indicator characters */
  
  #define IN_UNC          000                             /* unconditional */
  #define IN_CC9          011                             /* carr ctrl chan 9 */
  #define IN_CC12         014                             /* carr ctrl chan 12 */
  #define IN_UNQ          021                             /* unequal */
  #define IN_EQU          022                             /* equal */
  #define IN_LOW          023                             /* low */
  #define IN_HGH          024                             /* high */
  #define IN_DPW          025                             /* parity/compare check */
  #define IN_LNG          026                             /* wrong lnt record */
  #define IN_UNA          027                             /* unequal addr cmp */
  #define IN_DSK          030                             /* disk error */
  #define IN_OVF          031                             /* overflow */
  #define IN_LPT          032                             /* printer error */
  #define IN_PRO          034                             /* process check */
  #define IN_DBY          036                             /* disk busy */
  #define IN_TBY          041                             /* tape busy */
  #define IN_END          042                             /* end indicator */
  #define IN_TAP          043                             /* tape error */
  #define IN_ACC          045                             /* access error */
  #define IN_BSY          047                             /* printer busy */
  #define IN_INR          050                             /* inquiry request */
  #define IN_PCB          051                             /* printer carr busy */
  #define IN_PNCH         052                             /* punch error */
  #define IN_INC          054                             /* inquiry clear */
  #define IN_LST          061                             /* last card */
  #define IN_SSB          062                             /* sense switch B */
  #define IN_SSC          063                             /* sense switch C */
  #define IN_SSD          064                             /* sense switch D */
  #define IN_SSE          065                             /* sense switch E */
  #define IN_SSF          066                             /* sense switch F */
  #define IN_SSG          067                             /* sense switch G */
  #define IN_RBY          070                             /* reader busy */
  #define IN_PBY          071                             /* punch busy */
  #define IN_READ         072                             /* reader error */
  
  #define CRETIOE(f,c)    return ((f)? (c): SCPE_OK)
  
  /* Function prototypes */
  
  int32 bcd2ascii (int32 c, t_bool use_h);
  int32 ascii2bcd (int32 c);
  
  
  #endif
  