a 251 src/decNumber/decNumber.c # define decFinish(a,b,c,d) decFinalize(a,b,c,d) a 726 src/decNumber/decNumber.c Unit a, b; // extract units a 727 src/decNumber/decNumber.c if (ua>msua) a=0; a 728 src/decNumber/decNumber.c else a=*ua; a 732 src/decNumber/decNumber.c if (a|b) { // maybe 1 bits to examine a 737 src/decNumber/decNumber.c if (a&b&1) *uc=*uc+(Unit)powers[i]; // effect AND a 738 src/decNumber/decNumber.c j=a%10; a 739 src/decNumber/decNumber.c a=a/10; a 839 src/decNumber/decNumber.c decNumber *a, *b; // temporary pointers a 844 src/decNumber/decNumber.c a=bufa; a 851 src/decNumber/decNumber.c a=allocbufa; // use the allocated space a 853 src/decNumber/decNumber.c decNumberCopy(a, lhs); // copy content a 854 src/decNumber/decNumber.c a->bits&=~DECNEG; // .. and clear the sign a 855 src/decNumber/decNumber.c lhs=a; // use copy from here on a 1088 src/decNumber/decNumber.c Unit a; // extract unit a 1090 src/decNumber/decNumber.c if (ua>msua) a=0; a 1091 src/decNumber/decNumber.c else a=*ua; a 1096 src/decNumber/decNumber.c if ((~a)&1) *uc=*uc+(Unit)powers[i]; // effect INVERT a 1097 src/decNumber/decNumber.c j=a%10; a 1098 src/decNumber/decNumber.c a=a/10; a 1269 src/decNumber/decNumber.c decNumber *a=bufa; // temporary a a 1343 src/decNumber/decNumber.c a=allocbufa; // use the allocated space a 1349 src/decNumber/decNumber.c decLnOp(a, rhs, &aset, &status); // a=ln(rhs) a 1354 src/decNumber/decNumber.c if (a->bits&DECSPECIAL || ISZERO(a)) { a 1355 src/decNumber/decNumber.c decNumberCopy(res, a); // [will fit] a 1380 src/decNumber/decNumber.c decDivideOp(res, a, b, &aset, DIVIDE, &status); // into result a 1682 src/decNumber/decNumber.c Unit a, b; // extract units a 1683 src/decNumber/decNumber.c if (ua>msua) a=0; a 1684 src/decNumber/decNumber.c else a=*ua; a 1688 src/decNumber/decNumber.c if (a|b) { // maybe 1 bits to examine a 1692 src/decNumber/decNumber.c if ((a|b)&1) *uc=*uc+(Unit)powers[i]; // effect OR a 1693 src/decNumber/decNumber.c j=a%10; a 1694 src/decNumber/decNumber.c a=a/10; a 2654 src/decNumber/decNumber.c decNumber *a=bufa; // approximation to result a 2732 src/decNumber/decNumber.c a=allocbufa; // use the allocated spaces a 2752 src/decNumber/decNumber.c a->bits=0; a->digits=3; a 2756 src/decNumber/decNumber.c a->exponent=-3; a 2759 src/decNumber/decNumber.c a->lsu[0]=819; a 2762 src/decNumber/decNumber.c a->lsu[0]=19; a->lsu[1]=8; a 2765 src/decNumber/decNumber.c a->lsu[0]=9; a->lsu[1]=1; a->lsu[2]=8; a 2773 src/decNumber/decNumber.c a->exponent=-2; a 2776 src/decNumber/decNumber.c a->lsu[0]=259; a 2779 src/decNumber/decNumber.c a->lsu[0]=59; a->lsu[1]=2; a 2782 src/decNumber/decNumber.c a->lsu[0]=9; a->lsu[1]=5; a->lsu[2]=2; a 2786 src/decNumber/decNumber.c decMultiplyOp(a, a, f, &workset, &ignore); // a=a*f a 2787 src/decNumber/decNumber.c decAddOp(a, a, t, &workset, 0, &ignore); // ..+t a 2802 src/decNumber/decNumber.c decDivideOp(b, f, a, &workset, DIVIDE, &ignore); // b=f/a a 2803 src/decNumber/decNumber.c decAddOp(b, b, a, &workset, 0, &ignore); // b=b+a a 2804 src/decNumber/decNumber.c decMultiplyOp(a, b, t, &workset, &ignore); // a=b*0.5 a 2813 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent a 2816 src/decNumber/decNumber.c decCopyFit(a, a, &approxset, &residue, &rstatus); // reduce (if needed) a 2817 src/decNumber/decNumber.c decFinish(a, &approxset, &residue, &rstatus); // clean and finalize a 2823 src/decNumber/decNumber.c decNumberCopy(res, a); // copy to result a 2831 src/decNumber/decNumber.c a->exponent-=exp/2; // back to 0.1->1 a 2839 src/decNumber/decNumber.c t->exponent=-a->digits-1; // make 0.5 ulp a 2840 src/decNumber/decNumber.c decAddOp(b, a, t, &workset, DECNEG, &ignore); // b = a - 0.5 ulp a 2848 src/decNumber/decNumber.c decAddOp(a, a, t, &workset, DECNEG, &ignore); // a = a - 1 ulp a 2852 src/decNumber/decNumber.c decAddOp(a, &dzero, a, &approxset, 0, &ignore); a 2855 src/decNumber/decNumber.c decAddOp(b, a, t, &workset, 0, &ignore); // b = a + 0.5 ulp a 2862 src/decNumber/decNumber.c decAddOp(a, a, t, &workset, 0, &ignore); // a = a + 1 ulp a 2866 src/decNumber/decNumber.c decAddOp(a, &dzero, a, &approxset, 0, &ignore); a 2873 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent a 2877 src/decNumber/decNumber.c decNumberCopy(b, a); a 2899 src/decNumber/decNumber.c Int todrop=ideal-a->exponent; // most that can be dropped a 2904 src/decNumber/decNumber.c Int maxdrop=maxexp-a->exponent; a 2914 src/decNumber/decNumber.c decShiftToLeast(a->lsu, D2U(a->digits), todrop); a 2915 src/decNumber/decNumber.c a->exponent+=todrop; // maintain numerical value a 2916 src/decNumber/decNumber.c a->digits-=todrop; // new length a 2937 src/decNumber/decNumber.c decNumberCopy(res, a); // a is now the result a 3065 src/decNumber/decNumber.c Unit a, b; // extract units a 3066 src/decNumber/decNumber.c if (ua>msua) a=0; a 3067 src/decNumber/decNumber.c else a=*ua; a 3071 src/decNumber/decNumber.c if (a|b) { // maybe 1 bits to examine a 3075 src/decNumber/decNumber.c if ((a^b)&1) *uc=*uc+(Unit)powers[i]; // effect XOR a 3076 src/decNumber/decNumber.c j=a%10; a 3077 src/decNumber/decNumber.c a=a/10; a 4984 src/decNumber/decNumber.c decNumber *a=bufa; // accumulator a 5057 src/decNumber/decNumber.c decNumberZero(a); a 5058 src/decNumber/decNumber.c *a->lsu=2; // not 1 but < exp(1) a 5059 src/decNumber/decNumber.c if (decNumberIsNegative(rhs)) a->exponent=-2; // make 0.02 a 5123 src/decNumber/decNumber.c a=allocbufa; // use the allocated space a 5139 src/decNumber/decNumber.c decNumberZero(a); *a->lsu=1; // accumulator=1 a 5157 src/decNumber/decNumber.c decAddOp(a, a, t, &aset, 0, status); // a=a+t a 5164 src/decNumber/decNumber.c if (((a->digits+a->exponent)>=(t->digits+t->exponent+p+1)) a 5165 src/decNumber/decNumber.c && (a->digits>=p)) break; a 5188 src/decNumber/decNumber.c decMultiplyOp(t, t, a, &aset, status); // acc=acc*x a 5195 src/decNumber/decNumber.c a=t; // and carry on using t instead of a a 5200 src/decNumber/decNumber.c if (ISZERO(a)) residue=0; // .. unless underflowed to 0 a 5202 src/decNumber/decNumber.c decCopyFit(res, a, &aset, &residue, status); // copy & shorten a 5315 src/decNumber/decNumber.c decNumber *a=bufa; // accumulator/work a 5385 src/decNumber/decNumber.c a=allocbufa; // use the allocated space a 5408 src/decNumber/decNumber.c decNumberFromInt32(a, r); // a=r a 5411 src/decNumber/decNumber.c decMultiplyOp(a, a, b, &aset, &ignore); // a=a*b a 5430 src/decNumber/decNumber.c decAddOp(a, a, b, &aset, 0, &ignore); // acc=a+b a 5464 src/decNumber/decNumber.c a->bits^=DECNEG; // make -a a 5465 src/decNumber/decNumber.c decExpOp(b, a, &bset, &ignore); // b=exp(-a) a 5466 src/decNumber/decNumber.c a->bits^=DECNEG; // restore sign of a a 5480 src/decNumber/decNumber.c (a->digits+a->exponent)>=(b->digits+b->exponent+set->digits+1)) { a 5481 src/decNumber/decNumber.c if (a->digits==p) break; a 5482 src/decNumber/decNumber.c if (decNumberIsZero(a)) { a 5484 src/decNumber/decNumber.c if (cmp.lsu[0]==0) a->exponent=0; // yes, exact 0 a 5489 src/decNumber/decNumber.c if (decNumberIsZero(b)) b->exponent=a->exponent-p; a 5493 src/decNumber/decNumber.c decAddOp(a, a, b, &aset, 0, &ignore); // a=a+b for next estimate a 5504 src/decNumber/decNumber.c if (ISZERO(a)) residue=0; // .. unless underflowed to 0 a 5506 src/decNumber/decNumber.c decCopyFit(res, a, &aset, &residue, status); // copy & shorten a 5937 src/decNumber/decNumber.c static Int decUnitCompare(const Unit *a, Int alength, a 5950 src/decNumber/decNumber.c l=a+alength-1; a 5952 src/decNumber/decNumber.c for (;l>=a; l--, r--) { a 5980 src/decNumber/decNumber.c accunits=decUnitAddSub(a, alength, b, blength, expunits, acc, a 6041 src/decNumber/decNumber.c static Int decUnitAddSub(const Unit *a, Int alength, a 6044 src/decNumber/decNumber.c const Unit *alsu=a; // A lsu [need to remember it] a 6059 src/decNumber/decNumber.c if (a==c && bshift<=alength) { a 6061 src/decNumber/decNumber.c a+=bshift; a 6063 src/decNumber/decNumber.c else for (; c<clsu+bshift; a++, c++) { // copy needed a 6064 src/decNumber/decNumber.c if (a<alsu+alength) *c=*a; a 6079 src/decNumber/decNumber.c carry+=*a; a 6080 src/decNumber/decNumber.c a++; a 6160 src/decNumber/decNumber.c if (a<alsu+alength) { // still in A a 6161 src/decNumber/decNumber.c carry+=*a; a 6162 src/decNumber/decNumber.c a++; a 329 src/dps8/dps8.h # define max(a,b) max2((a),(b)) a 331 src/dps8/dps8.h # define max2(a,b) ((a) > (b) ? (a) : (b)) a 332 src/dps8/dps8.h # define max3(a,b,c) max((a), max((b),(c))) a 335 src/dps8/dps8.h # define min(a,b) min2((a),(b)) a 337 src/dps8/dps8.h # define min2(a,b) ((a) < (b) ? (a) : (b)) a 338 src/dps8/dps8.h # define min3(a,b,c) min((a), min((b),(c))) a 601 src/dps8/dps8.h # define ARRAY_SIZE(a) ( sizeof(a) / sizeof((a)[0]) ) a 2011 src/dps8/dps8_cpu.h static inline void trackport (word24 a, word36 d) a 2015 src/dps8/dps8_cpu.h word2 port = (a >> 22) & MASK2; a 2017 src/dps8/dps8_cpu.h cpu.portAddr [port] = a; a 288 src/dps8/dps8_decimal.c a 293 src/dps8/dps8_decimal.c a 294 src/dps8/dps8_decimal.c a 1250 src/dps8/dps8_eis.c bool a = opDesc & (1 << 6); a 1251 src/dps8/dps8_eis.c if (a) a 1569 src/dps8/dps8_eis.c EISaddr * a = & e -> addr [k - 1]; a 1574 src/dps8/dps8_eis.c a -> address = effWORDNO; a 1576 src/dps8/dps8_eis.c a -> cPos= (int) effCHAR; a 1577 src/dps8/dps8_eis.c a -> bPos = (int) effBITNO; a 1581 src/dps8/dps8_eis.c a -> TA = (int) e -> TA [k - 1]; a 1799 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; a 1804 src/dps8/dps8_eis.c a->address = effWORDNO; a 1806 src/dps8/dps8_eis.c a->cPos = (int) effCHAR; a 1807 src/dps8/dps8_eis.c a->bPos = (int) effBITNO; a 1810 src/dps8/dps8_eis.c a->TN = (int) e->TN[k-1]; a 1815 src/dps8/dps8_eis.c cpu.du.Dk_PTR_W[k-1], a->cPos, a->bPos, k, e->N[k-1]); a 1819 src/dps8/dps8_eis.c a->address, a->cPos, a->bPos, k, e->N[k-1]); a 1913 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; a 1918 src/dps8/dps8_eis.c a->address = effWORDNO; a 1920 src/dps8/dps8_eis.c a->cPos = (int) effCHAR; a 1921 src/dps8/dps8_eis.c a->bPos = (int) effBITNO; a 5074 src/dps8/dps8_eis.c EISaddr *a = &e->addr[k-1]; a 5081 src/dps8/dps8_eis.c word9 c = EISget49(cpup, a, &pos, TN); a 12224 src/dps8/dps8_eis.c a 12230 src/dps8/dps8_eis.c a 12231 src/dps8/dps8_eis.c a 12237 src/dps8/dps8_eis.c a 12243 src/dps8/dps8_eis.c a 189 src/dps8/dps8_hw_consts.h # define GETHI36(a) ((word18) (((a) >> 18) & MASK18)) a 190 src/dps8/dps8_hw_consts.h # define GETLO36(a) ((word18) ((a) & MASK18)) a 191 src/dps8/dps8_hw_consts.h # define SETHI36(a,b) (((a) &= MASKLO18), ((a) |= ((((word36)(b) & MASKLO18) << 18)))) a 192 src/dps8/dps8_hw_consts.h # define SETLO36(a,b) (((a) &= MASKHI18), ((a) |= ((word36)(b) & MASKLO18))) a 193 src/dps8/dps8_hw_consts.h # define GETHI(a) GETHI36((a)) a 194 src/dps8/dps8_hw_consts.h # define GETLO(a) GETLO36((a)) a 195 src/dps8/dps8_hw_consts.h # define SETHI(a,b) SETHI36((a),(b)) a 196 src/dps8/dps8_hw_consts.h # define SETLO(a,b) SETLO36((a),(b)) a 198 src/dps8/dps8_hw_consts.h # define GETHI72(a) ((word36) (((a) >> 36) & MASK36)) a 199 src/dps8/dps8_hw_consts.h # define GETLO72(a) ((word36) ((a) & MASK36)) a 200 src/dps8/dps8_hw_consts.h # define SETHI72(a,b) ((a) &= MASK36, (a) |= ((((word72)(b) & MASK36)) << 36)) a 201 src/dps8/dps8_hw_consts.h # define SETLO72(a,b) ((a) &= MASK36 << 36, (a) |= ((word72)(b) & MASK36)) a 203 src/dps8/dps8_hw_consts.h # define GET24(a) ((word24) ((a) & MASK24)) a 1086 src/dps8/dps8_ins.c void addToTheMatrix (uint32 opcode, bool opcodeX, bool a, word6 tag) a 1091 src/dps8/dps8_ins.c int _a = a ? 1 : 0; a 1104 src/dps8/dps8_ins.c for (int a = 0; a < 2; a ++) a 1106 src/dps8/dps8_ins.c if ((count = theMatrix[opcode][opcodeX][a][tag])) a 1114 src/dps8/dps8_ins.c if (a) a 1127 src/dps8/dps8_ins.c count, opcode, opcodeX, a, tag); a 5496 src/dps8/dps8_ins.c t_int64 a = SIGNEXT36_64 (cpu.rA); a 5497 src/dps8/dps8_ins.c if (a < 0) a 5498 src/dps8/dps8_ins.c a = -a; a 5503 src/dps8/dps8_ins.c SC_I_ZERO (a == y); a 5504 src/dps8/dps8_ins.c SC_I_NEG (a < y); a 23 src/dps8/dps8_ins.h void addToTheMatrix (uint32 opcode, bool opcodeX, bool a, word6 tag); a 61 src/dps8/dps8_math.c # define ISEQ_128(a,b) iseq_128 (a, b) a 64 src/dps8/dps8_math.c # define ISEQ_128(a,b) ((a) == (b)) a 49 src/dps8/dps8_math128.c bool iseq_128 (uint128 a, uint128 b) a 51 src/dps8/dps8_math128.c return a.h == b.h && a.l == b.l; a 54 src/dps8/dps8_math128.c bool isgt_128 (uint128 a, uint128 b) a 56 src/dps8/dps8_math128.c if (a.h > b.h) return true; a 57 src/dps8/dps8_math128.c if (a.h < b.h) return false; a 58 src/dps8/dps8_math128.c if (a.l > b.l) return true; a 62 src/dps8/dps8_math128.c bool islt_128 (uint128 a, uint128 b) a 64 src/dps8/dps8_math128.c if (a.h < b.h) return true; a 65 src/dps8/dps8_math128.c if (a.h > b.h) return false; a 66 src/dps8/dps8_math128.c if (a.l < b.l) return true; a 70 src/dps8/dps8_math128.c bool isge_128 (uint128 a, uint128 b) a 72 src/dps8/dps8_math128.c if (a.h > b.h) return true; a 73 src/dps8/dps8_math128.c if (a.h < b.h) return false; a 74 src/dps8/dps8_math128.c if (a.l >= b.l) return true; a 78 src/dps8/dps8_math128.c bool islt_s128 (int128 a, int128 b) a 80 src/dps8/dps8_math128.c if (a.h < b.h) return true; a 81 src/dps8/dps8_math128.c if (a.h > b.h) return false; a 82 src/dps8/dps8_math128.c if (a.l < b.l) return true; a 86 src/dps8/dps8_math128.c bool isgt_s128 (int128 a, int128 b) a 88 src/dps8/dps8_math128.c if (a.h > b.h) return true; a 89 src/dps8/dps8_math128.c if (a.h < b.h) return false; a 90 src/dps8/dps8_math128.c if (a.l > b.l) return true; a 94 src/dps8/dps8_math128.c uint128 and_128 (uint128 a, uint128 b) a 96 src/dps8/dps8_math128.c return (uint128) {a.h & b.h, a.l & b.l}; a 99 src/dps8/dps8_math128.c int128 and_s128 (int128 a, uint128 b) a 101 src/dps8/dps8_math128.c return (int128) {a.h & (int64_t)b.h, a.l & b.l}; a 104 src/dps8/dps8_math128.c uint128 or_128 (uint128 a, uint128 b) a 106 src/dps8/dps8_math128.c return (uint128) {a.h | b.h, a.l | b.l}; a 109 src/dps8/dps8_math128.c uint128 xor_128 (uint128 a, uint128 b) a 111 src/dps8/dps8_math128.c return (uint128) {a.h ^ b.h, a.l ^ b.l}; a 114 src/dps8/dps8_math128.c uint128 complement_128 (uint128 a) a 116 src/dps8/dps8_math128.c return (uint128) {~ a.h, ~ a.l}; a 119 src/dps8/dps8_math128.c uint128 add_128 (uint128 a, uint128 b) a 125 src/dps8/dps8_math128.c uint64_t al63 = a.l & MASK63; // low 63 bits of a a 131 src/dps8/dps8_math128.c unsigned int al64 = (a.l >> 63) & 1; // bit 64 of a a 138 src/dps8/dps8_math128.c uint64_t h64 = a.h + b.h + c64; // compute the high a 142 src/dps8/dps8_math128.c uint128 subtract_128 (uint128 a, uint128 b) a 146 src/dps8/dps8_math128.c bool borrow = !! (b.l > a.l); a 147 src/dps8/dps8_math128.c uint128 res = construct_128 (a.h - b.h, a.l - b.l); a 154 src/dps8/dps8_math128.c uint128 negate_128 (uint128 a) a 156 src/dps8/dps8_math128.c return add_128 (complement_128 (a), construct_128 (0, 1)); a 159 src/dps8/dps8_math128.c int128 negate_s128 (int128 a) a 161 src/dps8/dps8_math128.c uint128 t = add_128 (complement_128 (cast_128 (a)), construct_128 (0, 1)); a 165 src/dps8/dps8_math128.c uint128 lshift_128 (uint128 a, unsigned int n) a 177 src/dps8/dps8_math128.c uint64_t keep = (a.l >> (64 - n)) & nmask; a 180 src/dps8/dps8_math128.c uint64_t l = a.l << n; a 183 src/dps8/dps8_math128.c uint64_t h = a.h << n; a 190 src/dps8/dps8_math128.c uint64_t h = a.l << (n - 64); a 194 src/dps8/dps8_math128.c int128 lshift_s128 (int128 a, unsigned int n) a 196 src/dps8/dps8_math128.c uint128 t = lshift_128 (cast_128 (a), n); a 200 src/dps8/dps8_math128.c uint128 rshift_128 (uint128 a, unsigned int n) a 203 src/dps8/dps8_math128.c a 208 src/dps8/dps8_math128.c a 210 src/dps8/dps8_math128.c a 216 src/dps8/dps8_math128.c a 228 src/dps8/dps8_math128.c a 229 src/dps8/dps8_math128.c a 233 src/dps8/dps8_math128.c a 250 src/dps8/dps8_math128.c uint64_t h = a.h; a 251 src/dps8/dps8_math128.c uint64_t l = a.l; a 252 src/dps8/dps8_math128.c uint64_t sign = a.h & SIGN64; a 266 src/dps8/dps8_math128.c int128 rshift_s128 (int128 a, unsigned int n) a 268 src/dps8/dps8_math128.c uint128 t = rshift_128 (cast_128 (a), n); a 473 src/dps8/dps8_math128.c uint128 multiply_128 (uint128 a, uint128 b) a 479 src/dps8/dps8_math128.c u[3] = (uint32_t) (a.h >> 32); a 480 src/dps8/dps8_math128.c u[2] = (uint32_t) a.h; a 481 src/dps8/dps8_math128.c u[1] = (uint32_t) (a.l >> 32); a 482 src/dps8/dps8_math128.c u[0] = (uint32_t) a.l; a 493 src/dps8/dps8_math128.c int128 multiply_s128 (int128 a, int128 b) a 499 src/dps8/dps8_math128.c u[3] = (uint32_t) (a.h >> 32); a 500 src/dps8/dps8_math128.c u[2] = (uint32_t) a.h; a 501 src/dps8/dps8_math128.c u[1] = (uint32_t) (a.l >> 32); a 502 src/dps8/dps8_math128.c u[0] = (uint32_t) a.l; a 514 src/dps8/dps8_math128.c uint128 divide_128 (uint128 a, uint128 b, uint128 * remp) a 519 src/dps8/dps8_math128.c u[0] = (uint16_t) a.l; a 520 src/dps8/dps8_math128.c u[1] = (uint16_t) (a.l >> 16); a 521 src/dps8/dps8_math128.c u[2] = (uint16_t) (a.l >> 32); a 522 src/dps8/dps8_math128.c u[3] = (uint16_t) (a.l >> 48); a 523 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; a 524 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); a 525 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); a 526 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); a 569 src/dps8/dps8_math128.c uint128 divide_128_16 (uint128 a, uint16_t b, uint16_t * remp) a 574 src/dps8/dps8_math128.c u[0] = (uint16_t) a.l; a 575 src/dps8/dps8_math128.c u[1] = (uint16_t) (a.l >> 16); a 576 src/dps8/dps8_math128.c u[2] = (uint16_t) (a.l >> 32); a 577 src/dps8/dps8_math128.c u[3] = (uint16_t) (a.l >> 48); a 578 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; a 579 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); a 580 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); a 581 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); a 605 src/dps8/dps8_math128.c uint128 divide_128_32 (uint128 a, uint32_t b, uint32_t * remp) a 610 src/dps8/dps8_math128.c u[0] = (uint16_t) a.l; a 611 src/dps8/dps8_math128.c u[1] = (uint16_t) (a.l >> 16); a 612 src/dps8/dps8_math128.c u[2] = (uint16_t) (a.l >> 32); a 613 src/dps8/dps8_math128.c u[3] = (uint16_t) (a.l >> 48); a 614 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; a 615 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); a 616 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); a 617 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); a 656 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 658 src/dps8/dps8_math128.c uint128 r = and_128 (a, b); a 672 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 674 src/dps8/dps8_math128.c uint128 r = or_128 (a, b); a 688 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 689 src/dps8/dps8_math128.c uint128 r = complement_128 (a); a 703 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 705 src/dps8/dps8_math128.c uint128 r = add_128 (a, b); a 719 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 721 src/dps8/dps8_math128.c uint128 r = subtract_128 (a, b); a 735 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 736 src/dps8/dps8_math128.c uint128 r = negate_128 (a); a 750 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 753 src/dps8/dps8_math128.c bool r = isgt_128 (a, b); a 766 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 767 src/dps8/dps8_math128.c uint128 r = lshift_128 (a, n); a 781 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 782 src/dps8/dps8_math128.c uint128 r = rshift_128 (a, n); a 796 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 798 src/dps8/dps8_math128.c uint128 r = multiply_128 (a, b); a 812 src/dps8/dps8_math128.c int128 a = construct_s128 (ah, al); a 814 src/dps8/dps8_math128.c int128 r = multiply_s128 (a, b); a 829 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 831 src/dps8/dps8_math128.c uint128 res = divide_128_16 (a, b, & rem); a 846 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); a 848 src/dps8/dps8_math128.c uint128 res = divide_128_32 (a, b, & rem); a 29 src/dps8/dps8_math128.h bool iseq_128 (uint128 a, uint128 b); a 30 src/dps8/dps8_math128.h bool isgt_128 (uint128 a, uint128 b); a 31 src/dps8/dps8_math128.h bool islt_128 (uint128 a, uint128 b); a 32 src/dps8/dps8_math128.h bool isge_128 (uint128 a, uint128 b); a 33 src/dps8/dps8_math128.h bool islt_s128 (int128 a, int128 b); a 34 src/dps8/dps8_math128.h bool isgt_s128 (int128 a, int128 b); a 35 src/dps8/dps8_math128.h uint128 and_128 (uint128 a, uint128 b); a 36 src/dps8/dps8_math128.h int128 and_s128 (int128 a, uint128 b); a 37 src/dps8/dps8_math128.h uint128 or_128 (uint128 a, uint128 b); a 38 src/dps8/dps8_math128.h uint128 xor_128 (uint128 a, uint128 b); a 39 src/dps8/dps8_math128.h uint128 add_128 (uint128 a, uint128 b); a 40 src/dps8/dps8_math128.h uint128 subtract_128 (uint128 a, uint128 b); a 41 src/dps8/dps8_math128.h uint128 multiply_128 (uint128 a, uint128 b); a 42 src/dps8/dps8_math128.h int128 multiply_s128 (int128 a, int128 b); a 43 src/dps8/dps8_math128.h uint128 divide_128_16 (uint128 a, uint16_t b, uint16_t * rem); a 44 src/dps8/dps8_math128.h uint128 divide_128_32 (uint128 a, uint32_t b, uint32_t * rem); a 45 src/dps8/dps8_math128.h uint128 divide_128 (uint128 a, uint128 b, uint128 * rem); a 46 src/dps8/dps8_math128.h uint128 complement_128 (uint128 a); a 47 src/dps8/dps8_math128.h uint128 negate_128 (uint128 a); a 48 src/dps8/dps8_math128.h int128 negate_s128 (int128 a); a 49 src/dps8/dps8_math128.h uint128 lshift_128 (uint128 a, unsigned int n); a 50 src/dps8/dps8_math128.h int128 lshift_s128 (int128 a, unsigned int n); a 51 src/dps8/dps8_math128.h uint128 rshift_128 (uint128 a, unsigned int n); a 52 src/dps8/dps8_math128.h int128 rshift_s128 (int128 a, unsigned int n); a 2037 src/dps8/dps8_scu.c word36 a, q; a 2039 src/dps8/dps8_scu.c a = 0; a 2041 src/dps8/dps8_scu.c putbits36_9 (& a, 0, maskab [0]); a 2042 src/dps8/dps8_scu.c putbits36_3 (& a, 9, (word3) up -> lower_store_size); a 2043 src/dps8/dps8_scu.c putbits36_4 (& a, 12, (word4) up -> onl); // A, A1, B, B1 online a 2044 src/dps8/dps8_scu.c putbits36_4 (& a, 16, (word4) scu_port_num); a 2045 src/dps8/dps8_scu.c putbits36_1 (& a, 21, (word1) config_switches[scu_unit_idx].mode); a 2046 src/dps8/dps8_scu.c putbits36_8 (& a, 22, (word8) up -> nea); a 2047 src/dps8/dps8_scu.c putbits36_1 (& a, 30, (word1) up -> interlace); a 2048 src/dps8/dps8_scu.c putbits36_1 (& a, 31, (word1) up -> lwr); a 2054 src/dps8/dps8_scu.c putbits36_1 (& a, 32, (word1) up -> port_enable [0]); a 2055 src/dps8/dps8_scu.c putbits36_1 (& a, 33, (word1) up -> port_enable [1]); a 2056 src/dps8/dps8_scu.c putbits36_1 (& a, 34, (word1) up -> port_enable [2]); a 2057 src/dps8/dps8_scu.c putbits36_1 (& a, 35, (word1) up -> port_enable [3]); a 2058 src/dps8/dps8_scu.c * rega = a; a 3660 src/dps8/dps8_sys.c static int dbgevent_compar (const void * a, const void * b) a 3662 src/dps8/dps8_sys.c struct dbgevent_t * ea = (struct dbgevent_t *) a; a 94 src/dps8/dps8_utils.c word1 a = GET_A(instruction); a 109 src/dps8/dps8_utils.c if (a) a 75 src/dps8/hdbg.h # define HDBGMRead(a, d, c) hdbgMRead (a, d, c) a 76 src/dps8/hdbg.h # define HDBGMWrite(a, d, c) hdbgMWrite (a, d, c) a 98 src/dps8/libtelnet.h # define TELNET_GNU_PRINTF(f,a) __attribute__((format(printf, f, a))) /* internal helper */ a 101 src/dps8/libtelnet.h # define TELNET_GNU_PRINTF(f,a) /* internal helper */ a 131 src/dps8/ucache.c # define pct(a, b) ((b) ? (a) * 100.0 / ((a) + (b)) : 0) a 132 src/dps8/ucache.c # define args(a, b, c) a, b, c, pct (a, (b + c)) a 198 src/simh/scp.c #define MAX(a,b) (((a) >= (b)) ? (a) : (b)) a 2357 src/simh/scp.c CTAB * const *a = (CTAB * const *)pa; a 2360 src/simh/scp.c return strcmp((*a)->name, (*b)->name); a 5517 src/simh/scp.c # define S_xstr(a) S_str(a) a 5518 src/simh/scp.c # define S_str(a) #a a 7419 src/simh/scp.c int32 i, rdx, a, lim; a 7434 src/simh/scp.c for (i = a = 0; a < lim; ) { a 7435 src/simh/scp.c sim_printf ("%d:\t", a); a 7436 src/simh/scp.c if ((r = fprint_sym (stdout, a, &sim_eval[i], dptr->units, sim_switches)) > 0) a 7439 src/simh/scp.c if ((r = fprint_sym (sim_log, a, &sim_eval[i], dptr->units, sim_switches)) > 0) a 7444 src/simh/scp.c a = a + 1 - r; a 7445 src/simh/scp.c else a = a + dptr->aincr; a 7446 src/simh/scp.c i = a / dptr->aincr; a 347 src/simh/sim_defs.h t_stat (*examine)(t_value *v, t_addr a, UNIT *up, a 349 src/simh/sim_defs.h t_stat (*deposit)(t_value v, t_addr a, UNIT *up, a 43 src/simh/sim_fio.h # define fxread(a,b,c,d) sim_fread (a, b, c, d) a 44 src/simh/sim_fio.h # define fxwrite(a,b,c,d) sim_fwrite (a, b, c, d) a 173 src/simh/sim_sock.c struct addrinfo *a, *an; a 175 src/simh/sim_sock.c for (a=ai; a != NULL; a=an) { a 176 src/simh/sim_sock.c an = a->ai_next; a 177 src/simh/sim_sock.c FREE (a->ai_canonname); a 178 src/simh/sim_sock.c FREE (a->ai_addr); a 179 src/simh/sim_sock.c FREE (a); a 68 src/simh/sim_timer.c #define MIN(a,b) (((a) < (b)) ? (a) : (b)) a 73 src/simh/sim_timer.c #define MAX(a,b) (((a) > (b)) ? (a) : (b))