home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 5.ddi / CLIBSRC2.ZIP / CVTFAK.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  3.8 KB  |  104 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      CVTFAK.ASM -- abort when float isn't present                 |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1987, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.         INCLUDE RULES.ASI
  13.  
  14. ;       Segment and Group declarations
  15.  
  16. Header@
  17.  
  18. ;       External references
  19.  
  20. extrn           _abort:near
  21.  
  22. ;       Public references
  23.  
  24.                 public  __cvtfak
  25. __cvtfak        equ     0
  26.  
  27. _TEXT           segment
  28. ;-------------------------------------------------------------------------
  29. ;               Get printf() specific part of message
  30. ;-------------------------------------------------------------------------
  31. _FakRealCvt     proc near
  32.                 mov     dx, offset DGROUP: RealMSG      ; Message address
  33.                 jmp     short DisplayMessage            ; Display the message
  34.                 endp
  35.  
  36. ;-------------------------------------------------------------------------
  37. ;               Get scanf() specific part of message
  38. ;-------------------------------------------------------------------------
  39. _FakScanTod     proc near
  40.                 mov     dx, offset DGROUP: ScanMSG      ; Message address
  41. ;
  42. ; By letting the _FakScanTod PROC to 'fall into' the 'DisplayMessage' routine
  43. ; we save the cost of a JMP instruction.  This is a somewhat cheap trick but
  44. ; the purpose is quite clear here.
  45.  
  46. DisplayMessage  LABEL   NEAR
  47.  
  48. ;-------------------------------------------------------------------------
  49. ;               Display FLOAT not linked message
  50. ;-------------------------------------------------------------------------
  51. IFDEF   __HUGE__
  52. ExtSym@ DGROUP@, WORD, __PASCAL__
  53.                 mov     ds, cs:DGROUP@@                 ; Get DS if we're huge
  54. ENDIF
  55.  
  56.                 mov     cx, lgth_UNIQ                   ; Message length
  57.                 mov     ah, 040H                        ; Write
  58.                 mov     bx, 2                           ;   to
  59.                 int     021h                            ;      'stdout'
  60.  
  61.                 mov     cx, lgth_Common                 ; Common msg length
  62.                 mov     dx, offset DGROUP: CommonMSG    ; Common msg address
  63.                 mov     ah, 040H                        ; Write to
  64.                 int     021h                            ;      'stdout'
  65.                 jmp     _abort                          ; abort();
  66.  
  67.                 endp
  68.                 ends
  69.  
  70. DSeg@
  71. ;-------------------------------------------------------------------------
  72. ;               Message texts for 'float not linked' messages
  73. ;
  74. ; Note : by putting an 'extra' blank in the scanf unique message part we
  75. ; save some code space by having a common message length.
  76. ;-------------------------------------------------------------------------
  77. ;
  78. ; Message part unique to the printf() message.
  79. ;
  80. RealMSG         db      'print'         ; Unique part of 'printf' message
  81. lgth_UNIQ       equ     $ - RealMSG     ; Length of unique msg parts
  82. ;
  83. ; Message part unique to the scanf() message(this MUST be same len as print).
  84. ;
  85. ScanMSG         db      ' scan'         ; Unique part of 'scanf' message
  86. ;
  87. ; Message part common to the 'printf and 'scanf' messages.
  88. ; NOTE : the 'f' in printf and scanf is common too!.
  89. ;
  90. CommonMSG       db      'f : floating point formats not linked', 13, 10
  91. lgth_Common     equ     $ - CommonMSG
  92. DSegEnd@
  93.  
  94. _CVTSEG SEGMENT WORD PUBLIC 'DATA'
  95. _realcvt        dw      offset _FakRealCvt
  96. _CVTSEG ENDS
  97.  
  98. _SCNSEG SEGMENT WORD PUBLIC 'DATA'
  99. __scantod       dw      offset _FakScanTod
  100. __scanrslt      dw      offset _FakScanTod
  101. __scanpop       dw      offset _FakScanTod
  102. _SCNSEG ENDS
  103.         END
  104.