Check Odd or Even - Assembly Language - MASM

CHECK WHETHER A NUMBER IS ODD OR EVEN

Program:

.model small

.stack 200H

.data

msg1 DB 10,13,' Number is odd.$'

msg2 DB 10,13,' Number is even.$'

msg3 DB 10,13,'Enter the no:$'

newline DB 10,13,'$'

sum DW 0

count DW ?

num DW ?

.code

print MACRO msg

PUSH AX

PUSH DX

MOV AH,09H

MOV DX,offset msg

INT 21H

POP DX

POP AX

ENDM

.startup

print newline

print msg3

CALL readnumtoAX

MOV BL,02

DIV BL

CMP AH,00

JE even1

print newline

print msg1

JMP last

even1:

print newline

print msg2

last:

.exit

readnumtoAX PROC NEAR

PUSH BX

PUSH CX

MOV CX,10

MOV BX,00

back:

MOV AH,01H

INT 21H

CMP AL,'0'

JB skip

CMP AL,'9'

JA skip

SUB AL,'0'

PUSH AX

MOV AX,BX

MUL CX

MOV BX,AX

POP AX

MOV AH,00

ADD BX,AX

JMP back

skip:

MOV AX,BX

POP CX

POP BX

RET

readnumtoAX ENDP

END

Output:

F:\>od

Enter the no:135

Number is odd.

F:\>od

Enter the no:156

Number is even.