TITLE PROG7-8 PASSING PARAMETERS VIA THE STACK
  PAGE 60,132
  .MODEL SMALL
EXTRN SUBPROG6:FAR
  .STACK 64
  .DATA
  VALUE1 DW 3F62H
  VALUE2 DW 1979H
  VALUE3 DW 25F1H
  RESULT DW 2 DUP (?)
  .CODE
  MAIN PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  PUSH VALUE3 
  PUSH VALUE2 
  PUSH VALUE1 
  CALL SUBPROG6 
  MOV RESULT,AX 
  MOV RESULT+2,BX 
  MOV AH,4CH
  INT 21H
  MAIN ENDP
  END MAIN