DATAS SEGMENT
   A DB 4
   B DB 3
   C DB 2
   TAG DB ?
DATAS ENDS
STACK1 SEGMENT PARA STACK
      DW 20 DUP(0)
      STACK1 ENDS
    CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACK1
    START:
    MOV AX,DATAS
    MOV DS,AX
    XOR AX,AX
    MOV AL,B
    IMUL B
    MOV CX,AX
    MOV AL,A
    IMUL C
    IMUL 4
    SUB CX,AX
    JB R1
    MOV DL,'2'
    JMP R
    R1:MOV DL,'0'
   R: MOV AH,02H
    INT 21H
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START