; =============================================================================
;
;                               Litos - Objects
;
; =============================================================================

		CODE_SECTION	32

; -----------------------------------------------------------------------------
;                           Initialize object
; -----------------------------------------------------------------------------
; INPUT:	EAX = object type
;		EBX = object address
; -----------------------------------------------------------------------------

ObjectInit:	mov	[ebx+OBJECT_Type],eax	; object type
		and	dword [ebx+OBJECT_Ref],byte 0 ; reference counter
		and	dword [ebx+OBJECT_Owner],byte 0 ; owner (system)
		ret

; -----------------------------------------------------------------------------
;                                   Data
; -----------------------------------------------------------------------------

		DATA_SECTION

; -----------------------------------------------------------------------------
;                            Uninitialized data
; -----------------------------------------------------------------------------

		BSS_SECTION