.MODEL SMALL
.STACK
.DATA
    msg   db 'input number?$'
    msg1  db ' is even$'
    msg2  db ' is odd$'
    odoa  db 0dh,0ah,'$'
    tt    db ?
.CODE
    MOV   AX,@DATA
    MOV   DS,AX
;
    lea   dx,msg
    mov   ah,09
    int   21h
;
    mov   ah,01
    int   21h
    mov   tt,al
;
    lea   dx,odoa
    mov   ah,09
    int   21h
;
    mov   dl,tt
    mov   ah,02
    int   21h
    mov   al,tt
    and   al,01h
    cmp   al,0
    je    pe
    lea   dx,msg2
    mov   ah,09
    int   21h
    jmp   ex
;
pe: lea   dx,msg1
    mov   ah,09
    int   21h
;
ex: mov   ah,4ch
    int   21h
END