static const ASM_MAPPING _asxxxx_gb_mapping[] = {
+ /* We want to prepend the _ */
+ { "area", ".area _%s" },
+ { "areacode", ".area _%s" },
+ { "areadata", ".area _%s" },
+ { "areahome", ".area _%s" },
+ { "functionlabeldef", "%s:" },
{ "*hl", "(hl)" },
{ "di", "di" },
{ "ldahli", "ld a,(hl+)" },
{ "ldaspsp", "lda sp,%d(sp)" },
{ "*pair", "(%s)" },
{ "shortjp", "jr" },
- { "enter", "push bc" },
+ { "enter", "" },
{ "enterx",
- "push bc\n"
- "\tlda sp,-%d(sp)" },
- { "leave",
- "pop bc\n"
- "\tret"
+ "lda sp,-%d(sp)" },
+ { "enterxl",
+ "ld hl,#-%d\n"
+ "\tadd\thl,sp\n"
+ "\tld\tsp,hl"
},
- { "leavex",
- "lda sp,%d(sp)\n"
- "\tpop bc\n"
- "\tret"
+ { "leave", ""
+ },
+ { "leavex", "lda sp,%d(sp)"
+ },
+ { "leavexl",
+ "ld hl,#%d\n"
+ "\tadd\thl,sp\n"
+ "\tld\tsp,hl"
},
{ "pusha",
"push af\n"
"\tpush hl"
},
{ "adjustsp", "lda sp,-%d(sp)" },
+ { "fileprelude", "" },
+ { "profileenter",
+ "ld a,#3\n"
+ "\trst\t0x08"
+ },
+ { "profileexit",
+ "ld a,#4\n"
+ "\trst\t0x08"
+ },
{ NULL, NULL }
};
static const ASM_MAPPING _asxxxx_z80_mapping[] = {
+ /* We want to prepend the _ */
+ { "area", ".area _%s" },
+ { "areacode", ".area _%s" },
+ { "areadata", ".area _%s" },
+ { "areahome", ".area _%s" },
+ { "*ixx", "%d(ix)" },
+ { "*iyx", "%d(iy)" },
{ "*hl", "(hl)" },
{ "di", "di" },
- { "ldahli", "ld a,(hl+)" },
- { "ldahlsp", "lda hl,%d(sp)" },
- { "ldaspsp", "lda sp,%d(sp)" },
+ { "ldahli",
+ "ld a,(hl)\n"
+ "\tinc\thl" },
+ { "ldahlsp",
+ "ld hl,#%d\n"
+ "\tadd\thl,sp" },
+ { "ldaspsp",
+ "ld hl,#%d\n"
+ "\tadd\thl,sp\n"
+ "\tld\tsp,hl" },
{ "*pair", "(%s)" },
- { "shortjp", "jr" },
- { "enter", "push bc" },
+ { "shortjp", "jp" },
+ { "enter",
+ "push\tix\n"
+ "\tld\tix,#0\n"
+ "\tadd\tix,sp" },
{ "enterx",
- "push bc\n"
- "lda sp,-%d(sp)" },
+ "push\tix\n"
+ "\tld\tix,#0\n"
+ "\tadd\tix,sp\n"
+ "\tld\thl,#-%d\n"
+ "\tadd\thl,sp\n"
+ "\tld\tsp,hl\n"
+ },
{ "leave",
- "pop bc\n"
- "\tret"
+ "pop\tix\n"
},
{ "leavex",
- "lda sp,%d(sp)\n"
- "\tpop bc\n"
- "\tret"
+ "ld sp,ix\n"
+ "\tpop\tix\n"
},
{ "pusha",
- "push af\n"
- "\tpush bc\n"
- "\tpush de\n"
- "\tpush hl"
+ "push af\n"
+ "\tpush\tbc\n"
+ "\tpush\tde\n"
+ "\tpush\thl"
},
{ "adjustsp", "lda sp,-%d(sp)" },
+ { "profileenter",
+ "ld a,#3\n"
+ "\trst\t0x08"
+ },
+ { "profileexit",
+ "ld a,#4\n"
+ "\trst\t0x08"
+ },
{ NULL, NULL }
};
static const ASM_MAPPING _rgbds_mapping[] = {
{ "global", "GLOBAL %s" },
+ { "slabeldef", "%s:" },
{ "labeldef", "%s:" },
{ "tlabeldef", ".l%05d:" },
{ "tlabel", ".l%05d" },
"\tGLOBAL __modschar\n"
"\tGLOBAL __moduchar\n"
"\tGLOBAL __modsint\n"
- "\tGLOBAL __moduint"
+ "\tGLOBAL __moduint\n"
+ "\tGLOBAL __mulslong\n"
+ "\tGLOBAL __modslong\n"
+ "\tGLOBAL __divslong\n"
+ "\tGLOBAL banked_call\n"
+ "\tGLOBAL banked_ret\n"
},
{ "functionheader",
"; ---------------------------------\n"
{ "zero", "$00" },
{ "one", "$01" },
{ "area", "SECTION \"%s\",CODE" },
- { "areacode", "SECTION \"CODE\",CODE" },
- { "areadata", "SECTION \"DATA\",BSS" },
+ { "areadata", "SECTION \"%F_%s\",BSS" },
+ { "areacode", "SECTION \"%F_CODE\",%s" },
+ { "areahome", "SECTION \"%F_HOME\",HOME" },
{ "ascii", "DB \"%s\"" },
{ "ds", "DS %d" },
- { "db", "DB %d" },
+ { "db", "DB" },
{ "dbs", "DB %s" },
- { "dw", "DW %d" },
+ { "dw", "DW" },
{ "dws", "DW %s" },
{ "immed", "" },
{ "constbyte", "$%02X" },
{ "hashedstr", "%s" },
{ "lsbimmeds", "%s & $FF" },
{ "msbimmeds", "%s >> 8" },
+ { "bankimmeds", "BANK(%s)" },
{ "module", "; MODULE %s" },
{ NULL, NULL }
};
},
{ "di", "di" },
{ "adjustsp", "add sp,-%d" },
- { "enter", "push bc" },
- { "enterx",
- "push bc\n"
- "\tadd sp,-%d"
+ { "enter", "" },
+ { "enterx", "add sp,-%d"
},
- { "leave",
- "pop bc\n"
- "\tret"
+ { "leave", ""
},
- { "leavex",
- "add sp,%d\n"
- "\tpop bc\n"
- "\tret"
+ { "leavex", "add sp,%d"
},
{ "ldahli", "ld a,[hl+]" },
{ "*hl", "[hl]" },
{ NULL, NULL }
};
+static const ASM_MAPPING _isas_mapping[] = {
+ { "global", "GLOBAL %s" },
+ { "slabeldef", "%s:" },
+ { "labeldef", "%s:" },
+ { "tlabeldef", "?l%05d:" },
+ { "tlabel", "?l%05d" },
+ { "fileprelude",
+ ";Generated using the isas tokens.\n"
+ "\tLPREFIX '?' ; Treat labels starting with ? as local.\n"
+ "\tONCNUM ; Numbers are hex\n"
+ "\tCAPSOFF ; Case sensitive\n"
+ "\tISDMG ; Gameboy mode\n"
+ "_CODE\tGROUP\n"
+ "\t; We have to define these here as sdcc dosnt make them global by default\n"
+ "\tGLOBAL __mulschar\n"
+ "\tGLOBAL __muluchar\n"
+ "\tGLOBAL __mulsint\n"
+ "\tGLOBAL __muluint\n"
+ "\tGLOBAL __divschar\n"
+ "\tGLOBAL __divuchar\n"
+ "\tGLOBAL __divsint\n"
+ "\tGLOBAL __divuint\n"
+ "\tGLOBAL __modschar\n"
+ "\tGLOBAL __moduchar\n"
+ "\tGLOBAL __modsint\n"
+ "\tGLOBAL __moduint\n"
+ "\tGLOBAL banked_call\n"
+ "\tGLOBAL banked_ret\n"
+ },
+ { "functionheader",
+ "; ---------------------------------\n"
+ "; Function %s\n"
+ "; ---------------------------------"
+ },
+ { "functionlabeldef", "%s:" },
+ { "zero", "$00" },
+ { "one", "$01" },
+ { "area", "%s\tGROUP" },
+ { "areacode", "_CODE\tGROUP" },
+ { "areadata", "_DATA\tGROUP" },
+ { "areahome", "_CODE\tGROUP" },
+ { "ascii", "DB \"%s\"" },
+ { "ds", "DS %d" },
+ { "db", "DB" },
+ { "dbs", "DB %s" },
+ { "dw", "DW" },
+ { "dws", "DW %s" },
+ { "immed", "" },
+ { "constbyte", "0x%02X" },
+ { "constword", "0x%04X" },
+ { "immedword", "0x%04X" },
+ { "immedbyte", "0x%02X" },
+ { "hashedstr", "%s" },
+ { "lsbimmeds", "%s & 0xFF" },
+ { "msbimmeds", "%s >> 8" },
+ { "bankimmeds", "!%s" },
+ { "module", "; MODULE %s" },
+ { NULL, NULL }
+};
+
+static const ASM_MAPPING _isas_gb_mapping[] = {
+ { "pusha",
+ "push af\n"
+ "\tpush bc\n"
+ "\tpush de\n"
+ "\tpush hl"
+ },
+ { "di", "di" },
+ { "adjustsp", "add sp,-%d" },
+ { "enter", "" },
+ { "enterx", "add sp,-%d"
+ },
+ { "leave", ""
+ },
+ { "leavex", "add sp,%d\n" },
+ { "ldahli", "ld a,(hli)" },
+ { "*hl", "(hl)" },
+ { "ldahlsp", "ldhl sp,%d" },
+ { "ldaspsp", "add sp,%d" },
+ { "*pair", "(%s)" },
+ { "shortjp", "jr" },
+ { NULL, NULL }
+};
+
+static const ASM_MAPPINGS _isas = {
+ NULL,
+ _isas_mapping
+};
+
+const ASM_MAPPINGS _isas_gb = {
+ &_isas,
+ _isas_gb_mapping
+};
+
static const ASM_MAPPINGS _rgbds = {
NULL,
_rgbds_mapping