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 1424 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR [n].SNR; e 1425 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1427 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; // ARs involved e 1441 src/dps8/dps8_eis.c e -> N [k - 1] = (uint) getMFReg36 (cpup, reg, false, false, mod_fault); // RL=1: disallow du,n,ic e 1445 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 1449 src/dps8/dps8_eis.c e -> N [k - 1] &= 017777777; // 22-bits of length e 1454 src/dps8/dps8_eis.c e -> N [k - 1] &= 07777777; // 21-bits of length. e 1465 src/dps8/dps8_eis.c e -> N [k - 1] = opDesc & 07777; e 1470 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %o\r\n", k, e->N[k-1]); e 1491 src/dps8/dps8_eis.c switch (e -> TA [k - 1]) e 1513 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; e 1514 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; e 1517 src/dps8/dps8_eis.c k, e -> CN [k - 1]); e 1550 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? e 1551 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; e 1553 src/dps8/dps8_eis.c k, e -> CN [k - 1]); e 1577 src/dps8/dps8_eis.c e -> CN [k - 1] = effCHAR; // ?????? e 1578 src/dps8/dps8_eis.c e -> WN [k - 1] = effWORDNO; e 1580 src/dps8/dps8_eis.c k, e -> CN [k - 1]); e 1590 src/dps8/dps8_eis.c EISaddr * a = & e -> addr [k - 1]; e 1602 src/dps8/dps8_eis.c a -> TA = (int) e -> TA [k - 1]; e 1615 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1616 src/dps8/dps8_eis.c word36 opDesc = e -> op [k - 1]; e 1644 src/dps8/dps8_eis.c e -> addr [k - 1].SNR = cpu.PR[n].SNR; e 1645 src/dps8/dps8_eis.c e -> addr [k - 1].RNR = max3 (cpu.PR [n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1646 src/dps8/dps8_eis.c e -> addr [k - 1].mat = viaPR; e 1661 src/dps8/dps8_eis.c e -> addr [k - 1].address = y; e 1674 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1675 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; e 1679 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; e 1700 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; e 1701 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1703 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved e 1709 src/dps8/dps8_eis.c e->TN[k-1] = getbits36_1 (opDesc, 21); // type numeric e 1714 src/dps8/dps8_eis.c if (e->TN[0]) e 1721 src/dps8/dps8_eis.c e->S[k-1] = getbits36_2 (opDesc, 22); // Sign and decimal type of data e 1722 src/dps8/dps8_eis.c e->SF[k-1] = SIGNEXT6_int (getbits36_6 (opDesc, 24)); // Scaling factor. e 1733 src/dps8/dps8_eis.c e->N[k-1] = getMFReg18 (cpup,reg, false, false, mod_fault) & 077; // RL=1: disallow du,n,ic e 1736 src/dps8/dps8_eis.c e->N[k-1] = opDesc & 077; e 1738 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "parseNumericOperandDescriptor(cpup, ): N%u %0o\r\n", k, e->N[k-1]); e 1750 src/dps8/dps8_eis.c e 1774 src/dps8/dps8_eis.c switch (e->TN[k-1]) e 1795 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? e 1813 src/dps8/dps8_eis.c e->CN[k-1] = effCHAR; // ????? e 1822 src/dps8/dps8_eis.c e->TA[k-1]); e 1827 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; e 1838 src/dps8/dps8_eis.c a->TN = (int) e->TN[k-1]; e 1843 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1], a->cPos, a->bPos, k, e->N[k-1]); e 1847 src/dps8/dps8_eis.c a->address, a->cPos, a->bPos, k, e->N[k-1]); e 1860 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1861 src/dps8/dps8_eis.c word18 MFk = e->MF[k-1]; e 1862 src/dps8/dps8_eis.c word36 opDesc = e->op[k-1]; e 1894 src/dps8/dps8_eis.c e->addr[k-1].SNR = cpu.PR[n].SNR; e 1895 src/dps8/dps8_eis.c e->addr[k-1].RNR = max3(cpu.PR[n].RNR, cpu.TPR.TRR, cpu.PPR.PRR); e 1896 src/dps8/dps8_eis.c e->addr[k-1].mat = viaPR; // ARs involved e 1907 src/dps8/dps8_eis.c e->N[k-1] = getMFReg36(cpup, reg, false, false, mod_fault) & 077777777; // RL=1: disallow du,n,ic e 1908 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 1912 src/dps8/dps8_eis.c e ->N[k-1] = opDesc & 07777; e 1916 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "N%u %u\r\n", k, e->N[k-1]); e 1942 src/dps8/dps8_eis.c e->B[k-1] = effBITNO; e 1943 src/dps8/dps8_eis.c e->C[k-1] = effCHAR; e 1945 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; e 1958 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 1959 src/dps8/dps8_eis.c if (e -> addr [k - 1].cacheValid && e -> addr [k - 1].cacheDirty) e 1961 src/dps8/dps8_eis.c EISWriteCache(cpup, & e -> addr [k - 1]); e 1963 src/dps8/dps8_eis.c e -> addr [k - 1].cacheDirty = false; e 3099 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3149 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3160 src/dps8/dps8_eis.c e 3179 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 3182 src/dps8/dps8_eis.c for (; cpu.du.CHTALLY < min (e->N1, e->N2); cpu.du.CHTALLY ++) e 3184 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA1)); e 3198 src/dps8/dps8_eis.c if (e -> N1 < e -> N2) e 3200 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY ++) e 3202 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA1)); e 3216 src/dps8/dps8_eis.c else if (e->N1 > e->N2) e 3218 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e->N1; cpu.du.CHTALLY ++) e 3220 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA1)); e 3245 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3293 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3297 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3323 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3329 src/dps8/dps8_eis.c switch (e -> TA1) // Use TA1, not TA2 e 3337 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 13) & 017; e 3338 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 9) & 017; e 3347 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 12) & 077; e 3348 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 6) & 077; e 3357 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 9) & 0777; e 3358 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address ) & 0777; e 3372 src/dps8/dps8_eis.c switch (e -> TA1) // Use TA1, not TA2 e 3391 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3404 src/dps8/dps8_eis.c e -> N1 = cpu.du.CHTALLY + cpu.du.D1_RES; e 3405 src/dps8/dps8_eis.c if (e -> N1) e 3407 src/dps8/dps8_eis.c uint limit = e -> N1 - 1; e 3411 src/dps8/dps8_eis.c cpu.du.D1_RES = (e -> N1 - cpu.du.CHTALLY) & MASK24; e 3427 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 3440 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3488 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3492 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3518 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3524 src/dps8/dps8_eis.c switch (e -> TA1) e 3532 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 13) & 017; e 3533 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 9) & 017; e 3542 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 12) & 077; e 3543 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address >> 6) & 077; e 3552 src/dps8/dps8_eis.c c1 = (e -> ADDR2.address >> 9) & 0777; e 3553 src/dps8/dps8_eis.c c2 = (e -> ADDR2.address ) & 0777; e 3567 src/dps8/dps8_eis.c switch (e -> TA1) // Use TA1, not TA2 e 3589 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3592 src/dps8/dps8_eis.c if (e -> N1) e 3594 src/dps8/dps8_eis.c uint limit = e -> N1 - 1; e 3614 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 3627 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3688 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3692 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3719 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3721 src/dps8/dps8_eis.c word18 duo = GETHI (e -> OP2); e 3726 src/dps8/dps8_eis.c switch (e -> TA1) e 3748 src/dps8/dps8_eis.c switch (e -> TA1) // use TA1, not TA2 e 3761 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3764 src/dps8/dps8_eis.c uint limit = e -> N1; e 3784 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 3796 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 3857 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 3865 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 3892 src/dps8/dps8_eis.c if (! (e -> MF2 & MFkID) && ((e -> MF2 & MFkREGMASK) == 3)) // MF2.du e 3894 src/dps8/dps8_eis.c word18 duo = GETHI (e -> OP2); e 3899 src/dps8/dps8_eis.c switch (e -> TA1) e 3921 src/dps8/dps8_eis.c switch (e -> TA1) // use TA1, not TA2 e 3934 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 3937 src/dps8/dps8_eis.c uint limit = e -> N1; e 3956 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 4009 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4059 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4063 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000777660) e 4067 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 4082 src/dps8/dps8_eis.c "TCT CN1: %d TA1: %d\r\n", e -> CN1, TA1); e 4085 src/dps8/dps8_eis.c "TCT CN1: %d TA1: %d\r\n", e -> CN1, e -> TA1); e 4093 src/dps8/dps8_eis.c switch (e -> TA1) e 4126 src/dps8/dps8_eis.c e 4143 src/dps8/dps8_eis.c e 4149 src/dps8/dps8_eis.c "TCT N1 %d\r\n", e -> N1); e 4151 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 4154 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N1; cpu.du.CHTALLY ++) e 4174 src/dps8/dps8_eis.c word9 cout = xlate (cpup, &e->ADDR2, CTA9, m); e 4189 src/dps8/dps8_eis.c SC_I_TALLY (cpu.du.CHTALLY == e -> N1); e 4193 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 4202 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4255 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4259 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000777660) e 4263 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777660) e 4278 src/dps8/dps8_eis.c "TCTR CN1: %d TA1: %d\r\n", e -> CN1, TA1); e 4281 src/dps8/dps8_eis.c "TCTR CN1: %d TA1: %d\r\n", e -> CN1, e -> TA1); e 4289 src/dps8/dps8_eis.c switch (e -> TA1) e 4322 src/dps8/dps8_eis.c e 4339 src/dps8/dps8_eis.c e 4345 src/dps8/dps8_eis.c "TCT N1 %d\r\n", e -> N1); e 4347 src/dps8/dps8_eis.c PNL (L68_ (if (e->N1 < 128) e 4350 src/dps8/dps8_eis.c uint limit = e -> N1; e 4371 src/dps8/dps8_eis.c word9 cout = xlate (cpup, &e->ADDR2, CTA9, m); e 4386 src/dps8/dps8_eis.c SC_I_TALLY (cpu.du.CHTALLY == e -> N1); e 4390 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR3, 0, CY3, true); e 4461 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4495 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4499 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000010000) e 4517 src/dps8/dps8_eis.c switch (e -> TA1) e 4534 src/dps8/dps8_eis.c switch (e -> TA2) e 4586 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 4590 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (TA1 == 1) && e 4593 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (e -> TA1 == 1) && e 4594 src/dps8/dps8_eis.c (e -> TA2 == 2); // (6-4 move) e 4604 src/dps8/dps8_eis.c cpu.du.CHTALLY, TA1, TA2, e -> N1, e -> N2, e -> CN1, e -> CN2); e 4608 src/dps8/dps8_eis.c cpu.du.CHTALLY, e -> TA1, e -> TA2, e -> N1, e -> N2, e -> CN1, e -> CN2); e 4628 src/dps8/dps8_eis.c e -> TA1 == CTA9 && // src and dst are both char 9 e 4629 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4631 src/dps8/dps8_eis.c (e -> N1 % (PGSZ * 4)) == 0 && // a page e 4632 src/dps8/dps8_eis.c e -> N2 == e -> N1 && // the src is the same size as the dest. e 4633 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4634 src/dps8/dps8_eis.c e -> CN2 == 0 && e 4639 src/dps8/dps8_eis.c (e -> ADDR1.address & PGMK) == 0 && e 4640 src/dps8/dps8_eis.c (e -> ADDR2.address & PGMK) == 0) e 4644 src/dps8/dps8_eis.c while (cpu.du.CHTALLY < e -> N1) e 4647 src/dps8/dps8_eis.c EISReadPage (cpup, & e -> ADDR1, cpu.du.CHTALLY / 4, pg); e 4648 src/dps8/dps8_eis.c EISWritePage (cpup, & e -> ADDR2, cpu.du.CHTALLY / 4, pg); e 4668 src/dps8/dps8_eis.c e -> TA1 == CTA9 && // src and dst are both char 9 e 4669 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4671 src/dps8/dps8_eis.c e -> N1 == 0 && // the source is entirely fill e 4672 src/dps8/dps8_eis.c (e -> N2 % (PGSZ * 4)) == 0 && // a page e 4673 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4674 src/dps8/dps8_eis.c e -> CN2 == 0 && e 4679 src/dps8/dps8_eis.c (e -> ADDR1.address & PGMK) == 0 && e 4680 src/dps8/dps8_eis.c (e -> ADDR2.address & PGMK) == 0) e 4695 src/dps8/dps8_eis.c while (cpu.du.CHTALLY < e -> N2) e 4697 src/dps8/dps8_eis.c EISWritePage (cpup, & e -> ADDR2, cpu.du.CHTALLY / 4, pg); e 4715 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 4716 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4718 src/dps8/dps8_eis.c e -> N1 % 4 == 0 && // a whole number of words in the src e 4719 src/dps8/dps8_eis.c e -> N2 == e -> N1 && // the src is the same size as the dest. e 4720 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4721 src/dps8/dps8_eis.c e -> CN2 == 0) e 4724 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2; cpu.du.CHTALLY += 4) e 4728 src/dps8/dps8_eis.c word36 w = EISReadIdx (cpup, & e -> ADDR1, n); e 4729 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 4746 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 4747 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 4749 src/dps8/dps8_eis.c e -> N1 == 0 && // the source is entirely fill e 4750 src/dps8/dps8_eis.c e -> N2 % 4 == 0 && // a whole number of words in the dest e 4751 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 4752 src/dps8/dps8_eis.c e -> CN2 == 0) e 4756 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2; cpu.du.CHTALLY += 4) e 4760 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 4770 src/dps8/dps8_eis.c uint tdPer = TDPER (e -> TA2); e 4771 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < min (e->N1, e->N2); cpu.du.CHTALLY ++) e 4780 src/dps8/dps8_eis.c if (e -> TA1 == e -> TA2) e 4820 src/dps8/dps8_eis.c if (ovp && (cpu.du.CHTALLY == e -> N1 - 1)) e 4836 src/dps8/dps8_eis.c if (e -> N1 < e -> N2) e 4838 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2 ; cpu.du.CHTALLY ++) e 4842 src/dps8/dps8_eis.c if (ovp && (cpu.du.CHTALLY == e -> N2 - 1)) e 4856 src/dps8/dps8_eis.c if (e -> N1 > e -> N2) e 4868 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 4902 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 4906 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000010000) e 4924 src/dps8/dps8_eis.c switch (e -> TA1) e 4941 src/dps8/dps8_eis.c switch (e -> TA2) e 4994 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (TA1 == 1) && e 4997 src/dps8/dps8_eis.c bool ovp = (e -> N1 < e -> N2) && (fill & 0400) && (e -> TA1 == 1) && e 4998 src/dps8/dps8_eis.c (e -> TA2 == 2); // (6-4 move) e 5004 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 5015 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 5016 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 5018 src/dps8/dps8_eis.c e -> N1 % 4 == 0 && // a whole number of words in the src e 5019 src/dps8/dps8_eis.c e -> N2 == e -> N1 && // the src is the same size as the dest. e 5020 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 5021 src/dps8/dps8_eis.c e -> CN2 == 0) e 5024 src/dps8/dps8_eis.c uint limit = e -> N2; e 5027 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5029 src/dps8/dps8_eis.c word36 w = EISReadIdx (cpup, & e -> ADDR1, n); e 5030 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 5047 src/dps8/dps8_eis.c if (e -> TA1 == CTA9 && // src and dst are both char 9 e 5048 src/dps8/dps8_eis.c e -> TA2 == CTA9 && e 5050 src/dps8/dps8_eis.c e -> N1 == 0 && // the source is entirely fill e 5051 src/dps8/dps8_eis.c e -> N2 % 4 == 0 && // a whole number of words in the dest e 5052 src/dps8/dps8_eis.c e -> CN1 == 0 && // and it starts at a word boundary // BITNO? e 5053 src/dps8/dps8_eis.c e -> CN2 == 0) e 5060 src/dps8/dps8_eis.c uint limit = e -> N2; e 5061 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2; cpu.du.CHTALLY += 4) e 5063 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5065 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); e 5075 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < min (e -> N1, e -> N2); cpu.du.CHTALLY ++) e 5077 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5078 src/dps8/dps8_eis.c word9 c = EISget469 (cpup, 1, e -> N1 - cpu.du.CHTALLY - 1); // get src char e 5084 src/dps8/dps8_eis.c if (e -> TA1 == e -> TA2) e 5086 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, c); e 5130 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, cout); e 5140 src/dps8/dps8_eis.c if (e -> N1 < e -> N2) e 5142 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < e -> N2 ; cpu.du.CHTALLY ++) e 5144 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 5146 src/dps8/dps8_eis.c if (ovp && (cpu.du.CHTALLY == e -> N2 - 1)) e 5149 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, 015); // 015 is decimal - e 5151 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, 014); // 014 is decimal + e 5155 src/dps8/dps8_eis.c EISput469 (cpup, 2, e -> N2 - cpu.du.CHTALLY - 1, fillT); e 5162 src/dps8/dps8_eis.c if (e -> N1 > e -> N2) e 5187 src/dps8/dps8_eis.c #define isDecimalZero(c) ((e->srcTA == CTA9) ? \ e 5200 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5202 src/dps8/dps8_eis.c word9 *p = e->inBuffer; // p points to position in inBuffer where 4-bit chars are stored e 5203 src/dps8/dps8_eis.c (void)memset(e->inBuffer, 0, sizeof(e->inBuffer)); // initialize to all 0's e 5205 src/dps8/dps8_eis.c int pos = (int) e->CN[k-1]; e 5207 src/dps8/dps8_eis.c int TN = (int) e->TN[k-1]; e 5208 src/dps8/dps8_eis.c int S = (int) e->S[k-1]; // This is where MVNE gets really nasty. e 5211 src/dps8/dps8_eis.c int N = (int) e->N[k-1]; // number of chars in src string e 5213 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; e 5215 src/dps8/dps8_eis.c e->sign = 1; e 5216 src/dps8/dps8_eis.c e->exponent = 0; e 5262 src/dps8/dps8_eis.c e->sign = -1; e 5264 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5268 src/dps8/dps8_eis.c e->exponent = (signed char)(c & 0377); // want to do a sign extend e 5269 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5273 src/dps8/dps8_eis.c e->exponent = (c & 0xf);// << 4; e 5274 src/dps8/dps8_eis.c e->exponent <<= 4; e 5275 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5279 src/dps8/dps8_eis.c e->exponent |= (c & 0xf); e 5281 src/dps8/dps8_eis.c signed char ce = (signed char) (e->exponent & 0xff); e 5282 src/dps8/dps8_eis.c e->exponent = ce; e 5284 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5308 src/dps8/dps8_eis.c e->sign = -1; e 5309 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5327 src/dps8/dps8_eis.c e->sign = -1; e 5328 src/dps8/dps8_eis.c e->srcTally -= 1; // 1 less source char e 5348 src/dps8/dps8_eis.c for (word9 *q = e->inBuffer; q < p; q ++) e 5363 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5365 src/dps8/dps8_eis.c word9 * p = e -> inBuffer; e 5366 src/dps8/dps8_eis.c (void)memset (e -> inBuffer, 0, sizeof (e -> inBuffer)); // initialize to all 0's e 5374 src/dps8/dps8_eis.c uint N = min (e-> N1, 63); e 5385 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5387 src/dps8/dps8_eis.c for (uint n = 0 ; n < (uint) e -> dstTally; n ++) e 5389 src/dps8/dps8_eis.c word9 c49 = e -> outBuffer [n]; e 5396 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5405 src/dps8/dps8_eis.c if (e -> mvne) e 5420 src/dps8/dps8_eis.c ** dstAddr = c49 | (e -> editInsertionTable [7] & 0760); e 5472 src/dps8/dps8_eis.c e->dstTally -= 1; e 5515 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5516 src/dps8/dps8_eis.c (void)memset(&e->editInsertionTable, 0, sizeof(e->editInsertionTable)); // XXX do we really need this? e 5519 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5521 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5525 src/dps8/dps8_eis.c word9 entry = EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); // get mop table entries e 5527 src/dps8/dps8_eis.c word9 entry = EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); // get mop table entries e 5529 src/dps8/dps8_eis.c e->editInsertionTable[i] = entry & 0777; // keep to 9-bits e 5530 src/dps8/dps8_eis.c e->mopTally -= 1; e 5559 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5561 src/dps8/dps8_eis.c if (!(e->mopIF & 010)) e 5564 src/dps8/dps8_eis.c if (!e->mopES && !e->mopSN) e 5566 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[2]); e 5567 src/dps8/dps8_eis.c e->mopES = true; e 5570 src/dps8/dps8_eis.c if (!e->mopES && e->mopSN) e 5572 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[3]); e 5573 src/dps8/dps8_eis.c e->mopES = true; e 5577 src/dps8/dps8_eis.c if (!e->mopES) e 5580 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[4]); e 5581 src/dps8/dps8_eis.c e->mopES = true; e 5587 src/dps8/dps8_eis.c if (e->mopIF & 04) e 5588 src/dps8/dps8_eis.c e->mopBZ = true; e 5605 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5608 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5609 src/dps8/dps8_eis.c e->mopIF = 16; e 5611 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 5613 src/dps8/dps8_eis.c if (e->dstTally == 0) e 5615 src/dps8/dps8_eis.c if (e->srcTally == 0) e 5618 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5622 src/dps8/dps8_eis.c e->srcTally -= 1; e 5623 src/dps8/dps8_eis.c e->in += 1; e 5639 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5641 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5643 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5652 src/dps8/dps8_eis.c if (!e->mopES) e 5654 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[1]); e 5656 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5658 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5660 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5664 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5666 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5668 src/dps8/dps8_eis.c e->mopTally -= 1; e 5676 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5678 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5680 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5684 src/dps8/dps8_eis.c word9 c = EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5686 src/dps8/dps8_eis.c word9 c = EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5688 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, c); e 5689 src/dps8/dps8_eis.c e->mopTally -= 1; e 5695 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF-1]); e 5702 src/dps8/dps8_eis.c e 5707 src/dps8/dps8_eis.c e 5709 src/dps8/dps8_eis.c e 5712 src/dps8/dps8_eis.c e 5714 src/dps8/dps8_eis.c e 5716 src/dps8/dps8_eis.c e 5723 src/dps8/dps8_eis.c e 5725 src/dps8/dps8_eis.c e 5727 src/dps8/dps8_eis.c e 5730 src/dps8/dps8_eis.c e 5732 src/dps8/dps8_eis.c e 5735 src/dps8/dps8_eis.c e 5741 src/dps8/dps8_eis.c e 5743 src/dps8/dps8_eis.c e 5770 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5772 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5774 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5778 src/dps8/dps8_eis.c if (!e->mopES) e 5783 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5785 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5787 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5789 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5793 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5795 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5797 src/dps8/dps8_eis.c e->mopTally -= 1; e 5804 src/dps8/dps8_eis.c if (e->mopIF) e 5809 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF - 1]); e 5814 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5816 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5820 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9)); e 5823 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, e->mopAddress, &e->mopPos, CTN9)); e 5826 src/dps8/dps8_eis.c e->mopTally -= 1; e 5845 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5846 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5847 src/dps8/dps8_eis.c e->mopIF = 16; e 5848 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 5850 src/dps8/dps8_eis.c if (e->dstTally == 0) e 5852 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5876 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5878 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5880 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5888 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5890 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5892 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5895 src/dps8/dps8_eis.c if (!e->mopSN) e 5901 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5903 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5905 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5906 src/dps8/dps8_eis.c e->mopTally -= 1; e 5912 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9)); e 5914 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, e->mopAddress, &e->mopPos, CTN9)); e 5917 src/dps8/dps8_eis.c e->mopTally -= 1; e 5922 src/dps8/dps8_eis.c if (e->mopSN) e 5926 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF - 1]); e 5928 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5945 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 5947 src/dps8/dps8_eis.c if (e->mopIF >= 9 /* && e->mopIF <= 15 */) e 5949 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5953 src/dps8/dps8_eis.c if (e->mopIF == 0) e 5955 src/dps8/dps8_eis.c if (e->mopTally == 0) e 5957 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 5960 src/dps8/dps8_eis.c if (e->mopSN) e 5963 src/dps8/dps8_eis.c EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 5965 src/dps8/dps8_eis.c EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 5967 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 5968 src/dps8/dps8_eis.c e->mopTally -= 1; e 5971 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9)); e 5973 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, EISget49(cpup, e->mopAddress, &e->mopPos, CTN9)); e 5975 src/dps8/dps8_eis.c e->mopTally -= 1; e 5980 src/dps8/dps8_eis.c if (!e->mopSN) e 5982 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[e->mopIF - 1]); e 5984 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6003 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6004 src/dps8/dps8_eis.c if (e->mopIF == 0 || (e->mopIF >= 9 && e->mopIF <= 15)) e 6006 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 6009 src/dps8/dps8_eis.c if (e->mopTally == 0) e 6011 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 6015 src/dps8/dps8_eis.c word9 next = EISget49(cpup, &e->ADDR2, &e->mopPos, CTN9); e 6017 src/dps8/dps8_eis.c word9 next = EISget49(cpup, e->mopAddress, &e->mopPos, CTN9); e 6019 src/dps8/dps8_eis.c e->mopTally -= 1; e 6022 src/dps8/dps8_eis.c if (e->mopIF - 1 >= 0 && e 6023 src/dps8/dps8_eis.c e->mopIF - 1 < sizeof(e->editInsertionTable) / sizeof(e->editInsertionTable[0])) { e 6024 src/dps8/dps8_eis.c e->editInsertionTable[e->mopIF - 1] = next; e 6026 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 6027 src/dps8/dps8_eis.c sim_warn("mopIF %d OOB in %s!\r\n", e->mopIF, __func__); e 6030 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "LTE IT[%d]<=%d\r\n", e -> mopIF - 1, next); e 6074 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6075 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6076 src/dps8/dps8_eis.c e->mopIF = 16; e 6081 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 6082 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6084 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 6085 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6087 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6095 src/dps8/dps8_eis.c word9 c = *(e->in); e 6097 src/dps8/dps8_eis.c if (!e->mopES) { // e->mopES is OFF e 6104 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6105 src/dps8/dps8_eis.c e->in += 1; e 6106 src/dps8/dps8_eis.c e->srcTally -= 1; e 6112 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[4]); e 6114 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6115 src/dps8/dps8_eis.c e->mopZ = false; // iszero() tested above. e 6116 src/dps8/dps8_eis.c e->in += 1; e 6117 src/dps8/dps8_eis.c e->srcTally -= 1; e 6119 src/dps8/dps8_eis.c e->mopES = true; e 6124 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6127 src/dps8/dps8_eis.c e->mopZ = false; e 6128 src/dps8/dps8_eis.c e->in += 1; e 6129 src/dps8/dps8_eis.c e->srcTally -= 1; e 6180 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6181 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6182 src/dps8/dps8_eis.c e->mopIF = 16; e 6184 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF; n += 1) e 6186 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6188 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6191 src/dps8/dps8_eis.c word9 c = *(e->in); e 6193 src/dps8/dps8_eis.c if (!e->mopES) { // e->mopES is OFF e 6201 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6202 src/dps8/dps8_eis.c e->in += 1; e 6203 src/dps8/dps8_eis.c e->srcTally -= 1; e 6206 src/dps8/dps8_eis.c if (!e->mopSN) e 6215 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[2]); e 6217 src/dps8/dps8_eis.c e->in += 1; e 6218 src/dps8/dps8_eis.c e->srcTally -= 1; e 6219 src/dps8/dps8_eis.c e->mopZ = false; // iszero tested above e 6221 src/dps8/dps8_eis.c e 6223 src/dps8/dps8_eis.c e 6228 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6230 src/dps8/dps8_eis.c e->mopES = true; e 6239 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[3]); e 6241 src/dps8/dps8_eis.c e->in += 1; e 6242 src/dps8/dps8_eis.c e->srcTally -= 1; e 6243 src/dps8/dps8_eis.c e->mopZ = false; // iszero tested above e 6245 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6247 src/dps8/dps8_eis.c e->mopES = true; e 6253 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6256 src/dps8/dps8_eis.c e->mopZ = false; e 6257 src/dps8/dps8_eis.c e->in += 1; e 6258 src/dps8/dps8_eis.c e->srcTally -= 1; e 6290 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6291 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6292 src/dps8/dps8_eis.c e->mopIF = 16; e 6294 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 6295 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6302 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6304 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6308 src/dps8/dps8_eis.c word9 c = (*e->in | (!e->mopSN ? e->editInsertionTable[2] : e->editInsertionTable[3])); e 6309 src/dps8/dps8_eis.c if (! isDecimalZero (*e->in)) e 6310 src/dps8/dps8_eis.c e->mopZ = false; e 6311 src/dps8/dps8_eis.c e->in += 1; e 6312 src/dps8/dps8_eis.c e->srcTally -= 1; e 6314 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6332 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6333 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6334 src/dps8/dps8_eis.c e->mopIF = 16; e 6336 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MVC mopIF %d\r\n", e->mopIF); e 6338 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6340 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 6343 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6345 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6348 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MVC write to output buffer %o\r\n", *e->in); e 6349 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, *e->in); e 6350 src/dps8/dps8_eis.c if (! isDecimalZero (*e->in)) e 6351 src/dps8/dps8_eis.c e->mopZ = false; e 6352 src/dps8/dps8_eis.c e->in += 1; e 6354 src/dps8/dps8_eis.c e->srcTally -= 1; e 6389 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6390 src/dps8/dps8_eis.c if (e->mvne == true) e 6393 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6394 src/dps8/dps8_eis.c e->mopIF = 16; e 6398 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6400 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6402 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6417 src/dps8/dps8_eis.c word9 c = *(e->in); e 6420 src/dps8/dps8_eis.c if (c & e->editInsertionTable[2]) // XXX only lower 4-bits are considered e 6423 src/dps8/dps8_eis.c else if (c & e->editInsertionTable[3]) // XXX only lower 4-bits are considered e 6425 src/dps8/dps8_eis.c e->mopSN = true; e 6430 src/dps8/dps8_eis.c e->in += 1; e 6431 src/dps8/dps8_eis.c e->srcTally -= 1; // XXX is this correct? No chars have been consumed, but ...... e 6433 src/dps8/dps8_eis.c e->mopZ = false; e 6434 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6452 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6453 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6454 src/dps8/dps8_eis.c e->mopIF = 16; e 6456 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6458 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6460 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6463 src/dps8/dps8_eis.c word9 c = *e->in; e 6464 src/dps8/dps8_eis.c e->in += 1; e 6465 src/dps8/dps8_eis.c e->srcTally -= 1; e 6469 src/dps8/dps8_eis.c if (!e->mopES && isDecimalZero (c)) e 6474 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[1]); e 6478 src/dps8/dps8_eis.c else if ((! e->mopES) && (! isDecimalZero (c))) e 6482 src/dps8/dps8_eis.c e->mopZ = false; e 6483 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6485 src/dps8/dps8_eis.c e->mopES = true; e 6486 src/dps8/dps8_eis.c } else if (e->mopES) e 6490 src/dps8/dps8_eis.c e->mopZ = false; e 6491 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6518 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6519 src/dps8/dps8_eis.c if (e->mopIF == 0) e 6520 src/dps8/dps8_eis.c e->mopIF = 16; e 6522 src/dps8/dps8_eis.c for(int n = 0 ; n < e->mopIF ; n += 1) e 6524 src/dps8/dps8_eis.c if (e->dstTally == 0) e 6526 src/dps8/dps8_eis.c if (e->srcTally == 0) e 6529 src/dps8/dps8_eis.c word9 c = *e->in; e 6530 src/dps8/dps8_eis.c e->srcTally -= 1; e 6531 src/dps8/dps8_eis.c e->in += 1; e 6535 src/dps8/dps8_eis.c if ((!e->mopES) && isDecimalZero (c)) e 6540 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6544 src/dps8/dps8_eis.c if ((! e->mopES) && (! isDecimalZero (c))) e 6548 src/dps8/dps8_eis.c e->mopZ = false; e 6549 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6551 src/dps8/dps8_eis.c e->mopES = true; e 6552 src/dps8/dps8_eis.c } else if (e->mopES) e 6556 src/dps8/dps8_eis.c e->mopZ = false; e 6557 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, e->srcSZ, e->dstSZ, c); e 6579 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6580 src/dps8/dps8_eis.c if (e->mopIF & 010) e 6581 src/dps8/dps8_eis.c e->mopES = true; e 6583 src/dps8/dps8_eis.c e->mopES = false; e 6585 src/dps8/dps8_eis.c if (e->mopIF & 04) e 6586 src/dps8/dps8_eis.c e->mopBZ = true; e 6644 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6648 src/dps8/dps8_eis.c if (e == NULL) //-V547 e 6656 src/dps8/dps8_eis.c EISaddr *p = &e->ADDR2; e 6658 src/dps8/dps8_eis.c EISaddr *p = e->mopAddress; e 6664 src/dps8/dps8_eis.c if (e->mopPos > 3) // overflows to next word? e 6666 src/dps8/dps8_eis.c e->mopPos = 0; // reset to 1st byte e 6669 src/dps8/dps8_eis.c p->data = EISRead(cpup, &e->ADDR2); // read it from memory e 6672 src/dps8/dps8_eis.c PNL (p->data = EISRead(cpup, e->mopAddress)); // read it from memory e 6675 src/dps8/dps8_eis.c p->data = EISRead(cpup, e->mopAddress); // read it from memory e 6677 src/dps8/dps8_eis.c e->mopAddress->address = (e->mopAddress->address + 1) & AMASK; // bump source to next address e 6678 src/dps8/dps8_eis.c p->data = EISRead(cpup, e->mopAddress); // read it from memory e 6683 src/dps8/dps8_eis.c word9 mop9 = (word9) get9 (p -> data, e -> mopPos); // get 9-bit mop e 6685 src/dps8/dps8_eis.c e->mopIF = mop9 & 0xf; e 6688 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MOP %s(%o) %o\r\n", m -> mopName, mop, e->mopIF); e 6689 src/dps8/dps8_eis.c e->m = m; e 6690 src/dps8/dps8_eis.c if (e->m == NULL || e->m->f == NULL) //-V560 e 6692 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 6696 src/dps8/dps8_eis.c e->mopPos += 1; e 6697 src/dps8/dps8_eis.c e->mopTally -= 1; e 6710 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6713 src/dps8/dps8_eis.c e->mopTally = (int) e->N[KMOP]; // number of micro-ops e 6714 src/dps8/dps8_eis.c e->mopPos = (int) e->CN[KMOP]; // starting at char pos CN e 6716 src/dps8/dps8_eis.c e->mopAddress = &e->addr[kMop-1]; e 6717 src/dps8/dps8_eis.c e->mopTally = (int) e->N[kMop-1]; // number of micro-ops e 6718 src/dps8/dps8_eis.c e->mopPos = (int) e->CN[kMop-1]; // starting at char pos CN e 6721 src/dps8/dps8_eis.c word9 *p9 = e->editInsertionTable; // re-initialize edit insertion table e 6726 src/dps8/dps8_eis.c e->in = e->inBuffer; // reset input buffer pointer e 6727 src/dps8/dps8_eis.c e->out = e->outBuffer; // reset output buffer pointer e 6729 src/dps8/dps8_eis.c e->_faults = 0; // No faults (yet!) e 6738 src/dps8/dps8_eis.c while (e->dstTally) e 6742 src/dps8/dps8_eis.c e->srcTally, e->dstTally, e->mopTally); e 6747 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; // XXX ill proc fault e 6753 src/dps8/dps8_eis.c if (e->_faults & FAULT_IPR) //-V547 e 6769 src/dps8/dps8_eis.c e 6775 src/dps8/dps8_eis.c if (e->mopTally == 0 || mres) e 6780 src/dps8/dps8_eis.c if (e->mopZ && e->mopBZ) e 6782 src/dps8/dps8_eis.c e->out = e->outBuffer; //-V1048 // reset output buffer pointer e 6783 src/dps8/dps8_eis.c e->dstTally = (int) e->N3; // number of chars in dst (max 63) e 6784 src/dps8/dps8_eis.c while (e->dstTally) e 6786 src/dps8/dps8_eis.c writeToOutputBuffer(cpup, &e->out, 9, e->dstSZ, e->editInsertionTable[0]); e 6789 src/dps8/dps8_eis.c else if (mres || e->dstTally) //-V560 e 6791 src/dps8/dps8_eis.c e->_faults |= FAULT_IPR; e 6798 src/dps8/dps8_eis.c e->_faults, e->srcTally, e->dstTally, e->mopTally); e 6813 src/dps8/dps8_eis.c e 6817 src/dps8/dps8_eis.c e 6818 src/dps8/dps8_eis.c e 6823 src/dps8/dps8_eis.c e 6825 src/dps8/dps8_eis.c e 6831 src/dps8/dps8_eis.c e 6833 src/dps8/dps8_eis.c e 6834 src/dps8/dps8_eis.c e 6840 src/dps8/dps8_eis.c e 6842 src/dps8/dps8_eis.c e 6846 src/dps8/dps8_eis.c if (e -> _faults) e 6852 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 6884 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 6889 src/dps8/dps8_eis.c e 6893 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000010000) e 6897 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000010000) e 6911 src/dps8/dps8_eis.c e->mopES = false; // End Suppression flag e 6912 src/dps8/dps8_eis.c e->mopSN = false; // Sign flag e 6913 src/dps8/dps8_eis.c e->mopBZ = false; // Blank-when-zero flag e 6914 src/dps8/dps8_eis.c e->mopZ = true; // Zero flag e 6916 src/dps8/dps8_eis.c e->srcTally = (int) e->N1; // number of chars in src (max 63) e 6917 src/dps8/dps8_eis.c e->dstTally = (int) e->N3; // number of chars in dst (max 63) e 6920 src/dps8/dps8_eis.c e->srcTA = (int) TA1; // type of chars in src e 6922 src/dps8/dps8_eis.c e->srcTA = (int) e->TA1; // type of chars in src e 6925 src/dps8/dps8_eis.c switch (e -> srcTA) e 6928 src/dps8/dps8_eis.c e -> srcSZ = 4; e 6931 src/dps8/dps8_eis.c e -> srcSZ = 6; e 6934 src/dps8/dps8_eis.c e -> srcSZ = 9; e 6941 src/dps8/dps8_eis.c uint dstTA = e -> TA3; // type of chars in dst e 6947 src/dps8/dps8_eis.c e -> dstSZ = 4; e 6950 src/dps8/dps8_eis.c e -> dstSZ = 6; e 6953 src/dps8/dps8_eis.c e -> dstSZ = 9; e 6961 src/dps8/dps8_eis.c e -> mvne = false; e 6969 src/dps8/dps8_eis.c e -> dstTally = (int) e -> N3; // restore dstTally for output e 6979 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 7014 src/dps8/dps8_eis.c e 7018 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000070000) e 7023 src/dps8/dps8_eis.c e 7027 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000010000) e 7040 src/dps8/dps8_eis.c uint srcTN = e -> TN1; // type of chars in src e 7054 src/dps8/dps8_eis.c switch(e->S1) e 7057 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 7066 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 7070 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 7080 src/dps8/dps8_eis.c if (e->N[1] == 0) e 7085 src/dps8/dps8_eis.c if (e->N[2] == 0) e 7103 src/dps8/dps8_eis.c e->mopES = false; // End Suppression flag e 7104 src/dps8/dps8_eis.c e->mopSN = false; // Sign flag e 7105 src/dps8/dps8_eis.c e->mopBZ = false; // Blank-when-zero flag e 7106 src/dps8/dps8_eis.c e->mopZ = true; // Zero flag e 7108 src/dps8/dps8_eis.c e -> srcTally = (int) e -> N1; // number of chars in src (max 63) e 7109 src/dps8/dps8_eis.c e -> dstTally = (int) e -> N3; // number of chars in dst (max 63) e 7115 src/dps8/dps8_eis.c e->srcTA = CTA4; // type of chars in src e 7121 src/dps8/dps8_eis.c e->srcSZ = 4; //-V1037 // stored as 4-bit decimals e 7125 src/dps8/dps8_eis.c e->srcSZ = 4; //-V1037 // 'cause everything is stored as 4-bit decimals e 7132 src/dps8/dps8_eis.c uint dstTA = e->TA3; // type of chars in dst e 7138 src/dps8/dps8_eis.c e->dstSZ = 4; e 7142 src/dps8/dps8_eis.c e->dstSZ = 6; e 7146 src/dps8/dps8_eis.c e->dstSZ = 9; e 7153 src/dps8/dps8_eis.c e->N1, e->N2, e->N3, e->TN1, e->CN1, TA3, e->CN3); e 7157 src/dps8/dps8_eis.c e->N1, e->N2, e->N3, e->TN1, e->CN1, e->TA3, e->CN3); e 7173 src/dps8/dps8_eis.c for(int n = 0 ; n < e -> srcTally ; n ++) e 7174 src/dps8/dps8_eis.c sum += e -> inBuffer [n]; e 7175 src/dps8/dps8_eis.c if ((e -> sign == -1) && sum) e 7176 src/dps8/dps8_eis.c e -> mopSN = true; e 7179 src/dps8/dps8_eis.c e -> mvne = true; e 7187 src/dps8/dps8_eis.c e -> dstTally = (int) e -> N3; // restore dstTally for output e 7201 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 7253 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000010000) e 7259 src/dps8/dps8_eis.c e 7264 src/dps8/dps8_eis.c if (!(e->MF[2] & MFkID) && e -> op [2] & 0000000777600) e 7278 src/dps8/dps8_eis.c e->srcTA = (int) TA1; e 7283 src/dps8/dps8_eis.c e->srcTA = (int) e->TA1; e 7284 src/dps8/dps8_eis.c uint dstTA = e->TA2; e 7286 src/dps8/dps8_eis.c switch (e -> TA1) e 7290 src/dps8/dps8_eis.c e -> srcSZ = 4; e 7293 src/dps8/dps8_eis.c e -> srcSZ = 6; e 7296 src/dps8/dps8_eis.c e -> srcSZ = 9; e 7303 src/dps8/dps8_eis.c switch (e -> TA2) e 7307 src/dps8/dps8_eis.c e -> dstSZ = 4; e 7310 src/dps8/dps8_eis.c e -> dstSZ = 6; e 7313 src/dps8/dps8_eis.c e -> dstSZ = 9; e 7334 src/dps8/dps8_eis.c switch(e->TA1) e 7353 src/dps8/dps8_eis.c e 7358 src/dps8/dps8_eis.c int lastpageidx = ((int)e->N1 + (int)e->CN1 -1) / e->srcSZ; e 7360 src/dps8/dps8_eis.c EISReadIdx(cpup, &e->ADDR1, (uint)lastpageidx); e 7364 src/dps8/dps8_eis.c EISReadIdx(cpup, &e->ADDR3, 0); e 7365 src/dps8/dps8_eis.c EISReadIdx(cpup, &e->ADDR3, xlatSize-1); e 7373 src/dps8/dps8_eis.c switch(e->srcSZ) e 7385 src/dps8/dps8_eis.c __func__, e -> CN1, e -> CN2, e -> srcSZ, e -> dstSZ, T, e 7386 src/dps8/dps8_eis.c fill, fillT, e -> N1, e -> N2); e 7388 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 7391 src/dps8/dps8_eis.c for ( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY ++) e 7393 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 7400 src/dps8/dps8_eis.c if (e->TA1 == e->TA2) e 7402 src/dps8/dps8_eis.c EISput469(cpup, 2, cpu.du.CHTALLY, xlate (cpup, &e->ADDR3, dstTA, c)); e 7410 src/dps8/dps8_eis.c word9 cout = xlate(cpup, &e->ADDR3, dstTA, (uint) cidx); e 7422 src/dps8/dps8_eis.c switch (e->srcSZ) e 7425 src/dps8/dps8_eis.c switch(e->dstSZ) e 7435 src/dps8/dps8_eis.c switch(e->dstSZ) e 7455 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 7463 src/dps8/dps8_eis.c word9 cfill = xlate(cpup, &e->ADDR3, dstTA, fill); e 7464 src/dps8/dps8_eis.c switch (e->srcSZ) e 7467 src/dps8/dps8_eis.c switch(e->dstSZ) e 7477 src/dps8/dps8_eis.c switch(e->dstSZ) e 7489 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < e->N2 ; cpu.du.CHTALLY ++) e 7491 src/dps8/dps8_eis.c tandd_eis_sample (cpup, cpu.du.CHTALLY, TDPER (e -> TA2)); e 7500 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 7516 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 7558 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 7572 src/dps8/dps8_eis.c switch(e->S1) e 7575 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 7585 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 7586 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7590 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 7591 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7598 src/dps8/dps8_eis.c switch(e->S2) e 7601 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 7602 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 7611 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 7612 src/dps8/dps8_eis.c sc2 = -e->SF2; e 7616 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 7617 src/dps8/dps8_eis.c sc2 = -e->SF2; e 7634 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 7635 src/dps8/dps8_eis.c if (e->sign == -1) e 7637 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 7638 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 7642 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 7643 src/dps8/dps8_eis.c if (e->sign == -1) e 7645 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 7646 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 7826 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 7864 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character e 7871 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 7873 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 7874 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 7878 src/dps8/dps8_eis.c e->TN1, e->CN1, e->N1, e->TN2, e->CN2, e->N2); e 7881 src/dps8/dps8_eis.c e->SF1, e->SF2); e 7884 src/dps8/dps8_eis.c e->OP1, e->OP2); e 7898 src/dps8/dps8_eis.c switch(e->S1) e 7901 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 7911 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 7912 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7916 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 7917 src/dps8/dps8_eis.c sc1 = -e->SF1; e 7932 src/dps8/dps8_eis.c switch(e->S2) e 7935 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 7944 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 7948 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 7965 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber (e->inBuffer, n1, sc1, &_1); e 7967 src/dps8/dps8_eis.c if (e->sign == -1) e 7969 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 7970 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 7982 src/dps8/dps8_eis.c char * res = formatDecimal (out, & set, op1, n2, (int) e->S2, e->SF2, R, e 7993 src/dps8/dps8_eis.c switch(e->S2) e 8003 src/dps8/dps8_eis.c if (e->P) e 8005 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8010 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8015 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8032 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8036 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, (word9) res[i]); e 8041 src/dps8/dps8_eis.c switch(e->S2) e 8050 src/dps8/dps8_eis.c if (e->P) e 8052 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8057 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8063 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8075 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8077 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8081 src/dps8/dps8_eis.c EISwrite49 (cpup, & e->ADDR2, & pos, (int) dstTN, e 8093 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 8144 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8231 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8232 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8234 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8235 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8246 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8255 src/dps8/dps8_eis.c e -> N1, e -> N2, e 8256 src/dps8/dps8_eis.c e -> C1, e -> C2, e -> B1, e -> B2, F, T, e 8258 src/dps8/dps8_eis.c e -> addr [0].SNR, e -> addr [0].address, e 8259 src/dps8/dps8_eis.c e -> addr [0].cPos, e -> addr [0].bPos, e 8260 src/dps8/dps8_eis.c e -> addr [1].SNR, e -> addr [1].address, e 8261 src/dps8/dps8_eis.c e -> addr [1].cPos, e -> addr [1].bPos); e 8266 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8269 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY += 1) e 8272 src/dps8/dps8_eis.c bool b1 = EISgetBitRWN(cpup, &e->ADDR1, true); e 8273 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8274 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN(cpup, &e->ADDR2, true); e 8285 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; // set bit contents to write e 8286 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; // we want to write the bit e 8289 src/dps8/dps8_eis.c EISgetBitRWN(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 35); // write bit w/ addr increment to memory e 8292 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8294 src/dps8/dps8_eis.c for(; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8299 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8300 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN(cpup, &e->ADDR2, true); e 8311 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; e 8312 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; e 8315 src/dps8/dps8_eis.c EISgetBitRWN(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 35); // write bit w/ addr increment to memory e 8319 src/dps8/dps8_eis.c EISWriteCache (cpup, &e->ADDR2); e 8325 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 8432 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8501 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8502 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8504 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8505 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8510 src/dps8/dps8_eis.c getBitOffsets((int) e->N1, (int) e->C1, (int) e->B1, &numWords1, &e->ADDR1.cPos, &e->ADDR1.bPos); e 8517 src/dps8/dps8_eis.c e->ADDR1.address += (word18) numWords1; e 8522 src/dps8/dps8_eis.c e->N1, e->C1, e->B1, numWords1, e->ADDR1.cPos, e->ADDR1.bPos); e 8523 src/dps8/dps8_eis.c getBitOffsets((int) e->N2, (int) e->C2, (int) e->B2, &numWords2, &e->ADDR2.cPos, &e->ADDR2.bPos); e 8526 src/dps8/dps8_eis.c e->N2, e->C2, e->B2, numWords2, e->ADDR2.cPos, e->ADDR2.bPos); e 8533 src/dps8/dps8_eis.c e->ADDR2.address += (word18) numWords2; e 8545 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8551 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8554 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY += 1) e 8557 src/dps8/dps8_eis.c bool b1 = EISgetBitRWNR(cpup, &e->ADDR1, true); e 8559 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8560 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8568 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; // set bit contents to write e 8569 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; // we want to write the bit e 8572 src/dps8/dps8_eis.c EISgetBitRWNR(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 0); e 8575 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8577 src/dps8/dps8_eis.c for(; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8582 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8583 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8594 src/dps8/dps8_eis.c e->ADDR2.bit = bR ? 1 : 0; e 8595 src/dps8/dps8_eis.c e->ADDR2.mode = eRWwriteBit; e 8598 src/dps8/dps8_eis.c EISgetBitRWNR(cpup, &e->ADDR2, e->ADDR1.last_bit_posn == 0); e 8602 src/dps8/dps8_eis.c EISWriteCache (cpup, &e->ADDR2); e 8608 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 8632 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8719 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8720 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8722 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8723 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8734 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8735 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8744 src/dps8/dps8_eis.c e -> N1, e -> N2, e 8745 src/dps8/dps8_eis.c e -> C1, e -> C2, e -> B1, e -> B2, F, T, e 8747 src/dps8/dps8_eis.c e -> addr [0].SNR, e -> addr [0].address, e 8748 src/dps8/dps8_eis.c e -> addr [0].cPos, e -> addr [0].bPos, e 8749 src/dps8/dps8_eis.c e -> addr [1].SNR, e -> addr [1].address, e 8750 src/dps8/dps8_eis.c e -> addr [1].cPos, e -> addr [1].bPos); e 8755 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8758 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min (e->N1, e->N2); cpu.du.CHTALLY += 1) e 8761 src/dps8/dps8_eis.c bool b1 = EISgetBitRWN (cpup, & e->ADDR1, true); e 8762 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN (cpup, & e->ADDR2, true); e 8774 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8776 src/dps8/dps8_eis.c for (; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8780 src/dps8/dps8_eis.c bool b2 = EISgetBitRWN (cpup, & e->ADDR2, true); e 8797 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 8821 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 8890 src/dps8/dps8_eis.c e->ADDR1.cPos = (int) e->C1; e 8891 src/dps8/dps8_eis.c e->ADDR2.cPos = (int) e->C2; e 8893 src/dps8/dps8_eis.c e->ADDR1.bPos = (int) e->B1; e 8894 src/dps8/dps8_eis.c e->ADDR2.bPos = (int) e->B2; e 8899 src/dps8/dps8_eis.c getBitOffsets((int) e->N1, (int) e->C1, (int) e->B1, &numWords1, &e->ADDR1.cPos, &e->ADDR1.bPos); e 8906 src/dps8/dps8_eis.c e->ADDR1.address += (word18) numWords1; e 8911 src/dps8/dps8_eis.c e->N1, e->C1, e->B1, numWords1, e->ADDR1.cPos, e->ADDR1.bPos); e 8912 src/dps8/dps8_eis.c getBitOffsets((int) e->N2, (int) e->C2, (int) e->B2, &numWords2, &e->ADDR2.cPos, &e->ADDR2.bPos); e 8915 src/dps8/dps8_eis.c e->N2, e->C2, e->B2, numWords2, e->ADDR2.cPos, e->ADDR2.bPos); e 8922 src/dps8/dps8_eis.c e->ADDR2.address += (word18) numWords2; e 8934 src/dps8/dps8_eis.c e->ADDR1.mode = eRWreadBit; e 8940 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 8943 src/dps8/dps8_eis.c for( ; cpu.du.CHTALLY < min(e->N1, e->N2); cpu.du.CHTALLY += 1) e 8946 src/dps8/dps8_eis.c bool b1 = EISgetBitRWNR(cpup, &e->ADDR1, true); e 8948 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8949 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8961 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 8963 src/dps8/dps8_eis.c for(; cpu.du.CHTALLY < e->N2; cpu.du.CHTALLY += 1) e 8968 src/dps8/dps8_eis.c e->ADDR2.mode = eRWreadBit; e 8969 src/dps8/dps8_eis.c bool b2 = EISgetBitRWNR(cpup, &e->ADDR2, true); e 8987 src/dps8/dps8_eis.c if (e->N1 > e->N2) e 9057 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 9104 src/dps8/dps8_eis.c int charPosn1 = (int) e->C1; e 9105 src/dps8/dps8_eis.c int charPosn2 = (int) e->C2; e 9107 src/dps8/dps8_eis.c int bitPosn1 = (int) e->B1; e 9108 src/dps8/dps8_eis.c int bitPosn2 = (int) e->B2; e 9115 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "cmpb N1 %d N2 %d\r\n", e -> N1, e -> N2); e 9127 src/dps8/dps8_eis.c e 9133 src/dps8/dps8_eis.c PNL (L68_ (if (max (e->N1, e->N2) < 128) e 9142 src/dps8/dps8_eis.c if (i < e->N1) e 9143 src/dps8/dps8_eis.c (void) EISgetBit (cpup, &e->ADDR1, &charPosn1, &bitPosn1); e 9144 src/dps8/dps8_eis.c if (i < e->N2) e 9145 src/dps8/dps8_eis.c (void) EISgetBit (cpup, &e->ADDR2, &charPosn2, &bitPosn2); e 9147 src/dps8/dps8_eis.c for( ; i < min(e->N1, e->N2) ; i += 1) e 9150 src/dps8/dps8_eis.c bool b1 = EISgetBit (cpup, &e->ADDR1, &charPosn1, &bitPosn1); e 9151 src/dps8/dps8_eis.c bool b2 = EISgetBit (cpup, &e->ADDR2, &charPosn2, &bitPosn2); e 9167 src/dps8/dps8_eis.c if (e->N1 < e->N2) e 9169 src/dps8/dps8_eis.c for(; i < e->N2 ; i += 1) e 9173 src/dps8/dps8_eis.c bool b2 = EISgetBit(cpup, &e->ADDR2, &charPosn2, &bitPosn2); e 9188 src/dps8/dps8_eis.c } else if (e->N1 > e->N2) e 9190 src/dps8/dps8_eis.c for(; i < e->N1 ; i += 1) e 9193 src/dps8/dps8_eis.c bool b1 = EISgetBit(cpup, &e->ADDR1, &charPosn1, &bitPosn1); e 9337 src/dps8/dps8_eis.c e 9351 src/dps8/dps8_eis.c e 9352 src/dps8/dps8_eis.c e 9353 src/dps8/dps8_eis.c e 9404 src/dps8/dps8_eis.c e 9405 src/dps8/dps8_eis.c e 9424 src/dps8/dps8_eis.c e 9427 src/dps8/dps8_eis.c e 9498 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 9541 src/dps8/dps8_eis.c e->x = signExt9(x, n); // form proper 2's-complement integer e 9551 src/dps8/dps8_eis.c e 9553 src/dps8/dps8_eis.c e 9559 src/dps8/dps8_eis.c e 9566 src/dps8/dps8_eis.c e 9576 src/dps8/dps8_eis.c e 9595 src/dps8/dps8_eis.c e 9598 src/dps8/dps8_eis.c e 9607 src/dps8/dps8_eis.c e 9610 src/dps8/dps8_eis.c e 9622 src/dps8/dps8_eis.c e 9638 src/dps8/dps8_eis.c e 9642 src/dps8/dps8_eis.c e 9654 src/dps8/dps8_eis.c e 9666 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 9749 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000077700) e 9753 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000007700) e 9756 src/dps8/dps8_eis.c if (e->S[1] == 0) e 9769 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 9771 src/dps8/dps8_eis.c if (e->N1 == 0 || e->N1 > 8) e 9774 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 9775 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 9779 src/dps8/dps8_eis.c switch(e->S2) e 9783 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 9787 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 9802 src/dps8/dps8_eis.c load9x(cpup, (int) e->N1, &e->ADDR1, (int) e->CN1); e 9805 src/dps8/dps8_eis.c e->sign = 1; e 9807 src/dps8/dps8_eis.c word72 x = cast_128 (e->x); e 9808 src/dps8/dps8_eis.c if (islt_s128 (e->x, construct_s128 (0, 0))) e 9810 src/dps8/dps8_eis.c e->sign = -1; e 9829 src/dps8/dps8_eis.c word72 x = (word72)e->x; e 9830 src/dps8/dps8_eis.c if (e->x < 0) { e 9831 src/dps8/dps8_eis.c e->sign = -1; e 9851 src/dps8/dps8_eis.c if (e->sign == -1) e 9857 src/dps8/dps8_eis.c char * res = formatDecimal (out, &set, op1, n2, (int) e->S2, e->SF2, 0, &Ovr, &Trunc); e 9865 src/dps8/dps8_eis.c switch(e->S2) e 9871 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 9874 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9877 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9881 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9897 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, (word9) (res[i] - '0')); e 9900 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, (word9) res[i]); e 9905 src/dps8/dps8_eis.c switch(e->S2) e 9911 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 9914 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9917 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9922 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR2, &pos, (int) dstTN, e 9954 src/dps8/dps8_eis.c e 9963 src/dps8/dps8_eis.c e 9968 src/dps8/dps8_eis.c e 9969 src/dps8/dps8_eis.c e 9983 src/dps8/dps8_eis.c e 10001 src/dps8/dps8_eis.c e 10008 src/dps8/dps8_eis.c e 10023 src/dps8/dps8_eis.c e 10030 src/dps8/dps8_eis.c e 10044 src/dps8/dps8_eis.c e 10051 src/dps8/dps8_eis.c e 10065 src/dps8/dps8_eis.c e 10072 src/dps8/dps8_eis.c e 10093 src/dps8/dps8_eis.c e 10102 src/dps8/dps8_eis.c e 10109 src/dps8/dps8_eis.c e 10110 src/dps8/dps8_eis.c e 10135 src/dps8/dps8_eis.c e 10149 src/dps8/dps8_eis.c e 10155 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 10187 src/dps8/dps8_eis.c if (!(e->MF[0] & MFkID) && e -> op [0] & 0000000007700) e 10193 src/dps8/dps8_eis.c if (!(e->MF[1] & MFkID) && e -> op [1] & 0000000077700) e 10200 src/dps8/dps8_eis.c if (e->S1 == 0 || e->SF1 != 0) e 10216 src/dps8/dps8_eis.c if (e->N2 == 0 || e->N2 > 8) e 10233 src/dps8/dps8_eis.c switch(e->S1) e 10237 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 10241 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 10255 src/dps8/dps8_eis.c word72 msk = subtract_128 (lshift_128 (construct_128 (0, 1), (9*e->N2-1)),construct_128 (0, 1)); e 10257 src/dps8/dps8_eis.c word72 msk = ((word72)1<<(9*e->N2-1))-1; // excluding sign e 10262 src/dps8/dps8_eis.c e 10263 src/dps8/dps8_eis.c e 10269 src/dps8/dps8_eis.c e 10285 src/dps8/dps8_eis.c if (e->inBuffer[i]) e 10294 src/dps8/dps8_eis.c x = add_128 (x, construct_128 (0, (uint) e->inBuffer[i])); e 10300 src/dps8/dps8_eis.c if (e->sign == -1) e 10308 src/dps8/dps8_eis.c x += e->inBuffer[i]; e 10313 src/dps8/dps8_eis.c if (e->sign == -1) e 10320 src/dps8/dps8_eis.c int pos = (int)e->CN2; e 10324 src/dps8/dps8_eis.c int shift = 9*((int)e->N2-1); e 10325 src/dps8/dps8_eis.c for(int i = 0; i < (int)e->N2; i++) { e 10327 src/dps8/dps8_eis.c EISwrite9(cpup, &e->ADDR2, &pos, (word9) rshift_128 (x, (uint) shift).l & 0777); e 10329 src/dps8/dps8_eis.c EISwrite9(cpup, &e->ADDR2, &pos, (word9) (x >> shift )& 0777); e 10334 src/dps8/dps8_eis.c SC_I_NEG (e->sign == -1); // set negative indicator e 10502 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 10539 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 10546 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 10548 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 10549 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 10551 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 10565 src/dps8/dps8_eis.c switch(e->S1) e 10568 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 10578 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 10579 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10583 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 10584 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10591 src/dps8/dps8_eis.c switch(e->S2) e 10594 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 10595 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 10604 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 10605 src/dps8/dps8_eis.c sc2 = -e->SF2; e 10609 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 10610 src/dps8/dps8_eis.c sc2 = -e->SF2; e 10627 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 10628 src/dps8/dps8_eis.c if (e->sign == -1) e 10630 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 10631 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 10635 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 10636 src/dps8/dps8_eis.c if (e->sign == -1) e 10638 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 10639 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 10653 src/dps8/dps8_eis.c if (e->S2 != CSFL) e 10673 src/dps8/dps8_eis.c if (op3->digits > 63 && e->S2 == CSFL) { e 10690 src/dps8/dps8_eis.c int sf = e->S2==CSFL?op3->exponent:e->SF2; e 10725 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 10742 src/dps8/dps8_eis.c switch(e->S2) e 10749 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 10752 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10755 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10759 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10775 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[j] - '0')); e 10778 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[j]); e 10783 src/dps8/dps8_eis.c switch(e->S2) e 10789 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 10792 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10795 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10799 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 10810 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 10811 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 10814 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 10825 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 10907 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 10946 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 10953 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 10955 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 10956 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 10970 src/dps8/dps8_eis.c switch(e->S1) e 10973 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 10983 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 10984 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10988 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 10989 src/dps8/dps8_eis.c sc1 = -e->SF1; e 10996 src/dps8/dps8_eis.c switch(e->S2) e 10999 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 11000 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 11009 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 11010 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11014 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 11015 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11022 src/dps8/dps8_eis.c switch(e->S3) e 11025 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 11034 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 11038 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 11054 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 11055 src/dps8/dps8_eis.c if (e->sign == -1) e 11057 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 11058 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 11062 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 11063 src/dps8/dps8_eis.c if (e->sign == -1) e 11065 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11066 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 11080 src/dps8/dps8_eis.c if (e->S3 != CSFL) e 11110 src/dps8/dps8_eis.c if (op3->digits > 63 && e->S3 == CSFL) { e 11127 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; e 11162 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 11179 src/dps8/dps8_eis.c switch(e->S3) e 11186 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11189 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11192 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11196 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11212 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 11215 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 11220 src/dps8/dps8_eis.c switch(e->S3) e 11226 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11229 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11232 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11236 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11247 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 11248 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 11252 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 11263 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 11304 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 11344 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 11351 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 11353 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 11354 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 11356 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 11370 src/dps8/dps8_eis.c switch(e->S1) e 11373 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 11383 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 11384 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11388 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 11389 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11396 src/dps8/dps8_eis.c switch(e->S2) e 11399 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 11400 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 11409 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 11410 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11414 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 11415 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11431 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 11432 src/dps8/dps8_eis.c if (e->sign == -1) e 11434 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 11435 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 11439 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 11440 src/dps8/dps8_eis.c if (e->sign == -1) e 11442 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11443 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 11457 src/dps8/dps8_eis.c if (e->S2 != CSFL) e 11477 src/dps8/dps8_eis.c if (op3->digits > 63 && e->S2 == CSFL) { e 11494 src/dps8/dps8_eis.c int sf = e->S2==CSFL?op3->exponent:e->SF2; e 11529 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 11546 src/dps8/dps8_eis.c switch(e->S2) e 11553 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11556 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11559 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11563 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11579 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 11582 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 11587 src/dps8/dps8_eis.c switch(e->S2) e 11593 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11596 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11599 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11603 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, (op3->exponent >> 4) & 0xf); // upper 4-bits e 11615 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 11619 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 11630 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11671 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 11709 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 11716 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 11718 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 11719 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 11733 src/dps8/dps8_eis.c switch(e->S1) e 11736 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 11746 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 11747 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11751 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 11752 src/dps8/dps8_eis.c sc1 = -e->SF1; e 11759 src/dps8/dps8_eis.c switch(e->S2) e 11762 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 11763 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 11772 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 11773 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11777 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 11778 src/dps8/dps8_eis.c sc2 = -e->SF2; e 11785 src/dps8/dps8_eis.c switch(e->S3) e 11788 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 11797 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 11801 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 11818 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 11819 src/dps8/dps8_eis.c if (e->sign == -1) e 11821 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 11822 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 11826 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 11827 src/dps8/dps8_eis.c if (e->sign == -1) e 11829 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 11830 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 11844 src/dps8/dps8_eis.c if (e->S3 != CSFL) e 11864 src/dps8/dps8_eis.c if (op3->digits > 63 && e->S3 == CSFL) { e 11881 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; e 11916 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 11931 src/dps8/dps8_eis.c switch(e->S3) e 11938 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11941 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11944 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11948 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11964 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 11967 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 11972 src/dps8/dps8_eis.c switch(e->S3) e 11978 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 11981 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11984 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11988 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 11999 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 12000 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 12004 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 12015 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 12056 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 12093 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 12100 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 12102 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 12103 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 12105 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 12119 src/dps8/dps8_eis.c switch(e->S1) e 12122 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 12132 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 12133 src/dps8/dps8_eis.c sc1 = -e->SF1; e 12137 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 12138 src/dps8/dps8_eis.c sc1 = -e->SF1; e 12145 src/dps8/dps8_eis.c switch(e->S2) e 12148 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 12149 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 12158 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 12159 src/dps8/dps8_eis.c sc2 = -e->SF2; e 12163 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 12164 src/dps8/dps8_eis.c sc2 = -e->SF2; e 12180 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 12181 src/dps8/dps8_eis.c if (e->sign == -1) e 12183 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 12184 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 12188 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 12189 src/dps8/dps8_eis.c if (e->sign == -1) e 12191 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 12192 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 12199 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 12210 src/dps8/dps8_eis.c switch(e->S2) e 12217 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 12220 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12223 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12227 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12243 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 12246 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 12251 src/dps8/dps8_eis.c switch(e->S2) e 12257 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 12260 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12263 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12267 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12278 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 12279 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 12283 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 12294 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 12335 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 12373 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 12380 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 12382 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 12383 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 12397 src/dps8/dps8_eis.c switch(e->S1) e 12400 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 12410 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 12411 src/dps8/dps8_eis.c sc1 = -e->SF1; e 12415 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 12416 src/dps8/dps8_eis.c sc1 = -e->SF1; e 12423 src/dps8/dps8_eis.c switch(e->S2) e 12426 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 12427 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 12436 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 12437 src/dps8/dps8_eis.c sc2 = -e->SF2; e 12441 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 12442 src/dps8/dps8_eis.c sc2 = -e->SF2; e 12449 src/dps8/dps8_eis.c switch(e->S3) e 12452 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 12461 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 12465 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 12482 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 12483 src/dps8/dps8_eis.c if (e->sign == -1) e 12485 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 12486 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 12490 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 12491 src/dps8/dps8_eis.c if (e->sign == -1) e 12493 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 12494 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 12512 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 12523 src/dps8/dps8_eis.c switch(e->S3) e 12530 src/dps8/dps8_eis.c if (e->P) // If TN2 and S2 specify a 4-bit signed number and P e 12534 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12537 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12541 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12557 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 12560 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 12565 src/dps8/dps8_eis.c switch(e->S3) e 12571 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 12574 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12577 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12581 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 12592 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 12593 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 12596 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 12607 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 13397 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 13435 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 13442 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 13444 src/dps8/dps8_eis.c uint dstTN = e->TN2; // type of chars in dst e 13445 src/dps8/dps8_eis.c uint dstCN = e->CN2; // starting at char pos CN e 13447 src/dps8/dps8_eis.c e->ADDR3 = e->ADDR2; e 13461 src/dps8/dps8_eis.c switch(e->S1) e 13464 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 13474 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 13475 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13479 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 13480 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13487 src/dps8/dps8_eis.c switch(e->S2) e 13490 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 13491 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 13500 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 13501 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13505 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 13506 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13522 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); // divisor e 13523 src/dps8/dps8_eis.c if (e->sign == -1) e 13525 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 13526 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 13535 src/dps8/dps8_eis.c memcpy (inBufferop1,e->inBuffer,sizeof(inBufferop1)); // save for clz1 calculation later e 13539 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); // dividend e 13540 src/dps8/dps8_eis.c if (e->sign == -1) e 13542 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13543 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 13546 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13560 src/dps8/dps8_eis.c if (e->inBuffer[i]!=0) // this still holds op2 digits e 13567 src/dps8/dps8_eis.c NQ = (n2-clz2+1) - (n1-clz1) + (-(e->S1==CSFL?op1->exponent:(int)e->SF1)); e 13570 src/dps8/dps8_eis.c e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF2,NQ); e 13594 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13626 src/dps8/dps8_eis.c if (e->S2 == CSFL) { e 13651 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2 -1, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 13661 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 13665 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); e 13676 src/dps8/dps8_eis.c switch(e->S2) e 13683 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 13686 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13689 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13693 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13709 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 13712 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 13717 src/dps8/dps8_eis.c switch(e->S2) e 13723 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 13726 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13729 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13733 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 13744 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 13745 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 13748 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 13759 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13801 src/dps8/dps8_eis.c EISstruct * e = & cpu.currentEISinstruction; e 13840 src/dps8/dps8_eis.c e->P = getbits36_1 (cpu.cu.IWB, 0) != 0; // 4-bit data sign character control e 13847 src/dps8/dps8_eis.c uint srcTN = e->TN1; // type of chars in src e 13849 src/dps8/dps8_eis.c uint dstTN = e->TN3; // type of chars in dst e 13850 src/dps8/dps8_eis.c uint dstCN = e->CN3; // starting at char pos CN e 13864 src/dps8/dps8_eis.c switch(e->S1) e 13867 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // need to account for the - sign e 13877 src/dps8/dps8_eis.c n1 = (int) e->N1 - 1; // only 1 sign e 13878 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13882 src/dps8/dps8_eis.c n1 = (int) e->N1; // no sign e 13883 src/dps8/dps8_eis.c sc1 = -e->SF1; e 13890 src/dps8/dps8_eis.c switch(e->S2) e 13893 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // need to account for the sign e 13894 src/dps8/dps8_eis.c if (e->TN2 == CTN4) e 13903 src/dps8/dps8_eis.c n2 = (int) e->N2 - 1; // 1 sign e 13904 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13908 src/dps8/dps8_eis.c n2 = (int) e->N2; // no sign e 13909 src/dps8/dps8_eis.c sc2 = -e->SF2; e 13916 src/dps8/dps8_eis.c switch(e->S3) e 13919 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // need to account for the sign e 13928 src/dps8/dps8_eis.c n3 = (int) e->N3 - 1; // 1 sign e 13932 src/dps8/dps8_eis.c n3 = (int) e->N3; // no sign e 13947 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); e 13949 src/dps8/dps8_eis.c if (e->sign == -1) e 13951 src/dps8/dps8_eis.c if (e->S1 == CSFL) e 13952 src/dps8/dps8_eis.c op1->exponent = e->exponent; e 13961 src/dps8/dps8_eis.c memcpy (inBufferop1,e->inBuffer,sizeof(inBufferop1)); // save for clz1 calculation later e 13965 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); e 13966 src/dps8/dps8_eis.c if (e->sign == -1) e 13968 src/dps8/dps8_eis.c if (e->S2 == CSFL) e 13969 src/dps8/dps8_eis.c op2->exponent = e->exponent; e 13988 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 14002 src/dps8/dps8_eis.c if (e->inBuffer[i]!=0) // this still holds op2 digits e 14010 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 14013 src/dps8/dps8_eis.c e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF3,NQ); e 14037 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 14069 src/dps8/dps8_eis.c if (e->S3 == CSFL) { e 14096 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3 -1, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 14106 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 14110 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); e 14123 src/dps8/dps8_eis.c switch(e->S3) e 14130 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 14133 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 14136 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 14140 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 14156 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) (res[i] - '0')); e 14159 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (word9) res[i]); e 14164 src/dps8/dps8_eis.c switch(e->S3) e 14170 src/dps8/dps8_eis.c if (e->P) //If TN2 and S2 specify a 4-bit signed number and P = 1, e 14173 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 14176 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 14180 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, e 14191 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits e 14192 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits e 14195 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent e 14206 src/dps8/dps8_eis.c if (e->S3 == CSFL) e 6546 src/dps8/dps8_ins.c int e = SIGNEXT8_int (cpu.rE); e 6547 src/dps8/dps8_ins.c e = e + y; e 6549 src/dps8/dps8_ins.c cpu.rE = e & 0377; e 6553 src/dps8/dps8_ins.c if (e > 127) e 6560 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));