kolibrios-fun/programs/develop/libraries/charset/charset.asm

format MS COFF

public EXPORTS

section '.flat' code readable align 16

; int version()
version:
	mov	eax, 1
	ret


; void __stdcall dos2win (const char text_in[], char text_out[])
dos2win:
	push	ecx
	push	edx

	mov	ecx, [esp+12]
	mov	edx, [esp+16]

	pushad

	mov	ebx, d2w
	mov	[charset], ebx
	call	translate8

	popad

	pop	edx
	pop	ecx
	ret	8

; void __stdcall win2dos (const char text_in[], char text_out[])
win2dos:
	push	ecx
	push	edx

	mov	ecx, [esp+12]
	mov	edx, [esp+16]

	pushad

	mov	ebx, w2d
	mov	[charset], ebx
	call	translate8

	popad

	pop	edx
	pop	ecx
	ret	8

; void __stdcall koi2dos (const char text_in[], char text_out[])
koi2dos:
	push	ecx
	push	edx

	mov	ecx, [esp+12]
	mov	edx, [esp+16]

	pushad

	mov	ebx, k2d
	mov	[charset], ebx
	call	translate8

	popad

	pop	edx
	pop	ecx
	ret	8

translate8:
	mov	byte al, [ecx]

	cmp	al, 0
	je	_translate8_end

	cmp	al, 127
	jb	_translate8_copy

	and	eax, 127
	mov	ebx, [charset]
	add	ebx, eax	

	mov	byte al, [ebx]

	_translate8_copy:
		mov	byte [edx], al

		inc	edx
		inc	ecx

		jmp	translate8

	_translate8_end:
		mov	byte [edx], 0
		ret


align 16
EXPORTS:
		dd	szVersion,	version
		dd	szDos2win,	dos2win
		dd	szWin2dos,	win2dos
		dd	szKoi2dos,	koi2dos
		dd	0,		0

szVersion	db	'version',0
szDos2win	db	'dos2win',0
szWin2dos	db	'win2dos',0
szKoi2dos	db	'koi2dos',0

d2w		db	192, 193, 194, 195, 196, 197, 198, 199 
		db	200, 201, 202, 203, 204, 205, 206, 207
		db	208, 209, 210, 211, 212, 213, 214, 215
		db	216, 217, 218, 219, 220, 221, 222, 223
		db	224, 225, 226, 227, 228, 229, 230, 231
		db	232, 233, 234, 235, 236, 237, 238, 239
		db	32,  32,  32,  32,  32,  32,  32,  32
		db	32,  32,  32,  32,  32,  32,  32,  32
		db	32,  32,  32,  32,  32,  32,  32,  32
		db	32,  32,  32,  32,  32,  32,  32,  32
		db	32,  32,  32,  32,  32,  32,  32,  32
		db	32,  32,  32,  32,  32,  32,  32,  32
		db	240, 241, 242, 243, 244, 245, 246, 247
		db	248, 249, 250, 251, 252, 253, 254, 255
		db	168, 184, 170, 186, 175, 191, 161, 162
		db	176, 32,  32,  32,  185, 164, 32,  32


w2d		db	32,  32,  44,  32,  34,  32,  32,  32
		db	94,  32,  32,  60,  32,  32,  32,  32
		db	32,  39,  39,  34,  34,  32,  45,  45 
		db	126, 32,  32,  62,  32,  32,  32,  32
		db	32,  246, 247, 74,  253, 131, 32,  32
		db	240, 32,  242, 34,  32,  32,  32,  244
		db	248, 32,  73,  105, 163, 32,  32,  250
		db	241, 252, 243, 34,  106, 83,  115, 245
		db	128, 129, 130, 131, 132, 133, 134, 135
		db	136, 137, 138, 139, 140, 141, 142, 143
		db	144, 145, 146, 147, 148, 149, 150, 151
		db	152, 153, 154, 155, 156, 157, 158, 159
		db	160, 161, 162, 163, 164, 165, 166, 167
		db	168, 169, 170, 171, 172, 173, 174, 175
		db	224, 225, 226, 227, 228, 229, 230, 231
		db	232, 233, 234, 235, 236, 237, 238, 239


k2d		db	196, 179, 218, 191, 192, 217, 195, 180
		db	194, 193, 197, 223, 220, 219, 221, 222
		db	176, 177, 178, 32,  254, 249, 251, 32 
		db	32,  32,  32,  32,  248, 32,  250, 32 
		db	205, 186, 184, 241, 214, 201, 184, 183
		db	187, 212, 211, 200, 190, 189, 188, 198
		db	199, 204, 181, 240, 182, 185, 209, 210
		db	203, 207, 208, 202, 216, 215, 206, 32 
		db	238, 160, 161, 230, 164, 165, 228, 163
		db	229, 168, 169, 170, 171, 172, 173, 174
		db	175, 239, 224, 225, 226, 227, 166, 162
		db	236, 235, 167, 232, 237, 233, 231, 234 
		db	158, 128, 129, 150, 132, 133, 148, 131
		db	149, 136, 137, 138, 139, 140, 141, 142
		db	143, 159, 144, 145, 146, 147, 134, 130
		db	156, 155, 135, 152, 157, 153, 151, 154

section '.data' data readable writable align 16

charset		rd	1