home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / waithang.zip / WAITHANG.ASM < prev    next >
Assembly Source File  |  1994-04-26  |  1KB  |  56 lines
  1. ;       Static Name Aliases
  2. ;
  3.         TITLE   waithang.c
  4.         .8087
  5. ;INCLUDELIB      SLIBCE
  6. _TEXT   SEGMENT  WORD PUBLIC 'CODE'
  7. _TEXT   ENDS
  8. _DATA   SEGMENT  WORD PUBLIC 'DATA'
  9. _DATA   ENDS
  10. ;STACKSEG SEGMENT  PARA STACK 'STACK'
  11. ;STACKSEG ENDS
  12. CONST   SEGMENT  WORD PUBLIC 'CONST'
  13. CONST   ENDS
  14. _BSS    SEGMENT  WORD PUBLIC 'BSS'
  15. _BSS    ENDS
  16. DGROUP  GROUP   CONST, _BSS, _DATA
  17.         ASSUME DS: DGROUP, SS: DGROUP
  18. EXTRN   __acrtused:ABS
  19. EXTRN   __aNchkstk:NEAR
  20. EXTRN   __fltused:NEAR
  21. _TEXT      SEGMENT
  22.         ASSUME  CS: _TEXT
  23. ; Line 1
  24. _TEXT      ENDS
  25. _DATA      SEGMENT
  26. $T20000 DQ      0bff0000000000000r    ; -1.000000000000000
  27. $T30000 DQ      080009455373a92f4r
  28. $T40000 DQ ?
  29. $T50000 DW ?
  30. _DATA      ENDS
  31. ;STACKSEG SEGMENT
  32. ;DB 100 dup (0)
  33. ;STACKSEG ENDS
  34. _TEXT      SEGMENT
  35.         ASSUME  CS: _TEXT
  36. ; Line 2
  37.         PUBLIC  _main
  38. _main   PROC NEAR
  39.         int     3
  40.         push    bp
  41.         mov     ax,16
  42.         call    __aNchkstk
  43.         lea     bp,$T20000
  44.         fld     qword ptr [bp]
  45.         fmul    qword ptr [bp]
  46.         fmul    qword ptr [bp+8]
  47.         fstp    qword ptr [bp+10h]
  48.         fstcw   $T50000
  49.         pop     bp
  50.         mov     ax,04c00h
  51.         int     21h     ;dos exit
  52.  
  53. _main   ENDP
  54. _TEXT   ENDS
  55. END
  56.