format PE64 console DLL
entry DllEntryPoint

include 'win64a.inc'

section '.text' code readable executable

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

proc WriteMessage uses rbx rsi rdi, message
	mov	rdi,rcx 			; first parameter passed in RCX
	invoke	GetStdHandle,STD_OUTPUT_HANDLE
	mov	rbx,rax
	xor	al,al
	or	rcx,-1
	repne	scasb
	dec	rdi
	mov	r8,-2
	sub	r8,rcx
	sub	rdi,r8
	invoke	WriteFile,rbx,rdi,r8,bytes_count,0
	ret
endp

section '.bss' data readable writeable

  bytes_count dd ?

section '.edata' export data readable

  export 'WRITEMSG.DLL',\
	 WriteMessage,'WriteMessage'

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'