; =====================================================
; Простейшая программа для работы с арифметическим
; сопроцессором
;
; (C) A. Frolov, 1997
;
; E-mail: frolov@glas.apc.org
; WWW:    http://www.glasnet.ru/~frolov
;            or
;         http://www.dials.ccas.ru/frolov
; =====================================================
  .model small
  .STACK  100h
  .DATA

; Здесь находятся константы с одинарной
; точностью x и y

x  dd 1.0
y  dd 2.0

; Резервируем четыре байта для результата

z  dd ?

  .CODE
begin:

  mov ax, DGROUP
  mov ds, ax

; Записываем в стек численных регистров
; значение x

  fld    x

; Складываем содержимое верхушки стека
; с константой y

  fadd   y

; Записываем результат в ячейку z

  fstp   z

; Завершаем работу программы и
; возвращаем управление операционной системе
  mov ax, 4C00h
  int 21h
  
  END begin
