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 1007 src/dps8/dps8_eis.c word36 w = 0; w 1015 src/dps8/dps8_eis.c w = put4 (data, (int) residue, (word4) c469); w 1019 src/dps8/dps8_eis.c w = put6 (data, (int) residue, (word6) c469); w 1023 src/dps8/dps8_eis.c w = put9 (data, (int) residue, c469); w 1026 src/dps8/dps8_eis.c EISWriteIdx (& e -> addr [k - 1], 0, w, true); w 4517 src/dps8/dps8_eis.c word36 w = (word36) fill | ((word36) fill << 9) | ((word36) fill << 18) | ((word36) fill << 27); w 4519 src/dps8/dps8_eis.c pg [i] = w; w 4557 src/dps8/dps8_eis.c word36 w = EISReadIdx (& e -> ADDR1, n); w 4558 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 4584 src/dps8/dps8_eis.c word36 w = (word36) fill | ((word36) fill << 9) | ((word36) fill << 18) | ((word36) fill << 27); w 4588 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 4853 src/dps8/dps8_eis.c word36 w = EISReadIdx (& e -> ADDR1, n); w 4854 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 4880 src/dps8/dps8_eis.c word36 w = (word36) fill | w 4888 src/dps8/dps8_eis.c EISWriteIdx (& e -> ADDR2, n, w, true); w 7467 src/dps8/dps8_eis.c word36 w; w 7480 src/dps8/dps8_eis.c w = EISRead(p); // read dst memory into w w 7487 src/dps8/dps8_eis.c w = setbits36_4 (w, 1, char4); w 7491 src/dps8/dps8_eis.c w = setbits36_4 (w, 5, char4); w 7495 src/dps8/dps8_eis.c w = setbits36_4 (w, 10, char4); w 7499 src/dps8/dps8_eis.c w = setbits36_4 (w, 14, char4); w 7503 src/dps8/dps8_eis.c w = setbits36_4 (w, 19, char4); w 7507 src/dps8/dps8_eis.c w = setbits36_4 (w, 23, char4); w 7511 src/dps8/dps8_eis.c w = setbits36_4 (w, 28, char4); w 7515 src/dps8/dps8_eis.c w = setbits36_4 (w, 32, char4); w 7519 src/dps8/dps8_eis.c EISWriteIdx(p, 0, w, true); // XXX this is the inefficient part! w 7530 src/dps8/dps8_eis.c word36 w; w 7543 src/dps8/dps8_eis.c w = EISRead(p); // read dst memory into w w 7550 src/dps8/dps8_eis.c w = setbits36_9 (w, 0, char9); w 7554 src/dps8/dps8_eis.c w = setbits36_9 (w, 9, char9); w 7558 src/dps8/dps8_eis.c w = setbits36_9 (w, 18, char9); w 7562 src/dps8/dps8_eis.c w = setbits36_9 (w, 27, char9); w 7566 src/dps8/dps8_eis.c EISWriteIdx (p, 0, w, true); // XXX this is the inefficient part! w 8987 src/dps8/dps8_eis.c w 8998 src/dps8/dps8_eis.c w 9005 src/dps8/dps8_eis.c w 9009 src/dps8/dps8_eis.c w 9013 src/dps8/dps8_eis.c w 9017 src/dps8/dps8_eis.c w 9021 src/dps8/dps8_eis.c w 9025 src/dps8/dps8_eis.c w 9029 src/dps8/dps8_eis.c w 9033 src/dps8/dps8_eis.c w 9038 src/dps8/dps8_eis.c w 9053 src/dps8/dps8_eis.c w 9064 src/dps8/dps8_eis.c w 9071 src/dps8/dps8_eis.c w 9075 src/dps8/dps8_eis.c w 9079 src/dps8/dps8_eis.c w 9083 src/dps8/dps8_eis.c w 9088 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 215 src/dps8/dps8_hw_consts.h static inline int SIGNEXT6_int (word6 w) w 217 src/dps8/dps8_hw_consts.h if (w & SIGN6) w 219 src/dps8/dps8_hw_consts.h return ((int) w) | (int) (((uint) -1) << 6); w 221 src/dps8/dps8_hw_consts.h return w & MASK6; w 224 src/dps8/dps8_hw_consts.h static inline int SIGNEXT8_int (word8 w) w 226 src/dps8/dps8_hw_consts.h if (w & SIGN8) w 228 src/dps8/dps8_hw_consts.h return ((int) w) | (int) (((uint) -1) << 8); w 230 src/dps8/dps8_hw_consts.h return w & MASK8; w 233 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT15_32 (word15 w) w 235 src/dps8/dps8_hw_consts.h if (w & SIGN15) w 237 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 15); w 239 src/dps8/dps8_hw_consts.h return w & MASK15; w 242 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT18_32 (word18 w) w 244 src/dps8/dps8_hw_consts.h if (w & SIGN18) w 246 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 18); w 248 src/dps8/dps8_hw_consts.h return w & MASK18; w 251 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT21_32 (word21 w) w 253 src/dps8/dps8_hw_consts.h if (w & SIGN21) w 255 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 21); w 257 src/dps8/dps8_hw_consts.h return w & MASK21; w 260 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT22_32 (word22 w) w 262 src/dps8/dps8_hw_consts.h if (w & SIGN22) w 264 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 22); w 266 src/dps8/dps8_hw_consts.h return w & MASK22; w 269 src/dps8/dps8_hw_consts.h static inline int32 SIGNEXT24_32 (word24 w) w 271 src/dps8/dps8_hw_consts.h if (w & SIGN24) w 273 src/dps8/dps8_hw_consts.h return ((int32) w) | (int32) (((uint32) -1) << 24); w 275 src/dps8/dps8_hw_consts.h return w & MASK24; w 278 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT36_64 (word36 w) w 280 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 282 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 36); w 284 src/dps8/dps8_hw_consts.h return w & MASK36; w 287 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT18_64 (word36 w) w 289 src/dps8/dps8_hw_consts.h if (w & SIGN18) w 291 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 18); w 293 src/dps8/dps8_hw_consts.h return w & MASK18; w 296 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT21_64 (word36 w) w 298 src/dps8/dps8_hw_consts.h if (w & SIGN21) w 300 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 21); w 302 src/dps8/dps8_hw_consts.h return w & MASK21; w 305 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT22_64 (word36 w) w 307 src/dps8/dps8_hw_consts.h if (w & SIGN22) w 309 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 22); w 311 src/dps8/dps8_hw_consts.h return w & MASK22; w 314 src/dps8/dps8_hw_consts.h static inline t_int64 SIGNEXT24_64 (word36 w) w 316 src/dps8/dps8_hw_consts.h if (w & SIGN24) w 318 src/dps8/dps8_hw_consts.h return ((t_int64) w) | (t_int64) (((t_uint64) -1ll) << 24); w 320 src/dps8/dps8_hw_consts.h return w & MASK24; w 323 src/dps8/dps8_hw_consts.h static inline int128 SIGNEXT72_128 (word72 w) w 326 src/dps8/dps8_hw_consts.h if (isnonzero_128 (and_128 (w, SIGN72))) w 328 src/dps8/dps8_hw_consts.h uint128 v = or_128 (w, construct_128 (0xFFFFFFFFFFFFFF80, 0)); w 331 src/dps8/dps8_hw_consts.h uint128 v = and_128 (w, MASK72); w 340 src/dps8/dps8_hw_consts.h if (w & SIGN72) w 342 src/dps8/dps8_hw_consts.h return ((int128) w) | (int128) (((uint128) -1ll) << 72); w 344 src/dps8/dps8_hw_consts.h return w & MASK72; w 349 src/dps8/dps8_hw_consts.h static inline int128 SIGNEXT36_128 (word36 w) w 351 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 353 src/dps8/dps8_hw_consts.h return construct_s128 ((int64_t) MASK64, w | 0xFFFFFFF000000000); w 355 src/dps8/dps8_hw_consts.h return construct_s128 (0, w); w 364 src/dps8/dps8_hw_consts.h static inline word18 SIGNEXT15_18 (word15 w) w 366 src/dps8/dps8_hw_consts.h if (w & SIGN15) w 368 src/dps8/dps8_hw_consts.h return (w | ((word18) -1) << 15) & MASK18; w 370 src/dps8/dps8_hw_consts.h return w & MASK15; w 373 src/dps8/dps8_hw_consts.h static inline word24 SIGNEXT18_24 (word18 w) w 375 src/dps8/dps8_hw_consts.h if (w & SIGN18) w 377 src/dps8/dps8_hw_consts.h return (w | ((word24) -1) << 18) & MASK24; w 379 src/dps8/dps8_hw_consts.h return w & MASK18; w 382 src/dps8/dps8_hw_consts.h static inline word72 SIGNEXT36_72 (word36 w) w 385 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 388 src/dps8/dps8_hw_consts.h return construct_128 (0377U, (w & MASK36) | 0xFFFFFFF000000000); w 391 src/dps8/dps8_hw_consts.h return construct_128 (0, w & MASK36); w 393 src/dps8/dps8_hw_consts.h if (w & SIGN36) w 395 src/dps8/dps8_hw_consts.h return (w | ((word72) DMASK) << 36) & MASK72; w 397 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 10877 src/simh/scp.c size_t w = 0; w 10889 src/simh/scp.c w += 4 + topic->kidwid; w 10890 src/simh/scp.c if (w > 80) { w 10891 src/simh/scp.c w = 4 + topic->kidwid; w 285 src/simh/sim_defs.h # define KBD_WAIT(w,s) ((w)? w: KBD_LIM_WAIT (s))