na zajeciach

; wczytywanie i wyświetlanie tekstu wielkimi literami
; (inne znaki się nie zmieniają)
.686
.model flat
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  _main
.data
tekst_pocz     db   10, 'Proszę napisać jakiś tekst '
			   db   'i nacisnac Enter', 10, 0

koniec_t       db   ? ; wartość nieokreślona
naglowek	db 'AKO', 0
magazyn        dw   800 dup (0) ;
nowa_linia     db   10
liczba_znakow  dd   ? ; wartość nieokreślona
.code
_main:
						; wyświetlenie tekstu informacyjnego
						; liczba znaków tekstu
           mov     ecx,(OFFSET koniec_t) - (OFFSET tekst_pocz)
           push    ecx
           push    OFFSET tekst_pocz  ; adres tekstu
           push    1     ; nr urządzenia (tu: ekran - nr 1)
           call    __write  ; wyświetlenie tekstu początkowego
           add     esp, 12    ; usuniecie parametrów ze stosu
					  ; czytanie wiersza z klawiatury
           push    80 ; maksymalna liczba znaków
           push    OFFSET magazyn
           push    0  ; nr urządzenia (tu: klawiatura - nr 0)
           call    __read ; czytanie znaków z klawiatury
           add     esp, 12    ; usuniecie parametrów ze stosu
						; kody ASCII napisanego tekstu zostały wprowadzone
						; do obszaru 'magazyn'
						; funkcja read wpisuje do rejestru EAX liczbę
						; wprowadzonych znaków
           mov     liczba_znakow, eax
						; rejestr ECX pełni rolę licznika obiegów pętli

           mov     ecx, eax
           mov     ebx, 0
		   mov bp, 0         ; indeks początkowy
ptl:       mov     dx, magazyn[bp] ; pobranie kolejnego znaku


		      cmp     dl, 0A5H ; ą
           je      zamiana_a   ;
		      cmp     dl, 086H ; ć
           je      zamiana_c   ;
		      cmp     dl, 0A9H  ; ę
           je      zamiana_e   ;
		      cmp     dl, 88H ; ł
           je      zamiana_l   ;
		      cmp     dl, 0E4H ; ń
           je      zamiana_n   ;
		      cmp     dl, 0A2H ; ó
           je      zamiana_o   ;
		      cmp     dl,98H   ; ś
           je      zamiana_s   ;
		      cmp     dl, 0ABH ; ź
           je      zamiana_ziet
		      cmp     dl, 0BEH ; ż
           je      zamiana_zet

		      cmp     dl, 'a'
           jb      dalej   ; skok, gdy znak nie wymaga zamiany
		      cmp     dl, 'z'
           ja      dalej   ; skok, gdy znak nie wymaga zamiany
		  sub     dx, 20H ; zamiana na wielkie litery

		   jmp zamagazynowanie
zamiana_a: mov		dx, 105H
			jmp zamagazynowanie
zamiana_c: mov		dx, 107H
			jmp zamagazynowanie
zamiana_e: mov		dx, 119H
			jmp zamagazynowanie
zamiana_l: mov		dx, 142H
			jmp zamagazynowanie
zamiana_n: mov		dx, 144H
			jmp zamagazynowanie
zamiana_o: mov		dx, 0F3H
			jmp zamagazynowanie
zamiana_s: mov		dx, 15BH
			jmp zamagazynowanie
zamiana_ziet: mov		dx, 17AH
			jmp zamagazynowanie
zamiana_zet: mov		dx, 17CH
			jmp zamagazynowanie
								   ; odesłanie znaku do pamięci
zamagazynowanie:           mov     magazyn[ebx], dx
dalej:     inc     ebx     ; inkrementacja indeksu
			inc ebx
			inc bp
			dec ecx
			jnz ptl    ; sterowanie pętlą
						   ; wyświetlenie przekształconego tekstu
		 mov dx, 0
		 mov magazyn[ebx], dx

           push    liczba_znakow
           push    OFFSET magazyn
           push    1
           call    __write  ; wyświetlenie przekształconego tekstu
           add     esp, 12  ; usuniecie parametrów ze stosu
		   push 0
		   push OFFSET naglowek
		   push OFFSET magazyn
		   push 0
		   call _MessageBoxW@16
           push    0
           call    _ExitProcess@4      ; zakończenie programu
END