From 905b52e8eec1c70a7af442adae9a9e7792a3ac82 Mon Sep 17 00:00:00 2001
From: heavyiron <heavyiron@kolibrios.org>
Date: Thu, 1 Oct 2009 00:41:45 +0000
Subject: [PATCH] tag for fasm 1.68 fasm 1.69.06 in trunk

git-svn-id: svn://kolibrios.org@1189 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/develop/fasm/tags/1.68/WHATSNEW.TXT |  200 +
 programs/develop/fasm/tags/1.68/assemble.inc | 2034 +++++
 programs/develop/fasm/tags/1.68/build_en.bat |    5 +
 programs/develop/fasm/tags/1.68/build_ru.bat |    6 +
 programs/develop/fasm/tags/1.68/errors.inc   |  174 +
 programs/develop/fasm/tags/1.68/expressi.inc | 2878 +++++++
 programs/develop/fasm/tags/1.68/fasm.asm     |  608 ++
 programs/develop/fasm/tags/1.68/fasm.inc     |   53 +
 programs/develop/fasm/tags/1.68/formats.inc  | 4250 +++++++++++
 programs/develop/fasm/tags/1.68/messages.inc |   51 +
 programs/develop/fasm/tags/1.68/parser.inc   | 1350 ++++
 programs/develop/fasm/tags/1.68/preproce.inc | 2529 +++++++
 programs/develop/fasm/tags/1.68/struct.inc   |  180 +
 programs/develop/fasm/tags/1.68/symbdump.inc |  110 +
 programs/develop/fasm/tags/1.68/system.inc   |  573 ++
 programs/develop/fasm/tags/1.68/tables.inc   | 2028 +++++
 programs/develop/fasm/tags/1.68/variable.inc |  130 +
 programs/develop/fasm/tags/1.68/version.inc  |   39 +
 programs/develop/fasm/tags/1.68/x86_64.inc   | 7034 ++++++++++++++++++
 programs/develop/fasm/trunk/WHATSNEW.TXT     |   69 +-
 programs/develop/fasm/trunk/assemble.inc     |   76 +-
 programs/develop/fasm/trunk/expressi.inc     |   43 +-
 programs/develop/fasm/trunk/formats.inc      |  106 +-
 programs/develop/fasm/trunk/parser.inc       |   70 +-
 programs/develop/fasm/trunk/preproce.inc     |  112 +-
 programs/develop/fasm/trunk/tables.inc       | 1671 ++---
 programs/develop/fasm/trunk/version.inc      |    2 +-
 programs/develop/fasm/trunk/x86_64.inc       |  103 +-
 28 files changed, 25479 insertions(+), 1005 deletions(-)
 create mode 100644 programs/develop/fasm/tags/1.68/WHATSNEW.TXT
 create mode 100644 programs/develop/fasm/tags/1.68/assemble.inc
 create mode 100644 programs/develop/fasm/tags/1.68/build_en.bat
 create mode 100644 programs/develop/fasm/tags/1.68/build_ru.bat
 create mode 100644 programs/develop/fasm/tags/1.68/errors.inc
 create mode 100644 programs/develop/fasm/tags/1.68/expressi.inc
 create mode 100644 programs/develop/fasm/tags/1.68/fasm.asm
 create mode 100644 programs/develop/fasm/tags/1.68/fasm.inc
 create mode 100644 programs/develop/fasm/tags/1.68/formats.inc
 create mode 100644 programs/develop/fasm/tags/1.68/messages.inc
 create mode 100644 programs/develop/fasm/tags/1.68/parser.inc
 create mode 100644 programs/develop/fasm/tags/1.68/preproce.inc
 create mode 100644 programs/develop/fasm/tags/1.68/struct.inc
 create mode 100644 programs/develop/fasm/tags/1.68/symbdump.inc
 create mode 100644 programs/develop/fasm/tags/1.68/system.inc
 create mode 100644 programs/develop/fasm/tags/1.68/tables.inc
 create mode 100644 programs/develop/fasm/tags/1.68/variable.inc
 create mode 100644 programs/develop/fasm/tags/1.68/version.inc
 create mode 100644 programs/develop/fasm/tags/1.68/x86_64.inc

