ASM Community

BITS 32

%define SINGLE_FILE_BUILD
%include "objects.inc"

EXTERN puts
EXTERN printf

CLASS CTest
	virtual method, Say
	static method, CTest
	static method, Hello
	static method, GoodBye
	static dword, m_who
ENDCLASS

CLASS CHaha, CTest
ENDCLASS

CLASS CBlah, CHaha
	virtual method, Say
	static method, CBlah
	static method, Hi
ENDCLASS

CLASS MYA
	static method, Say
ENDCLASS

SECTION .text

MYA_Say:
%push
%stacksize flat
%arg	this:DWORD, msg:DWORD

	push ebp
	mov ebp, esp
	push dword 
	call puts
	add esp, 4
	leave
	ret

%pop

CBlah_CBlah:
%push
%stacksize flat
%arg	this:DWORD

	push ebp
	mov ebp, esp
	mov ecx, 
	mov edx, strAuthor
	mov , edx
	leave
	ret

%pop

CBlah_Hi:
%push
%stacksize flat
%arg	this:DWORD

	push ebp
	mov ebp, esp
	mov ecx, 
	push dword 
	push dword strHello
	call printf
	add esp, 8
	leave
	ret

%pop

CBlah_Say:
%push
%stacksize flat
%arg	this:DWORD, msg:DWORD

	push ebp
	mov ebp, esp
	mov ecx, 
	push dword 
	push dword strCBS
	call printf
	add esp, 8
	leave
	ret

%pop


CTest_CTest:
%push
%stacksize flat
%arg	this:DWORD, msg:DWORD

	push ebp
	mov ebp, esp
	mov ecx, 
	mov edx, 
	mov , edx
	leave
	ret

%pop

CTest_Say:
%push
%stacksize flat
%arg	this:DWORD, msg:DWORD

	push ebp
	mov ebp, esp
	mov ecx, 
	push dword 
	call puts
	add esp, 4
	leave
	ret

%pop

CTest_Hello:
%push
%stacksize flat
%arg	this:DWORD

	push ebp
	mov ebp, esp
	mov ecx, 
	push dword 
	push dword strHello
	call printf
	add esp, 8
	leave
	ret

%pop

CTest_GoodBye:
%push
%stacksize flat
%arg	this:DWORD

	push ebp
	mov ebp, esp
	mov ecx, 
	push dword 
	push dword strGoodBye
	call printf
	add esp, 8
	leave
	ret

%pop

GLOBAL main
main:
	push ebp
	mov ebp, esp

	new CTest, dword strAuthor
	mov , eax

	vcall , CTest,Say, strTitle
	mcall , CTest,Hello
	mcall , CTest,GoodBye

	delete 

	new CBlah
	mov , eax

	mcall , CBlah,Hi
	vcall , CBlah,Say, strTitle

	delete 

	new MYA
	mov , eax
	mcall , MYA,Say, strTitle
	delete 

	xor eax, eax
	leave
	ret

SECTION .data
pObject		DD 0	;; Our Object Pointer

strHello	DB "Hello, %s", 10, 0
strGoodBye	DB "GoodBye, %s", 10, 0
strTitle	DB "NASM OOP Demo", 0
strAuthor	DB "Bryant Keller", 0
strCBS		DB "CBS: %s", 10, 0

%macro argcnt 1-*
%assign %$argCount %0
%endm

%imacro new 1-2+
	nasm_alloc %{1}_size
	push eax

	push eax
	call %{1}___%{1}
%push
	%define %$parent %{1}
	%if %[%{$parent}]_has_parent = 1

		%define %$parent %[%{$parent}]_parent

		%if %[%{$parent}]_has_ctor = 1
			rpush %{2}
			push eax
			call %[%{$parent}]_%[%{$parent}]
		%endif
		pop eax
		argcnt %{2}
		%if %$argCount > 0
			sub esp, (%{$argCount} * 4)
		%endif
	%endif
%pop
	%if %{1}_has_ctor = 1
		rpush %{2}
		push eax
		call %{1}_%{1}
	%endif
	pop eax
	argcnt %{2}
	%if %$argCount > 0
		sub esp, (%{$argCount} * 4)
	%endif
%endm

             Primer
               |
             ClassX
            /      \
      ClassY        ClassZ
     /	                  \
ClassA                     ClassB

.if dword ptr  == MyClass1_Somefunc ; isInstanceOf

   ClassZ::Primer {}
   ClassY::ClassZ {}
   ClassX::ClassY {}
   ClassA::ClassX {}

   ClassY Y;
   ClassA A;

   bool ClassY::isInstanceOf(ClassY* argObj) { ... }

   // is A an instance of Y
   if (Y.isInstanceOf(&ClassA) ) { ... }

CChildXYZ_instanceList:  dd  CChildXYZ_Destructor, CChild1_Destructor, CBase_Destructor,0 ; the instanceof func/macro loops this

CChildXYZ_vTable: dd CChildXYZ_instanceList, CChildXYZ_Destructor, CBase_virtual1,CChildXYZ_virtual2