Changeset 7 for trunk/Z80/Z80.pas


Ignore:
Timestamp:
Apr 19, 2026, 12:16:19 PM (8 days ago)
Author:
chronos
Message:
  • Modified: Updated instruction info with all instructions.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Z80/Z80.pas

    r6 r7  
    6565    procedure Djnz;
    6666    procedure Jp(Condition: Boolean);
    67     procedure Halt;
    68     procedure Ret(Condition: Boolean);
     67    //procedure Halt;
     68    procedure RetCond(Condition: Boolean);
     69    procedure NotImplemented;
     70
    6971    // Instruction methods
    7072    procedure NOP;
    71     procedure LD_HL_nn;
    72     procedure LD_BC_nn;
    73     procedure LD_DE_nn;
    74     procedure LD_SP_nn;
    75     procedure JP_nn;
    76     procedure LD_A_n;
    77     procedure LD_B_n;
    78     procedure LD_A_C;
    79     procedure LD_HL_Indirect_n;
    80     procedure LD_nn_Indirect_A;
     73    procedure LD_BC_NN;
     74    procedure LD_BC_Indirect_A;
     75    procedure INC_BC;
     76    procedure INC_B;
     77    procedure DEC_B;
     78    procedure LD_B_N;
     79    procedure RLCA;
     80    procedure EX_AF_AF_Pair;
     81    procedure ADD_HL_BC;
     82    procedure LD_A_BC_Indirect;
     83    procedure DEC_BC;
     84    procedure INC_C;
     85    procedure DEC_C;
     86    procedure LD_C_N;
     87    procedure RRCA;
     88    procedure DJNZ_D;
     89    procedure LD_DE_NN;
     90    procedure LD_DE_Indirect_A;
     91    procedure INC_DE;
     92    procedure INC_D;
     93    procedure DEC_D;
     94    procedure LD_D_N;
     95    procedure RLA;
     96    procedure JR_D;
     97    procedure ADD_HL_DE;
     98    procedure LD_A_DE_Indirect;
     99    procedure DEC_DE;
     100    procedure INC_E;
     101    procedure DEC_E;
     102    procedure LD_E_N;
     103    procedure RRA;
     104    procedure JR_NZ_D;
     105    procedure LD_HL_NN;
     106    procedure LD_NN_Indirect_HL;
     107    procedure INC_HL;
     108    procedure INC_H;
     109    procedure DEC_H;
     110    procedure LD_H_N;
     111    procedure DAA;
     112    procedure JR_Z_D;
     113    procedure ADD_HL_HL;
     114    procedure LD_HL_NN_Indirect;
     115    procedure DEC_HL;
     116    procedure INC_L;
     117    procedure DEC_L;
     118    procedure LD_L_N;
     119    procedure CPL;
     120    procedure JR_NC_D;
     121    procedure LD_SP_NN;
     122    procedure LD_NN_Indirect_A;
     123    procedure INC_SP;
     124    procedure INC_HL_Indirect;
     125    procedure DEC_HL_Indirect;
     126    procedure LD_HL_Indirect_N;
     127    procedure SCF;
     128    procedure JR_C_D;
     129    procedure ADD_HL_SP;
     130    procedure LD_A_NN_Indirect;
     131    procedure DEC_SP;
     132    procedure INC_A;
     133    procedure DEC_A;
     134    procedure LD_A_N;
     135    procedure CCF;
     136    procedure LD_B_B;
     137    procedure LD_B_C;
     138    procedure LD_B_D;
     139    procedure LD_B_E;
     140    procedure LD_B_H;
     141    procedure LD_B_L;
     142    procedure LD_B_HL_Indirect;
     143    procedure LD_B_A;
     144    procedure LD_C_B;
     145    procedure LD_C_C;
     146    procedure LD_C_D;
     147    procedure LD_C_E;
     148    procedure LD_C_H;
     149    procedure LD_C_L;
     150    procedure LD_C_HL_Indirect;
     151    procedure LD_C_A;
     152    procedure LD_D_B;
     153    procedure LD_D_C;
     154    procedure LD_D_D;
     155    procedure LD_D_E;
     156    procedure LD_D_H;
     157    procedure LD_D_L;
     158    procedure LD_D_HL_Indirect;
     159    procedure LD_D_A;
     160    procedure LD_E_B;
     161    procedure LD_E_C;
     162    procedure LD_E_D;
     163    procedure LD_E_E;
     164    procedure LD_E_H;
     165    procedure LD_E_L;
     166    procedure LD_E_HL_Indirect;
     167    procedure LD_E_A;
     168    procedure LD_H_B;
     169    procedure LD_H_C;
     170    procedure LD_H_D;
     171    procedure LD_H_E;
     172    procedure LD_H_H;
     173    procedure LD_H_L;
     174    procedure LD_H_HL_Indirect;
     175    procedure LD_H_A;
     176    procedure LD_L_B;
     177    procedure LD_L_C;
     178    procedure LD_L_D;
     179    procedure LD_L_E;
     180    procedure LD_L_H;
     181    procedure LD_L_L;
     182    procedure LD_L_HL_Indirect;
     183    procedure LD_L_A;
     184    procedure LD_HL_Indirect_B;
     185    procedure LD_HL_Indirect_C;
    81186    procedure LD_HL_Indirect_D;
    82187    procedure LD_HL_Indirect_E;
    83     procedure LD_C_HL_Indirect;
     188    procedure LD_HL_Indirect_H;
     189    procedure LD_HL_Indirect_L;
     190    procedure HALT;
     191    procedure LD_HL_Indirect_A;
     192    procedure LD_A_B;
     193    procedure LD_A_C;
     194    procedure LD_A_D;
     195    procedure LD_A_E;
     196    procedure LD_A_H;
     197    procedure LD_A_L;
    84198    procedure LD_A_HL_Indirect;
    85     procedure LD_BC_Indirect_A;
     199    procedure LD_A_A;
     200    procedure ADD_A_B;
     201    procedure ADD_A_C;
     202    procedure ADD_A_D;
     203    procedure ADD_A_E;
     204    procedure ADD_A_H;
     205    procedure ADD_A_L;
     206    procedure ADD_A_HL_Indirect;
     207    procedure ADD_A_A;
     208    procedure ADC_A_B;
     209    procedure ADC_A_C;
     210    procedure ADC_A_D;
     211    procedure ADC_A_E;
     212    procedure ADC_A_H;
     213    procedure ADC_A_L;
     214    procedure ADC_A_HL_Indirect;
     215    procedure ADC_A_A;
     216    procedure SUB_B;
     217    procedure SUB_C;
     218    procedure SUB_D;
     219    procedure SUB_E;
     220    procedure SUB_H;
     221    procedure SUB_L;
     222    procedure SUB_HL_Indirect;
     223    procedure SUB_A;
     224    procedure SBC_A_B;
     225    procedure SBC_A_C;
     226    procedure SBC_A_D;
     227    procedure SBC_A_E;
     228    procedure SBC_A_H;
     229    procedure SBC_A_L;
     230    procedure SBC_A_HL_Indirect;
     231    procedure SBC_A_A;
     232    procedure AND_B;
     233    procedure AND_C;
     234    procedure AND_D;
     235    procedure AND_E;
     236    procedure AND_H;
     237    procedure AND_L;
     238    procedure AND_HL_Indirect;
     239    procedure AND_A;
     240    procedure XOR_B;
     241    procedure XOR_C;
     242    procedure XOR_D;
     243    procedure XOR_E;
     244    procedure XOR_H;
     245    procedure XOR_L;
     246    procedure XOR_HL_Indirect;
     247    procedure XOR_A;
     248    procedure OR_B;
     249    procedure OR_C;
     250    procedure OR_D;
     251    procedure OR_E;
     252    procedure OR_H;
     253    procedure OR_L;
     254    procedure OR_HL_Indirect;
     255    procedure OR_A;
     256    procedure CP_B;
     257    procedure CP_C;
     258    procedure CP_D;
     259    procedure CP_E;
     260    procedure CP_H;
     261    procedure CP_L;
     262    procedure CP_HL_Indirect;
     263    procedure CP_A;
     264    procedure RET_NZ;
     265    procedure POP_BC;
     266    procedure JP_NZ_NN;
     267    procedure JP_NN;
     268    procedure CALL_NZ_NN;
     269    procedure PUSH_BC;
     270    procedure ADD_A_N;
     271    procedure RST_00H;
     272    procedure RET_Z;
     273    procedure RET;
     274    procedure JP_Z_NN;
     275    procedure CALL_Z_NN;
     276    procedure CALL_NN;
     277    procedure ADC_A_N;
     278    procedure RST_08H;
     279    procedure RET_NC;
     280    procedure POP_DE;
     281    procedure JP_NC_NN;
     282    procedure OUT_N_Indirect_A;
     283    procedure CALL_NC_NN;
     284    procedure PUSH_DE;
     285    procedure SUB_N;
     286    procedure RST_10H;
     287    procedure RET_C;
     288    procedure EXX;
     289    procedure JP_C_NN;
     290    procedure IN_A_N_Indirect;
     291    procedure CALL_C_NN;
     292    procedure SBC_A_N;
     293    procedure RST_18H;
     294    procedure RET_PO;
     295    procedure POP_HL;
     296    procedure JP_PO_NN;
     297    procedure EX_SP_Indirect_HL;
     298    procedure CALL_PO_NN;
     299    procedure PUSH_HL;
     300    procedure AND_N;
     301    procedure RST_20H;
     302    procedure RET_PE;
     303    procedure JP_HL_Indirect;
     304    procedure JP_PE_NN;
     305    procedure EX_DE_HL;
     306    procedure CALL_PE_NN;
     307    procedure XOR_N;
     308    procedure RST_28H;
     309    procedure RET_P;
     310    procedure POP_AF;
     311    procedure JP_P_NN;
     312    procedure DI;
     313    procedure CALL_P_NN;
     314    procedure PUSH_AF;
     315    procedure OR_N;
     316    procedure RST_30H;
     317    procedure RET_M;
     318    procedure LD_SP_HL;
     319    procedure JP_M_NN;
     320    procedure EI;
     321    procedure CALL_M_NN;
     322    procedure CP_N;
     323    procedure RST_38H;
     324    procedure IN_B_C_Indirect;
     325    procedure OUT_C_Indirect_B;
     326    procedure SBC_HL_BC;
     327    procedure LD_NN_Indirect_BC;
     328    procedure NEG;
     329    procedure RETN;
     330    procedure IM_0;
     331    procedure LD_I_A;
     332    procedure IN_C_C_Indirect;
     333    procedure OUT_C_Indirect_C;
     334    procedure ADC_HL_BC;
     335    procedure LD_BC_NN_Indirect;
     336    procedure RETI;
     337    procedure LD_R_A;
     338    procedure IN_D_C_Indirect;
     339    procedure OUT_C_Indirect_D;
     340    procedure SBC_HL_DE;
     341    procedure LD_NN_Indirect_DE;
     342    procedure IM_1;
     343    procedure LD_A_I;
     344    procedure IN_E_C_Indirect;
     345    procedure OUT_C_Indirect_E;
     346    procedure ADC_HL_DE;
     347    procedure LD_DE_NN_Indirect;
     348    procedure IM_2;
     349    procedure LD_A_R;
     350    procedure IN_H_C_Indirect;
     351    procedure OUT_C_Indirect_H;
     352    procedure SBC_HL_HL;
     353    procedure RRD;
     354    procedure IN_L_C_Indirect;
     355    procedure OUT_C_Indirect_L;
     356    procedure ADC_HL_HL;
     357    procedure RLD;
     358    procedure SBC_HL_SP;
     359    procedure LD_NN_Indirect_SP;
     360    procedure IN_A_C_Indirect;
     361    procedure OUT_C_Indirect_A;
     362    procedure ADC_HL_SP;
     363    procedure LD_SP_NN_Indirect;
     364    procedure LDI;
     365    procedure CPI;
     366    procedure INI;
     367    procedure OUTI;
     368    procedure LDD;
     369    procedure CPD;
     370    procedure IND;
     371    procedure OUTD;
     372    procedure LDIR;
     373    procedure CPIR;
     374    procedure INIR;
     375    procedure OTIR;
     376    procedure LDDR;
     377    procedure CPDR;
     378    procedure INDR;
     379    procedure OTDR;
     380    procedure RLC_B;
     381    procedure RLC_C;
     382    procedure RLC_D;
     383    procedure RLC_E;
     384    procedure RLC_H;
     385    procedure RLC_L;
     386    procedure RLC_HL_Indirect;
     387    procedure RLC_A;
     388    procedure RRC_B;
     389    procedure RRC_C;
     390    procedure RRC_D;
     391    procedure RRC_E;
     392    procedure RRC_H;
     393    procedure RRC_L;
     394    procedure RRC_HL_Indirect;
     395    procedure RRC_A;
     396    procedure RL_B;
     397    procedure RL_C;
     398    procedure RL_D;
     399    procedure RL_E;
     400    procedure RL_H;
     401    procedure RL_L;
     402    procedure RL_HL_Indirect;
     403    procedure RL_A;
     404    procedure RR_B;
     405    procedure RR_C;
     406    procedure RR_D;
     407    procedure RR_E;
     408    procedure RR_H;
     409    procedure RR_L;
     410    procedure RR_HL_Indirect;
     411    procedure RR_A;
     412    procedure SLA_B;
     413    procedure SLA_C;
     414    procedure SLA_D;
     415    procedure SLA_E;
     416    procedure SLA_H;
     417    procedure SLA_L;
     418    procedure SLA_HL_Indirect;
     419    procedure SLA_A;
     420    procedure SRA_B;
     421    procedure SRA_C;
     422    procedure SRA_D;
     423    procedure SRA_E;
     424    procedure SRA_H;
     425    procedure SRA_L;
     426    procedure SRA_HL_Indirect;
     427    procedure SRA_A;
     428    procedure SRL_B;
     429    procedure SRL_C;
     430    procedure SRL_D;
     431    procedure SRL_E;
     432    procedure SRL_H;
     433    procedure SRL_L;
     434    procedure SRL_HL_Indirect;
     435    procedure SRL_A;
     436    procedure BIT_0_B;
     437    procedure BIT_0_C;
     438    procedure BIT_0_D;
     439    procedure BIT_0_E;
     440    procedure BIT_0_H;
     441    procedure BIT_0_L;
     442    procedure BIT_0_HL_Indirect;
     443    procedure BIT_0_A;
     444    procedure BIT_1_B;
     445    procedure BIT_1_C;
     446    procedure BIT_1_D;
     447    procedure BIT_1_E;
     448    procedure BIT_1_H;
     449    procedure BIT_1_L;
     450    procedure BIT_1_HL_Indirect;
     451    procedure BIT_1_A;
     452    procedure BIT_2_B;
     453    procedure BIT_2_C;
     454    procedure BIT_2_D;
     455    procedure BIT_2_E;
     456    procedure BIT_2_H;
     457    procedure BIT_2_L;
     458    procedure BIT_2_HL_Indirect;
     459    procedure BIT_2_A;
     460    procedure BIT_3_B;
     461    procedure BIT_3_C;
     462    procedure BIT_3_D;
     463    procedure BIT_3_E;
     464    procedure BIT_3_H;
     465    procedure BIT_3_L;
     466    procedure BIT_3_HL_Indirect;
     467    procedure BIT_3_A;
     468    procedure BIT_4_B;
     469    procedure BIT_4_C;
     470    procedure BIT_4_D;
     471    procedure BIT_4_E;
     472    procedure BIT_4_H;
     473    procedure BIT_4_L;
     474    procedure BIT_4_HL_Indirect;
     475    procedure BIT_4_A;
     476    procedure BIT_5_B;
     477    procedure BIT_5_C;
     478    procedure BIT_5_D;
     479    procedure BIT_5_E;
     480    procedure BIT_5_H;
     481    procedure BIT_5_L;
     482    procedure BIT_5_HL_Indirect;
     483    procedure BIT_5_A;
     484    procedure BIT_6_B;
     485    procedure BIT_6_C;
     486    procedure BIT_6_D;
     487    procedure BIT_6_E;
     488    procedure BIT_6_H;
     489    procedure BIT_6_L;
     490    procedure BIT_6_HL_Indirect;
     491    procedure BIT_6_A;
     492    procedure BIT_7_B;
     493    procedure BIT_7_C;
     494    procedure BIT_7_D;
     495    procedure BIT_7_E;
     496    procedure BIT_7_H;
     497    procedure BIT_7_L;
     498    procedure BIT_7_HL_Indirect;
     499    procedure BIT_7_A;
     500    procedure RES_0_B;
     501    procedure RES_0_C;
     502    procedure RES_0_D;
     503    procedure RES_0_E;
     504    procedure RES_0_H;
     505    procedure RES_0_L;
     506    procedure RES_0_HL_Indirect;
     507    procedure RES_0_A;
     508    procedure RES_1_B;
     509    procedure RES_1_C;
     510    procedure RES_1_D;
     511    procedure RES_1_E;
     512    procedure RES_1_H;
     513    procedure RES_1_L;
     514    procedure RES_1_HL_Indirect;
     515    procedure RES_1_A;
     516    procedure RES_2_B;
     517    procedure RES_2_C;
     518    procedure RES_2_D;
     519    procedure RES_2_E;
     520    procedure RES_2_H;
     521    procedure RES_2_L;
     522    procedure RES_2_HL_Indirect;
     523    procedure RES_2_A;
     524    procedure RES_3_B;
     525    procedure RES_3_C;
     526    procedure RES_3_D;
     527    procedure RES_3_E;
     528    procedure RES_3_H;
     529    procedure RES_3_L;
     530    procedure RES_3_HL_Indirect;
     531    procedure RES_3_A;
     532    procedure RES_4_B;
     533    procedure RES_4_C;
     534    procedure RES_4_D;
     535    procedure RES_4_E;
     536    procedure RES_4_H;
     537    procedure RES_4_L;
     538    procedure RES_4_HL_Indirect;
     539    procedure RES_4_A;
     540    procedure RES_5_B;
     541    procedure RES_5_C;
     542    procedure RES_5_D;
     543    procedure RES_5_E;
     544    procedure RES_5_H;
     545    procedure RES_5_L;
     546    procedure RES_5_HL_Indirect;
     547    procedure RES_5_A;
     548    procedure RES_6_B;
     549    procedure RES_6_C;
     550    procedure RES_6_D;
     551    procedure RES_6_E;
     552    procedure RES_6_H;
     553    procedure RES_6_L;
     554    procedure RES_6_HL_Indirect;
     555    procedure RES_6_A;
     556    procedure RES_7_B;
     557    procedure RES_7_C;
     558    procedure RES_7_D;
     559    procedure RES_7_E;
     560    procedure RES_7_H;
     561    procedure RES_7_L;
     562    procedure RES_7_HL_Indirect;
     563    procedure RES_7_A;
     564    procedure SET_0_B;
     565    procedure SET_0_C;
     566    procedure SET_0_D;
     567    procedure SET_0_E;
     568    procedure SET_0_H;
     569    procedure SET_0_L;
     570    procedure SET_0_HL_Indirect;
     571    procedure SET_0_A;
     572    procedure SET_1_B;
     573    procedure SET_1_C;
     574    procedure SET_1_D;
     575    procedure SET_1_E;
     576    procedure SET_1_H;
     577    procedure SET_1_L;
     578    procedure SET_1_HL_Indirect;
     579    procedure SET_1_A;
     580    procedure SET_2_B;
     581    procedure SET_2_C;
     582    procedure SET_2_D;
     583    procedure SET_2_E;
     584    procedure SET_2_H;
     585    procedure SET_2_L;
     586    procedure SET_2_HL_Indirect;
     587    procedure SET_2_A;
     588    procedure SET_3_B;
     589    procedure SET_3_C;
     590    procedure SET_3_D;
     591    procedure SET_3_E;
     592    procedure SET_3_H;
     593    procedure SET_3_L;
     594    procedure SET_3_HL_Indirect;
     595    procedure SET_3_A;
     596    procedure SET_4_B;
     597    procedure SET_4_C;
     598    procedure SET_4_D;
     599    procedure SET_4_E;
     600    procedure SET_4_H;
     601    procedure SET_4_L;
     602    procedure SET_4_HL_Indirect;
     603    procedure SET_4_A;
     604    procedure SET_5_B;
     605    procedure SET_5_C;
     606    procedure SET_5_D;
     607    procedure SET_5_E;
     608    procedure SET_5_H;
     609    procedure SET_5_L;
     610    procedure SET_5_HL_Indirect;
     611    procedure SET_5_A;
     612    procedure SET_6_B;
     613    procedure SET_6_C;
     614    procedure SET_6_D;
     615    procedure SET_6_E;
     616    procedure SET_6_H;
     617    procedure SET_6_L;
     618    procedure SET_6_HL_Indirect;
     619    procedure SET_6_A;
     620    procedure SET_7_B;
     621    procedure SET_7_C;
     622    procedure SET_7_D;
     623    procedure SET_7_E;
     624    procedure SET_7_H;
     625    procedure SET_7_L;
     626    procedure SET_7_HL_Indirect;
     627    procedure SET_7_A;
     628    procedure ADD_IX_BC;
     629    procedure ADD_IX_DE;
     630    procedure LD_IX_NN;
     631    procedure LD_NN_Indirect_IX;
     632    procedure INC_IX;
     633    procedure ADD_IX_IX;
     634    procedure LD_IX_NN_Indirect;
     635    procedure DEC_IX;
     636    procedure INC_IX_Plus_D_Indirect;
     637    procedure DEC_IX_Plus_D_Indirect;
     638    procedure LD_IX_Plus_D_Indirect_N;
     639    procedure ADD_IX_SP;
     640    procedure LD_B_IX_Plus_D_Indirect;
     641    procedure LD_C_IX_Plus_D_Indirect;
     642    procedure LD_D_IX_Plus_D_Indirect;
     643    procedure LD_E_IX_Plus_D_Indirect;
     644    procedure LD_H_IX_Plus_D_Indirect;
     645    procedure LD_L_IX_Plus_D_Indirect;
     646    procedure LD_IX_Plus_D_Indirect_B;
     647    procedure LD_IX_Plus_D_Indirect_C;
     648    procedure LD_IX_Plus_D_Indirect_D;
     649    procedure LD_IX_Plus_D_Indirect_E;
     650    procedure LD_IX_Plus_D_Indirect_H;
     651    procedure LD_IX_Plus_D_Indirect_L;
     652    procedure LD_IX_Plus_D_Indirect_A;
     653    procedure LD_A_IX_Plus_D_Indirect;
     654    procedure ADD_A_IX_Plus_D_Indirect;
     655    procedure ADC_A_IX_Plus_D_Indirect;
     656    procedure SUB_IX_Plus_D_Indirect;
     657    procedure SBC_A_IX_Plus_D_Indirect;
     658    procedure AND_IX_Plus_D_Indirect;
     659    procedure XOR_IX_Plus_D_Indirect;
     660    procedure OR_IX_Plus_D_Indirect;
     661    procedure CP_IX_Plus_D_Indirect;
     662    procedure POP_IX;
     663    procedure EX_SP_Indirect_IX;
     664    procedure PUSH_IX;
     665    procedure JP_IX_Indirect;
     666    procedure LD_SP_IX;
     667    procedure RLC_IX_Plus_D_Indirect;
     668    procedure RRC_IX_Plus_D_Indirect;
     669    procedure RL_IX_Plus_D_Indirect;
     670    procedure RR_IX_Plus_D_Indirect;
     671    procedure SLA_IX_Plus_D_Indirect;
     672    procedure SRA_IX_Plus_D_Indirect;
     673    procedure SRL_IX_Plus_D_Indirect;
     674    procedure BIT_0_IX_Plus_D_Indirect;
     675    procedure BIT_1_IX_Plus_D_Indirect;
     676    procedure BIT_2_IX_Plus_D_Indirect;
     677    procedure BIT_3_IX_Plus_D_Indirect;
     678    procedure BIT_4_IX_Plus_D_Indirect;
     679    procedure BIT_5_IX_Plus_D_Indirect;
     680    procedure BIT_6_IX_Plus_D_Indirect;
     681    procedure BIT_7_IX_Plus_D_Indirect;
     682    procedure RES_0_IX_Plus_D_Indirect;
     683    procedure RES_1_IX_Plus_D_Indirect;
     684    procedure RES_2_IX_Plus_D_Indirect;
     685    procedure RES_3_IX_Plus_D_Indirect;
     686    procedure RES_4_IX_Plus_D_Indirect;
     687    procedure RES_5_IX_Plus_D_Indirect;
     688    procedure RES_6_IX_Plus_D_Indirect;
     689    procedure RES_7_IX_Plus_D_Indirect;
     690    procedure SET_0_IX_Plus_D_Indirect;
     691    procedure SET_1_IX_Plus_D_Indirect;
     692    procedure SET_2_IX_Plus_D_Indirect;
     693    procedure SET_3_IX_Plus_D_Indirect;
     694    procedure SET_4_IX_Plus_D_Indirect;
     695    procedure SET_5_IX_Plus_D_Indirect;
     696    procedure SET_6_IX_Plus_D_Indirect;
     697    procedure SET_7_IX_Plus_D_Indirect;
     698    procedure ADD_IY_BC;
     699    procedure ADD_IY_DE;
     700    procedure LD_IY_NN;
     701    procedure LD_NN_Indirect_IY;
     702    procedure INC_IY;
     703    procedure ADD_IY_IY;
     704    procedure LD_IY_NN_Indirect;
     705    procedure DEC_IY;
     706    procedure INC_IY_Plus_D_Indirect;
     707    procedure DEC_IY_Plus_D_Indirect;
     708    procedure LD_IY_Plus_D_Indirect_N;
     709    procedure ADD_IY_SP;
     710    procedure LD_B_IY_Plus_D_Indirect;
     711    procedure LD_C_IY_Plus_D_Indirect;
     712    procedure LD_D_IY_Plus_D_Indirect;
     713    procedure LD_E_IY_Plus_D_Indirect;
     714    procedure LD_H_IY_Plus_D_Indirect;
     715    procedure LD_L_IY_Plus_D_Indirect;
     716    procedure LD_IY_Plus_D_Indirect_B;
     717    procedure LD_IY_Plus_D_Indirect_C;
     718    procedure LD_IY_Plus_D_Indirect_D;
     719    procedure LD_IY_Plus_D_Indirect_E;
     720    procedure LD_IY_Plus_D_Indirect_H;
     721    procedure LD_IY_Plus_D_Indirect_L;
     722    procedure LD_IY_Plus_D_Indirect_A;
     723    procedure LD_A_IY_Plus_D_Indirect;
     724    procedure ADD_A_IY_Plus_D_Indirect;
     725    procedure ADC_A_IY_Plus_D_Indirect;
     726    procedure SUB_IY_Plus_D_Indirect;
     727    procedure SBC_A_IY_Plus_D_Indirect;
     728    procedure AND_IY_Plus_D_Indirect;
     729    procedure XOR_IY_Plus_D_Indirect;
     730    procedure OR_IY_Plus_D_Indirect;
     731    procedure CP_IY_Plus_D_Indirect;
     732    procedure POP_IY;
     733    procedure EX_SP_Indirect_IY;
     734    procedure PUSH_IY;
     735    procedure JP_IY_Indirect;
     736    procedure LD_SP_IY;
     737    procedure RLC_IY_Plus_D_Indirect;
     738    procedure RRC_IY_Plus_D_Indirect;
     739    procedure RL_IY_Plus_D_Indirect;
     740    procedure RR_IY_Plus_D_Indirect;
     741    procedure SLA_IY_Plus_D_Indirect;
     742    procedure SRA_IY_Plus_D_Indirect;
     743    procedure SRL_IY_Plus_D_Indirect;
     744    procedure BIT_0_IY_Plus_D_Indirect;
     745    procedure BIT_1_IY_Plus_D_Indirect;
     746    procedure BIT_2_IY_Plus_D_Indirect;
     747    procedure BIT_3_IY_Plus_D_Indirect;
     748    procedure BIT_4_IY_Plus_D_Indirect;
     749    procedure BIT_5_IY_Plus_D_Indirect;
     750    procedure BIT_6_IY_Plus_D_Indirect;
     751    procedure BIT_7_IY_Plus_D_Indirect;
     752    procedure RES_0_IY_Plus_D_Indirect;
     753    procedure RES_1_IY_Plus_D_Indirect;
     754    procedure RES_2_IY_Plus_D_Indirect;
     755    procedure RES_3_IY_Plus_D_Indirect;
     756    procedure RES_4_IY_Plus_D_Indirect;
     757    procedure RES_5_IY_Plus_D_Indirect;
     758    procedure RES_6_IY_Plus_D_Indirect;
     759    procedure RES_7_IY_Plus_D_Indirect;
     760    procedure SET_0_IY_Plus_D_Indirect;
     761    procedure SET_1_IY_Plus_D_Indirect;
     762    procedure SET_2_IY_Plus_D_Indirect;
     763    procedure SET_3_IY_Plus_D_Indirect;
     764    procedure SET_4_IY_Plus_D_Indirect;
     765    procedure SET_5_IY_Plus_D_Indirect;
     766    procedure SET_6_IY_Plus_D_Indirect;
     767    procedure SET_7_IY_Plus_D_Indirect;
     768
    86769    procedure InitInstructions;
    87770  public
    … …  
    252935end;
    253936
    254 procedure TCpuZ80.Halt;
    255 begin
    256   FThread.Terminate;
    257 end;
    258 
    259 procedure TCpuZ80.Ret(Condition: Boolean);
     937procedure TCpuZ80.RetCond(Condition: Boolean);
    260938begin
    261939  if Condition then begin
    … …  
    268946end;
    269947
     948procedure TCpuZ80.NotImplemented;
     949begin
     950  Dec(PC);
     951  DoMessage('Not implemented instruction ' + IntToHex(Word(Instruction), 4) +
     952    ' on address ' + IntToHex(Word(PC), 4));
     953  Halt;
     954end;
     955
    270956procedure TCpuZ80.InitInstructions;
    271957begin
    272958  Instructions[in_NOP] := NOP;
    273   Instructions[in_HALT] := Halt;
    274   Instructions[in_LD_HL_nn] := LD_HL_nn;
    275   Instructions[in_LD_BC_nn] := LD_BC_nn;
    276   Instructions[in_LD_DE_nn] := LD_DE_nn;
    277   Instructions[in_LD_SP_nn] := LD_SP_nn;
    278   Instructions[in_JP_nn] := JP_nn;
    279   Instructions[in_LD_A_n] := LD_A_n;
    280   Instructions[in_LD_B_n] := LD_B_n;
    281   Instructions[in_LD_A_C] := LD_A_C;
    282   Instructions[in_LD_HL_Indirect_n] := LD_HL_Indirect_n;
    283   Instructions[in_LD_nn_Indirect_A] := LD_nn_Indirect_A;
     959  Instructions[in_LD_BC_NN] := LD_BC_NN;
     960  Instructions[in_LD_BC_Indirect_A] := LD_BC_Indirect_A;
     961  Instructions[in_INC_BC] := INC_BC;
     962  Instructions[in_INC_B] := INC_B;
     963  Instructions[in_DEC_B] := DEC_B;
     964  Instructions[in_LD_B_N] := LD_B_N;
     965  Instructions[in_RLCA] := RLCA;
     966  Instructions[in_EX_AF_AF_Pair] := EX_AF_AF_Pair;
     967  Instructions[in_ADD_HL_BC] := ADD_HL_BC;
     968  Instructions[in_LD_A_BC_Indirect] := LD_A_BC_Indirect;
     969  Instructions[in_DEC_BC] := DEC_BC;
     970  Instructions[in_INC_C] := INC_C;
     971  Instructions[in_DEC_C] := DEC_C;
     972  Instructions[in_LD_C_N] := LD_C_N;
     973  Instructions[in_RRCA] := RRCA;
     974  Instructions[in_DJNZ_D] := DJNZ_D;
     975  Instructions[in_LD_DE_NN] := LD_DE_NN;
     976  Instructions[in_LD_DE_Indirect_A] := LD_DE_Indirect_A;
     977  Instructions[in_INC_DE] := INC_DE;
     978  Instructions[in_INC_D] := INC_D;
     979  Instructions[in_DEC_D] := DEC_D;
     980  Instructions[in_LD_D_N] := LD_D_N;
     981  Instructions[in_RLA] := RLA;
     982  Instructions[in_JR_D] := JR_D;
     983  Instructions[in_ADD_HL_DE] := ADD_HL_DE;
     984  Instructions[in_LD_A_DE_Indirect] := LD_A_DE_Indirect;
     985  Instructions[in_DEC_DE] := DEC_DE;
     986  Instructions[in_INC_E] := INC_E;
     987  Instructions[in_DEC_E] := DEC_E;
     988  Instructions[in_LD_E_N] := LD_E_N;
     989  Instructions[in_RRA] := RRA;
     990  Instructions[in_JR_NZ_D] := JR_NZ_D;
     991  Instructions[in_LD_HL_NN] := LD_HL_NN;
     992  Instructions[in_LD_NN_Indirect_HL] := LD_NN_Indirect_HL;
     993  Instructions[in_INC_HL] := INC_HL;
     994  Instructions[in_INC_H] := INC_H;
     995  Instructions[in_DEC_H] := DEC_H;
     996  Instructions[in_LD_H_N] := LD_H_N;
     997  Instructions[in_DAA] := DAA;
     998  Instructions[in_JR_Z_D] := JR_Z_D;
     999  Instructions[in_ADD_HL_HL] := ADD_HL_HL;
     1000  Instructions[in_LD_HL_NN_Indirect] := LD_HL_NN_Indirect;
     1001  Instructions[in_DEC_HL] := DEC_HL;
     1002  Instructions[in_INC_L] := INC_L;
     1003  Instructions[in_DEC_L] := DEC_L;
     1004  Instructions[in_LD_L_N] := LD_L_N;
     1005  Instructions[in_CPL] := CPL;
     1006  Instructions[in_JR_NC_D] := JR_NC_D;
     1007  Instructions[in_LD_SP_NN] := LD_SP_NN;
     1008  Instructions[in_LD_NN_Indirect_A] := LD_NN_Indirect_A;
     1009  Instructions[in_INC_SP] := INC_SP;
     1010  Instructions[in_INC_HL_Indirect] := INC_HL_Indirect;
     1011  Instructions[in_DEC_HL_Indirect] := DEC_HL_Indirect;
     1012  Instructions[in_LD_HL_Indirect_N] := LD_HL_Indirect_N;
     1013  Instructions[in_SCF] := SCF;
     1014  Instructions[in_JR_C_D] := JR_C_D;
     1015  Instructions[in_ADD_HL_SP] := ADD_HL_SP;
     1016  Instructions[in_LD_A_NN_Indirect] := LD_A_NN_Indirect;
     1017  Instructions[in_DEC_SP] := DEC_SP;
     1018  Instructions[in_INC_A] := INC_A;
     1019  Instructions[in_DEC_A] := DEC_A;
     1020  Instructions[in_LD_A_N] := LD_A_N;
     1021  Instructions[in_CCF] := CCF;
     1022  Instructions[in_LD_B_B] := LD_B_B;
     1023  Instructions[in_LD_B_C] := LD_B_C;
     1024  Instructions[in_LD_B_D] := LD_B_D;
     1025  Instructions[in_LD_B_E] := LD_B_E;
     1026  Instructions[in_LD_B_H] := LD_B_H;
     1027  Instructions[in_LD_B_L] := LD_B_L;
     1028  Instructions[in_LD_B_HL_Indirect] := LD_B_HL_Indirect;
     1029  Instructions[in_LD_B_A] := LD_B_A;
     1030  Instructions[in_LD_C_B] := LD_C_B;
     1031  Instructions[in_LD_C_C] := LD_C_C;
     1032  Instructions[in_LD_C_D] := LD_C_D;
     1033  Instructions[in_LD_C_E] := LD_C_E;
     1034  Instructions[in_LD_C_H] := LD_C_H;
     1035  Instructions[in_LD_C_L] := LD_C_L;
     1036  Instructions[in_LD_C_HL_Indirect] := LD_C_HL_Indirect;
     1037  Instructions[in_LD_C_A] := LD_C_A;
     1038  Instructions[in_LD_D_B] := LD_D_B;
     1039  Instructions[in_LD_D_C] := LD_D_C;
     1040  Instructions[in_LD_D_D] := LD_D_D;
     1041  Instructions[in_LD_D_E] := LD_D_E;
     1042  Instructions[in_LD_D_H] := LD_D_H;
     1043  Instructions[in_LD_D_L] := LD_D_L;
     1044  Instructions[in_LD_D_HL_Indirect] := LD_D_HL_Indirect;
     1045  Instructions[in_LD_D_A] := LD_D_A;
     1046  Instructions[in_LD_E_B] := LD_E_B;
     1047  Instructions[in_LD_E_C] := LD_E_C;
     1048  Instructions[in_LD_E_D] := LD_E_D;
     1049  Instructions[in_LD_E_E] := LD_E_E;
     1050  Instructions[in_LD_E_H] := LD_E_H;
     1051  Instructions[in_LD_E_L] := LD_E_L;
     1052  Instructions[in_LD_E_HL_Indirect] := LD_E_HL_Indirect;
     1053  Instructions[in_LD_E_A] := LD_E_A;
     1054  Instructions[in_LD_H_B] := LD_H_B;
     1055  Instructions[in_LD_H_C] := LD_H_C;
     1056  Instructions[in_LD_H_D] := LD_H_D;
     1057  Instructions[in_LD_H_E] := LD_H_E;
     1058  Instructions[in_LD_H_H] := LD_H_H;
     1059  Instructions[in_LD_H_L] := LD_H_L;
     1060  Instructions[in_LD_H_HL_Indirect] := LD_H_HL_Indirect;
     1061  Instructions[in_LD_H_A] := LD_H_A;
     1062  Instructions[in_LD_L_B] := LD_L_B;
     1063  Instructions[in_LD_L_C] := LD_L_C;
     1064  Instructions[in_LD_L_D] := LD_L_D;
     1065  Instructions[in_LD_L_E] := LD_L_E;
     1066  Instructions[in_LD_L_H] := LD_L_H;
     1067  Instructions[in_LD_L_L] := LD_L_L;
     1068  Instructions[in_LD_L_HL_Indirect] := LD_L_HL_Indirect;
     1069  Instructions[in_LD_L_A] := LD_L_A;
     1070  Instructions[in_LD_HL_Indirect_B] := LD_HL_Indirect_B;
     1071  Instructions[in_LD_HL_Indirect_C] := LD_HL_Indirect_C;
    2841072  Instructions[in_LD_HL_Indirect_D] := LD_HL_Indirect_D;
    2851073  Instructions[in_LD_HL_Indirect_E] := LD_HL_Indirect_E;
    286   Instructions[in_LD_C_HL_Indirect] := LD_C_HL_Indirect;
     1074  Instructions[in_LD_HL_Indirect_H] := LD_HL_Indirect_H;
     1075  Instructions[in_LD_HL_Indirect_L] := LD_HL_Indirect_L;
     1076  Instructions[in_HALT] := HALT;
     1077  Instructions[in_LD_HL_Indirect_A] := LD_HL_Indirect_A;
     1078  Instructions[in_LD_A_B] := LD_A_B;
     1079  Instructions[in_LD_A_C] := LD_A_C;
     1080  Instructions[in_LD_A_D] := LD_A_D;
     1081  Instructions[in_LD_A_E] := LD_A_E;
     1082  Instructions[in_LD_A_H] := LD_A_H;
     1083  Instructions[in_LD_A_L] := LD_A_L;
    2871084  Instructions[in_LD_A_HL_Indirect] := LD_A_HL_Indirect;
    288   Instructions[in_LD_BC_Indirect_A] := LD_BC_Indirect_A;
    289 {
    290     :
    291     in_LD_HL_Indirect_nn: begin
    292       TempWord := ReadWord;
    293       DoWrite(HL.Value, TempWord and $ff);
    294       DoWrite(HL.Value + 1, TempWord shr 8);
    295     end;
    296     in_JP_ZN_nn: Jp(not Zero);
    297     in_CP_N: Cp(ReadByte);
    298     in_CP_D: Cp(DE.D);
    299     in_CP_E: Cp(DE.E);
    300     in_CALL_nn: begin
    301       TempWord := ReadWord;
    302       if DebugMode = dmStepOver then begin
    303         DebugStopAddress := PC;
    304         DebugMode := dmStopAddress;
    305       end;
    306       Call(TempWord);
    307     end;
    308     in_RET: Ret(True);
    309     in_RET_Z: Ret(Zero);
    310     in_RST_00: Call($00);
    311     in_RST_08: Call($08);
    312     in_RST_10: Call($10);
    313     in_RST_18: Call($18);
    314     in_RST_20: Call($20);
    315     in_RST_28: Call($28);
    316     in_RST_30: Call($30);
    317     in_RST_38: Call($38);
    318     in_DI: InterruptEnabled := False;
    319     in_EI: InterruptEnabled := True;
    320     in_IM1: InterruptMode := 1;
    321     in_OUT_N_A: DoOutput(ReadByte, A);
    322     in_XOR_A: A := A xor A;
    323     in_PUSH_BC: PushWord(BC.Value);
    324     in_PUSH_DE: PushWord(DE.Value);
    325     in_PUSH_HL: PushWord(HL.Value);
    326     in_SBC_HL_DE: HL.Value := HL.Value - DE.Value;
    327     in_EX_DE_HL: begin
    328       TempWord := DE.Value;
    329       DE.Value := HL.Value;
    330       HL.Value := TempWord;
    331     end;
    332     in_DEC_HL: Dec(HL.Value);
    333     in_INC_HL: Inc(HL.Value);
    334     in_INC_BC: Inc(BC.Value);
    335     in_INC_B: Inc(BC.B);
    336     in_DEC_B: Dec(BC.B);
    337     in_JR_NZ_d: Jr(not Zero);
    338     in_JR_NC_d: Jr(not Carry);
    339     in_DJNZ_d: Djnz;
    340     in_LD_H_B: HL.H := BC.B;
    341     in_LD_L_C: HL.L := BC.C;
    342     in_JR_d: Jr(True);
    343     in_LD_A_nn_Indirect: A := DoRead(ReadWord);
    344     in_OR_A: A := A or A;
    345     in_PUSH_AF: PushWord(A shl 8);
    346     in_LD_B_A: BC.B := A;
    347     in_AND_n: A := A and ReadByte;
    348     in_XOR_B: A := A xor BC.B;
    349     in_RLCA: begin
    350       Carry := (A and $80) <> 0;
    351       A := A shl 1;
    352     end;
    353     in_LD_C_A: BC.C := A;
    354     in_ADD_HL_BC: HL.Value := HL.Value + BC.Value;
    355 }
     1085  Instructions[in_LD_A_A] := LD_A_A;
     1086  Instructions[in_ADD_A_B] := ADD_A_B;
     1087  Instructions[in_ADD_A_C] := ADD_A_C;
     1088  Instructions[in_ADD_A_D] := ADD_A_D;
     1089  Instructions[in_ADD_A_E] := ADD_A_E;
     1090  Instructions[in_ADD_A_H] := ADD_A_H;
     1091  Instructions[in_ADD_A_L] := ADD_A_L;
     1092  Instructions[in_ADD_A_HL_Indirect] := ADD_A_HL_Indirect;
     1093  Instructions[in_ADD_A_A] := ADD_A_A;
     1094  Instructions[in_ADC_A_B] := ADC_A_B;
     1095  Instructions[in_ADC_A_C] := ADC_A_C;
     1096  Instructions[in_ADC_A_D] := ADC_A_D;
     1097  Instructions[in_ADC_A_E] := ADC_A_E;
     1098  Instructions[in_ADC_A_H] := ADC_A_H;
     1099  Instructions[in_ADC_A_L] := ADC_A_L;
     1100  Instructions[in_ADC_A_HL_Indirect] := ADC_A_HL_Indirect;
     1101  Instructions[in_ADC_A_A] := ADC_A_A;
     1102  Instructions[in_SUB_B] := SUB_B;
     1103  Instructions[in_SUB_C] := SUB_C;
     1104  Instructions[in_SUB_D] := SUB_D;
     1105  Instructions[in_SUB_E] := SUB_E;
     1106  Instructions[in_SUB_H] := SUB_H;
     1107  Instructions[in_SUB_L] := SUB_L;
     1108  Instructions[in_SUB_HL_Indirect] := SUB_HL_Indirect;
     1109  Instructions[in_SUB_A] := SUB_A;
     1110  Instructions[in_SBC_A_B] := SBC_A_B;
     1111  Instructions[in_SBC_A_C] := SBC_A_C;
     1112  Instructions[in_SBC_A_D] := SBC_A_D;
     1113  Instructions[in_SBC_A_E] := SBC_A_E;
     1114  Instructions[in_SBC_A_H] := SBC_A_H;
     1115  Instructions[in_SBC_A_L] := SBC_A_L;
     1116  Instructions[in_SBC_A_HL_Indirect] := SBC_A_HL_Indirect;
     1117  Instructions[in_SBC_A_A] := SBC_A_A;
     1118  Instructions[in_AND_B] := AND_B;
     1119  Instructions[in_AND_C] := AND_C;
     1120  Instructions[in_AND_D] := AND_D;
     1121  Instructions[in_AND_E] := AND_E;
     1122  Instructions[in_AND_H] := AND_H;
     1123  Instructions[in_AND_L] := AND_L;
     1124  Instructions[in_AND_HL_Indirect] := AND_HL_Indirect;
     1125  Instructions[in_AND_A] := AND_A;
     1126  Instructions[in_XOR_B] := XOR_B;
     1127  Instructions[in_XOR_C] := XOR_C;
     1128  Instructions[in_XOR_D] := XOR_D;
     1129  Instructions[in_XOR_E] := XOR_E;
     1130  Instructions[in_XOR_H] := XOR_H;
     1131  Instructions[in_XOR_L] := XOR_L;
     1132  Instructions[in_XOR_HL_Indirect] := XOR_HL_Indirect;
     1133  Instructions[in_XOR_A] := XOR_A;
     1134  Instructions[in_OR_B] := OR_B;
     1135  Instructions[in_OR_C] := OR_C;
     1136  Instructions[in_OR_D] := OR_D;
     1137  Instructions[in_OR_E] := OR_E;
     1138  Instructions[in_OR_H] := OR_H;
     1139  Instructions[in_OR_L] := OR_L;
     1140  Instructions[in_OR_HL_Indirect] := OR_HL_Indirect;
     1141  Instructions[in_OR_A] := OR_A;
     1142  Instructions[in_CP_B] := CP_B;
     1143  Instructions[in_CP_C] := CP_C;
     1144  Instructions[in_CP_D] := CP_D;
     1145  Instructions[in_CP_E] := CP_E;
     1146  Instructions[in_CP_H] := CP_H;
     1147  Instructions[in_CP_L] := CP_L;
     1148  Instructions[in_CP_HL_Indirect] := CP_HL_Indirect;
     1149  Instructions[in_CP_A] := CP_A;
     1150  Instructions[in_RET_NZ] := RET_NZ;
     1151  Instructions[in_POP_BC] := POP_BC;
     1152  Instructions[in_JP_NZ_NN] := JP_NZ_NN;
     1153  Instructions[in_JP_NN] := JP_NN;
     1154  Instructions[in_CALL_NZ_NN] := CALL_NZ_NN;
     1155  Instructions[in_PUSH_BC] := PUSH_BC;
     1156  Instructions[in_ADD_A_N] := ADD_A_N;
     1157  Instructions[in_RST_00H] := RST_00H;
     1158  Instructions[in_RET_Z] := RET_Z;
     1159  Instructions[in_RET] := RET;
     1160  Instructions[in_JP_Z_NN] := JP_Z_NN;
     1161  Instructions[in_CALL_Z_NN] := CALL_Z_NN;
     1162  Instructions[in_CALL_NN] := CALL_NN;
     1163  Instructions[in_ADC_A_N] := ADC_A_N;
     1164  Instructions[in_RST_08H] := RST_08H;
     1165  Instructions[in_RET_NC] := RET_NC;
     1166  Instructions[in_POP_DE] := POP_DE;
     1167  Instructions[in_JP_NC_NN] := JP_NC_NN;
     1168  Instructions[in_OUT_N_Indirect_A] := OUT_N_Indirect_A;
     1169  Instructions[in_CALL_NC_NN] := CALL_NC_NN;
     1170  Instructions[in_PUSH_DE] := PUSH_DE;
     1171  Instructions[in_SUB_N] := SUB_N;
     1172  Instructions[in_RST_10H] := RST_10H;
     1173  Instructions[in_RET_C] := RET_C;
     1174  Instructions[in_EXX] := EXX;
     1175  Instructions[in_JP_C_NN] := JP_C_NN;
     1176  Instructions[in_IN_A_N_Indirect] := IN_A_N_Indirect;
     1177  Instructions[in_CALL_C_NN] := CALL_C_NN;
     1178  Instructions[in_SBC_A_N] := SBC_A_N;
     1179  Instructions[in_RST_18H] := RST_18H;
     1180  Instructions[in_RET_PO] := RET_PO;
     1181  Instructions[in_POP_HL] := POP_HL;
     1182  Instructions[in_JP_PO_NN] := JP_PO_NN;
     1183  Instructions[in_EX_SP_Indirect_HL] := EX_SP_Indirect_HL;
     1184  Instructions[in_CALL_PO_NN] := CALL_PO_NN;
     1185  Instructions[in_PUSH_HL] := PUSH_HL;
     1186  Instructions[in_AND_N] := AND_N;
     1187  Instructions[in_RST_20H] := RST_20H;
     1188  Instructions[in_RET_PE] := RET_PE;
     1189  Instructions[in_JP_HL_Indirect] := JP_HL_Indirect;
     1190  Instructions[in_JP_PE_NN] := JP_PE_NN;
     1191  Instructions[in_EX_DE_HL] := EX_DE_HL;
     1192  Instructions[in_CALL_PE_NN] := CALL_PE_NN;
     1193  Instructions[in_XOR_N] := XOR_N;
     1194  Instructions[in_RST_28H] := RST_28H;
     1195  Instructions[in_RET_P] := RET_P;
     1196  Instructions[in_POP_AF] := POP_AF;
     1197  Instructions[in_JP_P_NN] := JP_P_NN;
     1198  Instructions[in_DI] := DI;
     1199  Instructions[in_CALL_P_NN] := CALL_P_NN;
     1200  Instructions[in_PUSH_AF] := PUSH_AF;
     1201  Instructions[in_OR_N] := OR_N;
     1202  Instructions[in_RST_30H] := RST_30H;
     1203  Instructions[in_RET_M] := RET_M;
     1204  Instructions[in_LD_SP_HL] := LD_SP_HL;
     1205  Instructions[in_JP_M_NN] := JP_M_NN;
     1206  Instructions[in_EI] := EI;
     1207  Instructions[in_CALL_M_NN] := CALL_M_NN;
     1208  Instructions[in_CP_N] := CP_N;
     1209  Instructions[in_RST_38H] := RST_38H;
     1210  Instructions[in_IN_B_C_Indirect] := IN_B_C_Indirect;
     1211  Instructions[in_OUT_C_Indirect_B] := OUT_C_Indirect_B;
     1212  Instructions[in_SBC_HL_BC] := SBC_HL_BC;
     1213  Instructions[in_LD_NN_Indirect_BC] := LD_NN_Indirect_BC;
     1214  Instructions[in_NEG] := NEG;
     1215  Instructions[in_RETN] := RETN;
     1216  Instructions[in_IM_0] := IM_0;
     1217  Instructions[in_LD_I_A] := LD_I_A;
     1218  Instructions[in_IN_C_C_Indirect] := IN_C_C_Indirect;
     1219  Instructions[in_OUT_C_Indirect_C] := OUT_C_Indirect_C;
     1220  Instructions[in_ADC_HL_BC] := ADC_HL_BC;
     1221  Instructions[in_LD_BC_NN_Indirect] := LD_BC_NN_Indirect;
     1222  Instructions[in_RETI] := RETI;
     1223  Instructions[in_LD_R_A] := LD_R_A;
     1224  Instructions[in_IN_D_C_Indirect] := IN_D_C_Indirect;
     1225  Instructions[in_OUT_C_Indirect_D] := OUT_C_Indirect_D;
     1226  Instructions[in_SBC_HL_DE] := SBC_HL_DE;
     1227  Instructions[in_LD_NN_Indirect_DE] := LD_NN_Indirect_DE;
     1228  Instructions[in_IM_1] := IM_1;
     1229  Instructions[in_LD_A_I] := LD_A_I;
     1230  Instructions[in_IN_E_C_Indirect] := IN_E_C_Indirect;
     1231  Instructions[in_OUT_C_Indirect_E] := OUT_C_Indirect_E;
     1232  Instructions[in_ADC_HL_DE] := ADC_HL_DE;
     1233  Instructions[in_LD_DE_NN_Indirect] := LD_DE_NN_Indirect;
     1234  Instructions[in_IM_2] := IM_2;
     1235  Instructions[in_LD_A_R] := LD_A_R;
     1236  Instructions[in_IN_H_C_Indirect] := IN_H_C_Indirect;
     1237  Instructions[in_OUT_C_Indirect_H] := OUT_C_Indirect_H;
     1238  Instructions[in_SBC_HL_HL] := SBC_HL_HL;
     1239  Instructions[in_RRD] := RRD;
     1240  Instructions[in_IN_L_C_Indirect] := IN_L_C_Indirect;
     1241  Instructions[in_OUT_C_Indirect_L] := OUT_C_Indirect_L;
     1242  Instructions[in_ADC_HL_HL] := ADC_HL_HL;
     1243  Instructions[in_RLD] := RLD;
     1244  Instructions[in_SBC_HL_SP] := SBC_HL_SP;
     1245  Instructions[in_LD_NN_Indirect_SP] := LD_NN_Indirect_SP;
     1246  Instructions[in_IN_A_C_Indirect] := IN_A_C_Indirect;
     1247  Instructions[in_OUT_C_Indirect_A] := OUT_C_Indirect_A;
     1248  Instructions[in_ADC_HL_SP] := ADC_HL_SP;
     1249  Instructions[in_LD_SP_NN_Indirect] := LD_SP_NN_Indirect;
     1250  Instructions[in_LDI] := LDI;
     1251  Instructions[in_CPI] := CPI;
     1252  Instructions[in_INI] := INI;
     1253  Instructions[in_OUTI] := OUTI;
     1254  Instructions[in_LDD] := LDD;
     1255  Instructions[in_CPD] := CPD;
     1256  Instructions[in_IND] := IND;
     1257  Instructions[in_OUTD] := OUTD;
     1258  Instructions[in_LDIR] := LDIR;
     1259  Instructions[in_CPIR] := CPIR;
     1260  Instructions[in_INIR] := INIR;
     1261  Instructions[in_OTIR] := OTIR;
     1262  Instructions[in_LDDR] := LDDR;
     1263  Instructions[in_CPDR] := CPDR;
     1264  Instructions[in_INDR] := INDR;
     1265  Instructions[in_OTDR] := OTDR;
     1266  Instructions[in_RLC_B] := RLC_B;
     1267  Instructions[in_RLC_C] := RLC_C;
     1268  Instructions[in_RLC_D] := RLC_D;
     1269  Instructions[in_RLC_E] := RLC_E;
     1270  Instructions[in_RLC_H] := RLC_H;
     1271  Instructions[in_RLC_L] := RLC_L;
     1272  Instructions[in_RLC_HL_Indirect] := RLC_HL_Indirect;
     1273  Instructions[in_RLC_A] := RLC_A;
     1274  Instructions[in_RRC_B] := RRC_B;
     1275  Instructions[in_RRC_C] := RRC_C;
     1276  Instructions[in_RRC_D] := RRC_D;
     1277  Instructions[in_RRC_E] := RRC_E;
     1278  Instructions[in_RRC_H] := RRC_H;
     1279  Instructions[in_RRC_L] := RRC_L;
     1280  Instructions[in_RRC_HL_Indirect] := RRC_HL_Indirect;
     1281  Instructions[in_RRC_A] := RRC_A;
     1282  Instructions[in_RL_B] := RL_B;
     1283  Instructions[in_RL_C] := RL_C;
     1284  Instructions[in_RL_D] := RL_D;
     1285  Instructions[in_RL_E] := RL_E;
     1286  Instructions[in_RL_H] := RL_H;
     1287  Instructions[in_RL_L] := RL_L;
     1288  Instructions[in_RL_HL_Indirect] := RL_HL_Indirect;
     1289  Instructions[in_RL_A] := RL_A;
     1290  Instructions[in_RR_B] := RR_B;
     1291  Instructions[in_RR_C] := RR_C;
     1292  Instructions[in_RR_D] := RR_D;
     1293  Instructions[in_RR_E] := RR_E;
     1294  Instructions[in_RR_H] := RR_H;
     1295  Instructions[in_RR_L] := RR_L;
     1296  Instructions[in_RR_HL_Indirect] := RR_HL_Indirect;
     1297  Instructions[in_RR_A] := RR_A;
     1298  Instructions[in_SLA_B] := SLA_B;
     1299  Instructions[in_SLA_C] := SLA_C;
     1300  Instructions[in_SLA_D] := SLA_D;
     1301  Instructions[in_SLA_E] := SLA_E;
     1302  Instructions[in_SLA_H] := SLA_H;
     1303  Instructions[in_SLA_L] := SLA_L;
     1304  Instructions[in_SLA_HL_Indirect] := SLA_HL_Indirect;
     1305  Instructions[in_SLA_A] := SLA_A;
     1306  Instructions[in_SRA_B] := SRA_B;
     1307  Instructions[in_SRA_C] := SRA_C;
     1308  Instructions[in_SRA_D] := SRA_D;
     1309  Instructions[in_SRA_E] := SRA_E;
     1310  Instructions[in_SRA_H] := SRA_H;
     1311  Instructions[in_SRA_L] := SRA_L;
     1312  Instructions[in_SRA_HL_Indirect] := SRA_HL_Indirect;
     1313  Instructions[in_SRA_A] := SRA_A;
     1314  Instructions[in_SRL_B] := SRL_B;
     1315  Instructions[in_SRL_C] := SRL_C;
     1316  Instructions[in_SRL_D] := SRL_D;
     1317  Instructions[in_SRL_E] := SRL_E;
     1318  Instructions[in_SRL_H] := SRL_H;
     1319  Instructions[in_SRL_L] := SRL_L;
     1320  Instructions[in_SRL_HL_Indirect] := SRL_HL_Indirect;
     1321  Instructions[in_SRL_A] := SRL_A;
     1322  Instructions[in_BIT_0_B] := BIT_0_B;
     1323  Instructions[in_BIT_0_C] := BIT_0_C;
     1324  Instructions[in_BIT_0_D] := BIT_0_D;
     1325  Instructions[in_BIT_0_E] := BIT_0_E;
     1326  Instructions[in_BIT_0_H] := BIT_0_H;
     1327  Instructions[in_BIT_0_L] := BIT_0_L;
     1328  Instructions[in_BIT_0_HL_Indirect] := BIT_0_HL_Indirect;
     1329  Instructions[in_BIT_0_A] := BIT_0_A;
     1330  Instructions[in_BIT_1_B] := BIT_1_B;
     1331  Instructions[in_BIT_1_C] := BIT_1_C;
     1332  Instructions[in_BIT_1_D] := BIT_1_D;
     1333  Instructions[in_BIT_1_E] := BIT_1_E;
     1334  Instructions[in_BIT_1_H] := BIT_1_H;
     1335  Instructions[in_BIT_1_L] := BIT_1_L;
     1336  Instructions[in_BIT_1_HL_Indirect] := BIT_1_HL_Indirect;
     1337  Instructions[in_BIT_1_A] := BIT_1_A;
     1338  Instructions[in_BIT_2_B] := BIT_2_B;
     1339  Instructions[in_BIT_2_C] := BIT_2_C;
     1340  Instructions[in_BIT_2_D] := BIT_2_D;
     1341  Instructions[in_BIT_2_E] := BIT_2_E;
     1342  Instructions[in_BIT_2_H] := BIT_2_H;
     1343  Instructions[in_BIT_2_L] := BIT_2_L;
     1344  Instructions[in_BIT_2_HL_Indirect] := BIT_2_HL_Indirect;
     1345  Instructions[in_BIT_2_A] := BIT_2_A;
     1346  Instructions[in_BIT_3_B] := BIT_3_B;
     1347  Instructions[in_BIT_3_C] := BIT_3_C;
     1348  Instructions[in_BIT_3_D] := BIT_3_D;
     1349  Instructions[in_BIT_3_E] := BIT_3_E;
     1350  Instructions[in_BIT_3_H] := BIT_3_H;
     1351  Instructions[in_BIT_3_L] := BIT_3_L;
     1352  Instructions[in_BIT_3_HL_Indirect] := BIT_3_HL_Indirect;
     1353  Instructions[in_BIT_3_A] := BIT_3_A;
     1354  Instructions[in_BIT_4_B] := BIT_4_B;
     1355  Instructions[in_BIT_4_C] := BIT_4_C;
     1356  Instructions[in_BIT_4_D] := BIT_4_D;
     1357  Instructions[in_BIT_4_E] := BIT_4_E;
     1358  Instructions[in_BIT_4_H] := BIT_4_H;
     1359  Instructions[in_BIT_4_L] := BIT_4_L;
     1360  Instructions[in_BIT_4_HL_Indirect] := BIT_4_HL_Indirect;
     1361  Instructions[in_BIT_4_A] := BIT_4_A;
     1362  Instructions[in_BIT_5_B] := BIT_5_B;
     1363  Instructions[in_BIT_5_C] := BIT_5_C;
     1364  Instructions[in_BIT_5_D] := BIT_5_D;
     1365  Instructions[in_BIT_5_E] := BIT_5_E;
     1366  Instructions[in_BIT_5_H] := BIT_5_H;
     1367  Instructions[in_BIT_5_L] := BIT_5_L;
     1368  Instructions[in_BIT_5_HL_Indirect] := BIT_5_HL_Indirect;
     1369  Instructions[in_BIT_5_A] := BIT_5_A;
     1370  Instructions[in_BIT_6_B] := BIT_6_B;
     1371  Instructions[in_BIT_6_C] := BIT_6_C;
     1372  Instructions[in_BIT_6_D] := BIT_6_D;
     1373  Instructions[in_BIT_6_E] := BIT_6_E;
     1374  Instructions[in_BIT_6_H] := BIT_6_H;
     1375  Instructions[in_BIT_6_L] := BIT_6_L;
     1376  Instructions[in_BIT_6_HL_Indirect] := BIT_6_HL_Indirect;
     1377  Instructions[in_BIT_6_A] := BIT_6_A;
     1378  Instructions[in_BIT_7_B] := BIT_7_B;
     1379  Instructions[in_BIT_7_C] := BIT_7_C;
     1380  Instructions[in_BIT_7_D] := BIT_7_D;
     1381  Instructions[in_BIT_7_E] := BIT_7_E;
     1382  Instructions[in_BIT_7_H] := BIT_7_H;
     1383  Instructions[in_BIT_7_L] := BIT_7_L;
     1384  Instructions[in_BIT_7_HL_Indirect] := BIT_7_HL_Indirect;
     1385  Instructions[in_BIT_7_A] := BIT_7_A;
     1386  Instructions[in_RES_0_B] := RES_0_B;
     1387  Instructions[in_RES_0_C] := RES_0_C;
     1388  Instructions[in_RES_0_D] := RES_0_D;
     1389  Instructions[in_RES_0_E] := RES_0_E;
     1390  Instructions[in_RES_0_H] := RES_0_H;
     1391  Instructions[in_RES_0_L] := RES_0_L;
     1392  Instructions[in_RES_0_HL_Indirect] := RES_0_HL_Indirect;
     1393  Instructions[in_RES_0_A] := RES_0_A;
     1394  Instructions[in_RES_1_B] := RES_1_B;
     1395  Instructions[in_RES_1_C] := RES_1_C;
     1396  Instructions[in_RES_1_D] := RES_1_D;
     1397  Instructions[in_RES_1_E] := RES_1_E;
     1398  Instructions[in_RES_1_H] := RES_1_H;
     1399  Instructions[in_RES_1_L] := RES_1_L;
     1400  Instructions[in_RES_1_HL_Indirect] := RES_1_HL_Indirect;
     1401  Instructions[in_RES_1_A] := RES_1_A;
     1402  Instructions[in_RES_2_B] := RES_2_B;
     1403  Instructions[in_RES_2_C] := RES_2_C;
     1404  Instructions[in_RES_2_D] := RES_2_D;
     1405  Instructions[in_RES_2_E] := RES_2_E;
     1406  Instructions[in_RES_2_H] := RES_2_H;
     1407  Instructions[in_RES_2_L] := RES_2_L;
     1408  Instructions[in_RES_2_HL_Indirect] := RES_2_HL_Indirect;
     1409  Instructions[in_RES_2_A] := RES_2_A;
     1410  Instructions[in_RES_3_B] := RES_3_B;
     1411  Instructions[in_RES_3_C] := RES_3_C;
     1412  Instructions[in_RES_3_D] := RES_3_D;
     1413  Instructions[in_RES_3_E] := RES_3_E;
     1414  Instructions[in_RES_3_H] := RES_3_H;
     1415  Instructions[in_RES_3_L] := RES_3_L;
     1416  Instructions[in_RES_3_HL_Indirect] := RES_3_HL_Indirect;
     1417  Instructions[in_RES_3_A] := RES_3_A;
     1418  Instructions[in_RES_4_B] := RES_4_B;
     1419  Instructions[in_RES_4_C] := RES_4_C;
     1420  Instructions[in_RES_4_D] := RES_4_D;
     1421  Instructions[in_RES_4_E] := RES_4_E;
     1422  Instructions[in_RES_4_H] := RES_4_H;
     1423  Instructions[in_RES_4_L] := RES_4_L;
     1424  Instructions[in_RES_4_HL_Indirect] := RES_4_HL_Indirect;
     1425  Instructions[in_RES_4_A] := RES_4_A;
     1426  Instructions[in_RES_5_B] := RES_5_B;
     1427  Instructions[in_RES_5_C] := RES_5_C;
     1428  Instructions[in_RES_5_D] := RES_5_D;
     1429  Instructions[in_RES_5_E] := RES_5_E;
     1430  Instructions[in_RES_5_H] := RES_5_H;
     1431  Instructions[in_RES_5_L] := RES_5_L;
     1432  Instructions[in_RES_5_HL_Indirect] := RES_5_HL_Indirect;
     1433  Instructions[in_RES_5_A] := RES_5_A;
     1434  Instructions[in_RES_6_B] := RES_6_B;
     1435  Instructions[in_RES_6_C] := RES_6_C;
     1436  Instructions[in_RES_6_D] := RES_6_D;
     1437  Instructions[in_RES_6_E] := RES_6_E;
     1438  Instructions[in_RES_6_H] := RES_6_H;
     1439  Instructions[in_RES_6_L] := RES_6_L;
     1440  Instructions[in_RES_6_HL_Indirect] := RES_6_HL_Indirect;
     1441  Instructions[in_RES_6_A] := RES_6_A;
     1442  Instructions[in_RES_7_B] := RES_7_B;
     1443  Instructions[in_RES_7_C] := RES_7_C;
     1444  Instructions[in_RES_7_D] := RES_7_D;
     1445  Instructions[in_RES_7_E] := RES_7_E;
     1446  Instructions[in_RES_7_H] := RES_7_H;
     1447  Instructions[in_RES_7_L] := RES_7_L;
     1448  Instructions[in_RES_7_HL_Indirect] := RES_7_HL_Indirect;
     1449  Instructions[in_RES_7_A] := RES_7_A;
     1450  Instructions[in_SET_0_B] := SET_0_B;
     1451  Instructions[in_SET_0_C] := SET_0_C;
     1452  Instructions[in_SET_0_D] := SET_0_D;
     1453  Instructions[in_SET_0_E] := SET_0_E;
     1454  Instructions[in_SET_0_H] := SET_0_H;
     1455  Instructions[in_SET_0_L] := SET_0_L;
     1456  Instructions[in_SET_0_HL_Indirect] := SET_0_HL_Indirect;
     1457  Instructions[in_SET_0_A] := SET_0_A;
     1458  Instructions[in_SET_1_B] := SET_1_B;
     1459  Instructions[in_SET_1_C] := SET_1_C;
     1460  Instructions[in_SET_1_D] := SET_1_D;
     1461  Instructions[in_SET_1_E] := SET_1_E;
     1462  Instructions[in_SET_1_H] := SET_1_H;
     1463  Instructions[in_SET_1_L] := SET_1_L;
     1464  Instructions[in_SET_1_HL_Indirect] := SET_1_HL_Indirect;
     1465  Instructions[in_SET_1_A] := SET_1_A;
     1466  Instructions[in_SET_2_B] := SET_2_B;
     1467  Instructions[in_SET_2_C] := SET_2_C;
     1468  Instructions[in_SET_2_D] := SET_2_D;
     1469  Instructions[in_SET_2_E] := SET_2_E;
     1470  Instructions[in_SET_2_H] := SET_2_H;
     1471  Instructions[in_SET_2_L] := SET_2_L;
     1472  Instructions[in_SET_2_HL_Indirect] := SET_2_HL_Indirect;
     1473  Instructions[in_SET_2_A] := SET_2_A;
     1474  Instructions[in_SET_3_B] := SET_3_B;
     1475  Instructions[in_SET_3_C] := SET_3_C;
     1476  Instructions[in_SET_3_D] := SET_3_D;
     1477  Instructions[in_SET_3_E] := SET_3_E;
     1478  Instructions[in_SET_3_H] := SET_3_H;
     1479  Instructions[in_SET_3_L] := SET_3_L;
     1480  Instructions[in_SET_3_HL_Indirect] := SET_3_HL_Indirect;
     1481  Instructions[in_SET_3_A] := SET_3_A;
     1482  Instructions[in_SET_4_B] := SET_4_B;
     1483  Instructions[in_SET_4_C] := SET_4_C;
     1484  Instructions[in_SET_4_D] := SET_4_D;
     1485  Instructions[in_SET_4_E] := SET_4_E;
     1486  Instructions[in_SET_4_H] := SET_4_H;
     1487  Instructions[in_SET_4_L] := SET_4_L;
     1488  Instructions[in_SET_4_HL_Indirect] := SET_4_HL_Indirect;
     1489  Instructions[in_SET_4_A] := SET_4_A;
     1490  Instructions[in_SET_5_B] := SET_5_B;
     1491  Instructions[in_SET_5_C] := SET_5_C;
     1492  Instructions[in_SET_5_D] := SET_5_D;
     1493  Instructions[in_SET_5_E] := SET_5_E;
     1494  Instructions[in_SET_5_H] := SET_5_H;
     1495  Instructions[in_SET_5_L] := SET_5_L;
     1496  Instructions[in_SET_5_HL_Indirect] := SET_5_HL_Indirect;
     1497  Instructions[in_SET_5_A] := SET_5_A;
     1498  Instructions[in_SET_6_B] := SET_6_B;
     1499  Instructions[in_SET_6_C] := SET_6_C;
     1500  Instructions[in_SET_6_D] := SET_6_D;
     1501  Instructions[in_SET_6_E] := SET_6_E;
     1502  Instructions[in_SET_6_H] := SET_6_H;
     1503  Instructions[in_SET_6_L] := SET_6_L;
     1504  Instructions[in_SET_6_HL_Indirect] := SET_6_HL_Indirect;
     1505  Instructions[in_SET_6_A] := SET_6_A;
     1506  Instructions[in_SET_7_B] := SET_7_B;
     1507  Instructions[in_SET_7_C] := SET_7_C;
     1508  Instructions[in_SET_7_D] := SET_7_D;
     1509  Instructions[in_SET_7_E] := SET_7_E;
     1510  Instructions[in_SET_7_H] := SET_7_H;
     1511  Instructions[in_SET_7_L] := SET_7_L;
     1512  Instructions[in_SET_7_HL_Indirect] := SET_7_HL_Indirect;
     1513  Instructions[in_SET_7_A] := SET_7_A;
     1514  Instructions[in_ADD_IX_BC] := ADD_IX_BC;
     1515  Instructions[in_ADD_IX_DE] := ADD_IX_DE;
     1516  Instructions[in_LD_IX_NN] := LD_IX_NN;
     1517  Instructions[in_LD_NN_Indirect_IX] := LD_NN_Indirect_IX;
     1518  Instructions[in_INC_IX] := INC_IX;
     1519  Instructions[in_ADD_IX_IX] := ADD_IX_IX;
     1520  Instructions[in_LD_IX_NN_Indirect] := LD_IX_NN_Indirect;
     1521  Instructions[in_DEC_IX] := DEC_IX;
     1522  Instructions[in_INC_IX_Plus_D_Indirect] := INC_IX_Plus_D_Indirect;
     1523  Instructions[in_DEC_IX_Plus_D_Indirect] := DEC_IX_Plus_D_Indirect;
     1524  Instructions[in_LD_IX_Plus_D_Indirect_N] := LD_IX_Plus_D_Indirect_N;
     1525  Instructions[in_ADD_IX_SP] := ADD_IX_SP;
     1526  Instructions[in_LD_B_IX_Plus_D_Indirect] := LD_B_IX_Plus_D_Indirect;
     1527  Instructions[in_LD_C_IX_Plus_D_Indirect] := LD_C_IX_Plus_D_Indirect;
     1528  Instructions[in_LD_D_IX_Plus_D_Indirect] := LD_D_IX_Plus_D_Indirect;
     1529  Instructions[in_LD_E_IX_Plus_D_Indirect] := LD_E_IX_Plus_D_Indirect;
     1530  Instructions[in_LD_H_IX_Plus_D_Indirect] := LD_H_IX_Plus_D_Indirect;
     1531  Instructions[in_LD_L_IX_Plus_D_Indirect] := LD_L_IX_Plus_D_Indirect;
     1532  Instructions[in_LD_IX_Plus_D_Indirect_B] := LD_IX_Plus_D_Indirect_B;
     1533  Instructions[in_LD_IX_Plus_D_Indirect_C] := LD_IX_Plus_D_Indirect_C;
     1534  Instructions[in_LD_IX_Plus_D_Indirect_D] := LD_IX_Plus_D_Indirect_D;
     1535  Instructions[in_LD_IX_Plus_D_Indirect_E] := LD_IX_Plus_D_Indirect_E;
     1536  Instructions[in_LD_IX_Plus_D_Indirect_H] := LD_IX_Plus_D_Indirect_H;
     1537  Instructions[in_LD_IX_Plus_D_Indirect_L] := LD_IX_Plus_D_Indirect_L;
     1538  Instructions[in_LD_IX_Plus_D_Indirect_A] := LD_IX_Plus_D_Indirect_A;
     1539  Instructions[in_LD_A_IX_Plus_D_Indirect] := LD_A_IX_Plus_D_Indirect;
     1540  Instructions[in_ADD_A_IX_Plus_D_Indirect] := ADD_A_IX_Plus_D_Indirect;
     1541  Instructions[in_ADC_A_IX_Plus_D_Indirect] := ADC_A_IX_Plus_D_Indirect;
     1542  Instructions[in_SUB_IX_Plus_D_Indirect] := SUB_IX_Plus_D_Indirect;
     1543  Instructions[in_SBC_A_IX_Plus_D_Indirect] := SBC_A_IX_Plus_D_Indirect;
     1544  Instructions[in_AND_IX_Plus_D_Indirect] := AND_IX_Plus_D_Indirect;
     1545  Instructions[in_XOR_IX_Plus_D_Indirect] := XOR_IX_Plus_D_Indirect;
     1546  Instructions[in_OR_IX_Plus_D_Indirect] := OR_IX_Plus_D_Indirect;
     1547  Instructions[in_CP_IX_Plus_D_Indirect] := CP_IX_Plus_D_Indirect;
     1548  Instructions[in_POP_IX] := POP_IX;
     1549  Instructions[in_EX_SP_Indirect_IX] := EX_SP_Indirect_IX;
     1550  Instructions[in_PUSH_IX] := PUSH_IX;
     1551  Instructions[in_JP_IX_Indirect] := JP_IX_Indirect;
     1552  Instructions[in_LD_SP_IX] := LD_SP_IX;
     1553  Instructions[in_RLC_IX_Plus_D_Indirect] := RLC_IX_Plus_D_Indirect;
     1554  Instructions[in_RRC_IX_Plus_D_Indirect] := RRC_IX_Plus_D_Indirect;
     1555  Instructions[in_RL_IX_Plus_D_Indirect] := RL_IX_Plus_D_Indirect;
     1556  Instructions[in_RR_IX_Plus_D_Indirect] := RR_IX_Plus_D_Indirect;
     1557  Instructions[in_SLA_IX_Plus_D_Indirect] := SLA_IX_Plus_D_Indirect;
     1558  Instructions[in_SRA_IX_Plus_D_Indirect] := SRA_IX_Plus_D_Indirect;
     1559  Instructions[in_SRL_IX_Plus_D_Indirect] := SRL_IX_Plus_D_Indirect;
     1560  Instructions[in_BIT_0_IX_Plus_D_Indirect] := BIT_0_IX_Plus_D_Indirect;
     1561  Instructions[in_BIT_1_IX_Plus_D_Indirect] := BIT_1_IX_Plus_D_Indirect;
     1562  Instructions[in_BIT_2_IX_Plus_D_Indirect] := BIT_2_IX_Plus_D_Indirect;
     1563  Instructions[in_BIT_3_IX_Plus_D_Indirect] := BIT_3_IX_Plus_D_Indirect;
     1564  Instructions[in_BIT_4_IX_Plus_D_Indirect] := BIT_4_IX_Plus_D_Indirect;
     1565  Instructions[in_BIT_5_IX_Plus_D_Indirect] := BIT_5_IX_Plus_D_Indirect;
     1566  Instructions[in_BIT_6_IX_Plus_D_Indirect] := BIT_6_IX_Plus_D_Indirect;
     1567  Instructions[in_BIT_7_IX_Plus_D_Indirect] := BIT_7_IX_Plus_D_Indirect;
     1568  Instructions[in_RES_0_IX_Plus_D_Indirect] := RES_0_IX_Plus_D_Indirect;
     1569  Instructions[in_RES_1_IX_Plus_D_Indirect] := RES_1_IX_Plus_D_Indirect;
     1570  Instructions[in_RES_2_IX_Plus_D_Indirect] := RES_2_IX_Plus_D_Indirect;
     1571  Instructions[in_RES_3_IX_Plus_D_Indirect] := RES_3_IX_Plus_D_Indirect;
     1572  Instructions[in_RES_4_IX_Plus_D_Indirect] := RES_4_IX_Plus_D_Indirect;
     1573  Instructions[in_RES_5_IX_Plus_D_Indirect] := RES_5_IX_Plus_D_Indirect;
     1574  Instructions[in_RES_6_IX_Plus_D_Indirect] := RES_6_IX_Plus_D_Indirect;
     1575  Instructions[in_RES_7_IX_Plus_D_Indirect] := RES_7_IX_Plus_D_Indirect;
     1576  Instructions[in_SET_0_IX_Plus_D_Indirect] := SET_0_IX_Plus_D_Indirect;
     1577  Instructions[in_SET_1_IX_Plus_D_Indirect] := SET_1_IX_Plus_D_Indirect;
     1578  Instructions[in_SET_2_IX_Plus_D_Indirect] := SET_2_IX_Plus_D_Indirect;
     1579  Instructions[in_SET_3_IX_Plus_D_Indirect] := SET_3_IX_Plus_D_Indirect;
     1580  Instructions[in_SET_4_IX_Plus_D_Indirect] := SET_4_IX_Plus_D_Indirect;
     1581  Instructions[in_SET_5_IX_Plus_D_Indirect] := SET_5_IX_Plus_D_Indirect;
     1582  Instructions[in_SET_6_IX_Plus_D_Indirect] := SET_6_IX_Plus_D_Indirect;
     1583  Instructions[in_SET_7_IX_Plus_D_Indirect] := SET_7_IX_Plus_D_Indirect;
     1584  Instructions[in_ADD_IY_BC] := ADD_IY_BC;
     1585  Instructions[in_ADD_IY_DE] := ADD_IY_DE;
     1586  Instructions[in_LD_IY_NN] := LD_IY_NN;
     1587  Instructions[in_LD_NN_Indirect_IY] := LD_NN_Indirect_IY;
     1588  Instructions[in_INC_IY] := INC_IY;
     1589  Instructions[in_ADD_IY_IY] := ADD_IY_IY;
     1590  Instructions[in_LD_IY_NN_Indirect] := LD_IY_NN_Indirect;
     1591  Instructions[in_DEC_IY] := DEC_IY;
     1592  Instructions[in_INC_IY_Plus_D_Indirect] := INC_IY_Plus_D_Indirect;
     1593  Instructions[in_DEC_IY_Plus_D_Indirect] := DEC_IY_Plus_D_Indirect;
     1594  Instructions[in_LD_IY_Plus_D_Indirect_N] := LD_IY_Plus_D_Indirect_N;
     1595  Instructions[in_ADD_IY_SP] := ADD_IY_SP;
     1596  Instructions[in_LD_B_IY_Plus_D_Indirect] := LD_B_IY_Plus_D_Indirect;
     1597  Instructions[in_LD_C_IY_Plus_D_Indirect] := LD_C_IY_Plus_D_Indirect;
     1598  Instructions[in_LD_D_IY_Plus_D_Indirect] := LD_D_IY_Plus_D_Indirect;
     1599  Instructions[in_LD_E_IY_Plus_D_Indirect] := LD_E_IY_Plus_D_Indirect;
     1600  Instructions[in_LD_H_IY_Plus_D_Indirect] := LD_H_IY_Plus_D_Indirect;
     1601  Instructions[in_LD_L_IY_Plus_D_Indirect] := LD_L_IY_Plus_D_Indirect;
     1602  Instructions[in_LD_IY_Plus_D_Indirect_B] := LD_IY_Plus_D_Indirect_B;
     1603  Instructions[in_LD_IY_Plus_D_Indirect_C] := LD_IY_Plus_D_Indirect_C;
     1604  Instructions[in_LD_IY_Plus_D_Indirect_D] := LD_IY_Plus_D_Indirect_D;
     1605  Instructions[in_LD_IY_Plus_D_Indirect_E] := LD_IY_Plus_D_Indirect_E;
     1606  Instructions[in_LD_IY_Plus_D_Indirect_H] := LD_IY_Plus_D_Indirect_H;
     1607  Instructions[in_LD_IY_Plus_D_Indirect_L] := LD_IY_Plus_D_Indirect_L;
     1608  Instructions[in_LD_IY_Plus_D_Indirect_A] := LD_IY_Plus_D_Indirect_A;
     1609  Instructions[in_LD_A_IY_Plus_D_Indirect] := LD_A_IY_Plus_D_Indirect;
     1610  Instructions[in_ADD_A_IY_Plus_D_Indirect] := ADD_A_IY_Plus_D_Indirect;
     1611  Instructions[in_ADC_A_IY_Plus_D_Indirect] := ADC_A_IY_Plus_D_Indirect;
     1612  Instructions[in_SUB_IY_Plus_D_Indirect] := SUB_IY_Plus_D_Indirect;
     1613  Instructions[in_SBC_A_IY_Plus_D_Indirect] := SBC_A_IY_Plus_D_Indirect;
     1614  Instructions[in_AND_IY_Plus_D_Indirect] := AND_IY_Plus_D_Indirect;
     1615  Instructions[in_XOR_IY_Plus_D_Indirect] := XOR_IY_Plus_D_Indirect;
     1616  Instructions[in_OR_IY_Plus_D_Indirect] := OR_IY_Plus_D_Indirect;
     1617  Instructions[in_CP_IY_Plus_D_Indirect] := CP_IY_Plus_D_Indirect;
     1618  Instructions[in_POP_IY] := POP_IY;
     1619  Instructions[in_EX_SP_Indirect_IY] := EX_SP_Indirect_IY;
     1620  Instructions[in_PUSH_IY] := PUSH_IY;
     1621  Instructions[in_JP_IY_Indirect] := JP_IY_Indirect;
     1622  Instructions[in_LD_SP_IY] := LD_SP_IY;
     1623  Instructions[in_RLC_IY_Plus_D_Indirect] := RLC_IY_Plus_D_Indirect;
     1624  Instructions[in_RRC_IY_Plus_D_Indirect] := RRC_IY_Plus_D_Indirect;
     1625  Instructions[in_RL_IY_Plus_D_Indirect] := RL_IY_Plus_D_Indirect;
     1626  Instructions[in_RR_IY_Plus_D_Indirect] := RR_IY_Plus_D_Indirect;
     1627  Instructions[in_SLA_IY_Plus_D_Indirect] := SLA_IY_Plus_D_Indirect;
     1628  Instructions[in_SRA_IY_Plus_D_Indirect] := SRA_IY_Plus_D_Indirect;
     1629  Instructions[in_SRL_IY_Plus_D_Indirect] := SRL_IY_Plus_D_Indirect;
     1630  Instructions[in_BIT_0_IY_Plus_D_Indirect] := BIT_0_IY_Plus_D_Indirect;
     1631  Instructions[in_BIT_1_IY_Plus_D_Indirect] := BIT_1_IY_Plus_D_Indirect;
     1632  Instructions[in_BIT_2_IY_Plus_D_Indirect] := BIT_2_IY_Plus_D_Indirect;
     1633  Instructions[in_BIT_3_IY_Plus_D_Indirect] := BIT_3_IY_Plus_D_Indirect;
     1634  Instructions[in_BIT_4_IY_Plus_D_Indirect] := BIT_4_IY_Plus_D_Indirect;
     1635  Instructions[in_BIT_5_IY_Plus_D_Indirect] := BIT_5_IY_Plus_D_Indirect;
     1636  Instructions[in_BIT_6_IY_Plus_D_Indirect] := BIT_6_IY_Plus_D_Indirect;
     1637  Instructions[in_BIT_7_IY_Plus_D_Indirect] := BIT_7_IY_Plus_D_Indirect;
     1638  Instructions[in_RES_0_IY_Plus_D_Indirect] := RES_0_IY_Plus_D_Indirect;
     1639  Instructions[in_RES_1_IY_Plus_D_Indirect] := RES_1_IY_Plus_D_Indirect;
     1640  Instructions[in_RES_2_IY_Plus_D_Indirect] := RES_2_IY_Plus_D_Indirect;
     1641  Instructions[in_RES_3_IY_Plus_D_Indirect] := RES_3_IY_Plus_D_Indirect;
     1642  Instructions[in_RES_4_IY_Plus_D_Indirect] := RES_4_IY_Plus_D_Indirect;
     1643  Instructions[in_RES_5_IY_Plus_D_Indirect] := RES_5_IY_Plus_D_Indirect;
     1644  Instructions[in_RES_6_IY_Plus_D_Indirect] := RES_6_IY_Plus_D_Indirect;
     1645  Instructions[in_RES_7_IY_Plus_D_Indirect] := RES_7_IY_Plus_D_Indirect;
     1646  Instructions[in_SET_0_IY_Plus_D_Indirect] := SET_0_IY_Plus_D_Indirect;
     1647  Instructions[in_SET_1_IY_Plus_D_Indirect] := SET_1_IY_Plus_D_Indirect;
     1648  Instructions[in_SET_2_IY_Plus_D_Indirect] := SET_2_IY_Plus_D_Indirect;
     1649  Instructions[in_SET_3_IY_Plus_D_Indirect] := SET_3_IY_Plus_D_Indirect;
     1650  Instructions[in_SET_4_IY_Plus_D_Indirect] := SET_4_IY_Plus_D_Indirect;
     1651  Instructions[in_SET_5_IY_Plus_D_Indirect] := SET_5_IY_Plus_D_Indirect;
     1652  Instructions[in_SET_6_IY_Plus_D_Indirect] := SET_6_IY_Plus_D_Indirect;
     1653  Instructions[in_SET_7_IY_Plus_D_Indirect] := SET_7_IY_Plus_D_Indirect;
    3561654end;
    3571655
    3581656procedure TCpuZ80.NOP;
    3591657begin
    360   // No operation
    361 end;
    362 
    363 procedure TCpuZ80.LD_HL_nn;
     1658  // No opearation
     1659end;
     1660
     1661procedure TCpuZ80.LD_BC_NN;
     1662begin
     1663  BC.Value := ReadWord;
     1664end;
     1665
     1666procedure TCpuZ80.LD_BC_Indirect_A;
     1667begin
     1668  DoWrite(BC.Value, A);
     1669end;
     1670
     1671procedure TCpuZ80.INC_BC;
     1672begin
     1673  Inc(BC.Value);
     1674end;
     1675
     1676procedure TCpuZ80.INC_B;
     1677begin
     1678  Inc(BC.B);
     1679end;
     1680
     1681procedure TCpuZ80.DEC_B;
     1682begin
     1683  Dec(BC.B);
     1684end;
     1685
     1686procedure TCpuZ80.LD_B_N;
     1687begin
     1688  BC.B := ReadByte;
     1689end;
     1690
     1691procedure TCpuZ80.RLCA;
     1692begin
     1693  Carry := (A and $80) <> 0;
     1694  A := A shl 1;
     1695end;
     1696
     1697procedure TCpuZ80.EX_AF_AF_Pair;
     1698begin
     1699  NotImplemented;
     1700end;
     1701
     1702procedure TCpuZ80.ADD_HL_BC;
     1703begin
     1704  HL.Value := HL.Value + BC.Value;
     1705end;
     1706
     1707procedure TCpuZ80.LD_A_BC_Indirect;
     1708begin
     1709  NotImplemented;
     1710end;
     1711
     1712procedure TCpuZ80.DEC_BC;
     1713begin
     1714  NotImplemented;
     1715end;
     1716
     1717procedure TCpuZ80.INC_C;
     1718begin
     1719  NotImplemented;
     1720end;
     1721
     1722procedure TCpuZ80.DEC_C;
     1723begin
     1724  NotImplemented;
     1725end;
     1726
     1727procedure TCpuZ80.LD_C_N;
     1728begin
     1729  NotImplemented;
     1730end;
     1731
     1732procedure TCpuZ80.RRCA;
     1733begin
     1734  NotImplemented;
     1735end;
     1736
     1737procedure TCpuZ80.DJNZ_D;
     1738begin
     1739  Djnz;
     1740end;
     1741
     1742procedure TCpuZ80.LD_DE_NN;
     1743begin
     1744  DE.Value := ReadWord;
     1745end;
     1746
     1747procedure TCpuZ80.LD_DE_Indirect_A;
     1748begin
     1749  NotImplemented;
     1750end;
     1751
     1752procedure TCpuZ80.INC_DE;
     1753begin
     1754  NotImplemented;
     1755end;
     1756
     1757procedure TCpuZ80.INC_D;
     1758begin
     1759  NotImplemented;
     1760end;
     1761
     1762procedure TCpuZ80.DEC_D;
     1763begin
     1764  NotImplemented;
     1765end;
     1766
     1767procedure TCpuZ80.LD_D_N;
     1768begin
     1769  NotImplemented;
     1770end;
     1771
     1772procedure TCpuZ80.RLA;
     1773begin
     1774  NotImplemented;
     1775end;
     1776
     1777procedure TCpuZ80.JR_D;
     1778begin
     1779  Jr(True);
     1780end;
     1781
     1782procedure TCpuZ80.ADD_HL_DE;
     1783begin
     1784  NotImplemented;
     1785end;
     1786
     1787procedure TCpuZ80.LD_A_DE_Indirect;
     1788begin
     1789  NotImplemented;
     1790end;
     1791
     1792procedure TCpuZ80.DEC_DE;
     1793begin
     1794  NotImplemented;
     1795end;
     1796
     1797procedure TCpuZ80.INC_E;
     1798begin
     1799  NotImplemented;
     1800end;
     1801
     1802procedure TCpuZ80.DEC_E;
     1803begin
     1804  NotImplemented;
     1805end;
     1806
     1807procedure TCpuZ80.LD_E_N;
     1808begin
     1809  NotImplemented;
     1810end;
     1811
     1812procedure TCpuZ80.RRA;
     1813begin
     1814  NotImplemented;
     1815end;
     1816
     1817procedure TCpuZ80.JR_NZ_D;
     1818begin
     1819  Jr(not Zero)
     1820end;
     1821
     1822procedure TCpuZ80.LD_HL_NN;
    3641823begin
    3651824  HL.Value := ReadWord;
    3661825end;
    3671826
    368 procedure TCpuZ80.LD_BC_nn;
    369 begin
    370   BC.Value := ReadWord;
    371 end;
    372 
    373 procedure TCpuZ80.LD_DE_nn;
    374 begin
    375   DE.Value := ReadWord;
    376 end;
    377 
    378 procedure TCpuZ80.LD_SP_nn;
     1827procedure TCpuZ80.LD_NN_Indirect_HL;
     1828begin
     1829  NotImplemented;
     1830end;
     1831
     1832procedure TCpuZ80.INC_HL;
     1833begin
     1834  Inc(HL.Value);
     1835end;
     1836
     1837procedure TCpuZ80.INC_H;
     1838begin
     1839  NotImplemented;
     1840end;
     1841
     1842procedure TCpuZ80.DEC_H;
     1843begin
     1844  NotImplemented;
     1845end;
     1846
     1847procedure TCpuZ80.LD_H_N;
     1848begin
     1849  NotImplemented;
     1850end;
     1851
     1852procedure TCpuZ80.DAA;
     1853begin
     1854  NotImplemented;
     1855end;
     1856
     1857procedure TCpuZ80.JR_Z_D;
     1858begin
     1859  NotImplemented;
     1860end;
     1861
     1862procedure TCpuZ80.ADD_HL_HL;
     1863begin
     1864  NotImplemented;
     1865end;
     1866
     1867procedure TCpuZ80.LD_HL_NN_Indirect;
     1868begin
     1869  NotImplemented;
     1870end;
     1871
     1872procedure TCpuZ80.DEC_HL;
     1873begin
     1874  Dec(HL.Value);
     1875end;
     1876
     1877procedure TCpuZ80.INC_L;
     1878begin
     1879  NotImplemented;
     1880end;
     1881
     1882procedure TCpuZ80.DEC_L;
     1883begin
     1884  NotImplemented;
     1885end;
     1886
     1887procedure TCpuZ80.LD_L_N;
     1888begin
     1889  NotImplemented;
     1890end;
     1891
     1892procedure TCpuZ80.CPL;
     1893begin
     1894  NotImplemented;
     1895end;
     1896
     1897procedure TCpuZ80.JR_NC_D;
     1898begin
     1899  Jr(not Carry);
     1900end;
     1901
     1902procedure TCpuZ80.LD_SP_NN;
    3791903begin
    3801904  SP := ReadWord;
    3811905end;
    3821906
    383 procedure TCpuZ80.JP_nn;
     1907procedure TCpuZ80.LD_NN_Indirect_A;
     1908begin
     1909  DoWrite(ReadWord, A);
     1910end;
     1911
     1912procedure TCpuZ80.INC_SP;
     1913begin
     1914  NotImplemented;
     1915end;
     1916
     1917procedure TCpuZ80.INC_HL_Indirect;
     1918begin
     1919  NotImplemented;
     1920end;
     1921
     1922procedure TCpuZ80.DEC_HL_Indirect;
     1923begin
     1924  NotImplemented;
     1925end;
     1926
     1927procedure TCpuZ80.LD_HL_Indirect_N;
     1928begin
     1929  DoWrite(HL.Value, ReadByte);
     1930end;
     1931
     1932procedure TCpuZ80.SCF;
     1933begin
     1934  NotImplemented;
     1935end;
     1936
     1937procedure TCpuZ80.JR_C_D;
     1938begin
     1939  NotImplemented;
     1940end;
     1941
     1942procedure TCpuZ80.ADD_HL_SP;
     1943begin
     1944  NotImplemented;
     1945end;
     1946
     1947procedure TCpuZ80.LD_A_NN_Indirect;
     1948begin
     1949  A := DoRead(ReadWord);
     1950end;
     1951
     1952procedure TCpuZ80.DEC_SP;
     1953begin
     1954  NotImplemented;
     1955end;
     1956
     1957procedure TCpuZ80.INC_A;
     1958begin
     1959  NotImplemented;
     1960end;
     1961
     1962procedure TCpuZ80.DEC_A;
     1963begin
     1964  NotImplemented;
     1965end;
     1966
     1967procedure TCpuZ80.LD_A_N;
     1968begin
     1969  A := ReadByte;
     1970end;
     1971
     1972procedure TCpuZ80.CCF;
     1973begin
     1974  NotImplemented;
     1975end;
     1976
     1977procedure TCpuZ80.LD_B_B;
     1978begin
     1979  NotImplemented;
     1980end;
     1981
     1982procedure TCpuZ80.LD_B_C;
     1983begin
     1984  NotImplemented;
     1985end;
     1986
     1987procedure TCpuZ80.LD_B_D;
     1988begin
     1989  NotImplemented;
     1990end;
     1991
     1992procedure TCpuZ80.LD_B_E;
     1993begin
     1994  NotImplemented;
     1995end;
     1996
     1997procedure TCpuZ80.LD_B_H;
     1998begin
     1999  NotImplemented;
     2000end;
     2001
     2002procedure TCpuZ80.LD_B_L;
     2003begin
     2004  NotImplemented;
     2005end;
     2006
     2007procedure TCpuZ80.LD_B_HL_Indirect;
     2008begin
     2009  NotImplemented;
     2010end;
     2011
     2012procedure TCpuZ80.LD_B_A;
     2013begin
     2014  BC.B := A;
     2015end;
     2016
     2017procedure TCpuZ80.LD_C_B;
     2018begin
     2019  NotImplemented;
     2020end;
     2021
     2022procedure TCpuZ80.LD_C_C;
     2023begin
     2024  NotImplemented;
     2025end;
     2026
     2027procedure TCpuZ80.LD_C_D;
     2028begin
     2029  NotImplemented;
     2030end;
     2031
     2032procedure TCpuZ80.LD_C_E;
     2033begin
     2034  NotImplemented;
     2035end;
     2036
     2037procedure TCpuZ80.LD_C_H;
     2038begin
     2039  NotImplemented;
     2040end;
     2041
     2042procedure TCpuZ80.LD_C_L;
     2043begin
     2044  NotImplemented;
     2045end;
     2046
     2047procedure TCpuZ80.LD_C_HL_Indirect;
     2048begin
     2049  BC.C := DoRead(HL.Value);
     2050end;
     2051
     2052procedure TCpuZ80.LD_C_A;
     2053begin
     2054  BC.C := A;
     2055end;
     2056
     2057procedure TCpuZ80.LD_D_B;
     2058begin
     2059  NotImplemented;
     2060end;
     2061
     2062procedure TCpuZ80.LD_D_C;
     2063begin
     2064  NotImplemented;
     2065end;
     2066
     2067procedure TCpuZ80.LD_D_D;
     2068begin
     2069  NotImplemented;
     2070end;
     2071
     2072procedure TCpuZ80.LD_D_E;
     2073begin
     2074  NotImplemented;
     2075end;
     2076
     2077procedure TCpuZ80.LD_D_H;
     2078begin
     2079  NotImplemented;
     2080end;
     2081
     2082procedure TCpuZ80.LD_D_L;
     2083begin
     2084  NotImplemented;
     2085end;
     2086
     2087procedure TCpuZ80.LD_D_HL_Indirect;
     2088begin
     2089  NotImplemented;
     2090end;
     2091
     2092procedure TCpuZ80.LD_D_A;
     2093begin
     2094  NotImplemented;
     2095end;
     2096
     2097procedure TCpuZ80.LD_E_B;
     2098begin
     2099  NotImplemented;
     2100end;
     2101
     2102procedure TCpuZ80.LD_E_C;
     2103begin
     2104  NotImplemented;
     2105end;
     2106
     2107procedure TCpuZ80.LD_E_D;
     2108begin
     2109  NotImplemented;
     2110end;
     2111
     2112procedure TCpuZ80.LD_E_E;
     2113begin
     2114  NotImplemented;
     2115end;
     2116
     2117procedure TCpuZ80.LD_E_H;
     2118begin
     2119  NotImplemented;
     2120end;
     2121
     2122procedure TCpuZ80.LD_E_L;
     2123begin
     2124  NotImplemented;
     2125end;
     2126
     2127procedure TCpuZ80.LD_E_HL_Indirect;
     2128begin
     2129  NotImplemented;
     2130end;
     2131
     2132procedure TCpuZ80.LD_E_A;
     2133begin
     2134  NotImplemented;
     2135end;
     2136
     2137procedure TCpuZ80.LD_H_B;
     2138begin
     2139  HL.H := BC.B;
     2140end;
     2141
     2142procedure TCpuZ80.LD_H_C;
     2143begin
     2144  NotImplemented;
     2145end;
     2146
     2147procedure TCpuZ80.LD_H_D;
     2148begin
     2149  NotImplemented;
     2150end;
     2151
     2152procedure TCpuZ80.LD_H_E;
     2153begin
     2154  NotImplemented;
     2155end;
     2156
     2157procedure TCpuZ80.LD_H_H;
     2158begin
     2159  NotImplemented;
     2160end;
     2161
     2162procedure TCpuZ80.LD_H_L;
     2163begin
     2164  NotImplemented;
     2165end;
     2166
     2167procedure TCpuZ80.LD_H_HL_Indirect;
     2168begin
     2169  NotImplemented;
     2170end;
     2171
     2172procedure TCpuZ80.LD_H_A;
     2173begin
     2174  NotImplemented;
     2175end;
     2176
     2177procedure TCpuZ80.LD_L_B;
     2178begin
     2179  NotImplemented;
     2180end;
     2181
     2182procedure TCpuZ80.LD_L_C;
     2183begin
     2184  HL.L := BC.C;
     2185end;
     2186
     2187procedure TCpuZ80.LD_L_D;
     2188begin
     2189  NotImplemented;
     2190end;
     2191
     2192procedure TCpuZ80.LD_L_E;
     2193begin
     2194  NotImplemented;
     2195end;
     2196
     2197procedure TCpuZ80.LD_L_H;
     2198begin
     2199  NotImplemented;
     2200end;
     2201
     2202procedure TCpuZ80.LD_L_L;
     2203begin
     2204  NotImplemented;
     2205end;
     2206
     2207procedure TCpuZ80.LD_L_HL_Indirect;
     2208begin
     2209  NotImplemented;
     2210end;
     2211
     2212procedure TCpuZ80.LD_L_A;
     2213begin
     2214  NotImplemented;
     2215end;
     2216
     2217procedure TCpuZ80.LD_HL_Indirect_B;
     2218begin
     2219  NotImplemented;
     2220end;
     2221
     2222procedure TCpuZ80.LD_HL_Indirect_C;
     2223begin
     2224  NotImplemented;
     2225end;
     2226
     2227procedure TCpuZ80.LD_HL_Indirect_D;
     2228begin
     2229  DoWrite(HL.Value, DE.D);
     2230end;
     2231
     2232procedure TCpuZ80.LD_HL_Indirect_E;
     2233begin
     2234  DoWrite(HL.Value, DE.E);
     2235end;
     2236
     2237procedure TCpuZ80.LD_HL_Indirect_H;
     2238begin
     2239  NotImplemented;
     2240end;
     2241
     2242procedure TCpuZ80.LD_HL_Indirect_L;
     2243begin
     2244  NotImplemented;
     2245end;
     2246
     2247procedure TCpuZ80.HALT;
     2248begin
     2249  FThread.Terminate;
     2250end;
     2251
     2252procedure TCpuZ80.LD_HL_Indirect_A;
     2253begin
     2254  NotImplemented;
     2255end;
     2256
     2257procedure TCpuZ80.LD_A_B;
     2258begin
     2259  NotImplemented;
     2260end;
     2261
     2262procedure TCpuZ80.LD_A_C;
     2263begin
     2264  A := BC.C;
     2265end;
     2266
     2267procedure TCpuZ80.LD_A_D;
     2268begin
     2269  NotImplemented;
     2270end;
     2271
     2272procedure TCpuZ80.LD_A_E;
     2273begin
     2274  NotImplemented;
     2275end;
     2276
     2277procedure TCpuZ80.LD_A_H;
     2278begin
     2279  NotImplemented;
     2280end;
     2281
     2282procedure TCpuZ80.LD_A_L;
     2283begin
     2284  NotImplemented;
     2285end;
     2286
     2287procedure TCpuZ80.LD_A_HL_Indirect;
     2288begin
     2289  A := DoRead(HL.Value);
     2290end;
     2291
     2292procedure TCpuZ80.LD_A_A;
     2293begin
     2294  NotImplemented;
     2295end;
     2296
     2297procedure TCpuZ80.ADD_A_B;
     2298begin
     2299  NotImplemented;
     2300end;
     2301
     2302procedure TCpuZ80.ADD_A_C;
     2303begin
     2304  NotImplemented;
     2305end;
     2306
     2307procedure TCpuZ80.ADD_A_D;
     2308begin
     2309  NotImplemented;
     2310end;
     2311
     2312procedure TCpuZ80.ADD_A_E;
     2313begin
     2314  NotImplemented;
     2315end;
     2316
     2317procedure TCpuZ80.ADD_A_H;
     2318begin
     2319  NotImplemented;
     2320end;
     2321
     2322procedure TCpuZ80.ADD_A_L;
     2323begin
     2324  NotImplemented;
     2325end;
     2326
     2327procedure TCpuZ80.ADD_A_HL_Indirect;
     2328begin
     2329  NotImplemented;
     2330end;
     2331
     2332procedure TCpuZ80.ADD_A_A;
     2333begin
     2334  NotImplemented;
     2335end;
     2336
     2337procedure TCpuZ80.ADC_A_B;
     2338begin
     2339  NotImplemented;
     2340end;
     2341
     2342procedure TCpuZ80.ADC_A_C;
     2343begin
     2344  NotImplemented;
     2345end;
     2346
     2347procedure TCpuZ80.ADC_A_D;
     2348begin
     2349  NotImplemented;
     2350end;
     2351
     2352procedure TCpuZ80.ADC_A_E;
     2353begin
     2354  NotImplemented;
     2355end;
     2356
     2357procedure TCpuZ80.ADC_A_H;
     2358begin
     2359  NotImplemented;
     2360end;
     2361
     2362procedure TCpuZ80.ADC_A_L;
     2363begin
     2364  NotImplemented;
     2365end;
     2366
     2367procedure TCpuZ80.ADC_A_HL_Indirect;
     2368begin
     2369  NotImplemented;
     2370end;
     2371
     2372procedure TCpuZ80.ADC_A_A;
     2373begin
     2374  NotImplemented;
     2375end;
     2376
     2377procedure TCpuZ80.SUB_B;
     2378begin
     2379  NotImplemented;
     2380end;
     2381
     2382procedure TCpuZ80.SUB_C;
     2383begin
     2384  NotImplemented;
     2385end;
     2386
     2387procedure TCpuZ80.SUB_D;
     2388begin
     2389  NotImplemented;
     2390end;
     2391
     2392procedure TCpuZ80.SUB_E;
     2393begin
     2394  NotImplemented;
     2395end;
     2396
     2397procedure TCpuZ80.SUB_H;
     2398begin
     2399  NotImplemented;
     2400end;
     2401
     2402procedure TCpuZ80.SUB_L;
     2403begin
     2404  NotImplemented;
     2405end;
     2406
     2407procedure TCpuZ80.SUB_HL_Indirect;
     2408begin
     2409  NotImplemented;
     2410end;
     2411
     2412procedure TCpuZ80.SUB_A;
     2413begin
     2414  NotImplemented;
     2415end;
     2416
     2417procedure TCpuZ80.SBC_A_B;
     2418begin
     2419  NotImplemented;
     2420end;
     2421
     2422procedure TCpuZ80.SBC_A_C;
     2423begin
     2424  NotImplemented;
     2425end;
     2426
     2427procedure TCpuZ80.SBC_A_D;
     2428begin
     2429  NotImplemented;
     2430end;
     2431
     2432procedure TCpuZ80.SBC_A_E;
     2433begin
     2434  NotImplemented;
     2435end;
     2436
     2437procedure TCpuZ80.SBC_A_H;
     2438begin
     2439  NotImplemented;
     2440end;
     2441
     2442procedure TCpuZ80.SBC_A_L;
     2443begin
     2444  NotImplemented;
     2445end;
     2446
     2447procedure TCpuZ80.SBC_A_HL_Indirect;
     2448begin
     2449  NotImplemented;
     2450end;
     2451
     2452procedure TCpuZ80.SBC_A_A;
     2453begin
     2454  NotImplemented;
     2455end;
     2456
     2457procedure TCpuZ80.AND_B;
     2458begin
     2459  NotImplemented;
     2460end;
     2461
     2462procedure TCpuZ80.AND_C;
     2463begin
     2464  NotImplemented;
     2465end;
     2466
     2467procedure TCpuZ80.AND_D;
     2468begin
     2469  NotImplemented;
     2470end;
     2471
     2472procedure TCpuZ80.AND_E;
     2473begin
     2474  NotImplemented;
     2475end;
     2476
     2477procedure TCpuZ80.AND_H;
     2478begin
     2479  NotImplemented;
     2480end;
     2481
     2482procedure TCpuZ80.AND_L;
     2483begin
     2484  NotImplemented;
     2485end;
     2486
     2487procedure TCpuZ80.AND_HL_Indirect;
     2488begin
     2489  NotImplemented;
     2490end;
     2491
     2492procedure TCpuZ80.AND_A;
     2493begin
     2494  NotImplemented;
     2495end;
     2496
     2497procedure TCpuZ80.XOR_B;
     2498begin
     2499  A := A xor BC.B;
     2500end;
     2501
     2502procedure TCpuZ80.XOR_C;
     2503begin
     2504  NotImplemented;
     2505end;
     2506
     2507procedure TCpuZ80.XOR_D;
     2508begin
     2509  NotImplemented;
     2510end;
     2511
     2512procedure TCpuZ80.XOR_E;
     2513begin
     2514  NotImplemented;
     2515end;
     2516
     2517procedure TCpuZ80.XOR_H;
     2518begin
     2519  NotImplemented;
     2520end;
     2521
     2522procedure TCpuZ80.XOR_L;
     2523begin
     2524  NotImplemented;
     2525end;
     2526
     2527procedure TCpuZ80.XOR_HL_Indirect;
     2528begin
     2529  NotImplemented;
     2530end;
     2531
     2532procedure TCpuZ80.XOR_A;
     2533begin
     2534  A := A xor A;
     2535end;
     2536
     2537procedure TCpuZ80.OR_B;
     2538begin
     2539  NotImplemented;
     2540end;
     2541
     2542procedure TCpuZ80.OR_C;
     2543begin
     2544  NotImplemented;
     2545end;
     2546
     2547procedure TCpuZ80.OR_D;
     2548begin
     2549  NotImplemented;
     2550end;
     2551
     2552procedure TCpuZ80.OR_E;
     2553begin
     2554  NotImplemented;
     2555end;
     2556
     2557procedure TCpuZ80.OR_H;
     2558begin
     2559  NotImplemented;
     2560end;
     2561
     2562procedure TCpuZ80.OR_L;
     2563begin
     2564  NotImplemented;
     2565end;
     2566
     2567procedure TCpuZ80.OR_HL_Indirect;
     2568begin
     2569  NotImplemented;
     2570end;
     2571
     2572procedure TCpuZ80.OR_A;
     2573begin
     2574  A := A or A;
     2575end;
     2576
     2577procedure TCpuZ80.CP_B;
     2578begin
     2579  NotImplemented;
     2580end;
     2581
     2582procedure TCpuZ80.CP_C;
     2583begin
     2584  NotImplemented;
     2585end;
     2586
     2587procedure TCpuZ80.CP_D;
     2588begin
     2589  Cp(DE.D);
     2590end;
     2591
     2592procedure TCpuZ80.CP_E;
     2593begin
     2594  Cp(DE.E);
     2595end;
     2596
     2597procedure TCpuZ80.CP_H;
     2598begin
     2599  NotImplemented;
     2600end;
     2601
     2602procedure TCpuZ80.CP_L;
     2603begin
     2604  NotImplemented;
     2605end;
     2606
     2607procedure TCpuZ80.CP_HL_Indirect;
     2608begin
     2609  NotImplemented;
     2610end;
     2611
     2612procedure TCpuZ80.CP_A;
     2613begin
     2614  NotImplemented;
     2615end;
     2616
     2617procedure TCpuZ80.RET_NZ;
     2618begin
     2619  NotImplemented;
     2620end;
     2621
     2622procedure TCpuZ80.POP_BC;
     2623begin
     2624  NotImplemented;
     2625end;
     2626
     2627procedure TCpuZ80.JP_NZ_NN;
     2628begin
     2629  Jp(not Zero);
     2630end;
     2631
     2632procedure TCpuZ80.JP_NN;
    3842633begin
    3852634  PC := ReadWord;
    3862635end;
    3872636
    388 procedure TCpuZ80.LD_A_n;
    389 begin
    390   A := ReadByte;
    391 end;
    392 
    393 procedure TCpuZ80.LD_B_n;
    394 begin
    395   BC.B := ReadByte;
    396 end;
    397 
    398 procedure TCpuZ80.LD_A_C;
    399 begin
    400   A := BC.C;
    401 end;
    402 
    403 procedure TCpuZ80.LD_HL_Indirect_n;
    404 begin
    405   DoWrite(HL.Value, ReadByte);
    406 end;
    407 
    408 procedure TCpuZ80.LD_nn_Indirect_A;
    409 begin
    410   DoWrite(ReadWord, A);
    411 end;
    412 
    413 procedure TCpuZ80.LD_HL_Indirect_D;
    414 begin
    415   DoWrite(HL.Value, DE.D);
    416 end;
    417 
    418 procedure TCpuZ80.LD_HL_Indirect_E;
    419 begin
    420   DoWrite(HL.Value, DE.E);
    421 end;
    422 
    423 procedure TCpuZ80.LD_C_HL_Indirect;
    424 begin
    425   BC.C := DoRead(HL.Value);
    426 end;
    427 
    428 procedure TCpuZ80.LD_A_HL_Indirect;
    429 begin
    430   A := DoRead(HL.Value);
    431 end;
    432 
    433 procedure TCpuZ80.LD_BC_Indirect_A;
    434 begin
    435   DoWrite(BC.Value, A);
     2637procedure TCpuZ80.CALL_NZ_NN;
     2638begin
     2639  NotImplemented;
     2640end;
     2641
     2642procedure TCpuZ80.PUSH_BC;
     2643begin
     2644  PushWord(BC.Value)
     2645end;
     2646
     2647procedure TCpuZ80.ADD_A_N;
     2648begin
     2649  NotImplemented;
     2650end;
     2651
     2652procedure TCpuZ80.RST_00H;
     2653begin
     2654  Call($00);
     2655end;
     2656
     2657procedure TCpuZ80.RET_Z;
     2658begin
     2659  RetCond(Zero);
     2660end;
     2661
     2662procedure TCpuZ80.RET;
     2663begin
     2664  RetCond(True);
     2665end;
     2666
     2667procedure TCpuZ80.JP_Z_NN;
     2668begin
     2669  NotImplemented;
     2670end;
     2671
     2672procedure TCpuZ80.CALL_Z_NN;
     2673begin
     2674  NotImplemented;
     2675end;
     2676
     2677procedure TCpuZ80.CALL_NN;
     2678var
     2679  TempWord: Word;
     2680begin
     2681  TempWord := ReadWord;
     2682  if DebugMode = dmStepOver then begin
     2683    DebugStopAddress := PC;
     2684    DebugMode := dmStopAddress;
     2685  end;
     2686  Call(TempWord);
     2687end;
     2688
     2689procedure TCpuZ80.ADC_A_N;
     2690begin
     2691  NotImplemented;
     2692end;
     2693
     2694procedure TCpuZ80.RST_08H;
     2695begin
     2696  Call($08);
     2697end;
     2698
     2699procedure TCpuZ80.RET_NC;
     2700begin
     2701  NotImplemented;
     2702end;
     2703
     2704procedure TCpuZ80.POP_DE;
     2705begin
     2706  NotImplemented;
     2707end;
     2708
     2709procedure TCpuZ80.JP_NC_NN;
     2710begin
     2711  NotImplemented;
     2712end;
     2713
     2714procedure TCpuZ80.OUT_N_Indirect_A;
     2715begin
     2716  DoOutput(ReadByte, A);
     2717end;
     2718
     2719procedure TCpuZ80.CALL_NC_NN;
     2720begin
     2721  NotImplemented;
     2722end;
     2723
     2724procedure TCpuZ80.PUSH_DE;
     2725begin
     2726  PushWord(DE.Value);
     2727end;
     2728
     2729procedure TCpuZ80.SUB_N;
     2730begin
     2731  NotImplemented;
     2732end;
     2733
     2734procedure TCpuZ80.RST_10H;
     2735begin
     2736  Call($10);
     2737end;
     2738
     2739procedure TCpuZ80.RET_C;
     2740begin
     2741  NotImplemented;
     2742end;
     2743
     2744procedure TCpuZ80.EXX;
     2745begin
     2746  NotImplemented;
     2747end;
     2748
     2749procedure TCpuZ80.JP_C_NN;
     2750begin
     2751  NotImplemented;
     2752end;
     2753
     2754procedure TCpuZ80.IN_A_N_Indirect;
     2755begin
     2756  NotImplemented;
     2757end;
     2758
     2759procedure TCpuZ80.CALL_C_NN;
     2760begin
     2761  NotImplemented;
     2762end;
     2763
     2764procedure TCpuZ80.SBC_A_N;
     2765begin
     2766  NotImplemented;
     2767end;
     2768
     2769procedure TCpuZ80.RST_18H;
     2770begin
     2771  Call($18);
     2772end;
     2773
     2774procedure TCpuZ80.RET_PO;
     2775begin
     2776  NotImplemented;
     2777end;
     2778
     2779procedure TCpuZ80.POP_HL;
     2780begin
     2781  NotImplemented;
     2782end;
     2783
     2784procedure TCpuZ80.JP_PO_NN;
     2785begin
     2786  NotImplemented;
     2787end;
     2788
     2789procedure TCpuZ80.EX_SP_Indirect_HL;
     2790begin
     2791  NotImplemented;
     2792end;
     2793
     2794procedure TCpuZ80.CALL_PO_NN;
     2795begin
     2796  NotImplemented;
     2797end;
     2798
     2799procedure TCpuZ80.PUSH_HL;
     2800begin
     2801  PushWord(HL.Value);
     2802end;
     2803
     2804procedure TCpuZ80.AND_N;
     2805begin
     2806  A := A and ReadByte;
     2807end;
     2808
     2809procedure TCpuZ80.RST_20H;
     2810begin
     2811  Call($20);
     2812end;
     2813
     2814procedure TCpuZ80.RET_PE;
     2815begin
     2816  NotImplemented;
     2817end;
     2818
     2819procedure TCpuZ80.JP_HL_Indirect;
     2820begin
     2821  NotImplemented;
     2822end;
     2823
     2824procedure TCpuZ80.JP_PE_NN;
     2825begin
     2826  NotImplemented;
     2827end;
     2828
     2829procedure TCpuZ80.EX_DE_HL;
     2830var
     2831  TempWord: Word;
     2832begin
     2833  TempWord := DE.Value;
     2834  DE.Value := HL.Value;
     2835  HL.Value := TempWord;
     2836end;
     2837
     2838procedure TCpuZ80.CALL_PE_NN;
     2839begin
     2840  NotImplemented;
     2841end;
     2842
     2843procedure TCpuZ80.XOR_N;
     2844begin
     2845  NotImplemented;
     2846end;
     2847
     2848procedure TCpuZ80.RST_28H;
     2849begin
     2850  Call($28);
     2851end;
     2852
     2853procedure TCpuZ80.RET_P;
     2854begin
     2855  NotImplemented;
     2856end;
     2857
     2858procedure TCpuZ80.POP_AF;
     2859begin
     2860  NotImplemented;
     2861end;
     2862
     2863procedure TCpuZ80.JP_P_NN;
     2864begin
     2865  NotImplemented;
     2866end;
     2867
     2868procedure TCpuZ80.DI;
     2869begin
     2870  InterruptEnabled := False;
     2871end;
     2872
     2873procedure TCpuZ80.CALL_P_NN;
     2874begin
     2875  NotImplemented;
     2876end;
     2877
     2878procedure TCpuZ80.PUSH_AF;
     2879begin
     2880  PushWord(A shl 8);
     2881end;
     2882
     2883procedure TCpuZ80.OR_N;
     2884begin
     2885  NotImplemented;
     2886end;
     2887
     2888procedure TCpuZ80.RST_30H;
     2889begin
     2890  Call($30);
     2891end;
     2892
     2893procedure TCpuZ80.RET_M;
     2894begin
     2895  NotImplemented;
     2896end;
     2897
     2898procedure TCpuZ80.LD_SP_HL;
     2899begin
     2900  NotImplemented;
     2901end;
     2902
     2903procedure TCpuZ80.JP_M_NN;
     2904begin
     2905  NotImplemented;
     2906end;
     2907
     2908procedure TCpuZ80.EI;
     2909begin
     2910  InterruptEnabled := True;
     2911end;
     2912
     2913procedure TCpuZ80.CALL_M_NN;
     2914begin
     2915  NotImplemented;
     2916end;
     2917
     2918procedure TCpuZ80.CP_N;
     2919begin
     2920  Cp(ReadByte);
     2921end;
     2922
     2923procedure TCpuZ80.RST_38H;
     2924begin
     2925  Call($38);
     2926end;
     2927
     2928procedure TCpuZ80.IN_B_C_Indirect;
     2929begin
     2930  NotImplemented;
     2931end;
     2932
     2933procedure TCpuZ80.OUT_C_Indirect_B;
     2934begin
     2935  NotImplemented;
     2936end;
     2937
     2938procedure TCpuZ80.SBC_HL_BC;
     2939begin
     2940  NotImplemented;
     2941end;
     2942
     2943procedure TCpuZ80.LD_NN_Indirect_BC;
     2944begin
     2945  NotImplemented;
     2946end;
     2947
     2948procedure TCpuZ80.NEG;
     2949begin
     2950  NotImplemented;
     2951end;
     2952
     2953procedure TCpuZ80.RETN;
     2954begin
     2955  NotImplemented;
     2956end;
     2957
     2958procedure TCpuZ80.IM_0;
     2959begin
     2960  NotImplemented;
     2961end;
     2962
     2963procedure TCpuZ80.LD_I_A;
     2964begin
     2965  NotImplemented;
     2966end;
     2967
     2968procedure TCpuZ80.IN_C_C_Indirect;
     2969begin
     2970  NotImplemented;
     2971end;
     2972
     2973procedure TCpuZ80.OUT_C_Indirect_C;
     2974begin
     2975  NotImplemented;
     2976end;
     2977
     2978procedure TCpuZ80.ADC_HL_BC;
     2979begin
     2980  NotImplemented;
     2981end;
     2982
     2983procedure TCpuZ80.LD_BC_NN_Indirect;
     2984begin
     2985  NotImplemented;
     2986end;
     2987
     2988procedure TCpuZ80.RETI;
     2989begin
     2990  NotImplemented;
     2991end;
     2992
     2993procedure TCpuZ80.LD_R_A;
     2994begin
     2995  NotImplemented;
     2996end;
     2997
     2998procedure TCpuZ80.IN_D_C_Indirect;
     2999begin
     3000  NotImplemented;
     3001end;
     3002
     3003procedure TCpuZ80.OUT_C_Indirect_D;
     3004begin
     3005  NotImplemented;
     3006end;
     3007
     3008procedure TCpuZ80.SBC_HL_DE;
     3009begin
     3010  HL.Value := HL.Value - DE.Value;
     3011end;
     3012
     3013procedure TCpuZ80.LD_NN_Indirect_DE;
     3014begin
     3015  NotImplemented;
     3016end;
     3017
     3018procedure TCpuZ80.IM_1;
     3019begin
     3020  InterruptMode := 1;
     3021end;
     3022
     3023procedure TCpuZ80.LD_A_I;
     3024begin
     3025  NotImplemented;
     3026end;
     3027
     3028procedure TCpuZ80.IN_E_C_Indirect;
     3029begin
     3030  NotImplemented;
     3031end;
     3032
     3033procedure TCpuZ80.OUT_C_Indirect_E;
     3034begin
     3035  NotImplemented;
     3036end;
     3037
     3038procedure TCpuZ80.ADC_HL_DE;
     3039begin
     3040  NotImplemented;
     3041end;
     3042
     3043procedure TCpuZ80.LD_DE_NN_Indirect;
     3044begin
     3045  NotImplemented;
     3046end;
     3047
     3048procedure TCpuZ80.IM_2;
     3049begin
     3050  NotImplemented;
     3051end;
     3052
     3053procedure TCpuZ80.LD_A_R;
     3054begin
     3055  NotImplemented;
     3056end;
     3057
     3058procedure TCpuZ80.IN_H_C_Indirect;
     3059begin
     3060  NotImplemented;
     3061end;
     3062
     3063procedure TCpuZ80.OUT_C_Indirect_H;
     3064begin
     3065  NotImplemented;
     3066end;
     3067
     3068procedure TCpuZ80.SBC_HL_HL;
     3069begin
     3070  NotImplemented;
     3071end;
     3072
     3073procedure TCpuZ80.RRD;
     3074begin
     3075  NotImplemented;
     3076end;
     3077
     3078procedure TCpuZ80.IN_L_C_Indirect;
     3079begin
     3080  NotImplemented;
     3081end;
     3082
     3083procedure TCpuZ80.OUT_C_Indirect_L;
     3084begin
     3085  NotImplemented;
     3086end;
     3087
     3088procedure TCpuZ80.ADC_HL_HL;
     3089begin
     3090  NotImplemented;
     3091end;
     3092
     3093procedure TCpuZ80.RLD;
     3094begin
     3095  NotImplemented;
     3096end;
     3097
     3098procedure TCpuZ80.SBC_HL_SP;
     3099begin
     3100  NotImplemented;
     3101end;
     3102
     3103procedure TCpuZ80.LD_NN_Indirect_SP;
     3104begin
     3105  NotImplemented;
     3106end;
     3107
     3108procedure TCpuZ80.IN_A_C_Indirect;
     3109begin
     3110  NotImplemented;
     3111end;
     3112
     3113procedure TCpuZ80.OUT_C_Indirect_A;
     3114begin
     3115  NotImplemented;
     3116end;
     3117
     3118procedure TCpuZ80.ADC_HL_SP;
     3119begin
     3120  NotImplemented;
     3121end;
     3122
     3123procedure TCpuZ80.LD_SP_NN_Indirect;
     3124begin
     3125  NotImplemented;
     3126end;
     3127
     3128procedure TCpuZ80.LDI;
     3129begin
     3130  NotImplemented;
     3131end;
     3132
     3133procedure TCpuZ80.CPI;
     3134begin
     3135  NotImplemented;
     3136end;
     3137
     3138procedure TCpuZ80.INI;
     3139begin
     3140  NotImplemented;
     3141end;
     3142
     3143procedure TCpuZ80.OUTI;
     3144begin
     3145  NotImplemented;
     3146end;
     3147
     3148procedure TCpuZ80.LDD;
     3149begin
     3150  NotImplemented;
     3151end;
     3152
     3153procedure TCpuZ80.CPD;
     3154begin
     3155  NotImplemented;
     3156end;
     3157
     3158procedure TCpuZ80.IND;
     3159begin
     3160  NotImplemented;
     3161end;
     3162
     3163procedure TCpuZ80.OUTD;
     3164begin
     3165  NotImplemented;
     3166end;
     3167
     3168procedure TCpuZ80.LDIR;
     3169begin
     3170  NotImplemented;
     3171end;
     3172
     3173procedure TCpuZ80.CPIR;
     3174begin
     3175  NotImplemented;
     3176end;
     3177
     3178procedure TCpuZ80.INIR;
     3179begin
     3180  NotImplemented;
     3181end;
     3182
     3183procedure TCpuZ80.OTIR;
     3184begin
     3185  NotImplemented;
     3186end;
     3187
     3188procedure TCpuZ80.LDDR;
     3189begin
     3190  NotImplemented;
     3191end;
     3192
     3193procedure TCpuZ80.CPDR;
     3194begin
     3195  NotImplemented;
     3196end;
     3197
     3198procedure TCpuZ80.INDR;
     3199begin
     3200  NotImplemented;
     3201end;
     3202
     3203procedure TCpuZ80.OTDR;
     3204begin
     3205  NotImplemented;
     3206end;
     3207
     3208procedure TCpuZ80.RLC_B;
     3209begin
     3210  NotImplemented;
     3211end;
     3212
     3213procedure TCpuZ80.RLC_C;
     3214begin
     3215  NotImplemented;
     3216end;
     3217
     3218procedure TCpuZ80.RLC_D;
     3219begin
     3220  NotImplemented;
     3221end;
     3222
     3223procedure TCpuZ80.RLC_E;
     3224begin
     3225  NotImplemented;
     3226end;
     3227
     3228procedure TCpuZ80.RLC_H;
     3229begin
     3230  NotImplemented;
     3231end;
     3232
     3233procedure TCpuZ80.RLC_L;
     3234begin
     3235  NotImplemented;
     3236end;
     3237
     3238procedure TCpuZ80.RLC_HL_Indirect;
     3239begin
     3240  NotImplemented;
     3241end;
     3242
     3243procedure TCpuZ80.RLC_A;
     3244begin
     3245  NotImplemented;
     3246end;
     3247
     3248procedure TCpuZ80.RRC_B;
     3249begin
     3250  NotImplemented;
     3251end;
     3252
     3253procedure TCpuZ80.RRC_C;
     3254begin
     3255  NotImplemented;
     3256end;
     3257
     3258procedure TCpuZ80.RRC_D;
     3259begin
     3260  NotImplemented;
     3261end;
     3262
     3263procedure TCpuZ80.RRC_E;
     3264begin
     3265  NotImplemented;
     3266end;
     3267
     3268procedure TCpuZ80.RRC_H;
     3269begin
     3270  NotImplemented;
     3271end;
     3272
     3273procedure TCpuZ80.RRC_L;
     3274begin
     3275  NotImplemented;
     3276end;
     3277
     3278procedure TCpuZ80.RRC_HL_Indirect;
     3279begin
     3280  NotImplemented;
     3281end;
     3282
     3283procedure TCpuZ80.RRC_A;
     3284begin
     3285  NotImplemented;
     3286end;
     3287
     3288procedure TCpuZ80.RL_B;
     3289begin
     3290  NotImplemented;
     3291end;
     3292
     3293procedure TCpuZ80.RL_C;
     3294begin
     3295  NotImplemented;
     3296end;
     3297
     3298procedure TCpuZ80.RL_D;
     3299begin
     3300  NotImplemented;
     3301end;
     3302
     3303procedure TCpuZ80.RL_E;
     3304begin
     3305  NotImplemented;
     3306end;
     3307
     3308procedure TCpuZ80.RL_H;
     3309begin
     3310  NotImplemented;
     3311end;
     3312
     3313procedure TCpuZ80.RL_L;
     3314begin
     3315  NotImplemented;
     3316end;
     3317
     3318procedure TCpuZ80.RL_HL_Indirect;
     3319begin
     3320  NotImplemented;
     3321end;
     3322
     3323procedure TCpuZ80.RL_A;
     3324begin
     3325  NotImplemented;
     3326end;
     3327
     3328procedure TCpuZ80.RR_B;
     3329begin
     3330  NotImplemented;
     3331end;
     3332
     3333procedure TCpuZ80.RR_C;
     3334begin
     3335  NotImplemented;
     3336end;
     3337
     3338procedure TCpuZ80.RR_D;
     3339begin
     3340  NotImplemented;
     3341end;
     3342
     3343procedure TCpuZ80.RR_E;
     3344begin
     3345  NotImplemented;
     3346end;
     3347
     3348procedure TCpuZ80.RR_H;
     3349begin
     3350  NotImplemented;
     3351end;
     3352
     3353procedure TCpuZ80.RR_L;
     3354begin
     3355  NotImplemented;
     3356end;
     3357
     3358procedure TCpuZ80.RR_HL_Indirect;
     3359begin
     3360  NotImplemented;
     3361end;
     3362
     3363procedure TCpuZ80.RR_A;
     3364begin
     3365  NotImplemented;
     3366end;
     3367
     3368procedure TCpuZ80.SLA_B;
     3369begin
     3370  NotImplemented;
     3371end;
     3372
     3373procedure TCpuZ80.SLA_C;
     3374begin
     3375  NotImplemented;
     3376end;
     3377
     3378procedure TCpuZ80.SLA_D;
     3379begin
     3380  NotImplemented;
     3381end;
     3382
     3383procedure TCpuZ80.SLA_E;
     3384begin
     3385  NotImplemented;
     3386end;
     3387
     3388procedure TCpuZ80.SLA_H;
     3389begin
     3390  NotImplemented;
     3391end;
     3392
     3393procedure TCpuZ80.SLA_L;
     3394begin
     3395  NotImplemented;
     3396end;
     3397
     3398procedure TCpuZ80.SLA_HL_Indirect;
     3399begin
     3400  NotImplemented;
     3401end;
     3402
     3403procedure TCpuZ80.SLA_A;
     3404begin
     3405  NotImplemented;
     3406end;
     3407
     3408procedure TCpuZ80.SRA_B;
     3409begin
     3410  NotImplemented;
     3411end;
     3412
     3413procedure TCpuZ80.SRA_C;
     3414begin
     3415  NotImplemented;
     3416end;
     3417
     3418procedure TCpuZ80.SRA_D;
     3419begin
     3420  NotImplemented;
     3421end;
     3422
     3423procedure TCpuZ80.SRA_E;
     3424begin
     3425  NotImplemented;
     3426end;
     3427
     3428procedure TCpuZ80.SRA_H;
     3429begin
     3430  NotImplemented;
     3431end;
     3432
     3433procedure TCpuZ80.SRA_L;
     3434begin
     3435  NotImplemented;
     3436end;
     3437
     3438procedure TCpuZ80.SRA_HL_Indirect;
     3439begin
     3440  NotImplemented;
     3441end;
     3442
     3443procedure TCpuZ80.SRA_A;
     3444begin
     3445  NotImplemented;
     3446end;
     3447
     3448procedure TCpuZ80.SRL_B;
     3449begin
     3450  NotImplemented;
     3451end;
     3452
     3453procedure TCpuZ80.SRL_C;
     3454begin
     3455  NotImplemented;
     3456end;
     3457
     3458procedure TCpuZ80.SRL_D;
     3459begin
     3460  NotImplemented;
     3461end;
     3462
     3463procedure TCpuZ80.SRL_E;
     3464begin
     3465  NotImplemented;
     3466end;
     3467
     3468procedure TCpuZ80.SRL_H;
     3469begin
     3470  NotImplemented;
     3471end;
     3472
     3473procedure TCpuZ80.SRL_L;
     3474begin
     3475  NotImplemented;
     3476end;
     3477
     3478procedure TCpuZ80.SRL_HL_Indirect;
     3479begin
     3480  NotImplemented;
     3481end;
     3482
     3483procedure TCpuZ80.SRL_A;
     3484begin
     3485  NotImplemented;
     3486end;
     3487
     3488procedure TCpuZ80.BIT_0_B;
     3489begin
     3490  NotImplemented;
     3491end;
     3492
     3493procedure TCpuZ80.BIT_0_C;
     3494begin
     3495  NotImplemented;
     3496end;
     3497
     3498procedure TCpuZ80.BIT_0_D;
     3499begin
     3500  NotImplemented;
     3501end;
     3502
     3503procedure TCpuZ80.BIT_0_E;
     3504begin
     3505  NotImplemented;
     3506end;
     3507
     3508procedure TCpuZ80.BIT_0_H;
     3509begin
     3510  NotImplemented;
     3511end;
     3512
     3513procedure TCpuZ80.BIT_0_L;
     3514begin
     3515  NotImplemented;
     3516end;
     3517
     3518procedure TCpuZ80.BIT_0_HL_Indirect;
     3519begin
     3520  NotImplemented;
     3521end;
     3522
     3523procedure TCpuZ80.BIT_0_A;
     3524begin
     3525  NotImplemented;
     3526end;
     3527
     3528procedure TCpuZ80.BIT_1_B;
     3529begin
     3530  NotImplemented;
     3531end;
     3532
     3533procedure TCpuZ80.BIT_1_C;
     3534begin
     3535  NotImplemented;
     3536end;
     3537
     3538procedure TCpuZ80.BIT_1_D;
     3539begin
     3540  NotImplemented;
     3541end;
     3542
     3543procedure TCpuZ80.BIT_1_E;
     3544begin
     3545  NotImplemented;
     3546end;
     3547
     3548procedure TCpuZ80.BIT_1_H;
     3549begin
     3550  NotImplemented;
     3551end;
     3552
     3553procedure TCpuZ80.BIT_1_L;
     3554begin
     3555  NotImplemented;
     3556end;
     3557
     3558procedure TCpuZ80.BIT_1_HL_Indirect;
     3559begin
     3560  NotImplemented;
     3561end;
     3562
     3563procedure TCpuZ80.BIT_1_A;
     3564begin
     3565  NotImplemented;
     3566end;
     3567
     3568procedure TCpuZ80.BIT_2_B;
     3569begin
     3570  NotImplemented;
     3571end;
     3572
     3573procedure TCpuZ80.BIT_2_C;
     3574begin
     3575  NotImplemented;
     3576end;
     3577
     3578procedure TCpuZ80.BIT_2_D;
     3579begin
     3580  NotImplemented;
     3581end;
     3582
     3583procedure TCpuZ80.BIT_2_E;
     3584begin
     3585  NotImplemented;
     3586end;
     3587
     3588procedure TCpuZ80.BIT_2_H;
     3589begin
     3590  NotImplemented;
     3591end;
     3592
     3593procedure TCpuZ80.BIT_2_L;
     3594begin
     3595  NotImplemented;
     3596end;
     3597
     3598procedure TCpuZ80.BIT_2_HL_Indirect;
     3599begin
     3600  NotImplemented;
     3601end;
     3602
     3603procedure TCpuZ80.BIT_2_A;
     3604begin
     3605  NotImplemented;
     3606end;
     3607
     3608procedure TCpuZ80.BIT_3_B;
     3609begin
     3610  NotImplemented;
     3611end;
     3612
     3613procedure TCpuZ80.BIT_3_C;
     3614begin
     3615  NotImplemented;
     3616end;
     3617
     3618procedure TCpuZ80.BIT_3_D;
     3619begin
     3620  NotImplemented;
     3621end;
     3622
     3623procedure TCpuZ80.BIT_3_E;
     3624begin
     3625  NotImplemented;
     3626end;
     3627
     3628procedure TCpuZ80.BIT_3_H;
     3629begin
     3630  NotImplemented;
     3631end;
     3632
     3633procedure TCpuZ80.BIT_3_L;
     3634begin
     3635  NotImplemented;
     3636end;
     3637
     3638procedure TCpuZ80.BIT_3_HL_Indirect;
     3639begin
     3640  NotImplemented;
     3641end;
     3642
     3643procedure TCpuZ80.BIT_3_A;
     3644begin
     3645  NotImplemented;
     3646end;
     3647
     3648procedure TCpuZ80.BIT_4_B;
     3649begin
     3650  NotImplemented;
     3651end;
     3652
     3653procedure TCpuZ80.BIT_4_C;
     3654begin
     3655  NotImplemented;
     3656end;
     3657
     3658procedure TCpuZ80.BIT_4_D;
     3659begin
     3660  NotImplemented;
     3661end;
     3662
     3663procedure TCpuZ80.BIT_4_E;
     3664begin
     3665  NotImplemented;
     3666end;
     3667
     3668procedure TCpuZ80.BIT_4_H;
     3669begin
     3670  NotImplemented;
     3671end;
     3672
     3673procedure TCpuZ80.BIT_4_L;
     3674begin
     3675  NotImplemented;
     3676end;
     3677
     3678procedure TCpuZ80.BIT_4_HL_Indirect;
     3679begin
     3680  NotImplemented;
     3681end;
     3682
     3683procedure TCpuZ80.BIT_4_A;
     3684begin
     3685  NotImplemented;
     3686end;
     3687
     3688procedure TCpuZ80.BIT_5_B;
     3689begin
     3690  NotImplemented;
     3691end;
     3692
     3693procedure TCpuZ80.BIT_5_C;
     3694begin
     3695  NotImplemented;
     3696end;
     3697
     3698procedure TCpuZ80.BIT_5_D;
     3699begin
     3700  NotImplemented;
     3701end;
     3702
     3703procedure TCpuZ80.BIT_5_E;
     3704begin
     3705  NotImplemented;
     3706end;
     3707
     3708procedure TCpuZ80.BIT_5_H;
     3709begin
     3710  NotImplemented;
     3711end;
     3712
     3713procedure TCpuZ80.BIT_5_L;
     3714begin
     3715  NotImplemented;
     3716end;
     3717
     3718procedure TCpuZ80.BIT_5_HL_Indirect;
     3719begin
     3720  NotImplemented;
     3721end;
     3722
     3723procedure TCpuZ80.BIT_5_A;
     3724begin
     3725  NotImplemented;
     3726end;
     3727
     3728procedure TCpuZ80.BIT_6_B;
     3729begin
     3730  NotImplemented;
     3731end;
     3732
     3733procedure TCpuZ80.BIT_6_C;
     3734begin
     3735  NotImplemented;
     3736end;
     3737
     3738procedure TCpuZ80.BIT_6_D;
     3739begin
     3740  NotImplemented;
     3741end;
     3742
     3743procedure TCpuZ80.BIT_6_E;
     3744begin
     3745  NotImplemented;
     3746end;
     3747
     3748procedure TCpuZ80.BIT_6_H;
     3749begin
     3750  NotImplemented;
     3751end;
     3752
     3753procedure TCpuZ80.BIT_6_L;
     3754begin
     3755  NotImplemented;
     3756end;
     3757
     3758procedure TCpuZ80.BIT_6_HL_Indirect;
     3759begin
     3760  NotImplemented;
     3761end;
     3762
     3763procedure TCpuZ80.BIT_6_A;
     3764begin
     3765  NotImplemented;
     3766end;
     3767
     3768procedure TCpuZ80.BIT_7_B;
     3769begin
     3770  NotImplemented;
     3771end;
     3772
     3773procedure TCpuZ80.BIT_7_C;
     3774begin
     3775  NotImplemented;
     3776end;
     3777
     3778procedure TCpuZ80.BIT_7_D;
     3779begin
     3780  NotImplemented;
     3781end;
     3782
     3783procedure TCpuZ80.BIT_7_E;
     3784begin
     3785  NotImplemented;
     3786end;
     3787
     3788procedure TCpuZ80.BIT_7_H;
     3789begin
     3790  NotImplemented;
     3791end;
     3792
     3793procedure TCpuZ80.BIT_7_L;
     3794begin
     3795  NotImplemented;
     3796end;
     3797
     3798procedure TCpuZ80.BIT_7_HL_Indirect;
     3799begin
     3800  NotImplemented;
     3801end;
     3802
     3803procedure TCpuZ80.BIT_7_A;
     3804begin
     3805  NotImplemented;
     3806end;
     3807
     3808procedure TCpuZ80.RES_0_B;
     3809begin
     3810  NotImplemented;
     3811end;
     3812
     3813procedure TCpuZ80.RES_0_C;
     3814begin
     3815  NotImplemented;
     3816end;
     3817
     3818procedure TCpuZ80.RES_0_D;
     3819begin
     3820  NotImplemented;
     3821end;
     3822
     3823procedure TCpuZ80.RES_0_E;
     3824begin
     3825  NotImplemented;
     3826end;
     3827
     3828procedure TCpuZ80.RES_0_H;
     3829begin
     3830  NotImplemented;
     3831end;
     3832
     3833procedure TCpuZ80.RES_0_L;
     3834begin
     3835  NotImplemented;
     3836end;
     3837
     3838procedure TCpuZ80.RES_0_HL_Indirect;
     3839begin
     3840  NotImplemented;
     3841end;
     3842
     3843procedure TCpuZ80.RES_0_A;
     3844begin
     3845  NotImplemented;
     3846end;
     3847
     3848procedure TCpuZ80.RES_1_B;
     3849begin
     3850  NotImplemented;
     3851end;
     3852
     3853procedure TCpuZ80.RES_1_C;
     3854begin
     3855  NotImplemented;
     3856end;
     3857
     3858procedure TCpuZ80.RES_1_D;
     3859begin
     3860  NotImplemented;
     3861end;
     3862
     3863procedure TCpuZ80.RES_1_E;
     3864begin
     3865  NotImplemented;
     3866end;
     3867
     3868procedure TCpuZ80.RES_1_H;
     3869begin
     3870  NotImplemented;
     3871end;
     3872
     3873procedure TCpuZ80.RES_1_L;
     3874begin
     3875  NotImplemented;
     3876end;
     3877
     3878procedure TCpuZ80.RES_1_HL_Indirect;
     3879begin
     3880  NotImplemented;
     3881end;
     3882
     3883procedure TCpuZ80.RES_1_A;
     3884begin
     3885  NotImplemented;
     3886end;
     3887
     3888procedure TCpuZ80.RES_2_B;
     3889begin
     3890  NotImplemented;
     3891end;
     3892
     3893procedure TCpuZ80.RES_2_C;
     3894begin
     3895  NotImplemented;
     3896end;
     3897
     3898procedure TCpuZ80.RES_2_D;
     3899begin
     3900  NotImplemented;
     3901end;
     3902
     3903procedure TCpuZ80.RES_2_E;
     3904begin
     3905  NotImplemented;
     3906end;
     3907
     3908procedure TCpuZ80.RES_2_H;
     3909begin
     3910  NotImplemented;
     3911end;
     3912
     3913procedure TCpuZ80.RES_2_L;
     3914begin
     3915  NotImplemented;
     3916end;
     3917
     3918procedure TCpuZ80.RES_2_HL_Indirect;
     3919begin
     3920  NotImplemented;
     3921end;
     3922
     3923procedure TCpuZ80.RES_2_A;
     3924begin
     3925  NotImplemented;
     3926end;
     3927
     3928procedure TCpuZ80.RES_3_B;
     3929begin
     3930  NotImplemented;
     3931end;
     3932
     3933procedure TCpuZ80.RES_3_C;
     3934begin
     3935  NotImplemented;
     3936end;
     3937
     3938procedure TCpuZ80.RES_3_D;
     3939begin
     3940  NotImplemented;
     3941end;
     3942
     3943procedure TCpuZ80.RES_3_E;
     3944begin
     3945  NotImplemented;
     3946end;
     3947
     3948procedure TCpuZ80.RES_3_H;
     3949begin
     3950  NotImplemented;
     3951end;
     3952
     3953procedure TCpuZ80.RES_3_L;
     3954begin
     3955  NotImplemented;
     3956end;
     3957
     3958procedure TCpuZ80.RES_3_HL_Indirect;
     3959begin
     3960  NotImplemented;
     3961end;
     3962
     3963procedure TCpuZ80.RES_3_A;
     3964begin
     3965  NotImplemented;
     3966end;
     3967
     3968procedure TCpuZ80.RES_4_B;
     3969begin
     3970  NotImplemented;
     3971end;
     3972
     3973procedure TCpuZ80.RES_4_C;
     3974begin
     3975  NotImplemented;
     3976end;
     3977
     3978procedure TCpuZ80.RES_4_D;
     3979begin
     3980  NotImplemented;
     3981end;
     3982
     3983procedure TCpuZ80.RES_4_E;
     3984begin
     3985  NotImplemented;
     3986end;
     3987
     3988procedure TCpuZ80.RES_4_H;
     3989begin
     3990  NotImplemented;
     3991end;
     3992
     3993procedure TCpuZ80.RES_4_L;
     3994begin
     3995  NotImplemented;
     3996end;
     3997
     3998procedure TCpuZ80.RES_4_HL_Indirect;
     3999begin
     4000  NotImplemented;
     4001end;
     4002
     4003procedure TCpuZ80.RES_4_A;
     4004begin
     4005  NotImplemented;
     4006end;
     4007
     4008procedure TCpuZ80.RES_5_B;
     4009begin
     4010  NotImplemented;
     4011end;
     4012
     4013procedure TCpuZ80.RES_5_C;
     4014begin
     4015  NotImplemented;
     4016end;
     4017
     4018procedure TCpuZ80.RES_5_D;
     4019begin
     4020  NotImplemented;
     4021end;
     4022
     4023procedure TCpuZ80.RES_5_E;
     4024begin
     4025  NotImplemented;
     4026end;
     4027
     4028procedure TCpuZ80.RES_5_H;
     4029begin
     4030  NotImplemented;
     4031end;
     4032
     4033procedure TCpuZ80.RES_5_L;
     4034begin
     4035  NotImplemented;
     4036end;
     4037
     4038procedure TCpuZ80.RES_5_HL_Indirect;
     4039begin
     4040  NotImplemented;
     4041end;
     4042
     4043procedure TCpuZ80.RES_5_A;
     4044begin
     4045  NotImplemented;
     4046end;
     4047
     4048procedure TCpuZ80.RES_6_B;
     4049begin
     4050  NotImplemented;
     4051end;
     4052
     4053procedure TCpuZ80.RES_6_C;
     4054begin
     4055  NotImplemented;
     4056end;
     4057
     4058procedure TCpuZ80.RES_6_D;
     4059begin
     4060  NotImplemented;
     4061end;
     4062
     4063procedure TCpuZ80.RES_6_E;
     4064begin
     4065  NotImplemented;
     4066end;
     4067
     4068procedure TCpuZ80.RES_6_H;
     4069begin
     4070  NotImplemented;
     4071end;
     4072
     4073procedure TCpuZ80.RES_6_L;
     4074begin
     4075  NotImplemented;
     4076end;
     4077
     4078procedure TCpuZ80.RES_6_HL_Indirect;
     4079begin
     4080  NotImplemented;
     4081end;
     4082
     4083procedure TCpuZ80.RES_6_A;
     4084begin
     4085  NotImplemented;
     4086end;
     4087
     4088procedure TCpuZ80.RES_7_B;
     4089begin
     4090  NotImplemented;
     4091end;
     4092
     4093procedure TCpuZ80.RES_7_C;
     4094begin
     4095  NotImplemented;
     4096end;
     4097
     4098procedure TCpuZ80.RES_7_D;
     4099begin
     4100  NotImplemented;
     4101end;
     4102
     4103procedure TCpuZ80.RES_7_E;
     4104begin
     4105  NotImplemented;
     4106end;
     4107
     4108procedure TCpuZ80.RES_7_H;
     4109begin
     4110  NotImplemented;
     4111end;
     4112
     4113procedure TCpuZ80.RES_7_L;
     4114begin
     4115  NotImplemented;
     4116end;
     4117
     4118procedure TCpuZ80.RES_7_HL_Indirect;
     4119begin
     4120  NotImplemented;
     4121end;
     4122
     4123procedure TCpuZ80.RES_7_A;
     4124begin
     4125  NotImplemented;
     4126end;
     4127
     4128procedure TCpuZ80.SET_0_B;
     4129begin
     4130  NotImplemented;
     4131end;
     4132
     4133procedure TCpuZ80.SET_0_C;
     4134begin
     4135  NotImplemented;
     4136end;
     4137
     4138procedure TCpuZ80.SET_0_D;
     4139begin
     4140  NotImplemented;
     4141end;
     4142
     4143procedure TCpuZ80.SET_0_E;
     4144begin
     4145  NotImplemented;
     4146end;
     4147
     4148procedure TCpuZ80.SET_0_H;
     4149begin
     4150  NotImplemented;
     4151end;
     4152
     4153procedure TCpuZ80.SET_0_L;
     4154begin
     4155  NotImplemented;
     4156end;
     4157
     4158procedure TCpuZ80.SET_0_HL_Indirect;
     4159begin
     4160  NotImplemented;
     4161end;
     4162
     4163procedure TCpuZ80.SET_0_A;
     4164begin
     4165  NotImplemented;
     4166end;
     4167
     4168procedure TCpuZ80.SET_1_B;
     4169begin
     4170  NotImplemented;
     4171end;
     4172
     4173procedure TCpuZ80.SET_1_C;
     4174begin
     4175  NotImplemented;
     4176end;
     4177
     4178procedure TCpuZ80.SET_1_D;
     4179begin
     4180  NotImplemented;
     4181end;
     4182
     4183procedure TCpuZ80.SET_1_E;
     4184begin
     4185  NotImplemented;
     4186end;
     4187
     4188procedure TCpuZ80.SET_1_H;
     4189begin
     4190  NotImplemented;
     4191end;
     4192
     4193procedure TCpuZ80.SET_1_L;
     4194begin
     4195  NotImplemented;
     4196end;
     4197
     4198procedure TCpuZ80.SET_1_HL_Indirect;
     4199begin
     4200  NotImplemented;
     4201end;
     4202
     4203procedure TCpuZ80.SET_1_A;
     4204begin
     4205  NotImplemented;
     4206end;
     4207
     4208procedure TCpuZ80.SET_2_B;
     4209begin
     4210  NotImplemented;
     4211end;
     4212
     4213procedure TCpuZ80.SET_2_C;
     4214begin
     4215  NotImplemented;
     4216end;
     4217
     4218procedure TCpuZ80.SET_2_D;
     4219begin
     4220  NotImplemented;
     4221end;
     4222
     4223procedure TCpuZ80.SET_2_E;
     4224begin
     4225  NotImplemented;
     4226end;
     4227
     4228procedure TCpuZ80.SET_2_H;
     4229begin
     4230  NotImplemented;
     4231end;
     4232
     4233procedure TCpuZ80.SET_2_L;
     4234begin
     4235  NotImplemented;
     4236end;
     4237
     4238procedure TCpuZ80.SET_2_HL_Indirect;
     4239begin
     4240  NotImplemented;
     4241end;
     4242
     4243procedure TCpuZ80.SET_2_A;
     4244begin
     4245  NotImplemented;
     4246end;
     4247
     4248procedure TCpuZ80.SET_3_B;
     4249begin
     4250  NotImplemented;
     4251end;
     4252
     4253procedure TCpuZ80.SET_3_C;
     4254begin
     4255  NotImplemented;
     4256end;
     4257
     4258procedure TCpuZ80.SET_3_D;
     4259begin
     4260  NotImplemented;
     4261end;
     4262
     4263procedure TCpuZ80.SET_3_E;
     4264begin
     4265  NotImplemented;
     4266end;
     4267
     4268procedure TCpuZ80.SET_3_H;
     4269begin
     4270  NotImplemented;
     4271end;
     4272
     4273procedure TCpuZ80.SET_3_L;
     4274begin
     4275  NotImplemented;
     4276end;
     4277
     4278procedure TCpuZ80.SET_3_HL_Indirect;
     4279begin
     4280  NotImplemented;
     4281end;
     4282
     4283procedure TCpuZ80.SET_3_A;
     4284begin
     4285  NotImplemented;
     4286end;
     4287
     4288procedure TCpuZ80.SET_4_B;
     4289begin
     4290  NotImplemented;
     4291end;
     4292
     4293procedure TCpuZ80.SET_4_C;
     4294begin
     4295  NotImplemented;
     4296end;
     4297
     4298procedure TCpuZ80.SET_4_D;
     4299begin
     4300  NotImplemented;
     4301end;
     4302
     4303procedure TCpuZ80.SET_4_E;
     4304begin
     4305  NotImplemented;
     4306end;
     4307
     4308procedure TCpuZ80.SET_4_H;
     4309begin
     4310  NotImplemented;
     4311end;
     4312
     4313procedure TCpuZ80.SET_4_L;
     4314begin
     4315  NotImplemented;
     4316end;
     4317
     4318procedure TCpuZ80.SET_4_HL_Indirect;
     4319begin
     4320  NotImplemented;
     4321end;
     4322
     4323procedure TCpuZ80.SET_4_A;
     4324begin
     4325  NotImplemented;
     4326end;
     4327
     4328procedure TCpuZ80.SET_5_B;
     4329begin
     4330  NotImplemented;
     4331end;
     4332
     4333procedure TCpuZ80.SET_5_C;
     4334begin
     4335  NotImplemented;
     4336end;
     4337
     4338procedure TCpuZ80.SET_5_D;
     4339begin
     4340  NotImplemented;
     4341end;
     4342
     4343procedure TCpuZ80.SET_5_E;
     4344begin
     4345  NotImplemented;
     4346end;
     4347
     4348procedure TCpuZ80.SET_5_H;
     4349begin
     4350  NotImplemented;
     4351end;
     4352
     4353procedure TCpuZ80.SET_5_L;
     4354begin
     4355  NotImplemented;
     4356end;
     4357
     4358procedure TCpuZ80.SET_5_HL_Indirect;
     4359begin
     4360  NotImplemented;
     4361end;
     4362
     4363procedure TCpuZ80.SET_5_A;
     4364begin
     4365  NotImplemented;
     4366end;
     4367
     4368procedure TCpuZ80.SET_6_B;
     4369begin
     4370  NotImplemented;
     4371end;
     4372
     4373procedure TCpuZ80.SET_6_C;
     4374begin
     4375  NotImplemented;
     4376end;
     4377
     4378procedure TCpuZ80.SET_6_D;
     4379begin
     4380  NotImplemented;
     4381end;
     4382
     4383procedure TCpuZ80.SET_6_E;
     4384begin
     4385  NotImplemented;
     4386end;
     4387
     4388procedure TCpuZ80.SET_6_H;
     4389begin
     4390  NotImplemented;
     4391end;
     4392
     4393procedure TCpuZ80.SET_6_L;
     4394begin
     4395  NotImplemented;
     4396end;
     4397
     4398procedure TCpuZ80.SET_6_HL_Indirect;
     4399begin
     4400  NotImplemented;
     4401end;
     4402
     4403procedure TCpuZ80.SET_6_A;
     4404begin
     4405  NotImplemented;
     4406end;
     4407
     4408procedure TCpuZ80.SET_7_B;
     4409begin
     4410  NotImplemented;
     4411end;
     4412
     4413procedure TCpuZ80.SET_7_C;
     4414begin
     4415  NotImplemented;
     4416end;
     4417
     4418procedure TCpuZ80.SET_7_D;
     4419begin
     4420  NotImplemented;
     4421end;
     4422
     4423procedure TCpuZ80.SET_7_E;
     4424begin
     4425  NotImplemented;
     4426end;
     4427
     4428procedure TCpuZ80.SET_7_H;
     4429begin
     4430  NotImplemented;
     4431end;
     4432
     4433procedure TCpuZ80.SET_7_L;
     4434begin
     4435  NotImplemented;
     4436end;
     4437
     4438procedure TCpuZ80.SET_7_HL_Indirect;
     4439begin
     4440  NotImplemented;
     4441end;
     4442
     4443procedure TCpuZ80.SET_7_A;
     4444begin
     4445  NotImplemented;
     4446end;
     4447
     4448procedure TCpuZ80.ADD_IX_BC;
     4449begin
     4450  NotImplemented;
     4451end;
     4452
     4453procedure TCpuZ80.ADD_IX_DE;
     4454begin
     4455  NotImplemented;
     4456end;
     4457
     4458procedure TCpuZ80.LD_IX_NN;
     4459begin
     4460  NotImplemented;
     4461end;
     4462
     4463procedure TCpuZ80.LD_NN_Indirect_IX;
     4464begin
     4465  NotImplemented;
     4466end;
     4467
     4468procedure TCpuZ80.INC_IX;
     4469begin
     4470  NotImplemented;
     4471end;
     4472
     4473procedure TCpuZ80.ADD_IX_IX;
     4474begin
     4475  NotImplemented;
     4476end;
     4477
     4478procedure TCpuZ80.LD_IX_NN_Indirect;
     4479begin
     4480  NotImplemented;
     4481end;
     4482
     4483procedure TCpuZ80.DEC_IX;
     4484begin
     4485  NotImplemented;
     4486end;
     4487
     4488procedure TCpuZ80.INC_IX_Plus_D_Indirect;
     4489begin
     4490  NotImplemented;
     4491end;
     4492
     4493procedure TCpuZ80.DEC_IX_Plus_D_Indirect;
     4494begin
     4495  NotImplemented;
     4496end;
     4497
     4498procedure TCpuZ80.LD_IX_Plus_D_Indirect_N;
     4499begin
     4500  NotImplemented;
     4501end;
     4502
     4503procedure TCpuZ80.ADD_IX_SP;
     4504begin
     4505  NotImplemented;
     4506end;
     4507
     4508procedure TCpuZ80.LD_B_IX_Plus_D_Indirect;
     4509begin
     4510  NotImplemented;
     4511end;
     4512
     4513procedure TCpuZ80.LD_C_IX_Plus_D_Indirect;
     4514begin
     4515  NotImplemented;
     4516end;
     4517
     4518procedure TCpuZ80.LD_D_IX_Plus_D_Indirect;
     4519begin
     4520  NotImplemented;
     4521end;
     4522
     4523procedure TCpuZ80.LD_E_IX_Plus_D_Indirect;
     4524begin
     4525  NotImplemented;
     4526end;
     4527
     4528procedure TCpuZ80.LD_H_IX_Plus_D_Indirect;
     4529begin
     4530  NotImplemented;
     4531end;
     4532
     4533procedure TCpuZ80.LD_L_IX_Plus_D_Indirect;
     4534begin
     4535  NotImplemented;
     4536end;
     4537
     4538procedure TCpuZ80.LD_IX_Plus_D_Indirect_B;
     4539begin
     4540  NotImplemented;
     4541end;
     4542
     4543procedure TCpuZ80.LD_IX_Plus_D_Indirect_C;
     4544begin
     4545  NotImplemented;
     4546end;
     4547
     4548procedure TCpuZ80.LD_IX_Plus_D_Indirect_D;
     4549begin
     4550  NotImplemented;
     4551end;
     4552
     4553procedure TCpuZ80.LD_IX_Plus_D_Indirect_E;
     4554begin
     4555  NotImplemented;
     4556end;
     4557
     4558procedure TCpuZ80.LD_IX_Plus_D_Indirect_H;
     4559begin
     4560  NotImplemented;
     4561end;
     4562
     4563procedure TCpuZ80.LD_IX_Plus_D_Indirect_L;
     4564begin
     4565  NotImplemented;
     4566end;
     4567
     4568procedure TCpuZ80.LD_IX_Plus_D_Indirect_A;
     4569begin
     4570  NotImplemented;
     4571end;
     4572
     4573procedure TCpuZ80.LD_A_IX_Plus_D_Indirect;
     4574begin
     4575  NotImplemented;
     4576end;
     4577
     4578procedure TCpuZ80.ADD_A_IX_Plus_D_Indirect;
     4579begin
     4580  NotImplemented;
     4581end;
     4582
     4583procedure TCpuZ80.ADC_A_IX_Plus_D_Indirect;
     4584begin
     4585  NotImplemented;
     4586end;
     4587
     4588procedure TCpuZ80.SUB_IX_Plus_D_Indirect;
     4589begin
     4590  NotImplemented;
     4591end;
     4592
     4593procedure TCpuZ80.SBC_A_IX_Plus_D_Indirect;
     4594begin
     4595  NotImplemented;
     4596end;
     4597
     4598procedure TCpuZ80.AND_IX_Plus_D_Indirect;
     4599begin
     4600  NotImplemented;
     4601end;
     4602
     4603procedure TCpuZ80.XOR_IX_Plus_D_Indirect;
     4604begin
     4605  NotImplemented;
     4606end;
     4607
     4608procedure TCpuZ80.OR_IX_Plus_D_Indirect;
     4609begin
     4610  NotImplemented;
     4611end;
     4612
     4613procedure TCpuZ80.CP_IX_Plus_D_Indirect;
     4614begin
     4615  NotImplemented;
     4616end;
     4617
     4618procedure TCpuZ80.POP_IX;
     4619begin
     4620  NotImplemented;
     4621end;
     4622
     4623procedure TCpuZ80.EX_SP_Indirect_IX;
     4624begin
     4625  NotImplemented;
     4626end;
     4627
     4628procedure TCpuZ80.PUSH_IX;
     4629begin
     4630  NotImplemented;
     4631end;
     4632
     4633procedure TCpuZ80.JP_IX_Indirect;
     4634begin
     4635  NotImplemented;
     4636end;
     4637
     4638procedure TCpuZ80.LD_SP_IX;
     4639begin
     4640  NotImplemented;
     4641end;
     4642
     4643procedure TCpuZ80.RLC_IX_Plus_D_Indirect;
     4644begin
     4645  NotImplemented;
     4646end;
     4647
     4648procedure TCpuZ80.RRC_IX_Plus_D_Indirect;
     4649begin
     4650  NotImplemented;
     4651end;
     4652
     4653procedure TCpuZ80.RL_IX_Plus_D_Indirect;
     4654begin
     4655  NotImplemented;
     4656end;
     4657
     4658procedure TCpuZ80.RR_IX_Plus_D_Indirect;
     4659begin
     4660  NotImplemented;
     4661end;
     4662
     4663procedure TCpuZ80.SLA_IX_Plus_D_Indirect;
     4664begin
     4665  NotImplemented;
     4666end;
     4667
     4668procedure TCpuZ80.SRA_IX_Plus_D_Indirect;
     4669begin
     4670  NotImplemented;
     4671end;
     4672
     4673procedure TCpuZ80.SRL_IX_Plus_D_Indirect;
     4674begin
     4675  NotImplemented;
     4676end;
     4677
     4678procedure TCpuZ80.BIT_0_IX_Plus_D_Indirect;
     4679begin
     4680  NotImplemented;
     4681end;
     4682
     4683procedure TCpuZ80.BIT_1_IX_Plus_D_Indirect;
     4684begin
     4685  NotImplemented;
     4686end;
     4687
     4688procedure TCpuZ80.BIT_2_IX_Plus_D_Indirect;
     4689begin
     4690  NotImplemented;
     4691end;
     4692
     4693procedure TCpuZ80.BIT_3_IX_Plus_D_Indirect;
     4694begin
     4695  NotImplemented;
     4696end;
     4697
     4698procedure TCpuZ80.BIT_4_IX_Plus_D_Indirect;
     4699begin
     4700  NotImplemented;
     4701end;
     4702
     4703procedure TCpuZ80.BIT_5_IX_Plus_D_Indirect;
     4704begin
     4705  NotImplemented;
     4706end;
     4707
     4708procedure TCpuZ80.BIT_6_IX_Plus_D_Indirect;
     4709begin
     4710  NotImplemented;
     4711end;
     4712
     4713procedure TCpuZ80.BIT_7_IX_Plus_D_Indirect;
     4714begin
     4715  NotImplemented;
     4716end;
     4717
     4718procedure TCpuZ80.RES_0_IX_Plus_D_Indirect;
     4719begin
     4720  NotImplemented;
     4721end;
     4722
     4723procedure TCpuZ80.RES_1_IX_Plus_D_Indirect;
     4724begin
     4725  NotImplemented;
     4726end;
     4727
     4728procedure TCpuZ80.RES_2_IX_Plus_D_Indirect;
     4729begin
     4730  NotImplemented;
     4731end;
     4732
     4733procedure TCpuZ80.RES_3_IX_Plus_D_Indirect;
     4734begin
     4735  NotImplemented;
     4736end;
     4737
     4738procedure TCpuZ80.RES_4_IX_Plus_D_Indirect;
     4739begin
     4740  NotImplemented;
     4741end;
     4742
     4743procedure TCpuZ80.RES_5_IX_Plus_D_Indirect;
     4744begin
     4745  NotImplemented;
     4746end;
     4747
     4748procedure TCpuZ80.RES_6_IX_Plus_D_Indirect;
     4749begin
     4750  NotImplemented;
     4751end;
     4752
     4753procedure TCpuZ80.RES_7_IX_Plus_D_Indirect;
     4754begin
     4755  NotImplemented;
     4756end;
     4757
     4758procedure TCpuZ80.SET_0_IX_Plus_D_Indirect;
     4759begin
     4760  NotImplemented;
     4761end;
     4762
     4763procedure TCpuZ80.SET_1_IX_Plus_D_Indirect;
     4764begin
     4765  NotImplemented;
     4766end;
     4767
     4768procedure TCpuZ80.SET_2_IX_Plus_D_Indirect;
     4769begin
     4770  NotImplemented;
     4771end;
     4772
     4773procedure TCpuZ80.SET_3_IX_Plus_D_Indirect;
     4774begin
     4775  NotImplemented;
     4776end;
     4777
     4778procedure TCpuZ80.SET_4_IX_Plus_D_Indirect;
     4779begin
     4780  NotImplemented;
     4781end;
     4782
     4783procedure TCpuZ80.SET_5_IX_Plus_D_Indirect;
     4784begin
     4785  NotImplemented;
     4786end;
     4787
     4788procedure TCpuZ80.SET_6_IX_Plus_D_Indirect;
     4789begin
     4790  NotImplemented;
     4791end;
     4792
     4793procedure TCpuZ80.SET_7_IX_Plus_D_Indirect;
     4794begin
     4795  NotImplemented;
     4796end;
     4797
     4798procedure TCpuZ80.ADD_IY_BC;
     4799begin
     4800  NotImplemented;
     4801end;
     4802
     4803procedure TCpuZ80.ADD_IY_DE;
     4804begin
     4805  NotImplemented;
     4806end;
     4807
     4808procedure TCpuZ80.LD_IY_NN;
     4809begin
     4810  NotImplemented;
     4811end;
     4812
     4813procedure TCpuZ80.LD_NN_Indirect_IY;
     4814begin
     4815  NotImplemented;
     4816end;
     4817
     4818procedure TCpuZ80.INC_IY;
     4819begin
     4820  NotImplemented;
     4821end;
     4822
     4823procedure TCpuZ80.ADD_IY_IY;
     4824begin
     4825  NotImplemented;
     4826end;
     4827
     4828procedure TCpuZ80.LD_IY_NN_Indirect;
     4829begin
     4830  NotImplemented;
     4831end;
     4832
     4833procedure TCpuZ80.DEC_IY;
     4834begin
     4835  NotImplemented;
     4836end;
     4837
     4838procedure TCpuZ80.INC_IY_Plus_D_Indirect;
     4839begin
     4840  NotImplemented;
     4841end;
     4842
     4843procedure TCpuZ80.DEC_IY_Plus_D_Indirect;
     4844begin
     4845  NotImplemented;
     4846end;
     4847
     4848procedure TCpuZ80.LD_IY_Plus_D_Indirect_N;
     4849begin
     4850  NotImplemented;
     4851end;
     4852
     4853procedure TCpuZ80.ADD_IY_SP;
     4854begin
     4855  NotImplemented;
     4856end;
     4857
     4858procedure TCpuZ80.LD_B_IY_Plus_D_Indirect;
     4859begin
     4860  NotImplemented;
     4861end;
     4862
     4863procedure TCpuZ80.LD_C_IY_Plus_D_Indirect;
     4864begin
     4865  NotImplemented;
     4866end;
     4867
     4868procedure TCpuZ80.LD_D_IY_Plus_D_Indirect;
     4869begin
     4870  NotImplemented;
     4871end;
     4872
     4873procedure TCpuZ80.LD_E_IY_Plus_D_Indirect;
     4874begin
     4875  NotImplemented;
     4876end;
     4877
     4878procedure TCpuZ80.LD_H_IY_Plus_D_Indirect;
     4879begin
     4880  NotImplemented;
     4881end;
     4882
     4883procedure TCpuZ80.LD_L_IY_Plus_D_Indirect;
     4884begin
     4885  NotImplemented;
     4886end;
     4887
     4888procedure TCpuZ80.LD_IY_Plus_D_Indirect_B;
     4889begin
     4890  NotImplemented;
     4891end;
     4892
     4893procedure TCpuZ80.LD_IY_Plus_D_Indirect_C;
     4894begin
     4895  NotImplemented;
     4896end;
     4897
     4898procedure TCpuZ80.LD_IY_Plus_D_Indirect_D;
     4899begin
     4900  NotImplemented;
     4901end;
     4902
     4903procedure TCpuZ80.LD_IY_Plus_D_Indirect_E;
     4904begin
     4905  NotImplemented;
     4906end;
     4907
     4908procedure TCpuZ80.LD_IY_Plus_D_Indirect_H;
     4909begin
     4910  NotImplemented;
     4911end;
     4912
     4913procedure TCpuZ80.LD_IY_Plus_D_Indirect_L;
     4914begin
     4915  NotImplemented;
     4916end;
     4917
     4918procedure TCpuZ80.LD_IY_Plus_D_Indirect_A;
     4919begin
     4920  NotImplemented;
     4921end;
     4922
     4923procedure TCpuZ80.LD_A_IY_Plus_D_Indirect;
     4924begin
     4925  NotImplemented;
     4926end;
     4927
     4928procedure TCpuZ80.ADD_A_IY_Plus_D_Indirect;
     4929begin
     4930  NotImplemented;
     4931end;
     4932
     4933procedure TCpuZ80.ADC_A_IY_Plus_D_Indirect;
     4934begin
     4935  NotImplemented;
     4936end;
     4937
     4938procedure TCpuZ80.SUB_IY_Plus_D_Indirect;
     4939begin
     4940  NotImplemented;
     4941end;
     4942
     4943procedure TCpuZ80.SBC_A_IY_Plus_D_Indirect;
     4944begin
     4945  NotImplemented;
     4946end;
     4947
     4948procedure TCpuZ80.AND_IY_Plus_D_Indirect;
     4949begin
     4950  NotImplemented;
     4951end;
     4952
     4953procedure TCpuZ80.XOR_IY_Plus_D_Indirect;
     4954begin
     4955  NotImplemented;
     4956end;
     4957
     4958procedure TCpuZ80.OR_IY_Plus_D_Indirect;
     4959begin
     4960  NotImplemented;
     4961end;
     4962
     4963procedure TCpuZ80.CP_IY_Plus_D_Indirect;
     4964begin
     4965  NotImplemented;
     4966end;
     4967
     4968procedure TCpuZ80.POP_IY;
     4969begin
     4970  NotImplemented;
     4971end;
     4972
     4973procedure TCpuZ80.EX_SP_Indirect_IY;
     4974begin
     4975  NotImplemented;
     4976end;
     4977
     4978procedure TCpuZ80.PUSH_IY;
     4979begin
     4980  NotImplemented;
     4981end;
     4982
     4983procedure TCpuZ80.JP_IY_Indirect;
     4984begin
     4985  NotImplemented;
     4986end;
     4987
     4988procedure TCpuZ80.LD_SP_IY;
     4989begin
     4990  NotImplemented;
     4991end;
     4992
     4993procedure TCpuZ80.RLC_IY_Plus_D_Indirect;
     4994begin
     4995  NotImplemented;
     4996end;
     4997
     4998procedure TCpuZ80.RRC_IY_Plus_D_Indirect;
     4999begin
     5000  NotImplemented;
     5001end;
     5002
     5003procedure TCpuZ80.RL_IY_Plus_D_Indirect;
     5004begin
     5005  NotImplemented;
     5006end;
     5007
     5008procedure TCpuZ80.RR_IY_Plus_D_Indirect;
     5009begin
     5010  NotImplemented;
     5011end;
     5012
     5013procedure TCpuZ80.SLA_IY_Plus_D_Indirect;
     5014begin
     5015  NotImplemented;
     5016end;
     5017
     5018procedure TCpuZ80.SRA_IY_Plus_D_Indirect;
     5019begin
     5020  NotImplemented;
     5021end;
     5022
     5023procedure TCpuZ80.SRL_IY_Plus_D_Indirect;
     5024begin
     5025  NotImplemented;
     5026end;
     5027
     5028procedure TCpuZ80.BIT_0_IY_Plus_D_Indirect;
     5029begin
     5030  NotImplemented;
     5031end;
     5032
     5033procedure TCpuZ80.BIT_1_IY_Plus_D_Indirect;
     5034begin
     5035  NotImplemented;
     5036end;
     5037
     5038procedure TCpuZ80.BIT_2_IY_Plus_D_Indirect;
     5039begin
     5040  NotImplemented;
     5041end;
     5042
     5043procedure TCpuZ80.BIT_3_IY_Plus_D_Indirect;
     5044begin
     5045  NotImplemented;
     5046end;
     5047
     5048procedure TCpuZ80.BIT_4_IY_Plus_D_Indirect;
     5049begin
     5050  NotImplemented;
     5051end;
     5052
     5053procedure TCpuZ80.BIT_5_IY_Plus_D_Indirect;
     5054begin
     5055  NotImplemented;
     5056end;
     5057
     5058procedure TCpuZ80.BIT_6_IY_Plus_D_Indirect;
     5059begin
     5060  NotImplemented;
     5061end;
     5062
     5063procedure TCpuZ80.BIT_7_IY_Plus_D_Indirect;
     5064begin
     5065  NotImplemented;
     5066end;
     5067
     5068procedure TCpuZ80.RES_0_IY_Plus_D_Indirect;
     5069begin
     5070  NotImplemented;
     5071end;
     5072
     5073procedure TCpuZ80.RES_1_IY_Plus_D_Indirect;
     5074begin
     5075  NotImplemented;
     5076end;
     5077
     5078procedure TCpuZ80.RES_2_IY_Plus_D_Indirect;
     5079begin
     5080  NotImplemented;
     5081end;
     5082
     5083procedure TCpuZ80.RES_3_IY_Plus_D_Indirect;
     5084begin
     5085  NotImplemented;
     5086end;
     5087
     5088procedure TCpuZ80.RES_4_IY_Plus_D_Indirect;
     5089begin
     5090  NotImplemented;
     5091end;
     5092
     5093procedure TCpuZ80.RES_5_IY_Plus_D_Indirect;
     5094begin
     5095  NotImplemented;
     5096end;
     5097
     5098procedure TCpuZ80.RES_6_IY_Plus_D_Indirect;
     5099begin
     5100  NotImplemented;
     5101end;
     5102
     5103procedure TCpuZ80.RES_7_IY_Plus_D_Indirect;
     5104begin
     5105  NotImplemented;
     5106end;
     5107
     5108procedure TCpuZ80.SET_0_IY_Plus_D_Indirect;
     5109begin
     5110  NotImplemented;
     5111end;
     5112
     5113procedure TCpuZ80.SET_1_IY_Plus_D_Indirect;
     5114begin
     5115  NotImplemented;
     5116end;
     5117
     5118procedure TCpuZ80.SET_2_IY_Plus_D_Indirect;
     5119begin
     5120  NotImplemented;
     5121end;
     5122
     5123procedure TCpuZ80.SET_3_IY_Plus_D_Indirect;
     5124begin
     5125  NotImplemented;
     5126end;
     5127
     5128procedure TCpuZ80.SET_4_IY_Plus_D_Indirect;
     5129begin
     5130  NotImplemented;
     5131end;
     5132
     5133procedure TCpuZ80.SET_5_IY_Plus_D_Indirect;
     5134begin
     5135  NotImplemented;
     5136end;
     5137
     5138procedure TCpuZ80.SET_6_IY_Plus_D_Indirect;
     5139begin
     5140  NotImplemented;
     5141end;
     5142
     5143procedure TCpuZ80.SET_7_IY_Plus_D_Indirect;
     5144begin
     5145  NotImplemented;
    4365146end;
    4375147
    … …  
    4425152begin
    4435153  Opcode := ReadByte;
    444   if Opcode = Byte(inPrefixCb) then begin
    445     Instruction := TInstruction($100 or Opcode);
     5154  if Opcode = $CB then begin
     5155    Instruction := TInstruction($100 or ReadByte);
    4465156  end
    447   else if Opcode = Byte(inPrefixDd) then begin
    448     Instruction := TInstruction($200 or Opcode);
     5157  else if Opcode = $DD then begin
     5158    Instruction := TInstruction($200 or ReadByte);
    4495159  end
    450   else if Opcode = Byte(inPrefixEd) then begin
    451     Instruction := TInstruction($300 or Opcode);
     5160  else if Opcode = $ED then begin
     5161    Instruction := TInstruction($300 or ReadByte);
    4525162  end
    453   else if Opcode = Byte(inPrefixFd) then begin
    454     Instruction := TInstruction($400 or Opcode);
     5163  else if Opcode = $FD then begin
     5164    Instruction := TInstruction($400 or ReadByte);
    4555165  end
    4565166  else Instruction := TInstruction(Opcode);
Note: See TracChangeset for help on using the changeset viewer.