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 270 src/simh/scp.c t_value get_rval (REG *rptr, uint32 idx); rptr 271 src/simh/scp.c void put_rval (REG *rptr, uint32 idx, t_value val); rptr 293 src/simh/scp.c t_stat ex_reg (FILE *ofile, t_value val, int32 flag, REG *rptr, uint32 idx); rptr 294 src/simh/scp.c t_stat dep_reg (int32 flag, CONST char *cptr, REG *rptr, uint32 idx); rptr 2106 src/simh/scp.c REG *rptr, *trptr; rptr 2116 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 2117 src/simh/scp.c if (rptr->flags & REG_HIDDEN) rptr 2119 src/simh/scp.c if (rptr->depth > 1) rptr 2120 src/simh/scp.c sprintf (rangebuf, "[%d:%d]", 0, rptr->depth-1); rptr 2123 src/simh/scp.c if (max_namelen < (strlen(rptr->name) + strlen (rangebuf))) rptr 2124 src/simh/scp.c max_namelen = strlen(rptr->name) + strlen (rangebuf); rptr 2126 src/simh/scp.c trptr = find_reg_glob (rptr->name, &tptr, &tdptr); rptr 2149 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 2150 src/simh/scp.c if (rptr->flags & REG_HIDDEN) rptr 2152 src/simh/scp.c if (rptr->depth <= 1) rptr 2153 src/simh/scp.c sprintf (namebuf, "%*s", -((int)max_namelen), rptr->name); rptr 2155 src/simh/scp.c sprintf (rangebuf, "[%d:%d]", 0, rptr->depth-1); rptr 2156 src/simh/scp.c sprintf (namebuf, "%s%*s", rptr->name, (int)(strlen(rptr->name))-((int)max_namelen), rangebuf); rptr 2159 src/simh/scp.c fprintf (st, " %s %4d %s\n", namebuf, rptr->width, rptr->desc ? rptr->desc : ""); rptr 2162 src/simh/scp.c trptr = find_reg_glob (rptr->name, &tptr, &tdptr); rptr 2164 src/simh/scp.c fprintf (st, " %s %s %4d %s\n", dptr->name, namebuf, rptr->width, rptr->desc ? rptr->desc : ""); rptr 2166 src/simh/scp.c fprintf (st, " %*s %s %4d %s\n", (int)strlen(dptr->name), "", namebuf, rptr->width, rptr->desc ? rptr->desc : ""); rptr 3287 src/simh/scp.c REG *rptr; rptr 3363 src/simh/scp.c rptr = find_reg (gbuf, &gptr, sim_dfdev); /* parse register */ rptr 3364 src/simh/scp.c if (rptr) { /* got register? */ rptr 3366 src/simh/scp.c if (rptr->depth <= 1) /* array register? */ rptr 3374 src/simh/scp.c if (idx >= rptr->depth) /* validate subscript */ rptr 3400 src/simh/scp.c if (rptr) { /* Handle register case */ rptr 3401 src/simh/scp.c if (!get_rsearch (gbuf, rptr->radix, &sim_stabr) || /* parse condition */ rptr 3404 src/simh/scp.c val = get_rval (rptr, idx); /* get register value */ rptr 6167 src/simh/scp.c REG *rptr; rptr 6173 src/simh/scp.c for (rptr = lowr; rptr <= highr; rptr++) { rptr 6175 src/simh/scp.c (rptr->flags & REG_HIDDEN)) rptr 6179 src/simh/scp.c if (idx >= rptr->depth) rptr 6181 src/simh/scp.c val = get_rval (rptr, idx); rptr 6189 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, idx-1); rptr 6193 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, idx-1); rptr 6197 src/simh/scp.c Fprintf (ofile, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, idx-1); rptr 6199 src/simh/scp.c Fprintf (sim_log, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, idx-1); rptr 6202 src/simh/scp.c Fprintf (ofile, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6204 src/simh/scp.c Fprintf (sim_log, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6210 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, idx); rptr 6214 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, idx); rptr 6217 src/simh/scp.c reason = dep_reg (flag, cptr, rptr, idx); rptr 6224 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, highs); rptr 6228 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, highs); rptr 6232 src/simh/scp.c Fprintf (ofile, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, highs); rptr 6234 src/simh/scp.c Fprintf (sim_log, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, highs); rptr 6237 src/simh/scp.c Fprintf (ofile, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6239 src/simh/scp.c Fprintf (sim_log, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6296 src/simh/scp.c t_stat ex_reg (FILE *ofile, t_value val, int32 flag, REG *rptr, uint32 idx) rptr 6300 src/simh/scp.c if (rptr == NULL) rptr 6302 src/simh/scp.c if (rptr->depth > 1) rptr 6303 src/simh/scp.c Fprintf (ofile, "%s[%d]:\t", rptr->name, idx); rptr 6304 src/simh/scp.c else Fprintf (ofile, "%s:\t", rptr->name); rptr 6307 src/simh/scp.c GET_RADIX (rdx, rptr->radix); rptr 6308 src/simh/scp.c if ((rptr->flags & REG_VMAD) && sim_vm_fprint_addr && sim_dflt_dev) rptr 6310 src/simh/scp.c else if (!(rptr->flags & REG_VMFLAGS) || rptr 6311 src/simh/scp.c (fprint_sym (ofile, (rptr->flags & REG_UFMASK) | rdx, &val, rptr 6313 src/simh/scp.c fprint_val (ofile, val, rdx, rptr->width, rptr->flags & REG_FMT); rptr 6314 src/simh/scp.c if (rptr->fields) { rptr 6316 src/simh/scp.c fprint_fields (ofile, val, val, rptr->fields); rptr 6334 src/simh/scp.c t_value get_rval (REG *rptr, uint32 idx) rptr 6340 src/simh/scp.c sz = SZ_R (rptr); rptr 6341 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_CIRC)) { rptr 6342 src/simh/scp.c idx = idx + rptr->qptr; rptr 6343 src/simh/scp.c if (idx >= rptr->depth) idx = idx - rptr->depth; rptr 6345 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_UNIT)) { rptr 6346 src/simh/scp.c ptr = (uint32 *)(((UNIT *) rptr->loc) + idx); rptr 6351 src/simh/scp.c else if ((rptr->depth > 1) && (rptr->flags & REG_STRUCT)) { rptr 6352 src/simh/scp.c ptr = (uint32 *)(((size_t) rptr->loc) + (idx * rptr->str_size)); rptr 6357 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 6359 src/simh/scp.c val = *(((uint8 *) rptr->loc) + idx); rptr 6360 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 6362 src/simh/scp.c val = *(((uint16 *) rptr->loc) + idx); rptr 6364 src/simh/scp.c val = *(((uint32 *) rptr->loc) + idx); rptr 6365 src/simh/scp.c else val = *(((t_uint64 *) rptr->loc) + idx); rptr 6366 src/simh/scp.c val = (val >> rptr->offset) & width_mask[rptr->width]; rptr 6381 src/simh/scp.c t_stat dep_reg (int32 flag, CONST char *cptr, REG *rptr, uint32 idx) rptr 6389 src/simh/scp.c if ((cptr == NULL) || (rptr == NULL)) rptr 6391 src/simh/scp.c if (rptr->flags & REG_RO) rptr 6402 src/simh/scp.c mask = width_mask[rptr->width]; rptr 6403 src/simh/scp.c GET_RADIX (rdx, rptr->radix); rptr 6404 src/simh/scp.c if ((rptr->flags & REG_VMAD) && sim_vm_parse_addr && sim_dflt_dev) { /* address form? */ rptr 6410 src/simh/scp.c if (!(rptr->flags & REG_VMFLAGS) || /* don't use sym? */ rptr 6411 src/simh/scp.c (parse_sym ((CONST char *)cptr, (rptr->flags & REG_UFMASK) | rdx, NULL, rptr 6417 src/simh/scp.c if ((rptr->flags & REG_NZ) && (val == 0)) rptr 6419 src/simh/scp.c put_rval (rptr, idx, val); rptr 6434 src/simh/scp.c void put_rval (REG *rptr, uint32 idx, t_value val) rptr 6445 src/simh/scp.c if (rptr == sim_PC) rptr 6447 src/simh/scp.c sz = SZ_R (rptr); rptr 6448 src/simh/scp.c mask = width_mask[rptr->width]; rptr 6449 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_CIRC)) { rptr 6450 src/simh/scp.c idx = idx + rptr->qptr; rptr 6451 src/simh/scp.c if (idx >= rptr->depth) rptr 6452 src/simh/scp.c idx = idx - rptr->depth; rptr 6454 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_UNIT)) { rptr 6455 src/simh/scp.c ptr = (uint32 *)(((UNIT *) rptr->loc) + idx); rptr 6458 src/simh/scp.c ~(((uint32) mask) << rptr->offset)) | rptr 6459 src/simh/scp.c (((uint32) val) << rptr->offset); rptr 6461 src/simh/scp.c & ~(mask << rptr->offset)) | (val << rptr->offset); rptr 6463 src/simh/scp.c else if ((rptr->depth > 1) && (rptr->flags & REG_STRUCT)) { rptr 6464 src/simh/scp.c ptr = (uint32 *)(((size_t) rptr->loc) + (idx * rptr->str_size)); rptr 6467 src/simh/scp.c ~(((uint32) mask) << rptr->offset)) | rptr 6468 src/simh/scp.c (((uint32) val) << rptr->offset); rptr 6470 src/simh/scp.c & ~(mask << rptr->offset)) | (val << rptr->offset); rptr 6472 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 6474 src/simh/scp.c PUT_RVAL (uint8, rptr, idx, (uint32) val, (uint32) mask); rptr 6475 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 6477 src/simh/scp.c PUT_RVAL (uint16, rptr, idx, (uint32) val, (uint32) mask); rptr 6479 src/simh/scp.c PUT_RVAL (uint32, rptr, idx, (int32) val, (uint32) mask); rptr 6480 src/simh/scp.c else PUT_RVAL (t_uint64, rptr, idx, val, mask); rptr 7391 src/simh/scp.c REG *rptr, *srptr = NULL; rptr 7397 src/simh/scp.c if ((rptr = find_reg (cptr, optr, dptr))) { /* found? */ rptr 7400 src/simh/scp.c srptr = rptr; /* save reg */ rptr 7421 src/simh/scp.c REG *rptr; rptr 7431 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 7432 src/simh/scp.c if ((slnt == strlen (rptr->name)) && rptr 7433 src/simh/scp.c (strncmp (cptr, rptr->name, slnt) == 0)) { rptr 7436 src/simh/scp.c return rptr;