INCLUDE 'EMU8086.INC'
.MODEL SMALL
.STACK 100H
.DATA
.CODE
MAIN PROC

    MOV AH,1
    INT 21H
    MOV BL,AL



       MOV BX,5
       DIV BX

       CMP DX,0
       JE DBY5
       JNE NDBY5


       DBY5:
       PRINT "DIVISIBLE BY 5"
       JMP EXIT
       NDBY5:
       PRINT "NOT DIVISIBLE BY 5"
       JMP EXIT

EXIT:
MOV AH,4CH
INT 21H
 MAIN ENDP
END MAIN