TITLE PROG7-2M2 PROGRAM TO ADD TWO WORDS
  PAGE 60,132
EXTRN VALUE1:WORD
EXTRN VALUE2:WORD
EXTRN SUM:WORD
  PUBLIC SUBPROG1
  CODSG_B SEGMENT PARA 'CODE'
  SUBPROG1 PROC FAR
ASSUME CS:CODSG_B
  SUB BX,BX 
  MOV AX,VALUE1
  MOV DX,VALUE2
  ADD AX,DX 
  ADC BX,00 
  MOV SUM,AX 
  MOV SUM+2,BX 
  RET
  SUBPROG1 ENDP
  CODSG_B ENDS
  END