Subversion Repositories Kolibri OS

Rev

Rev 7836 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7836 Rev 9459
Line 1... Line 1...
1 
; flat assembler core
 1 
; flat assembler core
2 
; Copyright (c) 1999-2020, Tomasz Grysztar.
 2 
; Copyright (c) 1999-2021, Tomasz Grysztar.
3 
; All rights reserved.
 3 
; All rights reserved.
Line 4... Line 4...
4 
 
 4 
 
5 
calculate_expression:
 5 
calculate_expression:
6 
	mov	[current_offset],edi
 6 
	mov	[current_offset],edi
Line 1873... Line 1873...
1873 
	cmp	al,'('
 1873 
	cmp	al,'('
1874 
	jne	invalid_value
 1874 
	jne	invalid_value
1875 
	call	get_value_for_comparison
 1875 
	call	get_value_for_comparison
1876 
	mov	bh,[value_sign]
 1876 
	mov	bh,[value_sign]
1877 
	push	eax edx [symbol_identifier] ebx ecx
 1877 
	push	eax edx
- 
 
 1878 
	push	[symbol_identifier]
1878 
	mov	al,[esi]
 1879 
	push	ebx ecx
- 
 
 1880 
	mov	al,[esi]
1879 
	or	al,al
 1881 
	or	al,al
1880 
	jz	logical_number
 1882 
	jz	logical_number
1881 
	cmp	al,0Fh
 1883 
	cmp	al,0Fh
1882 
	je	logical_number
 1884 
	je	logical_number
1883 
	cmp	al,92h
 1885 
	cmp	al,92h