Subversion Repositories Kolibri OS

Rev

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

Rev 340 Rev 607
Line 157... Line 157...
157 
	jmp	missing_end_directive
 157 
	jmp	missing_end_directive
158 
      blocks_stack_ok:
 158 
      blocks_stack_ok:
159 
	xor	al,al
 159 
	xor	al,al
160 
	stos	byte [edi]
 160 
	stos	byte [edi]
161 
	mov	eax,[error_line]
 161 
	;mov     eax,[error_line]
162 
	mov	[current_line],eax
 162 
	;mov     [current_line],eax
163 
	cmp	[anonymous_forward],0
 163 
	;cmp     [anonymous_forward],0
164 
	jne	invalid_value
 164 
	;jne     invalid_value
165 
	add	edi,0Fh
 165 
	add	edi,0Fh
166 
	and	edi,not 0Fh
 166 
	and	edi,not 0Fh
167 
	mov	[code_start],edi
 167 
	mov	[code_start],edi
168 
	ret
 168 
	ret
169 
      parse_block:
 169 
      parse_block:
170 
	mov	eax,esp
 170 
	mov	eax,esp
Line 1161... Line 1161...
1161 
      anonymous_ok:
 1161 
      anonymous_ok:
1162 
	xor	ebx,ebx
 1162 
	xor	ebx,ebx
1163 
	ret
 1163 
	ret
1164 
      anonymous_back:
 1164 
      anonymous_back:
1165 
	add	esi,2
 1165 
	mov	eax,[anonymous_reverse]
1166 
	mov	eax,[anonymous_reverse]
 - 
 
1167 
	or	eax,eax
 1166 
	or	eax,eax
1168 
	jz	invalid_value
 1167 
	jz	new_anonymous
1169 
	jmp	anonymous_ok
 1168 
	add	esi,2
- 
 
 1169 
	jmp	anonymous_ok
1170 
      new_anonymous:
 1170 
      new_anonymous:
1171 
	add	esi,2
 1171 
	add	esi,2
1172 
	mov	eax,[anonymous_forward]
 1172 
	mov	eax,[anonymous_forward]
1173 
	or	eax,eax
 1173 
	or	eax,eax
1174 
	jnz	new_anonymous_ok
 1174 
	jnz	new_anonymous_ok