home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CASM.ARJ / INT.ASM < prev    next >
Assembly Source File  |  1988-04-21  |  1KB  |  79 lines
  1. ;_ int.asm   Thu Feb 18 1988   Modified by: Walter Bright */
  2. ; Copyright (C) 1984-1988 by Northwest Software
  3. ; All Rights Reserved
  4. ; Written by Walter Bright
  5.  
  6.  
  7. _DATA    segment    word public 'DATA'
  8.  
  9.     public    _MAXDOUBLE,_MINDOUBLE,_MAXFLOAT,_MINFLOAT
  10.  
  11. _MAXDOUBLE    label    byte
  12. _MINDOUBLE    label    byte
  13. _MAXFLOAT    label    byte
  14. _MINFLOAT    label    byte
  15.  
  16. nofloat    db    0Dh,0Ah,'Floating point not loaded',0Dh,0Ah,'$'
  17. _DATA    ends
  18.  
  19. DGROUP    group    _DATA
  20.  
  21. _TEXT    segment    byte public 'CODE'
  22.     assume CS:_TEXT,DS:DGROUP
  23.  
  24.     public    __DADD@,__DSUB@,__DMUL@,__DDIV@,__DNEG@,__DTST@,__DCMP@
  25.     public    __DBLINT@,__INTDBL@,__DBLUNS@,__UNSDBL@,__DBLFLT@,__FLTDBL@
  26.     public    __DBLLNG@,__LNGDBL@,__DBLULNG@,__ULNGDBL@
  27.     public    __DTST87@,__87TOPSW@,__DBLTO87@,__FLTTO87@,__DBLINT87@
  28.     public    __DBLLNG87@
  29.     public    __INTFLT@,__UNSFLT@,__LNGFLT@,__FLTINT@,__FLTUNS,__FLTLNG@
  30.  
  31. __DADD@:
  32. __DSUB@:
  33. __DMUL@:
  34. __DDIV@:
  35. __DNEG@:
  36. __DTST@:
  37. __DCMP@:
  38. __DBLINT@:
  39. __INTDBL@:
  40. __DBLUNS@:
  41. __UNSDBL@:
  42. __DBLFLT@:
  43. __FLTDBL@:
  44. __DBLLNG@:
  45. __LNGDBL@:
  46. __DBLULNG@:
  47. __ULNGDBL@:
  48. __DTST87@:
  49. __87TOPSW@:
  50. __DBLTO87@:
  51. __FLTTO87@:
  52. __DBLINT:
  53. __DBLINT87@:
  54. __DBLLNG87@:
  55. __INTFLT@:
  56. __UNSFLT@:
  57. __LNGFLT@:
  58. __FLTINT@:
  59. __FLTUNS:
  60. __FLTLNG@:
  61.  
  62.     public    _ecvt,_fcvt,_atof,_frexp,_ldexp,_strtod
  63. _ecvt:
  64. _fcvt:
  65. _atof:
  66. _frexp:
  67. _ldexp:
  68. _strtod:
  69.  
  70.     mov    DX,offset DGROUP:nofloat
  71.     mov    AH,9
  72.     int    21h
  73.     mov    AX,4C01h    ;terminate a process
  74.     int    21h
  75.  
  76. _TEXT    ends
  77.  
  78.     end
  79.