diff --git a/programs/develop/fasm/tags/1.68/WHATSNEW.TXT b/programs/develop/fasm/tags/1.68/WHATSNEW.TXT
new file mode 100644
index 0000000000..57a637b746
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/WHATSNEW.TXT
@@ -0,0 +1,200 @@
+
+Visit http://flatassembler.net/ for more information.
+
+
+version 1.68 (Jun 13, 2009)
+
+[+] Added SSSE3 (Supplemental SSE3), SSE4.1, SSE4.2 and SSE4a instructions.
+
+[+] Added the AMD SVM and Intel SMX instructions.
+
+[+] Added "rdmsrq", "wrmsrq", "sysexitq" and "sysretq" mnemonics for the
+    64-bit variants of respective instructions.
+
+[+] Added "fstenvw", "fstenvd", "fsavew", "fsaved", "frstorw" and "frstord"
+    mnemonics to allow choosing between 16-bit and 32-bit variants of
+    structures used by the "fstenv", "fsave" and "frstor" instructions.
+
+[+] Added "plt" operator for the ELF output format.
+
+[+] Allowed "rva" operator to be used in MS COFF object format, and also
+    added "static" keyword for the "public" directive.
+
+[+] Added Intel-style aliases for the additional long mode 8-bit registers.
+
+[-] The PE formatter now automatically detects whether relocatable labels
+    should be used, depending on whether the fixups directory is placed
+    somewhere into executable by programer, or not. This makes possible the
+    more flexible use of the addressing symbols in case of PE executable fixed
+    at some position.
+
+[-] Added support for outputting the 32-bit address relocations in case of
+    64-bit object formats and PE executable. This makes some specific
+    instructions compilable, but it also forces linker to put such
+    generated code into the low 2 gigabytes of addressing space.
+
+[+] Added "EFI", "EFIboot" and "EFIruntime" subsystem keywords for PE format.
+
+[-] Corrected the precedence of operators of macroinstruction line maker.
+    The symbol escaping now has always the higher priority than symbol conversion,
+    and both have higher precedence than concatenation.
+
+[+] Allowed to check "@b" and "@f" symbols with "defined" operator.
+
+[+] Allowed "as" operator to specify the output file extension when
+    placed at the end of the "format" directive line.
+
+[-] Definition of macro with the same name as one of the preprocessor's directives
+    is no longer allowed.
+
+[+] Allowed single quote character to be put inside the number value,
+    to help improve long numbers readability.
+
+[+] Added optional symbolic information output, and a set of tools that extract
+    various kinds of information from it.
+
+[+] Added "err" directive that allows to signalize error from the source.
+
+
+version 1.66 (May 7, 2006)
+
+[+] Added "define" directive to preprocessor, which defines symbolic constants,
+    the same kind as "equ" directive, however there's an important difference
+    that "define" doesn't process symbolic constants in the value before
+    assigning it. For example:
+
+	a equ 1
+	a equ a+a
+
+	define b 1
+	define b b+b
+
+    defines the "a" constant with value "1+1", but the "b" is defined with
+    value "b+b". This directive may be useful in some advanced
+    macroinstructions.
+
+[-] Moved part of the conditional expression processing into parser,
+    for slightly better performance and lesser memory usage by assembler.
+    The logical values defined with "eq", "eqtype" and "in" operators are now
+    evaluated by the parser and if they are enough to determine the condition,
+    the whole block is processed accordingly. Thus this block:
+
+	if eax eq EAX | 0/0
+		nop
+	end if
+
+    is parsed into just "nop" instruction, since parser is able to determine
+    that the condition is true, even though one of the logical values makes no
+    sense - but since this is none of the "eq", "eqtype" and "in" expressions,
+    the parser doesn't investigate.
+
+[-] Also the assembler is now calculating only as many logical values as it
+    needs to determine the condition. So this block:
+
+	if defined alpha & alpha
+
+	end if
+
+    will not cause error when "alpha" is not defined, as it would with previous
+    versions. This is because after checking that "defined alpha" is false
+    condition it doesn't need to know the second logical value to determine the
+    value of conjunction.
+
+[+] Added "short" keyword for specifying jump type, the "jmp byte" form is now
+    obsolete and no longer correct - use "jmp short" instead.
+
+[-] The size operator applied to jump no longer applies to the size of relative
+    displacement - now it applies to the size of target address.
+
+[-] The "ret" instruction with 0 parameter is now assembled into short form,
+    unless you force using the 16-bit immediate with "word" operator.
+
+[+] Added missing extended registers for the 32-bit addressing in long mode.
+
+[+] Added "linkremove" and "linkinfo" section flags for MS COFF output.
+
+[+] Added support for GOT offsets in ELF object formatter, which can be useful
+    when making position-independent code for shared libraries. For any label
+    you can get its offset relative to GOT by preceding it with "rva" operator
+    (the same keyword as for PE format is used, to avoid adding a new one,
+    while this one has very similar meaning).
+
+[-] Changed ELF executable to use "segment" directive in place of "section",
+    to make the distinction between the run-time segments and linkable
+    sections. If you had a "section" directive in your ELF executables and they
+    no longer assemble, replace it with "segment".
+
+[-] The PE formatter now always creates the fixups directory when told to -
+    even when there are no fixups to be put there (in such case it creates the
+    directory with one empty block).
+
+[-] Some of the internal structures have been extended to provide the
+    possibility of making extensive symbol dumps.
+
+[-] Corrected "fix" directive to keep the value intact before assigning it to the
+    prioritized constant.
+
+[+] The ` operator now works with any kind of symbol; when used with quoted
+    string it simply does nothing. Thus the sequence of ` operators applied to
+    one symbol work the same as if there was just one. In similar manner, the
+    sequence of # operators now works as if it was a single one - using such a
+    sequence instead of escaping, which was kept for some backward
+    compatibility, is now deprecated.
+
+[-] Corrected order of identifying assembler directives ("if db eq db" was
+    incorrectly interpreted as data definition).
+
+[-] Many other small bugs fixed.
+
+
+version 1.64 (Aug 8, 2005)
+
+[+] Output of PE executables for Win64 architecture (with "format PE64"
+    setting).
+
+[+] Added "while" and "break" directives.
+
+[+] Added "irp" and "irps" directives.
+
+[+] The macro arguments can be marked as required with the "*" character.
+
+[-] Fixed checking for overflow when multiplying 64-bit values - the result
+    must always fit in the range of signed 64 integer now.
+
+[-] Segment prefixes were generated incorrectly in 16-bit mode when BP was used
+    as a second addressing register - fixed.
+
+[-] The "local" directive was not creating unique labels in some cases - fixed.
+
+[-] The "not encodable with long immediate" error in 64-bit mode was sometimes
+    wrongly signaled - fixed.
+
+[-] Other minor fixes and corrections.
+
+
+version 1.62 (Jun 14, 2005)
+
+[+] Escaping of symbols inside macroinstructions with backslash.
+
+[+] Ability of outputting the COFF object files for Win64 architecture
+    (with "format MS64 COFF" setting).
+
+[+] New preprocessor directives: "restruc", "rept" and "match"
+
+[+] VMX instructions support (not documented).
+
+[+] Extended data directives to allow use of the "dup" operator.
+
+[+] Extended "struc" features to allow custom definitions of main structure's
+    label.
+
+[-] When building resources from the the .RES file that contained more
+    than one resource of the same string name, the separate resource
+    directories were created with the same names - fixed.
+
+[-] Several bugs in the ELF64 object output has been fixed.
+
+[-] Corrected behavior of "fix" directive to more straightforward.
+
+[-] Fixed bug in "include" directive, which caused files included from within
+    macros to be processed the wrong way.
diff --git a/programs/develop/fasm/tags/1.68/assemble.inc b/programs/develop/fasm/tags/1.68/assemble.inc
new file mode 100644
index 0000000000..1fa475871b
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/assemble.inc
@@ -0,0 +1,2034 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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
+	jmp	near [error]
+      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     [rex_prefix],0
+	mov	dword [operand_size],0
+	mov	[opcode_prefix],0
+	mov	[immediate_size],0
+	movzx	ebx,word [esi]
+	mov	al,[esi+2]
+	add	ebx,assembler
+	add	esi,3
+	jmp	near ebx
+      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
+skip_line:
+	call	skip_symbol
+	jnc	skip_line
+	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
+
+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_dword_value
+	cmp	[next_pass_needed],0
+	jne	times_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      times_value_ok:
+	cmp	eax,0
+	je	zero_times
+	jl	negative_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
+      negative_times:
+	cmp	[error_line],0
+	jne	zero_times
+	mov	eax,[current_line]
+	mov	[error_line],eax
+	mov	[error],invalid_value
+      zero_times:
+	call	skip_line
+	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-assembler
+	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	esi,[structures_buffer]
+	mov	ecx,ebx
+	sub	ecx,esi
+	lea	edi,[esi+20h]
+	mov	[structures_buffer],edi
+	shr	ecx,2
+	rep	movs dword [edi],[esi]
+	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_dword_value
+	cmp	[next_pass_needed],0
+	jne	repeat_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      repeat_value_ok:
+	cmp	eax,0
+	je	zero_repeat
+	jl	negative_repeat
+	call	allocate_structure_data
+	mov	word [ebx],repeat_directive-assembler
+	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
+      negative_repeat:
+	cmp	[error_line],0
+	jne	zero_repeat
+	mov	eax,[current_line]
+	mov	[error_line],eax
+	mov	[error],invalid_value
+      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-assembler
+	jne	unexpected_instruction
+	ret
+while_directive:
+	cmp	[prefixed_instruction],0
+	jne	unexpected_instruction
+	call	allocate_structure_data
+	mov	word [ebx],while_directive-assembler
+	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-assembler
+	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-assembler
+	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-assembler
+	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-assembler
+	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-assembler
+	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-assembler
+	je	else_found
+	cmp	ax,if_directive-assembler
+	jne	unexpected_instruction
+	stc
+	ret
+      else_found:
+	clc
+	ret
+      find_end_if:
+	call	find_structure_end
+	cmp	ax,if_directive-assembler
+	jne	unexpected_instruction
+	ret
+      find_structure_end:
+	push	[error_line]
+	mov	eax,[current_line]
+	mov	[error_line],eax
+      find_end_directive:
+	call	skip_line
+	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-assembler
+	je	find_end_directive
+	add	esi,4
+	cmp	ax,repeat_directive-assembler
+	je	skip_repeat
+	cmp	ax,while_directive-assembler
+	je	skip_while
+	cmp	ax,if_directive-assembler
+	je	skip_if
+	cmp	ax,else_directive-assembler
+	je	structure_end
+	cmp	ax,end_directive-assembler
+	jne	find_end_directive
+	cmp	byte [esi],1
+	jne	find_end_directive
+	mov	ax,[esi+1]
+	add	esi,4
+	cmp	ax,repeat_directive-assembler
+	je	structure_end
+	cmp	ax,while_directive-assembler
+	je	structure_end
+	cmp	ax,if_directive-assembler
+	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-assembler
+	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-assembler
+	je	end_virtual
+	cmp	ax,repeat_directive-assembler
+	je	end_repeat
+	cmp	ax,while_directive-assembler
+	je	end_while
+	cmp	ax,if_directive-assembler
+	je	end_if
+	cmp	ax,data_directive-assembler
+	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-assembler
+	je	break_repeat
+	cmp	ax,while_directive-assembler
+	je	break_while
+	cmp	ax,if_directive-assembler
+	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_dword_value
+	cmp	[next_pass_needed],0
+	jne	dup_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      dup_value_ok:
+	inc	esi
+	cmp	eax,0
+	jg	dup_positive
+	cmp	[error_line],0
+	jne	dup_invalid
+	mov	eax,[current_line]
+	mov	[error_line],eax
+	mov	[error],invalid_value
+      dup_invalid:
+	mov	eax,1
+      dup_positive:
+	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
+      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_dword_value
+	pop	ebx
+	mov	edx,eax
+	sub	[esp],edx
+      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_dword_value
+	pop	edx ebx
+	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	esi,[current_line]
+	mov	esi,[esi]
+      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_dword_value
+	cmp	[next_pass_needed],0
+	jne	rb_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      rb_value_ok:
+	cmp	eax,0
+	jl	reserve_negative
+	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_negative:
+	cmp	[error_line],0
+	jne	instruction_assembled
+	mov	eax,[current_line]
+	mov	[error_line],eax
+	mov	[error],invalid_value
+	jmp	instruction_assembled
+reserve_words:
+	lods	byte [esi]
+	cmp	al,'('
+	jne	invalid_argument
+	cmp	byte [esi],'.'
+	je	invalid_value
+	call	get_dword_value
+	cmp	[next_pass_needed],0
+	jne	rw_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      rw_value_ok:
+	cmp	eax,0
+	jl	reserve_negative
+	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_dword_value
+	cmp	[next_pass_needed],0
+	jne	rd_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      rd_value_ok:
+	cmp	eax,0
+	jl	reserve_negative
+	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_dword_value
+	cmp	[next_pass_needed],0
+	jne	rp_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      rp_value_ok:
+	cmp	eax,0
+	jl	reserve_negative
+	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_dword_value
+	cmp	[next_pass_needed],0
+	jne	rq_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      rq_value_ok:
+	cmp	eax,0
+	jl	reserve_negative
+	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_dword_value
+	cmp	[next_pass_needed],0
+	jne	rt_value_ok
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+      rt_value_ok:
+	cmp	eax,0
+	jl	reserve_negative
+	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_dword_value
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+	mov	edx,eax
+	dec	edx
+	test	eax,edx
+	jnz	negative_times
+	or	eax,eax
+	jz	negative_times
+	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
+      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
diff --git a/programs/develop/fasm/tags/1.68/build_en.bat b/programs/develop/fasm/tags/1.68/build_en.bat
new file mode 100644
index 0000000000..2cdc427420
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/build_en.bat
@@ -0,0 +1,5 @@
+@erase lang.inc
+@echo lang fix en >lang.inc
+@fasm fasm.asm fasm
+@erase lang.inc
+@pause
\ No newline at end of file
diff --git a/programs/develop/fasm/tags/1.68/build_ru.bat b/programs/develop/fasm/tags/1.68/build_ru.bat
new file mode 100644
index 0000000000..69a5437498
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/build_ru.bat
@@ -0,0 +1,6 @@
+@erase lang.inc
+@echo lang fix ru >lang.inc
+@fasm fasm.asm fasm
+@erase lang.inc
+@kpack fasm
+@pause
\ No newline at end of file
diff --git a/programs/develop/fasm/tags/1.68/errors.inc b/programs/develop/fasm/tags/1.68/errors.inc
new file mode 100644
index 0000000000..8f6915b204
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/errors.inc
@@ -0,0 +1,174 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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
+unexpected_end_of_file:
+	push	_unexpected_end_of_file
+	jmp	fatal_error
+code_cannot_be_generated:
+	push	_code_cannot_be_generated
+	jmp	fatal_error
+format_limitations_exceeded:
+	push	_format_limitations_exceeded
+	jmp	fatal_error
+invalid_definition:
+	push	_invalid_definition
+	jmp	fatal_error
+write_failed:
+	push	_write_failed
+	jmp	fatal_error
+
+file_not_found:
+	push	_file_not_found
+	jmp	assembler_error
+error_reading_file:
+	push	_error_reading_file
+	jmp	assembler_error
+invalid_file_format:
+	push	_invalid_file_format
+	jmp	assembler_error
+invalid_macro_arguments:
+	push	_invalid_macro_arguments
+	jmp	assembler_error
+incomplete_macro:
+	push	_incomplete_macro
+	jmp	assembler_error
+unexpected_characters:
+	push	_unexpected_characters
+	jmp	assembler_error
+invalid_argument:
+	push	_invalid_argument
+	jmp	assembler_error
+illegal_instruction:
+	push	_illegal_instruction
+	jmp	assembler_error
+invalid_operand:
+	push	_invalid_operand
+	jmp	assembler_error
+invalid_operand_size:
+	push	_invalid_operand_size
+	jmp	assembler_error
+operand_size_not_specified:
+	push	_operand_size_not_specified
+	jmp	assembler_error
+operand_sizes_do_not_match:
+	push	_operand_sizes_do_not_match
+	jmp	assembler_error
+invalid_address_size:
+	push	_invalid_address_size
+	jmp	assembler_error
+address_sizes_do_not_agree:
+	push	_address_sizes_do_not_agree
+	jmp	assembler_error
+prefix_conflict:
+	push	_prefix_conflict
+	jmp	assembler_error
+long_immediate_not_encodable:
+	push	_long_immediate_not_encodable
+	jmp	assembler_error
+relative_jump_out_of_range:
+	push	_relative_jump_out_of_range
+	jmp	assembler_error
+invalid_expression:
+	push	_invalid_expression
+	jmp	assembler_error
+invalid_address:
+	push	_invalid_address
+	jmp	assembler_error
+invalid_value:
+	push	_invalid_value
+	jmp	assembler_error
+value_out_of_range:
+	push	_value_out_of_range
+	jmp	assembler_error
+undefined_symbol:
+	mov	edi,message
+	mov	esi,_undefined_symbol
+	call	copy_asciiz
+	push	message
+	cmp	[error_info],0
+	je	assembler_error
+	mov	byte [edi-1],20h
+	call	write_quoted_symbol_name
+	jmp	assembler_error
+    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	assembler_error
+invalid_use_of_symbol:
+	push	_invalid_use_of_symbol
+	jmp	assembler_error
+name_too_long:
+	push	_name_too_long
+	jmp	assembler_error
+invalid_name:
+	push	_invalid_name
+	jmp	assembler_error
+reserved_word_used_as_symbol:
+	push	_reserved_word_used_as_symbol
+	jmp	assembler_error
+symbol_already_defined:
+	push	_symbol_already_defined
+	jmp	assembler_error
+missing_end_quote:
+	push	_missing_end_quote
+	jmp	assembler_error
+missing_end_directive:
+	push	_missing_end_directive
+	jmp	assembler_error
+unexpected_instruction:
+	push	_unexpected_instruction
+	jmp	assembler_error
+extra_characters_on_line:
+	push	_extra_characters_on_line
+	jmp	assembler_error
+section_not_aligned_enough:
+	push	_section_not_aligned_enough
+	jmp	assembler_error
+setting_already_specified:
+	push	_setting_already_specified
+	jmp	assembler_error
+data_already_defined:
+	push	_data_already_defined
+	jmp	assembler_error
+too_many_repeats:
+	push	_too_many_repeats
+	jmp	assembler_error
+invoked_error:
+	push	_invoked_error
+	jmp	assembler_error
\ No newline at end of file
diff --git a/programs/develop/fasm/tags/1.68/expressi.inc b/programs/develop/fasm/tags/1.68/expressi.inc
new file mode 100644
index 0000000000..c1b34495da
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/expressi.inc
@@ -0,0 +1,2878 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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]
+	cmp	eax,[labels_list]
+	jae	out_of_memory
+	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:
+	mov	eax,esp
+	sub	eax,100h
+	jc	stack_overflow
+	cmp	eax,[stack_limit]
+	jb	stack_overflow
+	inc	esi
+	push	[current_offset]
+	call	convert_expression
+	pop	[current_offset]
+	lods	byte [esi]
+	cmp	al,')'
+	jne	invalid_expression
+	ret
+      symbol_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
+
+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
+	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:
+	or	ebp,-1
+	inc	esi
+	jmp	get_dec_digit
+      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
+
+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
+	jmp	make_dword_label_value
+      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	eax,[edi+4]
+	xor	[ebx+4],eax
+	jmp	calculation_loop
+      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
+	cmp	ecx,32
+	jae	shl_high
+	mov	edx,[ebx+4]
+	mov	eax,[ebx]
+	shld	edx,eax,cl
+	shl	eax,cl
+	mov	[ebx],eax
+	mov	[ebx+4],edx
+	jmp	calculation_loop
+      shl_high:
+	sub	cl,32
+	mov	eax,[ebx]
+	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
+	cmp	ecx,32
+	jae	shr_high
+	mov	edx,[ebx+4]
+	mov	eax,[ebx]
+	shrd	eax,edx,cl
+	shr	edx,cl
+	mov	[ebx],eax
+	mov	[ebx+4],edx
+	jmp	calculation_loop
+      shr_high:
+	sub	cl,32
+	mov	eax,[ebx+4]
+	shr	eax,cl
+	mov	[ebx],eax
+	mov	dword [ebx+4],0
+	jmp	calculation_loop
+      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,4
+	je	convert_fp_dword
+	cmp	al,8
+	je	convert_fp_qword
+	jmp	invalid_value
+      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_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_scale
+	cmp	cl,2
+	je	special_index_scale
+	cmp	cl,3
+	je	special_index_scale
+	cmp	cl,5
+	je	special_index_scale
+	cmp	cl,9
+	je	special_index_scale
+      check_index_scale:
+	or	cl,cl
+	jz	check_immediate_address
+	cmp	cl,1
+	je	check_immediate_address
+	cmp	cl,2
+	je	check_immediate_address
+	cmp	cl,4
+	je	check_immediate_address
+	cmp	cl,8
+	je	check_immediate_address
+	jmp	invalid_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
+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
+
+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
+
+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
diff --git a/programs/develop/fasm/tags/1.68/fasm.asm b/programs/develop/fasm/tags/1.68/fasm.asm
new file mode 100644
index 0000000000..7c6327d0be
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/fasm.asm
@@ -0,0 +1,608 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                                                 ;;
+;;  flat assembler source                          ;;
+;;  Copyright (c) 1999-2006, Tomasz Grysztar       ;;
+;;  All rights reserved.                           ;;
+;;                                                 ;;
+;;  Menuet port by VT                              ;;
+;;                                                 ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+NORMAL_MODE    = 8
+CONSOLE_MODE   = 32
+
+MAGIC1         = 6*(text.line_size-1)+14
+MAX_PATH       = 100
+
+APP_MEMORY     = 0x00800000
+
+;; Menuet header
+
+appname equ "flat assembler "
+
+use32
+
+  org 0x0
+  db 'MENUET01'  ; 8 byte id
+  dd 0x01        ; header version
+  dd START       ; program start
+  dd program_end ; program image size
+  dd stacktop    ; required amount of memory
+  dd stacktop    ; stack
+  dd params,0x0  ; parameters,icon
+
+include 'lang.inc'
+include '..\..\..\macros.inc'
+purge add,sub    ; macros.inc does incorrect substitution
+include 'fasm.inc'
+
+center fix true
+
+START:	    ; Start of execution
+        mov     edi, fileinfos
+        mov     ecx, (fileinfos_end-fileinfos)/4
+        or      eax, -1
+        rep     stosd
+        push    68
+        pop     eax
+        push    11
+        pop     ebx
+        mcall
+
+   cmp    [params],0
+   jz	    red
+
+   mov    ecx,10
+   mov    eax,'    '
+   mov    edi,infile
+   push   ecx
+   cld
+   rep    stosd
+   mov    ecx,[esp]
+   mov    edi,outfile
+   rep    stosd
+   pop    ecx
+   mov    edi,path
+   rep    stosd
+
+   mov     esi,params
+;  DEBUGF  "params: %s\n",esi
+   mov     edi,infile
+   call    mov_param_str
+;  mov     edi,infile
+;  DEBUGF  " input: %s\n",edi
+   inc     esi
+   mov     edi,outfile
+   call    mov_param_str
+;  mov     edi,outfile
+;  DEBUGF  "output: %s\n",edi
+   inc     esi
+   mov     edi,path
+   call    mov_param_str
+;  mov     edi,path
+;  DEBUGF  "  path: %s\n",edi
+
+   cmp     [esi], dword ',run'
+   jne     @f
+   mov     [_run_outfile],1
+  @@:
+
+   mov     [_mode],CONSOLE_MODE
+   jmp     start
+
+
+red:	; Redraw
+    call draw_window
+
+still:  
+    push 10          ; Wait here for event
+    pop eax 
+    mcall 
+    dec eax 
+    je  red          ; Redraw request
+    dec eax 
+    jne button       ; Button in buffer
+
+key:                 ; Key
+    mov  al,2        ; Read it and ignore
+    mcall
+    jmp  still
+
+button:    ; Button in Window
+
+    mov  al,17
+    mcall
+
+    cmp     ah,1
+    jne     noclose
+    or      eax,-1
+    mcall
+
+noclose:    
+    cmp  ah,2         ; Start compiling
+    je   start
+    cmp  ah,3         ; Start compiled file
+    jnz  norunout
+
+    mov  edx,outfile
+    call make_fullpaths
+    mcall  70,file_info_start
+;   xor   ecx,ecx
+    jmp  still
+   norunout:
+    cmp  ah,4
+    jnz  norundebug
+
+    mov  edx,outfile
+    call make_fullpaths
+    mcall 70,file_info_debug
+    jmp  still
+
+   norundebug:
+    mov  ecx,5
+    mov  [ya],ecx
+
+    cmp  ah,11	   ; Infile
+    je   f1
+    cmp  ah,12	   ; Outfile
+    je   f2
+    cmp  ah,13	   ; Path
+    je   f3
+    cmp  ah,14
+    je   f4
+
+    jmp  still
+
+f4:
+        xor     [bGenerateDebugInfo], 1
+        mcall   8,,,0x8000000E
+        call    draw_checkbox
+        jmp     still
+
+draw_window:
+
+    pusha
+
+    mcall  12,1 ; Start of draw
+
+    get_sys_colors 1,0
+
+    xor  eax,eax                     
+    mov  ebx,100*65536+280
+    mov  ecx,90*65536+260
+    mov  edx,[sc.work]
+    or   edx,0x33000000
+    mov  edi,title             ; Draw Window Label Text
+    mcall
+
+    mcall 9,PROCESSINFO,-1	    
+
+    mpack ecx,1,1
+    mov   ebx,[pinfo.box.width]
+    sub   ebx,10
+
+    push  ecx
+    madd  ecx, 14*3+16+2, 14*3+16+2
+    mcall 38,,,[sc.work_graph]
+    pop   ecx
+
+    sub   ebx,MAGIC1+3
+    mcall
+    madd  ecx, 14, 14
+    mcall
+    madd  ecx, 14, 14
+    mcall
+    madd  ecx, 14, 14
+    mcall
+    push  ebx
+    mpack ebx,MAGIC1,MAGIC1
+    sub   ecx, 14*3
+    mcall
+    mov   ebx,[esp-2]
+    pop   bx
+    mcall
+    add   esp,2
+
+    mpack ebx,0,MAGIC1-1
+    mpack ecx,1+1, 14-2
+    mcall 8,,,0x4000000B       ; Button: Enter Infile
+    madd  ecx, 14,0
+    mcall  ,,,0x4000000C       ; Button: Enter Outfile
+    madd  ecx, 14,0
+    mcall  ,,,0x4000000D       ; Button: Enter Path
+
+    mpack ebx,[pinfo.box.width],MAGIC1
+    msub  ebx,MAGIC1+10+1,0
+    mpack ecx,0, (14*3+16)/3-1
+    madd  ecx,1,0
+    mcall  ,,,0x00000002,[sc.work_button]
+    madd  ecx, (14*3+16)/3+1,0
+    mcall  ,,,0x00000003
+    madd  ecx, (14*3+16)/3+1,0
+    mcall ,,,4
+
+    mpack ebx,6,0    ; Draw Window Text
+    add  ebx,1+ 14/2-3
+    mov  ecx,[sc.work_text]
+    mov  edx,text
+    mov  esi,text.line_size
+    mov  eax,4
+   newline:
+    mcall
+    add  ebx, 14
+    add  edx,text.line_size
+    cmp  byte[edx],'x'
+    jne  newline
+
+    mov   ebx,[pinfo.box.width]
+    sub   ebx,MAGIC1+10+1-9
+    shl   ebx,16
+    add   ebx,1+( (14*3+16)/3-1)/2-3
+    mcall  ,,[sc.work_button_text],s_compile,7
+    add   ebx,(14*3+16)/3+1
+    mcall ,,,s_run
+    add   ebx,(14*3+16)/3+1
+    mcall ,,,s_debug
+
+    mpack ebx,MAGIC1+6,0
+    add   ebx,1+ 14/2-3+ 14*0
+    mov   esi,[pinfo.box.width]
+    sub   esi,MAGIC1*2+5*2+6+3
+    mov   eax,esi
+    mov   cl,6
+    div   cl
+    cmp   al,MAX_PATH
+    jbe   @f
+    mov   al,MAX_PATH
+@@: movzx esi,al
+    mcall 4,,[sc.work_text],infile
+    add   ebx,14
+    mcall ,,,outfile
+    add   ebx,14
+    mcall ,,,path
+
+        call    draw_checkbox
+
+    call  draw_messages
+
+    mcall  12,2 ; End of Draw
+
+    popa
+    ret
+
+bottom_right dd ?
+
+draw_checkbox:
+        mcall   8,<5,10>,<14*3+5,10>,14,[sc.work_button]
+        cmp     [bGenerateDebugInfo], 0
+        jz      @f
+        mov     edx, [sc.work_button_text]
+        mcall   38,<7,13>,<14*3+7,14*3+13>
+        mcall   38,,<14*3+13,14*3+7>
+@@:
+        mov     ecx, [sc.work_text]
+        or      ecx, 0x80000000
+        mcall   4,<20,14*3+7>,,s_dbgdescr
+        ret
+
+draw_messages:
+    mov    eax,13      ; clear work area
+    mpack  ebx,7-2,[pinfo.box.width]
+    sub    ebx,5*2+7*2-1-2*2
+    mpack  ecx,0,[pinfo.box.height]
+    madd   ecx, 14*3+16+1+7+1,-( 14*3+16+1+7*2+25)
+    mov    word[bottom_right+2],bx
+    mov    word[bottom_right],cx
+    msub   [bottom_right],7,11
+    add    [bottom_right],7 shl 16 + 53
+    mov    edx,[sc.work]
+    mcall
+_cy = 0
+_sy = 2
+_cx = 4
+_sx = 6
+    push   ebx ecx
+    mpack  ebx,4,5
+    add    bx,[esp+_cx]
+    mov    ecx,[esp+_sy-2]
+    mov    cx,[esp+_sy]
+    msub   ecx,1,1
+    mcall  38,,,[sc.work_graph]
+    mov    si,[esp+_cy]
+    add    cx,si
+    shl    esi,16
+    add    ecx,esi
+    madd   ecx,1,1
+    mcall
+    mpack  ebx,4,4
+    mov    esi,[esp+_sy-2]
+    mov    si,cx
+    mov    ecx,esi
+    mcall
+    mov    si,[esp+_cx]
+    add    bx,si
+    shl    esi,16
+    add    ebx,esi
+    madd   ebx,1,1
+    mcall
+    pop    ecx ebx
+    ret
+
+; read string
+
+f1: mov  [addr],infile
+    add  [ya], 14*0
+    jmp  rk
+f2: mov  [addr],outfile
+    add  [ya], 14*1
+    jmp  rk
+f3: mov  [addr],path
+    add  [ya], 14*2
+rk:
+
+    mov  edi,[addr]
+    mov  al,0
+    mov  ecx,MAX_PATH
+    add  edi,ecx
+    dec  edi
+    std
+    repe scasb
+    sub  ecx,MAX_PATH
+    neg  ecx
+    mov  al,$1C ; ''
+    add  edi,2
+    push  edi
+    cld
+    rep  stosb
+    call print_text
+    pop edi
+f11:mcall  10
+    cmp    eax,2
+    jne read_done
+    mcall; 2
+    shr    eax,8
+    cmp    al,13
+    je	  read_done
+    cmp    al,8
+    jne nobs
+    cmp    edi,[addr]
+    je	  f11
+    sub    edi,1
+    mov    byte[edi],$1C ; '_'
+    call   print_text
+    jmp    f11
+   nobs:
+    movzx  ebx,al
+    sub    ebx,$20
+    jle    f11
+    sub    al,[sub_table+ebx]
+   keyok:
+    mov    ecx,[addr]
+    add    ecx,MAX_PATH
+    cmp    edi,ecx
+    jae    f11
+    mov    [edi],al
+
+    call   print_text
+    inc    edi
+    jmp f11
+
+  read_done:
+
+    mov    ecx,[addr]
+    add    ecx,MAX_PATH
+    sub    ecx,edi
+    mov    al,0;' '
+    cld
+    rep    stosb
+    call   print_text
+
+    jmp    still
+
+print_text:
+
+    mpack ebx,MAGIC1+6,[pinfo.box.width]
+    sub   ebx,MAGIC1*2+19
+    movzx esi,bx
+    mov   ecx,[ya-2]
+    mov   cx,8
+    mcall 13,,,[sc.work]
+
+    mpack ebx,MAGIC1+6,[ya]
+    mov   eax,esi
+    mov   cl,6
+    div   cl
+    cmp   al,MAX_PATH
+    jbe   @f
+    mov   al,MAX_PATH
+@@: movzx esi,al
+    mcall 4,,[sc.work_text],[addr]
+
+    ret
+
+
+; DATA
+
+text:
+  db ' INFILE:'
+.line_size = $-text
+  db 'OUTFILE:'
+  db '   PATH:'
+  db 'x'
+
+s_compile db 'COMPILE'
+s_run     db '  RUN  '
+s_debug   db ' DEBUG '
+
+s_dbgdescr      db      'Generate debug information',0
+
+infile	  db 'example.asm'
+  times MAX_PATH+$-infile  db 0
+outfile db 'example'
+  times MAX_PATH+$-outfile db 0
+path	db '/rd/1/'
+  times MAX_PATH+$-path    db 0
+
+lf db 13,10,0
+
+addr dd 0x0
+ya   dd 0x0
+zero db 0x0
+
+mov_param_str:
+  @@:
+    mov    al,[esi]
+    cmp    al,','
+    je	     @f
+    cmp    al,0
+    je	     @f
+    mov    [edi],al
+    inc    esi
+    inc    edi
+    jmp    @b
+  @@:
+    mov    al,0
+    stosb
+ret
+
+start:
+    cmp    [_mode],NORMAL_MODE
+    jne    @f
+    call   draw_messages
+    mov    [textxy],7 shl 16 + 70
+@@:
+    mov    esi,_logo
+    call   display_string
+
+ ;
+ ;   Fasm native code
+ ;
+
+    mov    [input_file],infile
+    mov    [output_file],outfile
+
+    call   init_memory
+
+    call   make_timestamp
+    mov    [start_time],eax
+
+    call   preprocessor
+    call   parser
+    call   assembler
+    cmp    [bGenerateDebugInfo], 0
+    jz     @f
+    call   symbol_dump
+@@:
+    call   formatter
+
+    call   display_user_messages
+    movzx  eax,[current_pass]
+    inc    eax
+    call   display_number
+    mov    esi,_passes_suffix
+    call   display_string
+    call   make_timestamp
+    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
+
+    cmp    [_run_outfile],0
+    je     @f
+    mov    edx,outfile
+    call   make_fullpaths
+    mov    eax,70
+    mov    ebx,file_info_start
+    xor    ecx,ecx
+    mcall
+@@:
+    jmp    exit_program
+
+
+include 'system.inc'
+include 'version.inc'
+include 'errors.inc'
+include 'expressi.inc'
+include 'preproce.inc'
+include 'parser.inc'
+include 'assemble.inc'
+include 'formats.inc'
+include 'x86_64.inc'
+include 'tables.inc'
+include 'symbdump.inc'
+include 'messages.inc'
+
+title db appname,VERSION_STRING,0
+
+_logo db 'flat assembler  version ',VERSION_STRING,13,10,0
+
+_passes_suffix db ' passes, ',0
+_seconds_suffix db ' seconds, ',0
+_bytes_suffix db ' bytes.',13,10,0
+
+_include db 'INCLUDE',0
+
+_counter db 4,'0000'
+
+_mode	       dd NORMAL_MODE
+_run_outfile  dd 0
+bGenerateDebugInfo db 0
+
+sub_table:
+times $41 db $00
+times $1A db $20
+times $25 db $00
+times $10 db $20
+times $30 db $00
+times $10 db $50
+times $04 db $00,$01
+times $08 db $00
+
+;include_debug_strings
+
+params db 0 ; 'TINYPAD.ASM,TINYPAD,/HD/1/TPAD4/',
+program_end:
+rb 1000h
+
+align 4
+
+include 'variable.inc'
+
+program_base dd ?
+buffer_address dd ?
+memory_setting dd ?
+start_time dd ?
+memblock	dd	?
+
+predefinitions rb 1000h
+
+dbgfilename     rb      MAX_PATH+4
+
+sc    system_colors
+max_handles = 8
+fileinfos rb (4+20+MAX_PATH)*max_handles
+fileinfos_end:
+pinfo process_information
+
+align 1000h
+rb 1000h
+stacktop:
diff --git a/programs/develop/fasm/tags/1.68/fasm.inc b/programs/develop/fasm/tags/1.68/fasm.inc
new file mode 100644
index 0000000000..2ad8be6bca
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/fasm.inc
@@ -0,0 +1,53 @@
+center       fix false
+SYSTEMCOLORS fix sc
+PROCESSINFO  fix pinfo
+
+macro get_sys_colors wnd_skin,font_1 {
+ mcall 48,3,SYSTEMCOLORS,sizeof.system_colors
+ if wnd_skin <> 0
+  or [SYSTEMCOLORS+system_colors.work],0x03000000
+ end if
+ if font_1 <> 0
+  or [SYSTEMCOLORS+system_colors.grab_text],0x10000000
+ end if
+}
+
+macro draw_caption _edx,_esi {
+ mov  edx,_edx
+ mov  esi,_esi
+ call __draw_caption
+}
+
+macro mmov reg,a1,a2 {
+ mov reg,(a1) shl 16 + (a2)
+}
+
+macro madd reg,a1,a2 {
+ add reg,(a1) shl 16 + (a2)
+}
+
+macro msub reg,a1,a2 {
+ sub reg,(a1) shl 16 + (a2)
+}
+
+macro jmpe reg,def,[val,lab] {
+ forward
+  cmp reg,val
+  je  lab
+ common
+  if ~def eq
+   jmp def
+  end if
+}
+
+macro func name {
+ if used name
+  name:
+}
+
+macro endf {
+ end if
+}
+
+@^ fix macro comment {
+^@ fix }
diff --git a/programs/develop/fasm/tags/1.68/formats.inc b/programs/develop/fasm/tags/1.68/formats.inc
new file mode 100644
index 0000000000..d79718a1e8
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/formats.inc
@@ -0,0 +1,4250 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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,[esp]
+	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,17h
+	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
+	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
+      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],10B010Eh; 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],20B002Eh; 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
+	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:
+	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-assembler
+	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_dword_value
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+	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_dword_value
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+	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_dword_value
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+	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_dword_value
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+	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:
+	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],1Ch
+	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]
+	or	al,al
+	jnz	invalid_argument
+	lods	byte [esi]
+	cmp	al,'('
+	jne	invalid_argument
+	cmp	byte [esi],'.'
+	je	invalid_value
+	push	ebx
+	call	get_dword_value
+	pop	ebx
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+	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],1Ch
+	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]
+	or	al,al
+	jnz	invalid_argument
+	lods	byte [esi]
+	cmp	al,'('
+	jne	invalid_argument
+	cmp	byte [esi],'.'
+	je	invalid_value
+	push	ebx
+	call	get_dword_value
+	pop	ebx
+	cmp	[value_type],0
+	jne	invalid_use_of_symbol
+	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
+	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
+	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],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_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]
+	add	eax,[ebx+14h]
+	add	eax,0FFFh
+	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],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_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]
+	add	eax,[ebx+28h]
+	adc	edx,0
+	sub	eax,1
+	sbb	edx,0
+	shrd	eax,edx,12
+	shr	edx,12
+	add	eax,1
+	adc	edx,0
+	shld	edx,eax,12
+	shl	eax,12
+	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
+
+dump_symbols:
+	mov	ebx,[code_start]
+	mov	dword [ebx],'fas'+1Ah shl 24
+	mov	dword [ebx+4],VERSION_MAJOR + VERSION_MINOR shl 8 + 38h shl 16
+	add	ebx,38h
+	mov	edi,ebx
+	mov	dword [ebx-38h+10h],38h
+	mov	dword [ebx-38h+8],0
+	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
+	jne	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
+	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
+	mov	esi,[memory_start]
+      prepare_preprocessed_source:
+	cmp	esi,[source_start]
+	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:
+	add	esi,16
+	call	skip_foreign_line
+	jmp	prepare_preprocessed_source
+      preprocessed_source_ok:
+	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
diff --git a/programs/develop/fasm/tags/1.68/messages.inc b/programs/develop/fasm/tags/1.68/messages.inc
new file mode 100644
index 0000000000..4665ff8190
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/messages.inc
@@ -0,0 +1,51 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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
\ No newline at end of file
diff --git a/programs/develop/fasm/tags/1.68/parser.inc b/programs/develop/fasm/tags/1.68/parser.inc
new file mode 100644
index 0000000000..9884cb3f48
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/parser.inc
@@ -0,0 +1,1350 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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:
+	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-assembler
+	je	parse_block
+	cmp	bx,repeat_directive-assembler
+	je	parse_block
+	cmp	bx,while_directive-assembler
+	je	parse_block
+	cmp	bx,end_directive-assembler
+	je	parse_end_directive
+	cmp	bx,else_directive-assembler
+	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
+	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-assembler
+	je	parse_if
+	cmp	bx,while_directive-assembler
+	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-assembler
+	je	close_parsing_block
+	cmp	bx,repeat_directive-assembler
+	je	close_parsing_block
+	cmp	bx,while_directive-assembler
+	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-assembler
+	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-assembler
+	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-assembler
+	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-assembler
+	je	skip_parsing_block
+	cmp	bx,repeat_directive-assembler
+	je	skip_parsing_block
+	cmp	bx,while_directive-assembler
+	je	skip_parsing_block
+	cmp	bx,end_directive-assembler
+	je	skip_parsing_end_directive
+	cmp	bx,else_directive-assembler
+	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-assembler
+	je	close_skip_parsing_block
+	cmp	bx,repeat_directive-assembler
+	je	close_skip_parsing_block
+	cmp	bx,while_directive-assembler
+	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-assembler
+	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-assembler) shl 8
+	stos	dword [edi]
+	mov	eax,1 + (if_directive-assembler) 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-assembler
+	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-assembler
+	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-assembler) 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-assembler
+	je	allow_embedded_instruction
+	cmp	bx,times_directive-assembler
+	je	parse_times_directive
+	cmp	bx,end_directive-assembler
+	je	allow_embedded_instruction
+	cmp	bx,label_directive-assembler
+	je	parse_label_directive
+	cmp	bx,segment_directive-assembler
+	je	parse_label_directive
+	cmp	bx,load_directive-assembler
+	je	parse_load_directive
+	cmp	bx,extrn_directive-assembler
+	je	parse_extrn_directive
+	cmp	bx,public_directive-assembler
+	je	parse_public_directive
+      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,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_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
+	call	get_symbol
+	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:
+	mov	al,'('
+	stos	byte [edi]
+	call	convert_expression
+	mov	al,')'
+	stos	byte [edi]
+	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
+	pop	esi
+	add	esi,ebp
+	mov	ax,[edi]
+	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,11
+	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
diff --git a/programs/develop/fasm/tags/1.68/preproce.inc b/programs/develop/fasm/tags/1.68/preproce.inc
new file mode 100644
index 0000000000..8fe14d0234
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/preproce.inc
@@ -0,0 +1,2529 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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	[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]
+	movzx	eax,word [ebx]
+	add	eax,preprocessor
+	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 esi
+	mov	esi,edx
+	call	skip_parameters
+	xchg	esi,[esp]
+	mov	ch,11b
+	jmp	define_preprocessor_constant
+define_equ_constant:
+	add	esi,3
+	push	esi
+	call	process_equ_constants
+	push	esi
+	mov	esi,[struc_name]
+	mov	ch,10b
+      define_preprocessor_constant:
+	mov	byte [esi-2],3Bh
+	mov	cl,[esi-1]
+	call	add_preprocessor_symbol
+	pop	esi 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
+	push	esi edx
+	call	skip_parameters
+	pop	edx ebx
+	lea	ecx,[esi-1]
+	sub	ecx,ebx
+	mov	[edx+8],ebx
+	mov	[edx+12],ecx
+	jmp	line_preprocessed
+      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:
+	ret
+
+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
+	call	skip_parameters
+      instant_macro_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	instant_macro_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	get_number
+	jc	invalid_value
+	or	ebp,ebp
+	jnz	invalid_value
+	cmp	dword [edi+4],0
+	jne	value_out_of_range
+	mov	eax,[edi]
+	cmp	eax,80000000h
+	jae	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	get_number
+	jc	invalid_value
+	or	ebp,ebp
+	jnz	invalid_value
+	cmp	dword [edi+4],0
+	jne	value_out_of_range
+	mov	eax,[edi]
+	mov	edx,eax
+	add	edx,[counter_limit]
+	jc	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
+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:
+	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]
+	and	ecx,not 80000000h
+	mov	edx,[edx+12]
+	or	edx,edx
+	jz	replace_macro_counter
+	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:
+	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
diff --git a/programs/develop/fasm/tags/1.68/struct.inc b/programs/develop/fasm/tags/1.68/struct.inc
new file mode 100644
index 0000000000..947a84e89a
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/struct.inc
@@ -0,0 +1,180 @@
+
+; Macroinstructions for defining data structures
+
+macro struct name
+ { fields@struct equ name
+   match child parent, name \{ fields@struct equ child,fields@\#parent \}
+   sub@struct equ
+   struc db [val] \{ \common fields@struct equ fields@struct,.,db,<val> \}
+   struc dw [val] \{ \common fields@struct equ fields@struct,.,dw,<val> \}
+   struc du [val] \{ \common fields@struct equ fields@struct,.,du,<val> \}
+   struc dd [val] \{ \common fields@struct equ fields@struct,.,dd,<val> \}
+   struc dp [val] \{ \common fields@struct equ fields@struct,.,dp,<val> \}
+   struc dq [val] \{ \common fields@struct equ fields@struct,.,dq,<val> \}
+   struc dt [val] \{ \common fields@struct equ fields@struct,.,dt,<val> \}
+   struc rb count \{ fields@struct equ fields@struct,.,db,count dup (?) \}
+   struc rw count \{ fields@struct equ fields@struct,.,dw,count dup (?) \}
+   struc rd count \{ fields@struct equ fields@struct,.,dd,count dup (?) \}
+   struc rp count \{ fields@struct equ fields@struct,.,dp,count dup (?) \}
+   struc rq count \{ fields@struct equ fields@struct,.,dq,count dup (?) \}
+   struc rt count \{ fields@struct equ fields@struct,.,dt,count dup (?) \}
+   macro db [val] \{ \common \local anonymous
+		     fields@struct equ fields@struct,anonymous,db,<val> \}
+   macro dw [val] \{ \common \local anonymous
+		     fields@struct equ fields@struct,anonymous,dw,<val> \}
+   macro du [val] \{ \common \local anonymous
+		     fields@struct equ fields@struct,anonymous,du,<val> \}
+   macro dd [val] \{ \common \local anonymous
+		     fields@struct equ fields@struct,anonymous,dd,<val> \}
+   macro dp [val] \{ \common \local anonymous
+		     fields@struct equ fields@struct,anonymous,dp,<val> \}
+   macro dq [val] \{ \common \local anonymous
+		     fields@struct equ fields@struct,anonymous,dq,<val> \}
+   macro dt [val] \{ \common \local anonymous
+		     fields@struct equ fields@struct,anonymous,dt,<val> \}
+   macro rb count \{ \local anonymous
+		     fields@struct equ fields@struct,anonymous,db,count dup (?) \}
+   macro rw count \{ \local anonymous
+		     fields@struct equ fields@struct,anonymous,dw,count dup (?) \}
+   macro rd count \{ \local anonymous
+		     fields@struct equ fields@struct,anonymous,dd,count dup (?) \}
+   macro rp count \{ \local anonymous
+		     fields@struct equ fields@struct,anonymous,dp,count dup (?) \}
+   macro rq count \{ \local anonymous
+		     fields@struct equ fields@struct,anonymous,dq,count dup (?) \}
+   macro rt count \{ \local anonymous
+		     fields@struct equ fields@struct,anonymous,dt,count dup (?) \}
+   macro union \{ fields@struct equ fields@struct,,union,<
+		  sub@struct equ union \}
+   macro struct \{ fields@struct equ fields@struct,,substruct,<
+		  sub@struct equ substruct \}
+   virtual at 0 }
+
+macro ends
+ { match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt
+			 restruc rb,rw,rd,rp,rq,rt
+			 purge db,dw,du,dd,dp,dq,dt
+			 purge rb,rw,rd,rp,rq,rt
+			 purge union,struct
+			 match name=,fields,fields@struct \\{ fields@struct equ
+							      make@struct name,fields
+							      fields@\\#name equ fields \\}
+			 end virtual \}
+   match any, sub@struct \{ fields@struct equ fields@struct> \}
+   restore sub@struct }
+
+macro make@struct name,[field,type,def]
+ { common
+    if $
+     display 'Error: definition of ',`name,' contains illegal instructions.',0Dh,0Ah
+     err
+    end if
+    local define
+    define equ name
+   forward
+    local sub
+    match , field \{ make@substruct type,name,sub def
+		     define equ define,.,sub, \}
+    match any, field \{ define equ define,.#field,type,<def> \}
+   common
+    match fields, define \{ define@struct fields \} }
+
+macro define@struct name,[field,type,def]
+ { common
+    local list
+    list equ
+   forward
+    if ~ field eq .
+     name#field type def
+     sizeof.#name#field = $ - name#field
+    else
+     rb sizeof.#type
+    end if
+    local value
+    match any, list \{ list equ list, \}
+    list equ list <value>
+   common
+    sizeof.#name = $
+    restruc name
+    match values, list \{
+    struc name value \\{
+    match any, fields@struct \\\{ fields@struct equ fields@struct,.,name,<values> \\\}
+    match , fields@struct \\\{ label .
+   forward
+     match , value \\\\{ field type def \\\\}
+     match any, value \\\\{ field type value
+			   if ~ field eq .
+			    rb sizeof.#name#field - ($-field)
+			   end if \\\\}
+   common \\\} \\} \} }
+
+macro enable@substruct
+ { macro make@substruct substruct,parent,name,[field,type,def]
+    \{ \common
+	\local define
+	define equ parent,name
+       \forward
+	\local sub
+	match , field \\{ match any, type \\\{ enable@substruct
+					       make@substruct type,name,sub def
+					       purge make@substruct
+					       define equ define,.,sub, \\\} \\}
+	match any, field \\{ define equ define,.\#field,type,<def> \\}
+       \common
+	match fields, define \\{ define@\#substruct fields \\} \} }
+
+enable@substruct
+
+macro define@union parent,name,[field,type,def]
+ { common
+    virtual at 0
+   forward
+    if ~ field eq .
+     virtual at 0
+      parent#field type def
+      sizeof.#parent#field = $ - parent#field
+     end virtual
+     if sizeof.#parent#field > $
+      rb sizeof.#parent#field - $
+     end if
+    else if sizeof.#type > $
+     rb sizeof.#type - $
+    end if
+   common
+    sizeof.#name = $
+    end virtual
+    struc name [value] \{ \common
+    label .\#name
+    last@union equ
+   forward
+    match any, last@union \\{ virtual at .\#name
+			       field type def
+			      end virtual \\}
+    match , last@union \\{ match , value \\\{ field type def \\\}
+			   match any, value \\\{ field type value \\\} \\}
+    last@union equ field
+   common rb sizeof.#name - ($ - .\#name) \} }
+
+macro define@substruct parent,name,[field,type,def]
+ { common
+    virtual at 0
+   forward
+    if ~ field eq .
+     parent#field type def
+     sizeof.#parent#field = $ - parent#field
+    else
+     rb sizeof.#type
+    end if
+    local value
+   common
+    sizeof.#name = $
+    end virtual
+    struc name value \{
+    label .\#name
+   forward
+     match , value \\{ field type def \\}
+     match any, value \\{ field type value
+			  if ~ field eq .
+			   rb sizeof.#parent#field - ($-field)
+			  end if \\}
+   common \} }
diff --git a/programs/develop/fasm/tags/1.68/symbdump.inc b/programs/develop/fasm/tags/1.68/symbdump.inc
new file mode 100644
index 0000000000..2daa1cc491
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/symbdump.inc
@@ -0,0 +1,110 @@
+symbol_dump:
+
+	push	edi
+	mov	edx,[memory_end]
+      symb_dump:
+	cmp	edx,[labels_list]
+	jbe	symbols_dumped
+	sub	edx,LABEL_STRUCTURE_SIZE
+	cmp	dword [edx+24],0
+	je	symb_dump	; do not dump anonymous symbols
+	test	byte [edx+8],1
+	jz	symb_dump	; do not dump symbols that didn't get defined
+	mov	ax,[current_pass]
+	cmp	ax,[edx+16]
+	jne	symb_dump
+	test	byte [edx+8],4 or 2
+	jnz	symb_dump	; do not dump assembly-time variables
+				; do not dump variables defined with '='
+	cmp	word [edx+12], 0
+	jnz	symb_dump	; do not dump register-based variables
+
+	mov	al, '0'
+	stosb
+	mov	al, 'x'
+	stosb
+	mov	eax, [edx+4]
+	mov	ecx, 8
+@@:
+	rol	eax, 4
+	test	al, 0xF
+	loopz	@b
+	jz	.nohigh
+	inc	ecx
+@@:
+	push	eax
+	and	al, 0xF
+	cmp	al, 10
+	sbb	al, 69h
+	das
+	stosb
+	pop	eax
+	rol	eax, 4
+	loop	@b
+	mov	eax, [edx]
+	mov	ecx, 8
+	jmp	.low
+.nohigh:
+	mov	eax, [edx]
+	mov	ecx, 8
+@@:
+	rol	eax, 4
+	test	al, 0xF
+	loopz	@b
+	inc	ecx
+.low:
+	push	eax
+	and	al, 0xF
+	cmp	al, 10
+	sbb	al, 69h
+	das
+	stosb
+	pop	eax
+	rol	eax, 4
+	loop	.low
+
+	mov	al, ' '
+	stosb
+
+	mov	esi,[edx+24]
+	movzx	ecx,byte [esi-1]
+	rep	movsb
+
+	mov	ax,0A0Dh
+	stosw
+
+	jmp	symb_dump
+
+      symbols_dumped:
+	mov	edx,dbgfilename
+        push    esi edi
+	mov     esi, outfile
+	mov     edi, edx
+@@:
+	lodsb
+	stosb
+	test	al, al
+	jnz	@b
+	lea	ecx, [edi-1]
+@@:
+	dec	edi
+	cmp	edi, edx
+	jb	@f
+	cmp	byte [edi], '/'
+	jz	@f
+	cmp	byte [edi], '.'
+	jnz	@b
+	mov	ecx, edi
+@@:
+	mov	dword [ecx], '.dbg'
+	mov     byte [ecx+4], 0
+	pop	edi esi
+	call	create
+	mov	edx,[esp]
+	mov	ecx,edi
+	sub	ecx,edx
+	call	write
+	call	close
+	pop	edi
+
+	ret
diff --git a/programs/develop/fasm/tags/1.68/system.inc b/programs/develop/fasm/tags/1.68/system.inc
new file mode 100644
index 0000000000..9a0f9a376a
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/system.inc
@@ -0,0 +1,573 @@
+; flat assembler
+; Copyright (c) 1999-2007, Tomasz Grysztar
+; All rights reserved.
+
+struc FILEIO
+{   .cmd            dd ?
+    .offset         dd ?
+                    dd ?
+    .count          dd ?
+    .buff           dd ?
+                    db ?
+    .name           dd ?
+};
+
+struc FILEINFO
+{   .attr           dd ?
+    .flags          dd ?
+    .cr_time        dd ?
+    .cr_date        dd ?
+    .acc_time       dd ?
+    .acc_date       dd ?
+    .mod_time       dd ?
+    .mod_date       dd ?
+    .size           dd ?
+}
+
+
+
+;file_info_open:  dd 0,0,0xffffff,0x20000,0xf0000
+fullpath_open:  ;  db '/RD/1/EXAMPLE.ASM'
+		    times MAX_PATH db 0
+
+
+;file_info_write: dd 1,0,0,0,0xf0000
+fullpath_write:; db '/RD/1/EXAMPLE'
+		    times MAX_PATH db 0
+
+file_info_start:
+    dd 7
+    dd 0
+    dd 0
+    dd 0
+    dd 0
+fullpath_start:  ; db '/RD/1/EXAMPLE'
+		    times MAX_PATH db 0
+
+file_info_debug:
+	dd	7
+	dd	0
+	dd	fullpath_start
+	dd	0, 0
+	db	'/SYS/DEVELOP/MTDBG',0
+
+_ramdisk	 db '/RD/1/'
+filepos 	 dd 0x0
+
+
+init_memory:
+
+        mov ecx, 16*1024*1024
+
+ allocate_memory:
+	mov	[memory_setting],ecx
+	mcall	68, 12
+	or	eax,eax
+	jz	out_of_memory
+	mov	[additional_memory],eax
+	add	eax,[memory_setting]
+	mov	[memory_end],eax
+	mov	eax,[memory_setting]
+	shr	eax,2
+	add	eax,[additional_memory]
+	mov	[additional_memory_end],eax
+	mov	[memory_start],eax
+	ret
+
+exit_program:
+	cmp	[_mode],NORMAL_MODE
+	jne	@f
+	mcall	68, 13, [memblock]
+	jmp	still
+@@:
+	or	eax,-1
+	mcall
+
+make_timestamp:
+	push	ebx
+	mcall	26,9
+	imul	eax,10
+	pop	ebx
+	ret
+
+get_environment_variable:
+	mov	ecx,[memory_end]
+	sub	ecx,edi
+	cmp	ecx,7
+	jb	out_of_memory
+	cmp	dword[esi],'INCL'
+	jne	.finish
+	mov	esi,_ramdisk
+	mov	ecx,6
+	cld
+	rep	movsb
+  .finish:
+;       stc
+	ret
+
+alloc_handle:
+        call    make_fullpaths
+        mov     ebx, fileinfos+4
+@@:
+        cmp     dword [ebx], -1
+        jz      .found
+        add     ebx, 4+20+MAX_PATH
+        cmp     ebx, fileinfos_end
+        jb      @b
+        stc
+        ret
+.found:
+        and     dword [ebx+4], 0
+        and     dword [ebx+8], 0
+        push    esi edi ecx
+        mov     esi, fullpath_open
+        lea     edi, [ebx+20]
+        mov     ecx, MAX_PATH
+        rep     movsb
+        pop     ecx edi esi
+        ret	; CF=0
+
+create:
+        call    alloc_handle
+        jc      .ret
+        and     dword [ebx-4], 0
+        mov     dword [ebx], 2
+.ret:
+        ret
+
+
+open:
+;        call    make_fullpaths
+
+;;       mov     eax,fullpath_open
+;;       DEBUGF  '"%s"\n',eax
+
+;        mov     dword[file_info_open+8],-1
+;        mcall   58,file_info_open
+;        or      eax,eax                 ; found
+;        jz      @f
+;        cmp     eax,6
+;        jne     file_error
+;@@: mov [filesize],ebx
+;        clc
+;        ret
+;file_error:
+;        stc
+;        ret
+
+        call    alloc_handle
+        jc      .ret
+        mov     dword [ebx], 5
+        and     dword [ebx+12], 0
+        mov     dword [ebx+16], fileinfo
+        mov     eax, 70
+        push    ebx
+        mcall
+        pop     ebx
+        test    eax, eax
+        jnz     .fail
+        mov     eax, [fileinfo.size]
+        mov     [ebx-4], eax
+        and     dword [ebx], 0
+.ret:
+        ret
+.fail:
+	or	dword [ebx], -1	; close handle
+        stc
+        ret
+
+read:
+;          pusha
+;          mov     edi,edx
+;          mov     esi,[filepos]
+;          add     esi,0x20000
+;          cld
+;          rep     movsb
+;          popa
+;;         ret
+
+        mov     [ebx+12], ecx
+        mov     [ebx+16], edx
+        push    ebx
+        mov     eax, 70
+        mcall
+        xchg    eax, [esp]
+        add     [eax+4], ebx
+        adc     [eax+8], dword 0
+        mov     ebx, eax
+        pop     eax
+        test    eax, eax
+        jz      .ok
+        cmp     eax, 6
+        jz      .ok
+        stc
+.ok:
+        ret
+
+close:
+        or      dword [ebx], -1
+        ret
+
+
+; ebx file handle
+; ecx count of bytes to write
+; edx pointer to buffer
+write:
+;        pusha
+;        mov     [file_info_write+8],ecx
+;        mov     [file_info_write+12],edx
+;        mov     [filesize],edx
+;        mov     eax,58
+;        mov     ebx,file_info_write
+;        mcall
+;        popa
+;        ret
+
+        mov     [ebx+12], ecx
+        mov     [ebx+16], edx
+        push    ebx
+        mov     eax, 70
+        mcall
+        xchg    eax, [esp]
+        add     [eax+4], ebx
+        adc     [eax+8], dword 0
+        mov     ebx, eax
+        pop     eax
+        mov     byte [ebx], 3
+        cmp     eax, 1
+        cmc
+        ret
+
+make_fullpaths:
+	pusha
+	push	edx
+
+	mov	esi,path	      ; open
+;       DEBUGF  "   '%s'",esi
+	mov	edi,fullpath_open
+	cld
+      newc1:
+	movsb
+	cmp	byte[esi],0;' '
+	jne	newc1
+	mov	esi,[esp]
+
+	cmp	byte[esi],'/'
+	jne	@f
+	mov	edi,fullpath_open
+
+    @@:
+	lodsb
+	stosb
+	cmp	al,0
+	jne	@b
+;       mov     ecx,12
+;       cld
+;       rep     movsb
+;       mov     byte[edi],0
+
+	mov	esi,path	      ; write
+	mov	edi,fullpath_write
+	cld
+      newc2:
+	movsb
+	cmp	byte[esi],0;' '
+	jne	newc2
+	mov	esi,[esp]
+
+	cmp	byte[esi],'/'
+	jne	@f
+	mov	edi,fullpath_write
+
+    @@:
+	lodsb
+	stosb
+	cmp	al,0
+	jne	@b
+;        mov     ecx,12
+;        cld
+;        rep     movsb
+;        mov     byte[edi],0
+
+	mov	esi,path	      ; start
+	mov	edi,fullpath_start
+	cld
+      newc3:
+	movsb
+	cmp  byte[esi],0;' '
+	jne  newc3
+;        mov  esi,[esp]
+	pop	esi
+
+	cmp	byte[esi],'/'
+	jne	@f
+	mov	edi,fullpath_start
+
+    @@:
+	lodsb
+	stosb
+	cmp	al,0
+	jne	@b
+;        mov  ecx,12
+;        cld
+;        rep  movsb
+;        mov  byte[edi],0
+
+;        add  esp,4
+	popa
+	ret
+
+
+
+lseek:
+	cmp	al,0
+	jnz	@f
+	and	dword [ebx+4], 0
+	and     dword [ebx+8], 0
+    @@: cmp	al,2
+	jnz	@f
+	mov	eax, [ebx-4]
+	mov	[ebx+4], eax
+	and     dword [ebx+8], 0
+    @@: add	dword [ebx+4], edx
+        adc     dword [ebx+8], 0
+	ret
+
+display_character:
+	pusha
+	cmp	[_mode],NORMAL_MODE
+	jne	@f
+	cmp	dl,13
+	jz	dc2
+	cmp	dl,0xa
+	jnz	dc1
+	and	[textxy],0x0000FFFF
+	add	[textxy], 7 shl 16 +53 and 0xFFFF0000 + 10
+dc2:
+  popa
+	ret
+dc1:
+  mov eax,[textxy]
+	cmp	ax,word[bottom_right]
+	ja	dc2
+	shr	eax,16
+	cmp	ax,word[bottom_right+2]
+	ja	dc2
+	mov	[dc],dl
+	mcall	4,[textxy],[sc.work_text],dc,1
+	add	[textxy],0x00060000
+	popa
+	ret
+@@:
+  mov	eax,63
+	mov	ebx,1
+	mov	cl,dl
+	mcall
+	popa
+	ret
+
+
+display_string:
+	pusha
+@@:
+  cmp	byte[esi],0
+	je	@f
+	mov	dl,[esi]
+	call	display_character
+	add	esi,1
+	jmp	@b
+@@:
+  popa
+	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	ebx ecx
+	call	display_character
+	pop	ecx ebx
+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:
+;    push   [skinh]
+;    pop    [textxy]
+;    add    [textxy], 7 shl 16 +53
+	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	esi,lf
+	call	display_string
+line_break_ok:
+	ret
+
+display_block:
+	pusha
+@@: mov dl,[esi]
+	call	display_character
+	inc	esi
+	loop	@b
+	popa
+	ret
+
+fatal_error:
+	mov	esi,error_prefix
+	call	display_string
+	pop	esi
+	call	display_string
+	mov	esi,error_suffix
+	call	display_string
+	mov	esi,lf
+	call	display_string
+	mov	al,0FFh
+	jmp	exit_program
+
+assembler_error:
+	call	display_user_messages
+	push	dword 0
+	mov	ebx,[current_line]
+get_error_lines:
+	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
+	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
+	jmp	exit_program
+
+align 4
+fileinfo FILEINFO
+
+character   db ?,0
+bytes_count dd ?
+
+textxy	 dd 0x000500A0
+dc	 db 0x0
+filesize dd 0x0
+
+displayed_count dd ?
+last_displayed	rb 2
+
+error_prefix	  db 'error: ',0
+error_suffix	  db '.',0
+line_data_start   db ':'
+cr_lf		  db 0Dh,0Ah,0
+line_number_start db ' [',0
+
+macro dm string { db string,0 }
diff --git a/programs/develop/fasm/tags/1.68/tables.inc b/programs/develop/fasm/tags/1.68/tables.inc
new file mode 100644
index 0000000000..047193e163
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/tables.inc
@@ -0,0 +1,2028 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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-preprocessor
+ db 7,'include'
+ dw include_file-preprocessor
+ db 3,'irp'
+ dw irp_directive-preprocessor
+ db 4,'irps'
+ dw irps_directive-preprocessor
+ db 5,'macro'
+ dw define_macro-preprocessor
+ db 5,'match'
+ dw match_directive-preprocessor
+ db 5,'purge'
+ dw purge_macro-preprocessor
+ db 4,'rept'
+ dw rept_directive-preprocessor
+ db 7,'restore'
+ dw restore_equ_constant-preprocessor
+ db 7,'restruc'
+ dw purge_struc-preprocessor
+ db 5,'struc'
+ dw define_struc-preprocessor
+ db 0
+
+macro_directives:
+ db 6,'common'
+ dw common_block-preprocessor
+ db 7,'forward'
+ dw forward_block-preprocessor
+ db 5,'local'
+ dw local_symbols-preprocessor
+ db 7,'reverse'
+ dw reverse_block-preprocessor
+ 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 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',17h,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',17h,49h
+ db 'near',12h,2
+ 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
+symbols_5:
+ db 'align',1Ch,0
+ db 'dword',11h,4
+ db 'elf64',18h,58h
+ db 'fword',11h,6
+ 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
+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 'static',1Dh,1
+symbols_7:
+ db 'console',1Bh,3
+ 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 '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_end-instructions_11)/(11+3)
+
+instructions_2:
+ db 'bt',4
+ dw bt_instruction-assembler
+ db 'if',0
+ dw if_directive-assembler
+ db 'in',0
+ dw in_instruction-assembler
+ db 'ja',77h
+ dw conditional_jump-assembler
+ db 'jb',72h
+ dw conditional_jump-assembler
+ db 'jc',72h
+ dw conditional_jump-assembler
+ db 'je',74h
+ dw conditional_jump-assembler
+ db 'jg',7Fh
+ dw conditional_jump-assembler
+ db 'jl',7Ch
+ dw conditional_jump-assembler
+ db 'jo',70h
+ dw conditional_jump-assembler
+ db 'jp',7Ah
+ dw conditional_jump-assembler
+ db 'js',78h
+ dw conditional_jump-assembler
+ db 'jz',74h
+ dw conditional_jump-assembler
+ db 'or',08h
+ dw basic_instruction-assembler
+instructions_3:
+ db 'aaa',37h
+ dw simple_instruction_except64-assembler
+ db 'aad',0D5h
+ dw aa_instruction-assembler
+ db 'aam',0D4h
+ dw aa_instruction-assembler
+ db 'aas',3Fh
+ dw simple_instruction_except64-assembler
+ db 'adc',10h
+ dw basic_instruction-assembler
+ db 'add',00h
+ dw basic_instruction-assembler
+ db 'and',20h
+ dw basic_instruction-assembler
+ db 'bsf',0BCh
+ dw bs_instruction-assembler
+ db 'bsr',0BDh
+ dw bs_instruction-assembler
+ db 'btc',7
+ dw bt_instruction-assembler
+ db 'btr',6
+ dw bt_instruction-assembler
+ db 'bts',5
+ dw bt_instruction-assembler
+ db 'cbw',98h
+ dw simple_instruction_16bit-assembler
+ db 'cdq',99h
+ dw simple_instruction_32bit-assembler
+ db 'clc',0F8h
+ dw simple_instruction-assembler
+ db 'cld',0FCh
+ dw simple_instruction-assembler
+ db 'cli',0FAh
+ dw simple_instruction-assembler
+ db 'cmc',0F5h
+ dw simple_instruction-assembler
+ db 'cmp',38h
+ dw basic_instruction-assembler
+ db 'cqo',99h
+ dw simple_instruction_64bit-assembler
+ db 'cwd',99h
+ dw simple_instruction_16bit-assembler
+ db 'daa',27h
+ dw simple_instruction_except64-assembler
+ db 'das',2Fh
+ dw simple_instruction_except64-assembler
+ db 'dec',1
+ dw inc_instruction-assembler
+ db 'div',6
+ dw single_operand_instruction-assembler
+ db 'end',0
+ dw end_directive-assembler
+ db 'err',0
+ dw err_directive-assembler
+ db 'fld',0
+ dw fld_instruction-assembler
+ db 'fst',2
+ dw fld_instruction-assembler
+ db 'hlt',0F4h
+ dw simple_instruction-assembler
+ db 'inc',0
+ dw inc_instruction-assembler
+ db 'ins',6Ch
+ dw ins_instruction-assembler
+ db 'int',0CDh
+ dw int_instruction-assembler
+ db 'jae',73h
+ dw conditional_jump-assembler
+ db 'jbe',76h
+ dw conditional_jump-assembler
+ db 'jge',7Dh
+ dw conditional_jump-assembler
+ db 'jle',7Eh
+ dw conditional_jump-assembler
+ db 'jmp',0
+ dw jmp_instruction-assembler
+ db 'jna',76h
+ dw conditional_jump-assembler
+ db 'jnb',73h
+ dw conditional_jump-assembler
+ db 'jnc',73h
+ dw conditional_jump-assembler
+ db 'jne',75h
+ dw conditional_jump-assembler
+ db 'jng',7Eh
+ dw conditional_jump-assembler
+ db 'jnl',7Dh
+ dw conditional_jump-assembler
+ db 'jno',71h
+ dw conditional_jump-assembler
+ db 'jnp',7Bh
+ dw conditional_jump-assembler
+ db 'jns',79h
+ dw conditional_jump-assembler
+ db 'jnz',75h
+ dw conditional_jump-assembler
+ db 'jpe',7Ah
+ dw conditional_jump-assembler
+ db 'jpo',7Bh
+ dw conditional_jump-assembler
+ db 'lar',2
+ dw lar_instruction-assembler
+ db 'lds',3
+ dw ls_instruction-assembler
+ db 'lea',0
+ dw lea_instruction-assembler
+ db 'les',0
+ dw ls_instruction-assembler
+ db 'lfs',4
+ dw ls_instruction-assembler
+ db 'lgs',5
+ dw ls_instruction-assembler
+ db 'lsl',3
+ dw lar_instruction-assembler
+ db 'lss',2
+ dw ls_instruction-assembler
+ db 'ltr',3
+ dw pm_word_instruction-assembler
+ db 'mov',0
+ dw mov_instruction-assembler
+ db 'mul',4
+ dw single_operand_instruction-assembler
+ db 'neg',3
+ dw single_operand_instruction-assembler
+ db 'nop',90h
+ dw nop_instruction-assembler
+ db 'not',2
+ dw single_operand_instruction-assembler
+ db 'org',0
+ dw org_directive-assembler
+ db 'out',0
+ dw out_instruction-assembler
+ db 'pop',0
+ dw pop_instruction-assembler
+ db 'por',0EBh
+ dw basic_mmx_instruction-assembler
+ db 'rcl',2
+ dw sh_instruction-assembler
+ db 'rcr',3
+ dw sh_instruction-assembler
+ db 'rep',0F3h
+ dw prefix_instruction-assembler
+ db 'ret',0C2h
+ dw ret_instruction-assembler
+ db 'rol',0
+ dw sh_instruction-assembler
+ db 'ror',1
+ dw sh_instruction-assembler
+ db 'rsm',0AAh
+ dw simple_extended_instruction-assembler
+ db 'sal',4
+ dw sh_instruction-assembler
+ db 'sar',7
+ dw sh_instruction-assembler
+ db 'sbb',18h
+ dw basic_instruction-assembler
+ db 'shl',4
+ dw sh_instruction-assembler
+ db 'shr',5
+ dw sh_instruction-assembler
+ db 'stc',0F9h
+ dw simple_instruction-assembler
+ db 'std',0FDh
+ dw simple_instruction-assembler
+ db 'sti',0FBh
+ dw simple_instruction-assembler
+ db 'str',1
+ dw pm_store_word_instruction-assembler
+ db 'sub',28h
+ dw basic_instruction-assembler
+ db 'ud2',0Bh
+ dw simple_extended_instruction-assembler
+ db 'xor',30h
+ dw basic_instruction-assembler
+instructions_4:
+ db 'arpl',0
+ dw arpl_instruction-assembler
+ db 'call',0
+ dw call_instruction-assembler
+ db 'cdqe',98h
+ dw simple_instruction_64bit-assembler
+ db 'clgi',0DDh
+ dw simple_vmx_instruction-assembler
+ db 'clts',6
+ dw simple_extended_instruction-assembler
+ db 'cmps',0A6h
+ dw cmps_instruction-assembler
+ db 'cwde',98h
+ dw simple_instruction_32bit-assembler
+ db 'data',0
+ dw data_directive-assembler
+ db 'dppd',41h
+ dw sse4_instruction_3a_imm8-assembler
+ db 'dpps',40h
+ dw sse4_instruction_3a_imm8-assembler
+ db 'else',0
+ dw else_directive-assembler
+ db 'emms',77h
+ dw simple_extended_instruction-assembler
+ db 'fabs',100001b
+ dw simple_fpu_instruction-assembler
+ db 'fadd',0
+ dw basic_fpu_instruction-assembler
+ db 'fbld',4
+ dw fbld_instruction-assembler
+ db 'fchs',100000b
+ dw simple_fpu_instruction-assembler
+ db 'fcom',2
+ dw basic_fpu_instruction-assembler
+ db 'fcos',111111b
+ dw simple_fpu_instruction-assembler
+ db 'fdiv',6
+ dw basic_fpu_instruction-assembler
+ db 'feni',0E0h
+ dw finit_instruction-assembler
+ db 'fild',0
+ dw fild_instruction-assembler
+ db 'fist',2
+ dw fild_instruction-assembler
+ db 'fld1',101000b
+ dw simple_fpu_instruction-assembler
+ db 'fldz',101110b
+ dw simple_fpu_instruction-assembler
+ db 'fmul',1
+ dw basic_fpu_instruction-assembler
+ db 'fnop',010000b
+ dw simple_fpu_instruction-assembler
+ db 'fsin',111110b
+ dw simple_fpu_instruction-assembler
+ db 'fstp',3
+ dw fld_instruction-assembler
+ db 'fsub',4
+ dw basic_fpu_instruction-assembler
+ db 'ftst',100100b
+ dw simple_fpu_instruction-assembler
+ db 'fxam',100101b
+ dw simple_fpu_instruction-assembler
+ db 'fxch',0
+ dw fxch_instruction-assembler
+ db 'heap',0
+ dw heap_directive-assembler
+ db 'idiv',7
+ dw single_operand_instruction-assembler
+ db 'imul',0
+ dw imul_instruction-assembler
+ db 'insb',6Ch
+ dw simple_instruction-assembler
+ db 'insd',6Dh
+ dw simple_instruction_32bit-assembler
+ db 'insw',6Dh
+ dw simple_instruction_16bit-assembler
+ db 'int1',0F1h
+ dw simple_instruction-assembler
+ db 'int3',0CCh
+ dw simple_instruction-assembler
+ db 'into',0CEh
+ dw simple_instruction_except64-assembler
+ db 'invd',8
+ dw simple_extended_instruction-assembler
+ db 'iret',0CFh
+ dw iret_instruction-assembler
+ db 'jcxz',0E3h
+ dw loop_instruction_16bit-assembler
+ db 'jnae',72h
+ dw conditional_jump-assembler
+ db 'jnbe',77h
+ dw conditional_jump-assembler
+ db 'jnge',7Ch
+ dw conditional_jump-assembler
+ db 'jnle',7Fh
+ dw conditional_jump-assembler
+ db 'lahf',9Fh
+ dw simple_instruction-assembler
+ db 'lgdt',2
+ dw lgdt_instruction-assembler
+ db 'lidt',3
+ dw lgdt_instruction-assembler
+ db 'lldt',2
+ dw pm_word_instruction-assembler
+ db 'lmsw',16h
+ dw pm_word_instruction-assembler
+ db 'load',0
+ dw load_directive-assembler
+ db 'lock',0F0h
+ dw prefix_instruction-assembler
+ db 'lods',0ACh
+ dw lods_instruction-assembler
+ db 'loop',0E2h
+ dw loop_instruction-assembler
+ db 'movd',0
+ dw movd_instruction-assembler
+ db 'movq',0
+ dw movq_instruction-assembler
+ db 'movs',0A4h
+ dw movs_instruction-assembler
+ db 'orpd',56h
+ dw sse_pd_instruction-assembler
+ db 'orps',56h
+ dw sse_ps_instruction-assembler
+ db 'outs',6Eh
+ dw outs_instruction-assembler
+ db 'pand',0DBh
+ dw basic_mmx_instruction-assembler
+ db 'popa',61h
+ dw simple_instruction_except64-assembler
+ db 'popd',4
+ dw pop_instruction-assembler
+ db 'popf',9Dh
+ dw simple_instruction-assembler
+ db 'popq',8
+ dw pop_instruction-assembler
+ db 'popw',2
+ dw pop_instruction-assembler
+ db 'push',0
+ dw push_instruction-assembler
+ db 'pxor',0EFh
+ dw basic_mmx_instruction-assembler
+ db 'repe',0F3h
+ dw prefix_instruction-assembler
+ db 'repz',0F3h
+ dw prefix_instruction-assembler
+ db 'retd',0C2h
+ dw ret_instruction_32bit_except64-assembler
+ db 'retf',0CAh
+ dw retf_instruction-assembler
+ db 'retn',0C2h
+ dw ret_instruction-assembler
+ db 'retq',0C2h
+ dw ret_instruction_only64-assembler
+ db 'retw',0C2h
+ dw ret_instruction_16bit-assembler
+ db 'sahf',9Eh
+ dw simple_instruction-assembler
+ db 'salc',0D6h
+ dw simple_instruction_except64-assembler
+ db 'scas',0AEh
+ dw stos_instruction-assembler
+ db 'seta',97h
+ dw set_instruction-assembler
+ db 'setb',92h
+ dw set_instruction-assembler
+ db 'setc',92h
+ dw set_instruction-assembler
+ db 'sete',94h
+ dw set_instruction-assembler
+ db 'setg',9Fh
+ dw set_instruction-assembler
+ db 'setl',9Ch
+ dw set_instruction-assembler
+ db 'seto',90h
+ dw set_instruction-assembler
+ db 'setp',9Ah
+ dw set_instruction-assembler
+ db 'sets',98h
+ dw set_instruction-assembler
+ db 'setz',94h
+ dw set_instruction-assembler
+ db 'sgdt',0
+ dw lgdt_instruction-assembler
+ db 'shld',0A4h
+ dw shd_instruction-assembler
+ db 'shrd',0ACh
+ dw shd_instruction-assembler
+ db 'sidt',1
+ dw lgdt_instruction-assembler
+ db 'sldt',0
+ dw pm_store_word_instruction-assembler
+ db 'smsw',14h
+ dw pm_store_word_instruction-assembler
+ db 'stgi',0DCh
+ dw simple_vmx_instruction-assembler
+ db 'stos',0AAh
+ dw stos_instruction-assembler
+ db 'test',0
+ dw test_instruction-assembler
+ db 'verr',4
+ dw pm_word_instruction-assembler
+ db 'verw',5
+ dw pm_word_instruction-assembler
+ db 'wait',9Bh
+ dw simple_instruction-assembler
+ db 'xadd',0C0h
+ dw basic_486_instruction-assembler
+ db 'xchg',0
+ dw xchg_instruction-assembler
+ db 'xlat',0D7h
+ dw xlat_instruction-assembler
+instructions_5:
+ db 'addpd',58h
+ dw sse_pd_instruction-assembler
+ db 'addps',58h
+ dw sse_ps_instruction-assembler
+ db 'addsd',58h
+ dw sse_sd_instruction-assembler
+ db 'addss',58h
+ dw sse_ss_instruction-assembler
+ db 'align',0
+ dw align_directive-assembler
+ db 'andpd',54h
+ dw sse_pd_instruction-assembler
+ db 'andps',54h
+ dw sse_ps_instruction-assembler
+ db 'bound',0
+ dw bound_instruction-assembler
+ db 'break',0
+ dw break_directive-assembler
+ db 'bswap',0
+ dw bswap_instruction-assembler
+ db 'cmova',47h
+ dw cmov_instruction-assembler
+ db 'cmovb',42h
+ dw cmov_instruction-assembler
+ db 'cmovc',42h
+ dw cmov_instruction-assembler
+ db 'cmove',44h
+ dw cmov_instruction-assembler
+ db 'cmovg',4Fh
+ dw cmov_instruction-assembler
+ db 'cmovl',4Ch
+ dw cmov_instruction-assembler
+ db 'cmovo',40h
+ dw cmov_instruction-assembler
+ db 'cmovp',4Ah
+ dw cmov_instruction-assembler
+ db 'cmovs',48h
+ dw cmov_instruction-assembler
+ db 'cmovz',44h
+ dw cmov_instruction-assembler
+ db 'cmppd',0
+ dw cmppd_instruction-assembler
+ db 'cmpps',0
+ dw cmpps_instruction-assembler
+ db 'cmpsb',0A6h
+ dw simple_instruction-assembler
+ db 'cmpsd',0
+ dw cmpsd_instruction-assembler
+ db 'cmpsq',0A7h
+ dw simple_instruction_64bit-assembler
+ db 'cmpss',0
+ dw cmpss_instruction-assembler
+ db 'cmpsw',0A7h
+ dw simple_instruction_16bit-assembler
+ db 'cpuid',0A2h
+ dw simple_extended_instruction-assembler
+ db 'crc32',0
+ dw crc32_instruction-assembler
+ db 'divpd',5Eh
+ dw sse_pd_instruction-assembler
+ db 'divps',5Eh
+ dw sse_ps_instruction-assembler
+ db 'divsd',5Eh
+ dw sse_sd_instruction-assembler
+ db 'divss',5Eh
+ dw sse_ss_instruction-assembler
+ db 'enter',0
+ dw enter_instruction-assembler
+ db 'entry',0
+ dw entry_directive-assembler
+ db 'extrn',0
+ dw extrn_directive-assembler
+ db 'extrq',0
+ dw extrq_instruction-assembler
+ db 'f2xm1',110000b
+ dw simple_fpu_instruction-assembler
+ db 'faddp',0
+ dw faddp_instruction-assembler
+ db 'fbstp',6
+ dw fbld_instruction-assembler
+ db 'fclex',0E2h
+ dw finit_instruction-assembler
+ db 'fcomi',0F0h
+ dw fcomi_instruction-assembler
+ db 'fcomp',3
+ dw basic_fpu_instruction-assembler
+ db 'fdisi',0E1h
+ dw finit_instruction-assembler
+ db 'fdivp',7
+ dw faddp_instruction-assembler
+ db 'fdivr',7
+ dw basic_fpu_instruction-assembler
+ db 'femms',0Eh
+ dw simple_extended_instruction-assembler
+ db 'ffree',0
+ dw ffree_instruction-assembler
+ db 'fiadd',0
+ dw fi_instruction-assembler
+ db 'ficom',2
+ dw fi_instruction-assembler
+ db 'fidiv',6
+ dw fi_instruction-assembler
+ db 'fimul',1
+ dw fi_instruction-assembler
+ db 'finit',0E3h
+ dw finit_instruction-assembler
+ db 'fistp',3
+ dw fild_instruction-assembler
+ db 'fisub',4
+ dw fi_instruction-assembler
+ db 'fldcw',5
+ dw fldcw_instruction-assembler
+ db 'fldpi',101011b
+ dw simple_fpu_instruction-assembler
+ db 'fmulp',1
+ dw faddp_instruction-assembler
+ db 'fneni',0E0h
+ dw fninit_instruction-assembler
+ db 'fprem',111000b
+ dw simple_fpu_instruction-assembler
+ db 'fptan',110010b
+ dw simple_fpu_instruction-assembler
+ db 'fsave',6
+ dw fsave_instruction-assembler
+ db 'fsqrt',111010b
+ dw simple_fpu_instruction-assembler
+ db 'fstcw',7
+ dw fstcw_instruction-assembler
+ db 'fstsw',0
+ dw fstsw_instruction-assembler
+ db 'fsubp',5
+ dw faddp_instruction-assembler
+ db 'fsubr',5
+ dw basic_fpu_instruction-assembler
+ db 'fucom',4
+ dw ffree_instruction-assembler
+ db 'fwait',9Bh
+ dw simple_instruction-assembler
+ db 'fyl2x',110001b
+ dw simple_fpu_instruction-assembler
+ db 'icebp',0F1h
+ dw simple_instruction-assembler
+ db 'iretd',0CFh
+ dw simple_instruction_32bit-assembler
+ db 'iretq',0CFh
+ dw simple_instruction_64bit-assembler
+ db 'iretw',0CFh
+ dw simple_instruction_16bit-assembler
+ db 'jecxz',0E3h
+ dw loop_instruction_32bit-assembler
+ db 'jrcxz',0E3h
+ dw loop_instruction_64bit-assembler
+ db 'label',0
+ dw label_directive-assembler
+ db 'lddqu',0
+ dw lddqu_instruction-assembler
+ db 'leave',0C9h
+ dw simple_instruction-assembler
+ db 'lodsb',0ACh
+ dw simple_instruction-assembler
+ db 'lodsd',0ADh
+ dw simple_instruction_32bit-assembler
+ db 'lodsq',0ADh
+ dw simple_instruction_64bit-assembler
+ db 'lodsw',0ADh
+ dw simple_instruction_16bit-assembler
+ db 'loopd',0E2h
+ dw loop_instruction_32bit-assembler
+ db 'loope',0E1h
+ dw loop_instruction-assembler
+ db 'loopq',0E2h
+ dw loop_instruction_64bit-assembler
+ db 'loopw',0E2h
+ dw loop_instruction_16bit-assembler
+ db 'loopz',0E1h
+ dw loop_instruction-assembler
+ db 'lzcnt',0BDh
+ dw popcnt_instruction-assembler
+ db 'maxpd',5Fh
+ dw sse_pd_instruction-assembler
+ db 'maxps',5Fh
+ dw sse_ps_instruction-assembler
+ db 'maxsd',5Fh
+ dw sse_sd_instruction-assembler
+ db 'maxss',5Fh
+ dw sse_ss_instruction-assembler
+ db 'minpd',5Dh
+ dw sse_pd_instruction-assembler
+ db 'minps',5Dh
+ dw sse_ps_instruction-assembler
+ db 'minsd',5Dh
+ dw sse_sd_instruction-assembler
+ db 'minss',5Dh
+ dw sse_ss_instruction-assembler
+ db 'movsb',0A4h
+ dw simple_instruction-assembler
+ db 'movsd',0
+ dw movsd_instruction-assembler
+ db 'movsq',0A5h
+ dw simple_instruction_64bit-assembler
+ db 'movss',0
+ dw movss_instruction-assembler
+ db 'movsw',0A5h
+ dw simple_instruction_16bit-assembler
+ db 'movsx',0BEh
+ dw movx_instruction-assembler
+ db 'movzx',0B6h
+ dw movx_instruction-assembler
+ db 'mulpd',59h
+ dw sse_pd_instruction-assembler
+ db 'mulps',59h
+ dw sse_ps_instruction-assembler
+ db 'mulsd',59h
+ dw sse_sd_instruction-assembler
+ db 'mulss',59h
+ dw sse_ss_instruction-assembler
+ db 'mwait',0C9h
+ dw monitor_instruction-assembler
+ db 'outsb',6Eh
+ dw simple_instruction-assembler
+ db 'outsd',6Fh
+ dw simple_instruction_32bit-assembler
+ db 'outsw',6Fh
+ dw simple_instruction_16bit-assembler
+ db 'pabsb',1Ch
+ dw ssse3_instruction-assembler
+ db 'pabsd',1Eh
+ dw ssse3_instruction-assembler
+ db 'pabsw',1Dh
+ dw ssse3_instruction-assembler
+ db 'paddb',0FCh
+ dw basic_mmx_instruction-assembler
+ db 'paddd',0FEh
+ dw basic_mmx_instruction-assembler
+ db 'paddq',0D4h
+ dw basic_mmx_instruction-assembler
+ db 'paddw',0FDh
+ dw basic_mmx_instruction-assembler
+ db 'pandn',0DFh
+ dw basic_mmx_instruction-assembler
+ db 'pause',0
+ dw pause_instruction-assembler
+ db 'pavgb',0E0h
+ dw basic_mmx_instruction-assembler
+ db 'pavgw',0E3h
+ dw basic_mmx_instruction-assembler
+ db 'pf2id',1Dh
+ dw amd3dnow_instruction-assembler
+ db 'pf2iw',1Ch
+ dw amd3dnow_instruction-assembler
+ db 'pfacc',0AEh
+ dw amd3dnow_instruction-assembler
+ db 'pfadd',9Eh
+ dw amd3dnow_instruction-assembler
+ db 'pfmax',0A4h
+ dw amd3dnow_instruction-assembler
+ db 'pfmin',94h
+ dw amd3dnow_instruction-assembler
+ db 'pfmul',0B4h
+ dw amd3dnow_instruction-assembler
+ db 'pfrcp',96h
+ dw amd3dnow_instruction-assembler
+ db 'pfsub',9Ah
+ dw amd3dnow_instruction-assembler
+ db 'pi2fd',0Dh
+ dw amd3dnow_instruction-assembler
+ db 'pi2fw',0Ch
+ dw amd3dnow_instruction-assembler
+ db 'popad',61h
+ dw simple_instruction_32bit_except64-assembler
+ db 'popaw',61h
+ dw simple_instruction_16bit_except64-assembler
+ db 'popfd',9Dh
+ dw simple_instruction_32bit_except64-assembler
+ db 'popfq',9Dh
+ dw simple_instruction_only64-assembler
+ db 'popfw',9Dh
+ dw simple_instruction_16bit-assembler
+ db 'pslld',0F2h
+ dw mmx_ps_instruction-assembler
+ db 'psllq',0F3h
+ dw mmx_ps_instruction-assembler
+ db 'psllw',0F1h
+ dw mmx_ps_instruction-assembler
+ db 'psrad',0E2h
+ dw mmx_ps_instruction-assembler
+ db 'psraw',0E1h
+ dw mmx_ps_instruction-assembler
+ db 'psrld',0D2h
+ dw mmx_ps_instruction-assembler
+ db 'psrlq',0D3h
+ dw mmx_ps_instruction-assembler
+ db 'psrlw',0D1h
+ dw mmx_ps_instruction-assembler
+ db 'psubb',0F8h
+ dw basic_mmx_instruction-assembler
+ db 'psubd',0FAh
+ dw basic_mmx_instruction-assembler
+ db 'psubq',0FBh
+ dw basic_mmx_instruction-assembler
+ db 'psubw',0F9h
+ dw basic_mmx_instruction-assembler
+ db 'ptest',17h
+ dw sse4_instruction_38-assembler
+ db 'pusha',60h
+ dw simple_instruction_except64-assembler
+ db 'pushd',4
+ dw push_instruction-assembler
+ db 'pushf',9Ch
+ dw simple_instruction-assembler
+ db 'pushq',8
+ dw push_instruction-assembler
+ db 'pushw',2
+ dw push_instruction-assembler
+ db 'rcpps',53h
+ dw sse_ps_instruction-assembler
+ db 'rcpss',53h
+ dw sse_ss_instruction-assembler
+ db 'rdmsr',32h
+ dw simple_extended_instruction-assembler
+ db 'rdpmc',33h
+ dw simple_extended_instruction-assembler
+ db 'rdtsc',31h
+ dw simple_extended_instruction-assembler
+ db 'repne',0F2h
+ dw prefix_instruction-assembler
+ db 'repnz',0F2h
+ dw prefix_instruction-assembler
+ db 'retfd',0CAh
+ dw ret_instruction_32bit-assembler
+ db 'retfq',0CAh
+ dw ret_instruction_64bit-assembler
+ db 'retfw',0CAh
+ dw ret_instruction_16bit-assembler
+ db 'retnd',0C2h
+ dw ret_instruction_32bit_except64-assembler
+ db 'retnq',0C2h
+ dw ret_instruction_only64-assembler
+ db 'retnw',0C2h
+ dw ret_instruction_16bit-assembler
+ db 'scasb',0AEh
+ dw simple_instruction-assembler
+ db 'scasd',0AFh
+ dw simple_instruction_32bit-assembler
+ db 'scasq',0AFh
+ dw simple_instruction_64bit-assembler
+ db 'scasw',0AFh
+ dw simple_instruction_16bit-assembler
+ db 'setae',93h
+ dw set_instruction-assembler
+ db 'setbe',96h
+ dw set_instruction-assembler
+ db 'setge',9Dh
+ dw set_instruction-assembler
+ db 'setle',9Eh
+ dw set_instruction-assembler
+ db 'setna',96h
+ dw set_instruction-assembler
+ db 'setnb',93h
+ dw set_instruction-assembler
+ db 'setnc',93h
+ dw set_instruction-assembler
+ db 'setne',95h
+ dw set_instruction-assembler
+ db 'setng',9Eh
+ dw set_instruction-assembler
+ db 'setnl',9Dh
+ dw set_instruction-assembler
+ db 'setno',91h
+ dw set_instruction-assembler
+ db 'setnp',9Bh
+ dw set_instruction-assembler
+ db 'setns',99h
+ dw set_instruction-assembler
+ db 'setnz',95h
+ dw set_instruction-assembler
+ db 'setpe',9Ah
+ dw set_instruction-assembler
+ db 'setpo',9Bh
+ dw set_instruction-assembler
+ db 'stack',0
+ dw stack_directive-assembler
+ db 'store',0
+ dw store_directive-assembler
+ db 'stosb',0AAh
+ dw simple_instruction-assembler
+ db 'stosd',0ABh
+ dw simple_instruction_32bit-assembler
+ db 'stosq',0ABh
+ dw simple_instruction_64bit-assembler
+ db 'stosw',0ABh
+ dw simple_instruction_16bit-assembler
+ db 'subpd',5Ch
+ dw sse_pd_instruction-assembler
+ db 'subps',5Ch
+ dw sse_ps_instruction-assembler
+ db 'subsd',5Ch
+ dw sse_sd_instruction-assembler
+ db 'subss',5Ch
+ dw sse_ss_instruction-assembler
+ db 'times',0
+ dw times_directive-assembler
+ db 'vmrun',0D8h
+ dw simple_svm_instruction-assembler
+ db 'vmxon',6
+ dw vmxon_instruction-assembler
+ db 'while',0
+ dw while_directive-assembler
+ db 'wrmsr',30h
+ dw simple_extended_instruction-assembler
+ db 'xlatb',0D7h
+ dw simple_instruction-assembler
+ db 'xorpd',57h
+ dw sse_pd_instruction-assembler
+ db 'xorps',57h
+ dw sse_ps_instruction-assembler
+instructions_6:
+ db 'andnpd',55h
+ dw sse_pd_instruction-assembler
+ db 'andnps',55h
+ dw sse_ps_instruction-assembler
+ db 'cmovae',43h
+ dw cmov_instruction-assembler
+ db 'cmovbe',46h
+ dw cmov_instruction-assembler
+ db 'cmovge',4Dh
+ dw cmov_instruction-assembler
+ db 'cmovle',4Eh
+ dw cmov_instruction-assembler
+ db 'cmovna',46h
+ dw cmov_instruction-assembler
+ db 'cmovnb',43h
+ dw cmov_instruction-assembler
+ db 'cmovnc',43h
+ dw cmov_instruction-assembler
+ db 'cmovne',45h
+ dw cmov_instruction-assembler
+ db 'cmovng',4Eh
+ dw cmov_instruction-assembler
+ db 'cmovnl',4Dh
+ dw cmov_instruction-assembler
+ db 'cmovno',41h
+ dw cmov_instruction-assembler
+ db 'cmovnp',4Bh
+ dw cmov_instruction-assembler
+ db 'cmovns',49h
+ dw cmov_instruction-assembler
+ db 'cmovnz',45h
+ dw cmov_instruction-assembler
+ db 'cmovpe',4Ah
+ dw cmov_instruction-assembler
+ db 'cmovpo',4Bh
+ dw cmov_instruction-assembler
+ db 'comisd',2Fh
+ dw comisd_instruction-assembler
+ db 'comiss',2Fh
+ dw comiss_instruction-assembler
+ db 'fcmovb',0C0h
+ dw fcmov_instruction-assembler
+ db 'fcmove',0C8h
+ dw fcmov_instruction-assembler
+ db 'fcmovu',0D8h
+ dw fcmov_instruction-assembler
+ db 'fcomip',0F0h
+ dw fcomip_instruction-assembler
+ db 'fcompp',0
+ dw fcompp_instruction-assembler
+ db 'fdivrp',6
+ dw faddp_instruction-assembler
+ db 'ffreep',0
+ dw ffreep_instruction-assembler
+ db 'ficomp',3
+ dw fi_instruction-assembler
+ db 'fidivr',7
+ dw fi_instruction-assembler
+ db 'fisttp',1
+ dw fild_instruction-assembler
+ db 'fisubr',5
+ dw fi_instruction-assembler
+ db 'fldenv',4
+ dw fldenv_instruction-assembler
+ db 'fldl2e',101010b
+ dw simple_fpu_instruction-assembler
+ db 'fldl2t',101001b
+ dw simple_fpu_instruction-assembler
+ db 'fldlg2',101100b
+ dw simple_fpu_instruction-assembler
+ db 'fldln2',101101b
+ dw simple_fpu_instruction-assembler
+ db 'fnclex',0E2h
+ dw fninit_instruction-assembler
+ db 'fndisi',0E1h
+ dw fninit_instruction-assembler
+ db 'fninit',0E3h
+ dw fninit_instruction-assembler
+ db 'fnsave',6
+ dw fnsave_instruction-assembler
+ db 'fnstcw',7
+ dw fldcw_instruction-assembler
+ db 'fnstsw',0
+ dw fnstsw_instruction-assembler
+ db 'format',0
+ dw format_directive-assembler
+ db 'fpatan',110011b
+ dw simple_fpu_instruction-assembler
+ db 'fprem1',110101b
+ dw simple_fpu_instruction-assembler
+ db 'frstor',4
+ dw fnsave_instruction-assembler
+ db 'frstpm',0E5h
+ dw fninit_instruction-assembler
+ db 'fsaved',6
+ dw fsave_instruction_32bit-assembler
+ db 'fsavew',6
+ dw fsave_instruction_16bit-assembler
+ db 'fscale',111101b
+ dw simple_fpu_instruction-assembler
+ db 'fsetpm',0E4h
+ dw fninit_instruction-assembler
+ db 'fstenv',6
+ dw fstenv_instruction-assembler
+ db 'fsubrp',4
+ dw faddp_instruction-assembler
+ db 'fucomi',0E8h
+ dw fcomi_instruction-assembler
+ db 'fucomp',5
+ dw ffree_instruction-assembler
+ db 'fxsave',0
+ dw fxsave_instruction-assembler
+ db 'getsec',37h
+ dw simple_extended_instruction-assembler
+ db 'haddpd',07Ch
+ dw sse_pd_instruction-assembler
+ db 'haddps',07Ch
+ dw cvtpd2dq_instruction-assembler
+ db 'hsubpd',07Dh
+ dw sse_pd_instruction-assembler
+ db 'hsubps',07Dh
+ dw cvtpd2dq_instruction-assembler
+ db 'invept',80h
+ dw vmx_inv_instruction-assembler
+ db 'invlpg',0
+ dw invlpg_instruction-assembler
+ db 'lfence',0E8h
+ dw fence_instruction-assembler
+ db 'looped',0E1h
+ dw loop_instruction_32bit-assembler
+ db 'loopeq',0E1h
+ dw loop_instruction_64bit-assembler
+ db 'loopew',0E1h
+ dw loop_instruction_16bit-assembler
+ db 'loopne',0E0h
+ dw loop_instruction-assembler
+ db 'loopnz',0E0h
+ dw loop_instruction-assembler
+ db 'loopzd',0E1h
+ dw loop_instruction_32bit-assembler
+ db 'loopzq',0E1h
+ dw loop_instruction_64bit-assembler
+ db 'loopzw',0E1h
+ dw loop_instruction_16bit-assembler
+ db 'mfence',0F0h
+ dw fence_instruction-assembler
+ db 'movapd',28h
+ dw movpd_instruction-assembler
+ db 'movaps',28h
+ dw movps_instruction-assembler
+ db 'movdqa',66h
+ dw movdq_instruction-assembler
+ db 'movdqu',0F3h
+ dw movdq_instruction-assembler
+ db 'movhpd',16h
+ dw movlpd_instruction-assembler
+ db 'movhps',16h
+ dw movlps_instruction-assembler
+ db 'movlpd',12h
+ dw movlpd_instruction-assembler
+ db 'movlps',12h
+ dw movlps_instruction-assembler
+ db 'movnti',0C3h
+ dw movnti_instruction-assembler
+ db 'movntq',0E7h
+ dw movntq_instruction-assembler
+ db 'movsxd',63h
+ dw movsxd_instruction-assembler
+ db 'movupd',10h
+ dw movpd_instruction-assembler
+ db 'movups',10h
+ dw movps_instruction-assembler
+ db 'paddsb',0ECh
+ dw basic_mmx_instruction-assembler
+ db 'paddsw',0EDh
+ dw basic_mmx_instruction-assembler
+ db 'pextrb',14h
+ dw pextrb_instruction-assembler
+ db 'pextrd',16h
+ dw pextrd_instruction-assembler
+ db 'pextrq',16h
+ dw pextrq_instruction-assembler
+ db 'pextrw',15h
+ dw pextrw_instruction-assembler
+ db 'pfnacc',8Ah
+ dw amd3dnow_instruction-assembler
+ db 'pfsubr',0AAh
+ dw amd3dnow_instruction-assembler
+ db 'phaddd',2
+ dw ssse3_instruction-assembler
+ db 'phaddw',1
+ dw ssse3_instruction-assembler
+ db 'phsubd',6
+ dw ssse3_instruction-assembler
+ db 'phsubw',5
+ dw ssse3_instruction-assembler
+ db 'pinsrb',20h
+ dw pinsrb_instruction-assembler
+ db 'pinsrd',22h
+ dw pinsrd_instruction-assembler
+ db 'pinsrq',22h
+ dw pinsrq_instruction-assembler
+ db 'pinsrw',0C4h
+ dw pinsrw_instruction-assembler
+ db 'pmaxsb',3Ch
+ dw sse4_instruction_38-assembler
+ db 'pmaxsd',3Dh
+ dw sse4_instruction_38-assembler
+ db 'pmaxsw',0EEh
+ dw basic_mmx_instruction-assembler
+ db 'pmaxub',0DEh
+ dw basic_mmx_instruction-assembler
+ db 'pmaxud',3Fh
+ dw sse4_instruction_38-assembler
+ db 'pmaxuw',3Eh
+ dw sse4_instruction_38-assembler
+ db 'pminsb',38h
+ dw sse4_instruction_38-assembler
+ db 'pminsd',39h
+ dw sse4_instruction_38-assembler
+ db 'pminsw',0EAh
+ dw basic_mmx_instruction-assembler
+ db 'pminub',0DAh
+ dw basic_mmx_instruction-assembler
+ db 'pminud',3Bh
+ dw sse4_instruction_38-assembler
+ db 'pminuw',3Ah
+ dw sse4_instruction_38-assembler
+ db 'pmuldq',28h
+ dw sse4_instruction_38-assembler
+ db 'pmulhw',0E5h
+ dw basic_mmx_instruction-assembler
+ db 'pmulld',40h
+ dw sse4_instruction_38-assembler
+ db 'pmullw',0D5h
+ dw basic_mmx_instruction-assembler
+ db 'popcnt',0B8h
+ dw popcnt_instruction-assembler
+ db 'psadbw',0F6h
+ dw basic_mmx_instruction-assembler
+ db 'pshufb',0
+ dw ssse3_instruction-assembler
+ db 'pshufd',66h
+ dw pshufd_instruction-assembler
+ db 'pshufw',0
+ dw pshufw_instruction-assembler
+ db 'psignb',8
+ dw ssse3_instruction-assembler
+ db 'psignd',0Ah
+ dw ssse3_instruction-assembler
+ db 'psignw',9
+ dw ssse3_instruction-assembler
+ db 'pslldq',111b
+ dw ps_dq_instruction-assembler
+ db 'psrldq',011b
+ dw ps_dq_instruction-assembler
+ db 'psubsb',0E8h
+ dw basic_mmx_instruction-assembler
+ db 'psubsw',0E9h
+ dw basic_mmx_instruction-assembler
+ db 'pswapd',0BBh
+ dw amd3dnow_instruction-assembler
+ db 'public',0
+ dw public_directive-assembler
+ db 'pushad',60h
+ dw simple_instruction_32bit_except64-assembler
+ db 'pushaw',60h
+ dw simple_instruction_16bit_except64-assembler
+ db 'pushfd',9Ch
+ dw simple_instruction_32bit_except64-assembler
+ db 'pushfq',9Ch
+ dw simple_instruction_only64-assembler
+ db 'pushfw',9Ch
+ dw simple_instruction_16bit-assembler
+ db 'rdmsrq',32h
+ dw simple_extended_instruction_64bit-assembler
+ db 'rdtscp',1
+ dw swapgs_instruction-assembler
+ db 'repeat',0
+ dw repeat_directive-assembler
+ db 'setalc',0D6h
+ dw simple_instruction_except64-assembler
+ db 'setnae',92h
+ dw set_instruction-assembler
+ db 'setnbe',97h
+ dw set_instruction-assembler
+ db 'setnge',9Ch
+ dw set_instruction-assembler
+ db 'setnle',9Fh
+ dw set_instruction-assembler
+ db 'sfence',0F8h
+ dw fence_instruction-assembler
+ db 'shufpd',0C6h
+ dw sse_pd_instruction_imm8-assembler
+ db 'shufps',0C6h
+ dw sse_ps_instruction_imm8-assembler
+ db 'skinit',0
+ dw skinit_instruction-assembler
+ db 'sqrtpd',51h
+ dw sse_pd_instruction-assembler
+ db 'sqrtps',51h
+ dw sse_ps_instruction-assembler
+ db 'sqrtsd',51h
+ dw sse_sd_instruction-assembler
+ db 'sqrtss',51h
+ dw sse_ss_instruction-assembler
+ db 'swapgs',0
+ dw swapgs_instruction-assembler
+ db 'sysret',07h
+ dw simple_extended_instruction-assembler
+ db 'vmcall',0C1h
+ dw simple_vmx_instruction-assembler
+ db 'vmload',0DAh
+ dw simple_svm_instruction-assembler
+ db 'vmread',0
+ dw vmread_instruction-assembler
+ db 'vmsave',0DBh
+ dw simple_svm_instruction-assembler
+ db 'vmxoff',0C4h
+ dw simple_vmx_instruction-assembler
+ db 'wbinvd',9
+ dw simple_extended_instruction-assembler
+ db 'wrmsrq',30h
+ dw simple_extended_instruction_64bit-assembler
+instructions_7:
+ db 'blendpd',0Dh
+ dw sse4_instruction_3a_imm8-assembler
+ db 'blendps',0Ch
+ dw sse4_instruction_3a_imm8-assembler
+ db 'clflush',111b
+ dw fxsave_instruction-assembler
+ db 'cmovnae',42h
+ dw cmov_instruction-assembler
+ db 'cmovnbe',47h
+ dw cmov_instruction-assembler
+ db 'cmovnge',4Ch
+ dw cmov_instruction-assembler
+ db 'cmovnle',4Fh
+ dw cmov_instruction-assembler
+ db 'cmpeqpd',0
+ dw cmp_pd_instruction-assembler
+ db 'cmpeqps',0
+ dw cmp_ps_instruction-assembler
+ db 'cmpeqsd',0
+ dw cmp_sd_instruction-assembler
+ db 'cmpeqss',0
+ dw cmp_ss_instruction-assembler
+ db 'cmplepd',2
+ dw cmp_pd_instruction-assembler
+ db 'cmpleps',2
+ dw cmp_ps_instruction-assembler
+ db 'cmplesd',2
+ dw cmp_sd_instruction-assembler
+ db 'cmpless',2
+ dw cmp_ss_instruction-assembler
+ db 'cmpltpd',1
+ dw cmp_pd_instruction-assembler
+ db 'cmpltps',1
+ dw cmp_ps_instruction-assembler
+ db 'cmpltsd',1
+ dw cmp_sd_instruction-assembler
+ db 'cmpltss',1
+ dw cmp_ss_instruction-assembler
+ db 'cmpxchg',0B0h
+ dw basic_486_instruction-assembler
+ db 'display',0
+ dw display_directive-assembler
+ db 'fcmovbe',0D0h
+ dw fcmov_instruction-assembler
+ db 'fcmovnb',0C0h
+ dw fcomi_instruction-assembler
+ db 'fcmovne',0C8h
+ dw fcomi_instruction-assembler
+ db 'fcmovnu',0D8h
+ dw fcomi_instruction-assembler
+ db 'fdecstp',110110b
+ dw simple_fpu_instruction-assembler
+ db 'fincstp',110111b
+ dw simple_fpu_instruction-assembler
+ db 'fldenvd',4
+ dw fldenv_instruction_32bit-assembler
+ db 'fldenvw',4
+ dw fldenv_instruction_32bit-assembler
+ db 'fnsaved',6
+ dw fnsave_instruction_32bit-assembler
+ db 'fnsavew',6
+ dw fnsave_instruction_16bit-assembler
+ db 'fnstenv',6
+ dw fldenv_instruction-assembler
+ db 'frndint',111100b
+ dw simple_fpu_instruction-assembler
+ db 'frstord',4
+ dw fnsave_instruction_32bit-assembler
+ db 'frstorw',4
+ dw fnsave_instruction_16bit-assembler
+ db 'fsincos',111011b
+ dw simple_fpu_instruction-assembler
+ db 'fstenvd',6
+ dw fstenv_instruction_32bit-assembler
+ db 'fstenvw',6
+ dw fstenv_instruction_16bit-assembler
+ db 'fucomip',0E8h
+ dw fcomip_instruction-assembler
+ db 'fucompp',0
+ dw fucompp_instruction-assembler
+ db 'fxrstor',1
+ dw fxsave_instruction-assembler
+ db 'fxtract',110100b
+ dw simple_fpu_instruction-assembler
+ db 'fyl2xp1',111001b
+ dw simple_fpu_instruction-assembler
+ db 'insertq',0
+ dw insertq_instruction-assembler
+ db 'invlpga',0DFh
+ dw invlpga_instruction-assembler
+ db 'invvpid',81h
+ dw vmx_inv_instruction-assembler
+ db 'ldmxcsr',10b
+ dw fxsave_instruction-assembler
+ db 'loopned',0E0h
+ dw loop_instruction_32bit-assembler
+ db 'loopneq',0E0h
+ dw loop_instruction_64bit-assembler
+ db 'loopnew',0E0h
+ dw loop_instruction_16bit-assembler
+ db 'loopnzd',0E0h
+ dw loop_instruction_32bit-assembler
+ db 'loopnzq',0E0h
+ dw loop_instruction_64bit-assembler
+ db 'loopnzw',0E0h
+ dw loop_instruction_16bit-assembler
+ db 'monitor',0C8h
+ dw monitor_instruction-assembler
+ db 'movddup',12h
+ dw sse_sd_instruction-assembler
+ db 'movdq2q',0
+ dw movdq2q_instruction-assembler
+ db 'movhlps',12h
+ dw movhlps_instruction-assembler
+ db 'movlhps',16h
+ dw movhlps_instruction-assembler
+ db 'movntdq',0E7h
+ dw movntdq_instruction-assembler
+ db 'movntpd',2Bh
+ dw movntdq_instruction-assembler
+ db 'movntps',2Bh
+ dw movntps_instruction-assembler
+ db 'movntsd',2Bh
+ dw movntsd_instruction-assembler
+ db 'movntss',2Bh
+ dw movntss_instruction-assembler
+ db 'movq2dq',0
+ dw movq2dq_instruction-assembler
+ db 'mpsadbw',42h
+ dw sse4_instruction_3a_imm8-assembler
+ db 'paddusb',0DCh
+ dw basic_mmx_instruction-assembler
+ db 'paddusw',0DDh
+ dw basic_mmx_instruction-assembler
+ db 'palignr',0
+ dw palignr_instruction-assembler
+ db 'pavgusb',0BFh
+ dw amd3dnow_instruction-assembler
+ db 'pblendw',0Eh
+ dw sse4_instruction_3a_imm8-assembler
+ db 'pcmpeqb',74h
+ dw basic_mmx_instruction-assembler
+ db 'pcmpeqd',76h
+ dw basic_mmx_instruction-assembler
+ db 'pcmpeqq',29h
+ dw sse4_instruction_38-assembler
+ db 'pcmpeqw',75h
+ dw basic_mmx_instruction-assembler
+ db 'pcmpgtb',64h
+ dw basic_mmx_instruction-assembler
+ db 'pcmpgtd',66h
+ dw basic_mmx_instruction-assembler
+ db 'pcmpgtq',37h
+ dw sse4_instruction_38-assembler
+ db 'pcmpgtw',65h
+ dw basic_mmx_instruction-assembler
+ db 'pfcmpeq',0B0h
+ dw amd3dnow_instruction-assembler
+ db 'pfcmpge',90h
+ dw amd3dnow_instruction-assembler
+ db 'pfcmpgt',0A0h
+ dw amd3dnow_instruction-assembler
+ db 'pfpnacc',8Eh
+ dw amd3dnow_instruction-assembler
+ db 'pfrsqrt',97h
+ dw amd3dnow_instruction-assembler
+ db 'phaddsw',3
+ dw ssse3_instruction-assembler
+ db 'phsubsw',7
+ dw ssse3_instruction-assembler
+ db 'pmaddwd',0F5h
+ dw basic_mmx_instruction-assembler
+ db 'pmulhrw',0B7h
+ dw amd3dnow_instruction-assembler
+ db 'pmulhuw',0E4h
+ dw basic_mmx_instruction-assembler
+ db 'pmuludq',0F4h
+ dw basic_mmx_instruction-assembler
+ db 'pshufhw',0F3h
+ dw pshufd_instruction-assembler
+ db 'pshuflw',0F2h
+ dw pshufd_instruction-assembler
+ db 'psubusb',0D8h
+ dw basic_mmx_instruction-assembler
+ db 'psubusw',0D9h
+ dw basic_mmx_instruction-assembler
+ db 'roundpd',9
+ dw sse4_instruction_3a_imm8-assembler
+ db 'roundps',8
+ dw sse4_instruction_3a_imm8-assembler
+ db 'roundsd',0Bh
+ dw sse4_sd_instruction_3a_imm8-assembler
+ db 'roundss',0Ah
+ dw sse4_ss_instruction_3a_imm8-assembler
+ db 'rsqrtps',52h
+ dw sse_ps_instruction-assembler
+ db 'rsqrtss',52h
+ dw sse_ss_instruction-assembler
+ db 'section',0
+ dw section_directive-assembler
+ db 'segment',0
+ dw segment_directive-assembler
+ db 'stmxcsr',11b
+ dw fxsave_instruction-assembler
+ db 'syscall',05h
+ dw simple_extended_instruction-assembler
+ db 'sysexit',35h
+ dw simple_extended_instruction-assembler
+ db 'sysretq',07h
+ dw simple_extended_instruction_64bit-assembler
+ db 'ucomisd',2Eh
+ dw comisd_instruction-assembler
+ db 'ucomiss',2Eh
+ dw comiss_instruction-assembler
+ db 'virtual',0
+ dw virtual_directive-assembler
+ db 'vmclear',6
+ dw vmclear_instruction-assembler
+ db 'vmmcall',0D9h
+ dw simple_vmx_instruction-assembler
+ db 'vmptrld',6
+ dw vmx_instruction-assembler
+ db 'vmptrst',7
+ dw vmx_instruction-assembler
+ db 'vmwrite',0
+ dw vmwrite_instruction-assembler
+instructions_8:
+ db 'addsubpd',0D0h
+ dw sse_pd_instruction-assembler
+ db 'addsubps',0D0h
+ dw cvtpd2dq_instruction-assembler
+ db 'blendvpd',15h
+ dw sse4_instruction_38_xmm0-assembler
+ db 'blendvps',14h
+ dw sse4_instruction_38_xmm0-assembler
+ db 'cmpneqpd',4
+ dw cmp_pd_instruction-assembler
+ db 'cmpneqps',4
+ dw cmp_ps_instruction-assembler
+ db 'cmpneqsd',4
+ dw cmp_sd_instruction-assembler
+ db 'cmpneqss',4
+ dw cmp_ss_instruction-assembler
+ db 'cmpnlepd',6
+ dw cmp_pd_instruction-assembler
+ db 'cmpnleps',6
+ dw cmp_ps_instruction-assembler
+ db 'cmpnlesd',6
+ dw cmp_sd_instruction-assembler
+ db 'cmpnless',6
+ dw cmp_ss_instruction-assembler
+ db 'cmpnltpd',5
+ dw cmp_pd_instruction-assembler
+ db 'cmpnltps',5
+ dw cmp_ps_instruction-assembler
+ db 'cmpnltsd',5
+ dw cmp_sd_instruction-assembler
+ db 'cmpnltss',5
+ dw cmp_ss_instruction-assembler
+ db 'cmpordpd',7
+ dw cmp_pd_instruction-assembler
+ db 'cmpordps',7
+ dw cmp_ps_instruction-assembler
+ db 'cmpordsd',7
+ dw cmp_sd_instruction-assembler
+ db 'cmpordss',7
+ dw cmp_ss_instruction-assembler
+ db 'cvtdq2pd',0E6h
+ dw cvtdq2pd_instruction-assembler
+ db 'cvtdq2ps',5Bh
+ dw sse_ps_instruction-assembler
+ db 'cvtpd2dq',0E6h
+ dw cvtpd2dq_instruction-assembler
+ db 'cvtpd2pi',2Dh
+ dw cvtpd2pi_instruction-assembler
+ db 'cvtpd2ps',5Ah
+ dw sse_pd_instruction-assembler
+ db 'cvtpi2pd',2Ah
+ dw cvtpi2pd_instruction-assembler
+ db 'cvtpi2ps',2Ah
+ dw cvtpi2ps_instruction-assembler
+ db 'cvtps2dq',5Bh
+ dw sse_pd_instruction-assembler
+ db 'cvtps2pd',5Ah
+ dw cvtps2pd_instruction-assembler
+ db 'cvtps2pi',2Dh
+ dw cvtps2pi_instruction-assembler
+ db 'cvtsd2si',2Dh
+ dw cvtsd2si_instruction-assembler
+ db 'cvtsd2ss',5Ah
+ dw sse_sd_instruction-assembler
+ db 'cvtsi2sd',2Ah
+ dw cvtsi2sd_instruction-assembler
+ db 'cvtsi2ss',2Ah
+ dw cvtsi2ss_instruction-assembler
+ db 'cvtss2sd',5Ah
+ dw sse_ss_instruction-assembler
+ db 'cvtss2si',2Dh
+ dw cvtss2si_instruction-assembler
+ db 'fcmovnbe',0D0h
+ dw fcomi_instruction-assembler
+ db 'fnstenvd',6
+ dw fldenv_instruction_32bit-assembler
+ db 'fnstenvw',6
+ dw fldenv_instruction_16bit-assembler
+ db 'insertps',0
+ dw insertps_instruction-assembler
+ db 'maskmovq',0
+ dw maskmovq_instruction-assembler
+ db 'movmskpd',0
+ dw movmskpd_instruction-assembler
+ db 'movmskps',0
+ dw movmskps_instruction-assembler
+ db 'movntdqa',0
+ dw movntdqa_instruction-assembler
+ db 'movshdup',16h
+ dw cvtdq2pd_instruction-assembler
+ db 'movsldup',12h
+ dw cvtdq2pd_instruction-assembler
+ db 'packssdw',6Bh
+ dw basic_mmx_instruction-assembler
+ db 'packsswb',63h
+ dw basic_mmx_instruction-assembler
+ db 'packusdw',2Bh
+ dw sse4_instruction_38-assembler
+ db 'packuswb',67h
+ dw basic_mmx_instruction-assembler
+ db 'pblendvb',10h
+ dw sse4_instruction_38_xmm0-assembler
+ db 'pfrcpit1',0A6h
+ dw amd3dnow_instruction-assembler
+ db 'pfrcpit2',0B6h
+ dw amd3dnow_instruction-assembler
+ db 'pfrsqit1',0A7h
+ dw amd3dnow_instruction-assembler
+ db 'pmovmskb',0D7h
+ dw pmovmskb_instruction-assembler
+ db 'pmovsxbd',21h
+ dw pmovsxbd_instruction-assembler
+ db 'pmovsxbq',22h
+ dw pmovsxbq_instruction-assembler
+ db 'pmovsxbw',20h
+ dw pmovsxbw_instruction-assembler
+ db 'pmovsxdq',25h
+ dw pmovsxdq_instruction-assembler
+ db 'pmovsxwd',23h
+ dw pmovsxwd_instruction-assembler
+ db 'pmovsxwq',24h
+ dw pmovsxwq_instruction-assembler
+ db 'pmovzxbd',31h
+ dw pmovsxbd_instruction-assembler
+ db 'pmovzxbq',32h
+ dw pmovsxbq_instruction-assembler
+ db 'pmovzxbw',30h
+ dw pmovsxbw_instruction-assembler
+ db 'pmovzxdq',35h
+ dw pmovsxdq_instruction-assembler
+ db 'pmovzxwd',33h
+ dw pmovsxwd_instruction-assembler
+ db 'pmovzxwq',34h
+ dw pmovsxwq_instruction-assembler
+ db 'pmulhrsw',0Bh
+ dw ssse3_instruction-assembler
+ db 'prefetch',0
+ dw amd_prefetch_instruction-assembler
+ db 'sysenter',34h
+ dw simple_extended_instruction-assembler
+ db 'sysexitq',35h
+ dw simple_extended_instruction_64bit-assembler
+ db 'unpckhpd',15h
+ dw sse_pd_instruction-assembler
+ db 'unpckhps',15h
+ dw sse_ps_instruction-assembler
+ db 'unpcklpd',14h
+ dw sse_pd_instruction-assembler
+ db 'unpcklps',14h
+ dw sse_ps_instruction-assembler
+ db 'vmlaunch',0C2h
+ dw simple_vmx_instruction-assembler
+ db 'vmresume',0C3h
+ dw simple_vmx_instruction-assembler
+instructions_9:
+ db 'cmpxchg8b',8
+ dw cmpxchgx_instruction-assembler
+ db 'cvttpd2dq',0E6h
+ dw sse_pd_instruction-assembler
+ db 'cvttpd2pi',2Ch
+ dw cvtpd2pi_instruction-assembler
+ db 'cvttps2dq',5Bh
+ dw cvtdq2pd_instruction-assembler
+ db 'cvttps2pi',2Ch
+ dw cvtps2pi_instruction-assembler
+ db 'cvttsd2si',2Ch
+ dw cvtsd2si_instruction-assembler
+ db 'cvttss2si',2Ch
+ dw cvtss2si_instruction-assembler
+ db 'extractps',0
+ dw extractps_instruction-assembler
+ db 'pcmpestri',61h
+ dw sse4_instruction_3a_imm8-assembler
+ db 'pcmpestrm',60h
+ dw sse4_instruction_3a_imm8-assembler
+ db 'pcmpistri',63h
+ dw sse4_instruction_3a_imm8-assembler
+ db 'pcmpistrm',62h
+ dw sse4_instruction_3a_imm8-assembler
+ db 'pmaddubsw',4
+ dw ssse3_instruction-assembler
+ db 'prefetchw',1
+ dw amd_prefetch_instruction-assembler
+ db 'punpckhbw',68h
+ dw basic_mmx_instruction-assembler
+ db 'punpckhdq',6Ah
+ dw basic_mmx_instruction-assembler
+ db 'punpckhwd',69h
+ dw basic_mmx_instruction-assembler
+ db 'punpcklbw',60h
+ dw basic_mmx_instruction-assembler
+ db 'punpckldq',62h
+ dw basic_mmx_instruction-assembler
+ db 'punpcklwd',61h
+ dw basic_mmx_instruction-assembler
+instructions_10:
+ db 'cmpunordpd',3
+ dw cmp_pd_instruction-assembler
+ db 'cmpunordps',3
+ dw cmp_ps_instruction-assembler
+ db 'cmpunordsd',3
+ dw cmp_sd_instruction-assembler
+ db 'cmpunordss',3
+ dw cmp_ss_instruction-assembler
+ db 'cmpxchg16b',16
+ dw cmpxchgx_instruction-assembler
+ db 'loadall286',5
+ dw simple_extended_instruction-assembler
+ db 'loadall386',7
+ dw simple_extended_instruction-assembler
+ db 'maskmovdqu',0
+ dw maskmovdqu_instruction-assembler
+ db 'phminposuw',41h
+ dw sse4_instruction_38-assembler
+ db 'prefetcht0',1
+ dw prefetch_instruction-assembler
+ db 'prefetcht1',2
+ dw prefetch_instruction-assembler
+ db 'prefetcht2',3
+ dw prefetch_instruction-assembler
+ db 'punpckhqdq',6Dh
+ dw sse_pd_instruction-assembler
+ db 'punpcklqdq',6Ch
+ dw sse_pd_instruction-assembler
+instructions_11:
+ db 'prefetchnta',0
+ dw prefetch_instruction-assembler
+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-assembler
+ db 'dd',4
+ dw data_dwords-assembler
+ db 'df',6
+ dw data_pwords-assembler
+ db 'dp',6
+ dw data_pwords-assembler
+ db 'dq',8
+ dw data_qwords-assembler
+ db 'dt',10
+ dw data_twords-assembler
+ db 'du',2
+ dw data_unicode-assembler
+ db 'dw',2
+ dw data_words-assembler
+ db 'rb',1
+ dw reserve_bytes-assembler
+ db 'rd',4
+ dw reserve_dwords-assembler
+ db 'rf',6
+ dw reserve_pwords-assembler
+ db 'rp',6
+ dw reserve_pwords-assembler
+ db 'rq',8
+ dw reserve_qwords-assembler
+ db 'rt',10
+ dw reserve_twords-assembler
+ db 'rw',2
+ dw reserve_words-assembler
+data_directives_3:
+data_directives_4:
+ db 'file',1
+ dw data_file-assembler
+data_directives_end:
diff --git a/programs/develop/fasm/tags/1.68/variable.inc b/programs/develop/fasm/tags/1.68/variable.inc
new file mode 100644
index 0000000000..7aa20b7261
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/variable.inc
@@ -0,0 +1,130 @@
+
+; flat assembler core variables
+; Copyright (c) 1999-2009, 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 ?
+
+labels_type db ?
+code_type db ?
+virtual_data db ?
+
+operand_size db ?
+size_override db ?
+operand_prefix db ?
+rex_prefix db ?
+opcode_prefix db ?
+base_code db ?
+extended_code db ?
+supplemental_code db ?
+postbyte_register db ?
+
+immediate_size 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 ?
+compare_type db ?
+logical_value_wrapping db ?
+next_pass_needed db ?
+macro_status db ?
+segment_register db ?
+prefixed_instruction db ?
+fp_sign db ?
+fp_format db ?
+output_format db ?
+
+characters rb 100h
+converted rb 100h
+message rb 200h
diff --git a/programs/develop/fasm/tags/1.68/version.inc b/programs/develop/fasm/tags/1.68/version.inc
new file mode 100644
index 0000000000..61425d83fb
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/version.inc
@@ -0,0 +1,39 @@
+
+; flat assembler  version 1.68
+; Copyright (c) 1999-2009, Tomasz Grysztar.
+; All rights reserved.
+;
+; This programs is free for commercial and non-commercial use as long as
+; the following conditions are adhered to.
+;
+; Redistribution and use in source and binary forms, with or without
+; modification, are permitted provided that the following conditions are
+; met:
+;
+; 1. Redistributions of source code must retain the above copyright notice,
+;    this list of conditions and the following disclaimer.
+; 2. Redistributions in binary form must reproduce the above copyright
+;    notice, this list of conditions and the following disclaimer in the
+;    documentation and/or other materials provided with the distribution.
+;
+; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR
+; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;
+; The licence and distribution terms for any publically available
+; version or derivative of this code cannot be changed. i.e. this code
+; cannot simply be copied and put under another distribution licence
+; (including the GNU Public Licence).
+
+VERSION_STRING equ "1.68"
+
+VERSION_MAJOR = 1
+VERSION_MINOR = 68
diff --git a/programs/develop/fasm/tags/1.68/x86_64.inc b/programs/develop/fasm/tags/1.68/x86_64.inc
new file mode 100644
index 0000000000..5edce515af
--- /dev/null
+++ b/programs/develop/fasm/tags/1.68/x86_64.inc
@@ -0,0 +1,7034 @@
+
+; flat assembler core
+; Copyright (c) 1999-2009, 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	al,48h
+	stos	byte [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
+	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
+	push	instruction_assembled
+	jmp	store_address_32bit_value
+      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
+	push	instruction_assembled
+	jmp	store_address_64bit_value
+      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
+      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
+	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
+      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
+	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
+	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	edx,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
+	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	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_ps_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
+	jnz	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
+	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
+	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
+	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	[operand_size],16
+	jne	no_mmx_prefix
+	mov	[operand_prefix],66h
+      no_mmx_prefix:
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	mov	[postbyte_register],al
+	mov	[extended_code],7Fh
+	jmp	instruction_ready
+      movdq_mmreg:
+	lods	byte [esi]
+	call	convert_mmx_register
+	cmp	ah,16
+	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	movdq_mmreg_mmreg
+	cmp	al,'['
+	jne	invalid_operand
+	call	get_address
+	jmp	instruction_ready
+      movdq_mmreg_mmreg:
+	lods	byte [esi]
+	call	convert_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_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
+	mov	[postbyte_register],al
+	mov	[opcode_prefix],0F2h
+	mov	[base_code],0Fh
+	mov	[extended_code],0F0h
+	jmp	instruction_ready
+movq2dq_instruction:
+	lods	byte [esi]
+	call	get_size_operator
+	cmp	al,10h
+	jne	invalid_operand
+	lods	byte [esi]
+	call	convert_mmx_register
+	cmp	ah,16
+	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
+	cmp	ah,8
+	jne	invalid_operand_size
+	mov	bl,al
+	mov	[opcode_prefix],0F3h
+	mov	[base_code],0Fh
+	mov	[extended_code],0D6h
+	jmp	nomem_instruction_ready
+movdq2q_instruction:
+	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
+	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
+	cmp	ah,16
+	jne	invalid_operand_size
+	mov	bl,al
+	mov	[opcode_prefix],0F2h
+	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
+comiss_instruction:
+	mov	[mmx_size],4
+	jmp	sse_instruction
+comisd_instruction:
+	mov	[mmx_size],8
+	mov	[opcode_prefix],66h
+	jmp	sse_instruction
+cvtps2pd_instruction:
+	mov	[mmx_size],8
+	jmp	sse_instruction
+cvtpd2dq_instruction:
+	mov	[mmx_size],16
+	mov	[opcode_prefix],0F2h
+	jmp	sse_instruction
+cvtdq2pd_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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+      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	[immediate_size],1
+	je	mmx_imm8
+	cmp	[immediate_size],-1
+	jne	sse_ok
+	call	take_additional_xmm0
+      sse_ok:
+	jmp	instruction_ready
+      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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	mov	bl,al
+	cmp	[immediate_size],1
+	je	mmx_nomem_imm8
+	cmp	[immediate_size],-1
+	jne	sse_nomem_ok
+	call	take_additional_xmm0
+      sse_nomem_ok:
+	jmp	nomem_instruction_ready
+      take_additional_xmm0:
+	lods	byte [esi]
+	cmp	al,','
+	jne	invalid_operand
+	lods	byte [esi]
+	cmp	al,10h
+	jne	invalid_operand
+	lods	byte [esi]
+	call	convert_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	test	al,al
+	jnz	invalid_operand
+	ret
+
+ps_dq_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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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_mmx_register
+	cmp	ah,16
+	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
+	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_mmx_register
+	cmp	ah,16
+	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	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
+	cmp	ah,4
+	jne	invalid_operand_size
+	mov	[operand_size],0
+	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
+	cmp	ah,16
+	jne	invalid_operand_size
+	mov	bl,al
+	jmp	nomem_instruction_ready
+cmppd_instruction:
+	mov	[opcode_prefix],66h
+cmpps_instruction:
+	mov	[base_code],0Fh
+	mov	[extended_code],0C2h
+	mov	[mmx_size],16
+	mov	byte [value],-1
+	jmp	sse_cmp_instruction
+cmp_pd_instruction:
+	mov	[opcode_prefix],66h
+cmp_ps_instruction:
+	mov	[base_code],0Fh
+	mov	[extended_code],0C2h
+	mov	[mmx_size],16
+	mov	byte [value],al
+	jmp	sse_cmp_instruction
+cmpss_instruction:
+	mov	[mmx_size],4
+	mov	[opcode_prefix],0F3h
+	jmp	cmpsx_instruction
+cmpsd_instruction:
+	mov	al,0A7h
+	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
+      cmpsx_instruction:
+	mov	[base_code],0Fh
+	mov	[extended_code],0C2h
+	mov	byte [value],-1
+	jmp	sse_cmp_instruction
+cmp_ss_instruction:
+	mov	[mmx_size],4
+	mov	[opcode_prefix],0F3h
+	jmp	cmp_sx_instruction
+cmp_sd_instruction:
+	mov	[mmx_size],8
+	mov	[opcode_prefix],0F2h
+      cmp_sx_instruction:
+	mov	[base_code],0Fh
+	mov	[extended_code],0C2h
+	mov	byte [value],al
+sse_cmp_instruction:
+	lods	byte [esi]
+	call	get_size_operator
+	cmp	al,10h
+	jne	invalid_operand
+	lods	byte [esi]
+	call	convert_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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	sse_cmp_xmmreg_xmmreg
+	cmp	al,'['
+	jne	invalid_operand
+	call	get_address
+	mov	al,[operand_size]
+	or	al,al
+	jz	sse_cmp_size_ok
+	cmp	al,[mmx_size]
+	jne	invalid_operand_size
+      sse_cmp_size_ok:
+	push	ebx ecx edx
+	call	get_nextbyte
+	pop	edx ecx ebx
+	call	store_instruction_with_imm8
+	jmp	instruction_assembled
+      sse_cmp_xmmreg_xmmreg:
+	lods	byte [esi]
+	call	convert_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	mov	bl,al
+	call	store_nomem_instruction
+	call	get_nextbyte
+	mov	al,byte [value]
+	stos	byte [edi]
+	jmp	instruction_assembled
+      get_nextbyte:
+	cmp	byte [value],-1
+	jne	nextbyte_ok
+	mov	[operand_size],0
+	lods	byte [esi]
+	cmp	al,','
+	jne	invalid_operand
+	lods	byte [esi]
+	call	get_size_operator
+	test	[operand_size],not 1
+	jnz	invalid_value
+	cmp	al,'('
+	jne	invalid_operand
+	call	get_byte_value
+	cmp	al,7
+	ja	invalid_value
+	mov	byte [value],al
+      nextbyte_ok:
+	ret
+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_mmx_register
+	cmp	ah,16
+	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
+	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_mmx_register
+	cmp	ah,16
+	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
+	je	cvtsi_xmmreg_reg
+	cmp	al,'['
+	jne	invalid_operand
+	call	get_address
+	cmp	[operand_size],0
+	je	cvtsi_size_ok
+	cmp	[operand_size],4
+	jne	invalid_operand_size
+      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
+	jmp	sse4_instruction_38
+sse4_instruction_38_imm8:
+	mov	[immediate_size],1
+sse4_instruction_38:
+	mov	[mmx_size],16
+	mov	[opcode_prefix],66h
+	mov	[base_code],0Fh
+	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
+sse4_instruction_3a:
+	mov	[mmx_size],16
+      sse4_instruction_3a_setup:
+	mov	[opcode_prefix],66h
+	mov	[base_code],0Fh
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	mov	[postbyte_register],al
+	pop	ebx
+	mov	al,bh
+	cmp	al,8
+	je	extractps_store
+	cmp	al,4
+	jne	invalid_operand_size
+      extractps_store:
+	call	operand_autodetect
+	jmp	mmx_nomem_imm8
+insertps_instruction:
+	mov	[opcode_prefix],66h
+	mov	[base_code],0Fh
+	mov	[extended_code],3Ah
+	mov	[supplemental_code],21h
+	lods	byte [esi]
+	call	get_size_operator
+	cmp	al,10h
+	jne	invalid_operand
+	lods	byte [esi]
+	call	convert_mmx_register
+	cmp	ah,16
+	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
+	je	insertps_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_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:
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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	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
+	jmp	pinsr_instruction
+      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_mmx_register
+	cmp	ah,16
+	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
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	mov	bl,al
+	jmp	nomem_instruction_ready
+
+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
+movntps_instruction:
+	mov	[mmx_size],16
+	jmp	movnt_instruction
+movntdq_instruction:
+	mov	[opcode_prefix],66h
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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
+	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_mmx_register
+	cmp	ah,16
+	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,'['
+	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_mmx_register
+	cmp	ah,16
+	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
+	je	extrq_xmmreg_xmmreg
+	test	ah,not 1
+	jnz	invalid_operand_size
+	cmp	al,'('
+	jne	invalid_operand
+	xor	bl,bl
+	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_mmx_register
+	cmp	ah,16
+	jne	invalid_operand_size
+	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_mmx_register
+	cmp	ah,16
+	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
+	cmp	ah,16
+	jne	invalid_operand_size
+	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
+	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
+
+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
+
+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
+	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
+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,3
+	je	ss_prefix
+	cmp	al,4
+	ja	segment_prefix_386
+	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:
+	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:
+	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
+	cmp	bl,44h
+	je	swap_base_with_index
+	cmp	bl,84h
+	jne	base_register_ok
+      swap_base_with_index:
+	cmp	cl,1
+	jne	invalid_address
+	xchg	bl,bh
+	cmp	bl,44h
+	je	invalid_address
+	cmp	bl,84h
+	je	invalid_address
+      base_register_ok:
+	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,not 44h
+	jnz	invalid_address_size
+	test	ecx,0FF0000h
+	jnz	address_immediate_sib_nosignextend
+	test	edx,80000000h
+	jz	address_immediate_sib_prefix_ok
+      address_immediate_sib_nosignextend:
+	call	address_32bit_prefix
+      address_immediate_sib_prefix_ok:
+	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_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
diff --git a/programs/develop/fasm/trunk/WHATSNEW.TXT b/programs/develop/fasm/trunk/WHATSNEW.TXT
index 57a637b746..c6b9af0983 100644
--- a/programs/develop/fasm/trunk/WHATSNEW.TXT
+++ b/programs/develop/fasm/trunk/WHATSNEW.TXT
@@ -2,6 +2,57 @@
 Visit http://flatassembler.net/ for more information.
 
 
+version 1.69.06 (Sep 29, 2009)
+
+[-] The prefix 67h for "jecxz" and "loopd" instructions in 64-bit mode wasn't
+    correctly generated - fixed.
+
+[-] It's no longer possible to define two special segments of the same type
+    in ELF executables.
+
+
+version 1.69.05 (Sep 14, 2009)
+
+[+] Allowed to specify branding value (use 3 for Linux) after the
+    "format ELF executable" setting.
+
+[+] Added "intepreter", "dynamic" and "note" keywords for creation of
+    special segments in ELF executables.
+
+
+version 1.69.04 (Sep 7, 2009)
+
+[-] Fixed a bug with REX prefix generation with address of type "rX+rsp".
+
+
+version 1.69.03 (Aug 03, 2009)
+
+[+] Allowed simplified syntax for "monitor", "mwait", "blendvps", "blendvpd" and
+    "pblendvb" instructions.
+
+
+version 1.69.02 (Jul 04, 2009)
+
+[-] Minor bugfixes.
+
+
+version 1.69.01 (Jul 01, 2009)
+
+[+] Added "movbe" instruction.
+
+[-] "extractps" no longer generates the double 66h prefix.
+
+
+version 1.69.00 (Jun 23, 2009)
+
+[+] Extended the syntax of "rept" directive to allow numerical expressions
+    to be calculated by preprocessor in its arguments.
+
+[-] The code of assembler (but not data) has been made position-independent, and
+    this allowed to use code segmentation in DOS unREAL mode, so the code is
+    no longer limited to 64 kilobytes.
+
+
 version 1.68 (Jun 13, 2009)
 
 [+] Added SSSE3 (Supplemental SSE3), SSE4.1, SSE4.2 and SSE4a instructions.
@@ -63,11 +114,11 @@ version 1.66 (May 7, 2006)
     that "define" doesn't process symbolic constants in the value before
     assigning it. For example:
 
-	a equ 1
-	a equ a+a
+        a equ 1
+        a equ a+a
 
-	define b 1
-	define b b+b
+        define b 1
+        define b b+b
 
     defines the "a" constant with value "1+1", but the "b" is defined with
     value "b+b". This directive may be useful in some advanced
@@ -79,9 +130,9 @@ version 1.66 (May 7, 2006)
     evaluated by the parser and if they are enough to determine the condition,
     the whole block is processed accordingly. Thus this block:
 
-	if eax eq EAX | 0/0
-		nop
-	end if
+        if eax eq EAX | 0/0
+                nop
+        end if
 
     is parsed into just "nop" instruction, since parser is able to determine
     that the condition is true, even though one of the logical values makes no
@@ -91,9 +142,9 @@ version 1.66 (May 7, 2006)
 [-] Also the assembler is now calculating only as many logical values as it
     needs to determine the condition. So this block:
 
-	if defined alpha & alpha
+        if defined alpha & alpha
 
-	end if
+        end if
 
     will not cause error when "alpha" is not defined, as it would with previous
     versions. This is because after checking that "defined alpha" is false
diff --git a/programs/develop/fasm/trunk/assemble.inc b/programs/develop/fasm/trunk/assemble.inc
index d9943691a6..f49cc9c0b7 100644
--- a/programs/develop/fasm/trunk/assemble.inc
+++ b/programs/develop/fasm/trunk/assemble.inc
@@ -115,7 +115,12 @@ assembler:
 	or	eax,eax
 	jz	assemble_ok
 	mov	[current_line],eax
-	jmp	near [error]
+	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]
@@ -359,11 +364,13 @@ assemble_line:
 	mov	dword [operand_size],0
 	mov	[opcode_prefix],0
 	mov	[immediate_size],0
+	call	instruction_handler
+      instruction_handler:
 	movzx	ebx,word [esi]
 	mov	al,[esi+2]
-	add	ebx,assembler
 	add	esi,3
-	jmp	near ebx
+	add	[esp],ebx
+	ret
       instruction_assembled:
 	mov	al,[esi]
 	cmp	al,0Fh
@@ -894,7 +901,7 @@ virtual_directive:
 	mov	byte [org_registers+2],ch
 	mov	byte [org_registers+3],cl
 	call	allocate_structure_data
-	mov	word [ebx],virtual_directive-assembler
+	mov	word [ebx],virtual_directive-instruction_handler
 	not	eax
 	not	edx
 	add	eax,1
@@ -993,7 +1000,7 @@ repeat_directive:
 	je	zero_repeat
 	jl	negative_repeat
 	call	allocate_structure_data
-	mov	word [ebx],repeat_directive-assembler
+	mov	word [ebx],repeat_directive-instruction_handler
 	xchg	eax,[counter_limit]
 	mov	[ebx+10h],eax
 	mov	eax,1
@@ -1038,14 +1045,14 @@ repeat_directive:
 	jmp	instruction_assembled
       find_end_repeat:
 	call	find_structure_end
-	cmp	ax,repeat_directive-assembler
+	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-assembler
+	mov	word [ebx],while_directive-instruction_handler
 	mov	eax,1
 	xchg	eax,[counter]
 	mov	[ebx+10h],eax
@@ -1085,7 +1092,7 @@ while_directive:
 	jmp	do_while
       find_end_while:
 	call	find_structure_end
-	cmp	ax,while_directive-assembler
+	cmp	ax,while_directive-instruction_handler
 	jne	unexpected_instruction
 	ret
 if_directive:
@@ -1105,7 +1112,7 @@ if_directive:
 	mov	al,[esi]
 	cmp	al,1
 	jne	else_true
-	cmp	word [esi+1],if_directive-assembler
+	cmp	word [esi+1],if_directive-instruction_handler
 	jne	else_true
 	add	esi,4
 	jmp	if_directive
@@ -1113,7 +1120,7 @@ if_directive:
 	xor	al,al
       make_if_structure:
 	call	allocate_structure_data
-	mov	word [ebx],if_directive-assembler
+	mov	word [ebx],if_directive-instruction_handler
 	mov	byte [ebx+2],al
 	mov	eax,[current_line]
 	mov	[ebx+4],eax
@@ -1128,7 +1135,7 @@ if_directive:
       else_directive:
 	cmp	[prefixed_instruction],0
 	jne	unexpected_instruction
-	mov	ax,if_directive-assembler
+	mov	ax,if_directive-instruction_handler
 	call	find_structure_data
 	jc	unexpected_instruction
 	cmp	byte [ebx+2],0
@@ -1137,7 +1144,7 @@ if_directive:
 	mov	al,[esi]
 	cmp	al,1
 	jne	skip_else
-	cmp	word [esi+1],if_directive-assembler
+	cmp	word [esi+1],if_directive-instruction_handler
 	jne	skip_else
 	add	esi,4
 	call	find_else
@@ -1161,9 +1168,9 @@ if_directive:
 	jmp	instruction_assembled
       find_else:
 	call	find_structure_end
-	cmp	ax,else_directive-assembler
+	cmp	ax,else_directive-instruction_handler
 	je	else_found
-	cmp	ax,if_directive-assembler
+	cmp	ax,if_directive-instruction_handler
 	jne	unexpected_instruction
 	stc
 	ret
@@ -1172,7 +1179,7 @@ if_directive:
 	ret
       find_end_if:
 	call	find_structure_end
-	cmp	ax,if_directive-assembler
+	cmp	ax,if_directive-instruction_handler
 	jne	unexpected_instruction
 	ret
       find_structure_end:
@@ -1195,28 +1202,28 @@ if_directive:
 	cmp	byte [esi],1
 	jne	find_end_directive
 	mov	ax,[esi+1]
-	cmp	ax,prefix_instruction-assembler
+	cmp	ax,prefix_instruction-instruction_handler
 	je	find_end_directive
 	add	esi,4
-	cmp	ax,repeat_directive-assembler
+	cmp	ax,repeat_directive-instruction_handler
 	je	skip_repeat
-	cmp	ax,while_directive-assembler
+	cmp	ax,while_directive-instruction_handler
 	je	skip_while
-	cmp	ax,if_directive-assembler
+	cmp	ax,if_directive-instruction_handler
 	je	skip_if
-	cmp	ax,else_directive-assembler
+	cmp	ax,else_directive-instruction_handler
 	je	structure_end
-	cmp	ax,end_directive-assembler
+	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-assembler
+	cmp	ax,repeat_directive-instruction_handler
 	je	structure_end
-	cmp	ax,while_directive-assembler
+	cmp	ax,while_directive-instruction_handler
 	je	structure_end
-	cmp	ax,if_directive-assembler
+	cmp	ax,if_directive-instruction_handler
 	jne	find_end_directive
       structure_end:
 	pop	[error_line]
@@ -1239,7 +1246,7 @@ if_directive:
 	jc	if_block_skipped
 	cmp	byte [esi],1
 	jne	skip_after_else
-	cmp	word [esi+1],if_directive-assembler
+	cmp	word [esi+1],if_directive-instruction_handler
 	jne	skip_after_else
 	add	esi,4
 	jmp	skip_if_block
@@ -1253,15 +1260,15 @@ end_directive:
 	jne	invalid_argument
 	lods	word [esi]
 	inc	esi
-	cmp	ax,virtual_directive-assembler
+	cmp	ax,virtual_directive-instruction_handler
 	je	end_virtual
-	cmp	ax,repeat_directive-assembler
+	cmp	ax,repeat_directive-instruction_handler
 	je	end_repeat
-	cmp	ax,while_directive-assembler
+	cmp	ax,while_directive-instruction_handler
 	je	end_while
-	cmp	ax,if_directive-assembler
+	cmp	ax,if_directive-instruction_handler
 	je	end_if
-	cmp	ax,data_directive-assembler
+	cmp	ax,data_directive-instruction_handler
 	je	end_data
 	jmp	invalid_argument
 break_directive:
@@ -1275,11 +1282,11 @@ break_directive:
 	cmp	ebx,[additional_memory_end]
 	je	unexpected_instruction
 	mov	ax,[ebx]
-	cmp	ax,repeat_directive-assembler
+	cmp	ax,repeat_directive-instruction_handler
 	je	break_repeat
-	cmp	ax,while_directive-assembler
+	cmp	ax,while_directive-instruction_handler
 	je	break_while
-	cmp	ax,if_directive-assembler
+	cmp	ax,if_directive-instruction_handler
 	je	break_if
 	add	ebx,20h
 	jmp	find_breakable_structure
@@ -1688,6 +1695,7 @@ data_file:
 	pop	ebx
 	mov	edx,eax
 	sub	[esp],edx
+	jc	value_out_of_range
       position_ok:
 	cmp	byte [esi],','
 	jne	size_ok
@@ -1700,6 +1708,8 @@ data_file:
 	push	ebx edx
 	call	get_dword_value
 	pop	edx ebx
+	cmp	eax,[esp]
+	ja	value_out_of_range
 	mov	[esp],eax
       size_ok:
 	xor	al,al
diff --git a/programs/develop/fasm/trunk/expressi.inc b/programs/develop/fasm/trunk/expressi.inc
index 46af470242..e748955c15 100644
--- a/programs/develop/fasm/trunk/expressi.inc
+++ b/programs/develop/fasm/trunk/expressi.inc
@@ -76,8 +76,18 @@ convert_expression:
 
 convert_number:
 	lea	eax,[edi-10h]
-	cmp	eax,[labels_list]
+	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
@@ -111,11 +121,6 @@ convert_number:
 	scas	word [edi]
 	ret
       expression_value:
-	mov	eax,esp
-	sub	eax,100h
-	jc	stack_overflow
-	cmp	eax,[stack_limit]
-	jb	stack_overflow
 	inc	esi
 	push	[current_offset]
 	call	convert_expression
@@ -125,6 +130,8 @@ convert_number:
 	jne	invalid_expression
 	ret
       symbol_value:
+	cmp	[source_start],0
+	je	preprocessor_value
 	push	edi
 	mov	edi,address_registers
 	call	get_operator
@@ -153,6 +160,23 @@ convert_number:
 	mov	byte [edi-1],10h
 	stos	byte [edi]
 	ret
+      preprocessor_value:
+	dec	edi
+	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
@@ -1043,7 +1067,12 @@ calculate_expression:
 	jmp	calculation_loop
       timestamp_label:
 	call	make_timestamp
-	jmp	make_dword_label_value
+      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
diff --git a/programs/develop/fasm/trunk/formats.inc b/programs/develop/fasm/trunk/formats.inc
index 1c1b93c7c6..62f088fc70 100644
--- a/programs/develop/fasm/trunk/formats.inc
+++ b/programs/develop/fasm/trunk/formats.inc
@@ -133,7 +133,7 @@ formatter:
 	mov	[edi],ecx
 	or	dword [edi+4],-1
 	sub	edi,ecx
-	cmp	edi,[esp]
+	cmp	edi,[current_offset]
 	jbe	out_of_memory
 	mov	[display_buffer],edi
 	mov	esi,[memory_end]
@@ -1301,7 +1301,7 @@ data_directive:
 	or	ecx,ecx
 	jnz	data_already_defined
 	call	allocate_structure_data
-	mov	word [ebx],data_directive-assembler
+	mov	word [ebx],data_directive-instruction_handler
 	mov	[ebx+2],al
 	mov	edx,[current_line]
 	mov	[ebx+4],edx
@@ -3591,6 +3591,18 @@ elf_formatter:
 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
@@ -3643,6 +3655,18 @@ format_elf_exe:
       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
@@ -3748,6 +3772,8 @@ 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]
@@ -3766,6 +3792,25 @@ elf_segment:
 	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]
@@ -3824,8 +3869,11 @@ elf_segment:
 	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:
@@ -3850,6 +3898,8 @@ elf_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]
@@ -3868,6 +3918,25 @@ elf_segment:
 	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]
@@ -3929,17 +3998,16 @@ elf_segment:
 	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
-	sub	eax,1
-	sbb	edx,0
-	shrd	eax,edx,12
-	shr	edx,12
-	add	eax,1
+	add	eax,0FFFh
 	adc	edx,0
-	shld	edx,eax,12
-	shl	eax,12
+      elf64_segment_position_ok:
+	and	eax,not 0FFFh
 	ret
+
 close_elf_exe:
 	test	[format_flags],8
 	jnz	close_elf64_exe
@@ -4149,8 +4217,26 @@ dump_symbols:
 	sub	[esi+12],eax
       prepare_next_preprocessed_line:
 	add	esi,16
-	call	skip_foreign_line
+      skip_preprocessed_line:
+	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
 	jmp	prepare_preprocessed_source
+      skip_preprocessed_string:
+	lods	dword [esi]
+	add	esi,eax
+	jmp	skip_preprocessed_line
+      skip_preprocessed_symbol:
+	lods	byte [esi]
+	movzx	eax,al
+	add	esi,eax
+	jmp	skip_preprocessed_line
       preprocessed_source_ok:
 	mov	esi,[labels_list]
 	mov	ebp,edi
diff --git a/programs/develop/fasm/trunk/parser.inc b/programs/develop/fasm/trunk/parser.inc
index e143cfc21f..5b60ca2bc2 100644
--- a/programs/develop/fasm/trunk/parser.inc
+++ b/programs/develop/fasm/trunk/parser.inc
@@ -104,15 +104,15 @@ parser:
 	stos	word [edi]
 	mov	al,dl
 	stos	byte [edi]
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	je	parse_block
-	cmp	bx,repeat_directive-assembler
+	cmp	bx,repeat_directive-instruction_handler
 	je	parse_block
-	cmp	bx,while_directive-assembler
+	cmp	bx,while_directive-instruction_handler
 	je	parse_block
-	cmp	bx,end_directive-assembler
+	cmp	bx,end_directive-instruction_handler
 	je	parse_end_directive
-	cmp	bx,else_directive-assembler
+	cmp	bx,else_directive-instruction_handler
 	je	parse_else
       common_parse:
 	call	parse_line_contents
@@ -159,9 +159,9 @@ parser:
 	shl	eax,16
 	push	eax
 	inc	[blocks_stack]
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	je	parse_if
-	cmp	bx,while_directive-assembler
+	cmp	bx,while_directive-instruction_handler
 	je	parse_while
 	call	parse_line_contents
 	jmp	parse_next_line
@@ -188,11 +188,11 @@ parser:
 	lods	byte [esi]
 	or	al,al
 	jnz	extra_characters_on_line
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	je	close_parsing_block
-	cmp	bx,repeat_directive-assembler
+	cmp	bx,repeat_directive-instruction_handler
 	je	close_parsing_block
-	cmp	bx,while_directive-assembler
+	cmp	bx,while_directive-instruction_handler
 	je	close_parsing_block
 	jmp	parse_next_line
       close_parsing_block:
@@ -202,7 +202,7 @@ parser:
 	jne	unexpected_instruction
 	dec	[blocks_stack]
 	pop	eax edx
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	jne	parse_next_line
 	test	al,1100b
 	jz	parse_next_line
@@ -251,7 +251,7 @@ parser:
       parse_else:
 	cmp	[blocks_stack],0
 	je	unexpected_instruction
-	cmp	word [esp+2],if_directive-assembler
+	cmp	word [esp+2],if_directive-instruction_handler
 	jne	unexpected_instruction
 	lods	byte [esi]
 	or	al,al
@@ -264,7 +264,7 @@ parser:
 	call	get_instruction
 	jc	extra_characters_on_line
 	pop	edi
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	jne	extra_characters_on_line
 	test	byte [esp],100b
 	jnz	skip_true_condition_else
@@ -311,15 +311,15 @@ parser:
 	lea	esi,[esi+ecx+1]
 	jmp	skip_parsing_line
       skip_parsing_instruction:
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	je	skip_parsing_block
-	cmp	bx,repeat_directive-assembler
+	cmp	bx,repeat_directive-instruction_handler
 	je	skip_parsing_block
-	cmp	bx,while_directive-assembler
+	cmp	bx,while_directive-instruction_handler
 	je	skip_parsing_block
-	cmp	bx,end_directive-assembler
+	cmp	bx,end_directive-instruction_handler
 	je	skip_parsing_end_directive
-	cmp	bx,else_directive-assembler
+	cmp	bx,else_directive-instruction_handler
 	je	skip_parsing_else
       skip_parsing_contents:
 	lods	byte [esi]
@@ -369,11 +369,11 @@ parser:
 	lods	byte [esi]
 	or	al,al
 	jnz	extra_characters_on_line
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	je	close_skip_parsing_block
-	cmp	bx,repeat_directive-assembler
+	cmp	bx,repeat_directive-instruction_handler
 	je	close_skip_parsing_block
-	cmp	bx,while_directive-assembler
+	cmp	bx,while_directive-instruction_handler
 	je	close_skip_parsing_block
 	jmp	skip_parsing
       close_skip_parsing_block:
@@ -385,7 +385,7 @@ parser:
 	pop	eax edx
 	test	al,1
 	jz	skip_parsing
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	jne	parse_next_line
 	test	al,10000b
 	jz	parse_next_line
@@ -394,15 +394,15 @@ parser:
 	mov	eax,[current_line]
 	stos	dword [edi]
 	inc	[parsed_lines]
-	mov	eax,1 + (end_directive-assembler) shl 8
+	mov	eax,1 + (end_directive-instruction_handler) shl 8
 	stos	dword [edi]
-	mov	eax,1 + (if_directive-assembler) shl 8
+	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-assembler
+	cmp	word [esp+2],if_directive-instruction_handler
 	jne	unexpected_instruction
 	lods	byte [esi]
 	or	al,al
@@ -415,7 +415,7 @@ parser:
 	call	get_instruction
 	jc	extra_characters_on_line
 	pop	edi
-	cmp	bx,if_directive-assembler
+	cmp	bx,if_directive-instruction_handler
 	jne	extra_characters_on_line
 	mov	al,[esp]
 	test	al,1
@@ -432,7 +432,7 @@ parser:
 	stos	dword [edi]
 	inc	[parsed_lines]
       parse_else_if:
-	mov	eax,1 + (if_directive-assembler) shl 8
+	mov	eax,1 + (if_directive-instruction_handler) shl 8
 	stos	dword [edi]
 	jmp	parse_if
       skip_parsing_pure_else:
@@ -451,21 +451,21 @@ parser:
 parse_line_contents:
 	mov	[parenthesis_stack],0
       parse_instruction_arguments:
-	cmp	bx,prefix_instruction-assembler
+	cmp	bx,prefix_instruction-instruction_handler
 	je	allow_embedded_instruction
-	cmp	bx,times_directive-assembler
+	cmp	bx,times_directive-instruction_handler
 	je	parse_times_directive
-	cmp	bx,end_directive-assembler
+	cmp	bx,end_directive-instruction_handler
 	je	allow_embedded_instruction
-	cmp	bx,label_directive-assembler
+	cmp	bx,label_directive-instruction_handler
 	je	parse_label_directive
-	cmp	bx,segment_directive-assembler
+	cmp	bx,segment_directive-instruction_handler
 	je	parse_label_directive
-	cmp	bx,load_directive-assembler
+	cmp	bx,load_directive-instruction_handler
 	je	parse_load_directive
-	cmp	bx,extrn_directive-assembler
+	cmp	bx,extrn_directive-instruction_handler
 	je	parse_extrn_directive
-	cmp	bx,public_directive-assembler
+	cmp	bx,public_directive-instruction_handler
 	je	parse_public_directive
       parse_argument:
 	lea	eax,[edi+100h]
diff --git a/programs/develop/fasm/trunk/preproce.inc b/programs/develop/fasm/trunk/preproce.inc
index af37e4ae07..59f0fe0b12 100644
--- a/programs/develop/fasm/trunk/preproce.inc
+++ b/programs/develop/fasm/trunk/preproce.inc
@@ -37,6 +37,7 @@ preprocessor:
 	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
@@ -375,12 +376,14 @@ get_directive:
 	ret
       directive_ok:
 	lea	esi,[edx+ebp]
+	call	directive_handler
+      directive_handler:
+	pop	ecx
 	movzx	eax,word [ebx]
-	add	eax,preprocessor
+	add	eax,ecx
 	clc
 	ret
 
-
 preprocess_line:
 	mov	eax,esp
 	sub	eax,100h
@@ -756,24 +759,20 @@ add_preprocessor_symbol:
 define_fix_constant:
 	add	edx,5
 	add	esi,2
-	push	edx esi
-	mov	esi,edx
-	call	skip_parameters
-	xchg	esi,[esp]
+	push	edx
 	mov	ch,11b
 	jmp	define_preprocessor_constant
 define_equ_constant:
 	add	esi,3
 	push	esi
 	call	process_equ_constants
-	push	esi
 	mov	esi,[struc_name]
 	mov	ch,10b
       define_preprocessor_constant:
 	mov	byte [esi-2],3Bh
 	mov	cl,[esi-1]
 	call	add_preprocessor_symbol
-	pop	esi ebx
+	pop	ebx
 	mov	ecx,edi
 	dec	ecx
 	sub	ecx,ebx
@@ -790,34 +789,11 @@ define_symbolic_constant:
 	call	add_preprocessor_symbol
 	movzx	eax,byte [esi-1]
 	add	esi,eax
-	push	esi edx
-	call	skip_parameters
-	pop	edx ebx
-	lea	ecx,[esi-1]
-	sub	ecx,ebx
-	mov	[edx+8],ebx
+	lea	ecx,[edi-1]
+	sub	ecx,esi
+	mov	[edx+8],esi
 	mov	[edx+12],ecx
 	jmp	line_preprocessed
-      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:
-	ret
 
 define_struc:
 	mov	ch,1
@@ -959,8 +935,25 @@ define_instant_macro:
 	mov	[instant_macro_start],esi
 	cmp	[base_code],10h
 	je	prepare_match
-	call	skip_parameters
-      instant_macro_parameters_skipped:
+      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]
@@ -973,7 +966,7 @@ prepare_match:
 	call	skip_pattern
 	mov	[value_type],80h+10b
 	call	process_symbolic_constants
-	jmp	instant_macro_parameters_skipped
+	jmp	parameters_skipped
       skip_pattern:
 	lods	byte [esi]
 	or	al,al
@@ -1522,15 +1515,9 @@ use_instant_macro:
 	jae	do_match
 	cmp	[base_code],0
 	jne	do_irp
-	call	get_number
-	jc	invalid_value
-	or	ebp,ebp
-	jnz	invalid_value
-	cmp	dword [edi+4],0
-	jne	value_out_of_range
-	mov	eax,[edi]
-	cmp	eax,80000000h
-	jae	value_out_of_range
+	call	precalculate_value
+	cmp	eax,0
+	jl	value_out_of_range
 	push	[free_additional_memory]
 	push	[macro_symbols]
 	mov	[macro_symbols],0
@@ -1558,16 +1545,10 @@ use_instant_macro:
 	cmp	al,':'
 	jne	rept_counter_added
 	push	edx
-	call	get_number
-	jc	invalid_value
-	or	ebp,ebp
-	jnz	invalid_value
-	cmp	dword [edi+4],0
-	jne	value_out_of_range
-	mov	eax,[edi]
+	call	precalculate_value
 	mov	edx,eax
 	add	edx,[counter_limit]
-	jc	value_out_of_range
+	jo	value_out_of_range
 	pop	edx
 	mov	dword [edx+8],eax
 	lods	byte [esi]
@@ -1606,6 +1587,21 @@ use_instant_macro:
 	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]
+	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
@@ -1977,10 +1973,10 @@ process_macro:
       replace_macro_symbol:
 	pop	edi eax
 	mov	ecx,[edx+8]
-	and	ecx,not 80000000h
 	mov	edx,[edx+12]
 	or	edx,edx
 	jz	replace_macro_counter
+	and	ecx,not 80000000h
 	xchg	esi,edx
 	call	move_data
 	mov	esi,edx
@@ -2057,6 +2053,12 @@ process_macro:
 	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
diff --git a/programs/develop/fasm/trunk/tables.inc b/programs/develop/fasm/trunk/tables.inc
index 047193e163..aa160ef79e 100644
--- a/programs/develop/fasm/trunk/tables.inc
+++ b/programs/develop/fasm/trunk/tables.inc
@@ -10,38 +10,38 @@ symbol_characters db 27
 
 preprocessor_directives:
  db 6,'define'
- dw define_symbolic_constant-preprocessor
+ dw define_symbolic_constant-directive_handler
  db 7,'include'
- dw include_file-preprocessor
+ dw include_file-directive_handler
  db 3,'irp'
- dw irp_directive-preprocessor
+ dw irp_directive-directive_handler
  db 4,'irps'
- dw irps_directive-preprocessor
+ dw irps_directive-directive_handler
  db 5,'macro'
- dw define_macro-preprocessor
+ dw define_macro-directive_handler
  db 5,'match'
- dw match_directive-preprocessor
+ dw match_directive-directive_handler
  db 5,'purge'
- dw purge_macro-preprocessor
+ dw purge_macro-directive_handler
  db 4,'rept'
- dw rept_directive-preprocessor
+ dw rept_directive-directive_handler
  db 7,'restore'
- dw restore_equ_constant-preprocessor
+ dw restore_equ_constant-directive_handler
  db 7,'restruc'
- dw purge_struc-preprocessor
+ dw purge_struc-directive_handler
  db 5,'struc'
- dw define_struc-preprocessor
+ dw define_struc-directive_handler
  db 0
 
 macro_directives:
  db 6,'common'
- dw common_block-preprocessor
+ dw common_block-directive_handler
  db 7,'forward'
- dw forward_block-preprocessor
+ dw forward_block-directive_handler
  db 5,'local'
- dw local_symbols-preprocessor
+ dw local_symbols-directive_handler
  db 7,'reverse'
- dw reverse_block-preprocessor
+ dw reverse_block-directive_handler
  db 0
 
 operators:
@@ -274,6 +274,7 @@ symbols_4:
  db 'dr15',10h,7Fh
  db 'ms64',17h,49h
  db 'near',12h,2
+ db 'note',1Eh,4
  db 'pe64',18h,38h
  db 'r10b',10h,1Ah
  db 'r10d',10h,4Ah
@@ -339,6 +340,7 @@ symbols_6:
  db 'static',1Dh,1
 symbols_7:
  db 'console',1Bh,3
+ db 'dynamic',1Eh,2
  db 'efiboot',1Bh,11
 symbols_8:
  db 'linkinfo',19h,9
@@ -354,6 +356,7 @@ symbols_10:
  db 'linkremove',19h,11
 symbols_11:
  db 'discardable',19h,25
+ db 'interpreter',1Eh,3
  db 'notpageable',19h,27
 symbols_end:
 
@@ -371,1618 +374,1620 @@ instructions:
 
 instructions_2:
  db 'bt',4
- dw bt_instruction-assembler
+ dw bt_instruction-instruction_handler
  db 'if',0
- dw if_directive-assembler
+ dw if_directive-instruction_handler
  db 'in',0
- dw in_instruction-assembler
+ dw in_instruction-instruction_handler
  db 'ja',77h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jb',72h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jc',72h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'je',74h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jg',7Fh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jl',7Ch
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jo',70h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jp',7Ah
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'js',78h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jz',74h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'or',08h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
 instructions_3:
  db 'aaa',37h
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'aad',0D5h
- dw aa_instruction-assembler
+ dw aa_instruction-instruction_handler
  db 'aam',0D4h
- dw aa_instruction-assembler
+ dw aa_instruction-instruction_handler
  db 'aas',3Fh
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'adc',10h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
  db 'add',00h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
  db 'and',20h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
  db 'bsf',0BCh
- dw bs_instruction-assembler
+ dw bs_instruction-instruction_handler
  db 'bsr',0BDh
- dw bs_instruction-assembler
+ dw bs_instruction-instruction_handler
  db 'btc',7
- dw bt_instruction-assembler
+ dw bt_instruction-instruction_handler
  db 'btr',6
- dw bt_instruction-assembler
+ dw bt_instruction-instruction_handler
  db 'bts',5
- dw bt_instruction-assembler
+ dw bt_instruction-instruction_handler
  db 'cbw',98h
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'cdq',99h
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'clc',0F8h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'cld',0FCh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'cli',0FAh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'cmc',0F5h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'cmp',38h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
  db 'cqo',99h
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'cwd',99h
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'daa',27h
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'das',2Fh
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'dec',1
- dw inc_instruction-assembler
+ dw inc_instruction-instruction_handler
  db 'div',6
- dw single_operand_instruction-assembler
+ dw single_operand_instruction-instruction_handler
  db 'end',0
- dw end_directive-assembler
+ dw end_directive-instruction_handler
  db 'err',0
- dw err_directive-assembler
+ dw err_directive-instruction_handler
  db 'fld',0
- dw fld_instruction-assembler
+ dw fld_instruction-instruction_handler
  db 'fst',2
- dw fld_instruction-assembler
+ dw fld_instruction-instruction_handler
  db 'hlt',0F4h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'inc',0
- dw inc_instruction-assembler
+ dw inc_instruction-instruction_handler
  db 'ins',6Ch
- dw ins_instruction-assembler
+ dw ins_instruction-instruction_handler
  db 'int',0CDh
- dw int_instruction-assembler
+ dw int_instruction-instruction_handler
  db 'jae',73h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jbe',76h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jge',7Dh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jle',7Eh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jmp',0
- dw jmp_instruction-assembler
+ dw jmp_instruction-instruction_handler
  db 'jna',76h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnb',73h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnc',73h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jne',75h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jng',7Eh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnl',7Dh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jno',71h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnp',7Bh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jns',79h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnz',75h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jpe',7Ah
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jpo',7Bh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'lar',2
- dw lar_instruction-assembler
+ dw lar_instruction-instruction_handler
  db 'lds',3
- dw ls_instruction-assembler
+ dw ls_instruction-instruction_handler
  db 'lea',0
- dw lea_instruction-assembler
+ dw lea_instruction-instruction_handler
  db 'les',0
- dw ls_instruction-assembler
+ dw ls_instruction-instruction_handler
  db 'lfs',4
- dw ls_instruction-assembler
+ dw ls_instruction-instruction_handler
  db 'lgs',5
- dw ls_instruction-assembler
+ dw ls_instruction-instruction_handler
  db 'lsl',3
- dw lar_instruction-assembler
+ dw lar_instruction-instruction_handler
  db 'lss',2
- dw ls_instruction-assembler
+ dw ls_instruction-instruction_handler
  db 'ltr',3
- dw pm_word_instruction-assembler
+ dw pm_word_instruction-instruction_handler
  db 'mov',0
- dw mov_instruction-assembler
+ dw mov_instruction-instruction_handler
  db 'mul',4
- dw single_operand_instruction-assembler
+ dw single_operand_instruction-instruction_handler
  db 'neg',3
- dw single_operand_instruction-assembler
+ dw single_operand_instruction-instruction_handler
  db 'nop',90h
- dw nop_instruction-assembler
+ dw nop_instruction-instruction_handler
  db 'not',2
- dw single_operand_instruction-assembler
+ dw single_operand_instruction-instruction_handler
  db 'org',0
- dw org_directive-assembler
+ dw org_directive-instruction_handler
  db 'out',0
- dw out_instruction-assembler
+ dw out_instruction-instruction_handler
  db 'pop',0
- dw pop_instruction-assembler
+ dw pop_instruction-instruction_handler
  db 'por',0EBh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'rcl',2
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'rcr',3
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'rep',0F3h
- dw prefix_instruction-assembler
+ dw prefix_instruction-instruction_handler
  db 'ret',0C2h
- dw ret_instruction-assembler
+ dw ret_instruction-instruction_handler
  db 'rol',0
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'ror',1
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'rsm',0AAh
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'sal',4
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'sar',7
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'sbb',18h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
  db 'shl',4
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'shr',5
- dw sh_instruction-assembler
+ dw sh_instruction-instruction_handler
  db 'stc',0F9h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'std',0FDh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'sti',0FBh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'str',1
- dw pm_store_word_instruction-assembler
+ dw pm_store_word_instruction-instruction_handler
  db 'sub',28h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
  db 'ud2',0Bh
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'xor',30h
- dw basic_instruction-assembler
+ dw basic_instruction-instruction_handler
 instructions_4:
  db 'arpl',0
- dw arpl_instruction-assembler
+ dw arpl_instruction-instruction_handler
  db 'call',0
- dw call_instruction-assembler
+ dw call_instruction-instruction_handler
  db 'cdqe',98h
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'clgi',0DDh
- dw simple_vmx_instruction-assembler
+ dw simple_vmx_instruction-instruction_handler
  db 'clts',6
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'cmps',0A6h
- dw cmps_instruction-assembler
+ dw cmps_instruction-instruction_handler
  db 'cwde',98h
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'data',0
- dw data_directive-assembler
+ dw data_directive-instruction_handler
  db 'dppd',41h
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'dpps',40h
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'else',0
- dw else_directive-assembler
+ dw else_directive-instruction_handler
  db 'emms',77h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'fabs',100001b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fadd',0
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'fbld',4
- dw fbld_instruction-assembler
+ dw fbld_instruction-instruction_handler
  db 'fchs',100000b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fcom',2
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'fcos',111111b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fdiv',6
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'feni',0E0h
- dw finit_instruction-assembler
+ dw finit_instruction-instruction_handler
  db 'fild',0
- dw fild_instruction-assembler
+ dw fild_instruction-instruction_handler
  db 'fist',2
- dw fild_instruction-assembler
+ dw fild_instruction-instruction_handler
  db 'fld1',101000b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fldz',101110b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fmul',1
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'fnop',010000b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fsin',111110b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fstp',3
- dw fld_instruction-assembler
+ dw fld_instruction-instruction_handler
  db 'fsub',4
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'ftst',100100b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fxam',100101b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fxch',0
- dw fxch_instruction-assembler
+ dw fxch_instruction-instruction_handler
  db 'heap',0
- dw heap_directive-assembler
+ dw heap_directive-instruction_handler
  db 'idiv',7
- dw single_operand_instruction-assembler
+ dw single_operand_instruction-instruction_handler
  db 'imul',0
- dw imul_instruction-assembler
+ dw imul_instruction-instruction_handler
  db 'insb',6Ch
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'insd',6Dh
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'insw',6Dh
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'int1',0F1h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'int3',0CCh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'into',0CEh
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'invd',8
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'iret',0CFh
- dw iret_instruction-assembler
+ dw iret_instruction-instruction_handler
  db 'jcxz',0E3h
- dw loop_instruction_16bit-assembler
+ dw loop_instruction_16bit-instruction_handler
  db 'jnae',72h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnbe',77h
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnge',7Ch
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'jnle',7Fh
- dw conditional_jump-assembler
+ dw conditional_jump-instruction_handler
  db 'lahf',9Fh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'lgdt',2
- dw lgdt_instruction-assembler
+ dw lgdt_instruction-instruction_handler
  db 'lidt',3
- dw lgdt_instruction-assembler
+ dw lgdt_instruction-instruction_handler
  db 'lldt',2
- dw pm_word_instruction-assembler
+ dw pm_word_instruction-instruction_handler
  db 'lmsw',16h
- dw pm_word_instruction-assembler
+ dw pm_word_instruction-instruction_handler
  db 'load',0
- dw load_directive-assembler
+ dw load_directive-instruction_handler
  db 'lock',0F0h
- dw prefix_instruction-assembler
+ dw prefix_instruction-instruction_handler
  db 'lods',0ACh
- dw lods_instruction-assembler
+ dw lods_instruction-instruction_handler
  db 'loop',0E2h
- dw loop_instruction-assembler
+ dw loop_instruction-instruction_handler
  db 'movd',0
- dw movd_instruction-assembler
+ dw movd_instruction-instruction_handler
  db 'movq',0
- dw movq_instruction-assembler
+ dw movq_instruction-instruction_handler
  db 'movs',0A4h
- dw movs_instruction-assembler
+ dw movs_instruction-instruction_handler
  db 'orpd',56h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'orps',56h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'outs',6Eh
- dw outs_instruction-assembler
+ dw outs_instruction-instruction_handler
  db 'pand',0DBh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'popa',61h
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'popd',4
- dw pop_instruction-assembler
+ dw pop_instruction-instruction_handler
  db 'popf',9Dh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'popq',8
- dw pop_instruction-assembler
+ dw pop_instruction-instruction_handler
  db 'popw',2
- dw pop_instruction-assembler
+ dw pop_instruction-instruction_handler
  db 'push',0
- dw push_instruction-assembler
+ dw push_instruction-instruction_handler
  db 'pxor',0EFh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'repe',0F3h
- dw prefix_instruction-assembler
+ dw prefix_instruction-instruction_handler
  db 'repz',0F3h
- dw prefix_instruction-assembler
+ dw prefix_instruction-instruction_handler
  db 'retd',0C2h
- dw ret_instruction_32bit_except64-assembler
+ dw ret_instruction_32bit_except64-instruction_handler
  db 'retf',0CAh
- dw retf_instruction-assembler
+ dw retf_instruction-instruction_handler
  db 'retn',0C2h
- dw ret_instruction-assembler
+ dw ret_instruction-instruction_handler
  db 'retq',0C2h
- dw ret_instruction_only64-assembler
+ dw ret_instruction_only64-instruction_handler
  db 'retw',0C2h
- dw ret_instruction_16bit-assembler
+ dw ret_instruction_16bit-instruction_handler
  db 'sahf',9Eh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'salc',0D6h
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'scas',0AEh
- dw stos_instruction-assembler
+ dw stos_instruction-instruction_handler
  db 'seta',97h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setb',92h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setc',92h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'sete',94h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setg',9Fh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setl',9Ch
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'seto',90h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setp',9Ah
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'sets',98h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setz',94h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'sgdt',0
- dw lgdt_instruction-assembler
+ dw lgdt_instruction-instruction_handler
  db 'shld',0A4h
- dw shd_instruction-assembler
+ dw shd_instruction-instruction_handler
  db 'shrd',0ACh
- dw shd_instruction-assembler
+ dw shd_instruction-instruction_handler
  db 'sidt',1
- dw lgdt_instruction-assembler
+ dw lgdt_instruction-instruction_handler
  db 'sldt',0
- dw pm_store_word_instruction-assembler
+ dw pm_store_word_instruction-instruction_handler
  db 'smsw',14h
- dw pm_store_word_instruction-assembler
+ dw pm_store_word_instruction-instruction_handler
  db 'stgi',0DCh
- dw simple_vmx_instruction-assembler
+ dw simple_vmx_instruction-instruction_handler
  db 'stos',0AAh
- dw stos_instruction-assembler
+ dw stos_instruction-instruction_handler
  db 'test',0
- dw test_instruction-assembler
+ dw test_instruction-instruction_handler
  db 'verr',4
- dw pm_word_instruction-assembler
+ dw pm_word_instruction-instruction_handler
  db 'verw',5
- dw pm_word_instruction-assembler
+ dw pm_word_instruction-instruction_handler
  db 'wait',9Bh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'xadd',0C0h
- dw basic_486_instruction-assembler
+ dw basic_486_instruction-instruction_handler
  db 'xchg',0
- dw xchg_instruction-assembler
+ dw xchg_instruction-instruction_handler
  db 'xlat',0D7h
- dw xlat_instruction-assembler
+ dw xlat_instruction-instruction_handler
 instructions_5:
  db 'addpd',58h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'addps',58h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'addsd',58h
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'addss',58h
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'align',0
- dw align_directive-assembler
+ dw align_directive-instruction_handler
  db 'andpd',54h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'andps',54h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'bound',0
- dw bound_instruction-assembler
+ dw bound_instruction-instruction_handler
  db 'break',0
- dw break_directive-assembler
+ dw break_directive-instruction_handler
  db 'bswap',0
- dw bswap_instruction-assembler
+ dw bswap_instruction-instruction_handler
  db 'cmova',47h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovb',42h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovc',42h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmove',44h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovg',4Fh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovl',4Ch
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovo',40h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovp',4Ah
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovs',48h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovz',44h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmppd',0
- dw cmppd_instruction-assembler
+ dw cmppd_instruction-instruction_handler
  db 'cmpps',0
- dw cmpps_instruction-assembler
+ dw cmpps_instruction-instruction_handler
  db 'cmpsb',0A6h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'cmpsd',0
- dw cmpsd_instruction-assembler
+ dw cmpsd_instruction-instruction_handler
  db 'cmpsq',0A7h
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'cmpss',0
- dw cmpss_instruction-assembler
+ dw cmpss_instruction-instruction_handler
  db 'cmpsw',0A7h
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'cpuid',0A2h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'crc32',0
- dw crc32_instruction-assembler
+ dw crc32_instruction-instruction_handler
  db 'divpd',5Eh
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'divps',5Eh
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'divsd',5Eh
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'divss',5Eh
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'enter',0
- dw enter_instruction-assembler
+ dw enter_instruction-instruction_handler
  db 'entry',0
- dw entry_directive-assembler
+ dw entry_directive-instruction_handler
  db 'extrn',0
- dw extrn_directive-assembler
+ dw extrn_directive-instruction_handler
  db 'extrq',0
- dw extrq_instruction-assembler
+ dw extrq_instruction-instruction_handler
  db 'f2xm1',110000b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'faddp',0
- dw faddp_instruction-assembler
+ dw faddp_instruction-instruction_handler
  db 'fbstp',6
- dw fbld_instruction-assembler
+ dw fbld_instruction-instruction_handler
  db 'fclex',0E2h
- dw finit_instruction-assembler
+ dw finit_instruction-instruction_handler
  db 'fcomi',0F0h
- dw fcomi_instruction-assembler
+ dw fcomi_instruction-instruction_handler
  db 'fcomp',3
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'fdisi',0E1h
- dw finit_instruction-assembler
+ dw finit_instruction-instruction_handler
  db 'fdivp',7
- dw faddp_instruction-assembler
+ dw faddp_instruction-instruction_handler
  db 'fdivr',7
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'femms',0Eh
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'ffree',0
- dw ffree_instruction-assembler
+ dw ffree_instruction-instruction_handler
  db 'fiadd',0
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'ficom',2
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'fidiv',6
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'fimul',1
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'finit',0E3h
- dw finit_instruction-assembler
+ dw finit_instruction-instruction_handler
  db 'fistp',3
- dw fild_instruction-assembler
+ dw fild_instruction-instruction_handler
  db 'fisub',4
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'fldcw',5
- dw fldcw_instruction-assembler
+ dw fldcw_instruction-instruction_handler
  db 'fldpi',101011b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fmulp',1
- dw faddp_instruction-assembler
+ dw faddp_instruction-instruction_handler
  db 'fneni',0E0h
- dw fninit_instruction-assembler
+ dw fninit_instruction-instruction_handler
  db 'fprem',111000b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fptan',110010b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fsave',6
- dw fsave_instruction-assembler
+ dw fsave_instruction-instruction_handler
  db 'fsqrt',111010b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fstcw',7
- dw fstcw_instruction-assembler
+ dw fstcw_instruction-instruction_handler
  db 'fstsw',0
- dw fstsw_instruction-assembler
+ dw fstsw_instruction-instruction_handler
  db 'fsubp',5
- dw faddp_instruction-assembler
+ dw faddp_instruction-instruction_handler
  db 'fsubr',5
- dw basic_fpu_instruction-assembler
+ dw basic_fpu_instruction-instruction_handler
  db 'fucom',4
- dw ffree_instruction-assembler
+ dw ffree_instruction-instruction_handler
  db 'fwait',9Bh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'fyl2x',110001b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'icebp',0F1h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'iretd',0CFh
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'iretq',0CFh
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'iretw',0CFh
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'jecxz',0E3h
- dw loop_instruction_32bit-assembler
+ dw loop_instruction_32bit-instruction_handler
  db 'jrcxz',0E3h
- dw loop_instruction_64bit-assembler
+ dw loop_instruction_64bit-instruction_handler
  db 'label',0
- dw label_directive-assembler
+ dw label_directive-instruction_handler
  db 'lddqu',0
- dw lddqu_instruction-assembler
+ dw lddqu_instruction-instruction_handler
  db 'leave',0C9h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'lodsb',0ACh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'lodsd',0ADh
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'lodsq',0ADh
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'lodsw',0ADh
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'loopd',0E2h
- dw loop_instruction_32bit-assembler
+ dw loop_instruction_32bit-instruction_handler
  db 'loope',0E1h
- dw loop_instruction-assembler
+ dw loop_instruction-instruction_handler
  db 'loopq',0E2h
- dw loop_instruction_64bit-assembler
+ dw loop_instruction_64bit-instruction_handler
  db 'loopw',0E2h
- dw loop_instruction_16bit-assembler
+ dw loop_instruction_16bit-instruction_handler
  db 'loopz',0E1h
- dw loop_instruction-assembler
+ dw loop_instruction-instruction_handler
  db 'lzcnt',0BDh
- dw popcnt_instruction-assembler
+ dw popcnt_instruction-instruction_handler
  db 'maxpd',5Fh
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'maxps',5Fh
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'maxsd',5Fh
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'maxss',5Fh
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'minpd',5Dh
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'minps',5Dh
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'minsd',5Dh
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'minss',5Dh
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
+ db 'movbe',0F0h
+ dw movbe_instruction-instruction_handler
  db 'movsb',0A4h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'movsd',0
- dw movsd_instruction-assembler
+ dw movsd_instruction-instruction_handler
  db 'movsq',0A5h
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'movss',0
- dw movss_instruction-assembler
+ dw movss_instruction-instruction_handler
  db 'movsw',0A5h
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'movsx',0BEh
- dw movx_instruction-assembler
+ dw movx_instruction-instruction_handler
  db 'movzx',0B6h
- dw movx_instruction-assembler
+ dw movx_instruction-instruction_handler
  db 'mulpd',59h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'mulps',59h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'mulsd',59h
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'mulss',59h
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'mwait',0C9h
- dw monitor_instruction-assembler
+ dw monitor_instruction-instruction_handler
  db 'outsb',6Eh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'outsd',6Fh
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'outsw',6Fh
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'pabsb',1Ch
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'pabsd',1Eh
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'pabsw',1Dh
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'paddb',0FCh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'paddd',0FEh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'paddq',0D4h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'paddw',0FDh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pandn',0DFh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pause',0
- dw pause_instruction-assembler
+ dw pause_instruction-instruction_handler
  db 'pavgb',0E0h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pavgw',0E3h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pf2id',1Dh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pf2iw',1Ch
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfacc',0AEh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfadd',9Eh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfmax',0A4h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfmin',94h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfmul',0B4h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfrcp',96h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfsub',9Ah
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pi2fd',0Dh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pi2fw',0Ch
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'popad',61h
- dw simple_instruction_32bit_except64-assembler
+ dw simple_instruction_32bit_except64-instruction_handler
  db 'popaw',61h
- dw simple_instruction_16bit_except64-assembler
+ dw simple_instruction_16bit_except64-instruction_handler
  db 'popfd',9Dh
- dw simple_instruction_32bit_except64-assembler
+ dw simple_instruction_32bit_except64-instruction_handler
  db 'popfq',9Dh
- dw simple_instruction_only64-assembler
+ dw simple_instruction_only64-instruction_handler
  db 'popfw',9Dh
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'pslld',0F2h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psllq',0F3h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psllw',0F1h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psrad',0E2h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psraw',0E1h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psrld',0D2h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psrlq',0D3h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psrlw',0D1h
- dw mmx_ps_instruction-assembler
+ dw mmx_ps_instruction-instruction_handler
  db 'psubb',0F8h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'psubd',0FAh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'psubq',0FBh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'psubw',0F9h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'ptest',17h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pusha',60h
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'pushd',4
- dw push_instruction-assembler
+ dw push_instruction-instruction_handler
  db 'pushf',9Ch
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'pushq',8
- dw push_instruction-assembler
+ dw push_instruction-instruction_handler
  db 'pushw',2
- dw push_instruction-assembler
+ dw push_instruction-instruction_handler
  db 'rcpps',53h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'rcpss',53h
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'rdmsr',32h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'rdpmc',33h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'rdtsc',31h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'repne',0F2h
- dw prefix_instruction-assembler
+ dw prefix_instruction-instruction_handler
  db 'repnz',0F2h
- dw prefix_instruction-assembler
+ dw prefix_instruction-instruction_handler
  db 'retfd',0CAh
- dw ret_instruction_32bit-assembler
+ dw ret_instruction_32bit-instruction_handler
  db 'retfq',0CAh
- dw ret_instruction_64bit-assembler
+ dw ret_instruction_64bit-instruction_handler
  db 'retfw',0CAh
- dw ret_instruction_16bit-assembler
+ dw ret_instruction_16bit-instruction_handler
  db 'retnd',0C2h
- dw ret_instruction_32bit_except64-assembler
+ dw ret_instruction_32bit_except64-instruction_handler
  db 'retnq',0C2h
- dw ret_instruction_only64-assembler
+ dw ret_instruction_only64-instruction_handler
  db 'retnw',0C2h
- dw ret_instruction_16bit-assembler
+ dw ret_instruction_16bit-instruction_handler
  db 'scasb',0AEh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'scasd',0AFh
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'scasq',0AFh
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'scasw',0AFh
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'setae',93h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setbe',96h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setge',9Dh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setle',9Eh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setna',96h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnb',93h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnc',93h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setne',95h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setng',9Eh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnl',9Dh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setno',91h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnp',9Bh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setns',99h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnz',95h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setpe',9Ah
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setpo',9Bh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'stack',0
- dw stack_directive-assembler
+ dw stack_directive-instruction_handler
  db 'store',0
- dw store_directive-assembler
+ dw store_directive-instruction_handler
  db 'stosb',0AAh
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'stosd',0ABh
- dw simple_instruction_32bit-assembler
+ dw simple_instruction_32bit-instruction_handler
  db 'stosq',0ABh
- dw simple_instruction_64bit-assembler
+ dw simple_instruction_64bit-instruction_handler
  db 'stosw',0ABh
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'subpd',5Ch
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'subps',5Ch
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'subsd',5Ch
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'subss',5Ch
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'times',0
- dw times_directive-assembler
+ dw times_directive-instruction_handler
  db 'vmrun',0D8h
- dw simple_svm_instruction-assembler
+ dw simple_svm_instruction-instruction_handler
  db 'vmxon',6
- dw vmxon_instruction-assembler
+ dw vmxon_instruction-instruction_handler
  db 'while',0
- dw while_directive-assembler
+ dw while_directive-instruction_handler
  db 'wrmsr',30h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'xlatb',0D7h
- dw simple_instruction-assembler
+ dw simple_instruction-instruction_handler
  db 'xorpd',57h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'xorps',57h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
 instructions_6:
  db 'andnpd',55h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'andnps',55h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'cmovae',43h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovbe',46h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovge',4Dh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovle',4Eh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovna',46h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnb',43h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnc',43h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovne',45h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovng',4Eh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnl',4Dh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovno',41h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnp',4Bh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovns',49h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnz',45h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovpe',4Ah
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovpo',4Bh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'comisd',2Fh
- dw comisd_instruction-assembler
+ dw comisd_instruction-instruction_handler
  db 'comiss',2Fh
- dw comiss_instruction-assembler
+ dw comiss_instruction-instruction_handler
  db 'fcmovb',0C0h
- dw fcmov_instruction-assembler
+ dw fcmov_instruction-instruction_handler
  db 'fcmove',0C8h
- dw fcmov_instruction-assembler
+ dw fcmov_instruction-instruction_handler
  db 'fcmovu',0D8h
- dw fcmov_instruction-assembler
+ dw fcmov_instruction-instruction_handler
  db 'fcomip',0F0h
- dw fcomip_instruction-assembler
+ dw fcomip_instruction-instruction_handler
  db 'fcompp',0
- dw fcompp_instruction-assembler
+ dw fcompp_instruction-instruction_handler
  db 'fdivrp',6
- dw faddp_instruction-assembler
+ dw faddp_instruction-instruction_handler
  db 'ffreep',0
- dw ffreep_instruction-assembler
+ dw ffreep_instruction-instruction_handler
  db 'ficomp',3
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'fidivr',7
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'fisttp',1
- dw fild_instruction-assembler
+ dw fild_instruction-instruction_handler
  db 'fisubr',5
- dw fi_instruction-assembler
+ dw fi_instruction-instruction_handler
  db 'fldenv',4
- dw fldenv_instruction-assembler
+ dw fldenv_instruction-instruction_handler
  db 'fldl2e',101010b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fldl2t',101001b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fldlg2',101100b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fldln2',101101b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fnclex',0E2h
- dw fninit_instruction-assembler
+ dw fninit_instruction-instruction_handler
  db 'fndisi',0E1h
- dw fninit_instruction-assembler
+ dw fninit_instruction-instruction_handler
  db 'fninit',0E3h
- dw fninit_instruction-assembler
+ dw fninit_instruction-instruction_handler
  db 'fnsave',6
- dw fnsave_instruction-assembler
+ dw fnsave_instruction-instruction_handler
  db 'fnstcw',7
- dw fldcw_instruction-assembler
+ dw fldcw_instruction-instruction_handler
  db 'fnstsw',0
- dw fnstsw_instruction-assembler
+ dw fnstsw_instruction-instruction_handler
  db 'format',0
- dw format_directive-assembler
+ dw format_directive-instruction_handler
  db 'fpatan',110011b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fprem1',110101b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'frstor',4
- dw fnsave_instruction-assembler
+ dw fnsave_instruction-instruction_handler
  db 'frstpm',0E5h
- dw fninit_instruction-assembler
+ dw fninit_instruction-instruction_handler
  db 'fsaved',6
- dw fsave_instruction_32bit-assembler
+ dw fsave_instruction_32bit-instruction_handler
  db 'fsavew',6
- dw fsave_instruction_16bit-assembler
+ dw fsave_instruction_16bit-instruction_handler
  db 'fscale',111101b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fsetpm',0E4h
- dw fninit_instruction-assembler
+ dw fninit_instruction-instruction_handler
  db 'fstenv',6
- dw fstenv_instruction-assembler
+ dw fstenv_instruction-instruction_handler
  db 'fsubrp',4
- dw faddp_instruction-assembler
+ dw faddp_instruction-instruction_handler
  db 'fucomi',0E8h
- dw fcomi_instruction-assembler
+ dw fcomi_instruction-instruction_handler
  db 'fucomp',5
- dw ffree_instruction-assembler
+ dw ffree_instruction-instruction_handler
  db 'fxsave',0
- dw fxsave_instruction-assembler
+ dw fxsave_instruction-instruction_handler
  db 'getsec',37h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'haddpd',07Ch
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'haddps',07Ch
- dw cvtpd2dq_instruction-assembler
+ dw cvtpd2dq_instruction-instruction_handler
  db 'hsubpd',07Dh
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'hsubps',07Dh
- dw cvtpd2dq_instruction-assembler
+ dw cvtpd2dq_instruction-instruction_handler
  db 'invept',80h
- dw vmx_inv_instruction-assembler
+ dw vmx_inv_instruction-instruction_handler
  db 'invlpg',0
- dw invlpg_instruction-assembler
+ dw invlpg_instruction-instruction_handler
  db 'lfence',0E8h
- dw fence_instruction-assembler
+ dw fence_instruction-instruction_handler
  db 'looped',0E1h
- dw loop_instruction_32bit-assembler
+ dw loop_instruction_32bit-instruction_handler
  db 'loopeq',0E1h
- dw loop_instruction_64bit-assembler
+ dw loop_instruction_64bit-instruction_handler
  db 'loopew',0E1h
- dw loop_instruction_16bit-assembler
+ dw loop_instruction_16bit-instruction_handler
  db 'loopne',0E0h
- dw loop_instruction-assembler
+ dw loop_instruction-instruction_handler
  db 'loopnz',0E0h
- dw loop_instruction-assembler
+ dw loop_instruction-instruction_handler
  db 'loopzd',0E1h
- dw loop_instruction_32bit-assembler
+ dw loop_instruction_32bit-instruction_handler
  db 'loopzq',0E1h
- dw loop_instruction_64bit-assembler
+ dw loop_instruction_64bit-instruction_handler
  db 'loopzw',0E1h
- dw loop_instruction_16bit-assembler
+ dw loop_instruction_16bit-instruction_handler
  db 'mfence',0F0h
- dw fence_instruction-assembler
+ dw fence_instruction-instruction_handler
  db 'movapd',28h
- dw movpd_instruction-assembler
+ dw movpd_instruction-instruction_handler
  db 'movaps',28h
- dw movps_instruction-assembler
+ dw movps_instruction-instruction_handler
  db 'movdqa',66h
- dw movdq_instruction-assembler
+ dw movdq_instruction-instruction_handler
  db 'movdqu',0F3h
- dw movdq_instruction-assembler
+ dw movdq_instruction-instruction_handler
  db 'movhpd',16h
- dw movlpd_instruction-assembler
+ dw movlpd_instruction-instruction_handler
  db 'movhps',16h
- dw movlps_instruction-assembler
+ dw movlps_instruction-instruction_handler
  db 'movlpd',12h
- dw movlpd_instruction-assembler
+ dw movlpd_instruction-instruction_handler
  db 'movlps',12h
- dw movlps_instruction-assembler
+ dw movlps_instruction-instruction_handler
  db 'movnti',0C3h
- dw movnti_instruction-assembler
+ dw movnti_instruction-instruction_handler
  db 'movntq',0E7h
- dw movntq_instruction-assembler
+ dw movntq_instruction-instruction_handler
  db 'movsxd',63h
- dw movsxd_instruction-assembler
+ dw movsxd_instruction-instruction_handler
  db 'movupd',10h
- dw movpd_instruction-assembler
+ dw movpd_instruction-instruction_handler
  db 'movups',10h
- dw movps_instruction-assembler
+ dw movps_instruction-instruction_handler
  db 'paddsb',0ECh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'paddsw',0EDh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pextrb',14h
- dw pextrb_instruction-assembler
+ dw pextrb_instruction-instruction_handler
  db 'pextrd',16h
- dw pextrd_instruction-assembler
+ dw pextrd_instruction-instruction_handler
  db 'pextrq',16h
- dw pextrq_instruction-assembler
+ dw pextrq_instruction-instruction_handler
  db 'pextrw',15h
- dw pextrw_instruction-assembler
+ dw pextrw_instruction-instruction_handler
  db 'pfnacc',8Ah
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfsubr',0AAh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'phaddd',2
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'phaddw',1
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'phsubd',6
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'phsubw',5
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'pinsrb',20h
- dw pinsrb_instruction-assembler
+ dw pinsrb_instruction-instruction_handler
  db 'pinsrd',22h
- dw pinsrd_instruction-assembler
+ dw pinsrd_instruction-instruction_handler
  db 'pinsrq',22h
- dw pinsrq_instruction-assembler
+ dw pinsrq_instruction-instruction_handler
  db 'pinsrw',0C4h
- dw pinsrw_instruction-assembler
+ dw pinsrw_instruction-instruction_handler
  db 'pmaxsb',3Ch
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pmaxsd',3Dh
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pmaxsw',0EEh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pmaxub',0DEh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pmaxud',3Fh
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pmaxuw',3Eh
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pminsb',38h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pminsd',39h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pminsw',0EAh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pminub',0DAh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pminud',3Bh
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pminuw',3Ah
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pmuldq',28h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pmulhw',0E5h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pmulld',40h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pmullw',0D5h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'popcnt',0B8h
- dw popcnt_instruction-assembler
+ dw popcnt_instruction-instruction_handler
  db 'psadbw',0F6h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pshufb',0
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'pshufd',66h
- dw pshufd_instruction-assembler
+ dw pshufd_instruction-instruction_handler
  db 'pshufw',0
- dw pshufw_instruction-assembler
+ dw pshufw_instruction-instruction_handler
  db 'psignb',8
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'psignd',0Ah
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'psignw',9
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'pslldq',111b
- dw ps_dq_instruction-assembler
+ dw ps_dq_instruction-instruction_handler
  db 'psrldq',011b
- dw ps_dq_instruction-assembler
+ dw ps_dq_instruction-instruction_handler
  db 'psubsb',0E8h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'psubsw',0E9h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pswapd',0BBh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'public',0
- dw public_directive-assembler
+ dw public_directive-instruction_handler
  db 'pushad',60h
- dw simple_instruction_32bit_except64-assembler
+ dw simple_instruction_32bit_except64-instruction_handler
  db 'pushaw',60h
- dw simple_instruction_16bit_except64-assembler
+ dw simple_instruction_16bit_except64-instruction_handler
  db 'pushfd',9Ch
- dw simple_instruction_32bit_except64-assembler
+ dw simple_instruction_32bit_except64-instruction_handler
  db 'pushfq',9Ch
- dw simple_instruction_only64-assembler
+ dw simple_instruction_only64-instruction_handler
  db 'pushfw',9Ch
- dw simple_instruction_16bit-assembler
+ dw simple_instruction_16bit-instruction_handler
  db 'rdmsrq',32h
- dw simple_extended_instruction_64bit-assembler
+ dw simple_extended_instruction_64bit-instruction_handler
  db 'rdtscp',1
- dw swapgs_instruction-assembler
+ dw swapgs_instruction-instruction_handler
  db 'repeat',0
- dw repeat_directive-assembler
+ dw repeat_directive-instruction_handler
  db 'setalc',0D6h
- dw simple_instruction_except64-assembler
+ dw simple_instruction_except64-instruction_handler
  db 'setnae',92h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnbe',97h
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnge',9Ch
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'setnle',9Fh
- dw set_instruction-assembler
+ dw set_instruction-instruction_handler
  db 'sfence',0F8h
- dw fence_instruction-assembler
+ dw fence_instruction-instruction_handler
  db 'shufpd',0C6h
- dw sse_pd_instruction_imm8-assembler
+ dw sse_pd_instruction_imm8-instruction_handler
  db 'shufps',0C6h
- dw sse_ps_instruction_imm8-assembler
+ dw sse_ps_instruction_imm8-instruction_handler
  db 'skinit',0
- dw skinit_instruction-assembler
+ dw skinit_instruction-instruction_handler
  db 'sqrtpd',51h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'sqrtps',51h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'sqrtsd',51h
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'sqrtss',51h
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'swapgs',0
- dw swapgs_instruction-assembler
+ dw swapgs_instruction-instruction_handler
  db 'sysret',07h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'vmcall',0C1h
- dw simple_vmx_instruction-assembler
+ dw simple_vmx_instruction-instruction_handler
  db 'vmload',0DAh
- dw simple_svm_instruction-assembler
+ dw simple_svm_instruction-instruction_handler
  db 'vmread',0
- dw vmread_instruction-assembler
+ dw vmread_instruction-instruction_handler
  db 'vmsave',0DBh
- dw simple_svm_instruction-assembler
+ dw simple_svm_instruction-instruction_handler
  db 'vmxoff',0C4h
- dw simple_vmx_instruction-assembler
+ dw simple_vmx_instruction-instruction_handler
  db 'wbinvd',9
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'wrmsrq',30h
- dw simple_extended_instruction_64bit-assembler
+ dw simple_extended_instruction_64bit-instruction_handler
 instructions_7:
  db 'blendpd',0Dh
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'blendps',0Ch
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'clflush',111b
- dw fxsave_instruction-assembler
+ dw fxsave_instruction-instruction_handler
  db 'cmovnae',42h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnbe',47h
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnge',4Ch
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmovnle',4Fh
- dw cmov_instruction-assembler
+ dw cmov_instruction-instruction_handler
  db 'cmpeqpd',0
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpeqps',0
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmpeqsd',0
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpeqss',0
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cmplepd',2
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpleps',2
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmplesd',2
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpless',2
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cmpltpd',1
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpltps',1
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmpltsd',1
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpltss',1
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cmpxchg',0B0h
- dw basic_486_instruction-assembler
+ dw basic_486_instruction-instruction_handler
  db 'display',0
- dw display_directive-assembler
+ dw display_directive-instruction_handler
  db 'fcmovbe',0D0h
- dw fcmov_instruction-assembler
+ dw fcmov_instruction-instruction_handler
  db 'fcmovnb',0C0h
- dw fcomi_instruction-assembler
+ dw fcomi_instruction-instruction_handler
  db 'fcmovne',0C8h
- dw fcomi_instruction-assembler
+ dw fcomi_instruction-instruction_handler
  db 'fcmovnu',0D8h
- dw fcomi_instruction-assembler
+ dw fcomi_instruction-instruction_handler
  db 'fdecstp',110110b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fincstp',110111b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fldenvd',4
- dw fldenv_instruction_32bit-assembler
+ dw fldenv_instruction_32bit-instruction_handler
  db 'fldenvw',4
- dw fldenv_instruction_32bit-assembler
+ dw fldenv_instruction_32bit-instruction_handler
  db 'fnsaved',6
- dw fnsave_instruction_32bit-assembler
+ dw fnsave_instruction_32bit-instruction_handler
  db 'fnsavew',6
- dw fnsave_instruction_16bit-assembler
+ dw fnsave_instruction_16bit-instruction_handler
  db 'fnstenv',6
- dw fldenv_instruction-assembler
+ dw fldenv_instruction-instruction_handler
  db 'frndint',111100b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'frstord',4
- dw fnsave_instruction_32bit-assembler
+ dw fnsave_instruction_32bit-instruction_handler
  db 'frstorw',4
- dw fnsave_instruction_16bit-assembler
+ dw fnsave_instruction_16bit-instruction_handler
  db 'fsincos',111011b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fstenvd',6
- dw fstenv_instruction_32bit-assembler
+ dw fstenv_instruction_32bit-instruction_handler
  db 'fstenvw',6
- dw fstenv_instruction_16bit-assembler
+ dw fstenv_instruction_16bit-instruction_handler
  db 'fucomip',0E8h
- dw fcomip_instruction-assembler
+ dw fcomip_instruction-instruction_handler
  db 'fucompp',0
- dw fucompp_instruction-assembler
+ dw fucompp_instruction-instruction_handler
  db 'fxrstor',1
- dw fxsave_instruction-assembler
+ dw fxsave_instruction-instruction_handler
  db 'fxtract',110100b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'fyl2xp1',111001b
- dw simple_fpu_instruction-assembler
+ dw simple_fpu_instruction-instruction_handler
  db 'insertq',0
- dw insertq_instruction-assembler
+ dw insertq_instruction-instruction_handler
  db 'invlpga',0DFh
- dw invlpga_instruction-assembler
+ dw invlpga_instruction-instruction_handler
  db 'invvpid',81h
- dw vmx_inv_instruction-assembler
+ dw vmx_inv_instruction-instruction_handler
  db 'ldmxcsr',10b
- dw fxsave_instruction-assembler
+ dw fxsave_instruction-instruction_handler
  db 'loopned',0E0h
- dw loop_instruction_32bit-assembler
+ dw loop_instruction_32bit-instruction_handler
  db 'loopneq',0E0h
- dw loop_instruction_64bit-assembler
+ dw loop_instruction_64bit-instruction_handler
  db 'loopnew',0E0h
- dw loop_instruction_16bit-assembler
+ dw loop_instruction_16bit-instruction_handler
  db 'loopnzd',0E0h
- dw loop_instruction_32bit-assembler
+ dw loop_instruction_32bit-instruction_handler
  db 'loopnzq',0E0h
- dw loop_instruction_64bit-assembler
+ dw loop_instruction_64bit-instruction_handler
  db 'loopnzw',0E0h
- dw loop_instruction_16bit-assembler
+ dw loop_instruction_16bit-instruction_handler
  db 'monitor',0C8h
- dw monitor_instruction-assembler
+ dw monitor_instruction-instruction_handler
  db 'movddup',12h
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'movdq2q',0
- dw movdq2q_instruction-assembler
+ dw movdq2q_instruction-instruction_handler
  db 'movhlps',12h
- dw movhlps_instruction-assembler
+ dw movhlps_instruction-instruction_handler
  db 'movlhps',16h
- dw movhlps_instruction-assembler
+ dw movhlps_instruction-instruction_handler
  db 'movntdq',0E7h
- dw movntdq_instruction-assembler
+ dw movntdq_instruction-instruction_handler
  db 'movntpd',2Bh
- dw movntdq_instruction-assembler
+ dw movntdq_instruction-instruction_handler
  db 'movntps',2Bh
- dw movntps_instruction-assembler
+ dw movntps_instruction-instruction_handler
  db 'movntsd',2Bh
- dw movntsd_instruction-assembler
+ dw movntsd_instruction-instruction_handler
  db 'movntss',2Bh
- dw movntss_instruction-assembler
+ dw movntss_instruction-instruction_handler
  db 'movq2dq',0
- dw movq2dq_instruction-assembler
+ dw movq2dq_instruction-instruction_handler
  db 'mpsadbw',42h
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'paddusb',0DCh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'paddusw',0DDh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'palignr',0
- dw palignr_instruction-assembler
+ dw palignr_instruction-instruction_handler
  db 'pavgusb',0BFh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pblendw',0Eh
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'pcmpeqb',74h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pcmpeqd',76h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pcmpeqq',29h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pcmpeqw',75h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pcmpgtb',64h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pcmpgtd',66h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pcmpgtq',37h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'pcmpgtw',65h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pfcmpeq',0B0h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfcmpge',90h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfcmpgt',0A0h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfpnacc',8Eh
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfrsqrt',97h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'phaddsw',3
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'phsubsw',7
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'pmaddwd',0F5h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pmulhrw',0B7h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pmulhuw',0E4h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pmuludq',0F4h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pshufhw',0F3h
- dw pshufd_instruction-assembler
+ dw pshufd_instruction-instruction_handler
  db 'pshuflw',0F2h
- dw pshufd_instruction-assembler
+ dw pshufd_instruction-instruction_handler
  db 'psubusb',0D8h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'psubusw',0D9h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'roundpd',9
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'roundps',8
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'roundsd',0Bh
- dw sse4_sd_instruction_3a_imm8-assembler
+ dw sse4_sd_instruction_3a_imm8-instruction_handler
  db 'roundss',0Ah
- dw sse4_ss_instruction_3a_imm8-assembler
+ dw sse4_ss_instruction_3a_imm8-instruction_handler
  db 'rsqrtps',52h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'rsqrtss',52h
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'section',0
- dw section_directive-assembler
+ dw section_directive-instruction_handler
  db 'segment',0
- dw segment_directive-assembler
+ dw segment_directive-instruction_handler
  db 'stmxcsr',11b
- dw fxsave_instruction-assembler
+ dw fxsave_instruction-instruction_handler
  db 'syscall',05h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'sysexit',35h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'sysretq',07h
- dw simple_extended_instruction_64bit-assembler
+ dw simple_extended_instruction_64bit-instruction_handler
  db 'ucomisd',2Eh
- dw comisd_instruction-assembler
+ dw comisd_instruction-instruction_handler
  db 'ucomiss',2Eh
- dw comiss_instruction-assembler
+ dw comiss_instruction-instruction_handler
  db 'virtual',0
- dw virtual_directive-assembler
+ dw virtual_directive-instruction_handler
  db 'vmclear',6
- dw vmclear_instruction-assembler
+ dw vmclear_instruction-instruction_handler
  db 'vmmcall',0D9h
- dw simple_vmx_instruction-assembler
+ dw simple_vmx_instruction-instruction_handler
  db 'vmptrld',6
- dw vmx_instruction-assembler
+ dw vmx_instruction-instruction_handler
  db 'vmptrst',7
- dw vmx_instruction-assembler
+ dw vmx_instruction-instruction_handler
  db 'vmwrite',0
- dw vmwrite_instruction-assembler
+ dw vmwrite_instruction-instruction_handler
 instructions_8:
  db 'addsubpd',0D0h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'addsubps',0D0h
- dw cvtpd2dq_instruction-assembler
+ dw cvtpd2dq_instruction-instruction_handler
  db 'blendvpd',15h
- dw sse4_instruction_38_xmm0-assembler
+ dw sse4_instruction_38_xmm0-instruction_handler
  db 'blendvps',14h
- dw sse4_instruction_38_xmm0-assembler
+ dw sse4_instruction_38_xmm0-instruction_handler
  db 'cmpneqpd',4
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpneqps',4
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmpneqsd',4
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpneqss',4
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cmpnlepd',6
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpnleps',6
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmpnlesd',6
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpnless',6
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cmpnltpd',5
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpnltps',5
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmpnltsd',5
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpnltss',5
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cmpordpd',7
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpordps',7
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmpordsd',7
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpordss',7
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cvtdq2pd',0E6h
- dw cvtdq2pd_instruction-assembler
+ dw cvtdq2pd_instruction-instruction_handler
  db 'cvtdq2ps',5Bh
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'cvtpd2dq',0E6h
- dw cvtpd2dq_instruction-assembler
+ dw cvtpd2dq_instruction-instruction_handler
  db 'cvtpd2pi',2Dh
- dw cvtpd2pi_instruction-assembler
+ dw cvtpd2pi_instruction-instruction_handler
  db 'cvtpd2ps',5Ah
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'cvtpi2pd',2Ah
- dw cvtpi2pd_instruction-assembler
+ dw cvtpi2pd_instruction-instruction_handler
  db 'cvtpi2ps',2Ah
- dw cvtpi2ps_instruction-assembler
+ dw cvtpi2ps_instruction-instruction_handler
  db 'cvtps2dq',5Bh
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'cvtps2pd',5Ah
- dw cvtps2pd_instruction-assembler
+ dw cvtps2pd_instruction-instruction_handler
  db 'cvtps2pi',2Dh
- dw cvtps2pi_instruction-assembler
+ dw cvtps2pi_instruction-instruction_handler
  db 'cvtsd2si',2Dh
- dw cvtsd2si_instruction-assembler
+ dw cvtsd2si_instruction-instruction_handler
  db 'cvtsd2ss',5Ah
- dw sse_sd_instruction-assembler
+ dw sse_sd_instruction-instruction_handler
  db 'cvtsi2sd',2Ah
- dw cvtsi2sd_instruction-assembler
+ dw cvtsi2sd_instruction-instruction_handler
  db 'cvtsi2ss',2Ah
- dw cvtsi2ss_instruction-assembler
+ dw cvtsi2ss_instruction-instruction_handler
  db 'cvtss2sd',5Ah
- dw sse_ss_instruction-assembler
+ dw sse_ss_instruction-instruction_handler
  db 'cvtss2si',2Dh
- dw cvtss2si_instruction-assembler
+ dw cvtss2si_instruction-instruction_handler
  db 'fcmovnbe',0D0h
- dw fcomi_instruction-assembler
+ dw fcomi_instruction-instruction_handler
  db 'fnstenvd',6
- dw fldenv_instruction_32bit-assembler
+ dw fldenv_instruction_32bit-instruction_handler
  db 'fnstenvw',6
- dw fldenv_instruction_16bit-assembler
+ dw fldenv_instruction_16bit-instruction_handler
  db 'insertps',0
- dw insertps_instruction-assembler
+ dw insertps_instruction-instruction_handler
  db 'maskmovq',0
- dw maskmovq_instruction-assembler
+ dw maskmovq_instruction-instruction_handler
  db 'movmskpd',0
- dw movmskpd_instruction-assembler
+ dw movmskpd_instruction-instruction_handler
  db 'movmskps',0
- dw movmskps_instruction-assembler
+ dw movmskps_instruction-instruction_handler
  db 'movntdqa',0
- dw movntdqa_instruction-assembler
+ dw movntdqa_instruction-instruction_handler
  db 'movshdup',16h
- dw cvtdq2pd_instruction-assembler
+ dw cvtdq2pd_instruction-instruction_handler
  db 'movsldup',12h
- dw cvtdq2pd_instruction-assembler
+ dw cvtdq2pd_instruction-instruction_handler
  db 'packssdw',6Bh
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'packsswb',63h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'packusdw',2Bh
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'packuswb',67h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'pblendvb',10h
- dw sse4_instruction_38_xmm0-assembler
+ dw sse4_instruction_38_xmm0-instruction_handler
  db 'pfrcpit1',0A6h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfrcpit2',0B6h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pfrsqit1',0A7h
- dw amd3dnow_instruction-assembler
+ dw amd3dnow_instruction-instruction_handler
  db 'pmovmskb',0D7h
- dw pmovmskb_instruction-assembler
+ dw pmovmskb_instruction-instruction_handler
  db 'pmovsxbd',21h
- dw pmovsxbd_instruction-assembler
+ dw pmovsxbd_instruction-instruction_handler
  db 'pmovsxbq',22h
- dw pmovsxbq_instruction-assembler
+ dw pmovsxbq_instruction-instruction_handler
  db 'pmovsxbw',20h
- dw pmovsxbw_instruction-assembler
+ dw pmovsxbw_instruction-instruction_handler
  db 'pmovsxdq',25h
- dw pmovsxdq_instruction-assembler
+ dw pmovsxdq_instruction-instruction_handler
  db 'pmovsxwd',23h
- dw pmovsxwd_instruction-assembler
+ dw pmovsxwd_instruction-instruction_handler
  db 'pmovsxwq',24h
- dw pmovsxwq_instruction-assembler
+ dw pmovsxwq_instruction-instruction_handler
  db 'pmovzxbd',31h
- dw pmovsxbd_instruction-assembler
+ dw pmovsxbd_instruction-instruction_handler
  db 'pmovzxbq',32h
- dw pmovsxbq_instruction-assembler
+ dw pmovsxbq_instruction-instruction_handler
  db 'pmovzxbw',30h
- dw pmovsxbw_instruction-assembler
+ dw pmovsxbw_instruction-instruction_handler
  db 'pmovzxdq',35h
- dw pmovsxdq_instruction-assembler
+ dw pmovsxdq_instruction-instruction_handler
  db 'pmovzxwd',33h
- dw pmovsxwd_instruction-assembler
+ dw pmovsxwd_instruction-instruction_handler
  db 'pmovzxwq',34h
- dw pmovsxwq_instruction-assembler
+ dw pmovsxwq_instruction-instruction_handler
  db 'pmulhrsw',0Bh
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'prefetch',0
- dw amd_prefetch_instruction-assembler
+ dw amd_prefetch_instruction-instruction_handler
  db 'sysenter',34h
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'sysexitq',35h
- dw simple_extended_instruction_64bit-assembler
+ dw simple_extended_instruction_64bit-instruction_handler
  db 'unpckhpd',15h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'unpckhps',15h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'unpcklpd',14h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'unpcklps',14h
- dw sse_ps_instruction-assembler
+ dw sse_ps_instruction-instruction_handler
  db 'vmlaunch',0C2h
- dw simple_vmx_instruction-assembler
+ dw simple_vmx_instruction-instruction_handler
  db 'vmresume',0C3h
- dw simple_vmx_instruction-assembler
+ dw simple_vmx_instruction-instruction_handler
 instructions_9:
  db 'cmpxchg8b',8
- dw cmpxchgx_instruction-assembler
+ dw cmpxchgx_instruction-instruction_handler
  db 'cvttpd2dq',0E6h
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'cvttpd2pi',2Ch
- dw cvtpd2pi_instruction-assembler
+ dw cvtpd2pi_instruction-instruction_handler
  db 'cvttps2dq',5Bh
- dw cvtdq2pd_instruction-assembler
+ dw cvtdq2pd_instruction-instruction_handler
  db 'cvttps2pi',2Ch
- dw cvtps2pi_instruction-assembler
+ dw cvtps2pi_instruction-instruction_handler
  db 'cvttsd2si',2Ch
- dw cvtsd2si_instruction-assembler
+ dw cvtsd2si_instruction-instruction_handler
  db 'cvttss2si',2Ch
- dw cvtss2si_instruction-assembler
+ dw cvtss2si_instruction-instruction_handler
  db 'extractps',0
- dw extractps_instruction-assembler
+ dw extractps_instruction-instruction_handler
  db 'pcmpestri',61h
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'pcmpestrm',60h
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'pcmpistri',63h
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'pcmpistrm',62h
- dw sse4_instruction_3a_imm8-assembler
+ dw sse4_instruction_3a_imm8-instruction_handler
  db 'pmaddubsw',4
- dw ssse3_instruction-assembler
+ dw ssse3_instruction-instruction_handler
  db 'prefetchw',1
- dw amd_prefetch_instruction-assembler
+ dw amd_prefetch_instruction-instruction_handler
  db 'punpckhbw',68h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'punpckhdq',6Ah
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'punpckhwd',69h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'punpcklbw',60h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'punpckldq',62h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
  db 'punpcklwd',61h
- dw basic_mmx_instruction-assembler
+ dw basic_mmx_instruction-instruction_handler
 instructions_10:
  db 'cmpunordpd',3
- dw cmp_pd_instruction-assembler
+ dw cmp_pd_instruction-instruction_handler
  db 'cmpunordps',3
- dw cmp_ps_instruction-assembler
+ dw cmp_ps_instruction-instruction_handler
  db 'cmpunordsd',3
- dw cmp_sd_instruction-assembler
+ dw cmp_sd_instruction-instruction_handler
  db 'cmpunordss',3
- dw cmp_ss_instruction-assembler
+ dw cmp_ss_instruction-instruction_handler
  db 'cmpxchg16b',16
- dw cmpxchgx_instruction-assembler
+ dw cmpxchgx_instruction-instruction_handler
  db 'loadall286',5
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'loadall386',7
- dw simple_extended_instruction-assembler
+ dw simple_extended_instruction-instruction_handler
  db 'maskmovdqu',0
- dw maskmovdqu_instruction-assembler
+ dw maskmovdqu_instruction-instruction_handler
  db 'phminposuw',41h
- dw sse4_instruction_38-assembler
+ dw sse4_instruction_38-instruction_handler
  db 'prefetcht0',1
- dw prefetch_instruction-assembler
+ dw prefetch_instruction-instruction_handler
  db 'prefetcht1',2
- dw prefetch_instruction-assembler
+ dw prefetch_instruction-instruction_handler
  db 'prefetcht2',3
- dw prefetch_instruction-assembler
+ dw prefetch_instruction-instruction_handler
  db 'punpckhqdq',6Dh
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
  db 'punpcklqdq',6Ch
- dw sse_pd_instruction-assembler
+ dw sse_pd_instruction-instruction_handler
 instructions_11:
  db 'prefetchnta',0
- dw prefetch_instruction-assembler
+ dw prefetch_instruction-instruction_handler
 instructions_end:
 
 data_directives:
@@ -1992,37 +1997,37 @@ data_directives:
 
 data_directives_2:
  db 'db',1
- dw data_bytes-assembler
+ dw data_bytes-instruction_handler
  db 'dd',4
- dw data_dwords-assembler
+ dw data_dwords-instruction_handler
  db 'df',6
- dw data_pwords-assembler
+ dw data_pwords-instruction_handler
  db 'dp',6
- dw data_pwords-assembler
+ dw data_pwords-instruction_handler
  db 'dq',8
- dw data_qwords-assembler
+ dw data_qwords-instruction_handler
  db 'dt',10
- dw data_twords-assembler
+ dw data_twords-instruction_handler
  db 'du',2
- dw data_unicode-assembler
+ dw data_unicode-instruction_handler
  db 'dw',2
- dw data_words-assembler
+ dw data_words-instruction_handler
  db 'rb',1
- dw reserve_bytes-assembler
+ dw reserve_bytes-instruction_handler
  db 'rd',4
- dw reserve_dwords-assembler
+ dw reserve_dwords-instruction_handler
  db 'rf',6
- dw reserve_pwords-assembler
+ dw reserve_pwords-instruction_handler
  db 'rp',6
- dw reserve_pwords-assembler
+ dw reserve_pwords-instruction_handler
  db 'rq',8
- dw reserve_qwords-assembler
+ dw reserve_qwords-instruction_handler
  db 'rt',10
- dw reserve_twords-assembler
+ dw reserve_twords-instruction_handler
  db 'rw',2
- dw reserve_words-assembler
+ dw reserve_words-instruction_handler
 data_directives_3:
 data_directives_4:
  db 'file',1
- dw data_file-assembler
+ dw data_file-instruction_handler
 data_directives_end:
diff --git a/programs/develop/fasm/trunk/version.inc b/programs/develop/fasm/trunk/version.inc
index 6e78792cfc..1427a1b93c 100644
--- a/programs/develop/fasm/trunk/version.inc
+++ b/programs/develop/fasm/trunk/version.inc
@@ -33,7 +33,7 @@
 ; cannot simply be copied and put under another distribution licence
 ; (including the GNU Public Licence).
 
-VERSION_STRING equ "1.68"
+VERSION_STRING equ "1.69.06"
 
 VERSION_MAJOR = 1
 VERSION_MINOR = 68
diff --git a/programs/develop/fasm/trunk/x86_64.inc b/programs/develop/fasm/trunk/x86_64.inc
index e7efa1fc2a..4c18fa6116 100644
--- a/programs/develop/fasm/trunk/x86_64.inc
+++ b/programs/develop/fasm/trunk/x86_64.inc
@@ -44,8 +44,8 @@ simple_instruction_64bit:
 simple_extended_instruction_64bit:
 	cmp	[code_type],64
 	jne	illegal_instruction
-	mov	al,48h
-	stos	byte [edi]
+	mov	byte [edi],48h
+	inc	edi
 simple_extended_instruction:
 	mov	ah,al
 	mov	al,0Fh
@@ -472,8 +472,8 @@ mov_instruction:
 	mov	[base_code],0A2h
       store_mov_address32:
 	call	store_instruction_code
-	push	instruction_assembled
-	jmp	store_address_32bit_value
+	call	store_address_32bit_value
+	jmp	instruction_assembled
       mov_mem_address16_al:
 	call	store_segment_prefix_if_necessary
 	call	address_16bit_prefix
@@ -492,8 +492,8 @@ mov_instruction:
 	mov	[base_code],0A2h
       store_mov_address64:
 	call	store_instruction_code
-	push	instruction_assembled
-	jmp	store_address_64bit_value
+	call	store_address_64bit_value
+	jmp	instruction_assembled
       mov_mem_ax:
 	test	ch,22h
 	jnz	mov_mem_address16_ax
@@ -3284,6 +3284,7 @@ loop_instruction:
 	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
@@ -4893,6 +4894,7 @@ sse_instruction:
 	cmp	[immediate_size],-1
 	jne	sse_ok
 	call	take_additional_xmm0
+	mov	[immediate_size],0
       sse_ok:
 	jmp	instruction_ready
       sse_xmmreg_xmmreg:
@@ -4913,12 +4915,13 @@ sse_instruction:
 	cmp	[immediate_size],-1
 	jne	sse_nomem_ok
 	call	take_additional_xmm0
+	mov	[immediate_size],0
       sse_nomem_ok:
 	jmp	nomem_instruction_ready
       take_additional_xmm0:
-	lods	byte [esi]
-	cmp	al,','
-	jne	invalid_operand
+	cmp	byte [esi],','
+	jne	additional_xmm0_ok
+	inc	esi
 	lods	byte [esi]
 	cmp	al,10h
 	jne	invalid_operand
@@ -4928,6 +4931,7 @@ sse_instruction:
 	jne	invalid_operand_size
 	test	al,al
 	jnz	invalid_operand
+      additional_xmm0_ok:
 	ret
 
 ps_dq_instruction:
@@ -5483,12 +5487,11 @@ extractps_instruction:
 	mov	[postbyte_register],al
 	pop	ebx
 	mov	al,bh
-	cmp	al,8
-	je	extractps_store
 	cmp	al,4
+	je	mmx_nomem_imm8
+	cmp	al,8
 	jne	invalid_operand_size
-      extractps_store:
-	call	operand_autodetect
+	call	operand_64bit
 	jmp	mmx_nomem_imm8
 insertps_instruction:
 	mov	[opcode_prefix],66h
@@ -5874,6 +5877,10 @@ movnti_instruction:
 	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
@@ -6074,6 +6081,7 @@ crc32_instruction:
 	cmp	al,','
 	jne	invalid_operand
 	mov	[operand_size],0
+	call	operand_64bit
 	lods	byte [esi]
 	call	get_size_operator
 	cmp	al,10h
@@ -6105,6 +6113,57 @@ crc32_instruction:
 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,10h
+;       je      movbe_reg_reg
+	cmp	al,'['
+	jne	invalid_argument
+	call	get_address
+	mov	al,[operand_size]
+	call	operand_autodetect
+	jmp	instruction_ready
+;      movbe_reg_reg:
+;       lods    byte [esi]
+;       call    convert_register
+;       mov     bl,al
+;       mov     al,ah
+;       call    operand_autodetect
+;       jmp     nomem_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
@@ -6705,15 +6764,6 @@ store_instruction:
 	cmp	[code_type],64
 	jne	invalid_address_size
       address_prefix_ok:
-	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
 	cmp	bl,44h
 	je	swap_base_with_index
 	cmp	bl,84h
@@ -6727,6 +6777,15 @@ store_instruction:
 	cmp	bl,84h
 	je	invalid_address
       base_register_ok:
+	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: