fasm 1.69.34 - It's works but need check

git-svn-id: svn://kolibrios.org@2287 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/fasm/trunk/system.inc

@@ -98,6 +98,117 @@ make_timestamp:
 	pop	ebx
 	ret
 
+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
+
 get_environment_variable:
 	mov	ecx,[memory_end]
 	sub	ecx,edi