gcd proc x:DWORD, y:DWORD
        push eax
        push edx
        push ecx
        .while x != 0 && y != 0
            .if x > y
                mov eax, dword ptr x
                mov ecx, dword ptr y
                xor edx, edx
                div ecx
                mov dword ptr x, edx
            .else
                mov eax, dword ptr y
                mov ecx, dword ptr x
                xor edx, edx
                div ecx
                mov dword ptr y, edx
            .endif
        .endw
        pop ecx
        pop edx
        pop eax
        ret
    gcd endp