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                 911 src/dps8/dps8_eis.c static word9 EISget469 (int k, uint i)
k                 917 src/dps8/dps8_eis.c     switch (cpu.du.TAk[k-1])
k                 919 src/dps8/dps8_eis.c     switch (e -> TA [k - 1])
k                 931 src/dps8/dps8_eis.c     word18 address = e -> WN [k - 1];
k                 932 src/dps8/dps8_eis.c     uint nChars = i + e -> CN [k - 1];
k                 937 src/dps8/dps8_eis.c     PNL (cpu.du.Dk_PTR_W[k-1] = address);
k                 939 src/dps8/dps8_eis.c     cpu.du.Dk_PTR_W[k-1] = address;
k                 941 src/dps8/dps8_eis.c     e -> addr [k - 1].address = address;
k                 943 src/dps8/dps8_eis.c     word36 data = EISRead (& e -> addr [k - 1]);    // read it from memory
k                 947 src/dps8/dps8_eis.c     switch (cpu.du.TAk[k-1])
k                 949 src/dps8/dps8_eis.c     switch (e -> TA [k - 1])
k                 965 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                 967 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                 973 src/dps8/dps8_eis.c static void EISput469 (int k, uint i, word9 c469)
k                 979 src/dps8/dps8_eis.c     switch (cpu.du.TAk[k-1])
k                 981 src/dps8/dps8_eis.c     switch (e -> TA [k - 1])
k                 993 src/dps8/dps8_eis.c     word18 address = e -> WN [k - 1];
k                 994 src/dps8/dps8_eis.c     uint nChars = i + e -> CN [k - 1];
k                 999 src/dps8/dps8_eis.c     PNL (cpu.du.Dk_PTR_W[k-1] = address);
k                1001 src/dps8/dps8_eis.c     cpu.du.Dk_PTR_W[k-1] = address;
k                1003 src/dps8/dps8_eis.c     e -> addr [k - 1].address = address;
k                1005 src/dps8/dps8_eis.c     word36 data = EISRead (& e -> addr [k - 1]);    // read it from memory
k                1009 src/dps8/dps8_eis.c     switch (cpu.du.TAk[k-1])
k                1011 src/dps8/dps8_eis.c     switch (e -> TA [k - 1])
k                1026 src/dps8/dps8_eis.c     EISWriteIdx (& e -> addr [k - 1], 0, w, true);
k                1117 src/dps8/dps8_eis.c static void setupOperandDescriptorCache (int k)
k                1120 src/dps8/dps8_eis.c     e -> addr [k - 1]. cacheValid = false;
k                1157 src/dps8/dps8_eis.c static void setupOperandDescriptor (int k, fault_ipr_subtype_ *mod_fault)
k                1160 src/dps8/dps8_eis.c     switch (k)
k                1179 src/dps8/dps8_eis.c     word18 MFk = e -> MF [k - 1];
k                1183 src/dps8/dps8_eis.c         PNL (L68_ (if (k == 1)
k                1185 src/dps8/dps8_eis.c                    if (k == 2)
k                1188 src/dps8/dps8_eis.c         word36 opDesc = e -> op [k - 1];
k                1230 src/dps8/dps8_eis.c         PNL (cpu.du.Dk_PTR_W[k-1] = address);
k                1232 src/dps8/dps8_eis.c         cpu.du.Dk_PTR_W[k-1] = address;
k                1234 src/dps8/dps8_eis.c         e -> addr [k - 1].address = address;
k                1266 src/dps8/dps8_eis.c             PNL (cpu.du.Dk_PTR_W[k-1] = address);
k                1268 src/dps8/dps8_eis.c             cpu.du.Dk_PTR_W[k-1] = address;
k                1270 src/dps8/dps8_eis.c             e -> addr [k - 1].address = address;
k                1272 src/dps8/dps8_eis.c             cpu.cu.TSN_PRNO[k-1] = n;
k                1273 src/dps8/dps8_eis.c             cpu.cu.TSN_VALID[k-1] = 1;
k                1274 src/dps8/dps8_eis.c             e -> addr [k - 1].SNR = cpu.PR [n].SNR;
k                1275 src/dps8/dps8_eis.c             e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR,
k                1279 src/dps8/dps8_eis.c             e -> addr [k - 1].mat = viaPR;   // ARs involved
k                1280 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "AR n %u k %u\n", n, k - 1);
k                1284 src/dps8/dps8_eis.c             e->addr [k - 1].mat = OperandRead;      // no ARs involved yet
k                1285 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "No ARb %u\n", k - 1);
k                1298 src/dps8/dps8_eis.c         PNL (cpu.du.Dk_PTR_W[k-1] = address);
k                1301 src/dps8/dps8_eis.c         cpu.du.Dk_PTR_W[k-1] = address;
k                1303 src/dps8/dps8_eis.c         e -> addr [k - 1].address = address;
k                1307 src/dps8/dps8_eis.c         e -> op [k - 1] = EISRead (& e -> addr [k - 1]);
k                1311 src/dps8/dps8_eis.c           e->addr [k - 1].mat = OperandRead;      // no ARs involved yet
k                1312 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "No ARa %u\n", k - 1);
k                1314 src/dps8/dps8_eis.c     setupOperandDescriptorCache (k);
k                1333 src/dps8/dps8_eis.c static void parseAlphanumericOperandDescriptor (uint k, uint useTA, bool allowDU, fault_ipr_subtype_ *mod_fault)
k                1336 src/dps8/dps8_eis.c     word18 MFk = e -> MF [k - 1];
k                1338 src/dps8/dps8_eis.c     PNL (L68_ (if (k == 1)
k                1340 src/dps8/dps8_eis.c     else if (k == 2)
k                1342 src/dps8/dps8_eis.c     else if (k == 3)
k                1347 src/dps8/dps8_eis.c     word36 opDesc = e -> op [k - 1];
k                1355 src/dps8/dps8_eis.c     if (useTA != k)
k                1356 src/dps8/dps8_eis.c       cpu.du.TAk[k-1] = cpu.du.TAk[useTA-1];
k                1358 src/dps8/dps8_eis.c       cpu.du.TAk[k-1] = getbits36_2 (opDesc, 21);    // type alphanumeric
k                1360 src/dps8/dps8_eis.c     if (useTA != k)
k                1361 src/dps8/dps8_eis.c       e -> TA [k - 1] = e -> TA [useTA - 1];
k                1363 src/dps8/dps8_eis.c       e -> TA [k - 1] = getbits36_2 (opDesc, 21);    // type alphanumeric
k                1367 src/dps8/dps8_eis.c     if (k == 1) // Use data from first operand
k                1422 src/dps8/dps8_eis.c         cpu.cu.TSN_PRNO[k-1] = n;
k                1423 src/dps8/dps8_eis.c         cpu.cu.TSN_VALID[k-1] = 1;
k                1424 src/dps8/dps8_eis.c         e -> addr [k - 1].SNR = cpu.PR [n].SNR;
k                1425 src/dps8/dps8_eis.c         e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR);
k                1427 src/dps8/dps8_eis.c         e -> addr [k - 1].mat = viaPR;   // ARs involved
k                1428 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "AR n %u k %u\n", n, k - 1);
k                1435 src/dps8/dps8_eis.c     sim_debug (DBG_TRACEEXT, & cpu_dev, "initial CN%u %u\n", k, CN);
k                1441 src/dps8/dps8_eis.c         e -> N [k - 1] = (uint) getMFReg36 (reg, false, false, mod_fault); // RL=1: disallow du,n,ic
k                1443 src/dps8/dps8_eis.c         switch (cpu.du.TAk[k-1])
k                1445 src/dps8/dps8_eis.c         switch (e -> TA [k - 1])
k                1449 src/dps8/dps8_eis.c               e -> N [k - 1] &= 017777777; // 22-bits of length
k                1454 src/dps8/dps8_eis.c               e -> N [k - 1] &= 07777777;  // 21-bits of length.
k                1465 src/dps8/dps8_eis.c       e -> N [k - 1] = opDesc & 07777;
k                1470 src/dps8/dps8_eis.c     sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %o\n", k, e->N[k-1]);
k                1489 src/dps8/dps8_eis.c     switch (cpu.du.TAk[k-1])
k                1491 src/dps8/dps8_eis.c     switch (e -> TA [k - 1])
k                1511 src/dps8/dps8_eis.c             e -> CN [k - 1] = effCHAR;
k                1512 src/dps8/dps8_eis.c             e -> WN [k - 1] = effWORDNO;
k                1515 src/dps8/dps8_eis.c                        k, e -> CN [k - 1]);
k                1536 src/dps8/dps8_eis.c           e -> CN [k - 1] = effCHAR;   // ??????
k                1537 src/dps8/dps8_eis.c           e -> WN [k - 1] = effWORDNO;
k                1539 src/dps8/dps8_eis.c                      k, e -> CN [k - 1]);
k                1562 src/dps8/dps8_eis.c           e -> CN [k - 1] = effCHAR;   // ??????
k                1563 src/dps8/dps8_eis.c           e -> WN [k - 1] = effWORDNO;
k                1565 src/dps8/dps8_eis.c                      k, e -> CN [k - 1]);
k                1575 src/dps8/dps8_eis.c     EISaddr * a = & e -> addr [k - 1];
k                1576 src/dps8/dps8_eis.c     PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO);
k                1578 src/dps8/dps8_eis.c     cpu.du.Dk_PTR_W[k-1] = effWORDNO;
k                1587 src/dps8/dps8_eis.c     a -> TA = (int) e -> TA [k - 1];
k                1591 src/dps8/dps8_eis.c static void parseArgOperandDescriptor (uint k, fault_ipr_subtype_ *mod_fault)
k                1593 src/dps8/dps8_eis.c     PNL (L68_ (if (k == 1)
k                1595 src/dps8/dps8_eis.c     else if (k == 2)
k                1597 src/dps8/dps8_eis.c     else if (k == 3)
k                1601 src/dps8/dps8_eis.c     word36 opDesc = e -> op [k - 1];
k                1627 src/dps8/dps8_eis.c         cpu.cu.TSN_PRNO[k-1] = n;
k                1628 src/dps8/dps8_eis.c         cpu.cu.TSN_VALID[k-1] = 1;
k                1629 src/dps8/dps8_eis.c         e -> addr [k - 1].SNR = cpu.PR[n].SNR;
k                1630 src/dps8/dps8_eis.c         e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR);
k                1631 src/dps8/dps8_eis.c         e -> addr [k - 1].mat = viaPR;
k                1637 src/dps8/dps8_eis.c     PNL (cpu.du.Dk_PTR_W[k-1] = y);
k                1640 src/dps8/dps8_eis.c     cpu.du.Dk_PTR_W[k-1] = y;
k                1642 src/dps8/dps8_eis.c     e -> addr [k - 1].address = y;
k                1646 src/dps8/dps8_eis.c static void parseNumericOperandDescriptor (int k, fault_ipr_subtype_ *mod_fault)
k                1648 src/dps8/dps8_eis.c     PNL (L68_ (if (k == 1)
k                1650 src/dps8/dps8_eis.c     else if (k == 2)
k                1652 src/dps8/dps8_eis.c     else if (k == 3)
k                1656 src/dps8/dps8_eis.c     word18 MFk = e->MF[k-1];
k                1660 src/dps8/dps8_eis.c     word36 opDesc = e->op[k-1];
k                1679 src/dps8/dps8_eis.c         cpu.cu.TSN_PRNO[k-1] = n;
k                1680 src/dps8/dps8_eis.c         cpu.cu.TSN_VALID[k-1] = 1;
k                1681 src/dps8/dps8_eis.c         e->addr[k-1].SNR = cpu.PR[n].SNR;
k                1682 src/dps8/dps8_eis.c         e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR);
k                1684 src/dps8/dps8_eis.c         e->addr[k-1].mat = viaPR;   // ARs involved
k                1690 src/dps8/dps8_eis.c     e->TN[k-1] = getbits36_1 (opDesc, 21); // type numeric
k                1693 src/dps8/dps8_eis.c     if (k == 1)
k                1702 src/dps8/dps8_eis.c     e->S[k-1]  = getbits36_2 (opDesc, 22);    // Sign and decimal type of data
k                1703 src/dps8/dps8_eis.c     e->SF[k-1] = SIGNEXT6_int (getbits36_6 (opDesc, 24));    // Scaling factor.
k                1714 src/dps8/dps8_eis.c         e->N[k-1] = getMFReg18(reg, false, false, mod_fault) & 077; // RL=1: disallow du,n,ic
k                1717 src/dps8/dps8_eis.c         e->N[k-1] = opDesc & 077;
k                1719 src/dps8/dps8_eis.c     sim_debug (DBG_TRACEEXT, & cpu_dev, "parseNumericOperandDescriptor(): N%u %0o\n", k, e->N[k-1]);
k                1731 src/dps8/dps8_eis.c 
k                1755 src/dps8/dps8_eis.c     switch (e->TN[k-1])
k                1774 src/dps8/dps8_eis.c             e->CN[k-1] = effCHAR;        // ?????
k                1791 src/dps8/dps8_eis.c             e->CN[k-1] = effCHAR;        // ?????
k                1796 src/dps8/dps8_eis.c             sim_printf ("parseNumericOperandDescriptor(ta=%d) How'd we get here 2?\n", cpu.du.TAk[k-1]);
k                1798 src/dps8/dps8_eis.c             sim_printf ("parseNumericOperandDescriptor(ta=%d) How'd we get here 2?\n", e->TA[k-1]);
k                1803 src/dps8/dps8_eis.c     EISaddr *a = &e->addr[k-1];
k                1804 src/dps8/dps8_eis.c     PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO);
k                1806 src/dps8/dps8_eis.c     cpu.du.Dk_PTR_W[k-1] = effWORDNO;
k                1814 src/dps8/dps8_eis.c     a->TN = (int) e->TN[k-1];
k                1817 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                1819 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                1824 src/dps8/dps8_eis.c static void parseBitstringOperandDescriptor (int k, fault_ipr_subtype_ *mod_fault)
k                1826 src/dps8/dps8_eis.c     PNL (L68_ (if (k == 1)
k                1828 src/dps8/dps8_eis.c     else if (k == 2)
k                1830 src/dps8/dps8_eis.c     else if (k == 3)
k                1834 src/dps8/dps8_eis.c     word18 MFk = e->MF[k-1];
k                1835 src/dps8/dps8_eis.c     word36 opDesc = e->op[k-1];
k                1838 src/dps8/dps8_eis.c     if (k == 1)
k                1857 src/dps8/dps8_eis.c         sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d AR%d\n", k, n);
k                1861 src/dps8/dps8_eis.c         cpu.cu.TSN_PRNO[k-1] = n;
k                1862 src/dps8/dps8_eis.c         cpu.cu.TSN_VALID[k-1] = 1;
k                1863 src/dps8/dps8_eis.c         e->addr[k-1].SNR = cpu.PR[n].SNR;
k                1864 src/dps8/dps8_eis.c         e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR);
k                1865 src/dps8/dps8_eis.c         e->addr[k-1].mat = viaPR;   // ARs involved
k                1876 src/dps8/dps8_eis.c         e->N[k-1] = getMFReg36(reg, false, false, mod_fault) & 077777777;  // RL=1: disallow du,n,ic
k                1877 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                1881 src/dps8/dps8_eis.c         e ->N[k-1] = opDesc & 07777;
k                1884 src/dps8/dps8_eis.c     sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d opdesc %012"PRIo64"\n", k, opDesc);
k                1885 src/dps8/dps8_eis.c     sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %u\n", k, e->N[k-1]);
k                1911 src/dps8/dps8_eis.c     e->B[k-1] = effBITNO;
k                1912 src/dps8/dps8_eis.c     e->C[k-1] = effCHAR;
k                1914 src/dps8/dps8_eis.c     EISaddr *a = &e->addr[k-1];
k                1915 src/dps8/dps8_eis.c     PNL (cpu.du.Dk_PTR_W[k-1] = effWORDNO);
k                1917 src/dps8/dps8_eis.c     cpu.du.Dk_PTR_W[k-1] = effWORDNO;
k                1925 src/dps8/dps8_eis.c static void cleanupOperandDescriptor (int k)
k                1928 src/dps8/dps8_eis.c     if (e -> addr [k - 1].cacheValid && e -> addr [k - 1].cacheDirty)
k                1930 src/dps8/dps8_eis.c         EISWriteCache(& e -> addr [k - 1]);
k                1932 src/dps8/dps8_eis.c     e -> addr [k - 1].cacheDirty = false;
k                5019 src/dps8/dps8_eis.c static void EISloadInputBufferNumeric (int k)
k                5026 src/dps8/dps8_eis.c     int pos = (int) e->CN[k-1];
k                5028 src/dps8/dps8_eis.c     int TN = (int) e->TN[k-1];
k                5029 src/dps8/dps8_eis.c     int S = (int) e->S[k-1];  // This is where MVNE gets really nasty.
k                5032 src/dps8/dps8_eis.c     int N = (int) e->N[k-1];  // number of chars in src string
k                5034 src/dps8/dps8_eis.c     EISaddr *a = &e->addr[k-1];
k                5180 src/dps8/dps8_eis.c static void EISloadInputBufferAlphnumeric (int k)
k                5197 src/dps8/dps8_eis.c         word9 c = EISget469 (k, n);
k                5202 src/dps8/dps8_eis.c static void EISwriteOutputBufferToMemory (int k)
k                5209 src/dps8/dps8_eis.c         EISput469 (k, n, c49);
k                9097 src/dps8/dps8_eis.c 
k                9109 src/dps8/dps8_eis.c 
k                9111 src/dps8/dps8_eis.c 
k                9113 src/dps8/dps8_eis.c 
k                9114 src/dps8/dps8_eis.c 
k                9115 src/dps8/dps8_eis.c 
k                9160 src/dps8/dps8_eis.c 
k                9161 src/dps8/dps8_eis.c 
k                9163 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                9853 src/dps8/dps8_eis.c 
k                9862 src/dps8/dps8_eis.c 
k                9863 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                6205 src/simh/scp.c t_addr k;
k                6230 src/simh/scp.c     for (i = 0, k = (t_addr) pcval; i < sim_emax; i++, k = k + dptr->aincr) {
k                6231 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++;