format PE64 console DLL
entry DllEntryPoint

include 'win64a.inc'

section '.text' code readable executable


proc DllEntryPoint hinstDLL,fdwReason,lpvReserved
        mov     eax,TRUE
        ret
endp



; Funktion: Add(a, b) -> eax = a + b
proc AddHar , TestA

    mov RAX,[TestA]
    ADD rax,0x00000010
    MOV  [TestA],rax
    ret

endp



;section '.bss' data readable writeable
  ;TestA  dq ?

section '.edata' export data readable writeable

  export 'TestH.DLL',\
          AddHar, 'AddHar'

section '.reloc' fixups data readable discardable

  if $=$$
    dd 0,8              ; if there are no fixups, generate dummy entry
  end if

;section '.idata' import data readable writeable

  ;library kernel32,'KERNEL32.DLL'

  ;include 'api/kernel32.inc'