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 341 src/simh/scp.c t_value get_rval (REG *rptr, uint32 idx); rptr 342 src/simh/scp.c void put_rval (REG *rptr, uint32 idx, t_value val); rptr 364 src/simh/scp.c t_stat ex_reg (FILE *ofile, t_value val, int32 flag, REG *rptr, uint32 idx); rptr 365 src/simh/scp.c t_stat dep_reg (int32 flag, CONST char *cptr, REG *rptr, uint32 idx); rptr 2257 src/simh/scp.c REG *rptr, *trptr; rptr 2267 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 2268 src/simh/scp.c if (rptr->flags & REG_HIDDEN) rptr 2270 src/simh/scp.c if (rptr->depth > 1) rptr 2271 src/simh/scp.c (void)sprintf (rangebuf, "[%d:%d]", 0, rptr->depth-1); rptr 2274 src/simh/scp.c if (max_namelen < (strlen(rptr->name) + strlen (rangebuf))) rptr 2275 src/simh/scp.c max_namelen = strlen(rptr->name) + strlen (rangebuf); rptr 2277 src/simh/scp.c trptr = find_reg_glob (rptr->name, &tptr, &tdptr); rptr 2302 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 2303 src/simh/scp.c if (rptr->flags & REG_HIDDEN) rptr 2305 src/simh/scp.c if (rptr->depth <= 1) rptr 2308 src/simh/scp.c rptr->name); rptr 2312 src/simh/scp.c rptr->depth-1); rptr 2314 src/simh/scp.c rptr->name, rptr 2315 src/simh/scp.c (int)(strlen(rptr->name))-((int)max_namelen), rptr 2321 src/simh/scp.c rptr->width, rptr 2322 src/simh/scp.c rptr->desc ? rptr->desc : ""); rptr 2325 src/simh/scp.c trptr = find_reg_glob (rptr->name, &tptr, &tdptr); rptr 2330 src/simh/scp.c rptr->width, rptr 2331 src/simh/scp.c rptr->desc ? rptr->desc : ""); rptr 2336 src/simh/scp.c rptr->width, rptr 2337 src/simh/scp.c rptr->desc ? rptr->desc : ""); rptr 3492 src/simh/scp.c REG *rptr; rptr 3575 src/simh/scp.c rptr = find_reg (gbuf, &gptr, sim_dfdev); /* parse register */ rptr 3576 src/simh/scp.c if (rptr) { /* got register? */ rptr 3578 src/simh/scp.c if (rptr->depth <= 1) /* array register? */ rptr 3586 src/simh/scp.c if (idx >= rptr->depth) /* validate subscript */ rptr 3612 src/simh/scp.c if (rptr) { /* Handle register case */ rptr 3617 src/simh/scp.c if (!get_rsearch (gbuf, rptr->radix, &sim_stabr) || /* parse condition */ rptr 3623 src/simh/scp.c val = get_rval (rptr, idx); /* get register value */ rptr 6713 src/simh/scp.c REG *rptr; rptr 6719 src/simh/scp.c for (rptr = lowr; rptr <= highr; rptr++) { rptr 6721 src/simh/scp.c (rptr->flags & REG_HIDDEN)) rptr 6725 src/simh/scp.c if (idx >= rptr->depth) rptr 6727 src/simh/scp.c val = get_rval (rptr, idx); rptr 6735 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, idx-1); rptr 6739 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, idx-1); rptr 6743 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, idx-1); rptr 6745 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, idx-1); rptr 6748 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6750 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6756 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, idx); rptr 6760 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, idx); rptr 6763 src/simh/scp.c reason = dep_reg (flag, cptr, rptr, idx); rptr 6770 src/simh/scp.c reason = ex_reg (ofile, val, flag, rptr, highs); rptr 6774 src/simh/scp.c ex_reg (sim_log, val, flag, rptr, highs); rptr 6778 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, highs); rptr 6780 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]-%s[%d]: same as above\n", rptr->name, val_start+1, rptr->name, highs); rptr 6783 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6785 src/simh/scp.c (void)Fprintf (sim_log, "%s[%d]: same as above\n", rptr->name, val_start+1); rptr 6842 src/simh/scp.c t_stat ex_reg (FILE *ofile, t_value val, int32 flag, REG *rptr, uint32 idx) rptr 6846 src/simh/scp.c if (rptr == NULL) rptr 6848 src/simh/scp.c if (rptr->depth > 1) rptr 6849 src/simh/scp.c (void)Fprintf (ofile, "%s[%d]:\t", rptr->name, idx); rptr 6851 src/simh/scp.c (void)Fprintf (ofile, "%s:\t", rptr->name); rptr 6854 src/simh/scp.c GET_RADIX (rdx, rptr->radix); rptr 6855 src/simh/scp.c if ((rptr->flags & REG_VMAD) && sim_vm_fprint_addr && sim_dflt_dev) rptr 6857 src/simh/scp.c else if (!(rptr->flags & REG_VMFLAGS) || rptr 6858 src/simh/scp.c (fprint_sym (ofile, (rptr->flags & REG_UFMASK) | rdx, &val, rptr 6860 src/simh/scp.c fprint_val (ofile, val, rdx, rptr->width, rptr->flags & REG_FMT); rptr 6861 src/simh/scp.c if (rptr->fields) { rptr 6863 src/simh/scp.c fprint_fields (ofile, val, val, rptr->fields); rptr 6882 src/simh/scp.c t_value get_rval (REG *rptr, uint32 idx) rptr 6888 src/simh/scp.c sz = SZ_R (rptr); rptr 6889 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_CIRC)) { rptr 6890 src/simh/scp.c idx = idx + rptr->qptr; rptr 6891 src/simh/scp.c if (idx >= rptr->depth) idx = idx - rptr->depth; rptr 6893 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_UNIT)) { rptr 6894 src/simh/scp.c ptr = (uint32 *)(((UNIT *) rptr->loc) + idx); rptr 6899 src/simh/scp.c else if ((rptr->depth > 1) && (rptr->flags & REG_STRUCT)) { rptr 6900 src/simh/scp.c ptr = (uint32 *)(((size_t) rptr->loc) + (idx * rptr->str_size)); rptr 6905 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 6907 src/simh/scp.c val = *(((uint8 *) rptr->loc) + idx); rptr 6908 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 6910 src/simh/scp.c val = *(((uint16 *) rptr->loc) + idx); rptr 6912 src/simh/scp.c val = *(((uint32 *) rptr->loc) + idx); rptr 6913 src/simh/scp.c else val = *(((t_uint64 *) rptr->loc) + idx); rptr 6914 src/simh/scp.c val = (val >> rptr->offset) & width_mask[rptr->width]; rptr 6929 src/simh/scp.c t_stat dep_reg (int32 flag, CONST char *cptr, REG *rptr, uint32 idx) rptr 6937 src/simh/scp.c if ((cptr == NULL) || (rptr == NULL)) rptr 6939 src/simh/scp.c if (rptr->flags & REG_RO) rptr 6950 src/simh/scp.c mask = width_mask[rptr->width]; rptr 6951 src/simh/scp.c GET_RADIX (rdx, rptr->radix); rptr 6952 src/simh/scp.c if ((rptr->flags & REG_VMAD) && sim_vm_parse_addr && sim_dflt_dev) { /* address form? */ rptr 6958 src/simh/scp.c if (!(rptr->flags & REG_VMFLAGS) || /* don't use sym? */ rptr 6959 src/simh/scp.c (parse_sym ((CONST char *)cptr, (rptr->flags & REG_UFMASK) | rdx, NULL, rptr 6965 src/simh/scp.c if ((rptr->flags & REG_NZ) && (val == 0)) rptr 6967 src/simh/scp.c put_rval (rptr, idx, val); rptr 6982 src/simh/scp.c void put_rval (REG *rptr, uint32 idx, t_value val) rptr 6993 src/simh/scp.c if (rptr == sim_PC) rptr 6995 src/simh/scp.c sz = SZ_R (rptr); rptr 6996 src/simh/scp.c mask = width_mask[rptr->width]; rptr 6997 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_CIRC)) { rptr 6998 src/simh/scp.c idx = idx + rptr->qptr; rptr 6999 src/simh/scp.c if (idx >= rptr->depth) rptr 7000 src/simh/scp.c idx = idx - rptr->depth; rptr 7002 src/simh/scp.c if ((rptr->depth > 1) && (rptr->flags & REG_UNIT)) { rptr 7003 src/simh/scp.c ptr = (uint32 *)(((UNIT *) rptr->loc) + idx); rptr 7006 src/simh/scp.c ~(((uint32) mask) << rptr->offset)) | rptr 7007 src/simh/scp.c (((uint32) val) << rptr->offset); rptr 7009 src/simh/scp.c & ~(mask << rptr->offset)) | (val << rptr->offset); rptr 7011 src/simh/scp.c else if ((rptr->depth > 1) && (rptr->flags & REG_STRUCT)) { rptr 7012 src/simh/scp.c ptr = (uint32 *)(((size_t) rptr->loc) + (idx * rptr->str_size)); rptr 7015 src/simh/scp.c ~(((uint32) mask) << rptr->offset)) | rptr 7016 src/simh/scp.c (((uint32) val) << rptr->offset); rptr 7018 src/simh/scp.c & ~(mask << rptr->offset)) | (val << rptr->offset); rptr 7020 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 7022 src/simh/scp.c PUT_RVAL (uint8, rptr, idx, (uint32) val, (uint32) mask); rptr 7023 src/simh/scp.c else if (((rptr->depth > 1) || (rptr->flags & REG_FIT)) && rptr 7025 src/simh/scp.c PUT_RVAL (uint16, rptr, idx, (uint32) val, (uint32) mask); rptr 7027 src/simh/scp.c PUT_RVAL (uint32, rptr, idx, (int32) val, (uint32) mask); rptr 7028 src/simh/scp.c else PUT_RVAL (t_uint64, rptr, idx, val, mask); rptr 7940 src/simh/scp.c REG *rptr, *srptr = NULL; rptr 7946 src/simh/scp.c if ((rptr = find_reg (cptr, optr, dptr))) { /* found? */ rptr 7949 src/simh/scp.c srptr = rptr; /* save reg */ rptr 7970 src/simh/scp.c REG *rptr; rptr 7980 src/simh/scp.c for (rptr = dptr->registers; rptr->name != NULL; rptr++) { rptr 7981 src/simh/scp.c if ((slnt == strlen (rptr->name)) && rptr 7982 src/simh/scp.c (strncmp (cptr, rptr->name, slnt) == 0)) { rptr 7985 src/simh/scp.c return rptr;