org 100h
        use16

EntryPoint:
        push    x

        call    Checking

        mov     AH, 02h
        mov     Dl, AL
        add     DL, '0'
        int     21h

        mov     AH, 08h
        int     21h

        ret

Checking:
        push    BP
        mov     BP, SP

        mov     BX, [BP + 4]

        mov     DI, -1
StartZ:                             ; íà ïðîáåëû â íà÷.
        inc     DI
        cmp     byte[BX + DI], 0
        je      IsntNum
        cmp     byte[BX + DI], ' '
        jne     StartNum
        jmp     StartZ
                                    ; ÷èñëî ëè
StartNum:
        cmp     byte[BX + DI], '1'
        jb      IsntNum
        cmp     byte[BX + DI], '9'
        ja      IsntNum

NumLoop:                            ; ÷èñëî ëè äàëüøå?
        inc     DI
        cmp     byte[BX + DI], '0'
        jb      IsSpaces
        cmp     byte[BX + DI], '9'
        ja      IsSpaces
        jmp     NumLoop

IsSpaces:
        cmp     byte[BX + DI], 0
        je      IsNum
        cmp     byte[BX + DI], ' '
        jne     IsntNum
        inc     DI
        jmp     IsSpaces

; êîíåö
IsntNum:
        mov     AX, 0
        jmp     EndProc

IsNum:
        mov     AX, 1

EndProc:
        pop     BP
        ret     2

x       db      '  3323213     ', 0