ASSEMBLY LANGUAGE PROGRAMMING

8086 Programming: TITLE TO TEST A NUMBER AS ODD OR EVEN .MODEL SMALL .STACK 100H .DATA MSG1 DB 'ENTER FIRST NUMBER:$' MSG2 DB '=EVEN NUMBER:$' MSG3 DB '=ODD NUMBER:$' NUM DB ? NUM2 DB ? NUM3 DB ? .CODE MAIN PROC MOV AX,@DATA ;INITIALIZE DS MOV DS,AX LEA DX,MSG1 ;DISPLAY PROMPT FOR A NUMBER MOV AH,9H INT 21H MOV AL,'2' ;DIVISOR VALUE SUB AL,30H MOV NUM2,AL CALL NEWLINE TOP: MOV AH,01H ; REAd a number INT 21H CMP AL,0DH ; CR CHECK JE EXIT SUB AL,30H ; CONVERT ASCII TO NUMBER MOV NUM,AL MOV AH,00H ; AH=0 MOV AL,NUM CBW MOV BL,NUM2 IDIV BL ;CMP AH,0 ;JE EVENNUM CMP AH,1 JZ ODDNUM EVENNUM: LEA DX,MSG2 MOV AH,9H INT 21H CALL NEWLINE JMP TOP ODDNUM: LEA DX,MSG3 MOV AH,9H INT 21H CALL NEWLINE JMP TOP EXIT: MOV AH,4CH INT 21H MAIN ENDP NEWLINE PROC MOV AH,02H MOV DL,0DH INT 21H MOV DL,0AH INT 21H RET NEWLINE ENDP END MAIN