.model tiny
.stack 256

.DATA
        ifEqual DB 'txt $', 10, 13
        spelniony DB  ' Warunek zostal spelniony $', 10, 13
        koniec DB 'Koniec programu$', 10, 13
.CODE

main PROC
        MOV ax, @data
        MOV ds, ax

        MOV AX, 3 ;CZYSZCZENIE EKRANU AR
        INT 10h

        MOV AH, 7 ;WCZYTAJ DANEJ Z KLAWIATURY w rejestrze AL
        INT 21h

        MOV AH,2 ;WWYSWIETLA ZAPISANA LICZBE AL
        MOV DL,AL
        INT 21h


        sub AL, 48

        MOV CL,al
        Petla:

                cmp CL,3
                je tosamo
                mov dl, 'x'
                int 21h

        DEC CL
        cmp CL,0
        je zakonczenie
        JNZ Petla


        mov ah,7
        int 21h

        mov AL, 0H
        mov AH,4Ch
        int 21h

        tosamo:
        lea dx, spelniony
        mov ah,09h
        int 21h

        mov ah,7
        int 21h
        mov ax, 4C00h
        int 21h

        zakonczenie:
        lea dx,koniec
        mov ah,09h
        int 21h

        mov ah,7
        int 21h

        mov ax, 4C00h
        int 21h

main ENDP
END main