- case ASM_TYPE_ASXXXX:
- sprintf (buffer, "CODE_%s", num);
- break;
- case ASM_TYPE_RGBDS:
- sprintf (buffer, "CODE,BANK[%s]", num);
- break;
- case ASM_TYPE_ISAS:
- /* PENDING: what to use for ISAS? */
- sprintf (buffer, "CODE,BANK(%s)", num);
- break;
- default:
- wassert (0);
+ char buffer[128];
+
+ cp = get_pragma_token(cp, &token);
+
+ switch (token.type)
+ {
+ case TOKEN_EOL:
+ err = 1;
+ break;
+
+ case TOKEN_INT:
+ switch (_G.asmType)
+ {
+ case ASM_TYPE_ASXXXX:
+ sprintf(buffer, "CODE_%d", token.val.int_val);
+ break;
+
+ case ASM_TYPE_RGBDS:
+ sprintf(buffer, "CODE,BANK[%d]", token.val.int_val);
+ break;
+
+ case ASM_TYPE_ISAS:
+ /* PENDING: what to use for ISAS? */
+ sprintf (buffer, "CODE,BANK(%d)", token.val.int_val);
+ break;
+
+ default:
+ wassert (0);
+ }
+ break;
+
+ default:
+ {
+ const char *str = get_pragma_string(&token);
+
+ strncpyz(buffer, (0 == strcmp("BASE", str)) ? "HOME" : str, sizeof buffer);
+ }
+ break;
+ }
+
+ cp = get_pragma_token(cp, &token);
+ if (TOKEN_EOL != token.type)
+ {
+ err = 1;
+ break;
+ }
+
+ gbz80_port.mem.code_name = Safe_strdup (buffer);
+ code->sname = gbz80_port.mem.code_name;
+ options.code_seg = gbz80_port.mem.code_name;