k 449 src/decNumber/decNumberLocal.h # define CANONDPDOFF(dpd, k) (((dpd)&(0x300<<(k)))==0 \ k 450 src/decNumber/decNumberLocal.h || ((dpd)&(((uInt)0x6e)<<(k)))!=(((uInt)0x6e)<<(k))) k 453 src/decNumber/decNumberLocal.h # define CANONDPDTWO(hi, lo, k) (((hi)&(0x300>>(32-(k))))==0 \ k 454 src/decNumber/decNumberLocal.h || ((hi)&(0x6e>>(32-(k))))!=(0x6e>>(32-(k))) \ k 455 src/decNumber/decNumberLocal.h || ((lo)&(((uInt)0x6e)<<(k)))!=(((uInt)0x6e)<<(k))) k 912 src/dps8/dps8_eis.c static word9 EISget469 (int k, uint i) k 918 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 920 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 932 src/dps8/dps8_eis.c word18 address = e -> WN [k - 1]; k 933 src/dps8/dps8_eis.c uint nChars = i + e -> CN [k - 1]; k 938 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 940 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 942 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 944 src/dps8/dps8_eis.c word36 data = EISRead (& e -> addr [k - 1]); // read it from memory k 948 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 950 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 966 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 968 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 974 src/dps8/dps8_eis.c static void EISput469 (int k, uint i, word9 c469) k 980 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 982 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 994 src/dps8/dps8_eis.c word18 address = e -> WN [k - 1]; k 995 src/dps8/dps8_eis.c uint nChars = i + e -> CN [k - 1]; k 1000 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 1002 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 1004 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 1006 src/dps8/dps8_eis.c word36 data = EISRead (& e -> addr [k - 1]); // read it from memory k 1010 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 1012 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 1027 src/dps8/dps8_eis.c EISWriteIdx (& e -> addr [k - 1], 0, w, true); k 1118 src/dps8/dps8_eis.c static void setupOperandDescriptorCache (int k) k 1121 src/dps8/dps8_eis.c e -> addr [k - 1]. cacheValid = false; k 1158 src/dps8/dps8_eis.c static void setupOperandDescriptor (int k, fault_ipr_subtype_ *mod_fault) k 1161 src/dps8/dps8_eis.c switch (k) k 1180 src/dps8/dps8_eis.c word18 MFk = e -> MF [k - 1]; k 1184 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1186 src/dps8/dps8_eis.c if (k == 2) k 1189 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; k 1231 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 1233 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 1235 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 1267 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 1269 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 1271 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 1273 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1274 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1275 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR [n].SNR; k 1276 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, k 1280 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; // ARs involved k 1281 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "AR n %u k %u\n", n, k - 1); k 1285 src/dps8/dps8_eis.c e->addr [k - 1].mat = OperandRead; // no ARs involved yet k 1286 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "No ARb %u\n", k - 1); k 1299 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = address); k 1302 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = address; k 1304 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; k 1308 src/dps8/dps8_eis.c e -> op [k - 1] = EISRead (& e -> addr [k - 1]); k 1312 src/dps8/dps8_eis.c e->addr [k - 1].mat = OperandRead; // no ARs involved yet k 1313 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "No ARa %u\n", k - 1); k 1315 src/dps8/dps8_eis.c setupOperandDescriptorCache (k); k 1334 src/dps8/dps8_eis.c static void parseAlphanumericOperandDescriptor (uint k, uint useTA, bool allowDU, fault_ipr_subtype_ *mod_fault) k 1337 src/dps8/dps8_eis.c word18 MFk = e -> MF [k - 1]; k 1339 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1341 src/dps8/dps8_eis.c else if (k == 2) k 1343 src/dps8/dps8_eis.c else if (k == 3) k 1348 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; k 1356 src/dps8/dps8_eis.c if (useTA != k) k 1357 src/dps8/dps8_eis.c cpu.du.TAk[k-1] = cpu.du.TAk[useTA-1]; k 1359 src/dps8/dps8_eis.c cpu.du.TAk[k-1] = getbits36_2 (opDesc, 21); // type alphanumeric k 1361 src/dps8/dps8_eis.c if (useTA != k) k 1362 src/dps8/dps8_eis.c e -> TA [k - 1] = e -> TA [useTA - 1]; k 1364 src/dps8/dps8_eis.c e -> TA [k - 1] = getbits36_2 (opDesc, 21); // type alphanumeric k 1368 src/dps8/dps8_eis.c if (k == 1) // Use data from first operand k 1423 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1424 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1425 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR [n].SNR; k 1426 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1428 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; // ARs involved k 1429 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "AR n %u k %u\n", n, k - 1); k 1436 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "initial CN%u %u\n", k, CN); k 1442 src/dps8/dps8_eis.c e -> N [k - 1] = (uint) getMFReg36 (reg, false, false, mod_fault); // RL=1: disallow du,n,ic k 1444 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 1446 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 1450 src/dps8/dps8_eis.c e -> N [k - 1] &= 017777777; // 22-bits of length k 1455 src/dps8/dps8_eis.c e -> N [k - 1] &= 07777777; // 21-bits of length. k 1466 src/dps8/dps8_eis.c e -> N [k - 1] = opDesc & 07777; k 1471 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %o\n", k, e->N[k-1]); k 1490 src/dps8/dps8_eis.c switch (cpu.du.TAk[k-1]) k 1492 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) k 1512 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; k 1513 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; k 1516 src/dps8/dps8_eis.c k, e -> CN [k - 1]); k 1537 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? k 1538 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; k 1540 src/dps8/dps8_eis.c k, e -> CN [k - 1]); k 1563 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? k 1564 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; k 1566 src/dps8/dps8_eis.c k, e -> CN [k - 1]); k 1576 src/dps8/dps8_eis.c EISaddr * a = & e -> addr [k - 1]; k 1577 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO); k 1579 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = effWORDNO; k 1588 src/dps8/dps8_eis.c a -> TA = (int) e -> TA [k - 1]; k 1592 src/dps8/dps8_eis.c static void parseArgOperandDescriptor (uint k, fault_ipr_subtype_ *mod_fault) k 1594 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1596 src/dps8/dps8_eis.c else if (k == 2) k 1598 src/dps8/dps8_eis.c else if (k == 3) k 1602 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; k 1628 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1629 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1630 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR[n].SNR; k 1631 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1632 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; k 1638 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = y); k 1641 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = y; k 1643 src/dps8/dps8_eis.c e -> addr [k - 1].address = y; k 1647 src/dps8/dps8_eis.c static void parseNumericOperandDescriptor (int k, fault_ipr_subtype_ *mod_fault) k 1649 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1651 src/dps8/dps8_eis.c else if (k == 2) k 1653 src/dps8/dps8_eis.c else if (k == 3) k 1657 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; k 1661 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; k 1680 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1681 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1682 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; k 1683 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1685 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved k 1691 src/dps8/dps8_eis.c e->TN[k-1] = getbits36_1 (opDesc, 21); // type numeric k 1694 src/dps8/dps8_eis.c if (k == 1) k 1703 src/dps8/dps8_eis.c e->S[k-1] = getbits36_2 (opDesc, 22); // Sign and decimal type of data k 1704 src/dps8/dps8_eis.c e->SF[k-1] = SIGNEXT6_int (getbits36_6 (opDesc, 24)); // Scaling factor. k 1715 src/dps8/dps8_eis.c e->N[k-1] = getMFReg18(reg, false, false, mod_fault) & 077; // RL=1: disallow du,n,ic k 1718 src/dps8/dps8_eis.c e->N[k-1] = opDesc & 077; k 1720 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "parseNumericOperandDescriptor(): N%u %0o\n", k, e->N[k-1]); k 1732 src/dps8/dps8_eis.c k 1756 src/dps8/dps8_eis.c switch (e->TN[k-1]) k 1775 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? k 1792 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? k 1797 src/dps8/dps8_eis.c sim_printf ("parseNumericOperandDescriptor(ta=%d) How'd we get here 2?\n", cpu.du.TAk[k-1]); k 1799 src/dps8/dps8_eis.c sim_printf ("parseNumericOperandDescriptor(ta=%d) How'd we get here 2?\n", e->TA[k-1]); k 1804 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; k 1805 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO); k 1807 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = effWORDNO; k 1815 src/dps8/dps8_eis.c a->TN = (int) e->TN[k-1]; k 1818 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "parseNumericOperandDescriptor(): address:%06o cPos:%d bPos:%d N%u %u\n", cpu.du.Dk_PTR_W[k-1], a->cPos, a->bPos, k, e->N[k-1]); k 1820 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "parseNumericOperandDescriptor(): address:%06o cPos:%d bPos:%d N%u %u\n", a->address, a->cPos, a->bPos, k, e->N[k-1]); k 1825 src/dps8/dps8_eis.c static void parseBitstringOperandDescriptor (int k, fault_ipr_subtype_ *mod_fault) k 1827 src/dps8/dps8_eis.c PNL (L68_ (if (k == 1) k 1829 src/dps8/dps8_eis.c else if (k == 2) k 1831 src/dps8/dps8_eis.c else if (k == 3) k 1835 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; k 1836 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; k 1839 src/dps8/dps8_eis.c if (k == 1) k 1858 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d AR%d\n", k, n); k 1862 src/dps8/dps8_eis.c cpu.cu.TSN_PRNO[k-1] = n; k 1863 src/dps8/dps8_eis.c cpu.cu.TSN_VALID[k-1] = 1; k 1864 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; k 1865 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); k 1866 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved k 1877 src/dps8/dps8_eis.c e->N[k-1] = getMFReg36(reg, false, false, mod_fault) & 077777777; // RL=1: disallow du,n,ic k 1878 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 1882 src/dps8/dps8_eis.c e ->N[k-1] = opDesc & 07777; k 1885 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d opdesc %012"PRIo64"\n", k, opDesc); k 1886 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %u\n", k, e->N[k-1]); k 1912 src/dps8/dps8_eis.c e->B[k-1] = effBITNO; k 1913 src/dps8/dps8_eis.c e->C[k-1] = effCHAR; k 1915 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; k 1916 src/dps8/dps8_eis.c PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO); k 1918 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1] = effWORDNO; k 1926 src/dps8/dps8_eis.c static void cleanupOperandDescriptor (int k) k 1929 src/dps8/dps8_eis.c if (e -> addr [k - 1].cacheValid && e -> addr [k - 1].cacheDirty) k 1931 src/dps8/dps8_eis.c EISWriteCache(& e -> addr [k - 1]); k 1933 src/dps8/dps8_eis.c e -> addr [k - 1].cacheDirty = false; k 5020 src/dps8/dps8_eis.c static void EISloadInputBufferNumeric (int k) k 5027 src/dps8/dps8_eis.c int pos = (int) e->CN[k-1]; k 5029 src/dps8/dps8_eis.c int TN = (int) e->TN[k-1]; k 5030 src/dps8/dps8_eis.c int S = (int) e->S[k-1]; // This is where MVNE gets really nasty. k 5033 src/dps8/dps8_eis.c int N = (int) e->N[k-1]; // number of chars in src string k 5035 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; k 5181 src/dps8/dps8_eis.c static void EISloadInputBufferAlphnumeric (int k) k 5198 src/dps8/dps8_eis.c word9 c = EISget469 (k, n); k 5203 src/dps8/dps8_eis.c static void EISwriteOutputBufferToMemory (int k) k 5210 src/dps8/dps8_eis.c EISput469 (k, n, c49); k 9098 src/dps8/dps8_eis.c k 9110 src/dps8/dps8_eis.c k 9112 src/dps8/dps8_eis.c k 9114 src/dps8/dps8_eis.c k 9115 src/dps8/dps8_eis.c k 9116 src/dps8/dps8_eis.c k 9161 src/dps8/dps8_eis.c k 9162 src/dps8/dps8_eis.c k 9164 src/dps8/dps8_eis.c k 9165 src/dps8/dps8_eis.c k 9167 src/dps8/dps8_eis.c k 9168 src/dps8/dps8_eis.c k 9854 src/dps8/dps8_eis.c k 9863 src/dps8/dps8_eis.c k 9864 src/dps8/dps8_eis.c k 284 src/dps8/dps8_math128.c uint64_t k, t; k 292 src/dps8/dps8_math128.c k = 0; k 295 src/dps8/dps8_math128.c t = (uint64_t) u[i] * (uint64_t) v[j] + (uint64_t) w[i + j] + k; k 298 src/dps8/dps8_math128.c k = t >> 32; k 300 src/dps8/dps8_math128.c w[j + m] = (uint32_t) k; k 390 src/dps8/dps8_math128.c int s, i, j, t, k; k 398 src/dps8/dps8_math128.c k = 0; k 401 src/dps8/dps8_math128.c q[j] = (uint16_t) (((unsigned int) k*b + u[j])/v[0]); // divisor here. k 402 src/dps8/dps8_math128.c k = (int) (((unsigned int) k*b + u[j]) - q[j]*v[0]); k 404 src/dps8/dps8_math128.c if (r != NULL) r[0] = (uint16_t) k; k 440 src/dps8/dps8_math128.c k = 0; k 444 src/dps8/dps8_math128.c t = (int32_t) un[i+j] - k - (int32_t) (p & 0xFFFF); k 446 src/dps8/dps8_math128.c k = (int) (p >> 16) - (t >> 16); k 448 src/dps8/dps8_math128.c t = un[j+n] - k; k 455 src/dps8/dps8_math128.c k = 0; k 458 src/dps8/dps8_math128.c t = un[i+j] + vn[i] + k; k 460 src/dps8/dps8_math128.c k = t >> 16; k 462 src/dps8/dps8_math128.c un[j+n] = (uint16_t) (un[j+n] + k); k 5992 src/simh/scp.c t_addr k; k 6017 src/simh/scp.c for (i = 0, k = (t_addr) pcval; i < sim_emax; i++, k = k + dptr->aincr) { k 6018 src/simh/scp.c if ((r = dptr->examine (&sim_eval[i], k, dptr->units, SWMASK ('V')|SIM_SW_STOP)) != SCPE_OK) k 109 src/simh/sim_fio.c int32 k; k 116 src/simh/sim_fio.c for (k = (int32)(size - 1); k >= (((int32) size + 1) / 2); k--) { k 118 src/simh/sim_fio.c *sptr++ = *(dptr + k); k 119 src/simh/sim_fio.c *(dptr + k) = by; k 141 src/simh/sim_fio.c int32 k; k 150 src/simh/sim_fio.c for (k = (int32)(size - 1); k >= 0; k--) k 151 src/simh/sim_fio.c *(dptr + k) = *sptr++;