e 3400 src/decNumber/decNumber.c Int e; // E-part value e 3444 src/decNumber/decNumber.c e=0; // no E e 3446 src/decNumber/decNumber.c e=exp+dn->digits-1; // calculate E value e 3448 src/decNumber/decNumber.c if (eng && (e!=0)) { // engineering: may need to adjust e 3452 src/decNumber/decNumber.c if (e<0) { e 3453 src/decNumber/decNumber.c adj=(-e)%3; e 3457 src/decNumber/decNumber.c adj=e%3; e 3459 src/decNumber/decNumber.c e=e-adj; e 3466 src/decNumber/decNumber.c e=e+3; e 3518 src/decNumber/decNumber.c if (e!=0) { e 3522 src/decNumber/decNumber.c u=e; // .. e 3523 src/decNumber/decNumber.c if (e<0) { e 3525 src/decNumber/decNumber.c u=-e; // uInt, please e 907 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 913 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 925 src/dps8/dps8_eis.c word18 address = e -> WN [k - 1]; e 926 src/dps8/dps8_eis.c uint nChars = i + e -> CN [k - 1]; e 935 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; e 937 src/dps8/dps8_eis.c word36 data = EISRead (cpup, & e -> addr [k - 1]); // read it from memory e 943 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 961 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "EISGet469 : k: %u TAk %u coffset %u c %o\r\n", k, e -> TA [k - 1], residue, c); e 969 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 975 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 987 src/dps8/dps8_eis.c word18 address = e -> WN [k - 1]; e 988 src/dps8/dps8_eis.c uint nChars = i + e -> CN [k - 1]; e 997 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; e 999 src/dps8/dps8_eis.c word36 data = EISRead (cpup, & e -> addr [k - 1]); // read it from memory e 1005 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 1020 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> addr [k - 1], 0, w, true); e 1113 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1114 src/dps8/dps8_eis.c e -> addr [k - 1]. cacheValid = false; e 1153 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1159 src/dps8/dps8_eis.c e -> MF1 = getbits36_7 (cpu.cu.IWB, 29); e 1164 src/dps8/dps8_eis.c e -> MF2 = getbits36_7 (cpu.cu.IWB, 11); e 1169 src/dps8/dps8_eis.c e -> MF3 = getbits36_7 (cpu.cu.IWB, 2); e 1173 src/dps8/dps8_eis.c word18 MFk = e -> MF [k - 1]; e 1182 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; e 1228 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; e 1264 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; e 1268 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR [n].SNR; e 1269 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, e 1273 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; // ARs involved e 1278 src/dps8/dps8_eis.c e->addr [k - 1].mat = OperandRead; // no ARs involved yet e 1297 src/dps8/dps8_eis.c e -> addr [k - 1].address = address; e 1301 src/dps8/dps8_eis.c e -> op [k - 1] = EISRead (cpup, & e -> addr [k - 1]); e 1305 src/dps8/dps8_eis.c e->addr [k - 1].mat = OperandRead; // no ARs involved yet e 1329 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1330 src/dps8/dps8_eis.c word18 MFk = e -> MF [k - 1]; e 1341 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; e 1355 src/dps8/dps8_eis.c e -> TA [k - 1] = e -> TA [useTA - 1]; e 1357 src/dps8/dps8_eis.c e -> TA [k - 1] = getbits36_2 (opDesc, 21); // type alphanumeric e 1363 src/dps8/dps8_eis.c switch (e->TA[0]) e 1418 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR [n].SNR; e 1419 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1421 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; // ARs involved e 1435 src/dps8/dps8_eis.c e -> N [k - 1] = (uint) getMFReg36 (cpup, reg, false, false, mod_fault); // RL=1: disallow du,n,ic e 1439 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 1443 src/dps8/dps8_eis.c e -> N [k - 1] &= 017777777; // 22-bits of length e 1448 src/dps8/dps8_eis.c e -> N [k - 1] &= 07777777; // 21-bits of length. e 1459 src/dps8/dps8_eis.c e -> N [k - 1] = opDesc & 07777; e 1464 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %o\r\n", k, e->N[k-1]); e 1485 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 1507 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; e 1508 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; e 1511 src/dps8/dps8_eis.c k, e -> CN [k - 1]); e 1544 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? e 1545 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; e 1547 src/dps8/dps8_eis.c k, e -> CN [k - 1]); e 1571 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? e 1572 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; e 1574 src/dps8/dps8_eis.c k, e -> CN [k - 1]); e 1584 src/dps8/dps8_eis.c EISaddr * a = & e -> addr [k - 1]; e 1596 src/dps8/dps8_eis.c a -> TA = (int) e -> TA [k - 1]; e 1609 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1610 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; e 1638 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR[n].SNR; e 1639 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1640 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; e 1651 src/dps8/dps8_eis.c e -> addr [k - 1].address = y; e 1664 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1665 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; e 1669 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; e 1690 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; e 1691 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1693 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved e 1699 src/dps8/dps8_eis.c e->TN[k-1] = getbits36_1 (opDesc, 21); // type numeric e 1704 src/dps8/dps8_eis.c if (e->TN[0]) e 1711 src/dps8/dps8_eis.c e->S[k-1] = getbits36_2 (opDesc, 22); // Sign and decimal type of data e 1712 src/dps8/dps8_eis.c e->SF[k-1] = SIGNEXT6_int (getbits36_6 (opDesc, 24)); // Scaling factor. e 1723 src/dps8/dps8_eis.c e->N[k-1] = getMFReg18 (cpup,reg, false, false, mod_fault) & 077; // RL=1: disallow du,n,ic e 1726 src/dps8/dps8_eis.c e->N[k-1] = opDesc & 077; e 1728 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "parseNumericOperandDescriptor(cpup, ): N%u %0o\r\n", k, e->N[k-1]); e 1740 src/dps8/dps8_eis.c e 1764 src/dps8/dps8_eis.c switch (e->TN[k-1]) e 1785 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? e 1803 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? e 1812 src/dps8/dps8_eis.c e->TA[k-1]); e 1817 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; e 1828 src/dps8/dps8_eis.c a->TN = (int) e->TN[k-1]; e 1833 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1], a->cPos, a->bPos, k, e->N[k-1]); e 1837 src/dps8/dps8_eis.c a->address, a->cPos, a->bPos, k, e->N[k-1]); e 1850 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1851 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; e 1852 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; e 1880 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; e 1881 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1882 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved e 1893 src/dps8/dps8_eis.c e->N[k-1] = getMFReg36(cpup, reg, false, false, mod_fault) & 077777777; // RL=1: disallow du,n,ic e 1894 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "bitstring k %d RL reg %u val %"PRIo64"\r\n", k, reg, (word36)e->N[k-1]); e 1898 src/dps8/dps8_eis.c e ->N[k-1] = opDesc & 07777; e 1902 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %u\r\n", k, e->N[k-1]); e 1928 src/dps8/dps8_eis.c e->B[k-1] = effBITNO; e 1929 src/dps8/dps8_eis.c e->C[k-1] = effCHAR; e 1931 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; e 1944 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1945 src/dps8/dps8_eis.c if (e -> addr [k - 1].cacheValid && e -> addr [k - 1].cacheDirty) e 1947 src/dps8/dps8_eis.c EISWriteCache(cpup, & e -> addr [k - 1]); e 1949 src/dps8/dps8_eis.c e -> addr [k - 1].cacheDirty = false; e 3085 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3135 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3146 src/dps8/dps8_eis.c e 3165 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 3168 src/dps8/dps8_eis.c for (; cpu.du.CHTALLY < min (e->N1, e->N2); cpu.du.CHTALLY ++) e 3170 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA1)); e 3184 src/dps8/dps8_eis.c if (e -> N1 < e -> N2) e 3186 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY ++) e 3188 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA1)); e 3202 src/dps8/dps8_eis.c else if (e->N1 > e->N2) e 3204 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e->N1; cpu.du.CHTALLY ++) e 3206 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA1)); e 3231 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3279 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3283 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3309 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3315 src/dps8/dps8_eis.c switch (e -> TA1) // Use TA1, not TA2 e 3323 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 13) & 017; e 3324 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 9) & 017; e 3333 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 12) & 077; e 3334 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 6) & 077; e 3343 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 9) & 0777; e 3344 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address ) & 0777; e 3358 src/dps8/dps8_eis.c switch (e -> TA1) // Use TA1, not TA2 e 3377 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3382 src/dps8/dps8_eis.c if (e -> N1) e 3384 src/dps8/dps8_eis.c uint limit = e -> N1 - 1; e 3402 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 3415 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3463 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3467 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3493 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3499 src/dps8/dps8_eis.c switch (e -> TA1) e 3507 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 13) & 017; e 3508 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 9) & 017; e 3517 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 12) & 077; e 3518 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 6) & 077; e 3527 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 9) & 0777; e 3528 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address ) & 0777; e 3542 src/dps8/dps8_eis.c switch (e -> TA1) // Use TA1, not TA2 e 3564 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3567 src/dps8/dps8_eis.c if (e -> N1) e 3569 src/dps8/dps8_eis.c uint limit = e -> N1 - 1; e 3589 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 3602 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3663 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3667 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3694 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3696 src/dps8/dps8_eis.c word18 duo = GETHI (e -> OP2); e 3701 src/dps8/dps8_eis.c switch (e -> TA1) e 3723 src/dps8/dps8_eis.c switch (e -> TA1) // use TA1, not TA2 e 3736 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3739 src/dps8/dps8_eis.c uint limit = e -> N1; e 3759 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 3771 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3832 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3840 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3867 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3869 src/dps8/dps8_eis.c word18 duo = GETHI (e -> OP2); e 3874 src/dps8/dps8_eis.c switch (e -> TA1) e 3896 src/dps8/dps8_eis.c switch (e -> TA1) // use TA1, not TA2 e 3909 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3912 src/dps8/dps8_eis.c uint limit = e -> N1; e 3931 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 3984 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4034 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4038 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000777660) e 4042 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 4057 src/dps8/dps8_eis.c "TCT CN1: %d TA1: %d\r\n", e -> CN1, TA1); e 4060 src/dps8/dps8_eis.c "TCT CN1: %d TA1: %d\r\n", e -> CN1, e -> TA1); e 4068 src/dps8/dps8_eis.c switch (e -> TA1) e 4101 src/dps8/dps8_eis.c e 4118 src/dps8/dps8_eis.c e 4124 src/dps8/dps8_eis.c "TCT N1 %d\r\n", e -> N1); e 4126 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 4129 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N1; cpu.du.CHTALLY ++) e 4149 src/dps8/dps8_eis.c word9 cout = xlate (cpup, &e->ADDR2, CTA9, m); e 4164 src/dps8/dps8_eis.c SC_I_TALLY (cpu.du.CHTALLY == e -> N1); e 4168 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 4177 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4230 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4234 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000777660) e 4238 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 4253 src/dps8/dps8_eis.c "TCTR CN1: %d TA1: %d\r\n", e -> CN1, TA1); e 4256 src/dps8/dps8_eis.c "TCTR CN1: %d TA1: %d\r\n", e -> CN1, e -> TA1); e 4264 src/dps8/dps8_eis.c switch (e -> TA1) e 4297 src/dps8/dps8_eis.c e 4314 src/dps8/dps8_eis.c e 4320 src/dps8/dps8_eis.c "TCT N1 %d\r\n", e -> N1); e 4322 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 4325 src/dps8/dps8_eis.c uint limit = e -> N1; e 4346 src/dps8/dps8_eis.c word9 cout = xlate (cpup, &e->ADDR2, CTA9, m); e 4361 src/dps8/dps8_eis.c SC_I_TALLY (cpu.du.CHTALLY == e -> N1); e 4365 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 4436 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4470 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4474 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000010000) e 4492 src/dps8/dps8_eis.c switch (e -> TA1) e 4509 src/dps8/dps8_eis.c switch (e -> TA2) e 4561 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 4565 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (TA1 == 1) && e 4568 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (e -> TA1 == 1) && e 4569 src/dps8/dps8_eis.c (e -> TA2 == 2); // (6-4 move) e 4579 src/dps8/dps8_eis.c cpu.du.CHTALLY, TA1, TA2, e -> N1, e -> N2, e -> CN1, e -> CN2); e 4583 src/dps8/dps8_eis.c cpu.du.CHTALLY, e -> TA1, e -> TA2, e -> N1, e -> N2, e -> CN1, e -> CN2); e 4603 src/dps8/dps8_eis.c e -> TA1 == CTA9 && // src and dst are both char 9 e 4604 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4606 src/dps8/dps8_eis.c (e -> N1 % (PGSZ * 4)) == 0 && // a page e 4607 src/dps8/dps8_eis.c e -> N2 == e -> N1 && // the src is the same size as the dest. e 4608 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4609 src/dps8/dps8_eis.c e -> CN2 == 0 && e 4614 src/dps8/dps8_eis.c (e -> ADDR1.address & PGMK) == 0 && e 4615 src/dps8/dps8_eis.c (e -> ADDR2.address & PGMK) == 0) e 4619 src/dps8/dps8_eis.c while (cpu.du.CHTALLY < e -> N1) e 4622 src/dps8/dps8_eis.c EISReadPage (cpup, & e -> ADDR1, cpu.du.CHTALLY / 4, pg); e 4623 src/dps8/dps8_eis.c EISWritePage (cpup, & e -> ADDR2, cpu.du.CHTALLY / 4, pg); e 4643 src/dps8/dps8_eis.c e -> TA1 == CTA9 && // src and dst are both char 9 e 4644 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4646 src/dps8/dps8_eis.c e -> N1 == 0 && // the source is entirely fill e 4647 src/dps8/dps8_eis.c (e -> N2 % (PGSZ * 4)) == 0 && // a page e 4648 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4649 src/dps8/dps8_eis.c e -> CN2 == 0 && e 4654 src/dps8/dps8_eis.c (e -> ADDR1.address & PGMK) == 0 && e 4655 src/dps8/dps8_eis.c (e -> ADDR2.address & PGMK) == 0) e 4670 src/dps8/dps8_eis.c while (cpu.du.CHTALLY < e -> N2) e 4672 src/dps8/dps8_eis.c EISWritePage (cpup, & e -> ADDR2, cpu.du.CHTALLY / 4, pg); e 4690 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 4691 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4693 src/dps8/dps8_eis.c e -> N1 % 4 == 0 && // a whole number of words in the src e 4694 src/dps8/dps8_eis.c e -> N2 == e -> N1 && // the src is the same size as the dest. e 4695 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4696 src/dps8/dps8_eis.c e -> CN2 == 0) e 4699 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2; cpu.du.CHTALLY += 4) e 4703 src/dps8/dps8_eis.c word36 w = EISReadIdx (cpup, & e -> ADDR1, n); e 4704 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 4721 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 4722 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4724 src/dps8/dps8_eis.c e -> N1 == 0 && // the source is entirely fill e 4725 src/dps8/dps8_eis.c e -> N2 % 4 == 0 && // a whole number of words in the dest e 4726 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4727 src/dps8/dps8_eis.c e -> CN2 == 0) e 4731 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2; cpu.du.CHTALLY += 4) e 4735 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 4745 src/dps8/dps8_eis.c uint tdPer = TDPER (e -> TA2); e 4746 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < min (e->N1, e->N2); cpu.du.CHTALLY ++) e 4755 src/dps8/dps8_eis.c if (e -> TA1 == e -> TA2) e 4795 src/dps8/dps8_eis.c if (ovp && (cpu.du.CHTALLY == e -> N1 - 1)) e 4811 src/dps8/dps8_eis.c if (e -> N1 < e -> N2) e 4813 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2 ; cpu.du.CHTALLY ++) e 4817 src/dps8/dps8_eis.c if (ovp && (cpu.du.CHTALLY == e -> N2 - 1)) e 4831 src/dps8/dps8_eis.c if (e -> N1 > e -> N2) e 4843 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4877 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4881 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000010000) e 4899 src/dps8/dps8_eis.c switch (e -> TA1) e 4916 src/dps8/dps8_eis.c switch (e -> TA2) e 4969 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (TA1 == 1) && e 4972 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (e -> TA1 == 1) && e 4973 src/dps8/dps8_eis.c (e -> TA2 == 2); // (6-4 move) e 4979 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 4990 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 4991 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4993 src/dps8/dps8_eis.c e -> N1 % 4 == 0 && // a whole number of words in the src e 4994 src/dps8/dps8_eis.c e -> N2 == e -> N1 && // the src is the same size as the dest. e 4995 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4996 src/dps8/dps8_eis.c e -> CN2 == 0) e 4999 src/dps8/dps8_eis.c uint limit = e -> N2; e 5002 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5004 src/dps8/dps8_eis.c word36 w = EISReadIdx (cpup, & e -> ADDR1, n); e 5005 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 5022 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 5023 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 5025 src/dps8/dps8_eis.c e -> N1 == 0 && // the source is entirely fill e 5026 src/dps8/dps8_eis.c e -> N2 % 4 == 0 && // a whole number of words in the dest e 5027 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 5028 src/dps8/dps8_eis.c e -> CN2 == 0) e 5035 src/dps8/dps8_eis.c uint limit = e -> N2; e 5036 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2; cpu.du.CHTALLY += 4) e 5038 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5040 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 5050 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < min (e -> N1, e -> N2); cpu.du.CHTALLY ++) e 5052 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5053 src/dps8/dps8_eis.c word9 c = EISget469 (cpup, 1, e -> N1 - cpu.du.CHTALLY - 1); // get src char e 5059 src/dps8/dps8_eis.c if (e -> TA1 == e -> TA2) e 5061 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, c); e 5105 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, cout); e 5115 src/dps8/dps8_eis.c if (e -> N1 < e -> N2) e 5117 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2 ; cpu.du.CHTALLY ++) e 5119 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5121 src/dps8/dps8_eis.c if (ovp && (cpu.du.CHTALLY == e -> N2 - 1)) e 5124 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, 015); // 015 is decimal - e 5126 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, 014); // 014 is decimal + e 5130 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, fillT); e 5137 src/dps8/dps8_eis.c if (e -> N1 > e -> N2) e 5162 src/dps8/dps8_eis.c #define isDecimalZero(c) ((e->srcTA == CTA9) ? \ e 5175 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5177 src/dps8/dps8_eis.c word9 *p = e->inBuffer; // p points to position in inBuffer where 4-bit chars are stored e 5178 src/dps8/dps8_eis.c (void)memset(e->inBuffer, 0, sizeof(e->inBuffer)); // initialize to all 0's e 5180 src/dps8/dps8_eis.c int pos = (int) e->CN[k-1]; e 5182 src/dps8/dps8_eis.c int TN = (int) e->TN[k-1]; e 5183 src/dps8/dps8_eis.c int S = (int) e->S[k-1]; // This is where MVNE gets really nasty. e 5186 src/dps8/dps8_eis.c int N = (int) e->N[k-1]; // number of chars in src string e 5188 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; e 5190 src/dps8/dps8_eis.c e->sign = 1; e 5191 src/dps8/dps8_eis.c e->exponent = 0; e 5237 src/dps8/dps8_eis.c e->sign = -1; e 5239 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5243 src/dps8/dps8_eis.c e->exponent = (signed char)(c & 0377); // want to do a sign extend e 5244 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5248 src/dps8/dps8_eis.c e->exponent = (c & 0xf);// << 4; e 5249 src/dps8/dps8_eis.c e->exponent <<= 4; e 5250 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5254 src/dps8/dps8_eis.c e->exponent |= (c & 0xf); e 5256 src/dps8/dps8_eis.c signed char ce = (signed char) (e->exponent & 0xff); e 5257 src/dps8/dps8_eis.c e->exponent = ce; e 5259 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5283 src/dps8/dps8_eis.c e->sign = -1; e 5284 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5302 src/dps8/dps8_eis.c e->sign = -1; e 5303 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5323 src/dps8/dps8_eis.c for (word9 *q = e->inBuffer; q < p; q ++) e 5338 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5340 src/dps8/dps8_eis.c word9 * p = e -> inBuffer; e 5341 src/dps8/dps8_eis.c (void)memset (e -> inBuffer, 0, sizeof (e -> inBuffer)); // initialize to all 0's e 5349 src/dps8/dps8_eis.c uint N = min (e-> N1, 63); e 5360 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5362 src/dps8/dps8_eis.c for (uint n = 0 ; n < (uint) e -> dstTally; n ++) e 5364 src/dps8/dps8_eis.c word9 c49 = e -> outBuffer [n]; e 5371 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5380 src/dps8/dps8_eis.c if (e -> mvne) e 5395 src/dps8/dps8_eis.c ** dstAddr = c49 | (e -> editInsertionTable [7] & 0760); e 5447 src/dps8/dps8_eis.c e->dstTally -= 1; e 5490 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5491 src/dps8/dps8_eis.c (void)memset(&e->editInsertionTable, 0, sizeof(e->editInsertionTable)); // XXX do we really need this? e 5494 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5496 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5500 src/dps8/dps8_eis.c word9 entry = EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); // get mop table entries e 5502 src/dps8/dps8_eis.c word9 entry = EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); // get mop table entries e 5504 src/dps8/dps8_eis.c e->editInsertionTable[i] = entry & 0777; // keep to 9-bits e 5505 src/dps8/dps8_eis.c e->mopTally -= 1; e 5534 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5536 src/dps8/dps8_eis.c if (!(e->mopIF & 010)) e 5539 src/dps8/dps8_eis.c if (!e->mopES && !e->mopSN) e 5541 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[2]); e 5542 src/dps8/dps8_eis.c e->mopES = true; e 5545 src/dps8/dps8_eis.c if (!e->mopES && e->mopSN) e 5547 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[3]); e 5548 src/dps8/dps8_eis.c e->mopES = true; e 5552 src/dps8/dps8_eis.c if (!e->mopES) e 5555 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[4]); e 5556 src/dps8/dps8_eis.c e->mopES = true; e 5562 src/dps8/dps8_eis.c if (e->mopIF & 04) e 5563 src/dps8/dps8_eis.c e->mopBZ = true; e 5580 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5583 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5584 src/dps8/dps8_eis.c e->mopIF = 16; e 5586 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 5588 src/dps8/dps8_eis.c if (e->dstTally == 0) e 5590 src/dps8/dps8_eis.c if (e->srcTally == 0) e 5593 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5597 src/dps8/dps8_eis.c e->srcTally -= 1; e 5598 src/dps8/dps8_eis.c e->in += 1; e 5614 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5616 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5618 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5627 src/dps8/dps8_eis.c if (!e->mopES) e 5629 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[1]); e 5631 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5633 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5635 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5639 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5641 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5643 src/dps8/dps8_eis.c e->mopTally -= 1; e 5651 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5653 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5655 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5659 src/dps8/dps8_eis.c word9 c = EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5661 src/dps8/dps8_eis.c word9 c = EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5663 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, c); e 5664 src/dps8/dps8_eis.c e->mopTally -= 1; e 5670 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF-1]); e 5677 src/dps8/dps8_eis.c e 5682 src/dps8/dps8_eis.c e 5684 src/dps8/dps8_eis.c e 5687 src/dps8/dps8_eis.c e 5689 src/dps8/dps8_eis.c e 5691 src/dps8/dps8_eis.c e 5698 src/dps8/dps8_eis.c e 5700 src/dps8/dps8_eis.c e 5702 src/dps8/dps8_eis.c e 5705 src/dps8/dps8_eis.c e 5707 src/dps8/dps8_eis.c e 5710 src/dps8/dps8_eis.c e 5716 src/dps8/dps8_eis.c e 5718 src/dps8/dps8_eis.c e 5745 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5747 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5749 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5753 src/dps8/dps8_eis.c if (!e->mopES) e 5758 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5760 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5762 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5764 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5768 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5770 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5772 src/dps8/dps8_eis.c e->mopTally -= 1; e 5779 src/dps8/dps8_eis.c if (e->mopIF) e 5784 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF - 1]); e 5789 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5791 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5795 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9)); e 5798 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, e->mopAddress, &e->mopPos, CTN9)); e 5801 src/dps8/dps8_eis.c e->mopTally -= 1; e 5820 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5821 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5822 src/dps8/dps8_eis.c e->mopIF = 16; e 5823 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 5825 src/dps8/dps8_eis.c if (e->dstTally == 0) e 5827 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5851 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5853 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5855 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5863 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5865 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5867 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5870 src/dps8/dps8_eis.c if (!e->mopSN) e 5876 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5878 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5880 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5881 src/dps8/dps8_eis.c e->mopTally -= 1; e 5887 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9)); e 5889 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, e->mopAddress, &e->mopPos, CTN9)); e 5892 src/dps8/dps8_eis.c e->mopTally -= 1; e 5897 src/dps8/dps8_eis.c if (e->mopSN) e 5901 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF - 1]); e 5903 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5920 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5922 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5924 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5928 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5930 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5932 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5935 src/dps8/dps8_eis.c if (e->mopSN) e 5938 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5940 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5942 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5943 src/dps8/dps8_eis.c e->mopTally -= 1; e 5946 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9)); e 5948 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, e->mopAddress, &e->mopPos, CTN9)); e 5950 src/dps8/dps8_eis.c e->mopTally -= 1; e 5955 src/dps8/dps8_eis.c if (!e->mopSN) e 5957 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF - 1]); e 5959 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5978 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5979 src/dps8/dps8_eis.c if (e->mopIF == 0 || (e->mopIF >= 9 && e->mopIF <= 15)) e 5981 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5984 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5986 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5990 src/dps8/dps8_eis.c word9 next = EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5992 src/dps8/dps8_eis.c word9 next = EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5994 src/dps8/dps8_eis.c e->mopTally -= 1; e 5997 src/dps8/dps8_eis.c if (e->mopIF - 1 >= 0 && e 5998 src/dps8/dps8_eis.c e->mopIF - 1 < sizeof(e->editInsertionTable) / sizeof(e->editInsertionTable[0])) { e 5999 src/dps8/dps8_eis.c e->editInsertionTable[e->mopIF - 1] = next; e 6001 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 6002 src/dps8/dps8_eis.c sim_warn("mopIF %d OOB in %s!\r\n", e->mopIF, __func__); e 6005 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "LTE IT[%d]<=%d\r\n", e -> mopIF - 1, next); e 6049 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6050 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6051 src/dps8/dps8_eis.c e->mopIF = 16; e 6056 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MFLC IF %d, srcTally %d, dstTally %d\r\n", e->mopIF, e->srcTally, e->dstTally); e 6057 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6059 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MFLC n %d, srcTally %d, dstTally %d\r\n", n, e->srcTally, e->dstTally); e 6060 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6062 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6070 src/dps8/dps8_eis.c word9 c = *(e->in); e 6072 src/dps8/dps8_eis.c if (!e->mopES) { // e->mopES is OFF e 6079 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6080 src/dps8/dps8_eis.c e->in += 1; e 6081 src/dps8/dps8_eis.c e->srcTally -= 1; e 6087 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[4]); e 6089 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6090 src/dps8/dps8_eis.c e->mopZ = false; // iszero() tested above. e 6091 src/dps8/dps8_eis.c e->in += 1; e 6092 src/dps8/dps8_eis.c e->srcTally -= 1; e 6094 src/dps8/dps8_eis.c e->mopES = true; e 6099 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6102 src/dps8/dps8_eis.c e->mopZ = false; e 6103 src/dps8/dps8_eis.c e->in += 1; e 6104 src/dps8/dps8_eis.c e->srcTally -= 1; e 6155 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6156 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6157 src/dps8/dps8_eis.c e->mopIF = 16; e 6159 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF; n += 1) e 6161 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6163 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6166 src/dps8/dps8_eis.c word9 c = *(e->in); e 6168 src/dps8/dps8_eis.c if (!e->mopES) { // e->mopES is OFF e 6176 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6177 src/dps8/dps8_eis.c e->in += 1; e 6178 src/dps8/dps8_eis.c e->srcTally -= 1; e 6181 src/dps8/dps8_eis.c if (!e->mopSN) e 6190 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[2]); e 6192 src/dps8/dps8_eis.c e->in += 1; e 6193 src/dps8/dps8_eis.c e->srcTally -= 1; e 6194 src/dps8/dps8_eis.c e->mopZ = false; // iszero tested above e 6196 src/dps8/dps8_eis.c e 6198 src/dps8/dps8_eis.c e 6203 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6205 src/dps8/dps8_eis.c e->mopES = true; e 6214 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[3]); e 6216 src/dps8/dps8_eis.c e->in += 1; e 6217 src/dps8/dps8_eis.c e->srcTally -= 1; e 6218 src/dps8/dps8_eis.c e->mopZ = false; // iszero tested above e 6220 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6222 src/dps8/dps8_eis.c e->mopES = true; e 6228 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6231 src/dps8/dps8_eis.c e->mopZ = false; e 6232 src/dps8/dps8_eis.c e->in += 1; e 6233 src/dps8/dps8_eis.c e->srcTally -= 1; e 6265 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6266 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6267 src/dps8/dps8_eis.c e->mopIF = 16; e 6269 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MORS mopIF %d src %d dst %d\r\n", e->mopIF, e->srcTally, e->dstTally); e 6270 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6277 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6279 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6283 src/dps8/dps8_eis.c word9 c = (*e->in | (!e->mopSN ? e->editInsertionTable[2] : e->editInsertionTable[3])); e 6284 src/dps8/dps8_eis.c if (! isDecimalZero (*e->in)) e 6285 src/dps8/dps8_eis.c e->mopZ = false; e 6286 src/dps8/dps8_eis.c e->in += 1; e 6287 src/dps8/dps8_eis.c e->srcTally -= 1; e 6289 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6307 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6308 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6309 src/dps8/dps8_eis.c e->mopIF = 16; e 6311 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MVC mopIF %d\r\n", e->mopIF); e 6313 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6315 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MVC n %d srcTally %d dstTally %d\r\n", n, e->srcTally, e->dstTally); e 6318 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6320 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6323 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MVC write to output buffer %o\r\n", *e->in); e 6324 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, *e->in); e 6325 src/dps8/dps8_eis.c if (! isDecimalZero (*e->in)) e 6326 src/dps8/dps8_eis.c e->mopZ = false; e 6327 src/dps8/dps8_eis.c e->in += 1; e 6329 src/dps8/dps8_eis.c e->srcTally -= 1; e 6364 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6365 src/dps8/dps8_eis.c if (e->mvne == true) e 6368 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6369 src/dps8/dps8_eis.c e->mopIF = 16; e 6373 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6375 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6377 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6392 src/dps8/dps8_eis.c word9 c = *(e->in); e 6395 src/dps8/dps8_eis.c if (c & e->editInsertionTable[2]) // XXX only lower 4-bits are considered e 6398 src/dps8/dps8_eis.c else if (c & e->editInsertionTable[3]) // XXX only lower 4-bits are considered e 6400 src/dps8/dps8_eis.c e->mopSN = true; e 6405 src/dps8/dps8_eis.c e->in += 1; e 6406 src/dps8/dps8_eis.c e->srcTally -= 1; // XXX is this correct? No chars have been consumed, but ...... e 6408 src/dps8/dps8_eis.c e->mopZ = false; e 6409 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6427 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6428 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6429 src/dps8/dps8_eis.c e->mopIF = 16; e 6431 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6433 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6435 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6438 src/dps8/dps8_eis.c word9 c = *e->in; e 6439 src/dps8/dps8_eis.c e->in += 1; e 6440 src/dps8/dps8_eis.c e->srcTally -= 1; e 6444 src/dps8/dps8_eis.c if (!e->mopES && isDecimalZero (c)) e 6449 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[1]); e 6453 src/dps8/dps8_eis.c else if ((! e->mopES) && (! isDecimalZero (c))) e 6457 src/dps8/dps8_eis.c e->mopZ = false; e 6458 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6460 src/dps8/dps8_eis.c e->mopES = true; e 6461 src/dps8/dps8_eis.c } else if (e->mopES) e 6465 src/dps8/dps8_eis.c e->mopZ = false; e 6466 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6493 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6494 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6495 src/dps8/dps8_eis.c e->mopIF = 16; e 6497 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6499 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6501 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6504 src/dps8/dps8_eis.c word9 c = *e->in; e 6505 src/dps8/dps8_eis.c e->srcTally -= 1; e 6506 src/dps8/dps8_eis.c e->in += 1; e 6510 src/dps8/dps8_eis.c if ((!e->mopES) && isDecimalZero (c)) e 6515 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6519 src/dps8/dps8_eis.c if ((! e->mopES) && (! isDecimalZero (c))) e 6523 src/dps8/dps8_eis.c e->mopZ = false; e 6524 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6526 src/dps8/dps8_eis.c e->mopES = true; e 6527 src/dps8/dps8_eis.c } else if (e->mopES) e 6531 src/dps8/dps8_eis.c e->mopZ = false; e 6532 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6554 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6555 src/dps8/dps8_eis.c if (e->mopIF & 010) e 6556 src/dps8/dps8_eis.c e->mopES = true; e 6558 src/dps8/dps8_eis.c e->mopES = false; e 6560 src/dps8/dps8_eis.c if (e->mopIF & 04) e 6561 src/dps8/dps8_eis.c e->mopBZ = true; e 6619 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6623 src/dps8/dps8_eis.c if (e == NULL) //-V547 e 6631 src/dps8/dps8_eis.c EISaddr *p = &e->ADDR2; e 6633 src/dps8/dps8_eis.c EISaddr *p = e->mopAddress; e 6639 src/dps8/dps8_eis.c if (e->mopPos > 3) // overflows to next word? e 6641 src/dps8/dps8_eis.c e->mopPos = 0; // reset to 1st byte e 6644 src/dps8/dps8_eis.c p->data = EISRead(cpup, &e->ADDR2); // read it from memory e 6647 src/dps8/dps8_eis.c PNL (p->data = EISRead(cpup, e->mopAddress)); // read it from memory e 6650 src/dps8/dps8_eis.c p->data = EISRead(cpup, e->mopAddress); // read it from memory e 6652 src/dps8/dps8_eis.c e->mopAddress->address = (e->mopAddress->address + 1) & AMASK; // bump source to next address e 6653 src/dps8/dps8_eis.c p->data = EISRead(cpup, e->mopAddress); // read it from memory e 6658 src/dps8/dps8_eis.c word9 mop9 = (word9) get9 (p -> data, e -> mopPos); // get 9-bit mop e 6660 src/dps8/dps8_eis.c e->mopIF = mop9 & 0xf; e 6663 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MOP %s(%o) %o\r\n", m -> mopName, mop, e->mopIF); e 6664 src/dps8/dps8_eis.c e->m = m; e 6665 src/dps8/dps8_eis.c if (e->m == NULL || e->m->f == NULL) //-V560 e 6667 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "getMop(e->m == NULL || e->m->f == NULL): mop:%d IF:%d\r\n", mop, e->mopIF); e 6671 src/dps8/dps8_eis.c e->mopPos += 1; e 6672 src/dps8/dps8_eis.c e->mopTally -= 1; e 6685 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6688 src/dps8/dps8_eis.c e->mopTally = (int) e->N[KMOP]; // number of micro-ops e 6689 src/dps8/dps8_eis.c e->mopPos = (int) e->CN[KMOP]; // starting at char pos CN e 6691 src/dps8/dps8_eis.c e->mopAddress = &e->addr[kMop-1]; e 6692 src/dps8/dps8_eis.c e->mopTally = (int) e->N[kMop-1]; // number of micro-ops e 6693 src/dps8/dps8_eis.c e->mopPos = (int) e->CN[kMop-1]; // starting at char pos CN e 6696 src/dps8/dps8_eis.c word9 *p9 = e->editInsertionTable; // re-initialize edit insertion table e 6701 src/dps8/dps8_eis.c e->in = e->inBuffer; // reset input buffer pointer e 6702 src/dps8/dps8_eis.c e->out = e->outBuffer; // reset output buffer pointer e 6704 src/dps8/dps8_eis.c e->_faults = 0; // No faults (yet!) e 6713 src/dps8/dps8_eis.c while (e->dstTally) e 6717 src/dps8/dps8_eis.c e->srcTally, e->dstTally, e->mopTally); e 6722 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; // XXX ill proc fault e 6728 src/dps8/dps8_eis.c if (e->_faults & FAULT_IPR) //-V547 e 6744 src/dps8/dps8_eis.c e 6750 src/dps8/dps8_eis.c if (e->mopTally == 0 || mres) e 6755 src/dps8/dps8_eis.c if (e->mopZ && e->mopBZ) e 6757 src/dps8/dps8_eis.c e->out = e->outBuffer; //-V1048 // reset output buffer pointer e 6758 src/dps8/dps8_eis.c e->dstTally = (int) e->N3; // number of chars in dst (max 63) e 6759 src/dps8/dps8_eis.c while (e->dstTally) e 6761 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6764 src/dps8/dps8_eis.c else if (mres || e->dstTally) //-V560 e 6766 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 6773 src/dps8/dps8_eis.c e->_faults, e->srcTally, e->dstTally, e->mopTally); e 6788 src/dps8/dps8_eis.c e 6792 src/dps8/dps8_eis.c e 6793 src/dps8/dps8_eis.c e 6798 src/dps8/dps8_eis.c e 6800 src/dps8/dps8_eis.c e 6806 src/dps8/dps8_eis.c e 6808 src/dps8/dps8_eis.c e 6809 src/dps8/dps8_eis.c e 6815 src/dps8/dps8_eis.c e 6817 src/dps8/dps8_eis.c e 6821 src/dps8/dps8_eis.c if (e -> _faults) e 6827 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6859 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 6864 src/dps8/dps8_eis.c e 6868 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000010000) e 6872 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000010000) e 6886 src/dps8/dps8_eis.c e->mopES = false; // End Suppression flag e 6887 src/dps8/dps8_eis.c e->mopSN = false; // Sign flag e 6888 src/dps8/dps8_eis.c e->mopBZ = false; // Blank-when-zero flag e 6889 src/dps8/dps8_eis.c e->mopZ = true; // Zero flag e 6891 src/dps8/dps8_eis.c e->srcTally = (int) e->N1; // number of chars in src (max 63) e 6892 src/dps8/dps8_eis.c e->dstTally = (int) e->N3; // number of chars in dst (max 63) e 6895 src/dps8/dps8_eis.c e->srcTA = (int) TA1; // type of chars in src e 6897 src/dps8/dps8_eis.c e->srcTA = (int) e->TA1; // type of chars in src e 6900 src/dps8/dps8_eis.c switch (e -> srcTA) e 6903 src/dps8/dps8_eis.c e -> srcSZ = 4; e 6906 src/dps8/dps8_eis.c e -> srcSZ = 6; e 6909 src/dps8/dps8_eis.c e -> srcSZ = 9; e 6916 src/dps8/dps8_eis.c uint dstTA = e -> TA3; // type of chars in dst e 6922 src/dps8/dps8_eis.c e -> dstSZ = 4; e 6925 src/dps8/dps8_eis.c e -> dstSZ = 6; e 6928 src/dps8/dps8_eis.c e -> dstSZ = 9; e 6936 src/dps8/dps8_eis.c e -> mvne = false; e 6944 src/dps8/dps8_eis.c e -> dstTally = (int) e -> N3; // restore dstTally for output e 6954 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6989 src/dps8/dps8_eis.c e 6993 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000070000) e 6998 src/dps8/dps8_eis.c e 7002 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000010000) e 7015 src/dps8/dps8_eis.c uint srcTN = e -> TN1; // type of chars in src e 7029 src/dps8/dps8_eis.c switch(e->S1) e 7032 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 7041 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 7045 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 7055 src/dps8/dps8_eis.c if (e->N[1] == 0) e 7060 src/dps8/dps8_eis.c if (e->N[2] == 0) e 7078 src/dps8/dps8_eis.c e->mopES = false; // End Suppression flag e 7079 src/dps8/dps8_eis.c e->mopSN = false; // Sign flag e 7080 src/dps8/dps8_eis.c e->mopBZ = false; // Blank-when-zero flag e 7081 src/dps8/dps8_eis.c e->mopZ = true; // Zero flag e 7083 src/dps8/dps8_eis.c e -> srcTally = (int) e -> N1; // number of chars in src (max 63) e 7084 src/dps8/dps8_eis.c e -> dstTally = (int) e -> N3; // number of chars in dst (max 63) e 7090 src/dps8/dps8_eis.c e->srcTA = CTA4; // type of chars in src e 7096 src/dps8/dps8_eis.c e->srcSZ = 4; //-V1037 // stored as 4-bit decimals e 7100 src/dps8/dps8_eis.c e->srcSZ = 4; //-V1037 // 'cause everything is stored as 4-bit decimals e 7107 src/dps8/dps8_eis.c uint dstTA = e->TA3; // type of chars in dst e 7113 src/dps8/dps8_eis.c e->dstSZ = 4; e 7117 src/dps8/dps8_eis.c e->dstSZ = 6; e 7121 src/dps8/dps8_eis.c e->dstSZ = 9; e 7128 src/dps8/dps8_eis.c e->N1, e->N2, e->N3, e->TN1, e->CN1, TA3, e->CN3); e 7132 src/dps8/dps8_eis.c e->N1, e->N2, e->N3, e->TN1, e->CN1, e->TA3, e->CN3); e 7148 src/dps8/dps8_eis.c for(int n = 0 ; n < e -> srcTally ; n ++) e 7149 src/dps8/dps8_eis.c sum += e -> inBuffer [n]; e 7150 src/dps8/dps8_eis.c if ((e -> sign == -1) && sum) e 7151 src/dps8/dps8_eis.c e -> mopSN = true; e 7154 src/dps8/dps8_eis.c e -> mvne = true; e 7162 src/dps8/dps8_eis.c e -> dstTally = (int) e -> N3; // restore dstTally for output e 7176 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 7228 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 7234 src/dps8/dps8_eis.c e 7239 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777600) e 7253 src/dps8/dps8_eis.c e->srcTA = (int) TA1; e 7258 src/dps8/dps8_eis.c e->srcTA = (int) e->TA1; e 7259 src/dps8/dps8_eis.c uint dstTA = e->TA2; e 7261 src/dps8/dps8_eis.c switch (e -> TA1) e 7265 src/dps8/dps8_eis.c e -> srcSZ = 4; e 7268 src/dps8/dps8_eis.c e -> srcSZ = 6; e 7271 src/dps8/dps8_eis.c e -> srcSZ = 9; e 7278 src/dps8/dps8_eis.c switch (e -> TA2) e 7282 src/dps8/dps8_eis.c e -> dstSZ = 4; e 7285 src/dps8/dps8_eis.c e -> dstSZ = 6; e 7288 src/dps8/dps8_eis.c e -> dstSZ = 9; e 7309 src/dps8/dps8_eis.c switch(e->TA1) e 7328 src/dps8/dps8_eis.c e 7333 src/dps8/dps8_eis.c int lastpageidx = ((int)e->N1 + (int)e->CN1 -1) / e->srcSZ; e 7335 src/dps8/dps8_eis.c EISReadIdx(cpup, &e->ADDR1, (uint)lastpageidx); e 7339 src/dps8/dps8_eis.c EISReadIdx(cpup, &e->ADDR3, 0); e 7340 src/dps8/dps8_eis.c EISReadIdx(cpup, &e->ADDR3, xlatSize-1); e 7348 src/dps8/dps8_eis.c switch(e->srcSZ) e 7360 src/dps8/dps8_eis.c __func__, e -> CN1, e -> CN2, e -> srcSZ, e -> dstSZ, T, e 7361 src/dps8/dps8_eis.c fill, fillT, e -> N1, e -> N2); e 7363 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 7366 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY ++) e 7368 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 7375 src/dps8/dps8_eis.c if (e->TA1 == e->TA2) e 7377 src/dps8/dps8_eis.c EISput469(cpup, 2, cpu.du.CHTALLY, xlate (cpup, &e->ADDR3, dstTA, c)); e 7385 src/dps8/dps8_eis.c word9 cout = xlate(cpup, &e->ADDR3, dstTA, (uint) cidx); e 7397 src/dps8/dps8_eis.c switch (e->srcSZ) e 7400 src/dps8/dps8_eis.c switch(e->dstSZ) e 7410 src/dps8/dps8_eis.c switch(e->dstSZ) e 7430 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 7432 src/dps8/dps8_eis.c word9 cfill = xlate(cpup, &e->ADDR3, dstTA, fillT); e 7433 src/dps8/dps8_eis.c switch (e->srcSZ) e 7436 src/dps8/dps8_eis.c switch(e->dstSZ) e 7446 src/dps8/dps8_eis.c switch(e->dstSZ) e 7458 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < e->N2 ; cpu.du.CHTALLY ++) e 7460 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 7469 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 7485 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 7527 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 7541 src/dps8/dps8_eis.c switch(e->S1) e 7544 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 7554 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 7555 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7559 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 7560 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7567 src/dps8/dps8_eis.c switch(e->S2) e 7570 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 7571 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 7580 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 7581 src/dps8/dps8_eis.c sc2 = -e->SF2; e 7585 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 7586 src/dps8/dps8_eis.c sc2 = -e->SF2; e 7603 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 7604 src/dps8/dps8_eis.c if (e->sign == -1) e 7606 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 7607 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 7611 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 7612 src/dps8/dps8_eis.c if (e->sign == -1) e 7614 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 7615 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 7791 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 7829 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character e 7836 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 7838 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 7839 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 7843 src/dps8/dps8_eis.c e->TN1, e->CN1, e->N1, e->TN2, e->CN2, e->N2); e 7846 src/dps8/dps8_eis.c e->SF1, e->SF2); e 7849 src/dps8/dps8_eis.c e->OP1, e->OP2); e 7863 src/dps8/dps8_eis.c switch(e->S1) e 7866 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 7876 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 7877 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7881 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 7882 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7897 src/dps8/dps8_eis.c switch(e->S2) e 7900 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 7909 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 7913 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 7930 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber (e->inBuffer, n1, sc1, &_1); e 7932 src/dps8/dps8_eis.c if (e->sign == -1) e 7934 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 7935 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 7947 src/dps8/dps8_eis.c char * res = formatDecimal (out, & set, op1, n2, (int) e->S2, e->SF2, R, e 7958 src/dps8/dps8_eis.c switch(e->S2) e 7968 src/dps8/dps8_eis.c if (e->P) e 7970 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 7975 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 7980 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 7997 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8001 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, (word9) res[i]); e 8006 src/dps8/dps8_eis.c switch(e->S2) e 8015 src/dps8/dps8_eis.c if (e->P) e 8017 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8022 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8028 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8040 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8042 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8046 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8058 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 8109 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8196 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8197 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8199 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8200 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8211 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8220 src/dps8/dps8_eis.c e -> N1, e -> N2, e 8221 src/dps8/dps8_eis.c e -> C1, e -> C2, e -> B1, e -> B2, F, T, e 8223 src/dps8/dps8_eis.c e -> addr [0].SNR, e -> addr [0].address, e 8224 src/dps8/dps8_eis.c e -> addr [0].cPos, e -> addr [0].bPos, e 8225 src/dps8/dps8_eis.c e -> addr [1].SNR, e -> addr [1].address, e 8226 src/dps8/dps8_eis.c e -> addr [1].cPos, e -> addr [1].bPos); e 8231 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8234 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY += 1) e 8237 src/dps8/dps8_eis.c bool b1 = EISgetBitRWN(cpup, &e->ADDR1, true); e 8238 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8239 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN(cpup, &e->ADDR2, true); e 8250 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; // set bit contents to write e 8251 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; // we want to write the bit e 8254 src/dps8/dps8_eis.c EISgetBitRWN(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 35); // write bit w/ addr increment to memory e 8257 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8259 src/dps8/dps8_eis.c for(; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8264 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8265 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN(cpup, &e->ADDR2, true); e 8276 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; e 8277 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; e 8280 src/dps8/dps8_eis.c EISgetBitRWN(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 35); // write bit w/ addr increment to memory e 8284 src/dps8/dps8_eis.c EISWriteCache (cpup, &e->ADDR2); e 8290 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 8397 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8466 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8467 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8469 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8470 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8475 src/dps8/dps8_eis.c getBitOffsets((int) e->N1, (int) e->C1, (int) e->B1, &numWords1, &e->ADDR1.cPos, &e->ADDR1.bPos); e 8482 src/dps8/dps8_eis.c e->ADDR1.address += (word18) numWords1; e 8487 src/dps8/dps8_eis.c e->N1, e->C1, e->B1, numWords1, e->ADDR1.cPos, e->ADDR1.bPos); e 8488 src/dps8/dps8_eis.c getBitOffsets((int) e->N2, (int) e->C2, (int) e->B2, &numWords2, &e->ADDR2.cPos, &e->ADDR2.bPos); e 8491 src/dps8/dps8_eis.c e->N2, e->C2, e->B2, numWords2, e->ADDR2.cPos, e->ADDR2.bPos); e 8498 src/dps8/dps8_eis.c e->ADDR2.address += (word18) numWords2; e 8510 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8516 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8519 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY += 1) e 8522 src/dps8/dps8_eis.c bool b1 = EISgetBitRWNR(cpup, &e->ADDR1, true); e 8524 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8525 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8533 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; // set bit contents to write e 8534 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; // we want to write the bit e 8537 src/dps8/dps8_eis.c EISgetBitRWNR(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 0); e 8540 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8542 src/dps8/dps8_eis.c for(; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8547 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8548 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8559 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; e 8560 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; e 8563 src/dps8/dps8_eis.c EISgetBitRWNR(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 0); e 8567 src/dps8/dps8_eis.c EISWriteCache (cpup, &e->ADDR2); e 8573 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 8597 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8684 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8685 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8687 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8688 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8699 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8700 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8709 src/dps8/dps8_eis.c e -> N1, e -> N2, e 8710 src/dps8/dps8_eis.c e -> C1, e -> C2, e -> B1, e -> B2, F, T, e 8712 src/dps8/dps8_eis.c e -> addr [0].SNR, e -> addr [0].address, e 8713 src/dps8/dps8_eis.c e -> addr [0].cPos, e -> addr [0].bPos, e 8714 src/dps8/dps8_eis.c e -> addr [1].SNR, e -> addr [1].address, e 8715 src/dps8/dps8_eis.c e -> addr [1].cPos, e -> addr [1].bPos); e 8720 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8723 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min (e->N1, e->N2); cpu.du.CHTALLY += 1) e 8726 src/dps8/dps8_eis.c bool b1 = EISgetBitRWN (cpup, & e->ADDR1, true); e 8727 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN (cpup, & e->ADDR2, true); e 8739 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8741 src/dps8/dps8_eis.c for (; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8745 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN (cpup, & e->ADDR2, true); e 8762 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 8786 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8855 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8856 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8858 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8859 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8864 src/dps8/dps8_eis.c getBitOffsets((int) e->N1, (int) e->C1, (int) e->B1, &numWords1, &e->ADDR1.cPos, &e->ADDR1.bPos); e 8871 src/dps8/dps8_eis.c e->ADDR1.address += (word18) numWords1; e 8876 src/dps8/dps8_eis.c e->N1, e->C1, e->B1, numWords1, e->ADDR1.cPos, e->ADDR1.bPos); e 8877 src/dps8/dps8_eis.c getBitOffsets((int) e->N2, (int) e->C2, (int) e->B2, &numWords2, &e->ADDR2.cPos, &e->ADDR2.bPos); e 8880 src/dps8/dps8_eis.c e->N2, e->C2, e->B2, numWords2, e->ADDR2.cPos, e->ADDR2.bPos); e 8887 src/dps8/dps8_eis.c e->ADDR2.address += (word18) numWords2; e 8899 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8905 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8908 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY += 1) e 8911 src/dps8/dps8_eis.c bool b1 = EISgetBitRWNR(cpup, &e->ADDR1, true); e 8913 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8914 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8926 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8928 src/dps8/dps8_eis.c for(; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8933 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8934 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8952 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 9022 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 9069 src/dps8/dps8_eis.c int charPosn1 = (int) e->C1; e 9070 src/dps8/dps8_eis.c int charPosn2 = (int) e->C2; e 9072 src/dps8/dps8_eis.c int bitPosn1 = (int) e->B1; e 9073 src/dps8/dps8_eis.c int bitPosn2 = (int) e->B2; e 9080 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "cmpb N1 %d N2 %d\r\n", e -> N1, e -> N2); e 9092 src/dps8/dps8_eis.c e 9098 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 9107 src/dps8/dps8_eis.c if (i < e->N1) e 9108 src/dps8/dps8_eis.c (void) EISgetBit (cpup, &e->ADDR1, &charPosn1, &bitPosn1); e 9109 src/dps8/dps8_eis.c if (i < e->N2) e 9110 src/dps8/dps8_eis.c (void) EISgetBit (cpup, &e->ADDR2, &charPosn2, &bitPosn2); e 9112 src/dps8/dps8_eis.c for( ; i < min(e->N1, e->N2) ; i += 1) e 9115 src/dps8/dps8_eis.c bool b1 = EISgetBit (cpup, &e->ADDR1, &charPosn1, &bitPosn1); e 9116 src/dps8/dps8_eis.c bool b2 = EISgetBit (cpup, &e->ADDR2, &charPosn2, &bitPosn2); e 9132 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 9134 src/dps8/dps8_eis.c for(; i < e->N2 ; i += 1) e 9138 src/dps8/dps8_eis.c bool b2 = EISgetBit(cpup, &e->ADDR2, &charPosn2, &bitPosn2); e 9153 src/dps8/dps8_eis.c } else if (e->N1 > e->N2) e 9155 src/dps8/dps8_eis.c for(; i < e->N1 ; i += 1) e 9158 src/dps8/dps8_eis.c bool b1 = EISgetBit(cpup, &e->ADDR1, &charPosn1, &bitPosn1); e 9302 src/dps8/dps8_eis.c e 9316 src/dps8/dps8_eis.c e 9317 src/dps8/dps8_eis.c e 9318 src/dps8/dps8_eis.c e 9369 src/dps8/dps8_eis.c e 9370 src/dps8/dps8_eis.c e 9389 src/dps8/dps8_eis.c e 9392 src/dps8/dps8_eis.c e 9463 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 9506 src/dps8/dps8_eis.c e->x = signExt9(x, n); // form proper 2's-complement integer e 9516 src/dps8/dps8_eis.c e 9518 src/dps8/dps8_eis.c e 9524 src/dps8/dps8_eis.c e 9531 src/dps8/dps8_eis.c e 9541 src/dps8/dps8_eis.c e 9560 src/dps8/dps8_eis.c e 9563 src/dps8/dps8_eis.c e 9572 src/dps8/dps8_eis.c e 9575 src/dps8/dps8_eis.c e 9587 src/dps8/dps8_eis.c e 9603 src/dps8/dps8_eis.c e 9607 src/dps8/dps8_eis.c e 9619 src/dps8/dps8_eis.c e 9631 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 9714 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000077700) e 9718 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000007700) e 9721 src/dps8/dps8_eis.c if (e->S[1] == 0) e 9734 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 9736 src/dps8/dps8_eis.c if (e->N1 == 0 || e->N1 > 8) e 9739 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 9740 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 9744 src/dps8/dps8_eis.c switch(e->S2) e 9748 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 9752 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 9767 src/dps8/dps8_eis.c load9x(cpup, (int) e->N1, &e->ADDR1, (int) e->CN1); e 9770 src/dps8/dps8_eis.c e->sign = 1; e 9772 src/dps8/dps8_eis.c word72 x = cast_128 (e->x); e 9773 src/dps8/dps8_eis.c if (islt_s128 (e->x, construct_s128 (0, 0))) e 9775 src/dps8/dps8_eis.c e->sign = -1; e 9794 src/dps8/dps8_eis.c word72 x = (word72)e->x; e 9795 src/dps8/dps8_eis.c if (e->x < 0) { e 9796 src/dps8/dps8_eis.c e->sign = -1; e 9816 src/dps8/dps8_eis.c if (e->sign == -1) e 9822 src/dps8/dps8_eis.c char * res = formatDecimal (out, &set, op1, n2, (int) e->S2, e->SF2, 0, &Ovr, &Trunc); e 9830 src/dps8/dps8_eis.c switch(e->S2) e 9836 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 9839 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9842 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9846 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9862 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, (word9) (res[i] - '0')); e 9865 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, (word9) res[i]); e 9870 src/dps8/dps8_eis.c switch(e->S2) e 9876 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 9879 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9882 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9887 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9919 src/dps8/dps8_eis.c e 9928 src/dps8/dps8_eis.c e 9933 src/dps8/dps8_eis.c e 9934 src/dps8/dps8_eis.c e 9948 src/dps8/dps8_eis.c e 9966 src/dps8/dps8_eis.c e 9973 src/dps8/dps8_eis.c e 9988 src/dps8/dps8_eis.c e 9995 src/dps8/dps8_eis.c e 10009 src/dps8/dps8_eis.c e 10016 src/dps8/dps8_eis.c e 10030 src/dps8/dps8_eis.c e 10037 src/dps8/dps8_eis.c e 10058 src/dps8/dps8_eis.c e 10067 src/dps8/dps8_eis.c e 10074 src/dps8/dps8_eis.c e 10075 src/dps8/dps8_eis.c e 10100 src/dps8/dps8_eis.c e 10114 src/dps8/dps8_eis.c e 10120 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 10152 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000007700) e 10158 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000077700) e 10165 src/dps8/dps8_eis.c if (e->S1 == 0 || e->SF1 != 0) e 10181 src/dps8/dps8_eis.c if (e->N2 == 0 || e->N2 > 8) e 10198 src/dps8/dps8_eis.c switch(e->S1) e 10202 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 10206 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 10220 src/dps8/dps8_eis.c word72 msk = subtract_128 (lshift_128 (construct_128 (0, 1), (9*e->N2-1)),construct_128 (0, 1)); e 10222 src/dps8/dps8_eis.c word72 msk = ((word72)1<<(9*e->N2-1))-1; // excluding sign e 10227 src/dps8/dps8_eis.c e 10228 src/dps8/dps8_eis.c e 10234 src/dps8/dps8_eis.c e 10246 src/dps8/dps8_eis.c x = add_128 (x, construct_128 (0, (uint) e->inBuffer[i])); e 10252 src/dps8/dps8_eis.c if (e->sign == -1) e 10260 src/dps8/dps8_eis.c x += e->inBuffer[i]; e 10265 src/dps8/dps8_eis.c if (e->sign == -1) e 10272 src/dps8/dps8_eis.c int pos = (int)e->CN2; e 10276 src/dps8/dps8_eis.c int shift = 9*((int)e->N2-1); e 10277 src/dps8/dps8_eis.c for(int i = 0; i < (int)e->N2; i++) { e 10279 src/dps8/dps8_eis.c EISwrite9(cpup, &e->ADDR2, &pos, (word9) rshift_128 (x, (uint) shift).l & 0777); e 10281 src/dps8/dps8_eis.c EISwrite9(cpup, &e->ADDR2, &pos, (word9) (x >> shift )& 0777); e 10286 src/dps8/dps8_eis.c SC_I_NEG (e->sign == -1); // set negative indicator e 10316 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 10353 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 10360 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 10362 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 10363 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 10365 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 10379 src/dps8/dps8_eis.c switch(e->S1) e 10382 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 10392 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 10393 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10397 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 10398 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10405 src/dps8/dps8_eis.c switch(e->S2) e 10408 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 10409 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 10418 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 10419 src/dps8/dps8_eis.c sc2 = -e->SF2; e 10423 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 10424 src/dps8/dps8_eis.c sc2 = -e->SF2; e 10441 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 10442 src/dps8/dps8_eis.c if (e->sign == -1) e 10444 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 10445 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 10449 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 10450 src/dps8/dps8_eis.c if (e->sign == -1) e 10452 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 10453 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 10463 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; e 10495 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 10510 src/dps8/dps8_eis.c switch(e->S2) e 10517 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 10520 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10523 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10527 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10543 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[j] - '0')); e 10546 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[j]); e 10551 src/dps8/dps8_eis.c switch(e->S2) e 10557 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 10560 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10563 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10567 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10578 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 10579 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 10582 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 10593 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 10675 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 10714 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 10721 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 10723 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 10724 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 10738 src/dps8/dps8_eis.c switch(e->S1) e 10741 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 10751 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 10752 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10756 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 10757 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10764 src/dps8/dps8_eis.c switch(e->S2) e 10767 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 10768 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 10777 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 10778 src/dps8/dps8_eis.c sc2 = -e->SF2; e 10782 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 10783 src/dps8/dps8_eis.c sc2 = -e->SF2; e 10790 src/dps8/dps8_eis.c switch(e->S3) e 10793 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 10802 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 10806 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 10822 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 10823 src/dps8/dps8_eis.c if (e->sign == -1) e 10825 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 10826 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 10830 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 10831 src/dps8/dps8_eis.c if (e->sign == -1) e 10833 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 10834 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 10854 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; e 10886 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 10901 src/dps8/dps8_eis.c switch(e->S3) e 10908 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 10911 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10914 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10918 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10934 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 10937 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 10942 src/dps8/dps8_eis.c switch(e->S3) e 10948 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 10951 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10954 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10958 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10969 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 10970 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 10974 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 10985 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 11026 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 11066 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 11073 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 11075 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 11076 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 11078 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 11092 src/dps8/dps8_eis.c switch(e->S1) e 11095 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 11105 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 11106 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11110 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 11111 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11118 src/dps8/dps8_eis.c switch(e->S2) e 11121 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 11122 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 11131 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 11132 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11136 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 11137 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11153 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 11154 src/dps8/dps8_eis.c if (e->sign == -1) e 11156 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 11157 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 11161 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 11162 src/dps8/dps8_eis.c if (e->sign == -1) e 11164 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11165 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 11175 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; e 11207 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 11222 src/dps8/dps8_eis.c switch(e->S2) e 11229 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11232 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11235 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11239 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11255 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 11258 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 11263 src/dps8/dps8_eis.c switch(e->S2) e 11269 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11272 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11275 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11279 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11290 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 11291 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 11295 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 11306 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11347 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 11385 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 11392 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 11394 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 11395 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 11409 src/dps8/dps8_eis.c switch(e->S1) e 11412 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 11422 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 11423 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11427 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 11428 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11435 src/dps8/dps8_eis.c switch(e->S2) e 11438 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 11439 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 11448 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 11449 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11453 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 11454 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11461 src/dps8/dps8_eis.c switch(e->S3) e 11464 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 11473 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 11477 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 11494 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 11495 src/dps8/dps8_eis.c if (e->sign == -1) e 11497 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 11498 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 11502 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 11503 src/dps8/dps8_eis.c if (e->sign == -1) e 11505 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11506 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 11516 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; e 11548 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 11561 src/dps8/dps8_eis.c switch(e->S3) e 11568 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11571 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11574 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11578 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11594 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 11597 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 11602 src/dps8/dps8_eis.c switch(e->S3) e 11608 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11611 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11614 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11618 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11629 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 11630 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 11634 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 11645 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 11686 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 11723 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 11730 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 11732 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 11733 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 11735 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 11749 src/dps8/dps8_eis.c switch(e->S1) e 11752 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 11762 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 11763 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11767 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 11768 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11775 src/dps8/dps8_eis.c switch(e->S2) e 11778 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 11779 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 11788 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 11789 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11793 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 11794 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11810 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 11811 src/dps8/dps8_eis.c if (e->sign == -1) e 11813 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 11814 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 11818 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 11819 src/dps8/dps8_eis.c if (e->sign == -1) e 11821 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11822 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 11829 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 11840 src/dps8/dps8_eis.c switch(e->S2) e 11847 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11850 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11853 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11857 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11873 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 11876 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 11881 src/dps8/dps8_eis.c switch(e->S2) e 11887 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11890 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11893 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11897 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11908 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 11909 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 11913 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 11924 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11965 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 12003 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 12010 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 12012 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 12013 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 12027 src/dps8/dps8_eis.c switch(e->S1) e 12030 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 12040 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 12041 src/dps8/dps8_eis.c sc1 = -e->SF1; e 12045 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 12046 src/dps8/dps8_eis.c sc1 = -e->SF1; e 12053 src/dps8/dps8_eis.c switch(e->S2) e 12056 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 12057 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 12066 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 12067 src/dps8/dps8_eis.c sc2 = -e->SF2; e 12071 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 12072 src/dps8/dps8_eis.c sc2 = -e->SF2; e 12079 src/dps8/dps8_eis.c switch(e->S3) e 12082 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 12091 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 12095 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 12112 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 12113 src/dps8/dps8_eis.c if (e->sign == -1) e 12115 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 12116 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 12120 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 12121 src/dps8/dps8_eis.c if (e->sign == -1) e 12123 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 12124 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 12142 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 12153 src/dps8/dps8_eis.c switch(e->S3) e 12160 src/dps8/dps8_eis.c if (e->P) // If TN2 and S2 specify a 4-bit signed number and P e 12164 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12167 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12171 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12187 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 12190 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 12195 src/dps8/dps8_eis.c switch(e->S3) e 12201 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 12204 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12207 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12211 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12222 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 12223 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 12226 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 12237 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 13027 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 13065 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 13072 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 13074 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 13075 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 13077 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 13091 src/dps8/dps8_eis.c switch(e->S1) e 13094 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 13104 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 13105 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13109 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 13110 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13117 src/dps8/dps8_eis.c switch(e->S2) e 13120 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 13121 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 13130 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 13131 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13135 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 13136 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13152 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); // divisor e 13153 src/dps8/dps8_eis.c if (e->sign == -1) e 13155 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 13156 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 13165 src/dps8/dps8_eis.c memcpy (inBufferop1,e->inBuffer,sizeof(inBufferop1)); // save for clz1 calculation later e 13169 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); // dividend e 13170 src/dps8/dps8_eis.c if (e->sign == -1) e 13172 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13173 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 13176 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13190 src/dps8/dps8_eis.c if (e->inBuffer[i]!=0) // this still holds op2 digits e 13197 src/dps8/dps8_eis.c NQ = (n2-clz2+1) - (n1-clz1) + (-(e->S1==CSFL?op1->exponent:(int)e->SF1)); e 13200 src/dps8/dps8_eis.c e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF2,NQ); e 13224 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13256 src/dps8/dps8_eis.c if (e->S2 == CSFL) { e 13281 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2 -1, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 13291 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 13295 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 13306 src/dps8/dps8_eis.c switch(e->S2) e 13313 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 13316 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13319 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13323 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13339 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 13342 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 13347 src/dps8/dps8_eis.c switch(e->S2) e 13353 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 13356 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13359 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13363 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13374 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 13375 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 13378 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 13389 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13431 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 13470 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 13477 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 13479 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 13480 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 13494 src/dps8/dps8_eis.c switch(e->S1) e 13497 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 13507 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 13508 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13512 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 13513 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13520 src/dps8/dps8_eis.c switch(e->S2) e 13523 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 13524 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 13533 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 13534 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13538 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 13539 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13546 src/dps8/dps8_eis.c switch(e->S3) e 13549 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 13558 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 13562 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 13577 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 13579 src/dps8/dps8_eis.c if (e->sign == -1) e 13581 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 13582 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 13591 src/dps8/dps8_eis.c memcpy (inBufferop1,e->inBuffer,sizeof(inBufferop1)); // save for clz1 calculation later e 13595 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 13596 src/dps8/dps8_eis.c if (e->sign == -1) e 13598 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13599 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 13618 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 13632 src/dps8/dps8_eis.c if (e->inBuffer[i]!=0) // this still holds op2 digits e 13640 src/dps8/dps8_eis.c ((e->S2==CSFL?op2->exponent:(int)e->SF2)-(e->S1==CSFL?op1->exponent:(int)e->SF1)-(int)e->SF3); e 13643 src/dps8/dps8_eis.c e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF3,NQ); e 13667 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 13699 src/dps8/dps8_eis.c if (e->S3 == CSFL) { e 13726 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3 -1, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 13736 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 13740 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 13753 src/dps8/dps8_eis.c switch(e->S3) e 13760 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 13763 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13766 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13770 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13786 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 13789 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 13794 src/dps8/dps8_eis.c switch(e->S3) e 13800 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 13803 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13806 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13810 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13821 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 13822 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 13825 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 13836 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 6535 src/dps8/dps8_ins.c int e = SIGNEXT8_int (cpu.rE); e 6536 src/dps8/dps8_ins.c e = e + y; e 6538 src/dps8/dps8_ins.c cpu.rE = e & 0377; e 6542 src/dps8/dps8_ins.c if (e > 127) e 6549 src/dps8/dps8_ins.c if (e < -128) e 54 src/dps8/dps8_math.c long double exp2l (long double e) { e 55 src/dps8/dps8_math.c return __builtin_exp2l(e); e 93 src/dps8/dps8_math.c int e = SIGNEXT8_int (cpu . rE & MASK8); // make signed e 96 src/dps8/dps8_math.c return -exp2l(e); e 120 src/dps8/dps8_math.c return (S ? -1 : 1) * ldexpl(m, e); e 145 src/dps8/dps8_math.c int e = SIGNEXT8_int (cpu . rE & MASK8); // make signed e 148 src/dps8/dps8_math.c return -exp2(e); e 167 src/dps8/dps8_math.c return (S ? -1 : 1) * ldexp(m, e); e 224 src/dps8/dps8_math.c int e = (int)exp; e 226 src/dps8/dps8_math.c putbits72 (& result, 71-64, 8, e & 0377); e 364 src/dps8/dps8_math.c e 367 src/dps8/dps8_math.c e 379 src/dps8/dps8_math.c e 427 src/dps8/dps8_math.c e 429 src/dps8/dps8_math.c e 851 src/dps8/dps8_math.c int e = * e0; e 871 src/dps8/dps8_math.c e -= 1; e 878 src/dps8/dps8_math.c e -= 1; e 891 src/dps8/dps8_math.c e -= 1; e 901 src/dps8/dps8_math.c e -= 1; e 910 src/dps8/dps8_math.c e -= 1; e 920 src/dps8/dps8_math.c e -= 1; e 933 src/dps8/dps8_math.c e -= 1; e 943 src/dps8/dps8_math.c e -= 1; e 953 src/dps8/dps8_math.c if (e < -128) { e 959 src/dps8/dps8_math.c * E = (word8) e & MASK8; e 972 src/dps8/dps8_math.c * e0 = e; e 1028 src/dps8/dps8_math.c e 1039 src/dps8/dps8_math.c e 1042 src/dps8/dps8_math.c e 1051 src/dps8/dps8_math.c e 4148 src/dps8/dps8_sys.c # define SYMTAB_ENUM32(e) { #e, SYM_ENUM, SYM_UINT32, e } e 418 src/dps8/safemove.h int e = errno; e 420 src/dps8/safemove.h errno = e; e 456 src/dps8/safemove.h int e = errno; e 458 src/dps8/safemove.h errno = e; e 57 src/libsir/src/sirerrors.c uint32_t e; e 207 src/libsir/src/sirerrors.c if (sir_errors[_mid].e == _sir_te.lasterror) { e 210 src/libsir/src/sirerrors.c if (_SIR_E_PLATFORM == sir_errors[_mid].e) { e 225 src/libsir/src/sirerrors.c retval = sir_errors[_mid].e; e 229 src/libsir/src/sirerrors.c _SIR_ITERATE_BIN_SEARCH((sir_errors[_mid].e < _sir_te.lasterror ? 1 : -1)); e 257 src/libsir/src/sirerrors.c if (sir_errors[_mid].e == _sir_te.lasterror) { e 258 src/libsir/src/sirerrors.c err->code = _sir_geterrcode(sir_errors[_mid].e); e 259 src/libsir/src/sirerrors.c if (_SIR_E_PLATFORM == sir_errors[_mid].e) e 266 src/libsir/src/sirerrors.c _SIR_ITERATE_BIN_SEARCH((sir_errors[_mid].e < _sir_te.lasterror ? 1 : -1));