cpu/cz80/cz80_opCB.c

   1 /******************************************************************************\r
   2  *\r
   3  * CZ80 CB opcode include source file\r
   4  * CZ80 emulator version 0.9\r
   5  * Copyright 2004-2005 Stéphane Dallongeville\r
   6  *\r
   7  * (Modified by NJ)\r
   8  *\r
   9  *****************************************************************************/\r
  10 \r
  11 #if CZ80_USE_JUMPTABLE\r
  12         goto *JumpTableCB[Opcode];\r
  13 #else\r
  14 switch (Opcode)\r
  15 {\r
  16 #endif\r
  17 \r
  18 /*-----------------------------------------\r
  19  RLC\r
  20 -----------------------------------------*/\r
  21 \r
  22         OPCB(0x00): // RLC  B\r
  23         OPCB(0x01): // RLC  C\r
  24         OPCB(0x02): // RLC  D\r
  25         OPCB(0x03): // RLC  E\r
  26         OPCB(0x04): // RLC  H\r
  27         OPCB(0x05): // RLC  L\r
  28         OPCB(0x07): // RLC  A\r
  29                 src = zR8(Opcode);\r
  30                 res = (src << 1) | (src >> 7);\r
  31                 zF = SZP[res] | (src >> 7);\r
  32                 zR8(Opcode) = res;\r
  33                 RET(8)\r
  34 \r
  35         OPCB(0x06): // RLC  (HL)\r
  36                 adr = zHL;\r
  37                 src = READ_MEM8(adr);\r
  38                 res = (src << 1) | (src >> 7);\r
  39                 zF = SZP[res] | (src >> 7);\r
  40                 WRITE_MEM8(adr, res);\r
  41                 RET(15)\r
  42 \r
  43 /*-----------------------------------------\r
  44  RRC\r
  45 -----------------------------------------*/\r
  46 \r
  47         OPCB(0x08): // RRC  B\r
  48         OPCB(0x09): // RRC  C\r
  49         OPCB(0x0a): // RRC  D\r
  50         OPCB(0x0b): // RRC  E\r
  51         OPCB(0x0c): // RRC  H\r
  52         OPCB(0x0d): // RRC  L\r
  53         OPCB(0x0f): // RRC  A\r
  54                 src = zR8(Opcode & 7);\r
  55                 res = (src >> 1) | (src << 7);\r
  56                 zF = SZP[res] | (src & CF);\r
  57                 zR8(Opcode & 7) = res;\r
  58                 RET(8)\r
  59 \r
  60         OPCB(0x0e): // RRC  (HL)\r
  61                 adr = zHL;\r
  62                 src = READ_MEM8(adr);\r
  63                 res = (src >> 1) | (src << 7);\r
  64                 zF = SZP[res] | (src & CF);\r
  65                 WRITE_MEM8(adr, res);\r
  66                 RET(15)\r
  67 \r
  68 /*-----------------------------------------\r
  69  RL\r
  70 -----------------------------------------*/\r
  71 \r
  72         OPCB(0x10): // RL   B\r
  73         OPCB(0x11): // RL   C\r
  74         OPCB(0x12): // RL   D\r
  75         OPCB(0x13): // RL   E\r
  76         OPCB(0x14): // RL   H\r
  77         OPCB(0x15): // RL   L\r
  78         OPCB(0x17): // RL   A\r
  79                 src = zR8(Opcode & 7);\r
  80                 res = (src << 1) | (zF & CF);\r
  81                 zF = SZP[res] | (src >> 7);\r
  82                 zR8(Opcode & 7) = res;\r
  83                 RET(8)\r
  84 \r
  85         OPCB(0x16): // RL   (HL)\r
  86                 adr = zHL;\r
  87                 src = READ_MEM8(adr);\r
  88                 res = (src << 1) | (zF & CF);\r
  89                 zF = SZP[res] | (src >> 7);\r
  90                 WRITE_MEM8(adr, res);\r
  91                 RET(15)\r
  92 \r
  93 /*-----------------------------------------\r
  94  RR\r
  95 -----------------------------------------*/\r
  96 \r
  97         OPCB(0x18): // RR   B\r
  98         OPCB(0x19): // RR   C\r
  99         OPCB(0x1a): // RR   D\r
 100         OPCB(0x1b): // RR   E\r
 101         OPCB(0x1c): // RR   H\r
 102         OPCB(0x1d): // RR   L\r
 103         OPCB(0x1f): // RR   A\r
 104                 src = zR8(Opcode & 7);\r
 105                 res = (src >> 1) | (zF << 7);\r
 106                 zF = SZP[res] | (src & CF);\r
 107                 zR8(Opcode & 7) = res;\r
 108                 RET(8)\r
 109 \r
 110         OPCB(0x1e): // RR   (HL)\r
 111                 adr = zHL;\r
 112                 src = READ_MEM8(adr);\r
 113                 res = (src >> 1) | (zF << 7);\r
 114                 zF = SZP[res] | (src & CF);\r
 115                 WRITE_MEM8(adr, res);\r
 116                 RET(15)\r
 117 \r
 118 /*-----------------------------------------\r
 119  SLA\r
 120 -----------------------------------------*/\r
 121 \r
 122         OPCB(0x20): // SLA  B\r
 123         OPCB(0x21): // SLA  C\r
 124         OPCB(0x22): // SLA  D\r
 125         OPCB(0x23): // SLA  E\r
 126         OPCB(0x24): // SLA  H\r
 127         OPCB(0x25): // SLA  L\r
 128         OPCB(0x27): // SLA  A\r
 129                 src = zR8(Opcode & 7);\r
 130                 res = src << 1;\r
 131                 zF = SZP[res] | (src >> 7);\r
 132                 zR8(Opcode & 7) = res;\r
 133                 RET(8)\r
 134 \r
 135         OPCB(0x26): // SLA  (HL)\r
 136                 adr = zHL;\r
 137                 src = READ_MEM8(adr);\r
 138                 res = src << 1;\r
 139                 zF = SZP[res] | (src >> 7);\r
 140                 WRITE_MEM8(adr, res);\r
 141                 RET(15)\r
 142 \r
 143 /*-----------------------------------------\r
 144  SRA\r
 145 -----------------------------------------*/\r
 146 \r
 147         OPCB(0x28): // SRA  B\r
 148         OPCB(0x29): // SRA  C\r
 149         OPCB(0x2a): // SRA  D\r
 150         OPCB(0x2b): // SRA  E\r
 151         OPCB(0x2c): // SRA  H\r
 152         OPCB(0x2d): // SRA  L\r
 153         OPCB(0x2f): // SRA  A\r
 154                 src = zR8(Opcode & 7);\r
 155                 res = (src >> 1) | (src & 0x80);\r
 156                 zF = SZP[res] | (src & CF);\r
 157                 zR8(Opcode & 7) = res;\r
 158                 RET(8)\r
 159 \r
 160         OPCB(0x2e): // SRA  (HL)\r
 161                 adr = zHL;\r
 162                 src = READ_MEM8(adr);\r
 163                 res = (src >> 1) | (src & 0x80);\r
 164                 zF = SZP[res] | (src & CF);\r
 165                 WRITE_MEM8(adr, res);\r
 166                 RET(15)\r
 167 \r
 168 /*-----------------------------------------\r
 169  SLL\r
 170 -----------------------------------------*/\r
 171 \r
 172         OPCB(0x30): // SLL  B\r
 173         OPCB(0x31): // SLL  C\r
 174         OPCB(0x32): // SLL  D\r
 175         OPCB(0x33): // SLL  E\r
 176         OPCB(0x34): // SLL  H\r
 177         OPCB(0x35): // SLL  L\r
 178         OPCB(0x37): // SLL  A\r
 179                 src = zR8(Opcode & 7);\r
 180                 res = (src << 1) | 0x01;\r
 181                 zF = SZP[res] | (src >> 7);\r
 182                 zR8(Opcode & 7) = res;\r
 183                 RET(8)\r
 184 \r
 185         OPCB(0x36): // SLL  (HL)\r
 186                 adr = zHL;\r
 187                 src = READ_MEM8(adr);\r
 188                 res = (src << 1) | 0x01;\r
 189                 zF = SZP[res] | (src >> 7);\r
 190                 WRITE_MEM8(adr, res);\r
 191                 RET(15)\r
 192 \r
 193 /*-----------------------------------------\r
 194  SRL\r
 195 -----------------------------------------*/\r
 196 \r
 197         OPCB(0x38): // SRL  B\r
 198         OPCB(0x39): // SRL  C\r
 199         OPCB(0x3a): // SRL  D\r
 200         OPCB(0x3b): // SRL  E\r
 201         OPCB(0x3c): // SRL  H\r
 202         OPCB(0x3d): // SRL  L\r
 203         OPCB(0x3f): // SRL  A\r
 204                 src = zR8(Opcode & 7);\r
 205                 res = src >> 1;\r
 206                 zF = SZP[res] | (src & CF);\r
 207                 zR8(Opcode & 7) = res;\r
 208                 RET(8)\r
 209 \r
 210         OPCB(0x3e): // SRL  (HL)\r
 211                 adr = zHL;\r
 212                 src = READ_MEM8(adr);\r
 213                 res = src >> 1;\r
 214                 zF = SZP[res] | (src & CF);\r
 215                 WRITE_MEM8(adr, res);\r
 216                 RET(15)\r
 217 \r
 218 /*-----------------------------------------\r
 219  BIT\r
 220 -----------------------------------------*/\r
 221 \r
 222         OPCB(0x40): // BIT  0,B\r
 223         OPCB(0x41): // BIT  0,C\r
 224         OPCB(0x42): // BIT  0,D\r
 225         OPCB(0x43): // BIT  0,E\r
 226         OPCB(0x44): // BIT  0,H\r
 227         OPCB(0x45): // BIT  0,L\r
 228         OPCB(0x47): // BIT  0,A\r
 229 \r
 230         OPCB(0x48): // BIT  1,B\r
 231         OPCB(0x49): // BIT  1,C\r
 232         OPCB(0x4a): // BIT  1,D\r
 233         OPCB(0x4b): // BIT  1,E\r
 234         OPCB(0x4c): // BIT  1,H\r
 235         OPCB(0x4d): // BIT  1,L\r
 236         OPCB(0x4f): // BIT  1,A\r
 237 \r
 238         OPCB(0x50): // BIT  2,B\r
 239         OPCB(0x51): // BIT  2,C\r
 240         OPCB(0x52): // BIT  2,D\r
 241         OPCB(0x53): // BIT  2,E\r
 242         OPCB(0x54): // BIT  2,H\r
 243         OPCB(0x55): // BIT  2,L\r
 244         OPCB(0x57): // BIT  2,A\r
 245 \r
 246         OPCB(0x58): // BIT  3,B\r
 247         OPCB(0x59): // BIT  3,C\r
 248         OPCB(0x5a): // BIT  3,D\r
 249         OPCB(0x5b): // BIT  3,E\r
 250         OPCB(0x5c): // BIT  3,H\r
 251         OPCB(0x5d): // BIT  3,L\r
 252         OPCB(0x5f): // BIT  3,A\r
 253 \r
 254         OPCB(0x60): // BIT  4,B\r
 255         OPCB(0x61): // BIT  4,C\r
 256         OPCB(0x62): // BIT  4,D\r
 257         OPCB(0x63): // BIT  4,E\r
 258         OPCB(0x64): // BIT  4,H\r
 259         OPCB(0x65): // BIT  4,L\r
 260         OPCB(0x67): // BIT  4,A\r
 261 \r
 262         OPCB(0x68): // BIT  5,B\r
 263         OPCB(0x69): // BIT  5,C\r
 264         OPCB(0x6a): // BIT  5,D\r
 265         OPCB(0x6b): // BIT  5,E\r
 266         OPCB(0x6c): // BIT  5,H\r
 267         OPCB(0x6d): // BIT  5,L\r
 268         OPCB(0x6f): // BIT  5,A\r
 269 \r
 270         OPCB(0x70): // BIT  6,B\r
 271         OPCB(0x71): // BIT  6,C\r
 272         OPCB(0x72): // BIT  6,D\r
 273         OPCB(0x73): // BIT  6,E\r
 274         OPCB(0x74): // BIT  6,H\r
 275         OPCB(0x75): // BIT  6,L\r
 276         OPCB(0x77): // BIT  6,A\r
 277 \r
 278         OPCB(0x78): // BIT  7,B\r
 279         OPCB(0x79): // BIT  7,C\r
 280         OPCB(0x7a): // BIT  7,D\r
 281         OPCB(0x7b): // BIT  7,E\r
 282         OPCB(0x7c): // BIT  7,H\r
 283         OPCB(0x7d): // BIT  7,L\r
 284         OPCB(0x7f): // BIT  7,A\r
 285                 zF = (zF & CF) | HF | SZ_BIT[zR8(Opcode & 7) & (1 << ((Opcode >> 3) & 7))];\r
 286                 RET(8)\r
 287 \r
 288         OPCB(0x46): // BIT  0,(HL)\r
 289         OPCB(0x4e): // BIT  1,(HL)\r
 290         OPCB(0x56): // BIT  2,(HL)\r
 291         OPCB(0x5e): // BIT  3,(HL)\r
 292         OPCB(0x66): // BIT  4,(HL)\r
 293         OPCB(0x6e): // BIT  5,(HL)\r
 294         OPCB(0x76): // BIT  6,(HL)\r
 295         OPCB(0x7e): // BIT  7,(HL)\r
 296                 src = READ_MEM8(zHL);\r
 297                 zF = (zF & CF) | HF | SZ_BIT[src & (1 << ((Opcode >> 3) & 7))];\r
 298                 RET(12)\r
 299 \r
 300 /*-----------------------------------------\r
 301  RES\r
 302 -----------------------------------------*/\r
 303 \r
 304         OPCB(0x80): // RES  0,B\r
 305         OPCB(0x81): // RES  0,C\r
 306         OPCB(0x82): // RES  0,D\r
 307         OPCB(0x83): // RES  0,E\r
 308         OPCB(0x84): // RES  0,H\r
 309         OPCB(0x85): // RES  0,L\r
 310         OPCB(0x87): // RES  0,A\r
 311 \r
 312         OPCB(0x88): // RES  1,B\r
 313         OPCB(0x89): // RES  1,C\r
 314         OPCB(0x8a): // RES  1,D\r
 315         OPCB(0x8b): // RES  1,E\r
 316         OPCB(0x8c): // RES  1,H\r
 317         OPCB(0x8d): // RES  1,L\r
 318         OPCB(0x8f): // RES  1,A\r
 319 \r
 320         OPCB(0x90): // RES  2,B\r
 321         OPCB(0x91): // RES  2,C\r
 322         OPCB(0x92): // RES  2,D\r
 323         OPCB(0x93): // RES  2,E\r
 324         OPCB(0x94): // RES  2,H\r
 325         OPCB(0x95): // RES  2,L\r
 326         OPCB(0x97): // RES  2,A\r
 327 \r
 328         OPCB(0x98): // RES  3,B\r
 329         OPCB(0x99): // RES  3,C\r
 330         OPCB(0x9a): // RES  3,D\r
 331         OPCB(0x9b): // RES  3,E\r
 332         OPCB(0x9c): // RES  3,H\r
 333         OPCB(0x9d): // RES  3,L\r
 334         OPCB(0x9f): // RES  3,A\r
 335 \r
 336         OPCB(0xa0): // RES  4,B\r
 337         OPCB(0xa1): // RES  4,C\r
 338         OPCB(0xa2): // RES  4,D\r
 339         OPCB(0xa3): // RES  4,E\r
 340         OPCB(0xa4): // RES  4,H\r
 341         OPCB(0xa5): // RES  4,L\r
 342         OPCB(0xa7): // RES  4,A\r
 343 \r
 344         OPCB(0xa8): // RES  5,B\r
 345         OPCB(0xa9): // RES  5,C\r
 346         OPCB(0xaa): // RES  5,D\r
 347         OPCB(0xab): // RES  5,E\r
 348         OPCB(0xac): // RES  5,H\r
 349         OPCB(0xad): // RES  5,L\r
 350         OPCB(0xaf): // RES  5,A\r
 351 \r
 352         OPCB(0xb0): // RES  6,B\r
 353         OPCB(0xb1): // RES  6,C\r
 354         OPCB(0xb2): // RES  6,D\r
 355         OPCB(0xb3): // RES  6,E\r
 356         OPCB(0xb4): // RES  6,H\r
 357         OPCB(0xb5): // RES  6,L\r
 358         OPCB(0xb7): // RES  6,A\r
 359 \r
 360         OPCB(0xb8): // RES  7,B\r
 361         OPCB(0xb9): // RES  7,C\r
 362         OPCB(0xba): // RES  7,D\r
 363         OPCB(0xbb): // RES  7,E\r
 364         OPCB(0xbc): // RES  7,H\r
 365         OPCB(0xbd): // RES  7,L\r
 366         OPCB(0xbf): // RES  7,A\r
 367                 zR8(Opcode & 7) &= ~(1 << ((Opcode >> 3) & 7));\r
 368                 RET(8)\r
 369 \r
 370         OPCB(0x86): // RES  0,(HL)\r
 371         OPCB(0x8e): // RES  1,(HL)\r
 372         OPCB(0x96): // RES  2,(HL)\r
 373         OPCB(0x9e): // RES  3,(HL)\r
 374         OPCB(0xa6): // RES  4,(HL)\r
 375         OPCB(0xae): // RES  5,(HL)\r
 376         OPCB(0xb6): // RES  6,(HL)\r
 377         OPCB(0xbe): // RES  7,(HL)\r
 378                 adr = zHL;\r
 379                 res = READ_MEM8(adr);\r
 380                 res &= ~(1 << ((Opcode >> 3) & 7));\r
 381                 WRITE_MEM8(adr, res);\r
 382                 RET(15)\r
 383 \r
 384 /*-----------------------------------------\r
 385  SET\r
 386 -----------------------------------------*/\r
 387 \r
 388         OPCB(0xc0): // SET  0,B\r
 389         OPCB(0xc1): // SET  0,C\r
 390         OPCB(0xc2): // SET  0,D\r
 391         OPCB(0xc3): // SET  0,E\r
 392         OPCB(0xc4): // SET  0,H\r
 393         OPCB(0xc5): // SET  0,L\r
 394         OPCB(0xc7): // SET  0,A\r
 395 \r
 396         OPCB(0xc8): // SET  1,B\r
 397         OPCB(0xc9): // SET  1,C\r
 398         OPCB(0xca): // SET  1,D\r
 399         OPCB(0xcb): // SET  1,E\r
 400         OPCB(0xcc): // SET  1,H\r
 401         OPCB(0xcd): // SET  1,L\r
 402         OPCB(0xcf): // SET  1,A\r
 403 \r
 404         OPCB(0xd0): // SET  2,B\r
 405         OPCB(0xd1): // SET  2,C\r
 406         OPCB(0xd2): // SET  2,D\r
 407         OPCB(0xd3): // SET  2,E\r
 408         OPCB(0xd4): // SET  2,H\r
 409         OPCB(0xd5): // SET  2,L\r
 410         OPCB(0xd7): // SET  2,A\r
 411 \r
 412         OPCB(0xd8): // SET  3,B\r
 413         OPCB(0xd9): // SET  3,C\r
 414         OPCB(0xda): // SET  3,D\r
 415         OPCB(0xdb): // SET  3,E\r
 416         OPCB(0xdc): // SET  3,H\r
 417         OPCB(0xdd): // SET  3,L\r
 418         OPCB(0xdf): // SET  3,A\r
 419 \r
 420         OPCB(0xe0): // SET  4,B\r
 421         OPCB(0xe1): // SET  4,C\r
 422         OPCB(0xe2): // SET  4,D\r
 423         OPCB(0xe3): // SET  4,E\r
 424         OPCB(0xe4): // SET  4,H\r
 425         OPCB(0xe5): // SET  4,L\r
 426         OPCB(0xe7): // SET  4,A\r
 427 \r
 428         OPCB(0xe8): // SET  5,B\r
 429         OPCB(0xe9): // SET  5,C\r
 430         OPCB(0xea): // SET  5,D\r
 431         OPCB(0xeb): // SET  5,E\r
 432         OPCB(0xec): // SET  5,H\r
 433         OPCB(0xed): // SET  5,L\r
 434         OPCB(0xef): // SET  5,A\r
 435 \r
 436         OPCB(0xf0): // SET  6,B\r
 437         OPCB(0xf1): // SET  6,C\r
 438         OPCB(0xf2): // SET  6,D\r
 439         OPCB(0xf3): // SET  6,E\r
 440         OPCB(0xf4): // SET  6,H\r
 441         OPCB(0xf5): // SET  6,L\r
 442         OPCB(0xf7): // SET  6,A\r
 443 \r
 444         OPCB(0xf8): // SET  7,B\r
 445         OPCB(0xf9): // SET  7,C\r
 446         OPCB(0xfa): // SET  7,D\r
 447         OPCB(0xfb): // SET  7,E\r
 448         OPCB(0xfc): // SET  7,H\r
 449         OPCB(0xfd): // SET  7,L\r
 450         OPCB(0xff): // SET  7,A\r
 451                 zR8(Opcode & 7) |= 1 << ((Opcode >> 3) & 7);\r
 452                 RET(8)\r
 453 \r
 454         OPCB(0xc6): // SET  0,(HL)\r
 455         OPCB(0xce): // SET  1,(HL)\r
 456         OPCB(0xd6): // SET  2,(HL)\r
 457         OPCB(0xde): // SET  3,(HL)\r
 458         OPCB(0xe6): // SET  4,(HL)\r
 459         OPCB(0xee): // SET  5,(HL)\r
 460         OPCB(0xf6): // SET  6,(HL)\r
 461         OPCB(0xfe): // SET  7,(HL)\r
 462                 adr = zHL;\r
 463                 res = READ_MEM8(adr);\r
 464                 res |= 1 << ((Opcode >> 3) & 7);\r
 465                 WRITE_MEM8(adr, res);\r
 466                 RET(15)\r
 467 \r
 468 #if !CZ80_USE_JUMPTABLE\r
 469 }\r
 470 #endif\r