For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / hackers / tools / dis_asm.arj / DIS_ASM.ASM next >

Wrap

Assembly Source File | 1996-04-18 | 93.5 KB | 4,177 lines

; ╔══════════════════════════════════════════════════╗ ; ║ *** ░▒▓█ äá¡¡δÑ ñ½∩ ñ¿ºáßßÑ¼í½¿α«óá¡¿∩ █▓▒░ *** ║ ; ╚══════════════════════════════════════════════════╝ command_symbol db 'aaa', 'aad', 'aam', 'aas', 'adc', 'add' db 'and', 'arpl', 'bound', 'bsf', 'bsr' db 'bt', 'btc', 'btr', 'bts', 'call', 'cbw' db 'cdq', 'clc', 'cld', 'cli', 'clts' db 'cmc', 'cmp', 'cmpsb', 'cmpsw', 'cmpsd' db 'cwd', 'cwde', 'daa', 'das', 'dec', 'div' db 'enter', 'esc', 'hlt', 'ibts', 'idiv' db 'imul', 'in', 'inc', 'insb', 'insw' db 'insd', 'int', 'into', 'iret', 'iretd' db 'jmp', 'ja', 'jnc', 'jc', 'jbe', 'jcxz' db 'jz', 'jg', 'jnl', 'jl', 'jle', 'jnz' db 'jno', 'jnp', 'jns', 'jo', 'jp', 'js' db 'lahf', 'lar', 'lea', 'leave', 'lgdt' db 'lidt', 'lds', 'les', 'lfs', 'lgs', 'lss' db 'lldt', 'lmsw', 'lock', 'lodsb', 'lodsw' db 'lodsd', 'loop', 'loopz', 'loopnz' db 'lsl', 'ltr', 'mov', 'movsb', 'movsw' db 'movsd', 'movsx', 'movzx', 'mul', 'neg' db 'nop', 'not', 'or', 'out', 'outsb' db 'outsw', 'outsd', 'pop', 'popa', 'popad' db 'popf', 'popfd', 'push', 'pusha', 'pushad' db 'pushf', 'pushfd', 'rcl', 'rcr' db 'rol', 'ror', 'rep', 'repz', 'ret' db 'sahf', 'shl', 'sar', 'shr', 'sbb' db 'scasb', 'scasw', 'scasd', 'seta' db 'setnc', 'setc', 'setna', 'setz', 'setg' db 'setnl', 'setl', 'setle', 'setnz', 'setno' db 'setnp', 'setns', 'seto', 'setp', 'sets' db 'sgdt', 'sidt', 'shld', 'shrd', 'sldt' db 'smsw', 'stc', 'std', 'sti', 'stosb' db 'stosw', 'stosd', 'str', 'sub', 'test' db 'verr', 'verw', 'wait', 'xbts', 'xchg' db 'xlat', 'xor', 'db', 'repnz' db 'es:', 'cs:', 'ss:', 'ds:', 'fs:', 'gs:' db 'fld', 'fild', 'fbld', 'fst', 'fist', 'fstp' db 'fistp', 'fbstp', 'fxch', 'fldz', 'fld1' db 'fldpi', 'fldl2t', 'fldl2e', 'fldlg2' db 'fldln2', 'fcom', 'ficom', 'fcomp', 'ficomp' db 'fcompp', 'ftst', 'fxam', 'fadd', 'fiadd' db 'faddp', 'fsub', 'fsubr', 'fsubp', 'fsubrp' db 'fisub', 'fisubr', 'fmul', 'fimul', 'fmulp' db 'fdiv', 'fdivr', 'fdivp', 'fdivrp', 'fidiv' db 'fidivr', 'fsqrt', 'fscale', 'fprem' db 'frndint', 'fxtract', 'fabs', 'fchs', 'fptan' db 'fpatan', 'f2fm1', 'fyl2x', 'fyl2xp1' db 'finit', 'fent', 'fdisi', 'fldcw', 'fstcw' db 'fstsw', 'fclex', 'fstenv', 'fldenv', 'fsave' db 'frstor', 'fincstp', 'fdecstp', 'ffree' db 'fnop', 'fsincos' offset_table dw 00fh, 00fh, 00fh, 00fh, 00fh, 00fh, 17ch, 167h ; 0 dw 153h, 153h, 153h, 153h, 153h, 153h, 17ch, 268h dw 00ch, 00ch, 00ch, 00ch, 00ch, 00ch, 17ch, 167h ; 1 dw 1b9h, 1b9h, 1b9h, 1b9h, 1b9h, 1b9h, 17ch, 167h dw 012h, 012h, 012h, 012h, 012h, 012h, 268h, 062h ; 2 dw 246h, 246h, 246h, 246h, 246h, 246h, 268h, 065h dw 265h, 265h, 265h, 265h, 265h, 265h, 268h, 000h ; 3 dw 049h, 049h, 049h, 049h, 049h, 049h, 268h, 009h dw 087h, 087h, 087h, 087h, 087h, 087h, 087h, 087h ; 4 dw 068h, 068h, 068h, 068h, 068h, 068h, 068h, 068h dw 17ch, 17ch, 17ch, 17ch, 17ch, 17ch, 17ch, 17ch ; 5 dw 167h, 167h, 167h, 167h, 167h, 167h, 167h, 167h dw 180h, 16ah, 019h, 015h, 268h, 268h, 268h, 268h ; 6 dw 17ch, 081h, 17ch, 081h, 08ah, 08eh, 158h, 15dh dw 0cfh, 0c6h, 0aeh, 0abh, 0b7h, 0c3h, 0b0h, 0a9h ; 7 dw 0d3h, 0cch, 0d1h, 0c9h, 0beh, 0bbh, 0c0h, 0b9h dw 268h, 268h, 268h, 268h, 249h, 249h, 25dh, 25dh ; 8 dw 12bh, 12bh, 12bh, 12bh, 12bh, 0dch, 12bh, 167h dw 14dh, 25dh, 25dh, 25dh, 25dh, 25dh, 25dh, 25dh ; 9 dw 033h, 05bh, 02fh, 255h, 18bh, 173h, 1ach, 0d5h dw 12bh, 12bh, 12bh, 12bh, 12eh, 133h, 04ch, 051h ; A dw 249h, 249h, 234h, 239h, 107h, 10ch, 1bch, 1c1h dw 12bh, 12bh, 12bh, 12bh, 12bh, 12bh, 12bh, 12bh ; B dw 12bh, 12bh, 12bh, 12bh, 12bh, 12bh, 12bh, 12bh dw 268h, 268h, 1a9h, 1a9h, 0efh, 0ech, 12bh, 12bh ; C dw 06eh, 0dfh, 1a9h, 1a9h, 096h, 096h, 099h, 09dh dw 268h, 268h, 268h, 268h, 006h, 003h, 268h, 261h ; D dw 073h, 073h, 073h, 073h, 073h, 073h, 073h, 073h dw 11fh, 11ah, 116h, 0b3h, 085h, 085h, 155h, 155h ; E dw 02fh, 0a6h, 0a6h, 0a6h, 085h, 085h, 155h, 155h dw 103h, 268h, 26ah, 1a2h, 076h, 046h, 268h, 268h ; F dw 039h, 22bh, 03fh, 231h, 03ch, 22eh, 268h, 268h length_table db 03h, 03h, 03h, 03h, 03h, 03h, 04h, 03h ; 0 db 02h, 02h, 02h, 02h, 02h, 02h, 04h, 02h db 03h, 03h, 03h, 03h, 03h, 03h, 04h, 03h ; 1 db 03h, 03h, 03h, 03h, 03h, 03h, 04h, 03h db 03h, 03h, 03h, 03h, 03h, 03h, 02h, 03h ; 2 db 03h, 03h, 03h, 03h, 03h, 03h, 02h, 03h db 03h, 03h, 03h, 03h, 03h, 03h, 02h, 03h ; 3 db 03h, 03h, 03h, 03h, 03h, 03h, 02h, 03h db 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h ; 4 db 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h db 04h, 04h, 04h, 04h, 04h, 04h, 04h, 04h ; 5 db 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h db 05h, 04h, 05h, 04h, 02h, 02h, 02h, 02h ; 6 db 04h, 04h, 04h, 04h, 04h, 04h, 05h, 05h db 02h, 03h, 02h, 03h, 02h, 03h, 03h, 02h ; 7 db 02h, 03h, 02h, 03h, 02h, 03h, 03h, 02h db 02h, 02h, 02h, 02h, 04h, 04h, 04h, 04h ; 8 db 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h db 03h, 04h, 04h, 04h, 04h, 04h, 04h, 04h ; 9 db 03h, 03h, 04h, 04h, 05h, 04h, 04h, 04h db 03h, 03h, 03h, 03h, 05h, 05h, 05h, 05h ; A db 04h, 04h, 05h, 05h, 05h, 05h, 05h, 05h db 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h ; B db 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h db 02h, 02h, 03h, 03h, 03h, 03h, 03h, 03h ; C db 05h, 05h, 03h, 03h, 03h, 03h, 04h, 04h db 02h, 02h, 02h, 02h, 03h, 03h, 02h, 04h ; D db 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h db 06h, 05h, 04h, 04h, 02h, 02h, 03h, 03h ; E db 04h, 03h, 03h, 03h, 02h, 02h, 03h, 03h db 04h, 02h, 05h, 03h, 03h, 03h, 02h, 02h ; F db 03h, 03h, 03h, 03h, 03h, 03h, 02h, 02h system_table db 80h, 80h, 80h, 80h, 00h, 00h, 00h, 00h ; 0 db 80h, 80h, 80h, 80h, 00h, 00h, 00h, 00h db 80h, 80h, 80h, 80h, 00h, 00h, 00h, 00h ; 1 db 80h, 80h, 80h, 80h, 00h, 00h, 00h, 00h db 80h, 80h, 80h, 80h, 00h, 00h, 84h, 00h ; 2 db 80h, 80h, 80h, 80h, 00h, 00h, 84h, 00h db 80h, 80h, 80h, 80h, 00h, 00h, 84h, 00h ; 3 db 80h, 80h, 80h, 80h, 00h, 00h, 84h, 00h db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ; 4 db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ; 5 db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 00h, 00h, 0C0h, 80h, 84h, 84h, 80h, 80h ; 6 db 00h, 0A0h, 00h, 0A0h, 10h, 18h, 10h, 18h db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ; 7 db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 88h, 88h, 88h, 88h, 80h, 80h, 80h, 80h ; 8 db 80h, 80h, 80h, 80h, 80h, 80h, 80h, 80h db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ; 9 db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 82h, 82h, 82h, 82h, 10h, 18h, 10h, 18h ; A db 00h, 00h, 10h, 18h, 10h, 18h, 10h, 18h db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ; B db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 88h, 88h, 00h, 00h, 80h, 80h, 80h, 80h ; C db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 88h, 88h, 88h, 88h, 00h, 00h, 00h, 00h ; D db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ; E db 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h db 00h, 00h, 00h, 00h, 00h, 00h, 88h, 88h ; F db 00h, 00h, 00h, 00h, 00h, 00h, 88h, 88h ; *** æΓαπ¬Γπαá íá⌐Γá - ¬«ñ¿α«óΘ¿¬á *** ; ; ┌───┬───┬───┬───┬───┬───┬───┬───┐ ; │ 7 │ 6 │ 5 │ 4 │ 3 │ 2 │ 1 │ 0 │ ; └─╥─┴─╥─┴─╥─┴─╥─┴─╥─┴─╥─┴─╥─┴─╥─┘ ; ║ ║ ║ ║ ║ ║ ║ ║ ; ║ ║ ║ ║ ║ ║ ║ ╚════> ; ║ ║ ║ ║ ║ ║ ╚════════> Æ«½∞¬« ß »á¼∩Γ∞ε ; ║ ║ ║ ║ ║ ╚════════════> ÅÑαÑ¬½ετáΓÑ½∞ αÑª¿¼á ; ║ ║ ║ ║ ╚════════════════> Ä»Ñαáµ¿∩ ß αáßΦ¿αÑ¡¡δ¼ ¬«ñ«¼ ; ║ ║ ║ ╚════════════════════> é«º¼«ª¡á ¬«¼í¿¡áµ¿∩ ß rep ; ║ ║ ╚════════════════════════> ìÑ «»αÑñÑ½∩Γ∞ Γ¿»á «»Ñαáµ¿¿ ; ║ ╚════════════════════════════> dword ptr ¿ß»«½∞ºπÑΓß∩ ó ¬«¼á¡ñÑ ; ╚════════════════════════════════> é«º¼«ª¡á ß¼Ñ¡á ßÑú¼Ñ¡Γá offset_arop_1 dw 00fh, 153h, 00ch, 1b9h, 012h, 246h, 265h, 049h length_arop_1 db 03h, 02h, 03h, 03h, 03h, 03h, 03h, 03h system_arop_1 db 80h, 80h, 80h, 80h, 80h, 80h, 80h, 80h offset_arop_2 dw 00fh, 153h, 00ch, 1b9h, 012h, 246h, 265h, 049h length_arop_2 db 03h, 02h, 03h, 03h, 03h, 03h, 03h, 03h system_arop_2 db 80h, 80h, 80h, 80h, 80h, 80h, 80h, 80h offset_shift dw 19ch, 19fh, 196h, 199h, 1b0h, 1b6h, 268h, 1b3h length_shift db 03h, 03h, 03h, 03h, 03h, 03h, 02h, 03h system_shift db 80h, 80h, 80h, 80h, 80h, 80h, 00h, 80h offset_group_1 dw 249h, 268h, 150h, 14ah, 147h, 081h, 06bh, 07dh length_group_1 db 04h, 02h, 03h, 03h, 03h, 04h, 03h, 04h system_group_1 db 80h, 00h, 80h, 80h, 80h, 80h, 80h, 80h offset_group_2 dw 087h, 068h, 268h, 268h, 268h, 268h, 268h, 268h length_group_2 db 03h, 03h, 02h, 02h, 02h, 02h, 02h, 02h system_group_2 db 80h, 80h, 00h, 00h, 00h, 00h, 00h, 00h offset_group_3 dw 087h, 068h, 02fh, 02fh, 0a6h, 0a6h, 17ch, 268h length_group_3 db 03h, 03h, 04h, 04h, 03h, 03h, 04h, 02h system_group_3 db 80h, 80h, 80h, 80h, 80h, 80h, 80h, 00h offset_calling dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_06h, offset code_07h dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_0eh, offset code_0fh dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_16h, offset code_17h dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_1eh, offset code_1fh dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_26h, offset code_27h dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_2eh, offset code_27h dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_36h, offset code_27h dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_04h, offset code_05h dw offset code_3eh, offset code_27h dw offset code_40h, offset code_41h dw offset code_42h, offset code_43h dw offset code_44h, offset code_45h dw offset code_46h, offset code_47h dw offset code_40h, offset code_41h dw offset code_42h, offset code_43h dw offset code_44h, offset code_45h dw offset code_46h, offset code_47h dw offset code_40h, offset code_41h dw offset code_42h, offset code_43h dw offset code_44h, offset code_45h dw offset code_46h, offset code_47h dw offset code_40h, offset code_41h dw offset code_42h, offset code_43h dw offset code_44h, offset code_45h dw offset code_46h, offset code_47h dw offset code_60h, offset code_61h dw offset code_03h, offset code_01h dw offset code_64h, offset code_65h dw offset code_66h, offset code_67h dw offset code_68h, offset code_69h dw offset code_6ah, offset code_6bh dw offset code_27h, offset code_6dh dw offset code_27h, offset code_6fh dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_80h, offset code_81h dw offset code_82h, offset code_83h dw offset code_00h, offset code_01h dw offset code_00h, offset code_01h dw offset code_00h, offset code_01h dw offset code_02h, offset code_03h dw offset code_8ch, offset code_8dh dw offset code_8eh, offset code_8fh dw offset code_27h, offset code_91h dw offset code_91h, offset code_91h dw offset code_91h, offset code_91h dw offset code_91h, offset code_91h dw offset code_98h, offset code_99h dw offset code_9ah, offset code_27h dw offset code_9ch, offset code_9dh dw offset code_27h, offset code_27h dw offset code_a0h, offset code_a1h dw offset code_a2h, offset code_a3h dw offset code_27h, offset code_a5h dw offset code_27h, offset code_a5h dw offset code_04h, offset code_05h dw offset code_27h, offset code_a5h dw offset code_27h, offset code_a5h dw offset code_27h, offset code_a5h dw offset code_b0h, offset code_b0h dw offset code_b0h, offset code_b0h dw offset code_b0h, offset code_b0h dw offset code_b0h, offset code_b0h dw offset code_b8h, offset code_b8h dw offset code_b8h, offset code_b8h dw offset code_b8h, offset code_b8h dw offset code_b8h, offset code_b8h dw offset code_c0h, offset code_c1h dw offset code_c2h, offset code_c3h dw offset code_8dh, offset code_8dh dw offset code_c6h, offset code_c7h dw offset code_c8h, offset code_27h dw offset code_cah, offset code_cbh dw offset code_cdh, offset code_cdh dw offset code_27h, offset code_cfh dw offset code_d0h, offset code_d1h dw offset code_d2h, offset code_d3h dw offset code_d4h, offset code_d4h dw offset code_d6h, offset code_27h dw offset code_d8h, offset code_d8h dw offset code_d8h, offset code_d8h dw offset code_d8h, offset code_d8h dw offset code_d8h, offset code_d8h dw offset code_70h, offset code_70h dw offset code_70h, offset code_70h dw offset code_e4h, offset code_e4h dw offset code_e6h, offset code_e6h dw offset code_e8h, offset code_e8h dw offset code_9ah, offset code_70h dw offset code_ech, offset code_ech dw offset code_eeh, offset code_eeh dw offset code_27h, offset code_d6h dw offset code_f2h, offset code_f2h dw offset code_27h, offset code_27h dw offset code_f6h, offset code_f7h dw offset code_27h, offset code_27h dw offset code_27h, offset code_27h dw offset code_27h, offset code_27h dw offset code_feh, offset code_ffh command_regist db 'al', 'cl', 'dl', 'bl', 'ah', 'ch', 'dh', 'bh' db 'ax', 'cx', 'dx', 'bx', 'sp', 'bp', 'si', 'di' com_386_regist db 'eax', 'ecx', 'edx', 'ebx' db 'esp', 'ebp', 'esi', 'edi' segment_regist db 'ds', 'cs', 'ss', 'es', 'fs', 'gs' mod_rm_symbol db 'ds:[bx+si]', 'ds:[bx+di]', 'ss:[bp+si]' db 'ss:[bp+di]', 'ds:[si]', 'ds:[di]' db 'ds:[0000h]', 'ds:[bx]' db 'ds:[bx+si+00h]', 'ds:[bx+di+00h]' db 'ss:[bp+si+00h]', 'ss:[bp+di+00h]' db 'ds:[si+00h]', 'ds:[di+00h]', 'ss:[bp+00h]' db 'ds:[bx+00h]' db 'ds:[bx+si+0000h]', 'ds:[bx+di+0000h]' db 'ss:[bp+si+0000h]', 'ss:[bp+di+0000h]' db 'ds:[si+0000h]', 'ds:[di+0000h]' db 'ss:[bp+0000h]', 'ds:[bx+0000h]' mod_rm_offset dw 0, 10, 20, 30, 40, 47, 54, 64 dw 71, 85, 99, 113, 127, 138, 149, 160 dw 171, 187, 203, 219, 235, 248, 261, 274 mod_rm_length db 10, 10, 10, 10, 7, 7, 10, 7 db 14, 14, 14, 14, 11, 11, 11, 11 db 16, 16, 16, 16, 13, 13, 13, 13 mod_386_symbol db 'ds:[eax]', 'ds:[ecx]', 'ds:[edx]', 'ds:[ebx]' db 'sib', 'ds:[00000000h]', 'ds:[esi]', 'ds:[edi]' db 'ds:[eax+00h]', 'ds:[ecx+00h]', 'ds:[edx+00h]' db 'ds:[ebx+00h]', 'sib' db 'ss:[ebp+00h]', 'ds:[esi+00h]', 'ds:[edi+00h]' db 'ds:[eax+00000000h]', 'ds:[ecx+00000000h]' db 'ds:[edx+00000000h]', 'ds:[ebx+00000000h]', 'sib' db 'ss:[ebp+00000000h]', 'ds:[esi+00000000h]' db 'ds:[edi+00000000h]' mod_386_offset dw 0, 8, 16, 24, 32, 35, 49, 57 dw 65, 77, 89, 101, 113, 116, 128, 140 dw 152, 170, 188, 206, 224, 227, 245, 263 mod_386_length db 8, 8, 8, 8, 3, 14, 8, 8 db 12, 12, 12, 12, 3, 12, 12, 12 db 18, 18, 18, 18, 3, 18, 18, 18 mod_sib_symbol db 'ds:[xxx*0h+eax]', 'ds:[xxx*0h+ecx]' db 'ds:[xxx*0h+edx]', 'ds:[ebx+xxx*0h]' db 'ds:[xxx*0h+esp]', 'ds:[xxx*0h+00000000h]' db 'ds:[xxx*0h+esi]', 'ds:[xxx*0h+edi]' db 'ds:[xxx*0h+eax+00h]', 'ds:[xxx*0h+ecx+00h]' db 'ds:[xxx*0h+edx+00h]', 'ds:[xxx*0h+ebx+00h]' db 'ds:[xxx*0h+esp+00h]', 'ds:[xxx*0h+ebp+00h]' db 'ds:[xxx*0h+esi+00h]', 'ds:[xxx*0h+edi+00h]' db 'ds:[xxx*0h+eax+00000000h]' db 'ds:[xxx*0h+ecx+00000000h]' db 'ds:[xxx*0h+edx+00000000h]' db 'ds:[xxx*0h+ebx+00000000h]' db 'ds:[xxx*0h+esp+00000000h]' db 'ds:[xxx*0h+ebp+00000000h]' db 'ds:[xxx*0h+esi+00000000h]' db 'ds:[xxx*0h+edi+00000000h]' mod_sib_offset dw 0, 15, 30, 45, 60, 75, 96, 111 dw 126, 145, 164, 183, 202, 221, 240, 259 dw 278, 303, 328, 353, 378, 403, 428, 453 mod_sib_length db 15, 15, 15, 15, 15, 21, 15, 15 db 19, 19, 19, 19, 19, 19, 19, 19 db 25, 25, 25, 25, 25, 25, 25, 25 byte_poz db 'byte ptr' word_poz db 'word ptr' dword_poz db 'dword ptr' string db 80 dup (0) adress db 4 dup (0) ; σαá¡¿Γß∩ ΓÑ¬πΘ¿⌐ áñαÑß cur_adress db 4 dup (0) ; ñ½∩ αáßτÑΓá jmp - ß¼ÑΘÑ¡¿⌐ off_string db 4 dup (0) ; ñ½∩ ßΓα«¬¿ - ß¼ÑΘÑ¡¿∩ byte_word db 0 ; 1 = íá⌐Γ, 2 = ß½«ó« off_code db 0 ; 1 = íá⌐Γ, 2 = ß½«ó« cpu_mode_1 db 0 ; 1 = 32 cpu_mode_2 db 0 ; 1 = 32 yes_sib db 0 ; αáßΦ¿αÑ¡¡δ⌐ íá⌐Γ sib h_add db 0 ; τ¿ß½« íá⌐Γ ó ¬«¼á¡ñÑ new_segment dw 00 ; ß¼ÑΘÑ¡¿Ñ ¡«ó«ú« ßÑú¼Ñ¡Γá dis_cpu proc near push ax push cx push dx push si push di push ds call clear ; «τ¿ßΓ¬á íπΣÑαá call gen_adr ; úÑ¡Ñαáµ¿∩ áñαÑßá call str_adr ; »αÑ«íαáº«óá¡¿Ñ áñαÑßá call dis_asm ; ñ¿ºáßßÑ¼í½¿α«óá¡¿Ñ ¬«¼á¡ñδ pop ds pop di pop si pop dx pop cx pop ax retn dis_cpu endp ; *** Äτ¿ßΓ¬á íπΣÑαá ßΓα«¬¿ *** clear proc near mov cx,40 ; ñ½¿¡á ßΓα«¬¿ mov di, offset string xor ax,ax ; «τ¿ßΓ¬á ¡π½∩¼¿ push es push ds pop es cld rep stosw pop es mov byte ptr ds:[off_code], 0 mov byte ptr ds:[yes_sib], 0 xor ax,ax mov al, byte ptr ds:[h_add] ; τ¿ß½« íá⌐Γ ó ¬«¼á¡ñÑ add bx,ax ; »«½πτ¿¼ ¡«ó«Ñ ß¼ÑΘÑ¡¿Ñ retn clear endp ; *** âÑ¡Ñαáµ¿∩ áñαÑßá ßΓα«¬¿ *** gen_adr proc near mov si, offset adress add si,3 ; ¼½áñΦ¿⌐ αáºα∩ñ áñαÑßá mov cx,4 ; óßÑú« ó«ßÑ¼∞ αáºα∩ñ«ó mov al, byte ptr ds:[h_add] ; ñ«íáó¿¼ τ¿ß½« íá⌐Γ raz_loop: add byte ptr ds:[si], al ; »αÑñδñπΘÑ⌐ ¬«¼á¡ñδ cmp byte ptr ds:[si], 0fh ; »ÑαÑ»«½¡Ñ¡¿Ñ ? jbe not_razr_corr ; ¡ÑΓ ==> íÑº ¬«ααÑ¬µ¿¿ xor ax,ax sub byte ptr ds:[si], 10h dec si ; «Γ¬«ααÑ¬Γ¿απÑ¼ ßΓáαΦ¿⌐ mov al,1 loop raz_loop ; ¿ Γá¬ ñ« ¬«¡µá not_razr_corr: retn gen_adr endp ; *** ÅαÑ«íαáº«óá¡¿Ñ áñαÑßá ó ßΓα«¬π *** str_adr proc near mov cx,4 ; »αÑ«íαáºπÑ¼ 8 íá⌐Γ mov si, offset adress ; «Γßεñá íÑαÑ¼, mov di, offset string ; á ßεñá ºá¡«ß¿¼ str_loop: mov al, byte ptr ds:[si] ; íá⌐Γ áñαÑßá cmp al,9 ; φΓ« µ¿Σαá ? jbe cifra ; ñá ==> »ÑαÑ⌐ñÑ¼ add al,7 ; ß¬«ααÑ¬Γ¿απÑ¼ cifra: add al,30h ; ñ«íáó¿¼ ß¿¼ó«½ ¡π½∩ mov byte ptr ds:[di], al ; »«½πτ¿¼ ASCII - ¬«ñ inc si inc di loop str_loop ; ¿ Γá¬ ñ« ¬«¡µá retn str_adr endp ; *** ä¿ºáßßÑ¼í½¿α«óá¡¿Ñ ¬«¼á¡ñδ *** dis_asm proc near xor ax,ax mov al, byte ptr es:[bx] ; al = íá⌐Γ ¬«ñá push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_table ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ add si,ax ; ó Γáí½¿µÑ ß¼ÑΘÑ¡¿⌐ mov dx, word ptr ds:[si] mov si, offset offset_calling ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ add si,ax ; «íαáí«Γ¬¿ mov ax, word ptr ds:[si] xchg ax,dx mov si, offset command_symbol ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á add si,ax ; ¼áΦ¿¡¡πε ¿¡ßΓαπ¬µ¿ε pop ax push si ; ==> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_table add si,ax ; óδíÑαÑ¼ ñ½¿¡π ñ½∩ xor cx,cx ; »ÑαÑßδ½¬¿ mov cl, byte ptr ds:[si] mov si, offset system_table add si,ax ; ß¿ßΓÑ¼¡á∩ ¿¡Σ«α¼áµ¿∩ xor ax,ax mov al, byte ptr ds:[si] pop si ; <== óδí«α¬á ß¼ÑΘÑ¡¿∩ xchg ax,dx mov byte ptr ds:[h_add], 1 ; »«¬á ñ½¿¡á ¬«¼á¡ñδ = 1 call ax retn dis_asm endp ; *** Äíαáí«Γ¬á Γ¿»«ó Rm / R8 ¿ Rm / R16 *** this_rm_r8_r16 proc near call operation_type jz op_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call mnemo_calling mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá call form_register ; Σ«α¼¿απÑ¼ αÑú¿ßΓα retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ op_with_regs: call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call reg_addition call form_register ; ºá»¿ß∞ óΓ«α«ú« αÑú¿ßΓαá retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ this_rm_r8_r16 endp ; *** Ä»αÑñÑ½∩ÑΓ Γ¿» «»Ñαáµ¿¿ *** operation_type proc near call byte_or_word ; «»αÑñÑ½∩Ñ¼ Γ¿» «»Ñαáµ¿¿ call memory_or_regs ; αáí«ΓáÑ¼ ß αÑú¿ßΓαá¼¿ ? retn operation_type endp ; *** Ä»αÑñÑ½Ñ¡¿Ñ Γ¿»á «»Ñαáµ¿¿ *** byte_or_word proc near cmp ah,2 jz ok_word mov byte ptr ds:[byte_word], 1 ; «»Ñαáµ¿∩ ß íá⌐Γá¼¿ jmp short ok_begin ok_word: mov byte ptr ds:[byte_word], 2 ; «»Ñαáµ¿∩ ß« ß½«óá¼¿ ok_begin: and dx,40h cmp dx,40h jnz no_dword_op mov byte ptr ds:[byte_word], 3 no_dword_op: inc byte ptr ds:[h_add] ; ¬«¼á¡ñá ==> 2 íá⌐Γá retn byte_or_word endp ; *** Ä»αÑñÑ½¿¼, ß τÑ¼ íπñÑΓ «»Ñαáµ¿∩ *** memory_or_regs proc near xor ax,ax mov al,byte ptr es:[bx+1] ; ó«º∞¼Ñ¼ óΓ«α«⌐ íá⌐Γ push ax and al,11000000b cmp al,192 ; «»Ñαáµ¿∩ ß αÑú¿ßΓαá¼¿ ? pop ax retn memory_or_regs endp ; *** éδó«ñ ¼¡Ñ¼«¡¿¬¿ ¬«¼á¡ñδ *** mnemo_calling proc near call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ retn mnemo_calling endp ; *** Ä»αÑñÑ½Ñ¡¿Ñ ñ«óÑß¬á ß¼ÑΘÑ¡¿∩ *** memory_cost proc near cmp byte ptr ds:[cpu_mode_2], 1 jz d32_operation push ax and al,11000111b ; óδñÑ½¿¼ «»Ñαáµ¿ε ß »á¼∩Γ∞ε cmp al,6 ; DS : [d16] ? jnz not_in_first ; ¡ÑΓ ==> »α«óÑα¿¼ ñá½∞ΦÑ add byte ptr ds:[h_add], 2 ; íπñÑΓ ÑΘÑ ß½«ó« mov byte ptr ds:[off_code], 2 ; ¬«Γ«α«Ñ ¡áñ« óδíαáΓ∞ pop ax jmp short bits_find not_in_first: pop ax push ax and al,11000000b ; óδñÑ½¿¼ «»Ñαáµ¿ε ß »á¼∩Γ∞ε cmp al,64 ; SEG : [REG + d8] ? jnz not_in_second ; ¡ÑΓ ==> »α«óÑα¿¼ ñá½∞ΦÑ inc byte ptr ds:[h_add] ; íπñÑΓ ÑΘÑ íá⌐Γ mov byte ptr ds:[off_code], 1 ; ¡Ñ«íσ«ñ¿¼« óδíαáΓ∞ pop ax jmp short bits_find not_in_second: cmp al,128 ; SEG : [REG + d16] ? jnz not_in_third ; ¡ÑΓ ==> º¡áτ¿Γ ß¼ÑΘÑ¡¿⌐ ¡ÑΓ add byte ptr ds:[h_add], 2 ; íπñÑΓ ÑΘÑ ß½«ó« mov byte ptr ds:[off_code], 2 ; ¡Ñ«íσ«ñ¿¼« óδíαáΓ∞ pop ax jmp short bits_find not_in_third: mov byte ptr ds:[off_code], 0 ; óδí¿αáΓ∞ ¡¿τÑú« pop ax bits_find: retn d32_operation: push ax and al,11000111b ; óδñÑ½¿¼ «»Ñαáµ¿ε ß »á¼∩Γ∞ε cmp al,4 ; sib »α¿ßπΓßΓóπÑΓ ? jz look_386_sib cmp al,68 jz look_386_sib cmp al,132 jz look_386_sib cmp al,5 ; DS : [d32] ? jnz not_386_first ; ¡ÑΓ ==> »α«óÑα¿¼ ñá½∞ΦÑ add byte ptr ds:[h_add], 4 ; íπñÑΓ ÑΘÑ 2 ß½«óá mov byte ptr ds:[off_code], 4 ; ¬«Γ«αδÑ ¡áñ« óδíαáΓ∞ pop ax jmp short bits_find not_386_first: pop ax push ax sib_lock: pop ax push ax and al,11000000b ; óδñÑ½¿¼ «»Ñαáµ¿ε ß »á¼∩Γ∞ε cmp al,64 ; SEG : [REG + d8] ? jnz not_386_second ; ¡ÑΓ ==> »α«óÑα¿¼ ñá½∞ΦÑ inc byte ptr ds:[h_add] ; íπñÑΓ ÑΘÑ íá⌐Γ mov byte ptr ds:[off_code], 1 ; ¡Ñ«íσ«ñ¿¼« óδíαáΓ∞ pop ax jmp short bits_find not_386_second: cmp al,128 ; SEG : [REG + d32] ? jnz not_386_third ; ¡ÑΓ ==> º¡áτ¿Γ ß¼ÑΘÑ¡¿⌐ ¡ÑΓ add byte ptr ds:[h_add], 4 ; íπñÑΓ ÑΘÑ 2 ß½«óá mov byte ptr ds:[off_code], 4 ; ¡Ñ«íσ«ñ¿¼« óδíαáΓ∞ pop ax jmp short bits_find not_386_third: mov byte ptr ds:[off_code], 0 ; óδí¿αáΓ∞ ¡¿τÑú« pop ax jmp short bits_find look_386_sib: inc byte ptr ds:[h_add] ; αáßΦ¿αÑ¡¡δ⌐ íá⌐Γ mov byte ptr ds:[yes_sib], 1 mov al, byte ptr es:[bx+2] push ax and al,00000111b ; »α«óÑα¬á ¡á αáßΦ¿αÑ¡¡δÑ cmp al,5 ; Γáí½¿µδ pop ax jnz sib_lock add byte ptr ds:[h_add], 4 ; íπñÑΓ ÑΘÑ 2 ß½«óá mov byte ptr ds:[off_code], 4 ; ¡Ñ«íσ«ñ¿¼« óδíαáΓ∞ pop ax jmp short bits_find memory_cost endp ; *** éδó«ñ ¼¡Ñ¼«¡¿¬¿ ¬«¼á¡ñδ ó íπΣÑα *** write_mnemo proc near push ax push es cmp byte ptr ds:[cpu_mode_1], 1 jz mode_66_problem cmp byte ptr ds:[cpu_mode_2], 1 jz mode_67_problem cmp word ptr ds:[new_segment], 0000h jz not_segm_problem ; ßÑú¼Ñ¡Γ ¡Ñ ¼Ñ¡∩ÑΓß∩ write_lock: inc byte ptr ds:[h_add] ; ¬«¼á¡ñá ßΓá½á í«½∞ΦÑ dec bx ; ¡á «ñ¿¡ íá⌐Γ call translate ; óδó«ñ¿¼ ¬«ñ inc bx ; ¬á¬ íπñΓ« ¡¿τÑú« ¡Ñ íδ½« jmp short make_instruction not_segm_problem: call translate ; óδó«ñ¿¼ ¬«ñ, ºáΓÑ¼ make_instruction: push cs pop es call ins_instruct ; ¼¡Ñ¼«¡¿¬π ¬«¼á¡ñδ pop es pop ax retn mode_66_problem: cmp byte ptr ds:[cpu_mode_2], 1 jz mode_@@_problem cmp word ptr ds:[new_segment], 0000h jnz segment_@@_problem jmp short write_lock mode_@@_problem: cmp word ptr ds:[new_segment], 0000h jnz segment_@@@_problem segment_@@_problem: add byte ptr ds:[h_add], 2 ; ¬«¼á¡ñá ßΓá½á í«½∞ΦÑ dec bx dec bx call translate ; óδó«ñ¿¼ ¬«ñ inc bx ; ¬á¬ íπñΓ« ¡¿τÑú« ¡Ñ íδ½« inc bx jmp short make_instruction segment_@@@_problem: add byte ptr ds:[h_add], 3 ; ¬«¼á¡ñá ßΓá½á í«½∞ΦÑ dec bx dec bx dec bx call translate ; óδó«ñ¿¼ ¬«ñ inc bx ; ¬á¬ íπñΓ« ¡¿τÑú« ¡Ñ íδ½« inc bx inc bx jmp short make_instruction mode_67_problem: cmp word ptr ds:[new_segment], 0000h jnz segment_@@_problem jmp short write_lock write_mnemo endp ; *** éßΓáó¬á ¼áΦ¿¡¡«ú« ¬«ñá ¬«¼á¡ñδ *** translate proc near push bx push cx push si xor ax,ax mov al, byte ptr ds:[h_add] ; »«½πτ¿¼ τ¿ß½« íá⌐Γ mov cx,ax cmp cx,7 jbe continue_translate mov cx,7 continue_translate: mov si, offset string add si,6 ; óßΓáó½∩Ñ¼ ß 12-⌐ »«º¿µ¿¿ code_loop: xor ax,ax mov al, byte ptr es:[bx] ; »«½πτ¿¼ íá⌐Γ call conv_to_hex ; ºáΓÑ¼ ó 16-α¿τ¡δ⌐ Σ«α¼áΓ inc bx add si,4 ; ΓÑ»Ñα∞ ß½ÑñπεΘ¿⌐ íá⌐Γ loop code_loop ; ¿ Γá¬, »«¬á ¡Ñ ¬«¡τáΓß∩ xor ax,ax mov al, byte ptr ds:[h_add] ; »«½πτ¿¼ τ¿ß½« íá⌐Γ cmp ax,7 jbe exit_translate dec si mov word ptr ds:[si], '>-' ; óδσ«ñ ºá úαá¡¿µπ exit_translate: pop si pop cx pop bx retn translate endp ; *** ÅαÑ«íαáº«óá¡¿Ñ íá⌐Γá ó ßΓα«¬π *** conv_to_hex proc near push cx ; ax = íá⌐Γ push dx ; si = ß¼ÑΘÑ¡¿Ñ ¬«¡µá ßΓα«¬¿ push di mov cx,2 ; »αÑ«íαáºπÑ¼ 1 íá⌐Γ mov di,10h ; »πΓÑ¼ ñÑ½Ñ¡¿∩ ¡á 16 conv_loop: xor dx,dx ; ß óδτ¿ß½Ñ¡¿Ñ¼ «ßΓáΓ¬á div di cmp dl,9 ; »«½πτ¿½¿ µ¿Σαπ ? jbe conv_cif ; ñá ==> »αÑ⌐ñÑ¼ add dl,7 ; ß¬«ααÑ¬Γ¿απÑ¼ conv_cif: add dl,30h ; ñ«íáó¿¼ ß¿¼ó«½ '¡π½∩' mov byte ptr ds:[si], dl ; ß«σαá¡¿¼ ASCII - ¬«ñ dec si loop conv_loop ; ¿ Γá¬ ñ« ¬«¡µá pop di pop dx pop cx retn conv_to_hex endp ; *** éßΓáó¬á ¼áΦ¿¡¡«⌐ ¿¡ßΓαπ¬µ¿¿ *** ins_instruct proc near push di mov di, offset string add di,20 ; óδτ¿ß½¿¼ ß¼ÑΘÑ¡¿Ñ cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑΦ½Ñ¼ íá⌐Γδ pop di retn ins_instruct endp ; *** ö«α¼¿απÑ¼ «»Ñαáµ¿ε ß »á¼∩Γ∞ε *** form_memory proc near push ax mov cl,6 clc shr al,cl ; óδñÑ½¿¼ ßΓáαΦπε τáßΓ∞ mov cx,8 mul cx ; ßñÑ½áÑ¼ ¬á¬ ßΓáαΦ¿Ñ í¿Γδ pop cx and cl,00000111b ; óδñÑ½¿¼ ¼½áñΦπε τáßΓ∞ add ax,cx ; »«½πτ¿¼ »«½¡«Ñ ß¼ÑΘÑ¡¿Ñ cmp byte ptr ds:[cpu_mode_2], 1 jz without_sib mov si, offset mod_rm_length add si,ax ; óδßΓáó¿¼ ß¼ÑΘÑ¡¿Ñ ¡á ñ½¿¡π mov cl, byte ptr ds:[si] ; cx = ñ½¿¡á mod r/m ßΓα«¬¿ shl ax,1 ; »αÑ«íαáºπÑ¼ ñ½∩ ß½«ó mov si, offset mod_rm_offset add si,ax ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á ß¼ÑΘÑ¡¿Ñ mov ax, word ptr ds:[si] mov si, offset mod_rm_symbol add si,ax ; ΓÑ»Ñα∞ ß¼ÑΘÑ¡¿Ñ ¡á ß¿¼ó«½ retn without_sib: cmp cl,4 jz form_sib_present mov si, offset mod_386_length add si,ax ; óδßΓáó¿¼ ß¼ÑΘÑ¡¿Ñ ¡á ñ½¿¡π mov cl, byte ptr ds:[si] ; cx = ñ½¿¡á mod r/m ßΓα«¬¿ shl ax,1 ; »αÑ«íαáºπÑ¼ ñ½∩ ß½«ó mov si, offset mod_386_offset add si,ax ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á ß¼ÑΘÑ¡¿Ñ mov ax, word ptr ds:[si] mov si, offset mod_386_symbol add si,ax ; ΓÑ»Ñα∞ ß¼ÑΘÑ¡¿Ñ ¡á ß¿¼ó«½ retn form_sib_present: mov al, byte ptr es:[bx+1] mov cl,6 clc shr al,cl ; óδñÑ½¿¼ ßΓáαΦπε τáßΓ∞ mov cx,8 mul cx ; ßñÑ½áÑ¼ ¬á¬ ßΓáαΦ¿Ñ í¿Γδ xor cx,cx mov cl, byte ptr es:[bx+2] and cl,00000111b ; óδñÑ½¿¼ ¼½áñΦπε τáßΓ∞ add ax,cx ; »«½πτ¿¼ »«½¡«Ñ ß¼ÑΘÑ¡¿Ñ mov si, offset mod_sib_length add si,ax ; óδßΓáó¿¼ ß¼ÑΘÑ¡¿Ñ ¡á ñ½¿¡π mov cl, byte ptr ds:[si] ; cx = ñ½¿¡á mod r/m ßΓα«¬¿ shl ax,1 ; »αÑ«íαáºπÑ¼ ñ½∩ ß½«ó mov si, offset mod_sib_offset add si,ax ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á ß¼ÑΘÑ¡¿Ñ mov ax, word ptr ds:[si] mov si, offset mod_sib_symbol add si,ax ; ΓÑ»Ñα∞ ß¼ÑΘÑ¡¿Ñ ¡á ß¿¼ó«½ retn form_memory endp ; *** éßΓáó¬á «»Ñαáµ¿⌐ ß »á¼∩Γ∞ε *** ins_mem_reg proc near push es push cx push si xor ax,ax mov al, byte ptr es:[bx] mov si, offset system_table add si,ax mov al, byte ptr ds:[si] and al,20h push cs pop es add di, offset string ; Σ«α¼¿απÑ¼ »«º¿µ¿ε óδó«ñá cmp byte ptr ds:[cpu_mode_2], 1 jz d32_detect cmp byte ptr ds:[byte_word], 3 jz this_dword cmp byte ptr ds:[byte_word], 2 ; «»Ñαáµ¿∩ ß½«óá¼¿ ? jz this_word ; ñαπú«Ñ ß¼ÑΘÑ¡¿Ñ mov si, offset byte_poz ; «»Ñα¿απÑ¼ ß íá⌐Γá¼¿ jmp short b_w_insert this_dword: mov si, offset dword_poz cmp al,20h jz d32_detect mov cx,9 cld rep movsb ; »ÑαÑßδ½¬á 'dword ptr' jmp short after_detect this_word: mov si, offset word_poz ; «»Ñα¿απÑ¼ ß« ß½«óá¼¿ b_w_insert: cmp al,20h jz d32_detect mov cx,8 ; »ÑαÑßδ½¬á 8 íá⌐Γ ß««íΘÑ¡¿∩ cld ; ßíα«ß Σ½áúá ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑßδ½¬á byte/word after_detect: inc di d32_detect: pop si pop cx mov dx,di ; ß«σαá¡¿¼ »«º¿µ¿ε »ÑαÑßδ½¬¿ cld ; ßíα«ß Σ½áúá ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑßδ½¬á «»Ñαáµ¿¿ ß »á¼∩Γ∞ε cmp word ptr ds:[new_segment], 0000h jz leave_segm_alone ; ßÑú¼Ñ¡Γ ¡Ñ ¬«ααÑ¬Γ¿απÑ¼ mov ax, word ptr ds:[new_segment] mov si, offset segment_regist add si,ax ; »«½πτ¿½¿ ß¼ÑΘÑ¡¿Ñ ¡á óσ«ñ push cs pop es xchg dx,di ; Σ«α¼¿απÑ¼ ß¼ÑΘÑ¡¿Ñ ¡á óδσ«ñ movsb ; »ÑαÑßδ½¬á dec di xchg dx,di leave_segm_alone: cmp byte ptr ds:[yes_sib], 1 jnz no_386_index pop es push es xor ax,ax mov al, byte ptr es:[bx+2] push ax and al,00111000b mov cl,3 clc shr al,cl cmp al,4 jz no_index_reg mov cx,3 push dx mul cx pop dx mov si, offset com_386_regist add si,ax xchg dx,di add di,4 push cs pop es mov cx,3 cld rep movsb sub di,7 xchg dx,di jmp short f_mul no_index_reg: xchg dx,di add di,4 mov word ptr ds:[di], '00' mov byte ptr ds:[di+2], 'h' sub di,4 xchg dx,di f_mul: pop ax and al,11000000b mov cl,6 clc shr al,cl xchg al,cl mov ax,1 clc shl al,cl add al,30h xchg dx,di add di,8 mov byte ptr ds:[di], al sub di,8 xchg dx,di no_386_index: pop es retn ins_mem_reg endp ; *** éδí«α¬á ß¼ÑΘÑ¡¿⌐ *** plus_offset proc near cmp byte ptr ds:[off_code], 0 ; óδí¿αáΓ∞ ¡ÑτÑú« ? jz not_take_offset ; ¡Ñ ¡áñ« ==> ¡Ñ íπñÑ¼ mov si,di sub si,3 ; óδí¿αáΓ∞ ßεñá cmp byte ptr ds:[off_code], 4 jz take_offset_dword cmp byte ptr ds:[off_code], 2 jz take_offset_word xor ax,ax mov al, byte ptr es:[bx+2] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ cmp byte ptr ds:[yes_sib], 0 jz no_@_sib_corr mov al, byte ptr es:[bx+3] no_@_sib_corr: cmp byte ptr ds:[si-2], '+' jnz no_convert test al,80h jz no_convert neg al mov byte ptr ds:[si-2], '-' no_convert: call conv_to_hex ; »αÑ«íαáºπÑ¼ ó ßΓα«¬π jmp short not_take_offset take_offset_word: mov ax, word ptr es:[bx+2] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ cmp byte ptr ds:[yes_sib], 0 jz no_@@_sib_corr mov ax, word ptr es:[bx+3] no_@@_sib_corr: cmp byte ptr ds:[si-4], '+' jnz no_convertw test ax,8000h jz no_convertw neg ax mov byte ptr ds:[si-4], '-' no_convertw: push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex not_take_offset: retn take_offset_dword: cmp byte ptr ds:[yes_sib], 1 jz take_offset_plus mov ax, word ptr es:[bx+2] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex mov ax, word ptr es:[bx+4] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex jmp short not_take_offset take_offset_plus: mov byte ptr ds:[yes_sib], 0 inc byte ptr ds:[off_code] mov ax, word ptr es:[bx+3] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex mov ax, word ptr es:[bx+5] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex jmp short not_take_offset plus_offset endp ; *** ö«α¼¿απÑ¼ «»Ñαáµ¿ε ß αÑú¿ßΓαá¼¿ - ¿ßΓ«τ¡¿¬á¼¿ *** form_register proc near push ax push si cmp byte ptr ds:[cpu_mode_1], 1 jz expand_regist xor ax,ax mov al, byte ptr es:[bx+1] ; »«½πτ¿¼ óΓ«α«⌐ íá⌐Γ and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú shr ax,1 shr ax,1 cmp byte ptr ds:[byte_word], 1 ; «»Ñαáµ¿∩ ß íá⌐Γá¼¿ ? jz ok_byte ; ñá ==> »ÑαÑ⌐ñÑ¼ add ax,16 ; ß¬«ααÑ¬Γ¿απÑ¼ ok_byte: mov si, offset command_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á óΓ«α«⌐ «»Ñαá¡ñ push es push cs pop es cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ movsw ; »ÑαÑΦ½Ñ¼ pop es pop si pop ax retn expand_regist: xor ax,ax mov al, byte ptr es:[bx+1] ; »«½πτ¿¼ óΓ«α«⌐ íá⌐Γ and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú shr ax,1 shr ax,1 shr ax,1 push cx mov cx,3 mul cx mov si, offset com_386_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á óΓ«α«⌐ «»Ñαá¡ñ push es push cs pop es mov cx,3 cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑΦ½Ñ¼ pop es pop cx pop si pop ax retn form_register endp ; *** éßΓáó¬á αÑú¿ßΓαá - »α¿Ñ¼¡¿¬á *** reg_addition proc near mov di,27 call insert_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá retn reg_addition endp ; *** éßΓáó¬á αÑú¿ßΓαá - »α¿Ñ¼¡¿¬á *** insert_register proc near push ax push si add di, offset string xor ax,ax mov al, byte ptr es:[bx+1] ; óδíÑαÑ¼ íá⌐Γ and al,00000111b ; óδñÑ½¿¼ »Ñαóδ⌐ «»Ñαá¡ñ cmp byte ptr ds:[cpu_mode_2], 1 jz change_ins_d32 clc shl ax,1 cmp byte ptr ds:[byte_word], 1 ; αÑú¿ßΓα íá⌐Γ«óδ⌐ ? jz ok_byte_reg ; ñá ==> »ÑαÑ⌐ñÑ¼ add ax,16 ; ß¬«ααÑ¬Γ¿απÑ¼ ok_byte_reg: mov si, offset command_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á »Ñαóδ⌐ «»Ñαá¡ñ push es push cs pop es cld ; ßíα«ß Σ½áúá ¡á»αáó½Ñ¡¿∩ movsw ; »ÑαÑßδ½¬á pop es pop si pop ax retn change_ins_d32: push cx mov cx,3 mul cx mov si, offset com_386_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á »Ñαóδ⌐ «»Ñαá¡ñ push es push cs pop es mov cx,3 cld ; ßíα«ß Σ½áúá ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑßδ½¬á pop es pop cx pop si pop ax retn insert_register endp ; *** Äíαáí«Γ¬á Γ¿»«ó R8 / Rm ¿ R16 / Rm *** this_r8_r16_rm proc near call operation_type jz op_with_regis ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ áñαÑß ñ½∩ óδó«ñá call form_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá mov byte ptr ds:[di], 2ch ; ',' sub di, offset string inc di call memo_completed retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ op_with_regis: call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ áñαÑß ñ½∩ óδó«ñá call form_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá mov byte ptr ds:[di], 2ch ; ',' sub di, offset string inc di call insert_register ; ºá»¿ß∞ óΓ«α«ú« αÑú¿ßΓαá retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ this_r8_r16_rm endp ; *** ÄΣ«α¼½Ñ¡¿Ñ «»Ñαáµ¿⌐ ß »á¼∩Γ∞ε *** memo_completed proc near call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ memo_completed endp ; *** Äíαáí«Γ¬á Γ¿»«ó AL,i8 ¿ AX,i16 *** ali8_axi16 proc near push cx push si push di call byte_or_word ; «»αÑñÑ½¿¼ Γ¿» «»Ñαáµ¿¿ call write_al_ax ; óßΓáó¬á αÑú¿ßΓαá ¿ ºá»∩Γ«⌐ mov si,di xor ax,ax mov al, byte ptr es:[bx+1] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ cmp byte ptr ds:[cpu_mode_2], 1 jnz write_byte_or_word add si,7 call conv_to_hex ; »αÑ«íαáºπÑ¼ inc byte ptr ds:[h_add] ; »½εß íá⌐Γ xor ax,ax mov al,byte ptr es:[bx+2] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ inc byte ptr ds:[h_add] ; »½εß íá⌐Γ xor ax,ax mov al,byte ptr es:[bx+3] ; óδíÑαÑ¼ ΓαÑΓ¿⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ inc byte ptr ds:[h_add] ; »½εß íá⌐Γ xor ax,ax mov al,byte ptr es:[bx+4] ; óδíÑαÑ¼ τÑΓóÑαΓδ⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ add si,9 jmp short quit_al_ax write_byte_or_word: cmp byte ptr ds:[byte_word], 2 ; óδí¿αáΓ∞ ß½«ó« ? jz take_word ; ñá ==> óδíÑαÑ¼ inc si call conv_to_hex ; »αÑ«íαáºπÑ¼ add si,3 jmp short quit_al_ax take_word: add si,3 call conv_to_hex ; »αÑ«íαáºπÑ¼ inc byte ptr ds:[h_add] ; »½εß íá⌐Γ xor ax,ax mov al,byte ptr es:[bx+2] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ add si,5 quit_al_ax: mov byte ptr ds:[si],68h ; 'h' pop di pop si pop cx call write_mnemo ; óδó«ñ ¼¡Ñ¼«¬«¼á¡ñδ retn ali8_axi16 endp ; *** éßΓáó¬á AL ¿½¿ AX *** write_al_ax proc near cmp byte ptr ds:[cpu_mode_1], 1 jz write_eax xor ax,ax cmp byte ptr ds:[byte_word], 1 ; «»Ñαáµ¿∩ ß íá⌐Γá¼¿ ? jz al_byte ; ñá ==> »ÑαÑ⌐ñÑ¼ add ax,16 ; ß¬«ααÑ¬Γ¿απÑ¼ al_byte: mov si, offset command_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á óΓ«α«⌐ «»Ñαá¡ñ mov di, offset string add di,27 ; ß¼ÑΘÑ¡¿Ñ ñ½∩ óδó«ñá push es push cs pop es cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ movsw ; »ÑαÑΦ½Ñ¼ exit_write_al_ax: pop es mov byte ptr ds:[di], 2ch ; ',' inc di retn write_eax: mov si, offset com_386_regist mov di, offset string add di,27 ; ß¼ÑΘÑ¡¿Ñ ñ½∩ óδó«ñá push es push cx push cs pop es mov cx,3 cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑΦ½Ñ¼ pop cx jmp short exit_write_al_ax write_al_ax endp ; *** Ä»Ñαáµ¿¿ Γ¿»á PUSH / POP αÑú¿ßΓα *** push_pop_oper proc near push dx call write_mnemo ; óδó«ñ ¼¡Ñ¼«¬«¼á¡ñδ pop dx cmp dx,2 jz push_pop_d32 cmp dx,1 jz push_pop_segreg mov si, offset command_regist add si,ax add_register: mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ óδó«ñ push es push cs pop es cld ; ßíα«ß Σ½áúá ¡á»αáó½Ñ¡¿∩ movsw ; »ÑαÑßδ½¬á pop es retn push_pop_segreg: mov si, offset segment_regist add si,ax jmp short add_register push_pop_d32: mov si, offset com_386_regist add si,ax mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ óδó«ñ push es push cs pop es mov cx,3 cld ; ßíα«ß Σ½áúá ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑßδ½¬á pop es retn push_pop_oper endp ; *** çñÑß∞ «íαáíáΓδóáÑΓß∩ ¬«¼á¡ñá DB *** this_db proc near call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¡¿¬π ¬«¼á¡ñδ xor ax,ax mov al, byte ptr es:[bx] ; óδí¿αáÑ¼ íá⌐Γ mov si, offset string add si,29 ; Σ«α¼¿απÑ¼ ß¼ÑΘÑ¡¿Ñ mov byte ptr ds:[si], 68h ; ñ«»¿ßδóáÑ¼ 'h' dec si call conv_to_hex ; »αÑ«íαáº«óδóáÑ¼ ó ßΓα«¬π retn this_db endp ; *** è«½¿τÑßΓó« íá⌐Γ ñ½∩ push i16/i32 *** count_detect proc near add byte ptr ds:[h_add], 2 cmp byte ptr ds:[cpu_mode_1], 0 jz exit_detect_count add byte ptr ds:[h_add], 2 exit_detect_count: retn count_detect endp ; *** éδó«ñ íá⌐Γ«ó ñ½∩ push i16/i32 *** insert_number proc near cmp byte ptr ds:[cpu_mode_1], 1 jz push_offset_dword add si,3 mov ax, word ptr es:[bx+1] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex add si,5 mov byte ptr ds:[si], 'h' retn push_offset_dword: add si,7 mov ax, word ptr es:[bx+1] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex mov ax, word ptr es:[bx+3] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ push ax xor ah,ah call conv_to_hex pop ax xchg ah,al xor ah,ah call conv_to_hex add si,9 mov byte ptr ds:[si], 'h' retn insert_number endp ; *** éδó«ñ íá⌐Γá ñ½∩ push i8 *** insert_byte_num proc near inc si xor ax,ax mov al, byte ptr es:[bx+1] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ call conv_to_hex add si,3 mov byte ptr ds:[si], 'h' retn insert_byte_num endp ; *** ö«α¼¿α«óá¡¿Ñ ΓÑ¬πΘÑú« áñαÑßá *** form_curr_adr proc near push es push cs pop es mov si, offset adress ; »α«ßΓ« ß¡¿¼áÑ¼ ¬«»¿ε mov di, offset cur_adress ; ΓÑ¬πΘÑú« áñαÑßá ñ½∩ mov cx,4 ; ñá½∞¡Ñ⌐ΦÑ⌐ Ñú« «íαáí«Γ¬¿ cld rep movsb pop es retn form_curr_adr endp ; *** ö«α¼¿α«óá¡¿Ñ ¡«ó«ú« áñαÑßá *** form_new_adr proc near push ax push ax push dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_d32_1_jmp mov ax,1 call convert_offset call plus_byte_word no_d32_1_jmp: cmp byte ptr ds:[cpu_mode_2], 0 jz no_d32_2_jmp mov ax,1 call convert_offset call plus_byte_word no_d32_2_jmp: pop dx pop ax cmp dx,2 ; ñ½¿¡¡δ⌐ jmp ? jz test_word ; ñá ==> «íαáí«Γ¬á ß½«ó and al,10000000b cmp al,128 ; ßΓáαΦ¿⌐ í¿Γ πßΓá¡«ó½Ñ¡ ? pop ax jz mines_byte ; ñá ==> »αδª«¬ "óóÑασ" jmp short plus_byte ; ¿¡áτÑ ==> »αδª«¬ "ó¡¿º" test_word: and ah,10000000b cmp ah,128 ; á¡á½«ú¿τ¡á∩ »α«óÑα¬á, pop ax ; ¡« ñ½∩ ñ½¿¡¡«ú« jmp jz mines_word jmp short plus_word mines_byte: push ax mov si, offset off_string mov word ptr ds:[si], 0000h ; »α«¿ºó«ñ¿¼ ¬«ααÑ¬µ¿ε ºá mov word ptr ds:[si+2], 0100h ; ßτÑΓ ñ«íáó½Ñ¡¿∩ íá⌐Γá call plus_byte_word ; (óΓ«α«⌐ »«½πτ¿¼ ºá ßτÑΓ not) pop ax not ax xor ah,ah call convert_offset ; »αÑ«íαáºπÑ¼ Σ«α¼áΓδ call minus_byte_word ; »αδª«¬ "óóÑασ" retn plus_byte: call convert_offset call plus_byte_word mov si, offset off_string mov word ptr ds:[si], 0000h ; á¡á½«ú¿τ¡á∩ ¬«ααÑ¬µ¿∩ mov word ptr ds:[si+2], 0200h call plus_byte_word ; »αδª«¬ "ó¡¿º" retn mines_word: push ax mov si, offset off_string mov word ptr ds:[si], 0000h ; ¬«ααÑ¬µ¿∩ ñ½∩ ß½«ó mov word ptr ds:[si+2], 0200h call plus_byte_word pop ax not ax call convert_offset ; »αÑ«íαáºπÑ¼ Σ«α¼áΓδ call minus_byte_word ; »αδª«¬ "óóÑασ" retn plus_word: call convert_offset ; »αÑ«íαáºπÑ¼ Σ«α¼áΓδ call plus_byte_word mov si, offset off_string mov word ptr ds:[si], 0000h mov word ptr ds:[si+2], 0300h call plus_byte_word ; »αδª«¬ "ó¡¿º" retn form_new_adr endp ; *** éδó«ñ ßΣ«α¼¿α«óá¡¡«ú« áñαÑßá *** write_adress proc near mov cx,4 ; »αÑ«íαáºπÑ¼ 8 íá⌐Γ mov si, offset cur_adress ; «Γßεñá íÑαÑ¼, mov di, offset string ; á ßεñá ºá¡«ß¿¼ add di,27 str_adr_loop: mov al, byte ptr ds:[si] ; íá⌐Γ áñαÑßá cmp al,9 ; φΓ« µ¿Σαá ? jbe adr_cifra ; ñá ==> »ÑαÑ⌐ñÑ¼ add al,7 ; ß¬«ααÑ¬Γ¿απÑ¼ adr_cifra: add al,30h ; ñ«íáó¿¼ ß¿¼ó«½ ¡π½∩ mov byte ptr ds:[di], al ; »«½πτ¿¼ ASCII - ¬«ñ inc si inc di loop str_adr_loop ; ¿ Γá¬ ñ« ¬«¡µá retn write_adress endp ; *** ä«íáó½Ñ¡¿Ñ ¬ áñαÑßπ íá⌐Γá/ß½«óá *** plus_byte_word proc near mov si, offset cur_adress add si,3 ; ¼½áñΦ¿⌐ αáºα∩ñ áñαÑßá mov di, offset off_string add di,3 ; ¼½áñΦ¿⌐ αáºα∩ñ ß½áúáÑ¼«ú« xor ax,ax raz_adr_loop: mov al, byte ptr ds:[di] ; óΓ«α«Ñ ß½áúáÑ¼«Ñ add byte ptr ds:[si], al ; ß½«ª¿¼ add byte ptr ds:[si], ah ; ¿ «Γ¬«ααÑ¬Γ¿απÑ¼ cmp byte ptr ds:[si], 0fh ; »ÑαÑ»«½¡Ñ¡¿Ñ ? jbe plus_razr_corr ; ¡ÑΓ ==> íÑº ¬«ααÑ¬µ¿¿ mov ah,1 ; íδ½ »ÑαÑ¡«ß sub byte ptr ds:[si], 10h ; ¬«ααÑ¬µ¿∩ ¼½áñΦÑú« αáºα∩ñá dec si ; «Γ¬«ααÑ¬Γ¿απÑ¼ ßΓáαΦ¿⌐ dec di cmp di, (offset off_string - 1) ; ß½áúáÑ¼«Ñ ¬«¡τ¿½«ß∞ ? jbe ex_off_add jmp short raz_adr_loop ; ¿ Γá¬ ñ« ¬«¡µá ex_off_add: inc di mov byte ptr ds:[di], 0 ; Γ«½∞¬« ¬«ααÑ¬Γ¿απÑ¼ cmp si, (offset cur_adress - 1) jbe exit_off ; »«¬á óßÑ ¡Ñ «Γ¬«ααÑ¬Γ¿απÑ¼ jmp short raz_adr_loop plus_razr_corr: dec si dec di ; ß½«ªÑ¡¿Ñ íÑº ¬«ααÑ¬µ¿¿ xor ah,ah cmp di, (offset off_string - 1) ; «íαáí«Γ¬á óδσ«ñá jbe exit_off jmp short raz_adr_loop exit_off: retn plus_byte_word endp ; *** éδτ¿Γá¡¿Ñ ¿º áñαÑßá íá⌐Γá/ß½«óá *** minus_byte_word proc near mov si, offset cur_adress add si,3 ; ¼½áñΦ¿⌐ αáºα∩ñ áñαÑßá mov di, offset off_string add di,3 ; ¼½áñΦ¿⌐ αáºα∩ñ óδτ¿ΓáÑ¼«ú« xor ax,ax razr_adr_loop: mov al, byte ptr ds:[di] ; óδτ¿ΓáÑ¼«Ñ sub byte ptr ds:[si], al ; óδτ¿ΓáÑ¼ sub byte ptr ds:[si], ah ; ¿ ¬«ααÑ¬Γ¿απÑ¼ cmp byte ptr ds:[si], 0fh ; »ÑαÑ»«½¡Ñ¡¿Ñ ? jbe minus_razr_corr ; ¡ÑΓ ==> íÑº ¬«ααÑ¬µ¿¿ mov ah,1 ; íδ½ ºáÑ¼ and byte ptr ds:[si], 00001111b ; ßíα«ß ßΓáαΦ¿σ í¿Γ«ó dec si dec di cmp di, (offset off_string - 1) ; »α«óÑα¬á ¬«¡µá jbe ex_of_sub jmp short razr_adr_loop ; ¿ Γá¬ ñ« ¬«¡µá ex_of_sub: inc di mov byte ptr ds:[di], 0 ; óδτ¿ΓáÑ¼«Ñ ¬«¡τ¿½«ß∞ cmp si, offset (offset cur_adress - 1) ; »α«óÑα¬á óδσ«ñá jbe exit_of jmp short razr_adr_loop minus_razr_corr: dec si dec di ; óδτ¿Γá¡¿Ñ íÑº ¬«ααÑ¬µ¿¿ xor ah,ah ; ß «Γß½Ñª¿óá¡¿Ñ¼ óδσ«ñá cmp di, (offset off_string - 1) jbe exit_of jmp short razr_adr_loop exit_of: retn minus_byte_word endp ; *** ÅαÑ«íαáº«óá¡¿Ñ ß¼ÑΘÑ¡¿∩ *** convert_offset proc near mov si, offset off_string add si,3 mov cx,4 ; »αÑ«íαáºπÑ¼ 2 íá⌐Γá mov di,10h ; »πΓÑ¼ ñÑ½Ñ¡¿∩ ¡á 16 conv_adr_loop: xor dx,dx ; ß óδτ¿ß½Ñ¡¿Ñ¼ «ßΓáΓ¬á div di mov byte ptr ds:[si], dl ; ß«σαá¡¿¼ τ¿ß½« dec si loop conv_adr_loop ; ¿ Γá¬ ñ« ¬«¡µá retn convert_offset endp ; *** Åα«¿ºó«ñ¿Γß∩ «íαáí«Γ¬á Γ¿»á Rm <== segment register *** rm_seg_reg proc near call operation_type jz segm_into_reg ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_segm_into ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc exit_segm_into ; «íαáíáΓδóáÑΓß∩ ¬á¬ DB call special_output call form_segm_index ; Σ«α¼¿απÑ¼ º¡áτÑ¡¿Ñ exit_segm_into: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ segm_into_reg: call write_segm_into ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call reg_addition call form_segm_index ; ºá»¿ß∞ º¡áτÑ¡¿∩ retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ rm_seg_reg endp ; *** ÄΓñÑ½∞¡δ⌐ óδó«ñ ñ½∩ «»Ñαáµ¿⌐ Γ¿»á Rm <== seg_reg *** write_segm_into proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl cmp ax,6 jae make_segm_like_db jmp short live_segm_alone make_segm_like_db: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ pop ax mov cl,2 mov si, offset command_symbol add si,268h ; ¬«ñ DB stc pushf call this_db ; «íαáí«Γ¬á ¬á¬ DB jmp short mnemo_segment_write live_segm_alone: pop ax clc pushf call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ mnemo_segment_write: popf retn write_segm_into endp ; *** Åα«µÑñπαá ñ½∩ ß»Ñµ¿á½∞¡«ú« óδó«ñá *** special_output proc near call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá retn special_output endp ; *** Åα«µÑñπαá ñ½∩ «»αÑñÑ½Ñ¡¿∩ ¿ Σ«α¼¿α«óá¡¿∩ ßÑú¼Ñ¡Γ¡δσ αÑú¿ßΓα«ó *** form_segm_index proc near push ax push cx push si xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl cmp al,0 jz may_reg_es cmp al,1 jz may_reg_cs ; «»αÑñÑ½Ñ¡¿Ñ ßÑú¼Ñ¡Γ¡«ú« cmp al,2 ; αÑú¿ßΓαá jz may_reg_ss cmp al,3 jz may_reg_ds cmp al,4 jz may_reg_fs mov al,10 jmp short now_make may_reg_es: mov al,6 jmp short now_make may_reg_cs: mov al,2 jmp short now_make may_reg_ss: mov al,4 jmp short now_make may_reg_ds: mov al,0 jmp short now_make may_reg_fs: mov al,8 now_make: mov si, offset segment_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á óΓ«α«⌐ «»Ñαá¡ñ push es push cs pop es cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ movsw ; »ÑαÑΦ½Ñ¼ pop es pop si pop cx pop ax clc retn form_segm_index endp ; *** Äíαáí«Γ¬á lea - ¬«¼á¡ñ *** lea_operation proc near call operation_type jz not_lea_compat ; ñá ==> lea ¡Ñ »«ññÑαª¿óáÑΓ mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ áñαÑß ñ½∩ óδó«ñá call form_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá mov byte ptr ds:[di], 2ch ; ',' call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,30 ; áñαÑß ñ½∩ óδó«ñá cmp byte ptr ds:[cpu_mode_1], 0 jz no_d32_lea inc di no_d32_lea: call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ not_lea_compat: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ xor cx,cx mov cl,2 mov si, offset command_symbol add si,268h ; ¬«ñ DB call this_db ; «íαáí«Γ¬á ¬á¬ DB retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ lea_operation endp ; *** Äíαáí«Γ¬á Γ¿»«ó segment regist <== Rm *** seg_reg_rm proc near call operation_type jz seg_with_reg ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ áñαÑß ñ½∩ óδó«ñá call form_segm_reg ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá jc exit_seg_with_reg mov byte ptr ds:[di], 2ch ; ',' call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,30 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ exit_seg_with_reg: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ seg_with_reg: mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ áñαÑß ñ½∩ óδó«ñá call form_segm_reg ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá jc exit_seg_with_reg mov byte ptr ds:[di], 2ch ; ',' call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ mov di,30 call insert_register ; ºá»¿ß∞ óΓ«α«ú« αÑú¿ßΓαá retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ seg_reg_rm endp ; *** éδó«ñ ßÑú¼Ñ¡Γ¡δσ αÑú¿ßΓα«ó «»Ñαáµ¿⌐ Γ¿»á seg_reg <== Rm *** form_segm_reg proc near push ax push cx push si xor ax,ax mov al, byte ptr es:[bx+1] ; »«½πτ¿¼ óΓ«α«⌐ íá⌐Γ and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 shr al,cl cmp al,6 jae i_sure_db call form_segm_index pop si pop cx pop ax clc retn i_sure_db: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ pop si pop cx pop ax mov cl,2 mov si, offset command_symbol add si,268h ; ¬«ñ DB stc pushf call this_db ; «íαáí«Γ¬á ¬á¬ DB popf retn form_segm_reg endp ; *** Äíαáí«Γ¬á «»Ñαáµ¿¿ pop ¿º »á¼∩Γ¿ *** pop_rm_oper proc near call look_db_pop ; »α«óÑα¬á ¡á ¬«ααÑ¬Γ¡«ßΓ∞ jc exit_pop_oper call operation_type jz pop_regs_oper ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call mnemo_calling exit_pop_oper: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ pop_regs_oper: call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ mov di,27 call insert_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ pop_rm_oper endp ; *** Åα«óÑα¬á ¡á ¬«ααÑ¬Γ¡«ßΓ∞ óΓ«α«ú« íá⌐Γá «»Ñαáµ¿¿ Γ¿»á pop Rm *** look_db_pop proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ cmp ax,0 pop ax jnz look_pop_like_db jmp short keep_db_out look_pop_like_db: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ mov cl,2 mov si, offset command_symbol add si,268h ; ¬«ñ DB stc pushf call this_db ; «íαáí«Γ¬á ¬á¬ DB popf retn keep_db_out: clc retn look_db_pop endp ; *** éδó«ñ ax, word_reg *** simple_record proc near push es xor ax,ax mov al, byte ptr es:[bx] ; »«½πτ¿¼ ¬«ñ ¬«¼á¡ñδ push cs pop es cmp byte ptr ds:[cpu_mode_1], 1 jz simple_d32 mov si, offset command_regist ; π¬áºáΓÑ½∞ ¡á αÑú¿ßΓαδ add si,16 ; Γ¿»á word mov di, offset string add di,27 ; »«º¿µ¿∩ óδó«ñá cld movsw ; óδó«ñ αÑú¿ßΓαá ax mov byte ptr ds:[di], 2ch ; ',' inc di sub ax,90h ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ clc shl ax,1 ; * 2 ñ½∩ áñαÑßáµ¿¿ ¬ ß½«óá¼ mov si, offset command_regist add si,16 ; Σ«α¼¿απÑ¼ ß¼ÑΘÑ¡¿Ñ add si,ax ; ¿ßΓ«τ¡¿¬á cld movsw ; óδó«ñ óΓ«α«ú« αÑú¿ßΓαá pop es retn simple_d32: mov si, offset com_386_regist ; π¬áºáΓÑ½∞ ¡á αÑú¿ßΓαδ mov di, offset string add di,27 ; »«º¿µ¿∩ óδó«ñá mov cx,3 cld rep movsb ; óδó«ñ αÑú¿ßΓαá eax mov byte ptr ds:[di], 2ch ; ',' inc di sub ax,90h ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ mov cx,3 mul cx mov si, offset com_386_regist add si,ax mov cx,3 cld rep movsb ; óδó«ñ óΓ«α«ú« αÑú¿ßΓαá pop es retn simple_record endp ; *** ö«α¼¿απÑ¼ áñαÑß ñ½∩ JMP / CALL FAR *** form_far_record proc near push ax push si mov si, offset string add si,35 ; φΓ« »«ß½Ññ¡¿⌐ íá⌐Γ ß¼ÑΘÑ¡¿∩ cmp byte ptr ds:[cpu_mode_1], 1 jz d32_call_jmp xor ax,ax mov al, byte ptr es:[bx+1] ; óΓ«α«⌐ íá⌐Γ ß¼ÑΘÑ¡¿∩ call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π xor ax,ax mov al, byte ptr es:[bx+2] ; »Ñαóδ⌐ íá⌐Γ ß¼ÑΘÑ¡¿∩ call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π mov byte ptr ds:[si],3ah ; ':' dec si xor ax,ax mov al, byte ptr es:[bx+3] ; óΓ«α«⌐ íá⌐Γ ßÑú¼Ñ¡Γá call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π xor ax,ax mov al, byte ptr es:[bx+4] ; »Ñαóδ⌐ íá⌐Γ ßÑú¼Ñ¡Γá call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π add byte ptr ds:[h_add], 4 ; »½εß 4 íá⌐Γá áñαÑßá pop si pop ax retn d32_call_jmp: add si,4 xor ax,ax mov al, byte ptr es:[bx+1] ; τÑΓóÑαΓδ⌐ íá⌐Γ ß¼ÑΘÑ¡¿∩ call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π xor ax,ax mov al, byte ptr es:[bx+2] ; ΓαÑΓ¿⌐ íá⌐Γ ß¼ÑΘÑ¡¿∩ call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π xor ax,ax mov al, byte ptr es:[bx+3] ; óΓ«α«⌐ íá⌐Γ ß¼ÑΘÑ¡¿∩ call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π xor ax,ax mov al, byte ptr es:[bx+4] ; »Ñαóδ⌐ íá⌐Γ ß¼ÑΘÑ¡¿∩ call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π mov byte ptr ds:[si],3ah ; ':' dec si xor ax,ax mov al, byte ptr es:[bx+5] ; óΓ«α«⌐ íá⌐Γ ßÑú¼Ñ¡Γá call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π xor ax,ax mov al, byte ptr es:[bx+6] ; »Ñαóδ⌐ íá⌐Γ ßÑú¼Ñ¡Γá call conv_to_hex ; »ÑαÑó«ñ ó ßΓα«¬π add byte ptr ds:[h_add], 6 ; »½εß 4 íá⌐Γá áñαÑßá pop si pop ax retn form_far_record endp ; *** Äíαáí«Γ¬á «»Ñαáµ¿⌐ Γ¿»á al (ax) <== mem8 (16) *** alx_mem8_16 proc near call byte_or_word ; «»αÑñÑ½∩Ñ¼ Γ¿» «»Ñαáµ¿¿ mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ áñαÑß ñ½∩ óδó«ñá call mode_detect ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá mov byte ptr ds:[di], 2ch ; ',' call detect_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,30 ; áñαÑß ñ½∩ óδó«ñá cmp byte ptr ds:[cpu_mode_1], 0 jz no_mem8_16_corr inc di no_mem8_16_corr: call ins_mem_reg ; óßΓáó¿¼ óΓ«απε »«½«ó¿¡π call plus_some_off ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ alx_mem8_16 endp ; *** Åα«óÑα¬á ¿ óδó«ñ al ¿½¿ ax *** mode_detect proc near push ax push cx push si xor ax,ax cmp byte ptr ds:[cpu_mode_1], 1 jz mode_d32_detect cmp byte ptr ds:[byte_word], 1 ; «»Ñαáµ¿∩ ß íá⌐Γá¼¿ ? jz detect_byte ; ñá ==> »ÑαÑ⌐ñÑ¼ add ax,16 ; ß¬«ααÑ¬Γ¿απÑ¼ detect_byte: mov si, offset command_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á óΓ«α«⌐ «»Ñαá¡ñ push es push cs pop es cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ movsw ; »ÑαÑΦ½Ñ¼ pop es pop si pop cx pop ax retn mode_d32_detect: mov si, offset com_386_regist add si,ax push es push cs pop es mov cx,3 cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑΦ½Ñ¼ pop es pop si pop cx pop ax retn mode_detect endp ; *** éδí«α¬á ¡Ñ»«ßαÑñßΓóÑ¡¡«ú« áñαÑßá *** detect_cost proc near cmp byte ptr ds:[cpu_mode_2], 1 jz detect_d32_cost mov ax,6 ; DS : d16 add byte ptr ds:[h_add], 1 ; íπñÑΓ ÑΘÑ ß½«ó« mov byte ptr ds:[off_code], 2 ; ¬«Γ«α«Ñ ¡áñ« óδíαáΓ∞ retn detect_d32_cost: mov ax,5 ; DS : d32 add byte ptr ds:[h_add], 3 ; íπñÑΓ ÑΘÑ ß½«ó« mov byte ptr ds:[off_code], 3 ; ¬«Γ«α«Ñ ¡áñ« óδíαáΓ∞ retn detect_cost endp ; *** éδí«α¬á ß¼ÑΘÑ¡¿⌐ ñ½∩ π»α«ΘÑ¡¡δσ ¬«¼á¡ñ *** plus_some_off proc near cmp byte ptr ds:[off_code], 0 ; óδí¿αáΓ∞ ¡¿τÑú« ¡Ñ ¡áñ« ? jz not_make_offset ; ¡Ñ ¡áñ« ==> ¡Ñ íπñÑ¼ mov si,di sub si,3 ; óδí¿αáΓ∞ ßεñá xor ax,ax mov al, byte ptr es:[bx+1] ; óδíÑαÑ¼ »Ñαóδ⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ ó ßΓα«¬π cmp byte ptr ds:[off_code], 1 ; ÑΘÑ óδí¿αáΓ∞ ? jz not_make_offset xor ax,ax mov al, byte ptr es:[bx+2] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ ó ßΓα«¬π cmp byte ptr ds:[off_code], 2 ; ÑΘÑ óδí¿αáΓ∞ ? jz not_make_offset xor ax,ax mov al, byte ptr es:[bx+3] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ ó ßΓα«¬π xor ax,ax mov al, byte ptr es:[bx+4] ; óδíÑαÑ¼ óΓ«α«⌐ íá⌐Γ call conv_to_hex ; »αÑ«íαáºπÑ¼ ó ßΓα«¬π not_make_offset: retn plus_some_off endp ; *** Äíαáí«Γ¬á «»Ñαáµ¿⌐ Γ¿»á mem8 (16) <== al (ax) *** mem8_16_alx proc near call byte_or_word ; «»αÑñÑ½∩Ñ¼ Γ¿» «»Ñαáµ¿¿ call detect_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_mnemo ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_some_off ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá call mode_detect ; Σ«α¼¿απÑ¼ αÑú¿ßΓα retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ mem8_16_alx endp ; *** Äíαáí«Γ¬á ¬«¼á¡ñ Γ¿»á al(ax) - bh(di) <== im8(16) *** alax_bhdi_im8_16 proc near push cx push si call byte_or_word ; «»αÑñÑ½¿¼ Γ¿» «»Ñαáµ¿¿ dec byte ptr ds:[h_add] call write_al_di ; óßΓáó¬á αÑú¿ßΓαá ¿ ºá»∩Γ«⌐ call small_cause ; óδí«α¬á º¡áτÑ¡¿∩ pop si pop cx call write_mnemo ; óδó«ñ ¼¡Ñ¼«¬«¼á¡ñπ retn alax_bhdi_im8_16 endp ; *** éßΓáó¬á AL - DI *** write_al_di proc near xor ax,ax mov al, byte ptr es:[bx] ; »«½πτ¿¼ íá⌐Γ ¬«ñá sub ax,00b0h ; ¬«ααÑ¬µ¿∩ cmp byte ptr ds:[cpu_mode_1], 1 jz write_d32_al_di clc shl ax,1 mov si, offset command_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á óΓ«α«⌐ «»Ñαá¡ñ mov di, offset string add di,27 ; ß¼ÑΘÑ¡¿Ñ ñ½∩ óδó«ñá push es push cs pop es cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ movsw ; »ÑαÑΦ½Ñ¼ pop es mov byte ptr ds:[di], 2ch ; ',' inc di retn write_d32_al_di: cmp ax,8 jb corr_@@_d32 sub ax,8 corr_@@_d32: mov cx,3 mul cx mov si, offset com_386_regist add si,ax ; ß¼ÑΘÑ¡¿Ñ ¡á óΓ«α«⌐ «»Ñαá¡ñ mov di, offset string add di,27 ; ß¼ÑΘÑ¡¿Ñ ñ½∩ óδó«ñá push es push cs pop es mov cx,3 cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑΦ½Ñ¼ pop es mov byte ptr ds:[di], 2ch ; ',' inc di retn write_al_di endp ; *** éδí«α¬á ß¼ÑΘÑ¡¿⌐ ñ½∩ ß«¬αáΘÑ¡¡δσ ¬«¼á¡ñ *** small_cause proc near mov si,di cmp byte ptr ds:[byte_word], 2 ; óδí¿αáΓ∞ ß½«ó« ? jz make_word ; ñá ==> óδíÑαÑ¼ inc byte ptr ds:[h_add] call insert_byte_num retn make_word: call count_detect call insert_number retn small_cause endp ; *** Äíß½πª¿óá¡¿Ñ «»Ñαáµ¿⌐ Γ¿»á ret((n/f)+offset) *** return_oper proc near mov di, offset string add di,23 cmp ah,1 ; «íαáí«Γ¬á retn ? jnz not_ret_near mov byte ptr ds:[di], 6eh ; 'n' jmp short make_only not_ret_near: cmp ah,3 ; «íαáí«Γ¬á retn+offset ? jnz not_ret_near_off mov byte ptr ds:[di], 6eh ; 'n' jmp short making_off not_ret_near_off: cmp ah,2 ; «íαáí«Γ¬á retf ? jnz not_ret_far mov byte ptr ds:[di], 66h ; 'f' jmp short make_only not_ret_far: mov byte ptr ds:[di], 66h ; «íαáí«Γ¬á retf+offset making_off: push cx push si mov byte ptr ds:[byte_word], 2 ; óδí«α¬á ß½«óá mov di, offset string add di,27 ; Σ«α¼¿απÑ¼ ß¼ÑΘÑ¡¿Ñ call small_cause ; óδí«α¬á ß¼ÑΘÑ¡¿∩ pop si pop cx make_only: call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ retn return_oper endp ; *** Äíαáí«Γ¬á «»Ñαáµ¿⌐ »«ñ¼¡«ªÑßΓóá mem <== im8(16) *** this_mem_im8_16 proc near push cx push si call operation_type jz mem_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call form_memory mov di,27 call ins_mem_reg call plus_offset mov byte ptr ds:[di], 2ch ; ',' inc di push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx cmp byte ptr ds:[yes_sib], 0 jz no_@_mem_corr inc bx no_@_mem_corr: call small_cause ; Σ«α¼¿απÑ¼ º¡áτÑ¡¿Ñ pop bx pop si pop cx call write_mnemo retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ mem_with_regs: call reg_addition push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx call small_cause ; ºá»¿ß∞ º¡áτÑ¡¿∩ pop bx pop si pop cx call write_mnemo retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ this_mem_im8_16 endp ; *** Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ ß αáßΦ¿αÑ¡¡δ¼ ¬«ñ«¼ Γ¿»á Rm/i8 ¿ Rm/i16 *** ariph_oper_1 proc near cmp ah,2 jz no_@_ariph_1_minus dec byte ptr ds:[h_add] no_@_ariph_1_minus: call operation_type jz ariph_1_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call form_memory mov di,27 call ins_mem_reg call plus_offset mov byte ptr ds:[di], 2ch ; ',' inc di push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx cmp byte ptr ds:[yes_sib], 0 jz no_@_ariph_1_corr inc bx no_@_ariph_1_corr: call small_cause ; Σ«α¼¿απÑ¼ º¡áτÑ¡¿Ñ pop bx call write_ariph_1 retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ ariph_1_with_regs: call reg_addition push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx call small_cause ; ºá»¿ß∞ º¡áτÑ¡¿∩ pop bx call write_ariph_1 retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ ariph_oper_1 endp ; *** éδó«ñ ¼¡Ñ¼«¬«ñá áα¿Σ¼ÑΓ¿τÑß¬«⌐ «»Ñαáµ¿¿ Γ¿»á 1 *** write_ariph_1 proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_arop_1 ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ó add si,ax ; Γáí½¿µÑ ß¼ÑΘÑ¡¿⌐ mov ax, word ptr ds:[si] ; »«½πτ¿¼ ΓαÑíπÑ¼«Ñ ß¼ÑΘÑ¡¿Ñ mov si, offset command_symbol ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á add si,ax ; ¼áΦ¿¡¡πε ¿¡ßΓαπ¬µ¿ε pop ax ; <== óδíÑαÑ¼ ß¼ÑΘÑ¡¿Ñ push si ; ===> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_arop_1 add si,ax ; óδíÑαÑ¼ ñ½¿¡π ñ½∩ xor cx,cx ; »ÑαÑßδ½¬¿ mov cl, byte ptr ds:[si] pop si ; <=== óδí«α¬á ß¼ÑΘÑ¡¿∩ pop ax call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ retn write_ariph_1 endp ; *** Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ ß αáßΦ¿αÑ¡¡δ¼ ¬«ñ«¼ Γ¿»á Rm8/i8 ¿ Rm16/i8 *** ariph_oper_2 proc near call operation_type jz ariph_2_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call form_memory mov di,27 call ins_mem_reg call plus_offset mov byte ptr ds:[di], 2ch ; ',' inc di push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx cmp byte ptr ds:[yes_sib], 0 jz no_@_ariph_2_corr inc bx no_@_ariph_2_corr: mov si,di call insert_byte_num pop bx call write_ariph_2 retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ ariph_2_with_regs: call reg_addition push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx mov si,di call insert_byte_num pop bx call write_ariph_2 retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ ariph_oper_2 endp ; *** éδó«ñ ¼¡Ñ¼«¬«ñá áα¿Σ¼ÑΓ¿τÑß¬«⌐ «»Ñαáµ¿¿ Γ¿»á 1 *** write_ariph_2 proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_arop_2 ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ó add si,ax ; Γáí½¿µÑ ß¼ÑΘÑ¡¿⌐ mov ax, word ptr ds:[si] ; »«½πτ¿¼ ΓαÑíπÑ¼«Ñ ß¼ÑΘÑ¡¿Ñ mov si, offset command_symbol ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á add si,ax ; ¼áΦ¿¡¡πε ¿¡ßΓαπ¬µ¿ε pop ax ; <== óδíÑαÑ¼ ß¼ÑΘÑ¡¿Ñ push si ; ===> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_arop_2 add si,ax ; óδíÑαÑ¼ ñ½¿¡π ñ½∩ xor cx,cx ; »ÑαÑßδ½¬¿ mov cl, byte ptr ds:[si] pop si ; <=== óδí«α¬á ß¼ÑΘÑ¡¿∩ pop ax call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ retn write_ariph_2 endp ; *** æñó¿ú«óδÑ «»Ñαáµ¿¿ Γ¿»á shift, im *** shift_oper_im proc near inc byte ptr ds:[h_add] call operation_type jz shift_im_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_shift_im ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc no_shift_im_this ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx cmp byte ptr ds:[yes_sib], 0 jz no_@_shift_im_corr inc bx no_@_shift_im_corr: mov si,di call insert_byte_num pop bx no_shift_im_this: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ shift_im_with_regs: call write_shift_im ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc no_shift_im_this ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call reg_addition push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx mov si,di call insert_byte_num pop bx retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ shift_oper_im endp ; *** éδó«ñ ¼¡Ñ¼«¡¿¬¿ ñ½∩ shift - «»Ñαáµ¿¿ *** write_shift_im proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_shift ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ó add si,ax ; Γáí½¿µÑ ß¼ÑΘÑ¡¿⌐ mov ax, word ptr ds:[si] ; »«½πτ¿¼ ΓαÑíπÑ¼«Ñ ß¼ÑΘÑ¡¿Ñ mov si, offset command_symbol ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á add si,ax ; ¼áΦ¿¡¡πε ¿¡ßΓαπ¬µ¿ε pop ax ; <== óδíÑαÑ¼ ß¼ÑΘÑ¡¿Ñ push si ; ===> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_shift add si,ax ; óδíÑαÑ¼ ñ½¿¡π ñ½∩ xor cx,cx ; »ÑαÑßδ½¬¿ mov cl, byte ptr ds:[si] pop si ; <=== óδí«α¬á ß¼ÑΘÑ¡¿∩ cmp ax,6 ; ó Γáí½¿µπ ñ¿ºáßßÑ¼í½Ñαá jz shift_like_db jmp short shift_alone shift_like_db: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ pop ax stc pushf call this_db ; «íαáí«Γ¬á ¬á¬ DB jmp short mnemo_shift_write shift_alone: pop ax clc pushf call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ mnemo_shift_write: popf retn write_shift_im endp ; *** æñó¿ú«óδÑ «»Ñαáµ¿¿ Γ¿»á shift, 1 *** shift_oper_1 proc near call operation_type jz shift_1_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_shift_im ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc no_shift_1_this ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá mov byte ptr ds:[di], 31h ; Σ«α¼¿απÑ¼ º¡áτÑ¡¿Ñ "1" no_shift_1_this: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ shift_1_with_regs: call write_shift_im ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc no_shift_1_this ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call reg_addition mov byte ptr ds:[di], 31h ; Σ«α¼¿απÑ¼ º¡áτÑ¡¿Ñ "1" retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ shift_oper_1 endp ; *** æñó¿ú«óδÑ «»Ñαáµ¿¿ Γ¿»á shift, cl *** shift_oper_cl proc near call operation_type jz shift_cl_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_shift_im ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc no_shift_cl_this ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá mov word ptr ds:[di], 6c63h ; Σ«α¼¿απÑ¼ º¡áτÑ¡¿Ñ "cl" no_shift_cl_this: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ shift_cl_with_regs: call write_shift_im ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc no_shift_cl_this ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call reg_addition mov word ptr ds:[di], 6c63h ; Σ«α¼¿απÑ¼ º¡áτÑ¡¿Ñ "cl" retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ shift_oper_cl endp ; ***/ Ä»Ñαáµ¿¿ ß αáßΦ¿αÑ¡¡δ¼ ¬«ñ«¼ ¬«¼á¡ñδ úαπ»»δ 1 /*** ariph_group_1 proc near call operation_type jz group_1_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ push ax push cx xor ax,ax xor cx,cx mov al, byte ptr es:[bx+1] and al,00111000b mov cl,3 clc shr ax,cl cmp ax,0 jz expand_test cmp ax,1 pop cx pop ax jz exit_group_1 call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ exit_group_1: call write_group_1 ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ expand_test: pop cx pop ax call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ this_is_a_test: mov byte ptr ds:[di], 2ch ; ',' inc di ; ¡«óδ⌐ áñαÑß ñ½∩ óδó«ñá push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx cmp byte ptr ds:[yes_sib], 0 jz no_@@_gr_corr inc bx no_@@_gr_corr: mov si,di call small_cause pop bx jmp short exit_group_1 group_1_with_regs: push ax push cx xor ax,ax xor cx,cx mov al, byte ptr es:[bx+1] and al,00111000b mov cl,3 clc shr ax,cl cmp ax,0 jz expand_test_reg cmp ax,1 pop cx pop ax jz exit_group_1 mov di,27 call insert_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá jmp short exit_group_1 expand_test_reg: pop cx pop ax mov di,27 call insert_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá jmp short this_is_a_test ariph_group_1 endp ; *** éδó«ñ ¼¡Ñ¼«¡¿¬¿ ñ½∩ ¬«¼á¡ñ úαπ»»δ 1 *** write_group_1 proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_group_1 ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ó add si,ax ; Γáí½¿µÑ ß¼ÑΘÑ¡¿⌐ mov ax, word ptr ds:[si] ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ mov si, offset command_symbol ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á add si,ax ; ¼áΦ¿¡¡πε ¿¡ßΓαπ¬µ¿ε pop ax ; <== óδíÑαÑ¼ ß¼ÑΘÑ¡¿Ñ push si ; ===> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_group_1 add si,ax ; óδíÑαÑ¼ ñ½¿¡π ñ½∩ xor cx,cx ; »ÑαÑßδ½¬¿ mov cl, byte ptr ds:[si] pop si ; <=== óδí«α¬á ß¼ÑΘÑ¡¿∩ cmp ax,1 ; ó Γáí½¿µπ ñ¿ºáßßÑ¼í½Ñαá jz group_1_like_db jmp short group_1_alone group_1_like_db: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ pop ax call this_db ; «íαáí«Γ¬á ¬á¬ DB retn group_1_alone: pop ax call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ retn write_group_1 endp ; ***/ Ä»Ñαáµ¿¿ ß αáßΦ¿αÑ¡¡δ¼ ¬«ñ«¼ ¬«¼á¡ñδ úαπ»»δ 2 /*** ariph_group_2 proc near call operation_type jz group_2_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_group_2 ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc exit_group_2 ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ exit_group_2: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ group_2_with_regs: call write_group_2 ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc exit_group_2 mov di,27 call insert_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá retn ariph_group_2 endp ; *** éδó«ñ ¼¡Ñ¼«¡¿¬¿ ñ½∩ ¬«¼á¡ñ úαπ»»δ 2 *** write_group_2 proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_group_2 ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ó add si,ax ; Γáí½¿µÑ ß¼ÑΘÑ¡¿⌐ mov ax, word ptr ds:[si] ; »«½πτ¿¼ ΓαÑíπÑ¼«Ñ ß¼ÑΘÑ¡¿Ñ mov si, offset command_symbol ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á add si,ax ; ¼áΦ¿¡¡πε ¿¡ßΓαπ¬µ¿ε pop ax ; <== óδíÑαÑ¼ ß¼ÑΘÑ¡¿Ñ push si ; ===> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_group_2 add si,ax ; óδíÑαÑ¼ ñ½¿¡π ñ½∩ xor cx,cx ; »ÑαÑßδ½¬¿ mov cl, byte ptr ds:[si] pop si ; <=== óδí«α¬á ß¼ÑΘÑ¡¿∩ cmp ax,1 ; ó Γáí½¿µπ ñ¿ºáßßÑ¼í½Ñαá ja group_2_like_db jmp short group_2_alone group_2_like_db: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ pop ax stc pushf call this_db ; «íαáí«Γ¬á ¬á¬ DB jmp short mnemo_group_2_write group_2_alone: pop ax clc pushf call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ mnemo_group_2_write: popf retn write_group_2 endp ; ***/ Ä»Ñαáµ¿¿ ß αáßΦ¿αÑ¡¡δ¼ ¬«ñ«¼ ¬«¼á¡ñδ úαπ»»δ 3 /*** ariph_group_3 proc near call operation_type jz group_3_with_regs ; ñá ==> «íαáí«ΓáÑ¼ «ΓñÑ½∞¡« call memory_cost ; óδí«α¬á ß¼ÑΘÑ¡¿⌐ call write_group_3 ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc exit_group_3 ; Γá¬«⌐ ¬«¼á¡ñδ ¡ÑΓ call form_memory ; Σ«α¼¿απÑ¼ «»Ñαáµ¿¿ ß »á¼∩Γ∞ε mov di,27 ; áñαÑß ñ½∩ óδó«ñá call ins_mem_reg ; óßΓáó¿¼ »Ñαóπε »«½«ó¿¡π call plus_offset ; ñ«íáó¿¼ ß¼ÑΘÑ¡¿∩ exit_group_3: retn ; óÑα¡Ñ¼ß∩ ¿º »α«µÑñπαδ group_3_with_regs: call write_group_3 ; Σ«α¼¿απÑ¼ ¼¡Ñ¼«¬«¼á¡ñπ jc exit_group_3 mov di,27 call insert_register ; ºá»¿ß∞ »Ñαó«ú« αÑú¿ßΓαá retn ariph_group_3 endp ; *** éδó«ñ ¼¡Ñ¼«¡¿¬¿ ñ½∩ ¬«¼á¡ñ úαπ»»δ 3 *** write_group_3 proc near push ax xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá and al,00111000b ; óδñÑ½¿¼ óΓ«α«⌐ «»Ñαá¡ñ clc ; ßíα«ß¿¼ carry - Σ½áú mov cl,3 ; »αÑ«íαáº«óá¡¿Ñ Σ«α¼áΓ«ó shr ax,cl push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_group_3 ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ó add si,ax ; Γáí½¿µÑ ß¼ÑΘÑ¡¿⌐ mov ax, word ptr ds:[si] ; »«½πτ¿¼ ΓαÑíπÑ¼«Ñ ß¼ÑΘÑ¡¿Ñ mov si, offset command_symbol ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ¡á add si,ax ; ¼áΦ¿¡¡πε ¿¡ßΓαπ¬µ¿ε pop ax ; <== óδíÑαÑ¼ ß¼ÑΘÑ¡¿Ñ push si ; ===> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_group_3 add si,ax ; óδíÑαÑ¼ ñ½¿¡π ñ½∩ xor cx,cx ; »ÑαÑßδ½¬¿ mov cl, byte ptr ds:[si] pop si ; <=== óδí«α¬á ß¼ÑΘÑ¡¿∩ cmp ax,7 ; ó Γáí½¿µπ ñ¿ºáßßÑ¼í½Ñαá jz group_3_like_db cmp ax,2 jz exp_w_c_j_p cmp ax,3 jz exp_d_c_j cmp ax,4 jz exp_w_c_j_p cmp ax,5 jz exp_d_c_j cmp ax,6 jz exp_w_c_j_p jmp short group_3_alone group_3_like_db: mov byte ptr ds:[h_add], 1 ; óßÑú« «ñ¿¡ íá⌐Γ pop ax stc pushf call this_db ; «íαáí«Γ¬á ¬á¬ DB jmp short mnemo_group_3_write exp_w_c_j_p: mov byte ptr ds:[byte_word], 2 ; word - «»Ñαáµ¿∩ jmp short group_3_alone exp_d_c_j: mov byte ptr ds:[byte_word], 3 ; dword - «»Ñαáµ¿∩ group_3_alone: pop ax clc pushf call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ mnemo_group_3_write: popf retn write_group_3 endp ; *** Äíß½πª¿óá¡¿Ñ ¿º¼Ñ¡Ñ¡¿⌐ ßÑú¼Ñ¡Γ«ó *** seg_reg_oper proc near xor ax,ax mov al, byte ptr es:[bx+1] mov si, offset system_table add si,ax mov al, byte ptr ds:[si] test al,80h jnz segment_may_be_change jmp short like_register segment_may_be_change: test al,02h jnz used_in_next test al,04h jnz like_register test al,08h jnz use_like_expand xor ax,ax mov al, byte ptr es:[bx+1] cmp al,66h jz used_in_next cmp al,67h jz used_in_next xor ax,ax mov al, byte ptr es:[bx+2] and al,0c0h cmp al,0c0h jz like_register used_in_next: mov word ptr ds:[new_segment], dx inc bx call dis_asm dec bx mov word ptr ds:[new_segment], 0 retn use_like_expand: xor ax,ax mov al, byte ptr es:[bx+2] cmp al,81h ja no_@_arop_1 mov si, offset system_arop_1 jmp short second_@_continue no_@_arop_1: cmp al,83h ja no_@_arop_2 mov si, offset system_arop_2 jmp short second_@_continue no_@_arop_2: cmp al,0d3h ja no_@_shift mov si, offset system_shift jmp short second_@_continue no_@_shift: cmp al,0f7h ja no_group_1 mov si, offset system_group_1 jmp short second_@_continue no_group_1: cmp al,0feh jnz no_group_2 mov si, offset system_group_2 jmp short second_@_continue no_group_2: mov si, offset system_group_3 second_@_continue: and al,00111000b mov cl,3 clc shr ax,cl add si,ax mov al, byte ptr ds:[si] test al,80h jz like_register jmp short used_in_next like_register: mov byte ptr ds:[h_add], 1 xor cx,cx mov cl,3 mov si, offset command_symbol xor ax,ax mov al, byte ptr es:[bx] cmp al,26h jnz no_@_es add si, 26fh jmp short seg_@_continue no_@_es: cmp al,2eh jnz no_@_cs add si, 272h jmp short seg_@_continue no_@_cs: cmp al,36h jnz no_@_ss add si, 275h jmp short seg_@_continue no_@_ss: cmp al,3eh jnz no_@_ds add si, 278h jmp short seg_@_continue no_@_ds: cmp al,64h jnz no_@_fs add si, 27bh jmp short seg_@_continue no_@_fs: add si, 27eh seg_@_continue: call write_mnemo retn seg_reg_oper endp ; ┌────────────────────────────────────────────────────────────────────┐ ; │ *** ░▒▓█ ìáτá½«ß∞ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ ñ¿ºáßßÑ¼í½¿α«óá¡¿Ñ █▓▒░ *** │ ; └────────────────────────────────────────────────────────────────────┘ code_00h proc near mov ah,1 call this_rm_r8_r16 retn code_00h endp code_01h proc near mov ah,2 call this_rm_r8_r16 retn code_01h endp code_02h proc near mov ah,1 call this_r8_r16_rm retn code_02h endp code_03h proc near mov ah,2 call this_r8_r16_rm retn code_03h endp code_04h proc near mov ah,1 call ali8_axi16 retn code_04h endp code_05h proc near mov ah,2 call ali8_axi16 retn code_05h endp code_06h proc near mov ax,6 mov dx,1 call push_pop_oper retn code_06h endp code_07h proc near mov ax,6 mov dx,1 call push_pop_oper retn code_07h endp code_0eh proc near mov ax,2 mov dx,1 call push_pop_oper retn code_0eh endp code_0fh proc near call this_db retn code_0fh endp code_16h proc near mov ax,4 mov dx,1 call push_pop_oper retn code_16h endp code_17h proc near mov ax,4 mov dx,1 call push_pop_oper retn code_17h endp code_1eh proc near mov ax,0 mov dx,1 call push_pop_oper retn code_1eh endp code_1fh proc near mov ax,0 mov dx,1 call push_pop_oper retn code_1fh endp code_26h proc near mov dx,06h call seg_reg_oper retn code_26h endp code_27h proc near call write_mnemo retn code_27h endp code_2eh proc near mov dx,02h call seg_reg_oper retn code_2eh endp code_36h proc near mov dx,04h call seg_reg_oper retn code_36h endp code_3eh proc near mov dx,00h call seg_reg_oper retn code_3eh endp code_40h proc near mov ax,16 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_40h_32bit_reg xor ax,ax mov dx,2 no_40h_32bit_reg: call push_pop_oper retn code_40h endp code_41h proc near mov ax,18 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_41h_32bit_reg mov ax,3 mov dx,2 no_41h_32bit_reg: call push_pop_oper retn code_41h endp code_42h proc near mov ax,20 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_42h_32bit_reg mov ax,6 mov dx,2 no_42h_32bit_reg: call push_pop_oper retn code_42h endp code_43h proc near mov ax,22 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_43h_32bit_reg mov ax,9 mov dx,2 no_43h_32bit_reg: call push_pop_oper retn code_43h endp code_44h proc near mov ax,24 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_44h_32bit_reg mov ax,12 mov dx,2 no_44h_32bit_reg: call push_pop_oper retn code_44h endp code_45h proc near mov ax,26 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_45h_32bit_reg mov ax,15 mov dx,2 no_45h_32bit_reg: call push_pop_oper retn code_45h endp code_46h proc near mov ax,28 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_46h_32bit_reg mov ax,18 mov dx,2 no_46h_32bit_reg: call push_pop_oper retn code_46h endp code_47h proc near mov ax,30 xor dx,dx cmp byte ptr ds:[cpu_mode_1], 0 jz no_47h_32bit_reg mov ax,21 mov dx,2 no_47h_32bit_reg: call push_pop_oper retn code_47h endp code_60h proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_push add si,5 inc cx no_32bit_push: call write_mnemo retn code_60h endp code_61h proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_pop add si,4 inc cx no_32bit_pop: call write_mnemo retn code_61h endp code_64h proc near mov dx,0ah call seg_reg_oper retn code_64h endp code_65h proc near mov dx,0ch call seg_reg_oper retn code_65h endp code_66h proc near mov byte ptr ds:[cpu_mode_1], 1 inc bx call dis_asm dec bx mov byte ptr ds:[cpu_mode_1], 0 retn code_66h endp code_67h proc near mov byte ptr ds:[cpu_mode_2], 1 inc bx call dis_asm dec bx mov byte ptr ds:[cpu_mode_2], 0 retn code_67h endp code_68h proc near call count_detect call write_mnemo mov si, offset string add si,27 call insert_number retn code_68h endp code_69h proc near call count_detect call code_03h mov byte ptr ds:[di], 2ch ; ',' inc di mov si,di push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx call insert_number pop bx retn code_69h endp code_6ah proc near inc byte ptr ds:[h_add] call write_mnemo mov si, offset string add si,27 call insert_byte_num retn code_6ah endp code_6bh proc near inc byte ptr ds:[h_add] call code_03h mov byte ptr ds:[di], 2ch ; ',' inc di mov si,di push bx xor ax,ax mov al, byte ptr ds:[off_code] add bx,ax inc bx call insert_byte_num pop bx retn code_6bh endp code_6dh proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_insd add si,4 no_32bit_insd: call write_mnemo retn code_6dh endp code_6fh proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_outsd add si,5 no_32bit_outsd: call write_mnemo retn code_6fh endp code_70h proc near inc byte ptr ds:[h_add] ; »½εß íá⌐Γ ß¼ÑΘÑ¡¿∩ call write_mnemo ; óδó«ñ ¼¡Ñ¼«¡¿¬¿ ¬«¼á¡ñδ call form_curr_adr ; Σ«α¼¿α«óá¡¿Ñ ΓÑ¬πΘÑú« áñαÑßá xor ax,ax mov al, byte ptr es:[bx+1] ; íá⌐Γ ß¼ÑΘÑ¡¿∩ mov dx,1 ; Γ«½∞¬« íá⌐Γ call form_new_adr ; úÑ¡Ñαáµ¿∩ ¡«ó«ú« áñαÑßá call write_adress ; óδó«ñ ¡«ó«ú« áñαÑßá retn code_70h endp code_80h proc near mov ah,1 inc byte ptr ds:[h_add] ; íπñÑΓ óδí«α¬á i8 call ariph_oper_1 retn code_80h endp code_81h proc near mov ah,2 call ariph_oper_1 retn code_81h endp code_82h proc near mov ah,1 inc byte ptr ds:[h_add] ; íπñÑΓ óδí«α¬á i8 call ariph_oper_2 retn code_82h endp code_83h proc near mov ah,2 inc byte ptr ds:[h_add] ; íπñÑΓ óδí«α¬á i8 call ariph_oper_2 retn code_83h endp code_8ch proc near mov ah,2 call rm_seg_reg retn code_8ch endp code_8dh proc near mov ah,2 call lea_operation retn code_8dh endp code_8eh proc near mov ah,2 call seg_reg_rm retn code_8eh endp code_8fh proc near mov ah,2 call pop_rm_oper retn code_8fh endp code_91h proc near call write_mnemo call simple_record retn code_91h endp code_98h proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_cwde add si,2bh inc cx no_32bit_cwde: call write_mnemo retn code_98h endp code_99h proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_cdq sub si,25h no_32bit_cdq: call write_mnemo retn code_99h endp code_9ah proc near call form_far_record call write_mnemo retn code_9ah endp code_9ch proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_pushfd add si,5 inc cx no_32bit_pushfd: call write_mnemo retn code_9ch endp code_9dh proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_popfd add si,4 inc cx no_32bit_popfd: call write_mnemo retn code_9dh endp code_a0h proc near mov ah,1 call alx_mem8_16 retn code_a0h endp code_a1h proc near mov ah,2 call alx_mem8_16 retn code_a1h endp code_a2h proc near mov ah,1 call mem8_16_alx retn code_a2h endp code_a3h proc near mov ah,2 call mem8_16_alx retn code_a3h endp code_a5h proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_movsd add si,5 no_32bit_movsd: call write_mnemo retn code_a5h endp code_b0h proc near mov ah,1 call alax_bhdi_im8_16 retn code_b0h endp code_b8h proc near mov ah,2 call alax_bhdi_im8_16 retn code_b8h endp code_c0h proc near mov ah,1 call shift_oper_im retn code_c0h endp code_c1h proc near mov ah,2 call shift_oper_im retn code_c1h endp code_c2h proc near mov ah,3 call return_oper retn code_c2h endp code_c3h proc near mov ah,1 call return_oper retn code_c3h endp code_c6h proc near mov ah,1 call this_mem_im8_16 retn code_c6h endp code_c7h proc near mov ah,2 call this_mem_im8_16 retn code_c7h endp code_c8h proc near call count_detect inc byte ptr ds:[h_add] call write_mnemo mov si, offset string add si,27 call insert_number inc si mov byte ptr ds:[si], 2ch ; ',' inc si push bx add bx,2 cmp byte ptr ds:[cpu_mode_1], 0 jz d32_@_enter add bx,2 d32_@_enter: call insert_byte_num pop bx retn code_c8h endp code_cah proc near mov ah,4 call return_oper retn code_cah endp code_cbh proc near mov ah,2 call return_oper retn code_cbh endp code_cdh proc near mov al, byte ptr es:[bx] cmp al,0cch ; int 3 ? jz one_byte_int inc byte ptr ds:[h_add] ; »½εß ¡«¼Ñα »αÑαδóá¡¿∩ call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ xor ax,ax mov al,byte ptr es:[bx+1] ; óδí¿αáÑ¼ íá⌐Γ ¡«¼Ñαá print_int: mov si, offset string add si,29 ; Σ«α¼¿απÑ¼ ß¼ÑΘÑ¡¿Ñ mov byte ptr ds:[si], 68h ; ñ«»¿ßδóáÑ¼ 'h' dec si call conv_to_hex ; »αÑ«íαáº«óδóáÑ¼ ó ßΓα«¬π retn one_byte_int: call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ xor ax,ax mov al,3 ; debugger int 3 jmp short print_int code_cdh endp code_cfh proc near cmp byte ptr ds:[cpu_mode_1], 0 jz no_32bit_iretd add si,4 inc cx no_32bit_iretd: call write_mnemo retn code_cfh endp code_d0h proc near mov ah,1 call shift_oper_1 retn code_d0h endp code_d1h proc near mov ah,2 call shift_oper_1 retn code_d1h endp code_d2h proc near mov ah,1 call shift_oper_cl retn code_d2h endp code_d3h proc near mov ah,2 call shift_oper_cl retn code_d3h endp code_d4h proc near inc byte ptr ds:[h_add] call write_mnemo retn code_d4h endp code_d6h proc near call this_db retn code_d6h endp code_d8h proc near call write_mnemo retn code_d8h endp code_e4h proc near push cx push si inc byte ptr ds:[h_add] mov di, offset string add di,27 ; »Ñαóδ⌐ íá⌐Γ ¬«¼á¡ñδ cmp byte ptr ds:[cpu_mode_1], 1 jz d32_in_i8_oper mov si, offset command_regist xor ax,ax mov al, byte ptr es:[bx] cmp al,0e4h jz no_@_in_corr add si,16 no_@_in_corr: push es push ds pop es cld movsw pop es jmp short in_i8_continue d32_in_i8_oper: mov si, offset com_386_regist mov cx,3 push es push ds pop es cld rep movsb pop es in_i8_continue: mov byte ptr ds:[di], 2ch ; ',' inc di mov si,di call insert_byte_num pop si pop cx call write_mnemo ; óδó«ñ ¼¡Ñ¼«¬«¼á¡ñπ retn code_e4h endp code_e6h proc near push cx push si inc byte ptr ds:[h_add] mov byte ptr ds:[byte_word], 1 mov di, offset string add di,27 ; »Ñαóδ⌐ íá⌐Γ ¬«¼á¡ñδ mov si,di call insert_byte_num add di,3 mov byte ptr ds:[di], 2ch ; ',' inc di xor ax,ax mov al, byte ptr es:[bx] cmp al,0e7h ; ¬«ñ ¬«¼á¡ñδ 0e7h ? jnz no_word_out mov byte ptr ds:[byte_word], 2 ; ß½«ó« no_word_out: call mode_detect ; óδó«ñ al (ax) pop si pop cx call write_mnemo ; óδó«ñ ¼¡Ñ¼«¬«¼á¡ñπ retn code_e6h endp code_e8h proc near add byte ptr ds:[h_add], 2 ; »½εß 2 íá⌐Γá ß¼ÑΘÑ¡¿∩ call write_mnemo ; óδó«ñ ¼¡Ñ¼«¡¿¬¿ ¬«¼á¡ñδ call form_curr_adr ; Σ«α¼¿α«óá¡¿Ñ ΓÑ¬πΘÑú« áñαÑßá xor ax,ax mov ax, word ptr es:[bx+1] ; ß½«ó« ß¼ÑΘÑ¡¿∩ mov dx,2 ; ß½«ó« óδíαáΓ∞ call form_new_adr ; úÑ¡Ñαáµ¿∩ ¡«ó«ú« áñαÑßá call write_adress ; óδó«ñ ¡«ó«ú« áñαÑßá retn code_e8h endp code_ech proc near mov byte ptr ds:[byte_word], 1 xor ax,ax mov al, byte ptr es:[bx] cmp al,0ech jz this_in_al_dx mov byte ptr ds:[byte_word], 2 this_in_al_dx: call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ mov di, offset string ; Σ«α¼¿απÑ¼ ß¼ÑΘÑ¡¿Ñ ñ½∩ add di,27 ; óδó«ñá call write_al_ax ; óδó«ñ al(ax) mov word ptr ds:[di], 7864h ; 'dx' retn code_ech endp code_eeh proc near mov di, offset string add di,27 ; »Ñαóδ⌐ íá⌐Γ ¬«¼á¡ñδ mov word ptr ds:[di], 7864h ; 'dx' inc di inc di mov byte ptr ds:[di], 2ch ; ',' inc di cmp byte ptr ds:[cpu_mode_1], 1 jz d32_out mov word ptr ds:[di], 'la' ; al xor ax,ax mov al, byte ptr es:[bx] cmp al,0eeh jz this_out_dx_al mov word ptr ds:[di], 'xa' ; ax jmp short this_out_dx_al d32_out: mov word ptr ds:[di], 'ae' ; eax mov byte ptr ds:[di+2], 'x' this_out_dx_al: call write_mnemo ; óδó«ñ ¼¡Ñ¼«¬«¼á¡ñπ retn code_eeh endp code_f2h proc near xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá mov di, offset system_table add di,ax xor dx,dx mov dl, byte ptr ds:[di] and dx,0010h cmp dx,10h jz repeat call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ retn repeat: inc byte ptr ds:[h_add] ; ñ½¿¡á ¬«¼á¡ñδ = 2 call write_mnemo ; óδó«ñ¿¼ ¼¡Ñ¼«¬«¼á¡ñπ xor ax,ax mov al, byte ptr es:[bx+1] ; al = íá⌐Γ ¬«ñá push ax ; ==> ß«σαá¡¿¼ ß¼ÑΘÑ¡¿Ñ ¬«ñá shl ax,1 ; ß¼ÑΘÑ¡¿Ñ ó Γáí½¿µÑ ß½«ó ! mov si, offset offset_table ; »«½πτ¿¼ ß¼ÑΘÑ¡¿Ñ ó add si,ax mov ax, word ptr ds:[si] mov si, offset command_symbol add si,ax pop ax ; <== óδíÑαÑ¼ ß¼ÑΘÑ¡¿Ñ push si ; ===> ß«σαá¡¿¼ ¡á ßΓÑ¬Ñ mov si, offset length_table add si,ax xor cx,cx mov cl, byte ptr ds:[si] pop si ; <=== óδí«α¬á ß¼ÑΘÑ¡¿∩ mov di, offset string add di,27 ; óδτ¿ß½¿¼ ß¼ÑΘÑ¡¿Ñ cmp byte ptr ds:[cpu_mode_1], 0 jz d32_rep xor ax,ax mov al, byte ptr es:[bx+1] push ax push di mov di, offset system_table add di,ax xor dx,dx mov dl, byte ptr ds:[di] pop di pop ax and dx,0008h cmp dx,8 jnz d32_rep cmp al,6dh jnz no_insw dec si no_insw: add si,5 d32_rep: push es push cs pop es cld ; ßíα«ß¿¼ Σ½áú ¡á»αáó½Ñ¡¿∩ rep movsb ; »ÑαÑΦ½Ñ¼ íá⌐Γδ pop es retn code_f2h endp code_f6h proc near mov ah,1 call ariph_group_1 retn code_f6h endp code_f7h proc near mov ah,2 call ariph_group_1 retn code_f7h endp code_feh proc near mov ah,1 call ariph_group_2 retn code_feh endp code_ffh proc near mov ah,2 call ariph_group_3 retn code_ffh endp