rptr 94 src/dps8/bsd_random.c static long *rptr = &randtbl[1]; rptr 118 src/dps8/bsd_random.c rptr = &state[0]; rptr 137 src/dps8/bsd_random.c state[-1] = MAX_TYPES * ( rptr - state ) + rand_type; rptr 185 src/dps8/bsd_random.c state[-1] = MAX_TYPES * ( rptr - state ) + rand_type; rptr 205 src/dps8/bsd_random.c state[-1] = MAX_TYPES * ( rptr - state ) + rand_type; rptr 224 src/dps8/bsd_random.c rptr = &state[rear]; rptr 243 src/dps8/bsd_random.c *fptr += *rptr; rptr 248 src/dps8/bsd_random.c ++rptr; rptr 250 src/dps8/bsd_random.c else if (++rptr >= end_ptr) rptr 252 src/dps8/bsd_random.c rptr = state; rptr 355 src/simh/scp.c t_value get_rval (REG *rptr, uint32 idx); rptr 356 src/simh/scp.c void put_rval (REG *rptr, uint32 idx, t_value val); rptr 378 src/simh/scp.c t_stat ex_reg (FILE *ofile, t_value val, int32 flag, REG *rptr, uint32 idx); rptr 379 src/simh/scp.c t_stat dep_reg (int32 flag, CONST char *cptr, REG *rptr, uint32 idx); rptr 2448 src/simh/scp.c REG *rptr, *trptr; rptr 2458 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 2459 src/simh/scp.c if (rptr->flags & REG_HIDDEN) rptr 2461 src/simh/scp.c if (rptr->depth > 1) rptr 2462 src/simh/scp.c (void)sprintf (rangebuf, "[%d:%d]", 0, rptr->depth-1); rptr 2465 src/simh/scp.c if (max_namelen < (strlen(rptr->name) + strlen (rangebuf))) rptr 2466 src/simh/scp.c max_namelen = strlen(rptr->name) + strlen (rangebuf); rptr 2468 src/simh/scp.c trptr = find_reg_glob (rptr->name, &tptr, &tdptr); rptr 2493 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 2494 src/simh/scp.c if (rptr->flags & REG_HIDDEN) rptr 2496 src/simh/scp.c if (rptr->depth <= 1) rptr 2499 src/simh/scp.c rptr->name); rptr 2503 src/simh/scp.c rptr->depth-1); rptr 2505 src/simh/scp.c rptr->name, rptr 2506 src/simh/scp.c (int)(strlen(rptr->name))-((int)max_namelen), rptr 2512 src/simh/scp.c rptr->width, rptr 2513 src/simh/scp.c rptr->desc ? rptr->desc : ""); rptr 2516 src/simh/scp.c trptr = find_reg_glob (rptr->name, &tptr, &tdptr); rptr 2521 src/simh/scp.c rptr->width, rptr 2522 src/simh/scp.c rptr->desc ? rptr->desc : ""); rptr 2527 src/simh/scp.c rptr->width, rptr 2528 src/simh/scp.c rptr->desc ? rptr->desc : ""); rptr 3682 src/simh/scp.c REG *rptr; rptr 3765 src/simh/scp.c rptr = find_reg (gbuf, &gptr, sim_dfdev); /* parse register */ rptr 3766 src/simh/scp.c if (rptr) { /* got register? */ rptr 3768 src/simh/scp.c if (rptr->depth <= 1) /* array register? */ rptr 3776 src/simh/scp.c if (idx >= rptr->depth) /* validate subscript */ rptr 3802 src/simh/scp.c if (rptr) { /* Handle register case */ rptr 3807 src/simh/scp.c if (!get_rsearch (gbuf, rptr->radix, &sim_stabr) || /* parse condition */ rptr 3813 src/simh/scp.c val = get_rval (rptr, idx); /* get register value */ rptr 6921 src/simh/scp.c REG *rptr; rptr 6927 src/simh/scp.c for (rptr = lowr; rptr <= highr; rptr++) { rptr 6929 src/simh/scp.c (rptr->flags & REG_HIDDEN)) rptr 6933 src/simh/scp.c if (idx >= rptr->depth) rptr 6935 src/simh/scp.c val = get_rval (rptr, idx); rptr 6943 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, idx-1); rptr 6947 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, idx-1); rptr 6951 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]-%s[%d]: same as above\r\n", rptr->name, val_start+1, rptr->name, idx-1); rptr 6953 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]-%s[%d]: same as above\r\n", rptr->name, val_start+1, rptr->name, idx-1); rptr 6956 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]: same as above\r\n", rptr->name, val_start+1); rptr 6958 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]: same as above\r\n", rptr->name, val_start+1); rptr 6964 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, idx); rptr 6968 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, idx); rptr 6971 src/simh/scp.c reason = dep_reg (flag, cptr, rptr, idx); rptr 6978 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, highs); rptr 6982 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, highs); rptr 6986 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]-%s[%d]: same as above\r\n", rptr->name, val_start+1, rptr->name, highs); rptr 6988 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]-%s[%d]: same as above\r\n", rptr->name, val_start+1, rptr->name, highs); rptr 6991 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]: same as above\r\n", rptr->name, val_start+1); rptr 6993 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]: same as above\r\n", rptr->name, val_start+1); rptr 7050 src/simh/scp.c t_stat ex_reg (FILE *ofile, t_value val, int32 flag, REG *rptr, uint32 idx) rptr 7054 src/simh/scp.c if (rptr == NULL) rptr 7056 src/simh/scp.c if (rptr->depth > 1) rptr 7057 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]:\t", rptr->name, idx); rptr 7059 src/simh/scp.c (void)Fprintf (ofile, "%s:\t", rptr->name); rptr 7062 src/simh/scp.c GET_RADIX (rdx, rptr->radix); rptr 7063 src/simh/scp.c if ((rptr->flags & REG_VMAD) && sim_vm_fprint_addr && sim_dflt_dev) rptr 7065 src/simh/scp.c else if (!(rptr->flags & REG_VMFLAGS) || rptr 7066 src/simh/scp.c (fprint_sym (ofile, (rptr->flags & REG_UFMASK) | rdx, &val, rptr 7068 src/simh/scp.c fprint_val (ofile, val, rdx, rptr->width, rptr->flags & REG_FMT); rptr 7069 src/simh/scp.c if (rptr->fields) { rptr 7071 src/simh/scp.c fprint_fields (ofile, val, val, rptr->fields); rptr 7090 src/simh/scp.c t_value get_rval (REG *rptr, uint32 idx) rptr 7096 src/simh/scp.c sz = SZ_R (rptr); rptr 7097 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_CIRC)) { rptr 7098 src/simh/scp.c idx = idx + rptr->qptr; rptr 7099 src/simh/scp.c if (idx >= rptr->depth) idx = idx - rptr->depth; rptr 7101 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_UNIT)) { rptr 7102 src/simh/scp.c ptr = (uint32 *)(((UNIT *) rptr->loc) + idx); rptr 7107 src/simh/scp.c else if ((rptr->depth > 1) && (rptr->flags & REG_STRUCT)) { rptr 7108 src/simh/scp.c ptr = (uint32 *)(((size_t) rptr->loc) + (idx * rptr->str_size)); rptr 7113 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 7115 src/simh/scp.c val = *(((uint8 *) rptr->loc) + idx); rptr 7116 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 7118 src/simh/scp.c val = *(((uint16 *) rptr->loc) + idx); rptr 7120 src/simh/scp.c val = *(((uint32 *) rptr->loc) + idx); rptr 7121 src/simh/scp.c else val = *(((t_uint64 *) rptr->loc) + idx); rptr 7122 src/simh/scp.c val = (val >> rptr->offset) & width_mask[rptr->width]; rptr 7137 src/simh/scp.c t_stat dep_reg (int32 flag, CONST char *cptr, REG *rptr, uint32 idx) rptr 7145 src/simh/scp.c if ((cptr == NULL) || (rptr == NULL)) rptr 7147 src/simh/scp.c if (rptr->flags & REG_RO) rptr 7158 src/simh/scp.c mask = width_mask[rptr->width]; rptr 7159 src/simh/scp.c GET_RADIX (rdx, rptr->radix); rptr 7160 src/simh/scp.c if ((rptr->flags & REG_VMAD) && sim_vm_parse_addr && sim_dflt_dev) { /* address form? */ rptr 7166 src/simh/scp.c if (!(rptr->flags & REG_VMFLAGS) || /* don't use sym? */ rptr 7167 src/simh/scp.c (parse_sym ((CONST char *)cptr, (rptr->flags & REG_UFMASK) | rdx, NULL, rptr 7173 src/simh/scp.c if ((rptr->flags & REG_NZ) && (val == 0)) rptr 7175 src/simh/scp.c put_rval (rptr, idx, val); rptr 7190 src/simh/scp.c void put_rval (REG *rptr, uint32 idx, t_value val) rptr 7201 src/simh/scp.c if (rptr == sim_PC) rptr 7203 src/simh/scp.c sz = SZ_R (rptr); rptr 7204 src/simh/scp.c mask = width_mask[rptr->width]; rptr 7205 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_CIRC)) { rptr 7206 src/simh/scp.c idx = idx + rptr->qptr; rptr 7207 src/simh/scp.c if (idx >= rptr->depth) rptr 7208 src/simh/scp.c idx = idx - rptr->depth; rptr 7210 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_UNIT)) { rptr 7211 src/simh/scp.c ptr = (uint32 *)(((UNIT *) rptr->loc) + idx); rptr 7214 src/simh/scp.c ~(((uint32) mask) << rptr->offset)) | rptr 7215 src/simh/scp.c (((uint32) val) << rptr->offset); rptr 7217 src/simh/scp.c & ~(mask << rptr->offset)) | (val << rptr->offset); rptr 7219 src/simh/scp.c else if ((rptr->depth > 1) && (rptr->flags & REG_STRUCT)) { rptr 7220 src/simh/scp.c ptr = (uint32 *)(((size_t) rptr->loc) + (idx * rptr->str_size)); rptr 7223 src/simh/scp.c ~(((uint32) mask) << rptr->offset)) | rptr 7224 src/simh/scp.c (((uint32) val) << rptr->offset); rptr 7226 src/simh/scp.c & ~(mask << rptr->offset)) | (val << rptr->offset); rptr 7228 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 7230 src/simh/scp.c PUT_RVAL (uint8, rptr, idx, (uint32) val, (uint32) mask); rptr 7231 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 7233 src/simh/scp.c PUT_RVAL (uint16, rptr, idx, (uint32) val, (uint32) mask); rptr 7235 src/simh/scp.c PUT_RVAL (uint32, rptr, idx, (int32) val, (uint32) mask); rptr 7236 src/simh/scp.c else PUT_RVAL (t_uint64, rptr, idx, val, mask); rptr 8148 src/simh/scp.c REG *rptr, *srptr = NULL; rptr 8154 src/simh/scp.c if ((rptr = find_reg (cptr, optr, dptr))) { /* found? */ rptr 8157 src/simh/scp.c srptr = rptr; /* save reg */ rptr 8178 src/simh/scp.c REG *rptr; rptr 8188 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 8189 src/simh/scp.c if ((slnt == strlen (rptr->name)) && rptr 8190 src/simh/scp.c (strncmp (cptr, rptr->name, slnt) == 0)) { rptr 8193 src/simh/scp.c return rptr;