|
|
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.