git.gag.com Git - fw/sdcc/blob - src/z80/mappings.i

   1 static const ASM_MAPPING _asxxxx_gb_mapping[] = {
   2     /* We want to prepend the _ */
   3     { "area", ".area _%s" },
   4     { "areacode", ".area _%s" },
   5     { "areadata", ".area _%s" },
   6     { "areahome", ".area _%s" },
   7     { "functionlabeldef", "%s:" },
   8     { "*hl", "(hl)" },
   9     { "di", "di" },
  10     { "ldahli", "ld a,(hl+)" },
  11     { "ldahlsp", "lda hl,%d(sp)" },
  12     { "ldaspsp", "lda sp,%d(sp)" },
  13     { "*pair", "(%s)" },
  14     { "shortjp", "jr" },
  15     { "enter", "" },
  16     { "enterx",
  17       "lda sp,-%d(sp)" },
  18     { "leave", ""
  19     },
  20     { "leavex", "lda sp,%d(sp)"
  21     },
  22     { "pusha",
  23       "push af\n"
  24       "\tpush bc\n"
  25       "\tpush de\n"
  26       "\tpush hl"
  27     },
  28     { "adjustsp", "lda sp,-%d(sp)" },
  29     { "fileprelude", "" },
  30     { NULL, NULL }
  31 };
  32
  33 static const ASM_MAPPING _asxxxx_z80_mapping[] = {
  34     /* We want to prepend the _ */
  35     { "area", ".area _%s" },
  36     { "areacode", ".area _%s" },
  37     { "areadata", ".area _%s" },
  38     { "areahome", ".area _%s" },
  39     { "*ixx", "%d(ix)" },
  40     { "*iyx", "%d(iy)" },
  41     { "*hl", "(hl)" },
  42     { "di", "di" },
  43     { "ldahli",
  44                 "ld a,(hl)\n"
  45                 "\tinc\thl" },
  46     { "ldahlsp",
  47                 "ld hl,#%d\n"
  48                 "\tadd\thl,sp" },
  49     { "ldaspsp",
  50                 "ld hl,#%d\n"
  51                 "\tadd\thl,sp\n"
  52                 "\tld\tsp,hl" },
  53     { "*pair", "(%s)" },
  54     { "shortjp", "jp" },
  55     { "enter",
  56                 "push\tix\n"
  57                 "\tld\tix,#0\n"
  58                 "\tadd\tix,sp" },
  59     { "enterx",
  60                 "push\tix\n"
  61                 "\tld\tix,#0\n"
  62                 "\tadd\tix,sp\n"
  63                 "\tld\thl,#-%d\n"
  64                 "\tadd\thl,sp\n"
  65                 "\tld\tsp,hl\n"
  66         },
  67     { "leave",
  68                 "pop\tix\n"
  69     },
  70     { "leavex",
  71                 "ld sp,ix\n"
  72                 "\tpop\tix\n"
  73     },
  74     { "pusha",
  75                 "push af\n"
  76                 "\tpush\tbc\n"
  77                 "\tpush\tde\n"
  78                 "\tpush\thl"
  79     },
  80     { "adjustsp", "lda sp,-%d(sp)" },
  81     { NULL, NULL }
  82 };
  83
  84 static const ASM_MAPPING _rgbds_mapping[] = {
  85     { "global", "GLOBAL %s" },
  86     { "slabeldef", "%s:" },
  87     { "labeldef", "%s:" },
  88     { "tlabeldef", ".l%05d:" },
  89     { "tlabel", ".l%05d" },
  90     { "fileprelude",
  91       "; Generated using the rgbds tokens.\n"
  92       "\t; We have to define these here as sdcc dosnt make them global by default\n"
  93       "\tGLOBAL __mulschar\n"
  94       "\tGLOBAL __muluchar\n"
  95       "\tGLOBAL __mulsint\n"
  96       "\tGLOBAL __muluint\n"
  97       "\tGLOBAL __divschar\n"
  98       "\tGLOBAL __divuchar\n"
  99       "\tGLOBAL __divsint\n"
 100       "\tGLOBAL __divuint\n"
 101       "\tGLOBAL __modschar\n"
 102       "\tGLOBAL __moduchar\n"
 103       "\tGLOBAL __modsint\n"
 104       "\tGLOBAL __moduint\n"
 105       "\tGLOBAL __mulslong\n"
 106       "\tGLOBAL __modslong\n"
 107       "\tGLOBAL __divslong\n"
 108       "\tGLOBAL banked_call\n"
 109       "\tGLOBAL banked_ret\n"
 110     },
 111     { "functionheader",
 112       "; ---------------------------------\n"
 113       "; Function %s\n"
 114       "; ---------------------------------"
 115     },
 116     { "functionlabeldef", "%s:" },
 117     { "zero", "$00" },
 118     { "one", "$01" },
 119     { "area", "SECTION \"%s\",CODE" },
 120     { "areadata", "SECTION \"%F_%s\",BSS" },
 121     { "areacode", "SECTION \"%F_CODE\",%s" },
 122     { "areahome", "SECTION \"%F_HOME\",HOME" },
 123     { "ascii", "DB \"%s\"" },
 124     { "ds", "DS %d" },
 125     { "db", "DB" },
 126     { "dbs", "DB %s" },
 127     { "dw", "DW" },
 128     { "dws", "DW %s" },
 129     { "immed", "" },
 130     { "constbyte", "$%02X" },
 131     { "constword", "$%04X" },
 132     { "immedword", "$%04X" },
 133     { "immedbyte", "$%02X" },
 134     { "hashedstr", "%s" },
 135     { "lsbimmeds", "%s & $FF" },
 136     { "msbimmeds", "%s >> 8" },
 137     { "bankimmeds", "BANK(%s)" },
 138     { "module", "; MODULE %s" },
 139     { NULL, NULL }
 140 };
 141
 142 static const ASM_MAPPING _rgbds_gb_mapping[] = {
 143     { "pusha",
 144       "push af\n"
 145       "\tpush bc\n"
 146       "\tpush de\n"
 147       "\tpush hl"
 148     },
 149     { "di", "di" },
 150     { "adjustsp", "add sp,-%d" },
 151     { "enter", "" },
 152     { "enterx", "add sp,-%d"
 153     },
 154     { "leave", ""
 155     },
 156     { "leavex", "add sp,%d"
 157     },
 158     { "ldahli", "ld a,[hl+]" },
 159     { "*hl", "[hl]" },
 160     { "ldahlsp", "ld hl,[sp+%d]" },
 161     { "ldaspsp", "add sp,%d" },
 162     { "*pair", "[%s]" },
 163     { "shortjp", "jr" },
 164     { NULL, NULL }
 165 };
 166
 167 static const ASM_MAPPING _isas_mapping[] = {
 168     { "global", "GLOBAL %s" },
 169     { "slabeldef", "%s:" },
 170     { "labeldef", "%s:" },
 171     { "tlabeldef", "?l%05d:" },
 172     { "tlabel", "?l%05d" },
 173     { "fileprelude",
 174       ";Generated using the isas tokens.\n"
 175       "\tLPREFIX '?'  ; Treat labels starting with ? as local.\n"
 176       "\tONCNUM       ; Numbers are hex\n"
 177       "\tCAPSOFF      ; Case sensitive\n"
 178       "\tISDMG        ; Gameboy mode\n"
 179       "_CODE\tGROUP\n"
 180       "\t; We have to define these here as sdcc dosnt make them global by default\n"
 181       "\tGLOBAL __mulschar\n"
 182       "\tGLOBAL __muluchar\n"
 183       "\tGLOBAL __mulsint\n"
 184       "\tGLOBAL __muluint\n"
 185       "\tGLOBAL __divschar\n"
 186       "\tGLOBAL __divuchar\n"
 187       "\tGLOBAL __divsint\n"
 188       "\tGLOBAL __divuint\n"
 189       "\tGLOBAL __modschar\n"
 190       "\tGLOBAL __moduchar\n"
 191       "\tGLOBAL __modsint\n"
 192       "\tGLOBAL __moduint\n"
 193       "\tGLOBAL banked_call\n"
 194       "\tGLOBAL banked_ret\n"
 195     },
 196     { "functionheader",
 197       "; ---------------------------------\n"
 198       "; Function %s\n"
 199       "; ---------------------------------"
 200     },
 201     { "functionlabeldef", "%s:" },
 202     { "zero", "$00" },
 203     { "one", "$01" },
 204     { "area", "%s\tGROUP" },
 205     { "areacode", "_CODE\tGROUP" },
 206     { "areadata", "_DATA\tGROUP" },
 207     { "areahome", "_CODE\tGROUP" },
 208     { "ascii", "DB \"%s\"" },
 209     { "ds", "DS %d" },
 210     { "db", "DB" },
 211     { "dbs", "DB %s" },
 212     { "dw", "DW" },
 213     { "dws", "DW %s" },
 214     { "immed", "" },
 215     { "constbyte", "0x%02X" },
 216     { "constword", "0x%04X" },
 217     { "immedword", "0x%04X" },
 218     { "immedbyte", "0x%02X" },
 219     { "hashedstr", "%s" },
 220     { "lsbimmeds", "%s & 0xFF" },
 221     { "msbimmeds", "%s >> 8" },
 222     { "bankimmeds", "!%s" },
 223     { "module", "; MODULE %s" },
 224     { NULL, NULL }
 225 };
 226
 227 static const ASM_MAPPING _isas_gb_mapping[] = {
 228     { "pusha",
 229       "push af\n"
 230       "\tpush bc\n"
 231       "\tpush de\n"
 232       "\tpush hl"
 233     },
 234     { "di", "di" },
 235     { "adjustsp", "add sp,-%d" },
 236     { "enter", "" },
 237     { "enterx", "add sp,-%d"
 238     },
 239     { "leave", ""
 240     },
 241     { "leavex", "add sp,%d\n" },
 242     { "ldahli", "ld a,(hli)" },
 243     { "*hl", "(hl)" },
 244     { "ldahlsp", "ldhl sp,%d" },
 245     { "ldaspsp", "add sp,%d" },
 246     { "*pair", "(%s)" },
 247     { "shortjp", "jr" },
 248     { NULL, NULL }
 249 };
 250
 251 static const ASM_MAPPINGS _isas = {
 252     NULL,
 253     _isas_mapping
 254 };
 255
 256 const ASM_MAPPINGS _isas_gb = {
 257     &_isas,
 258     _isas_gb_mapping
 259 };
 260
 261 static const ASM_MAPPINGS _rgbds = {
 262     NULL,
 263     _rgbds_mapping
 264 };
 265
 266 const ASM_MAPPINGS _rgbds_gb = {
 267     &_rgbds,
 268     _rgbds_gb_mapping
 269 };
 270
 271 const ASM_MAPPINGS _asxxxx_gb = {
 272     &asm_asxxxx_mapping,
 273     _asxxxx_gb_mapping
 274 };
 275
 276 const ASM_MAPPINGS _asxxxx_z80 = {
 277     &asm_asxxxx_mapping,
 278     _asxxxx_z80_mapping
 279 };