format PE GUI 4.0 DLL
entry DllEntryPoint

include '%fasminc%win32a.inc'

section '.code' code readable executable

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

proc	cp1251_to_utf8, mWnd, aWnd, chString, chParms, show, nopause
	enter
	pusha
	mov	esi, [chString]
	mov	edi, buffer
	mov	ecx, 899
.l1:
	cmp	byte [esi], 0
	je	.exit
	cmp	ecx, 0
	je	.exit
	mov	al, [esi]
	inc	esi
	cmp	al, 0xb8
	je	.e1
	cmp	al, 0xa8
	je	.e2
	cmp	al, 0xc0
	jb	.st2
	cmp	al, 0xf0
	jae	.d1
	mov	byte [edi], 0xd0
	sub	al, 0x30
	jmp	.cc
.d1:
	mov	byte [edi], 0xd1
	sub	al, 0x70
.cc:
	inc	edi
	dec	ecx
	cmp	ecx, 0
	je	.exit
.st2:
	mov	[edi], al
.continue:
	inc	edi
	dec	ecx
	jmp	.l1
.e1:
	mov	al, 0x91
	mov	byte [edi], 0xd1
	jmp	.ste
.e2:
	mov	al, 0x81
	mov	byte [edi], 0xd0
.ste:
	inc	edi
	dec	ecx
	cmp	ecx, 0
	je	.exit
	mov	byte [edi], al
	jmp	.continue
.exit:
	mov	byte [edi], 0
	mov	esi, buffer
	mov	edi, [chString]
	mov	ecx, 900
	repne	 movsb

	popa
	mov	eax, 3
	return
endp

proc	utf8_to_cp1251, mWnd, aWnd, chString, chParms, show, nopause
	enter
	pusha
	mov	esi, [chString]
	mov	edi, buffer
	mov	ecx, 899
.l1:
	cmp	byte [esi], 0
	je	.exit
	cmp	ecx, 0
	je	.exit
	mov	al, [esi]
	inc	esi
	cmp	al, 0xd0
	je	.d0
	cmp	al, 0xd1
	jne	.store
	mov	al, [esi]
	inc	esi
	cmp	al, 0x91
	jne	.d1others
	mov	al, 0xb8
	jmp	.store
.d1others:
	add	al, 0x70
	jmp	.store
.d0:
	mov	al, [esi]
	inc	esi
	cmp	al, 0x81
	jne	.d0others
	mov	al, 0xa8
	jmp	.store
.d0others:
	add	al, 0x30
.store:
	mov	[edi], al
	inc	edi
	dec	ecx
	jmp	.l1

.exit:
	mov	byte [edi], 0
	mov	esi, buffer
	mov	edi, [chString]
	mov	ecx, 900
	repne	 movsb

	popa
	mov	eax, 3
	return
endp

section '.data' data readable writeable

buffer: rb     900

section '.edata' export data readable

  export 'cputf8.DLL',
	 cp1251_to_utf8,'cp1251_to_utf8',
	 utf8_to_cp1251,'utf8_to_cp1251'

section '.reloc' fixups data discardable

format PE GUI 4.0 DLL
entry DllEntryPoint

include '%fasminc%win32w.inc'

CP_ACP	EQU	0
CP_UTF8 EQU	65001

section '.code' code readable executable

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

proc cp1251_to_utf8, mWnd, aWnd, chString, chParms, show, nopause
     enter
     pusha
     mov	esi, [chString]
     mov	ecx, 900
     repne	scasb
     neg	ecx
     add	ecx, 900
     push	ecx
     invoke	MultiByteToWideChar,CP_ACP,0,[chString],ecx,buffer,1800
     pop	ecx
     shl	ecx, 2
     invoke	WideCharToMultiByte,CP_UTF8,0,buffer,ecx,[chString],900,0,0
     popa
     mov	eax, 3
     return
endp

proc utf8_to_cp1251, mWnd, aWnd, chString, chParms, show, nopause
     enter
     pusha
     mov	esi, [chString]
     mov	ecx, 900
     repne	scasb
     neg	ecx
     add	ecx, 900
     push	ecx
     invoke	MultiByteToWideChar,CP_UTF8,0,[chString],ecx,buffer,1800
     pop	ecx
     shl	ecx, 2
     invoke	WideCharToMultiByte,CP_ACP,0,buffer,ecx,[chString],900,0,0
     popa
     mov	eax, 3
     return
endp

section '.data' data readable writeable

buffer: rb     1800

section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL'

  import kernel,
	 MultiByteToWideChar,'MultiByteToWideChar',
	 WideCharToMultiByte,'WideCharToMultiByte'

section '.edata' export data readable

  export 'cputf8.DLL',
	 cp1251_to_utf8,'cp1251_to_utf8',
	 utf8_to_cp1251,'utf8_to_cp1251'

section '.reloc' fixups data discardable

/fromutf8 {
  /var %msg = $dll(cputf8.dll,utf8_to_cp1251,$3-)
  if $1 != $null //echo $1 < $+ $2 $+ > %msg
  else //echo $2 < $+ $2 $+ > %msg
&#125;
/toutf8 &#123;
  //echo $active < $+ $mnick $+ > $1-
  /.msg $active $dll&#40;cputf8.dll,cp1251_to_utf8,$1-&#41;
&#125;