.model flat
.686

extern _ExitProcess@4 : PROC
extern _MessageBoxA@16 : PROC
extern _MessageBoxW@16 : PROC
extern __write : PROC ; (dwa znaki podkreślenia)
extern __read : PROC ; (dwa znaki podkreślenia)
public _base36_na_uint64
	.data

	znaki36 db '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'

	.code
		_base36_na_uint64 PROC
			push ebp
			mov esp, ebp
			push esi
			push edi
			push ebx
			push edx
			mov esi, [ebp+8]
			mov edi, 36
			xor ebx, ebx
			xor ecx, ecx
			xor edx, edx
			dec ecx
			;szukam ktory to znak
		ptl:
			inc ecx
			mov bl, [esi]
			cmp bl, 0
			je koniec
			cmp bl, znaki36[ecx]
			je dodaj
			jmp ptl
		dodaj:
			mul edi
			add eax, ecx
			inc esi
			jmp ptl
		koniec:
			pop edx
			pop ebx
			pop edi
			pop esi
			pop ebp
			ret
		_base36_na_uint64 ENDP
END