; flat assembler interface for Win32 ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. format PE console start: mov [con_handle],STD_OUTPUT_HANDLE mov esi,_logo call display_string call get_params jc information call init_memory mov esi,_memory_prefix call display_string mov eax,[memory_end] sub eax,[memory_start] add eax,[additional_memory_end] sub eax,[additional_memory] shr eax,10 call display_number mov esi,_memory_suffix call display_string call [GetTickCount] mov [start_time],eax call preprocessor call parser call assembler call formatter call display_user_messages movzx eax,[current_pass] inc eax call display_number mov esi,_passes_suffix call display_string call [GetTickCount] sub eax,[start_time] xor edx,edx mov ebx,100 div ebx or eax,eax jz display_bytes_count xor edx,edx mov ebx,10 div ebx push edx call display_number mov dl,'.' call display_character pop eax call display_number mov esi,_seconds_suffix call display_string display_bytes_count: mov eax,[written_size] call display_number mov esi,_bytes_suffix call display_string xor al,al jmp exit_program information: mov esi,_usage call display_string mov al,1 jmp exit_program get_params: mov [input_file],0 mov [output_file],0 mov [symbols_file],0 mov [memory_setting],0 mov [passes_limit],100 call [GetCommandLine] mov esi,eax mov edi,params find_command_start: lodsb cmp al,20h je find_command_start cmp al,22h je skip_quoted_name skip_name: lodsb cmp al,20h je find_param or al,al jz all_params jmp skip_name skip_quoted_name: lodsb cmp al,22h je find_param or al,al jz all_params jmp skip_quoted_name find_param: lodsb cmp al,20h je find_param cmp al,'-' je option_param cmp al,0Dh je all_params or al,al jz all_params cmp [input_file],0 jne get_output_file mov [input_file],edi jmp process_param get_output_file: cmp [output_file],0 jne bad_params mov [output_file],edi process_param: cmp al,22h je string_param copy_param: stosb lodsb cmp al,20h je param_end cmp al,0Dh je param_end or al,al jz param_end jmp copy_param string_param: lodsb cmp al,22h je string_param_end cmp al,0Dh je param_end or al,al jz param_end stosb jmp string_param option_param: lodsb cmp al,'m' je memory_option cmp al,'M' je memory_option cmp al,'p' je passes_option cmp al,'P' je passes_option cmp al,'s' je symbols_option cmp al,'S' je symbols_option bad_params: stc ret get_option_value: xor eax,eax mov edx,eax get_option_digit: lodsb cmp al,20h je option_value_ok cmp al,0Dh je option_value_ok or al,al jz option_value_ok sub al,30h jc invalid_option_value cmp al,9 ja invalid_option_value imul edx,10 jo invalid_option_value add edx,eax jc invalid_option_value jmp get_option_digit option_value_ok: dec esi clc ret invalid_option_value: stc ret memory_option: lodsb cmp al,20h je memory_option cmp al,0Dh je bad_params or al,al jz bad_params dec esi call get_option_value or edx,edx jz bad_params cmp edx,1 shl (32-10) jae bad_params mov [memory_setting],edx jmp find_param passes_option: lodsb cmp al,20h je passes_option cmp al,0Dh je bad_params or al,al jz bad_params dec esi call get_option_value or edx,edx jz bad_params cmp edx,10000h ja bad_params mov [passes_limit],dx jmp find_param symbols_option: mov [symbols_file],edi find_symbols_file_name: lodsb cmp al,20h jne process_param jmp find_symbols_file_name param_end: dec esi string_param_end: xor al,al stosb jmp find_param all_params: cmp [input_file],0 je bad_params clc ret ; --------------- "system.inc" ---------------- ; CREATE_NEW = 1 CREATE_ALWAYS = 2 OPEN_EXISTING = 3 OPEN_ALWAYS = 4 TRUNCATE_EXISTING = 5 FILE_SHARE_READ = 1 FILE_SHARE_WRITE = 2 FILE_SHARE_DELETE = 4 GENERIC_READ = 80000000h GENERIC_WRITE = 40000000h STD_INPUT_HANDLE = 0FFFFFFF6h STD_OUTPUT_HANDLE = 0FFFFFFF5h STD_ERROR_HANDLE = 0FFFFFFF4h MEM_COMMIT = 1000h MEM_RESERVE = 2000h MEM_DECOMMIT = 4000h MEM_RELEASE = 8000h MEM_FREE = 10000h MEM_PRIVATE = 20000h MEM_MAPPED = 40000h MEM_RESET = 80000h MEM_TOP_DOWN = 100000h PAGE_NOACCESS = 1 PAGE_READONLY = 2 PAGE_READWRITE = 4 PAGE_WRITECOPY = 8 PAGE_EXECUTE = 10h PAGE_EXECUTE_READ = 20h PAGE_EXECUTE_READWRITE = 40h PAGE_EXECUTE_WRITECOPY = 80h PAGE_GUARD = 100h PAGE_NOCACHE = 200h init_memory: xor eax,eax mov [memory_start],eax mov eax,esp and eax,not 0FFFh add eax,1000h-10000h mov [stack_limit],eax mov eax,[memory_setting] shl eax,10 jnz allocate_memory push buffer call [GlobalMemoryStatus] mov eax,dword [buffer+20] shr eax,2 add eax,dword [buffer+12] allocate_memory: mov edx,eax shr edx,2 mov ecx,eax sub ecx,edx mov [memory_end],ecx mov [additional_memory_end],edx push PAGE_READWRITE push MEM_COMMIT push eax push 0 call [VirtualAlloc] or eax,eax jz not_enough_memory mov [memory_start],eax add eax,[memory_end] mov [memory_end],eax mov [additional_memory],eax add [additional_memory_end],eax ret not_enough_memory: mov eax,[additional_memory_end] shl eax,1 cmp eax,4000h jb out_of_memory jmp allocate_memory exit_program: movzx eax,al push eax mov eax,[memory_start] test eax,eax jz do_exit push MEM_RELEASE push 0 push eax call [VirtualFree] do_exit: call [ExitProcess] get_environment_variable: mov ecx,[memory_end] sub ecx,edi cmp ecx,4000h jbe buffer_for_variable_ok mov ecx,4000h buffer_for_variable_ok: push ecx push edi push esi call [GetEnvironmentVariable] add edi,eax cmp edi,[memory_end] jae out_of_memory ret open: push 0 push 0 push OPEN_EXISTING push 0 push FILE_SHARE_READ push GENERIC_READ push edx call [CreateFile] cmp eax,-1 je file_error mov ebx,eax clc ret file_error: stc ret create: push 0 push 0 push CREATE_ALWAYS push 0 push FILE_SHARE_READ push GENERIC_WRITE push edx call [CreateFile] cmp eax,-1 je file_error mov ebx,eax clc ret write: push 0 push bytes_count push ecx push edx push ebx call [WriteFile] or eax,eax jz file_error clc ret read: mov ebp,ecx push 0 push bytes_count push ecx push edx push ebx call [ReadFile] or eax,eax jz file_error cmp ebp,[bytes_count] jne file_error clc ret close: push ebx call [CloseHandle] ret lseek: movzx eax,al push eax push 0 push edx push ebx call [SetFilePointer] ret display_string: push [con_handle] call [GetStdHandle] mov ebp,eax mov edi,esi or ecx,-1 xor al,al repne scasb neg ecx sub ecx,2 push 0 push bytes_count push ecx push esi push ebp call [WriteFile] ret display_character: push ebx mov [character],dl push [con_handle] call [GetStdHandle] mov ebx,eax push 0 push bytes_count push 1 push character push ebx call [WriteFile] pop ebx ret display_number: push ebx mov ecx,1000000000 xor edx,edx xor bl,bl display_loop: div ecx push edx cmp ecx,1 je display_digit or bl,bl jnz display_digit or al,al jz digit_ok not bl display_digit: mov dl,al add dl,30h push ecx call display_character pop ecx digit_ok: mov eax,ecx xor edx,edx mov ecx,10 div ecx mov ecx,eax pop eax or ecx,ecx jnz display_loop pop ebx ret display_user_messages: mov [displayed_count],0 call show_display_buffer cmp [displayed_count],1 jb line_break_ok je make_line_break mov ax,word [last_displayed] cmp ax,0A0Dh je line_break_ok cmp ax,0D0Ah je line_break_ok make_line_break: mov word [buffer],0A0Dh push [con_handle] call [GetStdHandle] push 0 push bytes_count push 2 push buffer push eax call [WriteFile] line_break_ok: ret display_block: add [displayed_count],ecx cmp ecx,1 ja take_last_two_characters jb block_displayed mov al,[last_displayed+1] mov ah,[esi] mov word [last_displayed],ax jmp block_ok take_last_two_characters: mov ax,[esi+ecx-2] mov word [last_displayed],ax block_ok: push ecx push [con_handle] call [GetStdHandle] pop ecx push 0 push bytes_count push ecx push esi push eax call [WriteFile] block_displayed: ret fatal_error: mov [con_handle],STD_ERROR_HANDLE mov esi,error_prefix call display_string pop esi call display_string mov esi,error_suffix call display_string mov al,0FFh jmp exit_program assembler_error: mov [con_handle],STD_ERROR_HANDLE call display_user_messages push dword 0 mov ebx,[current_line] get_error_lines: mov eax,[ebx] cmp byte [eax],0 je get_next_error_line push ebx test byte [ebx+7],80h jz display_error_line mov edx,ebx find_definition_origin: mov edx,[edx+12] test byte [edx+7],80h jnz find_definition_origin push edx get_next_error_line: mov ebx,[ebx+8] jmp get_error_lines display_error_line: mov esi,[ebx] call display_string mov esi,line_number_start call display_string mov eax,[ebx+4] and eax,7FFFFFFFh call display_number mov dl,']' call display_character pop esi cmp ebx,esi je line_number_ok mov dl,20h call display_character push esi mov esi,[esi] movzx ecx,byte [esi] inc esi call display_block mov esi,line_number_start call display_string pop esi mov eax,[esi+4] and eax,7FFFFFFFh call display_number mov dl,']' call display_character line_number_ok: mov esi,line_data_start call display_string mov esi,ebx mov edx,[esi] call open mov al,2 xor edx,edx call lseek mov edx,[esi+8] sub eax,edx push eax xor al,al call lseek mov ecx,[esp] mov edx,[additional_memory] lea eax,[edx+ecx] cmp eax,[additional_memory_end] ja out_of_memory call read call close pop ecx mov esi,[additional_memory] get_line_data: mov al,[esi] cmp al,0Ah je display_line_data cmp al,0Dh je display_line_data cmp al,1Ah je display_line_data or al,al jz display_line_data inc esi loop get_line_data display_line_data: mov ecx,esi mov esi,[additional_memory] sub ecx,esi call display_block mov esi,cr_lf call display_string pop ebx or ebx,ebx jnz display_error_line mov esi,error_prefix call display_string pop esi call display_string mov esi,error_suffix call display_string mov al,2 jmp exit_program make_timestamp: push buffer call [GetSystemTime] movzx ecx,word [buffer] mov eax,ecx sub eax,1970 mov ebx,365 mul ebx mov ebp,eax mov eax,ecx sub eax,1969 shr eax,2 add ebp,eax mov eax,ecx sub eax,1901 mov ebx,100 div ebx sub ebp,eax mov eax,ecx xor edx,edx sub eax,1601 mov ebx,400 div ebx add ebp,eax movzx ecx,word [buffer+2] mov eax,ecx dec eax mov ebx,30 mul ebx add ebp,eax cmp ecx,8 jbe months_correction mov eax,ecx sub eax,7 shr eax,1 add ebp,eax mov ecx,8 months_correction: mov eax,ecx shr eax,1 add ebp,eax cmp ecx,2 jbe day_correction_ok sub ebp,2 movzx ecx,word [buffer] test ecx,11b jnz day_correction_ok xor edx,edx mov eax,ecx mov ebx,100 div ebx or edx,edx jnz day_correction mov eax,ecx mov ebx,400 div ebx or edx,edx jnz day_correction_ok day_correction: inc ebp day_correction_ok: movzx eax,word [buffer+6] dec eax add eax,ebp mov ebx,24 mul ebx movzx ecx,word [buffer+8] add eax,ecx mov ebx,60 mul ebx movzx ecx,word [buffer+10] add eax,ecx mov ebx,60 mul ebx movzx ecx,word [buffer+12] add eax,ecx adc edx,0 ret character db ? bytes_count dd ? displayed_count dd ? last_displayed rb 2 error_prefix db 'error: ',0 error_suffix db '.' cr_lf db 0Dh,0Ah,0 line_number_start db ' [',0 line_data_start db ':',0Dh,0Ah,0 ; --------------- "system.inc" ---------------- ; ; --------------- "version.inc" ---------------- ; VERSION_STRING equ "1.69.25" VERSION_MAJOR = 1 VERSION_MINOR = 69 ; --------------- "version.inc" ---------------- ; _copyright db 'Copyright (c) 1999-2010, Tomasz Grysztar',0Dh,0Ah,0 _logo db 'flat assembler version ',VERSION_STRING,0 _usage db 0Dh,0Ah db 'usage: fasm [output]',0Dh,0Ah db 'optional settings:',0Dh,0Ah db ' -m set the limit in kilobytes for the available memory',0Dh,0Ah db ' -p set the maximum allowed number of passes',0Dh,0Ah db ' -s dump symbolic information for debugging',0Dh,0Ah db 0 _memory_prefix db ' (',0 _memory_suffix db ' kilobytes memory)',0Dh,0Ah,0 _passes_suffix db ' passes, ',0 _seconds_suffix db ' seconds, ',0 _bytes_suffix db ' bytes.',0Dh,0Ah,0 ; --------------- "version.inc" ---------------- ; ; --------------- "errors.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. out_of_memory: push _out_of_memory jmp fatal_error stack_overflow: push _stack_overflow jmp fatal_error main_file_not_found: push _main_file_not_found jmp fatal_error write_failed: push _write_failed jmp fatal_error unexpected_end_of_file: push _unexpected_end_of_file jmp general_error code_cannot_be_generated: push _code_cannot_be_generated jmp general_error format_limitations_exceeded: push _format_limitations_exceeded general_error: cmp [symbols_file],0 je fatal_error call dump_preprocessed_source jmp fatal_error file_not_found: push _file_not_found jmp error_with_source error_reading_file: push _error_reading_file jmp error_with_source invalid_file_format: push _invalid_file_format jmp error_with_source invalid_macro_arguments: push _invalid_macro_arguments jmp error_with_source incomplete_macro: push _incomplete_macro jmp error_with_source unexpected_characters: push _unexpected_characters jmp error_with_source invalid_argument: push _invalid_argument jmp error_with_source illegal_instruction: push _illegal_instruction jmp error_with_source invalid_operand: push _invalid_operand jmp error_with_source invalid_operand_size: push _invalid_operand_size jmp error_with_source operand_size_not_specified: push _operand_size_not_specified jmp error_with_source operand_sizes_do_not_match: push _operand_sizes_do_not_match jmp error_with_source invalid_address_size: push _invalid_address_size jmp error_with_source address_sizes_do_not_agree: push _address_sizes_do_not_agree jmp error_with_source prefix_conflict: push _prefix_conflict jmp error_with_source long_immediate_not_encodable: push _long_immediate_not_encodable jmp error_with_source relative_jump_out_of_range: push _relative_jump_out_of_range jmp error_with_source invalid_expression: push _invalid_expression jmp error_with_source invalid_address: push _invalid_address jmp error_with_source invalid_value: push _invalid_value jmp error_with_source value_out_of_range: push _value_out_of_range jmp error_with_source undefined_symbol: mov edi,message mov esi,_undefined_symbol call copy_asciiz push message cmp [error_info],0 je error_with_source mov byte [edi-1],20h call write_quoted_symbol_name jmp error_with_source copy_asciiz: lods byte [esi] stos byte [edi] test al,al jnz copy_asciiz ret write_quoted_symbol_name: mov al,27h stosb mov esi,[error_info] movzx ecx,byte [esi-1] rep movs byte [edi],[esi] mov ax,27h stosw ret symbol_out_of_scope: mov edi,message mov esi,_symbol_out_of_scope_1 call copy_asciiz cmp [error_info],0 je finish_symbol_out_of_scope_message mov byte [edi-1],20h call write_quoted_symbol_name finish_symbol_out_of_scope_message: mov byte [edi-1],20h mov esi,_symbol_out_of_scope_2 call copy_asciiz push message jmp error_with_source invalid_use_of_symbol: push _invalid_use_of_symbol jmp error_with_source name_too_long: push _name_too_long jmp error_with_source invalid_name: push _invalid_name jmp error_with_source reserved_word_used_as_symbol: push _reserved_word_used_as_symbol jmp error_with_source symbol_already_defined: push _symbol_already_defined jmp error_with_source missing_end_quote: push _missing_end_quote jmp error_with_source missing_end_directive: push _missing_end_directive jmp error_with_source unexpected_instruction: push _unexpected_instruction jmp error_with_source extra_characters_on_line: push _extra_characters_on_line jmp error_with_source section_not_aligned_enough: push _section_not_aligned_enough jmp error_with_source setting_already_specified: push _setting_already_specified jmp error_with_source data_already_defined: push _data_already_defined jmp error_with_source too_many_repeats: push _too_many_repeats jmp error_with_source invoked_error: push _invoked_error error_with_source: cmp [symbols_file],0 je assembler_error call dump_preprocessed_source call restore_preprocessed_source jmp assembler_error ; --------------- "errors.inc" ---------------- ; ; --------------- "symbdump.inc" ---------------- ; dump_symbols: mov edi,[code_start] call setup_dump_header mov esi,[input_file] call copy_asciiz cmp edi,[display_buffer] jae out_of_memory mov eax,edi sub eax,ebx mov [ebx-38h+0Ch],eax mov esi,[output_file] call copy_asciiz cmp edi,[display_buffer] jae out_of_memory mov edx,[symbols_stream] mov ebp,[free_additional_memory] mov [number_of_sections],0 cmp [output_format],4 je prepare_strings_table cmp [output_format],5 jne strings_table_ready bt [format_flags],0 jc strings_table_ready prepare_strings_table: cmp edx,ebp je strings_table_ready mov al,[edx] test al,al jz prepare_string cmp al,80h je prepare_string add edx,0Ch cmp al,0C0h jb prepare_strings_table add edx,4 jmp prepare_strings_table prepare_string: mov esi,edi sub esi,ebx xchg esi,[edx+4] test al,al jz prepare_section_string or dword [edx+4],1 shl 31 add edx,0Ch prepare_external_string: mov ecx,[esi] add esi,4 rep movs byte [edi],[esi] mov byte [edi],0 inc edi cmp edi,[display_buffer] jae out_of_memory jmp prepare_strings_table prepare_section_string: mov ecx,[number_of_sections] mov eax,ecx inc eax mov [number_of_sections],eax xchg eax,[edx+4] shl ecx,2 add ecx,[free_additional_memory] mov [ecx],eax add edx,20h test esi,esi jz prepare_default_section_string cmp [output_format],5 jne prepare_external_string bt [format_flags],0 jc prepare_external_string mov esi,[esi] add esi,[resource_data] copy_elf_section_name: lods byte [esi] cmp edi,[display_buffer] jae out_of_memory stos byte [edi] test al,al jnz copy_elf_section_name jmp prepare_strings_table prepare_default_section_string: mov eax,'.fla' stos dword [edi] mov ax,'t' stos word [edi] cmp edi,[display_buffer] jae out_of_memory jmp prepare_strings_table strings_table_ready: mov edx,[display_buffer] mov ebp,[memory_end] sub ebp,[labels_list] add ebp,edx prepare_labels_dump: cmp edx,ebp je labels_dump_ok mov eax,[edx+24] test eax,eax jz label_dump_name_ok cmp eax,[memory_start] jb label_name_outside_source cmp eax,[source_start] ja label_name_outside_source sub eax,[memory_start] dec eax mov [edx+24],eax jmp label_dump_name_ok label_name_outside_source: mov esi,eax mov eax,edi sub eax,ebx or eax,1 shl 31 mov [edx+24],eax movzx ecx,byte [esi-1] lea eax,[edi+ecx+1] cmp edi,[display_buffer] jae out_of_memory rep movsb xor al,al stosb label_dump_name_ok: mov eax,[edx+28] test eax,eax jz label_dump_line_ok sub eax,[memory_start] mov [edx+28],eax label_dump_line_ok: mov eax,[edx+20] test eax,eax jz base_symbol_for_label_ok cmp eax,[symbols_stream] mov eax,[eax+4] jae base_symbol_for_label_ok xor eax,eax base_symbol_for_label_ok: mov [edx+20],eax mov ax,[current_pass] cmp ax,[edx+16] je label_defined_flag_ok and byte [edx+8],not 1 label_defined_flag_ok: cmp ax,[edx+18] je label_used_flag_ok and byte [edx+8],not 8 label_used_flag_ok: add edx,LABEL_STRUCTURE_SIZE jmp prepare_labels_dump labels_dump_ok: mov eax,edi sub eax,ebx mov [ebx-38h+14h],eax add eax,38h mov [ebx-38h+18h],eax mov ecx,[memory_end] sub ecx,[labels_list] mov [ebx-38h+1Ch],ecx add eax,ecx mov [ebx-38h+20h],eax mov ecx,[source_start] sub ecx,[memory_start] mov [ebx-38h+24h],ecx add eax,ecx mov [ebx-38h+28h],eax mov eax,[number_of_sections] shl eax,2 mov [ebx-38h+34h],eax call prepare_preprocessed_source mov esi,[labels_list] mov ebp,edi make_lines_dump: cmp esi,[display_buffer] je lines_dump_ok mov eax,[esi-4] mov ecx,[esi-8] sub esi,8 sub esi,ecx cmp eax,1 jne make_lines_dump mov eax,[esi+4] sub eax,[code_start] add eax,[headers_size] cmp byte [esi+1Ah],0 je store_offset xor eax,eax store_offset: stos dword [edi] mov eax,[esi] sub eax,[memory_start] stos dword [edi] mov eax,[esi+4] xor edx,edx sub eax,[esi+8] sbb edx,[esi+8+4] stos dword [edi] mov eax,edx stos dword [edi] mov eax,[esi+10h] stos dword [edi] mov eax,[esi+14h] test eax,eax jz base_symbol_for_line_ok cmp eax,[symbols_stream] mov eax,[eax+4] jae base_symbol_for_line_ok xor eax,eax base_symbol_for_line_ok: stos dword [edi] mov eax,[esi+18h] and eax,001FFFFh stos dword [edi] jmp make_lines_dump lines_dump_ok: mov edx,edi mov eax,[current_offset] sub eax,[code_start] add eax,[headers_size] stos dword [edi] mov ecx,edi sub ecx,ebx sub ecx,[ebx-38h+14h] mov [ebx-38h+2Ch],ecx add ecx,[ebx-38h+28h] mov [ebx-38h+30h],ecx find_inexisting_offsets: sub edx,1Ch cmp edx,ebp jb write_symbols test byte [edx+1Ah],1 jnz find_inexisting_offsets cmp eax,[edx] jb correct_inexisting_offset mov eax,[edx] jmp find_inexisting_offsets correct_inexisting_offset: mov dword [edx],0 or byte [edx+1Ah],2 jmp find_inexisting_offsets write_symbols: mov edx,[symbols_file] call create jc write_failed mov edx,[code_start] mov ecx,[edx+14h] add ecx,38h call write mov edx,[display_buffer] mov ecx,[memory_end] sub ecx,[labels_list] call write mov edx,[memory_start] mov ecx,[source_start] sub ecx,edx call write mov edx,ebp mov ecx,edi sub ecx,edx call write mov edx,[free_additional_memory] mov ecx,[number_of_sections] shl ecx,2 call write call close ret setup_dump_header: xor eax,eax mov ecx,38h shr 2 rep stos dword [edi] mov ebx,edi mov dword [ebx-38h],'fas'+1Ah shl 24 mov dword [ebx-38h+4],VERSION_MAJOR + VERSION_MINOR shl 8 + 38h shl 16 mov dword [ebx-38h+10h],38h ret prepare_preprocessed_source: mov esi,[memory_start] mov ebp,[source_start] test ebp,ebp jnz prepare_preprocessed_line mov ebp,[current_line] inc ebp prepare_preprocessed_line: cmp esi,ebp jae preprocessed_source_ok mov eax,[memory_start] mov edx,[input_file] cmp [esi],edx jne line_not_from_main_input mov [esi],eax line_not_from_main_input: sub [esi],eax test byte [esi+7],1 shl 7 jz prepare_next_preprocessed_line sub [esi+8],eax sub [esi+12],eax prepare_next_preprocessed_line: call skip_preprocessed_line jmp prepare_preprocessed_line preprocessed_source_ok: ret skip_preprocessed_line: add esi,16 skip_preprocessed_line_content: lods byte [esi] cmp al,1Ah je skip_preprocessed_symbol cmp al,3Bh je skip_preprocessed_symbol cmp al,22h je skip_preprocessed_string or al,al jnz skip_preprocessed_line_content ret skip_preprocessed_string: lods dword [esi] add esi,eax jmp skip_preprocessed_line_content skip_preprocessed_symbol: lods byte [esi] movzx eax,al add esi,eax jmp skip_preprocessed_line_content restore_preprocessed_source: mov esi,[memory_start] mov ebp,[source_start] test ebp,ebp jnz restore_preprocessed_line mov ebp,[current_line] inc ebp restore_preprocessed_line: cmp esi,ebp jae preprocessed_source_restored mov eax,[memory_start] add [esi],eax cmp [esi],eax jne preprocessed_line_source_restored mov edx,[input_file] mov [esi],edx preprocessed_line_source_restored: test byte [esi+7],1 shl 7 jz restore_next_preprocessed_line add [esi+8],eax add [esi+12],eax restore_next_preprocessed_line: call skip_preprocessed_line jmp restore_preprocessed_line preprocessed_source_restored: ret dump_preprocessed_source: mov edi,[free_additional_memory] call setup_dump_header mov esi,[input_file] call copy_asciiz cmp edi,[additional_memory_end] jae out_of_memory mov eax,edi sub eax,ebx dec eax mov [ebx-38h+0Ch],eax mov eax,edi sub eax,ebx mov [ebx-38h+14h],eax add eax,38h mov [ebx-38h+20h],eax call prepare_preprocessed_source sub esi,[memory_start] mov [ebx-38h+24h],esi mov edx,[symbols_file] call create jc write_failed mov edx,[free_additional_memory] mov ecx,[edx+14h] add ecx,38h call write mov edx,[memory_start] mov ecx,esi call write call close ret ; --------------- "symbdump.inc" ---------------- ; ; --------------- "preproce.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. preprocessor: mov edi,characters xor al,al make_characters_table: stosb inc al jnz make_characters_table mov esi,characters+'a' mov edi,characters+'A' mov ecx,26 rep movsb mov edi,characters mov esi,symbol_characters+1 movzx ecx,byte [esi-1] xor eax,eax mark_symbol_characters: lodsb mov byte [edi+eax],0 loop mark_symbol_characters mov edi,locals_counter mov ax,1 + '0' shl 8 stos word [edi] mov edi,[memory_start] mov [include_paths],edi mov esi,include_variable call get_environment_variable xor al,al stos byte [edi] mov [memory_start],edi mov eax,[additional_memory] mov [free_additional_memory],eax mov eax,[additional_memory_end] mov [labels_list],eax xor eax,eax mov [source_start],eax mov [display_buffer],eax mov [hash_tree],eax mov [macro_status],al mov esi,[input_file] mov edx,esi call open jc main_file_not_found mov edi,[memory_start] call preprocess_file mov eax,[error_line] mov [current_line],eax cmp [macro_status],0 jne incomplete_macro mov [source_start],edi ret preprocess_file: push [memory_end] push esi mov al,2 xor edx,edx call lseek push eax xor al,al xor edx,edx call lseek pop ecx mov edx,[memory_end] dec edx mov byte [edx],1Ah sub edx,ecx jc out_of_memory mov esi,edx cmp edx,edi jbe out_of_memory mov [memory_end],edx call read call close pop edx xor ecx,ecx mov ebx,esi preprocess_source: inc ecx mov [current_line],edi mov eax,edx stos dword [edi] mov eax,ecx stos dword [edi] mov eax,esi sub eax,ebx stos dword [edi] xor eax,eax stos dword [edi] push ebx edx call convert_line call preprocess_line pop edx ebx next_line: cmp byte [esi-1],1Ah jne preprocess_source file_end: pop [memory_end] clc ret convert_line: push ecx test [macro_status],0Fh jz convert_line_data mov ax,3Bh stos word [edi] convert_line_data: cmp edi,[memory_end] jae out_of_memory lods byte [esi] cmp al,20h je convert_line_data cmp al,9 je convert_line_data mov ah,al mov ebx,characters xlat byte [ebx] or al,al jz convert_separator cmp ah,27h je convert_string cmp ah,22h je convert_string mov byte [edi],1Ah scas word [edi] xchg al,ah stos byte [edi] mov ebx,characters xor ecx,ecx convert_symbol: lods byte [esi] stos byte [edi] xlat byte [ebx] or al,al loopnzd convert_symbol neg ecx cmp ecx,255 ja name_too_long mov ebx,edi sub ebx,ecx mov byte [ebx-2],cl found_separator: dec edi mov ah,[esi-1] convert_separator: xchg al,ah cmp al,20h jb control_character je convert_line_data symbol_character: cmp al,3Bh je ignore_comment cmp al,5Ch je backslash_character stos byte [edi] jmp convert_line_data control_character: cmp al,1Ah je line_end cmp al,0Dh je cr_character cmp al,0Ah je lf_character cmp al,9 je convert_line_data or al,al jnz symbol_character jmp line_end lf_character: lods byte [esi] cmp al,0Dh je line_end dec esi jmp line_end cr_character: lods byte [esi] cmp al,0Ah je line_end dec esi jmp line_end convert_string: mov al,22h stos byte [edi] scas dword [edi] mov ebx,edi copy_string: lods byte [esi] stos byte [edi] cmp al,0Ah je missing_end_quote cmp al,0Dh je missing_end_quote or al,al jz missing_end_quote cmp al,1Ah je missing_end_quote cmp al,ah jne copy_string lods byte [esi] cmp al,ah je copy_string dec esi dec edi mov eax,edi sub eax,ebx mov [ebx-4],eax jmp convert_line_data backslash_character: mov byte [edi],0 lods byte [esi] cmp al,20h je concatenate_lines cmp al,9 je concatenate_lines cmp al,1Ah je unexpected_end_of_file cmp al,0Ah je concatenate_lf cmp al,0Dh je concatenate_cr cmp al,3Bh je find_concatenated_line mov al,1Ah stos byte [edi] mov ecx,edi mov ax,5C01h stos word [edi] dec esi group_backslashes: lods byte [esi] cmp al,5Ch jne backslashed_symbol stos byte [edi] inc byte [ecx] jmp group_backslashes backslashed_symbol: cmp al,1Ah je unexpected_end_of_file cmp al,0Ah je extra_characters_on_line cmp al,0Dh je extra_characters_on_line cmp al,20h je extra_characters_on_line cmp al,9 je extra_characters_on_line cmp al,22h je extra_characters_on_line cmp al,27h je extra_characters_on_line cmp al,3Bh je extra_characters_on_line mov ah,al mov ebx,characters xlat byte [ebx] or al,al jz backslashed_symbol_character mov al,ah convert_backslashed_symbol: stos byte [edi] xlat byte [ebx] or al,al jz found_separator inc byte [ecx] jz name_too_long lods byte [esi] jmp convert_backslashed_symbol backslashed_symbol_character: mov al,ah stos byte [edi] inc byte [ecx] jmp convert_line_data concatenate_lines: lods byte [esi] cmp al,20h je concatenate_lines cmp al,9 je concatenate_lines cmp al,1Ah je unexpected_end_of_file cmp al,0Ah je concatenate_lf cmp al,0Dh je concatenate_cr cmp al,3Bh jne extra_characters_on_line find_concatenated_line: lods byte [esi] cmp al,0Ah je concatenate_lf cmp al,0Dh je concatenate_cr or al,al jz concatenate_ok cmp al,1Ah jne find_concatenated_line jmp unexpected_end_of_file concatenate_lf: lods byte [esi] cmp al,0Dh je concatenate_ok dec esi jmp concatenate_ok concatenate_cr: lods byte [esi] cmp al,0Ah je concatenate_ok dec esi concatenate_ok: inc dword [esp] jmp convert_line_data ignore_comment: lods byte [esi] cmp al,0Ah je lf_character cmp al,0Dh je cr_character or al,al jz line_end cmp al,1Ah jne ignore_comment line_end: xor al,al stos byte [edi] pop ecx ret lower_case: mov edi,converted mov ebx,characters convert_case: lods byte [esi] xlat byte [ebx] stos byte [edi] loop convert_case case_ok: ret get_directive: push edi mov edx,esi mov ebp,ecx call lower_case pop edi scan_directives: mov esi,converted movzx eax,byte [edi] or al,al jz no_directive mov ecx,ebp inc edi mov ebx,edi add ebx,eax mov ah,[esi] cmp ah,[edi] jb no_directive ja next_directive cmp cl,al jne next_directive repe cmps byte [esi],[edi] jb no_directive je directive_ok next_directive: mov edi,ebx add edi,2 jmp scan_directives no_directive: mov esi,edx mov ecx,ebp stc ret directive_ok: lea esi,[edx+ebp] call directive_handler directive_handler: pop ecx movzx eax,word [ebx] add eax,ecx clc ret preprocess_line: mov eax,esp sub eax,100h jc stack_overflow cmp eax,[stack_limit] jb stack_overflow push ecx esi preprocess_current_line: mov esi,[current_line] add esi,16 cmp word [esi],3Bh jne line_start_ok add esi,2 line_start_ok: test [macro_status],0F0h jnz macro_preprocessing cmp byte [esi],1Ah jne not_fix_constant movzx edx,byte [esi+1] lea edx,[esi+2+edx] cmp word [edx],031Ah jne not_fix_constant mov ebx,characters movzx eax,byte [edx+2] xlat byte [ebx] ror eax,8 mov al,[edx+3] xlat byte [ebx] ror eax,8 mov al,[edx+4] xlat byte [ebx] ror eax,16 cmp eax,'fix' je define_fix_constant not_fix_constant: call process_fix_constants jmp initial_preprocessing_ok macro_preprocessing: call process_macro_operators initial_preprocessing_ok: mov esi,[current_line] add esi,16 mov al,[macro_status] test al,2 jnz skip_macro_block test al,1 jnz find_macro_block preprocess_instruction: mov [current_offset],esi lods byte [esi] movzx ecx,byte [esi] inc esi cmp al,1Ah jne not_preprocessor_symbol cmp cl,3 jb not_preprocessor_directive push edi mov edi,preprocessor_directives call get_directive pop edi jc not_preprocessor_directive mov byte [edx-2],3Bh jmp near eax not_preprocessor_directive: xor ch,ch call get_preprocessor_symbol jc not_macro mov byte [ebx-2],3Bh mov [struc_name],0 jmp use_macro not_macro: mov [struc_name],esi add esi,ecx lods byte [esi] cmp al,':' je preprocess_label cmp al,1Ah jne not_preprocessor_symbol lods byte [esi] cmp al,3 jne not_symbolic_constant mov ebx,characters movzx eax,byte [esi] xlat byte [ebx] ror eax,8 mov al,[esi+1] xlat byte [ebx] ror eax,8 mov al,[esi+2] xlat byte [ebx] ror eax,16 cmp eax,'equ' je define_equ_constant mov al,3 not_symbolic_constant: mov ch,1 mov cl,al call get_preprocessor_symbol jc not_preprocessor_symbol push edx esi mov esi,[struc_name] mov [struc_label],esi sub [struc_label],2 mov cl,[esi-1] mov ch,10b call get_preprocessor_symbol jc struc_name_ok mov ecx,[edx+12] add ecx,3 lea ebx,[edi+ecx] mov ecx,edi sub ecx,[struc_label] lea esi,[edi-1] lea edi,[ebx-1] std rep movs byte [edi],[esi] cld mov edi,[struc_label] mov esi,[edx+8] mov ecx,[edx+12] add [struc_name],ecx add [struc_name],3 call move_data mov al,3Ah stos byte [edi] mov ax,3Bh stos word [edi] mov edi,ebx pop esi add esi,[edx+12] add esi,3 pop edx jmp use_macro struc_name_ok: mov edx,[struc_name] movzx eax,byte [edx-1] add edx,eax push edi lea esi,[edi-1] mov ecx,edi sub ecx,edx std rep movs byte [edi],[esi] cld pop edi inc edi mov al,3Ah mov [edx],al inc al mov [edx+1],al pop esi edx inc esi jmp use_macro preprocess_label: dec esi sub esi,ecx lea ebp,[esi-2] mov ch,10b call get_preprocessor_symbol jnc symbolic_constant_in_label lea esi,[esi+ecx+1] jmp preprocess_instruction symbolic_constant_in_label: mov ebx,[edx+8] mov ecx,[edx+12] add ecx,ebx check_for_broken_label: cmp ebx,ecx je label_broken cmp byte [ebx],1Ah jne label_broken movzx eax,byte [ebx+1] lea ebx,[ebx+2+eax] cmp ebx,ecx je label_constant_ok cmp byte [ebx],':' jne label_broken inc ebx jmp check_for_broken_label label_broken: push line_preprocessed jmp replace_symbolic_constant label_constant_ok: mov ecx,edi sub ecx,esi mov edi,[edx+12] add edi,ebp push edi lea eax,[edi+ecx] push eax cmp esi,edi je replace_label jb move_rest_of_line_up rep movs byte [edi],[esi] jmp replace_label move_rest_of_line_up: lea esi,[esi+ecx-1] lea edi,[edi+ecx-1] std rep movs byte [edi],[esi] cld replace_label: mov ecx,[edx+12] mov edi,[esp+4] sub edi,ecx mov esi,[edx+8] rep movs byte [edi],[esi] pop edi esi inc esi jmp preprocess_instruction not_preprocessor_symbol: mov esi,[current_offset] call process_equ_constants line_preprocessed: pop esi ecx ret get_preprocessor_symbol: push ebp edi esi mov ebp,ecx shl ebp,22 movzx ecx,cl mov ebx,hash_tree mov edi,10 follow_hashes_roots: mov edx,[ebx] or edx,edx jz preprocessor_symbol_not_found xor eax,eax shl ebp,1 adc eax,0 lea ebx,[edx+eax*4] dec edi jnz follow_hashes_roots mov edi,ebx call calculate_hash mov ebp,eax and ebp,3FFh shl ebp,10 xor ebp,eax mov ebx,edi mov edi,22 follow_hashes_tree: mov edx,[ebx] or edx,edx jz preprocessor_symbol_not_found xor eax,eax shl ebp,1 adc eax,0 lea ebx,[edx+eax*4] dec edi jnz follow_hashes_tree mov al,cl mov edx,[ebx] or edx,edx jz preprocessor_symbol_not_found compare_with_preprocessor_symbol: mov edi,[edx+4] cmp edi,1 jbe next_equal_hash repe cmps byte [esi],[edi] je preprocessor_symbol_found mov cl,al mov esi,[esp] next_equal_hash: mov edx,[edx] or edx,edx jnz compare_with_preprocessor_symbol preprocessor_symbol_not_found: pop esi edi ebp stc ret preprocessor_symbol_found: pop ebx edi ebp clc ret calculate_hash: xor ebx,ebx mov eax,2166136261 mov ebp,16777619 fnv1a_hash: xor al,[esi+ebx] mul ebp inc bl cmp bl,cl jb fnv1a_hash ret add_preprocessor_symbol: push edi esi cmp ch,11b je preprocessor_symbol_name_ok push ecx movzx ecx,cl mov edi,preprocessor_directives call get_directive jnc reserved_word_used_as_symbol pop ecx preprocessor_symbol_name_ok: call calculate_hash mov ebp,eax and ebp,3FFh shr eax,10 xor ebp,eax shl ecx,22 or ebp,ecx mov ebx,hash_tree mov ecx,32 find_leave_for_symbol: mov edx,[ebx] or edx,edx jz extend_hashes_tree xor eax,eax rol ebp,1 adc eax,0 lea ebx,[edx+eax*4] dec ecx jnz find_leave_for_symbol mov edx,[ebx] or edx,edx jz add_symbol_entry shr ebp,30 cmp ebp,11b je reuse_symbol_entry cmp dword [edx+4],0 jne add_symbol_entry find_entry_to_reuse: mov edi,[edx] or edi,edi jz reuse_symbol_entry cmp dword [edi+4],0 jne reuse_symbol_entry mov edx,edi jmp find_entry_to_reuse add_symbol_entry: mov eax,edx mov edx,[labels_list] sub edx,16 cmp edx,[free_additional_memory] jb out_of_memory mov [labels_list],edx mov [edx],eax mov [ebx],edx reuse_symbol_entry: pop esi edi mov [edx+4],esi ret extend_hashes_tree: mov edx,[labels_list] sub edx,8 cmp edx,[free_additional_memory] jb out_of_memory mov [labels_list],edx xor eax,eax mov [edx],eax mov [edx+4],eax shl ebp,1 adc eax,0 mov [ebx],edx lea ebx,[edx+eax*4] dec ecx jnz extend_hashes_tree mov edx,[labels_list] sub edx,16 cmp edx,[free_additional_memory] jb out_of_memory mov [labels_list],edx mov dword [edx],0 mov [ebx],edx pop esi edi mov [edx+4],esi ret define_fix_constant: add edx,5 add esi,2 push edx mov ch,11b jmp define_preprocessor_constant define_equ_constant: add esi,3 push esi call process_equ_constants mov esi,[struc_name] mov ch,10b define_preprocessor_constant: mov byte [esi-2],3Bh mov cl,[esi-1] call add_preprocessor_symbol pop ebx mov ecx,edi dec ecx sub ecx,ebx mov [edx+8],ebx mov [edx+12],ecx jmp line_preprocessed define_symbolic_constant: lods byte [esi] cmp al,1Ah jne invalid_name lods byte [esi] mov cl,al mov ch,10b call add_preprocessor_symbol movzx eax,byte [esi-1] add esi,eax lea ecx,[edi-1] sub ecx,esi mov [edx+8],esi mov [edx+12],ecx jmp line_preprocessed define_struc: mov ch,1 jmp make_macro define_macro: xor ch,ch make_macro: lods byte [esi] cmp al,1Ah jne invalid_name lods byte [esi] mov cl,al call add_preprocessor_symbol mov eax,[current_line] mov [edx+12],eax movzx eax,byte [esi-1] add esi,eax mov [edx+8],esi mov al,[macro_status] and al,0F0h or al,1 mov [macro_status],al mov eax,[current_line] mov [error_line],eax xor bl,bl lods byte [esi] or al,al jz line_preprocessed cmp al,'{' je found_macro_block dec esi skip_macro_arguments: lods byte [esi] cmp al,1Ah je skip_macro_argument cmp al,'[' jne invalid_macro_arguments xor bl,-1 jz invalid_macro_arguments lods byte [esi] cmp al,1Ah jne invalid_macro_arguments skip_macro_argument: movzx eax,byte [esi] inc esi add esi,eax lods byte [esi] cmp al,'*' jne macro_argument_end lods byte [esi] macro_argument_end: cmp al,',' je skip_macro_arguments cmp al,']' jne end_macro_arguments lods byte [esi] not bl end_macro_arguments: or bl,bl jnz invalid_macro_arguments or al,al jz line_preprocessed cmp al,'{' je found_macro_block jmp invalid_macro_arguments find_macro_block: add esi,2 lods byte [esi] or al,al jz line_preprocessed cmp al,'{' jne unexpected_characters found_macro_block: or [macro_status],2 skip_macro_block: lods byte [esi] cmp al,1Ah je skip_macro_symbol cmp al,3Bh je skip_macro_symbol cmp al,22h je skip_macro_string or al,al jz line_preprocessed cmp al,'}' jne skip_macro_block mov al,[macro_status] and [macro_status],0F0h test al,8 jnz use_instant_macro cmp byte [esi],0 je line_preprocessed mov ecx,edi sub ecx,esi mov edx,esi lea esi,[esi+ecx-1] lea edi,[edi+1+16] mov ebx,edi dec edi std rep movs byte [edi],[esi] cld mov edi,edx xor al,al stos byte [edi] mov esi,[current_line] mov [current_line],edi mov ecx,4 rep movs dword [edi],[esi] mov edi,ebx jmp initial_preprocessing_ok skip_macro_symbol: movzx eax,byte [esi] inc esi add esi,eax jmp skip_macro_block skip_macro_string: lods dword [esi] add esi,eax jmp skip_macro_block rept_directive: mov [base_code],0 jmp define_instant_macro irp_directive: mov [base_code],1 jmp define_instant_macro irps_directive: mov [base_code],2 jmp define_instant_macro match_directive: mov [base_code],10h define_instant_macro: mov al,[macro_status] and al,0F0h or al,8+1 mov [macro_status],al mov eax,[current_line] mov [error_line],eax mov [instant_macro_start],esi cmp [base_code],10h je prepare_match skip_parameters: lods byte [esi] or al,al jz parameters_skipped cmp al,'{' je parameters_skipped cmp al,22h je skip_quoted_parameter cmp al,1Ah jne skip_parameters lods byte [esi] movzx eax,al add esi,eax jmp skip_parameters skip_quoted_parameter: lods dword [esi] add esi,eax jmp skip_parameters parameters_skipped: dec esi mov [parameters_end],esi lods byte [esi] cmp al,'{' je found_macro_block or al,al jnz invalid_macro_arguments jmp line_preprocessed prepare_match: call skip_pattern mov [value_type],80h+10b call process_symbolic_constants jmp parameters_skipped skip_pattern: lods byte [esi] or al,al jz invalid_macro_arguments cmp al,',' je pattern_skipped cmp al,22h je skip_quoted_string_in_pattern cmp al,1Ah je skip_symbol_in_pattern cmp al,'=' jne skip_pattern mov al,[esi] cmp al,1Ah je skip_pattern cmp al,22h je skip_pattern inc esi jmp skip_pattern skip_symbol_in_pattern: lods byte [esi] movzx eax,al add esi,eax jmp skip_pattern skip_quoted_string_in_pattern: lods dword [esi] add esi,eax jmp skip_pattern pattern_skipped: ret purge_macro: xor ch,ch jmp restore_preprocessor_symbol purge_struc: mov ch,1 jmp restore_preprocessor_symbol restore_equ_constant: mov ch,10b restore_preprocessor_symbol: push ecx lods byte [esi] cmp al,1Ah jne invalid_name lods byte [esi] mov cl,al call get_preprocessor_symbol jc no_symbol_to_restore mov dword [edx+4],0 jmp symbol_restored no_symbol_to_restore: add esi,ecx symbol_restored: pop ecx lods byte [esi] cmp al,',' je restore_preprocessor_symbol or al,al jnz extra_characters_on_line jmp line_preprocessed process_fix_constants: mov [value_type],11b jmp process_symbolic_constants process_equ_constants: mov [value_type],10b process_symbolic_constants: mov ebp,esi lods byte [esi] cmp al,1Ah je check_symbol cmp al,22h je ignore_string cmp al,'{' je check_brace or al,al jnz process_symbolic_constants ret ignore_string: lods dword [esi] add esi,eax jmp process_symbolic_constants check_brace: test [value_type],80h jz process_symbolic_constants ret no_replacing: movzx ecx,byte [esi-1] add esi,ecx jmp process_symbolic_constants check_symbol: mov cl,[esi] inc esi mov ch,[value_type] call get_preprocessor_symbol jc no_replacing mov [current_section],edi replace_symbolic_constant: mov ecx,[edx+12] mov edx,[edx+8] xchg esi,edx call move_data mov esi,edx process_after_replaced: lods byte [esi] cmp al,1Ah je symbol_after_replaced stos byte [edi] cmp al,22h je string_after_replaced cmp al,'{' je brace_after_replaced or al,al jnz process_after_replaced mov ecx,edi sub ecx,esi mov edi,ebp call move_data mov esi,edi ret move_data: lea eax,[edi+ecx] cmp eax,[memory_end] jae out_of_memory shr ecx,1 jnc movsb_ok movs byte [edi],[esi] movsb_ok: shr ecx,1 jnc movsw_ok movs word [edi],[esi] movsw_ok: rep movs dword [edi],[esi] ret string_after_replaced: lods dword [esi] stos dword [edi] mov ecx,eax call move_data jmp process_after_replaced brace_after_replaced: test [value_type],80h jz process_after_replaced mov edx,edi mov ecx,[current_section] sub edx,ecx sub ecx,esi rep movs byte [edi],[esi] mov ecx,edi sub ecx,esi mov edi,ebp call move_data lea esi,[ebp+edx] ret symbol_after_replaced: mov cl,[esi] inc esi mov ch,[value_type] call get_preprocessor_symbol jnc replace_symbolic_constant movzx ecx,byte [esi-1] mov al,1Ah mov ah,cl stos word [edi] call move_data jmp process_after_replaced process_macro_operators: xor dl,dl mov ebp,edi before_macro_operators: mov edi,esi lods byte [esi] cmp al,'`' je symbol_conversion cmp al,'#' je concatenation cmp al,1Ah je symbol_before_macro_operators cmp al,3Bh je no_more_macro_operators cmp al,22h je string_before_macro_operators xor dl,dl or al,al jnz before_macro_operators mov edi,esi ret no_more_macro_operators: mov edi,ebp ret symbol_before_macro_operators: mov dl,1Ah mov ebx,esi lods byte [esi] movzx ecx,al jecxz symbol_before_macro_operators_ok mov edi,esi cmp byte [esi],'\' je escaped_symbol symbol_before_macro_operators_ok: add esi,ecx jmp before_macro_operators string_before_macro_operators: mov dl,22h mov ebx,esi lods dword [esi] add esi,eax jmp before_macro_operators escaped_symbol: dec byte [edi-1] dec ecx inc esi cmp ecx,1 rep movs byte [edi],[esi] jne after_macro_operators mov al,[esi-1] mov ecx,ebx mov ebx,characters xlat byte [ebx] mov ebx,ecx or al,al jnz after_macro_operators sub edi,3 mov al,[esi-1] stos byte [edi] xor dl,dl jmp after_macro_operators reduce_symbol_conversion: inc esi symbol_conversion: mov edx,esi mov al,[esi] cmp al,1Ah jne symbol_character_conversion lods word [esi] movzx ecx,ah lea ebx,[edi+3] jecxz convert_to_quoted_string cmp byte [esi],'\' jne convert_to_quoted_string inc esi dec ecx dec ebx jmp convert_to_quoted_string symbol_character_conversion: cmp al,22h je after_macro_operators cmp al,'`' je reduce_symbol_conversion lea ebx,[edi+5] xor ecx,ecx or al,al jz convert_to_quoted_string cmp al,'#' je convert_to_quoted_string inc ecx convert_to_quoted_string: sub ebx,edx ja shift_line_data mov al,22h mov dl,al stos byte [edi] mov ebx,edi mov eax,ecx stos dword [edi] rep movs byte [edi],[esi] cmp edi,esi je before_macro_operators jmp after_macro_operators shift_line_data: push ecx mov edx,esi lea esi,[ebp-1] add ebp,ebx lea edi,[ebp-1] lea ecx,[esi+1] sub ecx,edx std rep movs byte [edi],[esi] cld pop eax sub edi,3 mov dl,22h mov [edi-1],dl mov ebx,edi mov [edi],eax lea esi,[edi+4+eax] jmp before_macro_operators concatenation: cmp dl,1Ah je symbol_concatenation cmp dl,22h je string_concatenation no_concatenation: cmp esi,edi je before_macro_operators jmp after_macro_operators symbol_concatenation: cmp byte [esi],1Ah jne no_concatenation inc esi lods byte [esi] movzx ecx,al jecxz do_symbol_concatenation cmp byte [esi],'\' je concatenate_escaped_symbol do_symbol_concatenation: add [ebx],cl jc name_too_long rep movs byte [edi],[esi] jmp after_macro_operators concatenate_escaped_symbol: inc esi dec ecx jz do_symbol_concatenation movzx eax,byte [esi] cmp byte [characters+eax],0 jne do_symbol_concatenation sub esi,3 jmp no_concatenation string_concatenation: cmp byte [esi],22h je do_string_concatenation cmp byte [esi],'`' jne no_concatenation concatenate_converted_symbol: inc esi mov al,[esi] cmp al,'`' je concatenate_converted_symbol cmp al,22h je do_string_concatenation cmp al,1Ah jne concatenate_converted_symbol_character inc esi lods byte [esi] movzx ecx,al jecxz finish_concatenating_converted_symbol cmp byte [esi],'\' jne finish_concatenating_converted_symbol inc esi dec ecx finish_concatenating_converted_symbol: add [ebx],ecx rep movs byte [edi],[esi] jmp after_macro_operators concatenate_converted_symbol_character: or al,al jz after_macro_operators cmp al,'#' je after_macro_operators inc dword [ebx] movs byte [edi],[esi] jmp after_macro_operators do_string_concatenation: inc esi lods dword [esi] mov ecx,eax add [ebx],eax rep movs byte [edi],[esi] after_macro_operators: lods byte [esi] cmp al,'`' je symbol_conversion cmp al,'#' je concatenation stos byte [edi] cmp al,1Ah je symbol_after_macro_operators cmp al,3Bh je no_more_macro_operators cmp al,22h je string_after_macro_operators xor dl,dl or al,al jnz after_macro_operators ret symbol_after_macro_operators: mov dl,1Ah mov ebx,edi lods byte [esi] stos byte [edi] movzx ecx,al jecxz symbol_after_macro_operatorss_ok cmp byte [esi],'\' je escaped_symbol symbol_after_macro_operatorss_ok: rep movs byte [edi],[esi] jmp after_macro_operators string_after_macro_operators: mov dl,22h mov ebx,edi lods dword [esi] stos dword [edi] mov ecx,eax rep movs byte [edi],[esi] jmp after_macro_operators use_macro: push [free_additional_memory] push [macro_symbols] mov [macro_symbols],0 push [counter_limit] push dword [edx+4] mov dword [edx+4],1 push edx mov ebx,esi mov esi,[edx+8] mov eax,[edx+12] mov [macro_line],eax mov [counter_limit],0 process_macro_arguments: mov al,[esi] or al,al jz arguments_end cmp al,'{' je arguments_end inc esi cmp al,'[' jne get_macro_arguments mov ebp,esi inc esi inc [counter_limit] get_macro_arguments: call get_macro_argument lods byte [esi] cmp al,',' je next_argument cmp al,']' je next_arguments_group dec esi jmp arguments_end next_argument: cmp byte [ebx],',' jne process_macro_arguments inc ebx jmp process_macro_arguments next_arguments_group: cmp byte [ebx],',' jne arguments_end inc ebx inc [counter_limit] mov esi,ebp jmp process_macro_arguments get_macro_argument: lods byte [esi] movzx ecx,al mov eax,[counter_limit] call add_macro_symbol add esi,ecx xchg esi,ebx mov [edx+12],esi cmp byte [esi],'<' jne simple_argument inc esi mov [edx+12],esi mov ecx,1 enclosed_argument: lods byte [esi] or al,al jz invalid_macro_arguments cmp al,1Ah je enclosed_symbol cmp al,22h je enclosed_string cmp al,'>' je enclosed_argument_end cmp al,'<' jne enclosed_argument inc ecx jmp enclosed_argument enclosed_symbol: movzx eax,byte [esi] inc esi add esi,eax jmp enclosed_argument enclosed_string: lods dword [esi] add esi,eax jmp enclosed_argument enclosed_argument_end: loop enclosed_argument mov al,[esi] or al,al jz enclosed_argument_ok cmp al,',' jne invalid_macro_arguments enclosed_argument_ok: mov eax,esi sub eax,[edx+12] dec eax or eax,80000000h mov [edx+8],eax jmp argument_value_ok simple_argument: lods byte [esi] or al,al jz argument_value_end cmp al,',' je argument_value_end cmp al,22h je argument_string cmp al,1Ah jne simple_argument movzx eax,byte [esi] inc esi add esi,eax jmp simple_argument argument_string: lods dword [esi] add esi,eax jmp simple_argument argument_value_end: dec esi mov eax,esi sub eax,[edx+12] mov [edx+8],eax argument_value_ok: xchg esi,ebx cmp byte [esi],'*' jne macro_argument_ok cmp dword [edx+8],0 je invalid_macro_arguments inc esi macro_argument_ok: ret arguments_end: cmp byte [ebx],0 jne invalid_macro_arguments mov eax,[esp+4] dec eax call process_macro pop edx pop dword [edx+4] pop [counter_limit] pop [macro_symbols] pop [free_additional_memory] jmp line_preprocessed use_instant_macro: push edi [current_line] esi mov eax,[error_line] mov [current_line],eax mov [macro_line],eax mov esi,[instant_macro_start] cmp [base_code],10h jae do_match cmp [base_code],0 jne do_irp call precalculate_value cmp eax,0 jl value_out_of_range push [free_additional_memory] push [macro_symbols] mov [macro_symbols],0 push [counter_limit] mov [struc_name],0 mov [counter_limit],eax lods byte [esi] or al,al jz rept_counters_ok cmp al,'{' je rept_counters_ok cmp al,1Ah jne invalid_macro_arguments add_rept_counter: lods byte [esi] movzx ecx,al xor eax,eax call add_macro_symbol add esi,ecx xor eax,eax mov dword [edx+12],eax inc eax mov dword [edx+8],eax lods byte [esi] cmp al,':' jne rept_counter_added push edx call precalculate_value mov edx,eax add edx,[counter_limit] jo value_out_of_range pop edx mov dword [edx+8],eax lods byte [esi] rept_counter_added: cmp al,',' jne rept_counters_ok lods byte [esi] cmp al,1Ah jne invalid_macro_arguments jmp add_rept_counter rept_counters_ok: dec esi cmp [counter_limit],0 je instant_macro_finish instant_macro_parameters_ok: xor eax,eax call process_macro instant_macro_finish: pop [counter_limit] pop [macro_symbols] pop [free_additional_memory] instant_macro_done: pop ebx esi edx cmp byte [ebx],0 je line_preprocessed mov [current_line],edi mov ecx,4 rep movs dword [edi],[esi] test [macro_status],0Fh jz instant_macro_attached_line mov ax,3Bh stos word [edi] instant_macro_attached_line: mov esi,ebx sub edx,ebx mov ecx,edx call move_data jmp initial_preprocessing_ok precalculate_value: push edi call convert_expression mov al,')' stosb push esi mov esi,[esp+4] mov [value_size],8 call calculate_expression mov eax,[edi] mov ecx,[edi+4] pop esi edi cdq cmp edx,ecx jne value_out_of_range ret do_irp: cmp byte [esi],1Ah jne invalid_macro_arguments movzx eax,byte [esi+1] lea esi,[esi+2+eax] lods byte [esi] cmp [base_code],1 ja irps_name_ok cmp al,'*' jne irp_name_ok lods byte [esi] irp_name_ok: cmp al,',' jne invalid_macro_arguments jmp irp_parameters_start irps_name_ok: cmp al,',' jne invalid_macro_arguments mov al,[esi] or al,al jz instant_macro_done cmp al,'{' je instant_macro_done irp_parameters_start: xor eax,eax push [free_additional_memory] push [macro_symbols] mov [macro_symbols],eax push [counter_limit] mov [counter_limit],eax mov [struc_name],eax mov ebx,esi cmp [base_code],1 ja get_irps_parameter mov edx,[parameters_end] mov al,[edx] push eax mov byte [edx],0 get_irp_parameter: inc [counter_limit] mov esi,[instant_macro_start] inc esi call get_macro_argument cmp byte [ebx],',' jne irp_parameters_end inc ebx jmp get_irp_parameter irp_parameters_end: mov esi,ebx pop eax mov [esi],al jmp instant_macro_parameters_ok get_irps_parameter: mov esi,[instant_macro_start] inc esi lods byte [esi] movzx ecx,al inc [counter_limit] mov eax,[counter_limit] call add_macro_symbol mov [edx+12],ebx cmp byte [ebx],1Ah je irps_symbol cmp byte [ebx],22h je irps_quoted_string mov eax,1 jmp irps_parameter_ok irps_quoted_string: mov eax,[ebx+1] add eax,1+4 jmp irps_parameter_ok irps_symbol: movzx eax,byte [ebx+1] add eax,1+1 irps_parameter_ok: mov [edx+8],eax add ebx,eax cmp byte [ebx],0 je irps_parameters_end cmp byte [ebx],'{' jne get_irps_parameter irps_parameters_end: mov esi,ebx jmp instant_macro_parameters_ok do_match: mov ebx,esi call skip_pattern call exact_match mov edx,edi mov al,[ebx] cmp al,1Ah je free_match cmp al,',' jne instant_macro_done cmp esi,[parameters_end] je matched_pattern jmp instant_macro_done free_match: add edx,12 cmp edx,[memory_end] ja out_of_memory mov [edx-12],ebx mov [edx-8],esi call skip_match_element jc try_different_matching mov [edx-4],esi movzx eax,byte [ebx+1] lea ebx,[ebx+2+eax] cmp byte [ebx],1Ah je free_match find_exact_match: call exact_match cmp esi,[parameters_end] je end_matching cmp byte [ebx],1Ah je free_match mov ebx,[edx-12] movzx eax,byte [ebx+1] lea ebx,[ebx+2+eax] mov esi,[edx-4] jmp match_more_elements try_different_matching: sub edx,12 cmp edx,edi je instant_macro_done mov ebx,[edx-12] movzx eax,byte [ebx+1] lea ebx,[ebx+2+eax] cmp byte [ebx],1Ah je try_different_matching mov esi,[edx-4] match_more_elements: call skip_match_element jc try_different_matching mov [edx-4],esi jmp find_exact_match skip_match_element: cmp esi,[parameters_end] je cannot_match mov al,[esi] cmp al,1Ah je skip_match_symbol cmp al,22h je skip_match_quoted_string add esi,1 ret skip_match_quoted_string: mov eax,[esi+1] add esi,5 jmp skip_match_ok skip_match_symbol: movzx eax,byte [esi+1] add esi,2 skip_match_ok: add esi,eax ret cannot_match: stc ret exact_match: cmp esi,[parameters_end] je exact_match_complete mov ah,[esi] mov al,[ebx] cmp al,',' je exact_match_complete cmp al,1Ah je exact_match_complete cmp al,'=' je match_verbatim call match_elements je exact_match exact_match_complete: ret match_verbatim: inc ebx call match_elements je exact_match dec ebx ret match_elements: mov al,[ebx] cmp al,1Ah je match_symbols cmp al,22h je match_quoted_strings cmp al,ah je symbol_characters_matched ret symbol_characters_matched: lea ebx,[ebx+1] lea esi,[esi+1] ret match_quoted_strings: mov ecx,[ebx+1] add ecx,5 jmp compare_elements match_symbols: movzx ecx,byte [ebx+1] add ecx,2 compare_elements: mov eax,esi mov ebp,edi mov edi,ebx repe cmps byte [esi],[edi] jne elements_mismatch mov ebx,edi mov edi,ebp ret elements_mismatch: mov esi,eax mov edi,ebp ret end_matching: cmp byte [ebx],',' jne instant_macro_done matched_pattern: xor eax,eax push [free_additional_memory] push [macro_symbols] mov [macro_symbols],eax push [counter_limit] mov [counter_limit],eax mov [struc_name],eax push esi edi edx add_matched_symbol: cmp edi,[esp] je matched_symbols_ok mov esi,[edi] inc esi lods byte [esi] movzx ecx,al xor eax,eax call add_macro_symbol mov eax,[edi+4] mov dword [edx+12],eax mov ecx,[edi+8] sub ecx,eax mov dword [edx+8],ecx add edi,12 jmp add_matched_symbol matched_symbols_ok: pop edx edi esi jmp instant_macro_parameters_ok process_macro: push dword [macro_status] or [macro_status],10h push [counter] push [macro_block] push [macro_block_line] push [macro_block_line_number] push [struc_label] push [struc_name] push eax push [current_line] lods byte [esi] cmp al,'{' je macro_instructions_start or al,al jnz unexpected_characters find_macro_instructions: mov [macro_line],esi add esi,16+2 lods byte [esi] or al,al jz find_macro_instructions cmp al,'{' je macro_instructions_start cmp al,3Bh jne unexpected_characters call skip_foreign_symbol jmp find_macro_instructions macro_instructions_start: mov ecx,80000000h mov [macro_block],esi mov eax,[macro_line] mov [macro_block_line],eax mov [macro_block_line_number],ecx xor eax,eax mov [counter],eax cmp [counter_limit],eax je process_macro_line inc [counter] process_macro_line: lods byte [esi] or al,al jz process_next_line cmp al,'}' je macro_block_processed dec esi mov [current_line],edi lea eax,[edi+10h] cmp eax,[memory_end] jae out_of_memory mov eax,[esp+4] or eax,eax jz instant_macro_line_header stos dword [edi] mov eax,ecx stos dword [edi] mov eax,[esp] stos dword [edi] mov eax,[macro_line] stos dword [edi] jmp macro_line_header_ok instant_macro_line_header: mov eax,[macro_line] add eax,16+1 stos dword [edi] mov eax,ecx stos dword [edi] mov eax,[macro_line] stos dword [edi] stos dword [edi] macro_line_header_ok: or [macro_status],20h push ebx ecx test [macro_status],0Fh jz process_macro_line_element mov ax,3Bh stos word [edi] process_macro_line_element: lea eax,[edi+100h] cmp eax,[memory_end] jae out_of_memory lods byte [esi] cmp al,'}' je macro_line_processed or al,al jz macro_line_processed cmp al,1Ah je process_macro_symbol cmp al,3Bh je macro_foreign_line and [macro_status],not 20h stos byte [edi] cmp al,22h jne process_macro_line_element copy_macro_string: mov ecx,[esi] add ecx,4 call move_data jmp process_macro_line_element process_macro_symbol: push esi edi test [macro_status],20h jz not_macro_directive movzx ecx,byte [esi] inc esi mov edi,macro_directives call get_directive jnc process_macro_directive dec esi jmp not_macro_directive process_macro_directive: mov edx,eax pop edi eax mov byte [edi],0 inc edi pop ecx ebx jmp near edx not_macro_directive: and [macro_status],not 20h movzx ecx,byte [esi] inc esi mov eax,[counter] call get_macro_symbol jnc group_macro_symbol xor eax,eax cmp [counter],eax je multiple_macro_symbol_values call get_macro_symbol jc not_macro_symbol replace_macro_symbol: pop edi eax mov ecx,[edx+8] mov edx,[edx+12] or edx,edx jz replace_macro_counter and ecx,not 80000000h xchg esi,edx call move_data mov esi,edx jmp process_macro_line_element group_macro_symbol: xor eax,eax cmp [counter],eax je replace_macro_symbol push esi edx sub esi,ecx call get_macro_symbol mov ebx,edx pop edx esi jc replace_macro_symbol cmp edx,ebx ja replace_macro_symbol mov edx,ebx jmp replace_macro_symbol multiple_macro_symbol_values: inc eax push eax call get_macro_symbol pop eax jc not_macro_symbol pop edi push ecx mov ecx,[edx+8] mov edx,[edx+12] xchg esi,edx btr ecx,31 jc enclose_macro_symbol_value rep movs byte [edi],[esi] jmp macro_symbol_value_ok enclose_macro_symbol_value: mov byte [edi],'<' inc edi rep movs byte [edi],[esi] mov byte [edi],'>' inc edi macro_symbol_value_ok: cmp eax,[counter_limit] je multiple_macro_symbol_values_ok mov byte [edi],',' inc edi mov esi,edx pop ecx push edi sub esi,ecx jmp multiple_macro_symbol_values multiple_macro_symbol_values_ok: pop ecx eax mov esi,edx jmp process_macro_line_element replace_macro_counter: mov eax,[counter] and eax,not 80000000h jz group_macro_counter add ecx,eax dec ecx call store_number_symbol jmp process_macro_line_element group_macro_counter: mov edx,ecx xor ecx,ecx multiple_macro_counter_values: push ecx edx add ecx,edx call store_number_symbol pop edx ecx inc ecx cmp ecx,[counter_limit] je process_macro_line_element mov byte [edi],',' inc edi jmp multiple_macro_counter_values store_number_symbol: cmp ecx,0 jge numer_symbol_sign_ok neg ecx mov al,'-' stos byte [edi] numer_symbol_sign_ok: mov ax,1Ah stos word [edi] push edi mov eax,ecx mov ecx,1000000000 xor edx,edx xor bl,bl store_number_digits: div ecx push edx or bl,bl jnz store_number_digit cmp ecx,1 je store_number_digit or al,al jz number_digit_ok not bl store_number_digit: add al,30h stos byte [edi] number_digit_ok: mov eax,ecx xor edx,edx mov ecx,10 div ecx mov ecx,eax pop eax or ecx,ecx jnz store_number_digits pop ebx mov eax,edi sub eax,ebx mov [ebx-1],al ret not_macro_symbol: pop edi esi mov al,1Ah stos byte [edi] mov al,[esi] inc esi stos byte [edi] cmp byte [esi],'.' jne copy_raw_symbol mov ebx,[esp+8+8] or ebx,ebx jz copy_raw_symbol cmp al,1 je copy_struc_name xchg esi,ebx movzx ecx,byte [esi-1] add [edi-1],cl jc name_too_long rep movs byte [edi],[esi] xchg esi,ebx copy_raw_symbol: movzx ecx,al rep movs byte [edi],[esi] jmp process_macro_line_element copy_struc_name: inc esi xchg esi,ebx movzx ecx,byte [esi-1] mov [edi-1],cl rep movs byte [edi],[esi] xchg esi,ebx mov eax,[esp+8+12] cmp byte [eax],3Bh je process_macro_line_element cmp byte [eax],1Ah jne disable_replaced_struc_name mov byte [eax],3Bh jmp process_macro_line_element disable_replaced_struc_name: mov ebx,[esp+8+8] push esi edi lea edi,[ebx-3] lea esi,[edi-2] lea ecx,[esi+1] sub ecx,eax std rep movs byte [edi],[esi] cld mov word [eax],3Bh pop edi esi jmp process_macro_line_element skip_foreign_symbol: lods byte [esi] movzx eax,al add esi,eax skip_foreign_line: lods byte [esi] cmp al,1Ah je skip_foreign_symbol cmp al,3Bh je skip_foreign_symbol cmp al,22h je skip_foreign_string or al,al jnz skip_foreign_line ret skip_foreign_string: lods dword [esi] add esi,eax jmp skip_foreign_line macro_foreign_line: call skip_foreign_symbol macro_line_processed: mov byte [edi],0 inc edi push eax call preprocess_line pop eax pop ecx ebx cmp al,'}' je macro_block_processed process_next_line: inc ecx mov [macro_line],esi add esi,16+2 jmp process_macro_line macro_block_processed: call close_macro_block jc process_macro_line pop [current_line] add esp,12 pop [macro_block_line_number] pop [macro_block_line] pop [macro_block] pop [counter] pop eax and al,0F0h and [macro_status],0Fh or [macro_status],al ret local_symbols: lods byte [esi] cmp al,1Ah jne invalid_argument mov byte [edi-1],3Bh xor al,al stos byte [edi] make_local_symbol: push ecx lods byte [esi] movzx ecx,al mov eax,[counter] call add_macro_symbol mov [edx+12],edi movzx eax,[locals_counter] add eax,ecx inc eax cmp eax,100h jae name_too_long lea ebp,[edi+2+eax] cmp ebp,[memory_end] jae out_of_memory mov ah,al mov al,1Ah stos word [edi] rep movs byte [edi],[esi] mov al,'?' stos byte [edi] push esi mov esi,locals_counter+1 movzx ecx,[locals_counter] rep movs byte [edi],[esi] pop esi mov eax,edi sub eax,[edx+12] mov [edx+8],eax xor al,al stos byte [edi] mov eax,locals_counter movzx ecx,byte [eax] counter_loop: inc byte [eax+ecx] cmp byte [eax+ecx],'9'+1 jb counter_ok jne letter_digit mov byte [eax+ecx],'A' jmp counter_ok letter_digit: cmp byte [eax+ecx],'Z'+1 jb counter_ok jne small_letter_digit mov byte [eax+ecx],'a' jmp counter_ok small_letter_digit: cmp byte [eax+ecx],'z'+1 jb counter_ok mov byte [eax+ecx],'0' loop counter_loop inc byte [eax] movzx ecx,byte [eax] mov byte [eax+ecx],'0' counter_ok: pop ecx lods byte [esi] cmp al,'}' je macro_block_processed or al,al jz process_next_line cmp al,',' jne extra_characters_on_line dec edi lods byte [esi] cmp al,1Ah je make_local_symbol jmp invalid_argument common_block: call close_macro_block jc process_macro_line mov [counter],0 jmp new_macro_block forward_block: cmp [counter_limit],0 je common_block call close_macro_block jc process_macro_line mov [counter],1 jmp new_macro_block reverse_block: cmp [counter_limit],0 je common_block call close_macro_block jc process_macro_line mov eax,[counter_limit] or eax,80000000h mov [counter],eax new_macro_block: mov [macro_block],esi mov eax,[macro_line] mov [macro_block_line],eax mov [macro_block_line_number],ecx jmp process_macro_line close_macro_block: cmp [counter],0 je block_closed jl reverse_counter mov eax,[counter] cmp eax,[counter_limit] je block_closed inc [counter] jmp continue_block reverse_counter: mov eax,[counter] dec eax cmp eax,80000000h je block_closed mov [counter],eax continue_block: mov esi,[macro_block] mov eax,[macro_block_line] mov [macro_line],eax mov ecx,[macro_block_line_number] stc ret block_closed: clc ret get_macro_symbol: push ecx call find_macro_symbol_leaf jc macro_symbol_not_found mov edx,[ebx] mov ebx,esi try_macro_symbol: or edx,edx jz macro_symbol_not_found mov ecx,[esp] mov edi,[edx+4] repe cmps byte [esi],[edi] je macro_symbol_found mov esi,ebx mov edx,[edx] jmp try_macro_symbol macro_symbol_found: pop ecx clc ret macro_symbol_not_found: pop ecx stc ret find_macro_symbol_leaf: shl eax,8 mov al,cl mov ebp,eax mov ebx,macro_symbols follow_macro_symbols_tree: mov edx,[ebx] or edx,edx jz no_such_macro_symbol xor eax,eax shr ebp,1 adc eax,0 lea ebx,[edx+eax*4] or ebp,ebp jnz follow_macro_symbols_tree add ebx,8 clc ret no_such_macro_symbol: stc ret add_macro_symbol: push ebx ebp call find_macro_symbol_leaf jc extend_macro_symbol_tree mov eax,[ebx] make_macro_symbol: mov edx,[free_additional_memory] add edx,16 cmp edx,[labels_list] ja out_of_memory xchg edx,[free_additional_memory] mov [ebx],edx mov [edx],eax mov [edx+4],esi pop ebp ebx ret extend_macro_symbol_tree: mov edx,[free_additional_memory] add edx,16 cmp edx,[labels_list] ja out_of_memory xchg edx,[free_additional_memory] xor eax,eax mov [edx],eax mov [edx+4],eax mov [edx+8],eax mov [edx+12],eax shr ebp,1 adc eax,0 mov [ebx],edx lea ebx,[edx+eax*4] or ebp,ebp jnz extend_macro_symbol_tree add ebx,8 xor eax,eax jmp make_macro_symbol include_file: lods byte [esi] cmp al,22h jne invalid_argument lods dword [esi] cmp byte [esi+eax],0 jne extra_characters_on_line push esi push edi mov ebx,[current_line] find_current_file_path: mov esi,[ebx] test byte [ebx+7],80h jz copy_current_file_path mov ebx,[ebx+8] jmp find_current_file_path copy_current_file_path: lods byte [esi] stos byte [edi] or al,al jnz copy_current_file_path cut_current_file_name: cmp edi,[esp] je current_file_path_ok cmp byte [edi-1],'\' je current_file_path_ok cmp byte [edi-1],'/' je current_file_path_ok dec edi jmp cut_current_file_name current_file_path_ok: mov esi,[esp+4] call preprocess_path pop edx mov esi,edx call open jnc include_path_ok mov ebp,[include_paths] try_include_directories: mov edi,esi mov esi,ebp cmp byte [esi],0 je try_in_current_directory push ebp push edi copy_include_directory: lods byte [esi] cmp al,';' je include_directory_ok stos byte [edi] or al,al jnz copy_include_directory dec esi dec edi include_directory_ok: cmp byte [edi-1],'/' je path_separator_ok cmp byte [edi-1],'\' je path_separator_ok mov al,'/' stos byte [edi] path_separator_ok: mov [esp+4],esi mov esi,[esp+8] call preprocess_path pop edx mov esi,edx call open pop ebp jnc include_path_ok jmp try_include_directories mov edi,esi try_in_current_directory: mov esi,[esp] push edi call preprocess_path pop edx mov esi,edx call open jc file_not_found include_path_ok: mov edi,[esp] copy_preprocessed_path: lods byte [esi] stos byte [edi] or al,al jnz copy_preprocessed_path pop esi lea ecx,[edi-1] sub ecx,esi mov [esi-4],ecx push dword [macro_status] and [macro_status],0Fh call preprocess_file pop eax mov [macro_status],al jmp line_preprocessed preprocess_path: lods byte [esi] cmp al,'%' je environment_variable stos byte [edi] or al,al jnz preprocess_path cmp edi,[memory_end] ja out_of_memory ret environment_variable: mov ebx,esi find_variable_end: lods byte [esi] or al,al jz not_environment_variable cmp al,'%' jne find_variable_end mov byte [esi-1],0 push esi mov esi,ebx call get_environment_variable pop esi mov byte [esi-1],'%' jmp preprocess_path not_environment_variable: mov al,'%' stos byte [edi] mov esi,ebx jmp preprocess_path ; --------------- "preproce.inc" ---------------- ; ; --------------- "parser.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. parser: mov eax,[memory_end] mov [labels_list],eax mov eax,[additional_memory] mov [free_additional_memory],eax xor eax,eax mov [current_locals_prefix],eax mov [anonymous_reverse],eax mov [anonymous_forward],eax mov [hash_tree],eax mov [blocks_stack],eax mov [parsed_lines],eax mov esi,[memory_start] mov edi,[source_start] parser_loop: mov [current_line],esi lea eax,[edi+100h] cmp eax,[labels_list] jae out_of_memory cmp byte [esi+16],0 je empty_line cmp byte [esi+16],3Bh je empty_line mov al,0Fh stos byte [edi] mov eax,esi stos dword [edi] inc [parsed_lines] add esi,16 parse_line: mov [formatter_symbols_allowed],0 cmp byte [esi],1Ah jne empty_instruction push edi add esi,2 movzx ecx,byte [esi-1] cmp byte [esi+ecx],':' je simple_label cmp byte [esi+ecx],'=' je constant_label call get_instruction jnc main_instruction_identified cmp byte [esi+ecx],1Ah jne no_data_label push esi ecx lea esi,[esi+ecx+2] movzx ecx,byte [esi-1] call get_data_directive jnc data_label pop ecx esi no_data_label: call get_data_directive jnc main_instruction_identified pop edi sub esi,2 xor bx,bx call parse_line_contents jmp parse_next_line simple_label: pop edi call identify_label mov byte [edi],2 inc edi stos dword [edi] inc esi xor al,al stos byte [edi] jmp parse_line constant_label: pop edi call get_label_id mov byte [edi],3 inc edi stos dword [edi] xor al,al stos byte [edi] inc esi xor bx,bx call parse_line_contents jmp parse_next_line data_label: pop ecx edx pop edi push eax ebx esi mov esi,edx movzx ecx,byte [esi-1] call identify_label mov byte [edi],2 inc edi stos dword [edi] pop esi ebx eax stos byte [edi] push edi main_instruction_identified: pop edi mov dl,al mov al,1 stos byte [edi] mov ax,bx stos word [edi] mov al,dl stos byte [edi] cmp bx,if_directive-instruction_handler je parse_block cmp bx,repeat_directive-instruction_handler je parse_block cmp bx,while_directive-instruction_handler je parse_block cmp bx,end_directive-instruction_handler je parse_end_directive cmp bx,else_directive-instruction_handler je parse_else common_parse: call parse_line_contents jmp parse_next_line empty_instruction: lods byte [esi] or al,al jz parse_next_line cmp al,':' je invalid_name dec esi cmp al,3Bh je skip_rest_of_line mov [parenthesis_stack],0 call parse_argument jmp parse_next_line empty_line: add esi,16 skip_rest_of_line: call skip_foreign_line parse_next_line: cmp esi,[source_start] jb parser_loop source_parsed: cmp [blocks_stack],0 je blocks_stack_ok pop eax pop [current_line] jmp missing_end_directive blocks_stack_ok: xor al,al stos byte [edi] add edi,0Fh and edi,not 0Fh mov [code_start],edi ret parse_block: mov eax,esp sub eax,100h jc stack_overflow cmp eax,[stack_limit] jb stack_overflow push [current_line] mov ax,bx shl eax,16 push eax inc [blocks_stack] cmp bx,if_directive-instruction_handler je parse_if cmp bx,while_directive-instruction_handler je parse_while call parse_line_contents jmp parse_next_line parse_end_directive: cmp byte [esi],1Ah jne common_parse push edi inc esi movzx ecx,byte [esi] inc esi call get_instruction pop edi jnc parse_end_block sub esi,2 jmp common_parse parse_end_block: mov dl,al mov al,1 stos byte [edi] mov ax,bx stos word [edi] mov al,dl stos byte [edi] lods byte [esi] or al,al jnz extra_characters_on_line cmp bx,if_directive-instruction_handler je close_parsing_block cmp bx,repeat_directive-instruction_handler je close_parsing_block cmp bx,while_directive-instruction_handler je close_parsing_block jmp parse_next_line close_parsing_block: cmp [blocks_stack],0 je unexpected_instruction cmp bx,[esp+2] jne unexpected_instruction dec [blocks_stack] pop eax edx cmp bx,if_directive-instruction_handler jne parse_next_line test al,1100b jz parse_next_line test al,10000b jnz parse_next_line sub edi,8 jmp parse_next_line parse_if: push edi call parse_line_contents xor al,al stos byte [edi] xchg esi,[esp] mov edi,esi call preevaluate_logical_expression pop esi cmp al,'0' je parse_false_condition_block cmp al,'1' je parse_true_condition_block or byte [esp],10000b jmp parse_next_line parse_while: push edi call parse_line_contents xor al,al stos byte [edi] xchg esi,[esp] mov edi,esi call preevaluate_logical_expression pop esi cmp al,'0' je parse_false_condition_block cmp al,'1' jne parse_next_line stos byte [edi] jmp parse_next_line parse_false_condition_block: or byte [esp],1 sub edi,4 jmp skip_parsing parse_true_condition_block: or byte [esp],100b sub edi,4 jmp parse_next_line parse_else: cmp [blocks_stack],0 je unexpected_instruction cmp word [esp+2],if_directive-instruction_handler jne unexpected_instruction lods byte [esi] or al,al jz parse_pure_else cmp al,1Ah jne extra_characters_on_line push edi movzx ecx,byte [esi] inc esi call get_instruction jc extra_characters_on_line pop edi cmp bx,if_directive-instruction_handler jne extra_characters_on_line test byte [esp],100b jnz skip_true_condition_else mov dl,al mov al,1 stos byte [edi] mov ax,bx stos word [edi] mov al,dl stos byte [edi] jmp parse_if skip_true_condition_else: sub edi,4 or byte [esp],1 jmp skip_parsing_contents parse_pure_else: bts dword [esp],1 jc unexpected_instruction test byte [esp],100b jz parse_next_line sub edi,4 or byte [esp],1 jmp skip_parsing skip_parsing: cmp esi,[source_start] jae source_parsed mov [current_line],esi add esi,16 skip_parsing_line: cmp byte [esi],1Ah jne skip_parsing_contents inc esi movzx ecx,byte [esi] inc esi cmp byte [esi+ecx],':' je skip_parsing_label push edi call get_instruction pop edi jnc skip_parsing_instruction add esi,ecx jmp skip_parsing_contents skip_parsing_label: lea esi,[esi+ecx+1] jmp skip_parsing_line skip_parsing_instruction: cmp bx,if_directive-instruction_handler je skip_parsing_block cmp bx,repeat_directive-instruction_handler je skip_parsing_block cmp bx,while_directive-instruction_handler je skip_parsing_block cmp bx,end_directive-instruction_handler je skip_parsing_end_directive cmp bx,else_directive-instruction_handler je skip_parsing_else skip_parsing_contents: lods byte [esi] or al,al jz skip_parsing cmp al,1Ah je skip_parsing_symbol cmp al,3Bh je skip_parsing_symbol cmp al,22h je skip_parsing_string jmp skip_parsing_contents skip_parsing_symbol: lods byte [esi] movzx eax,al add esi,eax jmp skip_parsing_contents skip_parsing_string: lods dword [esi] add esi,eax jmp skip_parsing_contents skip_parsing_block: mov eax,esp sub eax,100h jc stack_overflow cmp eax,[stack_limit] jb stack_overflow push [current_line] mov ax,bx shl eax,16 push eax inc [blocks_stack] jmp skip_parsing_contents skip_parsing_end_directive: cmp byte [esi],1Ah jne skip_parsing_contents push edi inc esi movzx ecx,byte [esi] inc esi call get_instruction pop edi jnc skip_parsing_end_block add esi,ecx jmp skip_parsing_contents skip_parsing_end_block: lods byte [esi] or al,al jnz extra_characters_on_line cmp bx,if_directive-instruction_handler je close_skip_parsing_block cmp bx,repeat_directive-instruction_handler je close_skip_parsing_block cmp bx,while_directive-instruction_handler je close_skip_parsing_block jmp skip_parsing close_skip_parsing_block: cmp [blocks_stack],0 je unexpected_instruction cmp bx,[esp+2] jne unexpected_instruction dec [blocks_stack] pop eax edx test al,1 jz skip_parsing cmp bx,if_directive-instruction_handler jne parse_next_line test al,10000b jz parse_next_line mov al,0Fh stos byte [edi] mov eax,[current_line] stos dword [edi] inc [parsed_lines] mov eax,1 + (end_directive-instruction_handler) shl 8 stos dword [edi] mov eax,1 + (if_directive-instruction_handler) shl 8 stos dword [edi] jmp parse_next_line skip_parsing_else: cmp [blocks_stack],0 je unexpected_instruction cmp word [esp+2],if_directive-instruction_handler jne unexpected_instruction lods byte [esi] or al,al jz skip_parsing_pure_else cmp al,1Ah jne extra_characters_on_line push edi movzx ecx,byte [esi] inc esi call get_instruction jc extra_characters_on_line pop edi cmp bx,if_directive-instruction_handler jne extra_characters_on_line mov al,[esp] test al,1 jz skip_parsing_contents test al,100b jnz skip_parsing_contents test al,10000b jnz parse_else_if xor al,al mov [esp],al mov al,0Fh stos byte [edi] mov eax,[current_line] stos dword [edi] inc [parsed_lines] parse_else_if: mov eax,1 + (if_directive-instruction_handler) shl 8 stos dword [edi] jmp parse_if skip_parsing_pure_else: bts dword [esp],1 jc unexpected_instruction mov al,[esp] test al,1 jz skip_parsing test al,100b jnz skip_parsing and al,not 1 or al,1000b mov [esp],al jmp parse_next_line parse_line_contents: mov [parenthesis_stack],0 parse_instruction_arguments: cmp bx,prefix_instruction-instruction_handler je allow_embedded_instruction cmp bx,times_directive-instruction_handler je parse_times_directive cmp bx,end_directive-instruction_handler je allow_embedded_instruction cmp bx,label_directive-instruction_handler je parse_label_directive cmp bx,segment_directive-instruction_handler je parse_segment_directive cmp bx,load_directive-instruction_handler je parse_load_directive cmp bx,extrn_directive-instruction_handler je parse_extrn_directive cmp bx,public_directive-instruction_handler je parse_public_directive cmp bx,section_directive-instruction_handler je parse_formatter_argument cmp bx,format_directive-instruction_handler je parse_formatter_argument cmp bx,data_directive-instruction_handler je parse_formatter_argument jmp parse_argument parse_formatter_argument: or [formatter_symbols_allowed],-1 parse_argument: lea eax,[edi+100h] cmp eax,[labels_list] jae out_of_memory lods byte [esi] cmp al,':' je instruction_separator cmp al,',' je separator cmp al,'=' je separator cmp al,'|' je separator cmp al,'&' je separator cmp al,'~' je separator cmp al,'>' je greater cmp al,'<' je less cmp al,')' je close_parenthesis or al,al jz contents_parsed cmp al,'[' je address_argument cmp al,']' je separator cmp al,'{' je unallowed_character cmp al,'}' je unallowed_character cmp al,'#' je unallowed_character cmp al,'`' je unallowed_character dec esi cmp al,1Ah jne expression_argument push edi mov edi,directive_operators call get_operator or al,al jnz operator_argument inc esi movzx ecx,byte [esi] inc esi call get_symbol jnc symbol_argument cmp ecx,1 jne check_argument cmp byte [esi],'?' jne check_argument pop edi movs byte [edi],[esi] jmp argument_parsed symbol_argument: pop edi stos word [edi] jmp argument_parsed operator_argument: pop edi cmp al,85h je ptr_argument stos byte [edi] cmp al,80h je forced_expression cmp al,8Ch je forced_expression cmp al,81h je forced_parenthesis cmp al,82h je parse_from_operator cmp al,89h je parse_label_operator jmp argument_parsed allow_embedded_instruction: cmp byte [esi],1Ah jne parse_argument push edi inc esi movzx ecx,byte [esi] inc esi call get_instruction jnc embedded_instruction call get_data_directive jnc embedded_instruction pop edi sub esi,2 jmp parse_argument embedded_instruction: pop edi mov dl,al mov al,1 stos byte [edi] mov ax,bx stos word [edi] mov al,dl stos byte [edi] jmp parse_instruction_arguments parse_times_directive: mov al,'(' stos byte [edi] call convert_expression mov al,')' stos byte [edi] cmp byte [esi],':' jne allow_embedded_instruction movs byte [edi],[esi] jmp allow_embedded_instruction parse_segment_directive: or [formatter_symbols_allowed],-1 parse_label_directive: cmp byte [esi],1Ah jne argument_parsed push esi inc esi movzx ecx,byte [esi] inc esi call identify_label pop ebx cmp eax,0Fh je non_label_identified mov byte [edi],2 inc edi stos dword [edi] xor al,al stos byte [edi] jmp argument_parsed non_label_identified: mov esi,ebx jmp argument_parsed parse_load_directive: cmp byte [esi],1Ah jne argument_parsed push esi inc esi movzx ecx,byte [esi] inc esi call get_label_id pop ebx cmp eax,0Fh je non_label_identified mov byte [edi],2 inc edi stos dword [edi] xor al,al stos byte [edi] jmp argument_parsed parse_public_directive: cmp byte [esi],1Ah jne parse_argument inc esi push esi movzx ecx,byte [esi] inc esi push esi ecx push edi or [formatter_symbols_allowed],-1 call get_symbol mov [formatter_symbols_allowed],0 pop edi jc parse_public_label cmp al,1Dh jne parse_public_label add esp,12 stos word [edi] jmp parse_public_directive parse_public_label: pop ecx esi mov al,2 stos byte [edi] call get_label_id stos dword [edi] mov ax,8600h stos word [edi] pop ebx push ebx esi edi mov edi,directive_operators call get_operator pop edi edx ebx cmp al,86h je argument_parsed mov esi,edx xchg esi,ebx movzx ecx,byte [esi] inc esi mov ax,'(' stos word [edi] mov eax,ecx stos dword [edi] rep movs byte [edi],[esi] xor al,al stos byte [edi] xchg esi,ebx jmp argument_parsed parse_extrn_directive: cmp byte [esi],22h je parse_quoted_extrn cmp byte [esi],1Ah jne parse_argument push esi movzx ecx,byte [esi+1] add esi,2 mov ax,'(' stos word [edi] mov eax,ecx stos dword [edi] rep movs byte [edi],[esi] mov ax,8600h stos word [edi] pop esi parse_label_operator: cmp byte [esi],1Ah jne argument_parsed inc esi movzx ecx,byte [esi] inc esi mov al,2 stos byte [edi] call get_label_id stos dword [edi] xor al,al stos byte [edi] jmp argument_parsed parse_from_operator: cmp byte [esi],22h jne forced_expression jmp argument_parsed parse_quoted_extrn: inc esi mov ax,'(' stos word [edi] lods dword [esi] mov ecx,eax stos dword [edi] rep movs byte [edi],[esi] xor al,al stos byte [edi] push esi edi mov edi,directive_operators call get_operator mov edx,esi pop edi esi cmp al,86h jne argument_parsed stos byte [edi] mov esi,edx jmp parse_label_operator ptr_argument: call parse_address jmp address_parsed check_argument: push esi ecx sub esi,2 mov edi,single_operand_operators call get_operator pop ecx esi or al,al jnz not_instruction call get_instruction jnc embedded_instruction call get_data_directive jnc embedded_instruction not_instruction: pop edi sub esi,2 expression_argument: cmp byte [esi],22h jne not_string mov eax,[esi+1] lea ebx,[esi+5+eax] push ebx ecx esi edi mov al,'(' stos byte [edi] call convert_expression mov al,')' stos byte [edi] pop eax edx ecx ebx cmp esi,ebx jne expression_parsed mov edi,eax mov esi,edx string_argument: inc esi mov ax,'(' stos word [edi] lods dword [esi] mov ecx,eax stos dword [edi] shr ecx,1 jnc string_movsb_ok movs byte [edi],[esi] string_movsb_ok: shr ecx,1 jnc string_movsw_ok movs word [edi],[esi] string_movsw_ok: rep movs dword [edi],[esi] xor al,al stos byte [edi] jmp expression_parsed not_string: cmp byte [esi],'(' jne expression mov eax,esp sub eax,100h jc stack_overflow cmp eax,[stack_limit] jb stack_overflow push esi edi inc esi mov al,'{' stos byte [edi] inc [parenthesis_stack] jmp parse_argument expression: mov al,'(' stos byte [edi] call convert_expression mov al,')' stos byte [edi] jmp expression_parsed forced_expression: xor al,al xchg al,[formatter_symbols_allowed] push eax mov al,'(' stos byte [edi] call convert_expression mov al,')' stos byte [edi] pop eax mov [formatter_symbols_allowed],al jmp argument_parsed address_argument: call parse_address lods byte [esi] cmp al,']' je address_parsed dec esi mov al,')' stos byte [edi] jmp argument_parsed address_parsed: mov al,']' stos byte [edi] jmp argument_parsed parse_address: mov al,'[' stos byte [edi] cmp word [esi],021Ah jne convert_address push esi add esi,4 lea ebx,[esi+1] cmp byte [esi],':' pop esi jne convert_address add esi,2 mov ecx,2 push ebx edi call get_symbol pop edi esi jc unknown_segment_prefix cmp al,10h jne unknown_segment_prefix mov al,ah and ah,11110000b cmp ah,60h jne unknown_segment_prefix stos byte [edi] jmp convert_address unknown_segment_prefix: sub esi,5 convert_address: push edi mov edi,address_sizes call get_operator pop edi or al,al jz convert_expression add al,70h stos byte [edi] jmp convert_expression forced_parenthesis: cmp byte [esi],'(' jne argument_parsed inc esi mov al,'{' jmp separator unallowed_character: mov al,0FFh jmp separator close_parenthesis: mov al,'}' separator: stos byte [edi] jmp argument_parsed instruction_separator: stos byte [edi] jmp allow_embedded_instruction greater: cmp byte [esi],'=' jne separator inc esi mov al,0F2h jmp separator less: cmp byte [edi-1],0F6h je separator cmp byte [esi],'>' je not_equal cmp byte [esi],'=' jne separator inc esi mov al,0F3h jmp separator not_equal: inc esi mov al,0F1h jmp separator argument_parsed: cmp [parenthesis_stack],0 je parse_argument dec [parenthesis_stack] add esp,8 jmp argument_parsed expression_parsed: cmp [parenthesis_stack],0 je parse_argument cmp byte [esi],')' jne argument_parsed dec [parenthesis_stack] pop edi esi jmp expression contents_parsed: cmp [parenthesis_stack],0 je contents_ok dec [parenthesis_stack] add esp,8 jmp contents_parsed contents_ok: ret identify_label: cmp byte [esi],'.' je local_label_name call get_label_id cmp eax,10h jb label_identified or ebx,ebx jz anonymous_label_name dec ebx mov [current_locals_prefix],ebx label_identified: ret anonymous_label_name: cmp byte [esi-1],'@' je anonymous_label_name_ok mov eax,0Fh anonymous_label_name_ok: ret local_label_name: call get_label_id ret get_operator: cmp byte [esi],1Ah jne get_simple_operator mov edx,esi push ebp inc esi lods byte [esi] movzx ebp,al push edi mov ecx,ebp call lower_case pop edi check_operator: mov esi,converted movzx ecx,byte [edi] jecxz no_operator inc edi mov ebx,edi add ebx,ecx cmp ecx,ebp jne next_operator repe cmps byte [esi],[edi] je operator_found next_operator: mov edi,ebx inc edi jmp check_operator no_operator: mov esi,edx mov ecx,ebp pop ebp no_simple_operator: xor al,al ret operator_found: lea esi,[edx+2+ebp] mov ecx,ebp pop ebp mov al,[edi] ret get_simple_operator: mov al,[esi] cmp al,22h je no_simple_operator simple_operator: cmp byte [edi],1 jb no_simple_operator ja simple_next_operator cmp al,[edi+1] je simple_operator_found simple_next_operator: movzx ecx,byte [edi] lea edi,[edi+1+ecx+1] jmp simple_operator simple_operator_found: inc esi mov al,[edi+2] ret get_symbol: push esi mov ebp,ecx call lower_case mov ecx,ebp cmp cl,11 ja no_symbol sub cl,2 jc no_symbol movzx ebx,word [symbols+ecx*4] add ebx,symbols movzx edx,word [symbols+ecx*4+2] scan_symbols: or edx,edx jz no_symbol mov eax,edx shr eax,1 lea edi,[ebp+2] imul eax,edi lea edi,[ebx+eax] mov esi,converted mov ecx,ebp repe cmps byte [esi],[edi] ja symbols_up jb symbols_down mov ax,[edi] cmp al,18h jb symbol_ok cmp [formatter_symbols_allowed],0 je no_symbol symbol_ok: pop esi add esi,ebp clc ret no_symbol: pop esi mov ecx,ebp stc ret symbols_down: shr edx,1 jmp scan_symbols symbols_up: lea ebx,[edi+ecx+2] shr edx,1 adc edx,-1 jmp scan_symbols get_data_directive: push esi mov ebp,ecx call lower_case mov ecx,ebp cmp cl,4 ja no_instruction sub cl,2 jc no_instruction movzx ebx,word [data_directives+ecx*4] add ebx,data_directives movzx edx,word [data_directives+ecx*4+2] jmp scan_instructions get_instruction: push esi mov ebp,ecx call lower_case mov ecx,ebp cmp cl,16 ja no_instruction sub cl,2 jc no_instruction movzx ebx,word [instructions+ecx*4] add ebx,instructions movzx edx,word [instructions+ecx*4+2] scan_instructions: or edx,edx jz no_instruction mov eax,edx shr eax,1 lea edi,[ebp+3] imul eax,edi lea edi,[ebx+eax] mov esi,converted mov ecx,ebp repe cmps byte [esi],[edi] ja instructions_up jb instructions_down pop esi add esi,ebp mov al,[edi] mov bx,[edi+1] clc ret no_instruction: pop esi mov ecx,ebp stc ret instructions_down: shr edx,1 jmp scan_instructions instructions_up: lea ebx,[edi+ecx+3] shr edx,1 adc edx,-1 jmp scan_instructions get_label_id: cmp ecx,100h jae name_too_long cmp byte [esi],'@' je anonymous_label cmp byte [esi],'.' jne standard_label cmp byte [esi+1],'.' je standard_label cmp [current_locals_prefix],0 je standard_label push edi mov edi,[additional_memory_end] sub edi,2 sub edi,ecx push ecx esi mov esi,[current_locals_prefix] lods byte [esi] movzx ecx,al sub edi,ecx cmp edi,[free_additional_memory] jb out_of_memory mov word [edi],0 add edi,2 mov ebx,edi rep movs byte [edi],[esi] pop esi ecx add al,cl jc name_too_long rep movs byte [edi],[esi] pop edi push ebx esi movzx ecx,al mov byte [ebx-1],al mov esi,ebx call get_label_id pop esi ebx cmp ebx,[eax+24] jne composed_label_id_ok lea edx,[ebx-2] mov [additional_memory_end],edx composed_label_id_ok: ret anonymous_label: cmp ecx,2 jne standard_label mov al,[esi+1] mov ebx,characters xlat byte [ebx] cmp al,'@' je new_anonymous cmp al,'b' je anonymous_back cmp al,'r' je anonymous_back cmp al,'f' jne standard_label add esi,2 mov eax,[anonymous_forward] or eax,eax jnz anonymous_ok mov eax,[current_line] mov [error_line],eax call allocate_label mov [anonymous_forward],eax anonymous_ok: xor ebx,ebx ret anonymous_back: mov eax,[anonymous_reverse] or eax,eax jz new_anonymous add esi,2 jmp anonymous_ok new_anonymous: add esi,2 mov eax,[anonymous_forward] or eax,eax jnz new_anonymous_ok call allocate_label new_anonymous_ok: mov [anonymous_reverse],eax mov [anonymous_forward],0 jmp anonymous_ok standard_label: cmp byte [esi],'%' je get_predefined_id cmp byte [esi],'$' jne find_label cmp ecx,2 ja find_label inc esi jb get_current_offset_id inc esi cmp byte [esi-1],'$' je get_org_origin_id sub esi,ecx jmp find_label get_current_offset_id: xor eax,eax ret get_counter_id: mov eax,1 ret get_timestamp_id: mov eax,2 ret get_org_origin_id: mov eax,3 ret get_predefined_id: cmp ecx,2 ja find_label inc esi cmp cl,1 je get_counter_id lods byte [esi] mov ebx,characters xlat [ebx] cmp al,'t' je get_timestamp_id sub esi,2 find_label: xor ebx,ebx mov eax,2166136261 mov ebp,16777619 hash_label: xor al,[esi+ebx] mul ebp inc bl cmp bl,cl jb hash_label mov ebp,eax shl eax,8 and ebp,0FFh shl 24 xor ebp,eax or ebp,ebx mov [label_hash],ebp push edi esi push ecx mov ecx,32 mov ebx,hash_tree follow_tree: mov edx,[ebx] or edx,edx jz extend_tree xor eax,eax shl ebp,1 adc eax,0 lea ebx,[edx+eax*4] dec ecx jnz follow_tree mov [label_leaf],ebx pop edx mov eax,[ebx] or eax,eax jz add_label mov ebx,esi mov ebp,[label_hash] compare_labels: mov esi,ebx mov ecx,edx mov edi,[eax+4] mov edi,[edi+24] repe cmps byte [esi],[edi] je label_found mov eax,[eax] or eax,eax jnz compare_labels jmp add_label label_found: add esp,4 pop edi mov eax,[eax+4] ret extend_tree: mov edx,[free_additional_memory] lea eax,[edx+8] cmp eax,[additional_memory_end] ja out_of_memory mov [free_additional_memory],eax xor eax,eax mov [edx],eax mov [edx+4],eax shl ebp,1 adc eax,0 mov [ebx],edx lea ebx,[edx+eax*4] dec ecx jnz extend_tree mov [label_leaf],ebx pop edx add_label: mov ecx,edx pop esi cmp byte [esi-2],0 je label_name_ok mov al,[esi] cmp al,30h jb name_first_char_ok cmp al,39h jbe invalid_name name_first_char_ok: cmp al,'$' jne check_for_reserved_word cmp ecx,1 jne invalid_name reserved_word: mov eax,0Fh pop edi ret check_for_reserved_word: call get_instruction jnc reserved_word call get_data_directive jnc reserved_word call get_symbol jnc reserved_word sub esi,2 mov edi,operators call get_operator or al,al jnz reserved_word mov edi,single_operand_operators call get_operator or al,al jnz reserved_word mov edi,directive_operators call get_operator or al,al jnz reserved_word inc esi movzx ecx,byte [esi] inc esi label_name_ok: mov edx,[free_additional_memory] lea eax,[edx+8] cmp eax,[additional_memory_end] ja out_of_memory mov [free_additional_memory],eax mov ebx,esi add esi,ecx mov eax,[label_leaf] mov edi,[eax] mov [edx],edi mov [eax],edx call allocate_label mov [edx+4],eax mov [eax+24],ebx pop edi ret allocate_label: mov eax,[labels_list] mov ecx,LABEL_STRUCTURE_SIZE shr 2 initialize_label: sub eax,4 mov dword [eax],0 loop initialize_label mov [labels_list],eax ret LABEL_STRUCTURE_SIZE = 32 ; --------------- "parser.inc" ---------------- ; ; --------------- "exprpars.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. convert_expression: push ebp call get_fp_value jnc fp_expression mov [current_offset],esp expression_loop: push edi mov edi,single_operand_operators call get_operator pop edi or al,al jz expression_element push eax jmp expression_loop expression_element: mov al,[esi] cmp al,1Ah je expression_number cmp al,22h je expression_number cmp al,'(' je expression_number mov al,'!' stos byte [edi] jmp expression_operator expression_number: call convert_number expression_operator: push edi mov edi,operators call get_operator pop edi or al,al jz expression_end operators_loop: cmp esp,[current_offset] je push_operator mov bl,al and bl,0F0h mov bh,byte [esp] and bh,0F0h cmp bl,bh ja push_operator pop ebx mov byte [edi],bl inc edi jmp operators_loop push_operator: push eax jmp expression_loop expression_end: cmp esp,[current_offset] je expression_converted pop eax stos byte [edi] jmp expression_end expression_converted: pop ebp ret fp_expression: mov al,'.' stos byte [edi] mov eax,[fp_value] stos dword [edi] mov eax,[fp_value+4] stos dword [edi] mov eax,[fp_value+8] stos dword [edi] pop ebp ret convert_number: lea eax,[edi-10h] mov edx,[memory_end] cmp [source_start],0 je check_memory_for_number mov edx,[labels_list] check_memory_for_number: cmp eax,edx jae out_of_memory mov eax,esp sub eax,100h jc stack_overflow cmp eax,[stack_limit] jb stack_overflow cmp byte [esi],'(' je expression_value inc edi call get_number jc symbol_value or ebp,ebp jz valid_number mov byte [edi-1],0Fh ret valid_number: cmp dword [edi+4],0 jne qword_number cmp word [edi+2],0 jne dword_number cmp byte [edi+1],0 jne word_number byte_number: mov byte [edi-1],1 inc edi ret qword_number: mov byte [edi-1],8 add edi,8 ret dword_number: mov byte [edi-1],4 scas dword [edi] ret word_number: mov byte [edi-1],2 scas word [edi] ret expression_value: inc esi push [current_offset] call convert_expression pop [current_offset] lods byte [esi] cmp al,')' jne invalid_expression ret symbol_value: cmp [source_start],0 je preprocessor_value push edi mov edi,address_registers call get_operator or al,al jnz register_value mov edi,directive_operators call get_operator pop edi or al,al jnz broken_value lods byte [esi] cmp al,1Ah jne invalid_value lods byte [esi] movzx ecx,al call get_label_id store_label_value: mov byte [edi-1],11h stos dword [edi] ret broken_value: mov eax,0Fh jmp store_label_value register_value: pop edi mov byte [edi-1],10h stos byte [edi] ret preprocessor_value: dec edi cmp [hash_tree],0 je invalid_value lods byte [esi] cmp al,1Ah jne invalid_value lods byte [esi] mov cl,al mov ch,10b call get_preprocessor_symbol jc invalid_value push esi mov esi,[edx+8] push [current_offset] call convert_expression pop [current_offset] pop esi ret get_number: xor ebp,ebp lods byte [esi] cmp al,22h je get_text_number cmp al,1Ah jne not_number lods byte [esi] movzx ecx,al mov [number_start],esi mov al,[esi] cmp al,'$' je number_begin sub al,30h cmp al,9 ja invalid_number number_begin: mov ebx,esi add esi,ecx push esi dec esi mov dword [edi],0 mov dword [edi+4],0 cmp byte [ebx],'$' je pascal_hex_number cmp word [ebx],'0x' je get_hex_number mov al,[esi] dec esi cmp al,'h' je get_hex_number cmp al,'b' je get_bin_number cmp al,'d' je get_dec_number cmp al,'o' je get_oct_number cmp al,'H' je get_hex_number cmp al,'B' je get_bin_number cmp al,'D' je get_dec_number cmp al,'O' je get_oct_number inc esi get_dec_number: mov ebx,esi mov esi,[number_start] get_dec_digit: cmp esi,ebx ja number_ok cmp byte [esi],27h je next_dec_digit xor edx,edx mov eax,[edi] shld edx,eax,2 shl eax,2 add eax,[edi] adc edx,0 add eax,eax adc edx,edx mov [edi],eax mov eax,[edi+4] add eax,eax jc dec_out_of_range add eax,eax jc dec_out_of_range add eax,[edi+4] jc dec_out_of_range add eax,eax jc dec_out_of_range add eax,edx jc dec_out_of_range mov [edi+4],eax movzx eax,byte [esi] sub al,30h jc bad_number cmp al,9 ja bad_number add [edi],eax adc dword [edi+4],0 jc dec_out_of_range next_dec_digit: inc esi jmp get_dec_digit dec_out_of_range: cmp esi,ebx ja dec_out_of_range_finished lods byte [esi] cmp al,27h je bad_number sub al,30h jc bad_number cmp al,9 ja bad_number jmp dec_out_of_range dec_out_of_range_finished: or ebp,-1 jmp number_ok bad_number: pop eax invalid_number: mov esi,[number_start] dec esi not_number: dec esi stc ret get_bin_number: xor bl,bl get_bin_digit: cmp esi,[number_start] jb number_ok movzx eax,byte [esi] cmp al,27h je bin_digit_skip sub al,30h cmp al,1 ja bad_number xor edx,edx mov cl,bl dec esi cmp bl,64 je bin_out_of_range inc bl cmp cl,32 jae bin_digit_high shl eax,cl or dword [edi],eax jmp get_bin_digit bin_digit_high: sub cl,32 shl eax,cl or dword [edi+4],eax jmp get_bin_digit bin_out_of_range: or al,al jz get_bin_digit or ebp,-1 jmp get_bin_digit bin_digit_skip: dec esi jmp get_bin_digit pascal_hex_number: cmp cl,1 je bad_number get_hex_number: xor bl,bl get_hex_digit: cmp esi,[number_start] jb number_ok movzx eax,byte [esi] cmp al,27h je hex_digit_skip cmp al,'x' je hex_number_ok cmp al,'$' je pascal_hex_ok sub al,30h cmp al,9 jbe hex_digit_ok sub al,7 cmp al,15 jbe hex_letter_digit_ok sub al,20h cmp al,15 ja bad_number hex_letter_digit_ok: cmp al,10 jb bad_number hex_digit_ok: xor edx,edx mov cl,bl dec esi cmp bl,64 je hex_out_of_range add bl,4 cmp cl,32 jae hex_digit_high shl eax,cl or dword [edi],eax jmp get_hex_digit hex_digit_high: sub cl,32 shl eax,cl or dword [edi+4],eax jmp get_hex_digit hex_out_of_range: or al,al jz get_hex_digit or ebp,-1 jmp get_hex_digit hex_digit_skip: dec esi jmp get_hex_digit get_oct_number: xor bl,bl get_oct_digit: cmp esi,[number_start] jb number_ok movzx eax,byte [esi] cmp al,27h je oct_digit_skip sub al,30h cmp al,7 ja bad_number oct_digit_ok: xor edx,edx mov cl,bl dec esi cmp bl,64 jae oct_out_of_range add bl,3 cmp cl,30 je oct_digit_wrap ja oct_digit_high shl eax,cl or dword [edi],eax jmp get_oct_digit oct_digit_wrap: shl eax,cl adc dword [edi+4],0 or dword [edi],eax jmp get_oct_digit oct_digit_high: sub cl,32 shl eax,cl or dword [edi+4],eax jmp get_oct_digit oct_digit_skip: dec esi jmp get_oct_digit oct_out_of_range: or al,al jz get_oct_digit or ebp,-1 jmp get_oct_digit hex_number_ok: dec esi pascal_hex_ok: cmp esi,[number_start] jne bad_number number_ok: pop esi number_done: clc ret get_text_number: lods dword [esi] mov edx,eax xor bl,bl mov dword [edi],0 mov dword [edi+4],0 get_text_character: sub edx,1 jc number_done movzx eax,byte [esi] inc esi mov cl,bl cmp bl,64 je text_out_of_range add bl,8 cmp cl,32 jae text_character_high shl eax,cl or dword [edi],eax jmp get_text_character text_character_high: sub cl,32 shl eax,cl or dword [edi+4],eax jmp get_text_character text_out_of_range: or ebp,-1 jmp get_text_character get_fp_value: push edi esi lods byte [esi] cmp al,1Ah je fp_value_start cmp al,'-' je fp_sign_ok cmp al,'+' jne not_fp_value fp_sign_ok: lods byte [esi] cmp al,1Ah jne not_fp_value fp_value_start: lods byte [esi] movzx ecx,al cmp cl,1 jbe not_fp_value lea edx,[esi+1] xor ah,ah check_fp_value: lods byte [esi] cmp al,'.' je fp_character_dot cmp al,'E' je fp_character_exp cmp al,'e' je fp_character_exp cmp al,'F' je fp_last_character cmp al,'f' je fp_last_character digit_expected: cmp al,'0' jb not_fp_value cmp al,'9' ja not_fp_value jmp fp_character_ok fp_character_dot: cmp esi,edx je not_fp_value or ah,ah jnz not_fp_value or ah,1 lods byte [esi] loop digit_expected not_fp_value: pop esi edi stc ret fp_last_character: cmp cl,1 jne not_fp_value or ah,4 jmp fp_character_ok fp_character_exp: cmp esi,edx je not_fp_value cmp ah,1 ja not_fp_value or ah,2 cmp ecx,1 jne fp_character_ok cmp byte [esi],'+' je fp_exp_sign cmp byte [esi],'-' jne fp_character_ok fp_exp_sign: inc esi cmp byte [esi],1Ah jne not_fp_value inc esi lods byte [esi] movzx ecx,al inc ecx fp_character_ok: dec ecx jnz check_fp_value or ah,ah jz not_fp_value pop esi lods byte [esi] mov [fp_sign],0 cmp al,1Ah je fp_get inc esi cmp al,'+' je fp_get mov [fp_sign],1 fp_get: lods byte [esi] movzx ecx,al xor edx,edx mov edi,fp_value mov [edi],edx mov [edi+4],edx mov [edi+12],edx call fp_optimize mov [fp_format],0 mov al,[esi] fp_before_dot: lods byte [esi] cmp al,'.' je fp_dot cmp al,'E' je fp_exponent cmp al,'e' je fp_exponent cmp al,'F' je fp_done cmp al,'f' je fp_done sub al,30h mov edi,fp_value+16 xor edx,edx mov dword [edi+12],edx mov dword [edi],edx mov dword [edi+4],edx mov [edi+7],al mov dl,7 mov dword [edi+8],edx call fp_optimize mov edi,fp_value push ecx mov ecx,10 call fp_mul pop ecx mov ebx,fp_value+16 call fp_add loop fp_before_dot fp_dot: mov edi,fp_value+16 xor edx,edx mov [edi],edx mov [edi+4],edx mov byte [edi+7],80h mov [edi+8],edx mov dword [edi+12],edx dec ecx jz fp_done fp_after_dot: lods byte [esi] cmp al,'E' je fp_exponent cmp al,'e' je fp_exponent cmp al,'F' je fp_done cmp al,'f' je fp_done inc [fp_format] cmp [fp_format],80h jne fp_counter_ok mov [fp_format],7Fh fp_counter_ok: dec esi mov edi,fp_value+16 push ecx mov ecx,10 call fp_div push dword [edi] push dword [edi+4] push dword [edi+8] push dword [edi+12] lods byte [esi] sub al,30h movzx ecx,al call fp_mul mov ebx,edi mov edi,fp_value call fp_add mov edi,fp_value+16 pop dword [edi+12] pop dword [edi+8] pop dword [edi+4] pop dword [edi] pop ecx dec ecx jnz fp_after_dot jmp fp_done fp_exponent: or [fp_format],80h xor edx,edx xor ebp,ebp dec ecx jnz get_exponent cmp byte [esi],'+' je fp_exponent_sign cmp byte [esi],'-' jne fp_done not ebp fp_exponent_sign: add esi,2 lods byte [esi] movzx ecx,al get_exponent: movzx eax,byte [esi] inc esi sub al,30h cmp al,10 jae exponent_ok imul edx,10 cmp edx,8000h jae value_out_of_range add edx,eax loop get_exponent exponent_ok: mov edi,fp_value or edx,edx jz fp_done mov ecx,edx or ebp,ebp jnz fp_negative_power fp_power: push ecx mov ecx,10 call fp_mul pop ecx loop fp_power jmp fp_done fp_negative_power: push ecx mov ecx,10 call fp_div pop ecx loop fp_negative_power fp_done: mov edi,fp_value mov al,[fp_format] mov [edi+10],al mov al,[fp_sign] mov [edi+11],al test byte [edi+15],80h jz fp_ok add dword [edi],1 adc dword [edi+4],0 jnc fp_ok mov eax,[edi+4] shrd [edi],eax,1 shr eax,1 or eax,80000000h mov [edi+4],eax inc word [edi+8] fp_ok: pop edi clc ret fp_mul: or ecx,ecx jz fp_zero mov eax,[edi+12] mul ecx mov [edi+12],eax mov ebx,edx mov eax,[edi] mul ecx add eax,ebx adc edx,0 mov [edi],eax mov ebx,edx mov eax,[edi+4] mul ecx add eax,ebx adc edx,0 mov [edi+4],eax .loop: or edx,edx jz .done mov eax,[edi] shrd [edi+12],eax,1 mov eax,[edi+4] shrd [edi],eax,1 shrd eax,edx,1 mov [edi+4],eax shr edx,1 inc dword [edi+8] cmp dword [edi+8],8000h jge value_out_of_range jmp .loop .done: ret fp_div: mov eax,[edi+4] xor edx,edx div ecx mov [edi+4],eax mov eax,[edi] div ecx mov [edi],eax mov eax,[edi+12] div ecx mov [edi+12],eax mov ebx,eax or ebx,[edi] or ebx,[edi+4] jz fp_zero .loop: test byte [edi+7],80h jnz .exp_ok mov eax,[edi] shld [edi+4],eax,1 mov eax,[edi+12] shld [edi],eax,1 add eax,eax mov [edi+12],eax dec dword [edi+8] add edx,edx jmp .loop .exp_ok: mov eax,edx xor edx,edx div ecx add [edi+12],eax adc dword [edi],0 adc dword [edi+4],0 jnc .done mov eax,[edi+4] mov ebx,[edi] shrd [edi],eax,1 shrd [edi+12],ebx,1 shr eax,1 or eax,80000000h mov [edi+4],eax inc dword [edi+8] .done: ret fp_add: cmp dword [ebx+8],8000h je .done cmp dword [edi+8],8000h je .copy mov eax,[ebx+8] cmp eax,[edi+8] jge .exp_ok mov eax,[edi+8] .exp_ok: call .change_exp xchg ebx,edi call .change_exp xchg ebx,edi mov edx,[ebx+12] mov eax,[ebx] mov ebx,[ebx+4] add [edi+12],edx adc [edi],eax adc [edi+4],ebx jnc .done mov eax,[edi] shrd [edi+12],eax,1 mov eax,[edi+4] shrd [edi],eax,1 shr eax,1 or eax,80000000h mov [edi+4],eax inc dword [edi+8] .done: ret .copy: mov eax,[ebx] mov [edi],eax mov eax,[ebx+4] mov [edi+4],eax mov eax,[ebx+8] mov [edi+8],eax mov eax,[ebx+12] mov [edi+12],eax ret .change_exp: push ecx mov ecx,eax sub ecx,[ebx+8] mov edx,[ebx+4] jecxz .exp_done .exp_loop: mov ebp,[ebx] shrd [ebx+12],ebp,1 shrd [ebx],edx,1 shr edx,1 inc dword [ebx+8] loop .exp_loop .exp_done: mov [ebx+4],edx pop ecx ret fp_optimize: mov eax,[edi] mov ebp,[edi+4] or ebp,[edi] or ebp,[edi+12] jz fp_zero .loop: test byte [edi+7],80h jnz .done shld [edi+4],eax,1 mov ebp,[edi+12] shld eax,ebp,1 mov [edi],eax shl dword [edi+12],1 dec dword [edi+8] jmp .loop .done: ret fp_zero: mov dword [edi+8],8000h ret preevaluate_logical_expression: xor al,al preevaluate_embedded_logical_expression: mov [logical_value_wrapping],al push edi call preevaluate_logical_value preevaluation_loop: cmp al,0FFh je invalid_logical_expression mov dl,[esi] inc esi cmp dl,'|' je preevaluate_or cmp dl,'&' je preevaluate_and cmp dl,'}' je preevaluation_done or dl,dl jnz invalid_logical_expression preevaluation_done: pop edx dec esi ret preevaluate_or: cmp al,'1' je quick_true cmp al,'0' je leave_only_following push edi mov al,dl stos byte [edi] call preevaluate_logical_value pop ebx cmp al,'0' je leave_only_preceding cmp al,'1' jne preevaluation_loop stos byte [edi] xor al,al jmp preevaluation_loop preevaluate_and: cmp al,'0' je quick_false cmp al,'1' je leave_only_following push edi mov al,dl stos byte [edi] call preevaluate_logical_value pop ebx cmp al,'1' je leave_only_preceding cmp al,'0' jne preevaluation_loop stos byte [edi] xor al,al jmp preevaluation_loop leave_only_following: mov edi,[esp] call preevaluate_logical_value jmp preevaluation_loop leave_only_preceding: mov edi,ebx xor al,al jmp preevaluation_loop quick_true: call skip_logical_value jc invalid_logical_expression mov edi,[esp] mov al,'1' jmp preevaluation_loop quick_false: call skip_logical_value jc invalid_logical_expression mov edi,[esp] mov al,'0' jmp preevaluation_loop invalid_logical_expression: pop edi mov esi,edi mov al,0FFh stos byte [edi] ret skip_logical_value: cmp byte [esi],'~' jne negation_skipped inc esi jmp skip_logical_value negation_skipped: mov al,[esi] cmp al,'{' jne skip_simple_logical_value inc esi xchg al,[logical_value_wrapping] push eax skip_logical_expression: call skip_logical_value lods byte [esi] or al,al jz wrongly_structured_logical_expression cmp al,0Fh je wrongly_structured_logical_expression cmp al,'|' je skip_logical_expression cmp al,'&' je skip_logical_expression cmp al,'}' jne wrongly_structured_logical_expression pop eax mov [logical_value_wrapping],al logical_value_skipped: clc ret wrongly_structured_logical_expression: pop eax stc ret skip_simple_logical_value: mov [logical_value_parentheses],0 find_simple_logical_value_end: mov al,[esi] or al,al jz logical_value_skipped cmp al,0Fh je logical_value_skipped cmp al,'|' je logical_value_skipped cmp al,'&' je logical_value_skipped cmp al,'{' je skip_logical_value_internal_parenthesis cmp al,'}' jne skip_logical_value_symbol sub [logical_value_parentheses],1 jnc skip_logical_value_symbol cmp [logical_value_wrapping],'{' jne skip_logical_value_symbol jmp logical_value_skipped skip_logical_value_internal_parenthesis: inc [logical_value_parentheses] skip_logical_value_symbol: call skip_symbol jmp find_simple_logical_value_end preevaluate_logical_value: mov ebp,edi preevaluate_negation: cmp byte [esi],'~' jne preevaluate_negation_ok movs byte [edi],[esi] jmp preevaluate_negation preevaluate_negation_ok: mov ebx,esi cmp byte [esi],'{' jne preevaluate_simple_logical_value lods byte [esi] stos byte [edi] push ebp mov dl,[logical_value_wrapping] push edx call preevaluate_embedded_logical_expression pop edx mov [logical_value_wrapping],dl pop ebp cmp al,0FFh je invalid_logical_value cmp byte [esi],'}' jne invalid_logical_value or al,al jnz preevaluated_expression_value movs byte [edi],[esi] ret preevaluated_expression_value: inc esi lea edx,[edi-1] sub edx,ebp test edx,1 jz expression_negation_ok xor al,1 expression_negation_ok: mov edi,ebp ret invalid_logical_value: mov edi,ebp mov al,0FFh ret preevaluate_simple_logical_value: xor edx,edx mov [logical_value_parentheses],edx find_logical_value_boundaries: mov al,[esi] or al,al jz logical_value_boundaries_found cmp al,'{' je logical_value_internal_parentheses cmp al,'}' je logical_value_boundaries_parenthesis_close cmp al,'|' je logical_value_boundaries_found cmp al,'&' je logical_value_boundaries_found or edx,edx jnz next_symbol_in_logical_value cmp al,0F0h je preevaluable_logical_operator cmp al,0F7h je preevaluable_logical_operator cmp al,0F6h jne next_symbol_in_logical_value preevaluable_logical_operator: mov edx,esi next_symbol_in_logical_value: call skip_symbol jmp find_logical_value_boundaries logical_value_internal_parentheses: inc [logical_value_parentheses] jmp next_symbol_in_logical_value logical_value_boundaries_parenthesis_close: sub [logical_value_parentheses],1 jnc next_symbol_in_logical_value cmp [logical_value_wrapping],'{' jne next_symbol_in_logical_value logical_value_boundaries_found: or edx,edx jz non_preevaluable_logical_value mov al,[edx] cmp al,0F0h je compare_symbols cmp al,0F7h je compare_symbol_types cmp al,0F6h je scan_symbols_list non_preevaluable_logical_value: mov ecx,esi mov esi,ebx sub ecx,esi jz invalid_logical_value cmp esi,edi je leave_logical_value_intact rep movs byte [edi],[esi] xor al,al ret leave_logical_value_intact: add edi,ecx add esi,ecx xor al,al ret compare_symbols: lea ecx,[esi-1] sub ecx,edx mov eax,edx sub eax,ebx cmp ecx,eax jne preevaluated_false push esi edi mov esi,ebx lea edi,[edx+1] repe cmps byte [esi],[edi] pop edi esi je preevaluated_true preevaluated_false: mov eax,edi sub eax,ebp test eax,1 jnz store_true store_false: mov edi,ebp mov al,'0' ret preevaluated_true: mov eax,edi sub eax,ebp test eax,1 jnz store_false store_true: mov edi,ebp mov al,'1' ret compare_symbol_types: push esi lea esi,[edx+1] type_comparison: cmp esi,[esp] je types_compared mov al,[esi] cmp al,[ebx] jne different_type cmp al,'(' jne equal_type mov al,[esi+1] mov ah,[ebx+1] cmp al,ah je equal_type or al,al jz different_type or ah,ah jz different_type cmp al,'.' je different_type cmp ah,'.' je different_type equal_type: call skip_symbol xchg esi,ebx call skip_symbol xchg esi,ebx jmp type_comparison types_compared: pop esi cmp byte [ebx],0F7h jne preevaluated_false jmp preevaluated_true different_type: pop esi jmp preevaluated_false scan_symbols_list: push edi esi lea esi,[edx+1] sub edx,ebx lods byte [esi] cmp al,'<' jne invalid_symbols_list get_next_from_list: mov edi,esi get_from_list: cmp byte [esi],',' je compare_in_list cmp byte [esi],'>' je compare_in_list cmp esi,[esp] jae invalid_symbols_list call skip_symbol jmp get_from_list compare_in_list: mov ecx,esi sub ecx,edi cmp ecx,edx jne not_equal_length_in_list mov esi,ebx repe cmps byte [esi],[edi] mov esi,edi jne not_equal_in_list skip_rest_of_list: cmp byte [esi],'>' je check_list_end cmp esi,[esp] jae invalid_symbols_list call skip_symbol jmp skip_rest_of_list check_list_end: inc esi cmp esi,[esp] jne invalid_symbols_list pop esi edi jmp preevaluated_true not_equal_in_list: add esi,ecx not_equal_length_in_list: lods byte [esi] cmp al,',' je get_next_from_list cmp esi,[esp] jne invalid_symbols_list pop esi edi jmp preevaluated_false invalid_symbols_list: pop esi edi jmp invalid_logical_value ; --------------- "exprpars.inc" ---------------- ; ; --------------- "assemble.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. assembler: xor eax,eax mov [stub_size],eax mov [number_of_sections],eax mov [current_pass],ax mov [resolver_flags],eax assembler_loop: mov eax,[labels_list] mov [display_buffer],eax mov eax,[additional_memory] mov [free_additional_memory],eax mov eax,[additional_memory_end] mov [structures_buffer],eax mov esi,[source_start] mov edi,[code_start] xor eax,eax mov dword [adjustment],eax mov dword [adjustment+4],eax mov dword [org_origin],edi mov dword [org_origin+4],eax mov [org_start],edi mov [org_registers],eax mov [org_symbol],eax mov [error_line],eax mov [counter],eax mov [format_flags],eax mov [number_of_relocations],eax mov [undefined_data_end],eax mov [file_extension],eax mov [next_pass_needed],al mov [output_format],al mov [labels_type],al mov [virtual_data],al mov [code_type],16 pass_loop: call assemble_line jnc pass_loop mov eax,[additional_memory_end] cmp eax,[structures_buffer] je pass_done sub eax,20h mov eax,[eax+4] mov [current_line],eax jmp missing_end_directive pass_done: call close_pass mov eax,[labels_list] check_symbols: cmp eax,[memory_end] jae symbols_checked test byte [eax+8],8 jz symbol_defined_ok mov cx,[current_pass] cmp cx,[eax+18] jne symbol_defined_ok test byte [eax+8],1 jz symbol_defined_ok sub cx,[eax+16] cmp cx,1 jne symbol_defined_ok and byte [eax+8],not 1 or [next_pass_needed],-1 symbol_defined_ok: test byte [eax+8],10h jz use_prediction_ok mov cx,[current_pass] and byte [eax+8],not 10h test byte [eax+8],20h jnz check_use_prediction cmp cx,[eax+18] jne use_prediction_ok test byte [eax+8],8 jz use_prediction_ok jmp use_misprediction check_use_prediction: test byte [eax+8],8 jz use_misprediction cmp cx,[eax+18] je use_prediction_ok use_misprediction: or [next_pass_needed],-1 use_prediction_ok: test byte [eax+8],40h jz check_next_symbol and byte [eax+8],not 40h test byte [eax+8],4 jnz define_misprediction mov cx,[current_pass] test byte [eax+8],80h jnz check_define_prediction cmp cx,[eax+16] jne check_next_symbol test byte [eax+8],1 jz check_next_symbol jmp define_misprediction check_define_prediction: test byte [eax+8],1 jz define_misprediction cmp cx,[eax+16] je check_next_symbol define_misprediction: or [next_pass_needed],-1 check_next_symbol: add eax,LABEL_STRUCTURE_SIZE jmp check_symbols symbols_checked: cmp [next_pass_needed],0 jne next_pass mov eax,[error_line] or eax,eax jz assemble_ok mov [current_line],eax call error_handler error_handler: mov eax,[error] sub eax,error_handler add [esp],eax ret next_pass: inc [current_pass] mov ax,[current_pass] cmp ax,[passes_limit] je code_cannot_be_generated jmp assembler_loop assemble_ok: ret assemble_line: mov eax,[display_buffer] sub eax,100h cmp edi,eax ja out_of_memory lods byte [esi] cmp al,1 je assemble_instruction jb source_end cmp al,3 jb define_label je define_constant cmp al,0Fh je new_line cmp al,13h je code_type_setting cmp al,10h jne illegal_instruction lods byte [esi] jmp segment_prefix code_type_setting: lods byte [esi] mov [code_type],al jmp line_assembled new_line: lods dword [esi] mov [current_line],eax mov [prefixed_instruction],0 cmp [symbols_file],0 je continue_line mov ebx,[display_buffer] mov dword [ebx-4],1 mov dword [ebx-8],1Ch sub ebx,8+1Ch cmp ebx,edi jbe out_of_memory mov [display_buffer],ebx mov [ebx],eax mov [ebx+4],edi mov eax,dword [org_origin] mov edx,dword [org_origin+4] mov ecx,[org_registers] mov [ebx+8],eax mov [ebx+8+4],edx mov [ebx+10h],ecx mov edx,[org_symbol] mov eax,dword [labels_type] mov [ebx+14h],edx mov [ebx+18h],eax continue_line: cmp byte [esi],0Fh je line_assembled jmp assemble_line define_label: lods dword [esi] cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol mov ebx,eax lods byte [esi] mov cl,al mov eax,edi xor edx,edx sub eax,dword [org_origin] sbb edx,dword [org_origin+4] mov ch,[labels_type] cmp [virtual_data],0 jne make_virtual_label or byte [ebx+9],1 xchg eax,[ebx] xchg edx,[ebx+4] sub eax,[ebx] sbb edx,[ebx+4] mov dword [adjustment],eax mov dword [adjustment+4],edx or eax,edx setnz ah jmp finish_label_symbol make_virtual_label: and byte [ebx+9],not 1 cmp eax,[ebx] mov [ebx],eax setne ah cmp edx,[ebx+4] mov [ebx+4],edx setne al or ah,al finish_label_symbol: cmp cl,[ebx+10] mov [ebx+10],cl setne al or ah,al cmp ch,[ebx+11] mov [ebx+11],ch setne al or ah,al mov edx,[org_registers] cmp edx,[ebx+12] mov [ebx+12],edx setne al or ah,al or ch,ch jz label_symbol_ok mov edx,[org_symbol] cmp edx,[ebx+20] mov [ebx+20],edx setne al or ah,al label_symbol_ok: mov cx,[current_pass] xchg [ebx+16],cx mov edx,[current_line] mov [ebx+28],edx and byte [ebx+8],not 2 test byte [ebx+8],1 jz new_label cmp cx,[ebx+16] je symbol_already_defined inc cx sub cx,[ebx+16] setnz al or ah,al jz continue_line test byte [ebx+8],8 jz continue_line mov cx,[current_pass] cmp cx,[ebx+18] jne continue_line or [next_pass_needed],-1 jmp continue_line new_label: or byte [ebx+8],1 jmp continue_line define_constant: lods dword [esi] inc esi cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol mov edx,[eax+8] push edx cmp [current_pass],0 je get_constant_value test dl,4 jnz get_constant_value mov cx,[current_pass] cmp cx,[eax+16] je get_constant_value and dl,not 1 mov [eax+8],dl get_constant_value: push eax mov al,byte [esi-1] push eax call get_value pop ebx mov ch,bl pop ebx pop dword [ebx+8] cmp ebx,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol xor cl,cl mov ch,[value_type] cmp ch,3 je invalid_use_of_symbol make_constant: and byte [ebx+9],not 1 cmp eax,[ebx] mov [ebx],eax setne ah cmp edx,[ebx+4] mov [ebx+4],edx setne al or ah,al cmp cl,[ebx+10] mov [ebx+10],cl setne al or ah,al cmp ch,[ebx+11] mov [ebx+11],ch setne al or ah,al xor edx,edx cmp edx,[ebx+12] mov [ebx+12],edx setne al or ah,al or ch,ch jz constant_symbol_ok mov edx,[symbol_identifier] cmp edx,[ebx+20] mov [ebx+20],edx setne al or ah,al constant_symbol_ok: mov cx,[current_pass] xchg [ebx+16],cx mov edx,[current_line] mov [ebx+28],edx test byte [ebx+8],1 jz new_constant cmp cx,[ebx+16] jne redeclare_constant test byte [ebx+8],2 jz symbol_already_defined or byte [ebx+8],4 jmp instruction_assembled redeclare_constant: inc cx sub cx,[ebx+16] setnz al or ah,al jz instruction_assembled test byte [ebx+8],4 jnz instruction_assembled test byte [ebx+8],8 jz instruction_assembled mov cx,[current_pass] cmp cx,[ebx+18] jne instruction_assembled or [next_pass_needed],-1 jmp instruction_assembled new_constant: or byte [ebx+8],1+2 jmp instruction_assembled assemble_instruction: ; mov [operand_size],0 ; mov [size_override],0 ; mov [operand_prefix],0 ; mov [opcode_prefix],0 mov dword [operand_size],0 ; mov [rex_prefix],0 ; mov [vex_required],0 ; mov [vex_register],0 ; mov [immediate_size],0 mov dword [rex_prefix],0 call instruction_handler instruction_handler: movzx ebx,word [esi] mov al,[esi+2] add esi,3 add [esp],ebx ret instruction_assembled: mov al,[esi] cmp al,0Fh je line_assembled or al,al jnz extra_characters_on_line line_assembled: clc ret source_end: dec esi stc ret org_directive: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_qword_value mov cl,[value_type] test cl,1 jnz invalid_use_of_symbol mov [labels_type],cl mov ecx,edi sub ecx,eax adc edx,0 neg edx mov dword [org_origin],ecx mov dword [org_origin+4],edx mov [org_registers],0 mov [org_start],edi mov edx,[symbol_identifier] mov [org_symbol],edx cmp [output_format],1 ja instruction_assembled cmp edi,[code_start] jne instruction_assembled cmp eax,100h jne instruction_assembled bts [format_flags],0 jmp instruction_assembled label_directive: lods byte [esi] cmp al,2 jne invalid_argument lods dword [esi] cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol inc esi mov ebx,eax xor cl,cl lods byte [esi] cmp al,':' je get_label_size dec esi cmp al,11h jne label_size_ok get_label_size: lods word [esi] cmp al,11h jne invalid_argument mov cl,ah label_size_ok: mov eax,edi xor edx,edx sub eax,dword [org_origin] sbb edx,dword [org_origin+4] mov ebp,[org_registers] cmp byte [esi],80h je get_free_label_value mov ch,[labels_type] push [org_symbol] pop [address_symbol] cmp [virtual_data],0 jne make_free_label or byte [ebx+9],1 xchg eax,[ebx] xchg edx,[ebx+4] sub eax,[ebx] sbb edx,[ebx+4] mov dword [adjustment],eax mov dword [adjustment+4],edx or eax,edx setne ah jmp finish_label get_free_label_value: inc esi lods byte [esi] cmp al,'(' jne invalid_argument push dword [ebx+8] push ebx ecx and byte [ebx+8],not 1 cmp byte [esi],'.' je invalid_value call get_address_value or bh,bh setnz ch xchg ch,cl mov bp,cx shl ebp,16 xchg bl,bh mov bp,bx pop ecx ebx pop dword [ebx+8] mov ch,[value_type] or ch,ch jz make_free_label cmp ch,4 je make_free_label cmp ch,2 jne invalid_use_of_symbol make_free_label: and byte [ebx+9],not 1 cmp eax,[ebx] mov [ebx],eax setne ah cmp edx,[ebx+4] mov [ebx+4],edx setne al or ah,al jmp finish_label finish_label: cmp cl,[ebx+10] mov [ebx+10],cl setne al or ah,al cmp ch,[ebx+11] mov [ebx+11],ch setne al or ah,al cmp ebp,[ebx+12] mov [ebx+12],ebp setne al or ah,al or ch,ch jz free_label_symbol_ok mov edx,[address_symbol] cmp edx,[ebx+20] mov [ebx+20],edx setne al or ah,al free_label_symbol_ok: mov cx,[current_pass] xchg [ebx+16],cx mov edx,[current_line] mov [ebx+28],edx and byte [ebx+8],not 2 test byte [ebx+8],1 jz new_free_label cmp cx,[ebx+16] je symbol_already_defined inc cx sub cx,[ebx+16] setnz al or ah,al jz instruction_assembled test byte [ebx+8],8 jz instruction_assembled mov cx,[current_pass] cmp cx,[ebx+18] jne instruction_assembled or [next_pass_needed],-1 jmp instruction_assembled new_free_label: or byte [ebx+8],1 jmp instruction_assembled load_directive: lods byte [esi] cmp al,2 jne invalid_argument lods dword [esi] cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol inc esi push eax mov al,1 cmp byte [esi],11h jne load_size_ok lods byte [esi] lods byte [esi] load_size_ok: cmp al,8 ja invalid_value mov [operand_size],al mov dword [value],0 mov dword [value+4],0 lods word [esi] cmp ax,82h+'(' shl 8 jne invalid_argument load_from_code: cmp byte [esi],'.' je invalid_value or [size_override],-1 call get_address_value call calculate_relative_offset push esi edi cmp [next_pass_needed],0 jne load_address_type_ok cmp [value_type],0 jne invalid_use_of_symbol load_address_type_ok: cmp edx,-1 jne bad_load_address neg eax mov esi,edi sub esi,eax jc bad_load_address cmp esi,[org_start] jb bad_load_address mov edi,value movzx ecx,[operand_size] cmp ecx,eax ja bad_load_address rep movs byte [edi],[esi] jmp value_loaded bad_load_address: cmp [error_line],0 jne value_loaded mov eax,[current_line] mov [error_line],eax mov [error],value_out_of_range value_loaded: pop edi esi mov eax,dword [value] mov edx,dword [value+4] pop ebx xor cx,cx jmp make_constant store_directive: cmp byte [esi],11h je sized_store lods byte [esi] cmp al,'(' jne invalid_argument call get_byte_value xor edx,edx movzx eax,al mov [operand_size],1 jmp store_value_ok sized_store: call get_value store_value_ok: cmp [value_type],0 jne invalid_use_of_symbol mov dword [value],eax mov dword [value+4],edx lods word [esi] cmp ax,80h+'(' shl 8 jne invalid_argument cmp byte [esi],'.' je invalid_value or [size_override],-1 call get_address_value call calculate_relative_offset push esi edi cmp [next_pass_needed],0 jne store_address_type_ok cmp [value_type],0 jne invalid_use_of_symbol store_address_type_ok: cmp edx,-1 jne bad_store_address neg eax sub edi,eax jc bad_store_address cmp edi,[org_start] jb bad_store_address mov esi,value movzx ecx,[operand_size] cmp ecx,eax ja bad_store_address rep movs byte [edi],[esi] mov eax,edi pop edi esi cmp edi,[undefined_data_end] jne instruction_assembled cmp eax,[undefined_data_start] jbe instruction_assembled mov [undefined_data_start],eax jmp instruction_assembled bad_store_address: pop edi esi cmp [error_line],0 jne instruction_assembled mov eax,[current_line] mov [error_line],eax mov [error],value_out_of_range jmp instruction_assembled display_directive: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],0 jne display_byte inc esi lods dword [esi] mov ecx,eax push edi mov edi,[display_buffer] sub edi,8 sub edi,eax cmp edi,[esp] jbe out_of_memory mov [display_buffer],edi rep movs byte [edi],[esi] stos dword [edi] xor eax,eax stos dword [edi] pop edi inc esi jmp display_next display_byte: call get_byte_value push edi mov edi,[display_buffer] sub edi,8+1 mov [display_buffer],edi stos byte [edi] mov eax,1 stos dword [edi] dec eax stos dword [edi] pop edi display_next: cmp edi,[display_buffer] ja out_of_memory lods byte [esi] cmp al,',' je display_directive dec esi jmp instruction_assembled show_display_buffer: mov eax,[display_buffer] or eax,eax jz display_done mov esi,[labels_list] cmp esi,eax je display_done display_messages: sub esi,8 mov eax,[esi+4] mov ecx,[esi] sub esi,ecx test eax,eax jnz skip_internal_message push esi call display_block pop esi skip_internal_message: cmp esi,[display_buffer] jne display_messages display_done: ret times_directive: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value cmp eax,0 je zero_times cmp byte [esi],':' jne times_argument_ok inc esi times_argument_ok: push [counter] push [counter_limit] mov [counter_limit],eax mov [counter],1 times_loop: mov eax,esp sub eax,100h jc stack_overflow cmp eax,[stack_limit] jb stack_overflow push esi or [prefixed_instruction],-1 call continue_line mov eax,[counter_limit] cmp [counter],eax je times_done inc [counter] pop esi jmp times_loop times_done: pop eax pop [counter_limit] pop [counter] jmp instruction_assembled zero_times: call skip_symbol jnc zero_times jmp instruction_assembled virtual_directive: lods byte [esi] cmp al,80h jne virtual_at_current lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_address_value mov ebp,[address_symbol] xor ch,ch or bh,bh jz set_virtual mov ch,1 jmp set_virtual virtual_at_current: dec esi mov al,[labels_type] mov [value_type],al mov ebp,[org_symbol] mov eax,edi xor edx,edx sub eax,dword [org_origin] sbb edx,dword [org_origin+4] mov bx,word [org_registers] mov cx,word [org_registers+2] xchg bh,bl xchg ch,cl set_virtual: push [org_registers] mov byte [org_registers],bh mov byte [org_registers+1],bl mov byte [org_registers+2],ch mov byte [org_registers+3],cl call allocate_structure_data mov word [ebx],virtual_directive-instruction_handler not eax not edx add eax,1 adc edx,0 add eax,edi adc edx,0 xchg dword [org_origin],eax xchg dword [org_origin+4],edx mov [ebx+10h],eax mov [ebx+14h],edx pop eax mov [ebx+18h],eax mov al,[virtual_data] mov [ebx+2],al mov al,[labels_type] mov [ebx+3],al mov eax,edi xchg eax,[org_start] mov [ebx+0Ch],eax xchg ebp,[org_symbol] mov [ebx+1Ch],ebp mov [ebx+8],edi mov eax,[current_line] mov [ebx+4],eax or [virtual_data],-1 mov al,[value_type] test al,1 jnz invalid_use_of_symbol mov [labels_type],al jmp instruction_assembled allocate_structure_data: mov ebx,[structures_buffer] sub ebx,20h cmp ebx,[free_additional_memory] jb out_of_memory mov [structures_buffer],ebx ret find_structure_data: mov ebx,[structures_buffer] scan_structures: cmp ebx,[additional_memory_end] je no_such_structure cmp ax,[ebx] je structure_data_found add ebx,20h jmp scan_structures structure_data_found: ret no_such_structure: stc ret end_virtual: call find_structure_data jc unexpected_instruction mov al,[ebx+2] mov [virtual_data],al mov al,[ebx+3] mov [labels_type],al mov eax,[ebx+10h] mov dword [org_origin],eax mov eax,[ebx+14h] mov dword [org_origin+4],eax mov eax,[ebx+18h] mov [org_registers],eax mov eax,[ebx+0Ch] mov [org_start],eax mov eax,[ebx+1Ch] mov [org_symbol],eax mov edi,[ebx+8] remove_structure_data: push esi edi mov ecx,ebx sub ecx,[structures_buffer] shr ecx,2 lea esi,[ebx-4] lea edi,[esi+20h] std rep movs dword [edi],[esi] cld add [structures_buffer],20h pop edi esi ret repeat_directive: cmp [prefixed_instruction],0 jne unexpected_instruction lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value cmp eax,0 je zero_repeat call allocate_structure_data mov word [ebx],repeat_directive-instruction_handler xchg eax,[counter_limit] mov [ebx+10h],eax mov eax,1 xchg eax,[counter] mov [ebx+14h],eax mov [ebx+8],esi mov eax,[current_line] mov [ebx+4],eax jmp instruction_assembled end_repeat: cmp [prefixed_instruction],0 jne unexpected_instruction call find_structure_data jc unexpected_instruction mov eax,[counter_limit] inc [counter] cmp [counter],eax jbe continue_repeating stop_repeat: mov eax,[ebx+10h] mov [counter_limit],eax mov eax,[ebx+14h] mov [counter],eax call remove_structure_data jmp instruction_assembled continue_repeating: mov esi,[ebx+8] jmp instruction_assembled zero_repeat: mov al,[esi] or al,al jz missing_end_directive cmp al,0Fh jne extra_characters_on_line call find_end_repeat jmp instruction_assembled find_end_repeat: call find_structure_end cmp ax,repeat_directive-instruction_handler jne unexpected_instruction ret while_directive: cmp [prefixed_instruction],0 jne unexpected_instruction call allocate_structure_data mov word [ebx],while_directive-instruction_handler mov eax,1 xchg eax,[counter] mov [ebx+10h],eax mov [ebx+8],esi mov eax,[current_line] mov [ebx+4],eax do_while: push ebx call calculate_logical_expression or al,al jnz while_true mov al,[esi] or al,al jz missing_end_directive cmp al,0Fh jne extra_characters_on_line stop_while: call find_end_while pop ebx mov eax,[ebx+10h] mov [counter],eax call remove_structure_data jmp instruction_assembled while_true: pop ebx jmp instruction_assembled end_while: cmp [prefixed_instruction],0 jne unexpected_instruction call find_structure_data jc unexpected_instruction mov eax,[ebx+4] mov [current_line],eax inc [counter] jz too_many_repeats mov esi,[ebx+8] jmp do_while find_end_while: call find_structure_end cmp ax,while_directive-instruction_handler jne unexpected_instruction ret if_directive: cmp [prefixed_instruction],0 jne unexpected_instruction call calculate_logical_expression mov dl,al mov al,[esi] or al,al jz missing_end_directive cmp al,0Fh jne extra_characters_on_line or dl,dl jnz if_true call find_else jc instruction_assembled mov al,[esi] cmp al,1 jne else_true cmp word [esi+1],if_directive-instruction_handler jne else_true add esi,4 jmp if_directive if_true: xor al,al make_if_structure: call allocate_structure_data mov word [ebx],if_directive-instruction_handler mov byte [ebx+2],al mov eax,[current_line] mov [ebx+4],eax jmp instruction_assembled else_true: or al,al jz missing_end_directive cmp al,0Fh jne extra_characters_on_line or al,-1 jmp make_if_structure else_directive: cmp [prefixed_instruction],0 jne unexpected_instruction mov ax,if_directive-instruction_handler call find_structure_data jc unexpected_instruction cmp byte [ebx+2],0 jne unexpected_instruction found_else: mov al,[esi] cmp al,1 jne skip_else cmp word [esi+1],if_directive-instruction_handler jne skip_else add esi,4 call find_else jnc found_else call remove_structure_data jmp instruction_assembled skip_else: or al,al jz missing_end_directive cmp al,0Fh jne extra_characters_on_line call find_end_if call remove_structure_data jmp instruction_assembled end_if: cmp [prefixed_instruction],0 jne unexpected_instruction call find_structure_data jc unexpected_instruction call remove_structure_data jmp instruction_assembled find_else: call find_structure_end cmp ax,else_directive-instruction_handler je else_found cmp ax,if_directive-instruction_handler jne unexpected_instruction stc ret else_found: clc ret find_end_if: call find_structure_end cmp ax,if_directive-instruction_handler jne unexpected_instruction ret find_structure_end: push [error_line] mov eax,[current_line] mov [error_line],eax find_end_directive: call skip_symbol jnc find_end_directive lods byte [esi] cmp al,0Fh jne no_end_directive lods dword [esi] mov [current_line],eax skip_labels: cmp byte [esi],2 jne labels_ok add esi,6 jmp skip_labels labels_ok: cmp byte [esi],1 jne find_end_directive mov ax,[esi+1] cmp ax,prefix_instruction-instruction_handler je find_end_directive add esi,4 cmp ax,repeat_directive-instruction_handler je skip_repeat cmp ax,while_directive-instruction_handler je skip_while cmp ax,if_directive-instruction_handler je skip_if cmp ax,else_directive-instruction_handler je structure_end cmp ax,end_directive-instruction_handler jne find_end_directive cmp byte [esi],1 jne find_end_directive mov ax,[esi+1] add esi,4 cmp ax,repeat_directive-instruction_handler je structure_end cmp ax,while_directive-instruction_handler je structure_end cmp ax,if_directive-instruction_handler jne find_end_directive structure_end: pop [error_line] ret no_end_directive: mov eax,[error_line] mov [current_line],eax jmp missing_end_directive skip_repeat: call find_end_repeat jmp find_end_directive skip_while: call find_end_while jmp find_end_directive skip_if: call skip_if_block jmp find_end_directive skip_if_block: call find_else jc if_block_skipped cmp byte [esi],1 jne skip_after_else cmp word [esi+1],if_directive-instruction_handler jne skip_after_else add esi,4 jmp skip_if_block skip_after_else: call find_end_if if_block_skipped: ret end_directive: lods byte [esi] cmp al,1 jne invalid_argument lods word [esi] inc esi cmp ax,virtual_directive-instruction_handler je end_virtual cmp ax,repeat_directive-instruction_handler je end_repeat cmp ax,while_directive-instruction_handler je end_while cmp ax,if_directive-instruction_handler je end_if cmp ax,data_directive-instruction_handler je end_data jmp invalid_argument break_directive: mov ebx,[structures_buffer] mov al,[esi] or al,al jz find_breakable_structure cmp al,0Fh jne extra_characters_on_line find_breakable_structure: cmp ebx,[additional_memory_end] je unexpected_instruction mov ax,[ebx] cmp ax,repeat_directive-instruction_handler je break_repeat cmp ax,while_directive-instruction_handler je break_while cmp ax,if_directive-instruction_handler je break_if add ebx,20h jmp find_breakable_structure break_if: push [current_line] mov eax,[ebx+4] mov [current_line],eax call remove_structure_data call skip_if_block pop [current_line] mov ebx,[structures_buffer] jmp find_breakable_structure break_repeat: push ebx call find_end_repeat pop ebx jmp stop_repeat break_while: push ebx jmp stop_while data_bytes: call define_data lods byte [esi] cmp al,'(' je get_byte cmp al,'?' jne invalid_argument mov eax,edi mov byte [edi],0 inc edi jmp undefined_data get_byte: cmp byte [esi],0 je get_string call get_byte_value stos byte [edi] ret get_string: inc esi lods dword [esi] mov ecx,eax lea eax,[edi+ecx] cmp eax,[display_buffer] ja out_of_memory rep movs byte [edi],[esi] inc esi ret undefined_data: cmp [virtual_data],0 je mark_undefined_data ret mark_undefined_data: cmp eax,[undefined_data_end] je undefined_data_ok mov [undefined_data_start],eax undefined_data_ok: mov [undefined_data_end],edi ret define_data: cmp edi,[display_buffer] jae out_of_memory cmp byte [esi],'(' jne simple_data_value mov ebx,esi inc esi call skip_expression xchg esi,ebx cmp byte [ebx],81h jne simple_data_value inc esi call get_count_value inc esi or eax,eax jz duplicate_zero_times cmp byte [esi],'{' jne duplicate_single_data_value inc esi duplicate_data: push eax esi duplicated_values: cmp edi,[display_buffer] jae out_of_memory call near dword [esp+8] lods byte [esi] cmp al,',' je duplicated_values cmp al,'}' jne invalid_argument pop ebx eax dec eax jz data_defined mov esi,ebx jmp duplicate_data duplicate_single_data_value: cmp edi,[display_buffer] jae out_of_memory push eax esi call near dword [esp+8] pop ebx eax dec eax jz data_defined mov esi,ebx jmp duplicate_single_data_value duplicate_zero_times: cmp byte [esi],'{' jne skip_single_data_value inc esi skip_data_value: call skip_symbol jc invalid_argument cmp byte [esi],'}' jne skip_data_value inc esi jmp data_defined skip_single_data_value: call skip_symbol jmp data_defined simple_data_value: cmp edi,[display_buffer] jae out_of_memory call near dword [esp] data_defined: lods byte [esi] cmp al,',' je define_data dec esi add esp,4 jmp instruction_assembled data_unicode: or [base_code],-1 jmp define_words data_words: mov [base_code],0 define_words: call define_data lods byte [esi] cmp al,'(' je get_word cmp al,'?' jne invalid_argument mov eax,edi mov word [edi],0 scas word [edi] jmp undefined_data ret get_word: cmp [base_code],0 je word_data_value cmp byte [esi],0 je word_string word_data_value: call get_word_value call mark_relocation stos word [edi] ret word_string: inc esi lods dword [esi] mov ecx,eax jecxz word_string_ok lea eax,[edi+ecx*2] cmp eax,[display_buffer] ja out_of_memory xor ah,ah copy_word_string: lods byte [esi] stos word [edi] loop copy_word_string word_string_ok: inc esi ret data_dwords: call define_data lods byte [esi] cmp al,'(' je get_dword cmp al,'?' jne invalid_argument mov eax,edi mov dword [edi],0 scas dword [edi] jmp undefined_data get_dword: push esi call get_dword_value pop ebx cmp byte [esi],':' je complex_dword call mark_relocation stos dword [edi] ret complex_dword: mov esi,ebx cmp byte [esi],'.' je invalid_value call get_word_value push eax inc esi lods byte [esi] cmp al,'(' jne invalid_operand mov al,[value_type] push eax cmp byte [esi],'.' je invalid_value call get_word_value call mark_relocation stos word [edi] pop eax mov [value_type],al pop eax call mark_relocation stos word [edi] ret data_pwords: call define_data lods byte [esi] cmp al,'(' je get_pword cmp al,'?' jne invalid_argument mov eax,edi mov dword [edi],0 scas dword [edi] mov word [edi],0 scas word [edi] jmp undefined_data get_pword: push esi call get_pword_value pop ebx cmp byte [esi],':' je complex_pword call mark_relocation stos dword [edi] mov ax,dx stos word [edi] ret complex_pword: mov esi,ebx cmp byte [esi],'.' je invalid_value call get_word_value push eax inc esi lods byte [esi] cmp al,'(' jne invalid_operand mov al,[value_type] push eax cmp byte [esi],'.' je invalid_value call get_dword_value call mark_relocation stos dword [edi] pop eax mov [value_type],al pop eax call mark_relocation stos word [edi] ret data_qwords: call define_data lods byte [esi] cmp al,'(' je get_qword cmp al,'?' jne invalid_argument mov eax,edi mov dword [edi],0 scas dword [edi] mov dword [edi],0 scas dword [edi] jmp undefined_data get_qword: call get_qword_value call mark_relocation stos dword [edi] mov eax,edx stos dword [edi] ret data_twords: call define_data lods byte [esi] cmp al,'(' je get_tword cmp al,'?' jne invalid_argument mov eax,edi mov dword [edi],0 scas dword [edi] mov dword [edi],0 scas dword [edi] mov word [edi],0 scas word [edi] jmp undefined_data get_tword: cmp byte [esi],'.' jne complex_tword inc esi cmp word [esi+8],8000h je fp_zero_tword mov eax,[esi] stos dword [edi] mov eax,[esi+4] stos dword [edi] mov ax,[esi+8] add ax,3FFFh jo value_out_of_range cmp ax,7FFFh jge value_out_of_range cmp ax,0 jg tword_exp_ok mov cx,ax neg cx inc cx cmp cx,64 jae value_out_of_range cmp cx,32 ja large_shift mov eax,[esi] mov edx,[esi+4] mov ebx,edx shr edx,cl shrd eax,ebx,cl jmp tword_mantissa_shift_done large_shift: sub cx,32 xor edx,edx mov eax,[esi+4] shr eax,cl tword_mantissa_shift_done: jnc store_shifted_mantissa add eax,1 adc edx,0 store_shifted_mantissa: mov [edi-8],eax mov [edi-4],edx xor ax,ax test edx,1 shl 31 jz tword_exp_ok inc ax tword_exp_ok: mov bl,[esi+11] shl bx,15 or ax,bx stos word [edi] add esi,13 ret fp_zero_tword: xor eax,eax stos dword [edi] stos dword [edi] mov al,[esi+11] shl ax,15 stos word [edi] add esi,13 ret complex_tword: call get_word_value push eax cmp byte [esi],':' jne invalid_operand inc esi lods byte [esi] cmp al,'(' jne invalid_operand mov al,[value_type] push eax cmp byte [esi],'.' je invalid_value call get_qword_value call mark_relocation stos dword [edi] mov eax,edx stos dword [edi] pop eax mov [value_type],al pop eax call mark_relocation stos word [edi] ret data_file: lods word [esi] cmp ax,'(' jne invalid_argument add esi,4 call open_binary_file mov eax,[esi-4] lea esi,[esi+eax+1] mov al,2 xor edx,edx call lseek push eax xor edx,edx cmp byte [esi],':' jne position_ok inc esi cmp byte [esi],'(' jne invalid_argument inc esi cmp byte [esi],'.' je invalid_value push ebx call get_count_value pop ebx mov edx,eax sub [esp],edx jc value_out_of_range position_ok: cmp byte [esi],',' jne size_ok inc esi cmp byte [esi],'(' jne invalid_argument inc esi cmp byte [esi],'.' je invalid_value push ebx edx call get_count_value pop edx ebx cmp eax,[esp] ja value_out_of_range mov [esp],eax size_ok: xor al,al call lseek pop ecx mov edx,edi add edi,ecx jc out_of_memory cmp edi,[display_buffer] ja out_of_memory call read jc error_reading_file call close lods byte [esi] cmp al,',' je data_file dec esi jmp instruction_assembled open_binary_file: push esi push edi mov eax,[current_line] find_current_source_path: mov esi,[eax] test byte [eax+7],80h jz get_current_path mov eax,[eax+12] jmp find_current_source_path get_current_path: lodsb stosb or al,al jnz get_current_path cut_current_path: cmp edi,[esp] je current_path_ok cmp byte [edi-1],'\' je current_path_ok cmp byte [edi-1],'/' je current_path_ok dec edi jmp cut_current_path current_path_ok: mov esi,[esp+4] call preprocess_path pop edx mov esi,edx call open jnc file_opened mov edi,esi mov esi,[esp] push edi call preprocess_path pop edx mov esi,edx call open jc file_not_found file_opened: mov edi,esi pop esi ret reserve_bytes: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov ecx,eax mov edx,ecx add edx,edi jc out_of_memory cmp edx,[display_buffer] ja out_of_memory push edi cmp [next_pass_needed],0 je zero_bytes add edi,ecx jmp reserved_data zero_bytes: xor eax,eax shr ecx,1 jnc bytes_stosb_ok stos byte [edi] bytes_stosb_ok: shr ecx,1 jnc bytes_stosw_ok stos word [edi] bytes_stosw_ok: rep stos dword [edi] reserved_data: pop eax call undefined_data jmp instruction_assembled reserve_words: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov ecx,eax mov edx,ecx shl edx,1 jc out_of_memory add edx,edi jc out_of_memory cmp edx,[display_buffer] ja out_of_memory push edi cmp [next_pass_needed],0 je zero_words lea edi,[edi+ecx*2] jmp reserved_data zero_words: xor eax,eax shr ecx,1 jnc words_stosw_ok stos word [edi] words_stosw_ok: rep stos dword [edi] jmp reserved_data reserve_dwords: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov ecx,eax mov edx,ecx shl edx,1 jc out_of_memory shl edx,1 jc out_of_memory add edx,edi jc out_of_memory cmp edx,[display_buffer] ja out_of_memory push edi cmp [next_pass_needed],0 je zero_dwords lea edi,[edi+ecx*4] jmp reserved_data zero_dwords: xor eax,eax rep stos dword [edi] jmp reserved_data reserve_pwords: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov ecx,eax shl ecx,1 jc out_of_memory add ecx,eax mov edx,ecx shl edx,1 jc out_of_memory add edx,edi jc out_of_memory cmp edx,[display_buffer] ja out_of_memory push edi cmp [next_pass_needed],0 je zero_words lea edi,[edi+ecx*2] jmp reserved_data reserve_qwords: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov ecx,eax shl ecx,1 jc out_of_memory mov edx,ecx shl edx,1 jc out_of_memory shl edx,1 jc out_of_memory add edx,edi jc out_of_memory cmp edx,[display_buffer] ja out_of_memory push edi cmp [next_pass_needed],0 je zero_dwords lea edi,[edi+ecx*4] jmp reserved_data reserve_twords: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov ecx,eax shl ecx,2 jc out_of_memory add ecx,eax mov edx,ecx shl edx,1 jc out_of_memory add edx,edi jc out_of_memory cmp edx,[display_buffer] ja out_of_memory push edi cmp [next_pass_needed],0 je zero_words lea edi,[edi+ecx*2] jmp reserved_data align_directive: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov edx,eax dec edx test eax,edx jnz invalid_align_value or eax,eax jz invalid_align_value cmp eax,1 je instruction_assembled mov ecx,edi sub ecx,dword [org_origin] cmp [org_registers],0 jne section_not_aligned_enough cmp [labels_type],0 je make_alignment cmp [output_format],3 je pe_alignment mov ebx,[org_symbol] cmp byte [ebx],0 jne section_not_aligned_enough cmp eax,[ebx+10h] jbe make_alignment jmp section_not_aligned_enough pe_alignment: cmp eax,1000h ja section_not_aligned_enough make_alignment: dec eax and ecx,eax jz instruction_assembled neg ecx add ecx,eax inc ecx mov edx,ecx add edx,edi jc out_of_memory cmp edx,[display_buffer] ja out_of_memory push edi cmp [next_pass_needed],0 je nops add edi,ecx jmp reserved_data invalid_align_value: cmp [error_line],0 jne instruction_assembled mov eax,[current_line] mov [error_line],eax mov [error],invalid_value jmp instruction_assembled nops: mov eax,90909090h shr ecx,1 jnc nops_stosb_ok stos byte [edi] nops_stosb_ok: shr ecx,1 jnc nops_stosw_ok stos word [edi] nops_stosw_ok: rep stos dword [edi] jmp reserved_data err_directive: mov al,[esi] cmp al,0Fh je invoked_error or al,al jz invoked_error jmp extra_characters_on_line ; --------------- "assemble.inc" ---------------- ; ; --------------- "exprcalc.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. calculate_expression: mov [current_offset],edi mov [value_undefined],0 cmp byte [esi],0 je get_string_value cmp byte [esi],'.' je convert_fp calculation_loop: lods byte [esi] cmp al,1 je get_byte_number cmp al,2 je get_word_number cmp al,4 je get_dword_number cmp al,8 je get_qword_number cmp al,0Fh je value_out_of_range cmp al,10h je get_register cmp al,11h je get_label cmp al,')' je expression_calculated cmp al,']' je expression_calculated cmp al,'!' je invalid_expression sub edi,14h mov ebx,edi sub ebx,14h cmp al,0E0h je calculate_rva cmp al,0E1h je calculate_plt cmp al,0D0h je calculate_not cmp al,083h je calculate_neg mov dx,[ebx+8] or dx,[edi+8] cmp al,80h je calculate_add cmp al,81h je calculate_sub mov ah,[ebx+12] or ah,[edi+12] jz absolute_values_calculation cmp [error_line],0 jne absolute_values_calculation mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol absolute_values_calculation: cmp al,90h je calculate_mul cmp al,91h je calculate_div or dx,dx jnz invalid_expression cmp al,0A0h je calculate_mod cmp al,0B0h je calculate_and cmp al,0B1h je calculate_or cmp al,0B2h je calculate_xor cmp al,0C0h je calculate_shl cmp al,0C1h je calculate_shr jmp invalid_expression expression_calculated: sub edi,14h cmp [value_undefined],0 je expression_value_ok xor eax,eax mov [edi],eax mov [edi+4],eax mov [edi+12],al expression_value_ok: ret get_byte_number: xor eax,eax lods byte [esi] stos dword [edi] xor al,al stos dword [edi] got_number: mov word [edi-8+8],0 mov byte [edi-8+12],0 mov dword [edi-8+16],0 add edi,0Ch jmp calculation_loop get_word_number: xor eax,eax lods word [esi] stos dword [edi] xor ax,ax stos dword [edi] jmp got_number get_dword_number: movs dword [edi],[esi] xor eax,eax stos dword [edi] jmp got_number get_qword_number: movs dword [edi],[esi] movs dword [edi],[esi] jmp got_number get_register: mov byte [edi+9],0 mov byte [edi+12],0 lods byte [esi] mov [edi+8],al mov byte [edi+10],1 xor eax,eax mov [edi+16],eax stos dword [edi] stos dword [edi] add edi,0Ch jmp calculation_loop get_label: xor eax,eax mov [edi+8],eax mov [edi+12],al mov [edi+20],eax lods dword [esi] cmp eax,0Fh jb predefined_label je reserved_word_used_as_symbol mov ebx,eax mov ax,[current_pass] mov [ebx+18],ax or byte [ebx+8],8 test byte [ebx+8],1 jz label_undefined cmp ax,[ebx+16] je label_defined test byte [ebx+8],4 jnz label_out_of_scope test byte [ebx+9],1 jz label_defined mov eax,[ebx] sub eax,dword [adjustment] stos dword [edi] mov eax,[ebx+4] sbb eax,dword [adjustment+4] stos dword [edi] mov eax,dword [adjustment] or eax,dword [adjustment+4] jz got_label or [next_pass_needed],-1 jmp got_label label_defined: mov eax,[ebx] stos dword [edi] mov eax,[ebx+4] stos dword [edi] got_label: mov al,[ebx+11] mov [edi-8+12],al mov eax,[ebx+12] mov [edi-8+8],eax mov eax,[ebx+20] mov [edi-8+16],eax add edi,0Ch mov al,[ebx+10] or al,al jz calculation_loop cmp [size_override],-1 je calculation_loop cmp [size_override],0 je check_size cmp [operand_size],0 jne calculation_loop mov [operand_size],al jmp calculation_loop check_size: xchg [operand_size],al or al,al jz calculation_loop cmp al,[operand_size] jne operand_sizes_do_not_match jmp calculation_loop current_offset_label: mov eax,[current_offset] make_current_offset_label: xor edx,edx sub eax,dword [org_origin] sbb edx,dword [org_origin+4] stos dword [edi] mov eax,edx stos dword [edi] mov eax,[org_registers] stos dword [edi] mov al,[labels_type] mov [edi-12+12],al mov eax,[org_symbol] mov [edi-12+16],eax add edi,8 jmp calculation_loop org_origin_label: mov eax,[org_start] jmp make_current_offset_label counter_label: mov eax,[counter] make_dword_label_value: stos dword [edi] xor eax,eax stos dword [edi] add edi,0Ch jmp calculation_loop timestamp_label: call make_timestamp make_qword_label_value: stos dword [edi] mov eax,edx stos dword [edi] add edi,0Ch jmp calculation_loop predefined_label: or eax,eax jz current_offset_label cmp eax,1 je counter_label cmp eax,2 je timestamp_label cmp eax,3 je org_origin_label mov edx,invalid_value jmp error_undefined label_out_of_scope: mov edx,symbol_out_of_scope mov eax,[ebx+24] cmp [error_line],0 jne error_undefined mov [error_info],eax jmp error_undefined label_undefined: mov edx,undefined_symbol cmp [error_line],0 jne error_undefined mov eax,[ebx+24] mov [error_info],eax error_undefined: cmp [current_pass],1 ja undefined_value force_next_pass: or [next_pass_needed],-1 undefined_value: mov byte [edi+12],0 or [value_undefined],-1 xor eax,eax stos dword [edi] stos dword [edi] add edi,0Ch cmp [error_line],0 jne calculation_loop mov eax,[current_line] mov [error_line],eax mov [error],edx jmp calculation_loop calculate_add: mov ecx,[ebx+16] cmp byte [edi+12],0 je add_values mov ecx,[edi+16] cmp byte [ebx+12],0 je add_values cmp [error_line],0 jne add_values mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol add_values: mov al,[edi+12] or [ebx+12],al mov [ebx+16],ecx mov eax,[edi] add [ebx],eax mov eax,[edi+4] adc [ebx+4],eax or dx,dx jz calculation_loop push esi mov esi,ebx lea ebx,[edi+10] mov cl,[edi+8] call add_register lea ebx,[edi+11] mov cl,[edi+9] call add_register pop esi jmp calculation_loop add_register: or cl,cl jz add_register_done add_register_start: cmp [esi+8],cl jne add_in_second_slot mov al,[ebx] add [esi+10],al jnz add_register_done mov byte [esi+8],0 ret add_in_second_slot: cmp [esi+9],cl jne create_in_first_slot mov al,[ebx] add [esi+11],al jnz add_register_done mov byte [esi+9],0 ret create_in_first_slot: cmp byte [esi+8],0 jne create_in_second_slot mov [esi+8],cl mov al,[ebx] mov [esi+10],al ret create_in_second_slot: cmp byte [esi+9],0 jne invalid_expression mov [esi+9],cl mov al,[ebx] mov [esi+11],al add_register_done: ret calculate_sub: xor ah,ah mov ah,[ebx+12] mov al,[edi+12] or al,al jz sub_values cmp al,ah jne invalid_sub xor ah,ah mov ecx,[edi+16] cmp ecx,[ebx+16] jne invalid_sub sub_values: mov [ebx+12],ah mov eax,[edi] sub [ebx],eax mov eax,[edi+4] sbb [ebx+4],eax or dx,dx jz calculation_loop push esi mov esi,ebx lea ebx,[edi+10] mov cl,[edi+8] call sub_register lea ebx,[edi+11] mov cl,[edi+9] call sub_register pop esi jmp calculation_loop invalid_sub: cmp [error_line],0 jne sub_values mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol jmp sub_values sub_register: or cl,cl jz add_register_done neg byte [ebx] jmp add_register_start calculate_mul: or dx,dx jz mul_start cmp word [ebx+8],0 jne mul_start mov eax,[ebx] xchg eax,[edi] mov [ebx],eax mov eax,[ebx+4] xchg eax,[edi+4] mov [ebx+4],eax mov eax,[ebx+8] xchg eax,[edi+8] mov [ebx+8],eax mov eax,[ebx+12] xchg eax,[edi+12] mov [ebx+12],eax mul_start: push esi edx mov esi,ebx xor bl,bl bt dword [esi+4],31 jnc mul_first_sign_ok not dword [esi] not dword [esi+4] add dword [esi],1 adc dword [esi+4],0 not bl mul_first_sign_ok: bt dword [edi+4],31 jnc mul_second_sign_ok not dword [edi] not dword [edi+4] add dword [edi],1 adc dword [edi+4],0 not bl mul_second_sign_ok: cmp dword [esi+4],0 jz mul_numbers cmp dword [edi+4],0 jnz value_out_of_range mul_numbers: mov eax,[esi+4] mul dword [edi] or edx,edx jnz value_out_of_range mov ecx,eax mov eax,[esi] mul dword [edi+4] or edx,edx jnz value_out_of_range add ecx,eax jc value_out_of_range mov eax,[esi] mul dword [edi] add edx,ecx jc value_out_of_range test edx,1 shl 31 jnz value_out_of_range mov [esi],eax mov [esi+4],edx or bl,bl jz mul_ok not dword [esi] not dword [esi+4] add dword [esi],1 adc dword [esi+4],0 mul_ok: pop edx or dx,dx jz mul_calculated cmp word [edi+8],0 jne invalid_value cmp byte [esi+8],0 je mul_first_register_ok mov al,[edi] cbw cwde cdq cmp edx,[edi+4] jne value_out_of_range cmp eax,[edi] jne value_out_of_range imul byte [esi+10] mov dl,ah cbw cmp ah,dl jne value_out_of_range mov [esi+10],al or al,al jnz mul_first_register_ok mov [esi+8],al mul_first_register_ok: cmp byte [esi+9],0 je mul_calculated mov al,[edi] cbw cwde cdq cmp edx,[edi+4] jne value_out_of_range cmp eax,[edi] jne value_out_of_range imul byte [esi+11] mov dl,ah cbw cmp ah,dl jne value_out_of_range mov [esi+11],al or al,al jnz mul_calculated mov [esi+9],al mul_calculated: pop esi jmp calculation_loop calculate_div: push esi edx mov esi,ebx call div_64 pop edx or dx,dx jz div_calculated cmp byte [esi+8],0 je div_first_register_ok mov al,[edi] cbw cwde cdq cmp edx,[edi+4] jne value_out_of_range cmp eax,[edi] jne value_out_of_range or al,al jz value_out_of_range mov al,[esi+10] cbw idiv byte [edi] or ah,ah jnz invalid_use_of_symbol mov [esi+10],al div_first_register_ok: cmp byte [esi+9],0 je div_calculated mov al,[edi] cbw cwde cdq cmp edx,[edi+4] jne value_out_of_range cmp eax,[edi] jne value_out_of_range or al,al jz value_out_of_range mov al,[esi+11] cbw idiv byte [edi] or ah,ah jnz invalid_use_of_symbol mov [esi+11],al div_calculated: pop esi jmp calculation_loop calculate_mod: push esi mov esi,ebx call div_64 mov [esi],eax mov [esi+4],edx pop esi jmp calculation_loop calculate_and: mov eax,[edi] and [ebx],eax mov eax,[edi+4] and [ebx+4],eax jmp calculation_loop calculate_or: mov eax,[edi] or [ebx],eax mov eax,[edi+4] or [ebx+4],eax jmp calculation_loop calculate_xor: mov eax,[edi] xor [ebx],eax mov edx,[edi+4] xor [ebx+4],edx cmp [value_size],1 je xor_byte cmp [value_size],2 je xor_word cmp [value_size],4 je xor_dword cmp [value_size],6 je xor_pword xor_calculated: jmp calculation_loop prepare_xor_check: cmp edx,-1 je xor_check_ready xor edx,[ebx+4] xor eax,[ebx] cmp edx,-1 xor_check_ready: ret xor_byte: call prepare_xor_check jne xor_calculated xor edx,[ebx+4] jnz xor_calculated cmp eax,0FFFFFF80h jb xor_calculated xor eax,[ebx] cmp eax,0FFh ja xor_calculated mov [ebx+4],edx and dword [ebx],0FFh jmp xor_calculated xor_word: call prepare_xor_check jne xor_calculated xor edx,[ebx+4] jnz xor_calculated cmp eax,0FFFF8000h jb xor_calculated xor eax,[ebx] cmp eax,0FFFFh ja xor_calculated mov [ebx+4],edx and dword [ebx],0FFFFh jmp xor_calculated xor_dword: call prepare_xor_check jne xor_calculated xor edx,[ebx+4] jnz xor_calculated cmp eax,80000000h jb xor_calculated mov [ebx+4],edx jmp xor_calculated xor_pword: cmp edx,0FFFF8000h jae xor_pword_check xor edx,[ebx+4] xor eax,[ebx] cmp edx,0FFFF8000h jb xor_calculated xor_pword_check: xor edx,[ebx+4] cmp edx,0FFFFh ja xor_calculated and dword [ebx+4],0FFFFh jmp xor_calculated shr_negative: not dword [edi] not dword [edi+4] add dword [edi],1 adc dword [edi+4],0 calculate_shl: mov eax,dword [edi+4] bt eax,31 jc shl_negative or eax,eax jnz zero_value mov ecx,[edi] cmp ecx,64 jae zero_value mov edx,[ebx+4] mov eax,[ebx] cmp ecx,32 jae shl_high shld edx,eax,cl shl eax,cl mov [ebx],eax mov [ebx+4],edx jmp calculation_loop shl_high: sub cl,32 shl eax,cl mov [ebx+4],eax mov dword [ebx],0 jmp calculation_loop shl_negative: not dword [edi] not dword [edi+4] add dword [edi],1 adc dword [edi+4],0 calculate_shr: mov eax,dword [edi+4] bt eax,31 jc shr_negative or eax,eax jnz zero_value mov ecx,[edi] cmp ecx,64 jae zero_value mov edx,[ebx+4] mov eax,[ebx] cmp ecx,32 jae shr_high cmp [value_size],1 je shr_byte cmp [value_size],2 je shr_word cmp [value_size],4 je shr_dword cmp [value_size],6 je shr_pword shr_regular: shrd eax,edx,cl shr edx,cl mov [ebx],eax mov [ebx+4],edx jmp calculation_loop shr_byte: cmp edx,-1 jne shr_regular cmp eax,0FFFFFF80h jb shr_regular and eax,0FFh xor edx,edx jmp shr_regular shr_word: cmp edx,-1 jne shr_regular cmp eax,0FFFF8000h jb shr_regular and eax,0FFFFh xor edx,edx jmp shr_regular shr_dword: cmp edx,-1 jne shr_regular cmp eax,80000000h jb shr_regular xor edx,edx jmp shr_regular shr_pword: cmp edx,0FFFF8000h jb shr_regular and edx,0FFFFh jmp shr_regular shr_high: sub cl,32 cmp [value_size],1 je shr_byte_32plus cmp [value_size],2 je shr_word_32plus cmp [value_size],4 je shr_dword_32plus cmp [value_size],6 je shr_pword_32plus shr_32plus: shr edx,cl mov [ebx],edx mov dword [ebx+4],0 jmp calculation_loop shr_byte_32plus: cmp edx,-1 jne shr_32plus cmp eax,-80h jb shr_32plus jmp zero_value shr_word_32plus: cmp edx,-1 jne shr_32plus cmp eax,-8000h jb shr_32plus jmp zero_value shr_dword_32plus: cmp edx,-1 jne shr_32plus cmp eax,-80000000h jb shr_32plus jmp zero_value shr_pword_32plus: cmp edx,-8000h jb shr_32plus and edx,0FFFFh jmp shr_32plus zero_value: mov dword [ebx],0 mov dword [ebx+4],0 jmp calculation_loop calculate_not: cmp word [edi+8],0 jne invalid_expression cmp byte [edi+12],0 je not_ok cmp [error_line],0 jne not_ok mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol not_ok: cmp [value_size],1 je not_byte cmp [value_size],2 je not_word cmp [value_size],4 je not_dword cmp [value_size],6 je not_pword not_qword: not dword [edi] not dword [edi+4] add edi,14h jmp calculation_loop not_byte: cmp dword [edi+4],0 jne not_qword cmp word [edi+2],0 jne not_qword cmp byte [edi+1],0 jne not_qword not byte [edi] add edi,14h jmp calculation_loop not_word: cmp dword [edi+4],0 jne not_qword cmp word [edi+2],0 jne not_qword not word [edi] add edi,14h jmp calculation_loop not_dword: cmp dword [edi+4],0 jne not_qword not dword [edi] add edi,14h jmp calculation_loop not_pword: cmp word [edi+6],0 jne not_qword not dword [edi] not word [edi+4] add edi,14h jmp calculation_loop calculate_neg: cmp word [edi+8],0 jne invalid_expression cmp byte [edi+12],0 je neg_ok cmp [error_line],0 jne neg_ok mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol neg_ok: mov eax,[edi] mov edx,[edi+4] mov dword [edi],0 mov dword [edi+4],0 sub [edi],eax sbb [edi+4],edx add edi,14h jmp calculation_loop calculate_rva: cmp word [edi+8],0 jne invalid_expression cmp [output_format],5 je calculate_gotoff cmp [output_format],4 je calculate_coff_rva cmp [output_format],3 jne invalid_expression test [format_flags],8 jnz pe64_rva mov al,2 bt [resolver_flags],0 jc rva_type_ok xor al,al rva_type_ok: cmp byte [edi+12],al je rva_ok cmp [error_line],0 jne rva_ok mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol rva_ok: mov byte [edi+12],0 mov eax,[code_start] mov eax,[eax+34h] cdq sub [edi],eax sbb [edi+4],edx add edi,14h jmp calculation_loop pe64_rva: mov al,4 bt [resolver_flags],0 jc pe64_rva_type_ok xor al,al pe64_rva_type_ok: cmp byte [edi+12],al je pe64_rva_ok cmp [error_line],0 jne pe64_rva_ok mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol pe64_rva_ok: mov byte [edi+12],0 mov eax,[code_start] mov edx,[eax+34h] mov eax,[eax+30h] sub [edi],eax sbb [edi+4],edx add edi,14h jmp calculation_loop calculate_gotoff: test [format_flags],8+1 jnz invalid_expression calculate_coff_rva: mov dl,5 cmp byte [edi+12],2 je change_value_type incorrect_change_of_value_type: cmp [error_line],0 jne change_value_type mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol change_value_type: mov byte [edi+12],dl add edi,14h jmp calculation_loop calculate_plt: cmp word [edi+8],0 jne invalid_expression cmp [output_format],5 jne invalid_expression test [format_flags],1 jnz invalid_expression mov dl,6 mov dh,2 test [format_flags],8 jz check_value_for_plt mov dh,4 check_value_for_plt: mov eax,[edi] or eax,[edi+4] jnz incorrect_change_of_value_type cmp byte [edi+12],dh jne incorrect_change_of_value_type mov eax,[edi+16] cmp byte [eax],80h jne incorrect_change_of_value_type jmp change_value_type div_64: xor ebx,ebx cmp dword [edi],0 jne divider_ok cmp dword [edi+4],0 jne divider_ok cmp [next_pass_needed],0 je value_out_of_range jmp div_done divider_ok: bt dword [esi+4],31 jnc div_first_sign_ok not dword [esi] not dword [esi+4] add dword [esi],1 adc dword [esi+4],0 not bx div_first_sign_ok: bt dword [edi+4],31 jnc div_second_sign_ok not dword [edi] not dword [edi+4] add dword [edi],1 adc dword [edi+4],0 not bl div_second_sign_ok: cmp dword [edi+4],0 jne div_high mov ecx,[edi] mov eax,[esi+4] xor edx,edx div ecx mov [esi+4],eax mov eax,[esi] div ecx mov [esi],eax mov eax,edx xor edx,edx jmp div_done div_high: mov eax,[esi+4] xor edx,edx div dword [edi+4] mov ebx,[esi] mov [esi],eax mov dword [esi+4],0 mov ecx,edx mul dword [edi] div_high_loop: cmp ecx,edx ja div_high_done jb div_high_large_correction cmp ebx,eax jae div_high_done div_high_correction: dec dword [esi] sub eax,[edi] sbb edx,[edi+4] jnc div_high_loop div_high_done: sub ebx,eax sbb ecx,edx mov edx,ecx mov eax,ebx ret div_high_large_correction: push eax edx mov eax,edx sub eax,ecx xor edx,edx div dword [edi+4] shr eax,1 jz div_high_small_correction sub [esi],eax push eax mul dword [edi+4] sub dword [esp+4],eax pop eax mul dword [edi] sub dword [esp+4],eax sbb dword [esp],edx pop edx eax jmp div_high_loop div_high_small_correction: pop edx eax jmp div_high_correction div_done: or bh,bh jz remainder_ok not eax not edx add eax,1 adc edx,0 remainder_ok: or bl,bl jz div_ok not dword [esi] not dword [esi+4] add dword [esi],1 adc dword [esi+4],0 div_ok: ret convert_fp: inc esi mov word [edi+8],0 mov byte [edi+12],0 mov al,[value_size] cmp al,2 je convert_fp_word cmp al,4 je convert_fp_dword cmp al,8 je convert_fp_qword jmp invalid_value convert_fp_word: xor eax,eax cmp word [esi+8],8000h je fp_word_store mov bx,[esi+8] mov ax,[esi+6] shl ax,1 shr ax,6 jnc fp_word_ok inc ax bt ax,10 jnc fp_word_ok and ax,1 shl 10 - 1 inc bx shr ax,1 fp_word_ok: add bx,0Fh cmp bx,01Fh jge value_out_of_range cmp bx,0 jg fp_word_exp_ok or ax,1 shl 10 mov cx,bx neg cx inc cx cmp cx,10 ja value_out_of_range xor bx,bx shr ax,cl jnc fp_word_exp_ok inc ax test ax,1 shl 10 jz fp_word_exp_ok and ax,1 shl 10 - 1 inc bx fp_word_exp_ok: shl bx,10 or ax,bx fp_word_store: mov bl,[esi+11] shl bx,15 or ax,bx mov [edi],eax xor eax,eax mov [edi+4],eax add esi,13 ret convert_fp_dword: xor eax,eax cmp word [esi+8],8000h je fp_dword_store mov bx,[esi+8] mov eax,[esi+4] shl eax,1 shr eax,9 jnc fp_dword_ok inc eax bt eax,23 jnc fp_dword_ok and eax,1 shl 23 - 1 inc bx shr eax,1 fp_dword_ok: add bx,7Fh cmp bx,0FFh jge value_out_of_range cmp bx,0 jg fp_dword_exp_ok or eax,1 shl 23 mov cx,bx neg cx inc cx cmp cx,23 ja value_out_of_range xor bx,bx shr eax,cl jnc fp_dword_exp_ok inc eax test eax,1 shl 23 jz fp_dword_exp_ok and eax,1 shl 23 - 1 inc bx fp_dword_exp_ok: shl ebx,23 or eax,ebx fp_dword_store: mov bl,[esi+11] shl ebx,31 or eax,ebx mov [edi],eax xor eax,eax mov [edi+4],eax add esi,13 ret convert_fp_qword: xor eax,eax xor edx,edx cmp word [esi+8],8000h je fp_qword_store mov bx,[esi+8] mov eax,[esi] mov edx,[esi+4] add eax,eax adc edx,edx mov ecx,edx shr edx,12 shrd eax,ecx,12 jnc fp_qword_ok add eax,1 adc edx,0 bt edx,20 jnc fp_qword_ok and edx,1 shl 20 - 1 inc bx shr edx,1 rcr eax,1 fp_qword_ok: add bx,3FFh cmp bx,7FFh jge value_out_of_range cmp bx,0 jg fp_qword_exp_ok or edx,1 shl 20 mov cx,bx neg cx inc cx cmp cx,52 ja value_out_of_range cmp cx,32 jbe fp_qword_small_shift sub cx,32 mov eax,edx xor edx,edx shr eax,cl jmp fp_qword_shift_done fp_qword_small_shift: mov ebx,edx shr edx,cl shrd eax,ebx,cl fp_qword_shift_done: mov bx,0 jnc fp_qword_exp_ok add eax,1 adc edx,0 test edx,1 shl 20 jz fp_qword_exp_ok and edx,1 shl 20 - 1 inc bx fp_qword_exp_ok: shl ebx,20 or edx,ebx fp_qword_store: mov bl,[esi+11] shl ebx,31 or edx,ebx mov [edi],eax mov [edi+4],edx add esi,13 ret get_string_value: inc esi lods dword [esi] mov ecx,eax cmp ecx,8 ja value_out_of_range mov edx,edi xor eax,eax stos dword [edi] stos dword [edi] mov edi,edx rep movs byte [edi],[esi] mov edi,edx inc esi mov word [edi+8],0 mov byte [edi+12],0 ret get_byte_value: mov [value_size],1 mov [size_override],-1 call calculate_expression mov eax,[edi+16] mov [symbol_identifier],eax mov [value_type],0 cmp word [edi+8],0 jne invalid_value cmp byte [edi+12],0 je check_byte_value cmp [error_line],0 jne check_byte_value mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol check_byte_value: mov eax,[edi] mov edx,[edi+4] or edx,edx jz byte_positive cmp edx,-1 jne range_exceeded cmp eax,-80h jb range_exceeded ret byte_positive: cmp eax,100h jae range_exceeded return_byte_value: ret range_exceeded: xor eax,eax xor edx,edx cmp [error_line],0 jne return_byte_value mov ecx,[current_line] mov [error_line],ecx mov [error],value_out_of_range ret get_word_value: mov [value_size],2 mov [size_override],-1 call calculate_expression cmp word [edi+8],0 jne invalid_value mov eax,[edi+16] mov [symbol_identifier],eax mov al,[edi+12] mov [value_type],al cmp al,2 jb check_word_value cmp [error_line],0 jne check_word_value mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol check_word_value: mov eax,[edi] mov edx,[edi+4] or edx,edx jz word_positive cmp edx,-1 jne range_exceeded cmp eax,-8000h jb range_exceeded ret word_positive: cmp eax,10000h jae range_exceeded ret get_dword_value: mov [value_size],4 mov [size_override],-1 call calculate_expression cmp word [edi+8],0 jne invalid_value mov eax,[edi+16] mov [symbol_identifier],eax mov al,[edi+12] mov [value_type],al cmp al,4 jne check_dword_value mov [value_type],2 mov eax,[edi] cdq cmp edx,[edi+4] jne range_exceeded ret check_dword_value: mov eax,[edi] mov edx,[edi+4] or edx,edx jz dword_positive cmp edx,-1 jne range_exceeded bt eax,31 jnc range_exceeded dword_positive: ret get_pword_value: mov [value_size],6 mov [size_override],-1 call calculate_expression mov eax,[edi+16] mov [symbol_identifier],eax cmp word [edi+8],0 jne invalid_value mov al,[edi+12] mov [value_type],al cmp al,4 jne check_pword_value cmp [error_line],0 jne check_pword_value mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol check_pword_value: mov eax,[edi] mov edx,[edi+4] cmp edx,10000h jge range_exceeded cmp edx,-8000h jl range_exceeded ret get_qword_value: mov [value_size],8 mov [size_override],-1 call calculate_expression cmp word [edi+8],0 jne invalid_value mov eax,[edi+16] mov [symbol_identifier],eax mov al,[edi+12] mov [value_type],al check_qword_value: mov eax,[edi] mov edx,[edi+4] ret get_count_value: mov [value_size],8 mov [size_override],-1 call calculate_expression cmp word [edi+8],0 jne invalid_value mov al,[edi+12] or al,al jz check_count_value cmp [error_line],0 jne check_count_value mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol check_count_value: mov eax,[edi] mov edx,[edi+4] or edx,edx jnz invalid_count_value ret invalid_count_value: cmp [error_line],0 jne zero_count mov eax,[current_line] mov [error_line],eax mov [error],invalid_value zero_count: xor eax,eax ret get_value: mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,'(' jne invalid_value mov al,[operand_size] cmp al,1 je value_byte cmp al,2 je value_word cmp al,4 je value_dword cmp al,6 je value_pword cmp al,8 je value_qword or al,al jnz invalid_value value_qword: call get_qword_value ret value_pword: call get_pword_value movzx edx,dx ret value_dword: call get_dword_value xor edx,edx ret value_word: call get_word_value xor edx,edx movzx eax,ax ret value_byte: call get_byte_value xor edx,edx movzx eax,al ret get_address_word_value: mov [address_size],2 mov [value_size],2 jmp calculate_address get_address_dword_value: mov [address_size],4 mov [value_size],4 jmp calculate_address get_address_qword_value: mov [address_size],8 mov [value_size],8 jmp calculate_address get_address_value: mov [address_size],0 mov [value_size],8 calculate_address: cmp byte [esi],'.' je invalid_address call calculate_expression mov eax,[edi+16] mov [address_symbol],eax mov al,[edi+12] mov [value_type],al cmp al,6 je special_address_type_32bit cmp al,5 je special_address_type_32bit ja invalid_use_of_symbol test al,1 jnz invalid_use_of_symbol or al,al jz address_size_ok shl al,5 jmp address_symbol_ok special_address_type_32bit: mov al,40h address_symbol_ok: mov ah,[address_size] or [address_size],al shr al,4 or ah,ah jz address_size_ok cmp al,ah je address_size_ok cmp ax,0804h jne address_sizes_do_not_agree cmp [value_type],2 ja value_type_correction_ok mov [value_type],2 value_type_correction_ok: mov eax,[edi] cdq cmp edx,[edi+4] je address_size_ok cmp [error_line],0 jne address_size_ok mov ecx,[current_line] mov [error_line],ecx mov [error],value_out_of_range address_size_ok: xor ebx,ebx xor ecx,ecx mov cl,[value_type] shl ecx,16 mov ch,[address_size] cmp word [edi+8],0 je check_immediate_address mov al,[edi+8] mov dl,[edi+10] call get_address_register mov al,[edi+9] mov dl,[edi+11] call get_address_register mov ax,bx shr ah,4 shr al,4 or bh,bh jz check_address_registers or bl,bl jz check_address_registers cmp al,ah jne invalid_address check_address_registers: or al,ah mov ah,[address_size] and ah,0Fh jz address_registers_sizes_ok cmp al,ah jne address_sizes_do_not_match address_registers_sizes_ok: cmp al,4 je sib_allowed cmp al,8 je sib_allowed cmp al,0Fh je check_ip_relative_address or cl,cl jz check_word_value cmp cl,1 je check_word_value jmp invalid_address address_sizes_do_not_match: cmp al,0Fh jne invalid_address mov al,bh and al,0Fh cmp al,ah jne invalid_address check_ip_relative_address: cmp bh,0F4h je check_dword_value cmp bh,0F8h jne invalid_address mov eax,[edi] cdq cmp edx,[edi+4] jne range_exceeded ret get_address_register: or al,al jz address_register_ok cmp dl,1 jne scaled_register or bh,bh jnz scaled_register mov bh,al address_register_ok: ret scaled_register: or bl,bl jnz invalid_address mov bl,al mov cl,dl jmp address_register_ok sib_allowed: or bh,bh jnz check_index_with_base cmp cl,3 je special_index_scale cmp cl,5 je special_index_scale cmp cl,9 je special_index_scale cmp cl,2 jne check_index_scale cmp bl,45h jne special_index_scale cmp [code_type],64 je special_index_scale cmp [segment_register],4 jne special_index_scale cmp [value_type],0 jne check_index_scale mov al,[edi] cbw cwde cmp eax,[edi] jne check_index_scale cdq cmp edx,[edi+4] jne check_immediate_address special_index_scale: mov bh,bl dec cl check_immediate_address: mov al,[address_size] and al,0Fh cmp al,2 je check_word_value cmp al,4 je check_dword_value cmp al,8 je check_qword_value or al,al jnz invalid_value cmp [code_type],64 jne check_dword_value jmp check_qword_value check_index_with_base: cmp cl,1 jne check_index_scale cmp bl,44h je swap_base_with_index cmp bl,84h je swap_base_with_index cmp [code_type],64 je check_for_rbp_base cmp bl,45h jne check_for_ebp_base cmp [segment_register],3 je swap_base_with_index jmp check_immediate_address check_for_ebp_base: cmp bh,45h jne check_immediate_address cmp [segment_register],4 jne check_immediate_address swap_base_with_index: xchg bl,bh jmp check_immediate_address check_for_rbp_base: cmp bh,45h je swap_base_with_index cmp bh,85h je swap_base_with_index jmp check_immediate_address check_index_scale: test cl,not 1111b jnz invalid_address mov al,cl dec al and al,cl jz check_immediate_address jmp invalid_address calculate_relative_offset: cmp [value_undefined],0 jne relative_offset_ok test bh,bh setne ch cmp bx,word [org_registers] je origin_registers_ok xchg bh,bl xchg ch,cl cmp bx,word [org_registers] jne invalid_value origin_registers_ok: cmp cx,word [org_registers+2] jne invalid_value add eax,dword [org_origin] adc edx,dword [org_origin+4] sub eax,edi sbb edx,0 mov bl,[value_type] or bl,bl je relative_offset_ok test bl,1 jnz invalid_use_of_symbol mov ecx,[address_symbol] mov [symbol_identifier],ecx cmp bl,6 je plt_relative_offset cmp bl,[labels_type] jne invalid_use_of_symbol mov [value_type],0 cmp ecx,[org_symbol] je relative_offset_ok mov [value_type],3 relative_offset_ok: ret plt_relative_offset: mov [value_type],7 ret calculate_logical_expression: xor al,al calculate_embedded_logical_expression: mov [logical_value_wrapping],al call get_logical_value logical_loop: cmp byte [esi],'|' je logical_or cmp byte [esi],'&' je logical_and ret logical_or: inc esi or al,al jnz logical_value_already_determined push eax call get_logical_value pop ebx or al,bl jmp logical_loop logical_and: inc esi or al,al jz logical_value_already_determined push eax call get_logical_value pop ebx and al,bl jmp logical_loop logical_value_already_determined: push eax call skip_logical_value jc invalid_expression pop eax jmp logical_loop get_logical_value: xor al,al check_for_negation: cmp byte [esi],'~' jne negation_ok inc esi xor al,-1 jmp check_for_negation negation_ok: push eax mov al,[esi] cmp al,'{' je logical_expression cmp al,0FFh je invalid_expression cmp al,88h je check_for_defined cmp al,89h je check_for_used cmp al,'0' je given_false cmp al,'1' je given_true call get_value mov bl,[value_type] push eax edx ebx mov al,[esi] or al,al jz logical_number cmp al,0Fh je logical_number cmp al,'}' je logical_number cmp al,'&' je logical_number cmp al,'|' je logical_number inc esi mov [compare_type],al call get_value pop ebx cmp [next_pass_needed],0 jne values_ok cmp bl,[value_type] jne invalid_use_of_symbol values_ok: pop ecx ebx cmp [compare_type],'=' je check_equal cmp [compare_type],'>' je check_greater cmp [compare_type],'<' je check_less cmp [compare_type],0F1h je check_not_equal cmp [compare_type],0F2h je check_not_less cmp [compare_type],0F3h je check_not_greater jmp invalid_expression check_equal: cmp eax,ebx jne return_false cmp edx,ecx jne return_false jmp return_true check_greater: cmp edx,ecx jl return_true jg return_false cmp eax,ebx jb return_true jae return_false check_less: cmp edx,ecx jl return_false jg return_true cmp eax,ebx jbe return_false ja return_true check_not_less: cmp edx,ecx jl return_true jg return_false cmp eax,ebx jbe return_true ja return_false check_not_greater: cmp edx,ecx jl return_false jg return_true cmp eax,ebx jb return_false jae return_true check_not_equal: cmp eax,ebx jne return_true cmp edx,ecx jne return_true jmp return_false logical_number: pop ebx edx eax or bl,bl jnz invalid_expression or eax,edx jnz return_true jmp return_false check_for_defined: or bl,-1 lods word [esi] cmp ah,'(' jne invalid_expression check_expression: lods byte [esi] or al,al jz defined_string cmp al,'.' je defined_fp_value cmp al,')' je expression_checked cmp al,'!' je invalid_expression cmp al,0Fh je check_expression cmp al,10h je defined_register cmp al,11h je check_if_symbol_defined cmp al,80h jae check_expression movzx eax,al add esi,eax jmp check_expression defined_register: inc esi jmp check_expression defined_fp_value: add esi,12 jmp expression_checked defined_string: lods dword [esi] add esi,eax inc esi jmp expression_checked check_if_symbol_defined: lods dword [esi] cmp eax,-1 je invalid_expression cmp eax,0Fh jb check_expression je reserved_word_used_as_symbol test byte [eax+8],4 jnz no_prediction test byte [eax+8],1 jz symbol_predicted_undefined mov cx,[current_pass] sub cx,[eax+16] jz check_expression cmp cx,1 ja symbol_predicted_undefined or byte [eax+8],40h+80h jmp check_expression no_prediction: test byte [eax+8],1 jz symbol_undefined mov cx,[current_pass] sub cx,[eax+16] jz check_expression jmp symbol_undefined symbol_predicted_undefined: or byte [eax+8],40h and byte [eax+8],not 80h symbol_undefined: xor bl,bl jmp check_expression expression_checked: mov al,bl jmp logical_value_ok check_for_used: lods word [esi] cmp ah,2 jne invalid_expression lods dword [esi] cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol inc esi test byte [eax+8],8 jz not_used mov cx,[current_pass] sub cx,[eax+18] jz return_true cmp cx,1 ja not_used or byte [eax+8],10h+20h jmp return_true not_used: or byte [eax+8],10h and byte [eax+8],not 20h jmp return_false given_false: inc esi return_false: xor al,al jmp logical_value_ok given_true: inc esi return_true: or al,-1 jmp logical_value_ok logical_expression: lods byte [esi] mov dl,[logical_value_wrapping] push edx call calculate_embedded_logical_expression pop edx mov [logical_value_wrapping],dl push eax lods byte [esi] cmp al,'}' jne invalid_expression pop eax logical_value_ok: pop ebx xor al,bl ret skip_symbol: lods byte [esi] or al,al jz nothing_to_skip cmp al,0Fh je nothing_to_skip cmp al,1 je skip_instruction cmp al,2 je skip_label cmp al,3 je skip_label cmp al,20h jb skip_assembler_symbol cmp al,'(' je skip_expression cmp al,'[' je skip_address skip_done: clc ret skip_label: add esi,2 skip_instruction: add esi,2 skip_assembler_symbol: inc esi jmp skip_done skip_address: mov al,[esi] and al,11110000b cmp al,60h jb skip_expression cmp al,70h ja skip_expression inc esi jmp skip_address skip_expression: lods byte [esi] or al,al jz skip_string cmp al,'.' je skip_fp_value cmp al,')' je skip_done cmp al,']' je skip_done cmp al,'!' je skip_expression cmp al,0Fh je skip_expression cmp al,10h je skip_register cmp al,11h je skip_label_value cmp al,80h jae skip_expression movzx eax,al add esi,eax jmp skip_expression skip_label_value: add esi,3 skip_register: inc esi jmp skip_expression skip_fp_value: add esi,12 jmp skip_done skip_string: lods dword [esi] add esi,eax inc esi jmp skip_done nothing_to_skip: dec esi stc ret ; --------------- "exprcalc.inc" ---------------- ; ; --------------- "formats.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. formatter: mov [current_offset],edi cmp [output_file],0 jne output_path_ok mov esi,[input_file] mov edi,[free_additional_memory] copy_output_path: lods byte [esi] cmp edi,[structures_buffer] jae out_of_memory stos byte [edi] or al,al jnz copy_output_path dec edi mov eax,edi find_extension: dec eax cmp eax,[free_additional_memory] jb extension_found cmp byte [eax],'\' je extension_found cmp byte [eax],'/' je extension_found cmp byte [eax],'.' jne find_extension mov edi,eax extension_found: lea eax,[edi+9] cmp eax,[structures_buffer] jae out_of_memory cmp [file_extension],0 jne extension_specified cmp [output_format],2 je exe_extension jb bin_extension cmp [output_format],4 je obj_extension cmp [output_format],5 je o_extension cmp [output_format],3 jne no_extension cmp [subsystem],1 je sys_extension cmp [subsystem],10 jae efi_extension bt [format_flags],8 jnc exe_extension mov eax,'.dll' jmp make_extension sys_extension: mov eax,'.sys' jmp make_extension efi_extension: mov eax,'.efi' jmp make_extension bin_extension: mov eax,'.bin' bt [format_flags],0 jnc make_extension mov eax,'.com' jmp make_extension obj_extension: mov eax,'.obj' jmp make_extension o_extension: mov eax,'.o' bt [format_flags],0 jnc make_extension no_extension: xor eax,eax jmp make_extension exe_extension: mov eax,'.exe' make_extension: xchg eax,[edi] scas dword [edi] mov byte [edi],0 scas byte [edi] mov esi,edi stos dword [edi] sub edi,9 xor eax,eax mov ebx,characters adapt_case: mov al,[esi] or al,al jz adapt_next xlat byte [ebx] cmp al,[esi] je adapt_ok sub byte [edi],20h adapt_ok: inc esi adapt_next: inc edi cmp byte [edi],0 jne adapt_case jmp extension_ok extension_specified: mov al,'.' stos byte [edi] mov esi,[file_extension] copy_extension: lods byte [esi] stos byte [edi] test al,al jnz copy_extension dec edi extension_ok: mov esi,edi lea ecx,[esi+1] sub ecx,[free_additional_memory] mov edi,[structures_buffer] dec edi std rep movs byte [edi],[esi] cld inc edi mov [structures_buffer],edi mov [output_file],edi output_path_ok: cmp [symbols_file],0 je labels_table_ok mov ecx,[memory_end] sub ecx,[labels_list] mov edi,[display_buffer] sub edi,8 mov [edi],ecx or dword [edi+4],-1 sub edi,ecx cmp edi,[current_offset] jbe out_of_memory mov [display_buffer],edi mov esi,[memory_end] copy_labels: sub esi,32 cmp esi,[labels_list] jb labels_table_ok mov ecx,32 shr 2 rep movs dword [edi],[esi] sub esi,32 jmp copy_labels labels_table_ok: mov edi,[current_offset] cmp [output_format],4 je coff_formatter cmp [output_format],5 jne common_formatter bt [format_flags],0 jnc elf_formatter common_formatter: mov eax,edi sub eax,[code_start] mov [real_code_size],eax cmp edi,[undefined_data_end] jne calculate_code_size mov edi,[undefined_data_start] calculate_code_size: mov [current_offset],edi sub edi,[code_start] mov [code_size],edi mov [written_size],0 mov edx,[output_file] call create jc write_failed cmp [output_format],3 jne stub_written mov edx,[code_start] mov ecx,[stub_size] sub edx,ecx add [written_size],ecx call write stub_written: cmp [output_format],2 jne write_output call write_mz_header write_output: call write_code output_written: call close cmp [symbols_file],0 jne dump_symbols ret write_code: mov eax,[written_size] mov [headers_size],eax mov edx,[code_start] mov ecx,[code_size] add [written_size],ecx lea eax,[edx+ecx] call write jc write_failed ret format_directive: cmp edi,[code_start] jne unexpected_instruction cmp [virtual_data],0 jne unexpected_instruction cmp [output_format],0 jne unexpected_instruction lods byte [esi] cmp al,1Ch je format_prefix cmp al,18h jne invalid_argument lods byte [esi] select_format: mov dl,al shr al,4 mov [output_format],al and edx,0Fh or [format_flags],edx cmp al,2 je format_mz cmp al,3 je format_pe cmp al,4 je format_coff cmp al,5 je format_elf format_defined: cmp byte [esi],86h jne instruction_assembled cmp word [esi+1],'(' jne invalid_argument mov eax,[esi+3] add esi,3+4 mov [file_extension],esi lea esi,[esi+eax+1] jmp instruction_assembled format_prefix: lods byte [esi] mov ah,al lods byte [esi] cmp al,18h jne invalid_argument lods byte [esi] mov edx,eax shr dl,4 shr dh,4 cmp dl,dh jne invalid_argument or al,ah jmp select_format entry_directive: bts [format_flags],10h jc setting_already_specified mov al,[output_format] cmp al,2 je mz_entry cmp al,3 je pe_entry cmp al,5 jne illegal_instruction bt [format_flags],0 jc elf_entry jmp illegal_instruction stack_directive: bts [format_flags],11h jc setting_already_specified mov al,[output_format] cmp al,2 je mz_stack cmp al,3 je pe_stack jmp illegal_instruction heap_directive: bts [format_flags],12h jc setting_already_specified mov al,[output_format] cmp al,2 je mz_heap cmp al,3 je pe_heap jmp illegal_instruction segment_directive: cmp [virtual_data],0 jne illegal_instruction mov al,[output_format] cmp al,2 je mz_segment cmp al,5 je elf_segment jmp illegal_instruction section_directive: cmp [virtual_data],0 jne illegal_instruction mov al,[output_format] cmp al,3 je pe_section cmp al,4 je coff_section cmp al,5 je elf_section jmp illegal_instruction public_directive: mov al,[output_format] cmp al,4 je public_allowed cmp al,5 jne illegal_instruction bt [format_flags],0 jc illegal_instruction public_allowed: mov [base_code],0C0h lods byte [esi] cmp al,2 je public_label cmp al,1Dh jne invalid_argument lods byte [esi] and al,7 add [base_code],al lods byte [esi] cmp al,2 jne invalid_argument public_label: lods dword [esi] cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol mov dx,[current_pass] mov [eax+18],dx or byte [eax+8],8 inc esi mov ebx,[free_additional_memory] lea edx,[ebx+10h] cmp edx,[structures_buffer] jae out_of_memory mov [free_additional_memory],edx mov [ebx+8],eax mov eax,[current_line] mov [ebx+0Ch],eax lods byte [esi] cmp al,86h jne invalid_argument lods word [esi] cmp ax,'(' jne invalid_argument mov [ebx+4],esi lods dword [esi] lea esi,[esi+eax+1] mov al,[base_code] mov [ebx],al jmp instruction_assembled extrn_directive: mov al,[output_format] cmp al,4 je extrn_allowed cmp al,5 jne illegal_instruction bt [format_flags],0 jc illegal_instruction extrn_allowed: lods word [esi] cmp ax,'(' jne invalid_argument mov ebx,esi lods dword [esi] lea esi,[esi+eax+1] mov edx,[free_additional_memory] lea eax,[edx+0Ch] cmp eax,[structures_buffer] jae out_of_memory mov [free_additional_memory],eax mov byte [edx],80h mov [edx+4],ebx lods byte [esi] cmp al,86h jne invalid_argument lods byte [esi] cmp al,2 jne invalid_argument lods dword [esi] cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol inc esi mov ebx,eax xor ah,ah lods byte [esi] cmp al,':' je get_extrn_size dec esi cmp al,11h jne extrn_size_ok get_extrn_size: lods word [esi] cmp al,11h jne invalid_argument extrn_size_ok: mov [address_symbol],edx movzx ecx,ah mov [edx+8],ecx xor eax,eax xor edx,edx xor ebp,ebp mov ch,2 test [format_flags],8 jz make_free_label mov ch,4 jmp make_free_label mark_relocation: cmp [value_type],0 je relocation_ok cmp [virtual_data],0 jne relocation_ok cmp [output_format],2 je mark_mz_relocation cmp [output_format],3 je mark_pe_relocation cmp [output_format],4 je mark_coff_relocation cmp [output_format],5 je mark_elf_relocation relocation_ok: ret close_pass: mov al,[output_format] cmp al,3 je close_pe cmp al,4 je close_coff cmp al,5 je close_elf ret format_mz: mov edx,[additional_memory] push edi mov edi,edx mov ecx,1Ch shr 2 xor eax,eax rep stos dword [edi] mov [free_additional_memory],edi pop edi mov word [edx+0Ch],0FFFFh mov word [edx+10h],1000h mov [code_type],16 jmp format_defined mark_mz_relocation: push eax ebx inc [number_of_relocations] mov ebx,[free_additional_memory] mov eax,edi sub eax,[code_start] mov [ebx],ax shr eax,16 shl ax,12 mov [ebx+2],ax cmp word [ebx],0FFFFh jne mz_relocation_ok inc word [ebx+2] sub word [ebx],10h mz_relocation_ok: add ebx,4 cmp ebx,[structures_buffer] jae out_of_memory mov [free_additional_memory],ebx pop ebx eax ret mz_segment: lods byte [esi] cmp al,2 jne invalid_argument lods dword [esi] cmp eax,0Fh jb invalid_use_of_symbol je reserved_word_used_as_symbol inc esi mov ebx,eax mov eax,edi sub eax,[code_start] mov ecx,0Fh add eax,0Fh and eax,1111b sub ecx,eax mov edx,edi xor eax,eax rep stos byte [edi] mov dword [org_origin],edi mov dword [org_origin+4],eax mov [org_registers],eax mov [org_start],edi mov eax,edx call undefined_data mov eax,edi sub eax,[code_start] shr eax,4 cmp eax,10000h jae value_out_of_range mov edx,eax mov al,16 cmp byte [esi],13h jne segment_type_ok inc esi lods byte [esi] segment_type_ok: mov [code_type],al mov eax,edx mov cx,0100h xor edx,edx xor ebp,ebp mov [address_symbol],edx jmp make_free_label mz_entry: lods byte [esi] cmp al,'(' jne invalid_argument call get_word_value cmp [value_type],1 je initial_cs_ok cmp [error_line],0 jne initial_cs_ok mov eax,[current_line] mov [error_line],eax mov [error],invalid_address initial_cs_ok: mov edx,[additional_memory] mov [edx+16h],ax lods byte [esi] cmp al,':' jne invalid_argument lods byte [esi] cmp al,'(' jne invalid_argument ja invalid_address call get_word_value cmp [value_type],0 jne invalid_use_of_symbol mov edx,[additional_memory] mov [edx+14h],ax jmp instruction_assembled mz_stack: lods byte [esi] cmp al,'(' jne invalid_argument call get_word_value cmp byte [esi],':' je stack_pointer cmp ax,10h jb invalid_value cmp [value_type],0 jne invalid_use_of_symbol mov edx,[additional_memory] mov [edx+10h],ax jmp instruction_assembled stack_pointer: cmp [value_type],1 je initial_ss_ok cmp [error_line],0 jne initial_ss_ok mov eax,[current_line] mov [error_line],eax mov [error],invalid_address initial_ss_ok: mov edx,[additional_memory] mov [edx+0Eh],ax lods byte [esi] cmp al,':' jne invalid_argument lods byte [esi] cmp al,'(' jne invalid_argument call get_word_value cmp [value_type],0 jne invalid_use_of_symbol mov edx,[additional_memory] mov [edx+10h],ax bts [format_flags],4 jmp instruction_assembled mz_heap: cmp [output_format],2 jne illegal_instruction lods byte [esi] call get_size_operator cmp ah,1 je invalid_value cmp ah,2 ja invalid_value cmp al,'(' jne invalid_argument call get_word_value cmp [value_type],0 jne invalid_use_of_symbol mov edx,[additional_memory] mov [edx+0Ch],ax jmp instruction_assembled write_mz_header: mov edx,[additional_memory] bt [format_flags],4 jc mz_stack_ok mov eax,[real_code_size] dec eax shr eax,4 inc eax mov [edx+0Eh],ax shl eax,4 movzx ecx,word [edx+10h] add eax,ecx mov [real_code_size],eax mz_stack_ok: mov edi,[free_additional_memory] mov eax,[number_of_relocations] shl eax,2 add eax,1Ch sub edi,eax xchg edi,[free_additional_memory] mov ecx,0Fh add eax,0Fh and eax,1111b sub ecx,eax xor al,al rep stos byte [edi] sub edi,[free_additional_memory] mov ecx,edi shr edi,4 mov word [edx],'MZ' ; signature mov [edx+8],di ; header size in paragraphs mov eax,[number_of_relocations] mov [edx+6],ax ; number of relocation entries mov eax,[code_size] add eax,ecx mov esi,eax shr esi,9 and eax,1FFh inc si or ax,ax jnz mz_size_ok dec si mz_size_ok: mov [edx+2],ax ; number of bytes in last page mov [edx+4],si ; number of pages mov eax,[real_code_size] dec eax shr eax,4 inc eax mov esi,[code_size] dec esi shr esi,4 inc esi sub eax,esi mov [edx+0Ah],ax ; minimum memory in addition to code add [edx+0Ch],ax ; maximum memory in addition to code salc mov ah,al or [edx+0Ch],ax mov word [edx+18h],1Ch ; offset of relocation table add [written_size],ecx call write jc write_failed ret make_stub: mov [stub_file],edx or edx,edx jnz stub_from_file push esi mov edx,edi xor eax,eax mov ecx,20h rep stos dword [edi] mov eax,40h+default_stub_end-default_stub mov cx,100h+default_stub_end-default_stub mov word [edx],'MZ' mov byte [edx+4],1 mov word [edx+2],ax mov byte [edx+8],4 mov byte [edx+0Ah],10h mov word [edx+0Ch],0FFFFh mov word [edx+10h],cx mov word [edx+3Ch],ax mov byte [edx+18h],40h lea edi,[edx+40h] mov esi,default_stub mov ecx,default_stub_end-default_stub rep movs byte [edi],[esi] pop esi jmp stub_ok default_stub: use16 push cs pop ds mov dx,stub_message-default_stub mov ah,9 int 21h mov ax,4C01h int 21h stub_message db 'This program cannot be run in DOS mode.',0Dh,0Ah,24h rq 1 default_stub_end: use32 stub_from_file: push esi mov esi,edx call open_binary_file mov edx,edi mov ecx,1Ch mov esi,edx call read jc binary_stub cmp word [esi],'MZ' jne binary_stub add edi,1Ch movzx ecx,word [esi+6] add ecx,11b and ecx,not 11b add ecx,(40h-1Ch) shr 2 lea eax,[edi+ecx*4] cmp edi,[display_buffer] jae out_of_memory xor eax,eax rep stos dword [edi] mov edx,40h xchg dx,[esi+18h] xor al,al call lseek movzx ecx,word [esi+6] shl ecx,2 lea edx,[esi+40h] call read mov edx,edi sub edx,esi shr edx,4 xchg dx,[esi+8] shl edx,4 xor al,al call lseek movzx ecx,word [esi+4] dec ecx shl ecx,9 movzx edx,word [esi+2] test edx,edx jnz stub_header_size_ok mov dx,200h stub_header_size_ok: add ecx,edx mov edx,edi sub ecx,eax je read_stub_code jb stub_code_ok push ecx dec ecx shr ecx,3 inc ecx shl ecx,1 lea eax,[edi+ecx*4] cmp eax,[display_buffer] jae out_of_memory xor eax,eax rep stos dword [edi] pop ecx read_stub_code: call read stub_code_ok: call close mov edx,edi sub edx,esi mov ax,dx and ax,1FFh mov [esi+2],ax dec edx shr edx,9 inc edx mov [esi+4],dx mov eax,edi sub eax,esi mov [esi+3Ch],eax pop esi stub_ok: ret binary_stub: mov esi,edi mov ecx,40h shr 2 xor eax,eax rep stos dword [edi] mov al,2 xor edx,edx call lseek push eax xor al,al xor edx,edx call lseek mov ecx,[esp] add ecx,40h+111b and ecx,not 111b mov ax,cx and ax,1FFh mov [esi+2],ax lea eax,[ecx+1FFh] shr eax,9 mov [esi+4],ax mov [esi+3Ch],ecx sub ecx,40h mov eax,10000h sub eax,ecx jbe binary_heap_ok shr eax,4 mov [esi+0Ah],ax binary_heap_ok: mov word [esi],'MZ' mov byte [esi+8],4 mov ax,0FFFFh mov [esi+0Ch],ax dec ax mov [esi+10h],ax sub ax,0Eh mov [esi+0Eh],ax mov [esi+16h],ax mov word [esi+14h],100h mov byte [esi+18h],40h mov eax,[display_buffer] sub eax,ecx cmp edi,eax jae out_of_memory mov edx,edi shr ecx,2 xor eax,eax rep stos dword [edi] pop ecx call read call close pop esi ret format_pe: xor edx,edx mov [machine],14Ch mov [subsystem],3 mov [subsystem_version],3 + 10 shl 16 mov [image_base],400000h test [format_flags],8 jz pe_settings mov [machine],8664h mov [subsystem_version],5 + 0 shl 16 mov [image_base_high],0 pe_settings: cmp byte [esi],84h je get_stub_name cmp byte [esi],80h je get_pe_base cmp byte [esi],1Bh jne pe_settings_ok lods byte [esi] lods byte [esi] test al,80h+40h jz subsystem_setting cmp al,80h je dll_flag cmp al,81h je wdm_flag cmp al,82h je large_flag jmp pe_settings dll_flag: bts [format_flags],8 jc setting_already_specified jmp pe_settings wdm_flag: bts [format_flags],9 jc setting_already_specified jmp pe_settings large_flag: bts [format_flags],11 jc setting_already_specified test [format_flags],8 jnz invalid_argument jmp pe_settings subsystem_setting: bts [format_flags],7 jc setting_already_specified and ax,3Fh mov [subsystem],ax cmp ax,10 jb subsystem_type_ok or [format_flags],8 subsystem_type_ok: cmp byte [esi],'(' jne pe_settings inc esi cmp byte [esi],'.' jne invalid_value inc esi push edx cmp byte [esi+11],0 jne invalid_value cmp byte [esi+10],2 ja invalid_value mov dx,[esi+8] cmp dx,8000h je zero_version mov eax,[esi+4] cmp dx,7 jg invalid_value mov cx,7 sub cx,dx mov eax,[esi+4] shr eax,cl mov ebx,eax shr ebx,24 cmp bl,100 jae invalid_value and eax,0FFFFFFh mov ecx,100 mul ecx shrd eax,edx,24 jnc version_value_ok inc eax version_value_ok: shl eax,16 mov ax,bx jmp subsystem_version_ok zero_version: xor eax,eax subsystem_version_ok: pop edx add esi,13 mov [subsystem_version],eax jmp pe_settings get_pe_base: bts [format_flags],10 jc setting_already_specified lods word [esi] cmp ah,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value push edx edi add edi,[stub_size] test [format_flags],8 jnz get_peplus_base call get_dword_value mov [image_base],eax jmp pe_base_ok get_peplus_base: call get_qword_value mov [image_base],eax mov [image_base_high],edx pe_base_ok: pop edi edx cmp [value_type],0 jne invalid_use_of_symbol cmp byte [esi],84h jne pe_settings_ok get_stub_name: lods byte [esi] lods word [esi] cmp ax,'(' jne invalid_argument lods dword [esi] mov edx,esi add esi,eax inc esi pe_settings_ok: mov ebp,[stub_size] or ebp,ebp jz make_pe_stub cmp edx,[stub_file] je pe_stub_ok sub edi,[stub_size] mov [code_start],edi make_pe_stub: call make_stub mov eax,edi sub eax,[code_start] mov [stub_size],eax mov [code_start],edi mov ebp,eax pe_stub_ok: mov edx,edi mov ecx,18h+0E0h test [format_flags],8 jz zero_pe_header add ecx,10h zero_pe_header: add ebp,ecx shr ecx,2 xor eax,eax rep stos dword [edi] mov word [edx],'PE' ; signature mov ax,[machine] mov word [edx+4],ax mov byte [edx+38h+1],10h ; section alignment mov byte [edx+3Ch+1],2 ; file alignment mov byte [edx+40h],1 ; OS version mov eax,[subsystem_version] mov [edx+48h],eax mov ax,[subsystem] mov [edx+5Ch],ax cmp ax,1 jne pe_alignment_ok mov eax,20h mov dword [edx+38h],eax mov dword [edx+3Ch],eax pe_alignment_ok: mov word [edx+1Ah],VERSION_MAJOR + VERSION_MINOR shl 8 test [format_flags],8 jnz init_peplus_specific mov byte [edx+14h],0E0h ; size of optional header mov dword [edx+16h],10B010Fh; flags and magic value mov eax,[image_base] mov [edx+34h],eax mov byte [edx+60h+1],10h ; stack reserve mov byte [edx+64h+1],10h ; stack commit mov byte [edx+68h+2],1 ; heap reserve mov byte [edx+74h],16 ; number of directories jmp pe_header_ok init_peplus_specific: mov byte [edx+14h],0F0h ; size of optional header mov dword [edx+16h],20B002Fh; flags and magic value mov eax,[image_base] mov [edx+30h],eax mov eax,[image_base_high] mov [edx+34h],eax mov byte [edx+60h+1],10h ; stack reserve mov byte [edx+68h+1],10h ; stack commit mov byte [edx+70h+2],1 ; heap reserve mov byte [edx+84h],16 ; number of directories pe_header_ok: bsf ecx,[edx+3Ch] imul ebx,[number_of_sections],28h or ebx,ebx jnz reserve_space_for_section_headers mov ebx,28h reserve_space_for_section_headers: add ebx,ebp dec ebx shr ebx,cl inc ebx shl ebx,cl sub ebx,ebp mov ecx,ebx mov eax,[display_buffer] sub eax,ecx cmp edi,eax jae out_of_memory shr ecx,2 xor eax,eax rep stos dword [edi] mov eax,edi sub eax,[code_start] add eax,[stub_size] mov [edx+54h],eax ; size of headers mov ecx,[edx+38h] dec ecx add eax,ecx not ecx and eax,ecx bt [format_flags],8 jc pe_entry_init_ok mov [edx+28h],eax ; entry point rva pe_entry_init_ok: mov [number_of_sections],0 movzx ebx,word [edx+14h] lea ebx,[edx+18h+ebx] mov [current_section],ebx mov dword [ebx],'.fla' mov dword [ebx+4],'t' mov [ebx+14h],edi mov [ebx+0Ch],eax mov dword [ebx+24h],0E0000060h xor ecx,ecx not eax not ecx add eax,1 adc ecx,0 add eax,edi adc ecx,0 test [format_flags],8 jnz peplus_org sub eax,[edx+34h] sbb ecx,0 mov bl,2 mov [code_type],32 jmp pe_org_ok peplus_org: sub eax,[edx+30h] sbb ecx,[edx+34h] mov bl,4 mov [code_type],64 pe_org_ok: bt [resolver_flags],0 jc pe_labels_type_ok xor bl,bl pe_labels_type_ok: mov [labels_type],bl mov dword [org_origin],eax mov dword [org_origin+4],ecx mov [org_registers],0 mov [org_start],edi mov byte [edx+5Eh+1],1 bt [format_flags],8 jnc dll_flag_ok or byte [edx+16h+1],20h dll_flag_ok: bt [format_flags],9 jnc wdm_flag_ok or byte [edx+5Eh+1],20h wdm_flag_ok: bt [format_flags],11 jnc large_flag_ok or byte [edx+16h],20h large_flag_ok: jmp format_defined pe_section: call close_pe_section bts [format_flags],5 lea ecx,[ebx+28h] add edx,[edx+54h] sub edx,[stub_size] cmp ecx,edx jbe new_section lea ebx,[edx-28h] or [next_pass_needed],-1 push edi mov edi,ebx mov ecx,28h shr 4 xor eax,eax rep stos dword [edi] pop edi new_section: mov [ebx+0Ch],eax lods word [esi] cmp ax,'(' jne invalid_argument lea edx,[esi+4] mov ecx,[esi] lea esi,[esi+4+ecx+1] cmp ecx,8 ja name_too_long xor eax,eax mov [ebx],eax mov [ebx+4],eax push esi edi mov edi,ebx mov esi,edx rep movs byte [edi],[esi] pop edi esi mov dword [ebx+24h],0 mov [ebx+14h],edi mov edx,[code_start] mov eax,edi xor ecx,ecx sub eax,[ebx+0Ch] sbb ecx,0 test [format_flags],8 jnz peplus_section_org sub eax,[edx+34h] sbb ecx,0 mov [labels_type],2 mov [code_type],32 bt [resolver_flags],0 jc pe_section_org_ok mov [labels_type],0 jmp pe_section_org_ok peplus_section_org: sub eax,[edx+30h] sbb ecx,[edx+34h] mov [labels_type],4 mov [code_type],64 bt [resolver_flags],0 jc pe_section_org_ok mov [labels_type],0 pe_section_org_ok: mov dword [org_origin],eax mov dword [org_origin+4],ecx mov [org_registers],0 mov [org_start],edi get_section_flags: lods byte [esi] cmp al,1Ah je set_directory cmp al,19h je section_flag dec esi jmp instruction_assembled set_directory: movzx eax,byte [esi] inc esi mov ecx,ebx test [format_flags],8 jnz peplus_directory xchg ecx,[edx+78h+eax*8] mov dword [edx+78h+eax*8+4],-1 jmp pe_directory_set peplus_directory: xchg ecx,[edx+88h+eax*8] mov dword [edx+88h+eax*8+4],-1 pe_directory_set: or ecx,ecx jnz data_already_defined push ebx edx call generate_pe_data pop edx ebx jmp get_section_flags section_flag: lods byte [esi] cmp al,9 je invalid_argument cmp al,11 je invalid_argument mov cl,al mov eax,1 shl eax,cl test dword [ebx+24h],eax jnz setting_already_specified or dword [ebx+24h],eax jmp get_section_flags close_pe_section: mov ebx,[current_section] mov edx,[code_start] mov eax,edi sub eax,[ebx+14h] jnz finish_section bt [format_flags],5 jc finish_section mov eax,[ebx+0Ch] ret finish_section: mov [ebx+8],eax cmp edi,[undefined_data_end] jne align_section cmp dword [edx+38h],1000h jb align_section mov edi,[undefined_data_start] align_section: mov [undefined_data_end],0 mov ebp,edi sub ebp,[ebx+14h] mov ecx,[edx+3Ch] dec ecx lea eax,[ebp+ecx] not ecx and eax,ecx mov [ebx+10h],eax sub eax,ebp mov ecx,eax xor al,al rep stos byte [edi] mov eax,[code_start] sub eax,[stub_size] sub [ebx+14h],eax mov ecx,[ebx+10h] test byte [ebx+24h],20h jz pe_code_sum_ok add [edx+1Ch],ecx cmp dword [edx+2Ch],0 jne pe_code_sum_ok mov eax,[ebx+0Ch] mov [edx+2Ch],eax pe_code_sum_ok: test byte [ebx+24h],40h jz pe_data_sum_ok add [edx+20h],ecx test [format_flags],8 jnz pe_data_sum_ok cmp dword [edx+30h],0 jne pe_data_sum_ok mov eax,[ebx+0Ch] mov [edx+30h],eax pe_data_sum_ok: mov eax,[ebx+8] or eax,eax jz udata_ok cmp dword [ebx+10h],0 jne udata_ok or byte [ebx+24h],80h add [edx+24h],ecx udata_ok: mov ecx,[edx+38h] dec ecx add eax,ecx not ecx and eax,ecx add eax,[ebx+0Ch] add ebx,28h mov [current_section],ebx inc word [number_of_sections] jz format_limitations_exceeded ret data_directive: cmp [output_format],3 jne illegal_instruction lods byte [esi] cmp al,1Ah je predefined_data_type cmp al,'(' jne invalid_argument call get_byte_value cmp al,16 jb data_type_ok jmp invalid_value predefined_data_type: movzx eax,byte [esi] inc esi data_type_ok: mov ebx,[current_section] mov ecx,edi sub ecx,[ebx+14h] add ecx,[ebx+0Ch] mov edx,[code_start] test [format_flags],8 jnz peplus_data xchg ecx,[edx+78h+eax*8] jmp init_pe_data peplus_data: xchg ecx,[edx+88h+eax*8] init_pe_data: or ecx,ecx jnz data_already_defined call allocate_structure_data mov word [ebx],data_directive-instruction_handler mov [ebx+2],al mov edx,[current_line] mov [ebx+4],edx call generate_pe_data jmp instruction_assembled end_data: cmp [output_format],3 jne illegal_instruction call find_structure_data jc unexpected_instruction movzx eax,byte [ebx+2] mov edx,[current_section] mov ecx,edi sub ecx,[edx+14h] add ecx,[edx+0Ch] mov edx,[code_start] test [format_flags],8 jnz end_peplus_data sub ecx,[edx+78h+eax*8] mov [edx+78h+eax*8+4],ecx jmp remove_structure_data end_peplus_data: sub ecx,[edx+88h+eax*8] mov [edx+88h+eax*8+4],ecx jmp remove_structure_data pe_entry: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value test [format_flags],8 jnz peplus_entry call get_dword_value mov bl,2 bt [resolver_flags],0 jc check_pe_entry_label_type xor bl,bl check_pe_entry_label_type: cmp [value_type],bl je pe_entry_ok cmp [error_line],0 jne pe_entry_ok mov edx,[current_line] mov [error_line],edx mov [error],invalid_address pe_entry_ok: mov edx,[code_start] sub eax,[edx+34h] mov [edx+28h],eax jmp instruction_assembled peplus_entry: call get_qword_value mov bl,4 bt [resolver_flags],0 jc check_peplus_entry_label_type xor bl,bl check_peplus_entry_label_type: cmp [value_type],bl je peplus_entry_type_ok cmp [error_line],0 jne peplus_entry_type_ok mov edx,[current_line] mov [error_line],edx mov [error],invalid_address peplus_entry_type_ok: mov ecx,[code_start] sub eax,[ecx+30h] sbb edx,[ecx+34h] jz peplus_entry_range_ok mov edx,[current_line] mov [error_line],edx mov [error],value_out_of_range peplus_entry_range_ok: mov [ecx+28h],eax jmp instruction_assembled pe_stack: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value test [format_flags],8 jnz peplus_stack call get_count_value mov edx,[code_start] mov [edx+60h],eax cmp byte [esi],',' jne default_stack_commit lods byte [esi] lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov edx,[code_start] mov [edx+64h],eax cmp eax,[edx+60h] ja value_out_of_range jmp instruction_assembled default_stack_commit: mov dword [edx+64h],1000h mov eax,[edx+60h] cmp eax,1000h ja instruction_assembled mov dword [edx+64h],eax jmp instruction_assembled peplus_stack: call get_qword_value cmp [value_type],0 jne invalid_use_of_symbol mov ecx,[code_start] mov [ecx+60h],eax mov [ecx+64h],edx cmp byte [esi],',' jne default_peplus_stack_commit lods byte [esi] lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_qword_value cmp [value_type],0 jne invalid_use_of_symbol mov ecx,[code_start] mov [ecx+68h],eax mov [ecx+6Ch],edx cmp edx,[ecx+64h] ja value_out_of_range jb instruction_assembled cmp eax,[ecx+60h] ja value_out_of_range jmp instruction_assembled default_peplus_stack_commit: mov dword [ecx+68h],1000h cmp dword [ecx+64h],0 jne instruction_assembled mov eax,[ecx+60h] cmp eax,1000h ja instruction_assembled mov dword [ecx+68h],eax jmp instruction_assembled pe_heap: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value test [format_flags],8 jnz peplus_heap call get_count_value mov edx,[code_start] mov [edx+68h],eax cmp byte [esi],',' jne instruction_assembled lods byte [esi] lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_count_value mov edx,[code_start] mov [edx+6Ch],eax cmp eax,[edx+68h] ja value_out_of_range jmp instruction_assembled peplus_heap: call get_qword_value cmp [value_type],0 jne invalid_use_of_symbol mov ecx,[code_start] mov [ecx+70h],eax mov [ecx+74h],edx cmp byte [esi],',' jne instruction_assembled lods byte [esi] lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value call get_qword_value cmp [value_type],0 jne invalid_use_of_symbol mov ecx,[code_start] mov [ecx+78h],eax mov [ecx+7Ch],edx cmp edx,[ecx+74h] ja value_out_of_range jb instruction_assembled cmp eax,[edx+70h] ja value_out_of_range jmp instruction_assembled mark_pe_relocation: push eax ebx test [format_flags],8 jz check_pe32_relocation_type cmp [value_type],4 je pe_relocation_type_ok check_pe32_relocation_type: cmp [value_type],2 je pe_relocation_type_ok cmp [error_line],0 jne pe_relocation_type_ok mov eax,[current_line] mov [error_line],eax mov [error],invalid_use_of_symbol pe_relocation_type_ok: mov ebx,[current_section] mov eax,edi sub eax,[ebx+14h] add eax,[ebx+0Ch] mov ebx,[free_additional_memory] inc [number_of_relocations] jz invalid_use_of_symbol add ebx,5 cmp ebx,[structures_buffer] jae out_of_memory mov [free_additional_memory],ebx mov [ebx-5],eax cmp [value_type],2 je fixup_32bit mov byte [ebx-1],0Ah jmp fixup_ok fixup_32bit: mov byte [ebx-1],3 fixup_ok: pop ebx eax ret generate_pe_data: cmp al,2 je make_pe_resource cmp al,5 je make_pe_fixups ret make_pe_fixups: mov edx,[code_start] and byte [edx+16h],not 1 or byte [edx+5Eh],40h bts [resolver_flags],0 jc pe_relocatable_ok or [next_pass_needed],-1 pe_relocatable_ok: push esi mov ecx,[number_of_relocations] mov esi,[free_additional_memory] lea eax,[ecx*5] sub esi,eax mov [free_additional_memory],esi or [number_of_relocations],-1 xor edx,edx mov ebp,edi make_fixups: cmp [esi],edx jb store_fixup mov eax,edi sub eax,ebp test eax,11b jz fixups_block xor ax,ax stos word [edi] add dword [ebx],2 fixups_block: mov eax,edx add edx,1000h cmp [esi],edx jae fixups_block stos dword [edi] mov ebx,edi mov eax,8 stos dword [edi] store_fixup: jecxz fixups_done add dword [ebx],2 mov ah,[esi+1] and ah,0Fh mov al,[esi+4] shl al,4 or ah,al mov al,[esi] stos word [edi] add esi,5 loop make_fixups fixups_done: pop esi ret make_pe_resource: cmp byte [esi],82h jne resource_done inc esi lods word [esi] cmp ax,'(' jne invalid_argument lods dword [esi] mov edx,esi lea esi,[esi+eax+1] cmp [next_pass_needed],0 je resource_from_file cmp [current_pass],0 jne reserve_space_for_resource mov [resource_size],0 reserve_space_for_resource: add edi,[resource_size] cmp edi,[display_buffer] ja out_of_memory jmp resource_done resource_from_file: push esi mov esi,edx call open_binary_file push ebx mov esi,[free_additional_memory] lea eax,[esi+20h] cmp eax,[structures_buffer] ja out_of_memory mov edx,esi mov ecx,20h call read jc invalid_file_format xor eax,eax cmp [esi],eax jne invalid_file_format mov ax,0FFFFh cmp [esi+8],eax jne invalid_file_format cmp [esi+12],eax jne invalid_file_format mov eax,20h cmp [esi+4],eax jne invalid_file_format read_resource_headers: test eax,11b jz resource_file_alignment_ok mov edx,4 and eax,11b sub edx,eax mov al,1 call lseek resource_file_alignment_ok: mov [esi],eax lea edx,[esi+12] mov ecx,8 call read jc resource_headers_ok mov ecx,[esi+16] add [esi],ecx lea edx,[esi+20] sub ecx,8 mov [esi+16],ecx lea eax,[edx+ecx] cmp eax,[structures_buffer] ja out_of_memory call read jc invalid_file_format mov edx,[esi] add edx,[esi+12] mov eax,[esi+16] lea ecx,[esi+20] lea esi,[ecx+eax] add ecx,2 cmp word [ecx-2],0FFFFh je resource_header_type_ok check_resource_header_type: cmp ecx,esi jae invalid_file_format cmp word [ecx],0 je resource_header_type_ok add ecx,2 jmp check_resource_header_type resource_header_type_ok: add ecx,2 cmp word [ecx],0FFFFh je resource_header_name_ok check_resource_header_name: cmp ecx,esi jae invalid_file_format cmp word [ecx],0 je resource_header_name_ok add ecx,2 jmp check_resource_header_name resource_header_name_ok: xor al,al call lseek jmp read_resource_headers resource_headers_ok: xor eax,eax mov [esi],eax mov [resource_data],edi lea eax,[edi+16] cmp eax,[display_buffer] jae out_of_memory xor eax,eax stos dword [edi] call make_timestamp stos dword [edi] xor eax,eax stos dword [edi] stos dword [edi] xor ebx,ebx make_type_name_directory: mov esi,[free_additional_memory] xor edx,edx find_type_name: cmp dword [esi],0 je type_name_ok add esi,20 cmp word [esi],0FFFFh je check_next_type_name or ebx,ebx jz check_this_type_name xor ecx,ecx compare_with_previous_type_name: mov ax,[esi+ecx] cmp ax,[ebx+ecx] ja check_this_type_name jb check_next_type_name add ecx,2 mov ax,[esi+ecx] or ax,[ebx+ecx] jnz compare_with_previous_type_name jmp check_next_type_name check_this_type_name: or edx,edx jz type_name_found xor ecx,ecx compare_with_current_type_name: mov ax,[esi+ecx] cmp ax,[edx+ecx] ja check_next_type_name jb type_name_found add ecx,2 mov ax,[esi+ecx] or ax,[edx+ecx] jnz compare_with_current_type_name jmp same_type_name type_name_found: mov edx,esi same_type_name: mov [esi-16],edi check_next_type_name: mov eax,[esi-4] add esi,eax jmp find_type_name type_name_ok: or edx,edx jz type_name_directory_done mov ebx,edx make_type_name_entry: mov eax,[resource_data] inc word [eax+12] lea eax,[edi+8] cmp eax,[display_buffer] jae out_of_memory mov eax,ebx stos dword [edi] xor eax,eax stos dword [edi] jmp make_type_name_directory type_name_directory_done: mov ebx,-1 make_type_id_directory: mov esi,[free_additional_memory] mov edx,10000h find_type_id: cmp dword [esi],0 je type_id_ok add esi,20 cmp word [esi],0FFFFh jne check_next_type_id movzx eax,word [esi+2] cmp eax,ebx jle check_next_type_id cmp eax,edx jg check_next_type_id mov edx,eax mov [esi-16],edi check_next_type_id: mov eax,[esi-4] add esi,eax jmp find_type_id type_id_ok: cmp edx,10000h je type_id_directory_done mov ebx,edx make_type_id_entry: mov eax,[resource_data] inc word [eax+14] lea eax,[edi+8] cmp eax,[display_buffer] jae out_of_memory mov eax,ebx stos dword [edi] xor eax,eax stos dword [edi] jmp make_type_id_directory type_id_directory_done: mov esi,[resource_data] add esi,10h mov ecx,[esi-4] or cx,cx jz resource_directories_ok make_resource_directories: push ecx push edi mov edx,edi sub edx,[resource_data] bts edx,31 mov [esi+4],edx lea eax,[edi+16] cmp eax,[display_buffer] jae out_of_memory xor eax,eax stos dword [edi] call make_timestamp stos dword [edi] xor eax,eax stos dword [edi] stos dword [edi] mov ebp,esi xor ebx,ebx make_resource_name_directory: mov esi,[free_additional_memory] xor edx,edx find_resource_name: cmp dword [esi],0 je resource_name_ok push esi cmp [esi+4],ebp jne check_next_resource_name add esi,20 call skip_resource_name cmp word [esi],0FFFFh je check_next_resource_name or ebx,ebx jz check_this_resource_name xor ecx,ecx compare_with_previous_resource_name: mov ax,[esi+ecx] cmp ax,[ebx+ecx] ja check_this_resource_name jb check_next_resource_name add ecx,2 mov ax,[esi+ecx] or ax,[ebx+ecx] jnz compare_with_previous_resource_name jmp check_next_resource_name skip_resource_name: cmp word [esi],0FFFFh jne skip_unicode_string add esi,4 ret skip_unicode_string: add esi,2 cmp word [esi-2],0 jne skip_unicode_string ret check_this_resource_name: or edx,edx jz resource_name_found xor ecx,ecx compare_with_current_resource_name: mov ax,[esi+ecx] cmp ax,[edx+ecx] ja check_next_resource_name jb resource_name_found add ecx,2 mov ax,[esi+ecx] or ax,[edx+ecx] jnz compare_with_current_resource_name jmp same_resource_name resource_name_found: mov edx,esi same_resource_name: mov eax,[esp] mov [eax+8],edi check_next_resource_name: pop esi mov eax,[esi+16] lea esi,[esi+20+eax] jmp find_resource_name resource_name_ok: or edx,edx jz resource_name_directory_done mov ebx,edx make_resource_name_entry: mov eax,[esp] inc word [eax+12] lea eax,[edi+8] cmp eax,[display_buffer] jae out_of_memory mov eax,ebx stos dword [edi] xor eax,eax stos dword [edi] jmp make_resource_name_directory resource_name_directory_done: mov ebx,-1 make_resource_id_directory: mov esi,[free_additional_memory] mov edx,10000h find_resource_id: cmp dword [esi],0 je resource_id_ok push esi cmp [esi+4],ebp jne check_next_resource_id add esi,20 call skip_resource_name cmp word [esi],0FFFFh jne check_next_resource_id movzx eax,word [esi+2] cmp eax,ebx jle check_next_resource_id cmp eax,edx jg check_next_resource_id mov edx,eax mov eax,[esp] mov [eax+8],edi check_next_resource_id: pop esi mov eax,[esi+16] lea esi,[esi+20+eax] jmp find_resource_id resource_id_ok: cmp edx,10000h je resource_id_directory_done mov ebx,edx make_resource_id_entry: mov eax,[esp] inc word [eax+14] lea eax,[edi+8] cmp eax,[display_buffer] jae out_of_memory mov eax,ebx stos dword [edi] xor eax,eax stos dword [edi] jmp make_resource_id_directory resource_id_directory_done: pop eax mov esi,ebp pop ecx add esi,8 dec cx jnz make_resource_directories resource_directories_ok: shr ecx,16 jnz make_resource_directories mov esi,[resource_data] add esi,10h movzx eax,word [esi-4] movzx edx,word [esi-2] add eax,edx lea esi,[esi+eax*8] push edi ; address of language directories update_resource_directories: cmp esi,[esp] je resource_directories_updated add esi,10h mov ecx,[esi-4] or cx,cx jz language_directories_ok make_language_directories: push ecx push edi mov edx,edi sub edx,[resource_data] bts edx,31 mov [esi+4],edx lea eax,[edi+16] cmp eax,[display_buffer] jae out_of_memory xor eax,eax stos dword [edi] call make_timestamp stos dword [edi] xor eax,eax stos dword [edi] stos dword [edi] mov ebp,esi mov ebx,-1 make_language_id_directory: mov esi,[free_additional_memory] mov edx,10000h find_language_id: cmp dword [esi],0 je language_id_ok push esi cmp [esi+8],ebp jne check_next_language_id add esi,20 mov eax,esi call skip_resource_name call skip_resource_name neg eax add eax,esi and eax,11b add esi,eax get_language_id: movzx eax,word [esi+6] cmp eax,ebx jle check_next_language_id cmp eax,edx jge check_next_language_id mov edx,eax mov eax,[esp] mov dword [value],eax check_next_language_id: pop esi mov eax,[esi+16] lea esi,[esi+20+eax] jmp find_language_id language_id_ok: cmp edx,10000h je language_id_directory_done mov ebx,edx make_language_id_entry: mov eax,[esp] inc word [eax+14] lea eax,[edi+8] cmp eax,[display_buffer] jae out_of_memory mov eax,ebx stos dword [edi] mov eax,dword [value] stos dword [edi] jmp make_language_id_directory language_id_directory_done: pop eax mov esi,ebp pop ecx add esi,8 dec cx jnz make_language_directories language_directories_ok: shr ecx,16 jnz make_language_directories jmp update_resource_directories resource_directories_updated: mov esi,[resource_data] push edi make_name_strings: add esi,10h movzx eax,word [esi-2] movzx ecx,word [esi-4] add eax,ecx lea eax,[esi+eax*8] push eax or ecx,ecx jz string_entries_processed process_string_entries: push ecx mov edx,edi sub edx,[resource_data] bts edx,31 xchg [esi],edx mov ebx,edi xor ax,ax stos word [edi] copy_string_data: lea eax,[edi+2] cmp eax,[display_buffer] jae out_of_memory mov ax,[edx] or ax,ax jz string_data_copied stos word [edi] inc word [ebx] add edx,2 jmp copy_string_data string_data_copied: add esi,8 pop ecx loop process_string_entries string_entries_processed: pop esi cmp esi,[esp] jb make_name_strings mov eax,edi sub eax,[resource_data] test al,11b jz resource_strings_alignment_ok xor ax,ax stos word [edi] resource_strings_alignment_ok: pop edx pop ebx ; address of language directories mov ebp,edi update_language_directories: add ebx,10h movzx eax,word [ebx-2] movzx ecx,word [ebx-4] add ecx,eax make_data_records: push ecx mov esi,edi sub esi,[resource_data] xchg esi,[ebx+4] lea eax,[edi+16] cmp eax,[display_buffer] jae out_of_memory mov eax,esi stos dword [edi] mov eax,[esi+12] stos dword [edi] xor eax,eax stos dword [edi] stos dword [edi] pop ecx add ebx,8 loop make_data_records cmp ebx,edx jb update_language_directories pop ebx ; file handle mov esi,ebp mov ebp,edi update_data_records: push ebp mov ecx,edi mov eax,[current_section] sub ecx,[eax+14h] add ecx,[eax+0Ch] xchg ecx,[esi] mov edx,[ecx] xor al,al call lseek mov edx,edi mov ecx,[esi+4] add edi,ecx cmp edi,[display_buffer] ja out_of_memory call read mov eax,edi sub eax,[resource_data] and eax,11b jz resource_data_alignment_ok mov ecx,4 sub ecx,eax xor al,al rep stos byte [edi] resource_data_alignment_ok: pop ebp add esi,16 cmp esi,ebp jb update_data_records pop esi call close mov eax,edi sub eax,[resource_data] mov [resource_size],eax resource_done: ret close_pe: call close_pe_section mov edx,[code_start] mov [edx+50h],eax call make_timestamp mov edx,[code_start] mov [edx+8],eax mov eax,[number_of_relocations] cmp eax,-1 je pe_relocations_ok shl eax,2 sub [free_additional_memory],eax btr [resolver_flags],0 jnc pe_relocations_ok or [next_pass_needed],-1 pe_relocations_ok: mov eax,[number_of_sections] mov [edx+6],ax imul eax,28h movzx ecx,word [edx+14h] lea eax,[eax+18h+ecx] add eax,[stub_size] mov ecx,[edx+3Ch] dec ecx add eax,ecx not ecx and eax,ecx cmp eax,[edx+54h] je pe_sections_ok or [next_pass_needed],-1 pe_sections_ok: xor ecx,ecx add edx,78h test [format_flags],8 jz process_directories add edx,10h process_directories: mov eax,[edx+ecx*8] or eax,eax jz directory_ok cmp dword [edx+ecx*8+4],-1 jne directory_ok section_data: mov ebx,[edx+ecx*8] mov eax,[ebx+0Ch] mov [edx+ecx*8],eax ; directory rva mov eax,[ebx+8] mov [edx+ecx*8+4],eax ; directory size directory_ok: inc cl cmp cl,10h jb process_directories mov ebx,[code_start] sub ebx,[stub_size] mov ecx,edi sub ecx,ebx mov ebp,ecx shr ecx,1 xor eax,eax cdq calculate_checksum: mov dx,[ebx] add eax,edx mov dx,ax shr eax,16 add eax,edx add ebx,2 loop calculate_checksum add eax,ebp mov ebx,[code_start] mov [ebx+58h],eax ret format_coff: mov eax,[additional_memory] mov [symbols_stream],eax mov ebx,eax add eax,20h cmp eax,[structures_buffer] jae out_of_memory mov [free_additional_memory],eax xor eax,eax mov [ebx],al mov [ebx+4],eax mov [ebx+8],edi mov al,4 mov [ebx+10h],eax mov al,60h bt [format_flags],0 jnc flat_section_flags_ok or eax,0E0000000h flat_section_flags_ok: mov dword [ebx+14h],eax mov [current_section],ebx xor eax,eax mov [number_of_sections],eax mov dword [org_origin],edi mov dword [org_origin+4],eax mov [org_registers],eax mov [org_start],edi mov [org_symbol],ebx mov [labels_type],2 mov [code_type],32 test [format_flags],8 jz format_defined mov [labels_type],4 mov [code_type],64 jmp format_defined coff_section: call close_coff_section mov ebx,[free_additional_memory] lea eax,[ebx+20h] cmp eax,[structures_buffer] jae out_of_memory mov [free_additional_memory],eax mov [current_section],ebx inc [number_of_sections] xor eax,eax mov [ebx],al mov [ebx+8],edi mov dword [org_origin],edi mov dword [org_origin+4],eax mov [org_registers],eax mov [org_start],edi mov [org_symbol],ebx mov [labels_type],2 test [format_flags],8 jz coff_labels_type_ok mov [labels_type],4 coff_labels_type_ok: mov [ebx+10h],eax mov [ebx+14h],eax lods word [esi] cmp ax,'(' jne invalid_argument mov [ebx+4],esi mov ecx,[esi] lea esi,[esi+4+ecx+1] cmp ecx,8 ja name_too_long coff_section_flags: cmp byte [esi],8Ch je coff_section_alignment cmp byte [esi],19h jne coff_section_settings_ok inc esi lods byte [esi] bt [format_flags],0 jc coff_section_flag_ok cmp al,7 ja invalid_argument coff_section_flag_ok: mov cl,al mov eax,1 shl eax,cl test dword [ebx+14h],eax jnz setting_already_specified or dword [ebx+14h],eax jmp coff_section_flags coff_section_alignment: bt [format_flags],0 jnc invalid_argument inc esi lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value push ebx call get_count_value pop ebx mov edx,eax dec edx test eax,edx jnz invalid_value or eax,eax jz invalid_value cmp eax,2000h ja invalid_value bsf edx,eax inc edx shl edx,20 or [ebx+14h],edx xchg [ebx+10h],eax or eax,eax jnz setting_already_specified jmp coff_section_flags coff_section_settings_ok: cmp dword [ebx+10h],0 jne instruction_assembled mov dword [ebx+10h],4 bt [format_flags],0 jnc instruction_assembled or dword [ebx+14h],300000h jmp instruction_assembled close_coff_section: mov ebx,[current_section] mov eax,edi mov edx,[ebx+8] sub eax,edx mov [ebx+0Ch],eax xor eax,eax xchg [undefined_data_end],eax cmp eax,edi jne coff_section_ok cmp edx,[undefined_data_start] jne coff_section_ok mov edi,edx or byte [ebx+14h],80h coff_section_ok: ret mark_coff_relocation: cmp [value_type],3 je coff_relocation_relative push ebx eax test [format_flags],8 jnz coff_64bit_relocation mov al,6 cmp [value_type],5 jne coff_relocation inc al jmp coff_relocation coff_64bit_relocation: mov al,1 cmp [value_type],4 je coff_relocation mov al,2 cmp [value_type],5 jne coff_relocation inc al jmp coff_relocation coff_relocation_relative: push ebx bt [format_flags],0 jnc relative_ok mov ebx,[current_section] mov ebx,[ebx+8] sub ebx,edi sub eax,ebx add eax,4 relative_ok: push eax mov al,20 test [format_flags],8 jnz relative_coff_64bit_relocation cmp [labels_type],2 jne invalid_use_of_symbol jmp coff_relocation relative_coff_64bit_relocation: mov al,4 cmp [labels_type],4 jne invalid_use_of_symbol coff_relocation: mov ebx,[free_additional_memory] add ebx,0Ch cmp ebx,[structures_buffer] jae out_of_memory mov [free_additional_memory],ebx mov byte [ebx-0Ch],al mov eax,[current_section] mov eax,[eax+8] neg eax add eax,edi mov [ebx-0Ch+4],eax mov eax,[symbol_identifier] mov [ebx-0Ch+8],eax pop eax ebx ret close_coff: call close_coff_section cmp [next_pass_needed],0 je coff_closed mov eax,[symbols_stream] mov [free_additional_memory],eax coff_closed: ret coff_formatter: sub edi,[code_start] mov [code_size],edi call prepare_default_section mov edi,[free_additional_memory] mov ebx,edi mov ecx,28h shr 2 imul ecx,[number_of_sections] add ecx,14h shr 2 lea eax,[edi+ecx*4] cmp eax,[structures_buffer] jae out_of_memory xor eax,eax rep stos dword [edi] mov word [ebx],14Ch test [format_flags],8 jz coff_magic_ok mov word [ebx],8664h coff_magic_ok: mov word [ebx+12h],104h bt [format_flags],0 jnc coff_flags_ok or byte [ebx+12h],80h coff_flags_ok: push ebx call make_timestamp pop ebx mov [ebx+4],eax mov eax,[number_of_sections] mov [ebx+2],ax mov esi,[symbols_stream] xor eax,eax xor ecx,ecx enumerate_symbols: cmp esi,[free_additional_memory] je symbols_enumerated mov dl,[esi] or dl,dl jz enumerate_section cmp dl,0C0h jae enumerate_public cmp dl,80h jae enumerate_extrn add esi,0Ch jmp enumerate_symbols enumerate_section: mov edx,eax shl edx,8 mov [esi],edx inc eax inc ecx mov [esi+1Eh],cx add esi,20h jmp enumerate_symbols enumerate_public: mov edx,eax shl edx,8 mov dl,[esi] mov [esi],edx mov edx,[esi+8] add esi,10h inc eax cmp byte [edx+11],2 jne enumerate_symbols mov edx,[edx+20] cmp byte [edx],0C0h jae enumerate_symbols cmp byte [edx],80h jb enumerate_symbols inc eax jmp enumerate_symbols enumerate_extrn: mov edx,eax shl edx,8 mov dl,[esi] mov [esi],edx add esi,0Ch inc eax jmp enumerate_symbols prepare_default_section: mov ebx,[symbols_stream] cmp dword [ebx+0Ch],0 jne default_section_ok cmp [number_of_sections],0 je default_section_ok mov edx,ebx find_references_to_default_section: cmp ebx,[free_additional_memory] jne check_reference add [symbols_stream],20h ret check_reference: mov al,[ebx] or al,al jz skip_other_section cmp al,0C0h jae check_public_reference cmp al,80h jae next_reference cmp edx,[ebx+8] je default_section_ok next_reference: add ebx,0Ch jmp find_references_to_default_section check_public_reference: mov eax,[ebx+8] add ebx,10h test byte [eax+8],1 jz find_references_to_default_section mov cx,[current_pass] cmp cx,[eax+16] jne find_references_to_default_section cmp edx,[eax+20] je default_section_ok jmp find_references_to_default_section skip_other_section: add ebx,20h jmp find_references_to_default_section default_section_ok: inc [number_of_sections] ret symbols_enumerated: mov [ebx+0Ch],eax mov ebp,edi sub ebp,ebx push ebp lea edi,[ebx+14h] mov esi,[symbols_stream] find_section: cmp esi,[free_additional_memory] je sections_finished mov al,[esi] or al,al jz section_found add esi,0Ch cmp al,0C0h jb find_section add esi,4 jmp find_section section_found: push esi edi mov esi,[esi+4] or esi,esi jz default_section mov ecx,[esi] add esi,4 rep movs byte [edi],[esi] jmp section_name_ok default_section: mov al,'.' stos byte [edi] mov eax,'flat' stos dword [edi] section_name_ok: pop edi esi mov eax,[esi+0Ch] mov [edi+10h],eax mov eax,[esi+14h] mov [edi+24h],eax test al,80h jnz section_ptr_ok mov eax,[esi+8] sub eax,[code_start] add eax,ebp mov [edi+14h],eax section_ptr_ok: mov ebx,[code_start] mov edx,[code_size] add ebx,edx add edx,ebp xor ecx,ecx add esi,20h find_relocations: cmp esi,[free_additional_memory] je section_relocations_done mov al,[esi] or al,al jz section_relocations_done cmp al,80h jb add_relocation cmp al,0C0h jb next_relocation add esi,10h jmp find_relocations add_relocation: lea eax,[ebx+0Ah] cmp eax,[display_buffer] ja out_of_memory mov eax,[esi+4] mov [ebx],eax mov eax,[esi+8] mov eax,[eax] shr eax,8 mov [ebx+4],eax movzx ax,byte [esi] mov [ebx+8],ax add ebx,0Ah inc ecx next_relocation: add esi,0Ch jmp find_relocations section_relocations_done: cmp ecx,10000h jb section_relocations_count_16bit bt [format_flags],0 jnc format_limitations_exceeded mov word [edi+20h],0FFFFh or dword [edi+24h],1000000h mov [edi+18h],edx push esi edi push ecx lea esi,[ebx-1] add ebx,0Ah lea edi,[ebx-1] imul ecx,0Ah std rep movs byte [edi],[esi] cld pop ecx inc esi inc ecx mov [esi],ecx xor eax,eax mov [esi+4],eax mov [esi+8],ax pop edi esi jmp section_relocations_ok section_relocations_count_16bit: mov [edi+20h],cx jcxz section_relocations_ok mov [edi+18h],edx section_relocations_ok: sub ebx,[code_start] mov [code_size],ebx add edi,28h jmp find_section sections_finished: mov edx,[free_additional_memory] mov ebx,[code_size] add ebp,ebx mov [edx+8],ebp add ebx,[code_start] mov edi,ebx mov ecx,[edx+0Ch] imul ecx,12h shr 1 xor eax,eax shr ecx,1 jnc zero_symbols_table stos word [edi] zero_symbols_table: rep stos dword [edi] mov edx,edi stos dword [edi] mov esi,[symbols_stream] make_symbols_table: cmp esi,[free_additional_memory] je symbols_table_ok mov al,[esi] cmp al,0C0h jae add_public_symbol cmp al,80h jae add_extrn_symbol or al,al jz add_section_symbol add esi,0Ch jmp make_symbols_table add_section_symbol: call store_symbol_name movzx eax,word [esi+1Eh] mov [ebx+0Ch],ax mov byte [ebx+10h],3 add esi,20h add ebx,12h jmp make_symbols_table add_extrn_symbol: call store_symbol_name mov byte [ebx+10h],2 add esi,0Ch add ebx,12h jmp make_symbols_table add_public_symbol: call store_symbol_name mov eax,[esi+0Ch] mov [current_line],eax mov eax,[esi+8] test byte [eax+8],1 jz undefined_coff_public mov cx,[current_pass] cmp cx,[eax+16] jne undefined_coff_public mov cl,[eax+11] or cl,cl jz public_constant test [format_flags],8 jnz check_64bit_public_symbol cmp cl,2 je public_symbol_type_ok jmp invalid_use_of_symbol undefined_coff_public: mov eax,[eax+24] mov [error_info],eax jmp undefined_symbol check_64bit_public_symbol: cmp cl,4 jne invalid_use_of_symbol public_symbol_type_ok: mov ecx,[eax+20] cmp byte [ecx],80h je alias_symbol cmp byte [ecx],0 jne invalid_use_of_symbol mov cx,[ecx+1Eh] mov [ebx+0Ch],cx public_symbol_section_ok: cmp dword [eax+4],0 je store_public_symbol cmp dword [eax+4],-1 jne value_out_of_range bt dword [eax],31 jnc value_out_of_range store_public_symbol: mov eax,[eax] mov [ebx+8],eax mov al,2 cmp byte [esi],0C0h je store_symbol_class inc al cmp byte [esi],0C1h je store_symbol_class mov al,105 store_symbol_class: mov byte [ebx+10h],al add esi,10h add ebx,12h jmp make_symbols_table alias_symbol: bt [format_flags],0 jnc invalid_use_of_symbol mov ecx,[eax] or ecx,[eax+4] jnz invalid_use_of_symbol mov byte [ebx+10h],69h mov byte [ebx+11h],1 add ebx,12h mov ecx,[eax+20] mov ecx,[ecx] shr ecx,8 mov [ebx],ecx mov byte [ebx+4],3 add esi,10h add ebx,12h jmp make_symbols_table public_constant: mov word [ebx+0Ch],0FFFFh jmp public_symbol_section_ok symbols_table_ok: mov eax,edi sub eax,edx mov [edx],eax sub edi,[code_start] mov [code_size],edi mov [written_size],0 mov edx,[output_file] call create jc write_failed mov edx,[free_additional_memory] pop ecx add [written_size],ecx call write jc write_failed jmp write_output store_symbol_name: push esi mov esi,[esi+4] or esi,esi jz default_name lods dword [esi] mov ecx,eax cmp ecx,8 ja add_string push edi mov edi,ebx rep movs byte [edi],[esi] pop edi esi ret default_name: mov dword [ebx],'.fla' mov dword [ebx+4],'t' pop esi ret add_string: mov eax,edi sub eax,edx mov [ebx+4],eax inc ecx rep movs byte [edi],[esi] pop esi ret format_elf: test [format_flags],8 jnz format_elf64 mov edx,edi mov ecx,34h shr 2 lea eax,[edi+ecx*4] cmp eax,[display_buffer] jae out_of_memory xor eax,eax rep stos dword [edi] mov dword [edx],7Fh + 'ELF' shl 8 mov al,1 mov [edx+4],al mov [edx+5],al mov [edx+6],al mov [edx+14h],al mov byte [edx+12h],3 mov byte [edx+28h],34h mov byte [edx+2Eh],28h mov [code_type],32 cmp word [esi],1D19h je format_elf_exe mov [labels_type],2 elf_header_ok: mov byte [edx+10h],1 mov eax,[additional_memory] mov [symbols_stream],eax mov ebx,eax add eax,20h cmp eax,[structures_buffer] jae out_of_memory mov [free_additional_memory],eax xor eax,eax mov [current_section],ebx mov [number_of_sections],eax mov dword [org_origin],edi mov dword [org_origin+4],eax mov [org_registers],eax mov [org_start],edi mov [org_symbol],ebx mov [ebx],al mov [ebx+4],eax mov [ebx+8],edi mov al,111b mov [ebx+14h],eax mov al,4 mov [ebx+10h],eax test [format_flags],8 jz format_defined mov byte [ebx+10h],8 jmp format_defined format_elf64: mov edx,edi mov ecx,40h shr 2 lea eax,[edi+ecx*4] cmp eax,[display_buffer] jae out_of_memory xor eax,eax rep stos dword [edi] mov dword [edx],7Fh + 'ELF' shl 8 mov al,1 mov [edx+5],al mov [edx+6],al mov [edx+14h],al mov byte [edx+4],2 mov byte [edx+12h],62 mov byte [edx+34h],40h mov byte [edx+3Ah],40h mov [code_type],64 cmp word [esi],1D19h je format_elf64_exe mov [labels_type],4 jmp elf_header_ok elf_section: bt [format_flags],0 jc illegal_instruction call close_coff_section mov ebx,[free_additional_memory] lea eax,[ebx+20h] cmp eax,[structures_buffer] jae out_of_memory mov [free_additional_memory],eax mov [current_section],ebx inc word [number_of_sections] jz format_limitations_exceeded xor eax,eax mov [ebx],al mov [ebx+8],edi mov dword [org_origin],edi mov dword [org_origin+4],eax mov [org_registers],eax mov [org_start],edi mov [org_symbol],ebx test [format_flags],8 jnz elf64_labels_type mov [labels_type],2 jmp elf_labels_type_ok elf64_labels_type: mov [labels_type],4 elf_labels_type_ok: mov [ebx+10h],eax mov al,10b mov [ebx+14h],eax lods word [esi] cmp ax,'(' jne invalid_argument mov [ebx+4],esi mov ecx,[esi] lea esi,[esi+4+ecx+1] elf_section_flags: cmp byte [esi],8Ch je elf_section_alignment cmp byte [esi],19h jne elf_section_settings_ok inc esi lods byte [esi] sub al,28 xor al,11b test al,not 10b jnz invalid_argument mov cl,al mov al,1 shl al,cl test byte [ebx+14h],al jnz setting_already_specified or byte [ebx+14h],al jmp elf_section_flags elf_section_alignment: inc esi lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value push ebx call get_count_value pop ebx mov edx,eax dec edx test eax,edx jnz invalid_value or eax,eax jz invalid_value xchg [ebx+10h],eax or eax,eax jnz setting_already_specified jmp elf_section_flags elf_section_settings_ok: cmp dword [ebx+10h],0 jne instruction_assembled mov dword [ebx+10h],4 test [format_flags],8 jz instruction_assembled mov byte [ebx+10h],8 jmp instruction_assembled mark_elf_relocation: cmp [value_type],3 je elf_relocation_relative cmp [value_type],7 je elf_relocation_relative push ebx eax cmp [value_type],5 je elf_gotoff_relocation ja invalid_use_of_symbol mov al,1 ; R_386_32 / R_AMD64_64 test [format_flags],8 jz coff_relocation cmp [value_type],4 je coff_relocation mov al,11 ; R_AMD64_32S jmp coff_relocation elf_gotoff_relocation: test [format_flags],8 jnz invalid_use_of_symbol mov al,9 ; R_386_GOTOFF jmp coff_relocation elf_relocation_relative: cmp [labels_type],0 je invalid_use_of_symbol push ebx mov ebx,[current_section] mov ebx,[ebx+8] sub ebx,edi sub eax,ebx push eax mov al,2 ; R_386_PC32 / R_AMD64_PC32 cmp [value_type],3 je coff_relocation mov al,4 ; R_386_PLT32 / R_AMD64_PLT32 jmp coff_relocation close_elf: bt [format_flags],0 jc close_elf_exe call close_coff_section cmp [next_pass_needed],0 je elf_closed mov eax,[symbols_stream] mov [free_additional_memory],eax elf_closed: ret elf_formatter: push edi call prepare_default_section mov esi,[symbols_stream] mov edi,[free_additional_memory] xor eax,eax mov ecx,4 rep stos dword [edi] test [format_flags],8 jz find_first_section mov ecx,2 rep stos dword [edi] find_first_section: mov al,[esi] or al,al jz first_section_found cmp al,0C0h jb skip_other_symbol add esi,4 skip_other_symbol: add esi,0Ch jmp find_first_section first_section_found: mov ebx,esi mov ebp,esi add esi,20h xor ecx,ecx xor edx,edx find_next_section: cmp esi,[free_additional_memory] je make_section_symbol mov al,[esi] or al,al jz make_section_symbol cmp al,0C0h jae skip_public cmp al,80h jae skip_extrn or byte [ebx+14h],40h skip_extrn: add esi,0Ch jmp find_next_section skip_public: add esi,10h jmp find_next_section make_section_symbol: mov eax,edi xchg eax,[ebx+4] stos dword [edi] test [format_flags],8 jnz elf64_section_symbol xor eax,eax stos dword [edi] stos dword [edi] call store_section_index jmp section_symbol_ok store_section_index: inc ecx mov eax,ecx shl eax,8 mov [ebx],eax inc dx jz format_limitations_exceeded mov eax,edx shl eax,16 mov al,3 test byte [ebx+14h],40h jz section_index_ok or ah,-1 inc dx jz format_limitations_exceeded section_index_ok: stos dword [edi] ret elf64_section_symbol: call store_section_index xor eax,eax stos dword [edi] stos dword [edi] stos dword [edi] stos dword [edi] section_symbol_ok: mov ebx,esi add esi,20h cmp ebx,[free_additional_memory] jne find_next_section inc dx jz format_limitations_exceeded mov [current_section],edx mov esi,[symbols_stream] find_other_symbols: cmp esi,[free_additional_memory] je elf_symbol_table_ok mov al,[esi] or al,al jz skip_section cmp al,0C0h jae make_public_symbol cmp al,80h jae make_extrn_symbol add esi,0Ch jmp find_other_symbols skip_section: add esi,20h jmp find_other_symbols make_public_symbol: mov eax,[esi+0Ch] mov [current_line],eax cmp byte [esi],0C0h jne invalid_argument mov ebx,[esi+8] test byte [ebx+8],1 jz undefined_public mov ax,[current_pass] cmp ax,[ebx+16] jne undefined_public mov dl,[ebx+11] or dl,dl jz public_absolute mov eax,[ebx+20] cmp byte [eax],0 jne invalid_use_of_symbol mov eax,[eax+4] test [format_flags],8 jnz elf64_public cmp dl,2 jne invalid_use_of_symbol mov dx,[eax+0Eh] jmp section_for_public_ok undefined_public: mov eax,[ebx+24] mov [error_info],eax jmp undefined_symbol elf64_public: cmp dl,4 jne invalid_use_of_symbol mov dx,[eax+6] jmp section_for_public_ok public_absolute: mov dx,0FFF1h section_for_public_ok: mov eax,[esi+4] stos dword [edi] test [format_flags],8 jnz elf64_public_symbol call get_public_value stos dword [edi] xor eax,eax mov al,[ebx+10] stos dword [edi] mov eax,edx shl eax,16 mov al,10h cmp byte [ebx+10],0 je elf_public_function or al,1 jmp store_elf_public_info elf_public_function: or al,2 store_elf_public_info: stos dword [edi] jmp public_symbol_ok elf64_public_symbol: mov eax,edx shl eax,16 mov al,10h cmp byte [ebx+10],0 je elf64_public_function or al,1 jmp store_elf64_public_info elf64_public_function: or al,2 store_elf64_public_info: stos dword [edi] call get_public_value stos dword [edi] xor eax,eax stos dword [edi] mov al,[ebx+10] stos dword [edi] xor al,al stos dword [edi] public_symbol_ok: inc ecx mov eax,ecx shl eax,8 mov al,0C0h mov [esi],eax add esi,10h jmp find_other_symbols get_public_value: mov eax,[ebx] cmp dword [ebx+4],0 je public_value_ok cmp dword [ebx+4],-1 jne value_out_of_range bt eax,31 jnc value_out_of_range public_value_ok: ret make_extrn_symbol: mov eax,[esi+4] stos dword [edi] test [format_flags],8 jnz elf64_extrn_symbol xor eax,eax stos dword [edi] mov eax,[esi+8] stos dword [edi] mov eax,10h stos dword [edi] jmp extrn_symbol_ok elf64_extrn_symbol: mov eax,10h stos dword [edi] xor al,al stos dword [edi] stos dword [edi] mov eax,[esi+8] stos dword [edi] xor eax,eax stos dword [edi] extrn_symbol_ok: inc ecx mov eax,ecx shl eax,8 mov al,80h mov [esi],eax add esi,0Ch jmp find_other_symbols elf_symbol_table_ok: mov edx,edi mov ebx,[free_additional_memory] xor al,al stos byte [edi] add edi,16 mov [edx+1],edx add ebx,10h test [format_flags],8 jz make_string_table add ebx,8 make_string_table: cmp ebx,edx je elf_string_table_ok test [format_flags],8 jnz make_elf64_string cmp byte [ebx+0Dh],0 je rel_prefix_ok mov byte [ebx+0Dh],0 mov eax,'.rel' stos dword [edi] rel_prefix_ok: mov esi,edi sub esi,edx xchg esi,[ebx] add ebx,10h make_elf_string: or esi,esi jz default_string lods dword [esi] mov ecx,eax rep movs byte [edi],[esi] xor al,al stos byte [edi] jmp make_string_table make_elf64_string: cmp byte [ebx+5],0 je elf64_rel_prefix_ok mov byte [ebx+5],0 mov eax,'.rel' stos dword [edi] mov al,'a' stos byte [edi] elf64_rel_prefix_ok: mov esi,edi sub esi,edx xchg esi,[ebx] add ebx,18h jmp make_elf_string default_string: mov eax,'.fla' stos dword [edi] mov ax,'t' stos word [edi] jmp make_string_table elf_string_table_ok: mov [edx+1+8],edi mov ebx,[code_start] mov eax,edi sub eax,[free_additional_memory] test [format_flags],8 jnz finish_elf64_header mov [ebx+20h],eax mov eax,[current_section] inc ax jz format_limitations_exceeded mov [ebx+32h],ax inc ax jz format_limitations_exceeded mov [ebx+30h],ax jmp elf_header_finished finish_elf64_header: mov [ebx+28h],eax mov eax,[current_section] inc ax jz format_limitations_exceeded mov [ebx+3Eh],ax inc ax jz format_limitations_exceeded mov [ebx+3Ch],ax elf_header_finished: xor eax,eax mov ecx,10 rep stos dword [edi] test [format_flags],8 jz elf_null_section_ok mov ecx,6 rep stos dword [edi] elf_null_section_ok: mov esi,ebp xor ecx,ecx make_section_entry: mov ebx,edi mov eax,[esi+4] mov eax,[eax] stos dword [edi] mov eax,1 cmp dword [esi+0Ch],0 je bss_section test byte [esi+14h],80h jz section_type_ok bss_section: mov al,8 section_type_ok: stos dword [edi] mov eax,[esi+14h] and al,3Fh call store_elf_machine_word xor eax,eax call store_elf_machine_word mov eax,[esi+8] mov [image_base],eax sub eax,[code_start] call store_elf_machine_word mov eax,[esi+0Ch] call store_elf_machine_word xor eax,eax stos dword [edi] stos dword [edi] mov eax,[esi+10h] call store_elf_machine_word xor eax,eax call store_elf_machine_word inc ecx add esi,20h xchg edi,[esp] mov ebp,edi convert_relocations: cmp esi,[free_additional_memory] je relocations_converted mov al,[esi] or al,al jz relocations_converted cmp al,80h jb make_relocation_entry cmp al,0C0h jb relocation_entry_ok add esi,10h jmp convert_relocations make_relocation_entry: test [format_flags],8 jnz make_elf64_relocation_entry mov eax,[esi+4] stos dword [edi] mov eax,[esi+8] mov eax,[eax] mov al,[esi] stos dword [edi] jmp relocation_entry_ok make_elf64_relocation_entry: mov eax,[esi+4] stos dword [edi] xor eax,eax stos dword [edi] movzx eax,byte [esi] stos dword [edi] mov eax,[esi+8] mov eax,[eax] shr eax,8 stos dword [edi] xor eax,eax stos dword [edi] stos dword [edi] relocation_entry_ok: add esi,0Ch jmp convert_relocations store_elf_machine_word: stos dword [edi] test [format_flags],8 jz elf_machine_word_ok mov dword [edi],0 add edi,4 elf_machine_word_ok: ret relocations_converted: cmp edi,ebp xchg edi,[esp] je rel_section_ok mov eax,[ebx] sub eax,4 test [format_flags],8 jz store_relocations_name_offset dec eax store_relocations_name_offset: stos dword [edi] test [format_flags],8 jnz rela_section mov eax,9 jmp store_relocations_type rela_section: mov eax,4 store_relocations_type: stos dword [edi] xor al,al call store_elf_machine_word call store_elf_machine_word mov eax,ebp sub eax,[code_start] call store_elf_machine_word mov eax,[esp] sub eax,ebp call store_elf_machine_word mov eax,[current_section] stos dword [edi] mov eax,ecx stos dword [edi] inc ecx test [format_flags],8 jnz finish_elf64_rela_section mov eax,4 stos dword [edi] mov al,8 stos dword [edi] jmp rel_section_ok finish_elf64_rela_section: mov eax,8 stos dword [edi] xor al,al stos dword [edi] mov al,24 stos dword [edi] xor al,al stos dword [edi] rel_section_ok: cmp esi,[free_additional_memory] jne make_section_entry pop eax mov ebx,[code_start] sub eax,ebx mov [code_size],eax mov ecx,20h test [format_flags],8 jz adjust_elf_section_headers_offset mov ecx,28h adjust_elf_section_headers_offset: add [ebx+ecx],eax mov eax,1 stos dword [edi] mov al,2 stos dword [edi] xor al,al call store_elf_machine_word call store_elf_machine_word mov eax,[code_size] call store_elf_machine_word mov eax,[edx+1] sub eax,[free_additional_memory] call store_elf_machine_word mov eax,[current_section] inc eax stos dword [edi] mov eax,[number_of_sections] inc eax stos dword [edi] test [format_flags],8 jnz finish_elf64_sym_section mov eax,4 stos dword [edi] mov al,10h stos dword [edi] jmp sym_section_ok finish_elf64_sym_section: mov eax,8 stos dword [edi] xor al,al stos dword [edi] mov al,18h stos dword [edi] xor al,al stos dword [edi] sym_section_ok: mov al,1+8 stos dword [edi] mov al,3 stos dword [edi] xor al,al call store_elf_machine_word call store_elf_machine_word mov eax,[edx+1] sub eax,[free_additional_memory] add eax,[code_size] call store_elf_machine_word mov eax,[edx+1+8] sub eax,[edx+1] call store_elf_machine_word xor eax,eax stos dword [edi] stos dword [edi] mov al,1 call store_elf_machine_word xor eax,eax call store_elf_machine_word mov eax,'tab' mov dword [edx+1],'.sym' mov [edx+1+4],eax mov dword [edx+1+8],'.str' mov [edx+1+8+4],eax mov [resource_data],edx mov [written_size],0 mov edx,[output_file] call create jc write_failed call write_code mov ecx,edi mov edx,[free_additional_memory] sub ecx,edx add [written_size],ecx call write jc write_failed jmp output_written format_elf_exe: add esi,2 or [format_flags],1 cmp byte [esi],'(' jne elf_exe_brand_ok inc esi cmp byte [esi],'.' je invalid_value push edx call get_byte_value cmp [value_type],0 jne invalid_use_of_symbol pop edx mov [edx+7],al elf_exe_brand_ok: mov [image_base],8048000h cmp byte [esi],80h jne elf_exe_base_ok lods word [esi] cmp ah,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value push edx call get_dword_value cmp [value_type],0 jne invalid_use_of_symbol mov [image_base],eax pop edx elf_exe_base_ok: mov byte [edx+10h],2 mov byte [edx+2Ah],20h mov ebx,edi mov ecx,20h shr 2 cmp [current_pass],0 je init_elf_segments imul ecx,[number_of_sections] init_elf_segments: xor eax,eax rep stos dword [edi] mov [number_of_sections],0 mov byte [ebx],1 mov word [ebx+1Ch],1000h mov byte [ebx+18h],111b mov eax,edi sub eax,[code_start] mov [ebx+4],eax add eax,[image_base] mov [ebx+8],eax mov [ebx+0Ch],eax mov [edx+18h],eax xor edx,edx not eax not edx add eax,1 adc edx,0 add eax,edi adc edx,0 mov dword [org_origin],eax mov dword [org_origin+4],edx mov [org_registers],0 mov [org_start],edi mov [symbols_stream],edi jmp format_defined format_elf64_exe: add esi,2 or [format_flags],1 cmp byte [esi],'(' jne elf64_exe_brand_ok inc esi cmp byte [esi],'.' je invalid_value push edx call get_byte_value cmp [value_type],0 jne invalid_use_of_symbol pop edx mov [edx+7],al elf64_exe_brand_ok: mov [image_base],400000h mov [image_base_high],0 cmp byte [esi],80h jne elf64_exe_base_ok lods word [esi] cmp ah,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value push edx call get_qword_value cmp [value_type],0 jne invalid_use_of_symbol mov [image_base],eax mov [image_base_high],edx pop edx elf64_exe_base_ok: mov byte [edx+10h],2 mov byte [edx+36h],38h mov ebx,edi mov ecx,38h shr 2 cmp [current_pass],0 je init_elf64_segments imul ecx,[number_of_sections] init_elf64_segments: xor eax,eax rep stos dword [edi] mov [number_of_sections],0 mov byte [ebx],1 mov word [ebx+30h],1000h mov byte [ebx+4],111b push edx mov eax,edi sub eax,[code_start] mov [ebx+8],eax xor edx,edx add eax,[image_base] adc edx,[image_base_high] mov [ebx+10h],eax mov [ebx+10h+4],edx mov [ebx+18h],eax mov [ebx+18h+4],edx pop ebx mov [ebx+18h],eax mov [ebx+18h+4],edx not eax not edx add eax,1 adc edx,0 add eax,edi adc edx,0 mov dword [org_origin],eax mov dword [org_origin+4],edx mov [org_registers],0 mov [org_start],edi mov [symbols_stream],edi jmp format_defined elf_entry: lods byte [esi] cmp al,'(' jne invalid_argument cmp byte [esi],'.' je invalid_value test [format_flags],8 jnz elf64_entry call get_dword_value cmp [value_type],0 jne invalid_use_of_symbol mov edx,[code_start] mov [edx+18h],eax jmp instruction_assembled elf64_entry: call get_qword_value cmp [value_type],0 jne invalid_use_of_symbol mov ebx,[code_start] mov [ebx+18h],eax mov [ebx+1Ch],edx jmp instruction_assembled elf_segment: bt [format_flags],0 jnc illegal_instruction test [format_flags],8 jnz elf64_segment call close_elf_segment push eax mov ebx,[number_of_sections] shl ebx,5 add ebx,[code_start] add ebx,34h cmp ebx,[symbols_stream] jb new_elf_segment mov ebx,[symbols_stream] sub ebx,20h push edi mov edi,ebx mov ecx,20h shr 2 xor eax,eax rep stos dword [edi] pop edi or [next_pass_needed],-1 new_elf_segment: mov byte [ebx],1 mov word [ebx+1Ch],1000h elf_segment_flags: cmp byte [esi],1Eh je elf_segment_type cmp byte [esi],19h jne elf_segment_flags_ok lods word [esi] sub ah,28 jbe invalid_argument cmp ah,1 je mark_elf_segment_flag cmp ah,3 ja invalid_argument xor ah,1 cmp ah,2 je mark_elf_segment_flag inc ah mark_elf_segment_flag: test [ebx+18h],ah jnz setting_already_specified or [ebx+18h],ah jmp elf_segment_flags elf_segment_type: cmp byte [ebx],1 jne setting_already_specified lods word [esi] mov ecx,[number_of_sections] jecxz elf_segment_type_ok mov edx,[code_start] add edx,34h scan_elf_segment_types: cmp edx,[symbols_stream] jae elf_segment_type_ok cmp [edx],ah je data_already_defined add edx,20h loop scan_elf_segment_types elf_segment_type_ok: mov [ebx],ah mov word [ebx+1Ch],1 jmp elf_segment_flags elf_segment_flags_ok: mov eax,edi sub eax,[code_start] mov [ebx+4],eax pop edx and eax,0FFFh add edx,eax mov [ebx+8],edx mov [ebx+0Ch],edx mov eax,edx xor edx,edx not eax not edx add eax,1 adc edx,0 add eax,edi adc edx,0 mov dword [org_origin],eax mov dword [org_origin+4],edx mov [org_registers],0 mov [org_start],edi inc [number_of_sections] jmp instruction_assembled close_elf_segment: cmp [number_of_sections],0 jne finish_elf_segment cmp edi,[symbols_stream] jne first_elf_segment_ok push edi mov edi,[code_start] add edi,34h mov ecx,20h shr 2 xor eax,eax rep stos dword [edi] pop edi mov eax,[image_base] ret first_elf_segment_ok: inc [number_of_sections] finish_elf_segment: mov ebx,[number_of_sections] dec ebx shl ebx,5 add ebx,[code_start] add ebx,34h mov eax,edi sub eax,[code_start] sub eax,[ebx+4] mov edx,edi cmp edi,[undefined_data_end] jne elf_segment_size_ok mov edi,[undefined_data_start] elf_segment_size_ok: mov [ebx+14h],eax add eax,edi sub eax,edx mov [ebx+10h],eax mov eax,[ebx+8] cmp byte [ebx],1 jne elf_segment_position_ok add eax,[ebx+14h] add eax,0FFFh elf_segment_position_ok: and eax,not 0FFFh ret elf64_segment: call close_elf64_segment push eax edx mov ebx,[number_of_sections] imul ebx,38h add ebx,[code_start] add ebx,40h cmp ebx,[symbols_stream] jb new_elf64_segment mov ebx,[symbols_stream] sub ebx,38h push edi mov edi,ebx mov ecx,38h shr 2 xor eax,eax rep stos dword [edi] pop edi or [next_pass_needed],-1 new_elf64_segment: mov byte [ebx],1 mov word [ebx+30h],1000h elf64_segment_flags: cmp byte [esi],1Eh je elf64_segment_type cmp byte [esi],19h jne elf64_segment_flags_ok lods word [esi] sub ah,28 jbe invalid_argument cmp ah,1 je mark_elf64_segment_flag cmp ah,3 ja invalid_argument xor ah,1 cmp ah,2 je mark_elf64_segment_flag inc ah mark_elf64_segment_flag: test [ebx+4],ah jnz setting_already_specified or [ebx+4],ah jmp elf64_segment_flags elf64_segment_type: cmp byte [ebx],1 jne setting_already_specified lods word [esi] mov ecx,[number_of_sections] jecxz elf64_segment_type_ok mov edx,[code_start] add edx,40h scan_elf64_segment_types: cmp edx,[symbols_stream] jae elf64_segment_type_ok cmp [edx],ah je data_already_defined add edx,38h loop scan_elf64_segment_types elf64_segment_type_ok: mov [ebx],ah mov word [ebx+30h],1 jmp elf64_segment_flags elf64_segment_flags_ok: mov ecx,edi sub ecx,[code_start] mov [ebx+8],ecx pop edx eax and ecx,0FFFh add eax,ecx adc edx,0 mov [ebx+10h],eax mov [ebx+10h+4],edx mov [ebx+18h],eax mov [ebx+18h+4],edx not eax not edx add eax,1 adc edx,0 add eax,edi adc edx,0 mov dword [org_origin],eax mov dword [org_origin+4],edx mov [org_registers],0 mov [org_start],edi inc [number_of_sections] jmp instruction_assembled close_elf64_segment: cmp [number_of_sections],0 jne finish_elf64_segment cmp edi,[symbols_stream] jne first_elf64_segment_ok push edi mov edi,[code_start] add edi,40h mov ecx,38h shr 2 xor eax,eax rep stos dword [edi] pop edi mov eax,[image_base] mov edx,[image_base_high] ret first_elf64_segment_ok: inc [number_of_sections] finish_elf64_segment: mov ebx,[number_of_sections] dec ebx imul ebx,38h add ebx,[code_start] add ebx,40h mov eax,edi sub eax,[code_start] sub eax,[ebx+8] mov edx,edi cmp edi,[undefined_data_end] jne elf64_segment_size_ok mov edi,[undefined_data_start] elf64_segment_size_ok: mov [ebx+28h],eax add eax,edi sub eax,edx mov [ebx+20h],eax mov eax,[ebx+10h] mov edx,[ebx+10h+4] cmp byte [ebx],1 jne elf64_segment_position_ok add eax,[ebx+28h] adc edx,0 add eax,0FFFh adc edx,0 elf64_segment_position_ok: and eax,not 0FFFh ret close_elf_exe: test [format_flags],8 jnz close_elf64_exe call close_elf_segment mov edx,[code_start] mov eax,[number_of_sections] mov byte [edx+1Ch],34h mov [edx+2Ch],ax shl eax,5 add eax,edx add eax,34h cmp eax,[symbols_stream] je elf_exe_ok or [next_pass_needed],-1 elf_exe_ok: ret close_elf64_exe: call close_elf64_segment mov edx,[code_start] mov eax,[number_of_sections] mov byte [edx+20h],40h mov [edx+38h],ax imul eax,38h add eax,edx add eax,40h cmp eax,[symbols_stream] je elf64_exe_ok or [next_pass_needed],-1 elf64_exe_ok: ret ; --------------- "formats.inc" ---------------- ; ; --------------- "x86_64.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. simple_instruction_except64: cmp [code_type],64 je illegal_instruction simple_instruction: stos byte [edi] jmp instruction_assembled simple_instruction_only64: cmp [code_type],64 jne illegal_instruction jmp simple_instruction simple_instruction_16bit_except64: cmp [code_type],64 je illegal_instruction simple_instruction_16bit: cmp [code_type],16 jne size_prefix stos byte [edi] jmp instruction_assembled size_prefix: mov ah,al mov al,66h stos word [edi] jmp instruction_assembled simple_instruction_32bit_except64: cmp [code_type],64 je illegal_instruction simple_instruction_32bit: cmp [code_type],16 je size_prefix stos byte [edi] jmp instruction_assembled simple_instruction_64bit: cmp [code_type],64 jne illegal_instruction mov ah,al mov al,48h stos word [edi] jmp instruction_assembled simple_extended_instruction_64bit: cmp [code_type],64 jne illegal_instruction mov byte [edi],48h inc edi simple_extended_instruction: mov ah,al mov al,0Fh stos word [edi] jmp instruction_assembled prefix_instruction: stos byte [edi] or [prefixed_instruction],-1 jmp continue_line segment_prefix: mov ah,al shr ah,4 cmp ah,6 jne illegal_instruction and al,1111b mov [segment_register],al call store_segment_prefix or [prefixed_instruction],-1 jmp continue_line int_instruction: lods byte [esi] call get_size_operator cmp ah,1 ja invalid_operand_size cmp al,'(' jne invalid_operand call get_byte_value cmp [next_pass_needed],0 jne int_imm_ok test eax,eax js value_out_of_range int_imm_ok: mov ah,al mov al,0CDh stos word [edi] jmp instruction_assembled iret_instruction: cmp [code_type],64 jne simple_instruction call operand_64bit jmp simple_instruction aa_instruction: cmp [code_type],64 je illegal_instruction push eax mov bl,10 cmp byte [esi],'(' jne aa_store inc esi xor al,al xchg al,[operand_size] cmp al,1 ja invalid_operand_size call get_byte_value mov bl,al aa_store: cmp [operand_size],0 jne invalid_operand pop eax mov ah,bl stos word [edi] jmp instruction_assembled basic_instruction: mov [base_code],al lods byte [esi] call get_size_operator cmp al,10h je basic_reg cmp al,'[' jne invalid_operand basic_mem: call get_address push edx ebx ecx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'(' je basic_mem_imm cmp al,10h jne invalid_operand basic_mem_reg: lods byte [esi] call convert_register mov [postbyte_register],al pop ecx ebx edx mov al,ah cmp al,1 je instruction_ready call operand_autodetect inc [base_code] instruction_ready: call store_instruction jmp instruction_assembled basic_mem_imm: mov al,[operand_size] cmp al,1 jb basic_mem_imm_nosize je basic_mem_imm_8bit cmp al,2 je basic_mem_imm_16bit cmp al,4 je basic_mem_imm_32bit cmp al,8 jne invalid_operand_size basic_mem_imm_64bit: cmp [size_declared],0 jne long_immediate_not_encodable call operand_64bit call get_simm32 cmp [value_type],4 jae long_immediate_not_encodable jmp basic_mem_imm_32bit_ok basic_mem_imm_nosize: cmp [error_line],0 jne basic_mem_imm_8bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified basic_mem_imm_8bit: call get_byte_value mov byte [value],al mov al,[base_code] shr al,3 mov [postbyte_register],al pop ecx ebx edx mov [base_code],80h call store_instruction_with_imm8 jmp instruction_assembled basic_mem_imm_16bit: call operand_16bit call get_word_value mov word [value],ax mov al,[base_code] shr al,3 mov [postbyte_register],al pop ecx ebx edx cmp [value_type],0 jne basic_mem_imm_16bit_store cmp [size_declared],0 jne basic_mem_imm_16bit_store cmp word [value],80h jb basic_mem_simm_8bit cmp word [value],-80h jae basic_mem_simm_8bit basic_mem_imm_16bit_store: mov [base_code],81h call store_instruction_with_imm16 jmp instruction_assembled basic_mem_simm_8bit: mov [base_code],83h call store_instruction_with_imm8 jmp instruction_assembled basic_mem_imm_32bit: call operand_32bit call get_dword_value basic_mem_imm_32bit_ok: mov dword [value],eax mov al,[base_code] shr al,3 mov [postbyte_register],al pop ecx ebx edx cmp [value_type],0 jne basic_mem_imm_32bit_store cmp [size_declared],0 jne basic_mem_imm_32bit_store cmp dword [value],80h jb basic_mem_simm_8bit cmp dword [value],-80h jae basic_mem_simm_8bit basic_mem_imm_32bit_store: mov [base_code],81h call store_instruction_with_imm32 jmp instruction_assembled get_simm32: call get_qword_value mov ecx,edx cdq cmp ecx,edx jne value_out_of_range cmp [value_type],4 jne get_simm32_ok mov [value_type],2 get_simm32_ok: ret basic_reg: lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je basic_reg_reg cmp al,'(' je basic_reg_imm cmp al,'[' jne invalid_operand basic_reg_mem: call get_address mov al,[operand_size] cmp al,1 je basic_reg_mem_8bit call operand_autodetect add [base_code],3 jmp instruction_ready basic_reg_mem_8bit: add [base_code],2 jmp instruction_ready basic_reg_reg: lods byte [esi] call convert_register mov bl,[postbyte_register] mov [postbyte_register],al mov al,ah cmp al,1 je nomem_instruction_ready call operand_autodetect inc [base_code] nomem_instruction_ready: call store_nomem_instruction jmp instruction_assembled basic_reg_imm: mov al,[operand_size] cmp al,1 je basic_reg_imm_8bit cmp al,2 je basic_reg_imm_16bit cmp al,4 je basic_reg_imm_32bit cmp al,8 jne invalid_operand_size basic_reg_imm_64bit: cmp [size_declared],0 jne long_immediate_not_encodable call operand_64bit call get_simm32 cmp [value_type],4 jae long_immediate_not_encodable jmp basic_reg_imm_32bit_ok basic_reg_imm_8bit: call get_byte_value mov dl,al mov bl,[base_code] shr bl,3 xchg bl,[postbyte_register] or bl,bl jz basic_al_imm mov [base_code],80h call store_nomem_instruction mov al,dl stos byte [edi] jmp instruction_assembled basic_al_imm: mov al,[base_code] add al,4 stos byte [edi] mov al,dl stos byte [edi] jmp instruction_assembled basic_reg_imm_16bit: call operand_16bit call get_word_value mov dx,ax mov bl,[base_code] shr bl,3 xchg bl,[postbyte_register] cmp [value_type],0 jne basic_reg_imm_16bit_store cmp [size_declared],0 jne basic_reg_imm_16bit_store cmp dx,80h jb basic_reg_simm_8bit cmp dx,-80h jae basic_reg_simm_8bit basic_reg_imm_16bit_store: or bl,bl jz basic_ax_imm mov [base_code],81h call store_nomem_instruction basic_store_imm_16bit: mov ax,dx call mark_relocation stos word [edi] jmp instruction_assembled basic_reg_simm_8bit: mov [base_code],83h call store_nomem_instruction mov al,dl stos byte [edi] jmp instruction_assembled basic_ax_imm: add [base_code],5 call store_instruction_code jmp basic_store_imm_16bit basic_reg_imm_32bit: call operand_32bit call get_dword_value basic_reg_imm_32bit_ok: mov edx,eax mov bl,[base_code] shr bl,3 xchg bl,[postbyte_register] cmp [value_type],0 jne basic_reg_imm_32bit_store cmp [size_declared],0 jne basic_reg_imm_32bit_store cmp edx,80h jb basic_reg_simm_8bit cmp edx,-80h jae basic_reg_simm_8bit basic_reg_imm_32bit_store: or bl,bl jz basic_eax_imm mov [base_code],81h call store_nomem_instruction basic_store_imm_32bit: mov eax,edx call mark_relocation stos dword [edi] jmp instruction_assembled basic_eax_imm: add [base_code],5 call store_instruction_code jmp basic_store_imm_32bit single_operand_instruction: mov [base_code],0F6h mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,10h je single_reg cmp al,'[' jne invalid_operand single_mem: call get_address mov al,[operand_size] cmp al,1 je single_mem_8bit jb single_mem_nosize call operand_autodetect inc [base_code] jmp instruction_ready single_mem_nosize: cmp [error_line],0 jne single_mem_8bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified single_mem_8bit: jmp instruction_ready single_reg: lods byte [esi] call convert_register mov bl,al mov al,ah cmp al,1 je single_reg_8bit call operand_autodetect inc [base_code] single_reg_8bit: jmp nomem_instruction_ready mov_instruction: mov [base_code],88h lods byte [esi] call get_size_operator cmp al,10h je mov_reg cmp al,'[' jne invalid_operand mov_mem: call get_address push edx ebx ecx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'(' je mov_mem_imm cmp al,10h jne invalid_operand mov_mem_reg: lods byte [esi] cmp al,60h jb mov_mem_general_reg cmp al,70h jb mov_mem_sreg mov_mem_general_reg: call convert_register mov [postbyte_register],al pop ecx ebx edx cmp ah,1 je mov_mem_reg_8bit mov al,ah call operand_autodetect mov al,[postbyte_register] or al,bl or al,bh jz mov_mem_ax inc [base_code] jmp instruction_ready mov_mem_reg_8bit: or al,bl or al,bh jnz instruction_ready mov_mem_al: test ch,22h jnz mov_mem_address16_al test ch,44h jnz mov_mem_address32_al test ch,88h jnz mov_mem_address64_al or ch,ch jnz invalid_address_size cmp [code_type],64 je mov_mem_address64_al cmp [code_type],32 je mov_mem_address32_al cmp edx,10000h jb mov_mem_address16_al mov_mem_address32_al: call store_segment_prefix_if_necessary call address_32bit_prefix mov [base_code],0A2h store_mov_address32: call store_instruction_code call store_address_32bit_value jmp instruction_assembled mov_mem_address16_al: call store_segment_prefix_if_necessary call address_16bit_prefix mov [base_code],0A2h store_mov_address16: cmp [code_type],64 je invalid_address call store_instruction_code mov eax,edx stos word [edi] cmp edx,10000h jge value_out_of_range jmp instruction_assembled mov_mem_address64_al: call store_segment_prefix_if_necessary mov [base_code],0A2h store_mov_address64: call store_instruction_code call store_address_64bit_value jmp instruction_assembled mov_mem_ax: test ch,22h jnz mov_mem_address16_ax test ch,44h jnz mov_mem_address32_ax test ch,88h jnz mov_mem_address64_ax or ch,ch jnz invalid_address_size cmp [code_type],64 je mov_mem_address64_ax cmp [code_type],32 je mov_mem_address32_ax cmp edx,10000h jb mov_mem_address16_ax mov_mem_address32_ax: call store_segment_prefix_if_necessary call address_32bit_prefix mov [base_code],0A3h jmp store_mov_address32 mov_mem_address16_ax: call store_segment_prefix_if_necessary call address_16bit_prefix mov [base_code],0A3h jmp store_mov_address16 mov_mem_address64_ax: call store_segment_prefix_if_necessary mov [base_code],0A3h jmp store_mov_address64 mov_mem_sreg: sub al,61h mov [postbyte_register],al pop ecx ebx edx mov ah,[operand_size] or ah,ah jz mov_mem_sreg_store cmp ah,2 jne invalid_operand_size mov_mem_sreg_store: mov [base_code],8Ch jmp instruction_ready mov_mem_imm: mov al,[operand_size] cmp al,1 jb mov_mem_imm_nosize je mov_mem_imm_8bit cmp al,2 je mov_mem_imm_16bit cmp al,4 je mov_mem_imm_32bit cmp al,8 jne invalid_operand_size mov_mem_imm_64bit: cmp [size_declared],0 jne long_immediate_not_encodable call operand_64bit call get_simm32 cmp [value_type],4 jae long_immediate_not_encodable jmp mov_mem_imm_32bit_store mov_mem_imm_8bit: call get_byte_value mov byte [value],al mov [postbyte_register],0 mov [base_code],0C6h pop ecx ebx edx call store_instruction_with_imm8 jmp instruction_assembled mov_mem_imm_16bit: call operand_16bit call get_word_value mov word [value],ax mov [postbyte_register],0 mov [base_code],0C7h pop ecx ebx edx call store_instruction_with_imm16 jmp instruction_assembled mov_mem_imm_nosize: cmp [error_line],0 jne mov_mem_imm_32bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified mov_mem_imm_32bit: call operand_32bit call get_dword_value mov_mem_imm_32bit_store: mov dword [value],eax mov [postbyte_register],0 mov [base_code],0C7h pop ecx ebx edx call store_instruction_with_imm32 jmp instruction_assembled mov_reg: lods byte [esi] mov ah,al sub ah,10h and ah,al test ah,0F0h jnz mov_sreg call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' je mov_reg_mem cmp al,'(' je mov_reg_imm cmp al,10h jne invalid_operand mov_reg_reg: lods byte [esi] mov ah,al sub ah,10h and ah,al test ah,0F0h jnz mov_reg_sreg call convert_register mov bl,[postbyte_register] mov [postbyte_register],al mov al,ah cmp al,1 je mov_reg_reg_8bit call operand_autodetect inc [base_code] mov_reg_reg_8bit: jmp nomem_instruction_ready mov_reg_sreg: mov bl,[postbyte_register] mov ah,al and al,1111b mov [postbyte_register],al shr ah,4 cmp ah,5 je mov_reg_creg cmp ah,7 je mov_reg_dreg ja mov_reg_treg dec [postbyte_register] cmp [operand_size],8 je mov_reg_sreg64 cmp [operand_size],4 je mov_reg_sreg32 cmp [operand_size],2 jne invalid_operand_size call operand_16bit jmp mov_reg_sreg_store mov_reg_sreg64: call operand_64bit jmp mov_reg_sreg_store mov_reg_sreg32: call operand_32bit mov_reg_sreg_store: mov [base_code],8Ch jmp nomem_instruction_ready mov_reg_treg: cmp ah,9 jne invalid_operand mov [extended_code],24h jmp mov_reg_xrx mov_reg_dreg: mov [extended_code],21h jmp mov_reg_xrx mov_reg_creg: mov [extended_code],20h mov_reg_xrx: mov [base_code],0Fh cmp [code_type],64 je mov_reg_xrx_64bit cmp [operand_size],4 jne invalid_operand_size cmp [postbyte_register],8 jne mov_reg_xrx_store cmp [extended_code],20h jne mov_reg_xrx_store mov al,0F0h stos byte [edi] mov [postbyte_register],0 mov_reg_xrx_store: jmp nomem_instruction_ready mov_reg_xrx_64bit: cmp [operand_size],8 jne invalid_operand_size jmp nomem_instruction_ready mov_reg_mem: call get_address mov al,[operand_size] cmp al,1 je mov_reg_mem_8bit call operand_autodetect mov al,[postbyte_register] or al,bl or al,bh jz mov_ax_mem add [base_code],3 jmp instruction_ready mov_reg_mem_8bit: mov al,[postbyte_register] or al,bl or al,bh jz mov_al_mem add [base_code],2 jmp instruction_ready mov_al_mem: test ch,22h jnz mov_al_mem_address16 test ch,44h jnz mov_al_mem_address32 test ch,88h jnz mov_al_mem_address64 or ch,ch jnz invalid_address_size cmp [code_type],64 je mov_al_mem_address64 cmp [code_type],32 je mov_al_mem_address32 cmp edx,10000h jb mov_al_mem_address16 mov_al_mem_address32: call store_segment_prefix_if_necessary call address_32bit_prefix mov [base_code],0A0h jmp store_mov_address32 mov_al_mem_address16: call store_segment_prefix_if_necessary call address_16bit_prefix mov [base_code],0A0h jmp store_mov_address16 mov_al_mem_address64: call store_segment_prefix_if_necessary mov [base_code],0A0h jmp store_mov_address64 mov_ax_mem: test ch,22h jnz mov_ax_mem_address16 test ch,44h jnz mov_ax_mem_address32 test ch,88h jnz mov_ax_mem_address64 or ch,ch jnz invalid_address_size cmp [code_type],64 je mov_ax_mem_address64 cmp [code_type],32 je mov_ax_mem_address32 cmp edx,10000h jb mov_ax_mem_address16 mov_ax_mem_address32: call store_segment_prefix_if_necessary call address_32bit_prefix mov [base_code],0A1h jmp store_mov_address32 mov_ax_mem_address16: call store_segment_prefix_if_necessary call address_16bit_prefix mov [base_code],0A1h jmp store_mov_address16 mov_ax_mem_address64: call store_segment_prefix_if_necessary mov [base_code],0A1h jmp store_mov_address64 mov_reg_imm: mov al,[operand_size] cmp al,1 je mov_reg_imm_8bit cmp al,2 je mov_reg_imm_16bit cmp al,4 je mov_reg_imm_32bit cmp al,8 jne invalid_operand_size mov_reg_imm_64bit: call operand_64bit call get_qword_value mov ecx,edx cmp [size_declared],0 jne mov_reg_imm_64bit_store cmp [value_type],4 jae mov_reg_imm_64bit_store cdq cmp ecx,edx je mov_reg_64bit_imm_32bit mov_reg_imm_64bit_store: push eax ecx mov al,0B8h call store_mov_reg_imm_code pop edx eax call mark_relocation stos dword [edi] mov eax,edx stos dword [edi] jmp instruction_assembled mov_reg_imm_8bit: call get_byte_value mov dl,al mov al,0B0h call store_mov_reg_imm_code mov al,dl stos byte [edi] jmp instruction_assembled mov_reg_imm_16bit: call get_word_value mov dx,ax call operand_16bit mov al,0B8h call store_mov_reg_imm_code mov ax,dx call mark_relocation stos word [edi] jmp instruction_assembled mov_reg_imm_32bit: call operand_32bit call get_dword_value mov edx,eax mov al,0B8h call store_mov_reg_imm_code mov_store_imm_32bit: mov eax,edx call mark_relocation stos dword [edi] jmp instruction_assembled store_mov_reg_imm_code: mov ah,[postbyte_register] test ah,1000b jz mov_reg_imm_prefix_ok or [rex_prefix],41h mov_reg_imm_prefix_ok: and ah,111b add al,ah mov [base_code],al call store_instruction_code ret mov_reg_64bit_imm_32bit: mov edx,eax mov bl,[postbyte_register] mov [postbyte_register],0 mov [base_code],0C7h call store_nomem_instruction jmp mov_store_imm_32bit mov_sreg: mov ah,al and al,1111b mov [postbyte_register],al shr ah,4 cmp ah,5 je mov_creg cmp ah,7 je mov_dreg ja mov_treg cmp al,2 je illegal_instruction dec [postbyte_register] lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' je mov_sreg_mem cmp al,10h jne invalid_operand mov_sreg_reg: lods byte [esi] call convert_register or ah,ah jz mov_sreg_reg_size_ok cmp ah,2 jne invalid_operand_size mov bl,al mov_sreg_reg_size_ok: mov [base_code],8Eh jmp nomem_instruction_ready mov_sreg_mem: call get_address mov al,[operand_size] or al,al jz mov_sreg_mem_size_ok cmp al,2 jne invalid_operand_size mov_sreg_mem_size_ok: mov [base_code],8Eh jmp instruction_ready mov_treg: cmp ah,9 jne invalid_operand mov [extended_code],26h jmp mov_xrx mov_dreg: mov [extended_code],23h jmp mov_xrx mov_creg: mov [extended_code],22h mov_xrx: mov [base_code],0Fh lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov bl,al cmp [code_type],64 je mov_xrx_64bit cmp ah,4 jne invalid_operand_size cmp [postbyte_register],8 jne mov_xrx_store cmp [extended_code],22h jne mov_xrx_store mov al,0F0h stos byte [edi] mov [postbyte_register],0 mov_xrx_store: jmp nomem_instruction_ready mov_xrx_64bit: cmp ah,8 je mov_xrx_store jmp invalid_operand_size cmov_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' je cmov_reg_mem cmp al,10h jne invalid_operand cmov_reg_reg: lods byte [esi] call convert_register mov bl,al mov al,ah call operand_autodetect jmp nomem_instruction_ready cmov_reg_mem: call get_address mov al,[operand_size] call operand_autodetect jmp instruction_ready test_instruction: mov [base_code],84h lods byte [esi] call get_size_operator cmp al,10h je test_reg cmp al,'[' jne invalid_operand test_mem: call get_address push edx ebx ecx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'(' je test_mem_imm cmp al,10h jne invalid_operand test_mem_reg: lods byte [esi] call convert_register mov [postbyte_register],al pop ecx ebx edx mov al,ah cmp al,1 je test_mem_reg_8bit call operand_autodetect inc [base_code] test_mem_reg_8bit: jmp instruction_ready test_mem_imm: mov al,[operand_size] cmp al,1 jb test_mem_imm_nosize je test_mem_imm_8bit cmp al,2 je test_mem_imm_16bit cmp al,4 je test_mem_imm_32bit cmp al,8 jne invalid_operand_size test_mem_imm_64bit: cmp [size_declared],0 jne long_immediate_not_encodable call operand_64bit call get_simm32 cmp [value_type],4 jae long_immediate_not_encodable jmp test_mem_imm_32bit_store test_mem_imm_8bit: call get_byte_value mov byte [value],al mov [postbyte_register],0 mov [base_code],0F6h pop ecx ebx edx call store_instruction_with_imm8 jmp instruction_assembled test_mem_imm_16bit: call operand_16bit call get_word_value mov word [value],ax mov [postbyte_register],0 mov [base_code],0F7h pop ecx ebx edx call store_instruction_with_imm16 jmp instruction_assembled test_mem_imm_nosize: cmp [error_line],0 jne test_mem_imm_32bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified test_mem_imm_32bit: call operand_32bit call get_dword_value test_mem_imm_32bit_store: mov dword [value],eax mov [postbyte_register],0 mov [base_code],0F7h pop ecx ebx edx call store_instruction_with_imm32 jmp instruction_assembled test_reg: lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' je test_reg_mem cmp al,'(' je test_reg_imm cmp al,10h jne invalid_operand test_reg_reg: lods byte [esi] call convert_register mov bl,[postbyte_register] mov [postbyte_register],al mov al,ah cmp al,1 je test_reg_reg_8bit call operand_autodetect inc [base_code] test_reg_reg_8bit: jmp nomem_instruction_ready test_reg_imm: mov al,[operand_size] cmp al,1 je test_reg_imm_8bit cmp al,2 je test_reg_imm_16bit cmp al,4 je test_reg_imm_32bit cmp al,8 jne invalid_operand_size test_reg_imm_64bit: cmp [size_declared],0 jne long_immediate_not_encodable call operand_64bit call get_simm32 cmp [value_type],4 jae long_immediate_not_encodable jmp test_reg_imm_32bit_store test_reg_imm_8bit: call get_byte_value mov dl,al mov bl,[postbyte_register] mov [postbyte_register],0 mov [base_code],0F6h or bl,bl jz test_al_imm call store_nomem_instruction mov al,dl stos byte [edi] jmp instruction_assembled test_al_imm: mov [base_code],0A8h call store_instruction_code mov al,dl stos byte [edi] jmp instruction_assembled test_reg_imm_16bit: call operand_16bit call get_word_value mov dx,ax mov bl,[postbyte_register] mov [postbyte_register],0 mov [base_code],0F7h or bl,bl jz test_ax_imm call store_nomem_instruction mov ax,dx call mark_relocation stos word [edi] jmp instruction_assembled test_ax_imm: mov [base_code],0A9h call store_instruction_code mov ax,dx stos word [edi] jmp instruction_assembled test_reg_imm_32bit: call operand_32bit call get_dword_value test_reg_imm_32bit_store: mov edx,eax mov bl,[postbyte_register] mov [postbyte_register],0 mov [base_code],0F7h or bl,bl jz test_eax_imm call store_nomem_instruction mov eax,edx call mark_relocation stos dword [edi] jmp instruction_assembled test_eax_imm: mov [base_code],0A9h call store_instruction_code mov eax,edx stos dword [edi] jmp instruction_assembled test_reg_mem: call get_address mov al,[operand_size] cmp al,1 je test_reg_mem_8bit call operand_autodetect inc [base_code] test_reg_mem_8bit: jmp instruction_ready xchg_instruction: mov [base_code],86h lods byte [esi] call get_size_operator cmp al,10h je xchg_reg cmp al,'[' jne invalid_operand xchg_mem: call get_address push edx ebx ecx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je test_mem_reg jmp invalid_operand xchg_reg: lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' je test_reg_mem cmp al,10h jne invalid_operand xchg_reg_reg: lods byte [esi] call convert_register mov bl,al mov al,ah cmp al,1 je xchg_reg_reg_8bit call operand_autodetect cmp [postbyte_register],0 je xchg_ax_reg or bl,bl jnz xchg_reg_reg_store mov bl,[postbyte_register] xchg_ax_reg: cmp [code_type],64 jne xchg_ax_reg_ok cmp ah,4 jne xchg_ax_reg_ok or bl,bl jz xchg_reg_reg_store xchg_ax_reg_ok: test bl,1000b jz xchg_ax_reg_store or [rex_prefix],41h and bl,111b xchg_ax_reg_store: add bl,90h mov [base_code],bl call store_instruction_code jmp instruction_assembled xchg_reg_reg_store: inc [base_code] xchg_reg_reg_8bit: jmp nomem_instruction_ready push_instruction: mov [push_size],al push_next: lods byte [esi] call get_size_operator cmp al,10h je push_reg cmp al,'(' je push_imm cmp al,'[' jne invalid_operand push_mem: call get_address mov al,[operand_size] mov ah,[push_size] cmp al,2 je push_mem_16bit cmp al,4 je push_mem_32bit cmp al,8 je push_mem_64bit or al,al jnz invalid_operand_size cmp ah,2 je push_mem_16bit cmp ah,4 je push_mem_32bit cmp ah,8 je push_mem_64bit cmp [error_line],0 jne push_mem_store mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified jmp push_mem_store push_mem_16bit: test ah,not 2 jnz invalid_operand_size call operand_16bit jmp push_mem_store push_mem_32bit: test ah,not 4 jnz invalid_operand_size cmp [code_type],64 je illegal_instruction call operand_32bit jmp push_mem_store push_mem_64bit: test ah,not 8 jnz invalid_operand_size cmp [code_type],64 jne illegal_instruction push_mem_store: mov [base_code],0FFh mov [postbyte_register],110b call store_instruction jmp push_done push_reg: lods byte [esi] mov ah,al sub ah,10h and ah,al test ah,0F0h jnz push_sreg call convert_register test al,1000b jz push_reg_ok or [rex_prefix],41h and al,111b push_reg_ok: add al,50h mov [base_code],al mov al,ah mov ah,[push_size] cmp al,2 je push_reg_16bit cmp al,4 je push_reg_32bit cmp al,8 jne invalid_operand_size push_reg_64bit: test ah,not 8 jnz invalid_operand_size cmp [code_type],64 jne illegal_instruction jmp push_reg_store push_reg_32bit: test ah,not 4 jnz invalid_operand_size cmp [code_type],64 je illegal_instruction call operand_32bit jmp push_reg_store push_reg_16bit: test ah,not 2 jnz invalid_operand_size call operand_16bit push_reg_store: call store_instruction_code jmp push_done push_sreg: mov bl,al mov dl,[operand_size] mov dh,[push_size] cmp dl,2 je push_sreg16 cmp dl,4 je push_sreg32 cmp dl,8 je push_sreg64 or dl,dl jnz invalid_operand_size cmp dh,2 je push_sreg16 cmp dh,4 je push_sreg32 cmp dh,8 je push_sreg64 jmp push_sreg_store push_sreg16: test dh,not 2 jnz invalid_operand_size call operand_16bit jmp push_sreg_store push_sreg32: test dh,not 4 jnz invalid_operand_size cmp [code_type],64 je illegal_instruction call operand_32bit jmp push_sreg_store push_sreg64: test dh,not 8 jnz invalid_operand_size cmp [code_type],64 jne illegal_instruction push_sreg_store: mov al,bl cmp al,70h jae invalid_operand sub al,61h jc invalid_operand cmp al,4 jae push_sreg_386 shl al,3 add al,6 mov [base_code],al cmp [code_type],64 je illegal_instruction jmp push_reg_store push_sreg_386: sub al,4 shl al,3 add al,0A0h mov [extended_code],al mov [base_code],0Fh jmp push_reg_store push_imm: mov al,[operand_size] mov ah,[push_size] or al,al je push_imm_size_ok or ah,ah je push_imm_size_ok cmp al,ah jne invalid_operand_size push_imm_size_ok: cmp al,2 je push_imm_16bit cmp al,4 je push_imm_32bit cmp al,8 je push_imm_64bit cmp ah,2 je push_imm_optimized_16bit cmp ah,4 je push_imm_optimized_32bit cmp ah,8 je push_imm_optimized_64bit or al,al jnz invalid_operand_size cmp [code_type],16 je push_imm_optimized_16bit cmp [code_type],32 je push_imm_optimized_32bit push_imm_optimized_64bit: cmp [code_type],64 jne illegal_instruction call get_simm32 mov edx,eax cmp [value_type],0 jne push_imm_32bit_store cmp eax,-80h jl push_imm_32bit_store cmp eax,80h jge push_imm_32bit_store jmp push_imm_8bit push_imm_optimized_32bit: cmp [code_type],64 je illegal_instruction call get_dword_value mov edx,eax call operand_32bit cmp [value_type],0 jne push_imm_32bit_store cmp eax,-80h jl push_imm_32bit_store cmp eax,80h jge push_imm_32bit_store jmp push_imm_8bit push_imm_optimized_16bit: call get_word_value mov dx,ax call operand_16bit cmp [value_type],0 jne push_imm_16bit_store cmp ax,-80h jl push_imm_16bit_store cmp ax,80h jge push_imm_16bit_store push_imm_8bit: mov ah,al mov [base_code],6Ah call store_instruction_code mov al,ah stos byte [edi] jmp push_done push_imm_16bit: call get_word_value mov dx,ax call operand_16bit push_imm_16bit_store: mov [base_code],68h call store_instruction_code mov ax,dx call mark_relocation stos word [edi] jmp push_done push_imm_64bit: cmp [code_type],64 jne illegal_instruction call get_simm32 mov edx,eax jmp push_imm_32bit_store push_imm_32bit: cmp [code_type],64 je illegal_instruction call get_dword_value mov edx,eax call operand_32bit push_imm_32bit_store: mov [base_code],68h call store_instruction_code mov eax,edx call mark_relocation stos dword [edi] push_done: lods byte [esi] dec esi cmp al,0Fh je instruction_assembled or al,al jz instruction_assembled mov [operand_size],0 mov [size_override],0 mov [operand_prefix],0 mov [rex_prefix],0 jmp push_next pop_instruction: mov [push_size],al pop_next: lods byte [esi] call get_size_operator cmp al,10h je pop_reg cmp al,'[' jne invalid_operand pop_mem: call get_address mov al,[operand_size] mov ah,[push_size] cmp al,2 je pop_mem_16bit cmp al,4 je pop_mem_32bit cmp al,8 je pop_mem_64bit or al,al jnz invalid_operand_size cmp ah,2 je pop_mem_16bit cmp ah,4 je pop_mem_32bit cmp ah,8 je pop_mem_64bit cmp [error_line],0 jne pop_mem_store mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified jmp pop_mem_store pop_mem_16bit: test ah,not 2 jnz invalid_operand_size call operand_16bit jmp pop_mem_store pop_mem_32bit: test ah,not 4 jnz invalid_operand_size cmp [code_type],64 je illegal_instruction call operand_32bit jmp pop_mem_store pop_mem_64bit: test ah,not 8 jnz invalid_operand_size cmp [code_type],64 jne illegal_instruction pop_mem_store: mov [base_code],08Fh mov [postbyte_register],0 call store_instruction jmp pop_done pop_reg: lods byte [esi] mov ah,al sub ah,10h and ah,al test ah,0F0h jnz pop_sreg call convert_register test al,1000b jz pop_reg_ok or [rex_prefix],41h and al,111b pop_reg_ok: add al,58h mov [base_code],al mov al,ah mov ah,[push_size] cmp al,2 je pop_reg_16bit cmp al,4 je pop_reg_32bit cmp al,8 je pop_reg_64bit jmp invalid_operand_size pop_reg_64bit: test ah,not 8 jnz invalid_operand_size cmp [code_type],64 jne illegal_instruction jmp pop_reg_store pop_reg_32bit: test ah,not 4 jnz invalid_operand_size cmp [code_type],64 je illegal_instruction call operand_32bit jmp pop_reg_store pop_reg_16bit: test ah,not 2 jnz invalid_operand_size call operand_16bit pop_reg_store: call store_instruction_code pop_done: lods byte [esi] dec esi cmp al,0Fh je instruction_assembled or al,al jz instruction_assembled mov [operand_size],0 mov [size_override],0 mov [operand_prefix],0 mov [rex_prefix],0 jmp pop_next pop_sreg: mov dl,[operand_size] mov dh,[push_size] cmp al,62h je pop_cs mov bl,al cmp dl,2 je pop_sreg16 cmp dl,4 je pop_sreg32 cmp dl,8 je pop_sreg64 or dl,dl jnz invalid_operand_size cmp dh,2 je pop_sreg16 cmp dh,4 je pop_sreg32 cmp dh,8 je pop_sreg64 jmp pop_sreg_store pop_sreg16: test dh,not 2 jnz invalid_operand_size call operand_16bit jmp pop_sreg_store pop_sreg32: test dh,not 4 jnz invalid_operand_size cmp [code_type],64 je illegal_instruction call operand_32bit jmp pop_sreg_store pop_sreg64: test dh,not 8 jnz invalid_operand_size cmp [code_type],64 jne illegal_instruction pop_sreg_store: mov al,bl cmp al,70h jae invalid_operand sub al,61h jc invalid_operand cmp al,4 jae pop_sreg_386 shl al,3 add al,7 mov [base_code],al cmp [code_type],64 je illegal_instruction jmp pop_reg_store pop_cs: cmp [code_type],16 jne illegal_instruction cmp dl,2 je pop_cs_store or dl,dl jnz invalid_operand_size cmp dh,2 je pop_cs_store or dh,dh jnz illegal_instruction pop_cs_store: test dh,not 2 jnz invalid_operand_size mov al,0Fh stos byte [edi] jmp pop_done pop_sreg_386: sub al,4 shl al,3 add al,0A1h mov [extended_code],al mov [base_code],0Fh jmp pop_reg_store inc_instruction: mov [base_code],al lods byte [esi] call get_size_operator cmp al,10h je inc_reg cmp al,'[' je inc_mem jne invalid_operand inc_mem: call get_address mov al,[operand_size] cmp al,1 je inc_mem_8bit jb inc_mem_nosize call operand_autodetect mov al,0FFh xchg al,[base_code] mov [postbyte_register],al jmp instruction_ready inc_mem_nosize: cmp [error_line],0 jne inc_mem_8bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified inc_mem_8bit: mov al,0FEh xchg al,[base_code] mov [postbyte_register],al jmp instruction_ready inc_reg: lods byte [esi] call convert_register mov bl,al mov al,0FEh xchg al,[base_code] mov [postbyte_register],al mov al,ah cmp al,1 je inc_reg_8bit call operand_autodetect cmp [code_type],64 je inc_reg_long_form mov al,[postbyte_register] shl al,3 add al,bl add al,40h mov [base_code],al call store_instruction_code jmp instruction_assembled inc_reg_long_form: inc [base_code] inc_reg_8bit: jmp nomem_instruction_ready set_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h je set_reg cmp al,'[' jne invalid_operand set_mem: call get_address cmp [operand_size],1 ja invalid_operand_size mov [postbyte_register],0 jmp instruction_ready set_reg: lods byte [esi] call convert_register cmp ah,1 jne invalid_operand_size mov bl,al mov [postbyte_register],0 jmp nomem_instruction_ready arpl_instruction: cmp [code_type],64 je illegal_instruction mov [base_code],63h lods byte [esi] call get_size_operator cmp al,10h je arpl_reg cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al cmp ah,2 jne invalid_operand_size jmp instruction_ready arpl_reg: lods byte [esi] call convert_register cmp ah,2 jne invalid_operand_size mov bl,al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al jmp nomem_instruction_ready bound_instruction: cmp [code_type],64 je illegal_instruction lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,2 je bound_store cmp al,4 jne invalid_operand_size bound_store: call operand_autodetect mov [base_code],62h jmp instruction_ready enter_instruction: lods byte [esi] call get_size_operator cmp ah,2 je enter_imm16_size_ok or ah,ah jnz invalid_operand_size enter_imm16_size_ok: cmp al,'(' jne invalid_operand call get_word_value cmp [next_pass_needed],0 jne enter_imm16_ok cmp [value_type],0 jne invalid_use_of_symbol test eax,eax js value_out_of_range enter_imm16_ok: push eax mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp ah,1 je enter_imm8_size_ok or ah,ah jnz invalid_operand_size enter_imm8_size_ok: cmp al,'(' jne invalid_operand call get_byte_value cmp [next_pass_needed],0 jne enter_imm8_ok test eax,eax js value_out_of_range enter_imm8_ok: mov dl,al pop ebx mov al,0C8h stos byte [edi] mov ax,bx stos word [edi] mov al,dl stos byte [edi] jmp instruction_assembled ret_instruction_only64: cmp [code_type],64 jne illegal_instruction jmp ret_instruction ret_instruction_32bit_except64: cmp [code_type],64 je illegal_instruction ret_instruction_32bit: call operand_32bit jmp ret_instruction ret_instruction_16bit: call operand_16bit jmp ret_instruction retf_instruction: cmp [code_type],64 jne ret_instruction ret_instruction_64bit: call operand_64bit ret_instruction: mov [base_code],al lods byte [esi] dec esi or al,al jz simple_ret cmp al,0Fh je simple_ret lods byte [esi] call get_size_operator or ah,ah jz ret_imm cmp ah,2 je ret_imm jmp invalid_operand_size ret_imm: cmp al,'(' jne invalid_operand call get_word_value cmp [next_pass_needed],0 jne ret_imm_ok cmp [value_type],0 jne invalid_use_of_symbol test eax,eax js value_out_of_range ret_imm_ok: cmp [size_declared],0 jne ret_imm_store or ax,ax jz simple_ret ret_imm_store: mov dx,ax call store_instruction_code mov ax,dx stos word [edi] jmp instruction_assembled simple_ret: inc [base_code] call store_instruction_code jmp instruction_assembled lea_instruction: mov [base_code],8Dh lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand xor al,al xchg al,[operand_size] push eax lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand mov [size_override],-1 call get_address pop eax mov [operand_size],al call operand_autodetect jmp instruction_ready ls_instruction: or al,al jz les_instruction cmp al,3 jz lds_instruction add al,0B0h mov [extended_code],al mov [base_code],0Fh jmp ls_code_ok les_instruction: mov [base_code],0C4h jmp ls_short_code lds_instruction: mov [base_code],0C5h ls_short_code: cmp [code_type],64 je illegal_instruction ls_code_ok: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand add [operand_size],2 lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,4 je ls_16bit cmp al,6 je ls_32bit cmp al,10 je ls_64bit jmp invalid_operand_size ls_16bit: call operand_16bit jmp instruction_ready ls_32bit: call operand_32bit jmp instruction_ready ls_64bit: call operand_64bit jmp instruction_ready sh_instruction: mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,10h je sh_reg cmp al,'[' jne invalid_operand sh_mem: call get_address push edx ebx ecx mov al,[operand_size] push eax mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'(' je sh_mem_imm cmp al,10h jne invalid_operand sh_mem_reg: lods byte [esi] cmp al,11h jne invalid_operand pop eax ecx ebx edx cmp al,1 je sh_mem_cl_8bit jb sh_mem_cl_nosize call operand_autodetect mov [base_code],0D3h jmp instruction_ready sh_mem_cl_nosize: cmp [error_line],0 jne sh_mem_cl_8bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified sh_mem_cl_8bit: mov [base_code],0D2h jmp instruction_ready sh_mem_imm: mov al,[operand_size] or al,al jz sh_mem_imm_size_ok cmp al,1 jne invalid_operand_size sh_mem_imm_size_ok: call get_byte_value mov byte [value],al pop eax ecx ebx edx cmp al,1 je sh_mem_imm_8bit jb sh_mem_imm_nosize call operand_autodetect cmp byte [value],1 je sh_mem_1 mov [base_code],0C1h call store_instruction_with_imm8 jmp instruction_assembled sh_mem_1: mov [base_code],0D1h jmp instruction_ready sh_mem_imm_nosize: cmp [error_line],0 jne sh_mem_imm_8bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified sh_mem_imm_8bit: cmp byte [value],1 je sh_mem_1_8bit mov [base_code],0C0h call store_instruction_with_imm8 jmp instruction_assembled sh_mem_1_8bit: mov [base_code],0D0h jmp instruction_ready sh_reg: lods byte [esi] call convert_register mov bx,ax mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'(' je sh_reg_imm cmp al,10h jne invalid_operand sh_reg_reg: lods byte [esi] cmp al,11h jne invalid_operand mov al,bh cmp al,1 je sh_reg_cl_8bit call operand_autodetect mov [base_code],0D3h jmp nomem_instruction_ready sh_reg_cl_8bit: mov [base_code],0D2h jmp nomem_instruction_ready sh_reg_imm: mov al,[operand_size] or al,al jz sh_reg_imm_size_ok cmp al,1 jne invalid_operand_size sh_reg_imm_size_ok: push ebx call get_byte_value mov dl,al pop ebx mov al,bh cmp al,1 je sh_reg_imm_8bit call operand_autodetect cmp dl,1 je sh_reg_1 mov [base_code],0C1h call store_nomem_instruction mov al,dl stos byte [edi] jmp instruction_assembled sh_reg_1: mov [base_code],0D1h jmp nomem_instruction_ready sh_reg_imm_8bit: cmp dl,1 je sh_reg_1_8bit mov [base_code],0C0h call store_nomem_instruction mov al,dl stos byte [edi] jmp instruction_assembled sh_reg_1_8bit: mov [base_code],0D0h jmp nomem_instruction_ready shd_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h je shd_reg cmp al,'[' jne invalid_operand shd_mem: call get_address push edx ebx ecx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand mov al,ah mov [operand_size],0 push eax lods byte [esi] call get_size_operator cmp al,'(' je shd_mem_reg_imm cmp al,10h jne invalid_operand lods byte [esi] cmp al,11h jne invalid_operand pop eax ecx ebx edx call operand_autodetect inc [extended_code] jmp instruction_ready shd_mem_reg_imm: mov al,[operand_size] or al,al jz shd_mem_reg_imm_size_ok cmp al,1 jne invalid_operand_size shd_mem_reg_imm_size_ok: call get_byte_value mov byte [value],al pop eax ecx ebx edx call operand_autodetect call store_instruction_with_imm8 jmp instruction_assembled shd_reg: lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov bl,[postbyte_register] mov [postbyte_register],al mov al,ah push eax ebx lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,'(' je shd_reg_reg_imm cmp al,10h jne invalid_operand lods byte [esi] cmp al,11h jne invalid_operand pop ebx eax call operand_autodetect inc [extended_code] jmp nomem_instruction_ready shd_reg_reg_imm: mov al,[operand_size] or al,al jz shd_reg_reg_imm_size_ok cmp al,1 jne invalid_operand_size shd_reg_reg_imm_size_ok: call get_byte_value mov dl,al pop ebx eax call operand_autodetect call store_nomem_instruction mov al,dl stos byte [edi] jmp instruction_assembled movx_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al mov al,ah push eax lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h je movx_reg cmp al,'[' jne invalid_operand call get_address pop eax mov ah,[operand_size] or ah,ah jz movx_unknown_size cmp ah,al jae invalid_operand_size cmp ah,1 je movx_mem_store cmp ah,2 jne invalid_operand_size inc [extended_code] movx_mem_store: call operand_autodetect jmp instruction_ready movx_unknown_size: cmp [error_line],0 jne movx_mem_store mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified jmp movx_mem_store movx_reg: lods byte [esi] call convert_register pop ebx xchg bl,al cmp ah,al jae invalid_operand_size cmp ah,1 je movx_reg_8bit cmp ah,2 je movx_reg_16bit jmp invalid_operand_size movx_reg_8bit: call operand_autodetect jmp nomem_instruction_ready movx_reg_16bit: call operand_autodetect inc [extended_code] jmp nomem_instruction_ready movsxd_instruction: mov [base_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al cmp ah,8 jne invalid_operand_size lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h je movsxd_reg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],4 je movsxd_mem_store cmp [operand_size],0 jne invalid_operand_size movsxd_mem_store: call operand_64bit jmp instruction_ready movsxd_reg: lods byte [esi] call convert_register cmp ah,4 jne invalid_operand_size mov bl,al call operand_64bit jmp nomem_instruction_ready bt_instruction: mov [postbyte_register],al shl al,3 add al,83h mov [extended_code],al mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,10h je bt_reg cmp al,'[' jne invalid_operand call get_address push eax ebx ecx lods byte [esi] cmp al,',' jne invalid_operand cmp byte [esi],'(' je bt_mem_imm cmp byte [esi],11h jne bt_mem_reg cmp byte [esi+2],'(' je bt_mem_imm bt_mem_reg: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al pop ecx ebx edx mov al,ah call operand_autodetect jmp instruction_ready bt_mem_imm: xor al,al xchg al,[operand_size] push eax lods byte [esi] call get_size_operator cmp al,'(' jne invalid_operand mov al,[operand_size] or al,al jz bt_mem_imm_size_ok cmp al,1 jne invalid_operand_size bt_mem_imm_size_ok: call get_byte_value mov byte [value],al pop eax or al,al jz bt_mem_imm_nosize call operand_autodetect bt_mem_imm_store: pop ecx ebx edx mov [extended_code],0BAh call store_instruction_with_imm8 jmp instruction_assembled bt_mem_imm_nosize: cmp [error_line],0 jne bt_mem_imm_store mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified jmp bt_mem_imm_store bt_reg: lods byte [esi] call convert_register mov bl,al lods byte [esi] cmp al,',' jne invalid_operand cmp byte [esi],'(' je bt_reg_imm cmp byte [esi],11h jne bt_reg_reg cmp byte [esi+2],'(' je bt_reg_imm bt_reg_reg: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al mov al,ah call operand_autodetect jmp nomem_instruction_ready bt_reg_imm: xor al,al xchg al,[operand_size] push eax ebx lods byte [esi] call get_size_operator cmp al,'(' jne invalid_operand mov al,[operand_size] or al,al jz bt_reg_imm_size_ok cmp al,1 jne invalid_operand_size bt_reg_imm_size_ok: call get_byte_value mov byte [value],al pop ebx eax call operand_autodetect bt_reg_imm_store: mov [extended_code],0BAh call store_nomem_instruction mov al,byte [value] stos byte [edi] jmp instruction_assembled bs_instruction: mov [extended_code],al mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je bs_reg_reg cmp al,'[' jne invalid_argument call get_address mov al,[operand_size] call operand_autodetect jmp instruction_ready bs_reg_reg: lods byte [esi] call convert_register mov bl,al mov al,ah call operand_autodetect jmp nomem_instruction_ready imul_instruction: mov [base_code],0F6h mov [postbyte_register],5 lods byte [esi] call get_size_operator cmp al,10h je imul_reg cmp al,'[' jne invalid_operand imul_mem: call get_address mov al,[operand_size] cmp al,1 je imul_mem_8bit jb imul_mem_nosize call operand_autodetect inc [base_code] jmp instruction_ready imul_mem_nosize: cmp [error_line],0 jne imul_mem_8bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified imul_mem_8bit: jmp instruction_ready imul_reg: lods byte [esi] call convert_register cmp byte [esi],',' je imul_reg_ mov bl,al mov al,ah cmp al,1 je imul_reg_8bit call operand_autodetect inc [base_code] imul_reg_8bit: jmp nomem_instruction_ready imul_reg_: mov [postbyte_register],al inc esi cmp byte [esi],'(' je imul_reg_imm cmp byte [esi],11h jne imul_reg_noimm cmp byte [esi+2],'(' je imul_reg_imm imul_reg_noimm: lods byte [esi] call get_size_operator cmp al,10h je imul_reg_reg cmp al,'[' jne invalid_operand imul_reg_mem: call get_address push edx ebx ecx cmp byte [esi],',' je imul_reg_mem_imm mov al,[operand_size] call operand_autodetect pop ecx ebx edx mov [base_code],0Fh mov [extended_code],0AFh jmp instruction_ready imul_reg_mem_imm: inc esi lods byte [esi] call get_size_operator cmp al,'(' jne invalid_operand mov al,[operand_size] cmp al,2 je imul_reg_mem_imm_16bit cmp al,4 je imul_reg_mem_imm_32bit cmp al,8 jne invalid_operand_size imul_reg_mem_imm_64bit: cmp [size_declared],0 jne long_immediate_not_encodable call operand_64bit call get_simm32 cmp [value_type],4 jae long_immediate_not_encodable jmp imul_reg_mem_imm_32bit_ok imul_reg_mem_imm_16bit: call operand_16bit call get_word_value mov word [value],ax cmp [value_type],0 jne imul_reg_mem_imm_16bit_store cmp [size_declared],0 jne imul_reg_mem_imm_16bit_store cmp ax,-80h jl imul_reg_mem_imm_16bit_store cmp ax,80h jl imul_reg_mem_imm_8bit_store imul_reg_mem_imm_16bit_store: pop ecx ebx edx mov [base_code],69h call store_instruction_with_imm16 jmp instruction_assembled imul_reg_mem_imm_32bit: call operand_32bit call get_dword_value imul_reg_mem_imm_32bit_ok: mov dword [value],eax cmp [value_type],0 jne imul_reg_mem_imm_32bit_store cmp [size_declared],0 jne imul_reg_mem_imm_32bit_store cmp eax,-80h jl imul_reg_mem_imm_32bit_store cmp eax,80h jl imul_reg_mem_imm_8bit_store imul_reg_mem_imm_32bit_store: pop ecx ebx edx mov [base_code],69h call store_instruction_with_imm32 jmp instruction_assembled imul_reg_mem_imm_8bit_store: pop ecx ebx edx mov [base_code],6Bh call store_instruction_with_imm8 jmp instruction_assembled imul_reg_imm: mov bl,[postbyte_register] dec esi jmp imul_reg_reg_imm imul_reg_reg: lods byte [esi] call convert_register mov bl,al cmp byte [esi],',' je imul_reg_reg_imm mov al,ah call operand_autodetect mov [base_code],0Fh mov [extended_code],0AFh jmp nomem_instruction_ready imul_reg_reg_imm: inc esi lods byte [esi] call get_size_operator cmp al,'(' jne invalid_operand mov al,[operand_size] cmp al,2 je imul_reg_reg_imm_16bit cmp al,4 je imul_reg_reg_imm_32bit cmp al,8 jne invalid_operand_size imul_reg_reg_imm_64bit: cmp [size_declared],0 jne long_immediate_not_encodable call operand_64bit push ebx call get_simm32 cmp [value_type],4 jae long_immediate_not_encodable jmp imul_reg_reg_imm_32bit_ok imul_reg_reg_imm_16bit: call operand_16bit push ebx call get_word_value pop ebx mov dx,ax cmp [value_type],0 jne imul_reg_reg_imm_16bit_store cmp [size_declared],0 jne imul_reg_reg_imm_16bit_store cmp ax,-80h jl imul_reg_reg_imm_16bit_store cmp ax,80h jl imul_reg_reg_imm_8bit_store imul_reg_reg_imm_16bit_store: mov [base_code],69h call store_nomem_instruction mov ax,dx call mark_relocation stos word [edi] jmp instruction_assembled imul_reg_reg_imm_32bit: call operand_32bit push ebx call get_dword_value imul_reg_reg_imm_32bit_ok: pop ebx mov edx,eax cmp [value_type],0 jne imul_reg_reg_imm_32bit_store cmp [size_declared],0 jne imul_reg_reg_imm_32bit_store cmp eax,-80h jl imul_reg_reg_imm_32bit_store cmp eax,80h jl imul_reg_reg_imm_8bit_store imul_reg_reg_imm_32bit_store: mov [base_code],69h call store_nomem_instruction mov eax,edx call mark_relocation stos dword [edi] jmp instruction_assembled imul_reg_reg_imm_8bit_store: mov [base_code],6Bh call store_nomem_instruction mov al,dl stos byte [edi] jmp instruction_assembled in_instruction: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register or al,al jnz invalid_operand lods byte [esi] cmp al,',' jne invalid_operand mov al,ah push eax mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,'(' je in_imm cmp al,10h je in_reg jmp invalid_operand in_reg: lods byte [esi] cmp al,22h jne invalid_operand pop eax cmp al,1 je in_al_dx cmp al,2 je in_ax_dx cmp al,4 jne invalid_operand_size in_ax_dx: call operand_autodetect mov [base_code],0EDh call store_instruction_code jmp instruction_assembled in_al_dx: mov al,0ECh stos byte [edi] jmp instruction_assembled in_imm: mov al,[operand_size] or al,al jz in_imm_size_ok cmp al,1 jne invalid_operand_size in_imm_size_ok: call get_byte_value mov dl,al pop eax cmp al,1 je in_al_imm cmp al,2 je in_ax_imm cmp al,4 jne invalid_operand_size in_ax_imm: call operand_autodetect mov [base_code],0E5h call store_instruction_code mov al,dl stos byte [edi] jmp instruction_assembled in_al_imm: mov al,0E4h stos byte [edi] mov al,dl stos byte [edi] jmp instruction_assembled out_instruction: lods byte [esi] call get_size_operator cmp al,'(' je out_imm cmp al,10h jne invalid_operand lods byte [esi] cmp al,22h jne invalid_operand lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register or al,al jnz invalid_operand mov al,ah cmp al,1 je out_dx_al cmp al,2 je out_dx_ax cmp al,4 jne invalid_operand_size out_dx_ax: call operand_autodetect mov [base_code],0EFh call store_instruction_code jmp instruction_assembled out_dx_al: mov al,0EEh stos byte [edi] jmp instruction_assembled out_imm: mov al,[operand_size] or al,al jz out_imm_size_ok cmp al,1 jne invalid_operand_size out_imm_size_ok: call get_byte_value mov dl,al lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register or al,al jnz invalid_operand mov al,ah cmp al,1 je out_imm_al cmp al,2 je out_imm_ax cmp al,4 jne invalid_operand_size out_imm_ax: call operand_autodetect mov [base_code],0E7h call store_instruction_code mov al,dl stos byte [edi] jmp instruction_assembled out_imm_al: mov al,0E6h stos byte [edi] mov al,dl stos byte [edi] jmp instruction_assembled call_instruction: mov [postbyte_register],10b mov [base_code],0E8h mov [extended_code],9Ah jmp process_jmp jmp_instruction: mov [postbyte_register],100b mov [base_code],0E9h mov [extended_code],0EAh process_jmp: lods byte [esi] call get_jump_operator call get_size_operator cmp al,'(' je jmp_imm mov [base_code],0FFh cmp al,10h je jmp_reg cmp al,'[' jne invalid_operand jmp_mem: cmp [jump_type],1 je illegal_instruction call get_address mov edx,eax mov al,[operand_size] or al,al jz jmp_mem_size_not_specified cmp al,2 je jmp_mem_16bit cmp al,4 je jmp_mem_32bit cmp al,6 je jmp_mem_48bit cmp al,8 je jmp_mem_64bit cmp al,10 je jmp_mem_80bit jmp invalid_operand_size jmp_mem_size_not_specified: cmp [jump_type],3 je jmp_mem_far cmp [jump_type],2 je jmp_mem_near cmp [error_line],0 jne jmp_mem_near mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified jmp_mem_near: cmp [code_type],16 je jmp_mem_16bit cmp [code_type],32 je jmp_mem_near_32bit jmp_mem_64bit: cmp [jump_type],3 je invalid_operand_size cmp [code_type],64 jne illegal_instruction jmp instruction_ready jmp_mem_far: cmp [code_type],16 je jmp_mem_far_32bit jmp_mem_48bit: call operand_32bit jmp_mem_far_store: cmp [jump_type],2 je invalid_operand_size inc [postbyte_register] jmp instruction_ready jmp_mem_80bit: call operand_64bit jmp jmp_mem_far_store jmp_mem_far_32bit: call operand_16bit jmp jmp_mem_far_store jmp_mem_32bit: cmp [jump_type],3 je jmp_mem_far_32bit cmp [jump_type],2 je jmp_mem_near_32bit cmp [code_type],16 je jmp_mem_far_32bit jmp_mem_near_32bit: cmp [code_type],64 je illegal_instruction call operand_32bit jmp instruction_ready jmp_mem_16bit: cmp [jump_type],3 je invalid_operand_size call operand_16bit jmp instruction_ready jmp_reg: test [jump_type],1 jnz invalid_operand lods byte [esi] call convert_register mov bl,al mov al,ah cmp al,2 je jmp_reg_16bit cmp al,4 je jmp_reg_32bit cmp al,8 jne invalid_operand_size jmp_reg_64bit: cmp [code_type],64 jne illegal_instruction jmp nomem_instruction_ready jmp_reg_32bit: cmp [code_type],64 je illegal_instruction call operand_32bit jmp nomem_instruction_ready jmp_reg_16bit: call operand_16bit jmp nomem_instruction_ready jmp_imm: cmp byte [esi],'.' je invalid_value mov ebx,esi dec esi call skip_symbol xchg esi,ebx cmp byte [ebx],':' je jmp_far cmp [jump_type],3 je invalid_operand jmp_near: mov al,[operand_size] cmp al,2 je jmp_imm_16bit cmp al,4 je jmp_imm_32bit cmp al,8 je jmp_imm_64bit or al,al jnz invalid_operand_size cmp [code_type],16 je jmp_imm_16bit cmp [code_type],64 je jmp_imm_64bit jmp_imm_32bit: cmp [code_type],64 je invalid_operand_size call get_address_dword_value cmp [code_type],16 jne jmp_imm_32bit_prefix_ok mov byte [edi],66h inc edi jmp_imm_32bit_prefix_ok: call calculate_jump_offset cdq call check_for_short_jump jc jmp_short jmp_imm_32bit_store: mov edx,eax sub edx,3 mov al,[base_code] stos byte [edi] mov eax,edx call mark_relocation stos dword [edi] jmp instruction_assembled jmp_imm_64bit: cmp [code_type],64 jne invalid_operand_size call get_address_qword_value call calculate_jump_offset mov ecx,edx cdq cmp edx,ecx jne value_out_of_range call check_for_short_jump jnc jmp_imm_32bit_store jmp_short: mov ah,al mov al,0EBh stos word [edi] jmp instruction_assembled jmp_imm_16bit: call get_address_word_value cmp [code_type],16 je jmp_imm_16bit_prefix_ok mov byte [edi],66h inc edi jmp_imm_16bit_prefix_ok: call calculate_jump_offset cwde cdq call check_for_short_jump jc jmp_short cmp [value_type],0 jne invalid_use_of_symbol mov edx,eax dec edx mov al,[base_code] stos byte [edi] mov eax,edx stos word [edi] jmp instruction_assembled calculate_jump_offset: add edi,2 call calculate_relative_offset sub edi,2 ret check_for_short_jump: cmp [jump_type],1 je forced_short ja no_short_jump cmp [base_code],0E8h je no_short_jump cmp [value_type],0 jne no_short_jump cmp eax,80h jb short_jump cmp eax,-80h jae short_jump no_short_jump: clc ret forced_short: cmp [base_code],0E8h je illegal_instruction cmp [next_pass_needed],0 jne jmp_short_value_type_ok cmp [value_type],0 jne invalid_use_of_symbol jmp_short_value_type_ok: cmp eax,-80h jae short_jump cmp eax,80h jae jump_out_of_range short_jump: stc ret jump_out_of_range: cmp [error_line],0 jne instruction_assembled mov eax,[current_line] mov [error_line],eax mov [error],relative_jump_out_of_range jmp instruction_assembled jmp_far: cmp [jump_type],2 je invalid_operand cmp [code_type],64 je illegal_instruction mov al,[extended_code] mov [base_code],al call get_word_value push eax inc esi lods byte [esi] cmp al,'(' jne invalid_operand mov al,[value_type] push eax [symbol_identifier] cmp byte [esi],'.' je invalid_value mov al,[operand_size] cmp al,4 je jmp_far_16bit cmp al,6 je jmp_far_32bit or al,al jnz invalid_operand_size cmp [code_type],16 jne jmp_far_32bit jmp_far_16bit: call get_word_value mov ebx,eax call operand_16bit call store_instruction_code mov ax,bx call mark_relocation stos word [edi] jmp_far_segment: pop [symbol_identifier] eax mov [value_type],al pop eax call mark_relocation stos word [edi] jmp instruction_assembled jmp_far_32bit: call get_dword_value mov ebx,eax call operand_32bit call store_instruction_code mov eax,ebx call mark_relocation stos dword [edi] jmp jmp_far_segment conditional_jump: mov [base_code],al lods byte [esi] call get_jump_operator cmp [jump_type],3 je invalid_operand call get_size_operator cmp al,'(' jne invalid_operand cmp byte [esi],'.' je invalid_value mov al,[operand_size] cmp al,2 je conditional_jump_16bit cmp al,4 je conditional_jump_32bit cmp al,8 je conditional_jump_64bit or al,al jnz invalid_operand_size cmp [code_type],16 je conditional_jump_16bit cmp [code_type],64 je conditional_jump_64bit conditional_jump_32bit: cmp [code_type],64 je invalid_operand_size call get_address_dword_value cmp [code_type],16 jne conditional_jump_32bit_prefix_ok mov byte [edi],66h inc edi conditional_jump_32bit_prefix_ok: call calculate_jump_offset cdq call check_for_short_jump jc conditional_jump_short conditional_jump_32bit_store: mov edx,eax sub edx,4 jno conditional_jump_32bit_range_ok cmp [code_type],64 je relative_jump_out_of_range conditional_jump_32bit_range_ok: mov ah,[base_code] add ah,10h mov al,0Fh stos word [edi] mov eax,edx call mark_relocation stos dword [edi] jmp instruction_assembled conditional_jump_64bit: cmp [code_type],64 jne invalid_operand_size call get_address_qword_value call calculate_jump_offset mov ecx,edx cdq cmp edx,ecx jne value_out_of_range call check_for_short_jump jnc conditional_jump_32bit_store conditional_jump_short: mov ah,al mov al,[base_code] stos word [edi] jmp instruction_assembled conditional_jump_16bit: call get_address_word_value cmp [code_type],16 je conditional_jump_16bit_prefix_ok mov byte [edi],66h inc edi conditional_jump_16bit_prefix_ok: call calculate_jump_offset cwde cdq call check_for_short_jump jc conditional_jump_short cmp [value_type],0 jne invalid_use_of_symbol mov edx,eax sub dx,2 mov ah,[base_code] add ah,10h mov al,0Fh stos word [edi] mov eax,edx stos word [edi] jmp instruction_assembled loop_instruction_16bit: cmp [code_type],64 je illegal_instruction cmp [code_type],16 je loop_instruction mov [operand_prefix],67h jmp loop_instruction loop_instruction_32bit: cmp [code_type],32 je loop_instruction mov [operand_prefix],67h jmp loop_instruction loop_instruction_64bit: cmp [code_type],64 jne illegal_instruction loop_instruction: mov [base_code],al lods byte [esi] call get_jump_operator cmp [jump_type],1 ja invalid_operand call get_size_operator cmp al,'(' jne invalid_operand cmp byte [esi],'.' je invalid_value mov al,[operand_size] cmp al,2 je loop_jump_16bit cmp al,4 je loop_jump_32bit cmp al,8 je loop_jump_64bit or al,al jnz invalid_operand_size cmp [code_type],16 je loop_jump_16bit cmp [code_type],64 je loop_jump_64bit loop_jump_32bit: cmp [code_type],64 je invalid_operand_size call get_address_dword_value cmp [code_type],16 jne loop_jump_32bit_prefix_ok mov byte [edi],66h inc edi loop_jump_32bit_prefix_ok: call loop_counter_size call calculate_jump_offset cdq make_loop_jump: call check_for_short_jump jc conditional_jump_short scas word [edi] jmp jump_out_of_range loop_counter_size: cmp [operand_prefix],0 je loop_counter_size_ok push eax mov al,[operand_prefix] stos byte [edi] pop eax loop_counter_size_ok: ret loop_jump_64bit: cmp [code_type],64 jne invalid_operand_size call get_address_qword_value call loop_counter_size call calculate_jump_offset mov ecx,edx cdq cmp edx,ecx jne value_out_of_range jmp make_loop_jump loop_jump_16bit: call get_address_word_value cmp [code_type],16 je loop_jump_16bit_prefix_ok mov byte [edi],66h inc edi loop_jump_16bit_prefix_ok: call loop_counter_size call calculate_jump_offset cwde cdq jmp make_loop_jump movs_instruction: lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address cmp [segment_register],1 ja invalid_address push ebx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address pop edx or eax,eax jnz invalid_address or bl,ch jnz invalid_address mov al,dh mov ah,bh shr al,4 shr ah,4 cmp al,ah jne address_sizes_do_not_agree and bh,111b and dh,111b cmp bh,6 jne invalid_address cmp dh,7 jne invalid_address cmp al,2 je movs_address_16bit cmp al,4 je movs_address_32bit cmp [code_type],64 jne invalid_address_size jmp movs_store movs_address_32bit: call address_32bit_prefix jmp movs_store movs_address_16bit: cmp [code_type],64 je invalid_address_size call address_16bit_prefix movs_store: cmp [segment_register],4 je movs_segment_ok call store_segment_prefix movs_segment_ok: mov al,0A4h movs_check_size: mov bl,[operand_size] cmp bl,1 je simple_instruction inc al cmp bl,2 je simple_instruction_16bit cmp bl,4 je simple_instruction_32bit cmp bl,8 je simple_instruction_64bit or bl,bl jnz invalid_operand_size cmp [error_line],0 jne simple_instruction mov ebx,[current_line] mov [error_line],ebx mov [error],operand_size_not_specified jmp simple_instruction lods_instruction: lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address cmp bh,26h je lods_address_16bit cmp bh,46h je lods_address_32bit cmp bh,86h jne invalid_address cmp [code_type],64 jne invalid_address_size jmp lods_store lods_address_32bit: call address_32bit_prefix jmp lods_store lods_address_16bit: cmp [code_type],64 je invalid_address_size call address_16bit_prefix lods_store: cmp [segment_register],4 je lods_segment_ok call store_segment_prefix lods_segment_ok: mov al,0ACh jmp movs_check_size stos_instruction: mov [base_code],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address cmp bh,27h je stos_address_16bit cmp bh,47h je stos_address_32bit cmp bh,87h jne invalid_address cmp [code_type],64 jne invalid_address_size jmp stos_store stos_address_32bit: call address_32bit_prefix jmp stos_store stos_address_16bit: cmp [code_type],64 je invalid_address_size call address_16bit_prefix stos_store: cmp [segment_register],1 ja invalid_address mov al,[base_code] jmp movs_check_size cmps_instruction: lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address mov al,[segment_register] push eax ebx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address pop edx eax cmp [segment_register],1 ja invalid_address mov [segment_register],al mov al,dh mov ah,bh shr al,4 shr ah,4 cmp al,ah jne address_sizes_do_not_agree and bh,111b and dh,111b cmp bh,7 jne invalid_address cmp dh,6 jne invalid_address cmp al,2 je cmps_address_16bit cmp al,4 je cmps_address_32bit cmp [code_type],64 jne invalid_address_size jmp cmps_store cmps_address_32bit: call address_32bit_prefix jmp cmps_store cmps_address_16bit: cmp [code_type],64 je invalid_address_size call address_16bit_prefix cmps_store: cmp [segment_register],4 je cmps_segment_ok call store_segment_prefix cmps_segment_ok: mov al,0A6h jmp movs_check_size ins_instruction: lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address cmp bh,27h je ins_address_16bit cmp bh,47h je ins_address_32bit cmp bh,87h jne invalid_address cmp [code_type],64 jne invalid_address_size jmp ins_store ins_address_32bit: call address_32bit_prefix jmp ins_store ins_address_16bit: cmp [code_type],64 je invalid_address_size call address_16bit_prefix ins_store: cmp [segment_register],1 ja invalid_address lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] cmp al,10h jne invalid_operand lods byte [esi] cmp al,22h jne invalid_operand mov al,6Ch ins_check_size: cmp [operand_size],8 jne movs_check_size jmp invalid_operand_size outs_instruction: lods byte [esi] cmp al,10h jne invalid_operand lods byte [esi] cmp al,22h jne invalid_operand lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address cmp bh,26h je outs_address_16bit cmp bh,46h je outs_address_32bit cmp bh,86h jne invalid_address cmp [code_type],64 jne invalid_address_size jmp outs_store outs_address_32bit: call address_32bit_prefix jmp outs_store outs_address_16bit: cmp [code_type],64 je invalid_address_size call address_16bit_prefix outs_store: cmp [segment_register],4 je outs_segment_ok call store_segment_prefix outs_segment_ok: mov al,6Eh jmp ins_check_size xlat_instruction: lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address or eax,eax jnz invalid_address or bl,ch jnz invalid_address cmp bh,23h je xlat_address_16bit cmp bh,43h je xlat_address_32bit cmp bh,83h jne invalid_address cmp [code_type],64 jne invalid_address_size jmp xlat_store xlat_address_32bit: call address_32bit_prefix jmp xlat_store xlat_address_16bit: cmp [code_type],64 je invalid_address_size call address_16bit_prefix xlat_store: call store_segment_prefix_if_necessary mov al,0D7h cmp [operand_size],1 jbe simple_instruction jmp invalid_operand_size pm_word_instruction: mov ah,al shr ah,4 and al,111b mov [base_code],0Fh mov [extended_code],ah mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,10h je pm_reg pm_mem: cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,2 je pm_mem_store or al,al jnz invalid_operand_size pm_mem_store: jmp instruction_ready pm_reg: lods byte [esi] call convert_register mov bl,al cmp ah,2 jne invalid_operand_size jmp nomem_instruction_ready pm_store_word_instruction: mov ah,al shr ah,4 and al,111b mov [base_code],0Fh mov [extended_code],ah mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,10h jne pm_mem lods byte [esi] call convert_register mov bl,al mov al,ah call operand_autodetect jmp nomem_instruction_ready lgdt_instruction: mov [base_code],0Fh mov [extended_code],1 mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,6 je lgdt_mem_48bit cmp al,10 je lgdt_mem_80bit or al,al jnz invalid_operand_size jmp lgdt_mem_store lgdt_mem_80bit: cmp [code_type],64 jne illegal_instruction jmp lgdt_mem_store lgdt_mem_48bit: cmp [code_type],64 je illegal_instruction cmp [postbyte_register],2 jb lgdt_mem_store call operand_32bit lgdt_mem_store: jmp instruction_ready lar_instruction: mov [extended_code],al mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand xor al,al xchg al,[operand_size] call operand_autodetect lods byte [esi] call get_size_operator cmp al,10h je lar_reg_reg cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz lar_reg_mem cmp al,2 jne invalid_operand_size lar_reg_mem: jmp instruction_ready lar_reg_reg: lods byte [esi] call convert_register cmp ah,2 jne invalid_operand_size mov bl,al jmp nomem_instruction_ready invlpg_instruction: mov [base_code],0Fh mov [extended_code],1 mov [postbyte_register],7 lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address jmp instruction_ready swapgs_instruction: mov [base_code],0Fh mov [extended_code],1 mov [postbyte_register],7 mov bl,al jmp nomem_instruction_ready basic_486_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h je basic_486_reg cmp al,'[' jne invalid_operand call get_address push edx ebx ecx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al pop ecx ebx edx mov al,ah cmp al,1 je basic_486_mem_reg_8bit call operand_autodetect inc [extended_code] basic_486_mem_reg_8bit: jmp instruction_ready basic_486_reg: lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov bl,[postbyte_register] mov [postbyte_register],al mov al,ah cmp al,1 je basic_486_reg_reg_8bit call operand_autodetect inc [extended_code] basic_486_reg_reg_8bit: jmp nomem_instruction_ready bswap_instruction: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register test al,1000b jz bswap_reg_code_ok or [rex_prefix],41h and al,111b bswap_reg_code_ok: add al,0C8h mov [extended_code],al mov [base_code],0Fh cmp ah,8 je bswap_reg64 cmp ah,4 jne invalid_operand_size call operand_32bit call store_instruction_code jmp instruction_assembled bswap_reg64: call operand_64bit call store_instruction_code jmp instruction_assembled cmpxchgx_instruction: mov [base_code],0Fh mov [extended_code],0C7h mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov ah,1 xchg [postbyte_register],ah mov al,[operand_size] or al,al jz cmpxchgx_size_ok cmp al,ah jne invalid_operand_size cmpxchgx_size_ok: cmp ah,16 jne cmpxchgx_store call operand_64bit cmpxchgx_store: jmp instruction_ready nop_instruction: mov ah,[esi] cmp ah,10h je extended_nop cmp ah,11h je extended_nop cmp ah,'[' je extended_nop stos byte [edi] jmp instruction_assembled extended_nop: mov [base_code],0Fh mov [extended_code],1Fh mov [postbyte_register],0 lods byte [esi] call get_size_operator cmp al,10h je extended_nop_reg cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz extended_nop_store call operand_autodetect extended_nop_store: jmp instruction_ready extended_nop_reg: lods byte [esi] call convert_register mov bl,al mov al,ah call operand_autodetect jmp nomem_instruction_ready basic_fpu_instruction: mov [postbyte_register],al mov [base_code],0D8h lods byte [esi] call get_size_operator cmp al,10h je basic_fpu_streg cmp al,'[' je basic_fpu_mem dec esi mov ah,[postbyte_register] cmp ah,2 jb invalid_operand cmp ah,3 ja invalid_operand mov bl,1 jmp nomem_instruction_ready basic_fpu_mem: call get_address mov al,[operand_size] cmp al,4 je basic_fpu_mem_32bit cmp al,8 je basic_fpu_mem_64bit or al,al jnz invalid_operand_size cmp [error_line],0 jne basic_fpu_mem_32bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified basic_fpu_mem_32bit: jmp instruction_ready basic_fpu_mem_64bit: mov [base_code],0DCh jmp instruction_ready basic_fpu_streg: lods byte [esi] call convert_fpu_register mov bl,al mov ah,[postbyte_register] cmp ah,2 je basic_fpu_single_streg cmp ah,3 je basic_fpu_single_streg or al,al jz basic_fpu_st0 test ah,110b jz basic_fpu_streg_st0 xor [postbyte_register],1 basic_fpu_streg_st0: lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_fpu_register or al,al jnz invalid_operand mov [base_code],0DCh jmp nomem_instruction_ready basic_fpu_st0: lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_fpu_register mov bl,al basic_fpu_single_streg: mov [base_code],0D8h jmp nomem_instruction_ready simple_fpu_instruction: mov ah,al or ah,11000000b mov al,0D9h stos word [edi] jmp instruction_assembled fi_instruction: mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,2 je fi_mem_16bit cmp al,4 je fi_mem_32bit or al,al jnz invalid_operand_size cmp [error_line],0 jne fi_mem_32bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified fi_mem_32bit: mov [base_code],0DAh jmp instruction_ready fi_mem_16bit: mov [base_code],0DEh jmp instruction_ready fld_instruction: mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,10h je fld_streg cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,4 je fld_mem_32bit cmp al,8 je fld_mem_64bit cmp al,10 je fld_mem_80bit or al,al jnz invalid_operand_size cmp [error_line],0 jne fld_mem_32bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified fld_mem_32bit: mov [base_code],0D9h jmp instruction_ready fld_mem_64bit: mov [base_code],0DDh jmp instruction_ready fld_mem_80bit: mov al,[postbyte_register] cmp al,0 je fld_mem_80bit_store dec [postbyte_register] cmp al,3 je fld_mem_80bit_store jmp invalid_operand_size fld_mem_80bit_store: add [postbyte_register],5 mov [base_code],0DBh jmp instruction_ready fld_streg: lods byte [esi] call convert_fpu_register mov bl,al cmp [postbyte_register],2 jae fst_streg mov [base_code],0D9h jmp nomem_instruction_ready fst_streg: mov [base_code],0DDh jmp nomem_instruction_ready fild_instruction: mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,2 je fild_mem_16bit cmp al,4 je fild_mem_32bit cmp al,8 je fild_mem_64bit or al,al jnz invalid_operand_size cmp [error_line],0 jne fild_mem_32bit mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified fild_mem_32bit: mov [base_code],0DBh jmp instruction_ready fild_mem_16bit: mov [base_code],0DFh jmp instruction_ready fild_mem_64bit: mov al,[postbyte_register] cmp al,1 je fisttp_64bit_store jb fild_mem_64bit_store dec [postbyte_register] cmp al,3 je fild_mem_64bit_store jmp invalid_operand_size fild_mem_64bit_store: add [postbyte_register],5 mov [base_code],0DFh jmp instruction_ready fisttp_64bit_store: mov [base_code],0DDh jmp instruction_ready fbld_instruction: mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz fbld_mem_80bit cmp al,10 je fbld_mem_80bit jmp invalid_operand_size fbld_mem_80bit: mov [base_code],0DFh jmp instruction_ready faddp_instruction: mov [postbyte_register],al mov [base_code],0DEh mov edx,esi lods byte [esi] call get_size_operator cmp al,10h je faddp_streg mov esi,edx mov bl,1 jmp nomem_instruction_ready faddp_streg: lods byte [esi] call convert_fpu_register mov bl,al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_fpu_register or al,al jnz invalid_operand jmp nomem_instruction_ready fcompp_instruction: mov ax,0D9DEh stos word [edi] jmp instruction_assembled fucompp_instruction: mov ax,0E9DAh stos word [edi] jmp instruction_assembled fxch_instruction: mov dx,01D9h jmp fpu_single_operand ffreep_instruction: mov dx,00DFh jmp fpu_single_operand ffree_instruction: mov dl,0DDh mov dh,al fpu_single_operand: mov ebx,esi lods byte [esi] call get_size_operator cmp al,10h je fpu_streg or dh,dh jz invalid_operand mov esi,ebx shl dh,3 or dh,11000001b mov ax,dx stos word [edi] jmp instruction_assembled fpu_streg: lods byte [esi] call convert_fpu_register shl dh,3 or dh,al or dh,11000000b mov ax,dx stos word [edi] jmp instruction_assembled fstenv_instruction: mov byte [edi],9Bh inc edi fldenv_instruction: mov [base_code],0D9h jmp fpu_mem fstenv_instruction_16bit: mov byte [edi],9Bh inc edi fldenv_instruction_16bit: call operand_16bit jmp fldenv_instruction fstenv_instruction_32bit: mov byte [edi],9Bh inc edi fldenv_instruction_32bit: call operand_32bit jmp fldenv_instruction fsave_instruction_32bit: mov byte [edi],9Bh inc edi fnsave_instruction_32bit: call operand_32bit jmp fnsave_instruction fsave_instruction_16bit: mov byte [edi],9Bh inc edi fnsave_instruction_16bit: call operand_16bit jmp fnsave_instruction fsave_instruction: mov byte [edi],9Bh inc edi fnsave_instruction: mov [base_code],0DDh fpu_mem: mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address cmp [operand_size],0 jne invalid_operand_size jmp instruction_ready fstcw_instruction: mov byte [edi],9Bh inc edi fldcw_instruction: mov [postbyte_register],al mov [base_code],0D9h lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz fldcw_mem_16bit cmp al,2 je fldcw_mem_16bit jmp invalid_operand_size fldcw_mem_16bit: jmp instruction_ready fstsw_instruction: mov al,9Bh stos byte [edi] fnstsw_instruction: mov [base_code],0DDh mov [postbyte_register],7 lods byte [esi] call get_size_operator cmp al,10h je fstsw_reg cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz fstsw_mem_16bit cmp al,2 je fstsw_mem_16bit jmp invalid_operand_size fstsw_mem_16bit: jmp instruction_ready fstsw_reg: lods byte [esi] call convert_register cmp ax,0200h jne invalid_operand mov ax,0E0DFh stos word [edi] jmp instruction_assembled finit_instruction: mov byte [edi],9Bh inc edi fninit_instruction: mov ah,al mov al,0DBh stos word [edi] jmp instruction_assembled fcmov_instruction: mov dh,0DAh jmp fcomi_streg fcomi_instruction: mov dh,0DBh jmp fcomi_streg fcomip_instruction: mov dh,0DFh fcomi_streg: mov dl,al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_fpu_register mov ah,al cmp byte [esi],',' je fcomi_st0_streg add ah,dl mov al,dh stos word [edi] jmp instruction_assembled fcomi_st0_streg: or ah,ah jnz invalid_operand inc esi lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_fpu_register mov ah,al add ah,dl mov al,dh stos word [edi] jmp instruction_assembled basic_mmx_instruction: mov [base_code],0Fh mov [extended_code],al mmx_instruction: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register call make_mmx_prefix mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je mmx_mmreg_mmreg cmp al,'[' jne invalid_operand mmx_mmreg_mem: call get_address jmp instruction_ready mmx_mmreg_mmreg: lods byte [esi] call convert_mmx_register mov bl,al jmp nomem_instruction_ready mmx_bit_shift_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register call make_mmx_prefix mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h je mmx_mmreg_mmreg cmp al,'(' je mmx_ps_mmreg_imm8 cmp al,'[' je mmx_mmreg_mem jmp invalid_operand mmx_ps_mmreg_imm8: call get_byte_value mov byte [value],al test [operand_size],not 1 jnz invalid_value mov bl,[extended_code] mov al,bl shr bl,4 and al,1111b add al,70h mov [extended_code],al sub bl,0Ch shl bl,1 xchg bl,[postbyte_register] call store_nomem_instruction mov al,byte [value] stos byte [edi] jmp instruction_assembled pmovmskb_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register cmp ah,4 je pmovmskb_reg_size_ok cmp [code_type],64 jne invalid_operand_size cmp ah,8 jnz invalid_operand_size pmovmskb_reg_size_ok: mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register mov bl,al call make_mmx_prefix cmp [extended_code],0C5h je mmx_nomem_imm8 jmp nomem_instruction_ready mmx_imm8: push ebx ecx edx xor cl,cl xchg cl,[operand_size] lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator test ah,not 1 jnz invalid_operand_size mov [operand_size],cl cmp al,'(' jne invalid_operand call get_byte_value mov byte [value],al pop edx ecx ebx call store_instruction_with_imm8 jmp instruction_assembled mmx_nomem_imm8: call store_nomem_instruction call append_imm8 jmp instruction_assembled append_imm8: mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator test ah,not 1 jnz invalid_operand_size cmp al,'(' jne invalid_operand call get_byte_value stosb ret pinsrw_instruction: mov [extended_code],al mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register call make_mmx_prefix mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je pinsrw_mmreg_reg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],0 je mmx_imm8 cmp [operand_size],2 jne invalid_operand_size jmp mmx_imm8 pinsrw_mmreg_reg: lods byte [esi] call convert_register cmp ah,4 jne invalid_operand_size mov bl,al jmp mmx_nomem_imm8 pshufw_instruction: mov [mmx_size],8 mov [opcode_prefix],al jmp pshuf_instruction pshufd_instruction: mov [mmx_size],16 mov [opcode_prefix],al pshuf_instruction: mov [base_code],0Fh mov [extended_code],70h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register cmp ah,[mmx_size] jne invalid_operand_size mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je pshuf_mmreg_mmreg cmp al,'[' jne invalid_operand call get_address jmp mmx_imm8 pshuf_mmreg_mmreg: lods byte [esi] call convert_mmx_register mov bl,al jmp mmx_nomem_imm8 movd_instruction: mov [base_code],0Fh mov [extended_code],7Eh lods byte [esi] call get_size_operator cmp al,10h je movd_reg cmp al,'[' jne invalid_operand call get_address test [operand_size],not 4 jnz invalid_operand_size mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register call make_mmx_prefix mov [postbyte_register],al jmp instruction_ready movd_reg: lods byte [esi] cmp al,0B0h jae movd_mmreg call convert_register cmp ah,4 jne invalid_operand_size mov [operand_size],0 mov bl,al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register mov [postbyte_register],al call make_mmx_prefix jmp nomem_instruction_ready movd_mmreg: mov [extended_code],6Eh call convert_mmx_register call make_mmx_prefix mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je movd_mmreg_reg cmp al,'[' jne invalid_operand call get_address test [operand_size],not 4 jnz invalid_operand_size jmp instruction_ready movd_mmreg_reg: lods byte [esi] call convert_register cmp ah,4 jne invalid_operand_size mov bl,al jmp nomem_instruction_ready make_mmx_prefix: cmp [vex_required],0 jne mmx_prefix_for_vex cmp [operand_size],16 jne no_mmx_prefix mov [operand_prefix],66h no_mmx_prefix: ret mmx_prefix_for_vex: cmp [operand_size],16 jne invalid_operand mov [opcode_prefix],66h ret movq_instruction: mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,10h je movq_reg cmp al,'[' jne invalid_operand call get_address test [operand_size],not 8 jnz invalid_operand_size mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register mov [postbyte_register],al cmp ah,16 je movq_mem_xmmreg mov [extended_code],7Fh jmp instruction_ready movq_mem_xmmreg: mov [extended_code],0D6h mov [opcode_prefix],66h jmp instruction_ready movq_reg: lods byte [esi] cmp al,0B0h jae movq_mmreg call convert_register cmp ah,8 jne invalid_operand_size mov bl,al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand mov [operand_size],0 lods byte [esi] call convert_mmx_register mov [postbyte_register],al call make_mmx_prefix mov [extended_code],7Eh call operand_64bit jmp nomem_instruction_ready movq_mmreg: call convert_mmx_register mov [postbyte_register],al mov [extended_code],6Fh mov [mmx_size],ah cmp ah,16 jne movq_mmreg_ mov [extended_code],7Eh mov [opcode_prefix],0F3h movq_mmreg_: lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h je movq_mmreg_reg call get_address test [operand_size],not 8 jnz invalid_operand_size jmp instruction_ready movq_mmreg_reg: lods byte [esi] cmp al,0B0h jae movq_mmreg_mmreg mov [operand_size],0 call convert_register cmp ah,8 jne invalid_operand_size mov [extended_code],6Eh mov [opcode_prefix],0 mov bl,al cmp [mmx_size],16 jne movq_mmreg_reg_store mov [opcode_prefix],66h movq_mmreg_reg_store: call operand_64bit jmp nomem_instruction_ready movq_mmreg_mmreg: call convert_mmx_register cmp ah,[mmx_size] jne invalid_operand_size mov bl,al jmp nomem_instruction_ready movdq_instruction: mov [opcode_prefix],al mov [base_code],0Fh mov [extended_code],6Fh lods byte [esi] call get_size_operator cmp al,10h je movdq_mmreg cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al mov [extended_code],7Fh jmp instruction_ready movdq_mmreg: lods byte [esi] call convert_xmm_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je movdq_mmreg_mmreg cmp al,'[' jne invalid_operand call get_address jmp instruction_ready movdq_mmreg_mmreg: lods byte [esi] call convert_xmm_register mov bl,al jmp nomem_instruction_ready lddqu_instruction: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register push eax lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address pop eax mov [postbyte_register],al mov [opcode_prefix],0F2h mov [base_code],0Fh mov [extended_code],0F0h jmp instruction_ready movdq2q_instruction: mov [opcode_prefix],0F2h mov [mmx_size],8 jmp movq2dq_ movq2dq_instruction: mov [opcode_prefix],0F3h mov [mmx_size],16 movq2dq_: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register cmp ah,[mmx_size] jne invalid_operand_size mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register xor [mmx_size],8+16 cmp ah,[mmx_size] jne invalid_operand_size mov bl,al mov [base_code],0Fh mov [extended_code],0D6h jmp nomem_instruction_ready sse_ps_instruction_imm8: mov [immediate_size],1 sse_ps_instruction: mov [mmx_size],16 jmp sse_instruction sse_pd_instruction_imm8: mov [immediate_size],1 sse_pd_instruction: mov [mmx_size],16 mov [opcode_prefix],66h jmp sse_instruction sse_ss_instruction: mov [mmx_size],4 mov [opcode_prefix],0F3h jmp sse_instruction sse_sd_instruction: mov [mmx_size],8 mov [opcode_prefix],0F2h jmp sse_instruction cmp_pd_instruction: mov [opcode_prefix],66h cmp_ps_instruction: mov [mmx_size],16 mov byte [value],al mov al,0C2h jmp sse_instruction cmp_ss_instruction: mov [mmx_size],4 mov [opcode_prefix],0F3h jmp cmp_sx_instruction cmpsd_instruction: mov al,0A7h mov ah,[esi] or ah,ah jz simple_instruction_32bit cmp ah,0Fh je simple_instruction_32bit mov al,-1 cmp_sd_instruction: mov [mmx_size],8 mov [opcode_prefix],0F2h cmp_sx_instruction: mov byte [value],al mov al,0C2h jmp sse_instruction comiss_instruction: mov [mmx_size],4 jmp sse_instruction comisd_instruction: mov [mmx_size],8 mov [opcode_prefix],66h jmp sse_instruction cvtdq2pd_instruction: mov [opcode_prefix],0F3h cvtps2pd_instruction: mov [mmx_size],8 jmp sse_instruction cvtpd2dq_instruction: mov [mmx_size],16 mov [opcode_prefix],0F2h jmp sse_instruction movshdup_instruction: mov [mmx_size],16 mov [opcode_prefix],0F3h sse_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand sse_xmmreg: lods byte [esi] call convert_xmm_register sse_reg: mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je sse_xmmreg_xmmreg sse_reg_mem: cmp al,'[' jne invalid_operand call get_address cmp [operand_size],0 je sse_mem_size_ok mov al,[mmx_size] cmp [operand_size],al jne invalid_operand_size sse_mem_size_ok: cmp [extended_code],0C2h je sse_cmp_mem_ok cmp [immediate_size],1 je mmx_imm8 cmp [immediate_size],-1 jne sse_ok call take_additional_xmm0 mov [immediate_size],0 sse_ok: jmp instruction_ready sse_cmp_mem_ok: cmp byte [value],-1 je mmx_imm8 call store_instruction_with_imm8 jmp instruction_assembled sse_xmmreg_xmmreg: cmp [operand_prefix],66h jne sse_xmmreg_xmmreg_ok cmp [extended_code],12h je invalid_operand cmp [extended_code],16h je invalid_operand sse_xmmreg_xmmreg_ok: lods byte [esi] call convert_xmm_register mov bl,al cmp [extended_code],0C2h je sse_cmp_nomem_ok cmp [immediate_size],1 je mmx_nomem_imm8 cmp [immediate_size],-1 jne sse_nomem_ok call take_additional_xmm0 mov [immediate_size],0 sse_nomem_ok: jmp nomem_instruction_ready sse_cmp_nomem_ok: cmp byte [value],-1 je mmx_nomem_imm8 call store_nomem_instruction mov al,byte [value] stosb jmp instruction_assembled take_additional_xmm0: cmp byte [esi],',' jne additional_xmm0_ok inc esi lods byte [esi] cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register test al,al jnz invalid_operand additional_xmm0_ok: ret pslldq_instruction: mov [postbyte_register],al mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],73h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov bl,al jmp mmx_nomem_imm8 movpd_instruction: mov [opcode_prefix],66h movps_instruction: mov [base_code],0Fh mov [extended_code],al mov [mmx_size],16 jmp sse_mov_instruction movss_instruction: mov [mmx_size],4 mov [opcode_prefix],0F3h jmp sse_movs movsd_instruction: mov al,0A5h mov ah,[esi] or ah,ah jz simple_instruction_32bit cmp ah,0Fh je simple_instruction_32bit mov [mmx_size],8 mov [opcode_prefix],0F2h sse_movs: mov [base_code],0Fh mov [extended_code],10h jmp sse_mov_instruction sse_mov_instruction: lods byte [esi] call get_size_operator cmp al,10h je sse_xmmreg sse_mem: cmp al,'[' jne invalid_operand inc [extended_code] call get_address cmp [operand_size],0 je sse_mem_xmmreg mov al,[mmx_size] cmp [operand_size],al jne invalid_operand_size mov [operand_size],0 sse_mem_xmmreg: lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al jmp instruction_ready movlpd_instruction: mov [opcode_prefix],66h movlps_instruction: mov [base_code],0Fh mov [extended_code],al mov [mmx_size],8 lods byte [esi] call get_size_operator cmp al,10h jne sse_mem lods byte [esi] call convert_xmm_register mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator jmp sse_reg_mem movhlps_instruction: mov [base_code],0Fh mov [extended_code],al mov [mmx_size],0 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je sse_xmmreg_xmmreg_ok jmp invalid_operand maskmovq_instruction: mov cl,8 jmp maskmov_instruction maskmovdqu_instruction: mov cl,16 mov [opcode_prefix],66h maskmov_instruction: mov [base_code],0Fh mov [extended_code],0F7h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register cmp ah,cl jne invalid_operand_size mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register mov bl,al jmp nomem_instruction_ready movmskpd_instruction: mov [opcode_prefix],66h movmskps_instruction: mov [base_code],0Fh mov [extended_code],50h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al cmp ah,4 je movmskps_reg_ok cmp ah,8 jne invalid_operand_size cmp [code_type],64 jne invalid_operand movmskps_reg_ok: mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je sse_xmmreg_xmmreg_ok jmp invalid_operand cvtpi2pd_instruction: mov [opcode_prefix],66h cvtpi2ps_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je cvtpi_xmmreg_xmmreg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],0 je cvtpi_size_ok cmp [operand_size],8 jne invalid_operand_size cvtpi_size_ok: jmp instruction_ready cvtpi_xmmreg_xmmreg: lods byte [esi] call convert_mmx_register cmp ah,8 jne invalid_operand_size mov bl,al jmp nomem_instruction_ready cvtsi2ss_instruction: mov [opcode_prefix],0F3h jmp cvtsi_instruction cvtsi2sd_instruction: mov [opcode_prefix],0F2h cvtsi_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al cvtsi_xmmreg: mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je cvtsi_xmmreg_reg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],0 je cvtsi_size_ok cmp [operand_size],4 je cvtsi_size_ok cmp [operand_size],8 jne invalid_operand_size call operand_64bit cvtsi_size_ok: jmp instruction_ready cvtsi_xmmreg_reg: lods byte [esi] call convert_register cmp ah,4 je cvtsi_xmmreg_reg_store cmp ah,8 jne invalid_operand_size call operand_64bit cvtsi_xmmreg_reg_store: mov bl,al jmp nomem_instruction_ready cvtps2pi_instruction: mov [mmx_size],8 jmp cvtpd_instruction cvtpd2pi_instruction: mov [opcode_prefix],66h mov [mmx_size],16 cvtpd_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register cmp ah,8 jne invalid_operand_size mov [operand_size],0 jmp sse_reg cvtss2si_instruction: mov [opcode_prefix],0F3h mov [mmx_size],4 jmp cvt2si_instruction cvtsd2si_instruction: mov [opcode_prefix],0F2h mov [mmx_size],8 cvt2si_instruction: mov [extended_code],al mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [operand_size],0 cmp ah,4 je sse_reg cmp ah,8 jne invalid_operand_size call operand_64bit jmp sse_reg ssse3_instruction: mov [base_code],0Fh mov [extended_code],38h mov [supplemental_code],al jmp mmx_instruction palignr_instruction: mov [base_code],0Fh mov [extended_code],3Ah mov [supplemental_code],0Fh lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register call make_mmx_prefix mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je palignr_mmreg_mmreg cmp al,'[' jne invalid_operand call get_address jmp mmx_imm8 palignr_mmreg_mmreg: lods byte [esi] call convert_mmx_register mov bl,al jmp mmx_nomem_imm8 amd3dnow_instruction: mov [base_code],0Fh mov [extended_code],0Fh mov byte [value],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register cmp ah,8 jne invalid_operand_size mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je amd3dnow_mmreg_mmreg cmp al,'[' jne invalid_operand call get_address call store_instruction_with_imm8 jmp instruction_assembled amd3dnow_mmreg_mmreg: lods byte [esi] call convert_mmx_register cmp ah,8 jne invalid_operand_size mov bl,al call store_nomem_instruction mov al,byte [value] stos byte [edi] jmp instruction_assembled sse4_instruction_38_xmm0: mov [immediate_size],-1 sse4_instruction_38: mov [mmx_size],16 mov [opcode_prefix],66h mov [supplemental_code],al mov al,38h jmp sse_instruction sse4_ss_instruction_3a_imm8: mov [immediate_size],1 mov [mmx_size],4 jmp sse4_instruction_3a_setup sse4_sd_instruction_3a_imm8: mov [immediate_size],1 mov [mmx_size],8 jmp sse4_instruction_3a_setup sse4_instruction_3a_imm8: mov [immediate_size],1 mov [mmx_size],16 sse4_instruction_3a_setup: mov [opcode_prefix],66h mov [supplemental_code],al mov al,3Ah jmp sse_instruction extractps_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],3Ah mov [supplemental_code],17h lods byte [esi] call get_size_operator cmp al,10h je extractps_reg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],4 je extractps_size_ok cmp [operand_size],0 jne invalid_operand_size extractps_size_ok: push edx ebx ecx mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al pop ecx ebx edx jmp mmx_imm8 extractps_reg: lods byte [esi] call convert_register push eax mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al pop ebx mov al,bh cmp al,4 je mmx_nomem_imm8 cmp al,8 jne invalid_operand_size call operand_64bit jmp mmx_nomem_imm8 insertps_instruction: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al insertps_xmmreg: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],3Ah mov [supplemental_code],21h mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je insertps_xmmreg_reg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],4 je insertps_size_ok cmp [operand_size],0 jne invalid_operand_size insertps_size_ok: jmp mmx_imm8 insertps_xmmreg_reg: lods byte [esi] call convert_mmx_register mov bl,al jmp mmx_nomem_imm8 pextrq_instruction: mov [mmx_size],8 jmp pextr_instruction pextrd_instruction: mov [mmx_size],4 jmp pextr_instruction pextrw_instruction: mov [mmx_size],2 jmp pextr_instruction pextrb_instruction: mov [mmx_size],1 pextr_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],3Ah mov [supplemental_code],al lods byte [esi] call get_size_operator cmp al,10h je pextr_reg cmp al,'[' jne invalid_operand call get_address mov al,[mmx_size] cmp al,[operand_size] je pextr_size_ok cmp [operand_size],0 jne invalid_operand_size pextr_size_ok: cmp al,8 jne pextr_prefix_ok call operand_64bit pextr_prefix_ok: push edx ebx ecx mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al pop ecx ebx edx jmp mmx_imm8 pextr_reg: lods byte [esi] call convert_register cmp [mmx_size],4 ja pextrq_reg cmp ah,4 je pextr_reg_size_ok cmp [code_type],64 jne pextr_invalid_size cmp ah,8 je pextr_reg_size_ok pextr_invalid_size: jmp invalid_operand_size pextrq_reg: cmp ah,8 jne pextr_invalid_size call operand_64bit pextr_reg_size_ok: mov [operand_size],0 push eax lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register mov ebx,eax pop eax mov [postbyte_register],al mov al,ah cmp [mmx_size],2 jne pextr_reg_store mov [opcode_prefix],0 mov [extended_code],0C5h call make_mmx_prefix jmp mmx_nomem_imm8 pextr_reg_store: cmp bh,16 jne invalid_operand_size xchg bl,[postbyte_register] call operand_autodetect jmp mmx_nomem_imm8 pinsrb_instruction: mov [mmx_size],1 jmp pinsr_instruction pinsrd_instruction: mov [mmx_size],4 jmp pinsr_instruction pinsrq_instruction: mov [mmx_size],8 call operand_64bit pinsr_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],3Ah mov [supplemental_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al pinsr_xmmreg: mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je pinsr_xmmreg_reg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],0 je mmx_imm8 mov al,[mmx_size] cmp al,[operand_size] je mmx_imm8 jmp invalid_operand_size pinsr_xmmreg_reg: lods byte [esi] call convert_register mov bl,al cmp [mmx_size],8 je pinsrq_xmmreg_reg cmp ah,4 je mmx_nomem_imm8 jmp invalid_operand_size pinsrq_xmmreg_reg: cmp ah,8 je mmx_nomem_imm8 jmp invalid_operand_size pmovsxbw_instruction: mov [mmx_size],8 jmp pmovsx_instruction pmovsxbd_instruction: mov [mmx_size],4 jmp pmovsx_instruction pmovsxbq_instruction: mov [mmx_size],2 jmp pmovsx_instruction pmovsxwd_instruction: mov [mmx_size],8 jmp pmovsx_instruction pmovsxwq_instruction: mov [mmx_size],4 jmp pmovsx_instruction pmovsxdq_instruction: mov [mmx_size],8 pmovsx_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],38h mov [supplemental_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h je pmovsx_xmmreg_reg cmp al,'[' jne invalid_operand call get_address cmp [operand_size],0 je mmx_imm8 mov al,[mmx_size] cmp al,[operand_size] jne invalid_operand_size jmp instruction_ready pmovsx_xmmreg_reg: lods byte [esi] call convert_xmm_register mov bl,al jmp nomem_instruction_ready fxsave_instruction_64bit: call operand_64bit fxsave_instruction: mov [extended_code],0AEh mov [base_code],0Fh mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov ah,[operand_size] or ah,ah jz fxsave_size_ok mov al,[postbyte_register] cmp al,111b je clflush_size_check cmp al,10b jb invalid_operand_size cmp al,11b ja invalid_operand_size cmp ah,4 jne invalid_operand_size jmp fxsave_size_ok clflush_size_check: cmp ah,1 jne invalid_operand_size fxsave_size_ok: jmp instruction_ready prefetch_instruction: mov [extended_code],18h prefetch_mem_8bit: mov [base_code],0Fh mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand or ah,ah jz prefetch_size_ok cmp ah,1 jne invalid_operand_size prefetch_size_ok: call get_address jmp instruction_ready amd_prefetch_instruction: mov [extended_code],0Dh jmp prefetch_mem_8bit fence_instruction: mov bl,al mov ax,0AE0Fh stos word [edi] mov al,bl stos byte [edi] jmp instruction_assembled pause_instruction: mov ax,90F3h stos word [edi] jmp instruction_assembled movntq_instruction: mov [mmx_size],8 jmp movnt_instruction movntpd_instruction: mov [opcode_prefix],66h movntps_instruction: mov [mmx_size],16 movnt_instruction: mov [extended_code],al mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_mmx_register cmp ah,[mmx_size] jne invalid_operand_size mov [postbyte_register],al jmp instruction_ready movntsd_instruction: mov [opcode_prefix],0F2h mov [mmx_size],8 jmp movnts_instruction movntss_instruction: mov [opcode_prefix],0F3h mov [mmx_size],4 movnts_instruction: mov [extended_code],al mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] cmp al,[mmx_size] je movnts_size_ok test al,al jnz invalid_operand_size movnts_size_ok: lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al jmp instruction_ready movnti_instruction: mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register cmp ah,4 je movnti_store cmp ah,8 jne invalid_operand_size call operand_64bit movnti_store: mov [postbyte_register],al jmp instruction_ready monitor_instruction: mov [postbyte_register],al cmp byte [esi],0 je monitor_instruction_store cmp byte [esi],0Fh je monitor_instruction_store lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register cmp ax,0400h jne invalid_operand lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register cmp ax,0401h jne invalid_operand cmp [postbyte_register],0C8h jne monitor_instruction_store lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register cmp ax,0402h jne invalid_operand monitor_instruction_store: mov ax,010Fh stos word [edi] mov al,[postbyte_register] stos byte [edi] jmp instruction_assembled movntdqa_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],38h mov [supplemental_code],2Ah lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address jmp instruction_ready extrq_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],78h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je extrq_xmmreg_xmmreg test ah,not 1 jnz invalid_operand_size cmp al,'(' jne invalid_operand xor bl,bl xchg bl,[postbyte_register] call store_nomem_instruction call get_byte_value stosb call append_imm8 jmp instruction_assembled extrq_xmmreg_xmmreg: inc [extended_code] lods byte [esi] call convert_xmm_register mov bl,al jmp nomem_instruction_ready insertq_instruction: mov [opcode_prefix],0F2h mov [base_code],0Fh mov [extended_code],78h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [postbyte_register],al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov bl,al cmp byte [esi],',' je insertq_with_imm inc [extended_code] jmp nomem_instruction_ready insertq_with_imm: call store_nomem_instruction call append_imm8 call append_imm8 jmp instruction_assembled crc32_instruction: mov [opcode_prefix],0F2h mov [base_code],0Fh mov [extended_code],38h mov [supplemental_code],0F0h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al cmp ah,8 je crc32_reg64 cmp ah,4 jne invalid_operand lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h je crc32_reg32_reg cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] test al,al jz crc32_unknown_size cmp al,1 je crc32_reg32_mem_store cmp al,4 ja invalid_operand_size inc [supplemental_code] call operand_autodetect crc32_reg32_mem_store: jmp instruction_ready crc32_unknown_size: cmp [error_line],0 jne crc32_reg32_mem_store mov eax,[current_line] mov [error_line],eax mov [error],operand_size_not_specified jmp crc32_reg32_mem_store crc32_reg32_reg: lods byte [esi] call convert_register mov bl,al mov al,ah cmp al,1 je crc32_reg32_reg_store cmp al,4 ja invalid_operand_size inc [supplemental_code] call operand_autodetect crc32_reg32_reg_store: jmp nomem_instruction_ready crc32_reg64: lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 call operand_64bit lods byte [esi] call get_size_operator cmp al,10h je crc32_reg64_reg cmp al,'[' jne invalid_operand call get_address mov ah,[operand_size] mov al,8 test ah,ah jz crc32_unknown_size cmp ah,1 je crc32_reg32_mem_store cmp ah,al jne invalid_operand_size inc [supplemental_code] jmp crc32_reg32_mem_store crc32_reg64_reg: lods byte [esi] call convert_register mov bl,al mov al,8 cmp ah,1 je crc32_reg32_reg_store cmp ah,al jne invalid_operand_size inc [supplemental_code] jmp crc32_reg32_reg_store popcnt_instruction: mov [opcode_prefix],0F3h jmp bs_instruction movbe_instruction: mov [supplemental_code],al mov [extended_code],38h mov [base_code],0Fh lods byte [esi] call get_size_operator cmp al,'[' je movbe_mem cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_argument call get_address mov al,[operand_size] call operand_autodetect jmp instruction_ready movbe_mem: inc [supplemental_code] call get_address push edx ebx ecx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al pop ecx ebx edx mov al,[operand_size] call operand_autodetect jmp instruction_ready simple_vmx_instruction: mov ah,al mov al,0Fh stos byte [edi] mov al,1 stos word [edi] jmp instruction_assembled vmclear_instruction: mov [opcode_prefix],66h jmp vmx_instruction vmxon_instruction: mov [opcode_prefix],0F3h vmx_instruction: mov [postbyte_register],al mov [extended_code],0C7h lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz vmx_size_ok cmp al,8 jne invalid_operand_size vmx_size_ok: mov [base_code],0Fh jmp instruction_ready vmread_instruction: mov [extended_code],78h lods byte [esi] call get_size_operator cmp al,10h je vmread_nomem cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al call vmread_check_size jmp vmx_size_ok vmread_nomem: lods byte [esi] call convert_register push eax call vmread_check_size lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al call vmread_check_size pop ebx mov [base_code],0Fh jmp nomem_instruction_ready vmread_check_size: cmp [code_type],64 je vmread_long cmp [operand_size],4 jne invalid_operand_size ret vmread_long: cmp [operand_size],8 jne invalid_operand_size ret vmwrite_instruction: mov [extended_code],79h lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h je vmwrite_nomem cmp al,'[' jne invalid_operand call get_address call vmread_check_size jmp vmx_size_ok vmwrite_nomem: lods byte [esi] call convert_register mov bl,al mov [base_code],0Fh jmp nomem_instruction_ready vmx_inv_instruction: mov [opcode_prefix],66h mov [extended_code],38h mov [supplemental_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al call vmread_check_size mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz vmx_size_ok cmp al,16 jne invalid_operand_size jmp vmx_size_ok simple_svm_instruction: push eax mov [base_code],0Fh mov [extended_code],1 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register or al,al jnz invalid_operand simple_svm_detect_size: cmp ah,2 je simple_svm_16bit cmp ah,4 je simple_svm_32bit cmp [code_type],64 jne invalid_operand_size jmp simple_svm_store simple_svm_16bit: cmp [code_type],16 je simple_svm_store cmp [code_type],64 je invalid_operand_size jmp prefixed_svm_store simple_svm_32bit: cmp [code_type],32 je simple_svm_store prefixed_svm_store: mov al,67h stos byte [edi] simple_svm_store: call store_instruction_code pop eax stos byte [edi] jmp instruction_assembled skinit_instruction: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register cmp ax,0400h jne invalid_operand mov al,0DEh jmp simple_vmx_instruction invlpga_instruction: push eax mov [base_code],0Fh mov [extended_code],1 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register or al,al jnz invalid_operand mov bl,ah mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register cmp ax,0401h jne invalid_operand mov ah,bl jmp simple_svm_detect_size rdrand_instruction: mov [base_code],0Fh mov [extended_code],0C7h mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov bl,al mov al,ah call operand_autodetect jmp nomem_instruction_ready rdfsbase_instruction: mov [opcode_prefix],0F3h mov [base_code],0Fh mov [extended_code],0AEh mov [postbyte_register],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov bl,al mov al,ah cmp ah,2 je invalid_operand_size call operand_autodetect jmp nomem_instruction_ready convert_register: mov ah,al shr ah,4 and al,0Fh cmp ah,8 je match_register_size cmp ah,4 ja invalid_operand cmp ah,1 ja match_register_size cmp al,4 jb match_register_size or ah,ah jz high_byte_register or [rex_prefix],40h match_register_size: cmp ah,[operand_size] je register_size_ok cmp [operand_size],0 jne operand_sizes_do_not_match mov [operand_size],ah register_size_ok: ret high_byte_register: mov ah,1 or [rex_prefix],80h jmp match_register_size convert_fpu_register: mov ah,al shr ah,4 and al,111b cmp ah,10 jne invalid_operand jmp match_register_size convert_mmx_register: mov ah,al shr ah,4 cmp ah,0Ch je xmm_register ja invalid_operand and al,111b cmp ah,0Bh jne invalid_operand mov ah,8 cmp [vex_required],0 jne invalid_operand jmp match_register_size xmm_register: and al,0Fh mov ah,16 cmp al,8 jb match_register_size cmp [code_type],64 jne invalid_operand jmp match_register_size convert_xmm_register: mov ah,al shr ah,4 cmp ah,0Ch je xmm_register jmp invalid_operand get_size_operator: xor ah,ah cmp al,11h jne no_size_operator mov [size_declared],1 lods word [esi] xchg al,ah mov [size_override],1 cmp ah,[operand_size] je size_operator_ok cmp [operand_size],0 jne operand_sizes_do_not_match mov [operand_size],ah size_operator_ok: ret no_size_operator: mov [size_declared],0 cmp al,'[' jne size_operator_ok mov [size_override],0 ret get_jump_operator: mov [jump_type],0 cmp al,12h jne jump_operator_ok lods word [esi] mov [jump_type],al mov al,ah jump_operator_ok: ret get_address: mov [segment_register],0 mov [address_size],0 mov al,[code_type] shr al,3 mov [value_size],al mov al,[esi] and al,11110000b cmp al,60h jne get_size_prefix lods byte [esi] sub al,60h mov [segment_register],al mov al,[esi] and al,11110000b get_size_prefix: cmp al,70h jne address_size_prefix_ok lods byte [esi] sub al,70h cmp al,2 jb invalid_address_size cmp al,8 ja invalid_address_size mov [address_size],al mov [value_size],al address_size_prefix_ok: call calculate_address cmp byte [esi-1],']' jne invalid_address mov [address_high],edx mov edx,eax cmp [code_type],64 jne address_ok or bx,bx jnz address_ok test ch,0Fh jnz address_ok calculate_relative_address: mov edx,[address_symbol] mov [symbol_identifier],edx mov edx,[address_high] call calculate_relative_offset mov [address_high],edx cdq cmp edx,[address_high] je address_high_ok cmp [error_line],0 jne address_high_ok mov ebx,[current_line] mov [error_line],ebx mov [error],value_out_of_range address_high_ok: mov edx,eax ror ecx,16 mov cl,[value_type] rol ecx,16 mov bx,0FF00h address_ok: ret operand_16bit: cmp [code_type],16 je size_prefix_ok mov [operand_prefix],66h ret operand_32bit: cmp [code_type],16 jne size_prefix_ok mov [operand_prefix],66h size_prefix_ok: ret operand_64bit: cmp [code_type],64 jne illegal_instruction or [rex_prefix],48h ret operand_autodetect: cmp al,2 je operand_16bit cmp al,4 je operand_32bit cmp al,8 je operand_64bit jmp invalid_operand_size store_segment_prefix_if_necessary: mov al,[segment_register] or al,al jz segment_prefix_ok cmp al,4 ja segment_prefix_386 cmp [code_type],64 je segment_prefix_ok cmp al,3 je ss_prefix jb segment_prefix_86 cmp bl,25h je segment_prefix_86 cmp bh,25h je segment_prefix_86 cmp bh,45h je segment_prefix_86 cmp bh,44h je segment_prefix_86 ret ss_prefix: cmp bl,25h je segment_prefix_ok cmp bh,25h je segment_prefix_ok cmp bh,45h je segment_prefix_ok cmp bh,44h je segment_prefix_ok jmp segment_prefix_86 store_segment_prefix: mov al,[segment_register] or al,al jz segment_prefix_ok cmp al,5 jae segment_prefix_386 segment_prefix_86: dec al shl al,3 add al,26h stos byte [edi] jmp segment_prefix_ok segment_prefix_386: add al,64h-5 stos byte [edi] segment_prefix_ok: ret store_instruction_code: cmp [vex_required],0 jne store_vex_instruction_code mov al,[operand_prefix] or al,al jz operand_prefix_ok stos byte [edi] operand_prefix_ok: mov al,[opcode_prefix] or al,al jz opcode_prefix_ok stos byte [edi] opcode_prefix_ok: mov al,[rex_prefix] test al,40h jz rex_prefix_ok cmp [code_type],64 jne invalid_operand test al,0B0h jnz prefix_conflict stos byte [edi] rex_prefix_ok: mov al,[base_code] stos byte [edi] cmp al,0Fh jne instruction_code_ok store_extended_code: mov al,[extended_code] stos byte [edi] cmp al,38h je store_supplemental_code cmp al,3Ah je store_supplemental_code instruction_code_ok: ret store_supplemental_code: mov al,[supplemental_code] stos byte [edi] ret store_nomem_instruction: test [postbyte_register],1000b jz nomem_reg_code_ok or [rex_prefix],44h and [postbyte_register],111b nomem_reg_code_ok: test bl,1000b jz nomem_rm_code_ok or [rex_prefix],41h and bl,111b nomem_rm_code_ok: call store_instruction_code mov al,[postbyte_register] shl al,3 or al,bl or al,11000000b stos byte [edi] ret store_instruction: mov [current_offset],edi test [postbyte_register],1000b jz reg_code_ok or [rex_prefix],44h and [postbyte_register],111b reg_code_ok: call store_segment_prefix_if_necessary or bx,bx jz address_immediate cmp bx,0F800h je address_rip_based cmp bx,0F400h je address_eip_based cmp bx,0FF00h je address_relative mov al,bl or al,bh and al,11110000b cmp al,80h je postbyte_64bit cmp al,40h je postbyte_32bit cmp al,20h jne invalid_address cmp [code_type],64 je invalid_address_size call address_16bit_prefix call store_instruction_code cmp bl,bh jbe determine_16bit_address xchg bl,bh determine_16bit_address: cmp bx,2600h je address_si cmp bx,2700h je address_di cmp bx,2300h je address_bx cmp bx,2500h je address_bp cmp bx,2625h je address_bp_si cmp bx,2725h je address_bp_di cmp bx,2723h je address_bx_di cmp bx,2623h jne invalid_address address_bx_si: xor al,al jmp postbyte_16bit address_bx_di: mov al,1 jmp postbyte_16bit address_bp_si: mov al,10b jmp postbyte_16bit address_bp_di: mov al,11b jmp postbyte_16bit address_si: mov al,100b jmp postbyte_16bit address_di: mov al,101b jmp postbyte_16bit address_bx: mov al,111b jmp postbyte_16bit address_bp: mov al,110b postbyte_16bit: test ch,22h jnz address_16bit_value or ch,ch jnz address_sizes_do_not_agree cmp edx,10000h jge value_out_of_range cmp edx,-8000h jl value_out_of_range or dx,dx jz address cmp dx,80h jb address_8bit_value cmp dx,-80h jae address_8bit_value address_16bit_value: or al,10000000b mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] mov eax,edx stos word [edi] ret address_8bit_value: or al,01000000b mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] mov al,dl stos byte [edi] cmp dx,80h jge value_out_of_range cmp dx,-80h jl value_out_of_range ret address: cmp al,110b je address_8bit_value mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] ret postbyte_32bit: call address_32bit_prefix jmp address_prefix_ok postbyte_64bit: cmp [code_type],64 jne invalid_address_size address_prefix_ok: cmp bl,44h je invalid_address cmp bl,84h je invalid_address test bh,1000b jz base_code_ok or [rex_prefix],41h base_code_ok: test bl,1000b jz index_code_ok or [rex_prefix],42h index_code_ok: call store_instruction_code or cl,cl jz only_base_register base_and_index: mov al,100b xor ah,ah cmp cl,1 je scale_ok cmp cl,2 je scale_1 cmp cl,4 je scale_2 or ah,11000000b jmp scale_ok scale_2: or ah,10000000b jmp scale_ok scale_1: or ah,01000000b scale_ok: or bh,bh jz only_index_register and bl,111b shl bl,3 or ah,bl and bh,111b or ah,bh test ch,44h jnz sib_address_32bit_value test ch,88h jnz sib_address_32bit_value or ch,ch jnz address_sizes_do_not_agree cmp bh,5 je address_value or edx,edx jz sib_address address_value: cmp edx,80h jb sib_address_8bit_value cmp edx,-80h jae sib_address_8bit_value sib_address_32bit_value: or al,10000000b mov cl,[postbyte_register] shl cl,3 or al,cl stos word [edi] address_32bit_value: cmp [code_type],64 jne store_address_32bit_value mov eax,edx cdq cmp edx,[address_high] je address_32bit_value_ok cmp [error_line],0 jne address_32bit_value_ok mov edx,[current_line] mov [error_line],edx mov [error],value_out_of_range address_32bit_value_ok: mov edx,eax jmp store_address_32bit_value sib_address_8bit_value: or al,01000000b mov cl,[postbyte_register] shl cl,3 or al,cl stos word [edi] mov al,dl stos byte [edi] cmp edx,80h jge value_out_of_range cmp edx,-80h jl value_out_of_range ret sib_address: mov cl,[postbyte_register] shl cl,3 or al,cl stos word [edi] ret only_index_register: or ah,101b and bl,111b shl bl,3 or ah,bl mov cl,[postbyte_register] shl cl,3 or al,cl stos word [edi] test ch,44h jnz address_32bit_value test ch,88h jnz address_32bit_value or ch,ch jnz invalid_address_size jmp address_32bit_value zero_index_register: mov bl,4 mov cl,1 jmp base_and_index only_base_register: mov al,bh and al,111b cmp al,4 je zero_index_register test ch,44h jnz simple_address_32bit_value test ch,88h jnz simple_address_32bit_value or ch,ch jnz address_sizes_do_not_agree or edx,edx jz simple_address cmp edx,80h jb simple_address_8bit_value cmp edx,-80h jae simple_address_8bit_value simple_address_32bit_value: or al,10000000b mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] jmp address_32bit_value simple_address_8bit_value: or al,01000000b mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] mov al,dl stos byte [edi] cmp edx,80h jge value_out_of_range cmp edx,-80h jl value_out_of_range ret simple_address: cmp al,5 je simple_address_8bit_value mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] ret address_immediate: cmp [code_type],64 je address_immediate_sib test ch,44h jnz address_immediate_32bit test ch,22h jnz address_immediate_16bit or ch,ch jnz invalid_address_size cmp [code_type],16 je addressing_16bit address_immediate_32bit: call address_32bit_prefix call store_instruction_code store_immediate_address: mov al,101b mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] store_address_32bit_value: test ch,0F0h jz address_32bit_relocation_ok mov eax,ecx shr eax,16 cmp al,4 jne address_32bit_relocation mov al,2 address_32bit_relocation: xchg [value_type],al mov ebx,[address_symbol] xchg ebx,[symbol_identifier] call mark_relocation mov [value_type],al mov [symbol_identifier],ebx address_32bit_relocation_ok: mov eax,edx stos dword [edi] ret store_address_64bit_value: test ch,0F0h jz address_64bit_relocation_ok mov eax,ecx shr eax,16 xchg [value_type],al mov ebx,[address_symbol] xchg ebx,[symbol_identifier] call mark_relocation mov [value_type],al mov [symbol_identifier],ebx address_64bit_relocation_ok: mov eax,edx stos dword [edi] mov eax,[address_high] stos dword [edi] ret address_immediate_sib: test ch,44h jnz address_immediate_sib_32bit test ch,not 88h jnz invalid_address_size xor eax,eax bt edx,31 sbb eax,0 cmp eax,[address_high] jne value_out_of_range address_immediate_sib_store: call store_instruction_code mov al,100b mov ah,100101b mov cl,[postbyte_register] shl cl,3 or al,cl stos word [edi] jmp store_address_32bit_value address_immediate_sib_32bit: test ecx,0FF0000h jnz address_immediate_sib_nosignextend test edx,80000000h jz address_immediate_sib_store address_immediate_sib_nosignextend: call address_32bit_prefix jmp address_immediate_sib_store address_eip_based: mov al,67h stos byte [edi] address_rip_based: cmp [code_type],64 jne invalid_address call store_instruction_code jmp store_immediate_address address_relative: call store_instruction_code movzx eax,[immediate_size] add eax,edi sub eax,[current_offset] add eax,5 sub edx,eax jo value_out_of_range mov al,101b mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] shr ecx,16 xchg [value_type],cl mov ebx,[address_symbol] xchg ebx,[symbol_identifier] mov eax,edx call mark_relocation mov [value_type],cl mov [symbol_identifier],ebx stos dword [edi] ret addressing_16bit: cmp edx,10000h jge address_immediate_32bit cmp edx,-8000h jl address_immediate_32bit movzx edx,dx address_immediate_16bit: call address_16bit_prefix call store_instruction_code mov al,110b mov cl,[postbyte_register] shl cl,3 or al,cl stos byte [edi] mov eax,edx stos word [edi] cmp edx,10000h jge value_out_of_range cmp edx,-8000h jl value_out_of_range ret address_16bit_prefix: cmp [code_type],16 je instruction_prefix_ok mov al,67h stos byte [edi] ret address_32bit_prefix: cmp [code_type],32 je instruction_prefix_ok mov al,67h stos byte [edi] instruction_prefix_ok: ret store_instruction_with_imm8: mov [immediate_size],1 call store_instruction mov al,byte [value] stos byte [edi] ret store_instruction_with_imm16: mov [immediate_size],2 call store_instruction mov ax,word [value] call mark_relocation stos word [edi] ret store_instruction_with_imm32: mov [immediate_size],4 call store_instruction mov eax,dword [value] call mark_relocation stos dword [edi] ret ; --------------- "x86_64.inc" ---------------- ; ; --------------- "avx.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. avx_single_source_pd_instruction: or [vex_required],2 jmp avx_pd_instruction avx_pd_instruction_imm8: mov [immediate_size],1 avx_pd_instruction: mov [opcode_prefix],66h mov [mmx_size],0 jmp avx_instruction avx_single_source_ps_instruction: or [vex_required],2 jmp avx_ps_instruction avx_ps_instruction_imm8: mov [immediate_size],1 avx_ps_instruction: mov [mmx_size],0 jmp avx_instruction avx_sd_instruction_imm8: mov [immediate_size],1 avx_sd_instruction: mov [opcode_prefix],0F2h mov [mmx_size],8 jmp avx_instruction avx_ss_instruction_imm8: mov [immediate_size],1 avx_ss_instruction: mov [opcode_prefix],0F3h mov [mmx_size],4 jmp avx_instruction avx_cmp_pd_instruction: mov [opcode_prefix],66h avx_cmp_ps_instruction: mov [mmx_size],0 mov byte [value],al mov al,0C2h jmp avx_instruction avx_cmp_sd_instruction: mov [opcode_prefix],0F2h mov [mmx_size],8 mov byte [value],al mov al,0C2h jmp avx_instruction avx_cmp_ss_instruction: mov [opcode_prefix],0F3h mov [mmx_size],4 mov byte [value],al mov al,0C2h jmp avx_instruction avx_comiss_instruction: or [vex_required],2 mov [mmx_size],4 jmp avx_instruction avx_comisd_instruction: or [vex_required],2 mov [opcode_prefix],66h mov [mmx_size],8 jmp avx_instruction avx_haddps_instruction: mov [opcode_prefix],0F2h mov [mmx_size],0 jmp avx_instruction avx_movshdup_instruction: or [vex_required],2 mov [opcode_prefix],0F3h mov [mmx_size],0 avx_instruction: mov [base_code],0Fh mov [extended_code],al avx_common: or [vex_required],1 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand avx_reg: lods byte [esi] call convert_avx_register mov [postbyte_register],al avx_vex_reg: test [vex_required],2 jnz avx_vex_reg_ok lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al avx_vex_reg_ok: cmp [mmx_size],0 je avx_regs_size_ok cmp ah,16 jne invalid_operand avx_regs_size_ok: lods byte [esi] cmp al,',' jne invalid_operand call take_avx_rm jc avx_regs_reg cmp [extended_code],0C2h je sse_cmp_mem_ok mov al,[base_code] and al,11011100b cmp al,11001100b je sse_cmp_mem_ok cmp [immediate_size],1 je mmx_imm8 cmp [immediate_size],0 jge instruction_ready cmp byte [esi],',' jne invalid_operand inc esi call take_avx_register shl al,4 or byte [value],al test al,80h jz avx_regs_mem_reg_store cmp [code_type],64 jne invalid_operand avx_regs_mem_reg_store: call take_imm4_if_needed call store_instruction_with_imm8 jmp instruction_assembled avx_regs_reg: mov bl,al cmp [extended_code],0C2h je sse_cmp_nomem_ok mov al,[base_code] and al,11011100b cmp al,11001100b je sse_cmp_nomem_ok cmp [immediate_size],1 je mmx_nomem_imm8 cmp [immediate_size],0 jge nomem_instruction_ready lods byte [esi] cmp al,',' jne invalid_operand mov al,bl shl al,4 or byte [value],al test al,80h jz avx_regs_reg_ cmp [code_type],64 jne invalid_operand avx_regs_reg_: call take_avx_rm jc avx_regs_reg_reg cmp [immediate_size],-2 jg invalid_operand or [rex_prefix],8 call take_imm4_if_needed call store_instruction_with_imm8 jmp instruction_assembled avx_regs_reg_reg: shl al,4 and byte [value],1111b or byte [value],al call take_imm4_if_needed call store_nomem_instruction mov al,byte [value] stos byte [edi] jmp instruction_assembled take_avx_rm: xor cl,cl xchg cl,[operand_size] lods byte [esi] call get_size_operator cmp al,'[' je take_avx_mem mov [operand_size],cl cmp al,10h jne invalid_operand lods byte [esi] call convert_avx_register cmp [mmx_size],0 je avx_reg_ok cmp ah,16 jne invalid_operand avx_reg_ok: stc ret take_avx_mem: push ecx call get_address pop eax cmp [mmx_size],0 jne avx_smem xchg al,[operand_size] or al,al jz avx_mem_ok cmp al,[operand_size] jne operand_sizes_do_not_match avx_mem_ok: clc ret avx_smem: xchg al,[operand_size] cmp al,[mmx_size] jne invalid_operand_size clc ret take_imm4_if_needed: cmp [immediate_size],-3 jne imm4_ok push ebx ecx edx lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] cmp al,'(' jne invalid_operand call get_byte_value test al,11110000b jnz value_out_of_range or byte [value],al pop edx ecx ebx imm4_ok: ret avx_128bit_instruction: mov [mmx_size],16 mov [opcode_prefix],66h jmp avx_instruction avx_single_source_128bit_instruction_38: or [vex_required],2 avx_128bit_instruction_38: mov [mmx_size],16 avx_instruction_38_setup: mov [opcode_prefix],66h mov [supplemental_code],al mov al,38h jmp avx_instruction avx_single_source_instruction_38: or [vex_required],2 mov [mmx_size],0 jmp avx_instruction_38_setup avx_ss_instruction_3a_imm8: mov [mmx_size],4 jmp avx_instruction_3a_imm8_setup avx_sd_instruction_3a_imm8: mov [mmx_size],8 jmp avx_instruction_3a_imm8_setup avx_single_source_128bit_instruction_3a_imm8: or [vex_required],2 avx_128bit_instruction_3a_imm8: mov [mmx_size],16 jmp avx_instruction_3a_imm8_setup avx_triple_source_instruction_3a: mov [mmx_size],0 mov [immediate_size],-1 mov byte [value],0 jmp avx_instruction_3a_setup avx_triple_source_128bit_instruction_3a: mov [mmx_size],16 mov [immediate_size],-1 mov byte [value],0 jmp avx_instruction_3a_setup avx_single_source_instruction_3a_imm8: or [vex_required],2 avx_instruction_3a_imm8: mov [mmx_size],0 avx_instruction_3a_imm8_setup: mov [immediate_size],1 avx_instruction_3a_setup: mov [opcode_prefix],66h mov [supplemental_code],al mov al,3Ah jmp avx_instruction avx_perm2f128_instruction: call setup_66_0f_3a mov [immediate_size],1 mov [mmx_size],0 or [vex_required],1 call take_avx_register cmp ah,32 jne invalid_operand_size mov [postbyte_register],al jmp avx_vex_reg setup_66_0f_3a: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],3Ah mov [supplemental_code],al ret avx_movdqu_instruction: mov [opcode_prefix],0F3h jmp avx_movps_instruction avx_movpd_instruction: mov [opcode_prefix],66h avx_movps_instruction: mov [mmx_size],0 or [vex_required],2 mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h je avx_reg inc [extended_code] test [extended_code],1 jnz avx_mem add [extended_code],-1+10h avx_mem: cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [postbyte_register],al jmp instruction_ready avx_movntpd_instruction: mov [opcode_prefix],66h avx_movntps_instruction: or [vex_required],1 mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator jmp avx_mem avx_lddqu_instruction: mov [opcode_prefix],0F2h mov [mmx_size],0 xor cl,cl avx_load_instruction: mov [base_code],0Fh mov [extended_code],al or [vex_required],1 call take_avx_register or cl,cl jz avx_load_reg_ok cmp ah,cl jne invalid_operand avx_load_reg_ok: cmp [mmx_size],0 je avx_load_reg_ xor ah,ah avx_load_reg_: xchg ah,[operand_size] push eax lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' jne invalid_operand call get_address pop eax xchg ah,[operand_size] mov [postbyte_register],al mov al,[mmx_size] or al,al jz instruction_ready or ah,ah jz instruction_ready cmp al,ah jne invalid_operand_size jmp instruction_ready avx_movntdqa_instruction: mov [mmx_size],16 mov al,2Ah mov cl,16 jmp avx_load_instruction_38 avx_broadcastss_instruction: mov [mmx_size],4 mov al,18h xor cl,cl jmp avx_load_instruction_38 avx_broadcastsd_instruction: mov [mmx_size],8 mov al,19h mov cl,32 jmp avx_load_instruction_38 avx_broadcastf128_instruction: mov [mmx_size],16 mov al,1Ah mov cl,32 avx_load_instruction_38: mov [opcode_prefix],66h mov [supplemental_code],al mov al,38h jmp avx_load_instruction avx_movlpd_instruction: mov [opcode_prefix],66h avx_movlps_instruction: mov [base_code],0Fh mov [extended_code],al mov [mmx_size],8 or [vex_required],1 lods byte [esi] call get_size_operator cmp al,10h jne avx_movlps_mem lods byte [esi] call convert_avx_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al cmp [operand_size],16 jne invalid_operand mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand call take_avx_rm jc invalid_operand jmp instruction_ready avx_movlps_mem: cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz avx_movlps_mem_size_ok cmp al,[mmx_size] jne invalid_operand_size mov [operand_size],0 avx_movlps_mem_size_ok: lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register cmp ah,16 jne invalid_operand mov [postbyte_register],al inc [extended_code] jmp instruction_ready avx_movhlps_instruction: mov [base_code],0Fh mov [extended_code],al or [vex_required],1 call take_avx_register cmp ah,16 jne invalid_operand mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov bl,al jmp nomem_instruction_ready avx_maskmov_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],38h mov [supplemental_code],al mov [mmx_size],0 or [vex_required],1 lods byte [esi] call get_size_operator cmp al,10h jne avx_maskmov_mem lods byte [esi] call convert_avx_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_rm jc invalid_operand jmp instruction_ready avx_maskmov_mem: cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [postbyte_register],al add [supplemental_code],2 jmp instruction_ready avx_movd_instruction: or [vex_required],1 jmp movd_instruction avx_movq_instruction: or [vex_required],1 jmp movq_instruction avx_movddup_instruction: or [vex_required],1 mov [opcode_prefix],0F2h mov [base_code],0Fh mov [extended_code],al lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_avx_register mov [postbyte_register],al mov [mmx_size],0 cmp ah,32 je avx_regs_size_ok mov [mmx_size],8 jmp avx_regs_size_ok avx_movmskpd_instruction: mov [opcode_prefix],66h avx_movmskps_instruction: mov [base_code],0Fh mov [extended_code],50h or [vex_required],1 lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] call convert_register mov [postbyte_register],al cmp ah,4 je avx_movmskps_reg_ok cmp ah,8 jne invalid_operand_size cmp [code_type],64 jne invalid_operand avx_movmskps_reg_ok: mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov bl,al jmp nomem_instruction_ready avx_movsd_instruction: mov [opcode_prefix],0F2h mov [mmx_size],8 jmp avx_movs_instruction avx_movss_instruction: mov [opcode_prefix],0F3h mov [mmx_size],4 avx_movs_instruction: or [vex_required],1 mov [base_code],0Fh mov [extended_code],10h lods byte [esi] call get_size_operator cmp al,10h jne avx_movlps_mem lods byte [esi] call convert_xmm_register mov [postbyte_register],al xor cl,cl xchg cl,[operand_size] lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,10h jne avx_movs_reg_mem mov [operand_size],cl lods byte [esi] call convert_avx_register mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov bl,al cmp bl,8 jb nomem_instruction_ready inc [extended_code] xchg bl,[postbyte_register] jmp nomem_instruction_ready avx_movs_reg_mem: cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz avx_movs_reg_mem_ok cmp al,[mmx_size] jne invalid_operand_size avx_movs_reg_mem_ok: jmp instruction_ready avx_cvtdq2pd_instruction: mov [opcode_prefix],0F3h avx_cvtps2pd_instruction: mov [base_code],0Fh mov [extended_code],al or [vex_required],1 call take_avx_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand xor cl,cl xchg cl,[operand_size] lods byte [esi] call get_size_operator cmp al,10h jne avx_cvtdq2pd_reg_mem lods byte [esi] call convert_xmm_register mov bl,al mov [operand_size],cl jmp nomem_instruction_ready avx_cvtdq2pd_reg_mem: cmp al,'[' jne invalid_operand mov [mmx_size],cl call get_address mov al,[operand_size] or al,al jz instruction_ready shl al,1 cmp al,[mmx_size] jne invalid_operand_size mov [operand_size],al jmp instruction_ready avx_cvtpd2dq_instruction: mov [opcode_prefix],0F2h jmp avx_cvtpd_instruction avx_cvtpd2ps_instruction: mov [opcode_prefix],66h avx_cvtpd_instruction: mov [base_code],0Fh mov [extended_code],al or [vex_required],1 call take_avx_register mov [postbyte_register],al cmp ah,16 jne invalid_operand lods byte [esi] cmp al,',' jne invalid_operand mov [operand_size],0 lods byte [esi] call get_size_operator cmp al,10h jne avx_cvtpd2dq_reg_mem lods byte [esi] call convert_avx_register mov bl,al jmp nomem_instruction_ready avx_cvtpd2dq_reg_mem: cmp al,'[' jne invalid_operand call get_address mov al,[operand_size] or al,al jz operand_size_not_specified cmp al,16 je instruction_ready cmp al,32 jne invalid_operand_size jmp instruction_ready avx_cvttps2dq_instruction: or [vex_required],2 mov [opcode_prefix],0F3h mov [mmx_size],0 jmp avx_instruction avx_cvtsd2si_instruction: or [vex_required],1 jmp cvtsd2si_instruction avx_cvtss2si_instruction: or [vex_required],1 jmp cvtss2si_instruction avx_cvtsi2ss_instruction: mov [opcode_prefix],0F3h jmp avx_cvtsi_instruction avx_cvtsi2sd_instruction: mov [opcode_prefix],0F2h avx_cvtsi_instruction: mov [base_code],0Fh mov [extended_code],al or [vex_required],1 call take_avx_register cmp ah,16 jne invalid_operand_size mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al jmp cvtsi_xmmreg avx_extractf128_instruction: or [vex_required],1 call setup_66_0f_3a lods byte [esi] call get_size_operator cmp al,10h je avx_extractf128_reg cmp al,'[' jne invalid_operand call get_address xor al,al xchg al,[operand_size] or al,al jz avx_extractf128_mem_size_ok cmp al,16 jne invalid_operand_size avx_extractf128_mem_size_ok: lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register cmp ah,32 jne invalid_operand_size mov [postbyte_register],al jmp mmx_imm8 avx_extractf128_reg: lods byte [esi] call convert_xmm_register mov [operand_size],0 push eax lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register cmp ah,32 jne invalid_operand_size mov [postbyte_register],al pop ebx jmp mmx_nomem_imm8 avx_insertf128_instruction: or [vex_required],1 call setup_66_0f_3a call take_avx_register cmp ah,32 jne invalid_operand mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al mov [operand_size],0 mov [mmx_size],16 lods byte [esi] cmp al,',' jne invalid_operand call take_avx_rm mov [operand_size],32 jnc mmx_imm8 mov bl,al jmp mmx_nomem_imm8 avx_extractps_instruction: or [vex_required],1 jmp extractps_instruction avx_insertps_instruction: or [vex_required],1 call take_avx_register cmp ah,16 jne invalid_operand_size mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al jmp insertps_xmmreg avx_pextrb_instruction: or [vex_required],1 jmp pextrb_instruction avx_pextrw_instruction: or [vex_required],1 jmp pextrw_instruction avx_pextrd_instruction: or [vex_required],1 jmp pextrd_instruction avx_pextrq_instruction: or [vex_required],1 jmp pextrq_instruction avx_pinsrb_instruction: mov [mmx_size],1 or [vex_required],1 jmp avx_pinsr_instruction_3a avx_pinsrw_instruction: mov [mmx_size],2 or [vex_required],1 jmp avx_pinsr_instruction avx_pinsrd_instruction: mov [mmx_size],4 or [vex_required],1 jmp avx_pinsr_instruction_3a avx_pinsrq_instruction: mov [mmx_size],8 or [vex_required],1 call operand_64bit avx_pinsr_instruction_3a: mov [supplemental_code],al mov al,3Ah avx_pinsr_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],al call take_avx_register cmp ah,16 jne invalid_operand_size mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al jmp pinsr_xmmreg avx_maskmovdqu_instruction: or [vex_required],1 jmp maskmovdqu_instruction avx_pmovmskb_instruction: or [vex_required],1 jmp pmovmskb_instruction avx_pshufd_instruction: or [vex_required],1 jmp pshufd_instruction avx_pmovsxbw_instruction: mov [mmx_size],8 jmp avx_pmovsx_instruction avx_pmovsxbd_instruction: mov [mmx_size],4 jmp avx_pmovsx_instruction avx_pmovsxbq_instruction: mov [mmx_size],2 jmp avx_pmovsx_instruction avx_pmovsxwd_instruction: mov [mmx_size],8 jmp avx_pmovsx_instruction avx_pmovsxwq_instruction: mov [mmx_size],4 jmp avx_pmovsx_instruction avx_pmovsxdq_instruction: mov [mmx_size],8 avx_pmovsx_instruction: or [vex_required],1 jmp pmovsx_instruction avx_permil_instruction: call setup_66_0f_3a or [vex_required],1 call take_avx_register mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' je avx_permil_reg_mem cmp al,10h jne invalid_operand lods byte [esi] call convert_avx_register mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand push esi xor cl,cl xchg cl,[operand_size] lods byte [esi] call get_size_operator xchg cl,[operand_size] pop esi cmp al,'[' je avx_permil_reg_reg_mem cmp al,10h jne avx_permil_reg_reg_imm8 call take_avx_register mov bl,al mov [extended_code],38h add [supplemental_code],8 jmp nomem_instruction_ready avx_permil_reg_reg_mem: lods byte [esi] call get_size_operator call get_address mov [extended_code],38h add [supplemental_code],8 jmp instruction_ready avx_permil_reg_reg_imm8: dec esi xor bl,bl xchg bl,[vex_register] jmp mmx_nomem_imm8 avx_permil_reg_mem: call get_address jmp mmx_imm8 avx_pslldq_instruction: mov [postbyte_register],al mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],73h or [vex_required],1 call take_avx_register cmp ah,16 jne invalid_operand mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov bl,al jmp mmx_nomem_imm8 avx_bit_shift_instruction: mov [opcode_prefix],66h mov [base_code],0Fh mov [extended_code],al or [vex_required],1 call take_avx_register cmp ah,16 jne invalid_operand mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand push esi xor cl,cl xchg cl,[operand_size] lods byte [esi] call get_size_operator xchg cl,[operand_size] pop esi cmp al,10h je avx_bit_shift_regs_reg cmp al,'[' je avx_bit_shift_regs_mem dec esi mov bl,[extended_code] mov al,bl shr bl,4 and al,1111b add al,70h mov [extended_code],al sub bl,0Ch shl bl,1 xchg bl,[postbyte_register] xchg bl,[vex_register] jmp mmx_nomem_imm8 avx_bit_shift_regs_reg: call take_avx_register mov bl,al jmp nomem_instruction_ready avx_bit_shift_regs_mem: lods byte [esi] call get_size_operator call get_address jmp instruction_ready vzeroall_instruction: mov [operand_size],32 vzeroupper_instruction: mov [base_code],0Fh mov [extended_code],al or [vex_required],1 call store_instruction_code jmp instruction_assembled vldmxcsr_instruction: or [vex_required],1 jmp fxsave_instruction vcvtph2ps_instruction: mov [opcode_prefix],66h mov [supplemental_code],al mov al,38h jmp avx_cvtps2pd_instruction vcvtps2ph_instruction: call setup_66_0f_3a or [vex_required],1 lods byte [esi] call get_size_operator cmp al,10h je vcvtps2ph_reg cmp al,'[' jne invalid_operand call get_address lods byte [esi] cmp al,',' jne invalid_operand shl [operand_size],1 call take_avx_register mov [postbyte_register],al jmp mmx_imm8 vcvtps2ph_reg: lods byte [esi] call convert_xmm_register mov bl,al mov [operand_size],0 lods byte [esi] cmp al,',' jne invalid_operand call take_avx_register mov [postbyte_register],al jmp mmx_nomem_imm8 fma_instruction_pd: or [rex_prefix],8 fma_instruction_ps: mov [mmx_size],0 jmp avx_instruction_38_setup fma_instruction_sd: or [rex_prefix],8 mov [mmx_size],8 jmp avx_instruction_38_setup fma_instruction_ss: mov [mmx_size],4 jmp avx_instruction_38_setup fma4_instruction_p: mov [mmx_size],0 jmp fma4_instruction_setup fma4_instruction_sd: mov [mmx_size],8 jmp fma4_instruction_setup fma4_instruction_ss: mov [mmx_size],4 fma4_instruction_setup: mov [immediate_size],-2 mov byte [value],0 jmp avx_instruction_3a_setup xop_single_source_sd_instruction: or [vex_required],2 mov [mmx_size],8 jmp xop_instruction_9 xop_single_source_ss_instruction: or [vex_required],2 mov [mmx_size],4 jmp xop_instruction_9 xop_single_source_instruction: or [vex_required],2 mov [mmx_size],0 xop_instruction_9: mov [base_code],al mov [xop_opcode_map],9 jmp avx_common xop_single_source_128bit_instruction: or [vex_required],2 mov [mmx_size],16 jmp xop_instruction_9 xop_triple_source_128bit_instruction: mov [immediate_size],-1 mov byte [value],0 mov [mmx_size],16 jmp xop_instruction_8 xop_128bit_instruction: mov [immediate_size],-2 mov byte [value],0 mov [mmx_size],16 xop_instruction_8: mov [base_code],al mov [xop_opcode_map],8 jmp avx_common xop_pcom_b_instruction: mov ah,0CCh jmp xop_pcom_instruction xop_pcom_d_instruction: mov ah,0CEh jmp xop_pcom_instruction xop_pcom_q_instruction: mov ah,0CFh jmp xop_pcom_instruction xop_pcom_w_instruction: mov ah,0CDh jmp xop_pcom_instruction xop_pcom_ub_instruction: mov ah,0ECh jmp xop_pcom_instruction xop_pcom_ud_instruction: mov ah,0EEh jmp xop_pcom_instruction xop_pcom_uq_instruction: mov ah,0EFh jmp xop_pcom_instruction xop_pcom_uw_instruction: mov ah,0EDh xop_pcom_instruction: mov byte [value],al mov [mmx_size],16 mov [base_code],ah mov [xop_opcode_map],8 jmp avx_common vpcmov_instruction: or [vex_required],1 mov [immediate_size],-2 mov byte [value],0 mov [mmx_size],0 mov [base_code],al mov [xop_opcode_map],8 jmp avx_common xop_shift_instruction: mov [base_code],al or [vex_required],1 mov [xop_opcode_map],9 call take_avx_register cmp ah,16 jne invalid_operand mov [postbyte_register],al lods byte [esi] cmp al,',' jne invalid_operand lods byte [esi] call get_size_operator cmp al,'[' je xop_shift_reg_mem cmp al,10h jne invalid_operand lods byte [esi] call convert_xmm_register mov [vex_register],al lods byte [esi] cmp al,',' jne invalid_operand push esi xor cl,cl xchg cl,[operand_size] lods byte [esi] call get_size_operator pop esi xchg cl,[operand_size] cmp al,'[' je xop_shift_reg_reg_mem cmp al,10h jne xop_shift_reg_reg_imm call take_avx_register mov bl,al xchg bl,[vex_register] jmp nomem_instruction_ready xop_shift_reg_reg_mem: or [rex_prefix],8 lods byte [esi] call get_size_operator call get_address jmp instruction_ready xop_shift_reg_reg_imm: xor bl,bl xchg bl,[vex_register] cmp [base_code],94h jae invalid_operand add [base_code],30h mov [xop_opcode_map],8 dec esi jmp mmx_nomem_imm8 xop_shift_reg_mem: call get_address lods byte [esi] cmp al,',' jne invalid_operand push esi xor cl,cl xchg cl,[operand_size] lods byte [esi] call get_size_operator pop esi xchg cl,[operand_size] cmp al,10h jne xop_shift_reg_mem_imm call take_avx_register mov [vex_register],al jmp instruction_ready xop_shift_reg_mem_imm: cmp [base_code],94h jae invalid_operand add [base_code],30h mov [xop_opcode_map],8 dec esi jmp mmx_imm8 vpermil_2pd_instruction: mov [immediate_size],-2 mov byte [value],al mov al,49h jmp vpermil2_instruction_setup vpermil_2ps_instruction: mov [immediate_size],-2 mov byte [value],al mov al,48h jmp vpermil2_instruction_setup vpermil2_instruction: mov [immediate_size],-3 mov byte [value],0 vpermil2_instruction_setup: mov [base_code],0Fh mov [supplemental_code],al mov al,3Ah mov [mmx_size],0 jmp avx_instruction take_avx_register: lods byte [esi] call get_size_operator cmp al,10h jne invalid_operand lods byte [esi] convert_avx_register: mov ah,al and al,0Fh and ah,0F0h sub ah,0B0h jbe invalid_operand cmp ah,32 ja invalid_operand cmp al,8 jb match_register_size cmp [code_type],64 jne invalid_operand jmp match_register_size store_vex_instruction_code: mov al,[base_code] cmp al,0Fh jne store_xop_instruction_code mov ah,[extended_code] cmp ah,38h je store_vex_0f38_instruction_code cmp ah,3Ah je store_vex_0f3a_instruction_code test [rex_prefix],1011b jnz store_vex_0f_instruction_code mov [edi+2],ah mov byte [edi],0C5h mov al,[vex_register] not al shl al,3 mov ah,[rex_prefix] shl ah,5 and ah,80h xor al,ah call get_vex_lpp_bits mov [edi+1],al call check_vex add edi,3 ret get_vex_lpp_bits: cmp [operand_size],32 jne vex_l_bit_ok or al,100b vex_l_bit_ok: mov ah,[opcode_prefix] cmp ah,66h je vex_66 cmp ah,0F3h je vex_f3 cmp ah,0F2h je vex_f2 test ah,ah jnz prefix_conflict ret vex_f2: or al,11b ret vex_f3: or al,10b ret vex_66: or al,1 ret store_vex_0f38_instruction_code: mov al,11100010b mov ah,[supplemental_code] jmp make_c4_vex store_vex_0f3a_instruction_code: mov al,11100011b mov ah,[supplemental_code] jmp make_c4_vex store_vex_0f_instruction_code: mov al,11100001b make_c4_vex: mov [edi+3],ah mov byte [edi],0C4h mov ah,[rex_prefix] shl ah,5 xor al,ah mov [edi+1],al call check_vex mov al,[vex_register] xor al,1111b shl al,3 mov ah,[rex_prefix] shl ah,4 and ah,80h or al,ah call get_vex_lpp_bits mov [edi+2],al add edi,4 ret check_vex: cmp [code_type],64 je vex_ok not al test al,11000000b jnz invalid_operand test [rex_prefix],40h jnz invalid_operand vex_ok: ret store_xop_instruction_code: mov [edi+3],al mov byte [edi],8Fh mov al,[xop_opcode_map] mov ah,[rex_prefix] test ah,40h jz xop_ok cmp [code_type],64 jne invalid_operand xop_ok: not ah shl ah,5 xor al,ah mov [edi+1],al mov al,[vex_register] xor al,1111b shl al,3 mov ah,[rex_prefix] shl ah,4 and ah,80h or al,ah call get_vex_lpp_bits mov [edi+2],al add edi,4 ret ; --------------- "avx.inc" ---------------- ; ; --------------- "tables.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. include_variable db 'INCLUDE',0 symbol_characters db 27 db 9,0Ah,0Dh,1Ah,20h,'+-/*=<>()[]{}:,|&~#`;\' preprocessor_directives: db 6,'define' dw define_symbolic_constant-directive_handler db 7,'include' dw include_file-directive_handler db 3,'irp' dw irp_directive-directive_handler db 4,'irps' dw irps_directive-directive_handler db 5,'macro' dw define_macro-directive_handler db 5,'match' dw match_directive-directive_handler db 5,'purge' dw purge_macro-directive_handler db 4,'rept' dw rept_directive-directive_handler db 7,'restore' dw restore_equ_constant-directive_handler db 7,'restruc' dw purge_struc-directive_handler db 5,'struc' dw define_struc-directive_handler db 0 macro_directives: db 6,'common' dw common_block-directive_handler db 7,'forward' dw forward_block-directive_handler db 5,'local' dw local_symbols-directive_handler db 7,'reverse' dw reverse_block-directive_handler db 0 operators: db 1,'+',80h db 1,'-',81h db 1,'*',90h db 1,'/',91h db 3,'mod',0A0h db 3,'and',0B0h db 2,'or',0B1h db 3,'xor',0B2h db 3,'shl',0C0h db 3,'shr',0C1h db 0 single_operand_operators: db 1,'+',0 db 1,'-',083h db 3,'not',0D0h db 3,'plt',0E1h db 3,'rva',0E0h db 0 directive_operators: db 5,'align',8Ch db 2,'as',86h db 2,'at',80h db 7,'defined',88h db 3,'dup',81h db 2,'eq',0F0h db 6,'eqtype',0F7h db 4,'from',82h db 2,'in',0F6h db 2,'on',84h db 3,'ptr',85h db 4,'used',89h db 0 address_registers: db 2,'bp',25h db 2,'bx',23h db 2,'di',27h db 3,'eax',40h db 3,'ebp',45h db 3,'ebx',43h db 3,'ecx',41h db 3,'edi',47h db 3,'edx',42h db 3,'eip',0F4h db 3,'esi',46h db 3,'esp',44h db 3,'r10',8Ah db 4,'r10d',4Ah db 3,'r11',8Bh db 4,'r11d',4Bh db 3,'r12',8Ch db 4,'r12d',4Ch db 3,'r13',8Dh db 4,'r13d',4Dh db 3,'r14',8Eh db 4,'r14d',4Eh db 3,'r15',8Fh db 4,'r15d',4Fh db 2,'r8',88h db 3,'r8d',48h db 2,'r9',89h db 3,'r9d',49h db 3,'rax',80h db 3,'rbp',85h db 3,'rbx',83h db 3,'rcx',81h db 3,'rdi',87h db 3,'rdx',82h db 3,'rip',0F8h db 3,'rsi',86h db 3,'rsp',84h db 2,'si',26h db 0 address_sizes: db 4,'byte',1 db 5,'dword',4 db 5,'qword',8 db 4,'word',2 db 0 symbols: dw symbols_2-symbols,(symbols_3-symbols_2)/(2+2) dw symbols_3-symbols,(symbols_4-symbols_3)/(3+2) dw symbols_4-symbols,(symbols_5-symbols_4)/(4+2) dw symbols_5-symbols,(symbols_6-symbols_5)/(5+2) dw symbols_6-symbols,(symbols_7-symbols_6)/(6+2) dw symbols_7-symbols,(symbols_8-symbols_7)/(7+2) dw symbols_8-symbols,(symbols_9-symbols_8)/(8+2) dw symbols_9-symbols,(symbols_10-symbols_9)/(9+2) dw symbols_10-symbols,(symbols_11-symbols_10)/(10+2) dw symbols_11-symbols,(symbols_end-symbols_11)/(11+2) symbols_2: db 'ah',10h,04h db 'al',10h,10h db 'ax',10h,20h db 'bh',10h,07h db 'bl',10h,13h db 'bp',10h,25h db 'bx',10h,23h db 'ch',10h,05h db 'cl',10h,11h db 'cs',10h,62h db 'cx',10h,21h db 'dh',10h,06h db 'di',10h,27h db 'dl',10h,12h db 'ds',10h,64h db 'dx',10h,22h db 'es',10h,61h db 'fs',10h,65h db 'gs',10h,66h db 'ms',1Ch,41h db 'mz',18h,20h db 'pe',18h,30h db 'r8',10h,88h db 'r9',10h,89h db 'si',10h,26h db 'sp',10h,24h db 'ss',10h,63h db 'st',10h,0A0h symbols_3: db 'bpl',10h,15h db 'cr0',10h,50h db 'cr1',10h,51h db 'cr2',10h,52h db 'cr3',10h,53h db 'cr4',10h,54h db 'cr5',10h,55h db 'cr6',10h,56h db 'cr7',10h,57h db 'cr8',10h,58h db 'cr9',10h,59h db 'dil',10h,17h db 'dll',1Bh,80h db 'dr0',10h,70h db 'dr1',10h,71h db 'dr2',10h,72h db 'dr3',10h,73h db 'dr4',10h,74h db 'dr5',10h,75h db 'dr6',10h,76h db 'dr7',10h,77h db 'dr8',10h,78h db 'dr9',10h,79h db 'eax',10h,40h db 'ebp',10h,45h db 'ebx',10h,43h db 'ecx',10h,41h db 'edi',10h,47h db 'edx',10h,42h db 'efi',1Bh,10 db 'eip',10h,0F4h db 'elf',18h,50h db 'esi',10h,46h db 'esp',10h,44h db 'far',12h,3 db 'gui',1Bh,2 db 'mm0',10h,0B0h db 'mm1',10h,0B1h db 'mm2',10h,0B2h db 'mm3',10h,0B3h db 'mm4',10h,0B4h db 'mm5',10h,0B5h db 'mm6',10h,0B6h db 'mm7',10h,0B7h db 'r10',10h,8Ah db 'r11',10h,8Bh db 'r12',10h,8Ch db 'r13',10h,8Dh db 'r14',10h,8Eh db 'r15',10h,8Fh db 'r8b',10h,18h db 'r8d',10h,48h db 'r8l',10h,18h db 'r8w',10h,28h db 'r9b',10h,19h db 'r9d',10h,49h db 'r9l',10h,19h db 'r9w',10h,29h db 'rax',10h,80h db 'rbp',10h,85h db 'rbx',10h,83h db 'rcx',10h,81h db 'rdi',10h,87h db 'rdx',10h,82h db 'rip',10h,0F8h db 'rsi',10h,86h db 'rsp',10h,84h db 'sil',10h,16h db 'spl',10h,14h db 'st0',10h,0A0h db 'st1',10h,0A1h db 'st2',10h,0A2h db 'st3',10h,0A3h db 'st4',10h,0A4h db 'st5',10h,0A5h db 'st6',10h,0A6h db 'st7',10h,0A7h db 'tr0',10h,90h db 'tr1',10h,91h db 'tr2',10h,92h db 'tr3',10h,93h db 'tr4',10h,94h db 'tr5',10h,95h db 'tr6',10h,96h db 'tr7',10h,97h db 'wdm',1Bh,81h symbols_4: db 'byte',11h,1 db 'code',19h,5 db 'coff',18h,40h db 'cr10',10h,5Ah db 'cr11',10h,5Bh db 'cr12',10h,5Ch db 'cr13',10h,5Dh db 'cr14',10h,5Eh db 'cr15',10h,5Fh db 'data',19h,6 db 'dr10',10h,7Ah db 'dr11',10h,7Bh db 'dr12',10h,7Ch db 'dr13',10h,7Dh db 'dr14',10h,7Eh db 'dr15',10h,7Fh db 'ms64',1Ch,49h db 'near',12h,2 db 'note',1Eh,4 db 'pe64',18h,38h db 'r10b',10h,1Ah db 'r10d',10h,4Ah db 'r10l',10h,1Ah db 'r10w',10h,2Ah db 'r11b',10h,1Bh db 'r11d',10h,4Bh db 'r11l',10h,1Bh db 'r11w',10h,2Bh db 'r12b',10h,1Ch db 'r12d',10h,4Ch db 'r12l',10h,1Ch db 'r12w',10h,2Ch db 'r13b',10h,1Dh db 'r13d',10h,4Dh db 'r13l',10h,1Dh db 'r13w',10h,2Dh db 'r14b',10h,1Eh db 'r14d',10h,4Eh db 'r14l',10h,1Eh db 'r14w',10h,2Eh db 'r15b',10h,1Fh db 'r15d',10h,4Fh db 'r15l',10h,1Fh db 'r15w',10h,2Fh db 'word',11h,2 db 'xmm0',10h,0C0h db 'xmm1',10h,0C1h db 'xmm2',10h,0C2h db 'xmm3',10h,0C3h db 'xmm4',10h,0C4h db 'xmm5',10h,0C5h db 'xmm6',10h,0C6h db 'xmm7',10h,0C7h db 'xmm8',10h,0C8h db 'xmm9',10h,0C9h db 'ymm0',10h,0D0h db 'ymm1',10h,0D1h db 'ymm2',10h,0D2h db 'ymm3',10h,0D3h db 'ymm4',10h,0D4h db 'ymm5',10h,0D5h db 'ymm6',10h,0D6h db 'ymm7',10h,0D7h db 'ymm8',10h,0D8h db 'ymm9',10h,0D9h symbols_5: db 'dword',11h,4 db 'elf64',18h,58h db 'fword',11h,6 db 'large',1Bh,82h db 'pword',11h,6 db 'qword',11h,8 db 'short',12h,1 db 'tbyte',11h,0Ah db 'tword',11h,0Ah db 'use16',13h,16 db 'use32',13h,32 db 'use64',13h,64 db 'xmm10',10h,0CAh db 'xmm11',10h,0CBh db 'xmm12',10h,0CCh db 'xmm13',10h,0CDh db 'xmm14',10h,0CEh db 'xmm15',10h,0CFh db 'xword',11h,16 db 'ymm10',10h,0DAh db 'ymm11',10h,0DBh db 'ymm12',10h,0DCh db 'ymm13',10h,0DDh db 'ymm14',10h,0DEh db 'ymm15',10h,0DFh db 'yword',11h,32 symbols_6: db 'binary',18h,10h db 'dqword',11h,16 db 'export',1Ah,0 db 'fixups',1Ah,5 db 'import',1Ah,1 db 'native',1Bh,1 db 'qqword',11h,32 db 'static',1Dh,1 symbols_7: db 'console',1Bh,3 db 'dynamic',1Eh,2 db 'efiboot',1Bh,11 symbols_8: db 'linkinfo',19h,9 db 'readable',19h,30 db 'resource',1Ah,2 db 'writable',19h,31 symbols_9: db 'shareable',19h,28 db 'writeable',19h,31 symbols_10: db 'efiruntime',1Bh,12 db 'executable',19h,29 db 'linkremove',19h,11 symbols_11: db 'discardable',19h,25 db 'interpreter',1Eh,3 db 'notpageable',19h,27 symbols_end: instructions: dw instructions_2-instructions,(instructions_3-instructions_2)/(2+3) dw instructions_3-instructions,(instructions_4-instructions_3)/(3+3) dw instructions_4-instructions,(instructions_5-instructions_4)/(4+3) dw instructions_5-instructions,(instructions_6-instructions_5)/(5+3) dw instructions_6-instructions,(instructions_7-instructions_6)/(6+3) dw instructions_7-instructions,(instructions_8-instructions_7)/(7+3) dw instructions_8-instructions,(instructions_9-instructions_8)/(8+3) dw instructions_9-instructions,(instructions_10-instructions_9)/(9+3) dw instructions_10-instructions,(instructions_11-instructions_10)/(10+3) dw instructions_11-instructions,(instructions_12-instructions_11)/(11+3) dw instructions_12-instructions,(instructions_13-instructions_12)/(12+3) dw instructions_13-instructions,(instructions_14-instructions_13)/(13+3) dw instructions_14-instructions,(instructions_15-instructions_14)/(14+3) dw instructions_15-instructions,(instructions_16-instructions_15)/(15+3) dw instructions_16-instructions,(instructions_end-instructions_16)/(16+3) instructions_2: db 'bt',4 dw bt_instruction-instruction_handler db 'if',0 dw if_directive-instruction_handler db 'in',0 dw in_instruction-instruction_handler db 'ja',77h dw conditional_jump-instruction_handler db 'jb',72h dw conditional_jump-instruction_handler db 'jc',72h dw conditional_jump-instruction_handler db 'je',74h dw conditional_jump-instruction_handler db 'jg',7Fh dw conditional_jump-instruction_handler db 'jl',7Ch dw conditional_jump-instruction_handler db 'jo',70h dw conditional_jump-instruction_handler db 'jp',7Ah dw conditional_jump-instruction_handler db 'js',78h dw conditional_jump-instruction_handler db 'jz',74h dw conditional_jump-instruction_handler db 'or',08h dw basic_instruction-instruction_handler instructions_3: db 'aaa',37h dw simple_instruction_except64-instruction_handler db 'aad',0D5h dw aa_instruction-instruction_handler db 'aam',0D4h dw aa_instruction-instruction_handler db 'aas',3Fh dw simple_instruction_except64-instruction_handler db 'adc',10h dw basic_instruction-instruction_handler db 'add',00h dw basic_instruction-instruction_handler db 'and',20h dw basic_instruction-instruction_handler db 'bsf',0BCh dw bs_instruction-instruction_handler db 'bsr',0BDh dw bs_instruction-instruction_handler db 'btc',7 dw bt_instruction-instruction_handler db 'btr',6 dw bt_instruction-instruction_handler db 'bts',5 dw bt_instruction-instruction_handler db 'cbw',98h dw simple_instruction_16bit-instruction_handler db 'cdq',99h dw simple_instruction_32bit-instruction_handler db 'clc',0F8h dw simple_instruction-instruction_handler db 'cld',0FCh dw simple_instruction-instruction_handler db 'cli',0FAh dw simple_instruction-instruction_handler db 'cmc',0F5h dw simple_instruction-instruction_handler db 'cmp',38h dw basic_instruction-instruction_handler db 'cqo',99h dw simple_instruction_64bit-instruction_handler db 'cwd',99h dw simple_instruction_16bit-instruction_handler db 'daa',27h dw simple_instruction_except64-instruction_handler db 'das',2Fh dw simple_instruction_except64-instruction_handler db 'dec',1 dw inc_instruction-instruction_handler db 'div',6 dw single_operand_instruction-instruction_handler db 'end',0 dw end_directive-instruction_handler db 'err',0 dw err_directive-instruction_handler db 'fld',0 dw fld_instruction-instruction_handler db 'fst',2 dw fld_instruction-instruction_handler db 'hlt',0F4h dw simple_instruction-instruction_handler db 'inc',0 dw inc_instruction-instruction_handler db 'ins',6Ch dw ins_instruction-instruction_handler db 'int',0CDh dw int_instruction-instruction_handler db 'jae',73h dw conditional_jump-instruction_handler db 'jbe',76h dw conditional_jump-instruction_handler db 'jge',7Dh dw conditional_jump-instruction_handler db 'jle',7Eh dw conditional_jump-instruction_handler db 'jmp',0 dw jmp_instruction-instruction_handler db 'jna',76h dw conditional_jump-instruction_handler db 'jnb',73h dw conditional_jump-instruction_handler db 'jnc',73h dw conditional_jump-instruction_handler db 'jne',75h dw conditional_jump-instruction_handler db 'jng',7Eh dw conditional_jump-instruction_handler db 'jnl',7Dh dw conditional_jump-instruction_handler db 'jno',71h dw conditional_jump-instruction_handler db 'jnp',7Bh dw conditional_jump-instruction_handler db 'jns',79h dw conditional_jump-instruction_handler db 'jnz',75h dw conditional_jump-instruction_handler db 'jpe',7Ah dw conditional_jump-instruction_handler db 'jpo',7Bh dw conditional_jump-instruction_handler db 'lar',2 dw lar_instruction-instruction_handler db 'lds',3 dw ls_instruction-instruction_handler db 'lea',0 dw lea_instruction-instruction_handler db 'les',0 dw ls_instruction-instruction_handler db 'lfs',4 dw ls_instruction-instruction_handler db 'lgs',5 dw ls_instruction-instruction_handler db 'lsl',3 dw lar_instruction-instruction_handler db 'lss',2 dw ls_instruction-instruction_handler db 'ltr',3 dw pm_word_instruction-instruction_handler db 'mov',0 dw mov_instruction-instruction_handler db 'mul',4 dw single_operand_instruction-instruction_handler db 'neg',3 dw single_operand_instruction-instruction_handler db 'nop',90h dw nop_instruction-instruction_handler db 'not',2 dw single_operand_instruction-instruction_handler db 'org',0 dw org_directive-instruction_handler db 'out',0 dw out_instruction-instruction_handler db 'pop',0 dw pop_instruction-instruction_handler db 'por',0EBh dw basic_mmx_instruction-instruction_handler db 'rcl',2 dw sh_instruction-instruction_handler db 'rcr',3 dw sh_instruction-instruction_handler db 'rep',0F3h dw prefix_instruction-instruction_handler db 'ret',0C2h dw ret_instruction-instruction_handler db 'rol',0 dw sh_instruction-instruction_handler db 'ror',1 dw sh_instruction-instruction_handler db 'rsm',0AAh dw simple_extended_instruction-instruction_handler db 'sal',4 dw sh_instruction-instruction_handler db 'sar',7 dw sh_instruction-instruction_handler db 'sbb',18h dw basic_instruction-instruction_handler db 'shl',4 dw sh_instruction-instruction_handler db 'shr',5 dw sh_instruction-instruction_handler db 'stc',0F9h dw simple_instruction-instruction_handler db 'std',0FDh dw simple_instruction-instruction_handler db 'sti',0FBh dw simple_instruction-instruction_handler db 'str',1 dw pm_store_word_instruction-instruction_handler db 'sub',28h dw basic_instruction-instruction_handler db 'ud2',0Bh dw simple_extended_instruction-instruction_handler db 'xor',30h dw basic_instruction-instruction_handler instructions_4: db 'arpl',0 dw arpl_instruction-instruction_handler db 'call',0 dw call_instruction-instruction_handler db 'cdqe',98h dw simple_instruction_64bit-instruction_handler db 'clgi',0DDh dw simple_vmx_instruction-instruction_handler db 'clts',6 dw simple_extended_instruction-instruction_handler db 'cmps',0A6h dw cmps_instruction-instruction_handler db 'cwde',98h dw simple_instruction_32bit-instruction_handler db 'data',0 dw data_directive-instruction_handler db 'dppd',41h dw sse4_instruction_3a_imm8-instruction_handler db 'dpps',40h dw sse4_instruction_3a_imm8-instruction_handler db 'else',0 dw else_directive-instruction_handler db 'emms',77h dw simple_extended_instruction-instruction_handler db 'fabs',100001b dw simple_fpu_instruction-instruction_handler db 'fadd',0 dw basic_fpu_instruction-instruction_handler db 'fbld',4 dw fbld_instruction-instruction_handler db 'fchs',100000b dw simple_fpu_instruction-instruction_handler db 'fcom',2 dw basic_fpu_instruction-instruction_handler db 'fcos',111111b dw simple_fpu_instruction-instruction_handler db 'fdiv',6 dw basic_fpu_instruction-instruction_handler db 'feni',0E0h dw finit_instruction-instruction_handler db 'fild',0 dw fild_instruction-instruction_handler db 'fist',2 dw fild_instruction-instruction_handler db 'fld1',101000b dw simple_fpu_instruction-instruction_handler db 'fldz',101110b dw simple_fpu_instruction-instruction_handler db 'fmul',1 dw basic_fpu_instruction-instruction_handler db 'fnop',010000b dw simple_fpu_instruction-instruction_handler db 'fsin',111110b dw simple_fpu_instruction-instruction_handler db 'fstp',3 dw fld_instruction-instruction_handler db 'fsub',4 dw basic_fpu_instruction-instruction_handler db 'ftst',100100b dw simple_fpu_instruction-instruction_handler db 'fxam',100101b dw simple_fpu_instruction-instruction_handler db 'fxch',0 dw fxch_instruction-instruction_handler db 'heap',0 dw heap_directive-instruction_handler db 'idiv',7 dw single_operand_instruction-instruction_handler db 'imul',0 dw imul_instruction-instruction_handler db 'insb',6Ch dw simple_instruction-instruction_handler db 'insd',6Dh dw simple_instruction_32bit-instruction_handler db 'insw',6Dh dw simple_instruction_16bit-instruction_handler db 'int1',0F1h dw simple_instruction-instruction_handler db 'int3',0CCh dw simple_instruction-instruction_handler db 'into',0CEh dw simple_instruction_except64-instruction_handler db 'invd',8 dw simple_extended_instruction-instruction_handler db 'iret',0CFh dw iret_instruction-instruction_handler db 'jcxz',0E3h dw loop_instruction_16bit-instruction_handler db 'jnae',72h dw conditional_jump-instruction_handler db 'jnbe',77h dw conditional_jump-instruction_handler db 'jnge',7Ch dw conditional_jump-instruction_handler db 'jnle',7Fh dw conditional_jump-instruction_handler db 'lahf',9Fh dw simple_instruction-instruction_handler db 'lgdt',2 dw lgdt_instruction-instruction_handler db 'lidt',3 dw lgdt_instruction-instruction_handler db 'lldt',2 dw pm_word_instruction-instruction_handler db 'lmsw',16h dw pm_word_instruction-instruction_handler db 'load',0 dw load_directive-instruction_handler db 'lock',0F0h dw prefix_instruction-instruction_handler db 'lods',0ACh dw lods_instruction-instruction_handler db 'loop',0E2h dw loop_instruction-instruction_handler db 'movd',0 dw movd_instruction-instruction_handler db 'movq',0 dw movq_instruction-instruction_handler db 'movs',0A4h dw movs_instruction-instruction_handler db 'orpd',56h dw sse_pd_instruction-instruction_handler db 'orps',56h dw sse_ps_instruction-instruction_handler db 'outs',6Eh dw outs_instruction-instruction_handler db 'pand',0DBh dw basic_mmx_instruction-instruction_handler db 'popa',61h dw simple_instruction_except64-instruction_handler db 'popd',4 dw pop_instruction-instruction_handler db 'popf',9Dh dw simple_instruction-instruction_handler db 'popq',8 dw pop_instruction-instruction_handler db 'popw',2 dw pop_instruction-instruction_handler db 'push',0 dw push_instruction-instruction_handler db 'pxor',0EFh dw basic_mmx_instruction-instruction_handler db 'repe',0F3h dw prefix_instruction-instruction_handler db 'repz',0F3h dw prefix_instruction-instruction_handler db 'retd',0C2h dw ret_instruction_32bit_except64-instruction_handler db 'retf',0CAh dw retf_instruction-instruction_handler db 'retn',0C2h dw ret_instruction-instruction_handler db 'retq',0C2h dw ret_instruction_only64-instruction_handler db 'retw',0C2h dw ret_instruction_16bit-instruction_handler db 'sahf',9Eh dw simple_instruction-instruction_handler db 'salc',0D6h dw simple_instruction_except64-instruction_handler db 'scas',0AEh dw stos_instruction-instruction_handler db 'seta',97h dw set_instruction-instruction_handler db 'setb',92h dw set_instruction-instruction_handler db 'setc',92h dw set_instruction-instruction_handler db 'sete',94h dw set_instruction-instruction_handler db 'setg',9Fh dw set_instruction-instruction_handler db 'setl',9Ch dw set_instruction-instruction_handler db 'seto',90h dw set_instruction-instruction_handler db 'setp',9Ah dw set_instruction-instruction_handler db 'sets',98h dw set_instruction-instruction_handler db 'setz',94h dw set_instruction-instruction_handler db 'sgdt',0 dw lgdt_instruction-instruction_handler db 'shld',0A4h dw shd_instruction-instruction_handler db 'shrd',0ACh dw shd_instruction-instruction_handler db 'sidt',1 dw lgdt_instruction-instruction_handler db 'sldt',0 dw pm_store_word_instruction-instruction_handler db 'smsw',14h dw pm_store_word_instruction-instruction_handler db 'stgi',0DCh dw simple_vmx_instruction-instruction_handler db 'stos',0AAh dw stos_instruction-instruction_handler db 'test',0 dw test_instruction-instruction_handler db 'verr',4 dw pm_word_instruction-instruction_handler db 'verw',5 dw pm_word_instruction-instruction_handler db 'vpor',0EBh dw avx_128bit_instruction-instruction_handler db 'wait',9Bh dw simple_instruction-instruction_handler db 'xadd',0C0h dw basic_486_instruction-instruction_handler db 'xchg',0 dw xchg_instruction-instruction_handler db 'xlat',0D7h dw xlat_instruction-instruction_handler instructions_5: db 'addpd',58h dw sse_pd_instruction-instruction_handler db 'addps',58h dw sse_ps_instruction-instruction_handler db 'addsd',58h dw sse_sd_instruction-instruction_handler db 'addss',58h dw sse_ss_instruction-instruction_handler db 'align',0 dw align_directive-instruction_handler db 'andpd',54h dw sse_pd_instruction-instruction_handler db 'andps',54h dw sse_ps_instruction-instruction_handler db 'bound',0 dw bound_instruction-instruction_handler db 'break',0 dw break_directive-instruction_handler db 'bswap',0 dw bswap_instruction-instruction_handler db 'cmova',47h dw cmov_instruction-instruction_handler db 'cmovb',42h dw cmov_instruction-instruction_handler db 'cmovc',42h dw cmov_instruction-instruction_handler db 'cmove',44h dw cmov_instruction-instruction_handler db 'cmovg',4Fh dw cmov_instruction-instruction_handler db 'cmovl',4Ch dw cmov_instruction-instruction_handler db 'cmovo',40h dw cmov_instruction-instruction_handler db 'cmovp',4Ah dw cmov_instruction-instruction_handler db 'cmovs',48h dw cmov_instruction-instruction_handler db 'cmovz',44h dw cmov_instruction-instruction_handler db 'cmppd',-1 dw cmp_pd_instruction-instruction_handler db 'cmpps',-1 dw cmp_ps_instruction-instruction_handler db 'cmpsb',0A6h dw simple_instruction-instruction_handler db 'cmpsd',-1 dw cmpsd_instruction-instruction_handler db 'cmpsq',0A7h dw simple_instruction_64bit-instruction_handler db 'cmpss',-1 dw cmp_ss_instruction-instruction_handler db 'cmpsw',0A7h dw simple_instruction_16bit-instruction_handler db 'cpuid',0A2h dw simple_extended_instruction-instruction_handler db 'crc32',0 dw crc32_instruction-instruction_handler db 'divpd',5Eh dw sse_pd_instruction-instruction_handler db 'divps',5Eh dw sse_ps_instruction-instruction_handler db 'divsd',5Eh dw sse_sd_instruction-instruction_handler db 'divss',5Eh dw sse_ss_instruction-instruction_handler db 'enter',0 dw enter_instruction-instruction_handler db 'entry',0 dw entry_directive-instruction_handler db 'extrn',0 dw extrn_directive-instruction_handler db 'extrq',0 dw extrq_instruction-instruction_handler db 'f2xm1',110000b dw simple_fpu_instruction-instruction_handler db 'faddp',0 dw faddp_instruction-instruction_handler db 'fbstp',6 dw fbld_instruction-instruction_handler db 'fclex',0E2h dw finit_instruction-instruction_handler db 'fcomi',0F0h dw fcomi_instruction-instruction_handler db 'fcomp',3 dw basic_fpu_instruction-instruction_handler db 'fdisi',0E1h dw finit_instruction-instruction_handler db 'fdivp',7 dw faddp_instruction-instruction_handler db 'fdivr',7 dw basic_fpu_instruction-instruction_handler db 'femms',0Eh dw simple_extended_instruction-instruction_handler db 'ffree',0 dw ffree_instruction-instruction_handler db 'fiadd',0 dw fi_instruction-instruction_handler db 'ficom',2 dw fi_instruction-instruction_handler db 'fidiv',6 dw fi_instruction-instruction_handler db 'fimul',1 dw fi_instruction-instruction_handler db 'finit',0E3h dw finit_instruction-instruction_handler db 'fistp',3 dw fild_instruction-instruction_handler db 'fisub',4 dw fi_instruction-instruction_handler db 'fldcw',5 dw fldcw_instruction-instruction_handler db 'fldpi',101011b dw simple_fpu_instruction-instruction_handler db 'fmulp',1 dw faddp_instruction-instruction_handler db 'fneni',0E0h dw fninit_instruction-instruction_handler db 'fprem',111000b dw simple_fpu_instruction-instruction_handler db 'fptan',110010b dw simple_fpu_instruction-instruction_handler db 'fsave',6 dw fsave_instruction-instruction_handler db 'fsqrt',111010b dw simple_fpu_instruction-instruction_handler db 'fstcw',7 dw fstcw_instruction-instruction_handler db 'fstsw',0 dw fstsw_instruction-instruction_handler db 'fsubp',5 dw faddp_instruction-instruction_handler db 'fsubr',5 dw basic_fpu_instruction-instruction_handler db 'fucom',4 dw ffree_instruction-instruction_handler db 'fwait',9Bh dw simple_instruction-instruction_handler db 'fyl2x',110001b dw simple_fpu_instruction-instruction_handler db 'icebp',0F1h dw simple_instruction-instruction_handler db 'iretd',0CFh dw simple_instruction_32bit-instruction_handler db 'iretq',0CFh dw simple_instruction_64bit-instruction_handler db 'iretw',0CFh dw simple_instruction_16bit-instruction_handler db 'jecxz',0E3h dw loop_instruction_32bit-instruction_handler db 'jrcxz',0E3h dw loop_instruction_64bit-instruction_handler db 'label',0 dw label_directive-instruction_handler db 'lddqu',0 dw lddqu_instruction-instruction_handler db 'leave',0C9h dw simple_instruction-instruction_handler db 'lodsb',0ACh dw simple_instruction-instruction_handler db 'lodsd',0ADh dw simple_instruction_32bit-instruction_handler db 'lodsq',0ADh dw simple_instruction_64bit-instruction_handler db 'lodsw',0ADh dw simple_instruction_16bit-instruction_handler db 'loopd',0E2h dw loop_instruction_32bit-instruction_handler db 'loope',0E1h dw loop_instruction-instruction_handler db 'loopq',0E2h dw loop_instruction_64bit-instruction_handler db 'loopw',0E2h dw loop_instruction_16bit-instruction_handler db 'loopz',0E1h dw loop_instruction-instruction_handler db 'lzcnt',0BDh dw popcnt_instruction-instruction_handler db 'maxpd',5Fh dw sse_pd_instruction-instruction_handler db 'maxps',5Fh dw sse_ps_instruction-instruction_handler db 'maxsd',5Fh dw sse_sd_instruction-instruction_handler db 'maxss',5Fh dw sse_ss_instruction-instruction_handler db 'minpd',5Dh dw sse_pd_instruction-instruction_handler db 'minps',5Dh dw sse_ps_instruction-instruction_handler db 'minsd',5Dh dw sse_sd_instruction-instruction_handler db 'minss',5Dh dw sse_ss_instruction-instruction_handler db 'movbe',0F0h dw movbe_instruction-instruction_handler db 'movsb',0A4h dw simple_instruction-instruction_handler db 'movsd',0 dw movsd_instruction-instruction_handler db 'movsq',0A5h dw simple_instruction_64bit-instruction_handler db 'movss',0 dw movss_instruction-instruction_handler db 'movsw',0A5h dw simple_instruction_16bit-instruction_handler db 'movsx',0BEh dw movx_instruction-instruction_handler db 'movzx',0B6h dw movx_instruction-instruction_handler db 'mulpd',59h dw sse_pd_instruction-instruction_handler db 'mulps',59h dw sse_ps_instruction-instruction_handler db 'mulsd',59h dw sse_sd_instruction-instruction_handler db 'mulss',59h dw sse_ss_instruction-instruction_handler db 'mwait',0C9h dw monitor_instruction-instruction_handler db 'outsb',6Eh dw simple_instruction-instruction_handler db 'outsd',6Fh dw simple_instruction_32bit-instruction_handler db 'outsw',6Fh dw simple_instruction_16bit-instruction_handler db 'pabsb',1Ch dw ssse3_instruction-instruction_handler db 'pabsd',1Eh dw ssse3_instruction-instruction_handler db 'pabsw',1Dh dw ssse3_instruction-instruction_handler db 'paddb',0FCh dw basic_mmx_instruction-instruction_handler db 'paddd',0FEh dw basic_mmx_instruction-instruction_handler db 'paddq',0D4h dw basic_mmx_instruction-instruction_handler db 'paddw',0FDh dw basic_mmx_instruction-instruction_handler db 'pandn',0DFh dw basic_mmx_instruction-instruction_handler db 'pause',0 dw pause_instruction-instruction_handler db 'pavgb',0E0h dw basic_mmx_instruction-instruction_handler db 'pavgw',0E3h dw basic_mmx_instruction-instruction_handler db 'pf2id',1Dh dw amd3dnow_instruction-instruction_handler db 'pf2iw',1Ch dw amd3dnow_instruction-instruction_handler db 'pfacc',0AEh dw amd3dnow_instruction-instruction_handler db 'pfadd',9Eh dw amd3dnow_instruction-instruction_handler db 'pfmax',0A4h dw amd3dnow_instruction-instruction_handler db 'pfmin',94h dw amd3dnow_instruction-instruction_handler db 'pfmul',0B4h dw amd3dnow_instruction-instruction_handler db 'pfrcp',96h dw amd3dnow_instruction-instruction_handler db 'pfsub',9Ah dw amd3dnow_instruction-instruction_handler db 'pi2fd',0Dh dw amd3dnow_instruction-instruction_handler db 'pi2fw',0Ch dw amd3dnow_instruction-instruction_handler db 'popad',61h dw simple_instruction_32bit_except64-instruction_handler db 'popaw',61h dw simple_instruction_16bit_except64-instruction_handler db 'popfd',9Dh dw simple_instruction_32bit_except64-instruction_handler db 'popfq',9Dh dw simple_instruction_only64-instruction_handler db 'popfw',9Dh dw simple_instruction_16bit-instruction_handler db 'pslld',0F2h dw mmx_bit_shift_instruction-instruction_handler db 'psllq',0F3h dw mmx_bit_shift_instruction-instruction_handler db 'psllw',0F1h dw mmx_bit_shift_instruction-instruction_handler db 'psrad',0E2h dw mmx_bit_shift_instruction-instruction_handler db 'psraw',0E1h dw mmx_bit_shift_instruction-instruction_handler db 'psrld',0D2h dw mmx_bit_shift_instruction-instruction_handler db 'psrlq',0D3h dw mmx_bit_shift_instruction-instruction_handler db 'psrlw',0D1h dw mmx_bit_shift_instruction-instruction_handler db 'psubb',0F8h dw basic_mmx_instruction-instruction_handler db 'psubd',0FAh dw basic_mmx_instruction-instruction_handler db 'psubq',0FBh dw basic_mmx_instruction-instruction_handler db 'psubw',0F9h dw basic_mmx_instruction-instruction_handler db 'ptest',17h dw sse4_instruction_38-instruction_handler db 'pusha',60h dw simple_instruction_except64-instruction_handler db 'pushd',4 dw push_instruction-instruction_handler db 'pushf',9Ch dw simple_instruction-instruction_handler db 'pushq',8 dw push_instruction-instruction_handler db 'pushw',2 dw push_instruction-instruction_handler db 'rcpps',53h dw sse_ps_instruction-instruction_handler db 'rcpss',53h dw sse_ss_instruction-instruction_handler db 'rdmsr',32h dw simple_extended_instruction-instruction_handler db 'rdpmc',33h dw simple_extended_instruction-instruction_handler db 'rdtsc',31h dw simple_extended_instruction-instruction_handler db 'repne',0F2h dw prefix_instruction-instruction_handler db 'repnz',0F2h dw prefix_instruction-instruction_handler db 'retfd',0CAh dw ret_instruction_32bit-instruction_handler db 'retfq',0CAh dw ret_instruction_64bit-instruction_handler db 'retfw',0CAh dw ret_instruction_16bit-instruction_handler db 'retnd',0C2h dw ret_instruction_32bit_except64-instruction_handler db 'retnq',0C2h dw ret_instruction_only64-instruction_handler db 'retnw',0C2h dw ret_instruction_16bit-instruction_handler db 'scasb',0AEh dw simple_instruction-instruction_handler db 'scasd',0AFh dw simple_instruction_32bit-instruction_handler db 'scasq',0AFh dw simple_instruction_64bit-instruction_handler db 'scasw',0AFh dw simple_instruction_16bit-instruction_handler db 'setae',93h dw set_instruction-instruction_handler db 'setbe',96h dw set_instruction-instruction_handler db 'setge',9Dh dw set_instruction-instruction_handler db 'setle',9Eh dw set_instruction-instruction_handler db 'setna',96h dw set_instruction-instruction_handler db 'setnb',93h dw set_instruction-instruction_handler db 'setnc',93h dw set_instruction-instruction_handler db 'setne',95h dw set_instruction-instruction_handler db 'setng',9Eh dw set_instruction-instruction_handler db 'setnl',9Dh dw set_instruction-instruction_handler db 'setno',91h dw set_instruction-instruction_handler db 'setnp',9Bh dw set_instruction-instruction_handler db 'setns',99h dw set_instruction-instruction_handler db 'setnz',95h dw set_instruction-instruction_handler db 'setpe',9Ah dw set_instruction-instruction_handler db 'setpo',9Bh dw set_instruction-instruction_handler db 'stack',0 dw stack_directive-instruction_handler db 'store',0 dw store_directive-instruction_handler db 'stosb',0AAh dw simple_instruction-instruction_handler db 'stosd',0ABh dw simple_instruction_32bit-instruction_handler db 'stosq',0ABh dw simple_instruction_64bit-instruction_handler db 'stosw',0ABh dw simple_instruction_16bit-instruction_handler db 'subpd',5Ch dw sse_pd_instruction-instruction_handler db 'subps',5Ch dw sse_ps_instruction-instruction_handler db 'subsd',5Ch dw sse_sd_instruction-instruction_handler db 'subss',5Ch dw sse_ss_instruction-instruction_handler db 'times',0 dw times_directive-instruction_handler db 'vdppd',41h dw avx_128bit_instruction_3a_imm8-instruction_handler db 'vdpps',40h dw avx_instruction_3a_imm8-instruction_handler db 'vmovd',0 dw avx_movd_instruction-instruction_handler db 'vmovq',0 dw avx_movq_instruction-instruction_handler db 'vmrun',0D8h dw simple_svm_instruction-instruction_handler db 'vmxon',6 dw vmxon_instruction-instruction_handler db 'vorpd',56h dw avx_pd_instruction-instruction_handler db 'vorps',56h dw avx_ps_instruction-instruction_handler db 'vpand',0DBh dw avx_128bit_instruction-instruction_handler db 'vpxor',0EFh dw avx_128bit_instruction-instruction_handler db 'while',0 dw while_directive-instruction_handler db 'wrmsr',30h dw simple_extended_instruction-instruction_handler db 'xlatb',0D7h dw simple_instruction-instruction_handler db 'xorpd',57h dw sse_pd_instruction-instruction_handler db 'xorps',57h dw sse_ps_instruction-instruction_handler db 'xsave',100b dw fxsave_instruction-instruction_handler instructions_6: db 'aesdec',0DEh dw sse4_instruction_38-instruction_handler db 'aesenc',0DCh dw sse4_instruction_38-instruction_handler db 'aesimc',0DBh dw sse4_instruction_38-instruction_handler db 'andnpd',55h dw sse_pd_instruction-instruction_handler db 'andnps',55h dw sse_ps_instruction-instruction_handler db 'cmovae',43h dw cmov_instruction-instruction_handler db 'cmovbe',46h dw cmov_instruction-instruction_handler db 'cmovge',4Dh dw cmov_instruction-instruction_handler db 'cmovle',4Eh dw cmov_instruction-instruction_handler db 'cmovna',46h dw cmov_instruction-instruction_handler db 'cmovnb',43h dw cmov_instruction-instruction_handler db 'cmovnc',43h dw cmov_instruction-instruction_handler db 'cmovne',45h dw cmov_instruction-instruction_handler db 'cmovng',4Eh dw cmov_instruction-instruction_handler db 'cmovnl',4Dh dw cmov_instruction-instruction_handler db 'cmovno',41h dw cmov_instruction-instruction_handler db 'cmovnp',4Bh dw cmov_instruction-instruction_handler db 'cmovns',49h dw cmov_instruction-instruction_handler db 'cmovnz',45h dw cmov_instruction-instruction_handler db 'cmovpe',4Ah dw cmov_instruction-instruction_handler db 'cmovpo',4Bh dw cmov_instruction-instruction_handler db 'comisd',2Fh dw comisd_instruction-instruction_handler db 'comiss',2Fh dw comiss_instruction-instruction_handler db 'fcmovb',0C0h dw fcmov_instruction-instruction_handler db 'fcmove',0C8h dw fcmov_instruction-instruction_handler db 'fcmovu',0D8h dw fcmov_instruction-instruction_handler db 'fcomip',0F0h dw fcomip_instruction-instruction_handler db 'fcompp',0 dw fcompp_instruction-instruction_handler db 'fdivrp',6 dw faddp_instruction-instruction_handler db 'ffreep',0 dw ffreep_instruction-instruction_handler db 'ficomp',3 dw fi_instruction-instruction_handler db 'fidivr',7 dw fi_instruction-instruction_handler db 'fisttp',1 dw fild_instruction-instruction_handler db 'fisubr',5 dw fi_instruction-instruction_handler db 'fldenv',4 dw fldenv_instruction-instruction_handler db 'fldl2e',101010b dw simple_fpu_instruction-instruction_handler db 'fldl2t',101001b dw simple_fpu_instruction-instruction_handler db 'fldlg2',101100b dw simple_fpu_instruction-instruction_handler db 'fldln2',101101b dw simple_fpu_instruction-instruction_handler db 'fnclex',0E2h dw fninit_instruction-instruction_handler db 'fndisi',0E1h dw fninit_instruction-instruction_handler db 'fninit',0E3h dw fninit_instruction-instruction_handler db 'fnsave',6 dw fnsave_instruction-instruction_handler db 'fnstcw',7 dw fldcw_instruction-instruction_handler db 'fnstsw',0 dw fnstsw_instruction-instruction_handler db 'format',0 dw format_directive-instruction_handler db 'fpatan',110011b dw simple_fpu_instruction-instruction_handler db 'fprem1',110101b dw simple_fpu_instruction-instruction_handler db 'frstor',4 dw fnsave_instruction-instruction_handler db 'frstpm',0E5h dw fninit_instruction-instruction_handler db 'fsaved',6 dw fsave_instruction_32bit-instruction_handler db 'fsavew',6 dw fsave_instruction_16bit-instruction_handler db 'fscale',111101b dw simple_fpu_instruction-instruction_handler db 'fsetpm',0E4h dw fninit_instruction-instruction_handler db 'fstenv',6 dw fstenv_instruction-instruction_handler db 'fsubrp',4 dw faddp_instruction-instruction_handler db 'fucomi',0E8h dw fcomi_instruction-instruction_handler db 'fucomp',5 dw ffree_instruction-instruction_handler db 'fxsave',0 dw fxsave_instruction-instruction_handler db 'getsec',37h dw simple_extended_instruction-instruction_handler db 'haddpd',07Ch dw sse_pd_instruction-instruction_handler db 'haddps',07Ch dw cvtpd2dq_instruction-instruction_handler db 'hsubpd',07Dh dw sse_pd_instruction-instruction_handler db 'hsubps',07Dh dw cvtpd2dq_instruction-instruction_handler db 'invept',80h dw vmx_inv_instruction-instruction_handler db 'invlpg',0 dw invlpg_instruction-instruction_handler db 'lfence',0E8h dw fence_instruction-instruction_handler db 'looped',0E1h dw loop_instruction_32bit-instruction_handler db 'loopeq',0E1h dw loop_instruction_64bit-instruction_handler db 'loopew',0E1h dw loop_instruction_16bit-instruction_handler db 'loopne',0E0h dw loop_instruction-instruction_handler db 'loopnz',0E0h dw loop_instruction-instruction_handler db 'loopzd',0E1h dw loop_instruction_32bit-instruction_handler db 'loopzq',0E1h dw loop_instruction_64bit-instruction_handler db 'loopzw',0E1h dw loop_instruction_16bit-instruction_handler db 'mfence',0F0h dw fence_instruction-instruction_handler db 'movapd',28h dw movpd_instruction-instruction_handler db 'movaps',28h dw movps_instruction-instruction_handler db 'movdqa',66h dw movdq_instruction-instruction_handler db 'movdqu',0F3h dw movdq_instruction-instruction_handler db 'movhpd',16h dw movlpd_instruction-instruction_handler db 'movhps',16h dw movlps_instruction-instruction_handler db 'movlpd',12h dw movlpd_instruction-instruction_handler db 'movlps',12h dw movlps_instruction-instruction_handler db 'movnti',0C3h dw movnti_instruction-instruction_handler db 'movntq',0E7h dw movntq_instruction-instruction_handler db 'movsxd',63h dw movsxd_instruction-instruction_handler db 'movupd',10h dw movpd_instruction-instruction_handler db 'movups',10h dw movps_instruction-instruction_handler db 'paddsb',0ECh dw basic_mmx_instruction-instruction_handler db 'paddsw',0EDh dw basic_mmx_instruction-instruction_handler db 'pextrb',14h dw pextrb_instruction-instruction_handler db 'pextrd',16h dw pextrd_instruction-instruction_handler db 'pextrq',16h dw pextrq_instruction-instruction_handler db 'pextrw',15h dw pextrw_instruction-instruction_handler db 'pfnacc',8Ah dw amd3dnow_instruction-instruction_handler db 'pfsubr',0AAh dw amd3dnow_instruction-instruction_handler db 'phaddd',2 dw ssse3_instruction-instruction_handler db 'phaddw',1 dw ssse3_instruction-instruction_handler db 'phsubd',6 dw ssse3_instruction-instruction_handler db 'phsubw',5 dw ssse3_instruction-instruction_handler db 'pinsrb',20h dw pinsrb_instruction-instruction_handler db 'pinsrd',22h dw pinsrd_instruction-instruction_handler db 'pinsrq',22h dw pinsrq_instruction-instruction_handler db 'pinsrw',0C4h dw pinsrw_instruction-instruction_handler db 'pmaxsb',3Ch dw sse4_instruction_38-instruction_handler db 'pmaxsd',3Dh dw sse4_instruction_38-instruction_handler db 'pmaxsw',0EEh dw basic_mmx_instruction-instruction_handler db 'pmaxub',0DEh dw basic_mmx_instruction-instruction_handler db 'pmaxud',3Fh dw sse4_instruction_38-instruction_handler db 'pmaxuw',3Eh dw sse4_instruction_38-instruction_handler db 'pminsb',38h dw sse4_instruction_38-instruction_handler db 'pminsd',39h dw sse4_instruction_38-instruction_handler db 'pminsw',0EAh dw basic_mmx_instruction-instruction_handler db 'pminub',0DAh dw basic_mmx_instruction-instruction_handler db 'pminud',3Bh dw sse4_instruction_38-instruction_handler db 'pminuw',3Ah dw sse4_instruction_38-instruction_handler db 'pmuldq',28h dw sse4_instruction_38-instruction_handler db 'pmulhw',0E5h dw basic_mmx_instruction-instruction_handler db 'pmulld',40h dw sse4_instruction_38-instruction_handler db 'pmullw',0D5h dw basic_mmx_instruction-instruction_handler db 'popcnt',0B8h dw popcnt_instruction-instruction_handler db 'psadbw',0F6h dw basic_mmx_instruction-instruction_handler db 'pshufb',0 dw ssse3_instruction-instruction_handler db 'pshufd',66h dw pshufd_instruction-instruction_handler db 'pshufw',0 dw pshufw_instruction-instruction_handler db 'psignb',8 dw ssse3_instruction-instruction_handler db 'psignd',0Ah dw ssse3_instruction-instruction_handler db 'psignw',9 dw ssse3_instruction-instruction_handler db 'pslldq',111b dw pslldq_instruction-instruction_handler db 'psrldq',011b dw pslldq_instruction-instruction_handler db 'psubsb',0E8h dw basic_mmx_instruction-instruction_handler db 'psubsw',0E9h dw basic_mmx_instruction-instruction_handler db 'pswapd',0BBh dw amd3dnow_instruction-instruction_handler db 'public',0 dw public_directive-instruction_handler db 'pushad',60h dw simple_instruction_32bit_except64-instruction_handler db 'pushaw',60h dw simple_instruction_16bit_except64-instruction_handler db 'pushfd',9Ch dw simple_instruction_32bit_except64-instruction_handler db 'pushfq',9Ch dw simple_instruction_only64-instruction_handler db 'pushfw',9Ch dw simple_instruction_16bit-instruction_handler db 'rdmsrq',32h dw simple_extended_instruction_64bit-instruction_handler db 'rdrand',110b dw rdrand_instruction-instruction_handler db 'rdtscp',1 dw swapgs_instruction-instruction_handler db 'repeat',0 dw repeat_directive-instruction_handler db 'setalc',0D6h dw simple_instruction_except64-instruction_handler db 'setnae',92h dw set_instruction-instruction_handler db 'setnbe',97h dw set_instruction-instruction_handler db 'setnge',9Ch dw set_instruction-instruction_handler db 'setnle',9Fh dw set_instruction-instruction_handler db 'sfence',0F8h dw fence_instruction-instruction_handler db 'shufpd',0C6h dw sse_pd_instruction_imm8-instruction_handler db 'shufps',0C6h dw sse_ps_instruction_imm8-instruction_handler db 'skinit',0 dw skinit_instruction-instruction_handler db 'sqrtpd',51h dw sse_pd_instruction-instruction_handler db 'sqrtps',51h dw sse_ps_instruction-instruction_handler db 'sqrtsd',51h dw sse_sd_instruction-instruction_handler db 'sqrtss',51h dw sse_ss_instruction-instruction_handler db 'swapgs',0 dw swapgs_instruction-instruction_handler db 'sysret',07h dw simple_extended_instruction-instruction_handler db 'vaddpd',58h dw avx_pd_instruction-instruction_handler db 'vaddps',58h dw avx_ps_instruction-instruction_handler db 'vaddsd',58h dw avx_sd_instruction-instruction_handler db 'vaddss',58h dw avx_ss_instruction-instruction_handler db 'vandpd',54h dw avx_pd_instruction-instruction_handler db 'vandps',54h dw avx_ps_instruction-instruction_handler db 'vcmppd',-1 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpps',-1 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpsd',-1 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpss',-1 dw avx_cmp_ss_instruction-instruction_handler db 'vdivpd',5Eh dw avx_pd_instruction-instruction_handler db 'vdivps',5Eh dw avx_ps_instruction-instruction_handler db 'vdivsd',5Eh dw avx_sd_instruction-instruction_handler db 'vdivss',5Eh dw avx_ss_instruction-instruction_handler db 'vlddqu',0F0h dw avx_lddqu_instruction-instruction_handler db 'vmaxpd',5Fh dw avx_pd_instruction-instruction_handler db 'vmaxps',5Fh dw avx_ps_instruction-instruction_handler db 'vmaxsd',5Fh dw avx_sd_instruction-instruction_handler db 'vmaxss',5Fh dw avx_ss_instruction-instruction_handler db 'vmcall',0C1h dw simple_vmx_instruction-instruction_handler db 'vminpd',5Dh dw avx_pd_instruction-instruction_handler db 'vminps',5Dh dw avx_ps_instruction-instruction_handler db 'vminsd',5Dh dw avx_sd_instruction-instruction_handler db 'vminss',5Dh dw avx_ss_instruction-instruction_handler db 'vmload',0DAh dw simple_svm_instruction-instruction_handler db 'vmovsd',0 dw avx_movsd_instruction-instruction_handler db 'vmovss',0 dw avx_movss_instruction-instruction_handler db 'vmread',0 dw vmread_instruction-instruction_handler db 'vmsave',0DBh dw simple_svm_instruction-instruction_handler db 'vmulpd',59h dw avx_pd_instruction-instruction_handler db 'vmulps',59h dw avx_ps_instruction-instruction_handler db 'vmulsd',59h dw avx_sd_instruction-instruction_handler db 'vmulss',59h dw avx_ss_instruction-instruction_handler db 'vmxoff',0C4h dw simple_vmx_instruction-instruction_handler db 'vpabsb',1Ch dw avx_single_source_128bit_instruction_38-instruction_handler db 'vpabsd',1Eh dw avx_single_source_128bit_instruction_38-instruction_handler db 'vpabsw',1Dh dw avx_single_source_128bit_instruction_38-instruction_handler db 'vpaddb',0FCh dw avx_128bit_instruction-instruction_handler db 'vpaddd',0FEh dw avx_128bit_instruction-instruction_handler db 'vpaddq',0D4h dw avx_128bit_instruction-instruction_handler db 'vpaddw',0FDh dw avx_128bit_instruction-instruction_handler db 'vpandn',0DFh dw avx_128bit_instruction-instruction_handler db 'vpavgb',0E0h dw avx_128bit_instruction-instruction_handler db 'vpavgw',0E3h dw avx_128bit_instruction-instruction_handler db 'vpcmov',0A2h dw vpcmov_instruction-instruction_handler db 'vpcomb',-1 dw xop_pcom_b_instruction-instruction_handler db 'vpcomd',-1 dw xop_pcom_d_instruction-instruction_handler db 'vpcomq',-1 dw xop_pcom_q_instruction-instruction_handler db 'vpcomw',-1 dw xop_pcom_w_instruction-instruction_handler db 'vpperm',0A3h dw xop_128bit_instruction-instruction_handler db 'vprotb',90h dw xop_shift_instruction-instruction_handler db 'vprotd',92h dw xop_shift_instruction-instruction_handler db 'vprotq',93h dw xop_shift_instruction-instruction_handler db 'vprotw',91h dw xop_shift_instruction-instruction_handler db 'vpshab',98h dw xop_shift_instruction-instruction_handler db 'vpshad',9Ah dw xop_shift_instruction-instruction_handler db 'vpshaq',9Bh dw xop_shift_instruction-instruction_handler db 'vpshaw',99h dw xop_shift_instruction-instruction_handler db 'vpshlb',94h dw xop_shift_instruction-instruction_handler db 'vpshld',96h dw xop_shift_instruction-instruction_handler db 'vpshlq',97h dw xop_shift_instruction-instruction_handler db 'vpshlw',95h dw xop_shift_instruction-instruction_handler db 'vpslld',0F2h dw avx_bit_shift_instruction-instruction_handler db 'vpsllq',0F3h dw avx_bit_shift_instruction-instruction_handler db 'vpsllw',0F1h dw avx_bit_shift_instruction-instruction_handler db 'vpsrad',0E2h dw avx_bit_shift_instruction-instruction_handler db 'vpsraw',0E1h dw avx_bit_shift_instruction-instruction_handler db 'vpsrld',0D2h dw avx_bit_shift_instruction-instruction_handler db 'vpsrlq',0D3h dw avx_bit_shift_instruction-instruction_handler db 'vpsrlw',0D1h dw avx_bit_shift_instruction-instruction_handler db 'vpsubb',0F8h dw avx_128bit_instruction-instruction_handler db 'vpsubd',0FAh dw avx_128bit_instruction-instruction_handler db 'vpsubq',0FBh dw avx_128bit_instruction-instruction_handler db 'vpsubw',0F9h dw avx_128bit_instruction-instruction_handler db 'vptest',17h dw avx_single_source_instruction_38-instruction_handler db 'vrcpps',53h dw avx_single_source_ps_instruction-instruction_handler db 'vrcpss',53h dw avx_ss_instruction-instruction_handler db 'vsubpd',5Ch dw avx_pd_instruction-instruction_handler db 'vsubps',5Ch dw avx_ps_instruction-instruction_handler db 'vsubsd',5Ch dw avx_sd_instruction-instruction_handler db 'vsubss',5Ch dw avx_ss_instruction-instruction_handler db 'vxorpd',57h dw avx_pd_instruction-instruction_handler db 'vxorps',57h dw avx_ps_instruction-instruction_handler db 'wbinvd',9 dw simple_extended_instruction-instruction_handler db 'wrmsrq',30h dw simple_extended_instruction_64bit-instruction_handler db 'xgetbv',0D0h dw simple_vmx_instruction-instruction_handler db 'xrstor',101b dw fxsave_instruction-instruction_handler db 'xsetbv',0D1h dw simple_vmx_instruction-instruction_handler instructions_7: db 'blendpd',0Dh dw sse4_instruction_3a_imm8-instruction_handler db 'blendps',0Ch dw sse4_instruction_3a_imm8-instruction_handler db 'clflush',111b dw fxsave_instruction-instruction_handler db 'cmovnae',42h dw cmov_instruction-instruction_handler db 'cmovnbe',47h dw cmov_instruction-instruction_handler db 'cmovnge',4Ch dw cmov_instruction-instruction_handler db 'cmovnle',4Fh dw cmov_instruction-instruction_handler db 'cmpeqpd',0 dw cmp_pd_instruction-instruction_handler db 'cmpeqps',0 dw cmp_ps_instruction-instruction_handler db 'cmpeqsd',0 dw cmp_sd_instruction-instruction_handler db 'cmpeqss',0 dw cmp_ss_instruction-instruction_handler db 'cmplepd',2 dw cmp_pd_instruction-instruction_handler db 'cmpleps',2 dw cmp_ps_instruction-instruction_handler db 'cmplesd',2 dw cmp_sd_instruction-instruction_handler db 'cmpless',2 dw cmp_ss_instruction-instruction_handler db 'cmpltpd',1 dw cmp_pd_instruction-instruction_handler db 'cmpltps',1 dw cmp_ps_instruction-instruction_handler db 'cmpltsd',1 dw cmp_sd_instruction-instruction_handler db 'cmpltss',1 dw cmp_ss_instruction-instruction_handler db 'cmpxchg',0B0h dw basic_486_instruction-instruction_handler db 'display',0 dw display_directive-instruction_handler db 'fcmovbe',0D0h dw fcmov_instruction-instruction_handler db 'fcmovnb',0C0h dw fcomi_instruction-instruction_handler db 'fcmovne',0C8h dw fcomi_instruction-instruction_handler db 'fcmovnu',0D8h dw fcomi_instruction-instruction_handler db 'fdecstp',110110b dw simple_fpu_instruction-instruction_handler db 'fincstp',110111b dw simple_fpu_instruction-instruction_handler db 'fldenvd',4 dw fldenv_instruction_32bit-instruction_handler db 'fldenvw',4 dw fldenv_instruction_32bit-instruction_handler db 'fnsaved',6 dw fnsave_instruction_32bit-instruction_handler db 'fnsavew',6 dw fnsave_instruction_16bit-instruction_handler db 'fnstenv',6 dw fldenv_instruction-instruction_handler db 'frndint',111100b dw simple_fpu_instruction-instruction_handler db 'frstord',4 dw fnsave_instruction_32bit-instruction_handler db 'frstorw',4 dw fnsave_instruction_16bit-instruction_handler db 'fsincos',111011b dw simple_fpu_instruction-instruction_handler db 'fstenvd',6 dw fstenv_instruction_32bit-instruction_handler db 'fstenvw',6 dw fstenv_instruction_16bit-instruction_handler db 'fucomip',0E8h dw fcomip_instruction-instruction_handler db 'fucompp',0 dw fucompp_instruction-instruction_handler db 'fxrstor',1 dw fxsave_instruction-instruction_handler db 'fxtract',110100b dw simple_fpu_instruction-instruction_handler db 'fyl2xp1',111001b dw simple_fpu_instruction-instruction_handler db 'insertq',0 dw insertq_instruction-instruction_handler db 'invlpga',0DFh dw invlpga_instruction-instruction_handler db 'invvpid',81h dw vmx_inv_instruction-instruction_handler db 'ldmxcsr',10b dw fxsave_instruction-instruction_handler db 'loopned',0E0h dw loop_instruction_32bit-instruction_handler db 'loopneq',0E0h dw loop_instruction_64bit-instruction_handler db 'loopnew',0E0h dw loop_instruction_16bit-instruction_handler db 'loopnzd',0E0h dw loop_instruction_32bit-instruction_handler db 'loopnzq',0E0h dw loop_instruction_64bit-instruction_handler db 'loopnzw',0E0h dw loop_instruction_16bit-instruction_handler db 'monitor',0C8h dw monitor_instruction-instruction_handler db 'movddup',12h dw sse_sd_instruction-instruction_handler db 'movdq2q',0 dw movdq2q_instruction-instruction_handler db 'movhlps',12h dw movhlps_instruction-instruction_handler db 'movlhps',16h dw movhlps_instruction-instruction_handler db 'movntdq',0E7h dw movntpd_instruction-instruction_handler db 'movntpd',2Bh dw movntpd_instruction-instruction_handler db 'movntps',2Bh dw movntps_instruction-instruction_handler db 'movntsd',2Bh dw movntsd_instruction-instruction_handler db 'movntss',2Bh dw movntss_instruction-instruction_handler db 'movq2dq',0 dw movq2dq_instruction-instruction_handler db 'mpsadbw',42h dw sse4_instruction_3a_imm8-instruction_handler db 'paddusb',0DCh dw basic_mmx_instruction-instruction_handler db 'paddusw',0DDh dw basic_mmx_instruction-instruction_handler db 'palignr',0 dw palignr_instruction-instruction_handler db 'pavgusb',0BFh dw amd3dnow_instruction-instruction_handler db 'pblendw',0Eh dw sse4_instruction_3a_imm8-instruction_handler db 'pcmpeqb',74h dw basic_mmx_instruction-instruction_handler db 'pcmpeqd',76h dw basic_mmx_instruction-instruction_handler db 'pcmpeqq',29h dw sse4_instruction_38-instruction_handler db 'pcmpeqw',75h dw basic_mmx_instruction-instruction_handler db 'pcmpgtb',64h dw basic_mmx_instruction-instruction_handler db 'pcmpgtd',66h dw basic_mmx_instruction-instruction_handler db 'pcmpgtq',37h dw sse4_instruction_38-instruction_handler db 'pcmpgtw',65h dw basic_mmx_instruction-instruction_handler db 'pfcmpeq',0B0h dw amd3dnow_instruction-instruction_handler db 'pfcmpge',90h dw amd3dnow_instruction-instruction_handler db 'pfcmpgt',0A0h dw amd3dnow_instruction-instruction_handler db 'pfpnacc',8Eh dw amd3dnow_instruction-instruction_handler db 'pfrsqrt',97h dw amd3dnow_instruction-instruction_handler db 'phaddsw',3 dw ssse3_instruction-instruction_handler db 'phsubsw',7 dw ssse3_instruction-instruction_handler db 'pmaddwd',0F5h dw basic_mmx_instruction-instruction_handler db 'pmulhrw',0B7h dw amd3dnow_instruction-instruction_handler db 'pmulhuw',0E4h dw basic_mmx_instruction-instruction_handler db 'pmuludq',0F4h dw basic_mmx_instruction-instruction_handler db 'pshufhw',0F3h dw pshufd_instruction-instruction_handler db 'pshuflw',0F2h dw pshufd_instruction-instruction_handler db 'psubusb',0D8h dw basic_mmx_instruction-instruction_handler db 'psubusw',0D9h dw basic_mmx_instruction-instruction_handler db 'roundpd',9 dw sse4_instruction_3a_imm8-instruction_handler db 'roundps',8 dw sse4_instruction_3a_imm8-instruction_handler db 'roundsd',0Bh dw sse4_sd_instruction_3a_imm8-instruction_handler db 'roundss',0Ah dw sse4_ss_instruction_3a_imm8-instruction_handler db 'rsqrtps',52h dw sse_ps_instruction-instruction_handler db 'rsqrtss',52h dw sse_ss_instruction-instruction_handler db 'section',0 dw section_directive-instruction_handler db 'segment',0 dw segment_directive-instruction_handler db 'stmxcsr',11b dw fxsave_instruction-instruction_handler db 'syscall',05h dw simple_extended_instruction-instruction_handler db 'sysexit',35h dw simple_extended_instruction-instruction_handler db 'sysretq',07h dw simple_extended_instruction_64bit-instruction_handler db 'ucomisd',2Eh dw comisd_instruction-instruction_handler db 'ucomiss',2Eh dw comiss_instruction-instruction_handler db 'vaesdec',0DEh dw avx_128bit_instruction_38-instruction_handler db 'vaesenc',0DCh dw avx_128bit_instruction_38-instruction_handler db 'vaesimc',0DBh dw avx_single_source_128bit_instruction_38-instruction_handler db 'vandnpd',55h dw avx_pd_instruction-instruction_handler db 'vandnps',55h dw avx_ps_instruction-instruction_handler db 'vcomisd',2Fh dw avx_comisd_instruction-instruction_handler db 'vcomiss',2Fh dw avx_comiss_instruction-instruction_handler db 'vfrczpd',81h dw xop_single_source_instruction-instruction_handler db 'vfrczps',80h dw xop_single_source_instruction-instruction_handler db 'vfrczsd',83h dw xop_single_source_sd_instruction-instruction_handler db 'vfrczss',82h dw xop_single_source_ss_instruction-instruction_handler db 'vhaddpd',07Ch dw avx_pd_instruction-instruction_handler db 'vhaddps',07Ch dw avx_haddps_instruction-instruction_handler db 'vhsubpd',07Dh dw avx_pd_instruction-instruction_handler db 'vhsubps',07Dh dw avx_haddps_instruction-instruction_handler db 'virtual',0 dw virtual_directive-instruction_handler db 'vmclear',6 dw vmclear_instruction-instruction_handler db 'vmmcall',0D9h dw simple_vmx_instruction-instruction_handler db 'vmovapd',28h dw avx_movpd_instruction-instruction_handler db 'vmovaps',28h dw avx_movps_instruction-instruction_handler db 'vmovdqa',6Fh dw avx_movpd_instruction-instruction_handler db 'vmovdqu',6Fh dw avx_movdqu_instruction-instruction_handler db 'vmovhpd',16h dw avx_movlpd_instruction-instruction_handler db 'vmovhps',16h dw avx_movlps_instruction-instruction_handler db 'vmovlpd',12h dw avx_movlpd_instruction-instruction_handler db 'vmovlps',12h dw avx_movlps_instruction-instruction_handler db 'vmovupd',10h dw avx_movpd_instruction-instruction_handler db 'vmovups',10h dw avx_movps_instruction-instruction_handler db 'vmptrld',6 dw vmx_instruction-instruction_handler db 'vmptrst',7 dw vmx_instruction-instruction_handler db 'vmwrite',0 dw vmwrite_instruction-instruction_handler db 'vpaddsb',0ECh dw avx_128bit_instruction-instruction_handler db 'vpaddsw',0EDh dw avx_128bit_instruction-instruction_handler db 'vpcomub',-1 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomud',-1 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomuq',-1 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomuw',-1 dw xop_pcom_uw_instruction-instruction_handler db 'vpextrb',14h dw avx_pextrb_instruction-instruction_handler db 'vpextrd',16h dw avx_pextrd_instruction-instruction_handler db 'vpextrq',16h dw avx_pextrq_instruction-instruction_handler db 'vpextrw',15h dw avx_pextrw_instruction-instruction_handler db 'vphaddd',2 dw avx_128bit_instruction_38-instruction_handler db 'vphaddw',1 dw avx_128bit_instruction_38-instruction_handler db 'vphsubd',6 dw avx_128bit_instruction_38-instruction_handler db 'vphsubw',5 dw avx_128bit_instruction_38-instruction_handler db 'vpinsrb',20h dw avx_pinsrb_instruction-instruction_handler db 'vpinsrd',22h dw avx_pinsrd_instruction-instruction_handler db 'vpinsrq',22h dw avx_pinsrq_instruction-instruction_handler db 'vpinsrw',0C4h dw avx_pinsrw_instruction-instruction_handler db 'vpmaxsb',3Ch dw avx_128bit_instruction_38-instruction_handler db 'vpmaxsd',3Dh dw avx_128bit_instruction_38-instruction_handler db 'vpmaxsw',0EEh dw avx_128bit_instruction-instruction_handler db 'vpmaxub',0DEh dw avx_128bit_instruction-instruction_handler db 'vpmaxud',3Fh dw avx_128bit_instruction_38-instruction_handler db 'vpmaxuw',3Eh dw avx_128bit_instruction_38-instruction_handler db 'vpminsb',38h dw avx_128bit_instruction_38-instruction_handler db 'vpminsd',39h dw avx_128bit_instruction_38-instruction_handler db 'vpminsw',0EAh dw avx_128bit_instruction-instruction_handler db 'vpminub',0DAh dw avx_128bit_instruction-instruction_handler db 'vpminud',3Bh dw avx_128bit_instruction_38-instruction_handler db 'vpminuw',3Ah dw avx_128bit_instruction_38-instruction_handler db 'vpmuldq',28h dw avx_128bit_instruction_38-instruction_handler db 'vpmulhw',0E5h dw avx_128bit_instruction-instruction_handler db 'vpmulld',40h dw avx_128bit_instruction_38-instruction_handler db 'vpmullw',0D5h dw avx_128bit_instruction-instruction_handler db 'vpsadbw',0F6h dw avx_128bit_instruction-instruction_handler db 'vpshufb',0 dw avx_128bit_instruction_38-instruction_handler db 'vpshufd',66h dw avx_pshufd_instruction-instruction_handler db 'vpsignb',8 dw avx_128bit_instruction_38-instruction_handler db 'vpsignd',0Ah dw avx_128bit_instruction_38-instruction_handler db 'vpsignw',9 dw avx_128bit_instruction_38-instruction_handler db 'vpslldq',111b dw avx_pslldq_instruction-instruction_handler db 'vpsrldq',011b dw avx_pslldq_instruction-instruction_handler db 'vpsubsb',0E8h dw avx_128bit_instruction-instruction_handler db 'vpsubsw',0E9h dw avx_128bit_instruction-instruction_handler db 'vshufpd',0C6h dw avx_pd_instruction_imm8-instruction_handler db 'vshufps',0C6h dw avx_ps_instruction_imm8-instruction_handler db 'vsqrtpd',51h dw avx_single_source_pd_instruction-instruction_handler db 'vsqrtps',51h dw avx_single_source_ps_instruction-instruction_handler db 'vsqrtsd',51h dw avx_sd_instruction-instruction_handler db 'vsqrtss',51h dw avx_ss_instruction-instruction_handler db 'vtestpd',0Fh dw avx_single_source_instruction_38-instruction_handler db 'vtestps',0Eh dw avx_single_source_instruction_38-instruction_handler instructions_8: db 'addsubpd',0D0h dw sse_pd_instruction-instruction_handler db 'addsubps',0D0h dw cvtpd2dq_instruction-instruction_handler db 'blendvpd',15h dw sse4_instruction_38_xmm0-instruction_handler db 'blendvps',14h dw sse4_instruction_38_xmm0-instruction_handler db 'cmpneqpd',4 dw cmp_pd_instruction-instruction_handler db 'cmpneqps',4 dw cmp_ps_instruction-instruction_handler db 'cmpneqsd',4 dw cmp_sd_instruction-instruction_handler db 'cmpneqss',4 dw cmp_ss_instruction-instruction_handler db 'cmpnlepd',6 dw cmp_pd_instruction-instruction_handler db 'cmpnleps',6 dw cmp_ps_instruction-instruction_handler db 'cmpnlesd',6 dw cmp_sd_instruction-instruction_handler db 'cmpnless',6 dw cmp_ss_instruction-instruction_handler db 'cmpnltpd',5 dw cmp_pd_instruction-instruction_handler db 'cmpnltps',5 dw cmp_ps_instruction-instruction_handler db 'cmpnltsd',5 dw cmp_sd_instruction-instruction_handler db 'cmpnltss',5 dw cmp_ss_instruction-instruction_handler db 'cmpordpd',7 dw cmp_pd_instruction-instruction_handler db 'cmpordps',7 dw cmp_ps_instruction-instruction_handler db 'cmpordsd',7 dw cmp_sd_instruction-instruction_handler db 'cmpordss',7 dw cmp_ss_instruction-instruction_handler db 'cvtdq2pd',0E6h dw cvtdq2pd_instruction-instruction_handler db 'cvtdq2ps',5Bh dw sse_ps_instruction-instruction_handler db 'cvtpd2dq',0E6h dw cvtpd2dq_instruction-instruction_handler db 'cvtpd2pi',2Dh dw cvtpd2pi_instruction-instruction_handler db 'cvtpd2ps',5Ah dw sse_pd_instruction-instruction_handler db 'cvtpi2pd',2Ah dw cvtpi2pd_instruction-instruction_handler db 'cvtpi2ps',2Ah dw cvtpi2ps_instruction-instruction_handler db 'cvtps2dq',5Bh dw sse_pd_instruction-instruction_handler db 'cvtps2pd',5Ah dw cvtps2pd_instruction-instruction_handler db 'cvtps2pi',2Dh dw cvtps2pi_instruction-instruction_handler db 'cvtsd2si',2Dh dw cvtsd2si_instruction-instruction_handler db 'cvtsd2ss',5Ah dw sse_sd_instruction-instruction_handler db 'cvtsi2sd',2Ah dw cvtsi2sd_instruction-instruction_handler db 'cvtsi2ss',2Ah dw cvtsi2ss_instruction-instruction_handler db 'cvtss2sd',5Ah dw sse_ss_instruction-instruction_handler db 'cvtss2si',2Dh dw cvtss2si_instruction-instruction_handler db 'fcmovnbe',0D0h dw fcomi_instruction-instruction_handler db 'fnstenvd',6 dw fldenv_instruction_32bit-instruction_handler db 'fnstenvw',6 dw fldenv_instruction_16bit-instruction_handler db 'insertps',0 dw insertps_instruction-instruction_handler db 'maskmovq',0 dw maskmovq_instruction-instruction_handler db 'movmskpd',0 dw movmskpd_instruction-instruction_handler db 'movmskps',0 dw movmskps_instruction-instruction_handler db 'movntdqa',0 dw movntdqa_instruction-instruction_handler db 'movshdup',16h dw movshdup_instruction-instruction_handler db 'movsldup',12h dw movshdup_instruction-instruction_handler db 'packssdw',6Bh dw basic_mmx_instruction-instruction_handler db 'packsswb',63h dw basic_mmx_instruction-instruction_handler db 'packusdw',2Bh dw sse4_instruction_38-instruction_handler db 'packuswb',67h dw basic_mmx_instruction-instruction_handler db 'pblendvb',10h dw sse4_instruction_38_xmm0-instruction_handler db 'pfrcpit1',0A6h dw amd3dnow_instruction-instruction_handler db 'pfrcpit2',0B6h dw amd3dnow_instruction-instruction_handler db 'pfrsqit1',0A7h dw amd3dnow_instruction-instruction_handler db 'pmovmskb',0D7h dw pmovmskb_instruction-instruction_handler db 'pmovsxbd',21h dw pmovsxbd_instruction-instruction_handler db 'pmovsxbq',22h dw pmovsxbq_instruction-instruction_handler db 'pmovsxbw',20h dw pmovsxbw_instruction-instruction_handler db 'pmovsxdq',25h dw pmovsxdq_instruction-instruction_handler db 'pmovsxwd',23h dw pmovsxwd_instruction-instruction_handler db 'pmovsxwq',24h dw pmovsxwq_instruction-instruction_handler db 'pmovzxbd',31h dw pmovsxbd_instruction-instruction_handler db 'pmovzxbq',32h dw pmovsxbq_instruction-instruction_handler db 'pmovzxbw',30h dw pmovsxbw_instruction-instruction_handler db 'pmovzxdq',35h dw pmovsxdq_instruction-instruction_handler db 'pmovzxwd',33h dw pmovsxwd_instruction-instruction_handler db 'pmovzxwq',34h dw pmovsxwq_instruction-instruction_handler db 'pmulhrsw',0Bh dw ssse3_instruction-instruction_handler db 'prefetch',0 dw amd_prefetch_instruction-instruction_handler db 'rdfsbase',0 dw rdfsbase_instruction-instruction_handler db 'rdgsbase',1 dw rdfsbase_instruction-instruction_handler db 'sysenter',34h dw simple_extended_instruction-instruction_handler db 'sysexitq',35h dw simple_extended_instruction_64bit-instruction_handler db 'unpckhpd',15h dw sse_pd_instruction-instruction_handler db 'unpckhps',15h dw sse_ps_instruction-instruction_handler db 'unpcklpd',14h dw sse_pd_instruction-instruction_handler db 'unpcklps',14h dw sse_ps_instruction-instruction_handler db 'vblendpd',0Dh dw avx_instruction_3a_imm8-instruction_handler db 'vblendps',0Ch dw avx_instruction_3a_imm8-instruction_handler db 'vcmpeqpd',0 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpeqps',0 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpeqsd',0 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpeqss',0 dw avx_cmp_ss_instruction-instruction_handler db 'vcmpgepd',0Dh dw avx_cmp_pd_instruction-instruction_handler db 'vcmpgeps',0Dh dw avx_cmp_ps_instruction-instruction_handler db 'vcmpgesd',0Dh dw avx_cmp_sd_instruction-instruction_handler db 'vcmpgess',0Dh dw avx_cmp_ss_instruction-instruction_handler db 'vcmpgtpd',0Eh dw avx_cmp_pd_instruction-instruction_handler db 'vcmpgtps',0Eh dw avx_cmp_ps_instruction-instruction_handler db 'vcmpgtsd',0Eh dw avx_cmp_sd_instruction-instruction_handler db 'vcmpgtss',0Eh dw avx_cmp_ss_instruction-instruction_handler db 'vcmplepd',2 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpleps',2 dw avx_cmp_ps_instruction-instruction_handler db 'vcmplesd',2 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpless',2 dw avx_cmp_ss_instruction-instruction_handler db 'vcmpltpd',1 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpltps',1 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpltsd',1 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpltss',1 dw avx_cmp_ss_instruction-instruction_handler db 'vfmaddpd',69h dw fma4_instruction_p-instruction_handler db 'vfmaddps',68h dw fma4_instruction_p-instruction_handler db 'vfmaddsd',6Bh dw fma4_instruction_sd-instruction_handler db 'vfmaddss',6Ah dw fma4_instruction_ss-instruction_handler db 'vfmsubpd',6Dh dw fma4_instruction_p-instruction_handler db 'vfmsubps',6Ch dw fma4_instruction_p-instruction_handler db 'vfmsubsd',6Fh dw fma4_instruction_sd-instruction_handler db 'vfmsubss',6Eh dw fma4_instruction_ss-instruction_handler db 'vldmxcsr',10b dw vldmxcsr_instruction-instruction_handler db 'vmlaunch',0C2h dw simple_vmx_instruction-instruction_handler db 'vmovddup',12h dw avx_movddup_instruction-instruction_handler db 'vmovhlps',12h dw avx_movhlps_instruction-instruction_handler db 'vmovlhps',16h dw avx_movhlps_instruction-instruction_handler db 'vmovntdq',0E7h dw avx_movntpd_instruction-instruction_handler db 'vmovntpd',2Bh dw avx_movntpd_instruction-instruction_handler db 'vmovntps',2Bh dw avx_movntps_instruction-instruction_handler db 'vmpsadbw',42h dw avx_128bit_instruction_3a_imm8-instruction_handler db 'vmresume',0C3h dw simple_vmx_instruction-instruction_handler db 'vpaddusb',0DCh dw avx_128bit_instruction-instruction_handler db 'vpaddusw',0DDh dw avx_128bit_instruction-instruction_handler db 'vpalignr',0Fh dw avx_128bit_instruction_3a_imm8-instruction_handler db 'vpblendw',0Eh dw avx_128bit_instruction_3a_imm8-instruction_handler db 'vpcmpeqb',74h dw avx_128bit_instruction-instruction_handler db 'vpcmpeqd',76h dw avx_128bit_instruction-instruction_handler db 'vpcmpeqq',29h dw avx_128bit_instruction_38-instruction_handler db 'vpcmpeqw',75h dw avx_128bit_instruction-instruction_handler db 'vpcmpgtb',64h dw avx_128bit_instruction-instruction_handler db 'vpcmpgtd',66h dw avx_128bit_instruction-instruction_handler db 'vpcmpgtq',37h dw avx_128bit_instruction_38-instruction_handler db 'vpcmpgtw',65h dw avx_128bit_instruction-instruction_handler db 'vpcomeqb',4 dw xop_pcom_b_instruction-instruction_handler db 'vpcomeqd',4 dw xop_pcom_d_instruction-instruction_handler db 'vpcomeqq',4 dw xop_pcom_q_instruction-instruction_handler db 'vpcomeqw',4 dw xop_pcom_w_instruction-instruction_handler db 'vpcomgeb',3 dw xop_pcom_b_instruction-instruction_handler db 'vpcomged',3 dw xop_pcom_d_instruction-instruction_handler db 'vpcomgeq',3 dw xop_pcom_q_instruction-instruction_handler db 'vpcomgew',3 dw xop_pcom_w_instruction-instruction_handler db 'vpcomgtb',2 dw xop_pcom_b_instruction-instruction_handler db 'vpcomgtd',2 dw xop_pcom_d_instruction-instruction_handler db 'vpcomgtq',2 dw xop_pcom_q_instruction-instruction_handler db 'vpcomgtw',2 dw xop_pcom_w_instruction-instruction_handler db 'vpcomleb',1 dw xop_pcom_b_instruction-instruction_handler db 'vpcomled',1 dw xop_pcom_d_instruction-instruction_handler db 'vpcomleq',1 dw xop_pcom_q_instruction-instruction_handler db 'vpcomlew',1 dw xop_pcom_w_instruction-instruction_handler db 'vpcomltb',0 dw xop_pcom_b_instruction-instruction_handler db 'vpcomltd',0 dw xop_pcom_d_instruction-instruction_handler db 'vpcomltq',0 dw xop_pcom_q_instruction-instruction_handler db 'vpcomltw',0 dw xop_pcom_w_instruction-instruction_handler db 'vphaddbd',0C2h dw xop_single_source_128bit_instruction-instruction_handler db 'vphaddbq',0C3h dw xop_single_source_128bit_instruction-instruction_handler db 'vphaddbw',0C1h dw xop_single_source_128bit_instruction-instruction_handler db 'vphadddq',0CBh dw xop_single_source_128bit_instruction-instruction_handler db 'vphaddsw',3 dw avx_128bit_instruction_38-instruction_handler db 'vphaddwd',0C6h dw xop_single_source_128bit_instruction-instruction_handler db 'vphaddwq',0C7h dw xop_single_source_128bit_instruction-instruction_handler db 'vphsubbw',0E1h dw xop_single_source_128bit_instruction-instruction_handler db 'vphsubdq',0E3h dw xop_single_source_128bit_instruction-instruction_handler db 'vphsubsw',7 dw avx_128bit_instruction_38-instruction_handler db 'vphsubwd',0E2h dw xop_single_source_128bit_instruction-instruction_handler db 'vpmacsdd',9Eh dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmacswd',96h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmacsww',95h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmaddwd',0F5h dw avx_128bit_instruction-instruction_handler db 'vpmulhuw',0E4h dw avx_128bit_instruction-instruction_handler db 'vpmuludq',0F4h dw avx_128bit_instruction-instruction_handler db 'vpshufhw',0F3h dw avx_pshufd_instruction-instruction_handler db 'vpshuflw',0F2h dw avx_pshufd_instruction-instruction_handler db 'vpsubusb',0D8h dw avx_128bit_instruction-instruction_handler db 'vpsubusw',0D9h dw avx_128bit_instruction-instruction_handler db 'vroundpd',9 dw avx_single_source_instruction_3a_imm8-instruction_handler db 'vroundps',8 dw avx_single_source_instruction_3a_imm8-instruction_handler db 'vroundsd',0Bh dw avx_sd_instruction_3a_imm8-instruction_handler db 'vroundss',0Ah dw avx_ss_instruction_3a_imm8-instruction_handler db 'vrsqrtps',52h dw avx_single_source_ps_instruction-instruction_handler db 'vrsqrtss',52h dw avx_ss_instruction-instruction_handler db 'vstmxcsr',11b dw vldmxcsr_instruction-instruction_handler db 'vucomisd',2Eh dw avx_comisd_instruction-instruction_handler db 'vucomiss',2Eh dw avx_comiss_instruction-instruction_handler db 'vzeroall',77h dw vzeroall_instruction-instruction_handler db 'wrfsbase',2 dw rdfsbase_instruction-instruction_handler db 'wrgsbase',3 dw rdfsbase_instruction-instruction_handler db 'xsaveopt',110b dw fxsave_instruction-instruction_handler instructions_9: db 'cmpxchg8b',8 dw cmpxchgx_instruction-instruction_handler db 'cvttpd2dq',0E6h dw sse_pd_instruction-instruction_handler db 'cvttpd2pi',2Ch dw cvtpd2pi_instruction-instruction_handler db 'cvttps2dq',5Bh dw movshdup_instruction-instruction_handler db 'cvttps2pi',2Ch dw cvtps2pi_instruction-instruction_handler db 'cvttsd2si',2Ch dw cvtsd2si_instruction-instruction_handler db 'cvttss2si',2Ch dw cvtss2si_instruction-instruction_handler db 'extractps',0 dw extractps_instruction-instruction_handler db 'pclmulqdq',44h dw sse4_instruction_3a_imm8-instruction_handler db 'pcmpestri',61h dw sse4_instruction_3a_imm8-instruction_handler db 'pcmpestrm',60h dw sse4_instruction_3a_imm8-instruction_handler db 'pcmpistri',63h dw sse4_instruction_3a_imm8-instruction_handler db 'pcmpistrm',62h dw sse4_instruction_3a_imm8-instruction_handler db 'pmaddubsw',4 dw ssse3_instruction-instruction_handler db 'prefetchw',1 dw amd_prefetch_instruction-instruction_handler db 'punpckhbw',68h dw basic_mmx_instruction-instruction_handler db 'punpckhdq',6Ah dw basic_mmx_instruction-instruction_handler db 'punpckhwd',69h dw basic_mmx_instruction-instruction_handler db 'punpcklbw',60h dw basic_mmx_instruction-instruction_handler db 'punpckldq',62h dw basic_mmx_instruction-instruction_handler db 'punpcklwd',61h dw basic_mmx_instruction-instruction_handler db 'vaddsubpd',0D0h dw avx_pd_instruction-instruction_handler db 'vaddsubps',0D0h dw avx_haddps_instruction-instruction_handler db 'vblendvpd',4Bh dw avx_triple_source_instruction_3a-instruction_handler db 'vblendvps',4Ah dw avx_triple_source_instruction_3a-instruction_handler db 'vcmpneqpd',4 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpneqps',4 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpneqsd',4 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpneqss',4 dw avx_cmp_ss_instruction-instruction_handler db 'vcmpngepd',9 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpngeps',9 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpngesd',9 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpngess',9 dw avx_cmp_ss_instruction-instruction_handler db 'vcmpngtpd',0Ah dw avx_cmp_pd_instruction-instruction_handler db 'vcmpngtps',0Ah dw avx_cmp_ps_instruction-instruction_handler db 'vcmpngtsd',0Ah dw avx_cmp_sd_instruction-instruction_handler db 'vcmpngtss',0Ah dw avx_cmp_ss_instruction-instruction_handler db 'vcmpnlepd',6 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpnleps',6 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpnlesd',6 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpnless',6 dw avx_cmp_ss_instruction-instruction_handler db 'vcmpnltpd',5 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpnltps',5 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpnltsd',5 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpnltss',5 dw avx_cmp_ss_instruction-instruction_handler db 'vcmpordpd',7 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpordps',7 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpordsd',7 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpordss',7 dw avx_cmp_ss_instruction-instruction_handler db 'vcvtdq2pd',0E6h dw avx_cvtdq2pd_instruction-instruction_handler db 'vcvtdq2ps',5Bh dw avx_single_source_ps_instruction-instruction_handler db 'vcvtpd2dq',0E6h dw avx_cvtpd2dq_instruction-instruction_handler db 'vcvtpd2ps',5Ah dw avx_cvtpd2ps_instruction-instruction_handler db 'vcvtph2ps',13h dw vcvtph2ps_instruction-instruction_handler db 'vcvtps2dq',5Bh dw avx_single_source_pd_instruction-instruction_handler db 'vcvtps2pd',5Ah dw avx_cvtps2pd_instruction-instruction_handler db 'vcvtps2ph',1Dh dw vcvtps2ph_instruction-instruction_handler db 'vcvtsd2si',2Dh dw avx_cvtsd2si_instruction-instruction_handler db 'vcvtsd2ss',5Ah dw avx_sd_instruction-instruction_handler db 'vcvtsi2sd',2Ah dw avx_cvtsi2sd_instruction-instruction_handler db 'vcvtsi2ss',2Ah dw avx_cvtsi2ss_instruction-instruction_handler db 'vcvtss2sd',5Ah dw avx_ss_instruction-instruction_handler db 'vcvtss2si',2Dh dw avx_cvtss2si_instruction-instruction_handler db 'vfnmaddpd',79h dw fma4_instruction_p-instruction_handler db 'vfnmaddps',78h dw fma4_instruction_p-instruction_handler db 'vfnmaddsd',7Bh dw fma4_instruction_sd-instruction_handler db 'vfnmaddss',7Ah dw fma4_instruction_ss-instruction_handler db 'vfnmsubpd',7Dh dw fma4_instruction_p-instruction_handler db 'vfnmsubps',7Ch dw fma4_instruction_p-instruction_handler db 'vfnmsubsd',7Fh dw fma4_instruction_sd-instruction_handler db 'vfnmsubss',7Eh dw fma4_instruction_ss-instruction_handler db 'vinsertps',0 dw avx_insertps_instruction-instruction_handler db 'vmovmskpd',0 dw avx_movmskpd_instruction-instruction_handler db 'vmovmskps',0 dw avx_movmskps_instruction-instruction_handler db 'vmovntdqa',0 dw avx_movntdqa_instruction-instruction_handler db 'vmovshdup',16h dw avx_movshdup_instruction-instruction_handler db 'vmovsldup',12h dw avx_movshdup_instruction-instruction_handler db 'vpackssdw',6Bh dw avx_128bit_instruction-instruction_handler db 'vpacksswb',63h dw avx_128bit_instruction-instruction_handler db 'vpackusdw',2Bh dw avx_128bit_instruction_38-instruction_handler db 'vpackuswb',67h dw avx_128bit_instruction-instruction_handler db 'vpblendvb',4Ch dw avx_triple_source_128bit_instruction_3a-instruction_handler db 'vpcomequb',4 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomequd',4 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomequq',4 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomequw',4 dw xop_pcom_uw_instruction-instruction_handler db 'vpcomgeub',3 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomgeud',3 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomgeuq',3 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomgeuw',3 dw xop_pcom_uw_instruction-instruction_handler db 'vpcomgtub',2 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomgtud',2 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomgtuq',2 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomgtuw',2 dw xop_pcom_uw_instruction-instruction_handler db 'vpcomleub',1 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomleud',1 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomleuq',1 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomleuw',1 dw xop_pcom_uw_instruction-instruction_handler db 'vpcomltub',0 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomltud',0 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomltuq',0 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomltuw',0 dw xop_pcom_uw_instruction-instruction_handler db 'vpcomneqb',5 dw xop_pcom_b_instruction-instruction_handler db 'vpcomneqd',5 dw xop_pcom_d_instruction-instruction_handler db 'vpcomneqq',5 dw xop_pcom_q_instruction-instruction_handler db 'vpcomneqw',5 dw xop_pcom_w_instruction-instruction_handler db 'vpermilpd',5 dw avx_permil_instruction-instruction_handler db 'vpermilps',4 dw avx_permil_instruction-instruction_handler db 'vphaddubd',0D2h dw xop_single_source_128bit_instruction-instruction_handler db 'vphaddubq',0D3h dw xop_single_source_128bit_instruction-instruction_handler db 'vphaddubw',0D1h dw xop_single_source_128bit_instruction-instruction_handler db 'vphaddudq',0DBh dw xop_single_source_128bit_instruction-instruction_handler db 'vphadduwd',0D6h dw xop_single_source_128bit_instruction-instruction_handler db 'vphadduwq',0D7h dw xop_single_source_128bit_instruction-instruction_handler db 'vpmacsdqh',9Fh dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmacsdql',97h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmacssdd',8Eh dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmacsswd',86h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmacssww',85h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmadcswd',0B6h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmovmskb',0D7h dw avx_pmovmskb_instruction-instruction_handler db 'vpmovsxbd',21h dw avx_pmovsxbd_instruction-instruction_handler db 'vpmovsxbq',22h dw avx_pmovsxbq_instruction-instruction_handler db 'vpmovsxbw',20h dw avx_pmovsxbw_instruction-instruction_handler db 'vpmovsxdq',25h dw avx_pmovsxdq_instruction-instruction_handler db 'vpmovsxwd',23h dw avx_pmovsxwd_instruction-instruction_handler db 'vpmovsxwq',24h dw avx_pmovsxwq_instruction-instruction_handler db 'vpmovzxbd',31h dw avx_pmovsxbd_instruction-instruction_handler db 'vpmovzxbq',32h dw avx_pmovsxbq_instruction-instruction_handler db 'vpmovzxbw',30h dw avx_pmovsxbw_instruction-instruction_handler db 'vpmovzxdq',35h dw avx_pmovsxdq_instruction-instruction_handler db 'vpmovzxwd',33h dw avx_pmovsxwd_instruction-instruction_handler db 'vpmovzxwq',34h dw avx_pmovsxwq_instruction-instruction_handler db 'vpmulhrsw',0Bh dw avx_128bit_instruction_38-instruction_handler db 'vunpckhpd',15h dw avx_pd_instruction-instruction_handler db 'vunpckhps',15h dw avx_instruction-instruction_handler db 'vunpcklpd',14h dw avx_pd_instruction-instruction_handler db 'vunpcklps',14h dw avx_instruction-instruction_handler instructions_10: db 'aesdeclast',0DFh dw sse4_instruction_38-instruction_handler db 'aesenclast',0DDh dw sse4_instruction_38-instruction_handler db 'cmpunordpd',3 dw cmp_pd_instruction-instruction_handler db 'cmpunordps',3 dw cmp_ps_instruction-instruction_handler db 'cmpunordsd',3 dw cmp_sd_instruction-instruction_handler db 'cmpunordss',3 dw cmp_ss_instruction-instruction_handler db 'cmpxchg16b',16 dw cmpxchgx_instruction-instruction_handler db 'loadall286',5 dw simple_extended_instruction-instruction_handler db 'loadall386',7 dw simple_extended_instruction-instruction_handler db 'maskmovdqu',0 dw maskmovdqu_instruction-instruction_handler db 'phminposuw',41h dw sse4_instruction_38-instruction_handler db 'prefetcht0',1 dw prefetch_instruction-instruction_handler db 'prefetcht1',2 dw prefetch_instruction-instruction_handler db 'prefetcht2',3 dw prefetch_instruction-instruction_handler db 'punpckhqdq',6Dh dw sse_pd_instruction-instruction_handler db 'punpcklqdq',6Ch dw sse_pd_instruction-instruction_handler db 'vcmptruepd',0Fh dw avx_cmp_pd_instruction-instruction_handler db 'vcmptrueps',0Fh dw avx_cmp_ps_instruction-instruction_handler db 'vcmptruesd',0Fh dw avx_cmp_sd_instruction-instruction_handler db 'vcmptruess',0Fh dw avx_cmp_ss_instruction-instruction_handler db 'vcvttpd2dq',0E6h dw avx_cvtpd2ps_instruction-instruction_handler db 'vcvttps2dq',5Bh dw avx_cvttps2dq_instruction-instruction_handler db 'vcvttsd2si',2Ch dw avx_cvtsd2si_instruction-instruction_handler db 'vcvttss2si',2Ch dw avx_cvtss2si_instruction-instruction_handler db 'vextractps',0 dw avx_extractps_instruction-instruction_handler db 'vmaskmovpd',2Dh dw avx_maskmov_instruction-instruction_handler db 'vmaskmovps',2Ch dw avx_maskmov_instruction-instruction_handler db 'vpclmulqdq',44h dw avx_128bit_instruction_3a_imm8-instruction_handler db 'vpcmpestri',61h dw avx_single_source_128bit_instruction_3a_imm8-instruction_handler db 'vpcmpestrm',60h dw avx_single_source_128bit_instruction_3a_imm8-instruction_handler db 'vpcmpistri',63h dw avx_single_source_128bit_instruction_3a_imm8-instruction_handler db 'vpcmpistrm',62h dw avx_single_source_128bit_instruction_3a_imm8-instruction_handler db 'vpcomnequb',5 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomnequd',5 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomnequq',5 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomnequw',5 dw xop_pcom_uw_instruction-instruction_handler db 'vpcomtrueb',7 dw xop_pcom_b_instruction-instruction_handler db 'vpcomtrued',7 dw xop_pcom_d_instruction-instruction_handler db 'vpcomtrueq',7 dw xop_pcom_q_instruction-instruction_handler db 'vpcomtruew',7 dw xop_pcom_w_instruction-instruction_handler db 'vperm2f128',6 dw avx_perm2f128_instruction-instruction_handler db 'vpermil2pd',49h dw vpermil2_instruction-instruction_handler db 'vpermil2ps',48h dw vpermil2_instruction-instruction_handler db 'vpmacssdqh',8Fh dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmacssdql',87h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmadcsswd',0A6h dw xop_triple_source_128bit_instruction-instruction_handler db 'vpmaddubsw',4 dw avx_128bit_instruction_38-instruction_handler db 'vpunpckhbw',68h dw avx_128bit_instruction-instruction_handler db 'vpunpckhdq',6Ah dw avx_128bit_instruction-instruction_handler db 'vpunpckhwd',69h dw avx_128bit_instruction-instruction_handler db 'vpunpcklbw',60h dw avx_128bit_instruction-instruction_handler db 'vpunpckldq',62h dw avx_128bit_instruction-instruction_handler db 'vpunpcklwd',61h dw avx_128bit_instruction-instruction_handler db 'vzeroupper',77h dw vzeroupper_instruction-instruction_handler db 'xsaveopt64',110b dw fxsave_instruction_64bit-instruction_handler instructions_11: db 'prefetchnta',0 dw prefetch_instruction-instruction_handler db 'vaesdeclast',0DFh dw avx_128bit_instruction_38-instruction_handler db 'vaesenclast',0DDh dw avx_128bit_instruction_38-instruction_handler db 'vcmpeq_ospd',10h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpeq_osps',10h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpeq_ossd',10h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpeq_osss',10h dw avx_cmp_ss_instruction-instruction_handler db 'vcmpeq_uqpd',8 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpeq_uqps',8 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpeq_uqsd',8 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpeq_uqss',8 dw avx_cmp_ss_instruction-instruction_handler db 'vcmpeq_uspd',18h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpeq_usps',18h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpeq_ussd',18h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpeq_usss',18h dw avx_cmp_ss_instruction-instruction_handler db 'vcmpfalsepd',0Bh dw avx_cmp_pd_instruction-instruction_handler db 'vcmpfalseps',0Bh dw avx_cmp_ps_instruction-instruction_handler db 'vcmpfalsesd',0Bh dw avx_cmp_sd_instruction-instruction_handler db 'vcmpfalsess',0Bh dw avx_cmp_ss_instruction-instruction_handler db 'vcmpge_oqpd',1Dh dw avx_cmp_pd_instruction-instruction_handler db 'vcmpge_oqps',1Dh dw avx_cmp_ps_instruction-instruction_handler db 'vcmpge_oqsd',1Dh dw avx_cmp_sd_instruction-instruction_handler db 'vcmpge_oqss',1Dh dw avx_cmp_ss_instruction-instruction_handler db 'vcmpgt_oqpd',1Eh dw avx_cmp_pd_instruction-instruction_handler db 'vcmpgt_oqps',1Eh dw avx_cmp_ps_instruction-instruction_handler db 'vcmpgt_oqsd',1Eh dw avx_cmp_sd_instruction-instruction_handler db 'vcmpgt_oqss',1Eh dw avx_cmp_ss_instruction-instruction_handler db 'vcmple_oqpd',12h dw avx_cmp_pd_instruction-instruction_handler db 'vcmple_oqps',12h dw avx_cmp_ps_instruction-instruction_handler db 'vcmple_oqsd',12h dw avx_cmp_sd_instruction-instruction_handler db 'vcmple_oqss',12h dw avx_cmp_ss_instruction-instruction_handler db 'vcmplt_oqpd',11h dw avx_cmp_pd_instruction-instruction_handler db 'vcmplt_oqps',11h dw avx_cmp_ps_instruction-instruction_handler db 'vcmplt_oqsd',11h dw avx_cmp_sd_instruction-instruction_handler db 'vcmplt_oqss',11h dw avx_cmp_ss_instruction-instruction_handler db 'vcmpord_spd',17h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpord_sps',17h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpord_ssd',17h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpord_sss',17h dw avx_cmp_ss_instruction-instruction_handler db 'vcmpunordpd',3 dw avx_cmp_pd_instruction-instruction_handler db 'vcmpunordps',3 dw avx_cmp_ps_instruction-instruction_handler db 'vcmpunordsd',3 dw avx_cmp_sd_instruction-instruction_handler db 'vcmpunordss',3 dw avx_cmp_ss_instruction-instruction_handler db 'vfmadd132pd',98h dw fma_instruction_pd-instruction_handler db 'vfmadd132ps',98h dw fma_instruction_ps-instruction_handler db 'vfmadd132sd',99h dw fma_instruction_sd-instruction_handler db 'vfmadd132ss',99h dw fma_instruction_ss-instruction_handler db 'vfmadd213pd',0A8h dw fma_instruction_pd-instruction_handler db 'vfmadd213ps',0A8h dw fma_instruction_ps-instruction_handler db 'vfmadd213sd',0A9h dw fma_instruction_sd-instruction_handler db 'vfmadd213ss',0A9h dw fma_instruction_ss-instruction_handler db 'vfmadd231pd',0B8h dw fma_instruction_pd-instruction_handler db 'vfmadd231ps',0B8h dw fma_instruction_ps-instruction_handler db 'vfmadd231sd',0B9h dw fma_instruction_sd-instruction_handler db 'vfmadd231ss',0B9h dw fma_instruction_ss-instruction_handler db 'vfmaddsubpd',5Dh dw fma4_instruction_p-instruction_handler db 'vfmaddsubps',5Ch dw fma4_instruction_p-instruction_handler db 'vfmsub132pd',9Ah dw fma_instruction_pd-instruction_handler db 'vfmsub132ps',9Ah dw fma_instruction_ps-instruction_handler db 'vfmsub132sd',9Bh dw fma_instruction_sd-instruction_handler db 'vfmsub132ss',9Bh dw fma_instruction_ss-instruction_handler db 'vfmsub213pd',0AAh dw fma_instruction_pd-instruction_handler db 'vfmsub213ps',0AAh dw fma_instruction_ps-instruction_handler db 'vfmsub213sd',0ABh dw fma_instruction_sd-instruction_handler db 'vfmsub213ss',0ABh dw fma_instruction_ss-instruction_handler db 'vfmsub231pd',0BAh dw fma_instruction_pd-instruction_handler db 'vfmsub231ps',0BAh dw fma_instruction_ps-instruction_handler db 'vfmsub231sd',0BBh dw fma_instruction_sd-instruction_handler db 'vfmsub231ss',0BBh dw fma_instruction_ss-instruction_handler db 'vfmsubaddpd',5Fh dw fma4_instruction_p-instruction_handler db 'vfmsubaddps',5Eh dw fma4_instruction_p-instruction_handler db 'vinsertf128',18h dw avx_insertf128_instruction-instruction_handler db 'vmaskmovdqu',0 dw avx_maskmovdqu_instruction-instruction_handler db 'vpcomfalseb',6 dw xop_pcom_b_instruction-instruction_handler db 'vpcomfalsed',6 dw xop_pcom_d_instruction-instruction_handler db 'vpcomfalseq',6 dw xop_pcom_q_instruction-instruction_handler db 'vpcomfalsew',6 dw xop_pcom_w_instruction-instruction_handler db 'vpcomtrueub',7 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomtrueud',7 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomtrueuq',7 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomtrueuw',7 dw xop_pcom_uw_instruction-instruction_handler db 'vphminposuw',41h dw avx_single_source_128bit_instruction_38-instruction_handler db 'vpunpckhqdq',6Dh dw avx_128bit_instruction-instruction_handler db 'vpunpcklqdq',6Ch dw avx_128bit_instruction-instruction_handler instructions_12: db 'vbroadcastsd',0 dw avx_broadcastsd_instruction-instruction_handler db 'vbroadcastss',0 dw avx_broadcastss_instruction-instruction_handler db 'vcmpneq_oqpd',0Ch dw avx_cmp_pd_instruction-instruction_handler db 'vcmpneq_oqps',0Ch dw avx_cmp_ps_instruction-instruction_handler db 'vcmpneq_oqsd',0Ch dw avx_cmp_sd_instruction-instruction_handler db 'vcmpneq_oqss',0Ch dw avx_cmp_ss_instruction-instruction_handler db 'vcmpneq_ospd',1Ch dw avx_cmp_pd_instruction-instruction_handler db 'vcmpneq_osps',1Ch dw avx_cmp_ps_instruction-instruction_handler db 'vcmpneq_ossd',1Ch dw avx_cmp_sd_instruction-instruction_handler db 'vcmpneq_osss',1Ch dw avx_cmp_ss_instruction-instruction_handler db 'vcmpneq_uspd',14h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpneq_usps',14h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpneq_ussd',14h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpneq_usss',14h dw avx_cmp_ss_instruction-instruction_handler db 'vcmpnge_uqpd',19h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpnge_uqps',19h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpnge_uqsd',19h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpnge_uqss',19h dw avx_cmp_ss_instruction-instruction_handler db 'vcmpngt_uqpd',1Ah dw avx_cmp_pd_instruction-instruction_handler db 'vcmpngt_uqps',1Ah dw avx_cmp_ps_instruction-instruction_handler db 'vcmpngt_uqsd',1Ah dw avx_cmp_sd_instruction-instruction_handler db 'vcmpngt_uqss',1Ah dw avx_cmp_ss_instruction-instruction_handler db 'vcmpnle_uqpd',16h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpnle_uqps',16h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpnle_uqsd',16h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpnle_uqss',16h dw avx_cmp_ss_instruction-instruction_handler db 'vcmpnlt_uqpd',15h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpnlt_uqps',15h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpnlt_uqsd',15h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpnlt_uqss',15h dw avx_cmp_ss_instruction-instruction_handler db 'vextractf128',19h dw avx_extractf128_instruction-instruction_handler db 'vfnmadd132pd',9Ch dw fma_instruction_pd-instruction_handler db 'vfnmadd132ps',9Ch dw fma_instruction_ps-instruction_handler db 'vfnmadd132sd',9Dh dw fma_instruction_sd-instruction_handler db 'vfnmadd132ss',9Dh dw fma_instruction_ss-instruction_handler db 'vfnmadd213pd',0ACh dw fma_instruction_pd-instruction_handler db 'vfnmadd213ps',0ACh dw fma_instruction_ps-instruction_handler db 'vfnmadd213sd',0ADh dw fma_instruction_sd-instruction_handler db 'vfnmadd213ss',0ADh dw fma_instruction_ss-instruction_handler db 'vfnmadd231pd',0BCh dw fma_instruction_pd-instruction_handler db 'vfnmadd231ps',0BCh dw fma_instruction_ps-instruction_handler db 'vfnmadd231sd',0BDh dw fma_instruction_sd-instruction_handler db 'vfnmadd231ss',0BDh dw fma_instruction_ss-instruction_handler db 'vfnmsub132pd',9Eh dw fma_instruction_pd-instruction_handler db 'vfnmsub132ps',9Eh dw fma_instruction_ps-instruction_handler db 'vfnmsub132sd',9Fh dw fma_instruction_sd-instruction_handler db 'vfnmsub132ss',9Fh dw fma_instruction_ss-instruction_handler db 'vfnmsub213pd',0AEh dw fma_instruction_pd-instruction_handler db 'vfnmsub213ps',0AEh dw fma_instruction_ps-instruction_handler db 'vfnmsub213sd',0AFh dw fma_instruction_sd-instruction_handler db 'vfnmsub213ss',0AFh dw fma_instruction_ss-instruction_handler db 'vfnmsub231pd',0BEh dw fma_instruction_pd-instruction_handler db 'vfnmsub231ps',0BEh dw fma_instruction_ps-instruction_handler db 'vfnmsub231sd',0BFh dw fma_instruction_sd-instruction_handler db 'vfnmsub231ss',0BFh dw fma_instruction_ss-instruction_handler db 'vpcomfalseub',6 dw xop_pcom_ub_instruction-instruction_handler db 'vpcomfalseud',6 dw xop_pcom_ud_instruction-instruction_handler db 'vpcomfalseuq',6 dw xop_pcom_uq_instruction-instruction_handler db 'vpcomfalseuw',6 dw xop_pcom_uw_instruction-instruction_handler db 'vpermilmo2pd',10b dw vpermil_2pd_instruction-instruction_handler db 'vpermilmo2ps',10b dw vpermil_2ps_instruction-instruction_handler db 'vpermilmz2pd',11b dw vpermil_2pd_instruction-instruction_handler db 'vpermilmz2ps',11b dw vpermil_2ps_instruction-instruction_handler db 'vpermiltd2pd',0 dw vpermil_2pd_instruction-instruction_handler db 'vpermiltd2ps',0 dw vpermil_2ps_instruction-instruction_handler instructions_13: db 'vcmptrue_uspd',1Fh dw avx_cmp_pd_instruction-instruction_handler db 'vcmptrue_usps',1Fh dw avx_cmp_ps_instruction-instruction_handler db 'vcmptrue_ussd',1Fh dw avx_cmp_sd_instruction-instruction_handler db 'vcmptrue_usss',1Fh dw avx_cmp_ss_instruction-instruction_handler db 'vcmpunord_spd',13h dw avx_cmp_pd_instruction-instruction_handler db 'vcmpunord_sps',13h dw avx_cmp_ps_instruction-instruction_handler db 'vcmpunord_ssd',13h dw avx_cmp_sd_instruction-instruction_handler db 'vcmpunord_sss',13h dw avx_cmp_ss_instruction-instruction_handler instructions_14: db 'vbroadcastf128',0 dw avx_broadcastf128_instruction-instruction_handler db 'vcmpfalse_ospd',1Bh dw avx_cmp_pd_instruction-instruction_handler db 'vcmpfalse_osps',1Bh dw avx_cmp_ps_instruction-instruction_handler db 'vcmpfalse_ossd',1Bh dw avx_cmp_sd_instruction-instruction_handler db 'vcmpfalse_osss',1Bh dw avx_cmp_ss_instruction-instruction_handler db 'vfmaddsub132pd',96h dw fma_instruction_pd-instruction_handler db 'vfmaddsub132ps',96h dw fma_instruction_ps-instruction_handler db 'vfmaddsub213pd',0A6h dw fma_instruction_pd-instruction_handler db 'vfmaddsub213ps',0A6h dw fma_instruction_ps-instruction_handler db 'vfmaddsub231pd',0B6h dw fma_instruction_pd-instruction_handler db 'vfmaddsub231ps',0B6h dw fma_instruction_ps-instruction_handler db 'vfmsubadd132pd',97h dw fma_instruction_pd-instruction_handler db 'vfmsubadd132ps',97h dw fma_instruction_ps-instruction_handler db 'vfmsubadd213pd',0A7h dw fma_instruction_pd-instruction_handler db 'vfmsubadd213ps',0A7h dw fma_instruction_ps-instruction_handler db 'vfmsubadd231pd',0B7h dw fma_instruction_pd-instruction_handler db 'vfmsubadd231ps',0B7h dw fma_instruction_ps-instruction_handler instructions_15: db 'aeskeygenassist',0DFh dw sse4_instruction_3a_imm8-instruction_handler instructions_16: db 'vaeskeygenassist',0DFh dw avx_single_source_128bit_instruction_3a_imm8-instruction_handler instructions_end: data_directives: dw data_directives_2-data_directives,(data_directives_3-data_directives_2)/(2+3) dw data_directives_3-data_directives,(data_directives_4-data_directives_3)/(3+3) dw data_directives_4-data_directives,(data_directives_end-data_directives_4)/(4+3) data_directives_2: db 'db',1 dw data_bytes-instruction_handler db 'dd',4 dw data_dwords-instruction_handler db 'df',6 dw data_pwords-instruction_handler db 'dp',6 dw data_pwords-instruction_handler db 'dq',8 dw data_qwords-instruction_handler db 'dt',10 dw data_twords-instruction_handler db 'du',2 dw data_unicode-instruction_handler db 'dw',2 dw data_words-instruction_handler db 'rb',1 dw reserve_bytes-instruction_handler db 'rd',4 dw reserve_dwords-instruction_handler db 'rf',6 dw reserve_pwords-instruction_handler db 'rp',6 dw reserve_pwords-instruction_handler db 'rq',8 dw reserve_qwords-instruction_handler db 'rt',10 dw reserve_twords-instruction_handler db 'rw',2 dw reserve_words-instruction_handler data_directives_3: data_directives_4: db 'file',1 dw data_file-instruction_handler data_directives_end: ; --------------- "tables.inc" ---------------- ; ; --------------- "messages.inc" ---------------- ; ; flat assembler core ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. _out_of_memory db 'out of memory',0 _stack_overflow db 'out of stack space',0 _main_file_not_found db 'source file not found',0 _unexpected_end_of_file db 'unexpected end of file',0 _code_cannot_be_generated db 'code cannot be generated',0 _format_limitations_exceeded db 'format limitations exceeded',0 _invalid_definition db 'invalid definition provided',0 _write_failed db 'write failed',0 _file_not_found db 'file not found',0 _error_reading_file db 'error reading file',0 _invalid_file_format db 'invalid file format',0 _invalid_macro_arguments db 'invalid macro arguments',0 _incomplete_macro db 'incomplete macro',0 _unexpected_characters db 'unexpected characters',0 _invalid_argument db 'invalid argument',0 _illegal_instruction db 'illegal instruction',0 _invalid_operand db 'invalid operand',0 _invalid_operand_size db 'invalid size of operand',0 _operand_size_not_specified db 'operand size not specified',0 _operand_sizes_do_not_match db 'operand sizes do not match',0 _invalid_address_size db 'invalid size of address value',0 _address_sizes_do_not_agree db 'address sizes do not agree',0 _prefix_conflict db 'disallowed combination of registers',0 _long_immediate_not_encodable db 'not encodable with long immediate',0 _relative_jump_out_of_range db 'relative jump out of range',0 _invalid_expression db 'invalid expression',0 _invalid_address db 'invalid address',0 _invalid_value db 'invalid value',0 _value_out_of_range db 'value out of range',0 _undefined_symbol db 'undefined symbol',0 _symbol_out_of_scope_1 db 'symbol',0 _symbol_out_of_scope_2 db 'out of scope',0 _invalid_use_of_symbol db 'invalid use of symbol',0 _name_too_long db 'name too long',0 _invalid_name db 'invalid name',0 _reserved_word_used_as_symbol db 'reserved word used as symbol',0 _symbol_already_defined db 'symbol already defined',0 _missing_end_quote db 'missing end quote',0 _missing_end_directive db 'missing end directive',0 _unexpected_instruction db 'unexpected instruction',0 _extra_characters_on_line db 'extra characters on line',0 _section_not_aligned_enough db 'section is not aligned enough',0 _setting_already_specified db 'setting already specified',0 _data_already_defined db 'data already defined',0 _too_many_repeats db 'too many repeats',0 _invoked_error db 'error directive invoked in source file',0 ; --------------- "messages.inc" ---------------- ; align 4 ; --------------- "variable.inc" ---------------- ; ; flat assembler core variables ; Copyright (c) 1999-2010, Tomasz Grysztar. ; All rights reserved. ; Variables which have to be set up by interface: memory_start dd ? memory_end dd ? additional_memory dd ? additional_memory_end dd ? stack_limit dd ? input_file dd ? output_file dd ? symbols_file dd ? passes_limit dw ? ; Internal core variables: current_pass dw ? include_paths dd ? free_additional_memory dd ? source_start dd ? code_start dd ? code_size dd ? real_code_size dd ? written_size dd ? headers_size dd ? current_line dd ? macro_line dd ? macro_block dd ? macro_block_line dd ? macro_block_line_number dd ? macro_symbols dd ? struc_name dd ? struc_label dd ? instant_macro_start dd ? parameters_end dd ? locals_counter rb 8 current_locals_prefix dd ? anonymous_reverse dd ? anonymous_forward dd ? labels_list dd ? label_hash dd ? label_leaf dd ? hash_tree dd ? org_origin dq ? org_registers dd ? org_symbol dd ? org_start dd ? undefined_data_start dd ? undefined_data_end dd ? counter dd ? counter_limit dd ? error_info dd ? error_line dd ? error dd ? display_buffer dd ? structures_buffer dd ? number_start dd ? current_offset dd ? value dq ? fp_value rd 8 adjustment dq ? symbol_identifier dd ? address_symbol dd ? address_high dd ? format_flags dd ? resolver_flags dd ? symbols_stream dd ? number_of_relocations dd ? number_of_sections dd ? stub_size dd ? stub_file dd ? current_section dd ? machine dw ? subsystem dw ? subsystem_version dd ? image_base dd ? image_base_high dd ? resource_data dd ? resource_size dd ? parenthesis_stack dd ? blocks_stack dd ? parsed_lines dd ? logical_value_parentheses dd ? file_extension dd ? operand_size db ? size_override db ? operand_prefix db ? opcode_prefix db ? rex_prefix db ? vex_required db ? vex_register db ? immediate_size db ? base_code db ? extended_code db ? supplemental_code db ? postbyte_register db ? segment_register db ? xop_opcode_map db ? mmx_size db ? jump_type db ? push_size db ? value_size db ? address_size db ? size_declared db ? value_undefined db ? value_type db ? fp_sign db ? fp_format db ? compare_type db ? logical_value_wrapping db ? next_pass_needed db ? output_format db ? labels_type db ? code_type db ? virtual_data db ? macro_status db ? prefixed_instruction db ? formatter_symbols_allowed db ? characters rb 100h converted rb 100h message rb 200h ; --------------- "variable.inc" ---------------- ; con_handle dd ? memory_setting dd ? start_time dd ? params rb 1000h options rb 1000h buffer rb 4000h stack 10000h section '.idata' import data readable writeable dd 0,0,0,rva kernel_name,rva kernel_table dd 0,0,0,0,0 kernel_table: ExitProcess dd rva _ExitProcess CreateFile dd rva _CreateFileA ReadFile dd rva _ReadFile WriteFile dd rva _WriteFile CloseHandle dd rva _CloseHandle SetFilePointer dd rva _SetFilePointer GetCommandLine dd rva _GetCommandLineA GetEnvironmentVariable dd rva _GetEnvironmentVariable GetStdHandle dd rva _GetStdHandle VirtualAlloc dd rva _VirtualAlloc VirtualFree dd rva _VirtualFree GetTickCount dd rva _GetTickCount GetSystemTime dd rva _GetSystemTime GlobalMemoryStatus dd rva _GlobalMemoryStatus dd 0 kernel_name db 'KERNEL32.DLL',0 _ExitProcess dw 0 db 'ExitProcess',0 _CreateFileA dw 0 db 'CreateFileA',0 _ReadFile dw 0 db 'ReadFile',0 _WriteFile dw 0 db 'WriteFile',0 _CloseHandle dw 0 db 'CloseHandle',0 _SetFilePointer dw 0 db 'SetFilePointer',0 _GetCommandLineA dw 0 db 'GetCommandLineA',0 _GetEnvironmentVariable dw 0 db 'GetEnvironmentVariableA',0 _GetStdHandle dw 0 db 'GetStdHandle',0 _VirtualAlloc dw 0 db 'VirtualAlloc',0 _VirtualFree dw 0 db 'VirtualFree',0 _GetTickCount dw 0 db 'GetTickCount',0 _GetSystemTime dw 0 db 'GetSystemTime',0 _GlobalMemoryStatus dw 0 db 'GlobalMemoryStatus',0 section '.reloc' fixups data readable discardable