|
|
1.1 ! root 1: /* Astd.c 1.1 86/07/20 */ ! 2: ! 3: #include "../tahoealign/align.h" ! 4: std(infop) process_info *infop; ! 5: /* ! 6: /* Store accumulator (double) in destination. ! 7: /* ! 8: /*************************************************/ ! 9: { ! 10: quadword ac; ! 11: ! 12: ac.high = acc_high; ! 13: ac.low = acc_low; ! 14: write_quadword (infop, ac, operand(infop,0) ); ! 15: if (ac.high < 0) negative_1; else negative_0; ! 16: if ( (ac.high & 0xff800000) == 0 ) zero_1; else zero_0; ! 17: carry_1; ! 18: overflow_0; ! 19: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.