format PE Console 4.0

entry start
include 'win32a.inc'
include 'win_macros.inc'

section '.text' code readable executable

start:
clrscr  ;1.
ustaw_kursor 10, 2  ;2.

ety:
pob_znak    ;3.
cmp ax, 1Bh ;porownanie do 'escape'
je skokdo7  ;jesli rowne to skok do 7. (4. punkt)

cmp ax, 65  ;sprawdzenie czy znak jest duza litera
jb malyznak
cmp ax, 90  ;sprawdzenie czy znak jest duza litera
ja malyznak

;5.
wysw_znak al
inc [licznik_liter]

malyznak:
jmp ety ;6.

;7.
skokdo7:
wyswietl txt2
add [licznik_liter], 48
wysw_znak [licznik_liter]

;8.
koniec:
pob_znak
CMP al, 27
JNE koniec
end_prog

section '.data' data readable writeable
    licznik_liter   db  0
    txt2    db  10,13,'Liczba liter: ',NULL