.MODEL SMALL
.STACK
.DATA
 str     db 'input data --> $'
 evn     db 'the number is even$'
 odd     db ' the number is odd'
 oaod    db 0ah,0dh,'$'
 no1     db ?
.CODE
    MOV AX,@DATA
    MOV DS,AX
;
    lea  dx,str
    mov ah,09h
    int 21h
;
    mov ah,1h     ; input from keyboard
    int 21h
    mov no1,al    ; save input
;
    lea dx,oaod
    mov ah,09h
    int 21h
;
    mov dl,no1    ; print input character
    mov ah,02h
    int 21h
;
    mov al,no1
    sub al,30h
    test al,01h
    je  pe
;
    lea dx,odd
    MOV AH,09 ; display odd result
    INT 21H
    jmp dos
;
pe: lea  dx,evn
    mov ah,09h
    int 21h
;
    lea  dx,oaod
    mov ah,09h
    int 21h
;
dos: mov AH,4CH
     INT 21H
END