rA 64 src/dps8/dps8_addrmods.c return GETHI (cpu.rA); rA 90 src/dps8/dps8_addrmods.c return GETLO (cpu.rA); rA 960 src/dps8/dps8_cpu.c cpu.rA = 0; rA 1577 src/dps8/dps8_cpu.h word36 rA; // accumulator rA 338 src/dps8/dps8_eis.c return GETHI (cpu.rA); rA 353 src/dps8/dps8_eis.c return cpu.rA; // See AL36, Table 4-1 rA 401 src/dps8/dps8_eis.c return GETHI (cpu.rA); rA 450 src/dps8/dps8_eis.c return GETLO (cpu.rA); rA 493 src/dps8/dps8_eis.c return GETHI (cpu.rA); rA 525 src/dps8/dps8_eis.c return cpu.rA; rA 2298 src/dps8/dps8_ins.c cpu.rA, cpu.rQ, dump_flags (buf, cpu.cu.IR)); rA 2301 src/dps8/dps8_ins.c cpu.rE, cpu.rA, cpu.rQ, EAQToIEEElongdouble (cpup)); rA 2304 src/dps8/dps8_ins.c cpu.rE, cpu.rA, cpu.rQ, EAQToIEEEdouble (cpup)); rA 2769 src/dps8/dps8_ins.c cpu.rA = cpu.CY; rA 2773 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 2774 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 2837 src/dps8/dps8_ins.c word72 trAQ = convert_to_word72 (cpu.rA, cpu.rQ); rA 2855 src/dps8/dps8_ins.c convert_to_word36 (trAQ, &cpu.rA, &cpu.rQ); rA 2864 src/dps8/dps8_ins.c cpu.CY = cpu.rA; rA 3039 src/dps8/dps8_ins.c cmp36 (cpup, cpu.rA, cpu.CY, &cpu.cu.IR); rA 3063 src/dps8/dps8_ins.c word36 trZ = cpu.rA & cpu.CY; rA 3072 src/dps8/dps8_ins.c cpu.rA = cpu.Ypair[0]; rA 3080 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0) rA 3081 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 3117 src/dps8/dps8_ins.c cpu.Ypair[0] = cpu.rA; rA 3166 src/dps8/dps8_ins.c capture = cpu.rA & barrelLeftMaskTable[cnt + 1]; rA 3169 src/dps8/dps8_ins.c cpu.rA <<= cnt; rA 3170 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 3176 src/dps8/dps8_ins.c capture = cpu.rA; rA 3177 src/dps8/dps8_ins.c cpu.rA = 0; rA 3188 src/dps8/dps8_ins.c word36 tmpSign = cpu.rA & SIGN36; rA 3193 src/dps8/dps8_ins.c cpu.rA <<= 1; rA 3194 src/dps8/dps8_ins.c if (tmpSign != (cpu.rA & SIGN36)) rA 3197 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 3203 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 3204 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 3319 src/dps8/dps8_ins.c word72 trAQ = convert_to_word72 (cpu.rA, cpu.rQ); rA 3334 src/dps8/dps8_ins.c convert_to_word36 (trAQ, &cpu.rA, &cpu.rQ); rA 3347 src/dps8/dps8_ins.c cpu.rA = cpu.rA | cpu.CY; rA 3348 src/dps8/dps8_ins.c cpu.rA &= DMASK; rA 3353 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 3354 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 3423 src/dps8/dps8_ins.c cpu.rA = cpu.rA & cpu.CY; rA 3424 src/dps8/dps8_ins.c cpu.rA &= DMASK; rA 3428 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 3429 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 3442 src/dps8/dps8_ins.c cpu.rA = (cpu.CY & FLOAT36MASK) << 8; rA 3451 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 3452 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 3465 src/dps8/dps8_ins.c cpu.rA = cpu.TPR.TRR & MASK3; rA 3466 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.TPR.TSR & MASK15) << 18; rA 3477 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 3568 src/dps8/dps8_ins.c cpu.rA = 0; rA 3569 src/dps8/dps8_ins.c SETHI (cpu.rA, cpu.TPR.CA); rA 3603 src/dps8/dps8_ins.c cpu.rA = compl36 (cpup, cpu.CY, & cpu.cu.IR, & ovf); rA 3652 src/dps8/dps8_ins.c cpu.rA = cpu.Ypair[0]; rA 3666 src/dps8/dps8_ins.c cpu.rA = 0; rA 3686 src/dps8/dps8_ins.c convert_to_word36 (tmp72, & cpu.rA, & cpu.rQ); rA 3692 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 3693 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 3702 src/dps8/dps8_ins.c cpu.rA = cpu.CY; rA 3706 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 3707 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 3790 src/dps8/dps8_ins.c cpu.rA = cpu.Yblock8[4]; rA 3833 src/dps8/dps8_ins.c cpu.Yblock8[4] = cpu.rA; rA 3864 src/dps8/dps8_ins.c cpu.CY = cpu.rA; rA 3879 src/dps8/dps8_ins.c cpu.CY = cpu.rA; rA 3896 src/dps8/dps8_ins.c cpu.CY = cpu.rA; rA 3954 src/dps8/dps8_ins.c cpu.CY = cpu.rA; rA 4082 src/dps8/dps8_ins.c word36 highA = cpu.rA & barrelLeftMaskTable[cnt]; rA 4083 src/dps8/dps8_ins.c cpu.rA <<= cnt; rA 4086 src/dps8/dps8_ins.c cpu.rA |= highA; rA 4087 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4092 src/dps8/dps8_ins.c bool a0 = cpu.rA & SIGN36; // A0 rA 4093 src/dps8/dps8_ins.c cpu.rA <<= 1; // shift left 1 rA 4095 src/dps8/dps8_ins.c cpu.rA |= 1; rA 4097 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4103 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 4104 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 4118 src/dps8/dps8_ins.c cpu.rA &= DMASK; // Make sure the shifted in bits are 0 rA 4121 src/dps8/dps8_ins.c cpu.rA >>= tmp36; rA 4122 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4127 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 4128 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 4142 src/dps8/dps8_ins.c bool A0 = (cpu.rA & SIGN36) != 0; rA 4145 src/dps8/dps8_ins.c cpu.rA = A0 ? MASK36 : 0; rA 4148 src/dps8/dps8_ins.c cpu.rA >>= cnt; rA 4151 src/dps8/dps8_ins.c cpu.rA |= barrelLeftMaskTable[cnt]; rA 4153 src/dps8/dps8_ins.c cpu.rA &= BS_COMPL (barrelLeftMaskTable[cnt]); rA 4156 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4158 src/dps8/dps8_ins.c cpu.rA &= DMASK; // Make sure the shifted in bits are 0 rA 4161 src/dps8/dps8_ins.c bool a0 = cpu.rA & SIGN36; // A0 rA 4164 src/dps8/dps8_ins.c cpu.rA >>= 1; // shift right 1 rA 4166 src/dps8/dps8_ins.c cpu.rA |= SIGN36; rA 4168 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4174 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 4175 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 4193 src/dps8/dps8_ins.c word36 tmp = cpu.rA; rA 4194 src/dps8/dps8_ins.c cpu.rA = cpu.rQ; rA 4197 src/dps8/dps8_ins.c word36 highA = cpu.rA & barrelLeftMaskTable[cnt]; rA 4198 src/dps8/dps8_ins.c word36 lowA = cpu.rA & BS_COMPL(barrelLeftMaskTable[cnt]); rA 4201 src/dps8/dps8_ins.c cpu.rA = (lowA << cnt) | (highQ >> (36 - cnt)); rA 4207 src/dps8/dps8_ins.c bool a0 = cpu.rA & SIGN36; // A0 rA 4209 src/dps8/dps8_ins.c cpu.rA <<= 1; // shift left 1 rA 4213 src/dps8/dps8_ins.c cpu.rA |= 1; // Q0 => A35 rA 4222 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4229 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 4230 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 4246 src/dps8/dps8_ins.c captureA = cpu.rA & barrelLeftMaskTable[cnt + 1]; rA 4254 src/dps8/dps8_ins.c captureA = cpu.rA; rA 4267 src/dps8/dps8_ins.c cpu.rA = cpu.rQ; rA 4271 src/dps8/dps8_ins.c word36 lowA = cpu.rA & BS_COMPL(barrelLeftMaskTable[cnt]); rA 4274 src/dps8/dps8_ins.c cpu.rA = (lowA << cnt) | (highQ >> (36 - cnt)); rA 4285 src/dps8/dps8_ins.c word36 tmpSign = cpu.rA & SIGN36; rA 4288 src/dps8/dps8_ins.c cpu.rA <<= 1; // shift left 1 rA 4290 src/dps8/dps8_ins.c if (tmpSign != (cpu.rA & SIGN36)) rA 4295 src/dps8/dps8_ins.c cpu.rA |= 1; // Q0 => A35 rA 4300 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4308 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 4309 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 4324 src/dps8/dps8_ins.c cpu.rA = 0; rA 4332 src/dps8/dps8_ins.c word36 lowA = cpu.rA & barrelRightMaskTable[cnt]; rA 4334 src/dps8/dps8_ins.c cpu.rA >>= cnt; rA 4336 src/dps8/dps8_ins.c cpu.rA &= BS_COMPL (barrelLeftMaskTable[cnt]); rA 4343 src/dps8/dps8_ins.c cpu.rQ = cpu.rA >> (cnt - 36); rA 4346 src/dps8/dps8_ins.c cpu.rA = 0; rA 4348 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4351 src/dps8/dps8_ins.c cpu.rA &= DMASK; // Make sure the shifted in bits are 0 rA 4356 src/dps8/dps8_ins.c bool a35 = cpu.rA & 1; // A35 rA 4357 src/dps8/dps8_ins.c cpu.rA >>= 1; // shift right 1 rA 4364 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4372 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 4373 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 4388 src/dps8/dps8_ins.c bool AQ0 = (cpu.rA & SIGN36) != 0; rA 4390 src/dps8/dps8_ins.c cpu.rA = cpu.rQ = AQ0 ? MASK36 : 0; rA 4397 src/dps8/dps8_ins.c word36 lowA = cpu.rA & barrelRightMaskTable[cnt]; rA 4399 src/dps8/dps8_ins.c cpu.rA >>= cnt; rA 4402 src/dps8/dps8_ins.c cpu.rA |= barrelLeftMaskTable[cnt]; rA 4404 src/dps8/dps8_ins.c cpu.rA &= BS_COMPL (barrelLeftMaskTable[cnt]); rA 4411 src/dps8/dps8_ins.c cpu.rQ = cpu.rA >> (cnt - 36); rA 4415 src/dps8/dps8_ins.c cpu.rA = MASK36; rA 4418 src/dps8/dps8_ins.c cpu.rA = 0; rA 4421 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 4425 src/dps8/dps8_ins.c cpu.rA &= DMASK; // Make sure the shifted in bits are 0 rA 4427 src/dps8/dps8_ins.c bool a0 = cpu.rA & SIGN36; // A0 rA 4431 src/dps8/dps8_ins.c bool a35 = cpu.rA & 1; // A35 rA 4433 src/dps8/dps8_ins.c cpu.rA >>= 1; // shift right 1 rA 4435 src/dps8/dps8_ins.c cpu.rA |= SIGN36; rA 4441 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits (probably ain't necessary) rA 4449 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 4450 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 4580 src/dps8/dps8_ins.c cpu.rA = Add36b (cpup, cpu.rA, cpu.CY, 0, I_ZNOC, & cpu.cu.IR, & ovf); rA 4598 src/dps8/dps8_ins.c tmp72 = Add72b (cpup, convert_to_word72 (cpu.rA, cpu.rQ), rA 4600 src/dps8/dps8_ins.c convert_to_word36 (tmp72, & cpu.rA, & cpu.rQ); rA 4619 src/dps8/dps8_ins.c tmp72 = Add72b (cpup, convert_to_word72 (cpu.rA, cpu.rQ), rA 4621 src/dps8/dps8_ins.c convert_to_word36 (tmp72, & cpu.rA, & cpu.rQ); rA 4644 src/dps8/dps8_ins.c tmp72 = Add72b (cpup, convert_to_word72 (cpu.rA, cpu.rQ), rA 4646 src/dps8/dps8_ins.c convert_to_word36 (tmp72, & cpu.rA, & cpu.rQ); rA 4666 src/dps8/dps8_ins.c cpu.rA = Add36b (cpup, cpu.rA, cpu.CY, 0, I_ZNC, & cpu.cu.IR, & ovf); rA 4757 src/dps8/dps8_ins.c cpu.CY = Add36b (cpup, cpu.rA, cpu.CY, 0, I_ZNOC, rA 4811 src/dps8/dps8_ins.c cpu.rA = Add36b (cpup, cpu.rA, cpu.CY, TST_I_CARRY ? 1 : 0, rA 4850 src/dps8/dps8_ins.c cpu.rA = Sub36b (cpup, cpu.rA, cpu.CY, 1, I_ZNOC, & cpu.cu.IR, & ovf); rA 4868 src/dps8/dps8_ins.c tmp72 = Sub72b (cpup, convert_to_word72 (cpu.rA, cpu.rQ), tmp72, 1, rA 4871 src/dps8/dps8_ins.c convert_to_word36 (tmp72, & cpu.rA, & cpu.rQ); rA 4889 src/dps8/dps8_ins.c cpu.rA = Sub36b (cpup, cpu.rA, cpu.CY, 1, I_ZNC, & cpu.cu.IR, & ovf); rA 4912 src/dps8/dps8_ins.c tmp72 = Sub72b (cpup, convert_to_word72 (cpu.rA, cpu.rQ), tmp72, 1, rA 4914 src/dps8/dps8_ins.c convert_to_word36 (tmp72, & cpu.rA, & cpu.rQ); rA 5017 src/dps8/dps8_ins.c cpu.CY = Sub36b (cpup, cpu.rA, cpu.CY, 1, I_ZNOC, & cpu.cu.IR, & ovf); rA 5072 src/dps8/dps8_ins.c cpu.rA = Sub36b (cpup, cpu.rA, cpu.CY, TST_I_CARRY ? 1 : 0, rA 5119 src/dps8/dps8_ins.c word72 tmp72 = multiply_128 (SIGNEXT36_72 (cpu.rA), SIGNEXT36_72 (cpu.CY)); rA 5125 src/dps8/dps8_ins.c word72 tmp72 = (word72) (((word72s) SIGNEXT36_72 (cpu.rA)) * ((word72s) SIGNEXT36_72 (cpu.CY))); rA 5132 src/dps8/dps8_ins.c if (cpu.rA == MAXNEG && cpu.CY == MAXNEG) rA 5139 src/dps8/dps8_ins.c convert_to_word36 (tmp72, &cpu.rA, &cpu.rQ); rA 5144 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 5145 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 5161 src/dps8/dps8_ins.c convert_to_word36 (cast_128 (prod), &cpu.rA, &cpu.rQ); rA 5168 src/dps8/dps8_ins.c convert_to_word36 ((word72)prod, &cpu.rA, &cpu.rQ); rA 5175 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 5176 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 5212 src/dps8/dps8_ins.c cpu.rA = (cpu.rQ & SIGN36) ? 0 : SIGN36; // works for case 1,2 rA 5303 src/dps8/dps8_ins.c cpu.rA = (word36) remainder & DMASK; rA 5310 src/dps8/dps8_ins.c sim_debug (DBG_CAC, & cpu_dev, "rA (rem) %012"PRIo64"\n", cpu.rA); rA 5350 src/dps8/dps8_ins.c cpu.rA &= DMASK; rA 5351 src/dps8/dps8_ins.c if (cpu.rA == 0400000000000ULL) rA 5360 src/dps8/dps8_ins.c cpu.rA = (word36) (- (word36s) cpu.rA); rA 5362 src/dps8/dps8_ins.c cpu.rA &= DMASK; // keep to 36-bits rA 5367 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 5368 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 5379 src/dps8/dps8_ins.c cpu.rA &= DMASK; rA 5382 src/dps8/dps8_ins.c if (cpu.rA == 0400000000000ULL && cpu.rQ == 0) rA 5389 src/dps8/dps8_ins.c word72 tmp72 = convert_to_word72 (cpu.rA, cpu.rQ); rA 5404 src/dps8/dps8_ins.c convert_to_word36 (tmp72, &cpu.rA, &cpu.rQ); rA 5427 src/dps8/dps8_ins.c t_int64 a = SIGNEXT36_64 (cpu.rA); rA 5464 src/dps8/dps8_ins.c word36 Z = ~cpu.rQ & (cpu.rA ^ cpu.CY); rA 5497 src/dps8/dps8_ins.c word72 trAQ = convert_to_word72 (cpu.rA, cpu.rQ); rA 5542 src/dps8/dps8_ins.c cmp36wl (cpup, cpu.rA, cpu.CY, cpu.rQ, &cpu.cu.IR); rA 5594 src/dps8/dps8_ins.c cpu.CY = cpu.rA & cpu.CY; rA 5683 src/dps8/dps8_ins.c word72 trAQ = convert_to_word72 (cpu.rA, cpu.rQ); rA 5697 src/dps8/dps8_ins.c convert_to_word36 (trAQ, &cpu.rA, &cpu.rQ); rA 5726 src/dps8/dps8_ins.c cpu.CY = cpu.rA | cpu.CY; rA 5803 src/dps8/dps8_ins.c cpu.rA = cpu.rA ^ cpu.CY; rA 5804 src/dps8/dps8_ins.c cpu.rA &= DMASK; rA 5809 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 5810 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 5836 src/dps8/dps8_ins.c cpu.CY = cpu.rA ^ cpu.CY; rA 5923 src/dps8/dps8_ins.c word72 trAQ = convert_to_word72 (cpu.rA, cpu.rQ); rA 5990 src/dps8/dps8_ins.c word36 trZ = cpu.rA & ~cpu.CY; rA 6007 src/dps8/dps8_ins.c word72 trAQ = convert_to_word72 (cpu.rA, cpu.rQ); rA 6074 src/dps8/dps8_ins.c cpu.rA = (cpu.Ypair[0] & FLOAT36MASK) << 8; rA 6075 src/dps8/dps8_ins.c cpu.rA |= (cpu.Ypair[1] >> 28) & MASK8; rA 6084 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0 && cpu.rQ == 0); rA 6085 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 6103 src/dps8/dps8_ins.c ((cpu.rA & 0777777777400LLU) >> 8); rA 6104 src/dps8/dps8_ins.c cpu.Ypair[1] = ((cpu.rA & 0377) << 28) | rA 6122 src/dps8/dps8_ins.c cpu.rA &= DMASK; rA 6123 src/dps8/dps8_ins.c cpu.CY = ((word36)cpu.rE << 28) | (((cpu.rA >> 8) & 01777777777LL)); rA 6332 src/dps8/dps8_ins.c fno (cpup, & cpu.rE, & cpu.rA, & cpu.rQ); rA 7101 src/dps8/dps8_ins.c 040, & cpu.rA, & cpu.rQ); rA 7120 src/dps8/dps8_ins.c word72 big = convert_to_word72 (cpu.rA, cpu.rQ); rA 7343 src/dps8/dps8_ins.c word36 tmp1 = cpu.rA & SIGN36; // A0 rA 7344 src/dps8/dps8_ins.c word36 tmp36 = (cpu.rA << 3) & DMASK; rA 7369 src/dps8/dps8_ins.c cpu.rA = tmp36r & DMASK; // remainder -> C(A) rA 7374 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); // If C(A) = 0, then ON; rA 7385 src/dps8/dps8_ins.c word36 tmp = cpu.rA & MASK36; rA 7393 src/dps8/dps8_ins.c cpu.rA = tmp; rA 7398 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); // If C(A) = 0, then ON; rA 7400 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); // If C(A)0 = 1, then ON; rA 8060 src/dps8/dps8_ins.c & cpu.rA, & cpu.rQ); rA 8067 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 8068 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 8137 src/dps8/dps8_ins.c & cpu.rA, & cpu.rQ); rA 8157 src/dps8/dps8_ins.c cpu.rA = PROM[cpu.TPR.CA & 1023]; rA 8165 src/dps8/dps8_ins.c cpu.rA = cpu.switches.data_switches; rA 8195 src/dps8/dps8_ins.c cpu.rA = 0; rA 8196 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [0] & 07LL) rA 8198 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [0] & 01LL) rA 8200 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [0] & 01LL) rA 8202 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [0] ? 1LL:0LL) rA 8204 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [0] & 07LL) rA 8207 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [1] & 07LL) rA 8209 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [1] & 01LL) rA 8211 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [1] & 01LL) rA 8213 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [1] ? 1LL:0LL) rA 8215 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [1] & 07LL) rA 8218 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [2] & 07LL) rA 8220 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [2] & 01LL) rA 8222 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [2] & 01LL) rA 8224 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [2] ? 1LL:0LL) rA 8226 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [2] & 07LL) rA 8229 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [3] & 07LL) rA 8231 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [3] & 01LL) rA 8233 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [3] & 01LL) rA 8235 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [3] ? 1LL:0LL) rA 8237 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [3] & 07LL) rA 8308 src/dps8/dps8_ins.c cpu.rA = 0; rA 8310 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.interlace[0] == 2 ? rA 8312 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.interlace[1] == 2 ? rA 8314 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.interlace[2] == 2 ? rA 8316 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.interlace[3] == 2 ? rA 8326 src/dps8/dps8_ins.c cpu.rA |= (word36) ((01L) /* 0b01 DPS8M */ rA 8328 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.FLT_BASE & 0177LL) rA 8330 src/dps8/dps8_ins.c DPS8M_ (cpu.rA |= (word36) ((01L) /* 0b1 ID_PROM installed */ rA 8347 src/dps8/dps8_ins.c cpu.rA |= (word36) ((01L) // 0b1 L68/DPS option: DPS rA 8353 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.enable_cache ? 1 : 0) rA 8358 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.procMode) /* 0b1 DPS8M */ rA 8360 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.procMode & 1U) rA 8368 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.options.proc_speed & 017LL) rA 8379 src/dps8/dps8_ins.c cpu.rA |= (word36) ((016L) // 0b1110 CPU ID rA 8382 src/dps8/dps8_ins.c cpu.rA |= (word36) ((cpu.switches.cpu_num & 07LL) rA 8388 src/dps8/dps8_ins.c cpu.rA = 0; rA 8418 src/dps8/dps8_ins.c cpu.rA = 0; rA 8419 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [4] & 07LL) rA 8421 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [4] & 01LL) rA 8423 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [4] & 01LL) rA 8425 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [4] ? 1LL:0LL) rA 8427 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [4] & 07LL) rA 8430 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [5] & 07LL) rA 8432 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [5] & 01LL) rA 8434 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [5] & 01LL) rA 8436 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [5] ? 1LL:0LL) rA 8438 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [5] & 07LL) rA 8441 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [6] & 07LL) rA 8443 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [6] & 01LL) rA 8445 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [6] & 01LL) rA 8447 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [6] ? 1LL:0LL) rA 8449 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [6] & 07LL) rA 8452 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.assignment [7] & 07LL) rA 8454 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.enable [7] & 01LL) rA 8456 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.init_enable [7] & 01LL) rA 8458 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [7] ? 1LL:0LL) rA 8460 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.store_size [7] & 07LL) rA 8480 src/dps8/dps8_ins.c cpu.rA = 0; rA 8481 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [0] == 2 ? rA 8483 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [1] == 2 ? rA 8485 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [2] == 2 ? rA 8487 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [3] == 2 ? rA 8490 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [4] == 2 ? rA 8492 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [5] == 2 ? rA 8494 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [6] == 2 ? rA 8496 src/dps8/dps8_ins.c cpu.rA |= (word36) (cpu.switches.interlace [7] == 2 ? rA 8510 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 8511 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 8586 src/dps8/dps8_ins.c current_running_cpu_idx, cpu.rA, cpu.rQ); rA 8623 src/dps8/dps8_ins.c cpu_port_num, cpu.rA); rA 8652 src/dps8/dps8_ins.c cpu.rA, cpu.rQ); rA 8667 src/dps8/dps8_ins.c cpu.rA = result; rA 8671 src/dps8/dps8_ins.c SC_I_ZERO (cpu.rA == 0); rA 8672 src/dps8/dps8_ins.c SC_I_NEG (cpu.rA & SIGN36); rA 9627 src/dps8/dps8_ins.c rA 9630 src/dps8/dps8_ins.c rA 9637 src/dps8/dps8_ins.c rA 9646 src/dps8/dps8_ins.c rA 9658 src/dps8/dps8_ins.c rA 9664 src/dps8/dps8_ins.c rA 9669 src/dps8/dps8_ins.c rA 9701 src/dps8/dps8_ins.c rA 9736 src/dps8/dps8_ins.c rA 9738 src/dps8/dps8_ins.c rA 9795 src/dps8/dps8_ins.c rA 77 src/dps8/dps8_math.c word72 Mant = convert_to_word72 (cpu.rA, cpu.rQ); rA 129 src/dps8/dps8_math.c word72 Mant = convert_to_word72 (cpu.rA, cpu.rQ); rA 295 src/dps8/dps8_math.c cpu . rA = 0; rA 338 src/dps8/dps8_math.c cpu . rA = (result >> 36) & MASK36; rA 485 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); rA 678 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ); rA 684 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); // Do this here instead of in Add72b because rA 686 src/dps8/dps8_math.c if (cpu.rA == 0 && cpu.rQ == 0) { rA 694 src/dps8/dps8_math.c fno_ext (cpup, & e3, & cpu.rE, & cpu.rA, & cpu.rQ); rA 1082 src/dps8/dps8_math.c word72 m = convert_to_word72 (cpu.rA, cpu.rQ); rA 1114 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); rA 1115 src/dps8/dps8_math.c fno (cpup, & cpu.rE, & cpu.rA, & cpu.rQ); // normalize rA 1135 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); rA 1149 src/dps8/dps8_math.c cpu.rA = 0; rA 1213 src/dps8/dps8_math.c convert_to_word36 (m3a, & cpu.rA, & cpu.rQ); rA 1218 src/dps8/dps8_math.c sim_debug (DBG_TRACEEXT, & cpu_dev, "fmp A %012"PRIo64" Q %012"PRIo64" E %03o\n", cpu.rA, cpu.rQ, cpu.rE); rA 1219 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); rA 1221 src/dps8/dps8_math.c if (cpu.rA == 0 && cpu.rQ == 0) { rA 1229 src/dps8/dps8_math.c fno_ext (cpup, & e3, & cpu.rE, & cpu.rA, & cpu.rQ); rA 1276 src/dps8/dps8_math.c m1 = convert_to_word72 (cpu.rA, cpu.rQ); rA 1288 src/dps8/dps8_math.c m2 = convert_to_word72 (cpu.rA, cpu.rQ); rA 1323 src/dps8/dps8_math.c cpu.rA = 0; rA 1395 src/dps8/dps8_math.c convert_to_word36 (m1, & cpu.rA, & cpu.rQ); rA 1461 src/dps8/dps8_math.c cpu.rA = rshift_128 (m3, 36u).l & MASK36; rA 1463 src/dps8/dps8_math.c cpu.rA = (m3 >> 36) & MASK36; rA 1470 src/dps8/dps8_math.c SC_I_ZERO (cpu . rA == 0); rA 1471 src/dps8/dps8_math.c SC_I_NEG (cpu . rA & SIGN36); rA 1473 src/dps8/dps8_math.c if (cpu.rA == 0) // set to normalized 0 rA 1553 src/dps8/dps8_math.c word72 m = convert_to_word72 (cpu.rA, cpu.rQ); rA 1594 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); rA 1596 src/dps8/dps8_math.c fno (cpup, & cpu.rE, & cpu.rA, & cpu.rQ); rA 1612 src/dps8/dps8_math.c word36 A = cpu . rA, Q = cpu . rQ; rA 1691 src/dps8/dps8_math.c word72 m1= lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); rA 1693 src/dps8/dps8_math.c word72 m1 = ((word72)cpu.rA & 0777777777400LL) << 36; rA 1830 src/dps8/dps8_math.c word72 m1 = lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); rA 1832 src/dps8/dps8_math.c word72 m1 = ((word72)cpu.rA & 0777777777400LL) << 36; rA 1996 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); rA 2192 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ); rA 2198 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); // Do this here instead of in Add72b because rA 2200 src/dps8/dps8_math.c if (cpu.rA == 0 && cpu.rQ == 0) { rA 2208 src/dps8/dps8_math.c fno_ext (cpup, & e3, & cpu.rE, & cpu.rA, & cpu.rQ); rA 2306 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); rA 2335 src/dps8/dps8_math.c cpu.rA = 0; rA 2417 src/dps8/dps8_math.c convert_to_word36 (m3a, & cpu.rA, & cpu.rQ); rA 2423 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); rA 2425 src/dps8/dps8_math.c if (cpu.rA == 0 && cpu.rQ == 0) { rA 2433 src/dps8/dps8_math.c fno_ext (cpup, & e3, & cpu.rE, & cpu.rA, & cpu.rQ); rA 2481 src/dps8/dps8_math.c m1 = convert_to_word72 (cpu.rA, cpu.rQ); rA 2495 src/dps8/dps8_math.c m2 = convert_to_word72 (cpu.rA, cpu.rQ); rA 2541 src/dps8/dps8_math.c cpu.rA = 0; rA 2612 src/dps8/dps8_math.c convert_to_word36 (m1, & cpu.rA, & cpu.rQ); rA 2666 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ); rA 2672 src/dps8/dps8_math.c SC_I_ZERO (cpu.rA == 0 && cpu . rQ == 0); rA 2673 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); rA 2675 src/dps8/dps8_math.c if (cpu.rA == 0 && cpu.rQ == 0) // set to normalized 0 rA 2797 src/dps8/dps8_math.c bool dividendNegative = (getbits36_1 (cpu.rA, 0) != 0); rA 2805 src/dps8/dps8_math.c uint128 zFrac = (((uint128) (cpu.rA & MASK35)) << 35) | ((cpu.rQ >> 1) & MASK35); rA 2843 src/dps8/dps8_math.c cpu.rA = (zFrac >> 35) & MASK35; rA 2847 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); rA 2890 src/dps8/dps8_math.c SC_I_ZERO (cpu.rA == 0); rA 2891 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); rA 2897 src/dps8/dps8_math.c cpu.rA = quot & MASK36; rA 2913 src/dps8/dps8_math.c rA 2915 src/dps8/dps8_math.c rA 2930 src/dps8/dps8_math.c bool dividendNegative = (getbits36_1 (cpu . rA, 0) != 0); rA 2939 src/dps8/dps8_math.c uint128 zFrac = lshift_128 (construct_128 (0, cpu.rA & MASK35), 35); rA 2943 src/dps8/dps8_math.c uint128 zFrac = ((uint128) (cpu . rA & MASK35) << 35) | ((cpu . rQ >> 1) & MASK35); rA 3029 src/dps8/dps8_math.c SC_I_NEG (cpu.rA & SIGN36); rA 3066 src/dps8/dps8_math.c bool Aneg = (cpu.rA & SIGN36) != 0; // blood type rA 3067 src/dps8/dps8_math.c bool AQzero = cpu.rA == 0 && cpu.rQ == 0; rA 3068 src/dps8/dps8_math.c if (cpu.rA & SIGN36) rA 3070 src/dps8/dps8_math.c cpu.rA = (~cpu.rA) & MASK36; rA 3076 src/dps8/dps8_math.c cpu.rA = (cpu.rA + 1) & MASK36; rA 3080 src/dps8/dps8_math.c rA 3082 src/dps8/dps8_math.c rA 3122 src/dps8/dps8_math.c cpu.rA = quot.l & MASK36; rA 3125 src/dps8/dps8_math.c cpu . rA = quot & MASK36; rA 3135 src/dps8/dps8_math.c SC_I_ZERO (cpu . rA == 0 && cpu . rQ == 0); rA 3136 src/dps8/dps8_math.c SC_I_NEG (cpu . rA & SIGN36); rA 3164 src/dps8/dps8_math.c float72 m = convert_to_word72 (cpu.rA, cpu.rQ); rA 3205 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); rA 3207 src/dps8/dps8_math.c fno (cpup, & cpu.rE, & cpu.rA, & cpu.rQ); rA 3238 src/dps8/dps8_math.c word36 A = cpu . rA, Q = cpu . rQ; rA 3328 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ & 0777777777400LL); rA 3463 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA & MASK36, cpu.rQ & 0777777777400LL); rA 1843 src/dps8/dps8_scu.c word16 b0_15 = (word16) getbits36_16 (cpu.rA, 20); rA 2117 src/dps8/dps8_scu.c cpu.rA = (clk >> 36) & 0177777; // upper 16-bits of clock rA 3379 src/dps8/dps8_sys.c sim_msg ("rA %012"PRIo64" (%llu)\n", rA, rA); rA 3417 src/dps8/dps8_sys.c sim_msg ("rA %012"PRIo64" (%llu)\n", rA, rA); rA 3433 src/dps8/dps8_sys.c sim_msg ("rA %012"PRIo64" (%llu)\n", rA, rA); rA 4064 src/dps8/dps8_sys.c { "cpus[].rA", SYM_STRUCT_OFFSET, SYM_UINT64_36, offsetof (cpu_state_t, rA) }, rA 80 src/dps8/hdbg.h # define HDBGRegAR(c) hdbgRegR (hreg_A, cpu.rA, c) rA 81 src/dps8/hdbg.h # define HDBGRegAW(c) hdbgRegW (hreg_A, cpu.rA, c) rA 727 src/dps8/panelScraper.c SETL (bank_d, 0+3, cpu.rA, 36); rA 753 src/dps8/panelScraper.c SETL (bank_d, 8+3, cpu.rA >> 8, 36 - 8); rA 754 src/dps8/panelScraper.c SETL (bank_e, 0+3, cpu.rA, 8);