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;