TITLE MASM Template                     (main.asm)

INCLUDE Irvine32.inc
.data
    dlzka equ 10
    R DB dlzka dup(?);
    S DB dlzka dup(?);

.code
main PROC
call Clrscr

    mov edx,OFFSET R
    mov ecx,dlzka
    call ReadString


        mov edi,0; prvý znak má index 0
        mov esi,0
Vypis:  mov al,R[edi]; ulož do al znak na indexe edi
        cmp al,0; porovnaj al s nulou
        je Koniec; ak sú rovnaké, skok na návestie Koniec


        cmp al,'a'
        je podmienka



tu:
        mov S[esi], al
        inc edi; zvýš index o 1
        inc esi
        jmp Vypis

podmienka:
    mov al, R[edi + 1]
    cmp al,'s'
    je vykonaj

    mov al, R[edi]
    jmp tu

vykonaj:
    mov al, '*'
    inc edi
    jmp tu



Koniec:
mov edx, OFFSET S
 call WriteString

exit
main ENDP

END main