|
|
1.1 ! root 1: /* Alnd.c 1.1 86/07/20 */ ! 2: ! 3: #include "../tahoealign/align.h" ! 4: lnd(infop) process_info *infop; ! 5: /* ! 6: /* Load a negated 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: if ( oprnd_pnt->data == 0 ) acc_high = 0; ! 16: else acc_high = 0x80000000 ^ oprnd_pnt->data ; ! 17: acc_low = oprnd_pnt->data2 ; ! 18: psl |= PSL_DBL; ! 19: infop->acc_dbl = 1; ! 20: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.