i386.pas 87 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806
  1. {
  2. $Id$
  3. Copyright (c) 1995-98 by Florian Klaempfl
  4. This unit implements an types and classes specific for the i386+
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2 of the License, or
  8. (at your option) any later version.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program; if not, write to the Free Software
  15. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. ****************************************************************************
  17. }
  18. unit i386;
  19. interface
  20. uses
  21. cobjects,aasm;
  22. const
  23. extended_size = 10;
  24. type
  25. tcpuflags = (cf_registers64);
  26. tasmop = (
  27. A_MOV,A_MOVZX,A_MOVSX,A_LABEL,A_ADD,
  28. A_CALL,A_IDIV,A_IMUL,A_JMP,A_LEA,A_MUL,A_NEG,A_NOT,
  29. A_POP,A_POPAD,A_PUSH,A_PUSHAD,A_RET,A_SUB,A_XCHG,A_XOR,
  30. A_FILD,A_CMP,A_JZ,A_INC,A_DEC,A_SETE,A_SETNE,A_SETL,
  31. A_SETG,A_SETLE,A_SETGE,A_JE,A_JNE,A_JL,A_JG,A_JLE,A_JGE,
  32. A_OR,A_FLD,A_FADD,A_FMUL,A_FSUB,A_FDIV,A_FCHS,A_FLD1,
  33. A_FIDIV,A_JNZ,A_FSTP,A_AND,A_JNO,A_NOTH,A_NONE,
  34. A_ENTER,A_LEAVE,A_CLD,A_MOVS,A_REP,A_SHL,A_SHR,A_BOUND,
  35. A_JNS,A_JS,A_JO,A_SAR,A_TEST,
  36. A_FCOM,A_FCOMP,A_FCOMPP,A_FXCH,A_FADDP,A_FMULP,A_FSUBP,A_FDIVP,
  37. A_FNSTS,A_SAHF,A_FDIVRP,A_FSUBRP,A_SETC,A_SETNC,A_JC,A_JNC,
  38. A_JA,A_JAE,A_JB,A_JBE,A_SETA,A_SETAE,A_SETB,A_SETBE,
  39. A_AAA,A_AAD,A_AAM,A_AAS,A_CBW,A_CDQ,A_CLC,A_CLI,
  40. A_CLTS,A_CMC,A_CWD,A_CWDE,A_DAA,A_DAS,A_HLT,A_IRET,A_LAHF,
  41. A_LODS,A_LOCK,A_NOP,A_PUSHA,A_PUSHF,A_PUSHFD,
  42. A_STC,A_STD,A_STI,A_STOS,A_WAIT,A_XLAT,A_XLATB,A_MOVSB,
  43. A_MOVSBL,A_MOVSBW,A_MOVSWL,A_MOVZB,A_MOVZWL,A_POPA,A_IN,
  44. A_OUT,A_LDS,A_LCS,A_LES,A_LFS,A_LGS,A_LSS,A_POPF,A_SBB,A_ADC,
  45. A_DIV,A_ROR,A_ROL,A_RCL,A_RCR,A_SAL,A_SHLD,A_SHRD,
  46. A_LCALL,A_LJMP,A_LRET,A_JNAE,A_JNB,A_JNA,A_JNBE,A_JP,A_JNP,
  47. A_JPE,A_JPO,A_JNGE,A_JNG,A_JNL,A_JNLE,A_JCXZ,A_JECXZ,
  48. A_LOOP,A_CMPS,A_INS,A_OUTS,A_SCAS,A_BSF,A_BSR,A_BT,A_BTC,A_BTR,A_BTS,A_INT,
  49. A_INT3,A_INTO,A_BOUNDL,A_BOUNDW,
  50. A_LOOPZ,A_LOOPE,A_LOOPNZ,A_LOOPNE,A_SETO,A_SETNO,A_SETNAE,A_SETNB,
  51. A_SETZ,A_SETNZ,A_SETNA,A_SETNBE,A_SETS,A_SETNS,A_SETP,A_SETPE,A_SETNP,
  52. A_SETPO,A_SETNGE,A_SETNL,A_SETNG,A_SETNLE,A_ARPL,A_LAR,A_LGDT,A_LIDT,
  53. A_LLDT,A_LMSW,A_LSL,A_LTR,A_SGDT,A_SIDT,A_SLDT,A_SMSW,A_STR,A_VERR,A_VERW,
  54. A_FABS,A_FBLD,A_FBSTP,A_FCLEX,A_FNCLEX,
  55. A_FCOS,A_FDECSTP,A_FDISI,A_FNDISI,
  56. A_FDIVR,A_FENI,A_FNENI,A_FFREE,A_FIADD,A_FICOM,A_FICOMP,
  57. A_FIDIVR,A_FIMUL,A_FINCSTP,A_FINIT,A_FNINIT,A_FIST,A_FISTP,A_FISUB,
  58. A_FISUBR,A_FLDCW,A_FLDENV,A_FLDLG2,A_FLDLN2,A_FLDL2E,
  59. A_FLDL2T,A_FLDPI,A_FLDS,A_FLDZ,A_FNOP,A_FPATAN,
  60. A_FPREM,A_FPREM1,A_FPTAN,A_FRNDINT,A_FRSTOR,A_FSAVE,A_FNSAVE,
  61. A_FSCALE,A_FSETPM,A_FSIN,A_FSINCOS,A_FSQRT,A_FST,A_FSTCW,A_FNSTCW,
  62. A_FSTENV,A_FNSTENV,A_FSTSW,A_FNSTSW,A_FTST,A_FUCOM,A_FUCOMP,
  63. A_FUCOMPP,A_FWAIT,A_FXAM,A_FXTRACT,A_FYL2X,A_FYL2XP1,A_F2XM1,
  64. A_FILDQ,A_FILDS,A_FILDL,A_FLDL,A_FLDT,A_FISTQ,A_FISTS,A_FISTL,A_FSTL,A_FSTS,
  65. A_FSTPS,A_FISTPL,A_FSTPL,A_FISTPS,A_FISTPQ,A_FSTPT,
  66. A_FCOMPS,A_FICOMPL,A_FCOMPL,A_FICOMPS,
  67. A_FCOMS,A_FICOML,A_FCOML,A_FICOMS,A_FIADDL,A_FADDL,A_FIADDS,
  68. A_FISUBL,A_FSUBL,A_FISUBS,A_FSUBS,A_FSUBR,A_FSUBRS,A_FISUBRL,
  69. A_FSUBRL,A_FISUBRS,A_FMULS,A_FIMULL,A_FMULL,A_FIMULS,A_FDIVS,A_FIDIVL,
  70. A_FDIVL,A_FIDIVS,A_FDIVRS,A_FIDIVRL,A_FDIVRL,A_FIDIVRS,
  71. A_REPE,A_REPNE,A_CPUID,A_FADDS,A_POPFD,
  72. { MMX instructions: }
  73. A_EMMS,A_MOVD,A_MOVQ,A_PACKSSDW,A_PACKSSWB,A_PACKUSWB,
  74. A_PADDB,A_PADDD,A_PADDSB,A_PADDSW,A_PADDUSB,A_PADDUSW,
  75. A_PADDW,A_PAND,A_PANDN,A_PCMPEQB,A_PCMPEQD,A_PCMPEQW,
  76. A_PCMPGTB,A_PCMPGTD,A_PCMPGTW,A_PMADDWD,A_PMULHW,
  77. A_PMULLW,A_POR,A_PSLLD,A_PSLLQ,A_PSLLW,A_PSRAD,A_PSRAW,
  78. A_PSRLD,A_PSRLQ,A_PSRLW,A_PSUBB,A_PSUBD,A_PSUBSB,A_PSUBSW,
  79. A_PSUBUSB,A_PSUBUSW,A_PSUBW,A_PUNPCKHBW,A_PUNPCKHDQ,
  80. A_PUNPCKHWD,A_PUNPCKLBW,A_PUNPCKLDQ,A_PUNPCKLWD,A_PXOR);
  81. const
  82. firstop = A_MOV;
  83. lastop = A_PXOR;
  84. type
  85. { enumeration for registers, don't change this }
  86. { it's used by the register size converstaions }
  87. tregister = (
  88. R_NO,R_EAX,R_ECX,R_EDX,R_EBX,R_ESP,R_EBP,R_ESI,R_EDI,
  89. R_AX,R_CX,R_DX,R_BX,R_SP,R_BP,R_SI,R_DI,
  90. R_AL,R_CL,R_DL,R_BL,R_AH,R_CH,R_BH,R_DH,
  91. { for an easier assembler generation }
  92. R_DEFAULT_SEG,R_CS,R_DS,R_ES,R_FS,R_GS,R_SS,
  93. R_ST,R_ST0,R_ST1,R_ST2,R_ST3,R_ST4,R_ST5,R_ST6,R_ST7,
  94. R_MM0,R_MM1,R_MM2,R_MM3,R_MM4,R_MM5,R_MM6,R_MM7);
  95. { S_NO = No Size of operand }
  96. { S_B = Byte size operand }
  97. { S_W = Word size operand }
  98. { S_L = DWord size operand }
  99. { USED FOR conversions in x86}
  100. { S_BW = Byte to word }
  101. { S_BL = Byte to long }
  102. { S_WL = Word to long }
  103. { Floating point types }
  104. { S_FX = Extended type }
  105. { S_FL = double/64bit integer }
  106. { S_FS = single type (32 bit) }
  107. { S_IQ = integer on 64 bits }
  108. { S_IL = integer on 32 bits }
  109. { S_IS = integer on 16 bits }
  110. { S_D = integer on bits for MMX }
  111. topsize = (S_NO,S_B,S_W,S_L,S_BW,S_BL,S_WL,
  112. S_IS,S_IL,S_IQ,S_FS,S_FL,S_FX,S_D,S_Q);
  113. { S_FS and S_FL added
  114. S_X renamed to S_FX
  115. S_IL added
  116. S_S and S_Q renamed to S_IQ and S_IS
  117. S_F? means a real load or store or read
  118. added to distinguish between longint l suffix like 'movl'
  119. and double l suffix 'fldl'
  120. distinction needed for intel output !! }
  121. plocation = ^tlocation;
  122. { information about the location of an operand }
  123. { LOC_FPUSTACK FPU stack }
  124. { LOC_REGISTER in a processor register }
  125. { LOC_MEM in the memory }
  126. { LOC_REFERENCE like LOC_MEM, but lvalue }
  127. { LOC_JUMP nur bool'sche Resultate, Sprung zu false- oder }
  128. { truelabel }
  129. { LOC_FLAGS nur bool'sche Rsultate, Flags sind gesetzt }
  130. { LOC_CREGISTER register which shouldn't be modified }
  131. { LOC_INVALID added for tracking problems}
  132. tloc = (LOC_INVALID,LOC_FPU,LOC_REGISTER,LOC_MEM,LOC_REFERENCE,LOC_JUMP,
  133. LOC_FLAGS,LOC_CREGISTER,LOC_MMXREGISTER,LOC_CMMXREGISTER);
  134. tresflags = (F_E,F_NE,F_G,F_L,F_GE,F_LE,F_C,F_NC,
  135. F_A,F_AE,F_B,F_BE);
  136. preference = ^treference;
  137. treference = record
  138. base,segment,index : tregister;
  139. offset : longint;
  140. symbol : pstring;
  141. { a constant is also a treference, this makes the code generator }
  142. { easier }
  143. isintvalue : boolean;
  144. scalefactor : byte;
  145. end;
  146. tlocation = record
  147. case loc : tloc of
  148. LOC_MEM,LOC_REFERENCE : (reference : treference);
  149. LOC_FPU : ();
  150. LOC_JUMP : ();
  151. LOC_FLAGS : (resflags : tresflags);
  152. LOC_INVALID : ();
  153. { it's only for better handling }
  154. LOC_MMXREGISTER : (mmxreg : tregister);
  155. { segment in reference at the same place as in loc_register }
  156. LOC_REGISTER,LOC_CREGISTER : (
  157. case longint of
  158. 1 : (register,segment,registerhigh : tregister);
  159. { overlay a registerlow }
  160. 2 : (registerlow : tregister);
  161. );
  162. end;
  163. pcsymbol = ^tcsymbol;
  164. tcsymbol = record
  165. symbol : pchar;
  166. offset : longint;
  167. end;
  168. const
  169. { arrays for boolean location conversions }
  170. flag_2_jmp : array[F_E..F_BE] of tasmop =
  171. (A_JE,A_JNE,A_JG,A_JL,A_JGE,A_JLE,A_JC,A_JNC,
  172. A_JA,A_JAE,A_JB,A_JBE);
  173. flag_2_set : array[F_E..F_BE] of tasmop = { v-- the GAS didn't know setc }
  174. (A_SETE,A_SETNE,A_SETG,A_SETL,A_SETGE,A_SETLE,A_SETB,A_SETAE,
  175. A_SETA,A_SETAE,A_SETB,A_SETBE);
  176. { operand types }
  177. top_none = 0;
  178. top_reg = 1;
  179. top_ref = 2;
  180. { a constant can be also written as treference }
  181. top_const = 3;
  182. { this is for calls }
  183. top_symbol = 4;
  184. const
  185. { description of the cpu }
  186. cpuflags : set of tcpuflags = [];
  187. stack_pointer = R_ESP;
  188. frame_pointer = R_EBP;
  189. {This constant is an alias for the accumulator, as it's name may
  190. differ from processor to processor.}
  191. accumulator = R_EAX;
  192. firstregister = R_EAX;
  193. lastregister = R_MM7;
  194. general_registers = [R_EAX,R_EBX,R_ECX,R_EDX];
  195. registers_saved_on_cdecl = [R_ESI,R_EDI,R_EBX];
  196. { size of pointers }
  197. pointersize = 4;
  198. sizepostfix_pointer = S_L;
  199. type
  200. pai_labeled = ^tai_labeled;
  201. tai_labeled = object(tai)
  202. _operator : tasmop;
  203. lab : plabel;
  204. constructor init(op : tasmop; l : plabel);
  205. destructor done;virtual;
  206. end;
  207. pairegalloc = ^tairegalloc;
  208. tairegalloc = object(tai)
  209. reg : tregister;
  210. constructor init(r : tregister);
  211. end;
  212. pairegdealloc = ^tairegdealloc;
  213. tairegdealloc = object(tai)
  214. reg : tregister;
  215. constructor init(r : tregister);
  216. end;
  217. pai386 = ^tai386;
  218. tai386 = object(tai)
  219. { this isn't a proper style, but not very memory expensive }
  220. op1,op2: pointer;
  221. _operator : tasmop;
  222. opxt:word;
  223. size:topsize;
  224. constructor op_none(op : tasmop;_size : topsize);
  225. constructor op_reg(op : tasmop;_size : topsize;_op1 : tregister);
  226. constructor op_const(op : tasmop;_size : topsize;_op1 : longint);
  227. constructor op_ref(op : tasmop;_size : topsize;_op1 : preference);
  228. constructor op_loc(op : tasmop;_size : topsize;_op1 : tlocation);
  229. constructor op_reg_reg(op : tasmop;_size : topsize;_op1,_op2 : tregister);
  230. constructor op_reg_reg_reg(op : tasmop;_size : topsize;_op1,_op2,_op3 : tregister);
  231. constructor op_reg_ref(op : tasmop;_size : topsize;_op1 : tregister;_op2 : preference);
  232. constructor op_reg_loc(op : tasmop;_size : topsize;_op1 : tregister;_op2 : tlocation);
  233. constructor op_loc_reg(op : tasmop;_size : topsize;_op1 : tlocation;_op2 : tregister);
  234. constructor op_const_reg(op : tasmop;_size : topsize;_op1 : longint;_op2 : tregister);
  235. { this combination is needed by ENTER }
  236. constructor op_const_const(op : tasmop;_size : topsize;_op1,_op2 : longint);
  237. constructor op_const_ref(op : tasmop;_size : topsize;_op1 : longint;_op2 : preference);
  238. constructor op_const_loc(op : tasmop;_size : topsize;_op1 : longint;_op2 : tlocation);
  239. constructor op_ref_reg(op : tasmop;_size : topsize;_op1 : preference;_op2 : tregister);
  240. { this is only allowed if _op1 is an int value (_op1^.isintvalue=true) }
  241. constructor op_ref_ref(op : tasmop;_size : topsize;_op1,_op2 : preference);
  242. {
  243. constructor op_ref_loc(op : tasmop;_size : topsize;_op1 : preference;_op2 : tlcation);}
  244. constructor op_const_reg_reg(op : tasmop;_size : topsize;_op1 : longint;_op2 : tregister;_op3 : tregister);
  245. { this is for CALL etc. }
  246. { symbol is replaced by the address of symbol }
  247. { so op_csymbol(A_PUSH,S_L,strnew('P')); generates }
  248. { an instruction which pushes the address of P }
  249. { to the stack }
  250. constructor op_csymbol(op : tasmop;_size : topsize;_op1 : pcsymbol);
  251. constructor op_csymbol_reg(op : tasmop;_size : topsize;_op1 : pcsymbol;_op2 : tregister);
  252. constructor op_csymbol_ref(op : tasmop;_size : topsize;_op1 : pcsymbol;_op2 : preference);
  253. constructor op_csymbol_loc(op : tasmop;_size : topsize;_op1 : pcsymbol;_op2 : tlocation);
  254. { OUT immediate8 }
  255. constructor op_reg_const(op:tasmop; _size: topsize; _op1: tregister; _op2: longint);
  256. function op1t:byte;
  257. function op2t:byte;
  258. function op3t:byte;
  259. destructor done;virtual;
  260. end;
  261. const
  262. maxvarregs = 4;
  263. varregs : array[1..maxvarregs] of tregister =
  264. (R_EBX,R_EDX,R_ECX,R_EAX);
  265. { the following functions allow to convert registers }
  266. { for example reg8toreg32(R_AL) returns R_EAX }
  267. { for example reg16toreg32(R_AL) gives an undefined }
  268. { result }
  269. { these functions expects that the turn of }
  270. { tregister isn't changed }
  271. function reg8toreg16(reg : tregister) : tregister;
  272. function reg8toreg32(reg : tregister) : tregister;
  273. function reg16toreg8(reg : tregister) : tregister;
  274. function reg32toreg8(reg : tregister) : tregister;
  275. function reg32toreg16(reg : tregister) : tregister;
  276. function reg16toreg32(reg : tregister) : tregister;
  277. { these procedures must be defined by all target cpus }
  278. function regtoreg8(reg : tregister) : tregister;
  279. function regtoreg16(reg : tregister) : tregister;
  280. function regtoreg32(reg : tregister) : tregister;
  281. { can be ignored on 32 bit systems }
  282. function regtoreg64(reg : tregister) : tregister;
  283. { resets all values of ref to defaults }
  284. procedure reset_reference(var ref : treference);
  285. { set mostly used values of a new reference }
  286. function new_reference(base : tregister;offset : longint) : preference;
  287. { same as reset_reference, but symbol is disposed }
  288. { use this only for already used references }
  289. procedure clear_reference(var ref : treference);
  290. function newreference(const r : treference) : preference;
  291. procedure disposereference(var r : preference);
  292. function reg2str(r : tregister) : string;
  293. { generates an help record for constants }
  294. function newcsymbol(const s : string;l : longint) : pcsymbol;
  295. const
  296. ao_unknown = $0;
  297. { 8 bit reg }
  298. ao_reg8 = $1;
  299. { 16 bit reg }
  300. ao_reg16 = $2;
  301. { 32 bit reg }
  302. ao_reg32 = $4;
  303. ao_reg = (ao_reg8 or ao_reg16 or ao_reg32);
  304. { for push/pop operands }
  305. ao_wordreg = (ao_reg16 or ao_reg32);
  306. ao_imm8 = $8; { 8 bit immediate }
  307. ao_imm8S = $10; { 8 bit immediate sign extended }
  308. ao_imm16 = $20; { 16 bit immediate }
  309. ao_imm32 = $40; { 32 bit immediate }
  310. ao_imm1 = $80; { 1 bit immediate }
  311. { for unknown expressions }
  312. ao_immunknown = ao_imm32;
  313. { gen'l immediate }
  314. ao_imm = (ao_imm8 or ao_imm8S or ao_imm16 or ao_imm32);
  315. ao_disp8 = $200; { 8 bit displacement (for jumps) }
  316. ao_disp16 = $400; { 16 bit displacement }
  317. ao_disp32 = $800; { 32 bit displacement }
  318. { general displacement }
  319. ao_disp = (ao_disp8 or ao_disp16 or ao_disp32);
  320. { for unknown size displacements }
  321. ao_dispunknown = ao_disp32;
  322. ao_mem8 = $1000;
  323. ao_mem16 = $2000;
  324. ao_mem32 = $4000;
  325. ao_baseindex = $8000;
  326. { general mem }
  327. ao_mem = (ao_disp or ao_mem8 or ao_mem16 or ao_mem32 or ao_baseindex);
  328. ao_wordmem = (ao_mem16 or ao_mem32 or ao_disp or ao_baseindex);
  329. ao_bytemem = (ao_mem8 or ao_disp or ao_baseindex);
  330. { register to hold in/out port addr = dx }
  331. ao_inoutportreg = $10000;
  332. { register to hold shift cound = cl }
  333. ao_shiftcount = $20000;
  334. ao_control = $40000; { Control register }
  335. ao_debug = $80000; { Debug register }
  336. ao_test = $100000; { Test register }
  337. { suggestion from PM }
  338. { st0 is also a float reg }
  339. {ao_floatreg = $200000; }{ Float register }
  340. ao_otherfloatreg = $200000; { Float register different from st0 }
  341. ao_floatacc = $400000; { Float stack top %st(0) }
  342. ao_floatreg = ao_otherfloatreg or ao_floatacc; { all float regs }
  343. { Florian correct this if it is wrong
  344. but it seems necessary for ratti386 to accept the code
  345. in i386/math.inc !! }
  346. { 2 bit segment register }
  347. ao_sreg2 = $800000;
  348. { 3 bit segment register }
  349. ao_sreg3 = $1000000;
  350. { Accumulat or %al or %ax or %eax }
  351. ao_acc = $2000000;
  352. ao_implicitregister = (ao_inoutportreg or ao_shiftcount or ao_acc or ao_floatacc);
  353. ao_jumpabsolute = $4000000;
  354. ao_abs8 = $08000000;
  355. ao_abs16 = $10000000;
  356. ao_abs32 = $20000000;
  357. ao_abs = (ao_abs8 or ao_abs16 or ao_abs32);
  358. ao_none = $ff;
  359. { this is for the code generator }
  360. { set if operands are words or dwords }
  361. af_w = $1;
  362. { D = 0 if Reg --> Regmem; D = 1 if Regmem --> Reg }
  363. af_d = $2;
  364. { direction flag for floating insns: MUST BE = $400 }
  365. af_floatd = $400;
  366. { shorthand }
  367. af_dw = (af_d or af_w);
  368. { register is in low 3 bits of opcode }
  369. shortform = $10;
  370. { shortform and w-bit is=$8 }
  371. Shortformw = $20;
  372. seg2shortform = $40; { encoding of load segment reg insns }
  373. seg3shortform = $80; { fs/gs segment register insns. }
  374. jump = $100; { special case for jump insns. }
  375. jumpintersegment = $200; { special case for intersegment leaps/calls }
  376. dont_use = $400;
  377. noModrm = $800;
  378. modrm = $1000;
  379. imulkludge = $2000;
  380. Jumpbyte = $4000;
  381. Jumpdword = $8000;
  382. af_ReverseRegRegmem = $10000;
  383. type
  384. ttemplate = record
  385. i : tasmop;
  386. ops : byte;
  387. oc : longint;
  388. eb : byte;
  389. m : longint;
  390. o1,o2,o3 : longint;
  391. end;
  392. const
  393. last_instruction_in_cache = A_EMMS;
  394. type
  395. tins_cache = array[A_MOV..last_instruction_in_cache] of longint;
  396. var
  397. ins_cache : tins_cache;
  398. const
  399. it : array[0..442] of ttemplate = (
  400. (i : A_MOV;ops : 2;oc : $a0;eb : ao_none;m : af_dw or NoModrm;o1 : ao_disp32;o2 : ao_acc;o3 : 0 ),
  401. (i : A_MOV;ops : 2;oc : $88;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0 ),
  402. (i : A_MOV;ops : 2;oc : $b0;eb : ao_none;m : ShortFormW;o1 : ao_imm;o2 : ao_reg;o3 : 0 ),
  403. (i : A_MOV;ops : 2;oc : $c6;eb : ao_none;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0 ),
  404. (i : A_MOV;ops : 2;oc : $8c;eb : ao_none;m : af_d or Modrm;o1 : ao_sreg3 or ao_sreg2;o2 : ao_reg16 or
  405. ao_mem16;o3 : 0 ),
  406. (i : A_MOV;ops : 2;oc : $0f20;eb : ao_none;m : af_d or Modrm;o1 : ao_control;o2 : ao_reg32;o3 : 0),
  407. (i : A_MOV;ops : 2;oc : $0f21;eb : ao_none;m : af_d or Modrm;o1 : ao_debug;o2 : ao_reg32;o3 : 0),
  408. (i : A_MOV;ops : 2;oc : $0f24;eb : ao_none;m : af_d or Modrm;o1 : ao_test;o2 : ao_reg32;o3 : 0),
  409. (i : A_MOVSB;ops : 2;oc : $0fbe;eb : ao_none;m : af_reverseregregmem or Modrm;o1 : ao_reg8 or ao_mem;o2 : ao_reg16
  410. or ao_reg32;o3 : 0),
  411. (i : A_MOVSBL;ops : 2;oc : $0fbe;eb : ao_none;m : af_reverseregregmem or Modrm;o1 : ao_reg8 or ao_mem;
  412. o2 : ao_reg32;o3 : 0),
  413. (i : A_MOVSBW;ops : 2;oc : $660fbe;eb : ao_none;m : af_reverseregregmem or Modrm;o1 : ao_reg8 or ao_mem;
  414. o2 : ao_reg16;o3 : 0),
  415. (i : A_MOVSWL;ops : 2;oc : $0fbf;eb : ao_none;m : af_reverseregregmem or Modrm;o1 : ao_reg16 or ao_mem;
  416. o2 : ao_reg32;o3 : 0),
  417. (i : A_MOVZB;ops : 2;oc : $0fb6;eb : ao_none;m : af_reverseregregmem or Modrm;o1 : ao_reg8 or ao_mem;
  418. o2 : ao_reg16 or ao_reg32;o3 : 0),
  419. (i : A_MOVZWL;ops : 2;oc : $0fb7;eb : ao_none;m : af_reverseregregmem or Modrm;o1 : ao_reg16 or ao_mem;
  420. o2 : ao_reg32;o3 : 0),
  421. (i : A_PUSH;ops : 1;oc : $50;eb : ao_none;m : ShortForm;o1 : ao_wordreg;o2 : 0;o3 : 0 ),
  422. (i : A_PUSH;ops : 1;oc : $ff;eb : $6;m : Modrm;o1 : ao_wordreg or ao_wordMem;o2 : 0;o3 : 0 ),
  423. (i : A_PUSH;ops : 1;oc : $6a;eb : ao_none;m : NoModrm;o1 : ao_imm8S;o2 : 0;o3 : 0),
  424. (i : A_PUSH;ops : 1;oc : $68;eb : ao_none;m : NoModrm;o1 : ao_imm32 or ao_imm16;o2 : 0;o3 : 0),
  425. (i : A_PUSH;ops : 1;oc : $06;eb : ao_none;m : Seg2ShortForm;o1 : ao_sreg2;o2 : 0;o3 : 0 ),
  426. (i : A_PUSH;ops : 1;oc : $0fa0;eb : ao_none;m : Seg3ShortForm;o1 : ao_sreg3;o2 : 0;o3 : 0 ),
  427. (i : A_PUSHA;ops : 0;oc : $60;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0 ),
  428. (i : A_PUSHAD; ops: 0; oc: $6660;eb: ao_none;m: NoModRm;o1: 0;o2: 0;o3: 0 ),
  429. (i : A_POP;ops : 1;oc : $58;eb : ao_none;m : ShortForm;o1 : ao_wordreg;o2 : 0;o3 : 0 ),
  430. (i : A_POP;ops : 1;oc : $8f;eb : $0;m : Modrm;o1 : ao_wordreg or ao_wordmem;o2 : 0;o3 : 0 ),
  431. (i : A_POP;ops : 1;oc : $07;eb : ao_none;m : Seg2ShortForm;o1 : ao_sreg2;o2 : 0;o3 : 0 ),
  432. (i : A_POP;ops : 1;oc : $0fa1;eb : ao_none;m : Seg3ShortForm;o1 : ao_sreg3;o2 : 0;o3 : 0 ),
  433. (i : A_POPA;ops : 0;oc : $61;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0 ),
  434. (i : A_POPAD; ops: 0; oc: $6661;eb: ao_none;m : NoModRm;o1 : 0;o2 : 0;o3: 0),
  435. (i : A_XCHG;ops : 2;oc : $90;eb : ao_none;m : ShortForm;o1 : ao_wordreg;o2 : ao_acc;o3 : 0 ),
  436. (i : A_XCHG;ops : 2;oc : $90;eb : ao_none;m : ShortForm;o1 : ao_acc;o2 : ao_wordreg;o3 : 0 ),
  437. (i : A_XCHG;ops : 2;oc : $86;eb : ao_none;m : af_w or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0 ),
  438. (i : A_XCHG;ops : 2;oc : $86;eb : ao_none;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : ao_reg;o3 : 0 ),
  439. (i : A_IN;ops : 2;oc : $e4;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm8;o2 : ao_acc;o3 : 0 ),
  440. (i : A_IN;ops : 2;oc : $ec;eb : ao_none;m : af_w or NoModrm;o1 : ao_inoutportreg;o2 : ao_acc;o3 : 0 ),
  441. (i : A_OUT;ops : 2;oc : $e6;eb : ao_none;m : af_w or NoModrm;o1 : ao_acc;o2 : ao_imm8;o3 : 0 ),
  442. (i : A_OUT;ops : 2;oc : $ee;eb : ao_none;m : af_w or NoModrm;o1 : ao_acc;o2 : ao_inoutportreg;o3 : 0 ),
  443. (i : A_LEA;ops : 2;oc : $8d;eb : ao_none;m : Modrm;o1 : ao_wordmem or ao_jumpabsolute;o2 : ao_wordreg;o3 : 0 ),
  444. (i : A_LDS;ops : 2;oc : $c5;eb : ao_none;m : Modrm;o1 : ao_mem;o2 : ao_reg32;o3 : 0),
  445. (i : A_LES;ops : 2;oc : $c4;eb : ao_none;m : Modrm;o1 : ao_mem;o2 : ao_reg32;o3 : 0),
  446. (i : A_LFS;ops : 2;oc : $0fb4;eb : ao_none;m : Modrm;o1 : ao_mem;o2 : ao_reg32;o3 : 0),
  447. (i : A_LGS;ops : 2;oc : $0fb5;eb : ao_none;m : Modrm;o1 : ao_mem;o2 : ao_reg32;o3 : 0),
  448. (i : A_LSS;ops : 2;oc : $0fb2;eb : ao_none;m : Modrm;o1 : ao_mem;o2 : ao_reg32;o3 : 0),
  449. (i : A_CLC;ops : 0;oc : $f8;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  450. (i : A_CLD;ops : 0;oc : $fc;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  451. (i : A_CLI;ops : 0;oc : $fa;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  452. (i : A_CLTS;ops : 0;oc : $0f06;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  453. (i : A_CMC;ops : 0;oc : $f5;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  454. (i : A_LAHF;ops : 0;oc : $9f;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  455. (i : A_SAHF;ops : 0;oc : $9e;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  456. (i : A_PUSHF;ops : 0;oc : $9c;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  457. (i : A_PUSHFD; ops: 0; oc: $669c; eb: ao_none; m: NoModRm; o1: 0;o2: 0;o3: 0),
  458. (i : A_POPF;ops : 0;oc : $9d;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  459. (i : A_POPFD;ops: 0;oc: $669d;eb : ao_none;m : NoModRm;o1: 0;o2 : 0;o3 : 0),
  460. (i : A_STC;ops : 0;oc : $f9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  461. (i : A_STD;ops : 0;oc : $fd;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  462. (i : A_STI;ops : 0;oc : $fb;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  463. (i : A_ADD;ops : 2;oc : $0;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  464. (i : A_ADD;ops : 2;oc : $83;eb : 0;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  465. (i : A_ADD;ops : 2;oc : $4;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  466. (i : A_ADD;ops : 2;oc : $80;eb : 0;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  467. (i : A_INC;ops : 1;oc : $40;eb : ao_none;m : ShortForm;o1 : ao_wordreg;o2 : 0;o3 : 0),
  468. (i : A_INC;ops : 1;oc : $fe;eb : 0;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  469. (i : A_SUB;ops : 2;oc : $28;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  470. (i : A_SUB;ops : 2;oc : $83;eb : 5;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  471. (i : A_SUB;ops : 2;oc : $2c;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  472. (i : A_SUB;ops : 2;oc : $80;eb : 5;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  473. (i : A_DEC;ops : 1;oc : $48;eb : ao_none;m : ShortForm;o1 : ao_wordreg;o2 : 0;o3 : 0),
  474. (i : A_DEC;ops : 1;oc : $fe;eb : 1;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  475. (i : A_SBB;ops : 2;oc : $18;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  476. (i : A_SBB;ops : 2;oc : $83;eb : 3;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  477. (i : A_SBB;ops : 2;oc : $1c;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  478. (i : A_SBB;ops : 2;oc : $80;eb : 3;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  479. (i : A_CMP;ops : 2;oc : $38;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  480. (i : A_CMP;ops : 2;oc : $83;eb : 7;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  481. (i : A_CMP;ops : 2;oc : $3c;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  482. (i : A_CMP;ops : 2;oc : $80;eb : 7;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  483. (i : A_TEST;ops : 2;oc : $84;eb : ao_none;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : ao_reg;o3 : 0),
  484. (i : A_TEST;ops : 2;oc : $84;eb : ao_none;m : af_w or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  485. (i : A_TEST;ops : 2;oc : $a8;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  486. (i : A_TEST;ops : 2;oc : $f6;eb : 0;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  487. (i : A_AND;ops : 2;oc : $20;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  488. (i : A_AND;ops : 2;oc : $83;eb : 4;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  489. (i : A_AND;ops : 2;oc : $24;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  490. (i : A_AND;ops : 2;oc : $80;eb : 4;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  491. (i : A_OR;ops : 2;oc : $08;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  492. (i : A_OR;ops : 2;oc : $83;eb : 1;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  493. (i : A_OR;ops : 2;oc : $0c;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  494. (i : A_OR;ops : 2;oc : $80;eb : 1;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  495. (i : A_XOR;ops : 2;oc : $30;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  496. (i : A_XOR;ops : 2;oc : $83;eb : 6;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  497. (i : A_XOR;ops : 2;oc : $34;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  498. (i : A_XOR;ops : 2;oc : $80;eb : 6;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  499. (i : A_ADC;ops : 2;oc : $10;eb : ao_none;m : af_dw or Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  500. (i : A_ADC;ops : 2;oc : $83;eb : 2;m : Modrm;o1 : ao_imm8s;o2 : ao_wordreg or ao_wordmem;o3 : 0),
  501. (i : A_ADC;ops : 2;oc : $14;eb : ao_none;m : af_w or NoModrm;o1 : ao_imm;o2 : ao_acc;o3 : 0),
  502. (i : A_ADC;ops : 2;oc : $80;eb : 2;m : af_w or Modrm;o1 : ao_imm;o2 : ao_reg or ao_mem;o3 : 0),
  503. (i : A_NEG;ops : 1;oc : $f6;eb : 3;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  504. (i : A_NOT;ops : 1;oc : $f6;eb : 2;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  505. (i : A_AAA;ops : 0;oc : $37;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  506. (i : A_AAS;ops : 0;oc : $3f;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  507. (i : A_DAA;ops : 0;oc : $27;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  508. (i : A_DAS;ops : 0;oc : $2f;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  509. (i : A_AAD;ops : 0;oc : $d50a;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  510. (i : A_AAM;ops : 0;oc : $d40a;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  511. (i : A_CBW;ops : 0;oc : $6698;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  512. (i : A_CWD;ops : 0;oc : $6699;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  513. (i : A_CWDE;ops : 0;oc : $98;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  514. (i : A_CDQ;ops : 0;oc : $99;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  515. (i : A_MUL;ops : 1;oc : $f6;eb : 4;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  516. (i : A_IMUL;ops : 1;oc : $f6;eb : 5;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  517. (i : A_IMUL;ops : 2;oc : $0faf;eb : ao_none;m : Modrm or af_reverseregregmem;o1 : ao_wordreg or ao_mem;
  518. o2 : ao_wordreg;o3 : 0),
  519. (i : A_IMUL;ops : 3;oc : $6b;eb : ao_none;m : Modrm or af_reverseregregmem;o1 : ao_imm8s;
  520. o2 : ao_wordreg or ao_mem;o3 : ao_wordreg),
  521. (i : A_IMUL;ops : 3;oc : $69;eb : ao_none;m : Modrm or af_reverseregregmem;o1 : ao_imm16 or ao_imm32;
  522. o2 : ao_wordreg or ao_mem;o3 : ao_wordreg),
  523. (i : A_IMUL;ops : 2;oc : $6b;eb : ao_none;m : Modrm or imulKludge;o1 : ao_imm8s;o2 : ao_wordreg;o3 : 0),
  524. (i : A_IMUL;ops : 2;oc : $69;eb : ao_none;m : Modrm or imulKludge;o1 : ao_imm8 or ao_imm16 or ao_imm32;
  525. o2 : ao_wordreg;o3 : 0),
  526. (i : A_DIV;ops : 1;oc : $f6;eb : 6;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  527. (i : A_DIV;ops : 2;oc : $f6;eb : 6;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : ao_acc;o3 : 0),
  528. (i : A_IDIV;ops : 1;oc : $f6;eb : 7;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  529. (i : A_IDIV;ops : 2;oc : $f6;eb : 7;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : ao_acc;o3 : 0),
  530. (i : A_ROL;ops : 2;oc : $d0;eb : 0;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  531. (i : A_ROL;ops : 2;oc : $c0;eb : 0;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  532. (i : A_ROL;ops : 2;oc : $d2;eb : 0;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  533. (i : A_ROL;ops : 1;oc : $d0;eb : 0;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  534. (i : A_ROR;ops : 2;oc : $d0;eb : 1;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  535. (i : A_ROR;ops : 2;oc : $c0;eb : 1;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  536. (i : A_ROR;ops : 2;oc : $d2;eb : 1;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  537. (i : A_ROR;ops : 1;oc : $d0;eb : 1;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  538. (i : A_RCL;ops : 2;oc : $d0;eb : 2;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  539. (i : A_RCL;ops : 2;oc : $c0;eb : 2;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  540. (i : A_RCL;ops : 2;oc : $d2;eb : 2;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  541. (i : A_RCL;ops : 1;oc : $d0;eb : 2;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  542. (i : A_RCR;ops : 2;oc : $d0;eb : 3;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  543. (i : A_RCR;ops : 2;oc : $c0;eb : 3;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  544. (i : A_RCR;ops : 2;oc : $d2;eb : 3;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  545. (i : A_RCR;ops : 1;oc : $d0;eb : 3;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  546. (i : A_SAL;ops : 2;oc : $d0;eb : 4;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  547. (i : A_SAL;ops : 2;oc : $c0;eb : 4;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  548. (i : A_SAL;ops : 2;oc : $d2;eb : 4;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  549. (i : A_SAL;ops : 1;oc : $d0;eb : 4;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  550. (i : A_SHL;ops : 2;oc : $d0;eb : 4;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  551. (i : A_SHL;ops : 2;oc : $c0;eb : 4;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  552. (i : A_SHL;ops : 2;oc : $d2;eb : 4;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  553. (i : A_SHL;ops : 1;oc : $d0;eb : 4;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  554. (i : A_SHLD;ops : 3;oc : $0fa4;eb : ao_none;m : Modrm;o1 : ao_imm8;o2 : ao_wordreg;o3 : ao_wordreg or ao_mem),
  555. (i : A_SHLD;ops : 3;oc : $0fa5;eb : ao_none;m : Modrm;o1 : ao_shiftcount;o2 : ao_wordreg;o3 : ao_wordreg or ao_mem),
  556. (i : A_SHR;ops : 2;oc : $d0;eb : 5;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  557. (i : A_SHR;ops : 2;oc : $c0;eb : 5;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  558. (i : A_SHR;ops : 2;oc : $d2;eb : 5;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  559. (i : A_SHR;ops : 1;oc : $d0;eb : 5;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  560. (i : A_SHRD;ops : 3;oc : $0fac;eb : ao_none;m : Modrm;o1 : ao_imm8;o2 : ao_wordreg;o3 : ao_wordreg or ao_mem),
  561. (i : A_SHRD;ops : 3;oc : $0fad;eb : ao_none;m : Modrm;o1 : ao_shiftcount;o2 : ao_wordreg;o3 : ao_wordreg or ao_mem),
  562. (i : A_SAR;ops : 2;oc : $d0;eb : 7;m : af_w or Modrm;o1 : ao_imm1;o2 : ao_reg or ao_mem;o3 : 0),
  563. (i : A_SAR;ops : 2;oc : $c0;eb : 7;m : af_w or Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  564. (i : A_SAR;ops : 2;oc : $d2;eb : 7;m : af_w or Modrm;o1 : ao_shiftcount;o2 : ao_reg or ao_mem;o3 : 0),
  565. (i : A_SAR;ops : 1;oc : $d0;eb : 7;m : af_w or Modrm;o1 : ao_reg or ao_mem;o2 : 0;o3 : 0),
  566. (i : A_CALL;ops : 1;oc : $e8;eb : ao_none;m : jumpdword;o1 : ao_disp32;o2 : 0;o3 : 0),
  567. (i : A_CALL;ops : 1;oc : $ff;eb : 2;m : Modrm;o1 : ao_reg or ao_mem or ao_jumpabsolute;o2 : 0;o3 : 0),
  568. (i : A_LCALL;ops : 2;oc : $9a;eb : ao_none;m : JumpInterSegment;o1 : ao_imm16;o2 : ao_abs32;o3 : 0),
  569. (i : A_LCALL;ops : 1;oc : $ff;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  570. (i : A_JMP;ops : 1;oc : $eb;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  571. (i : A_JMP;ops : 1;oc : $ff;eb : 4;m : Modrm;o1 : ao_reg32 or ao_mem or ao_jumpabsolute;o2 : 0;o3 : 0),
  572. (i : A_LJMP;ops : 2;oc : $ea;eb : ao_none;m : JumpInterSegment;o1 : ao_imm16;o2 : ao_imm32;o3 : 0),
  573. (i : A_LJMP;ops : 1;oc : $ff;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  574. (i : A_RET;ops : 0;oc : $c3;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  575. (i : A_RET;ops : 1;oc : $c2;eb : ao_none;m : NoModrm;o1 : ao_imm16;o2 : 0;o3 : 0),
  576. (i : A_LRET;ops : 0;oc : $cb;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  577. (i : A_LRET;ops : 1;oc : $ca;eb : ao_none;m : NoModrm;o1 : ao_imm16;o2 : 0;o3 : 0),
  578. (i : A_ENTER;ops : 2;oc : $c8;eb : ao_none;m : NoModrm;o1 : ao_imm16;o2 : ao_imm8;o3 : 0),
  579. (i : A_LEAVE;ops : 0;oc : $c9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  580. (i : A_JO;ops : 1;oc : $70;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  581. (i : A_JNO;ops : 1;oc : $71;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  582. (i : A_JB;ops : 1;oc : $72;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  583. (i : A_JC;ops : 1;oc : $72;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  584. (i : A_JNAE;ops : 1;oc : $72;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  585. (i : A_JNB;ops : 1;oc : $73;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  586. (i : A_JNC;ops : 1;oc : $73;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  587. (i : A_JAE;ops : 1;oc : $73;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  588. (i : A_JE;ops : 1;oc : $74;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  589. (i : A_JZ;ops : 1;oc : $74;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  590. (i : A_JNE;ops : 1;oc : $75;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  591. (i : A_JNZ;ops : 1;oc : $75;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  592. (i : A_JBE;ops : 1;oc : $76;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  593. (i : A_JNA;ops : 1;oc : $76;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  594. (i : A_JNBE;ops : 1;oc : $77;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  595. (i : A_JA;ops : 1;oc : $77;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  596. (i : A_JS;ops : 1;oc : $78;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  597. (i : A_JNS;ops : 1;oc : $79;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  598. (i : A_JP;ops : 1;oc : $7a;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  599. (i : A_JPE;ops : 1;oc : $7a;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  600. (i : A_JNP;ops : 1;oc : $7b;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  601. (i : A_JPO;ops : 1;oc : $7b;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  602. (i : A_JL;ops : 1;oc : $7c;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  603. (i : A_JNGE;ops : 1;oc : $7c;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  604. (i : A_JNL;ops : 1;oc : $7d;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  605. (i : A_JGE;ops : 1;oc : $7d;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  606. (i : A_JLE;ops : 1;oc : $7e;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  607. (i : A_JNG;ops : 1;oc : $7e;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  608. (i : A_JNLE;ops : 1;oc : $7f;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  609. (i : A_JG;ops : 1;oc : $7f;eb : ao_none;m : Jump;o1 : ao_disp;o2 : 0;o3 : 0),
  610. (i : A_JCXZ;ops : 1;oc : $67e3;eb : ao_none;m : JumpByte;o1 : ao_disp;o2 : 0;o3 : 0),
  611. (i : A_JECXZ;ops : 1;oc : $e3;eb : ao_none;m : JumpByte;o1 : ao_disp;o2 : 0;o3 : 0),
  612. (i : A_LOOP;ops : 1;oc : $e2;eb : ao_none;m : JumpByte;o1 : ao_disp;o2 : 0;o3 : 0),
  613. (i : A_LOOPZ;ops : 1;oc : $e1;eb : ao_none;m : JumpByte;o1 : ao_disp;o2 : 0;o3 : 0),
  614. (i : A_LOOPE;ops : 1;oc : $e1;eb : ao_none;m : JumpByte;o1 : ao_disp;o2 : 0;o3 : 0),
  615. (i : A_LOOPNZ;ops : 1;oc : $e0;eb : ao_none;m : JumpByte;o1 : ao_disp;o2 : 0;o3 : 0),
  616. (i : A_LOOPNE;ops : 1;oc : $e0;eb : ao_none;m : JumpByte;o1 : ao_disp;o2 : 0;o3 : 0),
  617. (i : A_SETO;ops : 1;oc : $0f90;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  618. (i : A_SETNO;ops : 1;oc : $0f91;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  619. (i : A_SETB;ops : 1;oc : $0f92;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  620. (i : A_SETNAE;ops : 1;oc : $0f92;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  621. (i : A_SETNB;ops : 1;oc : $0f93;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  622. (i : A_SETAE;ops : 1;oc : $0f93;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  623. (i : A_SETE;ops : 1;oc : $0f94;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  624. (i : A_SETZ;ops : 1;oc : $0f94;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  625. (i : A_SETNE;ops : 1;oc : $0f95;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  626. (i : A_SETNZ;ops : 1;oc : $0f95;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  627. (i : A_SETBE;ops : 1;oc : $0f96;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  628. (i : A_SETNA;ops : 1;oc : $0f96;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  629. (i : A_SETNBE;ops : 1;oc : $0f97;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  630. (i : A_SETA;ops : 1;oc : $0f97;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  631. (i : A_SETS;ops : 1;oc : $0f98;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  632. (i : A_SETNS;ops : 1;oc : $0f99;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  633. (i : A_SETP;ops : 1;oc : $0f9a;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  634. (i : A_SETC;ops : 1; oc: $0f92;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  635. (i : A_SETNC;ops : 1;oc: $0f93;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  636. (i : A_SETPE;ops : 1;oc : $0f9a;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  637. (i : A_SETNP;ops : 1;oc : $0f9b;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  638. (i : A_SETPO;ops : 1;oc : $0f9b;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  639. (i : A_SETL;ops : 1;oc : $0f9c;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  640. (i : A_SETNGE;ops : 1;oc : $0f9c;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  641. (i : A_SETNL;ops : 1;oc : $0f9d;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  642. (i : A_SETGE;ops : 1;oc : $0f9d;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  643. (i : A_SETLE;ops : 1;oc : $0f9e;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  644. (i : A_SETNG;ops : 1;oc : $0f9e;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  645. (i : A_SETNLE;ops : 1;oc : $0f9f;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  646. (i : A_SETG;ops : 1;oc : $0f9f;eb : 0;m : Modrm;o1 : ao_reg8 or ao_mem;o2 : 0;o3 : 0),
  647. (i : A_CMPS;ops : 0;oc : $a6;eb : ao_none;m : af_w or NoModrm;o1 : 0;o2 : 0;o3 : 0),
  648. (i : A_INS;ops : 0;oc : $6c;eb : ao_none;m : af_w or NoModrm;o1 : 0;o2 : 0;o3 : 0),
  649. (i : A_OUTS;ops : 0;oc : $6e;eb : ao_none;m : af_w or NoModrm;o1 : 0;o2 : 0;o3 : 0),
  650. (i : A_LODS;ops : 0;oc : $ac;eb : ao_none;m : af_w or NoModrm;o1 : 0;o2 : 0;o3 : 0),
  651. (i : A_MOVS;ops : 0;oc : $a4;eb : ao_none;m : af_w or NoModrm;o1 : 0;o2 : 0;o3 : 0),
  652. (i : A_SCAS;ops : 0;oc : $ae;eb : ao_none;m : af_w or NoModrm;o1 : 0;o2 : 0;o3 : 0),
  653. (i : A_STOS;ops : 0;oc : $aa;eb : ao_none;m : af_w or NoModrm;o1 : 0;o2 : 0;o3 : 0),
  654. (i : A_XLAT;ops : 0;oc : $d7;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  655. (i : A_BSF;ops : 2;oc : $0fbc;eb : ao_none;m : Modrm or af_reverseregregmem;o1 : ao_reg or ao_mem;o2 : ao_reg;o3 : 0),
  656. (i : A_BSR;ops : 2;oc : $0fbd;eb : ao_none;m : Modrm or af_reverseregregmem;o1 : ao_reg or ao_mem;o2 : ao_reg;o3 : 0),
  657. (i : A_BT;ops : 2;oc : $0fa3;eb : ao_none;m : Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  658. (i : A_BT;ops : 2;oc : $0fba;eb : 4;m : Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  659. (i : A_BTC;ops : 2;oc : $0fbb;eb : ao_none;m : Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  660. (i : A_BTC;ops : 2;oc : $0fba;eb : 7;m : Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  661. (i : A_BTR;ops : 2;oc : $0fb3;eb : ao_none;m : Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  662. (i : A_BTR;ops : 2;oc : $0fba;eb : 6;m : Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  663. (i : A_BTS;ops : 2;oc : $0fab;eb : ao_none;m : Modrm;o1 : ao_reg;o2 : ao_reg or ao_mem;o3 : 0),
  664. (i : A_BTS;ops : 2;oc : $0fba;eb : 5;m : Modrm;o1 : ao_imm8;o2 : ao_reg or ao_mem;o3 : 0),
  665. (i : A_INT;ops : 1;oc : $cd;eb : ao_none;m : NoModrm;o1 : ao_imm8;o2 : 0;o3 : 0),
  666. (i : A_INT3;ops : 0;oc : $cc;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  667. (i : A_INTO;ops : 0;oc : $ce;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  668. (i : A_IRET;ops : 0;oc : $cf;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  669. (i : A_BOUNDL;ops : 2;oc : $62;eb : ao_none;m : Modrm;o1 : ao_reg32;o2 : ao_mem;o3 : 0),
  670. (i : A_BOUNDW;ops : 2;oc : $6662;eb : ao_none;m : Modrm;o1 : ao_reg16;o2 : ao_mem;o3 : 0),
  671. (i : A_HLT;ops : 0;oc : $f4;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  672. (i : A_wAIT;ops : 0;oc : $9b;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  673. (i : A_NOP;ops : 0;oc : $90;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  674. (i : A_ARPL;ops : 2;oc : $63;eb : ao_none;m : Modrm;o1 : ao_reg16;o2 : ao_reg16 or ao_mem;o3 : 0),
  675. (i : A_LAR;ops : 2;oc : $0f02;eb : ao_none;m : Modrm or af_reverseregregmem;o1 : ao_wordreg or ao_mem;
  676. o2 : ao_wordreg;o3 : 0),
  677. (i : A_LGDT;ops : 1;oc : $0f01;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  678. (i : A_LIDT;ops : 1;oc : $0f01;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  679. (i : A_LLDT;ops : 1;oc : $0f00;eb : 2;m : Modrm;o1 : ao_wordreg or ao_mem;o2 : 0;o3 : 0),
  680. (i : A_LMSW;ops : 1;oc : $0f01;eb : 6;m : Modrm;o1 : ao_wordreg or ao_mem;o2 : 0;o3 : 0),
  681. (i : A_LSL;ops : 2;oc : $0f03;eb : ao_none;m : Modrm or af_reverseregregmem;o1 : ao_wordreg or ao_mem;
  682. o2 : ao_wordreg;o3 : 0),
  683. (i : A_LTR;ops : 1;oc : $0f00;eb : 3;m : Modrm;o1 : ao_wordreg or ao_mem;o2 : 0;o3 : 0),
  684. (i : A_SGDT;ops : 1;oc : $0f01;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  685. (i : A_SIDT;ops : 1;oc : $0f01;eb : 1;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  686. (i : A_SLDT;ops : 1;oc : $0f00;eb : 0;m : Modrm;o1 : ao_wordreg or ao_mem;o2 : 0;o3 : 0),
  687. (i : A_SMSW;ops : 1;oc : $0f01;eb : 4;m : Modrm;o1 : ao_wordreg or ao_mem;o2 : 0;o3 : 0),
  688. (i : A_STR;ops : 1;oc : $0f00;eb : 1;m : Modrm;o1 : ao_reg16 or ao_mem;o2 : 0;o3 : 0),
  689. (i : A_VERR;ops : 1;oc : $0f00;eb : 4;m : Modrm;o1 : ao_wordreg or ao_mem;o2 : 0;o3 : 0),
  690. (i : A_VERW;ops : 1;oc : $0f00;eb : 5;m : Modrm;o1 : ao_wordreg or ao_mem;o2 : 0;o3 : 0),
  691. (i : A_FLD;ops : 1;oc : $d9c0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  692. (i : A_FLDS;ops : 1;oc : $d9;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  693. (i : A_FILDL;ops : 1;oc : $db;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  694. (i : A_FLDL;ops : 1;oc : $dd;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  695. (i : A_FLDL;ops : 1;oc : $d9c0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  696. (i : A_FILDS;ops : 1;oc : $df;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  697. (i : A_FILDQ;ops : 1;oc : $df;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  698. (i : A_FLDT;ops : 1;oc : $db;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  699. (i : A_FBLD;ops : 1;oc : $df;eb : 4;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  700. (i : A_FST;ops : 1;oc : $ddd0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  701. (i : A_FSTS;ops : 1;oc : $d9;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  702. (i : A_FISTL;ops : 1;oc : $db;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  703. (i : A_FSTL;ops : 1;oc : $dd;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  704. (i : A_FSTL;ops : 1;oc : $ddd0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  705. (i : A_FISTS;ops : 1;oc : $df;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  706. (i : A_FSTP;ops : 1;oc : $ddd8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  707. (i : A_FSTPS;ops : 1;oc : $d9;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  708. (i : A_FISTPL;ops : 1;oc : $db;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  709. (i : A_FSTPL;ops : 1;oc : $dd;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  710. (i : A_FSTPL;ops : 1;oc : $ddd8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  711. (i : A_FISTPS;ops : 1;oc : $df;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  712. (i : A_FISTPQ;ops : 1;oc : $df;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  713. (i : A_FSTPT;ops : 1;oc : $db;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  714. (i : A_FBSTP;ops : 1;oc : $df;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  715. (i : A_FXCH;ops : 1;oc : $d9c8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  716. (i : A_FCOM;ops : 1;oc : $d8d0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  717. (i : A_FCOMS;ops : 1;oc : $d8;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  718. (i : A_FICOML;ops : 1;oc : $da;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  719. (i : A_FCOML;ops : 1;oc : $dc;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  720. (i : A_FCOML;ops : 1;oc : $d8d0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  721. (i : A_FICOMS;ops : 1;oc : $de;eb : 2;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  722. (i : A_FCOMP;ops : 1;oc : $d8d8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  723. (i : A_FCOMPS;ops : 1;oc : $d8;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  724. (i : A_FICOMPL;ops : 1;oc : $da;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  725. (i : A_FCOMPL;ops : 1;oc : $dc;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  726. (i : A_FCOMPL;ops : 1;oc : $d8d8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  727. (i : A_FICOMPS;ops : 1;oc : $de;eb : 3;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  728. (i : A_FCOMPP;ops : 0;oc : $ded9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  729. (i : A_FUCOM;ops : 1;oc : $dde0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  730. (i : A_FUCOMP;ops : 1;oc : $dde8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  731. (i : A_FUCOMPP;ops : 0;oc : $dae9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  732. (i : A_FTST;ops : 0;oc : $d9e4;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  733. (i : A_FXAM;ops : 0;oc : $d9e5;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  734. (i : A_FLD1;ops : 0;oc : $d9e8;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  735. (i : A_FLDL2T;ops : 0;oc : $d9e9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  736. (i : A_FLDL2E;ops : 0;oc : $d9ea;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  737. (i : A_FLDPI;ops : 0;oc : $d9eb;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  738. (i : A_FLDLG2;ops : 0;oc : $d9ec;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  739. (i : A_FLDLN2;ops : 0;oc : $d9ed;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  740. (i : A_FLDZ;ops : 0;oc : $d9ee;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  741. (i : A_FADD;ops : 1;oc : $d8c0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  742. (i : A_FADD;ops : 2;oc : $d8c0;eb : ao_none;m : ShortForm or af_floatd;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  743. (i : A_FADD;ops : 0;oc : $dcc1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  744. (i : A_FADDP;ops : 1;oc : $dac0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  745. (i : A_FADDP;ops : 2;oc : $dac0;eb : ao_none;m : ShortForm or af_floatd;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  746. (i : A_FADDP;ops : 0;oc : $dec1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  747. (i : A_FADDS;ops : 1;oc : $d8;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  748. (i : A_FIADDL;ops : 1;oc : $da;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  749. (i : A_FADDL;ops : 1;oc : $dc;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  750. (i : A_FIADDS;ops : 1;oc : $de;eb : 0;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  751. (i : A_FSUB;ops : 1;oc : $d8e0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  752. (i : A_FSUB;ops : 2;oc : $d8e0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  753. (i : A_FSUB;ops : 2;oc : $dce8;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  754. (i : A_FSUB;ops : 0;oc : $dce1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  755. (i : A_FSUBP;ops : 1;oc : $dae0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  756. (i : A_FSUBP;ops : 2;oc : $dae0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  757. (i : A_FSUBP;ops : 2;oc : $dee0;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  758. (i : A_FSUBP;ops : 0;oc : $dee1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  759. (i : A_FSUBS;ops : 1;oc : $d8;eb : 4;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  760. (i : A_FISUBL;ops : 1;oc : $da;eb : 4;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  761. (i : A_FSUBL;ops : 1;oc : $dc;eb : 4;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  762. (i : A_FISUBS;ops : 1;oc : $de;eb : 4;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  763. (i : A_FSUBR;ops : 1;oc : $d8e8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  764. (i : A_FSUBR;ops : 2;oc : $d8e8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  765. (i : A_FSUBR;ops : 2;oc : $dce8;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  766. (i : A_FSUBR;ops : 0;oc : $dce9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  767. (i : A_FSUBRP;ops : 1;oc : $dae8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  768. (i : A_FSUBRP;ops : 2;oc : $dae8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  769. (i : A_FSUBRP;ops : 2;oc : $dee8;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  770. (i : A_FSUBRP;ops : 0;oc : $dee9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  771. (i : A_FSUBRS;ops : 1;oc : $d8;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  772. (i : A_FISUBRL;ops : 1;oc : $da;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  773. (i : A_FSUBRL;ops : 1;oc : $dc;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  774. (i : A_FISUBRS;ops : 1;oc : $de;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  775. (i : A_FMUL;ops : 1;oc : $d8c8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  776. (i : A_FMUL;ops : 2;oc : $d8c8;eb : ao_none;m : ShortForm or af_floatd;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  777. (i : A_FMUL;ops : 0;oc : $dcc9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  778. (i : A_FMULP;ops : 1;oc : $dac8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  779. (i : A_FMULP;ops : 2;oc : $dac8;eb : ao_none;m : ShortForm or af_floatd;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  780. (i : A_FMULP;ops : 0;oc : $dec9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  781. (i : A_FMULS;ops : 1;oc : $d8;eb : 1;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  782. (i : A_FIMULL;ops : 1;oc : $da;eb : 1;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  783. (i : A_FMULL;ops : 1;oc : $dc;eb : 1;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  784. (i : A_FIMULS;ops : 1;oc : $de;eb : 1;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  785. (i : A_FDIV;ops : 1;oc : $d8f0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  786. (i : A_FDIV;ops : 2;oc : $d8f0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  787. (i : A_FDIV;ops : 2;oc : $dcf0;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  788. (i : A_FDIV;ops : 0;oc : $dcf1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  789. (i : A_FDIVP;ops : 1;oc : $daf0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  790. (i : A_FDIVP;ops : 2;oc : $daf0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  791. (i : A_FDIVP;ops : 2;oc : $def0;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  792. (i : A_FDIVP;ops : 0;oc : $def1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  793. (i : A_FDIVS;ops : 1;oc : $d8;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  794. (i : A_FIDIVL;ops : 1;oc : $da;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  795. (i : A_FDIVL;ops : 1;oc : $dc;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  796. (i : A_FIDIVS;ops : 1;oc : $de;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  797. (i : A_FDIVR;ops : 1;oc : $d8f8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  798. (i : A_FDIVR;ops : 2;oc : $d8f8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  799. (i : A_FDIVR;ops : 2;oc : $dcf8;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  800. (i : A_FDIVR;ops : 0;oc : $dcf9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  801. (i : A_FDIVRP;ops : 1;oc : $daf8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  802. (i : A_FDIVRP;ops : 2;oc : $daf8;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : ao_floatacc;o3 : 0),
  803. (i : A_FDIVRP;ops : 2;oc : $def8;eb : ao_none;m : ShortForm;o1 : ao_floatacc;o2 : ao_floatreg;o3 : 0),
  804. (i : A_FDIVRP;ops : 0;oc : $def9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  805. (i : A_FDIVRS;ops : 1;oc : $d8;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  806. (i : A_FIDIVRL;ops : 1;oc : $da;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  807. (i : A_FDIVRL;ops : 1;oc : $dc;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  808. (i : A_FIDIVRS;ops : 1;oc : $de;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  809. (i : A_F2XM1;ops : 0;oc : $d9f0;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  810. (i : A_FYL2X;ops : 0;oc : $d9f1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  811. (i : A_FPTAN;ops : 0;oc : $d9f2;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  812. (i : A_FPATAN;ops : 0;oc : $d9f3;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  813. (i : A_FXTRACT;ops : 0;oc : $d9f4;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  814. (i : A_FPREM1;ops : 0;oc : $d9f5;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  815. (i : A_FDECSTP;ops : 0;oc : $d9f6;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  816. (i : A_FINCSTP;ops : 0;oc : $d9f7;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  817. (i : A_FPREM;ops : 0;oc : $d9f8;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  818. (i : A_FYL2XP1;ops : 0;oc : $d9f9;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  819. (i : A_FSQRT;ops : 0;oc : $d9fa;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  820. (i : A_FSINCOS;ops : 0;oc : $d9fb;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  821. (i : A_FRNDINT;ops : 0;oc : $d9fc;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  822. (i : A_FSCALE;ops : 0;oc : $d9fd;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  823. (i : A_FSIN;ops : 0;oc : $d9fe;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  824. (i : A_FCOS;ops : 0;oc : $d9ff;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  825. (i : A_FCHS;ops : 0;oc : $d9e0;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  826. (i : A_FABS;ops : 0;oc : $d9e1;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  827. (i : A_FNINIT;ops : 0;oc : $dbe3;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  828. (i : A_FINIT;ops : 0;oc : $dbe3;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  829. (i : A_FLDCW;ops : 1;oc : $d9;eb : 5;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  830. (i : A_FNSTCW;ops : 1;oc : $d9;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  831. (i : A_FSTCW;ops : 1;oc : $d9;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  832. (i : A_FNSTSW;ops : 1;oc : $dfe0;eb : ao_none;m : NoModrm;o1 : ao_acc;o2 : 0;o3 : 0),
  833. (i : A_FNSTSW;ops : 1;oc : $dd;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  834. (i : A_FNSTSW;ops : 0;oc : $dfe0;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  835. (i : A_FSTSW;ops : 1;oc : $dfe0;eb : ao_none;m : NoModrm;o1 : ao_acc;o2 : 0;o3 : 0),
  836. (i : A_FSTSW;ops : 1;oc : $dd;eb : 7;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  837. (i : A_FSTSW;ops : 0;oc : $dfe0;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  838. (i : A_FNCLEX;ops : 0;oc : $dbe2;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  839. (i : A_FCLEX;ops : 0;oc : $dbe2;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  840. (i : A_FNSTENV;ops : 1;oc : $d9;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  841. (i : A_FSTENV;ops : 1;oc : $d9;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  842. (i : A_FLDENV;ops : 1;oc : $d9;eb : 4;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  843. (i : A_FNSAVE;ops : 1;oc : $dd;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  844. (i : A_FSAVE;ops : 1;oc : $dd;eb : 6;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  845. (i : A_FRSTOR;ops : 1;oc : $dd;eb : 4;m : Modrm;o1 : ao_mem;o2 : 0;o3 : 0),
  846. (i : A_FFREE;ops : 1;oc : $ddc0;eb : ao_none;m : ShortForm;o1 : ao_floatreg;o2 : 0;o3 : 0),
  847. (i : A_FNOP;ops : 0;oc : $d9d0;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  848. (i : A_FWAIT;ops : 0;oc : $9b;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  849. { (i : A_ADDRaf_wORD;ops : 0;oc : $67;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0), }
  850. { (i : A_WORD;ops : 0;oc : $66;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0), }
  851. (i : A_LOCK;ops : 0;oc : $f0;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  852. { (i : A_CS;ops : 0;oc : $2e;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  853. (i : A_DS;ops : 0;oc : $3e;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  854. (i : A_ES;ops : 0;oc : $26;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  855. (i : A_FS;ops : 0;oc : $64;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  856. (i : A_GS;ops : 0;oc : $65;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  857. (i : A_SS;ops : 0;oc : $36;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0), }
  858. (i : A_REP;ops : 0;oc : $f3;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  859. (i : A_REPE;ops : 0;oc : $f3;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  860. (i : A_REPNE;ops : 0;oc : $f2;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  861. (i : A_CPUID;ops : 0;oc : $0fa2;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  862. (i : A_EMMS;ops : 0;oc : $0f77;eb : ao_none;m : NoModrm;o1 : 0;o2 : 0;o3 : 0),
  863. (i : A_NONE));
  864. {****************************************************************************
  865. Assembler Mnemoics
  866. ****************************************************************************}
  867. att_op2str : array[firstop..lastop] of string[7] =
  868. ('mov','movz','movs','','add',
  869. 'call','idiv','imul','jmp','lea','mul','neg','not',
  870. 'pop','popal','push','pushal','ret','sub','xchg','xor',
  871. 'fild','cmp','jz','inc','dec','sete','setne','setl',
  872. 'setg','setle','setge','je','jne','jl','jg','jle','jge',
  873. 'or','fld','fadd','fmul','fsub','fdiv','fchs','fld1',
  874. 'fidiv','jnz','fstp','and','jno','','',
  875. 'enter','leave','cld','movs','rep','shl','shr','bound',
  876. 'jns','js','jo','sar','test',
  877. 'fcom','fcomp','fcompp','fxch','faddp','fmulp','fsubp','fdivp',
  878. 'fnsts','sahf','fdivrp','fsubrp','setc','setnc','jc','jnc',
  879. 'ja','jae','jb','jbe','seta','setae','setb','setbe',
  880. 'aaa','aad','aam','aas','cbtw','cltd','clc','cli',
  881. 'clts','cmc','cwtd','cwtl','daa','das','hlt','iret','lahf',
  882. 'lods','lock','nop','pusha','pushf','pushfl',
  883. 'stc','std','sti','stos','wait','xlat','xlatb','movsb',
  884. 'movsbl','movsbw','movswl','movsb','movzwl','popa','in',
  885. 'out','lds','lcs','les','lfs','lgs','lss','popf','sbb','adc',
  886. 'div','ror','rol','rcl','rcr','sal','shld','shrd',
  887. 'lcall','ljmp','lret','jnae','jnb','jna','jnbe','jb','jnp',
  888. 'jpe','jpo','jnge','jng','jnl','jnle','jcxz','jecxz',
  889. 'loop','cmps','ins','outs','scas','bsf','bsr','bt','btc',
  890. 'btr','bts','int','int3','into','boundl','boundw',
  891. 'loopz','loope','loopnz','loopne','seto','setno','setnae',
  892. 'setnb','setz','setnz','setna','setnbe','sets','setns','setp',
  893. 'setpe','setnp','setpo','setnge','setnl','setng','setnle',
  894. 'arpl','lar','lgdt','lidt','lldt','lmsw','lsl','ltr','sgdt',
  895. 'sidt','sldt','smsw','str','verr','verw','fabs','fbld','fbstp',
  896. 'fclex','fnclex','fcos','fdecstp','fdisi','fndisi','fdivr',
  897. 'feni','fneni','ffree','fiadd','ficom','ficomp','fidivr',
  898. 'fimul','fincstp','finit','fninit','fist','fistp','fisub',
  899. 'fisubr','fldcw','fldenv','fldlg2','fldln2','fldl2e','fldl2t',
  900. 'fldpi','flds','fldz','fnop','fpatan','fprem','fprem1','fptan',
  901. 'frndint','frstor','fsave','fnsave','fscale','fsetpm','fsin',
  902. 'fsincos','fsqrt','fst','fstcw','fnstcw','fstenv','fnstenv',
  903. 'fstsw','fnstsw','ftst','fucom','fucomp','fucompp','fwait',
  904. 'fxam','fxtract','fyl2x','fyl2xp1','f2xm1','fildq','filds',
  905. 'fildl','fldl','fldt','fistq','fists','fistl','fstl','fsts',
  906. 'fstps','fistpl','fstpl','fistps','fistpq','fstpt','fcomps',
  907. 'ficompl','fcompl','ficomps','fcoms','ficoml','fcoml','ficoms',
  908. 'fiaddl','faddl','fiadds','fisubl','fsubl','fisubs','fsubs',
  909. 'fsubr','fsubrs','fisubrl','fsubrl','fisubrs','fmuls','fimull',
  910. 'fmull','fimuls','fdivs','fidivl','fdivl','fidivs','fdivrs',
  911. 'fidivrl','fdivrl','fidivrs','repe','repne','cpuid','fadds','popfl',
  912. { mmx instructions supported by GNU AS v281 }
  913. 'emms','movd','movq','packssdw','packsswb','packuswb',
  914. 'paddb','paddd','paddsb','paddsw','paddusb','paddusw',
  915. 'paddw','pand','pandn','pcmpeqb','pcmpeqd','pcmpeqw',
  916. 'pcmpgtb','pcmpgtd','pcmpgtw','pmaddwd','pmulhw',
  917. 'pmullw','por','pslld','psllq','psllw','psrad','psraw',
  918. 'psrld','psrlq','psrlw','psubb','psubd','psubsb','psubsw',
  919. 'psubusb','psubusw','psubw','punpckhbw','punpckhdq',
  920. 'punpckhwd','punpcklbw','punpckldq','punpcklwd','pxor');
  921. { topsize = (S_NO,S_B,S_W,S_L,S_BW,S_BL,S_WL,
  922. S_IS,S_IL,S_IQ,S_FS,S_FL,S_FX,S_D); }
  923. att_opsize2str : array[topsize] of string[2] =
  924. ('','b','w','l','bw','bl','wl',
  925. 's','l','q','s','l','t','d','q');
  926. att_reg2str : array[tregister] of string[6] =
  927. ('','%eax','%ecx','%edx','%ebx','%esp','%ebp','%esi','%edi',
  928. '%ax','%cx','%dx','%bx','%sp','%bp','%si','%di',
  929. '%al','%cl','%dl','%bl','%ah','%ch','%bh','%dh',
  930. '','%cs','%ds','%es','%fs','%gs','%ss',
  931. '%st','%st(0)','%st(1)','%st(2)','%st(3)','%st(4)',
  932. '%st(5)','%st(6)','%st(7)',
  933. '%mm0','%mm1','%mm2','%mm3',
  934. '%mm4','%mm5','%mm6','%mm7');
  935. int_op2str : array[firstop..lastop] of string[9] =
  936. ('mov','movzx','movsx','','add',
  937. 'call','idiv','imul','jmp','lea','mul','neg','not',
  938. 'pop','popad','push','pushad','ret','sub','xchg','xor',
  939. 'fild','cmp','jz','inc','dec','sete','setne','setl',
  940. 'setg','setle','setge','je','jne','jl','jg','jle','jge',
  941. 'or','fld','fadd','fmul','fsub','fdiv','fchs','fld1',
  942. 'fidiv','jnz','fstp','and','jno','','',
  943. 'enter','leave','cld','movs','rep','shl','shr','bound',
  944. 'jns','js','jo','sar','test',
  945. 'fcom','fcomp','fcompp','fxch','faddp','fmulp','fsubrp','fdivp',
  946. 'fnsts','sahf','fdivp','fsubp','setc','setnc','jc','jnc',
  947. 'ja','jae','jb','jbe','seta','setae','setb','setbe',
  948. 'aaa','aad','aam','aas','cbw','cdq','clc','cli',
  949. 'clts','cmc','cwd','cwde','daa','das','hlt','iret','lahf',
  950. 'lods','lock','nop','pusha','pushf','pushfd',
  951. 'stc','std','sti','stos','wait','xlat','xlatb','movsx',
  952. 'movsx','movsx','movsx','movsx','movzx','popa','in',
  953. 'out','lds','lcs','les','lfs','lgs','lss','popf','sbb','adc',
  954. 'div','ror','rol','rcl','rcr','sal','shld','shrd',
  955. 'call','jmp','ret','jnae','jnb','jna','jnbe','jb','jnp',
  956. 'jpe','jpo','jnge','jng','jnl','jnle','jcxz','jecxz',
  957. 'loop','cmps','ins','outs','scas','bsf','bsr','bt','btc',
  958. 'btr','bts','int','int3','into','bound','bound',
  959. 'loopz','loope','loopnz','loopne','seto','setno','setnae',
  960. 'setnb','setz','setnz','setna','setnbe','sets','setns','setp',
  961. 'setpe','setnp','setpo','setnge','setnl','setng','setnle',
  962. 'arpl','lar','lgdt','lidt','lldt','lmsw','lsl','ltr','sgdt',
  963. 'sidt','sldt','smsw','str','verr','verw','fabs','fbld','fbstp',
  964. 'fclex','fnclex','fcos','fdecstp','fdisi','fndisi','fdivr',
  965. 'feni','fneni','ffree','fiadd','ficom','ficomp','fidivr',
  966. 'fimul','fincstp','finit','fninit','fist','fistp','fisub',
  967. 'fisubr','fldcw','fldenv','fldlg2','fldln2','fldl2e','fldl2t',
  968. 'fldpi','flds','fldz','fnop','fpatan','fprem','fprem1','fptan',
  969. 'frndint','frstor','fsave','fnsave','fscale','fsetpm','fsin',
  970. 'fsincos','fsqrt','fst','fstcw','fnstcw','fstenv','fnstenv',
  971. 'fstsw','fnstsw','ftst','fucom','fucomp','fucompp','fwait',
  972. 'fxam','fxtract','fyl2x','fyl2xp1','f2xm1','fildq','filds',
  973. 'fildl','fldl','fldt','fistq','fists','fistl','fstl','fsts',
  974. 'fstps','fistpl','fstpl','fistps','fistpq','fstpt','fcomps',
  975. 'ficompl','fcompl','ficomps','fcoms','ficoml','fcoml','ficoms',
  976. 'fiadd','fadd','fiadd','fisub','fsub','fisub','fsub',
  977. 'fsubr','fsubr','fisubr','fsubr','fisubr','fmul','fimul',
  978. 'fmul','fimul','fdiv','fidiv','fdiv','fidiv','fdivr',
  979. 'fidivr','fdivr','fidivr','repe','repne','cpuid','fadd','popfd',
  980. { mmx instructions }
  981. 'emms','movd','movq','packssdw','packsswb','packuswb',
  982. 'paddb','paddd','paddsb','paddsw','paddusb','paddusw',
  983. 'paddw','pand','pandn','pcmpeqb','pcmpeqd','pcmpeqw',
  984. 'pcmpgtb','pcmpgtd','pcmpgtw','pmaddwd','pmulhw',
  985. 'pmullw','por','pslld','psllq','psllw','psrad','psraw',
  986. 'psrld','psrlq','psrlw','psubb','psubd','psubsb','psubsw',
  987. 'psubusb','psubusw','psubw','punpckhbw','punpckhdq',
  988. 'punpckhwd','punpcklbw','punpckldq','punpcklwd','pxor');
  989. int_reg2str : array[tregister] of string[5] =
  990. ('','eax','ecx','edx','ebx','esp','ebp','esi','edi',
  991. 'ax','cx','dx','bx','sp','bp','si','di',
  992. 'al','cl','dl','bl','ah','ch','bh','dh',
  993. '','cs','ds','es','fs','gs','ss',
  994. 'st','st(0)','st(1)','st(2)','st(3)','st(4)','st(5)','st(6)','st(7)',
  995. 'mm0','mm1','mm2','mm3','mm4','mm5','mm6','mm7');
  996. int_nasmreg2str : array[tregister] of string[5] =
  997. ('','eax','ecx','edx','ebx','esp','ebp','esi','edi',
  998. 'ax','cx','dx','bx','sp','bp','si','di',
  999. 'al','cl','dl','bl','ah','ch','bh','dh',
  1000. '','cs','ds','es','fs','gs','ss',
  1001. 'st0','st0','st1','st2','st3','st4','st5','st6','st7',
  1002. 'mm0','mm1','mm2','mm3','mm4','mm5','mm6','mm7');
  1003. implementation
  1004. uses
  1005. strings,globals,verbose;
  1006. function reg2str(r : tregister) : string;
  1007. const
  1008. a : array[R_NO..R_BL] of string[3] =
  1009. ('','EAX','ECX','EDX','EBX','ESP','EBP','ESI','EDI',
  1010. 'AX','CX','DX','BX','SP','BP','SI','DI',
  1011. 'AL','CL','DL','BL');
  1012. begin
  1013. reg2str:=a[r];
  1014. end;
  1015. procedure disposereference(var r : preference);
  1016. begin
  1017. if assigned(r^.symbol) then
  1018. stringdispose(r^.symbol);
  1019. dispose(r);
  1020. r:=nil;
  1021. end;
  1022. function newreference(const r : treference) : preference;
  1023. var
  1024. p : preference;
  1025. begin
  1026. new(p);
  1027. p^:=r;
  1028. if assigned(r.symbol) then
  1029. p^.symbol:=stringdup(r.symbol^);
  1030. newreference:=p;
  1031. end;
  1032. function reg8toreg16(reg : tregister) : tregister;
  1033. begin
  1034. reg8toreg16:=reg32toreg16(reg8toreg32(reg));
  1035. end;
  1036. function reg16toreg8(reg : tregister) : tregister;
  1037. begin
  1038. reg16toreg8:=reg32toreg8(reg16toreg32(reg));
  1039. end;
  1040. function reg16toreg32(reg : tregister) : tregister;
  1041. begin
  1042. reg16toreg32:=tregister(byte(reg)-byte(R_EDI));
  1043. end;
  1044. function reg32toreg16(reg : tregister) : tregister;
  1045. begin
  1046. reg32toreg16:=tregister(byte(reg)+byte(R_EDI));
  1047. end;
  1048. function reg32toreg8(reg : tregister) : tregister;
  1049. begin
  1050. reg32toreg8:=tregister(byte(reg)+byte(R_DI));
  1051. end;
  1052. function reg8toreg32(reg : tregister) : tregister;
  1053. begin
  1054. reg8toreg32:=tregister(byte(reg)-byte(R_DI));
  1055. end;
  1056. function regtoreg8(reg : tregister) : tregister;
  1057. begin
  1058. regtoreg8:=reg32toreg8(reg);
  1059. end;
  1060. function regtoreg16(reg : tregister) : tregister;
  1061. begin
  1062. regtoreg16:=reg32toreg16(reg);
  1063. end;
  1064. function regtoreg32(reg : tregister) : tregister;
  1065. begin
  1066. regtoreg32:=reg;
  1067. end;
  1068. function regtoreg64(reg : tregister) : tregister;
  1069. begin
  1070. internalerror(6464);
  1071. end;
  1072. procedure reset_reference(var ref : treference);
  1073. begin
  1074. {$ifdef ver0_6}
  1075. ref.index:=R_NO;
  1076. ref.base:=R_NO;
  1077. ref.segment:=R_DEFAULT_SEG;
  1078. ref.offset:=0;
  1079. ref.scalefactor:=1;
  1080. ref.isintvalue:=false;
  1081. ref.symbol:=nil;
  1082. {$else}
  1083. with ref do
  1084. begin
  1085. index:=R_NO;
  1086. base:=R_NO;
  1087. segment:=R_DEFAULT_SEG;
  1088. offset:=0;
  1089. scalefactor:=1;
  1090. isintvalue:=false;
  1091. symbol:=nil;
  1092. end;
  1093. {$endif}
  1094. end;
  1095. function new_reference(base : tregister;offset : longint) : preference;
  1096. var
  1097. r : preference;
  1098. begin
  1099. new(r);
  1100. reset_reference(r^);
  1101. r^.base:=base;
  1102. r^.offset:=offset;
  1103. new_reference:=r;
  1104. end;
  1105. procedure clear_reference(var ref : treference);
  1106. begin
  1107. stringdispose(ref.symbol);
  1108. reset_reference(ref);
  1109. end;
  1110. function newcsymbol(const s : string;l : longint) : pcsymbol;
  1111. var
  1112. p : pcsymbol;
  1113. begin
  1114. new(p);
  1115. p^.symbol:=strpnew(s);
  1116. p^.offset:=l;
  1117. newcsymbol:=p;
  1118. end;
  1119. procedure disposecsymbol(p : pcsymbol);
  1120. begin
  1121. strdispose(p^.symbol);
  1122. dispose(p);
  1123. end;
  1124. {****************************************************************************
  1125. objects for register de/allocation
  1126. ****************************************************************************}
  1127. constructor tairegalloc.init(r : tregister);
  1128. begin
  1129. inherited init;
  1130. typ:=ait_regalloc;
  1131. reg:=r;
  1132. end;
  1133. constructor tairegdealloc.init(r : tregister);
  1134. begin
  1135. inherited init;
  1136. typ:=ait_regdealloc;
  1137. reg:=r;
  1138. end;
  1139. {****************************************************************************
  1140. TAI386
  1141. ****************************************************************************}
  1142. constructor tai386.op_none(op : tasmop;_size : topsize);
  1143. begin
  1144. inherited init;
  1145. typ:=ait_instruction;
  1146. _operator:=op;
  1147. opxt:=0;
  1148. size:=_size;
  1149. { the following isn't required ! }
  1150. op1:=nil;
  1151. op2:=nil;
  1152. end;
  1153. constructor tai386.op_reg(op : tasmop;_size : topsize;_op1 : tregister);
  1154. begin
  1155. inherited init;
  1156. typ:=ait_instruction;
  1157. _operator:=op;
  1158. opxt:=Top_reg;
  1159. size:=_size;
  1160. op1:=pointer(_op1);
  1161. op2:=nil;
  1162. end;
  1163. constructor tai386.op_const(op : tasmop;_size : topsize;_op1 : longint);
  1164. begin
  1165. inherited init;
  1166. typ:=ait_instruction;
  1167. _operator:=op;
  1168. opxt:=Top_const;
  1169. size:=_size;
  1170. op1:=pointer(_op1);
  1171. op2:=nil;
  1172. end;
  1173. constructor tai386.op_ref(op : tasmop;_size : topsize;_op1 : preference);
  1174. begin
  1175. inherited init;
  1176. typ:=ait_instruction;
  1177. _operator:=op;
  1178. size:=_size;
  1179. if _op1^.isintvalue then
  1180. begin
  1181. opxt:=top_const;
  1182. op1:=pointer(_op1^.offset);
  1183. disposereference(_op1);
  1184. end
  1185. else
  1186. begin
  1187. opxt:=top_ref;
  1188. op1:=pointer(_op1);
  1189. end;
  1190. op2:=nil;
  1191. end;
  1192. constructor tai386.op_loc(op : tasmop;_size : topsize;_op1 : tlocation);
  1193. begin
  1194. inherited init;
  1195. typ:=ait_instruction;
  1196. _operator:=op;
  1197. size:=_size;
  1198. if (_op1.loc=loc_register) or (_op1.loc=loc_cregister) then
  1199. begin
  1200. opxt:=top_reg;
  1201. op1:=pointer(_op1.register);
  1202. end
  1203. else
  1204. if _op1.reference.isintvalue then
  1205. begin
  1206. opxt:=top_const;
  1207. op1:=pointer(_op1.reference.offset);
  1208. end
  1209. else
  1210. begin
  1211. opxt:=top_ref;
  1212. op1:=pointer(newreference(_op1.reference));
  1213. end;
  1214. op2:=nil;
  1215. end;
  1216. constructor tai386.op_reg_reg(op : tasmop;_size : topsize;_op1,_op2 : tregister);
  1217. begin
  1218. inherited init;
  1219. typ:=ait_instruction;
  1220. _operator:=op;
  1221. opxt:=Top_reg shl 4+Top_reg;
  1222. size:=_size;
  1223. op1:=pointer(_op1);
  1224. op2:=pointer(_op2);
  1225. end;
  1226. type
  1227. twowords=record
  1228. word1,word2:word;
  1229. end;
  1230. constructor tai386.op_reg_reg_reg(op : tasmop;_size : topsize;_op1,_op2,_op3 : tregister);
  1231. begin
  1232. inherited init;
  1233. typ:=ait_instruction;
  1234. _operator:=op;
  1235. opxt:=Top_reg shl 8+Top_reg shl 4+Top_reg;
  1236. size:=_size;
  1237. op1:=pointer(_op1);
  1238. twowords(op2).word1:=word(_op2);
  1239. twowords(op2).word2:=word(_op3);
  1240. end;
  1241. constructor tai386.op_reg_ref(op : tasmop;_size : topsize;_op1 : tregister;_op2 : preference);
  1242. begin
  1243. inherited init;
  1244. typ:=ait_instruction;
  1245. _operator:=op;
  1246. opxt:=top_reg;
  1247. size:=_size;
  1248. op1:=pointer(_op1);
  1249. if _op2^.isintvalue then
  1250. begin
  1251. opxt:=opxt+top_const shl 4;
  1252. op2:=pointer(_op2^.offset);
  1253. disposereference(_op2);
  1254. end
  1255. else
  1256. begin
  1257. opxt:=opxt+top_ref shl 4;
  1258. op2:=pointer(_op2);
  1259. end;
  1260. end;
  1261. constructor tai386.op_reg_loc(op : tasmop;_size : topsize;_op1 : tregister;_op2 : tlocation);
  1262. begin
  1263. inherited init;
  1264. typ:=ait_instruction;
  1265. _operator:=op;
  1266. opxt:=top_reg;
  1267. size:=_size;
  1268. op1:=pointer(_op1);
  1269. if (_op2.loc=loc_register) or (_op2.loc=loc_cregister) then
  1270. begin
  1271. opxt:=opxt+top_reg shl 4;
  1272. op2:=pointer(_op2.register);
  1273. end
  1274. else
  1275. if _op2.reference.isintvalue then
  1276. begin
  1277. opxt:=opxt+top_const shl 4;
  1278. op2:=pointer(_op2.reference.offset);
  1279. end
  1280. else
  1281. begin
  1282. opxt:=opxt+Top_ref shl 4;
  1283. op2:=pointer(newreference(_op2.reference));
  1284. end;
  1285. end;
  1286. constructor tai386.op_loc_reg(op : tasmop;_size : topsize;_op1 : tlocation;_op2 : tregister);
  1287. begin
  1288. inherited init;
  1289. typ:=ait_instruction;
  1290. _operator:=op;
  1291. opxt:=top_reg shl 4;
  1292. size:=_size;
  1293. op2:=pointer(_op2);
  1294. if (_op1.loc=loc_register) or (_op1.loc=loc_cregister) then
  1295. begin
  1296. opxt:=opxt+top_reg;
  1297. op1:=pointer(_op1.register);
  1298. end
  1299. else
  1300. if _op1.reference.isintvalue then
  1301. begin
  1302. opxt:=opxt+top_const;
  1303. op1:=pointer(_op1.reference.offset);
  1304. end
  1305. else
  1306. begin
  1307. opxt:=opxt+top_ref;
  1308. op1:=pointer(newreference(_op1.reference));
  1309. end;
  1310. end;
  1311. constructor tai386.op_const_reg_reg(op : tasmop;_size : topsize;_op1 : longint;_op2 : tregister;_op3 : tregister);
  1312. begin
  1313. inherited init;
  1314. typ:=ait_instruction;
  1315. _operator:=op;
  1316. opxt:=Top_const+Top_reg shl 4+Top_reg shl 8;
  1317. size:=_size;
  1318. op1:=pointer(_op1);
  1319. twowords(op2).word1:=word(_op2);
  1320. twowords(op2).word2:=word(_op3);
  1321. end;
  1322. constructor tai386.op_const_reg(op : tasmop;_size : topsize;_op1 : longint;_op2 : tregister);
  1323. begin
  1324. inherited init;
  1325. typ:=ait_instruction;
  1326. _operator:=op;
  1327. if ((op=A_CMP) or (op=A_AND) or (op=A_ADD) or
  1328. (op=A_ADC) or (op=A_SUB) or (op=A_SBB)) and
  1329. ((_size=S_B) or (_size=S_BW) or (_size=S_BL)) and
  1330. ((_op2<R_AL) or (_op2>R_DH)) and
  1331. (_op1>127) then
  1332. begin
  1333. {$ifdef extdebug}
  1334. comment(v_warning,'wrong size for instruction due to implicit size extension !!');
  1335. {$endif extdebug}
  1336. if _size=S_BW then
  1337. _size:=S_W
  1338. else
  1339. _size:=S_L;
  1340. end;
  1341. opxt:=Top_const+Top_reg shl 4;
  1342. size:=_size;
  1343. op1:=pointer(_op1);
  1344. op2:=pointer(_op2);
  1345. end;
  1346. constructor tai386.op_const_const(op : tasmop;_size : topsize;_op1,_op2 : longint);
  1347. begin
  1348. inherited init;
  1349. typ:=ait_instruction;
  1350. _operator:=op;
  1351. opxt:=Top_const+Top_const shl 4;
  1352. size:=_size;
  1353. op1:=pointer(_op1);
  1354. op2:=pointer(_op2);
  1355. end;
  1356. constructor tai386.op_const_ref(op : tasmop;_size : topsize;_op1 : longint;_op2 : preference);
  1357. begin
  1358. inherited init;
  1359. typ:=ait_instruction;
  1360. _operator:=op;
  1361. opxt:=top_const;
  1362. size:=_size;
  1363. op1:=pointer(_op1);
  1364. if _op2^.isintvalue then
  1365. begin
  1366. opxt:=opxt+top_const shl 4;
  1367. op2:=pointer(_op2^.offset);
  1368. disposereference(_op2);
  1369. end
  1370. else
  1371. begin
  1372. opxt:=opxt+top_ref shl 4;
  1373. op2:=pointer(_op2);
  1374. end;
  1375. end;
  1376. constructor tai386.op_const_loc(op : tasmop;_size : topsize;_op1 : longint;_op2 : tlocation);
  1377. begin
  1378. inherited init;
  1379. typ:=ait_instruction;
  1380. _operator:=op;
  1381. opxt:=top_const;
  1382. size:=_size;
  1383. op1:=pointer(_op1);
  1384. if (_op2.loc=loc_register) or (_op2.loc=loc_cregister) then
  1385. begin
  1386. opxt:=opxt+Top_reg shl 4;
  1387. op2:=pointer(_op2.register);
  1388. end
  1389. else
  1390. if _op2.reference.isintvalue then
  1391. begin
  1392. opxt:=opxt+top_const shl 4;
  1393. op2:=pointer(_op2.reference.offset);
  1394. end
  1395. else
  1396. begin
  1397. opxt:=opxt+top_ref shl 4;
  1398. op2:=pointer(newreference(_op2.reference));
  1399. end;
  1400. end;
  1401. constructor tai386.op_ref_reg(op : tasmop;_size : topsize;_op1 : preference;_op2 : tregister);
  1402. begin
  1403. inherited init;
  1404. typ:=ait_instruction;
  1405. _operator:=op;
  1406. opxt:=top_reg shl 4;
  1407. size:=_size;
  1408. op2:=pointer(_op2);
  1409. if _op1^.isintvalue then
  1410. begin
  1411. opxt:=opxt+top_const;
  1412. op1:=pointer(_op1^.offset);
  1413. disposereference(_op1);
  1414. end
  1415. else
  1416. begin
  1417. opxt:=opxt+top_ref;
  1418. op1:=pointer(_op1);
  1419. end;
  1420. end;
  1421. constructor tai386.op_ref_ref(op : tasmop;_size : topsize;_op1,_op2 : preference);
  1422. begin
  1423. inherited init;
  1424. typ:=ait_instruction;
  1425. _operator:=op;
  1426. size:=_size;
  1427. if _op1^.isintvalue then
  1428. begin
  1429. opxt:=top_const;
  1430. op1:=pointer(_op1^.offset);
  1431. disposereference(_op1);
  1432. end
  1433. else
  1434. begin
  1435. opxt:=top_ref;
  1436. op1:=pointer(_op1);
  1437. end;
  1438. if _op2^.isintvalue then
  1439. begin
  1440. opxt:=opxt+top_const shl 4;
  1441. op2:=pointer(_op2^.offset);
  1442. disposereference(_op2);
  1443. end
  1444. else
  1445. begin
  1446. opxt:=opxt+top_ref shl 4;
  1447. op2:=pointer(_op2);
  1448. end;
  1449. end;
  1450. constructor tai386.op_csymbol(op : tasmop;_size : topsize;_op1 : pcsymbol);
  1451. begin
  1452. inherited init;
  1453. typ:=ait_instruction;
  1454. _operator:=op;
  1455. if (op=A_CALL) and (use_esp_stackframe) then
  1456. Message(cg_e_stackframe_with_esp);
  1457. opxt:=top_symbol;
  1458. size:=_size;
  1459. op1:=pointer(_op1);
  1460. op2:=nil;
  1461. end;
  1462. constructor tai386.op_csymbol_reg(op : tasmop;_size : topsize;_op1 : pcsymbol;_op2 : tregister);
  1463. begin
  1464. inherited init;
  1465. typ:=ait_instruction;
  1466. _operator:=op;
  1467. opxt:=Top_symbol+Top_reg shl 4;
  1468. size:=_size;
  1469. op1:=pointer(_op1);
  1470. op2:=pointer(_op2);
  1471. end;
  1472. constructor tai386.op_csymbol_ref(op : tasmop;_size : topsize;_op1 : pcsymbol;_op2 : preference);
  1473. begin
  1474. inherited init;
  1475. typ:=ait_instruction;
  1476. _operator:=op;
  1477. opxt:=top_symbol;
  1478. size:=_size;
  1479. op1:=pointer(_op1);
  1480. if _op2^.isintvalue then
  1481. begin
  1482. opxt:=opxt+top_const shl 4;
  1483. op2:=pointer(_op2^.offset);
  1484. disposereference(_op2);
  1485. end
  1486. else
  1487. begin
  1488. opxt:=opxt+top_ref shl 4;
  1489. op2:=pointer(_op2);
  1490. end;
  1491. end;
  1492. constructor tai386.op_csymbol_loc(op : tasmop;_size : topsize;_op1 : pcsymbol;_op2 : tlocation);
  1493. begin
  1494. inherited init;
  1495. typ:=ait_instruction;
  1496. _operator:=op;
  1497. opxt:=top_symbol;
  1498. size:=_size;
  1499. op1:=pointer(_op1);
  1500. if (_op2.loc=loc_register) or (_op2.loc=loc_cregister) then
  1501. begin
  1502. opxt:=top_reg shl 4;
  1503. op2:=pointer(_op2.register);
  1504. end
  1505. else
  1506. if _op2.reference.isintvalue then
  1507. begin
  1508. opxt:=opxt+top_const shl 4;
  1509. op2:=pointer(_op2.reference.offset);
  1510. end
  1511. else
  1512. begin
  1513. opxt:=opxt+top_ref shl 4;
  1514. op2:=pointer(newreference(_op2.reference));
  1515. end;
  1516. end;
  1517. constructor tai386.op_reg_const(op:tasmop; _size: topsize; _op1: tregister; _op2: longint);
  1518. begin
  1519. inherited init;
  1520. typ:=ait_instruction;
  1521. _operator:=op;
  1522. opxt:=top_reg+top_const shl 4;
  1523. size:=_size;
  1524. op1:=pointer(_op1);
  1525. op2:=pointer(_op2);
  1526. end;
  1527. function Tai386.op1t:byte;
  1528. begin
  1529. op1t:=opxt and 15;
  1530. end;
  1531. function Tai386.op2t:byte;
  1532. begin
  1533. op2t:=(opxt shr 4) and 15;
  1534. end;
  1535. function Tai386.op3t:byte;
  1536. begin
  1537. op3t:=(opxt shr 8) and 15;
  1538. end;
  1539. destructor tai386.done;
  1540. begin
  1541. if op1t=top_symbol then
  1542. disposecsymbol(pcsymbol(op1))
  1543. else if op1t=top_ref then
  1544. begin
  1545. clear_reference(preference(op1)^);
  1546. dispose(preference(op1));
  1547. end;
  1548. if op2t=top_symbol then
  1549. disposecsymbol(pcsymbol(op2))
  1550. else if op2t=top_ref then
  1551. begin
  1552. clear_reference(preference(op2)^);
  1553. dispose(preference(op2));
  1554. end;
  1555. inherited done;
  1556. end;
  1557. {****************************************************************************
  1558. TAI_LABELED
  1559. ****************************************************************************}
  1560. constructor tai_labeled.init(op : tasmop; l : plabel);
  1561. begin
  1562. inherited init;
  1563. typ:=ait_labeled_instruction;
  1564. _operator:=op;
  1565. lab:=l;
  1566. lab^.is_used:=true;
  1567. inc(lab^.refcount);
  1568. end;
  1569. destructor tai_labeled.done;
  1570. begin
  1571. dec(lab^.refcount);
  1572. if lab^.refcount=0 then
  1573. Begin
  1574. lab^.is_used := False;
  1575. If Not(lab^.is_set) Then
  1576. Dispose(lab);
  1577. End;
  1578. inherited done;
  1579. end;
  1580. end.
  1581. {
  1582. $Log$
  1583. Revision 1.3 1999-01-06 22:58:49 florian
  1584. + some stuff for the new code generator
  1585. Revision 1.2 1998/12/15 22:18:56 florian
  1586. * some code added
  1587. Revision 1.1 1998/12/15 16:32:58 florian
  1588. + first version, derived from old routines
  1589. }