|
|
1.1 root 1: ////////
2: /
3: / Intel 8086 floating point.
4: / Test accumulator.
5: / SMALL model.
6: /
7: ////////
8:
9: .globl ddtest
10: .globl _fpac_
11:
12: ////////
13: /
14: / ** ddtest -- push double accumulator.
15: /
16: / This utility routine is called by the compiler to test
17: / the double accumulator (a quad word called _fpac_).
18: / This "test" instruction used to be generated directly
19: / in the leaves.t code table, but in LARGE model _fpac_
20: / is not directly addressible and a "call ddtest()" is
21: / required instead.
22: /
23: / compiler calling sequence:
24: / call ddtest
25: /
26: / outputs:
27: / flags to indicate whether _fpac_ is zero
28: /
29: ////////
30:
31: EXPON = 0x7F80 / DECVAX format exponent bits
32:
33: ddtest: test _fpac_+6,$EXPON / test high word
34: ret / and return
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.