برنامه زوج و فرد

.MODEL SMALL

.STACK 64

.DATA

STR1 DB "ZOJ$"
STR2 DB "FARD$"

.CODE
MAIN PROC FAR

MOV AX,@DATA
MOV DS,AX
;-----
MOV AX,4 ;ADADE MOREDE NAZAR / BL-> IF MOD IS 0 = EVEN

MOV BL,2
DIV BL
CMP AH,0

JNE LF

MOV AH,09H
LEA DX,STR1
INT 21H
JMP EXIT


LF:
MOV AH,09H
LEA DX,STR2
INT 21H


EXIT:
;----
MOV AH,00H
INT 16H
;----
MOV AX,4C00H
INT 21H

MAIN ENDP
END MAIN