2.7

.686
.model flat
extern _ExitProcess@4 : PROC
extern _MessageBoxW@16 : PROC
extern _MessageBoxA@16 : PROC
extern __write : PROC
extern __read : PROC
public _main

.data
tekst_pocz db 10, 'Prosz',0A9h,' napisa',86h,' jaki',98h,' tekst '
           db 'i nacisn',0A5h,86h,' Enter', 10
koniec_t   db ?
magazyn    db 80 dup (?)
magazyn_uni dw 80 dup (?)
nowa_linia db 10
liczba_znakow dd ?

male_polskie db 0A5h, 86h, 0A9h, 88h, 0E4h, 0A2h, 98h, 0ABh, 0BEh
duze_polskie db 0A4h, 8Fh, 0A8h, 9Dh, 0E3h, 0E0h, 97h, 8Dh, 0BDh
win_duze db 0A5h, 0C6h, 0CAh, 0A3h, 0D1h, 0D3h, 8Ch, 8Fh, 0AFh
utf_duze    dw 0104h, 0106h, 0118h, 0141h, 0143h, 00D3h, 015Ah, 0179h, 017Bh


tytul db 'tytul 1250', 0
tytul_uni dw 'u','n','i', 0

.code
_main:

    mov ecx, (OFFSET koniec_t) - (OFFSET tekst_pocz)
    push ecx

    push OFFSET tekst_pocz
    push 1
    call __write

    add esp, 12

    push 80
    push OFFSET magazyn
    push 0
    call __read
    add esp, 12

    mov liczba_znakow, eax
    mov ecx, eax
    mov ebx, 0

ptl: mov dl, magazyn[ebx]
     mov eax, 0

    zamiana: cmp dl, male_polskie[eax]
             je wymiana
             cmp dl, duze_polskie[eax]
             je wymiana
             jmp kolejne
        wymiana: mov dl, Win_duze[eax]
             mov magazyn[ebx], dl
             mov dx, utf_duze[eax*2]
             mov magazyn_uni[ebx*2], dx
             mov dx, 0
             jmp dalej
        kolejne: inc eax
                 cmp eax, 9
                 jb zamiana



    cmp dl, 'a'
    jb dalej
    cmp dl, 'z'
    ja dalej
    sub dl, 20h

dalej:  mov magazyn[ebx], dl
        mov magazyn_uni[ebx*2], dx
        inc ebx
        loop ptl


    push 0
    push OFFSET tytul
    push OFFSET magazyn
    push 0
    call _MessageBoxA@16

    push 0
    push OFFSET tytul_uni
    push OFFSET magazyn_uni
    push 0
    call _MessageBoxW@16

    push 0
    call _ExitProcess@4

END