Previous 199869 Revisions Next

r34068 Friday 26th December, 2014 at 13:31:13 UTC by David Haywood
arcompact (nw)
[src/emu/cpu/arcompact]arcompact.h arcompact_execute.c arcompact_make.py

trunk/src/emu/cpu/arcompact/arcompact.h
r242579r242580
148148   ARCOMPACT_RETTYPE arcompact_handle03(OPS_32);
149149//   ARCOMPACT_RETTYPE arcompact_handle04_00(OPS_32);
150150   ARCOMPACT_RETTYPE arcompact_handle04_01(OPS_32);
151   ARCOMPACT_RETTYPE arcompact_handle04_02(OPS_32);
151//   ARCOMPACT_RETTYPE arcompact_handle04_02(OPS_32);
152152   ARCOMPACT_RETTYPE arcompact_handle04_03(OPS_32);
153153//   ARCOMPACT_RETTYPE arcompact_handle04_04(OPS_32);
154154//   ARCOMPACT_RETTYPE arcompact_handle04_05(OPS_32);
r242579r242580
167167   ARCOMPACT_RETTYPE arcompact_handle04_12(OPS_32);
168168   ARCOMPACT_RETTYPE arcompact_handle04_13(OPS_32);
169169   ARCOMPACT_RETTYPE arcompact_handle04_14(OPS_32);
170   ARCOMPACT_RETTYPE arcompact_handle04_15(OPS_32);
170//   ARCOMPACT_RETTYPE arcompact_handle04_15(OPS_32);
171171//   ARCOMPACT_RETTYPE arcompact_handle04_16(OPS_32);
172172   ARCOMPACT_RETTYPE arcompact_handle04_17(OPS_32);
173173   ARCOMPACT_RETTYPE arcompact_handle04_18(OPS_32);
r242579r242580
767767   ARCOMPACT_RETTYPE get_insruction(OPS_32);
768768
769769   ARCOMPACT_HANDLER04_TYPE_PM(04_00);
770   ARCOMPACT_HANDLER04_TYPE_PM(04_02);
770771   ARCOMPACT_HANDLER04_TYPE_PM(04_04);
771772   ARCOMPACT_HANDLER04_TYPE_PM(04_05);
772773   ARCOMPACT_HANDLER04_TYPE_PM(04_06);
773774   ARCOMPACT_HANDLER04_TYPE_PM(04_07);
774775   ARCOMPACT_HANDLER04_TYPE_PM(04_0a);
775776   ARCOMPACT_HANDLER04_TYPE_PM(04_0f);
777   ARCOMPACT_HANDLER04_TYPE_PM(04_15);
776778   ARCOMPACT_HANDLER04_TYPE_PM(04_16);
777779   ARCOMPACT_HANDLER04_TYPE_PM(04_20);
778780
r242579r242580
838840#define STATUS32_CLEAR_Z (m_status32 &= ~Z_ZERO_FLAG)
839841#define STATUS32_CHECK_Z (m_status32 &   Z_ZERO_FLAG)
840842
843// Condition 0x0c (LE)
844#define CONDITION_LE ((STATUS32_CHECK_Z) || (STATUS32_CHECK_N && !STATUS32_CHECK_V) ||  (!STATUS32_CHECK_N && STATUS32_CHECK_V)) // Z or (N and /V) or (/N and V)
841845
842846extern const device_type ARCA5;
843847
trunk/src/emu/cpu/arcompact/arcompact_execute.c
r242579r242580
17271727   return arcompact_handle04_helper(PARAMS, opcodes_04[0x01], /*"ADC"*/ 0,0);
17281728}
17291729
1730ARCOMPACT_RETTYPE arcompact_device::arcompact_handle04_02(OPS_32) 
1731{
1732   return arcompact_handle04_helper(PARAMS, opcodes_04[0x02], /*"SUB"*/ 0,0);
1733}
17341730
1731
17351732ARCOMPACT_RETTYPE arcompact_device::arcompact_handle04_03(OPS_32) 
17361733{
17371734   return arcompact_handle04_helper(PARAMS, opcodes_04[0x03], /*"SBC"*/ 0,0);
r242579r242580
19001897   return arcompact_handle04_helper(PARAMS, opcodes_04[0x14], /*"ADD1"*/ 0,0);
19011898}
19021899
1903ARCOMPACT_RETTYPE arcompact_device::arcompact_handle04_15(OPS_32) 
1904{
1905   return arcompact_handle04_helper(PARAMS, opcodes_04[0x15], /*"ADD2"*/ 0,0);
1906}
19071900
19081901
19091902
r242579r242580
30363029   return m_pc + (2 >> 0);
30373030}
30383031
3039ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_00(OPS_16) // ASL_S b, b, u5
3040{
3041   int breg, u;
3042
3043   COMMON16_GET_breg;
3044   COMMON16_GET_u5;
3045
3046   REG_16BIT_RANGE(breg);
3047
3048   // only bottom 5 bits are used if ASL operations, we only have 5 bits anyway here
3049   m_regs[breg] = m_regs[breg] << (u&0x1f);
3050
3051   return m_pc + (2 >> 0);
3052
3053}
3054
3055ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_01(OPS_16)
3056{
3057   return arcompact_handle_l7_0x_helper(PARAMS, "LSR_S");
3058}
3059
3060ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_02(OPS_16) // ASR_S b,b,u5
3061{
3062   int breg, u;
3063
3064   COMMON16_GET_breg;
3065   COMMON16_GET_u5;
3066
3067   REG_16BIT_RANGE(breg);
3068
3069   // only bottom 5 bits are used if ASR operations, we only have 5 bits anyway here
3070   INT32 temp = (INT32)m_regs[breg]; // treat it as a signed value, so sign extension occurs during shift
3071   
3072   m_regs[breg] = temp >> (u&0x1f);
3073
3074   return m_pc + (2 >> 0);
3075}
3076
3077ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_03(OPS_16) // SUB_S b,b,u5
3078{
3079   int breg, u;
3080
3081   COMMON16_GET_breg;
3082   COMMON16_GET_u5;
3083
3084   REG_16BIT_RANGE(breg);
3085
3086   m_regs[breg] = m_regs[breg] - u;
3087
3088   return m_pc + (2 >> 0);
3089}
3090
3091ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_04(OPS_16) // BSET_S b,b,u5
3092{
3093   int breg, u;
3094
3095   COMMON16_GET_breg;
3096   COMMON16_GET_u5;
3097
3098   REG_16BIT_RANGE(breg);
3099
3100   m_regs[breg] = m_regs[breg] | (1 << (u & 0x1f));
3101
3102   return m_pc + (2 >> 0);
3103}
3104
31053032ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_05(OPS_16)
31063033{
31073034   return arcompact_handle_l7_0x_helper(PARAMS, "BCLR_S");
31083035}
31093036
3110ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_06(OPS_16) // BMSK b,b,u5
3111{
3112   int breg, u;
3113
3114   COMMON16_GET_breg;
3115   COMMON16_GET_u5;
3116
3117   REG_16BIT_RANGE(breg);
3118
3119   u &= 0x1f;
3120
3121   m_regs[breg] = m_regs[breg] | ((1 << (u + 1)) - 1);
3122
3123   return m_pc + (2 >> 0);
3124}
3125
31263037ARCOMPACT_RETTYPE arcompact_device::arcompact_handle17_07(OPS_16)
31273038{
31283039   return arcompact_handle_l7_0x_helper(PARAMS, "BTST_S");
31293040}
31303041
3042
3043
31313044ARCOMPACT_RETTYPE arcompact_device::arcompact_handle18_0x_helper(OPS_16, const char* optext, int st)
31323045{
31333046   arcompact_log("unimplemented %s %04x (0x18_0x group)", optext, op);
r242579r242580
34603373ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_00(OPS_16)  { return arcompact_handle1e_03_0x_helper(PARAMS, "BGT_S"); }
34613374ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_01(OPS_16)  { return arcompact_handle1e_03_0x_helper(PARAMS, "BGE_S"); }
34623375ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_02(OPS_16)  { return arcompact_handle1e_03_0x_helper(PARAMS, "BLT_S"); }
3463ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_03(OPS_16)  { return arcompact_handle1e_03_0x_helper(PARAMS, "BLE_S"); }
3376
3377ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_03(OPS_16) // BLE_S
3378{
3379   if (CONDITION_LE)
3380   {
3381      int s = (op & 0x003f) >> 0;   op &= ~0x003f;
3382      if (s & 0x020) s = -0x20 + (s & 0x1f);
3383      UINT32 realaddress = PC_ALIGNED32 + (s * 2);
3384      //m_regs[REG_BLINK] = m_pc + (2 >> 0); // don't link
3385      return realaddress;
3386   }
3387
3388   return m_pc + (2 >> 0);
3389}
3390
34643391ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_04(OPS_16)  { return arcompact_handle1e_03_0x_helper(PARAMS, "BHI_S"); }
34653392ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_05(OPS_16)  { return arcompact_handle1e_03_0x_helper(PARAMS, "BHS_S"); }
34663393ARCOMPACT_RETTYPE arcompact_device::arcompact_handle1e_03_06(OPS_16)  { return arcompact_handle1e_03_0x_helper(PARAMS, "BLO_S"); }
trunk/src/emu/cpu/arcompact/arcompact_make.py
r242579r242580
155155    print >>f, ""
156156    print >>f, ""
157157
158#  xxx_S b, b, u5 format opcodes
159def EmitGroup17(f,funcname, opname, opexecute):
160    print >>f, "ARCOMPACT_RETTYPE arcompact_device::arcompact_handle%s(OPS_16)" % (funcname)
161    print >>f, "{"
162    print >>f, "   int breg, u;"
163    print >>f, "   "
164    print >>f, "   COMMON16_GET_breg;"
165    print >>f, "   COMMON16_GET_u5;"
166    print >>f, "   "
167    print >>f, "   REG_16BIT_RANGE(breg);"
168    print >>f, "   "
169    print >>f, "   %s" % (opexecute)
170    print >>f, "   "
171    print >>f, "   return m_pc + (2 >> 0);"
172    print >>f, "}"
173    print >>f, ""
174    print >>f, ""
175
176
177
158178try:
159179    f = open(sys.argv[1], "w")
160180except Exception, err:
r242579r242580
164184
165185EmitGroup04(f, "04_00", "ADD", "m_regs[areg] = b + c;" )
166186
187EmitGroup04(f, "04_02", "SUB", "m_regs[areg] = b - c;" )
188
167189EmitGroup04(f, "04_04", "AND", "m_regs[areg] = b & c;" )
168190EmitGroup04(f, "04_05", "OR",  "m_regs[areg] = b | c;" )
169191EmitGroup04(f, "04_06", "BIC", "m_regs[areg] = b & (~c);" )
r242579r242580
171193
172194EmitGroup04(f, "04_0f", "BSET", "m_regs[areg] = b | (1 << (c & 0x1f));" )
173195
196EmitGroup04(f, "04_15", "ADD2", "m_regs[areg] = b + (c << 2);" )
174197EmitGroup04(f, "04_16", "ADD3", "m_regs[areg] = b + (c << 3);" )
175198
176199
177200EmitGroup04(f, "05_00", "ASL", "m_regs[areg] = b << (c&0x1f);" )
178201EmitGroup04(f, "05_01", "LSR", "m_regs[areg] = b >> (c&0x1f);" )
179202
203#  xxx_S b, b, u5 format opcodes
204EmitGroup17(f, "17_00", "ASL_S",  "m_regs[breg] = m_regs[breg] << (u&0x1f);" )
205EmitGroup17(f, "17_01", "LSR_S",  "m_regs[breg] = m_regs[breg] >> (u&0x1f);" )
206EmitGroup17(f, "17_02", "ASR_S",  "INT32 temp = (INT32)m_regs[breg]; m_regs[breg] = temp >> (u&0x1f); // treat it as a signed value, so sign extension occurs during shift" )
207EmitGroup17(f, "17_03", "SUB_S",  "m_regs[breg] = m_regs[breg] - u;" )
208EmitGroup17(f, "17_04", "BSET_S", "m_regs[breg] = m_regs[breg] | (1 << (u & 0x1f));" )
180209
210EmitGroup17(f, "17_06", "BMSK_S", "m_regs[breg] = m_regs[breg] | ((1 << (u + 1)) - 1);" )
211
212
213
214

https://github.com/mamedev/mame/commit/cab6ab55aed82cb13d6d4426e0e4f2b8f56c0f2a

Previous 199869 Revisions Next

© 1997-2024 The MAME Team