Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ReC98/libs/BorlandC/scantod.asm

54 lines
1.6 KiB
NASM
Raw Normal View History

[Reduction] #686-688: scantod
2014-11-10 00:02:11 +00:00
; *Not* the original file, but an edit to turn it into an includable slice.
; Changes include:
; * removal of RULES.ASI to eliminate redundancy
; * removal of the segment declarations (for obvious reasons)
; * one underscore instead of two for every function name in order to better
; differentiate the actual implementation from the jump procedures here
;[]-----------------------------------------------------------------[]
;| SCANTOD.ASM -- Ascii to double conversion |
;[]-----------------------------------------------------------------[]
;
; C/C++ Run Time Library - Version 5.0
;
; Copyright (c) 1987, 1992 by Borland International
; All Rights Reserved.
;
; Segment and Group declarations
public _scantod
_scantod proc near
IFDEF __HUGE__
ExtSym@ DGROUP@, WORD, __PASCAL__
mov es, cs:DGROUP@@
jmp ES:[__ScanTodVector]
ELSE
jmp [__ScanTodVector]
ENDIF
[JWasm move] Fix the remaining small issues to get through the first pass Thanks to the LOCALS directive, we do need to break compatibility to TASM at one point after all. This is the rest we can reasonably change to get at least through JWasm's first pass without errors while maintaining compatibility to TASM. Includes: * the OPTION syntax to switch in and out of floating-point emulation mode * REP CMPSB → REPE CMPSB * Hacks for two 80-byte short jumps * lack of support for floating-point stupidity ♥ as well as other issues that I covered in previous commits and overlooked in some files.
2014-11-21 10:24:47 +00:00
_scantod endp
[Reduction] #686-688: scantod
2014-11-10 00:02:11 +00:00
public _scanrslt
_scanrslt proc near
IFDEF __HUGE__
ExtSym@ DGROUP@, WORD, __PASCAL__
mov es, cs:DGROUP@@
jmp ES:[__ScanTodVector + 2]
ELSE
jmp [__ScanTodVector + 2]
ENDIF
[JWasm move] Fix the remaining small issues to get through the first pass Thanks to the LOCALS directive, we do need to break compatibility to TASM at one point after all. This is the rest we can reasonably change to get at least through JWasm's first pass without errors while maintaining compatibility to TASM. Includes: * the OPTION syntax to switch in and out of floating-point emulation mode * REP CMPSB → REPE CMPSB * Hacks for two 80-byte short jumps * lack of support for floating-point stupidity ♥ as well as other issues that I covered in previous commits and overlooked in some files.
2014-11-21 10:24:47 +00:00
_scanrslt endp
[Reduction] #686-688: scantod
2014-11-10 00:02:11 +00:00
public _scanpop
_scanpop proc near
IFDEF __HUGE__
ExtSym@ DGROUP@, WORD, __PASCAL__
mov es, cs:DGROUP@@
jmp ES:[__ScanTodVector + 4]
ELSE
jmp [__ScanTodVector + 4]
ENDIF
[JWasm move] Fix the remaining small issues to get through the first pass Thanks to the LOCALS directive, we do need to break compatibility to TASM at one point after all. This is the rest we can reasonably change to get at least through JWasm's first pass without errors while maintaining compatibility to TASM. Includes: * the OPTION syntax to switch in and out of floating-point emulation mode * REP CMPSB → REPE CMPSB * Hacks for two 80-byte short jumps * lack of support for floating-point stupidity ♥ as well as other issues that I covered in previous commits and overlooked in some files.
2014-11-21 10:24:47 +00:00
_scanpop endp