%include "rw32.inc"
; Procházej prvky v poli a kladné čísla vypisuj jako znak (WriteChar).
; Konec pole je označen prvkem s hodnotou nula.

section .data
    num dd 73,-5,83,-85,85,-101,-401,32,106,-1,101,32,66,-1,64,-1,90,73,-44,0,73,-4,99,72

section .text
main:
    mov ecx, 0
.while:
    mov eax, [num+ecx*4]
    inc ecx
    cmp eax,0
    jz .end   ; nula -> break
    cmp eax,0
    js .while  ; zaporne cislo -> continue
    call WriteChar
    cmp eax,0
    jnz .while
.end:
    call WriteNewLine
    ret