sim_do_depth      468 src/simh/scp.c static int32 sim_do_depth        = 0;
sim_do_depth     3023 src/simh/scp.c (void)snprintf (cbuf, sizeof (cbuf), "%s%s%s-%d", sim_do_filename[sim_do_depth],
sim_do_depth     3024 src/simh/scp.c                 sim_do_label[sim_do_depth] ? "::" : "",
sim_do_depth     3025 src/simh/scp.c                 sim_do_label[sim_do_depth] ? sim_do_label[sim_do_depth] : "",
sim_do_depth     3026 src/simh/scp.c                 sim_goto_line[sim_do_depth]);
sim_do_depth     3085 src/simh/scp.c     ++sim_do_depth;
sim_do_depth     3087 src/simh/scp.c         sim_on_check[sim_do_depth] = sim_on_check[sim_do_depth-1]; /* inherit On mode */
sim_do_depth     3089 src/simh/scp.c             if (sim_on_actions[sim_do_depth-1][i]) {
sim_do_depth     3090 src/simh/scp.c                 sim_on_actions[sim_do_depth][i] = (char *)malloc(1+strlen(sim_on_actions[sim_do_depth-1][i]));
sim_do_depth     3091 src/simh/scp.c                 if (NULL == sim_on_actions[sim_do_depth][i]) {
sim_do_depth     3093 src/simh/scp.c                         FREE(sim_on_actions[sim_do_depth][i]);
sim_do_depth     3094 src/simh/scp.c                         sim_on_actions[sim_do_depth][i] = NULL;
sim_do_depth     3096 src/simh/scp.c                     sim_on_check[sim_do_depth] = 0;
sim_do_depth     3098 src/simh/scp.c                     --sim_do_depth;                     /* unwind nesting */
sim_do_depth     3102 src/simh/scp.c                 strcpy(sim_on_actions[sim_do_depth][i], sim_on_actions[sim_do_depth-1][i]);
sim_do_depth     3108 src/simh/scp.c strcpy( sim_do_filename[sim_do_depth], do_arg[0]);      /* stash away do file name for possible use by 'call' command */
sim_do_depth     3109 src/simh/scp.c sim_do_label[sim_do_depth] = label;                     /* stash away do label for possible use in messages */
sim_do_depth     3110 src/simh/scp.c sim_goto_line[sim_do_depth] = 0;
sim_do_depth     3126 src/simh/scp.c     sim_do_ocptr[sim_do_depth] = cptr = sim_brk_getact (cbuf, sizeof(cbuf)); /* get bkpt action */
sim_do_depth     3127 src/simh/scp.c     if (!sim_do_ocptr[sim_do_depth]) {                  /* no pending action? */
sim_do_depth     3128 src/simh/scp.c         sim_do_ocptr[sim_do_depth] = cptr = read_line (cbuf, sizeof(cbuf), fpin);/* get cmd line */
sim_do_depth     3129 src/simh/scp.c         sim_goto_line[sim_do_depth] += 1;
sim_do_depth     3153 src/simh/scp.c             if (sim_do_depth >= MAX_DO_NEST_LVL)        /* nest too deep? */
sim_do_depth     3156 src/simh/scp.c                 stat = do_cmd (sim_do_depth+1, cptr);   /* exec DO cmd */
sim_do_depth     3175 src/simh/scp.c             staying = (sim_on_check[sim_do_depth] &&        /* if trap action defined */
sim_do_depth     3176 src/simh/scp.c                        sim_on_actions[sim_do_depth][stat]); /* use it, otherwise exit */
sim_do_depth     3192 src/simh/scp.c             sim_printf("%s> %s\r\n", do_position(), sim_do_ocptr[sim_do_depth]);
sim_do_depth     3197 src/simh/scp.c             cmdp->message ((!echo && !sim_quiet) ? sim_do_ocptr[sim_do_depth] : NULL, stat);
sim_do_depth     3205 src/simh/scp.c         (sim_on_check[sim_do_depth]) &&
sim_do_depth     3208 src/simh/scp.c         if ((stat <= SCPE_MAX_ERR) && sim_on_actions[sim_do_depth][stat])
sim_do_depth     3209 src/simh/scp.c             sim_brk_setact (sim_on_actions[sim_do_depth][stat]);
sim_do_depth     3211 src/simh/scp.c             sim_brk_setact (sim_on_actions[sim_do_depth][0]);
sim_do_depth     3228 src/simh/scp.c         FREE (sim_on_actions[sim_do_depth][i]);
sim_do_depth     3229 src/simh/scp.c         sim_on_actions[sim_do_depth][i] = NULL;
sim_do_depth     3231 src/simh/scp.c     sim_on_check[sim_do_depth] = 0;                     /* clear on mode */
sim_do_depth     3234 src/simh/scp.c     --sim_do_depth;                                     /* unwind nesting */
sim_do_depth     3990 src/simh/scp.c int32 saved_goto_line = sim_goto_line[sim_do_depth];
sim_do_depth     3997 src/simh/scp.c sim_goto_line[sim_do_depth] = 0;                        /* reset line number */
sim_do_depth     4002 src/simh/scp.c     sim_goto_line[sim_do_depth] += 1;                   /* record line number */
sim_do_depth     4018 src/simh/scp.c sim_goto_line[sim_do_depth] = saved_goto_line;     /* restore start line number */
sim_do_depth     4062 src/simh/scp.c (void)snprintf(cbuf, sizeof (cbuf), "%s %s", sim_do_filename[sim_do_depth], cptr);
sim_do_depth     4082 src/simh/scp.c     FREE(sim_on_actions[sim_do_depth][cond]);           /* Clear existing condition */
sim_do_depth     4083 src/simh/scp.c     sim_on_actions[sim_do_depth][cond] = NULL; }
sim_do_depth     4085 src/simh/scp.c     sim_on_actions[sim_do_depth][cond] =
sim_do_depth     4086 src/simh/scp.c         (char *)realloc(sim_on_actions[sim_do_depth][cond], 1+strlen(cptr));
sim_do_depth     4087 src/simh/scp.c     if (!sim_on_actions[sim_do_depth][cond])
sim_do_depth     4099 src/simh/scp.c     strcpy(sim_on_actions[sim_do_depth][cond], cptr);
sim_do_depth     4133 src/simh/scp.c sim_on_check[sim_do_depth] = flag;
sim_do_depth     4134 src/simh/scp.c if ((sim_do_depth != 0) &&
sim_do_depth     4135 src/simh/scp.c     (NULL == sim_on_actions[sim_do_depth][0])) {        /* default handler set? */
sim_do_depth     4136 src/simh/scp.c       sim_on_actions[sim_do_depth][0] =                 /* No, so make "RETURN" */
sim_do_depth     4138 src/simh/scp.c       if (sim_on_actions[sim_do_depth][0] == NULL)
sim_do_depth     4150 src/simh/scp.c       strcpy(sim_on_actions[sim_do_depth][0], "RETURN");
sim_do_depth     4152 src/simh/scp.c if ((sim_do_depth != 0) &&
sim_do_depth     4153 src/simh/scp.c     (NULL == sim_on_actions[sim_do_depth][SCPE_AFAIL])) {/* handler set for AFAIL? */
sim_do_depth     4154 src/simh/scp.c     sim_on_actions[sim_do_depth][SCPE_AFAIL] =           /* No, so make "RETURN" */
sim_do_depth     4156 src/simh/scp.c       if (sim_on_actions[sim_do_depth][SCPE_AFAIL] == NULL)
sim_do_depth     4168 src/simh/scp.c     strcpy(sim_on_actions[sim_do_depth][SCPE_AFAIL], "RETURN");
sim_do_depth     5895 src/simh/scp.c for (lvl=sim_do_depth; lvl >= 0; --lvl) {
sim_do_depth     9624 src/simh/scp.c if (sim_brk_act[sim_do_depth] == NULL)                  /* any action? */
sim_do_depth     9626 src/simh/scp.c while (sim_isspace (*sim_brk_act[sim_do_depth]))        /* skip spaces */
sim_do_depth     9627 src/simh/scp.c     sim_brk_act[sim_do_depth]++;
sim_do_depth     9628 src/simh/scp.c if (*sim_brk_act[sim_do_depth] == 0) {                  /* now empty? */
sim_do_depth     9631 src/simh/scp.c if ((ep = strchr (sim_brk_act[sim_do_depth], ';'))) {   /* cmd delimiter? */
sim_do_depth     9632 src/simh/scp.c     lnt = ep - sim_brk_act[sim_do_depth];               /* cmd length */
sim_do_depth     9633 src/simh/scp.c     memcpy (buf, sim_brk_act[sim_do_depth], lnt + 1);   /* copy with ; */
sim_do_depth     9635 src/simh/scp.c     sim_brk_act[sim_do_depth] += lnt + 1;               /* adv ptr */
sim_do_depth     9638 src/simh/scp.c     strncpy (buf, sim_brk_act[sim_do_depth], size);     /* copy action */
sim_do_depth     9648 src/simh/scp.c FREE (sim_brk_act_buf[sim_do_depth]);
sim_do_depth     9649 src/simh/scp.c return sim_brk_act[sim_do_depth] = sim_brk_act_buf[sim_do_depth] = NULL;
sim_do_depth     9657 src/simh/scp.c     sim_brk_act_buf[sim_do_depth] = (char *)realloc (sim_brk_act_buf[sim_do_depth], strlen (action) + 1);
sim_do_depth     9658 src/simh/scp.c     if (!sim_brk_act_buf[sim_do_depth])
sim_do_depth     9670 src/simh/scp.c     strcpy (sim_brk_act_buf[sim_do_depth], action);
sim_do_depth     9671 src/simh/scp.c     sim_brk_act[sim_do_depth] = sim_brk_act_buf[sim_do_depth];
sim_do_depth     10586 src/simh/scp.c if (sim_do_ocptr[sim_do_depth]) {
sim_do_depth     10588 src/simh/scp.c         sim_printf("%s> %s\r\n", do_position(), sim_do_ocptr[sim_do_depth]);
sim_do_depth     10591 src/simh/scp.c             (void)fprintf (sim_deb, "%s> %s\r\n", do_position(), sim_do_ocptr[sim_do_depth]);