w 1274 src/decNumber/decNumber.c decNumber *w=bufw; // .. w 1314 src/decNumber/decNumber.c decCopyFit(w, rhs, &aset, &residue, ©stat); // copy & shorten w 1316 src/decNumber/decNumber.c if (!(copystat&DEC_Inexact) && w->lsu[0]==1) { w 1321 src/decNumber/decNumber.c decNumberFromInt32(w, w->exponent); w 1323 src/decNumber/decNumber.c decCopyFit(res, w, set, &residue, &status); // copy & round w 1368 src/decNumber/decNumber.c decNumberZero(w); // set up 10... w 1370 src/decNumber/decNumber.c w->lsu[1]=1; w->lsu[0]=0; // .. w 1372 src/decNumber/decNumber.c w->lsu[0]=10; // .. w 1374 src/decNumber/decNumber.c w->digits=2; // .. w 1377 src/decNumber/decNumber.c decLnOp(b, w, &aset, &ignore); // b=ln(10) w 160 src/decNumber/decNumberLocal.h # define LONGMUL32HI(w, u, v) { \ w 168 src/decNumber/decNumberLocal.h (w)=u1*v1 + w2 + (w1>>16);} w 925 src/dps8/dps8_disk.c word36 w; w 927 src/dps8/dps8_disk.c & w); w 928 src/dps8/dps8_disk.c buffer[i] = w; w 130 src/dps8/dps8_eis.c static word4 get4 (word36 w, int pos) w 135 src/dps8/dps8_eis.c return getbits36_4 (w, 1); w 138 src/dps8/dps8_eis.c return getbits36_4 (w, 5); w 141 src/dps8/dps8_eis.c return getbits36_4 (w, 10); w 144 src/dps8/dps8_eis.c return getbits36_4 (w, 14); w 147 src/dps8/dps8_eis.c return getbits36_4 (w, 19); w 150 src/dps8/dps8_eis.c return getbits36_4 (w, 23); w 153 src/dps8/dps8_eis.c return getbits36_4 (w, 28); w 156 src/dps8/dps8_eis.c return getbits36_4 (w, 32); w 164 src/dps8/dps8_eis.c static word4 get6 (word36 w, int pos) w 169 src/dps8/dps8_eis.c return getbits36_6 (w, 0); w 172 src/dps8/dps8_eis.c return getbits36_6 (w, 6); w 175 src/dps8/dps8_eis.c return getbits36_6 (w, 12); w 178 src/dps8/dps8_eis.c return getbits36_6 (w, 18); w 181 src/dps8/dps8_eis.c return getbits36_6 (w, 24); w 184 src/dps8/dps8_eis.c return getbits36_6 (w, 30); w 192 src/dps8/dps8_eis.c static word9 get9(word36 w, int pos) w 197 src/dps8/dps8_eis.c return getbits36_9 (w, 0); w 200 src/dps8/dps8_eis.c return getbits36_9 (w, 9); w 203 src/dps8/dps8_eis.c return getbits36_9 (w, 18); w 206 src/dps8/dps8_eis.c return getbits36_9 (w, 27); w 214 src/dps8/dps8_eis.c static word36 put4 (word36 w, int pos, word4 c) w 226 src/dps8/dps8_eis.c return setbits36_5 (w, 0, c); w 229 src/dps8/dps8_eis.c return setbits36_4 (w, 5, c); w 233 src/dps8/dps8_eis.c return setbits36_5 (w, 9, c); w 236 src/dps8/dps8_eis.c return setbits36_4 (w, 14, c); w 240 src/dps8/dps8_eis.c return setbits36_5 (w, 18, c); w 243 src/dps8/dps8_eis.c return setbits36_4 (w, 23, c); w 247 src/dps8/dps8_eis.c return setbits36_5 (w, 27, c); w 250 src/dps8/dps8_eis.c return setbits36_4 (w, 32, c); w 257 src/dps8/dps8_eis.c static word36 put6 (word36 w, int pos, word6 c) w 263 src/dps8/dps8_eis.c return setbits36_6 (w, 0, c); w 267 src/dps8/dps8_eis.c return setbits36_6 (w, 6, c); w 271 src/dps8/dps8_eis.c return setbits36_6 (w, 12, c); w 275 src/dps8/dps8_eis.c return setbits36_6 (w, 18, c); w 279 src/dps8/dps8_eis.c return setbits36_6 (w, 24, c); w 283 src/dps8/dps8_eis.c return setbits36_6 (w, 30, c); w 291 src/dps8/dps8_eis.c static word36 put9 (word36 w, int pos, word9 c) w 297 src/dps8/dps8_eis.c return setbits36_9 (w, 0, c); w 301 src/dps8/dps8_eis.c return setbits36_9 (w, 9, c); w 305 src/dps8/dps8_eis.c return setbits36_9 (w, 18, c); w 309 src/dps8/dps8_eis.c return setbits36_9 (w, 27, c); w 1001 src/dps8/dps8_eis.c word36 w = 0; w 1009 src/dps8/dps8_eis.c w = put4 (data, (int) residue, (word4) c469); w 1013 src/dps8/dps8_eis.c w = put6 (data, (int) residue, (word6) c469); w 1017 src/dps8/dps8_eis.c w = put9 (data, (int) residue, c469); w 1020 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> addr [k - 1], 0, w, true); w 4557 src/dps8/dps8_eis.c word36 w = (word36) fill | ((word36) fill << 9) | ((word36) fill << 18) | ((word36) fill << 27); w 4559 src/dps8/dps8_eis.c pg [i] = w; w 4597 src/dps8/dps8_eis.c word36 w = EISReadIdx (cpup, & e -> ADDR1, n); w 4598 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); w 4624 src/dps8/dps8_eis.c word36 w = (word36) fill | ((word36) fill << 9) | ((word36) fill << 18) | ((word36) fill << 27); w 4628 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); w 4893 src/dps8/dps8_eis.c word36 w = EISReadIdx (cpup, & e -> ADDR1, n); w 4894 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); w 4920 src/dps8/dps8_eis.c word36 w = (word36) fill | w 4928 src/dps8/dps8_eis.c EISWriteIdx (cpup, & e -> ADDR2, n, w, true); w 7533 src/dps8/dps8_eis.c word36 w; w 7546 src/dps8/dps8_eis.c w = EISRead(cpup, p); // read dst memory into w w 7553 src/dps8/dps8_eis.c w = setbits36_4 (w, 1, char4); w 7557 src/dps8/dps8_eis.c w = setbits36_4 (w, 5, char4); w 7561 src/dps8/dps8_eis.c w = setbits36_4 (w, 10, char4); w 7565 src/dps8/dps8_eis.c w = setbits36_4 (w, 14, char4); w 7569 src/dps8/dps8_eis.c w = setbits36_4 (w, 19, char4); w 7573 src/dps8/dps8_eis.c w = setbits36_4 (w, 23, char4); w 7577 src/dps8/dps8_eis.c w = setbits36_4 (w, 28, char4); w 7581 src/dps8/dps8_eis.c w = setbits36_4 (w, 32, char4); w 7585 src/dps8/dps8_eis.c EISWriteIdx(cpup, p, 0, w, true); // XXX this is the inefficient part! w 7596 src/dps8/dps8_eis.c word36 w; w 7609 src/dps8/dps8_eis.c w = EISRead(cpup, p); // read dst memory into w w 7616 src/dps8/dps8_eis.c w = setbits36_9 (w, 0, char9); w 7620 src/dps8/dps8_eis.c w = setbits36_9 (w, 9, char9); w 7624 src/dps8/dps8_eis.c w = setbits36_9 (w, 18, char9); w 7628 src/dps8/dps8_eis.c w = setbits36_9 (w, 27, char9); w 7632 src/dps8/dps8_eis.c EISWriteIdx (cpup, p, 0, w, true); // XXX this is the inefficient part! w 9051 src/dps8/dps8_eis.c w 9062 src/dps8/dps8_eis.c w 9069 src/dps8/dps8_eis.c w 9073 src/dps8/dps8_eis.c w 9077 src/dps8/dps8_eis.c w 9081 src/dps8/dps8_eis.c w 9085 src/dps8/dps8_eis.c w 9089 src/dps8/dps8_eis.c w 9093 src/dps8/dps8_eis.c w 9097 src/dps8/dps8_eis.c w 9102 src/dps8/dps8_eis.c w 9117 src/dps8/dps8_eis.c w 9128 src/dps8/dps8_eis.c w 9135 src/dps8/dps8_eis.c w 9139 src/dps8/dps8_eis.c w 9143 src/dps8/dps8_eis.c w 9147 src/dps8/dps8_eis.c w 9152 src/dps8/dps8_eis.c w 508 src/dps8/dps8_fnp2_iomcmd.c word36 w = echoTable [i]; w 511 src/dps8/dps8_fnp2_iomcmd.c !! getbits36_1 (w, j); w 514 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 35 src/dps8/dps8_math128.c bool iszero_128 (uint128 w) w 37 src/dps8/dps8_math128.c if (w.h || w.l) w 42 src/dps8/dps8_math128.c bool isnonzero_128 (uint128 w) w 44 src/dps8/dps8_math128.c if (w.h || w.l) w 274 src/dps8/dps8_math128.c static void mulmn (uint32_t w[], uint32_t u[], w 287 src/dps8/dps8_math128.c w[i] = 0; w 294 src/dps8/dps8_math128.c t = (uint64_t) u[i] * (uint64_t) v[j] + (uint64_t) w[i + j] + k; w 296 src/dps8/dps8_math128.c w[i + j] = (uint32_t) t; // (i.e., t & 0xFFFF). w 299 src/dps8/dps8_math128.c w[j + m] = (uint32_t) k; w 303 src/dps8/dps8_math128.c static void mulmns (uint32_t w[], uint32_t u[], w 306 src/dps8/dps8_math128.c mulmn (w, u, v, m, n); w 317 src/dps8/dps8_math128.c int t = (int) w[j + m] - (int) v[j] - b; w 318 src/dps8/dps8_math128.c w[j + m] = (uint32_t) t; w 327 src/dps8/dps8_math128.c int t = (int) w[i + n] - (int) u[i] - b; w 328 src/dps8/dps8_math128.c w[i + n] = (uint32_t) t; w 477 src/dps8/dps8_math128.c uint32_t w[l+l], u[l], v[l]; w 487 src/dps8/dps8_math128.c mulmn (w, u, v, l, l); w 489 src/dps8/dps8_math128.c (((uint64_t) w[3]) << 32) | w[2], w 490 src/dps8/dps8_math128.c (((uint64_t) w[1]) << 32) | w[0]); w 497 src/dps8/dps8_math128.c uint32_t w[l+l], u[l], v[l]; w 507 src/dps8/dps8_math128.c mulmns (w, u, v, l, l); w 509 src/dps8/dps8_math128.c (((int64_t) w[3]) << 32) | w[2], w 510 src/dps8/dps8_math128.c (((uint64_t) w[1]) << 32) | w[0]); w 27 src/dps8/dps8_math128.h bool iszero_128 (uint128 w); w 28 src/dps8/dps8_math128.h bool isnonzero_128 (uint128 w); w 1770 src/dps8/dps8_utils.c uint64 w; w 1771 src/dps8/dps8_utils.c w = ((uint64) p [0]) << 27; w 1772 src/dps8/dps8_utils.c w |= ((uint64) p [1]) << 18; w 1773 src/dps8/dps8_utils.c w |= ((uint64) p [2]) << 9; w 1774 src/dps8/dps8_utils.c w |= ((uint64) p [3]); w 1776 src/dps8/dps8_utils.c return (word36) (w & MASK36); w 1794 src/dps8/dps8_utils.c uint64 w; w 1797 src/dps8/dps8_utils.c w = (((uint64) p [4]) & 0xf) << 32; w 1798 src/dps8/dps8_utils.c w |= ((uint64) p [5]) << 24; w 1799 src/dps8/dps8_utils.c w |= ((uint64) p [6]) << 16; w 1800 src/dps8/dps8_utils.c w |= ((uint64) p [7]) << 8; w 1801 src/dps8/dps8_utils.c w |= ((uint64) p [8]); w 1805 src/dps8/dps8_utils.c w = ((uint64) p [0]) << 28; w 1806 src/dps8/dps8_utils.c w |= ((uint64) p [1]) << 20; w 1807 src/dps8/dps8_utils.c w |= ((uint64) p [2]) << 12; w 1808 src/dps8/dps8_utils.c w |= ((uint64) p [3]) << 4; w 1809 src/dps8/dps8_utils.c w |= (((uint64) p [4]) >> 4) & 0xf; w 1812 src/dps8/dps8_utils.c return (word36) (w & MASK36); w 11456 src/simh/scp.c size_t w = 0; w 11468 src/simh/scp.c w += 4 + topic->kidwid; w 11469 src/simh/scp.c if (w > 80) { w 11470 src/simh/scp.c w = 4 + topic->kidwid; w 295 src/simh/sim_defs.h # define KBD_WAIT(w,s) ((w)? w: KBD_LIM_WAIT (s))