org 100h

mov bx, 0
petla:
    push bx

mov bp, tekst
cmptekst:
        mov al, 'X' ; znak ze słowa
        cmp al, 0     ; czy koniec tekstu
        je takiesame  ; jesli dotarlismy do konca tekstu, to jest to to samo

        cmp byte [es:bx], al  ; czy to samo
        jne nierowne;
        inc bp
        add bx,2
    jmp cmptekst

    takiesame:
        pop bx
        push bx
        mov bp, tekst
        zamazywanie:
            cmp byte [bp], 0
            je dalej
            mov byte [es:bx], 32 ; spacja
            inc bp
            add bx,2
        jmp zamazywanie
    jmp dalej
    nierowne:
    dalej:
    pop bx
    add bx, 2
    cmp bx, 80*24*2
jl petla


mov byte [es:bp], 0
call wypisz

mov ax, 4c00h
int 21h

tekst: db 'X', 'JAXY!', 0

wypisz:
    wypisz.petla:
        mov ah, 2
        mov dl, [bp]
        int 21h
        inc bp
        cmp byte [bp],0
    jne wypisz.petla
ret