k 451 src/decNumber/decNumberLocal.h # define CANONDPDOFF(dpd, k) (((dpd)&(0x300<<(k)))==0 \ k 452 src/decNumber/decNumberLocal.h || ((dpd)&(((uInt)0x6e)<<(k)))!=(((uInt)0x6e)<<(k))) k 455 src/decNumber/decNumberLocal.h # define CANONDPDTWO(hi, lo, k) (((hi)&(0x300>>(32-(k))))==0 \ k 456 src/decNumber/decNumberLocal.h || ((hi)&(0x6e>>(32-(k))))!=(0x6e>>(32-(k))) \ k 457 src/decNumber/decNumberLocal.h || ((lo)&(((uInt)0x6e)<<(k)))!=(((uInt)0x6e)<<(k))) k 905 src/dps8/dps8_eis.c static word9 EISget469 (cpu_state_t * cpup, int k, uint i) k 911 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 913 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 925 src/dps8/dps8_eis.c word18 address = e -> WN [k - 1]; k 926 src/dps8/dps8_eis.c uint nChars = i + e -> CN [k - 1]; k 931 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 933 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 935 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 937 src/dps8/dps8_eis.c word36 data = EISRead (cpup, & e -> addr [k - 1]); // read it from memory k 941 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 943 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 959 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "EISGet469 : k: %u TAk %u coffset %u c %o \n", k, cpu.du.TAk[k - 1], residue, c); k 961 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "EISGet469 : k: %u TAk %u coffset %u c %o \n", k, e -> TA [k - 1], residue, c); k 967 src/dps8/dps8_eis.c static void EISput469 (cpu_state_t * cpup, int k, uint i, word9 c469) k 973 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 975 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 987 src/dps8/dps8_eis.c word18 address = e -> WN [k - 1]; k 988 src/dps8/dps8_eis.c uint nChars = i + e -> CN [k - 1]; k 993 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 995 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 997 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 999 src/dps8/dps8_eis.c word36 data = EISRead (cpup, & e -> addr [k - 1]); // read it from memory k 1003 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 1005 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 1020 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> addr [k - 1], 0, w, true); k 1111 src/dps8/dps8_eis.c static void setupOperandDescriptorCache (cpu_state_t * cpup, int k) k 1114 src/dps8/dps8_eis.c e -> addr [k - 1]. cacheValid = false; k 1151 src/dps8/dps8_eis.c static void setupOperandDescriptor (cpu_state_t * cpup, int k, fault_ipr_subtype_ *mod_fault) k 1154 src/dps8/dps8_eis.c switch (k) k 1173 src/dps8/dps8_eis.c word18 MFk = e -> MF [k - 1]; k 1177 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1179 src/dps8/dps8_eis.c if (k == 2) k 1182 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; k 1224 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 1226 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 1228 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 1260 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 1262 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 1264 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 1266 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1267 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1268 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR [n].SNR; k 1269 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, k 1273 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; // ARs involved k 1274 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "AR n %u k %u\n", n, k - 1); k 1278 src/dps8/dps8_eis.c e->addr [k - 1].mat = OperandRead; // no ARs involved yet k 1279 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "No ARb %u\n", k - 1); k 1292 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 1295 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 1297 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 1301 src/dps8/dps8_eis.c e -> op [k - 1] = EISRead (cpup, & e -> addr [k - 1]); k 1305 src/dps8/dps8_eis.c e->addr [k - 1].mat = OperandRead; // no ARs involved yet k 1306 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "No ARa %u\n", k - 1); k 1308 src/dps8/dps8_eis.c setupOperandDescriptorCache (cpup, k); k 1327 src/dps8/dps8_eis.c static void parseAlphanumericOperandDescriptor (cpu_state_t * cpup, uint k, uint useTA, bool allowDU, fault_ipr_subtype_ *mod_fault) k 1330 src/dps8/dps8_eis.c word18 MFk = e -> MF [k - 1]; k 1332 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1334 src/dps8/dps8_eis.c else if (k == 2) k 1336 src/dps8/dps8_eis.c else if (k == 3) k 1341 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; k 1349 src/dps8/dps8_eis.c if (useTA != k) k 1350 src/dps8/dps8_eis.c cpu.du.TAk[k-1] = cpu.du.TAk[useTA-1]; k 1352 src/dps8/dps8_eis.c cpu.du.TAk[k-1] = getbits36_2 (opDesc, 21); // type alphanumeric k 1354 src/dps8/dps8_eis.c if (useTA != k) k 1355 src/dps8/dps8_eis.c e -> TA [k - 1] = e -> TA [useTA - 1]; k 1357 src/dps8/dps8_eis.c e -> TA [k - 1] = getbits36_2 (opDesc, 21); // type alphanumeric k 1361 src/dps8/dps8_eis.c if (k == 1) // Use data from first operand k 1416 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1417 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1418 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR [n].SNR; k 1419 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1421 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; // ARs involved k 1422 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "AR n %u k %u\n", n, k - 1); k 1429 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "initial CN%u %u\n", k, CN); k 1435 src/dps8/dps8_eis.c e -> N [k - 1] = (uint) getMFReg36 (cpup, reg, false, false, mod_fault); // RL=1: disallow du,n,ic k 1437 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 1439 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 1443 src/dps8/dps8_eis.c e -> N [k - 1] &= 017777777; // 22-bits of length k 1448 src/dps8/dps8_eis.c e -> N [k - 1] &= 07777777; // 21-bits of length. k 1459 src/dps8/dps8_eis.c e -> N [k - 1] = opDesc & 07777; k 1464 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %o\n", k, e->N[k-1]); k 1483 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 1485 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 1505 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; k 1506 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; k 1509 src/dps8/dps8_eis.c k, e -> CN [k - 1]); k 1530 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? k 1531 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; k 1533 src/dps8/dps8_eis.c k, e -> CN [k - 1]); k 1556 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? k 1557 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; k 1559 src/dps8/dps8_eis.c k, e -> CN [k - 1]); k 1569 src/dps8/dps8_eis.c EISaddr * a = & e -> addr [k - 1]; k 1570 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO); k 1572 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = effWORDNO; k 1581 src/dps8/dps8_eis.c a -> TA = (int) e -> TA [k - 1]; k 1585 src/dps8/dps8_eis.c static void parseArgOperandDescriptor (cpu_state_t * cpup, uint k, fault_ipr_subtype_ *mod_fault) k 1587 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1589 src/dps8/dps8_eis.c else if (k == 2) k 1591 src/dps8/dps8_eis.c else if (k == 3) k 1595 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; k 1621 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1622 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1623 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR[n].SNR; k 1624 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1625 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; k 1631 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = y); k 1634 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = y; k 1636 src/dps8/dps8_eis.c e -> addr [k - 1].address = y; k 1640 src/dps8/dps8_eis.c static void parseNumericOperandDescriptor (cpu_state_t * cpup, int k, fault_ipr_subtype_ *mod_fault) k 1642 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1644 src/dps8/dps8_eis.c else if (k == 2) k 1646 src/dps8/dps8_eis.c else if (k == 3) k 1650 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; k 1654 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; k 1673 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1674 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1675 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; k 1676 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1678 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved k 1684 src/dps8/dps8_eis.c e->TN[k-1] = getbits36_1 (opDesc, 21); // type numeric k 1687 src/dps8/dps8_eis.c if (k == 1) k 1696 src/dps8/dps8_eis.c e->S[k-1] = getbits36_2 (opDesc, 22); // Sign and decimal type of data k 1697 src/dps8/dps8_eis.c e->SF[k-1] = SIGNEXT6_int (getbits36_6 (opDesc, 24)); // Scaling factor. k 1708 src/dps8/dps8_eis.c e->N[k-1] = getMFReg18 (cpup,reg, false, false, mod_fault) & 077; // RL=1: disallow du,n,ic k 1711 src/dps8/dps8_eis.c e->N[k-1] = opDesc & 077; k 1713 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "parseNumericOperandDescriptor(cpup, ): N%u %0o\n", k, e->N[k-1]); k 1725 src/dps8/dps8_eis.c k 1749 src/dps8/dps8_eis.c switch (e->TN[k-1]) k 1768 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? k 1785 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? k 1791 src/dps8/dps8_eis.c cpu.du.TAk[k-1]); k 1794 src/dps8/dps8_eis.c e->TA[k-1]); k 1799 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; k 1800 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO); k 1802 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = effWORDNO; k 1810 src/dps8/dps8_eis.c a->TN = (int) e->TN[k-1]; k 1815 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1], a->cPos, a->bPos, k, e->N[k-1]); k 1819 src/dps8/dps8_eis.c a->address, a->cPos, a->bPos, k, e->N[k-1]); k 1823 src/dps8/dps8_eis.c static void parseBitstringOperandDescriptor (cpu_state_t * cpup, int k, fault_ipr_subtype_ *mod_fault) k 1825 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1827 src/dps8/dps8_eis.c else if (k == 2) k 1829 src/dps8/dps8_eis.c else if (k == 3) k 1833 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; k 1834 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; k 1837 src/dps8/dps8_eis.c if (k == 1) k 1856 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d AR%d\n", k, n); k 1860 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1861 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1862 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; k 1863 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1864 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved k 1875 src/dps8/dps8_eis.c e->N[k-1] = getMFReg36(cpup, reg, false, false, mod_fault) & 077777777; // RL=1: disallow du,n,ic k 1876 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d RL reg %u val %"PRIo64"\n", k, reg, (word36)e->N[k-1]); k 1880 src/dps8/dps8_eis.c e ->N[k-1] = opDesc & 07777; k 1883 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d opdesc %012"PRIo64"\n", k, opDesc); k 1884 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %u\n", k, e->N[k-1]); k 1910 src/dps8/dps8_eis.c e->B[k-1] = effBITNO; k 1911 src/dps8/dps8_eis.c e->C[k-1] = effCHAR; k 1913 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; k 1914 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO); k 1916 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = effWORDNO; k 1924 src/dps8/dps8_eis.c static void cleanupOperandDescriptor (cpu_state_t * cpup, int k) k 1927 src/dps8/dps8_eis.c if (e -> addr [k - 1].cacheValid && e -> addr [k - 1].cacheDirty) k 1929 src/dps8/dps8_eis.c EISWriteCache(cpup, & e -> addr [k - 1]); k 1931 src/dps8/dps8_eis.c e -> addr [k - 1].cacheDirty = false; k 5059 src/dps8/dps8_eis.c static void EISloadInputBufferNumeric (cpu_state_t * cpup, int k) k 5066 src/dps8/dps8_eis.c int pos = (int) e->CN[k-1]; k 5068 src/dps8/dps8_eis.c int TN = (int) e->TN[k-1]; k 5069 src/dps8/dps8_eis.c int S = (int) e->S[k-1]; // This is where MVNE gets really nasty. k 5072 src/dps8/dps8_eis.c int N = (int) e->N[k-1]; // number of chars in src string k 5074 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; k 5222 src/dps8/dps8_eis.c static void EISloadInputBufferAlphnumeric (cpu_state_t * cpup, int k) k 5239 src/dps8/dps8_eis.c word9 c = EISget469 (cpup, k, n); k 5244 src/dps8/dps8_eis.c static void EISwriteOutputBufferToMemory (cpu_state_t * cpup, int k) k 5251 src/dps8/dps8_eis.c EISput469 (cpup, k, n, c49); k 9150 src/dps8/dps8_eis.c k 9162 src/dps8/dps8_eis.c k 9164 src/dps8/dps8_eis.c k 9166 src/dps8/dps8_eis.c k 9167 src/dps8/dps8_eis.c k 9168 src/dps8/dps8_eis.c k 9213 src/dps8/dps8_eis.c k 9214 src/dps8/dps8_eis.c k 9216 src/dps8/dps8_eis.c k 9217 src/dps8/dps8_eis.c k 9219 src/dps8/dps8_eis.c k 9220 src/dps8/dps8_eis.c k 9915 src/dps8/dps8_eis.c k 9924 src/dps8/dps8_eis.c k 9925 src/dps8/dps8_eis.c k 283 src/dps8/dps8_math128.c uint64_t k, t; k 291 src/dps8/dps8_math128.c k = 0; k 294 src/dps8/dps8_math128.c t = (uint64_t) u[i] * (uint64_t) v[j] + (uint64_t) w[i + j] + k; k 297 src/dps8/dps8_math128.c k = t >> 32; k 299 src/dps8/dps8_math128.c w[j + m] = (uint32_t) k; k 388 src/dps8/dps8_math128.c int s, i, j, t, k; k 396 src/dps8/dps8_math128.c k = 0; k 399 src/dps8/dps8_math128.c q[j] = (uint16_t) (((unsigned int) k*b + u[j])/v[0]); // divisor here. k 400 src/dps8/dps8_math128.c k = (int) (((unsigned int) k*b + u[j]) - q[j]*v[0]); k 402 src/dps8/dps8_math128.c if (r != NULL) r[0] = (uint16_t) k; k 438 src/dps8/dps8_math128.c k = 0; k 442 src/dps8/dps8_math128.c t = (int32_t) un[i+j] - k - (int32_t) (p & 0xFFFF); k 444 src/dps8/dps8_math128.c k = (int) (p >> 16) - (t >> 16); k 446 src/dps8/dps8_math128.c t = un[j+n] - k; k 453 src/dps8/dps8_math128.c k = 0; k 456 src/dps8/dps8_math128.c t = un[i+j] + vn[i] + k; k 458 src/dps8/dps8_math128.c k = t >> 16; k 460 src/dps8/dps8_math128.c un[j+n] = (uint16_t) (un[j+n] + k); k 6538 src/simh/scp.c t_addr k; k 6563 src/simh/scp.c for (i = 0, k = (t_addr) pcval; i < sim_emax; i++, k = k + dptr->aincr) { k 6564 src/simh/scp.c if ((r = dptr->examine (&sim_eval[i], k, dptr->units, SWMASK ('V')|SIM_SW_STOP)) != SCPE_OK) k 113 src/simh/sim_fio.c size_t k; k 120 src/simh/sim_fio.c for (k = (int32)(size - 1); k >= (((int32) size + 1) / 2); k--) { k 122 src/simh/sim_fio.c *sptr++ = *(dptr + k); k 123 src/simh/sim_fio.c *(dptr + k) = by; k 145 src/simh/sim_fio.c size_t k; k 158 src/simh/sim_fio.c for (k = size; k > 0; /* empty */) k 159 src/simh/sim_fio.c *(dptr + --k) = *sptr++;