w 1290 src/decNumber/decNumber.c decNumber *w=bufw; // .. w 1330 src/decNumber/decNumber.c decCopyFit(w, rhs, &aset, &residue, ©stat); // copy & shorten w 1332 src/decNumber/decNumber.c if (!(copystat&DEC_Inexact) && w->lsu[0]==1) { w 1337 src/decNumber/decNumber.c decNumberFromInt32(w, w->exponent); w 1339 src/decNumber/decNumber.c decCopyFit(res, w, set, &residue, &status); // copy & round w 1384 src/decNumber/decNumber.c decNumberZero(w); // set up 10... w 1386 src/decNumber/decNumber.c w->lsu[1]=1; w->lsu[0]=0; // .. w 1388 src/decNumber/decNumber.c w->lsu[0]=10; // .. w 1390 src/decNumber/decNumber.c w->digits=2; // .. w 1393 src/decNumber/decNumber.c decLnOp(b, w, &aset, &ignore); // b=ln(10) w 158 src/decNumber/decNumberLocal.h # define LONGMUL32HI(w, u, v) { \ w 166 src/decNumber/decNumberLocal.h (w)=u1*v1 + w2 + (w1>>16);} w 927 src/dps8/dps8_disk.c word36 w; w 929 src/dps8/dps8_disk.c & w); w 930 src/dps8/dps8_disk.c buffer[i] = w; w 133 src/dps8/dps8_eis.c static word4 get4 (word36 w, int pos) w 138 src/dps8/dps8_eis.c return getbits36_4 (w, 1); w 141 src/dps8/dps8_eis.c return getbits36_4 (w, 5); w 144 src/dps8/dps8_eis.c return getbits36_4 (w, 10); w 147 src/dps8/dps8_eis.c return getbits36_4 (w, 14); w 150 src/dps8/dps8_eis.c return getbits36_4 (w, 19); w 153 src/dps8/dps8_eis.c return getbits36_4 (w, 23); w 156 src/dps8/dps8_eis.c return getbits36_4 (w, 28); w 159 src/dps8/dps8_eis.c return getbits36_4 (w, 32); w 167 src/dps8/dps8_eis.c static word4 get6 (word36 w, int pos) w 172 src/dps8/dps8_eis.c return getbits36_6 (w, 0); w 175 src/dps8/dps8_eis.c return getbits36_6 (w, 6); w 178 src/dps8/dps8_eis.c return getbits36_6 (w, 12); w 181 src/dps8/dps8_eis.c return getbits36_6 (w, 18); w 184 src/dps8/dps8_eis.c return getbits36_6 (w, 24); w 187 src/dps8/dps8_eis.c return getbits36_6 (w, 30); w 195 src/dps8/dps8_eis.c static word9 get9(word36 w, int pos) w 201 src/dps8/dps8_eis.c return getbits36_9 (w, 0); w 204 src/dps8/dps8_eis.c return getbits36_9 (w, 9); w 207 src/dps8/dps8_eis.c return getbits36_9 (w, 18); w 210 src/dps8/dps8_eis.c return getbits36_9 (w, 27); w 218 src/dps8/dps8_eis.c static word36 put4 (word36 w, int pos, word4 c) w 231 src/dps8/dps8_eis.c return setbits36_5 (w, 0, c); w 234 src/dps8/dps8_eis.c return setbits36_4 (w, 5, c); w 238 src/dps8/dps8_eis.c return setbits36_5 (w, 9, c); w 241 src/dps8/dps8_eis.c return setbits36_4 (w, 14, c); w 245 src/dps8/dps8_eis.c return setbits36_5 (w, 18, c); w 248 src/dps8/dps8_eis.c return setbits36_4 (w, 23, c); w 252 src/dps8/dps8_eis.c return setbits36_5 (w, 27, c); w 255 src/dps8/dps8_eis.c return setbits36_4 (w, 32, c); w 262 src/dps8/dps8_eis.c static word36 put6 (word36 w, int pos, word6 c) w 268 src/dps8/dps8_eis.c return setbits36_6 (w, 0, c); w 272 src/dps8/dps8_eis.c return setbits36_6 (w, 6, c); w 276 src/dps8/dps8_eis.c return setbits36_6 (w, 12, c); w 280 src/dps8/dps8_eis.c return setbits36_6 (w, 18, c); w 284 src/dps8/dps8_eis.c return setbits36_6 (w, 24, c); w 288 src/dps8/dps8_eis.c return setbits36_6 (w, 30, c); w 296 src/dps8/dps8_eis.c static word36 put9 (word36 w, int pos, word9 c) w 303 src/dps8/dps8_eis.c return setbits36_9 (w, 0, c); w 307 src/dps8/dps8_eis.c return setbits36_9 (w, 9, c); w 311 src/dps8/dps8_eis.c return setbits36_9 (w, 18, c); w 315 src/dps8/dps8_eis.c return setbits36_9 (w, 27, c); w 1008 src/dps8/dps8_eis.c word36 w = 0; w 1016 src/dps8/dps8_eis.c w = put4 (data, (int) residue, (word4) c469); w 1020 src/dps8/dps8_eis.c w = put6 (data, (int) residue, (word6) c469); w 1024 src/dps8/dps8_eis.c w = put9 (data, (int) residue, c469); w 1027 src/dps8/dps8_eis.c EISWriteIdx (& e -> addr [k - 1], 0, w, true); w 4518 src/dps8/dps8_eis.c word36 w = (word36) fill | ((word36) fill << 9) | ((word36) fill << 18) | ((word36) fill << 27); w 4520 src/dps8/dps8_eis.c pg [i] = w; w 4558 src/dps8/dps8_eis.c word36 w = EISReadIdx (& e -> ADDR1, n); w 4559 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 4585 src/dps8/dps8_eis.c word36 w = (word36) fill | ((word36) fill << 9) | ((word36) fill << 18) | ((word36) fill << 27); w 4589 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 4854 src/dps8/dps8_eis.c word36 w = EISReadIdx (& e -> ADDR1, n); w 4855 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 4881 src/dps8/dps8_eis.c word36 w = (word36) fill | w 4889 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 7468 src/dps8/dps8_eis.c word36 w; w 7481 src/dps8/dps8_eis.c w = EISRead(p); // read dst memory into w w 7488 src/dps8/dps8_eis.c w = setbits36_4 (w, 1, char4); w 7492 src/dps8/dps8_eis.c w = setbits36_4 (w, 5, char4); w 7496 src/dps8/dps8_eis.c w = setbits36_4 (w, 10, char4); w 7500 src/dps8/dps8_eis.c w = setbits36_4 (w, 14, char4); w 7504 src/dps8/dps8_eis.c w = setbits36_4 (w, 19, char4); w 7508 src/dps8/dps8_eis.c w = setbits36_4 (w, 23, char4); w 7512 src/dps8/dps8_eis.c w = setbits36_4 (w, 28, char4); w 7516 src/dps8/dps8_eis.c w = setbits36_4 (w, 32, char4); w 7520 src/dps8/dps8_eis.c EISWriteIdx(p, 0, w, true); // XXX this is the inefficient part! w 7531 src/dps8/dps8_eis.c word36 w; w 7544 src/dps8/dps8_eis.c w = EISRead(p); // read dst memory into w w 7551 src/dps8/dps8_eis.c w = setbits36_9 (w, 0, char9); w 7555 src/dps8/dps8_eis.c w = setbits36_9 (w, 9, char9); w 7559 src/dps8/dps8_eis.c w = setbits36_9 (w, 18, char9); w 7563 src/dps8/dps8_eis.c w = setbits36_9 (w, 27, char9); w 7567 src/dps8/dps8_eis.c EISWriteIdx (p, 0, w, true); // XXX this is the inefficient part! w 8988 src/dps8/dps8_eis.c w 8999 src/dps8/dps8_eis.c w 9006 src/dps8/dps8_eis.c w 9010 src/dps8/dps8_eis.c w 9014 src/dps8/dps8_eis.c w 9018 src/dps8/dps8_eis.c w 9022 src/dps8/dps8_eis.c w 9026 src/dps8/dps8_eis.c w 9030 src/dps8/dps8_eis.c w 9034 src/dps8/dps8_eis.c w 9039 src/dps8/dps8_eis.c w 9054 src/dps8/dps8_eis.c w 9065 src/dps8/dps8_eis.c w 9072 src/dps8/dps8_eis.c w 9076 src/dps8/dps8_eis.c w 9080 src/dps8/dps8_eis.c w 9084 src/dps8/dps8_eis.c w 9089 src/dps8/dps8_eis.c w 501 src/dps8/dps8_fnp2_iomcmd.c word36 w = echoTable [i]; w 504 src/dps8/dps8_fnp2_iomcmd.c !! getbits36_1 (w, j); w 507 src/dps8/dps8_fnp2_iomcmd.c !! getbits36_1 (w, j + 18); w 212 src/dps8/dps8_hw_consts.h static inline int SIGNEXT6_int (word6 w) w 214 src/dps8/dps8_hw_consts.h if (w & SIGN6) w 216 src/dps8/dps8_hw_consts.h return ((int) w) | (int) (((uint) -1) << 6); w 218 src/dps8/dps8_hw_consts.h return w & MASK6; w 221 src/dps8/dps8_hw_consts.h static inline int SIGNEXT8_int (word8 w) w 223 src/dps8/dps8_hw_consts.h if (w & SIGN8) w 225 src/dps8/dps8_hw_consts.h return ((int) w) | (int) (((uint) -1) << 8); w 227 src/dps8/dps8_hw_consts.h return w & MASK8; w 230 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT15_32 (word15 w) w 232 src/dps8/dps8_hw_consts.h if (w & SIGN15) w 234 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 15); w 236 src/dps8/dps8_hw_consts.h return w & MASK15; w 239 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT18_32 (word18 w) w 241 src/dps8/dps8_hw_consts.h if (w & SIGN18) w 243 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 18); w 245 src/dps8/dps8_hw_consts.h return w & MASK18; w 248 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT21_32 (word21 w) w 250 src/dps8/dps8_hw_consts.h if (w & SIGN21) w 252 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 21); w 254 src/dps8/dps8_hw_consts.h return w & MASK21; w 257 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT22_32 (word22 w) w 259 src/dps8/dps8_hw_consts.h if (w & SIGN22) w 261 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 22); w 263 src/dps8/dps8_hw_consts.h return w & MASK22; w 266 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT24_32 (word24 w) w 268 src/dps8/dps8_hw_consts.h if (w & SIGN24) w 270 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 24); w 272 src/dps8/dps8_hw_consts.h return w & MASK24; w 275 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT36_64 (word36 w) w 277 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 279 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 36); w 281 src/dps8/dps8_hw_consts.h return w & MASK36; w 284 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT18_64 (word36 w) w 286 src/dps8/dps8_hw_consts.h if (w & SIGN18) w 288 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 18); w 290 src/dps8/dps8_hw_consts.h return w & MASK18; w 293 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT21_64 (word36 w) w 295 src/dps8/dps8_hw_consts.h if (w & SIGN21) w 297 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 21); w 299 src/dps8/dps8_hw_consts.h return w & MASK21; w 302 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT22_64 (word36 w) w 304 src/dps8/dps8_hw_consts.h if (w & SIGN22) w 306 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 22); w 308 src/dps8/dps8_hw_consts.h return w & MASK22; w 311 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT24_64 (word36 w) w 313 src/dps8/dps8_hw_consts.h if (w & SIGN24) w 315 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 24); w 317 src/dps8/dps8_hw_consts.h return w & MASK24; w 320 src/dps8/dps8_hw_consts.h static inline int128 SIGNEXT72_128 (word72 w) w 323 src/dps8/dps8_hw_consts.h if (isnonzero_128 (and_128 (w, SIGN72))) w 325 src/dps8/dps8_hw_consts.h uint128 v = or_128 (w, construct_128 (0xFFFFFFFFFFFFFF80, 0)); w 328 src/dps8/dps8_hw_consts.h uint128 v = and_128 (w, MASK72); w 337 src/dps8/dps8_hw_consts.h if (w & SIGN72) w 339 src/dps8/dps8_hw_consts.h return ((int128) w) | (int128) (((uint128) -1ll) << 72); w 341 src/dps8/dps8_hw_consts.h return w & MASK72; w 346 src/dps8/dps8_hw_consts.h static inline int128 SIGNEXT36_128 (word36 w) w 348 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 350 src/dps8/dps8_hw_consts.h return construct_s128 ((int64_t) MASK64, w | 0xFFFFFFF000000000); w 352 src/dps8/dps8_hw_consts.h return construct_s128 (0, w); w 361 src/dps8/dps8_hw_consts.h static inline word18 SIGNEXT15_18 (word15 w) w 363 src/dps8/dps8_hw_consts.h if (w & SIGN15) w 365 src/dps8/dps8_hw_consts.h return (w | ((word18) -1) << 15) & MASK18; w 367 src/dps8/dps8_hw_consts.h return w & MASK15; w 370 src/dps8/dps8_hw_consts.h static inline word24 SIGNEXT18_24 (word18 w) w 372 src/dps8/dps8_hw_consts.h if (w & SIGN18) w 374 src/dps8/dps8_hw_consts.h return (w | ((word24) -1) << 18) & MASK24; w 376 src/dps8/dps8_hw_consts.h return w & MASK18; w 379 src/dps8/dps8_hw_consts.h static inline word72 SIGNEXT36_72 (word36 w) w 382 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 385 src/dps8/dps8_hw_consts.h return construct_128 (0377U, (w & MASK36) | 0xFFFFFFF000000000); w 388 src/dps8/dps8_hw_consts.h return construct_128 (0, w & MASK36); w 390 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 392 src/dps8/dps8_hw_consts.h return (w | ((word72) DMASK) << 36) & MASK72; w 394 src/dps8/dps8_hw_consts.h return w & MASK36; w 38 src/dps8/dps8_math128.c bool iszero_128 (uint128 w) w 40 src/dps8/dps8_math128.c if (w.h || w.l) w 45 src/dps8/dps8_math128.c bool isnonzero_128 (uint128 w) w 47 src/dps8/dps8_math128.c if (w.h || w.l) w 277 src/dps8/dps8_math128.c static void mulmn (uint32_t w[], uint32_t u[], w 288 src/dps8/dps8_math128.c w[i] = 0; w 295 src/dps8/dps8_math128.c t = (uint64_t) u[i] * (uint64_t) v[j] + (uint64_t) w[i + j] + k; w 297 src/dps8/dps8_math128.c w[i + j] = (uint32_t) t; // (i.e., t & 0xFFFF). w 300 src/dps8/dps8_math128.c w[j + m] = (uint32_t) k; w 304 src/dps8/dps8_math128.c static void mulmns (uint32_t w[], uint32_t u[], w 307 src/dps8/dps8_math128.c mulmn (w, u, v, m, n); w 318 src/dps8/dps8_math128.c int t = (int) w[j + m] - (int) v[j] - b; w 319 src/dps8/dps8_math128.c w[j + m] = (uint32_t) t; w 328 src/dps8/dps8_math128.c int t = (int) w[i + n] - (int) u[i] - b; w 329 src/dps8/dps8_math128.c w[i + n] = (uint32_t) t; w 479 src/dps8/dps8_math128.c uint32_t w[l+l], u[l], v[l]; w 489 src/dps8/dps8_math128.c mulmn (w, u, v, l, l); w 491 src/dps8/dps8_math128.c (((uint64_t) w[3]) << 32) | w[2], w 492 src/dps8/dps8_math128.c (((uint64_t) w[1]) << 32) | w[0]); w 499 src/dps8/dps8_math128.c uint32_t w[l+l], u[l], v[l]; w 509 src/dps8/dps8_math128.c mulmns (w, u, v, l, l); w 511 src/dps8/dps8_math128.c (((int64_t) w[3]) << 32) | w[2], w 512 src/dps8/dps8_math128.c (((uint64_t) w[1]) << 32) | w[0]); w 30 src/dps8/dps8_math128.h bool iszero_128 (uint128 w); w 31 src/dps8/dps8_math128.h bool isnonzero_128 (uint128 w); w 1746 src/dps8/dps8_utils.c uint64 w; w 1747 src/dps8/dps8_utils.c w = ((uint64) p [0]) << 27; w 1748 src/dps8/dps8_utils.c w |= ((uint64) p [1]) << 18; w 1749 src/dps8/dps8_utils.c w |= ((uint64) p [2]) << 9; w 1750 src/dps8/dps8_utils.c w |= ((uint64) p [3]); w 1752 src/dps8/dps8_utils.c return (word36) (w & MASK36); w 1770 src/dps8/dps8_utils.c uint64 w; w 1773 src/dps8/dps8_utils.c w = (((uint64) p [4]) & 0xf) << 32; w 1774 src/dps8/dps8_utils.c w |= ((uint64) p [5]) << 24; w 1775 src/dps8/dps8_utils.c w |= ((uint64) p [6]) << 16; w 1776 src/dps8/dps8_utils.c w |= ((uint64) p [7]) << 8; w 1777 src/dps8/dps8_utils.c w |= ((uint64) p [8]); w 1781 src/dps8/dps8_utils.c w = ((uint64) p [0]) << 28; w 1782 src/dps8/dps8_utils.c w |= ((uint64) p [1]) << 20; w 1783 src/dps8/dps8_utils.c w |= ((uint64) p [2]) << 12; w 1784 src/dps8/dps8_utils.c w |= ((uint64) p [3]) << 4; w 1785 src/dps8/dps8_utils.c w |= (((uint64) p [4]) >> 4) & 0xf; w 1788 src/dps8/dps8_utils.c return (word36) (w & MASK36); w 173 src/dps8/utarray.h # define utarray_inserta(a,w,j) do { \ w 174 src/dps8/utarray.h if (utarray_len(w) == 0) break; \ w 176 src/dps8/utarray.h utarray_reserve(a,utarray_len(w)); \ w 178 src/dps8/utarray.h memmove(_utarray_eltptr(a,(j)+utarray_len(w)), \ w 184 src/dps8/utarray.h for(_ut_i=0;_ut_i<(w)->i;_ut_i++) { \ w 185 src/dps8/utarray.h (a)->icd.copy(_utarray_eltptr(a,j+_ut_i), _utarray_eltptr(w,_ut_i)); \ w 188 src/dps8/utarray.h memcpy(_utarray_eltptr(a,j), _utarray_eltptr(w,0), \ w 189 src/dps8/utarray.h utarray_len(w)*((a)->icd.sz)); \ w 191 src/dps8/utarray.h (a)->i += utarray_len(w); \ w 10643 src/simh/scp.c size_t w = 0; w 10655 src/simh/scp.c w += 4 + topic->kidwid; w 10656 src/simh/scp.c if (w > 80) { w 10657 src/simh/scp.c w = 4 + topic->kidwid; w 283 src/simh/sim_defs.h # define KBD_WAIT(w,s) ((w)? w: KBD_LIM_WAIT (s))