Assemble DIVISION

.MODEL SMALL
.STACK 100H
.DATA
    R DB 0
    Q DB 0
.CODE
MAIN PROC
    INCLUDE 'EMU8086.INC'

    MOV AX, @DATA
    MOV DS, AX

    MOV AX, 007H
    MOV BL, 2
    DIV BL         ; AX/BL AH = REMINDER; AL = QUOTIENT / RESULT

    MOV R, AH
    MOV Q, AL

    PRINT 'THE QUOTIENT IS: '

    ADD Q, 48
    MOV AH, 2
    MOV DL, Q
    INT 21H

    PRINTN ''

    PRINT 'THE REMINDER IS: '
    SUB R, 48
    MOV DH, R
    INT 21H


    MOV AH, 4CH
    INT 21H

END MAIN