|
|
1.1 ! root 1: /* Aldd.c 1.1 86/07/20 */ ! 2: ! 3: #include "../tahoealign/align.h" ! 4: ldd(infop) process_info *infop; ! 5: /* ! 6: /* Load a double operand into accumulator. ! 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 = oprnd_pnt->data2 ; ! 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.