.8087
  PAGE 60,132
  .MODEL SMALL
  .STACK 32
  .DATA
  ORG 00H
  REALNUM DD 5.5
  ORG 10H
  INTNUM DD ?
  .CODE
  START PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  CALL RND_NUM
  MOV AH,4CH
  INT 21H
  START ENDP
  RND_NUM PROC NEAR
  FINIT 
  FLD REALNUM 
  FRNDINT 
  FIST INTNUM 
  RET
  RND_NUM ENDP
  END START