2.6

.686
.model flat
extern _ExitProcess@4 : 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 (?)
nowa_linia db 10
liczba_znakow dd ?

male_polskie db 0A5h, 86h, 0A9h, 88h, 0E4h, 0A2h, 98h, 0ABh, 0BEh
Win1250_duze db 0A5H, 0C6H, 0CAH, 0A3H, 0D1H, 0D3H, 8CH, 8FH, 0AFH
duze_polskie db 0A4h, 8Fh, 0A8h, 9Dh, 0E3h, 0E0h, 97h, 8Dh, 0BDh

tytul db 'tytul', 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]
             jne kolejne
             mov dl, Win1250_duze[eax]
             mov magazyn[ebx], dl
             jmp dalej

        kolejne: inc eax
                 cmp eax, 9
                 jb zamiana

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

    mov magazyn[ebx], dl
dalej: inc ebx
       loop ptl


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


    add esp, 12

    push 0
    call _ExitProcess@4

END