100   R2.L = ONES R1;
101   R2 = R2.L (Z);  define
102   CC = R2 == 1;
112   R2 = -R1;  define
113   [--SP] = R2;
114   R2 = R0 << 1;                   /* R2 lsw of dividend  */  define
119   R2 = R2 | R5;                   /* Shift quotient bit */  define
123 .Llst:   R7 = R2 >> 31;            /* record copy of carry from R2 */
124         R2 = R2 << 1;             /* Shift 64 bit dividend up by 1 bit */  define
135 .Llend:  R2 = R2 + R5;             /* and then set shifted-in value to
149   R2 = -1 (X);  define
150   R2 >>= 1;
154   R2 = 1 (Z);  define
157   R2 = R0;                        /* assume divide by 1 => numerator */  define
161   R0 = R2;                        /* Return an identity value */
162   R2 = -R2;  define
164   IF CC R0 = R2;
180   R2 = R0 >> 31;  define
190   R2 = -R0;                       // negate result if necessary  define
192   IF CC R0 = R2;