Lines Matching defs:registers
59 (interrupt, registers)
60 Lisp_Object interrupt, registers;
69 CHECK_VECTOR (registers);
70 if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
73 CHECK_NUMBER (XVECTOR (registers)->contents[i]);
75 inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);
76 inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
77 inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
78 inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
79 inregs.x.si = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]);
80 inregs.x.di = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]);
81 inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]);
82 inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
86 XVECTOR (registers)->contents[0] = make_number (outregs.x.ax);
87 XVECTOR (registers)->contents[1] = make_number (outregs.x.bx);
88 XVECTOR (registers)->contents[2] = make_number (outregs.x.cx);
89 XVECTOR (registers)->contents[3] = make_number (outregs.x.dx);
90 XVECTOR (registers)->contents[4] = make_number (outregs.x.si);
91 XVECTOR (registers)->contents[5] = make_number (outregs.x.di);
92 XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag);
93 XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
95 return registers;