|
|
1.1 ! root 1: #include "../machine/alignment.h" ! 2: mova(infop) process_info *infop; ! 3: /* ! 4: /* Move operand address ! 5: /* ! 6: /****************************************/ ! 7: { ! 8: register long Register_12; /* Has to be first reg ! */ ! 9: register long Register_11; ! 10: ! 11: Register_12 = operand(infop, 0)->address; ! 12: Register_11=psl; ! 13: Set_psl(r11); /* restore the user psl */ ! 14: asm (" movab (r12),r11"); /* Moves original addr to r11 */ ! 15: asm (" movpsl r12"); ! 16: New_cc (Register_12); ! 17: write_back (infop, Register_11, operand(infop,1)); ! 18: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.