203                 operand = TO_DWORD (BR, AR);            /* form the double-word operand */  in cpu_eau()
216                 AR = LOWER_WORD (operand);              /*   into its constituent parts */  in cpu_eau()
221                 operand = TO_DWORD (BR, AR) << shift;   /* shift the double-word operand left */  in cpu_eau()
224                 AR = LOWER_WORD (operand);              /*   into its constituent parts */  in cpu_eau()
229                 operand = TO_DWORD (BR, AR);            /* form the double-word operand */  in cpu_eau()
236                 AR = LOWER_WORD (operand);              /*   into its constituent parts */  in cpu_eau()
263                     sop1 = SEXT16 (AR);                 /* sext AR */  in cpu_eau()
267                     AR = LOWER_WORD (sop1);  in cpu_eau()
289             AR = (~AR + 1) & R_MASK;                    /* make B'A pos */  in cpu_eau()
290             BR = (~BR + (AR == 0)) & R_MASK;            /* make divd pos */  in cpu_eau()
305             v1 = (BR << 16) | AR;                       /* 32b divd */  in cpu_eau()
306             AR = (v1 / v2) & R_MASK;                    /* quotient */  in cpu_eau()
309             if (AR) {                                   /* quotient > 0? */  in cpu_eau()
311                     AR = NEG16 (AR);  in cpu_eau()
313                 if ((AR ^ qs) & D16_SIGN)               /* still wrong? ovflo */  in cpu_eau()
329                 operand = TO_DWORD (BR, AR);            /* form the double-word operand */  in cpu_eau()
336                 AR = LOWER_WORD (operand);              /*   into its constituent parts */  in cpu_eau()
341                 operand = TO_DWORD (BR, AR) >> shift;   /* shift the double-word operand right */  in cpu_eau()
344                 AR = LOWER_WORD (operand);              /*   into its constituent parts */  in cpu_eau()
349                 operand = TO_DWORD (BR, AR);            /* form the double-word operand */  in cpu_eau()
356                 AR = LOWER_WORD (operand);              /*   into its constituent parts */  in cpu_eau()
371             AR = UPPER_WORD (op[0].dword);              /* load AR */  in cpu_eau()
381             WriteW (op[0].word, AR);                    /* store AR */  in cpu_eau()
619         AR = ReadW (MA);                                /*   then load the A register */  in cpu_iop()
621         WriteW (MA, AR);                                /*   store the A register */  in cpu_iop()
641         t = ReadW (op[0].word) ^ (AR & 0377);           /* xor prev CRC and char */  in cpu_iop()
657         AR = ReadW (SPR);                               /* restore A */  in cpu_iop()
663         AR = SPR;                                       /* copy stk ptr */  in cpu_iop()
667         SPR = AR;                                       /* init stk ptr */  in cpu_iop()
671         hp = ReadW (AR & LA_MASK);                      /* addr of head */  in cpu_iop()
672         tp = ReadW ((AR + 1) & LA_MASK);                /* addr of tail */  in cpu_iop()
675         WriteW ((AR + 1) & LA_MASK, BR);                /* queue tail */  in cpu_iop()
680         hp = ReadW (AR & LA_MASK);                      /* addr of head */  in cpu_iop()
682         WriteW (AR & LA_MASK, BR);                      /* queue head */  in cpu_iop()
684             WriteW ((AR + 1) & LA_MASK, BR);            /* queue tail */  in cpu_iop()
689         BR = ReadW (AR & LA_MASK);                      /* addr of head */  in cpu_iop()
692             WriteW (AR & LA_MASK, hp);                  /* becomes queue head */  in cpu_iop()
694                 WriteW ((AR + 1) & LA_MASK, (AR + 1) & R_MASK);  in cpu_iop()
703             MA = (AR + AR + ReadB (BR)) & LA_MASK;  in cpu_iop()
718             WriteW (op[0].word, AR);                    /* write AR to mem */  in cpu_iop()
719             AR = (AR + 1) & R_MASK;                     /* incr AR */  in cpu_iop()
743         WriteW (SPR, AR);                               /* save A */  in cpu_iop()