|
|
1.1 ! root 1: /* Kfp_exp.s 1.3 86/01/05 */ ! 2: ! 3: #include "../tahoemath/fp.h" ! 4: #include "../tahoemath/Kfp.h" ! 5: #include "../tahoe/SYS.h" ! 6: ! 7: ENTRY(Kfpover, 0) ! 8: movl $HUGE0,r0 ! 9: movl $HUGE1,r1 ! 10: ret ! 11: ! 12: ENTRY(Kfpunder, 0) ! 13: clrl r0 ! 14: clrl r1 ! 15: ret ! 16: ! 17: ENTRY(Kfpzdiv, 0) ! 18: divl2 $0,r1 # force division by zero. ! 19: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.