WebSVN – Kolibri OS – Diff – /programs/develop/fasm/trunk/assemble.inc


; flat assembler core
; Copyright (c) 1999-2006, 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	[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
      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	[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
	call	get_qword_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
	call	get_qword_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,4
	sub	edi,eax
	mov	[display_buffer],edi
	rep	movs byte [edi],[esi]
	stos	dword [edi]
	pop	edi
	inc	esi
	jmp	display_next
      display_byte:
	call	get_byte_value
	push	edi
	mov	edi,[display_buffer]
	sub	edi,4+1
	mov	[display_buffer],edi
	stos	byte [edi]
	mov	eax,1
	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
flush_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,4
	mov	ecx,[esi]
	sub	esi,ecx
	push	esi
	call	display_block
	pop	esi
	cmp	esi,[display_buffer]
	jne	display_messages
	mov	eax,[labels_list]
	mov	[display_buffer],eax
      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
	cmp	ax,8000h
	jae	value_out_of_range
	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
	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

Rev 157	Rev 174
1	; flat assembler core	1	; flat assembler core
2	; Copyright (c) 1999-2006, Tomasz Grysztar.	2	; Copyright (c) 1999-2006, Tomasz Grysztar.
3	; All rights reserved.	3	; All rights reserved.
4		4
5	assembler:	5	assembler:
6	xor eax,eax	6	xor eax,eax
7	mov [stub_size],eax	7	mov [stub_size],eax
8	mov [number_of_sections],eax	8	mov [number_of_sections],eax
9	mov [current_pass],ax	9	mov [current_pass],ax
10	mov [resolver_flags],eax	10	mov [resolver_flags],eax
11	assembler_loop:	11	assembler_loop:
12	mov eax,[labels_list]	12	mov eax,[labels_list]
13	mov [display_buffer],eax	13	mov [display_buffer],eax
14	mov eax,[additional_memory]	14	mov eax,[additional_memory]
15	mov [free_additional_memory],eax	15	mov [free_additional_memory],eax
16	mov eax,[additional_memory_end]	16	mov eax,[additional_memory_end]
17	mov [structures_buffer],eax	17	mov [structures_buffer],eax
18	mov esi,[source_start]	18	mov esi,[source_start]
19	mov edi,[code_start]	19	mov edi,[code_start]
20	xor eax,eax	20	xor eax,eax
21	mov dword [adjustment],eax	21	mov dword [adjustment],eax
22	mov dword [adjustment+4],eax	22	mov dword [adjustment+4],eax
23	mov dword [org_origin],edi	23	mov dword [org_origin],edi
24	mov dword [org_origin+4],eax	24	mov dword [org_origin+4],eax
25	mov [org_start],edi	25	mov [org_start],edi
26	mov [org_registers],eax	26	mov [org_registers],eax
27	mov [org_symbol],eax	27	mov [org_symbol],eax
28	mov [error_line],eax	28	mov [error_line],eax
29	mov [counter],eax	29	mov [counter],eax
30	mov [format_flags],eax	30	mov [format_flags],eax
31	mov [number_of_relocations],eax	31	mov [number_of_relocations],eax
32	mov [undefined_data_end],eax	32	mov [undefined_data_end],eax
33	mov [next_pass_needed],al	33	mov [next_pass_needed],al
34	mov [output_format],al	34	mov [output_format],al
35	mov [labels_type],al	35	mov [labels_type],al
36	mov [virtual_data],al	36	mov [virtual_data],al
37	mov [code_type],16	37	mov [code_type],16
38	pass_loop:	38	pass_loop:
39	call assemble_line	39	call assemble_line
40	jnc pass_loop	40	jnc pass_loop
41	mov eax,[additional_memory_end]	41	mov eax,[additional_memory_end]
42	cmp eax,[structures_buffer]	42	cmp eax,[structures_buffer]
43	je pass_done	43	je pass_done
44	sub eax,20h	44	sub eax,20h
45	mov eax,[eax+4]	45	mov eax,[eax+4]
46	mov [current_line],eax	46	mov [current_line],eax
47	jmp missing_end_directive	47	jmp missing_end_directive
48	pass_done:	48	pass_done:
49	call close_pass	49	call close_pass
50	mov eax,[labels_list]	50	mov eax,[labels_list]
51	check_symbols:	51	check_symbols:
52	cmp eax,[memory_end]	52	cmp eax,[memory_end]
53	jae symbols_checked	53	jae symbols_checked
54	test byte [eax+8],8	54	test byte [eax+8],8
55	jz symbol_defined_ok	55	jz symbol_defined_ok
56	mov cx,[current_pass]	56	mov cx,[current_pass]
57	cmp cx,[eax+18]	57	cmp cx,[eax+18]
58	jne symbol_defined_ok	58	jne symbol_defined_ok
59	test byte [eax+8],1	59	test byte [eax+8],1
60	jz symbol_defined_ok	60	jz symbol_defined_ok
61	sub cx,[eax+16]	61	sub cx,[eax+16]
62	cmp cx,1	62	cmp cx,1
63	jne symbol_defined_ok	63	jne symbol_defined_ok
64	and byte [eax+8],not 1	64	and byte [eax+8],not 1
65	or [next_pass_needed],-1	65	or [next_pass_needed],-1
66	symbol_defined_ok:	66	symbol_defined_ok:
67	test byte [eax+8],10h	67	test byte [eax+8],10h
68	jz use_prediction_ok	68	jz use_prediction_ok
69	mov cx,[current_pass]	69	mov cx,[current_pass]
70	and byte [eax+8],not 10h	70	and byte [eax+8],not 10h
71	test byte [eax+8],20h	71	test byte [eax+8],20h
72	jnz check_use_prediction	72	jnz check_use_prediction
73	cmp cx,[eax+18]	73	cmp cx,[eax+18]
74	jne use_prediction_ok	74	jne use_prediction_ok
75	test byte [eax+8],8	75	test byte [eax+8],8
76	jz use_prediction_ok	76	jz use_prediction_ok
77	jmp use_misprediction	77	jmp use_misprediction
78	check_use_prediction:	78	check_use_prediction:
79	test byte [eax+8],8	79	test byte [eax+8],8
80	jz use_misprediction	80	jz use_misprediction
81	cmp cx,[eax+18]	81	cmp cx,[eax+18]
82	je use_prediction_ok	82	je use_prediction_ok
83	use_misprediction:	83	use_misprediction:
84	or [next_pass_needed],-1	84	or [next_pass_needed],-1
85	use_prediction_ok:	85	use_prediction_ok:
86	test byte [eax+8],40h	86	test byte [eax+8],40h
87	jz check_next_symbol	87	jz check_next_symbol
88	and byte [eax+8],not 40h	88	and byte [eax+8],not 40h
89	test byte [eax+8],4	89	test byte [eax+8],4
90	jnz define_misprediction	90	jnz define_misprediction
91	mov cx,[current_pass]	91	mov cx,[current_pass]
92	test byte [eax+8],80h	92	test byte [eax+8],80h
93	jnz check_define_prediction	93	jnz check_define_prediction
94	cmp cx,[eax+16]	94	cmp cx,[eax+16]
95	jne check_next_symbol	95	jne check_next_symbol
96	test byte [eax+8],1	96	test byte [eax+8],1
97	jz check_next_symbol	97	jz check_next_symbol
98	jmp define_misprediction	98	jmp define_misprediction
99	check_define_prediction:	99	check_define_prediction:
100	test byte [eax+8],1	100	test byte [eax+8],1
101	jz define_misprediction	101	jz define_misprediction
102	cmp cx,[eax+16]	102	cmp cx,[eax+16]
103	je check_next_symbol	103	je check_next_symbol
104	define_misprediction:	104	define_misprediction:
105	or [next_pass_needed],-1	105	or [next_pass_needed],-1
106	check_next_symbol:	106	check_next_symbol:
107	add eax,LABEL_STRUCTURE_SIZE	107	add eax,LABEL_STRUCTURE_SIZE
108	jmp check_symbols	108	jmp check_symbols
109	symbols_checked:	109	symbols_checked:
110	cmp [next_pass_needed],0	110	cmp [next_pass_needed],0
111	jne next_pass	111	jne next_pass
112	mov eax,[error_line]	112	mov eax,[error_line]
113	or eax,eax	113	or eax,eax
114	jz assemble_ok	114	jz assemble_ok
115	mov [current_line],eax	115	mov [current_line],eax
116	jmp near [error]	116	jmp near [error]
117	next_pass:	117	next_pass:
118	inc [current_pass]	118	inc [current_pass]
119	mov ax,[current_pass]	119	mov ax,[current_pass]
120	cmp ax,[passes_limit]	120	cmp ax,[passes_limit]
121	je code_cannot_be_generated	121	je code_cannot_be_generated
122	jmp assembler_loop	122	jmp assembler_loop
123	assemble_ok:	123	assemble_ok:
124	ret	124	ret
125		125
126	assemble_line:	126	assemble_line:
127	mov eax,[display_buffer]	127	mov eax,[display_buffer]
128	sub eax,100h	128	sub eax,100h
129	cmp edi,eax	129	cmp edi,eax
130	ja out_of_memory	130	ja out_of_memory
131	lods byte [esi]	131	lods byte [esi]
132	cmp al,1	132	cmp al,1
133	je assemble_instruction	133	je assemble_instruction
134	jb source_end	134	jb source_end
135	cmp al,3	135	cmp al,3
136	jb define_label	136	jb define_label
137	je define_constant	137	je define_constant
138	cmp al,0Fh	138	cmp al,0Fh
139	je new_line	139	je new_line
140	cmp al,13h	140	cmp al,13h
141	je code_type_setting	141	je code_type_setting
142	cmp al,10h	142	cmp al,10h
143	jne illegal_instruction	143	jne illegal_instruction
144	lods byte [esi]	144	lods byte [esi]
145	jmp segment_prefix	145	jmp segment_prefix
146	code_type_setting:	146	code_type_setting:
147	lods byte [esi]	147	lods byte [esi]
148	mov [code_type],al	148	mov [code_type],al
149	jmp line_assembled	149	jmp line_assembled
150	new_line:	150	new_line:
151	lods dword [esi]	151	lods dword [esi]
152	mov [current_line],eax	152	mov [current_line],eax
153	mov [prefixed_instruction],0	153	mov [prefixed_instruction],0
154	continue_line:	154	continue_line:
155	cmp byte [esi],0Fh	155	cmp byte [esi],0Fh
156	je line_assembled	156	je line_assembled
157	jmp assemble_line	157	jmp assemble_line
158	define_label:	158	define_label:
159	lods dword [esi]	159	lods dword [esi]
160	cmp eax,0Fh	160	cmp eax,0Fh
161	jb invalid_use_of_symbol	161	jb invalid_use_of_symbol
162	je reserved_word_used_as_symbol	162	je reserved_word_used_as_symbol
163	mov ebx,eax	163	mov ebx,eax
164	lods byte [esi]	164	lods byte [esi]
165	mov cl,al	165	mov cl,al
166	mov eax,edi	166	mov eax,edi
167	xor edx,edx	167	xor edx,edx
168	sub eax,dword [org_origin]	168	sub eax,dword [org_origin]
169	sbb edx,dword [org_origin+4]	169	sbb edx,dword [org_origin+4]
170	mov ch,[labels_type]	170	mov ch,[labels_type]
171	cmp [virtual_data],0	171	cmp [virtual_data],0
172	jne make_virtual_label	172	jne make_virtual_label
173	or byte [ebx+9],1	173	or byte [ebx+9],1
174	xchg eax,[ebx]	174	xchg eax,[ebx]
175	xchg edx,[ebx+4]	175	xchg edx,[ebx+4]
176	sub eax,[ebx]	176	sub eax,[ebx]
177	sbb edx,[ebx+4]	177	sbb edx,[ebx+4]
178	mov dword [adjustment],eax	178	mov dword [adjustment],eax
179	mov dword [adjustment+4],edx	179	mov dword [adjustment+4],edx
180	or eax,edx	180	or eax,edx
181	setnz ah	181	setnz ah
182	jmp finish_label_symbol	182	jmp finish_label_symbol
183	make_virtual_label:	183	make_virtual_label:
184	and byte [ebx+9],not 1	184	and byte [ebx+9],not 1
185	cmp eax,[ebx]	185	cmp eax,[ebx]
186	mov [ebx],eax	186	mov [ebx],eax
187	setne ah	187	setne ah
188	cmp edx,[ebx+4]	188	cmp edx,[ebx+4]
189	mov [ebx+4],edx	189	mov [ebx+4],edx
190	setne al	190	setne al
191	or ah,al	191	or ah,al
192	finish_label_symbol:	192	finish_label_symbol:
193	cmp cl,[ebx+10]	193	cmp cl,[ebx+10]
194	mov [ebx+10],cl	194	mov [ebx+10],cl
195	setne al	195	setne al
196	or ah,al	196	or ah,al
197	cmp ch,[ebx+11]	197	cmp ch,[ebx+11]
198	mov [ebx+11],ch	198	mov [ebx+11],ch
199	setne al	199	setne al
200	or ah,al	200	or ah,al
201	mov edx,[org_registers]	201	mov edx,[org_registers]
202	cmp edx,[ebx+12]	202	cmp edx,[ebx+12]
203	mov [ebx+12],edx	203	mov [ebx+12],edx
204	setne al	204	setne al
205	or ah,al	205	or ah,al
206	or ch,ch	206	or ch,ch
207	jz label_symbol_ok	207	jz label_symbol_ok
208	mov edx,[org_symbol]	208	mov edx,[org_symbol]
209	cmp edx,[ebx+20]	209	cmp edx,[ebx+20]
210	mov [ebx+20],edx	210	mov [ebx+20],edx
211	setne al	211	setne al
212	or ah,al	212	or ah,al
213	label_symbol_ok:	213	label_symbol_ok:
214	mov cx,[current_pass]	214	mov cx,[current_pass]
215	xchg [ebx+16],cx	215	xchg [ebx+16],cx
216	mov edx,[current_line]	216	mov edx,[current_line]
217	mov [ebx+28],edx	217	mov [ebx+28],edx
218	and byte [ebx+8],not 2	218	and byte [ebx+8],not 2
219	test byte [ebx+8],1	219	test byte [ebx+8],1
220	jz new_label	220	jz new_label
221	cmp cx,[ebx+16]	221	cmp cx,[ebx+16]
222	je symbol_already_defined	222	je symbol_already_defined
223	inc cx	223	inc cx
224	sub cx,[ebx+16]	224	sub cx,[ebx+16]
225	setnz al	225	setnz al
226	or ah,al	226	or ah,al
227	jz continue_line	227	jz continue_line
228	test byte [ebx+8],8	228	test byte [ebx+8],8
229	jz continue_line	229	jz continue_line
230	mov cx,[current_pass]	230	mov cx,[current_pass]
231	cmp cx,[ebx+18]	231	cmp cx,[ebx+18]
232	jne continue_line	232	jne continue_line
233	or [next_pass_needed],-1	233	or [next_pass_needed],-1
234	jmp continue_line	234	jmp continue_line
235	new_label:	235	new_label:
236	or byte [ebx+8],1	236	or byte [ebx+8],1
237	jmp continue_line	237	jmp continue_line
238	define_constant:	238	define_constant:
239	lods dword [esi]	239	lods dword [esi]
240	inc esi	240	inc esi
241	cmp eax,0Fh	241	cmp eax,0Fh
242	jb invalid_use_of_symbol	242	jb invalid_use_of_symbol
243	je reserved_word_used_as_symbol	243	je reserved_word_used_as_symbol
244	mov edx,[eax+8]	244	mov edx,[eax+8]
245	push edx	245	push edx
246	cmp [current_pass],0	246	cmp [current_pass],0
247	je get_constant_value	247	je get_constant_value
248	test dl,4	248	test dl,4
249	jnz get_constant_value	249	jnz get_constant_value
250	mov cx,[current_pass]	250	mov cx,[current_pass]
251	cmp cx,[eax+16]	251	cmp cx,[eax+16]
252	je get_constant_value	252	je get_constant_value
253	and dl,not 1	253	and dl,not 1
254	mov [eax+8],dl	254	mov [eax+8],dl
255	get_constant_value:	255	get_constant_value:
256	push eax	256	push eax
257	mov al,byte [esi-1]	257	mov al,byte [esi-1]
258	push eax	258	push eax
259	call get_value	259	call get_value
260	pop ebx	260	pop ebx
261	mov ch,bl	261	mov ch,bl
262	pop ebx	262	pop ebx
263	pop dword [ebx+8]	263	pop dword [ebx+8]
264	cmp ebx,0Fh	264	cmp ebx,0Fh
265	jb invalid_use_of_symbol	265	jb invalid_use_of_symbol
266	je reserved_word_used_as_symbol	266	je reserved_word_used_as_symbol
267	xor cl,cl	267	xor cl,cl
268	mov ch,[value_type]	268	mov ch,[value_type]
269	cmp ch,3	269	cmp ch,3
270	je invalid_use_of_symbol	270	je invalid_use_of_symbol
271	make_constant:	271	make_constant:
272	and byte [ebx+9],not 1	272	and byte [ebx+9],not 1
273	cmp eax,[ebx]	273	cmp eax,[ebx]
274	mov [ebx],eax	274	mov [ebx],eax
275	setne ah	275	setne ah
276	cmp edx,[ebx+4]	276	cmp edx,[ebx+4]
277	mov [ebx+4],edx	277	mov [ebx+4],edx
278	setne al	278	setne al
279	or ah,al	279	or ah,al
280	cmp cl,[ebx+10]	280	cmp cl,[ebx+10]
281	mov [ebx+10],cl	281	mov [ebx+10],cl
282	setne al	282	setne al
283	or ah,al	283	or ah,al
284	cmp ch,[ebx+11]	284	cmp ch,[ebx+11]
285	mov [ebx+11],ch	285	mov [ebx+11],ch
286	setne al	286	setne al
287	or ah,al	287	or ah,al
288	xor edx,edx	288	xor edx,edx
289	cmp edx,[ebx+12]	289	cmp edx,[ebx+12]
290	mov [ebx+12],edx	290	mov [ebx+12],edx
291	setne al	291	setne al
292	or ah,al	292	or ah,al
293	or ch,ch	293	or ch,ch
294	jz constant_symbol_ok	294	jz constant_symbol_ok
295	mov edx,[symbol_identifier]	295	mov edx,[symbol_identifier]
296	cmp edx,[ebx+20]	296	cmp edx,[ebx+20]
297	mov [ebx+20],edx	297	mov [ebx+20],edx
298	setne al	298	setne al
299	or ah,al	299	or ah,al
300	constant_symbol_ok:	300	constant_symbol_ok:
301	mov cx,[current_pass]	301	mov cx,[current_pass]
302	xchg [ebx+16],cx	302	xchg [ebx+16],cx
303	mov edx,[current_line]	303	mov edx,[current_line]
304	mov [ebx+28],edx	304	mov [ebx+28],edx
305	test byte [ebx+8],1	305	test byte [ebx+8],1
306	jz new_constant	306	jz new_constant
307	cmp cx,[ebx+16]	307	cmp cx,[ebx+16]
308	jne redeclare_constant	308	jne redeclare_constant
309	test byte [ebx+8],2	309	test byte [ebx+8],2
310	jz symbol_already_defined	310	jz symbol_already_defined
311	or byte [ebx+8],4	311	or byte [ebx+8],4
312	jmp instruction_assembled	312	jmp instruction_assembled
313	redeclare_constant:	313	redeclare_constant:
314	inc cx	314	inc cx
315	sub cx,[ebx+16]	315	sub cx,[ebx+16]
316	setnz al	316	setnz al
317	or ah,al	317	or ah,al
318	jz instruction_assembled	318	jz instruction_assembled
319	test byte [ebx+8],4	319	test byte [ebx+8],4
320	jnz instruction_assembled	320	jnz instruction_assembled
321	test byte [ebx+8],8	321	test byte [ebx+8],8
322	jz instruction_assembled	322	jz instruction_assembled
323	mov cx,[current_pass]	323	mov cx,[current_pass]
324	cmp cx,[ebx+18]	324	cmp cx,[ebx+18]
325	jne instruction_assembled	325	jne instruction_assembled
326	or [next_pass_needed],-1	326	or [next_pass_needed],-1
327	jmp instruction_assembled	327	jmp instruction_assembled
328	new_constant:	328	new_constant:
329	or byte [ebx+8],1+2	329	or byte [ebx+8],1+2
330	jmp instruction_assembled	330	jmp instruction_assembled
331	assemble_instruction:	331	assemble_instruction:
332	mov [operand_size],0	332	mov [operand_size],0
333	mov [size_override],0	333	mov [size_override],0
334	mov [operand_prefix],0	334	mov [operand_prefix],0
335	mov [rex_prefix],0	335	mov [rex_prefix],0
336	mov [immediate_size],0	336	mov [immediate_size],0
337	movzx ebx,word [esi]	337	movzx ebx,word [esi]
338	mov al,[esi+2]	338	mov al,[esi+2]
339	add ebx,assembler	339	add ebx,assembler
340	add esi,3	340	add esi,3
341	jmp near ebx	341	jmp near ebx
342	instruction_assembled:	342	instruction_assembled:
343	mov al,[esi]	343	mov al,[esi]
344	cmp al,0Fh	344	cmp al,0Fh
345	je line_assembled	345	je line_assembled
346	or al,al	346	or al,al
347	jnz extra_characters_on_line	347	jnz extra_characters_on_line
348	line_assembled:	348	line_assembled:
349	clc	349	clc
350	ret	350	ret
351	source_end:	351	source_end:
352	dec esi	352	dec esi
353	stc	353	stc
354	ret	354	ret
355	skip_line:	355	skip_line:
356	call skip_symbol	356	call skip_symbol
357	jnc skip_line	357	jnc skip_line
358	ret	358	ret
359	skip_symbol:	359	skip_symbol:
360	lods byte [esi]	360	lods byte [esi]
361	or al,al	361	or al,al
362	jz nothing_to_skip	362	jz nothing_to_skip
363	cmp al,0Fh	363	cmp al,0Fh
364	je nothing_to_skip	364	je nothing_to_skip
365	cmp al,1	365	cmp al,1
366	je skip_instruction	366	je skip_instruction
367	cmp al,2	367	cmp al,2
368	je skip_label	368	je skip_label
369	cmp al,3	369	cmp al,3
370	je skip_label	370	je skip_label
371	cmp al,20h	371	cmp al,20h
372	jb skip_assembler_symbol	372	jb skip_assembler_symbol
373	cmp al,'('	373	cmp al,'('
374	je skip_expression	374	je skip_expression
375	cmp al,'['	375	cmp al,'['
376	je skip_address	376	je skip_address
377	skip_done:	377	skip_done:
378	clc	378	clc
379	ret	379	ret
380	skip_label:	380	skip_label:
381	add esi,2	381	add esi,2
382	skip_instruction:	382	skip_instruction:
383	add esi,2	383	add esi,2
384	skip_assembler_symbol:	384	skip_assembler_symbol:
385	inc esi	385	inc esi
386	jmp skip_done	386	jmp skip_done
387	skip_address:	387	skip_address:
388	mov al,[esi]	388	mov al,[esi]
389	and al,11110000b	389	and al,11110000b
390	cmp al,60h	390	cmp al,60h
391	jb skip_expression	391	jb skip_expression
392	cmp al,70h	392	cmp al,70h
393	ja skip_expression	393	ja skip_expression
394	inc esi	394	inc esi
395	jmp skip_address	395	jmp skip_address
396	skip_expression:	396	skip_expression:
397	lods byte [esi]	397	lods byte [esi]
398	or al,al	398	or al,al
399	jz skip_string	399	jz skip_string
400	cmp al,'.'	400	cmp al,'.'
401	je skip_fp_value	401	je skip_fp_value
402	cmp al,')'	402	cmp al,')'
403	je skip_done	403	je skip_done
404	cmp al,']'	404	cmp al,']'
405	je skip_done	405	je skip_done
406	cmp al,'!'	406	cmp al,'!'
407	je skip_expression	407	je skip_expression
408	cmp al,0Fh	408	cmp al,0Fh
409	je skip_expression	409	je skip_expression
410	cmp al,10h	410	cmp al,10h
411	je skip_register	411	je skip_register
412	cmp al,11h	412	cmp al,11h
413	je skip_label_value	413	je skip_label_value
414	cmp al,80h	414	cmp al,80h
415	jae skip_expression	415	jae skip_expression
416	movzx eax,al	416	movzx eax,al
417	add esi,eax	417	add esi,eax
418	jmp skip_expression	418	jmp skip_expression
419	skip_label_value:	419	skip_label_value:
420	add esi,3	420	add esi,3
421	skip_register:	421	skip_register:
422	inc esi	422	inc esi
423	jmp skip_expression	423	jmp skip_expression
424	skip_fp_value:	424	skip_fp_value:
425	add esi,12	425	add esi,12
426	jmp skip_done	426	jmp skip_done
427	skip_string:	427	skip_string:
428	lods dword [esi]	428	lods dword [esi]
429	add esi,eax	429	add esi,eax
430	inc esi	430	inc esi
431	jmp skip_done	431	jmp skip_done
432	nothing_to_skip:	432	nothing_to_skip:
433	dec esi	433	dec esi
434	stc	434	stc
435	ret	435	ret
436		436
437	org_directive:	437	org_directive:
438	lods byte [esi]	438	lods byte [esi]
439	cmp al,'('	439	cmp al,'('
440	jne invalid_argument	440	jne invalid_argument
441	cmp byte [esi],'.'	441	cmp byte [esi],'.'
442	je invalid_value	442	je invalid_value
443	call get_qword_value	443	call get_qword_value
444	mov cl,[value_type]	444	mov cl,[value_type]
445	test cl,1	445	test cl,1
446	jnz invalid_use_of_symbol	446	jnz invalid_use_of_symbol
447	mov [labels_type],cl	447	mov [labels_type],cl
448	mov ecx,edi	448	mov ecx,edi
449	sub ecx,eax	449	sub ecx,eax
450	adc edx,0	450	adc edx,0
451	neg edx	451	neg edx
452	mov dword [org_origin],ecx	452	mov dword [org_origin],ecx
453	mov dword [org_origin+4],edx	453	mov dword [org_origin+4],edx
454	mov [org_registers],0	454	mov [org_registers],0
455	mov [org_start],edi	455	mov [org_start],edi
456	mov edx,[symbol_identifier]	456	mov edx,[symbol_identifier]
457	mov [org_symbol],edx	457	mov [org_symbol],edx
458	cmp [output_format],1	458	cmp [output_format],1
459	ja instruction_assembled	459	ja instruction_assembled
460	cmp edi,[code_start]	460	cmp edi,[code_start]
461	jne instruction_assembled	461	jne instruction_assembled
462	cmp eax,100h	462	cmp eax,100h
463	jne instruction_assembled	463	jne instruction_assembled
464	bts [format_flags],0	464	bts [format_flags],0
465	jmp instruction_assembled	465	jmp instruction_assembled
466	label_directive:	466	label_directive:
467	lods byte [esi]	467	lods byte [esi]
468	cmp al,2	468	cmp al,2
469	jne invalid_argument	469	jne invalid_argument
470	lods dword [esi]	470	lods dword [esi]
471	cmp eax,0Fh	471	cmp eax,0Fh
472	jb invalid_use_of_symbol	472	jb invalid_use_of_symbol
473	je reserved_word_used_as_symbol	473	je reserved_word_used_as_symbol
474	inc esi	474	inc esi
475	mov ebx,eax	475	mov ebx,eax
476	xor cl,cl	476	xor cl,cl
477	lods byte [esi]	477	lods byte [esi]
478	cmp al,':'	478	cmp al,':'
479	je get_label_size	479	je get_label_size
480	dec esi	480	dec esi
481	cmp al,11h	481	cmp al,11h
482	jne label_size_ok	482	jne label_size_ok
483	get_label_size:	483	get_label_size:
484	lods word [esi]	484	lods word [esi]
485	cmp al,11h	485	cmp al,11h
486	jne invalid_argument	486	jne invalid_argument
487	mov cl,ah	487	mov cl,ah
488	label_size_ok:	488	label_size_ok:
489	mov eax,edi	489	mov eax,edi
490	xor edx,edx	490	xor edx,edx
491	sub eax,dword [org_origin]	491	sub eax,dword [org_origin]
492	sbb edx,dword [org_origin+4]	492	sbb edx,dword [org_origin+4]
493	mov ebp,[org_registers]	493	mov ebp,[org_registers]
494	cmp byte [esi],80h	494	cmp byte [esi],80h
495	je get_free_label_value	495	je get_free_label_value
496	mov ch,[labels_type]	496	mov ch,[labels_type]
497	push [org_symbol]	497	push [org_symbol]
498	pop [address_symbol]	498	pop [address_symbol]
499	cmp [virtual_data],0	499	cmp [virtual_data],0
500	jne make_free_label	500	jne make_free_label

Subversion Repositories Kolibri OS

(root)/programs/develop/fasm/trunk/assemble.inc – Rev 157 → 174