vb反编译器.rar > modAsm.bas

前端之家收集整理的这篇文章主要介绍了vb反编译器.rar > modAsm.bas前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

http://read.pudn.com/downloads23/sourcecode/windows/system/76077/vb%B7%B4%B1%E0%D2%EB%C6%F7/modAsm.bas__.htm

Attribute VB_Name = "modAsm" '欢迎你下载使用本代码,本份代码由程序太平洋提供下载学习之用 '声明: '1.本站所有代码的版权归原作者所有,如果你使用了在本站下载的源代码 ' 引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果! '2.若本站在代码上有侵权之处请您与站长联系,站长会及时更正。 '网站:http://www.daima.com.cn '程序太平洋:http://www.5ivb.net 'Email:dapha@etang.com 'CopyRight 2001-2005 By WangFeng '整理时间:2005-3-9 4:08:40 '------------------------------------------ 'modAsm 'Purpose - SubMain Disassembly '------------------------------------------ 'vbgamer45 - tired to translate somethings from French. 'but its not really needed. DefLng A-Z Option Explicit Option Base 0 Private Type ASM_OPCODE FullOpCode As Integer 'opcode de base (sur 8 ou 16 bits) OpCodeLen As Byte ' = 1 ou = 2 .... Flag1 As Byte Flag2 As Byte Flag3 As Byte Flag4 As Byte Flag5 As Byte Flag6 As Byte Flag7 As Byte Flag8 As Byte 'Description of Flags (les blancs sont en pr関ision pour le 64bits '/0 1 '/1 2 '/2 3 '/3 4 '/4 5 '/5 6 '/6 7 '/7 8 ' 9... '/r 17 'r/m8 18 'r/m16 19 'r/m32 20 ' 21 'cb 22 'cw 23 'cd 24 ' 25 'ib 26 cp 'iw 27 cp 'id 28 cp ' 29 '+rb 30 '+rw 31 '+rd 32 ' 33 'rel8 34 'rel16 35 'rel32 36 ' 37 'r8 38 'r16 39 'r32 40 ' 41 'imm8 42 'imm16 43 'imm32 44 ' 45 'ptr16:16 46 'ptr16:32 47 ' 48 ' 49 'm 50 'm8 51 'm16 52 'm32 53 'm64 54 ' 55 ' 56 'm16:16 60 'm16:32 61 ' 62 ' 63 'm16&32 64 'm16&16 65 'm32&32 66 ' 67 ' 68 ' 69 'moffs8 70 'moffs16 71 'moffs32 72 ' 73 ' 74 'm32real 128 'fpu 'm64real 129 'fpu 'm80real 130 'fpu ' 131 'm16int 132 'fpu 'm32int 133 'fpu 'm64int 134 'fpu ' 135 'ST 159 'fpu 'ST(0) 159 'fpu 'ST(i) 160 'fpu '+i 160 'fpu 'mm 192 'mmx 'mm/m32 200 'mmx 'mm/m64 201 'mmx sInstruct As String 'traduction string de l'opcode sEnd As String 's'il y a une fin string pr殓ise End Type Private TblASM_OPCODE() As ASM_OPCODE Private TblASM_len As Long 'table des registres,avec bit et nom Private Type ASM_REGISTER r8 As String * 2 r16 As String * 2 r32 As String * 3 End Type Private TblASM_REG(0 To 7) As ASM_REGISTER 'pointe vers l'entr閑 asm_opcode dont le premier byte correspond Private TblPtrASM(0 To 255) As Long 'Contains the text of Disassembly line by line Public StrDEASM() As String Sub FileDeAsm(ByVal entrypoint As Long,ByVal Fpt As Long,ByVal CodeLen As Long,ByVal ImageRva As Long,Optional StopAtRET As Boolean = True) 'd閟assemble le code commen鏰nt ?l'offset EntryPoint du fichier ouvert accessible via #Fpt. 'ImageRVA contient l'adresse relative du point d'entr閑 (n閏essaire pour le calcul des JMP rel) 'CodeLen contient la distance maxi du scanner d'instruction (typiquement = LOF(Fpt)) 'StopAtRET indique au scanner de s'arr阾?d鑣 qu'une instruction RET (C2h ou C3h) est trouv?(eqv End Sub) Dim i,j,sl,ml,rvai,Dataneed Dim Fbyte As Byte,FLong As Integer Dim bArray(1 To 10) As Byte Dim DumpStr As String Dim InstructStr As String sl = 0 i = entrypoint ml = i + CodeLen rvai = ImageRva Do Get #Fpt,i,Fbyte Get #Fpt,FLong j = GetVASM(TblPtrASM(Fbyte),FLong) Get #Fpt,bArray() InstructStr = CodeToStr(bArray(),Dataneed) DumpStr = bArrayHexStr(bArray(),Dataneed) 'cr閑 la ligne : "rvaddress: byteshexdump [pad] asminstruction" sl = sl + 1 ReDim Preserve StrDEASM(1 To sl) StrDEASM(sl) = Right$("0000" & Hex$(rvai),8) & ": " & _ DumpStr & Space$(13 - Len(DumpStr)) & _ InstructStr If ((j = 385) Or (j = 386)) And StopAtRET Then 'instruction RET scann? Exit Do End If i = i + Dataneed rvai = rvai + Dataneed Loop Until i > ml End Sub Private Function GetVASM(StartPos As Long,ByVal iOpCode As Integer) As Long 'recherche le nom de l'instruction a partir du byte le plus proche (table invers? 'renvoi un pointeur dans la table TblASM_OPCODE Dim i i = StartPos Do While i <= TblASM_len If TblASM_OPCODE(i).OpCodeLen = 1 Then If TblASM_OPCODE(i).FullOpCode = (iOpCode And 255) Then Exit Do End If Else If TblASM_OPCODE(i).FullOpCode = iOpCode Then Exit Do End If End If i = i + 1 Loop GetVASM = i End Function Private Function CodeToStr(inCode() As Byte,inOPidx As Long,inRVA As Long,outLU As Long) As String 'texte de l'instruction d閟assembl Dim i,k,ol Dim ib,iw,id Dim dFlg,eFlg Dim bMod As Byte,bOP As Byte,bRM As Byte,bReg As Byte Dim sReg As String With TblASM_OPCODE(inOPidx) ol = .OpCodeLen outLU = ol CodeToStr = .sInstruct dFlg = .Flag1 Or .Flag2 Or .Flag3 Or .Flag4 eFlg = .Flag5 Or .Flag6 Or .Flag7 Or .Flag8 If (eFlg + dFlg) = 0 Then 'pas de flag = instruction direct CodeToStr = CodeToStr & .sEnd Exit Function ElseIf dFlg > 0 Then 'flag uniquement post : pas de ModRM byte End If If .Flag1 >= 30 And .Flag1 <= 32 Then 'le premier octet contient la valeur du registre ?utiliser bReg = inCode(1) - .FullOpCode Select Case .Flag1 Case 30 sReg = TblASM_REG(bReg).r8 Case 31 sReg = TblASM_REG(bReg).r16 Case 32 sReg = TblASM_REG(bReg).r32 End Select CodeToStr = CodeToStr & sReg End If If .Flag3 > 0 And .Flag3 < 18 Then outLU = outLU + 1 'octet ModR/M utilis ModRM inCode(ol + 1),bMod,bOP,bReg Select Case bMod Case 0 Case 1 ib = inCode(ol + 2) outLU = outLU + 1 Case 2 id = b4Long(inCode(),ol + 2) outLU = outLU + 4 Case 3 End Select End If End With End Function Private Sub ModRM(inModRM As Byte,outMod As Byte,outReg As Byte,outRM As Byte) 'd閏ompose l'octet ModR/M outMod = (inModRM And 192) / 64 '11000000b mode adressage : '0=ptr [rd] : 1=ptr [rd+ib] : 2=ptr [rd+id] : 3=rb 'ib : l'octet apr鑣 ModRM contient la valeur 'id : les 4 octets apr鑣 ModRM contiennent la valeur outReg = (inModRM And 56) / 8 '00111000b Reg/OP 'compl閙ent pour d閠erminer l'opcode [0-7] outRM = inModRM And 7 '00000111b Reg/M 'contient le num閞o du registre rb ou rd (r/m8,r/m32) End Sub Private Function bArrayHexStr(inB() As Byte,ByVal lTC As Long) As String 'converti un tableau de bytes en string hexad閏imale Dim i As Long bArrayHexStr = Space$(lTC * 2) i = 1 Do While i <= lTC Mid$(bArrayHexStr,2) = Right$("0" & Hex$(inB(i)),2) i = i + 1 Loop End Function Private Function b4Long(inB() As Byte,Ofs As Long) As Long 'renvoi une variable Long a partir de 4 valeur d'un tableau de byte b4Long = inB(Ofs) b4Long = b4Long Or CLng(inB(Ofs + 1)) * 256 b4Long = b4Long Or CLng(inB(Ofs + 2)) * 65536 If inB(Ofs + 3) < 128 Then b4Long = b4Long Or CLng(inB(Ofs + 3)) * 16777216 Else 'putain de variable sign b4Long = (b4Long Or (CLng(inB(Ofs + 3) - 128) * 16777216)) Or &H80000000 End If End Function Private Sub FastBin(inByte As Byte,outBin() As Byte) 'd閏ompose un octet en valeur binaire,vers un tableau de 8 bytes outBin(8) = Abs(CBool(inByte And 128)) outBin(7) = Abs(CBool(inByte And 64)) outBin(6) = Abs(CBool(inByte And 32)) outBin(5) = Abs(CBool(inByte And 16)) outBin(4) = Abs(CBool(inByte And 8)) outBin(3) = Abs(CBool(inByte And 4)) outBin(2) = Abs(CBool(inByte And 2)) outBin(1) = Abs(CBool(inByte And 1)) End Sub Sub Init_unASM() 'initialisation du d閟assembleur ReDim TblASM_OPCODE(1 To 648) 'Registers TblASM_REG(0).r8 = "AL": TblASM_REG(0).r16 = "AX": TblASM_REG(0).r32 = "EAX" TblASM_REG(1).r8 = "CL": TblASM_REG(1).r16 = "CX": TblASM_REG(1).r32 = "ECX" TblASM_REG(2).r8 = "DL": TblASM_REG(2).r16 = "DX": TblASM_REG(2).r32 = "EDX" TblASM_REG(3).r8 = "BL": TblASM_REG(3).r16 = "BX": TblASM_REG(3).r32 = "EBX" TblASM_REG(4).r8 = "AH": TblASM_REG(4).r16 = "SP": TblASM_REG(4).r32 = "ESP" TblASM_REG(5).r8 = "CH": TblASM_REG(5).r16 = "BP": TblASM_REG(5).r32 = "EBP" TblASM_REG(6).r8 = "DH": TblASM_REG(6).r16 = "SI": TblASM_REG(6).r32 = "ESI" TblASM_REG(7).r8 = "BH": TblASM_REG(7).r16 = "DI": TblASM_REG(7).r32 = "EDI" 'ajout de toutes les instruction ASM que j'avais sous la main. 'Meuh non je ne les ais pas taper une par une : voir converti.frm AddAOC TblASM_OPCODE(1),&H0,1,17,18,38,"ADD ","" TblPtrASM(0) = 1 AddAOC TblASM_OPCODE(2),&H1,20,40,"" TblPtrASM(1) = 2 AddAOC TblASM_OPCODE(3),&H2,"" TblPtrASM(2) = 3 AddAOC TblASM_OPCODE(4),&H3,"" TblPtrASM(3) = 4 AddAOC TblASM_OPCODE(5),&H4,26,42,"ADD AL,","" TblPtrASM(4) = 5 AddAOC TblASM_OPCODE(6),&H5,28,44,"ADD EAX,"" TblPtrASM(5) = 6 AddAOC TblASM_OPCODE(7),&H6,"PUSH ES","" TblPtrASM(6) = 7 AddAOC TblASM_OPCODE(8),&H7,"POP ES","" TblPtrASM(7) = 8 AddAOC TblASM_OPCODE(9),&H8,"OR ","" TblPtrASM(8) = 9 AddAOC TblASM_OPCODE(10),&H9,"" TblPtrASM(9) = 10 AddAOC TblASM_OPCODE(11),&HA,"" TblPtrASM(10) = 11 AddAOC TblASM_OPCODE(12),&HB,"" TblPtrASM(11) = 12 AddAOC TblASM_OPCODE(13),&HC,"OR AL,"" TblPtrASM(12) = 13 AddAOC TblASM_OPCODE(14),&HD,"OR EAX,"" TblPtrASM(13) = 14 AddAOC TblASM_OPCODE(15),&HE,"PUSH CS","" TblPtrASM(14) = 15 AddAOC TblASM_OPCODE(16),&HF,2,"SLDT ","" TblPtrASM(15) = 16 AddAOC TblASM_OPCODE(17),19,"STR ","" AddAOC TblASM_OPCODE(18),3,"LLDT ","" AddAOC TblASM_OPCODE(19),4,"LTR ","" AddAOC TblASM_OPCODE(20),5,"VERR ","" AddAOC TblASM_OPCODE(21),6,"VERW ","" AddAOC TblASM_OPCODE(22),&H10F,50,"SGDT ","" AddAOC TblASM_OPCODE(23),"SIDT ","" AddAOC TblASM_OPCODE(24),64,"LGDT ","" AddAOC TblASM_OPCODE(25),"LIDT ","" AddAOC TblASM_OPCODE(26),"SMSW ","" AddAOC TblASM_OPCODE(27),7,"LMSW ","" AddAOC TblASM_OPCODE(28),8,"INVLPG ","" AddAOC TblASM_OPCODE(29),&H20F,"LAR ","" AddAOC TblASM_OPCODE(30),&H30F,39,"LSL ","" AddAOC TblASM_OPCODE(31),"" AddAOC TblASM_OPCODE(32),&H60F,"CLTS","" AddAOC TblASM_OPCODE(33),&H80F,"INVD","" AddAOC TblASM_OPCODE(34),&H90F,"WBINVD","" AddAOC TblASM_OPCODE(35),&HB0F,"UD2","" AddAOC TblASM_OPCODE(36),&H200F,"MOV ",CR0" AddAOC TblASM_OPCODE(37),CR2" AddAOC TblASM_OPCODE(38),CR3" AddAOC TblASM_OPCODE(39),CR4" AddAOC TblASM_OPCODE(40),&H210F,DR0-DR7" AddAOC TblASM_OPCODE(41),&H220F,"MOV CR0,"" AddAOC TblASM_OPCODE(42),"MOV CR2,"" AddAOC TblASM_OPCODE(43),"MOV CR3,"" AddAOC TblASM_OPCODE(44),"MOV CR4,"" AddAOC TblASM_OPCODE(45),&H230F,"MOV DR0-DR7,"" AddAOC TblASM_OPCODE(46),&H300F,"WRMSR","" AddAOC TblASM_OPCODE(47),&H310F,"RDTSC","" AddAOC TblASM_OPCODE(48),&H320F,"RDMSR","" AddAOC TblASM_OPCODE(49),&H330F,"RDPMC","" AddAOC TblASM_OPCODE(50),&H400F,"CMOVO ","" AddAOC TblASM_OPCODE(51),&H410F,"CMOVNO ","" AddAOC TblASM_OPCODE(52),&H420F,"CMOVB ","" AddAOC TblASM_OPCODE(53),"CMOVC ","" AddAOC TblASM_OPCODE(54),"CMOVNAE ","" AddAOC TblASM_OPCODE(55),&H430F,"CMOVAE ","" AddAOC TblASM_OPCODE(56),"CMOVNB ","" AddAOC TblASM_OPCODE(57),"CMOVNC ","" AddAOC TblASM_OPCODE(58),&H440F,"CMOVE ","" AddAOC TblASM_OPCODE(59),"CMOVZ ","" AddAOC TblASM_OPCODE(60),&H450F,"CMOVNE ","" AddAOC TblASM_OPCODE(61),"CMOVNZ ","" AddAOC TblASM_OPCODE(62),&H460F,"CMOVBE ","" AddAOC TblASM_OPCODE(63),"CMOVNA ","" AddAOC TblASM_OPCODE(64),&H470F,"CMOVA ","" AddAOC TblASM_OPCODE(65),"CMOVNBE ","" AddAOC TblASM_OPCODE(66),&H480F,"CMOVS ","" AddAOC TblASM_OPCODE(67),&H490F,"CMOVNS ","" AddAOC TblASM_OPCODE(68),&H4A0F,"CMOVP ","" AddAOC TblASM_OPCODE(69),"CMOVPE ","" AddAOC TblASM_OPCODE(70),&H4B0F,"CMOVNP ","" AddAOC TblASM_OPCODE(71),"CMOVPO ","" AddAOC TblASM_OPCODE(72),&H4C0F,"CMOVL ","" AddAOC TblASM_OPCODE(73),"CMOVNGE ","" AddAOC TblASM_OPCODE(74),&H4D0F,"CMOVGE ","" AddAOC TblASM_OPCODE(75),"CMOVNL ","" AddAOC TblASM_OPCODE(76),&H4E0F,"CMOVLE ","" AddAOC TblASM_OPCODE(77),"CMOVNG ","" AddAOC TblASM_OPCODE(78),&H4F0F,"CMOVG ","" AddAOC TblASM_OPCODE(79),"CMOVNLE ","" AddAOC TblASM_OPCODE(80),&H600F,192,201,"PUNPCKLBW ","" AddAOC TblASM_OPCODE(81),&H610F,"PUNPCKLWD ","" AddAOC TblASM_OPCODE(82),&H620F,"PUNPCKLDQ ","" AddAOC TblASM_OPCODE(83),&H630F,"PACKSSWB ","" AddAOC TblASM_OPCODE(84),&H640F,"PCMPGTB ","" AddAOC TblASM_OPCODE(85),&H650F,"PCMPGTW ","" AddAOC TblASM_OPCODE(86),&H660F,"PCMPGTD ","" AddAOC TblASM_OPCODE(87),&H670F,"PACKUSWB ","" AddAOC TblASM_OPCODE(88),&H680F,"PUNPCKHBW ","" AddAOC TblASM_OPCODE(89),&H690F,"PUNPCKHWD ","" AddAOC TblASM_OPCODE(90),&H6A0F,"PUNPCKHDQ ","" AddAOC TblASM_OPCODE(91),&H6B0F,"PACKSSDW ","" AddAOC TblASM_OPCODE(92),&H6E0F,"MOVD ","" AddAOC TblASM_OPCODE(93),&H6F0F,"MOVQ ","" AddAOC TblASM_OPCODE(94),&H710F,"PSRLW ","" AddAOC TblASM_OPCODE(95),"PSRAW ","" AddAOC TblASM_OPCODE(96),"PSLLW ","" AddAOC TblASM_OPCODE(97),&H720F,"PSRLD ","" AddAOC TblASM_OPCODE(98),"PSRAD ","" AddAOC TblASM_OPCODE(99),"PSLLD ","" AddAOC TblASM_OPCODE(100),&H730F,"PSRLQ ","" AddAOC TblASM_OPCODE(101),"PSLLQ ","" AddAOC TblASM_OPCODE(102),&H740F,"PCMPEQB ","" AddAOC TblASM_OPCODE(103),&H750F,"PCMPEQW ","" AddAOC TblASM_OPCODE(104),&H760F,"PCMPEQD ","" AddAOC TblASM_OPCODE(105),&H770F,"EMMS","" AddAOC TblASM_OPCODE(106),&H7E0F,"" AddAOC TblASM_OPCODE(107),&H7F0F,"" AddAOC TblASM_OPCODE(108),&H800F,24,36,"JO ","" AddAOC TblASM_OPCODE(109),&H810F,"JNO ","" AddAOC TblASM_OPCODE(110),&H820F,"JB ","" AddAOC TblASM_OPCODE(111),&H830F,"JAE ","" AddAOC TblASM_OPCODE(112),&H840F,"JE ","" AddAOC TblASM_OPCODE(113),&H850F,"JNE ","" AddAOC TblASM_OPCODE(114),&H860F,"JBE ","" AddAOC TblASM_OPCODE(115),&H870F,"JA ","" AddAOC TblASM_OPCODE(116),&H880F,"JS ","" AddAOC TblASM_OPCODE(117),&H890F,"JNS ","" AddAOC TblASM_OPCODE(118),&H8A0F,"JPE ","" AddAOC TblASM_OPCODE(119),&H8B0F,"JPO ","" AddAOC TblASM_OPCODE(120),&H8C0F,"JL ","" AddAOC TblASM_OPCODE(121),&H8D0F,"JGE ","" AddAOC TblASM_OPCODE(122),&H8E0F,"JLE ","" AddAOC TblASM_OPCODE(123),&H8F0F,"JG ","" AddAOC TblASM_OPCODE(124),&H900F,"SETO ","" AddAOC TblASM_OPCODE(125),&H910F,"SETNO ","" AddAOC TblASM_OPCODE(126),&H920F,"SETB ","" AddAOC TblASM_OPCODE(127),&H930F,"SETAE ","" AddAOC TblASM_OPCODE(128),&H940F,"SETE ","" AddAOC TblASM_OPCODE(129),&H950F,"SETNE ","" AddAOC TblASM_OPCODE(130),&H960F,"SETBE ","" AddAOC TblASM_OPCODE(131),&H970F,"SETA ","" AddAOC TblASM_OPCODE(132),&H980F,"SETS ","" AddAOC TblASM_OPCODE(133),&H990F,"SETNS ","" AddAOC TblASM_OPCODE(134),&H9A0F,"SETPE ","" AddAOC TblASM_OPCODE(135),&H9B0F,"SETPO ","" AddAOC TblASM_OPCODE(136),&H9C0F,"SETL ","" AddAOC TblASM_OPCODE(137),&H9D0F,"SETGE ","" AddAOC TblASM_OPCODE(138),&H9E0F,"SETLE ","" AddAOC TblASM_OPCODE(139),&H9F0F,"SETG ","" AddAOC TblASM_OPCODE(140),&HA00F,"PUSH FS","" AddAOC TblASM_OPCODE(141),&HA10F,"POP FS","" AddAOC TblASM_OPCODE(142),&HA20F,"cpuID","" AddAOC TblASM_OPCODE(143),&HA30F,"BT ","" AddAOC TblASM_OPCODE(144),&HA40F,"SHLD ","" AddAOC TblASM_OPCODE(145),&HA50F,CL" AddAOC TblASM_OPCODE(146),&HA80F,"PUSH GS","" AddAOC TblASM_OPCODE(147),&HA90F,"POP GS","" AddAOC TblASM_OPCODE(148),&HAA0F,"RSM","" AddAOC TblASM_OPCODE(149),&HAB0F,"BTS ","" AddAOC TblASM_OPCODE(150),&HAC0F,"SHRD ","" AddAOC TblASM_OPCODE(151),&HAD0F,CL" AddAOC TblASM_OPCODE(152),&HAF0F,"IMUL ","" AddAOC TblASM_OPCODE(153),&HB00F,"CMPXCHG ","" AddAOC TblASM_OPCODE(154),&HB10F,"" AddAOC TblASM_OPCODE(155),&HB20F,61,"LSS ","" AddAOC TblASM_OPCODE(156),&HB30F,"BTR ","" AddAOC TblASM_OPCODE(157),&HB40F,"LFS ","" AddAOC TblASM_OPCODE(158),&HB50F,"LGS ","" AddAOC TblASM_OPCODE(159),&HB60F,"MOVZX ","" AddAOC TblASM_OPCODE(160),&HB70F,"" AddAOC TblASM_OPCODE(161),&HBA0F,"" AddAOC TblASM_OPCODE(162),"" AddAOC TblASM_OPCODE(163),"" AddAOC TblASM_OPCODE(164),"BTC ","" AddAOC TblASM_OPCODE(165),&HBB0F,"" AddAOC TblASM_OPCODE(166),&HBC0F,"BSF ","" AddAOC TblASM_OPCODE(167),&HBD0F,"BSR ","" AddAOC TblASM_OPCODE(168),&HBE0F,"MOVSX ","" AddAOC TblASM_OPCODE(169),&HBF0F,"" AddAOC TblASM_OPCODE(170),&HC00F,"XADD ","" AddAOC TblASM_OPCODE(171),&HC10F,"" AddAOC TblASM_OPCODE(172),"" AddAOC TblASM_OPCODE(173),&HC70F,54,"CMPXCHG8B ","" AddAOC TblASM_OPCODE(174),&HC80F,32,"BSWAP ","" AddAOC TblASM_OPCODE(175),&HD10F,"" AddAOC TblASM_OPCODE(176),&HD20F,"" AddAOC TblASM_OPCODE(177),&HD30F,"" AddAOC TblASM_OPCODE(178),&HD50F,"PMULLW ","" AddAOC TblASM_OPCODE(179),&HD80F,"PSUBUSB ","" AddAOC TblASM_OPCODE(180),&HD90F,"PSUBUSW ","" AddAOC TblASM_OPCODE(181),&HDB0F,"PAND ","" AddAOC TblASM_OPCODE(182),&HDC0F,"PADDUSB ","" AddAOC TblASM_OPCODE(183),&HDD0F,"PADDUSW ","" AddAOC TblASM_OPCODE(184),&HDF0F,"PANDN ","" AddAOC TblASM_OPCODE(185),&HE10F,"" AddAOC TblASM_OPCODE(186),&HE20F,"" AddAOC TblASM_OPCODE(187),&HE50F,"PMULHW ","" AddAOC TblASM_OPCODE(188),&HE80F,"PSUBSB ","" AddAOC TblASM_OPCODE(189),&HE90F,"PSUBSW ","" AddAOC TblASM_OPCODE(190),&HEB0F,"POR ","" AddAOC TblASM_OPCODE(191),&HEC0F,"PADDSB ","" AddAOC TblASM_OPCODE(192),&HED0F,"PADDSW ","" AddAOC TblASM_OPCODE(193),&HEF0F,"PXOR ","" AddAOC TblASM_OPCODE(194),&HF10F,"" AddAOC TblASM_OPCODE(195),&HF20F,"" AddAOC TblASM_OPCODE(196),&HF30F,"" AddAOC TblASM_OPCODE(197),&HF50F,"PMADDWD ","" AddAOC TblASM_OPCODE(198),&HF80F,"PSUBB ","" AddAOC TblASM_OPCODE(199),&HF90F,"PSUBW ","" AddAOC TblASM_OPCODE(200),&HFA0F,"PSUBD ","" AddAOC TblASM_OPCODE(201),&HFC0F,"PADDB ","" AddAOC TblASM_OPCODE(202),&HFD0F,"PADDW ","" AddAOC TblASM_OPCODE(203),&HFE0F,"PADDD ","" AddAOC TblASM_OPCODE(204),&H10,"ADC ","" TblPtrASM(16) = 204 AddAOC TblASM_OPCODE(205),&H11,"" TblPtrASM(17) = 205 AddAOC TblASM_OPCODE(206),&H12,"" TblPtrASM(18) = 206 AddAOC TblASM_OPCODE(207),&H13,"" TblPtrASM(19) = 207 AddAOC TblASM_OPCODE(208),&H14,"ADC AL,"" TblPtrASM(20) = 208 AddAOC TblASM_OPCODE(209),&H15,"ADC EAX,"" TblPtrASM(21) = 209 AddAOC TblASM_OPCODE(210),&H16,"PUSH SS","" TblPtrASM(22) = 210 AddAOC TblASM_OPCODE(211),&H17,"POP SS","" TblPtrASM(23) = 211 AddAOC TblASM_OPCODE(212),&H18,"SBB ","" TblPtrASM(24) = 212 AddAOC TblASM_OPCODE(213),&H19,"" TblPtrASM(25) = 213 AddAOC TblASM_OPCODE(214),&H1A,"" TblPtrASM(26) = 214 AddAOC TblASM_OPCODE(215),&H1B,"" TblPtrASM(27) = 215 AddAOC TblASM_OPCODE(216),&H1C,"SBB AL,"" TblPtrASM(28) = 216 AddAOC TblASM_OPCODE(217),&H1D,"SBB EAX,"" TblPtrASM(29) = 217 AddAOC TblASM_OPCODE(218),&H1E,"PUSH DS","" TblPtrASM(30) = 218 AddAOC TblASM_OPCODE(219),&H1F,"POP DS","" TblPtrASM(31) = 219 AddAOC TblASM_OPCODE(220),&H20,"AND ","" TblPtrASM(32) = 220 AddAOC TblASM_OPCODE(221),&H21,"" TblPtrASM(33) = 221 AddAOC TblASM_OPCODE(222),&H22,"" TblPtrASM(34) = 222 AddAOC TblASM_OPCODE(223),&H23,"" TblPtrASM(35) = 223 AddAOC TblASM_OPCODE(224),&H24,"AND AL,"" TblPtrASM(36) = 224 AddAOC TblASM_OPCODE(225),&H25,"AND EAX,"" TblPtrASM(37) = 225 AddAOC TblASM_OPCODE(226),&H26,"ES:","" TblPtrASM(38) = 226 AddAOC TblASM_OPCODE(227),&H27,"DAA","" TblPtrASM(39) = 227 AddAOC TblASM_OPCODE(228),&H28,"SUB ","" TblPtrASM(40) = 228 AddAOC TblASM_OPCODE(229),&H29,"" TblPtrASM(41) = 229 AddAOC TblASM_OPCODE(230),&H2A,"" TblPtrASM(42) = 230 AddAOC TblASM_OPCODE(231),&H2B,"" TblPtrASM(43) = 231 AddAOC TblASM_OPCODE(232),&H2C,"SUB AL,"" TblPtrASM(44) = 232 AddAOC TblASM_OPCODE(233),&H2D,"SUB EAX,"" TblPtrASM(45) = 233 AddAOC TblASM_OPCODE(234),&H2E,"CS:","" TblPtrASM(46) = 234 AddAOC TblASM_OPCODE(235),&H2F,"DAS","" TblPtrASM(47) = 235 AddAOC TblASM_OPCODE(236),&H30,"XOR ","" TblPtrASM(48) = 236 AddAOC TblASM_OPCODE(237),&H31,"" TblPtrASM(49) = 237 AddAOC TblASM_OPCODE(238),&H32,"" TblPtrASM(50) = 238 AddAOC TblASM_OPCODE(239),&H33,"" TblPtrASM(51) = 239 AddAOC TblASM_OPCODE(240),&H34,"XOR AL,"" TblPtrASM(52) = 240 AddAOC TblASM_OPCODE(241),&H35,"XOR EAX,"" TblPtrASM(53) = 241 AddAOC TblASM_OPCODE(242),&H36,"SS:","" TblPtrASM(54) = 242 AddAOC TblASM_OPCODE(243),&H37,"AAA","" TblPtrASM(55) = 243 AddAOC TblASM_OPCODE(244),&H38,"CMP ","" TblPtrASM(56) = 244 AddAOC TblASM_OPCODE(245),&H39,"" TblPtrASM(57) = 245 AddAOC TblASM_OPCODE(246),&H3A,"" TblPtrASM(58) = 246 AddAOC TblASM_OPCODE(247),&H3B,"" TblPtrASM(59) = 247 AddAOC TblASM_OPCODE(248),&H3C,"CMP AL,"" TblPtrASM(60) = 248 AddAOC TblASM_OPCODE(249),&H3D,"CMP EAX,"" TblPtrASM(61) = 249 AddAOC TblASM_OPCODE(250),&H3E,"DS:","" TblPtrASM(62) = 250 AddAOC TblASM_OPCODE(251),&H3F,"AAS","" TblPtrASM(63) = 251 Init_UnASM_Next End Sub Private Sub Init_UnASM_Next() 'Vous connaissiez l'erreur vb "Erreur : Proc閐ure trop grande." ? non ?... '...ben fusionnez Init_UnASM() et Init_UnASM_Next() ... tatin! AddAOC TblASM_OPCODE(252),&H40,"INC ","" TblPtrASM(64) = 252 TblPtrASM(65) = 252 TblPtrASM(66) = 252 TblPtrASM(67) = 252 TblPtrASM(68) = 252 TblPtrASM(69) = 252 TblPtrASM(70) = 252 TblPtrASM(71) = 252 AddAOC TblASM_OPCODE(253),&H48,"DEC ","" TblPtrASM(72) = 253 TblPtrASM(73) = 253 TblPtrASM(74) = 253 TblPtrASM(75) = 253 TblPtrASM(76) = 253 TblPtrASM(77) = 253 TblPtrASM(78) = 253 TblPtrASM(79) = 253 AddAOC TblASM_OPCODE(254),&H50,"PUSH ","" TblPtrASM(80) = 254 TblPtrASM(81) = 254 TblPtrASM(82) = 254 TblPtrASM(83) = 254 TblPtrASM(84) = 254 TblPtrASM(85) = 254 TblPtrASM(86) = 254 TblPtrASM(87) = 254 AddAOC TblASM_OPCODE(255),&H58,"POP ","" TblPtrASM(88) = 255 TblPtrASM(89) = 255 TblPtrASM(90) = 255 TblPtrASM(91) = 255 TblPtrASM(92) = 255 TblPtrASM(93) = 255 TblPtrASM(94) = 255 TblPtrASM(95) = 255 AddAOC TblASM_OPCODE(256),&H60,"PUSHAD","" TblPtrASM(96) = 256 AddAOC TblASM_OPCODE(257),&H61,"POPAD","" TblPtrASM(97) = 257 AddAOC TblASM_OPCODE(258),&H62,66,"BOUND ","" TblPtrASM(98) = 258 AddAOC TblASM_OPCODE(259),&H63,"ARPL ","" TblPtrASM(99) = 259 AddAOC TblASM_OPCODE(260),&H64,"FS:","" TblPtrASM(100) = 260 AddAOC TblASM_OPCODE(261),&H65,"GS:","" TblPtrASM(101) = 261 AddAOC TblASM_OPCODE(262),&H66,"Ops","" TblPtrASM(102) = 262 AddAOC TblASM_OPCODE(263),&H67,"Add","" TblPtrASM(103) = 263 AddAOC TblASM_OPCODE(264),&H68,"" TblPtrASM(104) = 264 AddAOC TblASM_OPCODE(265),&H69,"" TblPtrASM(105) = 265 AddAOC TblASM_OPCODE(266),"" AddAOC TblASM_OPCODE(267),&H6A,"" TblPtrASM(106) = 267 AddAOC TblASM_OPCODE(268),&H6B,"" TblPtrASM(107) = 268 AddAOC TblASM_OPCODE(269),"" AddAOC TblASM_OPCODE(270),&H6C,51,"INS ","" TblPtrASM(108) = 270 AddAOC TblASM_OPCODE(271),&H6D,53,"" TblPtrASM(109) = 271 AddAOC TblASM_OPCODE(272),&H6E,"OUTS DX,"" TblPtrASM(110) = 272 AddAOC TblASM_OPCODE(273),&H6F,"" TblPtrASM(111) = 273 AddAOC TblASM_OPCODE(274),&H70,22,34,"" TblPtrASM(112) = 274 AddAOC TblASM_OPCODE(275),&H71,"" TblPtrASM(113) = 275 AddAOC TblASM_OPCODE(276),&H72,"JC ","" TblPtrASM(114) = 276 AddAOC TblASM_OPCODE(277),&H73,"" TblPtrASM(115) = 277 AddAOC TblASM_OPCODE(278),&H74,"" TblPtrASM(116) = 278 AddAOC TblASM_OPCODE(279),&H75,"" TblPtrASM(117) = 279 AddAOC TblASM_OPCODE(280),&H76,"" TblPtrASM(118) = 280 AddAOC TblASM_OPCODE(281),&H77,"" TblPtrASM(119) = 281 AddAOC TblASM_OPCODE(282),&H78,"" TblPtrASM(120) = 282 AddAOC TblASM_OPCODE(283),&H79,"" TblPtrASM(121) = 283 AddAOC TblASM_OPCODE(284),&H7A,"" TblPtrASM(122) = 284 AddAOC TblASM_OPCODE(285),&H7B,"" TblPtrASM(123) = 285 AddAOC TblASM_OPCODE(286),&H7C,"" TblPtrASM(124) = 286 AddAOC TblASM_OPCODE(287),&H7D,"" TblPtrASM(125) = 287 AddAOC TblASM_OPCODE(288),&H7E,"" TblPtrASM(126) = 288 AddAOC TblASM_OPCODE(289),&H7F,"" TblPtrASM(127) = 289 AddAOC TblASM_OPCODE(290),&H80,"" TblPtrASM(128) = 290 AddAOC TblASM_OPCODE(291),"" AddAOC TblASM_OPCODE(292),"" AddAOC TblASM_OPCODE(293),"" AddAOC TblASM_OPCODE(294),"" AddAOC TblASM_OPCODE(295),"" AddAOC TblASM_OPCODE(296),"" AddAOC TblASM_OPCODE(297),"" AddAOC TblASM_OPCODE(298),&H81,"" TblPtrASM(129) = 298 AddAOC TblASM_OPCODE(299),"" AddAOC TblASM_OPCODE(300),"" AddAOC TblASM_OPCODE(301),"" AddAOC TblASM_OPCODE(302),"" AddAOC TblASM_OPCODE(303),"" AddAOC TblASM_OPCODE(304),"" AddAOC TblASM_OPCODE(305),"" AddAOC TblASM_OPCODE(306),&H83,"" TblPtrASM(131) = 306 AddAOC TblASM_OPCODE(307),"" AddAOC TblASM_OPCODE(308),"" AddAOC TblASM_OPCODE(309),"" AddAOC TblASM_OPCODE(310),"" AddAOC TblASM_OPCODE(311),"" AddAOC TblASM_OPCODE(312),"" AddAOC TblASM_OPCODE(313),"" AddAOC TblASM_OPCODE(314),&H84,"TEST ","" TblPtrASM(132) = 314 AddAOC TblASM_OPCODE(315),&H85,"" TblPtrASM(133) = 315 AddAOC TblASM_OPCODE(316),"" AddAOC TblASM_OPCODE(317),&H86,"XCHG ","" TblPtrASM(134) = 317 AddAOC TblASM_OPCODE(318),"" AddAOC TblASM_OPCODE(319),&H87,"" TblPtrASM(135) = 319 AddAOC TblASM_OPCODE(320),"" AddAOC TblASM_OPCODE(321),&H88,"" TblPtrASM(136) = 321 AddAOC TblASM_OPCODE(322),&H89,"" TblPtrASM(137) = 322 AddAOC TblASM_OPCODE(323),&H8A,"" TblPtrASM(138) = 323 AddAOC TblASM_OPCODE(324),&H8B,"" TblPtrASM(139) = 324 AddAOC TblASM_OPCODE(325),&H8C,"" TblPtrASM(140) = 325 AddAOC TblASM_OPCODE(326),&H8D,"LEA ","" TblPtrASM(141) = 326 AddAOC TblASM_OPCODE(327),&H8E,"MOV S","" TblPtrASM(142) = 327 AddAOC TblASM_OPCODE(328),&H8F,"" TblPtrASM(143) = 328 AddAOC TblASM_OPCODE(329),&H90,"NOP","" TblPtrASM(144) = 329 'equivoque ??? AddAOC TblASM_OPCODE(330),"XCHG EAX,"" TblPtrASM(145) = 330 TblPtrASM(146) = 330 TblPtrASM(147) = 330 TblPtrASM(148) = 330 TblPtrASM(149) = 330 TblPtrASM(150) = 330 TblPtrASM(151) = 330 AddAOC TblASM_OPCODE(331),EAX" 'ee AddAOC TblASM_OPCODE(332),&H98,"CBW","" TblPtrASM(152) = 332 AddAOC TblASM_OPCODE(333),&H99,"CDQ","" TblPtrASM(153) = 333 AddAOC TblASM_OPCODE(334),"CWD","" AddAOC TblASM_OPCODE(335),&H9A,"CALL pt","" TblPtrASM(154) = 335 AddAOC TblASM_OPCODE(336),&H9B,"FWAIT","" TblPtrASM(155) = 336 AddAOC TblASM_OPCODE(337),"WAIT","" AddAOC TblASM_OPCODE(338),&HD99B,"FSTENV ","" AddAOC TblASM_OPCODE(339),"FSTCW ","" AddAOC TblASM_OPCODE(340),&HDB9B,"FCLEX","" AddAOC TblASM_OPCODE(341),"FINIT","" AddAOC TblASM_OPCODE(342),&HDD9B,"FSAVE ","" AddAOC TblASM_OPCODE(343),"FSTSW ","" AddAOC TblASM_OPCODE(344),&HDF9B,"FSTSW AX","" AddAOC TblASM_OPCODE(345),&H9C,"PUSHFD","" TblPtrASM(156) = 345 AddAOC TblASM_OPCODE(346),&H9D,"POPFD","" TblPtrASM(157) = 346 AddAOC TblASM_OPCODE(347),&H9E,"SAHF","" TblPtrASM(158) = 347 AddAOC TblASM_OPCODE(348),&H9F,"LAHF","" TblPtrASM(159) = 348 AddAOC TblASM_OPCODE(349),&HA0,"MOV AL,"" TblPtrASM(160) = 349 AddAOC TblASM_OPCODE(350),&HA1,"MOV AX,"" TblPtrASM(161) = 350 AddAOC TblASM_OPCODE(351),"MOV EAX,"" AddAOC TblASM_OPCODE(352),&HA2,AL" TblPtrASM(162) = 352 AddAOC TblASM_OPCODE(353),&HA3,AX" TblPtrASM(163) = 353 AddAOC TblASM_OPCODE(354),EAX" AddAOC TblASM_OPCODE(355),&HA4,"MOVS ","" TblPtrASM(164) = 355 AddAOC TblASM_OPCODE(356),&HA5,"" TblPtrASM(165) = 356 AddAOC TblASM_OPCODE(357),&HA6,"CMPSB","" TblPtrASM(166) = 357 AddAOC TblASM_OPCODE(358),&HA7,"CMPSD","" TblPtrASM(167) = 358 AddAOC TblASM_OPCODE(359),&HA8,"TEST AL,"" TblPtrASM(168) = 359 AddAOC TblASM_OPCODE(360),&HA9,"TEST EAX,"" TblPtrASM(169) = 360 AddAOC TblASM_OPCODE(361),&HAA,"STOS ","" TblPtrASM(170) = 361 AddAOC TblASM_OPCODE(362),&HAB,"" TblPtrASM(171) = 362 AddAOC TblASM_OPCODE(363),&HAC,"LODS ","" TblPtrASM(172) = 363 AddAOC TblASM_OPCODE(364),&HAD,"" TblPtrASM(173) = 364 AddAOC TblASM_OPCODE(365),&HAE,"SCAS ","" TblPtrASM(174) = 365 AddAOC TblASM_OPCODE(366),&HAF,"" TblPtrASM(175) = 366 AddAOC TblASM_OPCODE(367),&HB0,30,"" TblPtrASM(176) = 367 TblPtrASM(177) = 367 TblPtrASM(178) = 367 TblPtrASM(179) = 367 TblPtrASM(180) = 367 TblPtrASM(181) = 367 TblPtrASM(182) = 367 TblPtrASM(183) = 367 AddAOC TblASM_OPCODE(368),&HB8,"" TblPtrASM(184) = 368 TblPtrASM(185) = 368 TblPtrASM(186) = 368 TblPtrASM(187) = 368 TblPtrASM(188) = 368 TblPtrASM(189) = 368 TblPtrASM(190) = 368 TblPtrASM(191) = 368 AddAOC TblASM_OPCODE(369),&HC0,"ROL ","" TblPtrASM(192) = 369 AddAOC TblASM_OPCODE(370),"ROR ","" AddAOC TblASM_OPCODE(371),"RCL ","" AddAOC TblASM_OPCODE(372),"RCR ","" AddAOC TblASM_OPCODE(373),"SAL ","" AddAOC TblASM_OPCODE(374),"SHL ","" AddAOC TblASM_OPCODE(375),"SHR ","" AddAOC TblASM_OPCODE(376),"SAR ","" AddAOC TblASM_OPCODE(377),&HC1,"" TblPtrASM(193) = 377 AddAOC TblASM_OPCODE(378),"" AddAOC TblASM_OPCODE(379),"" AddAOC TblASM_OPCODE(380),"" AddAOC TblASM_OPCODE(381),"" AddAOC TblASM_OPCODE(382),"" AddAOC TblASM_OPCODE(383),"" AddAOC TblASM_OPCODE(384),"" AddAOC TblASM_OPCODE(385),&HC2,27,43,"RET ","" TblPtrASM(194) = 385 AddAOC TblASM_OPCODE(386),&HC3,"RET","" TblPtrASM(195) = 386 AddAOC TblASM_OPCODE(387),&HC4,"LES ","" TblPtrASM(196) = 387 AddAOC TblASM_OPCODE(388),&HC5,"LDS ","" TblPtrASM(197) = 388 AddAOC TblASM_OPCODE(389),&HC6,"" TblPtrASM(198) = 389 AddAOC TblASM_OPCODE(390),&HC7,"" TblPtrASM(199) = 390 AddAOC TblASM_OPCODE(391),&HC8,"ENTER ",0" TblPtrASM(200) = 391 AddAOC TblASM_OPCODE(392),1" AddAOC TblASM_OPCODE(393),"" AddAOC TblASM_OPCODE(394),&HC9,"LEAVE","" TblPtrASM(201) = 394 AddAOC TblASM_OPCODE(395),&HCA,"" TblPtrASM(202) = 395 AddAOC TblASM_OPCODE(396),&HCB,"" TblPtrASM(203) = 396 AddAOC TblASM_OPCODE(397),&HCC,"INT 3","" TblPtrASM(204) = 397 AddAOC TblASM_OPCODE(398),&HCD,"INT ","" TblPtrASM(205) = 398 AddAOC TblASM_OPCODE(399),&HCE,"INTO","" TblPtrASM(206) = 399 AddAOC TblASM_OPCODE(400),&HCF,"IRETD","" TblPtrASM(207) = 400 AddAOC TblASM_OPCODE(401),&HD0,1" TblPtrASM(208) = 401 AddAOC TblASM_OPCODE(402),1" AddAOC TblASM_OPCODE(403),1" AddAOC TblASM_OPCODE(404),1" AddAOC TblASM_OPCODE(405),1" AddAOC TblASM_OPCODE(406),1" AddAOC TblASM_OPCODE(407),1" AddAOC TblASM_OPCODE(408),1" AddAOC TblASM_OPCODE(409),&HD1,1" TblPtrASM(209) = 409 AddAOC TblASM_OPCODE(410),1" AddAOC TblASM_OPCODE(411),1" AddAOC TblASM_OPCODE(412),1" AddAOC TblASM_OPCODE(413),1" AddAOC TblASM_OPCODE(414),1" AddAOC TblASM_OPCODE(415),1" AddAOC TblASM_OPCODE(416),1" AddAOC TblASM_OPCODE(417),&HD2,CL" TblPtrASM(210) = 417 AddAOC TblASM_OPCODE(418),CL" AddAOC TblASM_OPCODE(419),CL" AddAOC TblASM_OPCODE(420),CL" AddAOC TblASM_OPCODE(421),CL" AddAOC TblASM_OPCODE(422),CL" AddAOC TblASM_OPCODE(423),CL" AddAOC TblASM_OPCODE(424),CL" AddAOC TblASM_OPCODE(425),&HD3,CL" TblPtrASM(211) = 425 AddAOC TblASM_OPCODE(426),CL" AddAOC TblASM_OPCODE(427),CL" AddAOC TblASM_OPCODE(428),CL" AddAOC TblASM_OPCODE(429),CL" AddAOC TblASM_OPCODE(430),CL" AddAOC TblASM_OPCODE(431),CL" AddAOC TblASM_OPCODE(432),CL" AddAOC TblASM_OPCODE(433),&HAD4,"AAM","" TblPtrASM(212) = 433 AddAOC TblASM_OPCODE(434),&HAD5,"AAD","" TblPtrASM(213) = 434 AddAOC TblASM_OPCODE(435),&HD6,"SETALC","" TblPtrASM(214) = 435 AddAOC TblASM_OPCODE(436),&HD7,"XLAT ","" TblPtrASM(215) = 436 AddAOC TblASM_OPCODE(437),&HD8,128,"FADD ","" TblPtrASM(216) = 437 AddAOC TblASM_OPCODE(438),"FMUL ","" AddAOC TblASM_OPCODE(439),"FCOM ","" AddAOC TblASM_OPCODE(440),"FCOMP ","" AddAOC TblASM_OPCODE(441),"FSUB ","" AddAOC TblASM_OPCODE(442),"FSUBR ","" AddAOC TblASM_OPCODE(443),"FDIV ","" AddAOC TblASM_OPCODE(444),"FDIVR ","" AddAOC TblASM_OPCODE(445),&HC0D8,160,"FADD ST(0),ST(",")" AddAOC TblASM_OPCODE(446),&HC8D8,"FMUL ST(0),")" AddAOC TblASM_OPCODE(447),&HD0D8,"FCOM ST(","" AddAOC TblASM_OPCODE(448),&HD1D8,"FCOM","" AddAOC TblASM_OPCODE(449),&HD8D8,"FCOMP ST(",")" AddAOC TblASM_OPCODE(450),&HD9D8,"FCOMP","" AddAOC TblASM_OPCODE(451),&HE0D8,"FSUB ST(0),")" AddAOC TblASM_OPCODE(452),&HE8D8,"FSUBR ST(0),")" AddAOC TblASM_OPCODE(453),&HF0D8,"FDIV ST(0),")" AddAOC TblASM_OPCODE(454),&HF8D8,"FDIVR ST(0),")" AddAOC TblASM_OPCODE(455),&HD9,"FLD ","" TblPtrASM(217) = 455 AddAOC TblASM_OPCODE(456),"FST ","" AddAOC TblASM_OPCODE(457),"FSTP ","" AddAOC TblASM_OPCODE(458),"FLDENV ","" AddAOC TblASM_OPCODE(459),"FLDCW ","" AddAOC TblASM_OPCODE(460),"FNSTENV ","" AddAOC TblASM_OPCODE(461),"FNSTCW ","" AddAOC TblASM_OPCODE(462),&HC0D9,"FLD ST(",")" AddAOC TblASM_OPCODE(463),&HC8D9,"FXCH ST(",")" AddAOC TblASM_OPCODE(464),&HC9D9,"FXCH","" AddAOC TblASM_OPCODE(465),&HD0D9,"FNOP","" AddAOC TblASM_OPCODE(466),&HE0D9,"FCHS","" AddAOC TblASM_OPCODE(467),&HE1D9,"FABS","" AddAOC TblASM_OPCODE(468),&HE4D9,"FTST","" AddAOC TblASM_OPCODE(469),&HE5D9,"FXAM","" AddAOC TblASM_OPCODE(470),&HE8D9,"FLD1","" AddAOC TblASM_OPCODE(471),&HE9D9,"FLDL2T","" AddAOC TblASM_OPCODE(472),&HEAD9,"FLDL2E","" AddAOC TblASM_OPCODE(473),&HEBD9,"FLDPI","" AddAOC TblASM_OPCODE(474),&HECD9,"FLDLG2","" AddAOC TblASM_OPCODE(475),&HEDD9,"FLDLN2","" AddAOC TblASM_OPCODE(476),&HEED9,"FLDZ","" AddAOC TblASM_OPCODE(477),&HF0D9,"F2XM1","" AddAOC TblASM_OPCODE(478),&HF1D9,"FYL2X","" AddAOC TblASM_OPCODE(479),&HF2D9,"FPTAN","" AddAOC TblASM_OPCODE(480),&HF3D9,"FPatan","" AddAOC TblASM_OPCODE(481),&HF4D9,"FXTRACT","" AddAOC TblASM_OPCODE(482),&HF5D9,"FPREM1","" AddAOC TblASM_OPCODE(483),&HF6D9,"FDECSTP","" AddAOC TblASM_OPCODE(484),&HF7D9,"FINCSTP","" AddAOC TblASM_OPCODE(485),&HF8D9,"FPREM","" AddAOC TblASM_OPCODE(486),&HF9D9,"FYL2XP1","" AddAOC TblASM_OPCODE(487),&HFAD9,"FSQRT","" AddAOC TblASM_OPCODE(488),&HFBD9,"FSINCOS","" AddAOC TblASM_OPCODE(489),&HFCD9,"FRNDINT","" AddAOC TblASM_OPCODE(490),&HFDD9,"FSCALE","" AddAOC TblASM_OPCODE(491),&HFED9,"FSIN","" AddAOC TblASM_OPCODE(492),&HFFD9,"FCOS","" AddAOC TblASM_OPCODE(493),&HDA,133,"FIADD ","" TblPtrASM(218) = 493 AddAOC TblASM_OPCODE(494),"FIMUL ","" AddAOC TblASM_OPCODE(495),"FICOM ","" AddAOC TblASM_OPCODE(496),"FICOMP ","" AddAOC TblASM_OPCODE(497),"FISUB ","" AddAOC TblASM_OPCODE(498),"FISUBR ","" AddAOC TblASM_OPCODE(499),"FIDIV ","" AddAOC TblASM_OPCODE(500),"FIDIVR ","" AddAOC TblASM_OPCODE(501),&HC0DA,"FCMOVB ST(0),")" AddAOC TblASM_OPCODE(502),&HC8DA,"FCMOVE ST(0),")" AddAOC TblASM_OPCODE(503),&HD0DA,"FCMOVBE ST(0),")" AddAOC TblASM_OPCODE(504),&HD8DA,"FCMOVU ST(0),")" AddAOC TblASM_OPCODE(505),&HE9DA,"FUCOMPP","" AddAOC TblASM_OPCODE(506),&HDB,"FILD ","" TblPtrASM(219) = 506 AddAOC TblASM_OPCODE(507),"FIST ","" AddAOC TblASM_OPCODE(508),"FISTP ","" AddAOC TblASM_OPCODE(509),130,"" AddAOC TblASM_OPCODE(510),"" AddAOC TblASM_OPCODE(511),&HC0DB,"FCMOVNB ST(0),")" AddAOC TblASM_OPCODE(512),&HC8DB,"FCMOVNE ST(0),")" AddAOC TblASM_OPCODE(513),&HD0DB,"FCMOVNBE ST(0),")" AddAOC TblASM_OPCODE(514),&HD8DB,"FCMOVNU ST(0),")" AddAOC TblASM_OPCODE(515),&HE2DB,"FNCLEX","" AddAOC TblASM_OPCODE(516),&HE3DB,"FNINIT","" AddAOC TblASM_OPCODE(517),&HE8DB,"FUCOMI ST,"" AddAOC TblASM_OPCODE(518),&HF0DB,"FCOMI ST,"" AddAOC TblASM_OPCODE(519),&HDC,129,"" TblPtrASM(220) = 519 AddAOC TblASM_OPCODE(520),"" AddAOC TblASM_OPCODE(521),"" AddAOC TblASM_OPCODE(522),"" AddAOC TblASM_OPCODE(523),"" AddAOC TblASM_OPCODE(524),"" AddAOC TblASM_OPCODE(525),"" AddAOC TblASM_OPCODE(526),"" AddAOC TblASM_OPCODE(527),&HC0DC,"FADD ST(","),ST(0)" AddAOC TblASM_OPCODE(528),&HC8DC,"FMUL ST(",ST(0)" AddAOC TblASM_OPCODE(529),&HE0DC,"FSUBR ST(",ST(0)" AddAOC TblASM_OPCODE(530),&HE8DC,"FSUB ST(",ST(0)" AddAOC TblASM_OPCODE(531),&HF0DC,"FDIVR ST(",ST(0)" AddAOC TblASM_OPCODE(532),&HF8DC,"FDIV ST(",ST(0)" AddAOC TblASM_OPCODE(533),&HDD,"" TblPtrASM(221) = 533 AddAOC TblASM_OPCODE(534),"" AddAOC TblASM_OPCODE(535),"" AddAOC TblASM_OPCODE(536),"FRSTOR ","" AddAOC TblASM_OPCODE(537),"FNSAVE ","" AddAOC TblASM_OPCODE(538),"FNSTSW ","" AddAOC TblASM_OPCODE(539),&HC0DD,"FFREE ST(",")" AddAOC TblASM_OPCODE(540),&HD0DD,"FST ST(",")" AddAOC TblASM_OPCODE(541),&HD8DD,"FSTP ST(",")" AddAOC TblASM_OPCODE(542),&HE0DD,"FUCOM ST(",")" AddAOC TblASM_OPCODE(543),&HE1DD,"FUCOM","" AddAOC TblASM_OPCODE(544),&HE8DD,"FUCOMP ST(",")" AddAOC TblASM_OPCODE(545),&HE9DD,"FUCOMP","" AddAOC TblASM_OPCODE(546),&HDE,132,"" TblPtrASM(222) = 546 AddAOC TblASM_OPCODE(547),"" AddAOC TblASM_OPCODE(548),"" AddAOC TblASM_OPCODE(549),"" AddAOC TblASM_OPCODE(550),"" AddAOC TblASM_OPCODE(551),"" AddAOC TblASM_OPCODE(552),"" AddAOC TblASM_OPCODE(553),"" AddAOC TblASM_OPCODE(554),&HC0DE,"FADDP ST(",ST(0)" AddAOC TblASM_OPCODE(555),&HC1DE,"FADDP","" AddAOC TblASM_OPCODE(556),&HC8DE,"FMULP ST(",ST(0)" AddAOC TblASM_OPCODE(557),&HC9DE,"FMULP","" AddAOC TblASM_OPCODE(558),&HD9DE,"FCOMPP","" AddAOC TblASM_OPCODE(559),&HE0DE,"FSUBRP ST(",ST(0)" AddAOC TblASM_OPCODE(560),&HE1DE,"FSUBRP","" AddAOC TblASM_OPCODE(561),&HE8DE,"FSUBP ST(",ST(0)" AddAOC TblASM_OPCODE(562),&HE9DE,"FSUBP","" AddAOC TblASM_OPCODE(563),&HF0DE,"FDIVRP ST(",ST(0)" AddAOC TblASM_OPCODE(564),&HF1DE,"FDIVRP","" AddAOC TblASM_OPCODE(565),&HF8DE,"FDIVP ST(",ST(0)" AddAOC TblASM_OPCODE(566),&HF9DE,"FDIVP","" AddAOC TblASM_OPCODE(567),&HDF,"" TblPtrASM(223) = 567 AddAOC TblASM_OPCODE(568),"" AddAOC TblASM_OPCODE(569),"" AddAOC TblASM_OPCODE(570),"FBLD ","" AddAOC TblASM_OPCODE(571),134,"" AddAOC TblASM_OPCODE(572),"FBSTP ","" AddAOC TblASM_OPCODE(573),"" AddAOC TblASM_OPCODE(574),&HE0DF,"FNSTSW AX","" AddAOC TblASM_OPCODE(575),&HE8DF,"FUCOMIP ST,")" AddAOC TblASM_OPCODE(576),&HF0DF,"FCOMIP ST,")" AddAOC TblASM_OPCODE(577),&HE0,"LOOPNE ","" TblPtrASM(224) = 577 AddAOC TblASM_OPCODE(578),"LOOPNZ ","" AddAOC TblASM_OPCODE(579),&HE1,"LOOPE ","" TblPtrASM(225) = 579 AddAOC TblASM_OPCODE(580),"LOOPZ ","" AddAOC TblASM_OPCODE(581),&HE2,"LOOP ","" TblPtrASM(226) = 581 AddAOC TblASM_OPCODE(582),&HE3,"JECXZ ","" TblPtrASM(227) = 582 AddAOC TblASM_OPCODE(583),&HE4,"IN AL,"" TblPtrASM(228) = 583 AddAOC TblASM_OPCODE(584),&HE5,"IN EAX,"" TblPtrASM(229) = 584 AddAOC TblASM_OPCODE(585),&HE6,"OUT ",AL" TblPtrASM(230) = 585 AddAOC TblASM_OPCODE(586),&HE7,EAX" TblPtrASM(231) = 586 AddAOC TblASM_OPCODE(587),&HE8,"CALL ","" TblPtrASM(232) = 587 AddAOC TblASM_OPCODE(588),&HE9,"JMP ","" TblPtrASM(233) = 588 AddAOC TblASM_OPCODE(589),&HEA,"JMP pt","" TblPtrASM(234) = 589 AddAOC TblASM_OPCODE(590),&HEB,"" TblPtrASM(235) = 590 AddAOC TblASM_OPCODE(591),&HEC,DX","" TblPtrASM(236) = 591 AddAOC TblASM_OPCODE(592),&HED,"" TblPtrASM(237) = 592 AddAOC TblASM_OPCODE(593),&HEE,"OUT DX,AL","" TblPtrASM(238) = 593 AddAOC TblASM_OPCODE(594),&HEF,EAX","" TblPtrASM(239) = 594 AddAOC TblASM_OPCODE(595),&HF0,"LOCK","" TblPtrASM(240) = 595 AddAOC TblASM_OPCODE(596),&HF1,"INT1","" TblPtrASM(241) = 596 AddAOC TblASM_OPCODE(597),&HA6F2,"REPNE CMPS ","" TblPtrASM(242) = 597 AddAOC TblASM_OPCODE(598),&HA7F2,"" AddAOC TblASM_OPCODE(599),&HAEF2,"REPNE SCAS ","" AddAOC TblASM_OPCODE(600),&HAFF2,"" AddAOC TblASM_OPCODE(601),&H6CF3,"REP INS ",DX" TblPtrASM(243) = 601 AddAOC TblASM_OPCODE(602),&H6DF3,DX" AddAOC TblASM_OPCODE(603),&H6EF3,"REP OUTS DX,"" AddAOC TblASM_OPCODE(604),&H6FF3,"" AddAOC TblASM_OPCODE(605),&HA4F3,"REP MOVS ","" AddAOC TblASM_OPCODE(606),&HA5F3,"" AddAOC TblASM_OPCODE(607),&HA6F3,"REPE CMPS ","" AddAOC TblASM_OPCODE(608),&HA7F3,"" AddAOC TblASM_OPCODE(609),&HAAF3,"REP STOS ","" AddAOC TblASM_OPCODE(610),&HABF3,"" AddAOC TblASM_OPCODE(611),&HACF3,"REP LODS AL","" AddAOC TblASM_OPCODE(612),&HADF3,"REP LODS EAX","" AddAOC TblASM_OPCODE(613),&HAEF3,"REPE SCAS ","" AddAOC TblASM_OPCODE(614),&HAFF3,"" AddAOC TblASM_OPCODE(615),&HF4,"HLT","" TblPtrASM(244) = 615 AddAOC TblASM_OPCODE(616),&HF5,"CMC","" TblPtrASM(245) = 616 AddAOC TblASM_OPCODE(617),&HF6,"NOT ","" TblPtrASM(246) = 617 AddAOC TblASM_OPCODE(618),"NEG ","" AddAOC TblASM_OPCODE(619),"MUL ","" AddAOC TblASM_OPCODE(620),"" AddAOC TblASM_OPCODE(621),"DIV ","" AddAOC TblASM_OPCODE(622),"IDIV ","" AddAOC TblASM_OPCODE(623),"" AddAOC TblASM_OPCODE(624),&HF7,"" TblPtrASM(247) = 624 AddAOC TblASM_OPCODE(625),"" AddAOC TblASM_OPCODE(626),"" AddAOC TblASM_OPCODE(627),"" AddAOC TblASM_OPCODE(628),"" AddAOC TblASM_OPCODE(629),"" AddAOC TblASM_OPCODE(630),"" AddAOC TblASM_OPCODE(631),"" AddAOC TblASM_OPCODE(632),&HF8,"CLC","" TblPtrASM(248) = 632 AddAOC TblASM_OPCODE(633),&HF9,"STC","" TblPtrASM(249) = 633 AddAOC TblASM_OPCODE(634),&HFA,"CLI","" TblPtrASM(250) = 634 AddAOC TblASM_OPCODE(635),&HFB,"STI","" TblPtrASM(251) = 635 AddAOC TblASM_OPCODE(636),&HFC,"CLD","" TblPtrASM(252) = 636 AddAOC TblASM_OPCODE(637),&HFD,"STD","" TblPtrASM(253) = 637 AddAOC TblASM_OPCODE(638),&HFE,"" TblPtrASM(254) = 638 AddAOC TblASM_OPCODE(639),"" AddAOC TblASM_OPCODE(640),&HFF,"" TblPtrASM(255) = 640 AddAOC TblASM_OPCODE(641),"" AddAOC TblASM_OPCODE(642),"" AddAOC TblASM_OPCODE(643),"" AddAOC TblASM_OPCODE(644),"" AddAOC TblASM_OPCODE(645),"" AddAOC TblASM_OPCODE(646),"" End Sub Private Sub AddAOC(tAOC As ASM_OPCODE,FOC As Integer,OpLen As Byte,_ f1 As Byte,f2 As Byte,f3 As Byte,f4 As Byte,_ f5 As Byte,f6 As Byte,f7 As Byte,f8 As Byte,_ EqvStr As String,EStr As String) 'param鑤re une entr閑 ASM_OPCODE (bal鑪e,hein!) tAOC.FullOpCode = FOC tAOC.OpCodeLen = OpLen tAOC.Flag1 = f1 tAOC.Flag2 = f2 tAOC.Flag3 = f3 tAOC.Flag4 = f4 tAOC.Flag5 = f5 tAOC.Flag6 = f6 tAOC.Flag7 = f7 tAOC.Flag8 = f8 tAOC.sInstruct = EqvStr tAOC.sEnd = EStr End Sub

原文链接:https://www.f2er.com/vb/261504.html

猜你在找的VB相关文章