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                9161 src/dps8/dps8_eis.c 
k                9173 src/dps8/dps8_eis.c 
k                9175 src/dps8/dps8_eis.c 
k                9177 src/dps8/dps8_eis.c 
k                9178 src/dps8/dps8_eis.c 
k                9179 src/dps8/dps8_eis.c 
k                9224 src/dps8/dps8_eis.c 
k                9225 src/dps8/dps8_eis.c 
k                9227 src/dps8/dps8_eis.c 
k                9228 src/dps8/dps8_eis.c 
k                9230 src/dps8/dps8_eis.c 
k                9231 src/dps8/dps8_eis.c 
k                9926 src/dps8/dps8_eis.c 
k                9935 src/dps8/dps8_eis.c 
k                9936 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                6616 src/simh/scp.c t_addr k;
k                6641 src/simh/scp.c     for (i = 0, k = (t_addr) pcval; i < sim_emax; i++, k = k + dptr->aincr) {
k                6642 src/simh/scp.c         if ((r = dptr->examine (&sim_eval[i], k, dptr->units, SWMASK ('V')|SIM_SW_STOP)) != SCPE_OK)
k                 108 src/simh/sim_fio.c size_t k;
k                 115 src/simh/sim_fio.c     for (k = (int32)(size - 1); k >= (((int32) size + 1) / 2); k--) {
k                 117 src/simh/sim_fio.c         *sptr++ = *(dptr + k);
k                 118 src/simh/sim_fio.c         *(dptr + k) = by;
k                 140 src/simh/sim_fio.c size_t k;
k                 153 src/simh/sim_fio.c     for (k = size; k > 0; /* empty */)
k                 154 src/simh/sim_fio.c         *(dptr + --k) = *sptr++;