r 5306 src/decNumber/decNumber.c Int r; // rhs=f*10**r [see below] r 5407 src/decNumber/decNumber.c r=rhs->exponent+rhs->digits; // 'normalised' exponent r 5408 src/decNumber/decNumber.c decNumberFromInt32(a, r); // a=r r 5943 src/decNumber/decNumber.c const Unit *l, *r, *u; // work r 5951 src/decNumber/decNumber.c r=b+alength-1; r 5952 src/decNumber/decNumber.c for (;l>=a; l--, r--) { r 5953 src/decNumber/decNumber.c if (*l>*r) return 1; r 5954 src/decNumber/decNumber.c if (*l<*r) return -1; r 973 src/dps8/dps8_cache.c int r = core_read_lock (cpup, addr, data, ctx); r 975 src/dps8/dps8_cache.c return r; r 1572 src/dps8/dps8_cpu.c putbits36_1 (& cpu.MR.r, 20, 0); r 1573 src/dps8/dps8_cpu.c putbits36_1 (& cpu.MR.r, 21, 0); r 5397 src/dps8/dps8_cpu.c if (getbits36_1 (cpu.MR_cache.r, 29) && r 5399 src/dps8/dps8_cpu.c cpu.currentInstruction.opcode != getbits36_9 (cpu.MR_cache.r, 18) || r 5400 src/dps8/dps8_cpu.c (cpu.currentInstruction.opcodeX ? 1u : 0u) != getbits36_1 (cpu.MR_cache.r, 27))) r 511 src/dps8/dps8_cpu.h word36 r; r 303 src/dps8/dps8_decimal.c r 312 src/dps8/dps8_decimal.c r 337 src/dps8/dps8_decimal.c r 338 src/dps8/dps8_decimal.c r 346 src/dps8/dps8_decimal.c r 356 src/dps8/dps8_decimal.c r 381 src/dps8/dps8_decimal.c r 382 src/dps8/dps8_decimal.c r 391 src/dps8/dps8_decimal.c r 431 src/dps8/dps8_decimal.c r 463 src/dps8/dps8_decimal.c r 464 src/dps8/dps8_decimal.c r 475 src/dps8/dps8_decimal.c r 476 src/dps8/dps8_decimal.c r 483 src/dps8/dps8_decimal.c r 494 src/dps8/dps8_decimal.c r 507 src/dps8/dps8_decimal.c r 513 src/dps8/dps8_decimal.c r 660 src/dps8/dps8_decimal.c r 667 src/dps8/dps8_decimal.c r 710 src/dps8/dps8_decimal.c r 715 src/dps8/dps8_decimal.c char *formatDecimal (uint8_t * out, decContext *set, decNumber *r, int nout, int s, int sf, bool R, bool *OVR, bool *TRUNC) { r 730 src/dps8/dps8_decimal.c if (sf != r->exponent) { r 733 src/dps8/dps8_decimal.c if (sf > r->exponent) // ET 330: truncation due to: output sf > input sf or exponent r 743 src/dps8/dps8_decimal.c if (r->exponent > sf && r->digits + r->exponent - sf > DECNUMDIGITS) { r 744 src/dps8/dps8_decimal.c int drop = r->digits + r->exponent - (sf + nout); r 746 src/dps8/dps8_decimal.c decNumberGetBCD (r, bcd); r 747 src/dps8/dps8_decimal.c for (int i = 0; i < drop && i < r->digits; i ++) r 751 src/dps8/dps8_decimal.c while (j < r->digits && bcd[j] == 0) r 753 src/dps8/dps8_decimal.c bool neg = decNumberIsNegative (r); r 754 src/dps8/dps8_decimal.c int32_t ex = r->exponent; r 755 src/dps8/dps8_decimal.c if (j >= r->digits) r 756 src/dps8/dps8_decimal.c decNumberZero (r); r 759 src/dps8/dps8_decimal.c uint32_t nd = (uint32_t) (r->digits - j); r 760 src/dps8/dps8_decimal.c r->digits = (int32_t) nd; r 761 src/dps8/dps8_decimal.c decNumberSetBCD (r, bcd + j, nd); r 763 src/dps8/dps8_decimal.c r->exponent = ex; r 765 src/dps8/dps8_decimal.c r->bits |= DECNEG; r 768 src/dps8/dps8_decimal.c r 772 src/dps8/dps8_decimal.c r 778 src/dps8/dps8_decimal.c r 780 src/dps8/dps8_decimal.c if (r->exponent > sf) r 781 src/dps8/dps8_decimal.c set->digits = min (DECNUMDIGITS, max (set->digits, r->digits + r->exponent - sf)); r 782 src/dps8/dps8_decimal.c decNumberRescale (r, r, & _sf, set); r 785 src/dps8/dps8_decimal.c decNumberZero (r); r 796 src/dps8/dps8_decimal.c decNumberToIntegralValue (r2, r, set); r 810 src/dps8/dps8_decimal.c int excess = sf < 0 ? (decNumberIsZero (r) ? 0 : r->digits - nout) r 816 src/dps8/dps8_decimal.c decNumberPlus (r2, r, set); r 819 src/dps8/dps8_decimal.c decNumberSubtract(r, r, r2, set); r 828 src/dps8/dps8_decimal.c if (nout < r->digits) { // not enough space to move all digits r 840 src/dps8/dps8_decimal.c decNumberPlus (r, r, set); r 853 src/dps8/dps8_decimal.c decNumberGetBCD (r,tmp); r 854 src/dps8/dps8_decimal.c int justif = nout - r->digits; r 46 src/dps8/dps8_decimal.h char *formatDecimal(uint8_t * out, decContext *set, decNumber *r, int nout, int s, r 1472 src/dps8/dps8_eis.c word36 r = getMFReg36 (cpup, MFk & 017, allowDU, true, mod_fault); // allow du based on instruction, allow n,ic r 1476 src/dps8/dps8_eis.c address += r; r 1478 src/dps8/dps8_eis.c r = 0; r 1504 src/dps8/dps8_eis.c uint nchars = address * 8 + (uint) r + arn_char4 + CN; r 1538 src/dps8/dps8_eis.c effBITNO = (9u * ARn_CHAR + rbits * r + ARn_BITNO) % 9u; r 1541 src/dps8/dps8_eis.c rbits * r + ARn_BITNO) % 36u) / 6u;//9; r 1545 src/dps8/dps8_eis.c rbits * r + r 1565 src/dps8/dps8_eis.c effCHAR = (CN + ARn_CHAR + r) % 4; r 1568 src/dps8/dps8_eis.c effCHAR, CN, ARn_CHAR, r); r 1574 src/dps8/dps8_eis.c 9u * r) / 36u)); r 1622 src/dps8/dps8_eis.c word36 r = getMFReg36 (cpup, yREG, false, true, mod_fault); // disallow du, allow n,ic r 1653 src/dps8/dps8_eis.c y += (word18) r; r 1740 src/dps8/dps8_eis.c word36 r = getMFReg36(cpup, MFk & 017, false, true, mod_fault); // disallow du, allow n, ic r 1743 src/dps8/dps8_eis.c address += r; r 1745 src/dps8/dps8_eis.c r = 0; r 1788 src/dps8/dps8_eis.c uint nchars = (uint) (address * 8u + r + arn_char4 + CN); r 1808 src/dps8/dps8_eis.c effCHAR = ((word36) CN + (word36) ARn_CHAR + r) % 4u; r 1810 src/dps8/dps8_eis.c effWORDNO = (uint) (address + (9u*CN + 9u*ARn_CHAR + 9u*r) / 36); r 1927 src/dps8/dps8_eis.c word36 r = getMFReg36(cpup, MFk & 017, false, true, mod_fault); // disallow du, allow n,ic r 1932 src/dps8/dps8_eis.c address += r; r 1934 src/dps8/dps8_eis.c r = 0; r 1937 src/dps8/dps8_eis.c uint effBITNO = (9u*ARn_CHAR + r + ARn_BITNO + B + 9u*C) % 9u; r 1938 src/dps8/dps8_eis.c uint effCHAR = ((9u*ARn_CHAR + r + ARn_BITNO + B + 9u*C) % 36u) / 9u; r 1939 src/dps8/dps8_eis.c uint effWORDNO = (uint) (address + (9u*ARn_CHAR + r + ARn_BITNO + B + 9u*C) / 36u); r 2078 src/dps8/dps8_eis.c int32 r = SIGNEXT22_32 ((word22) ur); r 2104 src/dps8/dps8_eis.c int32_t addend = address * 8 + r; // in characters r 2159 src/dps8/dps8_eis.c int32 r = SIGNEXT22_32 ((word22) ur); r 2169 src/dps8/dps8_eis.c int32_t subtractend = address * 32 + r * 4; r 2206 src/dps8/dps8_eis.c int32_t r; r 2209 src/dps8/dps8_eis.c r = SIGNEXT24_32 ((word24) rcnt); r 2211 src/dps8/dps8_eis.c r = SIGNEXT22_32 ((word22) rcnt); r 2213 src/dps8/dps8_eis.c r = SIGNEXT21_32 ((word21) rcnt); r 2215 src/dps8/dps8_eis.c r = SIGNEXT21_32 ((word21) rcnt); r 2217 src/dps8/dps8_eis.c r = SIGNEXT18_32 ((word18) rcnt); r 2221 src/dps8/dps8_eis.c sz, ARn, address, reg, r); r 2253 src/dps8/dps8_eis.c int32_t addend = address * 36 + r * (int32_t) sz; r 2285 src/dps8/dps8_eis.c word24 r = getCrAR (cpup, (word4) reg) & MASK24; r 2303 src/dps8/dps8_eis.c word24 bits = 9u * GET_AR_CHAR (ARn) + GET_AR_BITNO (ARn) + r; r 2308 src/dps8/dps8_eis.c if (r % 36) r 2320 src/dps8/dps8_eis.c cpu.AR[ARn].WORDNO = (address + r / 36) & MASK18; r 2321 src/dps8/dps8_eis.c if (r % 36) r 2325 src/dps8/dps8_eis.c SET_AR_CHAR_BITNO (ARn, (r % 36) / 9, r 2326 src/dps8/dps8_eis.c r % 9); r 2352 src/dps8/dps8_eis.c r 2355 src/dps8/dps8_eis.c r 2357 src/dps8/dps8_eis.c r 2360 src/dps8/dps8_eis.c r 2398 src/dps8/dps8_eis.c r 2403 src/dps8/dps8_eis.c r 2406 src/dps8/dps8_eis.c r 2419 src/dps8/dps8_eis.c r 2424 src/dps8/dps8_eis.c r 2431 src/dps8/dps8_eis.c r 2436 src/dps8/dps8_eis.c r 2440 src/dps8/dps8_eis.c r 2495 src/dps8/dps8_eis.c int32_t r = (int32_t) (getCrAR (cpup, reg) & MASK18); r 2496 src/dps8/dps8_eis.c r = SIGNEXT18_32 ((word18) r); r 2500 src/dps8/dps8_eis.c ARn, address, reg, r); r 2518 src/dps8/dps8_eis.c int32_t addend = address + r; r 2539 src/dps8/dps8_eis.c word24 r = getCrAR (cpup, (word4) reg) & MASK24; r 2545 src/dps8/dps8_eis.c word24 bits = 9u * GET_AR_CHAR (ARn) + GET_AR_BITNO (ARn) - r; r 2548 src/dps8/dps8_eis.c if (r % 36) r 2556 src/dps8/dps8_eis.c cpu.AR[ARn].WORDNO = (- (address + r / 36)) & MASK18; r 2557 src/dps8/dps8_eis.c if (r % 36) r 2559 src/dps8/dps8_eis.c SET_AR_CHAR_BITNO (ARn, (- ((r % 36) / 9)) & MASK2, r 2560 src/dps8/dps8_eis.c (- (r % 9)) & MASK4); r 2578 src/dps8/dps8_eis.c int32_t r = (int32_t) (getCrAR (cpup, reg) & MASK18); r 2579 src/dps8/dps8_eis.c r = SIGNEXT18_32 ((word18) r); r 2583 src/dps8/dps8_eis.c ARn, address, reg, r); r 2600 src/dps8/dps8_eis.c int32_t subtractend = address + r; r 2624 src/dps8/dps8_eis.c word21 r = getCrAR (cpup, reg) & MASK21;; r 2626 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT|DBG_CAC, & cpu_dev, "s9bd r 0%o\r\n", r); r 2628 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT|DBG_CAC, & cpu_dev, "s9bd ARn 0%o address 0%o reg 0%o r 0%o\r\n", ARn, address, reg, r); r 2637 src/dps8/dps8_eis.c (GET_AR_CHAR (ARn) - r) / 4) & MASK18; r 2642 src/dps8/dps8_eis.c SET_AR_CHAR_BITNO (ARn, (GET_AR_CHAR (ARn) - r) & MASK2, 0); r 2647 src/dps8/dps8_eis.c cpu.AR[ARn].WORDNO = (- (address + (r + 3) / 4)) & MASK18; r 2651 src/dps8/dps8_eis.c SET_AR_CHAR_BITNO (ARn, (-r) & MASK2, 0); r 2917 src/dps8/dps8_eis.c uint r = 0; r 2920 src/dps8/dps8_eis.c r = (uint) (rcnt & MASK24); r 2922 src/dps8/dps8_eis.c r = (uint) (rcnt & MASK22); r 2924 src/dps8/dps8_eis.c r = (uint) (rcnt & MASK21); r 2926 src/dps8/dps8_eis.c r = (uint) (rcnt & MASK21); r 2928 src/dps8/dps8_eis.c r = (uint) (rcnt & MASK18); r 2930 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT|DBG_CAC, & cpu_dev, "asxbd sz %d ARn 0%o address 0%o reg 0%o r 0%o\r\n", sz, ARn, address, reg, r); r 2976 src/dps8/dps8_eis.c addend = address * 36u + (r * 9) / 2; r 2980 src/dps8/dps8_eis.c if ((! sub) && r % 2) // r is odd r 2984 src/dps8/dps8_eis.c addend = address * 36u + r * sz; r 9822 src/dps8/dps8_eis.c uint16_t r; r 9823 src/dps8/dps8_eis.c x = divide_128_16 (x, 10, & r); r 9824 src/dps8/dps8_eis.c tmp[i] = (char) r + '0'; r 12881 src/dps8/dps8_eis.c r 13014 src/dps8/dps8_eis.c r 13016 src/dps8/dps8_eis.c r 13017 src/dps8/dps8_eis.c r 13046 src/dps8/dps8_eis.c r 13047 src/dps8/dps8_eis.c r 13058 src/dps8/dps8_eis.c r 13059 src/dps8/dps8_eis.c r 13066 src/dps8/dps8_eis.c r 13079 src/dps8/dps8_eis.c r 13092 src/dps8/dps8_eis.c r 13098 src/dps8/dps8_eis.c r 13322 src/dps8/dps8_eis.c r 13329 src/dps8/dps8_eis.c r 13386 src/dps8/dps8_eis.c r 2480 src/dps8/dps8_ins.c cpu.MR_cache.r = cpu.MR.r; r 7635 src/dps8/dps8_ins.c cpu.MR.r = cpu.CY; r 7637 src/dps8/dps8_ins.c putbits36_1 (& cpu.MR.r, 32, 0); r 7639 src/dps8/dps8_ins.c putbits36_2 (& cpu.MR.r, 33, 0); r 7897 src/dps8/dps8_ins.c cpu.Ypair[0] = cpu.MR.r; r 7901 src/dps8/dps8_ins.c ! (getbits36_1 (cpu.MR.r, 16) || getbits36_1 (cpu.MR.r, 29))) r 379 src/dps8/dps8_math128.c int divmnu (uint16_t q[], uint16_t r[], r 402 src/dps8/dps8_math128.c if (r != NULL) r[0] = (uint16_t) k; r 465 src/dps8/dps8_math128.c if (r != NULL) r 468 src/dps8/dps8_math128.c r[i] = (uint16_t) (un[i] >> s) | (uint16_t) (un[i+1] << (16-s)); r 543 src/dps8/dps8_math128.c uint16_t r [8] = { 8 * 0 }; r 544 src/dps8/dps8_math128.c divmnu (q, remp ? r : NULL, u, v, m, normlen); r 548 src/dps8/dps8_math128.c (((uint64_t) r [7]) << 48) | r 549 src/dps8/dps8_math128.c (((uint64_t) r [6]) << 32) | r 550 src/dps8/dps8_math128.c (((uint64_t) r [5]) << 16) | r 551 src/dps8/dps8_math128.c (((uint64_t) r [4]) << 0), r 552 src/dps8/dps8_math128.c (((uint64_t) r [3]) << 48) | r 553 src/dps8/dps8_math128.c (((uint64_t) r [2]) << 32) | r 554 src/dps8/dps8_math128.c (((uint64_t) r [1]) << 16) | r 555 src/dps8/dps8_math128.c (((uint64_t) r [0]) << 0)); r 609 src/dps8/dps8_math128.c uint16_t q[m], u[m], v[n], r[2]; r 624 src/dps8/dps8_math128.c divmnu (q, remp ? r : NULL, u, v, m, n); r 626 src/dps8/dps8_math128.c * remp = r [0] | (uint32_t) r[1] << 16; r 643 src/dps8/dps8_math128.c bool r = iszero_128 (construct_128 (h, l)); r 645 src/dps8/dps8_math128.c if (r != expect) { r 648 src/dps8/dps8_math128.c (unsigned long long)h, (unsigned long long)l, (unsigned long)r); r 658 src/dps8/dps8_math128.c uint128 r = and_128 (a, b); r 660 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 664 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); r 674 src/dps8/dps8_math128.c uint128 r = or_128 (a, b); r 676 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 680 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); r 689 src/dps8/dps8_math128.c uint128 r = complement_128 (a); r 691 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 694 src/dps8/dps8_math128.c (unsigned long long)ah, (unsigned long long)al, (unsigned long long)r.h, r 695 src/dps8/dps8_math128.c (unsigned long long)r.l); r 705 src/dps8/dps8_math128.c uint128 r = add_128 (a, b); r 707 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 711 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); r 721 src/dps8/dps8_math128.c uint128 r = subtract_128 (a, b); r 723 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 727 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); r 736 src/dps8/dps8_math128.c uint128 r = negate_128 (a); r 738 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 741 src/dps8/dps8_math128.c (unsigned long long)ah, (unsigned long long)al, (unsigned long long)r.h, r 742 src/dps8/dps8_math128.c (unsigned long long)r.l); r 753 src/dps8/dps8_math128.c bool r = isgt_128 (a, b); r 754 src/dps8/dps8_math128.c if (r != expect) { r 758 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r); r 767 src/dps8/dps8_math128.c uint128 r = lshift_128 (a, n); r 769 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 773 src/dps8/dps8_math128.c (unsigned long long)r.h, (unsigned long long)r.l); r 782 src/dps8/dps8_math128.c uint128 r = rshift_128 (a, n); r 784 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 788 src/dps8/dps8_math128.c (unsigned long long)r.h, (unsigned long long)r.l); r 798 src/dps8/dps8_math128.c uint128 r = multiply_128 (a, b); r 800 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 804 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); r 814 src/dps8/dps8_math128.c int128 r = multiply_s128 (a, b); r 816 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { r 820 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); r 1113 src/dps8/fnpuv.c int r = uv_tcp_init (fnpData.loop, & fnpData.du_server); r 1114 src/dps8/fnpuv.c if (r < 0) r 1126 src/dps8/fnpuv.c r = uv_ip4_addr (bind_address, telnet_port, & addr); r 1127 src/dps8/fnpuv.c if (r == 0) r 1128 src/dps8/fnpuv.c r = uv_tcp_bind (& fnpData.du_server, (const struct sockaddr *) & addr, 0); r 1129 src/dps8/fnpuv.c if (r == 0) r 1130 src/dps8/fnpuv.c r = uv_listen ((uv_stream_t *) & fnpData.du_server, DEFAULT_BACKLOG, r 1132 src/dps8/fnpuv.c if (r) r 1134 src/dps8/fnpuv.c sim_printf ("\r[FNP emulation: listen error: %s:%ld: %s]\r\n", bind_address, (long) telnet_port, uv_strerror(r)); r 1522 src/dps8/fnpuv.c int r = uv_ip4_addr (bind_address, linep->port, & addr); r 1523 src/dps8/fnpuv.c if (r == 0) r 1524 src/dps8/fnpuv.c r = uv_tcp_bind (& linep->server, (const struct sockaddr *) & addr, 0); r 1525 src/dps8/fnpuv.c if (r == 0) r 1526 src/dps8/fnpuv.c r = uv_listen ((uv_stream_t *) & linep->server, DEFAULT_BACKLOG, r 1528 src/dps8/fnpuv.c if (r) r 1530 src/dps8/fnpuv.c sim_printf ("\r[FNP emulation: listen error: %s:%ld: %s]\r\n", bind_address, (long) linep->port, uv_strerror(r)); r 1846 src/dps8/fnpuv.c int r = uv_tcp_init (fnpData.loop, & fnpData.du3270_server); r 1847 src/dps8/fnpuv.c if (r < 0) r 1856 src/dps8/fnpuv.c r = uv_ip4_addr (bind_address, telnet3270_port, & addr); r 1857 src/dps8/fnpuv.c if (r == 0) r 1858 src/dps8/fnpuv.c r = uv_tcp_bind (& fnpData.du3270_server, (const struct sockaddr *) & addr, 0); r 1859 src/dps8/fnpuv.c if (r == 0) r 1860 src/dps8/fnpuv.c r = uv_listen ((uv_stream_t *) & fnpData.du3270_server, DEFAULT_BACKLOG, r 1862 src/dps8/fnpuv.c if (r) r 1865 src/dps8/fnpuv.c bind_address, (long) telnet3270_port, uv_strerror(r)); r 88 src/dps8/hdbg.h # define HDBGRegZR(r, c) hdbgRegR (hreg_Z, (word36) r, c) r 89 src/dps8/hdbg.h # define HDBGRegZW(r, c) hdbgRegW (hreg_Z, (word36) r, c) r 838 src/dps8/panelScraper.c SETL (bank_d, 0+3, cpu.MR.r, 36); r 1175 src/dps8/panelScraper.c int r, c; r 1178 src/dps8/panelScraper.c for (r = 0; r < 0 + 8; r ++) r 1184 src/dps8/panelScraper.c unsigned char fontbits = font8x8_basic [(unsigned int) message [(unsigned int) char2]] [r]; r 1187 src/dps8/panelScraper.c banks [r + start_row] [c] = !!bit1; r 1154 src/dps8/uvutil.c int r = uv_tcp_init (access->loop, & access->server); r 1155 src/dps8/uvutil.c if (r < 0) r 1160 src/dps8/uvutil.c r = uv_ip4_addr (access->address ? access->address : "0.0.0.0", r 1162 src/dps8/uvutil.c if (r == 0) r 1163 src/dps8/uvutil.c r = uv_tcp_bind (& access->server, (const struct sockaddr *) & addr, 0); r 1165 src/dps8/uvutil.c if (r == 0) r 1166 src/dps8/uvutil.c r = uv_listen ((uv_stream_t *) & access->server, r 1168 src/dps8/uvutil.c if (r) r 1172 src/dps8/uvutil.c (long) access->port, uv_strerror(r)); r 575 src/libsir/include/sir.h sir_textcolor sir_makergb(sir_textcolor r, sir_textcolor g, sir_textcolor b); r 310 src/libsir/include/sir/helpers.h sir_textcolor _sir_makergb(sir_textcolor r, sir_textcolor g, sir_textcolor b) { r 312 src/libsir/include/sir/helpers.h _sir_setredincolor(retval, r); r 185 src/libsir/src/sir.c sir_textcolor sir_makergb(sir_textcolor r, sir_textcolor g, sir_textcolor b) { r 186 src/libsir/src/sir.c return _sir_makergb(r, g, b); r 346 src/libsir/src/sirhelpers.c const char* r; r 349 src/libsir/src/sirhelpers.c if (*sub && (r = strstr(str, sub)) != NULL) { r 353 src/libsir/src/sirhelpers.c q = str + (r - str); r 355 src/libsir/src/sirhelpers.c while ((r = strstr(p = r + len, sub)) != NULL) r 356 src/libsir/src/sirhelpers.c while (p < r) r 357 src/prt2pdf/prt2pdf.c float r = (float)r_val / 255.0f; r 361 src/prt2pdf/prt2pdf.c (void)fprintf (stdout, "%f %f %f rg\n", r, g, b); r 367 src/prt2pdf/prt2pdf.c float r, g, b; r 368 src/prt2pdf/prt2pdf.c r = GLOBAL_GRAY_SCALE + (1.0 - GLOBAL_GRAY_SCALE) * 0.60; r 371 src/prt2pdf/prt2pdf.c (void)fprintf (stdout, "%f %f %f rg\n", r, g, b); /* green */ r 1190 src/prt2pdf/prt2pdf.c int r = next_utf8_cp (s, len, & i, & cp); r 1191 src/prt2pdf/prt2pdf.c if (r <= 0) r 2291 src/punutil/miniz.c switch (r->m_state) \ r 2298 src/punutil/miniz.c r->m_state = state_index; \ r 2426 src/punutil/miniz.c static void tinfl_clear_tree(tinfl_decompressor *r) r 2428 src/punutil/miniz.c if (r->m_type == 0) r 2429 src/punutil/miniz.c MZ_CLEAR_ARR(r->m_tree_0); r 2430 src/punutil/miniz.c else if (r->m_type == 1) r 2431 src/punutil/miniz.c MZ_CLEAR_ARR(r->m_tree_1); r 2433 src/punutil/miniz.c MZ_CLEAR_ARR(r->m_tree_2); r 2436 src/punutil/miniz.c tinfl_status tinfl_decompress(tinfl_decompressor *r, const mz_uint8 *pIn_buf_next, size_t *pIn_buf_size, mz_uint8 *pOut_buf_start, mz_uint8 *pOut_buf_next, size_t *pOut_buf_size, const mz_uint32 decomp_flags) r 2462 src/punutil/miniz.c pTrees[0] = r->m_tree_0; r 2463 src/punutil/miniz.c pTrees[1] = r->m_tree_1; r 2464 src/punutil/miniz.c pTrees[2] = r->m_tree_2; r 2465 src/punutil/miniz.c pCode_sizes[0] = r->m_code_size_0; r 2466 src/punutil/miniz.c pCode_sizes[1] = r->m_code_size_1; r 2467 src/punutil/miniz.c pCode_sizes[2] = r->m_code_size_2; r 2469 src/punutil/miniz.c num_bits = r->m_num_bits; r 2470 src/punutil/miniz.c bit_buf = r->m_bit_buf; r 2471 src/punutil/miniz.c dist = r->m_dist; r 2472 src/punutil/miniz.c counter = r->m_counter; r 2473 src/punutil/miniz.c num_extra = r->m_num_extra; r 2474 src/punutil/miniz.c dist_from_out_buf_start = r->m_dist_from_out_buf_start; r 2477 src/punutil/miniz.c bit_buf = num_bits = dist = counter = num_extra = r->m_zhdr0 = r->m_zhdr1 = 0; r 2478 src/punutil/miniz.c r->m_z_adler32 = r->m_check_adler32 = 1; r 2481 src/punutil/miniz.c TINFL_GET_BYTE(1, r->m_zhdr0); r 2482 src/punutil/miniz.c TINFL_GET_BYTE(2, r->m_zhdr1); r 2483 src/punutil/miniz.c counter = (((r->m_zhdr0 * 256 + r->m_zhdr1) % 31 != 0) || (r->m_zhdr1 & 32) || ((r->m_zhdr0 & 15) != 8)); r 2485 src/punutil/miniz.c counter |= (((1U << (8U + (r->m_zhdr0 >> 4))) > 32768U) || ((out_buf_size_mask + 1) < (size_t)((size_t)1 << (8U + (r->m_zhdr0 >> 4))))); r 2494 src/punutil/miniz.c TINFL_GET_BITS(3, r->m_final, 3); r 2495 src/punutil/miniz.c r->m_type = r->m_final >> 1; r 2496 src/punutil/miniz.c if (r->m_type == 0) r 2502 src/punutil/miniz.c TINFL_GET_BITS(6, r->m_raw_header[counter], 8); r 2504 src/punutil/miniz.c TINFL_GET_BYTE(7, r->m_raw_header[counter]); r 2506 src/punutil/miniz.c if ((counter = (r->m_raw_header[0] | (r->m_raw_header[1] << 8))) != (mz_uint)(0xFFFF ^ (r->m_raw_header[2] | (r->m_raw_header[3] << 8)))) r 2538 src/punutil/miniz.c else if (r->m_type == 3) r 2544 src/punutil/miniz.c if (r->m_type == 1) r 2546 src/punutil/miniz.c mz_uint8 *p = r->m_code_size_0; r 2548 src/punutil/miniz.c r->m_table_sizes[0] = 288; r 2549 src/punutil/miniz.c r->m_table_sizes[1] = 32; r 2550 src/punutil/miniz.c TINFL_MEMSET(r->m_code_size_1, 5, 32); r 2564 src/punutil/miniz.c TINFL_GET_BITS(11, r->m_table_sizes[counter], "\05\05\04"[counter]); r 2565 src/punutil/miniz.c r->m_table_sizes[counter] += s_min_table_sizes[counter]; r 2567 src/punutil/miniz.c MZ_CLEAR_ARR(r->m_code_size_2); r 2568 src/punutil/miniz.c for (counter = 0; counter < r->m_table_sizes[2]; counter++) r 2572 src/punutil/miniz.c r->m_code_size_2[s_length_dezigzag[counter]] = (mz_uint8)s; r 2574 src/punutil/miniz.c r->m_table_sizes[2] = 19; r 2576 src/punutil/miniz.c for (; (int)r->m_type >= 0; r->m_type--) r 2583 src/punutil/miniz.c pLookUp = r->m_look_up[r->m_type]; r 2584 src/punutil/miniz.c pTree = pTrees[r->m_type]; r 2585 src/punutil/miniz.c pCode_size = pCode_sizes[r->m_type]; r 2587 src/punutil/miniz.c TINFL_MEMSET(pLookUp, 0, sizeof(r->m_look_up[0])); r 2588 src/punutil/miniz.c tinfl_clear_tree(r); r 2589 src/punutil/miniz.c for (i = 0; i < r->m_table_sizes[r->m_type]; ++i) r 2602 src/punutil/miniz.c for (tree_next = -1, sym_index = 0; sym_index < r->m_table_sizes[r->m_type]; ++sym_index) r 2642 src/punutil/miniz.c if (r->m_type == 2) r 2644 src/punutil/miniz.c for (counter = 0; counter < (r->m_table_sizes[0] + r->m_table_sizes[1]);) r 2647 src/punutil/miniz.c TINFL_HUFF_DECODE(16, dist, r->m_look_up[2], r->m_tree_2); r 2650 src/punutil/miniz.c r->m_len_codes[counter++] = (mz_uint8)dist; r 2660 src/punutil/miniz.c TINFL_MEMSET(r->m_len_codes + counter, (dist == 16) ? r->m_len_codes[counter - 1] : 0, s); r 2663 src/punutil/miniz.c if ((r->m_table_sizes[0] + r->m_table_sizes[1]) != counter) r 2667 src/punutil/miniz.c TINFL_MEMCPY(r->m_code_size_0, r->m_len_codes, r->m_table_sizes[0]); r 2668 src/punutil/miniz.c TINFL_MEMCPY(r->m_code_size_1, r->m_len_codes + r->m_table_sizes[0], r->m_table_sizes[1]); r 2678 src/punutil/miniz.c TINFL_HUFF_DECODE(23, counter, r->m_look_up[0], r->m_tree_0); r 2706 src/punutil/miniz.c if ((sym2 = r->m_look_up[0][bit_buf & (TINFL_FAST_LOOKUP_SIZE - 1)]) >= 0) r 2713 src/punutil/miniz.c sym2 = r->m_tree_0[~sym2 + ((bit_buf >> code_len++) & 1)]; r 2734 src/punutil/miniz.c if ((sym2 = r->m_look_up[0][bit_buf & (TINFL_FAST_LOOKUP_SIZE - 1)]) >= 0) r 2741 src/punutil/miniz.c sym2 = r->m_tree_0[~sym2 + ((bit_buf >> code_len++) & 1)]; r 2774 src/punutil/miniz.c TINFL_HUFF_DECODE(26, dist, r->m_look_up[1], r->m_tree_1); r 2849 src/punutil/miniz.c } while (!(r->m_final & 1)); r 2871 src/punutil/miniz.c r->m_z_adler32 = (r->m_z_adler32 << 8) | s; r 2890 src/punutil/miniz.c r->m_num_bits = num_bits; r 2891 src/punutil/miniz.c r->m_bit_buf = bit_buf & ~(~(tinfl_bit_buf_t)0 << num_bits); r 2892 src/punutil/miniz.c r->m_dist = dist; r 2893 src/punutil/miniz.c r->m_counter = counter; r 2894 src/punutil/miniz.c r->m_num_extra = num_extra; r 2895 src/punutil/miniz.c r->m_dist_from_out_buf_start = dist_from_out_buf_start; r 2902 src/punutil/miniz.c mz_uint32 i, s1 = r->m_check_adler32 & 0xffff, s2 = r->m_check_adler32 >> 16; r 2923 src/punutil/miniz.c r->m_check_adler32 = (s2 << 16) + s1; r 2924 src/punutil/miniz.c if ((status == TINFL_STATUS_DONE) && (decomp_flags & TINFL_FLAG_PARSE_ZLIB_HEADER) && (r->m_check_adler32 != r->m_z_adler32)) r 3554 src/punutil/miniz.c mz_uint8 l = 0, r = 0; r 3560 src/punutil/miniz.c if ((l = MZ_TOLOWER(*pL)) != (r = MZ_TOLOWER(*pR))) r 3565 src/punutil/miniz.c return (pL == pE) ? (l_len < r_len) : (l < r); r 4443 src/punutil/miniz.c mz_uint8 l = 0, r = 0; r 4448 src/punutil/miniz.c if ((l = MZ_TOLOWER(*pL)) != (r = MZ_TOLOWER(*pR))) r 4453 src/punutil/miniz.c return (pL == pE) ? (int)(l_len - r_len) : (l - r); r 1000 src/punutil/miniz.h # define tinfl_init(r) \ r 1003 src/punutil/miniz.h (r)->m_state = 0; \ r 1006 src/punutil/miniz.h # define tinfl_get_adler32(r) (r)->m_check_adler32 r 1010 src/punutil/miniz.h MINIZ_EXPORT tinfl_status tinfl_decompress(tinfl_decompressor *r, const mz_uint8 *pIn_buf_next, size_t *pIn_buf_size, mz_uint8 *pOut_buf_start, mz_uint8 *pOut_buf_next, size_t *pOut_buf_size, const mz_uint32 decomp_flags); r 361 src/simh/scp.c void fprint_stopped (FILE *st, t_stat r); r 1403 src/simh/scp.c int r; r 1406 src/simh/scp.c r = _putenv(envstr); r 1408 src/simh/scp.c return r; r 1475 src/simh/scp.c char *p, *q, *r; r 1476 src/simh/scp.c if (*sub && (q = r = strstr(str, sub)) != NULL) { r 1478 src/simh/scp.c while ((r = strstr(p = r + len, sub)) != NULL) { r 1479 src/simh/scp.c while (p < r) r 2865 src/simh/scp.c t_stat r; r 2871 src/simh/scp.c r = help_dev_help (stdout, dptr, uptr, flag, (cmdp->action == &set_cmd) ? "SET" : "SHOW"); r 2874 src/simh/scp.c return r; r 2955 src/simh/scp.c t_stat r; r 2964 src/simh/scp.c r = help_dev_help (stdout, dptr, uptr, flag, cptr); r 2967 src/simh/scp.c return r; r 3701 src/simh/scp.c t_stat r; r 3707 src/simh/scp.c cptr = (CONST char *)get_sim_opt (CMD_OPT_SW|CMD_OPT_DFT, (CONST char *)cptr, &r); r 3871 src/simh/scp.c t_stat r; r 3877 src/simh/scp.c r = tmxr_locate_line_send (gbuf, &snd); r 3878 src/simh/scp.c if (r != SCPE_OK) r 3879 src/simh/scp.c return r; r 3888 src/simh/scp.c delay = (uint32)get_uint (&gbuf[6], 10, 2000000000, &r); r 3889 src/simh/scp.c if (r != SCPE_OK) r 3896 src/simh/scp.c after = (uint32)get_uint (&gbuf[6], 10, 2000000000, &r); r 3897 src/simh/scp.c if (r != SCPE_OK) r 3926 src/simh/scp.c t_stat r; r 3931 src/simh/scp.c r = tmxr_locate_line_send (gbuf, &snd); r 3932 src/simh/scp.c if (r != SCPE_OK) r 3933 src/simh/scp.c return r; r 3972 src/simh/scp.c t_stat r; r 3976 src/simh/scp.c r = tmxr_locate_line_expect (gbuf, &exp); r 3977 src/simh/scp.c if (r != SCPE_OK) r 3978 src/simh/scp.c return r; r 4249 src/simh/scp.c t_stat r; r 4332 src/simh/scp.c r = mptr->valid (uptr, mptr->match, cvptr, mptr->desc); r 4333 src/simh/scp.c if (r != SCPE_OK) r 4334 src/simh/scp.c return r; r 4348 src/simh/scp.c ((r = mptr->valid (uptr, mptr->match, cvptr, mptr->desc)) != SCPE_OK)) r 4349 src/simh/scp.c return r; r 4358 src/simh/scp.c r = glbr->action (dptr, uptr, glbr->arg, cvptr); /* do global */ r 4359 src/simh/scp.c if (r != SCPE_OK) r 4360 src/simh/scp.c return r; r 4493 src/simh/scp.c t_stat r = SCPE_IERR; r 4495 src/simh/scp.c cptr = get_sim_opt (CMD_OPT_SW|CMD_OPT_OF, cptr, &r); r 4498 src/simh/scp.c return r; r 4500 src/simh/scp.c r = show_cmd_fi (sim_ofile, flag, cptr); /* do show */ r 4504 src/simh/scp.c r = show_cmd_fi (stdout, flag, cptr); /* no, stdout, log */ r 4510 src/simh/scp.c return r; r 4597 src/simh/scp.c t_stat r; r 4599 src/simh/scp.c r = shptr->action (ofile, dptr, uptr, shptr->arg, cptr); r 4600 src/simh/scp.c if (r != SCPE_OK) r 4601 src/simh/scp.c return r; r 5854 src/simh/scp.c t_stat r; r 5857 src/simh/scp.c r = ssh_break (st, cptr, 1); /* more? */ r 5859 src/simh/scp.c r = sim_brk_showall (st, (uint32)sim_switches); r 5860 src/simh/scp.c return r; r 5952 src/simh/scp.c t_stat r = SCPE_OK; r 5965 src/simh/scp.c if (r == SCPE_OK) r 5967 src/simh/scp.c r = show_one_mod (st, dptr, uptr, mptr, NULL, 0); r 5976 src/simh/scp.c t_stat r = SCPE_OK; r 5979 src/simh/scp.c r = mptr->disp (st, uptr, mptr->match, (CONST void *)(cptr? cptr: mptr->desc)); r 5982 src/simh/scp.c if ((r == SCPE_OK) && (flag && !((mptr->mask & MTAB_XTD) && MODMASK(mptr,MTAB_NMO)))) r 5984 src/simh/scp.c return r; r 6023 src/simh/scp.c t_stat r; r 6072 src/simh/scp.c r = ssh_break_one (st, flg, lo, cnt, aptr); r 6073 src/simh/scp.c if (r != SCPE_OK) r 6074 src/simh/scp.c return r; r 6177 src/simh/scp.c t_stat r; r 6181 src/simh/scp.c r = reset_all (start); r 6183 src/simh/scp.c return r; r 6193 src/simh/scp.c t_stat r; r 6210 src/simh/scp.c r = scp_detach_unit (dptr, uptr); /* detach it */ r 6211 src/simh/scp.c if (r != SCPE_OK) /* error? */ r 6212 src/simh/scp.c return r; } r 6376 src/simh/scp.c t_stat r; r 6388 src/simh/scp.c r = scp_detach_unit (dptr, uptr); /* detach unit */ r 6390 src/simh/scp.c if ((r != SCPE_OK) && !shutdown) /* error and not shutting down? */ r 6391 src/simh/scp.c return r; /* bail out now with error status */ r 6483 src/simh/scp.c t_stat r; r 6504 src/simh/scp.c ((r = sim_run_boot_prep (flag)) != SCPE_OK)) { /* reset sim */ r 6506 src/simh/scp.c return r; r 6519 src/simh/scp.c r = expect_cmd (1, cptr); r 6520 src/simh/scp.c if (r != SCPE_OK) r 6521 src/simh/scp.c return r; r 6528 src/simh/scp.c r = ssh_break (NULL, cptr, SSH_ST); r 6529 src/simh/scp.c if (r != SCPE_OK) r 6530 src/simh/scp.c return sim_messagef (r, "Unable to establish breakpoint at: %s\r\n", cptr); r 6548 src/simh/scp.c sim_step = (int32) get_uint (gbuf, 10, INT_MAX, &r); r 6549 src/simh/scp.c if ((r != SCPE_OK) || (sim_step <= 0)) /* error? */ r 6563 src/simh/scp.c sim_next = (int32) get_uint (gbuf, 10, INT_MAX, &r); r 6564 src/simh/scp.c if ((r != SCPE_OK) || (sim_next <= 0)) /* error? */ r 6595 src/simh/scp.c if ((r = sim_run_boot_prep (flag)) != SCPE_OK) /* reset sim */ r 6596 src/simh/scp.c return r; r 6597 src/simh/scp.c if ((r = dptr->boot (unitno, dptr)) != SCPE_OK) /* boot device */ r 6598 src/simh/scp.c return r; r 6625 src/simh/scp.c if ((r = sim_check_console (30)) != SCPE_OK) { /* check console, error? */ r 6628 src/simh/scp.c return r; r 6669 src/simh/scp.c r = sim_instr(); r 6670 src/simh/scp.c if (r != SCPE_REMOTE) r 6681 src/simh/scp.c if (SCPE_BARE_STATUS(r) >= SCPE_BASE) /* done if an error occurred */ r 6692 src/simh/scp.c if (r != SCPE_STEP) /* done if step didn't complete with step expired */ r 6739 src/simh/scp.c return r | ((sim_switches & SWMASK ('Q')) ? SCPE_NOMESSAGE : 0); r 6745 src/simh/scp.c run_cmd_message (const char *unechoed_cmdline, t_stat r) r 6747 src/simh/scp.c if (unechoed_cmdline && (r >= SCPE_BASE) && (r != SCPE_STEP) && (r != SCPE_STOP) && (r != SCPE_EXPECT)) r 6753 src/simh/scp.c fprint_stopped (stdout, r); /* print msg */ r 6755 src/simh/scp.c fprint_stopped (sim_log, r); r 6757 src/simh/scp.c fprint_stopped (sim_deb, r); r 6769 src/simh/scp.c t_stat r; r 6778 src/simh/scp.c r = reset_all (0); r 6779 src/simh/scp.c if ((r == SCPE_OK) && (flag == RU_RUN)) { r 6786 src/simh/scp.c return r; r 6799 src/simh/scp.c t_stat r = 0; r 6826 src/simh/scp.c if ((r = dptr->examine (&sim_eval[i], k, dptr->units, SWMASK ('V')|SIM_SW_STOP)) != SCPE_OK) r 6829 src/simh/scp.c if ((r == SCPE_OK) || (i > 0)) { r 7193 src/simh/scp.c t_stat r; r 7223 src/simh/scp.c val = get_uint (cptr, rdx, mask, &r); r 7224 src/simh/scp.c if (r != SCPE_OK) r 7416 src/simh/scp.c t_stat r, reason; r 7448 src/simh/scp.c r = dptr->deposit (sim_eval[i], j, uptr, sim_switches); r 7449 src/simh/scp.c if (r != SCPE_OK) r 7450 src/simh/scp.c return r; r 7487 src/simh/scp.c t_stat r; r 7495 src/simh/scp.c if ((r = parse_sym ((CONST char *)cptr, 0, dptr->units, sim_eval, sim_switches)) > 0) { r 7496 src/simh/scp.c sim_eval[0] = get_uint (cptr, rdx, width_mask[dptr->dwidth], &r); r 7497 src/simh/scp.c if (r != SCPE_OK) r 7498 src/simh/scp.c return r; r 7500 src/simh/scp.c lim = 1 - r; r 7503 src/simh/scp.c if ((r = fprint_sym (stdout, a, &sim_eval[i], dptr->units, sim_switches)) > 0) r 7504 src/simh/scp.c r = fprint_val (stdout, sim_eval[i], rdx, dptr->dwidth, PV_RZRO); r 7506 src/simh/scp.c if ((r = fprint_sym (sim_log, a, &sim_eval[i], dptr->units, sim_switches)) > 0) r 7507 src/simh/scp.c r = fprint_val (sim_log, sim_eval[i], rdx, dptr->dwidth, PV_RZRO); r 7510 src/simh/scp.c if (r < 0) r 7511 src/simh/scp.c a = a + 1 - r; r 8070 src/simh/scp.c t_stat r; r 8095 src/simh/scp.c u = (uint32) get_uint (tptr, 10, dptr->numunits - 1, &r); r 8096 src/simh/scp.c if (r != SCPE_OK) /* error? */ r 9795 src/simh/scp.c t_stat r; r 9813 src/simh/scp.c after = (uint32)get_uint (&gbuf[10], 10, 2000000000, &r); r 9814 src/simh/scp.c if (r != SCPE_OK) r 11641 src/simh/scp.c t_stat r; r 11645 src/simh/scp.c r = scp_vhelp (st, dptr, uptr, flag, help, cptr, ap); r 11648 src/simh/scp.c return r; r 80 src/simh/scp.h void run_cmd_message (const char *unechod_cmdline, t_stat r); r 288 src/simh/sim_console.c t_stat r; r 298 src/simh/sim_console.c r = ctptr->action (ctptr->arg, cvptr); /* do the rest */ r 299 src/simh/sim_console.c if (r != SCPE_OK) r 300 src/simh/sim_console.c return r; r 377 src/simh/sim_console.c t_stat r; r 387 src/simh/sim_console.c r = ctptr->action (ctptr->arg, cvptr); /* do the rest */ r 388 src/simh/sim_console.c if (r != SCPE_OK) r 389 src/simh/sim_console.c return r; r 560 src/simh/sim_console.c t_stat r; r 563 src/simh/sim_console.c r = help_cmd (flag, cptr); r 565 src/simh/sim_console.c return r; r 1072 src/simh/sim_console.c t_stat r; r 1075 src/simh/sim_console.c r = sim_parse_addr (cptr, NULL, 0, NULL, NULL, 0, NULL, NULL); r 1076 src/simh/sim_console.c if (r == SCPE_OK) { r 1083 src/simh/sim_console.c r = tmxr_attach (&sim_rem_con_tmxr, &sim_rem_con_unit[0], cptr);/* open master socket */ r 1084 src/simh/sim_console.c if (r == SCPE_OK) r 1086 src/simh/sim_console.c return r; r 1110 src/simh/sim_console.c t_stat r; r 1115 src/simh/sim_console.c lines = (int32) get_uint (cptr, 10, MAX_REMOTE_SESSIONS, &r); r 1116 src/simh/sim_console.c if (r != SCPE_OK) r 1117 src/simh/sim_console.c return r; r 1227 src/simh/sim_console.c t_stat r; r 1231 src/simh/sim_console.c timeout = (int32) get_uint (cptr, 10, 3600, &r); r 1232 src/simh/sim_console.c if (r != SCPE_OK) r 1233 src/simh/sim_console.c return r; r 1247 src/simh/sim_console.c t_stat r; r 1253 src/simh/sim_console.c val = (int32) get_uint (cptr, rdx, 0177, &r); //-V536 r 1254 src/simh/sim_console.c if ((r != SCPE_OK) || r 1277 src/simh/sim_console.c t_stat r; r 1283 src/simh/sim_console.c val = (uint32) get_uint (cptr, rdx, 0xFFFFFFFF, &r); r 1284 src/simh/sim_console.c if ((r != SCPE_OK) || r 1314 src/simh/sim_console.c t_stat r; r 1323 src/simh/sim_console.c r = sim_open_logfile (gbuf, (sim_switches & SWMASK ('B')) == SWMASK ('B'), r 1325 src/simh/sim_console.c if (r != SCPE_OK) /* error? */ r 1326 src/simh/sim_console.c return r; r 1371 src/simh/sim_console.c t_stat r; r 1380 src/simh/sim_console.c r = sim_open_logfile (gbuf, FALSE, &sim_deb, &sim_deb_ref); r 1382 src/simh/sim_console.c if (r != SCPE_OK) r 1383 src/simh/sim_console.c return r; r 1504 src/simh/sim_console.c t_stat r; r 1514 src/simh/sim_console.c r = ctptr->action (ctptr->arg, cvptr); /* do the rest */ r 1515 src/simh/sim_console.c if (r != SCPE_OK) r 1516 src/simh/sim_console.c return r; r 1521 src/simh/sim_console.c r = tmxr_attach (&sim_con_tmxr, &sim_con_unit, gbuf);/* open master socket */ r 1522 src/simh/sim_console.c if (r == SCPE_OK) r 1525 src/simh/sim_console.c return r; r 2455 src/simh/sim_console.c t_stat r; r 2460 src/simh/sim_console.c val = (int32) get_uint (cptr, 10, INT_MAX, &r); /* parse the argument */ r 2462 src/simh/sim_console.c if (r == SCPE_OK) /* parse OK? */ r 2465 src/simh/sim_console.c return r; r 161 src/simh/sim_disk.c t_stat r; r 168 src/simh/sim_disk.c cap = (t_offset) get_uint (cptr, 10, 2000000, &r); r 169 src/simh/sim_disk.c if (r != SCPE_OK) r 214 src/simh/sim_disk.c t_bool r = FALSE; r 215 src/simh/sim_disk.c r = sim_disk_isavailable (uptr); r 216 src/simh/sim_disk.c return r; r 270 src/simh/sim_disk.c t_stat r; r 316 src/simh/sim_disk.c r = _sim_disk_rdsect (uptr, tlba, tbuf, &sread, tsects); r 322 src/simh/sim_disk.c if (r == SCPE_OK) { r 331 src/simh/sim_disk.c return r; r 337 src/simh/sim_disk.c t_stat r = SCPE_OK; r 338 src/simh/sim_disk.c r = sim_disk_rdsect (uptr, lba, buf, sectsread, sects); r 339 src/simh/sim_disk.c return r; r 372 src/simh/sim_disk.c t_stat r; r 429 src/simh/sim_disk.c r = SCPE_NOFNC; r 449 src/simh/sim_disk.c r = SCPE_NOFNC; r 456 src/simh/sim_disk.c r = SCPE_NOFNC; r 463 src/simh/sim_disk.c r = SCPE_NOFNC; r 473 src/simh/sim_disk.c return r; r 478 src/simh/sim_disk.c t_stat r = SCPE_OK; r 479 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, lba, buf, sectswritten, sects); r 480 src/simh/sim_disk.c return r; r 881 src/simh/sim_disk.c t_stat r = SCPE_OK; r 884 src/simh/sim_disk.c r = SCPE_MEM; r 885 src/simh/sim_disk.c if (r == SCPE_OK) r 886 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, r 889 src/simh/sim_disk.c if (r == SCPE_OK) r 890 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, (t_lba)(0), secbuf, NULL, 1); /* Write First Sector */ r 892 src/simh/sim_disk.c if (r != SCPE_OK) { r 910 src/simh/sim_disk.c for (lba = 0; (lba < total_sectors) && (r == SCPE_OK); lba += sects) { r 919 src/simh/sim_disk.c r = sim_disk_wrsect (uptr, lba, init_buf, NULL, sects); r 920 src/simh/sim_disk.c if (r != SCPE_OK) { r 941 src/simh/sim_disk.c t_stat r = SCPE_OK; r 953 src/simh/sim_disk.c for (lba = 0; (lba < total_sectors) && (r == SCPE_OK); lba += sects) { r 957 src/simh/sim_disk.c r = sim_disk_rdsect (uptr, lba, verify_buf, NULL, sects); r 958 src/simh/sim_disk.c if (r == SCPE_OK) { r 808 src/simh/sim_sock.c int r; r 812 src/simh/sim_sock.c r = sim_parse_addr (hostport, host, sizeof(host), NULL, port, sizeof(port), NULL, NULL); r 814 src/simh/sim_sock.c *parse_status = r; r 815 src/simh/sim_sock.c if (r) r 154 src/simh/sim_tape.c t_stat r; r 170 src/simh/sim_tape.c r = attach_unit (uptr, (CONST char *)cptr); /* attach unit */ r 171 src/simh/sim_tape.c if (r != SCPE_OK) /* error? */ r 172 src/simh/sim_tape.c return sim_messagef (r, "Can't open tape image: %s\r\n", cptr); r 238 src/simh/sim_tape.c t_stat r; r 255 src/simh/sim_tape.c r = detach_unit (uptr); /* detach unit */ r 256 src/simh/sim_tape.c if (r != SCPE_OK) r 257 src/simh/sim_tape.c return r; r 411 src/simh/sim_tape.c t_stat r = MTSE_OK; r 442 src/simh/sim_tape.c r = MTSE_RUNAWAY; /* then report a tape runaway */ r 444 src/simh/sim_tape.c r = MTSE_EOM; /* as the end-of-medium */ r 464 src/simh/sim_tape.c r = sim_tape_ioerr (uptr); /* report the error and quit */ r 472 src/simh/sim_tape.c r = MTSE_EOM; /* and report the end-of-medium and quit */ r 478 src/simh/sim_tape.c r = MTSE_RUNAWAY; /* then report a tape runaway */ r 480 src/simh/sim_tape.c r = MTSE_EOM; /* as the end-of-medium */ r 492 src/simh/sim_tape.c r = MTSE_RUNAWAY; /* then report a tape runaway */ r 494 src/simh/sim_tape.c r = MTSE_EOM; /* as the end-of-medium */ r 501 src/simh/sim_tape.c r = MTSE_TMK; /* then quit with tape mark status */ r 528 src/simh/sim_tape.c if (r == MTSE_OK && runaway_counter <= 0) /* if a tape runaway occurred */ r 529 src/simh/sim_tape.c r = MTSE_RUNAWAY; /* then report it */ r 542 src/simh/sim_tape.c r = MTSE_EOM; r 547 src/simh/sim_tape.c r = MTSE_TMK; r 572 src/simh/sim_tape.c r = MTSE_TMK; r 580 src/simh/sim_tape.c (long long)r, (long long)*bc, uptr->pos); r 582 src/simh/sim_tape.c return r; r 626 src/simh/sim_tape.c t_stat r = MTSE_OK; r 659 src/simh/sim_tape.c r = MTSE_BOT; /* then quit with an error */ r 676 src/simh/sim_tape.c r = sim_tape_ioerr (uptr); /* report the error and quit */ r 693 src/simh/sim_tape.c r = MTSE_TMK; /* then quit with tape mark status */ r 719 src/simh/sim_tape.c if (r == MTSE_OK && runaway_counter <= 0) /* if a tape runaway occurred */ r 720 src/simh/sim_tape.c r = MTSE_RUNAWAY; /* then report it */ r 732 src/simh/sim_tape.c r = MTSE_EOM; r 737 src/simh/sim_tape.c r = MTSE_TMK; r 750 src/simh/sim_tape.c r = MTSE_EOM; r 762 src/simh/sim_tape.c r = MTSE_TMK; r 769 src/simh/sim_tape.c (long long)r, (long long)*bc, uptr->pos); r 770 src/simh/sim_tape.c return r; r 832 src/simh/sim_tape.c t_stat r = SCPE_OK; r 833 src/simh/sim_tape.c r = sim_tape_rdrecf (uptr, buf, bc, max); r 834 src/simh/sim_tape.c return r; r 889 src/simh/sim_tape.c t_stat r = SCPE_OK; r 890 src/simh/sim_tape.c r = sim_tape_rdrecr (uptr, buf, bc, max); r 891 src/simh/sim_tape.c return r; r 965 src/simh/sim_tape.c t_stat r = SCPE_OK; r 966 src/simh/sim_tape.c r = sim_tape_wrrecf (uptr, buf, bc); r 967 src/simh/sim_tape.c return r; r 1013 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1014 src/simh/sim_tape.c r = sim_tape_wrtmk (uptr); r 1015 src/simh/sim_tape.c return r; r 1041 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1042 src/simh/sim_tape.c r = sim_tape_wreom (uptr); r 1043 src/simh/sim_tape.c return r; r 1051 src/simh/sim_tape.c t_stat r; r 1058 src/simh/sim_tape.c r = sim_tape_wrdata (uptr, MTR_EOM); r 1059 src/simh/sim_tape.c if (r == MTSE_OK) r 1060 src/simh/sim_tape.c r = sim_tape_rewind (uptr); r 1061 src/simh/sim_tape.c return r; r 1066 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1067 src/simh/sim_tape.c r = sim_tape_wreomrw (uptr); r 1068 src/simh/sim_tape.c return r; r 1323 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1324 src/simh/sim_tape.c return r; r 1362 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1363 src/simh/sim_tape.c r = sim_tape_sprecf (uptr, bc); r 1364 src/simh/sim_tape.c return r; r 1409 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1410 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, count, skipped); r 1411 src/simh/sim_tape.c return r; r 1454 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1455 src/simh/sim_tape.c r = sim_tape_sprecr (uptr, bc); r 1456 src/simh/sim_tape.c return r; r 1502 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1503 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, count, skipped); r 1504 src/simh/sim_tape.c return r; r 1576 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1577 src/simh/sim_tape.c r = sim_tape_spfilebyrecf \ r 1579 src/simh/sim_tape.c return r; r 1616 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1617 src/simh/sim_tape.c r = sim_tape_spfilef (uptr, count, skipped); r 1618 src/simh/sim_tape.c return r; r 1672 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1673 src/simh/sim_tape.c r = sim_tape_spfilebyrecr (uptr, count, skipped, recsskipped); r 1674 src/simh/sim_tape.c return r; r 1712 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1713 src/simh/sim_tape.c r = sim_tape_spfiler (uptr, count, skipped); r 1714 src/simh/sim_tape.c return r; r 1735 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1736 src/simh/sim_tape.c r = sim_tape_rewind (uptr); r 1737 src/simh/sim_tape.c return r; r 1746 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1755 src/simh/sim_tape.c r = sim_tape_rewind (uptr); r 1756 src/simh/sim_tape.c if (r != MTSE_OK) r 1757 src/simh/sim_tape.c return r; r 1765 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, objsremaining, &skipped); r 1767 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, objsremaining, &skipped); r 1768 src/simh/sim_tape.c objsremaining = objsremaining - (skipped + ((r == MTSE_TMK) ? 1 : 0)); r 1769 src/simh/sim_tape.c if ((r == MTSE_TMK) || (r == MTSE_OK)) r 1770 src/simh/sim_tape.c *objectsskipped = *objectsskipped + skipped + ((r == MTSE_TMK) ? 1 : 0); r 1772 src/simh/sim_tape.c return r; r 1774 src/simh/sim_tape.c r = MTSE_OK; r 1780 src/simh/sim_tape.c r = sim_tape_spfilebyrecr (uptr, files, filesskipped, &fileskiprecs); r 1782 src/simh/sim_tape.c r = sim_tape_spfilebyrecf (uptr, files, filesskipped, &fileskiprecs, (flags & MTPOS_M_DLE)); r 1783 src/simh/sim_tape.c if (r != MTSE_OK) r 1784 src/simh/sim_tape.c return r; r 1786 src/simh/sim_tape.c r = sim_tape_sprecsr (uptr, recs, recsskipped); r 1788 src/simh/sim_tape.c r = sim_tape_sprecsf (uptr, recs, recsskipped); r 1789 src/simh/sim_tape.c if (r == MTSE_TMK) r 1793 src/simh/sim_tape.c return r; r 1800 src/simh/sim_tape.c t_stat r = MTSE_OK; r 1801 src/simh/sim_tape.c r = sim_tape_position (uptr, flags, recs, recsskipped, files, filesskipped, objectsskipped); r 1802 src/simh/sim_tape.c return r; r 2050 src/simh/sim_tape.c t_stat r; r 2056 src/simh/sim_tape.c cap = (t_addr) get_uint (cptr, 10, 2000000, &r); r 2057 src/simh/sim_tape.c if (r != SCPE_OK) r 1006 src/simh/sim_tmxr.c int j, r = (int)random(); r 1030 src/simh/sim_tmxr.c switch (((unsigned)j+(unsigned)r)&1) { r 1893 src/simh/sim_tmxr.c t_stat r; r 1928 src/simh/sim_tmxr.c (SCPE_OK == (r = tmxr_putc_ln (lp, lp->txpb[lp->txppoffset])))) r 1930 src/simh/sim_tmxr.c (void)r; r 1971 src/simh/sim_tmxr.c t_stat r; r 2007 src/simh/sim_tmxr.c (SCPE_OK == (r = tmxr_putc_ln (lp, lp->txpb[lp->txppoffset])))) r 2009 src/simh/sim_tmxr.c (void)r; r 2131 src/simh/sim_tmxr.c t_stat r; r 2141 src/simh/sim_tmxr.c uint32 rxbpsfactor = (uint32) get_uint (cptr+1, 10, 32, &r); r 2142 src/simh/sim_tmxr.c if (r != SCPE_OK) r 2143 src/simh/sim_tmxr.c return r; r 2178 src/simh/sim_tmxr.c t_stat r = SCPE_OK; r 2223 src/simh/sim_tmxr.c nextline = (int32) get_uint (cptr, 10, mp->lines-1, &r); r 2224 src/simh/sim_tmxr.c if (r) r 2250 src/simh/sim_tmxr.c i = (int32) get_uint (cptr, 10, 1024*1024, &r); r 2251 src/simh/sim_tmxr.c if (r || (i == 0)) r 2323 src/simh/sim_tmxr.c sock = sim_master_sock (port, &r); /* make master socket to validate port */ r 2324 src/simh/sim_tmxr.c if (r) r 2419 src/simh/sim_tmxr.c r = sim_open_logfile (lp->txlogname, TRUE, &lp->txlog, &lp->txlogref); r 2420 src/simh/sim_tmxr.c if (r == SCPE_OK) r 2496 src/simh/sim_tmxr.c sock = sim_master_sock (listen, &r); /* make master socket */ r 2497 src/simh/sim_tmxr.c if (r) r 2647 src/simh/sim_tmxr.c r = sim_open_logfile (lp->txlogname, TRUE, &lp->txlog, &lp->txlogref); r 2648 src/simh/sim_tmxr.c if (r == SCPE_OK) r 2653 src/simh/sim_tmxr.c return sim_messagef (r, "Can't open log file: %s\r\n", logfiletmpl); r 2716 src/simh/sim_tmxr.c sock = sim_master_sock (listen, &r); /* make master socket */ r 2717 src/simh/sim_tmxr.c if (r) r 2821 src/simh/sim_tmxr.c r = SCPE_OK; r 2823 src/simh/sim_tmxr.c if (r == SCPE_OK) r 2825 src/simh/sim_tmxr.c return r; r 2944 src/simh/sim_tmxr.c t_stat r; r 2957 src/simh/sim_tmxr.c int line = (int)get_uint (cptr, 10, tmxr_open_devices[i]->lines, &r); r 2958 src/simh/sim_tmxr.c if (r != SCPE_OK) r 2959 src/simh/sim_tmxr.c return r; r 2988 src/simh/sim_tmxr.c t_stat r; r 2991 src/simh/sim_tmxr.c r = tmxr_open_master (mp, cptr); /* open master socket */ r 2992 src/simh/sim_tmxr.c if (r != SCPE_OK) /* error? */ r 2993 src/simh/sim_tmxr.c return r; r 3682 src/simh/sim_tmxr.c t_stat r; r 3695 src/simh/sim_tmxr.c r = sim_open_logfile (cptr, TRUE, &lp->txlog, &lp->txlogref); /* open log */ r 3696 src/simh/sim_tmxr.c if (r != SCPE_OK) { /* error? */ r 3698 src/simh/sim_tmxr.c return r;