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.
154 Commits
2 Branches
1002 KiB
 
 
 
 
 
Tree: 8111a3e234
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '8111a3e234'
${ noResults }
crater/src/assembler/instructions.inc.c

2211 lines
83 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 May 22 00:55:44 2015 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_INDEXED|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.             (INST_INDIRECT(0).type == AT_REGISTER && INST_INDIRECT(0).addr.reg == REG_HL)) {

  640.         INST_RETURN(1, 0xE9)

  641.     }

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

  643.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0xE9, INST_INDEX(0).offset)

  644.     }

  645.     INST_ERROR(ARG_TYPE)

  646. }

  647. 

  648. INST_FUNC(jr)

  649. {

  650.     INST_TAKES_ARGS(

  651.         AT_CONDITION|AT_IMMEDIATE,

  652.         AT_IMMEDIATE|AT_OPTIONAL,

  653.         AT_NONE

  654.     )

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

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

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

  658.         INST_ERROR(ARG_VALUE)

  659.     }

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

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

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

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

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

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

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

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

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

  669.         INST_ERROR(ARG_VALUE)

  670.     }

  671.     INST_ERROR(ARG_TYPE)

  672. }

  673. 

  674. INST_FUNC(ld)

  675. {

  676.     INST_TAKES_ARGS(

  677.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  678.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  679.         AT_NONE

  680.     )

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

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

  683.             INST_RETURN(1, 0x7F)

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

  685.             INST_RETURN(1, 0x78)

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

  687.             INST_RETURN(1, 0x79)

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

  689.             INST_RETURN(1, 0x7A)

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

  691.             INST_RETURN(1, 0x7B)

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

  693.             INST_RETURN(1, 0x7C)

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

  695.             INST_RETURN(2, INST_IX_PREFIX, 0x7C)

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

  697.             INST_RETURN(2, INST_IY_PREFIX, 0x7C)

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

  699.             INST_RETURN(1, 0x7D)

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

  701.             INST_RETURN(2, INST_IX_PREFIX, 0x7D)

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

  703.             INST_RETURN(2, INST_IY_PREFIX, 0x7D)

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

  705.             INST_RETURN(1, 0x47)

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

  707.             INST_RETURN(1, 0x40)

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

  709.             INST_RETURN(1, 0x41)

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

  711.             INST_RETURN(1, 0x42)

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

  713.             INST_RETURN(1, 0x43)

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

  715.             INST_RETURN(1, 0x44)

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

  717.             INST_RETURN(2, INST_IX_PREFIX, 0x44)

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

  719.             INST_RETURN(2, INST_IY_PREFIX, 0x44)

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

  721.             INST_RETURN(1, 0x45)

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

  723.             INST_RETURN(2, INST_IX_PREFIX, 0x45)

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

  725.             INST_RETURN(2, INST_IY_PREFIX, 0x45)

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

  727.             INST_RETURN(1, 0x4F)

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

  729.             INST_RETURN(1, 0x48)

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

  731.             INST_RETURN(1, 0x49)

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

  733.             INST_RETURN(1, 0x4A)

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

  735.             INST_RETURN(1, 0x4B)

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

  737.             INST_RETURN(1, 0x4C)

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

  739.             INST_RETURN(2, INST_IX_PREFIX, 0x4C)

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

  741.             INST_RETURN(2, INST_IY_PREFIX, 0x4C)

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

  743.             INST_RETURN(1, 0x4D)

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

  745.             INST_RETURN(2, INST_IX_PREFIX, 0x4D)

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

  747.             INST_RETURN(2, INST_IY_PREFIX, 0x4D)

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

  749.             INST_RETURN(1, 0x57)

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

  751.             INST_RETURN(1, 0x50)

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

  753.             INST_RETURN(1, 0x51)

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

  755.             INST_RETURN(1, 0x52)

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

  757.             INST_RETURN(1, 0x53)

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

  759.             INST_RETURN(1, 0x54)

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

  761.             INST_RETURN(2, INST_IX_PREFIX, 0x54)

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

  763.             INST_RETURN(2, INST_IY_PREFIX, 0x54)

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

  765.             INST_RETURN(1, 0x55)

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

  767.             INST_RETURN(2, INST_IX_PREFIX, 0x55)

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

  769.             INST_RETURN(2, INST_IY_PREFIX, 0x55)

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

  771.             INST_RETURN(1, 0x5F)

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

  773.             INST_RETURN(1, 0x58)

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

  775.             INST_RETURN(1, 0x59)

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

  777.             INST_RETURN(1, 0x5A)

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

  779.             INST_RETURN(1, 0x5B)

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

  781.             INST_RETURN(1, 0x5C)

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

  783.             INST_RETURN(2, INST_IX_PREFIX, 0x5C)

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

  785.             INST_RETURN(2, INST_IY_PREFIX, 0x5C)

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

  787.             INST_RETURN(1, 0x5D)

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

  789.             INST_RETURN(2, INST_IX_PREFIX, 0x5D)

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

  791.             INST_RETURN(2, INST_IY_PREFIX, 0x5D)

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

  793.             INST_RETURN(1, 0x67)

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

  795.             INST_RETURN(2, INST_IX_PREFIX, 0x67)

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

  797.             INST_RETURN(2, INST_IY_PREFIX, 0x67)

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

  799.             INST_RETURN(1, 0x60)

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

  801.             INST_RETURN(2, INST_IX_PREFIX, 0x60)

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

  803.             INST_RETURN(2, INST_IY_PREFIX, 0x60)

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

  805.             INST_RETURN(1, 0x61)

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

  807.             INST_RETURN(2, INST_IX_PREFIX, 0x61)

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

  809.             INST_RETURN(2, INST_IY_PREFIX, 0x61)

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

  811.             INST_RETURN(1, 0x62)

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

  813.             INST_RETURN(2, INST_IX_PREFIX, 0x62)

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

  815.             INST_RETURN(2, INST_IY_PREFIX, 0x62)

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

  817.             INST_RETURN(1, 0x63)

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

  819.             INST_RETURN(2, INST_IX_PREFIX, 0x63)

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

  821.             INST_RETURN(2, INST_IY_PREFIX, 0x63)

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

  823.             INST_RETURN(1, 0x64)

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

  825.             INST_RETURN(2, INST_IX_PREFIX, 0x64)

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

  827.             INST_RETURN(2, INST_IY_PREFIX, 0x64)

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

  829.             INST_RETURN(1, 0x65)

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

  831.             INST_RETURN(2, INST_IX_PREFIX, 0x65)

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

  833.             INST_RETURN(2, INST_IY_PREFIX, 0x65)

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

  835.             INST_RETURN(1, 0x6F)

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

  837.             INST_RETURN(2, INST_IX_PREFIX, 0x6F)

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

  839.             INST_RETURN(2, INST_IY_PREFIX, 0x6F)

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

  841.             INST_RETURN(1, 0x68)

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

  843.             INST_RETURN(2, INST_IX_PREFIX, 0x68)

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

  845.             INST_RETURN(2, INST_IY_PREFIX, 0x68)

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

  847.             INST_RETURN(1, 0x69)

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

  849.             INST_RETURN(2, INST_IX_PREFIX, 0x69)

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

  851.             INST_RETURN(2, INST_IY_PREFIX, 0x69)

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

  853.             INST_RETURN(1, 0x6A)

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

  855.             INST_RETURN(2, INST_IX_PREFIX, 0x6A)

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

  857.             INST_RETURN(2, INST_IY_PREFIX, 0x6A)

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

  859.             INST_RETURN(1, 0x6B)

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

  861.             INST_RETURN(2, INST_IX_PREFIX, 0x6B)

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

  863.             INST_RETURN(2, INST_IY_PREFIX, 0x6B)

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

  865.             INST_RETURN(1, 0x6C)

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

  867.             INST_RETURN(2, INST_IX_PREFIX, 0x6C)

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

  869.             INST_RETURN(2, INST_IY_PREFIX, 0x6C)

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

  871.             INST_RETURN(1, 0x6D)

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

  873.             INST_RETURN(2, INST_IX_PREFIX, 0x6D)

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

  875.             INST_RETURN(2, INST_IY_PREFIX, 0x6D)

  876.         if (INST_REG(0) == REG_A && INST_REG(1) == REG_IX)

  877.             INST_RETURN(3, INST_IX_PREFIX, 0xED, 0x57)

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

  879.             INST_RETURN(3, INST_IY_PREFIX, 0xED, 0x57)

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

  881.             INST_RETURN(3, INST_IX_PREFIX, 0xED, 0x47)

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

  883.             INST_RETURN(3, INST_IY_PREFIX, 0xED, 0x47)

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

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

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

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

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

  889.             INST_RETURN(1, 0xF9)

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

  891.             INST_RETURN(2, INST_IX_PREFIX, 0xF9)

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

  893.             INST_RETURN(2, INST_IY_PREFIX, 0xF9)

  894.         INST_ERROR(ARG_VALUE)

  895.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  931.         INST_ERROR(ARG_VALUE)

  932.     }

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

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

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

  936.             INST_RETURN(1, 0x7E)

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

  938.             INST_RETURN(1, 0x46)

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

  940.             INST_RETURN(1, 0x4E)

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

  942.             INST_RETURN(1, 0x56)

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

  944.             INST_RETURN(1, 0x5E)

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

  946.             INST_RETURN(1, 0x66)

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

  948.             INST_RETURN(1, 0x6E)

  949.         INST_ERROR(ARG_VALUE)

  950.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  966.         INST_ERROR(ARG_VALUE)

  967.     }

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

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

  970.             INST_RETURN(1, 0x0A)

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

  972.             INST_RETURN(1, 0x1A)

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

  974.             INST_RETURN(3, 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_IX && INST_INDIRECT(1).type == AT_IMMEDIATE)

  976.             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))

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

  978.             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))

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

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

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

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

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

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

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

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

  987.         INST_ERROR(ARG_VALUE)

  988.     }

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

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

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

  992.             INST_RETURN(1, 0x77)

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

  994.             INST_RETURN(1, 0x70)

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

  996.             INST_RETURN(1, 0x71)

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

  998.             INST_RETURN(1, 0x72)

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

  1000.             INST_RETURN(1, 0x73)

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

  1002.             INST_RETURN(1, 0x74)

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

  1004.             INST_RETURN(1, 0x75)

  1005.         INST_ERROR(ARG_VALUE)

  1006.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1022.         INST_ERROR(ARG_VALUE)

  1023.     }

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

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

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

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

  1028.         INST_ERROR(ARG_VALUE)

  1029.     }

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

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

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

  1033.         INST_ERROR(ARG_VALUE)

  1034.     }

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

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

  1037.             INST_RETURN(1, 0x02)

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

  1039.             INST_RETURN(1, 0x12)

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

  1041.             INST_RETURN(3, 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_IX)

  1043.             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))

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

  1045.             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))

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

  1047.             INST_RETURN(3, 0x32, 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_BC)

  1049.             INST_RETURN(4, 0xED, 0x43, 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_DE)

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

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

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

  1054.         INST_ERROR(ARG_VALUE)

  1055.     }

  1056.     INST_ERROR(ARG_TYPE)

  1057. }

  1058. 

  1059. INST_FUNC(ldd)

  1060. {

  1061.     INST_TAKES_NO_ARGS

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

  1063. }

  1064. 

  1065. INST_FUNC(lddr)

  1066. {

  1067.     INST_TAKES_NO_ARGS

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

  1069. }

  1070. 

  1071. INST_FUNC(ldi)

  1072. {

  1073.     INST_TAKES_NO_ARGS

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

  1075. }

  1076. 

  1077. INST_FUNC(ldir)

  1078. {

  1079.     INST_TAKES_NO_ARGS

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

  1081. }

  1082. 

  1083. INST_FUNC(neg)

  1084. {

  1085.     INST_TAKES_NO_ARGS

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

  1087. }

  1088. 

  1089. INST_FUNC(nop)

  1090. {

  1091.     INST_TAKES_NO_ARGS

  1092.     INST_RETURN(1, 0x00)

  1093. }

  1094. 

  1095. INST_FUNC(or)

  1096. {

  1097.     INST_TAKES_ARGS(

  1098.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1099.         AT_NONE,

  1100.         AT_NONE

  1101.     )

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

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

  1104.             INST_RETURN(1, 0xB7)

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

  1106.             INST_RETURN(1, 0xB0)

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

  1108.             INST_RETURN(1, 0xB1)

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

  1110.             INST_RETURN(1, 0xB2)

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

  1112.             INST_RETURN(1, 0xB3)

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

  1114.             INST_RETURN(1, 0xB4)

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

  1116.             INST_RETURN(2, INST_IX_PREFIX, 0xB4)

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

  1118.             INST_RETURN(2, INST_IY_PREFIX, 0xB4)

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

  1120.             INST_RETURN(1, 0xB5)

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

  1122.             INST_RETURN(2, INST_IX_PREFIX, 0xB5)

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

  1124.             INST_RETURN(2, INST_IY_PREFIX, 0xB5)

  1125.         INST_ERROR(ARG_VALUE)

  1126.     }

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

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

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

  1130.         INST_ERROR(ARG_VALUE)

  1131.     }

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

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

  1134.         INST_RETURN(1, 0xB6)

  1135.     }

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

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

  1138.     }

  1139.     INST_ERROR(ARG_TYPE)

  1140. }

  1141. 

  1142. INST_FUNC(otdr)

  1143. {

  1144.     INST_TAKES_NO_ARGS

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

  1146. }

  1147. 

  1148. INST_FUNC(otir)

  1149. {

  1150.     INST_TAKES_NO_ARGS

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

  1152. }

  1153. 

  1154. INST_FUNC(out)

  1155. {

  1156.     INST_TAKES_ARGS(

  1157.         AT_PORT,

  1158.         AT_IMMEDIATE|AT_REGISTER,

  1159.         AT_NONE

  1160.     )

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1178.         INST_ERROR(ARG_VALUE)

  1179.     }

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

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

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

  1183.         INST_ERROR(ARG_VALUE)

  1184.     }

  1185.     INST_ERROR(ARG_TYPE)

  1186. }

  1187. 

  1188. INST_FUNC(outd)

  1189. {

  1190.     INST_TAKES_NO_ARGS

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

  1192. }

  1193. 

  1194. INST_FUNC(outi)

  1195. {

  1196.     INST_TAKES_NO_ARGS

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

  1198. }

  1199. 

  1200. INST_FUNC(pop)

  1201. {

  1202.     INST_TAKES_ARGS(

  1203.         AT_REGISTER,

  1204.         AT_NONE,

  1205.         AT_NONE

  1206.     )

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

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

  1209.             INST_RETURN(1, 0xC1)

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

  1211.             INST_RETURN(1, 0xD1)

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

  1213.             INST_RETURN(1, 0xE1)

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

  1215.             INST_RETURN(2, INST_IX_PREFIX, 0xE1)

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

  1217.             INST_RETURN(2, INST_IY_PREFIX, 0xE1)

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

  1219.             INST_RETURN(1, 0xF1)

  1220.         INST_ERROR(ARG_VALUE)

  1221.     }

  1222.     INST_ERROR(ARG_TYPE)

  1223. }

  1224. 

  1225. INST_FUNC(push)

  1226. {

  1227.     INST_TAKES_ARGS(

  1228.         AT_REGISTER,

  1229.         AT_NONE,

  1230.         AT_NONE

  1231.     )

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

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

  1234.             INST_RETURN(1, 0xC5)

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

  1236.             INST_RETURN(1, 0xD5)

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

  1238.             INST_RETURN(1, 0xE5)

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

  1240.             INST_RETURN(2, INST_IX_PREFIX, 0xE5)

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

  1242.             INST_RETURN(2, INST_IY_PREFIX, 0xE5)

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

  1244.             INST_RETURN(1, 0xF5)

  1245.         INST_ERROR(ARG_VALUE)

  1246.     }

  1247.     INST_ERROR(ARG_TYPE)

  1248. }

  1249. 

  1250. INST_FUNC(res)

  1251. {

  1252.     INST_TAKES_ARGS(

  1253.         AT_IMMEDIATE,

  1254.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1255.         AT_OPTIONAL|AT_REGISTER

  1256.     )

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1272.         INST_ERROR(ARG_VALUE)

  1273.     }

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

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

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

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

  1278.         INST_ERROR(ARG_VALUE)

  1279.     }

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

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

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

  1283.         INST_ERROR(ARG_VALUE)

  1284.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1300.         INST_ERROR(ARG_VALUE)

  1301.     }

  1302.     INST_ERROR(ARG_TYPE)

  1303. }

  1304. 

  1305. INST_FUNC(ret)

  1306. {

  1307.     INST_TAKES_ARGS(

  1308.         AT_CONDITION|AT_OPTIONAL,

  1309.         AT_NONE,

  1310.         AT_NONE

  1311.     )

  1312.     if (INST_NARGS == 0) {

  1313.         INST_RETURN(1, 0xC9)

  1314.     }

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

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

  1317.             INST_RETURN(1, 0xC0)

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

  1319.             INST_RETURN(1, 0xC8)

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

  1321.             INST_RETURN(1, 0xD0)

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

  1323.             INST_RETURN(1, 0xD8)

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

  1325.             INST_RETURN(1, 0xE0)

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

  1327.             INST_RETURN(1, 0xE8)

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

  1329.             INST_RETURN(1, 0xF0)

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

  1331.             INST_RETURN(1, 0xF8)

  1332.         INST_ERROR(ARG_VALUE)

  1333.     }

  1334.     INST_ERROR(ARG_TYPE)

  1335. }

  1336. 

  1337. INST_FUNC(reti)

  1338. {

  1339.     INST_TAKES_NO_ARGS

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

  1341. }

  1342. 

  1343. INST_FUNC(retn)

  1344. {

  1345.     INST_TAKES_NO_ARGS

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

  1347. }

  1348. 

  1349. INST_FUNC(rl)

  1350. {

  1351.     INST_TAKES_ARGS(

  1352.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1353.         AT_OPTIONAL|AT_REGISTER,

  1354.         AT_NONE

  1355.     )

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1371.         INST_ERROR(ARG_VALUE)

  1372.     }

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

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

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

  1376.     }

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

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

  1379.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1395.         INST_ERROR(ARG_VALUE)

  1396.     }

  1397.     INST_ERROR(ARG_TYPE)

  1398. }

  1399. 

  1400. INST_FUNC(rla)

  1401. {

  1402.     INST_TAKES_NO_ARGS

  1403.     INST_RETURN(1, 0x17)

  1404. }

  1405. 

  1406. INST_FUNC(rlc)

  1407. {

  1408.     INST_TAKES_ARGS(

  1409.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1410.         AT_OPTIONAL|AT_REGISTER,

  1411.         AT_NONE

  1412.     )

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1428.         INST_ERROR(ARG_VALUE)

  1429.     }

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

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

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

  1433.     }

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

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

  1436.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1452.         INST_ERROR(ARG_VALUE)

  1453.     }

  1454.     INST_ERROR(ARG_TYPE)

  1455. }

  1456. 

  1457. INST_FUNC(rlca)

  1458. {

  1459.     INST_TAKES_NO_ARGS

  1460.     INST_RETURN(1, 0x07)

  1461. }

  1462. 

  1463. INST_FUNC(rld)

  1464. {

  1465.     INST_TAKES_NO_ARGS

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

  1467. }

  1468. 

  1469. INST_FUNC(rr)

  1470. {

  1471.     INST_TAKES_ARGS(

  1472.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1473.         AT_OPTIONAL|AT_REGISTER,

  1474.         AT_NONE

  1475.     )

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1491.         INST_ERROR(ARG_VALUE)

  1492.     }

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

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

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

  1496.     }

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

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

  1499.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1515.         INST_ERROR(ARG_VALUE)

  1516.     }

  1517.     INST_ERROR(ARG_TYPE)

  1518. }

  1519. 

  1520. INST_FUNC(rra)

  1521. {

  1522.     INST_TAKES_NO_ARGS

  1523.     INST_RETURN(1, 0x1F)

  1524. }

  1525. 

  1526. INST_FUNC(rrc)

  1527. {

  1528.     INST_TAKES_ARGS(

  1529.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1530.         AT_OPTIONAL|AT_REGISTER,

  1531.         AT_NONE

  1532.     )

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1548.         INST_ERROR(ARG_VALUE)

  1549.     }

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

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

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

  1553.     }

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

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

  1556.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1572.         INST_ERROR(ARG_VALUE)

  1573.     }

  1574.     INST_ERROR(ARG_TYPE)

  1575. }

  1576. 

  1577. INST_FUNC(rrca)

  1578. {

  1579.     INST_TAKES_NO_ARGS

  1580.     INST_RETURN(1, 0x0F)

  1581. }

  1582. 

  1583. INST_FUNC(rrd)

  1584. {

  1585.     INST_TAKES_NO_ARGS

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

  1587. }

  1588. 

  1589. INST_FUNC(rst)

  1590. {

  1591.     INST_TAKES_ARGS(

  1592.         AT_IMMEDIATE,

  1593.         AT_NONE,

  1594.         AT_NONE

  1595.     )

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

  1597.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 0))

  1598.             INST_RETURN(1, 0xC7)

  1599.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 8))

  1600.             INST_RETURN(1, 0xCF)

  1601.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 16))

  1602.             INST_RETURN(1, 0xD7)

  1603.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 24))

  1604.             INST_RETURN(1, 0xDF)

  1605.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 32))

  1606.             INST_RETURN(1, 0xE7)

  1607.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 40))

  1608.             INST_RETURN(1, 0xEF)

  1609.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 48))

  1610.             INST_RETURN(1, 0xF7)

  1611.         if ((INST_IMM(0).mask & IMM_RST && INST_IMM(0).uval == 56))

  1612.             INST_RETURN(1, 0xFF)

  1613.         INST_ERROR(ARG_VALUE)

  1614.     }

  1615.     INST_ERROR(ARG_TYPE)

  1616. }

  1617. 

  1618. INST_FUNC(sbc)

  1619. {

  1620.     INST_TAKES_ARGS(

  1621.         AT_REGISTER,

  1622.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1623.         AT_NONE

  1624.     )

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

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

  1627.             INST_RETURN(1, 0x9F)

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

  1629.             INST_RETURN(1, 0x98)

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

  1631.             INST_RETURN(1, 0x99)

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

  1633.             INST_RETURN(1, 0x9A)

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

  1635.             INST_RETURN(1, 0x9B)

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

  1637.             INST_RETURN(1, 0x9C)

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

  1639.             INST_RETURN(2, INST_IX_PREFIX, 0x9C)

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

  1641.             INST_RETURN(2, INST_IY_PREFIX, 0x9C)

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

  1643.             INST_RETURN(1, 0x9D)

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

  1645.             INST_RETURN(2, INST_IX_PREFIX, 0x9D)

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

  1647.             INST_RETURN(2, INST_IY_PREFIX, 0x9D)

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

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

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

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

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

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

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

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

  1656.         INST_ERROR(ARG_VALUE)

  1657.     }

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

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

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

  1661.         INST_ERROR(ARG_VALUE)

  1662.     }

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

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

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

  1666.             INST_RETURN(1, 0x9E)

  1667.         INST_ERROR(ARG_VALUE)

  1668.     }

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

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

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

  1672.         INST_ERROR(ARG_VALUE)

  1673.     }

  1674.     INST_ERROR(ARG_TYPE)

  1675. }

  1676. 

  1677. INST_FUNC(scf)

  1678. {

  1679.     INST_TAKES_NO_ARGS

  1680.     INST_RETURN(1, 0x37)

  1681. }

  1682. 

  1683. INST_FUNC(set)

  1684. {

  1685.     INST_TAKES_ARGS(

  1686.         AT_IMMEDIATE,

  1687.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1688.         AT_OPTIONAL|AT_REGISTER

  1689.     )

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

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

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

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

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

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

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

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

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

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

  1700.             INST_RETURN(2, 0xCB, 0xC3 + 8 * INST_IMM(0).uval)

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

  1702.             INST_RETURN(2, 0xCB, 0xC4 + 8 * INST_IMM(0).uval)

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

  1704.             INST_RETURN(2, 0xCB, 0xC5 + 8 * INST_IMM(0).uval)

  1705.         INST_ERROR(ARG_VALUE)

  1706.     }

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

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

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

  1710.             INST_RETURN(2, 0xCB, 0xC6 + 8 * INST_IMM(0).uval)

  1711.         INST_ERROR(ARG_VALUE)

  1712.     }

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

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

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

  1716.         INST_ERROR(ARG_VALUE)

  1717.     }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1733.         INST_ERROR(ARG_VALUE)

  1734.     }

  1735.     INST_ERROR(ARG_TYPE)

  1736. }

  1737. 

  1738. INST_FUNC(sl1)

  1739. {

  1740.     INST_TAKES_ARGS(

  1741.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1742.         AT_OPTIONAL|AT_REGISTER,

  1743.         AT_NONE

  1744.     )

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

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

  1747.             INST_RETURN(2, 0xCB, 0x37)

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

  1749.             INST_RETURN(2, 0xCB, 0x30)

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

  1751.             INST_RETURN(2, 0xCB, 0x31)

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

  1753.             INST_RETURN(2, 0xCB, 0x32)

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

  1755.             INST_RETURN(2, 0xCB, 0x33)

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

  1757.             INST_RETURN(2, 0xCB, 0x34)

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

  1759.             INST_RETURN(2, 0xCB, 0x35)

  1760.         INST_ERROR(ARG_VALUE)

  1761.     }

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

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

  1764.         INST_RETURN(2, 0xCB, 0x36)

  1765.     }

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

  1767.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x36)

  1768.     }

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

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

  1771.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x37)

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

  1773.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x30)

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

  1775.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x31)

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

  1777.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x32)

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

  1779.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x33)

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

  1781.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x34)

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

  1783.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x35)

  1784.         INST_ERROR(ARG_VALUE)

  1785.     }

  1786.     INST_ERROR(ARG_TYPE)

  1787. }

  1788. 

  1789. INST_FUNC(sla)

  1790. {

  1791.     INST_TAKES_ARGS(

  1792.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1793.         AT_OPTIONAL|AT_REGISTER,

  1794.         AT_NONE

  1795.     )

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

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

  1798.             INST_RETURN(2, 0xCB, 0x27)

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

  1800.             INST_RETURN(2, 0xCB, 0x20)

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

  1802.             INST_RETURN(2, 0xCB, 0x21)

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

  1804.             INST_RETURN(2, 0xCB, 0x22)

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

  1806.             INST_RETURN(2, 0xCB, 0x23)

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

  1808.             INST_RETURN(2, 0xCB, 0x24)

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

  1810.             INST_RETURN(2, 0xCB, 0x25)

  1811.         INST_ERROR(ARG_VALUE)

  1812.     }

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

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

  1815.         INST_RETURN(2, 0xCB, 0x26)

  1816.     }

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

  1818.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x26)

  1819.     }

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

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

  1822.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x27)

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

  1824.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x20)

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

  1826.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x21)

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

  1828.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x22)

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

  1830.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x23)

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

  1832.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x24)

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

  1834.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x25)

  1835.         INST_ERROR(ARG_VALUE)

  1836.     }

  1837.     INST_ERROR(ARG_TYPE)

  1838. }

  1839. 

  1840. INST_FUNC(sll)

  1841. {

  1842.     INST_TAKES_ARGS(

  1843.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1844.         AT_OPTIONAL|AT_REGISTER,

  1845.         AT_NONE

  1846.     )

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

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

  1849.             INST_RETURN(2, 0xCB, 0x37)

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

  1851.             INST_RETURN(2, 0xCB, 0x30)

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

  1853.             INST_RETURN(2, 0xCB, 0x31)

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

  1855.             INST_RETURN(2, 0xCB, 0x32)

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

  1857.             INST_RETURN(2, 0xCB, 0x33)

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

  1859.             INST_RETURN(2, 0xCB, 0x34)

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

  1861.             INST_RETURN(2, 0xCB, 0x35)

  1862.         INST_ERROR(ARG_VALUE)

  1863.     }

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

  1865.         INST_RETURN(2, 0xCB, 0x36)

  1866.     }

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

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

  1869.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x37)

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

  1871.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x30)

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

  1873.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x31)

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

  1875.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x32)

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

  1877.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x33)

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

  1879.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x34)

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

  1881.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x35)

  1882.         INST_ERROR(ARG_VALUE)

  1883.     }

  1884.     INST_ERROR(ARG_TYPE)

  1885. }

  1886. 

  1887. INST_FUNC(sls)

  1888. {

  1889.     INST_TAKES_ARGS(

  1890.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1891.         AT_OPTIONAL|AT_REGISTER,

  1892.         AT_NONE

  1893.     )

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

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

  1896.             INST_RETURN(2, 0xCB, 0x37)

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

  1898.             INST_RETURN(2, 0xCB, 0x30)

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

  1900.             INST_RETURN(2, 0xCB, 0x31)

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

  1902.             INST_RETURN(2, 0xCB, 0x32)

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

  1904.             INST_RETURN(2, 0xCB, 0x33)

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

  1906.             INST_RETURN(2, 0xCB, 0x34)

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

  1908.             INST_RETURN(2, 0xCB, 0x35)

  1909.         INST_ERROR(ARG_VALUE)

  1910.     }

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

  1912.         INST_RETURN(2, 0xCB, 0x36)

  1913.     }

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

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

  1916.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x37)

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

  1918.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x30)

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

  1920.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x31)

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

  1922.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x32)

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

  1924.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x33)

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

  1926.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x34)

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

  1928.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x35)

  1929.         INST_ERROR(ARG_VALUE)

  1930.     }

  1931.     INST_ERROR(ARG_TYPE)

  1932. }

  1933. 

  1934. INST_FUNC(sra)

  1935. {

  1936.     INST_TAKES_ARGS(

  1937.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1938.         AT_OPTIONAL|AT_REGISTER,

  1939.         AT_NONE

  1940.     )

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

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

  1943.             INST_RETURN(2, 0xCB, 0x2F)

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

  1945.             INST_RETURN(2, 0xCB, 0x28)

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

  1947.             INST_RETURN(2, 0xCB, 0x29)

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

  1949.             INST_RETURN(2, 0xCB, 0x2A)

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

  1951.             INST_RETURN(2, 0xCB, 0x2B)

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

  1953.             INST_RETURN(2, 0xCB, 0x2C)

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

  1955.             INST_RETURN(2, 0xCB, 0x2D)

  1956.         INST_ERROR(ARG_VALUE)

  1957.     }

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

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

  1960.         INST_RETURN(2, 0xCB, 0x2E)

  1961.     }

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

  1963.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2E)

  1964.     }

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

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

  1967.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2F)

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

  1969.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x28)

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

  1971.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x29)

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

  1973.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2A)

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

  1975.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2B)

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

  1977.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2C)

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

  1979.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x2D)

  1980.         INST_ERROR(ARG_VALUE)

  1981.     }

  1982.     INST_ERROR(ARG_TYPE)

  1983. }

  1984. 

  1985. INST_FUNC(srl)

  1986. {

  1987.     INST_TAKES_ARGS(

  1988.         AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  1989.         AT_OPTIONAL|AT_REGISTER,

  1990.         AT_NONE

  1991.     )

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

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

  1994.             INST_RETURN(2, 0xCB, 0x3F)

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

  1996.             INST_RETURN(2, 0xCB, 0x38)

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

  1998.             INST_RETURN(2, 0xCB, 0x39)

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

  2000.             INST_RETURN(2, 0xCB, 0x3A)

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

  2002.             INST_RETURN(2, 0xCB, 0x3B)

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

  2004.             INST_RETURN(2, 0xCB, 0x3C)

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

  2006.             INST_RETURN(2, 0xCB, 0x3D)

  2007.         INST_ERROR(ARG_VALUE)

  2008.     }

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

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

  2011.         INST_RETURN(2, 0xCB, 0x3E)

  2012.     }

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

  2014.         INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3E)

  2015.     }

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

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

  2018.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3F)

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

  2020.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x38)

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

  2022.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x39)

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

  2024.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3A)

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

  2026.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3B)

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

  2028.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3C)

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

  2030.             INST_RETURN(4, INST_INDEX_PREFIX(0), 0xCB, INST_INDEX(0).offset, 0x3D)

  2031.         INST_ERROR(ARG_VALUE)

  2032.     }

  2033.     INST_ERROR(ARG_TYPE)

  2034. }

  2035. 

  2036. INST_FUNC(sub)

  2037. {

  2038.     INST_TAKES_ARGS(

  2039.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  2040.         AT_NONE,

  2041.         AT_NONE

  2042.     )

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

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

  2045.             INST_RETURN(1, 0x97)

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

  2047.             INST_RETURN(1, 0x90)

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

  2049.             INST_RETURN(1, 0x91)

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

  2051.             INST_RETURN(1, 0x92)

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

  2053.             INST_RETURN(1, 0x93)

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

  2055.             INST_RETURN(1, 0x94)

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

  2057.             INST_RETURN(2, INST_IX_PREFIX, 0x94)

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

  2059.             INST_RETURN(2, INST_IY_PREFIX, 0x94)

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

  2061.             INST_RETURN(1, 0x95)

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

  2063.             INST_RETURN(2, INST_IX_PREFIX, 0x95)

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

  2065.             INST_RETURN(2, INST_IY_PREFIX, 0x95)

  2066.         INST_ERROR(ARG_VALUE)

  2067.     }

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

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

  2070.             INST_RETURN(2, 0xD6, INST_IMM(0).uval)

  2071.         INST_ERROR(ARG_VALUE)

  2072.     }

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

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

  2075.         INST_RETURN(1, 0x96)

  2076.     }

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

  2078.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0x96, INST_INDEX(0).offset)

  2079.     }

  2080.     INST_ERROR(ARG_TYPE)

  2081. }

  2082. 

  2083. INST_FUNC(xor)

  2084. {

  2085.     INST_TAKES_ARGS(

  2086.         AT_IMMEDIATE|AT_INDEXED|AT_INDIRECT|AT_REGISTER,

  2087.         AT_NONE,

  2088.         AT_NONE

  2089.     )

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

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

  2092.             INST_RETURN(1, 0xAF)

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

  2094.             INST_RETURN(1, 0xA8)

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

  2096.             INST_RETURN(1, 0xA9)

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

  2098.             INST_RETURN(1, 0xAA)

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

  2100.             INST_RETURN(1, 0xAB)

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

  2102.             INST_RETURN(1, 0xAC)

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

  2104.             INST_RETURN(2, INST_IX_PREFIX, 0xAC)

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

  2106.             INST_RETURN(2, INST_IY_PREFIX, 0xAC)

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

  2108.             INST_RETURN(1, 0xAD)

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

  2110.             INST_RETURN(2, INST_IX_PREFIX, 0xAD)

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

  2112.             INST_RETURN(2, INST_IY_PREFIX, 0xAD)

  2113.         INST_ERROR(ARG_VALUE)

  2114.     }

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

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

  2117.             INST_RETURN(2, 0xEE, INST_IMM(0).uval)

  2118.         INST_ERROR(ARG_VALUE)

  2119.     }

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

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

  2122.         INST_RETURN(1, 0xAE)

  2123.     }

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

  2125.         INST_RETURN(3, INST_INDEX_PREFIX(0), 0xAE, INST_INDEX(0).offset)

  2126.     }

  2127.     INST_ERROR(ARG_TYPE)

  2128. }

  2129. 

  2130. /* @AUTOGEN_INST_BLOCK_END */

  2131. 

  2132. /*

  2133.     Return the relevant ASMInstParser function for the given encoded mnemonic.

  2134. */

  2135. static ASMInstParser lookup_parser(uint32_t key)

  2136. {

  2137. /* @AUTOGEN_LOOKUP_BLOCK_START */

  2138.     HANDLE(adc)

  2139.     HANDLE(add)

  2140.     HANDLE(and)

  2141.     HANDLE(bit)

  2142.     HANDLE(call)

  2143.     HANDLE(ccf)

  2144.     HANDLE(cp)

  2145.     HANDLE(cpd)

  2146.     HANDLE(cpdr)

  2147.     HANDLE(cpi)

  2148.     HANDLE(cpir)

  2149.     HANDLE(cpl)

  2150.     HANDLE(daa)

  2151.     HANDLE(dec)

  2152.     HANDLE(di)

  2153.     HANDLE(djnz)

  2154.     HANDLE(ei)

  2155.     HANDLE(ex)

  2156.     HANDLE(exx)

  2157.     HANDLE(halt)

  2158.     HANDLE(im)

  2159.     HANDLE(in)

  2160.     HANDLE(inc)

  2161.     HANDLE(ind)

  2162.     HANDLE(indr)

  2163.     HANDLE(ini)

  2164.     HANDLE(inir)

  2165.     HANDLE(jp)

  2166.     HANDLE(jr)

  2167.     HANDLE(ld)

  2168.     HANDLE(ldd)

  2169.     HANDLE(lddr)

  2170.     HANDLE(ldi)

  2171.     HANDLE(ldir)

  2172.     HANDLE(neg)

  2173.     HANDLE(nop)

  2174.     HANDLE(or)

  2175.     HANDLE(otdr)

  2176.     HANDLE(otir)

  2177.     HANDLE(out)

  2178.     HANDLE(outd)

  2179.     HANDLE(outi)

  2180.     HANDLE(pop)

  2181.     HANDLE(push)

  2182.     HANDLE(res)

  2183.     HANDLE(ret)

  2184.     HANDLE(reti)

  2185.     HANDLE(retn)

  2186.     HANDLE(rl)

  2187.     HANDLE(rla)

  2188.     HANDLE(rlc)

  2189.     HANDLE(rlca)

  2190.     HANDLE(rld)

  2191.     HANDLE(rr)

  2192.     HANDLE(rra)

  2193.     HANDLE(rrc)

  2194.     HANDLE(rrca)

  2195.     HANDLE(rrd)

  2196.     HANDLE(rst)

  2197.     HANDLE(sbc)

  2198.     HANDLE(scf)

  2199.     HANDLE(set)

  2200.     HANDLE(sl1)

  2201.     HANDLE(sla)

  2202.     HANDLE(sll)

  2203.     HANDLE(sls)

  2204.     HANDLE(sra)

  2205.     HANDLE(srl)

  2206.     HANDLE(sub)

  2207.     HANDLE(xor)

  2208. /* @AUTOGEN_LOOKUP_BLOCK_END */

  2209.     return NULL;

  2210. }