%include "io.inc"
section .text

global CMAIN
CMAIN:
            mov ebp, esp; for correct debugging
            mov ebx,m
            call tabul
            ret
tabul:      xor ecx,ecx
            xor edx,edx
            mov dl,20h
tryagain:   cmp cx,len
            je uidi
            cmp [m+ecx],dl
            je zamena
            cmp [m+ecx+1],dl
            je zamena
            cmp [m+ecx+2],dl
            je zamena
            mov ah,[m+ecx]
            PRINT_DEC 1,ah
            mov [neu+ecx],ah
            inc ecx
            jmp tryagain
zamena:     mov al,9h
            mov [neu],al
            add ecx,3
            jmp tryagain
uidi:       ret
    section .Data
m db 4,    0,3     ,9
neu db 0
len equ $-m