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++;