TITLE PROG4-6
  PAGE 60,132
  MULTIPLY MACRO VALUE1, VALUE2, RESULT
  LOCAL BACK
  MOV BX,VALUE1 
  MOV CX,VALUE2 
  SUB AX,AX 
  MOV DX,AX 
BACK: ADD AX,BX 
  ADC DX,00 
  LOOP BACK 
  MOV RESULT,AX 
  MOV RESULT+2,DX 
  ENDM
  .MODEL SMALL
  .STACK 64
  .DATA
  RESULT1 DW 2 DUP (0)
  RESULT2 DW 2 DUP (0)
  RESULT3 DW 2 DUP (0)
  .CODE
  MAIN PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  MULTIPLY 2000,500,RESULT1
  MULTIPLY 2500,500,RESULT2
  MULTIPLY 300,400,RESULT3
  MOV AH,4CH
  INT 21H 
  MAIN ENDP
  END MAIN