.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