str                69 include/cerr.h void setcerr(int num, const char *str);
str                34 include/cmem.h long str2l_range(const char *str, long min, long max, const char *name);
str                24 include/exec.h CLOCK clock_str2clock(const char *str);
str                75 include/monitor.h MONARGS *monargstok(const char *str);
str               178 include/struct.h WORD memsize_str2word(const char *str);
str                24 include/word.h WORD nh2word(const char *str);
str                30 src/assemble.c WORD getadr(const char *prog, const char *str, PASS pass);
str                42 src/assemble.c WORD grword(const char *str, bool is_x);
str                52 src/assemble.c WORD getliteral(const char *str, PASS pass);
str                62 src/assemble.c WORD getliteralquote(const char *str);
str                79 src/assemble.c void writestr(const char *str, PASS pass);
str                87 src/assemble.c void writedc(const char *str, PASS pass);
str               309 src/assemble.c WORD getadr(const char *prog, const char *str, PASS pass)
str               313 src/assemble.c     if(str[0] == '=') {
str               314 src/assemble.c         adr = getliteral(str, pass);
str               315 src/assemble.c     } else if(isdigit(str[0]) || str[0] == '-' || str[0] == '#') {
str               316 src/assemble.c         adr = nh2word(str);
str               319 src/assemble.c             if((adr = getlabel(prog, str)) == 0xFFFF) {
str               320 src/assemble.c                 adr = getlabel("", str);
str               323 src/assemble.c                 setcerr(103, str);    /* label not found */
str               330 src/assemble.c WORD grword(const char *str, bool is_x)
str               335 src/assemble.c     if(strlen(str) != 3 ||
str               336 src/assemble.c        strncmp(str, "GR", 2) != 0 ||
str               337 src/assemble.c        str[2] < '0' || str[2] > '0' + (GRSIZE - 1))
str               341 src/assemble.c     r = (WORD)(str[2] - '0');
str               350 src/assemble.c WORD getliteral(const char *str, PASS pass)
str               352 src/assemble.c     assert(str[0] == '=');
str               353 src/assemble.c     str++;
str               357 src/assemble.c     if(str[0] == '\'') {
str               358 src/assemble.c         val = getliteralquote(str);
str               360 src/assemble.c         val = nh2word(str);
str               383 src/assemble.c WORD getliteralquote(const char *str)
str               385 src/assemble.c     assert(str[0] == '\'');
str               386 src/assemble.c     size_t len = strlen(str);
str               388 src/assemble.c     if(str[1] == '\'' && len == 2) {
str               389 src/assemble.c         setcerr(127, str);    /* empty character constant */
str               390 src/assemble.c     } else if (len == 1 || str[len - 1] != '\'') {
str               391 src/assemble.c         setcerr(123, str);    /* unclosed quote */
str               392 src/assemble.c     } else if((str[1] != '\'' && len > 3) || (str[1] == '\'' && len > 4)) {
str               393 src/assemble.c         setcerr(124, str);    /* more than one character in literal */
str               394 src/assemble.c     } else if(str[1] == '\'' && len == 3 && str[2] == '\'') {
str               395 src/assemble.c         setcerr(126, str);    /* syntax error in character constant. In CASL II, two consecutive apostrophes ('') represent a single apostrophe ('). */
str               397 src/assemble.c         val = (WORD)str[1];
str               418 src/assemble.c void writestr(const char *str, PASS pass)
str               420 src/assemble.c     assert(str[0] == '\'');
str               423 src/assemble.c     if(str[1] == '\'' && str[2] == '\0') {
str               424 src/assemble.c         setcerr(127, str);    /* empty character constant */
str               428 src/assemble.c             if(str[i] == '\0') {
str               430 src/assemble.c                 setcerr(123, str);    /* unclosed quote */
str               433 src/assemble.c             if(str[i] == '\'') {
str               434 src/assemble.c                 if(str[i + 1] != '\0' && str[i + 1] != '\'') {
str               435 src/assemble.c                     setcerr(126, str);    /* syntax error in character constant. In CASL II, two consecutive apostrophes ('') represent a single apostrophe ('). */
str               437 src/assemble.c                 } else if(str[i + 1] == '\0') {
str               445 src/assemble.c                 writememory(str[i++], (asptr->ptr)++, pass);
str               451 src/assemble.c void writedc(const char *str, PASS pass)
str               455 src/assemble.c     if(*str == '\'') {
str               456 src/assemble.c         writestr(str, pass);
str               458 src/assemble.c         if(str[0] == '#' || isdigit(str[0]) || str[0] == '-') {
str               459 src/assemble.c             adr = nh2word(str);
str               461 src/assemble.c             if(pass == SECOND && (adr = getlabel(asptr->prog, str)) == 0xFFFF) {
str               462 src/assemble.c                 adr = getlabel("", str);
str               465 src/assemble.c                 setcerr(103, str);    /* label not found */
str                46 src/cerr.c     void setcerr(int num, const char *str)
str                55 src/cerr.c         if(0 < strlen(str) && strlen(str) <= CERRSTRSIZE) {
str                56 src/cerr.c             sprintf(cerr->msg, "%s: %s", str, getcerrmsg(cerr->num));
str                 3 src/cmem.c     long str2l_range(const char *str, long min, long max, const char *name) {
str                 5 src/cmem.c         long val = strtol(str, &endptr, 10);
str                 6 src/cmem.c         if(endptr == str) {
str                10 src/cmem.c             fprintf(stderr, "%s: `%s' is not integer.\n", name, str);
str                14 src/cmem.c                 fprintf(stderr, "%s: %s out of range: %ld -\n", str, name, min);
str                16 src/cmem.c                 fprintf(stderr, "%s: %s out of range: %ld - %ld\n", str, name, min, max);
str                92 src/exec.c     CLOCK clock_str2clock(const char *str) {
str                93 src/exec.c         long val = str2l_range(str, 1, LONG_MAX, "Clock");
str                96 src/exec.c             fprintf(stderr, "Info - %s: Clock frequency exceeds maximum. Set to %ld\n", str, val);
str               103 src/exec.c         char *str = malloc_chk(CERRSTRSIZE + 1, "pr2str.pr");
str               105 src/exec.c         sprintf(str, "PR:#%04X", pr);
str               106 src/exec.c         return str;
str               128 src/monitor.c  MONARGS *monargstok(const char *str)
str               136 src/monitor.c      if(!str || !str[0]) {
str               139 src/monitor.c      tok = p = strdup_chk(str, "argstok.p");
str               315 src/struct.c       char *str = NULL;
str               317 src/struct.c       str = malloc_chk(3 + 1, "grstr.str");
str               318 src/struct.c       sprintf(str, "GR%d", word);
str               319 src/struct.c       return str;
str               322 src/struct.c   WORD memsize_str2word(const char *str) {
str               323 src/struct.c       return (WORD)str2l_range(str, 1, MAX_MEMSIZE, "Memory Size");
str                10 src/token.c    OPD *opdtok(const char *str);
str                30 src/token.c    OPD *opdtok(const char *str)
str                38 src/token.c        if(!str || !str[0]) {
str                41 src/token.c        tok = p = strdup_chk(str, "opdtok.p");
str                66 src/token.c                    setcerr(123, str);    /* unclosed quote */
str                17 src/word.c     WORD n2word(const char *str);
str                26 src/word.c     WORD h2word(const char *str);
str                28 src/word.c     WORD n2word(const char *str)
str                30 src/word.c         assert(isdigit(str[0]) || str[0] == '-');
str                35 src/word.c         n = strtol(str, &check, 10);
str                37 src/word.c             setcerr(114, str);    /* not integer */
str                47 src/word.c     WORD h2word(const char *str)
str                49 src/word.c         assert(str[0] == '#');
str                53 src/word.c         str++;
str                54 src/word.c         if(*str == '-' || strlen(str) > 4) {
str                55 src/word.c             setcerr(116, str-1);    /* out of hex range */
str                59 src/word.c         w = (WORD)strtol(str, &check, 16);
str                61 src/word.c             setcerr(115, str-1);    /* not hex */
str                82 src/word.c     WORD nh2word(const char *str)
str                87 src/word.c         if(str == NULL) {
str                90 src/word.c         if(!isdigit(*str) && *str != '-' && *str != '#') {
str                91 src/word.c             setcerr(114, str);    /* not integer */
str                94 src/word.c         if(*str == '#') {
str                95 src/word.c             w = h2word(str);
str                97 src/word.c             w = n2word(str);