|
|
1.1 ! root 1: /* Aldfd.c 1.1 86/07/20 */ ! 2: ! 3: #include "../tahoealign/align.h" ! 4: ldfd(infop) process_info *infop; ! 5: /* ! 6: /* Load into accumulator float operand converted to double. ! 7: /* ! 8: /***************************************************************/ ! 9: { ! 10: register struct oprnd *oprnd_pnt; ! 11: ! 12: oprnd_pnt = operand(infop,0); ! 13: if ( reserved( oprnd_pnt->data ) ) ! 14: exception(infop, ILL_OPRND); ! 15: acc_high = oprnd_pnt->data ; ! 16: acc_low = 0; ! 17: psl |= PSL_DBL; ! 18: infop->acc_dbl = 1; ! 19: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.