;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
CODSG_C  SEGMENT PARA 'CODE'
SUBPROG2 PROC    FAR
         ASSUME CS:CODSG_C
         MOV     AX,VALUE1
         MOV     CX,VALUE2
         MUL     CX             ;MUL VALUE1 * VALUE2
         MOV     PRODUCT,AX     ;STORE PRODUCT
         MOV     PRODUCT+2,DX   ;STORE PRODUCT HIGH WORD
         RET
SUBPROG2 ENDP
CODSG_C  ENDS
         END