i386.pas 87 KB

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