| /* vax_defs.h: VAX architecture definitions file | |
| Copyright (c) 1998-2011, 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. | |
| The author gratefully acknowledges the help of Stephen Shirron, Antonio | |
| Carlini, and Kevin Peterson in providing specifications for the Qbus VAX's | |
| 05-Nov-11 RMS Added PSL_IPL17 definition | |
| 09-May-06 RMS Added system PTE ACV error code | |
| 03-May-06 RMS Added EDITPC get/put cc's macros | |
| 03-Nov-05 RMS Added 780 stop codes | |
| 22-Jul-05 RMS Fixed warning from Solaris C (from Doug Gwyn) | |
| 02-Sep-04 RMS Added octa specifier definitions | |
| 30-Aug-04 RMS Added octa, h_floating instruction definitions | |
| 24-Aug-04 RMS Added compatibility mode definitions | |
| 18-Apr-04 RMS Added octa, fp, string definitions | |
| 19-May-03 RMS Revised for new conditional compilation scheme | |
| 14-Jul-02 RMS Added infinite loop message | |
| 30-Apr-02 RMS Added CLR_TRAPS macro | |
| */ | |
| #ifndef VAX_DEFS_H | |
| #define VAX_DEFS_H 0 | |
| #ifndef VM_VAX | |
| #define VM_VAX 0 | |
| #endif | |
| #include "sim_defs.h" | |
| #include <setjmp.h> | |
| /* Stops and aborts */ | |
| #define STOP_HALT 1 /* halt */ | |
| #define STOP_IBKPT 2 /* breakpoint */ | |
| #define STOP_CHMFI 3 /* chg mode IS */ | |
| #define STOP_ILLVEC 4 /* illegal vector */ | |
| #define STOP_INIE 5 /* exc in intexc */ | |
| #define STOP_PPTE 6 /* proc pte in Px */ | |
| #define STOP_UIPL 7 /* undefined IPL */ | |
| #define STOP_RQ 8 /* fatal RQ err */ | |
| #define STOP_LOOP 9 /* infinite loop */ | |
| #define STOP_SANITY 10 /* sanity timer exp */ | |
| #define STOP_SWDN 11 /* software done (780) */ | |
| #define STOP_BOOT 12 /* reboot (780) */ | |
| #define STOP_UNKNOWN 13 /* unknown reason */ | |
| #define STOP_UNKABO 14 /* unknown abort */ | |
| #define ABORT_INTR -1 /* interrupt */ | |
| #define ABORT_MCHK (-SCB_MCHK) /* machine check */ | |
| #define ABORT_RESIN (-SCB_RESIN) /* rsvd instruction */ | |
| #define ABORT_RESAD (-SCB_RESAD) /* rsvd addr mode */ | |
| #define ABORT_RESOP (-SCB_RESOP) /* rsvd operand */ | |
| #define ABORT_CMODE (-SCB_CMODE) /* comp mode fault */ | |
| #define ABORT_ARITH (-SCB_ARITH) /* arithmetic trap */ | |
| #define ABORT_ACV (-SCB_ACV) /* access violation */ | |
| #define ABORT_TNV (-SCB_TNV) /* transl not vaid */ | |
| #define ABORT(x) longjmp (save_env, (x)) /* abort */ | |
| #define RSVD_INST_FAULT ABORT (ABORT_RESIN) | |
| #define RSVD_ADDR_FAULT ABORT (ABORT_RESAD) | |
| #define RSVD_OPND_FAULT ABORT (ABORT_RESOP) | |
| #define FLT_OVFL_FAULT p1 = FLT_OVRFLO, ABORT (ABORT_ARITH) | |
| #define FLT_DZRO_FAULT p1 = FLT_DIVZRO, ABORT (ABORT_ARITH) | |
| #define FLT_UNFL_FAULT p1 = FLT_UNDFLO, ABORT (ABORT_ARITH) | |
| #define CMODE_FAULT(cd) p1 = (cd), ABORT (ABORT_CMODE) | |
| #define MACH_CHECK(cd) p1 = (cd), ABORT (ABORT_MCHK) | |
| /* Recovery queue */ | |
| #define RQ_RN 0xF /* register */ | |
| #define RQ_V_LNT 4 /* length */ | |
| #define RQ_M_LNT 0x7 /* 0,1,2,3,4 */ | |
| #define RQ_DIR 0x800 /* 0 = -, 1 = + */ | |
| #define RQ_REC(d,r) (((d) << RQ_V_LNT) | (r)) | |
| #define RQ_GETRN(x) ((x) & RQ_RN) | |
| #define RQ_GETLNT(x) (((x) >> RQ_V_LNT) & RQ_M_LNT) | |
| /* Address space */ | |
| #define VAMASK 0xFFFFFFFF /* virt addr mask */ | |
| #define PAWIDTH 30 /* phys addr width */ | |
| #define PASIZE (1 << PAWIDTH) /* phys addr size */ | |
| #define PAMASK (PASIZE - 1) /* phys addr mask */ | |
| #define IOPAGE (1 << (PAWIDTH - 1)) /* start of I/O page */ | |
| /* Architectural constants */ | |
| #define BMASK 0x000000FF /* byte */ | |
| #define BSIGN 0x00000080 | |
| #define WMASK 0x0000FFFF /* word */ | |
| #define WSIGN 0x00008000 | |
| #define LMASK 0xFFFFFFFF /* longword */ | |
| #define LSIGN 0x80000000 | |
| #define FPSIGN 0x00008000 /* floating point */ | |
| #define L_BYTE 1 /* bytes per */ | |
| #define L_WORD 2 /* data type */ | |
| #define L_LONG 4 | |
| #define L_QUAD 8 | |
| #define L_OCTA 16 | |
| #define NUM_INST 512 /* one byte+two byte */ | |
| #define MAX_SPEC 6 /* max spec/instr */ | |
| /* Floating point formats */ | |
| #define FD_V_EXP 7 /* f/d exponent */ | |
| #define FD_M_EXP 0xFF | |
| #define FD_BIAS 0x80 /* f/d bias */ | |
| #define FD_EXP (FD_M_EXP << FD_V_EXP) | |
| #define FD_HB (1 << FD_V_EXP) /* f/d hidden bit */ | |
| #define FD_GUARD (15 - FD_V_EXP) /* # guard bits */ | |
| #define FD_GETEXP(x) (((x) >> FD_V_EXP) & FD_M_EXP) | |
| #define G_V_EXP 4 /* g exponent */ | |
| #define G_M_EXP 0x7FF | |
| #define G_BIAS 0x400 /* g bias */ | |
| #define G_EXP (G_M_EXP << G_V_EXP) | |
| #define G_HB (1 << G_V_EXP) /* g hidden bit */ | |
| #define G_GUARD (15 - G_V_EXP) /* # guard bits */ | |
| #define G_GETEXP(x) (((x) >> G_V_EXP) & G_M_EXP) | |
| #define H_V_EXP 0 /* h exponent */ | |
| #define H_M_EXP 0x7FFF | |
| #define H_BIAS 0x4000 /* h bias */ | |
| #define H_EXP (H_M_EXP << H_V_EXP) | |
| #define H_HB (1 << H_V_EXP) /* h hidden bit */ | |
| #define H_GUARD (15 - H_V_EXP) /* # guard bits */ | |
| #define H_GETEXP(x) (((x) >> H_V_EXP) & H_M_EXP) | |
| /* Memory management modes */ | |
| #define KERN 0 | |
| #define EXEC 1 | |
| #define SUPV 2 | |
| #define USER 3 | |
| /* Register and stack aliases */ | |
| #define nAP 12 | |
| #define nFP 13 | |
| #define nSP 14 | |
| #define nPC 15 | |
| #define AP R[nAP] | |
| #define FP R[nFP] | |
| #define SP R[nSP] | |
| #define PC R[nPC] | |
| #define RGMASK 0xF | |
| #define KSP STK[KERN] | |
| #define ESP STK[EXEC] | |
| #define SSP STK[SUPV] | |
| #define USP STK[USER] | |
| #define IS STK[4] | |
| /* PSL, PSW, and condition codes */ | |
| #define PSL_V_CM 31 /* compatibility mode */ | |
| #define PSL_CM (1u << PSL_V_CM) | |
| #define PSL_V_TP 30 /* trace pending */ | |
| #define PSL_TP (1 << PSL_V_TP) | |
| #define PSL_V_FPD 27 /* first part done */ | |
| #define PSL_FPD (1 << PSL_V_FPD) | |
| #define PSL_V_IS 26 /* interrupt stack */ | |
| #define PSL_IS (1 << PSL_V_IS) | |
| #define PSL_V_CUR 24 /* current mode */ | |
| #define PSL_V_PRV 22 /* previous mode */ | |
| #define PSL_M_MODE 0x3 /* mode mask */ | |
| #define PSL_CUR (PSL_M_MODE << PSL_V_CUR) | |
| #define PSL_PRV (PSL_M_MODE << PSL_V_PRV) | |
| #define PSL_V_IPL 16 /* int priority lvl */ | |
| #define PSL_M_IPL 0x1F | |
| #define PSL_IPL (PSL_M_IPL << PSL_V_IPL) | |
| #define PSL_IPL1 (0x01 << PSL_V_IPL) | |
| #define PSL_IPL17 (0x17 << PSL_V_IPL) | |
| #define PSL_IPL1F (0x1F << PSL_V_IPL) | |
| #define PSL_MBZ (0x30200000 | PSW_MBZ) /* must be zero */ | |
| #define PSW_MBZ 0xFF00 /* must be zero */ | |
| #define PSW_DV 0x80 /* dec ovflo enable */ | |
| #define PSW_FU 0x40 /* flt undflo enable */ | |
| #define PSW_IV 0x20 /* int ovflo enable */ | |
| #define PSW_T 0x10 /* trace enable */ | |
| #define CC_N 0x08 /* negative */ | |
| #define CC_Z 0x04 /* zero */ | |
| #define CC_V 0x02 /* overflow */ | |
| #define CC_C 0x01 /* carry */ | |
| #define CC_MASK (CC_N | CC_Z | CC_V | CC_C) | |
| #define PSL_GETCUR(x) (((x) >> PSL_V_CUR) & PSL_M_MODE) | |
| #define PSL_GETPRV(x) (((x) >> PSL_V_PRV) & PSL_M_MODE) | |
| #define PSL_GETIPL(x) (((x) >> PSL_V_IPL) & PSL_M_IPL) | |
| /* Software interrupt summary register */ | |
| #define SISR_MASK 0xFFFE | |
| #define SISR_2 (1 << 2) | |
| /* AST register */ | |
| #define AST_MASK 7 | |
| #define AST_MAX 4 | |
| /* Virtual address */ | |
| #define VA_N_OFF 9 /* offset size */ | |
| #define VA_PAGSIZE (1u << VA_N_OFF) /* page size */ | |
| #define VA_M_OFF ((1u << VA_N_OFF) - 1) /* offset mask */ | |
| #define VA_V_VPN VA_N_OFF /* vpn start */ | |
| #define VA_N_VPN (31 - VA_N_OFF) /* vpn size */ | |
| #define VA_M_VPN ((1u << VA_N_VPN) - 1) /* vpn mask */ | |
| #define VA_S0 (1u << 31) /* S0 space */ | |
| #define VA_P1 (1u << 30) /* P1 space */ | |
| #define VA_N_TBI 12 /* TB index size */ | |
| #define VA_TBSIZE (1u << VA_N_TBI) /* TB size */ | |
| #define VA_M_TBI ((1u << VA_N_TBI) - 1) /* TB index mask */ | |
| #define VA_GETOFF(x) ((x) & VA_M_OFF) | |
| #define VA_GETVPN(x) (((x) >> VA_V_VPN) & VA_M_VPN) | |
| #define VA_GETTBI(x) ((x) & VA_M_TBI) | |
| /* PTE */ | |
| #define PTE_V_V 31 /* valid */ | |
| #define PTE_V (1u << PTE_V_V) | |
| #define PTE_V_ACC 27 /* access */ | |
| #define PTE_M_ACC 0xF | |
| #define PTE_ACC (PTE_M_ACC << PTE_V_ACC) | |
| #define PTE_V_M 26 /* modified */ | |
| #define PTE_M (1u << PTE_V_M) | |
| #define PTE_GETACC(x) (((x) >> PTE_V_ACC) & PTE_M_ACC) | |
| /* TLB entry */ | |
| #define TLB_V_RACC 0 /* rd acc field */ | |
| #define TLB_V_WACC 4 /* wr acc field */ | |
| #define TLB_M_ACC 0xF | |
| #define TLB_RACC (TLB_M_ACC << TLB_V_RACC) | |
| #define TLB_WACC (TLB_M_ACC << TLB_V_WACC) | |
| #define TLB_V_M 8 /* m bit */ | |
| #define TLB_M (1u << TLB_V_M) | |
| #define TLB_N_PFN (PAWIDTH - VA_N_OFF) /* ppfn size */ | |
| #define TLB_M_PFN ((1u << TLB_N_PFN) - 1) /* ppfn mask */ | |
| #define TLB_PFN (TLB_M_PFN << VA_V_VPN) | |
| /* Traps and interrupt requests */ | |
| #define TIR_V_IRQL 0 /* int request lvl */ | |
| #define TIR_V_TRAP 5 /* trap requests */ | |
| #define TIR_M_TRAP 07 | |
| #define TIR_TRAP (TIR_M_TRAP << TIR_V_TRAP) | |
| #define TRAP_INTOV (1 << TIR_V_TRAP) /* integer overflow */ | |
| #define TRAP_DIVZRO (2 << TIR_V_TRAP) /* divide by zero */ | |
| #define TRAP_FLTOVF (3 << TIR_V_TRAP) /* flt overflow */ | |
| #define TRAP_FLTDIV (4 << TIR_V_TRAP) /* flt/dec div by zero */ | |
| #define TRAP_FLTUND (5 << TIR_V_TRAP) /* flt underflow */ | |
| #define TRAP_DECOVF (6 << TIR_V_TRAP) /* decimal overflow */ | |
| #define TRAP_SUBSCR (7 << TIR_V_TRAP) /* subscript range */ | |
| #define SET_TRAP(x) trpirq = (trpirq & PSL_M_IPL) | (x) | |
| #define CLR_TRAPS trpirq = trpirq & ~TIR_TRAP | |
| #define SET_IRQL trpirq = (trpirq & TIR_TRAP) | eval_int () | |
| #define GET_TRAP(x) (((x) >> TIR_V_TRAP) & TIR_M_TRAP) | |
| #define GET_IRQL(x) (((x) >> TIR_V_IRQL) & PSL_M_IPL) | |
| /* Floating point fault parameters */ | |
| #define FLT_OVRFLO 0x8 /* flt overflow */ | |
| #define FLT_DIVZRO 0x9 /* flt div by zero */ | |
| #define FLT_UNDFLO 0xA /* flt underflow */ | |
| /* Compatability mode fault parameters */ | |
| #define CMODE_RSVI 0x0 /* reserved instr */ | |
| #define CMODE_BPT 0x1 /* BPT */ | |
| #define CMODE_IOT 0x2 /* IOT */ | |
| #define CMODE_EMT 0x3 /* EMT */ | |
| #define CMODE_TRAP 0x4 /* TRAP */ | |
| #define CMODE_ILLI 0x5 /* illegal instr */ | |
| #define CMODE_ODD 0x6 /* odd address */ | |
| /* EDITPC suboperators */ | |
| #define EO_END 0x00 /* end */ | |
| #define EO_END_FLOAT 0x01 /* end float */ | |
| #define EO_CLR_SIGNIF 0x02 /* clear signif */ | |
| #define EO_SET_SIGNIF 0x03 /* set signif */ | |
| #define EO_STORE_SIGN 0x04 /* store sign */ | |
| #define EO_LOAD_FILL 0x40 /* load fill */ | |
| #define EO_LOAD_SIGN 0x41 /* load sign */ | |
| #define EO_LOAD_PLUS 0x42 /* load sign if + */ | |
| #define EO_LOAD_MINUS 0x43 /* load sign if - */ | |
| #define EO_INSERT 0x44 /* insert */ | |
| #define EO_BLANK_ZERO 0x45 /* blank zero */ | |
| #define EO_REPL_SIGN 0x46 /* replace sign */ | |
| #define EO_ADJUST_LNT 0x47 /* adjust length */ | |
| #define EO_FILL 0x80 /* fill */ | |
| #define EO_MOVE 0x90 /* move */ | |
| #define EO_FLOAT 0xA0 /* float */ | |
| #define EO_RPT_MASK 0x0F /* rpt mask */ | |
| #define EO_RPT_FLAG 0x80 /* rpt flag */ | |
| /* EDITPC R2 packup parameters */ | |
| #define ED_V_CC 16 /* condition codes */ | |
| #define ED_M_CC 0xFF | |
| #define ED_CC (ED_M_CC << ED_V_CC) | |
| #define ED_V_SIGN 8 /* sign */ | |
| #define ED_M_SIGN 0xFF | |
| #define ED_SIGN (ED_M_SIGN << ED_V_SIGN) | |
| #define ED_V_FILL 0 /* fill */ | |
| #define ED_M_FILL 0xFF | |
| #define ED_FILL (ED_M_FILL << ED_V_FILL) | |
| #define ED_GETCC(x) (((x) >> ED_V_CC) & CC_MASK) | |
| #define ED_GETSIGN(x) (((x) >> ED_V_SIGN) & ED_M_SIGN) | |
| #define ED_GETFILL(x) (((x) >> ED_V_FILL) & ED_M_FILL) | |
| #define ED_PUTCC(r,x) (((r) & ~ED_CC) | (((x) << ED_V_CC) & ED_CC)) | |
| #define ED_PUTSIGN(r,x) (((r) & ~ED_SIGN) | (((x) << ED_V_SIGN) & ED_SIGN)) | |
| #define ED_PUTFILL(r,x) (((r) & ~ED_FILL) | (((x) << ED_V_FILL) & ED_FILL)) | |
| /* SCB offsets */ | |
| #define SCB_MCHK 0x04 /* machine chk */ | |
| #define SCB_KSNV 0x08 /* ker stk invalid */ | |
| #define SCB_PWRFL 0x0C /* power fail */ | |
| #define SCB_RESIN 0x10 /* rsvd/priv instr */ | |
| #define SCB_XFC 0x14 /* XFC instr */ | |
| #define SCB_RESOP 0x18 /* rsvd operand */ | |
| #define SCB_RESAD 0x1C /* rsvd addr mode */ | |
| #define SCB_ACV 0x20 /* ACV */ | |
| #define SCB_TNV 0x24 /* TNV */ | |
| #define SCB_TP 0x28 /* trace pending */ | |
| #define SCB_BPT 0x2C /* BPT instr */ | |
| #define SCB_CMODE 0x30 /* comp mode fault */ | |
| #define SCB_ARITH 0x34 /* arith fault */ | |
| #define SCB_CHMK 0x40 /* CHMK */ | |
| #define SCB_CHME 0x44 /* CHME */ | |
| #define SCB_CHMS 0x48 /* CHMS */ | |
| #define SCB_CHMU 0x4C /* CHMU */ | |
| #define SCB_CRDERR 0x54 /* CRD err intr */ | |
| #define SCB_MEMERR 0x60 /* mem err intr */ | |
| #define SCB_IPLSOFT 0x80 /* software intr */ | |
| #define SCB_INTTIM 0xC0 /* timer intr */ | |
| #define SCB_EMULATE 0xC8 /* emulation */ | |
| #define SCB_EMULFPD 0xCC /* emulation, FPD */ | |
| #define SCB_CSI 0xF0 /* constor input */ | |
| #define SCB_CSO 0xF4 /* constor output */ | |
| #define SCB_TTI 0xF8 /* console input */ | |
| #define SCB_TTO 0xFC /* console output */ | |
| #define SCB_INTR 0x100 /* hardware intr */ | |
| #define IPL_HLTPIN 0x1F /* halt pin IPL */ | |
| #define IPL_MEMERR 0x1D /* mem err IPL */ | |
| #define IPL_CRDERR 0x1A /* CRD err IPL */ | |
| /* Interrupt and exception types */ | |
| #define IE_SVE -1 /* severe exception */ | |
| #define IE_EXC 0 /* normal exception */ | |
| #define IE_INT 1 /* interrupt */ | |
| /* Decode ROM: opcode entry */ | |
| #define DR_F 0x80 /* FPD ok flag */ | |
| #define DR_NSPMASK 0x07 /* #specifiers */ | |
| #define DR_V_USPMASK 4 | |
| #define DR_M_USPMASK 0x70 /* #spec, sym_ */ | |
| #define DR_GETNSP(x) ((x) & DR_NSPMASK) | |
| #define DR_GETUSP(x) (((x) >> DR_V_USPMASK) & DR_M_USPMASK) | |
| /* Decode ROM: specifier entry */ | |
| #define DR_ACMASK 0x300 /* type */ | |
| #define DR_SPFLAG 0x008 /* special decode */ | |
| #define DR_LNMASK 0x007 /* length mask */ | |
| #define DR_LNT(x) (1 << (x & DR_LNMASK)) /* disp to lnt */ | |
| /* Decode ROM: length */ | |
| #define DR_BYTE 0x000 /* byte */ | |
| #define DR_WORD 0x001 /* word */ | |
| #define DR_LONG 0x002 /* long */ | |
| #define DR_QUAD 0x003 /* quad */ | |
| #define DR_OCTA 0x004 /* octa */ | |
| /* Decode ROM: operand type */ | |
| #define SH0 0x000 /* short literal */ | |
| #define SH1 0x010 | |
| #define SH2 0x020 | |
| #define SH3 0x030 | |
| #define IDX 0x040 /* indexed */ | |
| #define GRN 0x050 /* register */ | |
| #define RGD 0x060 /* register def */ | |
| #define ADC 0x070 /* autodecrement */ | |
| #define AIN 0x080 /* autoincrement */ | |
| #define AID 0x090 /* autoinc def */ | |
| #define BDP 0x0A0 /* byte disp */ | |
| #define BDD 0x0B0 /* byte disp def */ | |
| #define WDP 0x0C0 /* word disp */ | |
| #define WDD 0x0D0 /* word disp def */ | |
| #define LDP 0x0E0 /* long disp */ | |
| #define LDD 0x0F0 /* long disp def */ | |
| /* Decode ROM: access type */ | |
| #define DR_R 0x000 /* read */ | |
| #define DR_M 0x100 /* modify */ | |
| #define DR_A 0x200 /* address */ | |
| #define DR_W 0x300 /* write */ | |
| /* Decode ROM: access type and length */ | |
| #define RB (DR_R|DR_BYTE) | |
| #define RW (DR_R|DR_WORD) | |
| #define RL (DR_R|DR_LONG) | |
| #define RQ (DR_R|DR_QUAD) | |
| #define RO (DR_R|DR_OCTA) | |
| #define MB (DR_M|DR_BYTE) | |
| #define MW (DR_M|DR_WORD) | |
| #define ML (DR_M|DR_LONG) | |
| #define MQ (DR_M|DR_QUAD) | |
| #define MO (DR_M|DR_OCTA) | |
| #define AB (DR_A|DR_BYTE) | |
| #define AW (DR_A|DR_WORD) | |
| #define AL (DR_A|DR_LONG) | |
| #define AQ (DR_A|DR_QUAD) | |
| #define AO (DR_A|DR_OCTA) | |
| #define WB (DR_W|DR_BYTE) | |
| #define WW (DR_W|DR_WORD) | |
| #define WL (DR_W|DR_LONG) | |
| #define WQ (DR_W|DR_QUAD) | |
| #define WO (DR_W|DR_OCTA) | |
| /* Special dispatches. | |
| vb = variable bit field, treated as wb except for register | |
| rf = f_floating, treated as rl except for short literal | |
| rd = d_floating, treated as rq except for short literal | |
| rg = g_floating, treated as rq except for short literal | |
| rh = h_floating, treated as ro except for short literal | |
| bb = branch byte displacement | |
| bw = branch word displacement | |
| Length field must be correct | |
| */ | |
| #define VB (DR_SPFLAG|WB) /* .vb */ | |
| #define RF (DR_SPFLAG|RL) /* .rf */ | |
| #define RD (DR_SPFLAG|RQ) /* .rd */ | |
| #define RG (DR_SPFLAG|MQ) /* .rg */ | |
| #define RH (DR_SPFLAG|RO) /* .rh */ | |
| #define BB (DR_SPFLAG|WB|6) /* byte branch */ | |
| #define BW (DR_SPFLAG|WB|7) /* word branch */ | |
| /* Probe results and memory management fault codes */ | |
| #define PR_ACV 0 /* ACV */ | |
| #define PR_LNV 1 /* length viol */ | |
| #define PR_PACV 2 /* pte ACV (780) */ | |
| #define PR_PLNV 3 /* pte len viol */ | |
| #define PR_TNV 4 /* TNV */ | |
| /* #define PR_TB 5 *//* impossible */ | |
| #define PR_PTNV 6 /* pte TNV */ | |
| #define PR_OK 7 /* ok */ | |
| #define MM_PARAM(w,p) (((w)? 4: 0) | ((p) & 3)) /* fault param */ | |
| /* Memory management errors */ | |
| #define MM_WRITE 4 /* write */ | |
| #define MM_EMASK 3 /* against probe */ | |
| /* Privileged registers */ | |
| #define MT_KSP 0 | |
| #define MT_ESP 1 | |
| #define MT_SSP 2 | |
| #define MT_USP 3 | |
| #define MT_IS 4 | |
| #define MT_P0BR 8 | |
| #define MT_P0LR 9 | |
| #define MT_P1BR 10 | |
| #define MT_P1LR 11 | |
| #define MT_SBR 12 | |
| #define MT_SLR 13 | |
| #define MT_PCBB 16 | |
| #define MT_SCBB 17 | |
| #define MT_IPL 18 | |
| #define MT_ASTLVL 19 | |
| #define MT_SIRR 20 | |
| #define MT_SISR 21 | |
| #define MT_ICCS 24 | |
| #define MT_NICR 25 | |
| #define MT_ICR 26 | |
| #define MT_TODR 27 | |
| #define MT_CSRS 28 | |
| #define MT_CSRD 29 | |
| #define MT_CSTS 30 | |
| #define MT_CSTD 31 | |
| #define MT_RXCS 32 | |
| #define MT_RXDB 33 | |
| #define MT_TXCS 34 | |
| #define MT_TXDB 35 | |
| #define MT_MAPEN 56 | |
| #define MT_TBIA 57 | |
| #define MT_TBIS 58 | |
| #define MT_PME 61 | |
| #define MT_SID 62 | |
| #define MT_TBCHK 63 | |
| #define BR_MASK 0xFFFFFFFC | |
| #define LR_MASK 0x003FFFFF | |
| /* Opcodes */ | |
| enum opcodes { | |
| HALT, NOP, REI, BPT, RET, RSB, LDPCTX, SVPCTX, | |
| CVTPS, CVTSP, INDEX, CRC, PROBER, PROBEW, INSQUE, REMQUE, | |
| BSBB, BRB, BNEQ, BEQL, BGTR, BLEQ, JSB, JMP, | |
| BGEQ, BLSS, BGTRU, BLEQU, BVC, BVS, BGEQU, BLSSU, | |
| ADDP4, ADDP6, SUBP4, SUBP6, CVTPT, MULP, CVTTP, DIVP, | |
| MOVC3, CMPC3, SCANC, SPANC, MOVC5, CMPC5, MOVTC, MOVTUC, | |
| BSBW, BRW, CVTWL, CVTWB, MOVP, CMPP3, CVTPL, CMPP4, | |
| EDITPC, MATCHC, LOCC, SKPC, MOVZWL, ACBW, MOVAW, PUSHAW, | |
| ADDF2, ADDF3, SUBF2, SUBF3, MULF2, MULF3, DIVF2, DIVF3, | |
| CVTFB, CVTFW, CVTFL, CVTRFL, CVTBF, CVTWF, CVTLF, ACBF, | |
| MOVF, CMPF, MNEGF, TSTF, EMODF, POLYF, CVTFD, | |
| ADAWI = 0x58, INSQHI = 0x5C, INSQTI, REMQHI, REMQTI, | |
| ADDD2, ADDD3, SUBD2, SUBD3, MULD2, MULD3, DIVD2, DIVD3, | |
| CVTDB, CVTDW, CVTDL, CVTRDL, CVTBD, CVTWD, CVTLD, ACBD, | |
| MOVD, CMPD, MNEGD, TSTD, EMODD, POLYD, CVTDF, | |
| ASHL = 0x78, ASHQ, EMUL, EDIV, CLRQ, MOVQ, MOVAQ, PUSHAQ, | |
| ADDB2, ADDB3, SUBB2, SUBB3, MULB2, MULB3, DIVB2, DIVB3, | |
| BISB2, BISB3, BICB2, BICB3, XORB2, XORB3, MNEGB, CASEB, | |
| MOVB, CMPB, MCOMB, BITB, CLRB, TSTB, INCB, DECB, | |
| CVTBL, CVTBW, MOVZBL, MOVZBW, ROTL, ACBB, MOVAB, PUSHAB, | |
| ADDW2, ADDW3, SUBW2, SUBW3, MULW2, MULW3, DIVW2, DIVW3, | |
| BISW2, BISW3, BICW2, BICW3, XORW2, XORW3, MNEGW, CASEW, | |
| MOVW, CMPW, MCOMW, BITW, CLRW, TSTW, INCW, DECW, | |
| BISPSW, BICPSW, POPR, PUSHR, CHMK, CHME, CHMS, CHMU, | |
| ADDL2, ADDL3, SUBL2, SUBL3, MULL2, MULL3, DIVL2, DIVL3, | |
| BISL2, BISL3, BICL2, BICL3, XORL2, XORL3, MNEGL, CASEL, | |
| MOVL, CMPL, MCOML, BITL, CLRL, TSTL, INCL, DECL, | |
| ADWC, SBWC, MTPR, MFPR, MOVPSL, PUSHL, MOVAL, PUSHAL, | |
| BBS, BBC, BBSS, BBCS, BBSC, BBCC, BBSSI, BBCCI, | |
| BLBS, BLBC, FFS, FFC, CMPV, CMPZV, EXTV, EXTZV, | |
| INSV, ACBL, AOBLSS, AOBLEQ, SOBGEQ, SOBGTR, CVTLB, CVTLW, | |
| ASHP, CVTLP, CALLG, CALLS, XFC, CVTDH = 0x132, CVTGF = 0x133, | |
| ADDG2 = 0x140, ADDG3, SUBG2, SUBG3, MULG2, MULG3, DIVG2, DIVG3, | |
| CVTGB, CVTGW, CVTGL, CVTRGL, CVTBG, CVTWG, CVTLG, ACBG, | |
| MOVG, CMPG, MNEGG, TSTG, EMODG, POLYG, CVTGH, | |
| ADDH2 = 0x160, ADDH3, SUBH2, SUBH3, MULH2, MULH3, DIVH2, DIVH3, | |
| CVTHB, CVTHW, CVTHL, CVTRHL, CVTBH, CVTWH, CVTLH, ACBH, | |
| MOVH, CMPH, MNEGH, TSTH, EMODH, POLYH, CVTHG, | |
| CLRO = 0x17C, MOVO, MOVAO, PUSHAO, | |
| CVTFH = 0x198, CVTFG = 0x199, | |
| CVTHF = 0x1F6, CVTHD = 0x1F7 }; | |
| /* Repeated operations */ | |
| #define SXTB(x) (((x) & BSIGN)? ((x) | ~BMASK): ((x) & BMASK)) | |
| #define SXTW(x) (((x) & WSIGN)? ((x) | ~WMASK): ((x) & WMASK)) | |
| #define SXTBW(x) (((x) & BSIGN)? ((x) | (WMASK - BMASK)): ((x) & BMASK)) | |
| #define SXTL(x) (((x) & LSIGN)? ((x) | ~LMASK): ((x) & LMASK)) | |
| #define INTOV if (PSL & PSW_IV) SET_TRAP (TRAP_INTOV) | |
| #define V_INTOV cc = cc | CC_V; INTOV | |
| #define NEG(x) ((~(x) + 1) & LMASK) | |
| /* Istream access */ | |
| #define PCQ_SIZE 64 /* must be 2**n */ | |
| #define PCQ_MASK (PCQ_SIZE - 1) | |
| #define PCQ_ENTRY pcq[pcq_p = (pcq_p - 1) & PCQ_MASK] = fault_PC | |
| #define GET_ISTR(d,l) d = get_istr (l, acc) | |
| #define CHECK_FOR_IDLE_LOOP if (PC == fault_PC) { /* to self? */ \ | |
| if (PSL_GETIPL (PSL) == 0x1F) /* int locked out? */ \ | |
| ABORT (STOP_LOOP); /* infinite loop */ \ | |
| cpu_idle (); /* idle loop */ \ | |
| } | |
| /* Instructions which have side effects (ACB, AOBLSS, BBSC, BBCS, etc.) can't be an idle loop so avoid the idle check */ | |
| #define BRANCHB_ALWAYS(d) do {PCQ_ENTRY; PC = PC + SXTB (d); FLUSH_ISTR; } while (0) | |
| #define BRANCHW_ALWAYS(d) do {PCQ_ENTRY; PC = PC + SXTW (d); FLUSH_ISTR; } while (0) | |
| /* Any basic branch instructions could be an idle loop */ | |
| #define BRANCHB(d) do {PCQ_ENTRY; PC = PC + SXTB (d); FLUSH_ISTR; CHECK_FOR_IDLE_LOOP; } while (0) | |
| #define BRANCHW(d) do {PCQ_ENTRY; PC = PC + SXTW (d); FLUSH_ISTR; CHECK_FOR_IDLE_LOOP; } while (0) | |
| #define JUMP(d) do {PCQ_ENTRY; PC = (d); FLUSH_ISTR; CHECK_FOR_IDLE_LOOP; } while (0) | |
| #define CMODE_JUMP(d) do {PCQ_ENTRY; PC = (d); CHECK_FOR_IDLE_LOOP; } while (0) | |
| #define SETPC(d) PC = (d), FLUSH_ISTR | |
| #define FLUSH_ISTR ibcnt = 0, ppc = -1 | |
| /* Character string instructions */ | |
| #define STR_V_DPC 24 /* delta PC */ | |
| #define STR_M_DPC 0xFF | |
| #define STR_V_CHR 16 /* char argument */ | |
| #define STR_M_CHR 0xFF | |
| #define STR_LNMASK 0xFFFF /* string length */ | |
| #define STR_GETDPC(x) (((x) >> STR_V_DPC) & STR_M_DPC) | |
| #define STR_GETCHR(x) (((x) >> STR_V_CHR) & STR_M_CHR) | |
| #define STR_PACK(m,x) ((((PC - fault_PC) & STR_M_DPC) << STR_V_DPC) | \ | |
| (((m) & STR_M_CHR) << STR_V_CHR) | ((x) & STR_LNMASK)) | |
| /* Read and write */ | |
| #define RA (acc) | |
| #define WA ((acc) << TLB_V_WACC) | |
| #define ACC_MASK(x) (1 << (x)) | |
| #define TLB_ACCR(x) (ACC_MASK (x) << TLB_V_RACC) | |
| #define TLB_ACCW(x) (ACC_MASK (x) << TLB_V_WACC) | |
| #define REF_V 0 | |
| #define REF_P 1 | |
| /* Condition code macros */ | |
| #define CC_ZZ1P cc = CC_Z | (cc & CC_C) | |
| #define CC_IIZZ_B(r) \ | |
| if ((r) & BSIGN) cc = CC_N; \ | |
| else if ((r) == 0) cc = CC_Z; \ | |
| else cc = 0 | |
| #define CC_IIZZ_W(r) \ | |
| if ((r) & WSIGN) cc = CC_N; \ | |
| else if ((r) == 0) cc = CC_Z; \ | |
| else cc = 0 | |
| #define CC_IIZZ_L(r) \ | |
| if ((r) & LSIGN) cc = CC_N; \ | |
| else if ((r) == 0) cc = CC_Z; \ | |
| else cc = 0 | |
| #define CC_IIZZ_Q(rl,rh) \ | |
| if ((rh) & LSIGN) cc = CC_N; \ | |
| else if (((rl) | (rh)) == 0) cc = CC_Z; \ | |
| else cc = 0 | |
| #define CC_IIZZ_FP CC_IIZZ_W | |
| #define CC_IIZP_B(r) \ | |
| if ((r) & BSIGN) cc = CC_N | (cc & CC_C); \ | |
| else if ((r) == 0) cc = CC_Z | (cc & CC_C); \ | |
| else cc = cc & CC_C | |
| #define CC_IIZP_W(r) \ | |
| if ((r) & WSIGN) cc = CC_N | (cc & CC_C); \ | |
| else if ((r) == 0) cc = CC_Z | (cc & CC_C); \ | |
| else cc = cc & CC_C | |
| #define CC_IIZP_L(r) \ | |
| if ((r) & LSIGN) cc = CC_N | (cc & CC_C); \ | |
| else if ((r) == 0) cc = CC_Z | (cc & CC_C); \ | |
| else cc = cc & CC_C | |
| #define CC_IIZP_Q(rl,rh) \ | |
| if ((rh) & LSIGN) cc = CC_N | (cc & CC_C); \ | |
| else if (((rl) | (rh)) == 0) cc = CC_Z | (cc & CC_C); \ | |
| else cc = cc & CC_C | |
| #define CC_IIZP_O(rl,rm2,rm1,rh) \ | |
| if ((rh) & LSIGN) cc = CC_N | (cc & CC_C); \ | |
| else if (((rl) | (rm2) | (rm1) | (rh)) == 0) cc = CC_Z | (cc & CC_C); \ | |
| else cc = cc & CC_C | |
| #define CC_IIZP_FP CC_IIZP_W | |
| #define V_ADD_B(r,s1,s2) \ | |
| if (((~(s1) ^ (s2)) & ((s1) ^ (r))) & BSIGN) { V_INTOV; } | |
| #define V_ADD_W(r,s1,s2) \ | |
| if (((~(s1) ^ (s2)) & ((s1) ^ (r))) & WSIGN) { V_INTOV; } | |
| #define V_ADD_L(r,s1,s2) \ | |
| if (((~(s1) ^ (s2)) & ((s1) ^ (r))) & LSIGN) { V_INTOV; } | |
| #define C_ADD(r,s1,s2) \ | |
| if (((uint32) r) < ((uint32) s2)) cc = cc | CC_C | |
| #define CC_ADD_B(r,s1,s2) \ | |
| CC_IIZZ_B (r); \ | |
| V_ADD_B (r, s1, s2); \ | |
| C_ADD (r, s1, s2) | |
| #define CC_ADD_W(r,s1,s2) \ | |
| CC_IIZZ_W (r); \ | |
| V_ADD_W (r, s1, s2); \ | |
| C_ADD (r, s1, s2) | |
| #define CC_ADD_L(r,s1,s2) \ | |
| CC_IIZZ_L (r); \ | |
| V_ADD_L (r, s1, s2); \ | |
| C_ADD (r, s1, s2) | |
| #define V_SUB_B(r,s1,s2) \ | |
| if ((((s1) ^ (s2)) & (~(s1) ^ (r))) & BSIGN) { V_INTOV; } | |
| #define V_SUB_W(r,s1,s2) \ | |
| if ((((s1) ^ (s2)) & (~(s1) ^ (r))) & WSIGN) { V_INTOV; } | |
| #define V_SUB_L(r,s1,s2) \ | |
| if ((((s1) ^ (s2)) & (~(s1) ^ (r))) & LSIGN) { V_INTOV; } | |
| #define C_SUB(r,s1,s2) \ | |
| if (((uint32) s2) < ((uint32) s1)) cc = cc | CC_C | |
| #define CC_SUB_B(r,s1,s2) \ | |
| CC_IIZZ_B (r); \ | |
| V_SUB_B (r, s1, s2); \ | |
| C_SUB (r, s1, s2) | |
| #define CC_SUB_W(r,s1,s2) \ | |
| CC_IIZZ_W (r); \ | |
| V_SUB_W (r, s1, s2); \ | |
| C_SUB (r, s1, s2) | |
| #define CC_SUB_L(r,s1,s2) \ | |
| CC_IIZZ_L (r); \ | |
| V_SUB_L (r, s1, s2); \ | |
| C_SUB (r, s1, s2) | |
| #define CC_CMP_B(s1,s2) \ | |
| if (SXTB (s1) < SXTB (s2)) cc = CC_N; \ | |
| else if ((s1) == (s2)) cc = CC_Z; \ | |
| else cc = 0; \ | |
| if (((uint32) s1) < ((uint32) s2)) cc = cc | CC_C | |
| #define CC_CMP_W(s1,s2) \ | |
| if (SXTW (s1) < SXTW (s2)) cc = CC_N; \ | |
| else if ((s1) == (s2)) cc = CC_Z; \ | |
| else cc = 0; \ | |
| if (((uint32) s1) < ((uint32) s2)) cc = cc | CC_C | |
| #define CC_CMP_L(s1,s2) \ | |
| if ((s1) < (s2)) cc = CC_N; \ | |
| else if ((s1) == (s2)) cc = CC_Z; \ | |
| else cc = 0; \ | |
| if (((uint32) s1) < ((uint32) s2)) cc = cc | CC_C | |
| #define VAX_IDLE_VMS 0x01 | |
| #define VAX_IDLE_ULT 0x02 /* Ultrix more recent versions */ | |
| #define VAX_IDLE_ULTOLD 0x04 /* Ultrix older versions */ | |
| #define VAX_IDLE_ULT1X 0x08 /* Ultrix 1.x */ | |
| #define VAX_IDLE_QUAD 0x10 | |
| #define VAX_IDLE_BSDNEW 0x20 | |
| #define VAX_IDLE_SYSV 0x40 | |
| extern uint32 cpu_idle_mask; /* idle mask */ | |
| void cpu_idle (void); | |
| /* Model dependent definitions */ | |
| #if defined (VAX_780) | |
| #include "vax780_defs.h" | |
| #elif defined (VAX_750) | |
| #include "vax750_defs.h" | |
| #elif defined (VAX_730) | |
| #include "vax730_defs.h" | |
| #elif defined (VAX_610) | |
| #include "vax610_defs.h" | |
| #elif defined (VAX_620) || defined (VAX_630) | |
| #include "vax630_defs.h" | |
| #elif defined (VAX_860) | |
| #include "vax860_defs.h" | |
| #else /* VAX 3900 */ | |
| #include "vaxmod_defs.h" | |
| #endif | |
| #ifndef CPU_MODEL_MODIFIERS | |
| #define CPU_MODEL_MODIFIERS /* No model specific CPU modifiers */ | |
| #endif | |
| #ifdef DONT_USE_INTERNAL_ROM | |
| #define BOOT_CODE_ARRAY NULL | |
| #define BOOT_CODE_SIZE 0 | |
| #endif | |
| extern t_stat cpu_load_bootcode (const char *filename, const unsigned char *builtin_code, size_t size, t_bool rom, t_addr offset); | |
| extern t_stat cpu_print_model (FILE *st); | |
| extern t_stat cpu_show_model (FILE *st, UNIT *uptr, int32 val, void *desc); | |
| extern t_stat cpu_set_model (UNIT *uptr, int32 val, char *cptr, void *desc); | |
| extern t_stat cpu_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr); | |
| extern t_stat cpu_model_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr); | |
| #endif /* _VAX_DEFS_H */ |