;THIS PROGRAM FINDS THE PRODUCT OF TWO EXTERNALLY DEFINED WORDS
;AND STORES THE PRODUCT IN A LOCATION DEFINED BY THE CALLING MODULE
;
TITLE    SUBPROG2 PROGRAM TO MULTIPLY TWO WORDS
PAGE     60,132
         EXTRN VALUE1:WORD
         EXTRN VALUE2:WORD
         EXTRN PRODUCT:WORD
         PUBLIC SUBPROG2
         .MODEL   SMALL
         .CODE
SUBPROG2 PROC    FAR
         MOV     AX,VALUE1
         MOV     CX,VALUE2
         MUL     CX              ;MULTIPLY VALUE1 * VALUE2
         MOV     PRODUCT,AX      ;STORE PRODUCT
         MOV     PRODUCT+2,DX    ;STORE PRODUCT HIGH WORD
         RET
SUBPROG2 ENDP
         END