ben
/
crater
mirror of https://github.com/earwig/crater
1
1
Fork 0
Code Releases 0 Activity
An emulator, assembler, and disassembler for the Sega Game Gear
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
219 Commits
2 Branches
742 KiB
 
 
 
 
 
Tree: d6d3b60b3e
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd6d3b60b3e'
${ noResults }
crater/src/assembler/instructions.inc.c

2195 lines
82 KiB
Raw Blame History 

  1. /* Copyright (C) 2014-2015 Ben Kurtovic <ben.kurtovic@gmail.com>

  2.    Released under the terms of the MIT License. See LICENSE for details. */

  3. 

  4. /*

  5.     This file is AUTO-GENERATED from 'instructions.yml'.

  6. 

  7.     `make` should trigger a rebuild when it is modified; if not, use:

  8.     `python scripts/update_asm_instructions.py`.

  9. 

  10.     @AUTOGEN_DATE Fri Apr 29 03:32:10 2016 UTC

  11. */

  12. 

  13. /* @AUTOGEN_INST_BLOCK_START */

  14. 

  15. INST_FUNC(adc)

  16. {

  17.     INST_TAKES_ARGS(

  18.         AT_REGISTER,

  19.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  20.         AT_NONE

  21.     )

  22.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_REGISTER) {

  23.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_A)

  24.             INST_RETURN(1, 0x8F)

  25.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_B)

  26.             INST_RETURN(1, 0x88)

  27.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_C)

  28.             INST_RETURN(1, 0x89)

  29.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_D)

  30.             INST_RETURN(1, 0x8A)

  31.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_E)

  32.             INST_RETURN(1, 0x8B)

  33.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_H)

  34.             INST_RETURN(1, 0x8C)

  35.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXH)

  36.             INST_RETURN(2, INST_IX_PREFIX, 0x8C)

  37.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYH)

  38.             INST_RETURN(2, INST_IY_PREFIX, 0x8C)

  39.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_L)

  40.             INST_RETURN(1, 0x8D)

  41.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXL)

  42.             INST_RETURN(2, INST_IX_PREFIX, 0x8D)

  43.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYL)

  44.             INST_RETURN(2, INST_IY_PREFIX, 0x8D)

  45.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_BC)

  46.             INST_RETURN(2, 0xED, 0x4A)

  47.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_DE)

  48.             INST_RETURN(2, 0xED, 0x5A)

  49.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_HL)

  50.             INST_RETURN(2, 0xED, 0x6A)

  51.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_SP)

  52.             INST_RETURN(2, 0xED, 0x7A)

  53.         INST_ERROR(ARG_VALUE)

  54.     }

  55.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_IMMEDIATE) {

  56.         if (INST_REG(0) == REG_A && INST_IMM(1).mask & IMM_U8)

  57.             INST_RETURN(2, 0xCE, INST_IMM(1).uval)

  58.         INST_ERROR(ARG_VALUE)

  59.     }

  60.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDIRECT &&

  61.             (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_HL)) {

  62.         if (INST_REG(0) == REG_A)

  63.             INST_RETURN(1, 0x8E)

  64.         INST_ERROR(ARG_VALUE)

  65.     }

  66.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDEXED) {

  67.         if (INST_REG(0) == REG_A)

  68.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x8E, INST_INDEX(1).offset)

  69.         INST_ERROR(ARG_VALUE)

  70.     }

  71.     INST_ERROR(ARG_TYPE)

  72. }

  73. 

  74. INST_FUNC(add)

  75. {

  76.     INST_TAKES_ARGS(

  77.         AT_REGISTER,

  78.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  79.         AT_NONE

  80.     )

  81.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_REGISTER) {

  82.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_A)

  83.             INST_RETURN(1, 0x87)

  84.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_B)

  85.             INST_RETURN(1, 0x80)

  86.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_C)

  87.             INST_RETURN(1, 0x81)

  88.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_D)

  89.             INST_RETURN(1, 0x82)

  90.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_E)

  91.             INST_RETURN(1, 0x83)

  92.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_H)

  93.             INST_RETURN(1, 0x84)

  94.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXH)

  95.             INST_RETURN(2, INST_IX_PREFIX, 0x84)

  96.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYH)

  97.             INST_RETURN(2, INST_IY_PREFIX, 0x84)

  98.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_L)

  99.             INST_RETURN(1, 0x85)

  100.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXL)

  101.             INST_RETURN(2, INST_IX_PREFIX, 0x85)

  102.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYL)

  103.             INST_RETURN(2, INST_IY_PREFIX, 0x85)

  104.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_BC)

  105.             INST_RETURN(1, 0x09)

  106.         if (INST_REG(0) == REG_IX && INST_REG(1) == REG_BC)

  107.             INST_RETURN(2, INST_IX_PREFIX, 0x09)

  108.         if (INST_REG(0) == REG_IY && INST_REG(1) == REG_BC)

  109.             INST_RETURN(2, INST_IY_PREFIX, 0x09)

  110.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_DE)

  111.             INST_RETURN(1, 0x19)

  112.         if (INST_REG(0) == REG_IX && INST_REG(1) == REG_DE)

  113.             INST_RETURN(2, INST_IX_PREFIX, 0x19)

  114.         if (INST_REG(0) == REG_IY && INST_REG(1) == REG_DE)

  115.             INST_RETURN(2, INST_IY_PREFIX, 0x19)

  116.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_HL)

  117.             INST_RETURN(1, 0x29)

  118.         if (INST_REG(0) == REG_IX && INST_REG(1) == REG_IX)

  119.             INST_RETURN(2, INST_IX_PREFIX, 0x29)

  120.         if (INST_REG(0) == REG_IY && INST_REG(1) == REG_IY)

  121.             INST_RETURN(2, INST_IY_PREFIX, 0x29)

  122.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_SP)

  123.             INST_RETURN(1, 0x39)

  124.         if (INST_REG(0) == REG_IX && INST_REG(1) == REG_SP)

  125.             INST_RETURN(2, INST_IX_PREFIX, 0x39)

  126.         if (INST_REG(0) == REG_IY && INST_REG(1) == REG_SP)

  127.             INST_RETURN(2, INST_IY_PREFIX, 0x39)

  128.         INST_ERROR(ARG_VALUE)

  129.     }

  130.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_IMMEDIATE) {

  131.         if (INST_REG(0) == REG_A && INST_IMM(1).mask & IMM_U8)

  132.             INST_RETURN(2, 0xC6, INST_IMM(1).uval)

  133.         INST_ERROR(ARG_VALUE)

  134.     }

  135.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDIRECT &&

  136.             (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_HL)) {

  137.         if (INST_REG(0) == REG_A)

  138.             INST_RETURN(1, 0x86)

  139.         INST_ERROR(ARG_VALUE)

  140.     }

  141.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDEXED) {

  142.         if (INST_REG(0) == REG_A)

  143.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x86, INST_INDEX(1).offset)

  144.         INST_ERROR(ARG_VALUE)

  145.     }

  146.     INST_ERROR(ARG_TYPE)

  147. }

  148. 

  149. INST_FUNC(and)

  150. {

  151.     INST_TAKES_ARGS(

  152.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  153.         AT_NONE,

  154.         AT_NONE

  155.     )

  156.     if (INST_TYPE(0) == AT_REGISTER) {

  157.         if (INST_REG(0) == REG_A)

  158.             INST_RETURN(1, 0xA7)

  159.         if (INST_REG(0) == REG_B)

  160.             INST_RETURN(1, 0xA0)

  161.         if (INST_REG(0) == REG_C)

  162.             INST_RETURN(1, 0xA1)

  163.         if (INST_REG(0) == REG_D)

  164.             INST_RETURN(1, 0xA2)

  165.         if (INST_REG(0) == REG_E)

  166.             INST_RETURN(1, 0xA3)

  167.         if (INST_REG(0) == REG_H)

  168.             INST_RETURN(1, 0xA4)

  169.         if (INST_REG(0) == REG_IXH)

  170.             INST_RETURN(2, INST_IX_PREFIX, 0xA4)

  171.         if (INST_REG(0) == REG_IYH)

  172.             INST_RETURN(2, INST_IY_PREFIX, 0xA4)

  173.         if (INST_REG(0) == REG_L)

  174.             INST_RETURN(1, 0xA5)

  175.         if (INST_REG(0) == REG_IXL)

  176.             INST_RETURN(2, INST_IX_PREFIX, 0xA5)

  177.         if (INST_REG(0) == REG_IYL)

  178.             INST_RETURN(2, INST_IY_PREFIX, 0xA5)

  179.         INST_ERROR(ARG_VALUE)

  180.     }

  181.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  182.         if (INST_IMM(0).mask & IMM_U8)

  183.             INST_RETURN(2, 0xE6, INST_IMM(0).uval)

  184.         INST_ERROR(ARG_VALUE)

  185.     }

  186.     if (INST_TYPE(0) == AT_INDIRECT &&

  187.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  188.         INST_RETURN(1, 0xA6)

  189.     }

  190.     if (INST_TYPE(0) == AT_INDEXED) {

  191.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0xA6, INST_INDEX(0).offset)

  192.     }

  193.     INST_ERROR(ARG_TYPE)

  194. }

  195. 

  196. INST_FUNC(bit)

  197. {

  198.     INST_TAKES_ARGS(

  199.         AT_IMMEDIATE,

  200.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  201.         AT_NONE

  202.     )

  203.     if (INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_REGISTER) {

  204.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_A)

  205.             INST_RETURN(2, 0xCB, 0x47 + 8 * INST_IMM(0).uval)

  206.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_B)

  207.             INST_RETURN(2, 0xCB, 0x40 + 8 * INST_IMM(0).uval)

  208.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_C)

  209.             INST_RETURN(2, 0xCB, 0x41 + 8 * INST_IMM(0).uval)

  210.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_D)

  211.             INST_RETURN(2, 0xCB, 0x42 + 8 * INST_IMM(0).uval)

  212.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_E)

  213.             INST_RETURN(2, 0xCB, 0x43 + 8 * INST_IMM(0).uval)

  214.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_H)

  215.             INST_RETURN(2, 0xCB, 0x44 + 8 * INST_IMM(0).uval)

  216.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_L)

  217.             INST_RETURN(2, 0xCB, 0x45 + 8 * INST_IMM(0).uval)

  218.         INST_ERROR(ARG_VALUE)

  219.     }

  220.     if (INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDIRECT &&

  221.             (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_HL)) {

  222.         if (INST_IMM(0).mask & IMM_BIT)

  223.             INST_RETURN(2, 0xCB, 0x46 + 8 * INST_IMM(0).uval)

  224.         INST_ERROR(ARG_VALUE)

  225.     }

  226.     if (INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDEXED) {

  227.         if (INST_IMM(0).mask & IMM_BIT)

  228.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x46 + 8 * INST_IMM(0).uval)

  229.         INST_ERROR(ARG_VALUE)

  230.     }

  231.     INST_ERROR(ARG_TYPE)

  232. }

  233. 

  234. INST_FUNC(call)

  235. {

  236.     INST_TAKES_ARGS(

  237.         AT_CONDITION|AT_IMMEDIATE,

  238.         AT_IMMEDIATE|AT_OPTIONAL,

  239.         AT_NONE

  240.     )

  241.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_IMMEDIATE) {

  242.         if (INST_IMM(0).mask & IMM_U16)

  243.             INST_RETURN(3, 0xCD, INST_IMM_U16_B1(INST_IMM(0)), INST_IMM_U16_B2(INST_IMM(0)))

  244.         INST_ERROR(ARG_VALUE)

  245.     }

  246.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_CONDITION && INST_TYPE(1) == AT_IMMEDIATE) {

  247.         if (INST_COND(0) == COND_NZ && INST_IMM(1).mask & IMM_U16)

  248.             INST_RETURN(3, 0xC4, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  249.         if (INST_COND(0) == COND_Z && INST_IMM(1).mask & IMM_U16)

  250.             INST_RETURN(3, 0xCC, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  251.         if (INST_COND(0) == COND_NC && INST_IMM(1).mask & IMM_U16)

  252.             INST_RETURN(3, 0xD4, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  253.         if (INST_COND(0) == COND_C && INST_IMM(1).mask & IMM_U16)

  254.             INST_RETURN(3, 0xDC, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  255.         if (INST_COND(0) == COND_PO && INST_IMM(1).mask & IMM_U16)

  256.             INST_RETURN(3, 0xE4, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  257.         if (INST_COND(0) == COND_PE && INST_IMM(1).mask & IMM_U16)

  258.             INST_RETURN(3, 0xEC, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  259.         if (INST_COND(0) == COND_P && INST_IMM(1).mask & IMM_U16)

  260.             INST_RETURN(3, 0xF4, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  261.         if (INST_COND(0) == COND_M && INST_IMM(1).mask & IMM_U16)

  262.             INST_RETURN(3, 0xFC, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  263.         INST_ERROR(ARG_VALUE)

  264.     }

  265.     INST_ERROR(ARG_TYPE)

  266. }

  267. 

  268. INST_FUNC(ccf)

  269. {

  270.     INST_TAKES_NO_ARGS

  271.     INST_RETURN(1, 0x3F)

  272. }

  273. 

  274. INST_FUNC(cp)

  275. {

  276.     INST_TAKES_ARGS(

  277.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  278.         AT_NONE,

  279.         AT_NONE

  280.     )

  281.     if (INST_TYPE(0) == AT_REGISTER) {

  282.         if (INST_REG(0) == REG_A)

  283.             INST_RETURN(1, 0xBF)

  284.         if (INST_REG(0) == REG_B)

  285.             INST_RETURN(1, 0xB8)

  286.         if (INST_REG(0) == REG_C)

  287.             INST_RETURN(1, 0xB9)

  288.         if (INST_REG(0) == REG_D)

  289.             INST_RETURN(1, 0xBA)

  290.         if (INST_REG(0) == REG_E)

  291.             INST_RETURN(1, 0xBB)

  292.         if (INST_REG(0) == REG_H)

  293.             INST_RETURN(1, 0xBC)

  294.         if (INST_REG(0) == REG_IXH)

  295.             INST_RETURN(2, INST_IX_PREFIX, 0xBC)

  296.         if (INST_REG(0) == REG_IYH)

  297.             INST_RETURN(2, INST_IY_PREFIX, 0xBC)

  298.         if (INST_REG(0) == REG_L)

  299.             INST_RETURN(1, 0xBD)

  300.         if (INST_REG(0) == REG_IXL)

  301.             INST_RETURN(2, INST_IX_PREFIX, 0xBD)

  302.         if (INST_REG(0) == REG_IYL)

  303.             INST_RETURN(2, INST_IY_PREFIX, 0xBD)

  304.         INST_ERROR(ARG_VALUE)

  305.     }

  306.     if (INST_TYPE(0) == AT_INDIRECT &&

  307.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  308.         INST_RETURN(1, 0xBE)

  309.     }

  310.     if (INST_TYPE(0) == AT_INDEXED) {

  311.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0xBE, INST_INDEX(0).offset)

  312.     }

  313.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  314.         if (INST_IMM(0).mask & IMM_U8)

  315.             INST_RETURN(2, 0xFE, INST_IMM(0).uval)

  316.         INST_ERROR(ARG_VALUE)

  317.     }

  318.     INST_ERROR(ARG_TYPE)

  319. }

  320. 

  321. INST_FUNC(cpd)

  322. {

  323.     INST_TAKES_NO_ARGS

  324.     INST_RETURN(2, 0xED, 0xA9)

  325. }

  326. 

  327. INST_FUNC(cpdr)

  328. {

  329.     INST_TAKES_NO_ARGS

  330.     INST_RETURN(2, 0xED, 0xB9)

  331. }

  332. 

  333. INST_FUNC(cpi)

  334. {

  335.     INST_TAKES_NO_ARGS

  336.     INST_RETURN(2, 0xED, 0xA1)

  337. }

  338. 

  339. INST_FUNC(cpir)

  340. {

  341.     INST_TAKES_NO_ARGS

  342.     INST_RETURN(2, 0xED, 0xB1)

  343. }

  344. 

  345. INST_FUNC(cpl)

  346. {

  347.     INST_TAKES_NO_ARGS

  348.     INST_RETURN(1, 0x2F)

  349. }

  350. 

  351. INST_FUNC(daa)

  352. {

  353.     INST_TAKES_NO_ARGS

  354.     INST_RETURN(1, 0x27)

  355. }

  356. 

  357. INST_FUNC(dec)

  358. {

  359.     INST_TAKES_ARGS(

  360.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  361.         AT_NONE,

  362.         AT_NONE

  363.     )

  364.     if (INST_TYPE(0) == AT_REGISTER) {

  365.         if (INST_REG(0) == REG_A)

  366.             INST_RETURN(1, 0x3D)

  367.         if (INST_REG(0) == REG_B)

  368.             INST_RETURN(1, 0x05)

  369.         if (INST_REG(0) == REG_C)

  370.             INST_RETURN(1, 0x0D)

  371.         if (INST_REG(0) == REG_D)

  372.             INST_RETURN(1, 0x15)

  373.         if (INST_REG(0) == REG_E)

  374.             INST_RETURN(1, 0x1D)

  375.         if (INST_REG(0) == REG_H)

  376.             INST_RETURN(1, 0x25)

  377.         if (INST_REG(0) == REG_IXH)

  378.             INST_RETURN(2, INST_IX_PREFIX, 0x25)

  379.         if (INST_REG(0) == REG_IYH)

  380.             INST_RETURN(2, INST_IY_PREFIX, 0x25)

  381.         if (INST_REG(0) == REG_L)

  382.             INST_RETURN(1, 0x2D)

  383.         if (INST_REG(0) == REG_IXL)

  384.             INST_RETURN(2, INST_IX_PREFIX, 0x2D)

  385.         if (INST_REG(0) == REG_IYL)

  386.             INST_RETURN(2, INST_IY_PREFIX, 0x2D)

  387.         if (INST_REG(0) == REG_BC)

  388.             INST_RETURN(1, 0x0B)

  389.         if (INST_REG(0) == REG_DE)

  390.             INST_RETURN(1, 0x1B)

  391.         if (INST_REG(0) == REG_HL)

  392.             INST_RETURN(1, 0x2B)

  393.         if (INST_REG(0) == REG_IX)

  394.             INST_RETURN(2, INST_IX_PREFIX, 0x2B)

  395.         if (INST_REG(0) == REG_IY)

  396.             INST_RETURN(2, INST_IY_PREFIX, 0x2B)

  397.         if (INST_REG(0) == REG_SP)

  398.             INST_RETURN(1, 0x3B)

  399.         INST_ERROR(ARG_VALUE)

  400.     }

  401.     if (INST_TYPE(0) == AT_INDIRECT &&

  402.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  403.         INST_RETURN(1, 0x35)

  404.     }

  405.     if (INST_TYPE(0) == AT_INDEXED) {

  406.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0x35, INST_INDEX(0).offset)

  407.     }

  408.     INST_ERROR(ARG_TYPE)

  409. }

  410. 

  411. INST_FUNC(di)

  412. {

  413.     INST_TAKES_NO_ARGS

  414.     INST_RETURN(1, 0xF3)

  415. }

  416. 

  417. INST_FUNC(djnz)

  418. {

  419.     INST_TAKES_ARGS(

  420.         AT_IMMEDIATE,

  421.         AT_NONE,

  422.         AT_NONE

  423.     )

  424.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  425.         if (INST_IMM(0).mask & IMM_REL)

  426.             INST_RETURN(2, 0x10, INST_IMM(0).sval - 2)

  427.         INST_ERROR(ARG_VALUE)

  428.     }

  429.     INST_ERROR(ARG_TYPE)

  430. }

  431. 

  432. INST_FUNC(ei)

  433. {

  434.     INST_TAKES_NO_ARGS

  435.     INST_RETURN(1, 0xFB)

  436. }

  437. 

  438. INST_FUNC(ex)

  439. {

  440.     INST_TAKES_ARGS(

  441.         AT_INDIRECT|AT_REGISTER,

  442.         AT_REGISTER,

  443.         AT_NONE

  444.     )

  445.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_REGISTER) {

  446.         if (INST_REG(0) == REG_AF && INST_REG(1) == REG_AF_)

  447.             INST_RETURN(1, 0x08)

  448.         if (INST_REG(0) == REG_DE && INST_REG(1) == REG_HL)

  449.             INST_RETURN(1, 0xEB)

  450.         INST_ERROR(ARG_VALUE)

  451.     }

  452.     if (INST_TYPE(0) == AT_INDIRECT && INST_TYPE(1) == AT_REGISTER) {

  453.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_SP) && INST_REG(1) == REG_HL)

  454.             INST_RETURN(1, 0xE3)

  455.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_SP) && INST_REG(1) == REG_IX)

  456.             INST_RETURN(2, INST_IX_PREFIX, 0xE3)

  457.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_SP) && INST_REG(1) == REG_IY)

  458.             INST_RETURN(2, INST_IY_PREFIX, 0xE3)

  459.         INST_ERROR(ARG_VALUE)

  460.     }

  461.     INST_ERROR(ARG_TYPE)

  462. }

  463. 

  464. INST_FUNC(exx)

  465. {

  466.     INST_TAKES_NO_ARGS

  467.     INST_RETURN(1, 0xD9)

  468. }

  469. 

  470. INST_FUNC(halt)

  471. {

  472.     INST_TAKES_NO_ARGS

  473.     INST_RETURN(1, 0x76)

  474. }

  475. 

  476. INST_FUNC(im)

  477. {

  478.     INST_TAKES_ARGS(

  479.         AT_IMMEDIATE,

  480.         AT_NONE,

  481.         AT_NONE

  482.     )

  483.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  484.         if ((INST_IMM(0).mask & IMM_IM && INST_IMM(0).uval == 0))

  485.             INST_RETURN(2, 0xED, 0x46)

  486.         if ((INST_IMM(0).mask & IMM_IM && INST_IMM(0).uval == 1))

  487.             INST_RETURN(2, 0xED, 0x56)

  488.         if ((INST_IMM(0).mask & IMM_IM && INST_IMM(0).uval == 2))

  489.             INST_RETURN(2, 0xED, 0x5E)

  490.         INST_ERROR(ARG_VALUE)

  491.     }

  492.     INST_ERROR(ARG_TYPE)

  493. }

  494. 

  495. INST_FUNC(in)

  496. {

  497.     INST_TAKES_ARGS(

  498.         AT_PORT|AT_REGISTER,

  499.         AT_OPTIONAL|AT_PORT,

  500.         AT_NONE

  501.     )

  502.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_PORT) {

  503.         if (INST_REG(0) == REG_A && INST_PORT(1).type == AT_IMMEDIATE)

  504.             INST_RETURN(2, 0xDB, INST_PORT(1).port.imm.uval)

  505.         if (INST_REG(0) == REG_A && INST_PORT(1).type == AT_REGISTER)

  506.             INST_RETURN(2, 0xED, 0x78)

  507.         if (INST_REG(0) == REG_B && INST_PORT(1).type == AT_REGISTER)

  508.             INST_RETURN(2, 0xED, 0x40)

  509.         if (INST_REG(0) == REG_C && INST_PORT(1).type == AT_REGISTER)

  510.             INST_RETURN(2, 0xED, 0x48)

  511.         if (INST_REG(0) == REG_D && INST_PORT(1).type == AT_REGISTER)

  512.             INST_RETURN(2, 0xED, 0x50)

  513.         if (INST_REG(0) == REG_E && INST_PORT(1).type == AT_REGISTER)

  514.             INST_RETURN(2, 0xED, 0x58)

  515.         if (INST_REG(0) == REG_H && INST_PORT(1).type == AT_REGISTER)

  516.             INST_RETURN(2, 0xED, 0x60)

  517.         if (INST_REG(0) == REG_L && INST_PORT(1).type == AT_REGISTER)

  518.             INST_RETURN(2, 0xED, 0x68)

  519.         INST_ERROR(ARG_VALUE)

  520.     }

  521.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_PORT) {

  522.         if (INST_PORT(0).type == AT_REGISTER)

  523.             INST_RETURN(2, 0xED, 0x70)

  524.         INST_ERROR(ARG_VALUE)

  525.     }

  526.     INST_ERROR(ARG_TYPE)

  527. }

  528. 

  529. INST_FUNC(inc)

  530. {

  531.     INST_TAKES_ARGS(

  532.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  533.         AT_NONE,

  534.         AT_NONE

  535.     )

  536.     if (INST_TYPE(0) == AT_REGISTER) {

  537.         if (INST_REG(0) == REG_A)

  538.             INST_RETURN(1, 0x3C)

  539.         if (INST_REG(0) == REG_B)

  540.             INST_RETURN(1, 0x04)

  541.         if (INST_REG(0) == REG_C)

  542.             INST_RETURN(1, 0x0C)

  543.         if (INST_REG(0) == REG_D)

  544.             INST_RETURN(1, 0x14)

  545.         if (INST_REG(0) == REG_E)

  546.             INST_RETURN(1, 0x1C)

  547.         if (INST_REG(0) == REG_H)

  548.             INST_RETURN(1, 0x24)

  549.         if (INST_REG(0) == REG_IXH)

  550.             INST_RETURN(2, INST_IX_PREFIX, 0x24)

  551.         if (INST_REG(0) == REG_IYH)

  552.             INST_RETURN(2, INST_IY_PREFIX, 0x24)

  553.         if (INST_REG(0) == REG_L)

  554.             INST_RETURN(1, 0x2C)

  555.         if (INST_REG(0) == REG_IXL)

  556.             INST_RETURN(2, INST_IX_PREFIX, 0x2C)

  557.         if (INST_REG(0) == REG_IYL)

  558.             INST_RETURN(2, INST_IY_PREFIX, 0x2C)

  559.         if (INST_REG(0) == REG_BC)

  560.             INST_RETURN(1, 0x03)

  561.         if (INST_REG(0) == REG_DE)

  562.             INST_RETURN(1, 0x13)

  563.         if (INST_REG(0) == REG_HL)

  564.             INST_RETURN(1, 0x23)

  565.         if (INST_REG(0) == REG_IX)

  566.             INST_RETURN(2, INST_IX_PREFIX, 0x23)

  567.         if (INST_REG(0) == REG_IY)

  568.             INST_RETURN(2, INST_IY_PREFIX, 0x23)

  569.         if (INST_REG(0) == REG_SP)

  570.             INST_RETURN(1, 0x33)

  571.         INST_ERROR(ARG_VALUE)

  572.     }

  573.     if (INST_TYPE(0) == AT_INDIRECT &&

  574.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  575.         INST_RETURN(1, 0x34)

  576.     }

  577.     if (INST_TYPE(0) == AT_INDEXED) {

  578.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0x34, INST_INDEX(0).offset)

  579.     }

  580.     INST_ERROR(ARG_TYPE)

  581. }

  582. 

  583. INST_FUNC(ind)

  584. {

  585.     INST_TAKES_NO_ARGS

  586.     INST_RETURN(2, 0xED, 0xAA)

  587. }

  588. 

  589. INST_FUNC(indr)

  590. {

  591.     INST_TAKES_NO_ARGS

  592.     INST_RETURN(2, 0xED, 0xBA)

  593. }

  594. 

  595. INST_FUNC(ini)

  596. {

  597.     INST_TAKES_NO_ARGS

  598.     INST_RETURN(2, 0xED, 0xA2)

  599. }

  600. 

  601. INST_FUNC(inir)

  602. {

  603.     INST_TAKES_NO_ARGS

  604.     INST_RETURN(2, 0xED, 0xB2)

  605. }

  606. 

  607. INST_FUNC(jp)

  608. {

  609.     INST_TAKES_ARGS(

  610.         AT_CONDITION|AT_IMMEDIATE|AT_INDIRECT,

  611.         AT_IMMEDIATE|AT_OPTIONAL,

  612.         AT_NONE

  613.     )

  614.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_IMMEDIATE) {

  615.         if (INST_IMM(0).mask & IMM_U16)

  616.             INST_RETURN(3, 0xC3, INST_IMM_U16_B1(INST_IMM(0)), INST_IMM_U16_B2(INST_IMM(0)))

  617.         INST_ERROR(ARG_VALUE)

  618.     }

  619.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_CONDITION && INST_TYPE(1) == AT_IMMEDIATE) {

  620.         if (INST_COND(0) == COND_NZ && INST_IMM(1).mask & IMM_U16)

  621.             INST_RETURN(3, 0xC2, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  622.         if (INST_COND(0) == COND_Z && INST_IMM(1).mask & IMM_U16)

  623.             INST_RETURN(3, 0xCA, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  624.         if (INST_COND(0) == COND_NC && INST_IMM(1).mask & IMM_U16)

  625.             INST_RETURN(3, 0xD2, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  626.         if (INST_COND(0) == COND_C && INST_IMM(1).mask & IMM_U16)

  627.             INST_RETURN(3, 0xDA, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  628.         if (INST_COND(0) == COND_PO && INST_IMM(1).mask & IMM_U16)

  629.             INST_RETURN(3, 0xE2, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  630.         if (INST_COND(0) == COND_PE && INST_IMM(1).mask & IMM_U16)

  631.             INST_RETURN(3, 0xEA, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  632.         if (INST_COND(0) == COND_P && INST_IMM(1).mask & IMM_U16)

  633.             INST_RETURN(3, 0xF2, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  634.         if (INST_COND(0) == COND_M && INST_IMM(1).mask & IMM_U16)

  635.             INST_RETURN(3, 0xFA, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  636.         INST_ERROR(ARG_VALUE)

  637.     }

  638.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT) {

  639.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL))

  640.             INST_RETURN(1, 0xE9)

  641.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_IX))

  642.             INST_RETURN(2, INST_IX_PREFIX, 0xE9)

  643.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_IY))

  644.             INST_RETURN(2, INST_IY_PREFIX, 0xE9)

  645.         INST_ERROR(ARG_VALUE)

  646.     }

  647.     INST_ERROR(ARG_TYPE)

  648. }

  649. 

  650. INST_FUNC(jr)

  651. {

  652.     INST_TAKES_ARGS(

  653.         AT_CONDITION|AT_IMMEDIATE,

  654.         AT_IMMEDIATE|AT_OPTIONAL,

  655.         AT_NONE

  656.     )

  657.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_IMMEDIATE) {

  658.         if (INST_IMM(0).mask & IMM_REL)

  659.             INST_RETURN(2, 0x18, INST_IMM(0).sval - 2)

  660.         INST_ERROR(ARG_VALUE)

  661.     }

  662.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_CONDITION && INST_TYPE(1) == AT_IMMEDIATE) {

  663.         if (INST_COND(0) == COND_NZ && INST_IMM(1).mask & IMM_REL)

  664.             INST_RETURN(2, 0x20, INST_IMM(1).sval - 2)

  665.         if (INST_COND(0) == COND_Z && INST_IMM(1).mask & IMM_REL)

  666.             INST_RETURN(2, 0x28, INST_IMM(1).sval - 2)

  667.         if (INST_COND(0) == COND_NC && INST_IMM(1).mask & IMM_REL)

  668.             INST_RETURN(2, 0x30, INST_IMM(1).sval - 2)

  669.         if (INST_COND(0) == COND_C && INST_IMM(1).mask & IMM_REL)

  670.             INST_RETURN(2, 0x38, INST_IMM(1).sval - 2)

  671.         INST_ERROR(ARG_VALUE)

  672.     }

  673.     INST_ERROR(ARG_TYPE)

  674. }

  675. 

  676. INST_FUNC(ld)

  677. {

  678.     INST_TAKES_ARGS(

  679.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  680.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  681.         AT_NONE

  682.     )

  683.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_REGISTER) {

  684.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_A)

  685.             INST_RETURN(1, 0x7F)

  686.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_B)

  687.             INST_RETURN(1, 0x78)

  688.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_C)

  689.             INST_RETURN(1, 0x79)

  690.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_D)

  691.             INST_RETURN(1, 0x7A)

  692.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_E)

  693.             INST_RETURN(1, 0x7B)

  694.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_H)

  695.             INST_RETURN(1, 0x7C)

  696.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXH)

  697.             INST_RETURN(2, INST_IX_PREFIX, 0x7C)

  698.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYH)

  699.             INST_RETURN(2, INST_IY_PREFIX, 0x7C)

  700.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_L)

  701.             INST_RETURN(1, 0x7D)

  702.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXL)

  703.             INST_RETURN(2, INST_IX_PREFIX, 0x7D)

  704.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYL)

  705.             INST_RETURN(2, INST_IY_PREFIX, 0x7D)

  706.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_A)

  707.             INST_RETURN(1, 0x47)

  708.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_B)

  709.             INST_RETURN(1, 0x40)

  710.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_C)

  711.             INST_RETURN(1, 0x41)

  712.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_D)

  713.             INST_RETURN(1, 0x42)

  714.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_E)

  715.             INST_RETURN(1, 0x43)

  716.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_H)

  717.             INST_RETURN(1, 0x44)

  718.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_IXH)

  719.             INST_RETURN(2, INST_IX_PREFIX, 0x44)

  720.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_IYH)

  721.             INST_RETURN(2, INST_IY_PREFIX, 0x44)

  722.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_L)

  723.             INST_RETURN(1, 0x45)

  724.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_IXL)

  725.             INST_RETURN(2, INST_IX_PREFIX, 0x45)

  726.         if (INST_REG(0) == REG_B && INST_REG(1) == REG_IYL)

  727.             INST_RETURN(2, INST_IY_PREFIX, 0x45)

  728.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_A)

  729.             INST_RETURN(1, 0x4F)

  730.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_B)

  731.             INST_RETURN(1, 0x48)

  732.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_C)

  733.             INST_RETURN(1, 0x49)

  734.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_D)

  735.             INST_RETURN(1, 0x4A)

  736.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_E)

  737.             INST_RETURN(1, 0x4B)

  738.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_H)

  739.             INST_RETURN(1, 0x4C)

  740.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_IXH)

  741.             INST_RETURN(2, INST_IX_PREFIX, 0x4C)

  742.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_IYH)

  743.             INST_RETURN(2, INST_IY_PREFIX, 0x4C)

  744.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_L)

  745.             INST_RETURN(1, 0x4D)

  746.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_IXL)

  747.             INST_RETURN(2, INST_IX_PREFIX, 0x4D)

  748.         if (INST_REG(0) == REG_C && INST_REG(1) == REG_IYL)

  749.             INST_RETURN(2, INST_IY_PREFIX, 0x4D)

  750.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_A)

  751.             INST_RETURN(1, 0x57)

  752.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_B)

  753.             INST_RETURN(1, 0x50)

  754.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_C)

  755.             INST_RETURN(1, 0x51)

  756.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_D)

  757.             INST_RETURN(1, 0x52)

  758.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_E)

  759.             INST_RETURN(1, 0x53)

  760.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_H)

  761.             INST_RETURN(1, 0x54)

  762.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_IXH)

  763.             INST_RETURN(2, INST_IX_PREFIX, 0x54)

  764.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_IYH)

  765.             INST_RETURN(2, INST_IY_PREFIX, 0x54)

  766.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_L)

  767.             INST_RETURN(1, 0x55)

  768.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_IXL)

  769.             INST_RETURN(2, INST_IX_PREFIX, 0x55)

  770.         if (INST_REG(0) == REG_D && INST_REG(1) == REG_IYL)

  771.             INST_RETURN(2, INST_IY_PREFIX, 0x55)

  772.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_A)

  773.             INST_RETURN(1, 0x5F)

  774.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_B)

  775.             INST_RETURN(1, 0x58)

  776.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_C)

  777.             INST_RETURN(1, 0x59)

  778.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_D)

  779.             INST_RETURN(1, 0x5A)

  780.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_E)

  781.             INST_RETURN(1, 0x5B)

  782.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_H)

  783.             INST_RETURN(1, 0x5C)

  784.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_IXH)

  785.             INST_RETURN(2, INST_IX_PREFIX, 0x5C)

  786.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_IYH)

  787.             INST_RETURN(2, INST_IY_PREFIX, 0x5C)

  788.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_L)

  789.             INST_RETURN(1, 0x5D)

  790.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_IXL)

  791.             INST_RETURN(2, INST_IX_PREFIX, 0x5D)

  792.         if (INST_REG(0) == REG_E && INST_REG(1) == REG_IYL)

  793.             INST_RETURN(2, INST_IY_PREFIX, 0x5D)

  794.         if (INST_REG(0) == REG_H && INST_REG(1) == REG_A)

  795.             INST_RETURN(1, 0x67)

  796.         if (INST_REG(0) == REG_IXH && INST_REG(1) == REG_A)

  797.             INST_RETURN(2, INST_IX_PREFIX, 0x67)

  798.         if (INST_REG(0) == REG_IYH && INST_REG(1) == REG_A)

  799.             INST_RETURN(2, INST_IY_PREFIX, 0x67)

  800.         if (INST_REG(0) == REG_H && INST_REG(1) == REG_B)

  801.             INST_RETURN(1, 0x60)

  802.         if (INST_REG(0) == REG_IXH && INST_REG(1) == REG_B)

  803.             INST_RETURN(2, INST_IX_PREFIX, 0x60)

  804.         if (INST_REG(0) == REG_IYH && INST_REG(1) == REG_B)

  805.             INST_RETURN(2, INST_IY_PREFIX, 0x60)

  806.         if (INST_REG(0) == REG_H && INST_REG(1) == REG_C)

  807.             INST_RETURN(1, 0x61)

  808.         if (INST_REG(0) == REG_IXH && INST_REG(1) == REG_C)

  809.             INST_RETURN(2, INST_IX_PREFIX, 0x61)

  810.         if (INST_REG(0) == REG_IYH && INST_REG(1) == REG_C)

  811.             INST_RETURN(2, INST_IY_PREFIX, 0x61)

  812.         if (INST_REG(0) == REG_H && INST_REG(1) == REG_D)

  813.             INST_RETURN(1, 0x62)

  814.         if (INST_REG(0) == REG_IXH && INST_REG(1) == REG_D)

  815.             INST_RETURN(2, INST_IX_PREFIX, 0x62)

  816.         if (INST_REG(0) == REG_IYH && INST_REG(1) == REG_D)

  817.             INST_RETURN(2, INST_IY_PREFIX, 0x62)

  818.         if (INST_REG(0) == REG_H && INST_REG(1) == REG_E)

  819.             INST_RETURN(1, 0x63)

  820.         if (INST_REG(0) == REG_IXH && INST_REG(1) == REG_E)

  821.             INST_RETURN(2, INST_IX_PREFIX, 0x63)

  822.         if (INST_REG(0) == REG_IYH && INST_REG(1) == REG_E)

  823.             INST_RETURN(2, INST_IY_PREFIX, 0x63)

  824.         if (INST_REG(0) == REG_H && INST_REG(1) == REG_H)

  825.             INST_RETURN(1, 0x64)

  826.         if (INST_REG(0) == REG_IXH && INST_REG(1) == REG_IXH)

  827.             INST_RETURN(2, INST_IX_PREFIX, 0x64)

  828.         if (INST_REG(0) == REG_IYH && INST_REG(1) == REG_IYH)

  829.             INST_RETURN(2, INST_IY_PREFIX, 0x64)

  830.         if (INST_REG(0) == REG_H && INST_REG(1) == REG_L)

  831.             INST_RETURN(1, 0x65)

  832.         if (INST_REG(0) == REG_IXH && INST_REG(1) == REG_IXL)

  833.             INST_RETURN(2, INST_IX_PREFIX, 0x65)

  834.         if (INST_REG(0) == REG_IYH && INST_REG(1) == REG_IYL)

  835.             INST_RETURN(2, INST_IY_PREFIX, 0x65)

  836.         if (INST_REG(0) == REG_L && INST_REG(1) == REG_A)

  837.             INST_RETURN(1, 0x6F)

  838.         if (INST_REG(0) == REG_IXL && INST_REG(1) == REG_A)

  839.             INST_RETURN(2, INST_IX_PREFIX, 0x6F)

  840.         if (INST_REG(0) == REG_IYL && INST_REG(1) == REG_A)

  841.             INST_RETURN(2, INST_IY_PREFIX, 0x6F)

  842.         if (INST_REG(0) == REG_L && INST_REG(1) == REG_B)

  843.             INST_RETURN(1, 0x68)

  844.         if (INST_REG(0) == REG_IXL && INST_REG(1) == REG_B)

  845.             INST_RETURN(2, INST_IX_PREFIX, 0x68)

  846.         if (INST_REG(0) == REG_IYL && INST_REG(1) == REG_B)

  847.             INST_RETURN(2, INST_IY_PREFIX, 0x68)

  848.         if (INST_REG(0) == REG_L && INST_REG(1) == REG_C)

  849.             INST_RETURN(1, 0x69)

  850.         if (INST_REG(0) == REG_IXL && INST_REG(1) == REG_C)

  851.             INST_RETURN(2, INST_IX_PREFIX, 0x69)

  852.         if (INST_REG(0) == REG_IYL && INST_REG(1) == REG_C)

  853.             INST_RETURN(2, INST_IY_PREFIX, 0x69)

  854.         if (INST_REG(0) == REG_L && INST_REG(1) == REG_D)

  855.             INST_RETURN(1, 0x6A)

  856.         if (INST_REG(0) == REG_IXL && INST_REG(1) == REG_D)

  857.             INST_RETURN(2, INST_IX_PREFIX, 0x6A)

  858.         if (INST_REG(0) == REG_IYL && INST_REG(1) == REG_D)

  859.             INST_RETURN(2, INST_IY_PREFIX, 0x6A)

  860.         if (INST_REG(0) == REG_L && INST_REG(1) == REG_E)

  861.             INST_RETURN(1, 0x6B)

  862.         if (INST_REG(0) == REG_IXL && INST_REG(1) == REG_E)

  863.             INST_RETURN(2, INST_IX_PREFIX, 0x6B)

  864.         if (INST_REG(0) == REG_IYL && INST_REG(1) == REG_E)

  865.             INST_RETURN(2, INST_IY_PREFIX, 0x6B)

  866.         if (INST_REG(0) == REG_L && INST_REG(1) == REG_H)

  867.             INST_RETURN(1, 0x6C)

  868.         if (INST_REG(0) == REG_IXL && INST_REG(1) == REG_IXH)

  869.             INST_RETURN(2, INST_IX_PREFIX, 0x6C)

  870.         if (INST_REG(0) == REG_IYL && INST_REG(1) == REG_IYH)

  871.             INST_RETURN(2, INST_IY_PREFIX, 0x6C)

  872.         if (INST_REG(0) == REG_L && INST_REG(1) == REG_L)

  873.             INST_RETURN(1, 0x6D)

  874.         if (INST_REG(0) == REG_IXL && INST_REG(1) == REG_IXL)

  875.             INST_RETURN(2, INST_IX_PREFIX, 0x6D)

  876.         if (INST_REG(0) == REG_IYL && INST_REG(1) == REG_IYL)

  877.             INST_RETURN(2, INST_IY_PREFIX, 0x6D)

  878.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_I)

  879.             INST_RETURN(2, 0xED, 0x57)

  880.         if (INST_REG(0) == REG_I && INST_REG(1) == REG_A)

  881.             INST_RETURN(2, 0xED, 0x47)

  882.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_R)

  883.             INST_RETURN(2, 0xED, 0x5F)

  884.         if (INST_REG(0) == REG_R && INST_REG(1) == REG_A)

  885.             INST_RETURN(2, 0xED, 0x4F)

  886.         if (INST_REG(0) == REG_SP && INST_REG(1) == REG_HL)

  887.             INST_RETURN(1, 0xF9)

  888.         if (INST_REG(0) == REG_SP && INST_REG(1) == REG_IX)

  889.             INST_RETURN(2, INST_IX_PREFIX, 0xF9)

  890.         if (INST_REG(0) == REG_SP && INST_REG(1) == REG_IY)

  891.             INST_RETURN(2, INST_IY_PREFIX, 0xF9)

  892.         INST_ERROR(ARG_VALUE)

  893.     }

  894.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_IMMEDIATE) {

  895.         if (INST_REG(0) == REG_A && INST_IMM(1).mask & IMM_U8)

  896.             INST_RETURN(2, 0x3E, INST_IMM(1).uval)

  897.         if (INST_REG(0) == REG_B && INST_IMM(1).mask & IMM_U8)

  898.             INST_RETURN(2, 0x06, INST_IMM(1).uval)

  899.         if (INST_REG(0) == REG_C && INST_IMM(1).mask & IMM_U8)

  900.             INST_RETURN(2, 0x0E, INST_IMM(1).uval)

  901.         if (INST_REG(0) == REG_D && INST_IMM(1).mask & IMM_U8)

  902.             INST_RETURN(2, 0x16, INST_IMM(1).uval)

  903.         if (INST_REG(0) == REG_E && INST_IMM(1).mask & IMM_U8)

  904.             INST_RETURN(2, 0x1E, INST_IMM(1).uval)

  905.         if (INST_REG(0) == REG_H && INST_IMM(1).mask & IMM_U8)

  906.             INST_RETURN(2, 0x26, INST_IMM(1).uval)

  907.         if (INST_REG(0) == REG_IXH && INST_IMM(1).mask & IMM_U8)

  908.             INST_RETURN(3, INST_IX_PREFIX, 0x26, INST_IMM(1).uval)

  909.         if (INST_REG(0) == REG_IYH && INST_IMM(1).mask & IMM_U8)

  910.             INST_RETURN(3, INST_IY_PREFIX, 0x26, INST_IMM(1).uval)

  911.         if (INST_REG(0) == REG_L && INST_IMM(1).mask & IMM_U8)

  912.             INST_RETURN(2, 0x2E, INST_IMM(1).uval)

  913.         if (INST_REG(0) == REG_IXL && INST_IMM(1).mask & IMM_U8)

  914.             INST_RETURN(3, INST_IX_PREFIX, 0x2E, INST_IMM(1).uval)

  915.         if (INST_REG(0) == REG_IYL && INST_IMM(1).mask & IMM_U8)

  916.             INST_RETURN(3, INST_IY_PREFIX, 0x2E, INST_IMM(1).uval)

  917.         if (INST_REG(0) == REG_BC && INST_IMM(1).mask & IMM_U16)

  918.             INST_RETURN(3, 0x01, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  919.         if (INST_REG(0) == REG_DE && INST_IMM(1).mask & IMM_U16)

  920.             INST_RETURN(3, 0x11, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  921.         if (INST_REG(0) == REG_HL && INST_IMM(1).mask & IMM_U16)

  922.             INST_RETURN(3, 0x21, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  923.         if (INST_REG(0) == REG_IX && INST_IMM(1).mask & IMM_U16)

  924.             INST_RETURN(4, INST_IX_PREFIX, 0x21, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  925.         if (INST_REG(0) == REG_IY && INST_IMM(1).mask & IMM_U16)

  926.             INST_RETURN(4, INST_IY_PREFIX, 0x21, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  927.         if (INST_REG(0) == REG_SP && INST_IMM(1).mask & IMM_U16)

  928.             INST_RETURN(3, 0x31, INST_IMM_U16_B1(INST_IMM(1)), INST_IMM_U16_B2(INST_IMM(1)))

  929.         INST_ERROR(ARG_VALUE)

  930.     }

  931.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDIRECT &&

  932.             (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_HL)) {

  933.         if (INST_REG(0) == REG_A)

  934.             INST_RETURN(1, 0x7E)

  935.         if (INST_REG(0) == REG_B)

  936.             INST_RETURN(1, 0x46)

  937.         if (INST_REG(0) == REG_C)

  938.             INST_RETURN(1, 0x4E)

  939.         if (INST_REG(0) == REG_D)

  940.             INST_RETURN(1, 0x56)

  941.         if (INST_REG(0) == REG_E)

  942.             INST_RETURN(1, 0x5E)

  943.         if (INST_REG(0) == REG_H)

  944.             INST_RETURN(1, 0x66)

  945.         if (INST_REG(0) == REG_L)

  946.             INST_RETURN(1, 0x6E)

  947.         INST_ERROR(ARG_VALUE)

  948.     }

  949.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDEXED) {

  950.         if (INST_REG(0) == REG_A)

  951.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x7E, INST_INDEX(1).offset)

  952.         if (INST_REG(0) == REG_B)

  953.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x46, INST_INDEX(1).offset)

  954.         if (INST_REG(0) == REG_C)

  955.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x4E, INST_INDEX(1).offset)

  956.         if (INST_REG(0) == REG_D)

  957.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x56, INST_INDEX(1).offset)

  958.         if (INST_REG(0) == REG_E)

  959.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x5E, INST_INDEX(1).offset)

  960.         if (INST_REG(0) == REG_H)

  961.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x66, INST_INDEX(1).offset)

  962.         if (INST_REG(0) == REG_L)

  963.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x6E, INST_INDEX(1).offset)

  964.         INST_ERROR(ARG_VALUE)

  965.     }

  966.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDIRECT) {

  967.         if (INST_REG(0) == REG_A && (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_BC))

  968.             INST_RETURN(1, 0x0A)

  969.         if (INST_REG(0) == REG_A && (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_DE))

  970.             INST_RETURN(1, 0x1A)

  971.         if (INST_REG(0) == REG_HL && INST_INDIRECT(1).type == AT_IMMEDIATE)

  972.             INST_RETURN(3, 0x2A, INST_IMM_U16_B1(INST_INDIRECT(1).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(1).addr.imm))

  973.         if (INST_REG(0) == REG_IX && INST_INDIRECT(1).type == AT_IMMEDIATE)

  974.             INST_RETURN(4, INST_IX_PREFIX, 0x2A, INST_IMM_U16_B1(INST_INDIRECT(1).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(1).addr.imm))

  975.         if (INST_REG(0) == REG_IY && INST_INDIRECT(1).type == AT_IMMEDIATE)

  976.             INST_RETURN(4, INST_IY_PREFIX, 0x2A, INST_IMM_U16_B1(INST_INDIRECT(1).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(1).addr.imm))

  977.         if (INST_REG(0) == REG_A && INST_INDIRECT(1).type == AT_IMMEDIATE)

  978.             INST_RETURN(3, 0x3A, INST_IMM_U16_B1(INST_INDIRECT(1).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(1).addr.imm))

  979.         if (INST_REG(0) == REG_BC && INST_INDIRECT(1).type == AT_IMMEDIATE)

  980.             INST_RETURN(4, 0xED, 0x4B, INST_IMM_U16_B1(INST_INDIRECT(1).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(1).addr.imm))

  981.         if (INST_REG(0) == REG_DE && INST_INDIRECT(1).type == AT_IMMEDIATE)

  982.             INST_RETURN(4, 0xED, 0x5B, INST_IMM_U16_B1(INST_INDIRECT(1).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(1).addr.imm))

  983.         if (INST_REG(0) == REG_SP && INST_INDIRECT(1).type == AT_IMMEDIATE)

  984.             INST_RETURN(4, 0xED, 0x7B, INST_IMM_U16_B1(INST_INDIRECT(1).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(1).addr.imm))

  985.         INST_ERROR(ARG_VALUE)

  986.     }

  987.     if (INST_TYPE(0) == AT_INDIRECT && INST_TYPE(1) == AT_REGISTER &&

  988.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  989.         if (INST_REG(1) == REG_A)

  990.             INST_RETURN(1, 0x77)

  991.         if (INST_REG(1) == REG_B)

  992.             INST_RETURN(1, 0x70)

  993.         if (INST_REG(1) == REG_C)

  994.             INST_RETURN(1, 0x71)

  995.         if (INST_REG(1) == REG_D)

  996.             INST_RETURN(1, 0x72)

  997.         if (INST_REG(1) == REG_E)

  998.             INST_RETURN(1, 0x73)

  999.         if (INST_REG(1) == REG_H)

  1000.             INST_RETURN(1, 0x74)

  1001.         if (INST_REG(1) == REG_L)

  1002.             INST_RETURN(1, 0x75)

  1003.         INST_ERROR(ARG_VALUE)

  1004.     }

  1005.     if (INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1006.         if (INST_REG(1) == REG_A)

  1007.             INST_RETURN(3, INST_INDEX_PREFIX(0), 0x77, INST_INDEX(0).offset)

  1008.         if (INST_REG(1) == REG_B)

  1009.             INST_RETURN(3, INST_INDEX_PREFIX(0), 0x70, INST_INDEX(0).offset)

  1010.         if (INST_REG(1) == REG_C)

  1011.             INST_RETURN(3, INST_INDEX_PREFIX(0), 0x71, INST_INDEX(0).offset)

  1012.         if (INST_REG(1) == REG_D)

  1013.             INST_RETURN(3, INST_INDEX_PREFIX(0), 0x72, INST_INDEX(0).offset)

  1014.         if (INST_REG(1) == REG_E)

  1015.             INST_RETURN(3, INST_INDEX_PREFIX(0), 0x73, INST_INDEX(0).offset)

  1016.         if (INST_REG(1) == REG_H)

  1017.             INST_RETURN(3, INST_INDEX_PREFIX(0), 0x74, INST_INDEX(0).offset)

  1018.         if (INST_REG(1) == REG_L)

  1019.             INST_RETURN(3, INST_INDEX_PREFIX(0), 0x75, INST_INDEX(0).offset)

  1020.         INST_ERROR(ARG_VALUE)

  1021.     }

  1022.     if (INST_TYPE(0) == AT_INDIRECT && INST_TYPE(1) == AT_IMMEDIATE &&

  1023.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1024.         if (INST_IMM(1).mask & IMM_U8)

  1025.             INST_RETURN(2, 0x36, INST_IMM(1).uval)

  1026.         INST_ERROR(ARG_VALUE)

  1027.     }

  1028.     if (INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_IMMEDIATE) {

  1029.         if (INST_IMM(1).mask & IMM_U8)

  1030.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0x36, INST_INDEX(0).offset, INST_IMM(1).uval)

  1031.         INST_ERROR(ARG_VALUE)

  1032.     }

  1033.     if (INST_TYPE(0) == AT_INDIRECT && INST_TYPE(1) == AT_REGISTER) {

  1034.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_BC) && INST_REG(1) == REG_A)

  1035.             INST_RETURN(1, 0x02)

  1036.         if ((INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_DE) && INST_REG(1) == REG_A)

  1037.             INST_RETURN(1, 0x12)

  1038.         if (INST_INDIRECT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_HL)

  1039.             INST_RETURN(3, 0x22, INST_IMM_U16_B1(INST_INDIRECT(0).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(0).addr.imm))

  1040.         if (INST_INDIRECT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_IX)

  1041.             INST_RETURN(4, INST_IX_PREFIX, 0x22, INST_IMM_U16_B1(INST_INDIRECT(0).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(0).addr.imm))

  1042.         if (INST_INDIRECT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_IY)

  1043.             INST_RETURN(4, INST_IY_PREFIX, 0x22, INST_IMM_U16_B1(INST_INDIRECT(0).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(0).addr.imm))

  1044.         if (INST_INDIRECT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_A)

  1045.             INST_RETURN(3, 0x32, INST_IMM_U16_B1(INST_INDIRECT(0).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(0).addr.imm))

  1046.         if (INST_INDIRECT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_BC)

  1047.             INST_RETURN(4, 0xED, 0x43, INST_IMM_U16_B1(INST_INDIRECT(0).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(0).addr.imm))

  1048.         if (INST_INDIRECT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_DE)

  1049.             INST_RETURN(4, 0xED, 0x53, INST_IMM_U16_B1(INST_INDIRECT(0).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(0).addr.imm))

  1050.         if (INST_INDIRECT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_SP)

  1051.             INST_RETURN(4, 0xED, 0x73, INST_IMM_U16_B1(INST_INDIRECT(0).addr.imm), INST_IMM_U16_B2(INST_INDIRECT(0).addr.imm))

  1052.         INST_ERROR(ARG_VALUE)

  1053.     }

  1054.     INST_ERROR(ARG_TYPE)

  1055. }

  1056. 

  1057. INST_FUNC(ldd)

  1058. {

  1059.     INST_TAKES_NO_ARGS

  1060.     INST_RETURN(2, 0xED, 0xA8)

  1061. }

  1062. 

  1063. INST_FUNC(lddr)

  1064. {

  1065.     INST_TAKES_NO_ARGS

  1066.     INST_RETURN(2, 0xED, 0xB8)

  1067. }

  1068. 

  1069. INST_FUNC(ldi)

  1070. {

  1071.     INST_TAKES_NO_ARGS

  1072.     INST_RETURN(2, 0xED, 0xA0)

  1073. }

  1074. 

  1075. INST_FUNC(ldir)

  1076. {

  1077.     INST_TAKES_NO_ARGS

  1078.     INST_RETURN(2, 0xED, 0xB0)

  1079. }

  1080. 

  1081. INST_FUNC(neg)

  1082. {

  1083.     INST_TAKES_NO_ARGS

  1084.     INST_RETURN(2, 0xED, 0x44)

  1085. }

  1086. 

  1087. INST_FUNC(nop)

  1088. {

  1089.     INST_TAKES_NO_ARGS

  1090.     INST_RETURN(1, 0x00)

  1091. }

  1092. 

  1093. INST_FUNC(or)

  1094. {

  1095.     INST_TAKES_ARGS(

  1096.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1097.         AT_NONE,

  1098.         AT_NONE

  1099.     )

  1100.     if (INST_TYPE(0) == AT_REGISTER) {

  1101.         if (INST_REG(0) == REG_A)

  1102.             INST_RETURN(1, 0xB7)

  1103.         if (INST_REG(0) == REG_B)

  1104.             INST_RETURN(1, 0xB0)

  1105.         if (INST_REG(0) == REG_C)

  1106.             INST_RETURN(1, 0xB1)

  1107.         if (INST_REG(0) == REG_D)

  1108.             INST_RETURN(1, 0xB2)

  1109.         if (INST_REG(0) == REG_E)

  1110.             INST_RETURN(1, 0xB3)

  1111.         if (INST_REG(0) == REG_H)

  1112.             INST_RETURN(1, 0xB4)

  1113.         if (INST_REG(0) == REG_IXH)

  1114.             INST_RETURN(2, INST_IX_PREFIX, 0xB4)

  1115.         if (INST_REG(0) == REG_IYH)

  1116.             INST_RETURN(2, INST_IY_PREFIX, 0xB4)

  1117.         if (INST_REG(0) == REG_L)

  1118.             INST_RETURN(1, 0xB5)

  1119.         if (INST_REG(0) == REG_IXL)

  1120.             INST_RETURN(2, INST_IX_PREFIX, 0xB5)

  1121.         if (INST_REG(0) == REG_IYL)

  1122.             INST_RETURN(2, INST_IY_PREFIX, 0xB5)

  1123.         INST_ERROR(ARG_VALUE)

  1124.     }

  1125.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  1126.         if (INST_IMM(0).mask & IMM_U8)

  1127.             INST_RETURN(2, 0xF6, INST_IMM(0).uval)

  1128.         INST_ERROR(ARG_VALUE)

  1129.     }

  1130.     if (INST_TYPE(0) == AT_INDIRECT &&

  1131.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1132.         INST_RETURN(1, 0xB6)

  1133.     }

  1134.     if (INST_TYPE(0) == AT_INDEXED) {

  1135.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0xB6, INST_INDEX(0).offset)

  1136.     }

  1137.     INST_ERROR(ARG_TYPE)

  1138. }

  1139. 

  1140. INST_FUNC(otdr)

  1141. {

  1142.     INST_TAKES_NO_ARGS

  1143.     INST_RETURN(2, 0xED, 0xBB)

  1144. }

  1145. 

  1146. INST_FUNC(otir)

  1147. {

  1148.     INST_TAKES_NO_ARGS

  1149.     INST_RETURN(2, 0xED, 0xB3)

  1150. }

  1151. 

  1152. INST_FUNC(out)

  1153. {

  1154.     INST_TAKES_ARGS(

  1155.         AT_PORT,

  1156.         AT_IMMEDIATE|AT_REGISTER,

  1157.         AT_NONE

  1158.     )

  1159.     if (INST_TYPE(0) == AT_PORT && INST_TYPE(1) == AT_REGISTER) {

  1160.         if (INST_PORT(0).type == AT_IMMEDIATE && INST_REG(1) == REG_A)

  1161.             INST_RETURN(2, 0xD3, INST_PORT(0).port.imm.uval)

  1162.         if (INST_PORT(0).type == AT_REGISTER && INST_REG(1) == REG_A)

  1163.             INST_RETURN(2, 0xED, 0x79)

  1164.         if (INST_PORT(0).type == AT_REGISTER && INST_REG(1) == REG_B)

  1165.             INST_RETURN(2, 0xED, 0x41)

  1166.         if (INST_PORT(0).type == AT_REGISTER && INST_REG(1) == REG_C)

  1167.             INST_RETURN(2, 0xED, 0x49)

  1168.         if (INST_PORT(0).type == AT_REGISTER && INST_REG(1) == REG_D)

  1169.             INST_RETURN(2, 0xED, 0x51)

  1170.         if (INST_PORT(0).type == AT_REGISTER && INST_REG(1) == REG_E)

  1171.             INST_RETURN(2, 0xED, 0x59)

  1172.         if (INST_PORT(0).type == AT_REGISTER && INST_REG(1) == REG_H)

  1173.             INST_RETURN(2, 0xED, 0x61)

  1174.         if (INST_PORT(0).type == AT_REGISTER && INST_REG(1) == REG_L)

  1175.             INST_RETURN(2, 0xED, 0x69)

  1176.         INST_ERROR(ARG_VALUE)

  1177.     }

  1178.     if (INST_TYPE(0) == AT_PORT && INST_TYPE(1) == AT_IMMEDIATE) {

  1179.         if (INST_PORT(0).type == AT_REGISTER && (INST_IMM(1).mask & IMM_U8 && INST_IMM(1).uval == 0))

  1180.             INST_RETURN(2, 0xED, 0x71)

  1181.         INST_ERROR(ARG_VALUE)

  1182.     }

  1183.     INST_ERROR(ARG_TYPE)

  1184. }

  1185. 

  1186. INST_FUNC(outd)

  1187. {

  1188.     INST_TAKES_NO_ARGS

  1189.     INST_RETURN(2, 0xED, 0xAB)

  1190. }

  1191. 

  1192. INST_FUNC(outi)

  1193. {

  1194.     INST_TAKES_NO_ARGS

  1195.     INST_RETURN(2, 0xED, 0xA3)

  1196. }

  1197. 

  1198. INST_FUNC(pop)

  1199. {

  1200.     INST_TAKES_ARGS(

  1201.         AT_REGISTER,

  1202.         AT_NONE,

  1203.         AT_NONE

  1204.     )

  1205.     if (INST_TYPE(0) == AT_REGISTER) {

  1206.         if (INST_REG(0) == REG_BC)

  1207.             INST_RETURN(1, 0xC1)

  1208.         if (INST_REG(0) == REG_DE)

  1209.             INST_RETURN(1, 0xD1)

  1210.         if (INST_REG(0) == REG_HL)

  1211.             INST_RETURN(1, 0xE1)

  1212.         if (INST_REG(0) == REG_IX)

  1213.             INST_RETURN(2, INST_IX_PREFIX, 0xE1)

  1214.         if (INST_REG(0) == REG_IY)

  1215.             INST_RETURN(2, INST_IY_PREFIX, 0xE1)

  1216.         if (INST_REG(0) == REG_AF)

  1217.             INST_RETURN(1, 0xF1)

  1218.         INST_ERROR(ARG_VALUE)

  1219.     }

  1220.     INST_ERROR(ARG_TYPE)

  1221. }

  1222. 

  1223. INST_FUNC(push)

  1224. {

  1225.     INST_TAKES_ARGS(

  1226.         AT_REGISTER,

  1227.         AT_NONE,

  1228.         AT_NONE

  1229.     )

  1230.     if (INST_TYPE(0) == AT_REGISTER) {

  1231.         if (INST_REG(0) == REG_BC)

  1232.             INST_RETURN(1, 0xC5)

  1233.         if (INST_REG(0) == REG_DE)

  1234.             INST_RETURN(1, 0xD5)

  1235.         if (INST_REG(0) == REG_HL)

  1236.             INST_RETURN(1, 0xE5)

  1237.         if (INST_REG(0) == REG_IX)

  1238.             INST_RETURN(2, INST_IX_PREFIX, 0xE5)

  1239.         if (INST_REG(0) == REG_IY)

  1240.             INST_RETURN(2, INST_IY_PREFIX, 0xE5)

  1241.         if (INST_REG(0) == REG_AF)

  1242.             INST_RETURN(1, 0xF5)

  1243.         INST_ERROR(ARG_VALUE)

  1244.     }

  1245.     INST_ERROR(ARG_TYPE)

  1246. }

  1247. 

  1248. INST_FUNC(res)

  1249. {

  1250.     INST_TAKES_ARGS(

  1251.         AT_IMMEDIATE,

  1252.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1253.         AT_OPTIONAL|AT_REGISTER

  1254.     )

  1255.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_REGISTER) {

  1256.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_A)

  1257.             INST_RETURN(2, 0xCB, 0x87 + 8 * INST_IMM(0).uval)

  1258.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_B)

  1259.             INST_RETURN(2, 0xCB, 0x80 + 8 * INST_IMM(0).uval)

  1260.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_C)

  1261.             INST_RETURN(2, 0xCB, 0x81 + 8 * INST_IMM(0).uval)

  1262.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_D)

  1263.             INST_RETURN(2, 0xCB, 0x82 + 8 * INST_IMM(0).uval)

  1264.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_E)

  1265.             INST_RETURN(2, 0xCB, 0x83 + 8 * INST_IMM(0).uval)

  1266.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_H)

  1267.             INST_RETURN(2, 0xCB, 0x84 + 8 * INST_IMM(0).uval)

  1268.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_L)

  1269.             INST_RETURN(2, 0xCB, 0x85 + 8 * INST_IMM(0).uval)

  1270.         INST_ERROR(ARG_VALUE)

  1271.     }

  1272.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDIRECT &&

  1273.             (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_HL)) {

  1274.         if (INST_IMM(0).mask & IMM_BIT)

  1275.             INST_RETURN(2, 0xCB, 0x86 + 8 * INST_IMM(0).uval)

  1276.         INST_ERROR(ARG_VALUE)

  1277.     }

  1278.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDEXED) {

  1279.         if (INST_IMM(0).mask & IMM_BIT)

  1280.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x86 + 8 * INST_IMM(0).uval)

  1281.         INST_ERROR(ARG_VALUE)

  1282.     }

  1283.     if (INST_NARGS == 3 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDEXED && INST_TYPE(2) == AT_REGISTER) {

  1284.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_A)

  1285.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x87 + 8 * INST_IMM(0).uval)

  1286.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_B)

  1287.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x80 + 8 * INST_IMM(0).uval)

  1288.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_C)

  1289.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x81 + 8 * INST_IMM(0).uval)

  1290.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_D)

  1291.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x82 + 8 * INST_IMM(0).uval)

  1292.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_E)

  1293.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x83 + 8 * INST_IMM(0).uval)

  1294.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_H)

  1295.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x84 + 8 * INST_IMM(0).uval)

  1296.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_L)

  1297.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0x85 + 8 * INST_IMM(0).uval)

  1298.         INST_ERROR(ARG_VALUE)

  1299.     }

  1300.     INST_ERROR(ARG_TYPE)

  1301. }

  1302. 

  1303. INST_FUNC(ret)

  1304. {

  1305.     INST_TAKES_ARGS(

  1306.         AT_CONDITION|AT_OPTIONAL,

  1307.         AT_NONE,

  1308.         AT_NONE

  1309.     )

  1310.     if (INST_NARGS == 0) {

  1311.         INST_RETURN(1, 0xC9)

  1312.     }

  1313.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_CONDITION) {

  1314.         if (INST_COND(0) == COND_NZ)

  1315.             INST_RETURN(1, 0xC0)

  1316.         if (INST_COND(0) == COND_Z)

  1317.             INST_RETURN(1, 0xC8)

  1318.         if (INST_COND(0) == COND_NC)

  1319.             INST_RETURN(1, 0xD0)

  1320.         if (INST_COND(0) == COND_C)

  1321.             INST_RETURN(1, 0xD8)

  1322.         if (INST_COND(0) == COND_PO)

  1323.             INST_RETURN(1, 0xE0)

  1324.         if (INST_COND(0) == COND_PE)

  1325.             INST_RETURN(1, 0xE8)

  1326.         if (INST_COND(0) == COND_P)

  1327.             INST_RETURN(1, 0xF0)

  1328.         if (INST_COND(0) == COND_M)

  1329.             INST_RETURN(1, 0xF8)

  1330.         INST_ERROR(ARG_VALUE)

  1331.     }

  1332.     INST_ERROR(ARG_TYPE)

  1333. }

  1334. 

  1335. INST_FUNC(reti)

  1336. {

  1337.     INST_TAKES_NO_ARGS

  1338.     INST_RETURN(2, 0xED, 0x4D)

  1339. }

  1340. 

  1341. INST_FUNC(retn)

  1342. {

  1343.     INST_TAKES_NO_ARGS

  1344.     INST_RETURN(2, 0xED, 0x45)

  1345. }

  1346. 

  1347. INST_FUNC(rl)

  1348. {

  1349.     INST_TAKES_ARGS(

  1350.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1351.         AT_OPTIONAL|AT_REGISTER,

  1352.         AT_NONE

  1353.     )

  1354.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1355.         if (INST_REG(0) == REG_A)

  1356.             INST_RETURN(2, 0xCB, 0x17)

  1357.         if (INST_REG(0) == REG_B)

  1358.             INST_RETURN(2, 0xCB, 0x10)

  1359.         if (INST_REG(0) == REG_C)

  1360.             INST_RETURN(2, 0xCB, 0x11)

  1361.         if (INST_REG(0) == REG_D)

  1362.             INST_RETURN(2, 0xCB, 0x12)

  1363.         if (INST_REG(0) == REG_E)

  1364.             INST_RETURN(2, 0xCB, 0x13)

  1365.         if (INST_REG(0) == REG_H)

  1366.             INST_RETURN(2, 0xCB, 0x14)

  1367.         if (INST_REG(0) == REG_L)

  1368.             INST_RETURN(2, 0xCB, 0x15)

  1369.         INST_ERROR(ARG_VALUE)

  1370.     }

  1371.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1372.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1373.         INST_RETURN(2, 0xCB, 0x16)

  1374.     }

  1375.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1376.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x16)

  1377.     }

  1378.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1379.         if (INST_REG(1) == REG_A)

  1380.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x17)

  1381.         if (INST_REG(1) == REG_B)

  1382.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x10)

  1383.         if (INST_REG(1) == REG_C)

  1384.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x11)

  1385.         if (INST_REG(1) == REG_D)

  1386.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x12)

  1387.         if (INST_REG(1) == REG_E)

  1388.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x13)

  1389.         if (INST_REG(1) == REG_H)

  1390.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x14)

  1391.         if (INST_REG(1) == REG_L)

  1392.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x15)

  1393.         INST_ERROR(ARG_VALUE)

  1394.     }

  1395.     INST_ERROR(ARG_TYPE)

  1396. }

  1397. 

  1398. INST_FUNC(rla)

  1399. {

  1400.     INST_TAKES_NO_ARGS

  1401.     INST_RETURN(1, 0x17)

  1402. }

  1403. 

  1404. INST_FUNC(rlc)

  1405. {

  1406.     INST_TAKES_ARGS(

  1407.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1408.         AT_OPTIONAL|AT_REGISTER,

  1409.         AT_NONE

  1410.     )

  1411.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1412.         if (INST_REG(0) == REG_A)

  1413.             INST_RETURN(2, 0xCB, 0x07)

  1414.         if (INST_REG(0) == REG_B)

  1415.             INST_RETURN(2, 0xCB, 0x00)

  1416.         if (INST_REG(0) == REG_C)

  1417.             INST_RETURN(2, 0xCB, 0x01)

  1418.         if (INST_REG(0) == REG_D)

  1419.             INST_RETURN(2, 0xCB, 0x02)

  1420.         if (INST_REG(0) == REG_E)

  1421.             INST_RETURN(2, 0xCB, 0x03)

  1422.         if (INST_REG(0) == REG_H)

  1423.             INST_RETURN(2, 0xCB, 0x04)

  1424.         if (INST_REG(0) == REG_L)

  1425.             INST_RETURN(2, 0xCB, 0x05)

  1426.         INST_ERROR(ARG_VALUE)

  1427.     }

  1428.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1429.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1430.         INST_RETURN(2, 0xCB, 0x06)

  1431.     }

  1432.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1433.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x06)

  1434.     }

  1435.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1436.         if (INST_REG(1) == REG_A)

  1437.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x07)

  1438.         if (INST_REG(1) == REG_B)

  1439.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x00)

  1440.         if (INST_REG(1) == REG_C)

  1441.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x01)

  1442.         if (INST_REG(1) == REG_D)

  1443.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x02)

  1444.         if (INST_REG(1) == REG_E)

  1445.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x03)

  1446.         if (INST_REG(1) == REG_H)

  1447.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x04)

  1448.         if (INST_REG(1) == REG_L)

  1449.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x05)

  1450.         INST_ERROR(ARG_VALUE)

  1451.     }

  1452.     INST_ERROR(ARG_TYPE)

  1453. }

  1454. 

  1455. INST_FUNC(rlca)

  1456. {

  1457.     INST_TAKES_NO_ARGS

  1458.     INST_RETURN(1, 0x07)

  1459. }

  1460. 

  1461. INST_FUNC(rld)

  1462. {

  1463.     INST_TAKES_NO_ARGS

  1464.     INST_RETURN(2, 0xED, 0x6F)

  1465. }

  1466. 

  1467. INST_FUNC(rr)

  1468. {

  1469.     INST_TAKES_ARGS(

  1470.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1471.         AT_OPTIONAL|AT_REGISTER,

  1472.         AT_NONE

  1473.     )

  1474.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1475.         if (INST_REG(0) == REG_A)

  1476.             INST_RETURN(2, 0xCB, 0x1F)

  1477.         if (INST_REG(0) == REG_B)

  1478.             INST_RETURN(2, 0xCB, 0x18)

  1479.         if (INST_REG(0) == REG_C)

  1480.             INST_RETURN(2, 0xCB, 0x19)

  1481.         if (INST_REG(0) == REG_D)

  1482.             INST_RETURN(2, 0xCB, 0x1A)

  1483.         if (INST_REG(0) == REG_E)

  1484.             INST_RETURN(2, 0xCB, 0x1B)

  1485.         if (INST_REG(0) == REG_H)

  1486.             INST_RETURN(2, 0xCB, 0x1C)

  1487.         if (INST_REG(0) == REG_L)

  1488.             INST_RETURN(2, 0xCB, 0x1D)

  1489.         INST_ERROR(ARG_VALUE)

  1490.     }

  1491.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1492.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1493.         INST_RETURN(2, 0xCB, 0x1E)

  1494.     }

  1495.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1496.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x1E)

  1497.     }

  1498.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1499.         if (INST_REG(1) == REG_A)

  1500.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x1F)

  1501.         if (INST_REG(1) == REG_B)

  1502.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x18)

  1503.         if (INST_REG(1) == REG_C)

  1504.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x19)

  1505.         if (INST_REG(1) == REG_D)

  1506.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x1A)

  1507.         if (INST_REG(1) == REG_E)

  1508.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x1B)

  1509.         if (INST_REG(1) == REG_H)

  1510.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x1C)

  1511.         if (INST_REG(1) == REG_L)

  1512.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x1D)

  1513.         INST_ERROR(ARG_VALUE)

  1514.     }

  1515.     INST_ERROR(ARG_TYPE)

  1516. }

  1517. 

  1518. INST_FUNC(rra)

  1519. {

  1520.     INST_TAKES_NO_ARGS

  1521.     INST_RETURN(1, 0x1F)

  1522. }

  1523. 

  1524. INST_FUNC(rrc)

  1525. {

  1526.     INST_TAKES_ARGS(

  1527.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1528.         AT_OPTIONAL|AT_REGISTER,

  1529.         AT_NONE

  1530.     )

  1531.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1532.         if (INST_REG(0) == REG_A)

  1533.             INST_RETURN(2, 0xCB, 0x0F)

  1534.         if (INST_REG(0) == REG_B)

  1535.             INST_RETURN(2, 0xCB, 0x08)

  1536.         if (INST_REG(0) == REG_C)

  1537.             INST_RETURN(2, 0xCB, 0x09)

  1538.         if (INST_REG(0) == REG_D)

  1539.             INST_RETURN(2, 0xCB, 0x0A)

  1540.         if (INST_REG(0) == REG_E)

  1541.             INST_RETURN(2, 0xCB, 0x0B)

  1542.         if (INST_REG(0) == REG_H)

  1543.             INST_RETURN(2, 0xCB, 0x0C)

  1544.         if (INST_REG(0) == REG_L)

  1545.             INST_RETURN(2, 0xCB, 0x0D)

  1546.         INST_ERROR(ARG_VALUE)

  1547.     }

  1548.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1549.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1550.         INST_RETURN(2, 0xCB, 0x0E)

  1551.     }

  1552.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1553.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x0E)

  1554.     }

  1555.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1556.         if (INST_REG(1) == REG_A)

  1557.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x0F)

  1558.         if (INST_REG(1) == REG_B)

  1559.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x08)

  1560.         if (INST_REG(1) == REG_C)

  1561.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x09)

  1562.         if (INST_REG(1) == REG_D)

  1563.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x0A)

  1564.         if (INST_REG(1) == REG_E)

  1565.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x0B)

  1566.         if (INST_REG(1) == REG_H)

  1567.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x0C)

  1568.         if (INST_REG(1) == REG_L)

  1569.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x0D)

  1570.         INST_ERROR(ARG_VALUE)

  1571.     }

  1572.     INST_ERROR(ARG_TYPE)

  1573. }

  1574. 

  1575. INST_FUNC(rrca)

  1576. {

  1577.     INST_TAKES_NO_ARGS

  1578.     INST_RETURN(1, 0x0F)

  1579. }

  1580. 

  1581. INST_FUNC(rrd)

  1582. {

  1583.     INST_TAKES_NO_ARGS

  1584.     INST_RETURN(2, 0xED, 0x67)

  1585. }

  1586. 

  1587. INST_FUNC(rst)

  1588. {

  1589.     INST_TAKES_ARGS(

  1590.         AT_IMMEDIATE,

  1591.         AT_NONE,

  1592.         AT_NONE

  1593.     )

  1594.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  1595.         if (INST_IMM(0).mask & IMM_RST)

  1596.             INST_RETURN(1, 0xC7 + INST_IMM(0).uval)

  1597.         INST_ERROR(ARG_VALUE)

  1598.     }

  1599.     INST_ERROR(ARG_TYPE)

  1600. }

  1601. 

  1602. INST_FUNC(sbc)

  1603. {

  1604.     INST_TAKES_ARGS(

  1605.         AT_REGISTER,

  1606.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1607.         AT_NONE

  1608.     )

  1609.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_REGISTER) {

  1610.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_A)

  1611.             INST_RETURN(1, 0x9F)

  1612.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_B)

  1613.             INST_RETURN(1, 0x98)

  1614.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_C)

  1615.             INST_RETURN(1, 0x99)

  1616.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_D)

  1617.             INST_RETURN(1, 0x9A)

  1618.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_E)

  1619.             INST_RETURN(1, 0x9B)

  1620.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_H)

  1621.             INST_RETURN(1, 0x9C)

  1622.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXH)

  1623.             INST_RETURN(2, INST_IX_PREFIX, 0x9C)

  1624.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYH)

  1625.             INST_RETURN(2, INST_IY_PREFIX, 0x9C)

  1626.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_L)

  1627.             INST_RETURN(1, 0x9D)

  1628.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IXL)

  1629.             INST_RETURN(2, INST_IX_PREFIX, 0x9D)

  1630.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IYL)

  1631.             INST_RETURN(2, INST_IY_PREFIX, 0x9D)

  1632.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_BC)

  1633.             INST_RETURN(2, 0xED, 0x42)

  1634.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_DE)

  1635.             INST_RETURN(2, 0xED, 0x52)

  1636.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_HL)

  1637.             INST_RETURN(2, 0xED, 0x62)

  1638.         if (INST_REG(0) == REG_HL && INST_REG(1) == REG_SP)

  1639.             INST_RETURN(2, 0xED, 0x72)

  1640.         INST_ERROR(ARG_VALUE)

  1641.     }

  1642.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_IMMEDIATE) {

  1643.         if (INST_REG(0) == REG_A && INST_IMM(1).mask & IMM_U8)

  1644.             INST_RETURN(2, 0xDE, INST_IMM(1).uval)

  1645.         INST_ERROR(ARG_VALUE)

  1646.     }

  1647.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDIRECT &&

  1648.             (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_HL)) {

  1649.         if (INST_REG(0) == REG_A)

  1650.             INST_RETURN(1, 0x9E)

  1651.         INST_ERROR(ARG_VALUE)

  1652.     }

  1653.     if (INST_TYPE(0) == AT_REGISTER && INST_TYPE(1) == AT_INDEXED) {

  1654.         if (INST_REG(0) == REG_A)

  1655.             INST_RETURN(3, INST_INDEX_PREFIX(1), 0x9E, INST_INDEX(1).offset)

  1656.         INST_ERROR(ARG_VALUE)

  1657.     }

  1658.     INST_ERROR(ARG_TYPE)

  1659. }

  1660. 

  1661. INST_FUNC(scf)

  1662. {

  1663.     INST_TAKES_NO_ARGS

  1664.     INST_RETURN(1, 0x37)

  1665. }

  1666. 

  1667. INST_FUNC(set)

  1668. {

  1669.     INST_TAKES_ARGS(

  1670.         AT_IMMEDIATE,

  1671.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1672.         AT_OPTIONAL|AT_REGISTER

  1673.     )

  1674.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_REGISTER) {

  1675.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_A)

  1676.             INST_RETURN(2, 0xCB, 0xC7 + 8 * INST_IMM(0).uval)

  1677.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_B)

  1678.             INST_RETURN(2, 0xCB, 0xC0 + 8 * INST_IMM(0).uval)

  1679.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_C)

  1680.             INST_RETURN(2, 0xCB, 0xC1 + 8 * INST_IMM(0).uval)

  1681.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_D)

  1682.             INST_RETURN(2, 0xCB, 0xC2 + 8 * INST_IMM(0).uval)

  1683.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_E)

  1684.             INST_RETURN(2, 0xCB, 0xC3 + 8 * INST_IMM(0).uval)

  1685.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_H)

  1686.             INST_RETURN(2, 0xCB, 0xC4 + 8 * INST_IMM(0).uval)

  1687.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(1) == REG_L)

  1688.             INST_RETURN(2, 0xCB, 0xC5 + 8 * INST_IMM(0).uval)

  1689.         INST_ERROR(ARG_VALUE)

  1690.     }

  1691.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDIRECT &&

  1692.             (INST_INDIRECT(1).type == AT_REGISTER && INST_INDIRECT(1).addr.reg == REG_HL)) {

  1693.         if (INST_IMM(0).mask & IMM_BIT)

  1694.             INST_RETURN(2, 0xCB, 0xC6 + 8 * INST_IMM(0).uval)

  1695.         INST_ERROR(ARG_VALUE)

  1696.     }

  1697.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDEXED) {

  1698.         if (INST_IMM(0).mask & IMM_BIT)

  1699.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC6 + 8 * INST_IMM(0).uval)

  1700.         INST_ERROR(ARG_VALUE)

  1701.     }

  1702.     if (INST_NARGS == 3 && INST_TYPE(0) == AT_IMMEDIATE && INST_TYPE(1) == AT_INDEXED && INST_TYPE(2) == AT_REGISTER) {

  1703.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_A)

  1704.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC7 + 8 * INST_IMM(0).uval)

  1705.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_B)

  1706.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC0 + 8 * INST_IMM(0).uval)

  1707.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_C)

  1708.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC1 + 8 * INST_IMM(0).uval)

  1709.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_D)

  1710.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC2 + 8 * INST_IMM(0).uval)

  1711.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_E)

  1712.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC3 + 8 * INST_IMM(0).uval)

  1713.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_H)

  1714.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC4 + 8 * INST_IMM(0).uval)

  1715.         if (INST_IMM(0).mask & IMM_BIT && INST_REG(2) == REG_L)

  1716.             INST_RETURN(4, INST_INDEX_PREFIX(1), 0xCB, INST_INDEX(1).offset, 0xC5 + 8 * INST_IMM(0).uval)

  1717.         INST_ERROR(ARG_VALUE)

  1718.     }

  1719.     INST_ERROR(ARG_TYPE)

  1720. }

  1721. 

  1722. INST_FUNC(sl1)

  1723. {

  1724.     INST_TAKES_ARGS(

  1725.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1726.         AT_OPTIONAL|AT_REGISTER,

  1727.         AT_NONE

  1728.     )

  1729.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1730.         if (INST_REG(0) == REG_A)

  1731.             INST_RETURN(2, 0xCB, 0x37)

  1732.         if (INST_REG(0) == REG_B)

  1733.             INST_RETURN(2, 0xCB, 0x30)

  1734.         if (INST_REG(0) == REG_C)

  1735.             INST_RETURN(2, 0xCB, 0x31)

  1736.         if (INST_REG(0) == REG_D)

  1737.             INST_RETURN(2, 0xCB, 0x32)

  1738.         if (INST_REG(0) == REG_E)

  1739.             INST_RETURN(2, 0xCB, 0x33)

  1740.         if (INST_REG(0) == REG_H)

  1741.             INST_RETURN(2, 0xCB, 0x34)

  1742.         if (INST_REG(0) == REG_L)

  1743.             INST_RETURN(2, 0xCB, 0x35)

  1744.         INST_ERROR(ARG_VALUE)

  1745.     }

  1746.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1747.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1748.         INST_RETURN(2, 0xCB, 0x36)

  1749.     }

  1750.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1751.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x36)

  1752.     }

  1753.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1754.         if (INST_REG(1) == REG_A)

  1755.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x37)

  1756.         if (INST_REG(1) == REG_B)

  1757.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x30)

  1758.         if (INST_REG(1) == REG_C)

  1759.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x31)

  1760.         if (INST_REG(1) == REG_D)

  1761.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x32)

  1762.         if (INST_REG(1) == REG_E)

  1763.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x33)

  1764.         if (INST_REG(1) == REG_H)

  1765.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x34)

  1766.         if (INST_REG(1) == REG_L)

  1767.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x35)

  1768.         INST_ERROR(ARG_VALUE)

  1769.     }

  1770.     INST_ERROR(ARG_TYPE)

  1771. }

  1772. 

  1773. INST_FUNC(sla)

  1774. {

  1775.     INST_TAKES_ARGS(

  1776.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1777.         AT_OPTIONAL|AT_REGISTER,

  1778.         AT_NONE

  1779.     )

  1780.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1781.         if (INST_REG(0) == REG_A)

  1782.             INST_RETURN(2, 0xCB, 0x27)

  1783.         if (INST_REG(0) == REG_B)

  1784.             INST_RETURN(2, 0xCB, 0x20)

  1785.         if (INST_REG(0) == REG_C)

  1786.             INST_RETURN(2, 0xCB, 0x21)

  1787.         if (INST_REG(0) == REG_D)

  1788.             INST_RETURN(2, 0xCB, 0x22)

  1789.         if (INST_REG(0) == REG_E)

  1790.             INST_RETURN(2, 0xCB, 0x23)

  1791.         if (INST_REG(0) == REG_H)

  1792.             INST_RETURN(2, 0xCB, 0x24)

  1793.         if (INST_REG(0) == REG_L)

  1794.             INST_RETURN(2, 0xCB, 0x25)

  1795.         INST_ERROR(ARG_VALUE)

  1796.     }

  1797.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1798.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1799.         INST_RETURN(2, 0xCB, 0x26)

  1800.     }

  1801.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1802.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x26)

  1803.     }

  1804.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1805.         if (INST_REG(1) == REG_A)

  1806.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x27)

  1807.         if (INST_REG(1) == REG_B)

  1808.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x20)

  1809.         if (INST_REG(1) == REG_C)

  1810.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x21)

  1811.         if (INST_REG(1) == REG_D)

  1812.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x22)

  1813.         if (INST_REG(1) == REG_E)

  1814.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x23)

  1815.         if (INST_REG(1) == REG_H)

  1816.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x24)

  1817.         if (INST_REG(1) == REG_L)

  1818.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x25)

  1819.         INST_ERROR(ARG_VALUE)

  1820.     }

  1821.     INST_ERROR(ARG_TYPE)

  1822. }

  1823. 

  1824. INST_FUNC(sll)

  1825. {

  1826.     INST_TAKES_ARGS(

  1827.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1828.         AT_OPTIONAL|AT_REGISTER,

  1829.         AT_NONE

  1830.     )

  1831.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1832.         if (INST_REG(0) == REG_A)

  1833.             INST_RETURN(2, 0xCB, 0x37)

  1834.         if (INST_REG(0) == REG_B)

  1835.             INST_RETURN(2, 0xCB, 0x30)

  1836.         if (INST_REG(0) == REG_C)

  1837.             INST_RETURN(2, 0xCB, 0x31)

  1838.         if (INST_REG(0) == REG_D)

  1839.             INST_RETURN(2, 0xCB, 0x32)

  1840.         if (INST_REG(0) == REG_E)

  1841.             INST_RETURN(2, 0xCB, 0x33)

  1842.         if (INST_REG(0) == REG_H)

  1843.             INST_RETURN(2, 0xCB, 0x34)

  1844.         if (INST_REG(0) == REG_L)

  1845.             INST_RETURN(2, 0xCB, 0x35)

  1846.         INST_ERROR(ARG_VALUE)

  1847.     }

  1848.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT) {

  1849.         INST_RETURN(2, 0xCB, 0x36)

  1850.     }

  1851.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1852.         if (INST_REG(1) == REG_A)

  1853.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x37)

  1854.         if (INST_REG(1) == REG_B)

  1855.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x30)

  1856.         if (INST_REG(1) == REG_C)

  1857.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x31)

  1858.         if (INST_REG(1) == REG_D)

  1859.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x32)

  1860.         if (INST_REG(1) == REG_E)

  1861.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x33)

  1862.         if (INST_REG(1) == REG_H)

  1863.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x34)

  1864.         if (INST_REG(1) == REG_L)

  1865.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x35)

  1866.         INST_ERROR(ARG_VALUE)

  1867.     }

  1868.     INST_ERROR(ARG_TYPE)

  1869. }

  1870. 

  1871. INST_FUNC(sls)

  1872. {

  1873.     INST_TAKES_ARGS(

  1874.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1875.         AT_OPTIONAL|AT_REGISTER,

  1876.         AT_NONE

  1877.     )

  1878.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1879.         if (INST_REG(0) == REG_A)

  1880.             INST_RETURN(2, 0xCB, 0x37)

  1881.         if (INST_REG(0) == REG_B)

  1882.             INST_RETURN(2, 0xCB, 0x30)

  1883.         if (INST_REG(0) == REG_C)

  1884.             INST_RETURN(2, 0xCB, 0x31)

  1885.         if (INST_REG(0) == REG_D)

  1886.             INST_RETURN(2, 0xCB, 0x32)

  1887.         if (INST_REG(0) == REG_E)

  1888.             INST_RETURN(2, 0xCB, 0x33)

  1889.         if (INST_REG(0) == REG_H)

  1890.             INST_RETURN(2, 0xCB, 0x34)

  1891.         if (INST_REG(0) == REG_L)

  1892.             INST_RETURN(2, 0xCB, 0x35)

  1893.         INST_ERROR(ARG_VALUE)

  1894.     }

  1895.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT) {

  1896.         INST_RETURN(2, 0xCB, 0x36)

  1897.     }

  1898.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1899.         if (INST_REG(1) == REG_A)

  1900.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x37)

  1901.         if (INST_REG(1) == REG_B)

  1902.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x30)

  1903.         if (INST_REG(1) == REG_C)

  1904.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x31)

  1905.         if (INST_REG(1) == REG_D)

  1906.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x32)

  1907.         if (INST_REG(1) == REG_E)

  1908.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x33)

  1909.         if (INST_REG(1) == REG_H)

  1910.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x34)

  1911.         if (INST_REG(1) == REG_L)

  1912.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x35)

  1913.         INST_ERROR(ARG_VALUE)

  1914.     }

  1915.     INST_ERROR(ARG_TYPE)

  1916. }

  1917. 

  1918. INST_FUNC(sra)

  1919. {

  1920.     INST_TAKES_ARGS(

  1921.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1922.         AT_OPTIONAL|AT_REGISTER,

  1923.         AT_NONE

  1924.     )

  1925.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1926.         if (INST_REG(0) == REG_A)

  1927.             INST_RETURN(2, 0xCB, 0x2F)

  1928.         if (INST_REG(0) == REG_B)

  1929.             INST_RETURN(2, 0xCB, 0x28)

  1930.         if (INST_REG(0) == REG_C)

  1931.             INST_RETURN(2, 0xCB, 0x29)

  1932.         if (INST_REG(0) == REG_D)

  1933.             INST_RETURN(2, 0xCB, 0x2A)

  1934.         if (INST_REG(0) == REG_E)

  1935.             INST_RETURN(2, 0xCB, 0x2B)

  1936.         if (INST_REG(0) == REG_H)

  1937.             INST_RETURN(2, 0xCB, 0x2C)

  1938.         if (INST_REG(0) == REG_L)

  1939.             INST_RETURN(2, 0xCB, 0x2D)

  1940.         INST_ERROR(ARG_VALUE)

  1941.     }

  1942.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1943.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1944.         INST_RETURN(2, 0xCB, 0x2E)

  1945.     }

  1946.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1947.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2E)

  1948.     }

  1949.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  1950.         if (INST_REG(1) == REG_A)

  1951.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2F)

  1952.         if (INST_REG(1) == REG_B)

  1953.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x28)

  1954.         if (INST_REG(1) == REG_C)

  1955.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x29)

  1956.         if (INST_REG(1) == REG_D)

  1957.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2A)

  1958.         if (INST_REG(1) == REG_E)

  1959.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2B)

  1960.         if (INST_REG(1) == REG_H)

  1961.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2C)

  1962.         if (INST_REG(1) == REG_L)

  1963.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2D)

  1964.         INST_ERROR(ARG_VALUE)

  1965.     }

  1966.     INST_ERROR(ARG_TYPE)

  1967. }

  1968. 

  1969. INST_FUNC(srl)

  1970. {

  1971.     INST_TAKES_ARGS(

  1972.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1973.         AT_OPTIONAL|AT_REGISTER,

  1974.         AT_NONE

  1975.     )

  1976.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_REGISTER) {

  1977.         if (INST_REG(0) == REG_A)

  1978.             INST_RETURN(2, 0xCB, 0x3F)

  1979.         if (INST_REG(0) == REG_B)

  1980.             INST_RETURN(2, 0xCB, 0x38)

  1981.         if (INST_REG(0) == REG_C)

  1982.             INST_RETURN(2, 0xCB, 0x39)

  1983.         if (INST_REG(0) == REG_D)

  1984.             INST_RETURN(2, 0xCB, 0x3A)

  1985.         if (INST_REG(0) == REG_E)

  1986.             INST_RETURN(2, 0xCB, 0x3B)

  1987.         if (INST_REG(0) == REG_H)

  1988.             INST_RETURN(2, 0xCB, 0x3C)

  1989.         if (INST_REG(0) == REG_L)

  1990.             INST_RETURN(2, 0xCB, 0x3D)

  1991.         INST_ERROR(ARG_VALUE)

  1992.     }

  1993.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDIRECT &&

  1994.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  1995.         INST_RETURN(2, 0xCB, 0x3E)

  1996.     }

  1997.     if (INST_NARGS == 1 && INST_TYPE(0) == AT_INDEXED) {

  1998.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3E)

  1999.     }

  2000.     if (INST_NARGS == 2 && INST_TYPE(0) == AT_INDEXED && INST_TYPE(1) == AT_REGISTER) {

  2001.         if (INST_REG(1) == REG_A)

  2002.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3F)

  2003.         if (INST_REG(1) == REG_B)

  2004.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x38)

  2005.         if (INST_REG(1) == REG_C)

  2006.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x39)

  2007.         if (INST_REG(1) == REG_D)

  2008.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3A)

  2009.         if (INST_REG(1) == REG_E)

  2010.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3B)

  2011.         if (INST_REG(1) == REG_H)

  2012.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3C)

  2013.         if (INST_REG(1) == REG_L)

  2014.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3D)

  2015.         INST_ERROR(ARG_VALUE)

  2016.     }

  2017.     INST_ERROR(ARG_TYPE)

  2018. }

  2019. 

  2020. INST_FUNC(sub)

  2021. {

  2022.     INST_TAKES_ARGS(

  2023.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  2024.         AT_NONE,

  2025.         AT_NONE

  2026.     )

  2027.     if (INST_TYPE(0) == AT_REGISTER) {

  2028.         if (INST_REG(0) == REG_A)

  2029.             INST_RETURN(1, 0x97)

  2030.         if (INST_REG(0) == REG_B)

  2031.             INST_RETURN(1, 0x90)

  2032.         if (INST_REG(0) == REG_C)

  2033.             INST_RETURN(1, 0x91)

  2034.         if (INST_REG(0) == REG_D)

  2035.             INST_RETURN(1, 0x92)

  2036.         if (INST_REG(0) == REG_E)

  2037.             INST_RETURN(1, 0x93)

  2038.         if (INST_REG(0) == REG_H)

  2039.             INST_RETURN(1, 0x94)

  2040.         if (INST_REG(0) == REG_IXH)

  2041.             INST_RETURN(2, INST_IX_PREFIX, 0x94)

  2042.         if (INST_REG(0) == REG_IYH)

  2043.             INST_RETURN(2, INST_IY_PREFIX, 0x94)

  2044.         if (INST_REG(0) == REG_L)

  2045.             INST_RETURN(1, 0x95)

  2046.         if (INST_REG(0) == REG_IXL)

  2047.             INST_RETURN(2, INST_IX_PREFIX, 0x95)

  2048.         if (INST_REG(0) == REG_IYL)

  2049.             INST_RETURN(2, INST_IY_PREFIX, 0x95)

  2050.         INST_ERROR(ARG_VALUE)

  2051.     }

  2052.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  2053.         if (INST_IMM(0).mask & IMM_U8)

  2054.             INST_RETURN(2, 0xD6, INST_IMM(0).uval)

  2055.         INST_ERROR(ARG_VALUE)

  2056.     }

  2057.     if (INST_TYPE(0) == AT_INDIRECT &&

  2058.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  2059.         INST_RETURN(1, 0x96)

  2060.     }

  2061.     if (INST_TYPE(0) == AT_INDEXED) {

  2062.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0x96, INST_INDEX(0).offset)

  2063.     }

  2064.     INST_ERROR(ARG_TYPE)

  2065. }

  2066. 

  2067. INST_FUNC(xor)

  2068. {

  2069.     INST_TAKES_ARGS(

  2070.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  2071.         AT_NONE,

  2072.         AT_NONE

  2073.     )

  2074.     if (INST_TYPE(0) == AT_REGISTER) {

  2075.         if (INST_REG(0) == REG_A)

  2076.             INST_RETURN(1, 0xAF)

  2077.         if (INST_REG(0) == REG_B)

  2078.             INST_RETURN(1, 0xA8)

  2079.         if (INST_REG(0) == REG_C)

  2080.             INST_RETURN(1, 0xA9)

  2081.         if (INST_REG(0) == REG_D)

  2082.             INST_RETURN(1, 0xAA)

  2083.         if (INST_REG(0) == REG_E)

  2084.             INST_RETURN(1, 0xAB)

  2085.         if (INST_REG(0) == REG_H)

  2086.             INST_RETURN(1, 0xAC)

  2087.         if (INST_REG(0) == REG_IXH)

  2088.             INST_RETURN(2, INST_IX_PREFIX, 0xAC)

  2089.         if (INST_REG(0) == REG_IYH)

  2090.             INST_RETURN(2, INST_IY_PREFIX, 0xAC)

  2091.         if (INST_REG(0) == REG_L)

  2092.             INST_RETURN(1, 0xAD)

  2093.         if (INST_REG(0) == REG_IXL)

  2094.             INST_RETURN(2, INST_IX_PREFIX, 0xAD)

  2095.         if (INST_REG(0) == REG_IYL)

  2096.             INST_RETURN(2, INST_IY_PREFIX, 0xAD)

  2097.         INST_ERROR(ARG_VALUE)

  2098.     }

  2099.     if (INST_TYPE(0) == AT_IMMEDIATE) {

  2100.         if (INST_IMM(0).mask & IMM_U8)

  2101.             INST_RETURN(2, 0xEE, INST_IMM(0).uval)

  2102.         INST_ERROR(ARG_VALUE)

  2103.     }

  2104.     if (INST_TYPE(0) == AT_INDIRECT &&

  2105.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  2106.         INST_RETURN(1, 0xAE)

  2107.     }

  2108.     if (INST_TYPE(0) == AT_INDEXED) {

  2109.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0xAE, INST_INDEX(0).offset)

  2110.     }

  2111.     INST_ERROR(ARG_TYPE)

  2112. }

  2113. 

  2114. /* @AUTOGEN_INST_BLOCK_END */

  2115. 

  2116. /*

  2117.     Return the relevant ASMInstParser function for the given encoded mnemonic.

  2118. */

  2119. static ASMInstParser lookup_parser(uint32_t key)

  2120. {

  2121. /* @AUTOGEN_LOOKUP_BLOCK_START */

  2122.     HANDLE(adc)

  2123.     HANDLE(add)

  2124.     HANDLE(and)

  2125.     HANDLE(bit)

  2126.     HANDLE(call)

  2127.     HANDLE(ccf)

  2128.     HANDLE(cp)

  2129.     HANDLE(cpd)

  2130.     HANDLE(cpdr)

  2131.     HANDLE(cpi)

  2132.     HANDLE(cpir)

  2133.     HANDLE(cpl)

  2134.     HANDLE(daa)

  2135.     HANDLE(dec)

  2136.     HANDLE(di)

  2137.     HANDLE(djnz)

  2138.     HANDLE(ei)

  2139.     HANDLE(ex)

  2140.     HANDLE(exx)

  2141.     HANDLE(halt)

  2142.     HANDLE(im)

  2143.     HANDLE(in)

  2144.     HANDLE(inc)

  2145.     HANDLE(ind)

  2146.     HANDLE(indr)

  2147.     HANDLE(ini)

  2148.     HANDLE(inir)

  2149.     HANDLE(jp)

  2150.     HANDLE(jr)

  2151.     HANDLE(ld)

  2152.     HANDLE(ldd)

  2153.     HANDLE(lddr)

  2154.     HANDLE(ldi)

  2155.     HANDLE(ldir)

  2156.     HANDLE(neg)

  2157.     HANDLE(nop)

  2158.     HANDLE(or)

  2159.     HANDLE(otdr)

  2160.     HANDLE(otir)

  2161.     HANDLE(out)

  2162.     HANDLE(outd)

  2163.     HANDLE(outi)

  2164.     HANDLE(pop)

  2165.     HANDLE(push)

  2166.     HANDLE(res)

  2167.     HANDLE(ret)

  2168.     HANDLE(reti)

  2169.     HANDLE(retn)

  2170.     HANDLE(rl)

  2171.     HANDLE(rla)

  2172.     HANDLE(rlc)

  2173.     HANDLE(rlca)

  2174.     HANDLE(rld)

  2175.     HANDLE(rr)

  2176.     HANDLE(rra)

  2177.     HANDLE(rrc)

  2178.     HANDLE(rrca)

  2179.     HANDLE(rrd)

  2180.     HANDLE(rst)

  2181.     HANDLE(sbc)

  2182.     HANDLE(scf)

  2183.     HANDLE(set)

  2184.     HANDLE(sl1)

  2185.     HANDLE(sla)

  2186.     HANDLE(sll)

  2187.     HANDLE(sls)

  2188.     HANDLE(sra)

  2189.     HANDLE(srl)

  2190.     HANDLE(sub)

  2191.     HANDLE(xor)

  2192. /* @AUTOGEN_LOOKUP_BLOCK_END */

  2193.     return NULL;

  2194. }