| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 |
- (* Release 3.10 *)
- (*-------------------------------------------------------------------------*
- * *
- * NOFLOAT.A - dummy fixups for programs without f.p. requirements * *
- * *
- * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- * All Rights Reserved *
- * *
- *--------------------------------------------------------------------------*)
- module nofloat
- public FIDRQQ (* wait, esc*) = 0
- public FIARQQ (* wait, ds:*) = 0
- public FICRQQ (* wait, cs:*) = 0
- public FIERQQ (* wait, es:*) = 0
- public FISRQQ (* wait, ss:*) = 0
- public FIWRQQ (* nop, wait*) = 0
- public FJARQQ (* Esc nn -> ds:nn*) = 0
- public FJCRQQ (* Esc nn -> cs:nn*) = 0
- public FJSRQQ (* Esc nn -> es:nn*) = 0
- public FJERQQ (* ???????????????*) = 0
- public FIXRQQ = 0 (* brings this module in - known to linker *)
- segment EMU_STATE(DATA,28H)
- select EMU_STATE
- nullOffset : dw 0 (* stops variables having address of zero *)
- segment _TEXT(CODE,28H)
- extrn __fp_0
- select _TEXT
- public __FloatInit :
- push bp
- mov bp, sp
- call far __fp_0
- pop bp
- ret far 0
- public __FloatFinish:
- public __FloatInitInstance:
- public __FloatStoreSW :
- public __FloatStoreCW :
- public __FloatLoadCW :
- public __FloatSave :
- public __FloatRestore :
- public __FloatExecSave :
- public __FloatExecRestore :
- public __FloatJmpSave :
- public __FloatJmpRestore :
- public __FloatMathExcepDos :
- push bp
- mov bp, sp
- pop bp
- ret far 0
- public __FloatMathExcepOs2 :
- push bp
- mov bp, sp
- pop bp
- ret far 0
- ret far 2
- dw nullOffset
- end
|
