Subversion Repositories marca

/* This file is part of the assembler "spar" for marca.
   Copyright (C) 2007 Wolfgang Puffitsch
 
   This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU Library General Public License as published
   by the Free Software Foundation; either version 2, or (at your option)
   any later version.
 
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.
 
   You should have received a copy of the GNU Library General Public
   License along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA */
 
#include <stdint.h>
 
#include <stdlib.h>
#include <stdio.h>
 
#include "spar.h"
#include "optab.h"
#include "code.h"
#include "emit.h"
#include "exprs.h"
#include "segtab.h"
 
void emit_op(struct seg *seg, struct op op)
{
  adjust_segsize(seg, seg->pos+1);
  seg->code[seg->pos] = op;
  seg->pos++;
}
 
void emit_nop(struct seg *seg)
{
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, NOP);
 
  trace_listing(seg, seg->pos, "nop");
 
  seg->pos++;
}
 
void emit_zero(struct seg *seg)
{
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, DATA);
  set_expr(seg, seg->pos, 0, "0");
  set_mode(seg, seg->pos, 0, 'n');
 
  trace_listing(seg, seg->pos, "data 0");
 
  seg->pos++;
}
 
void emit_data(struct seg *seg, char *expr)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, DATA);
  set_expr(seg, seg->pos, 0, expr);
  set_mode(seg, seg->pos, 0, 'n');
 
  snprintf(buf, CODE_MAX_LISTLEN, "data\t%s", expr);
  trace_listing(seg, seg->pos, buf);
 
  seg->pos++;
 
  free(buf);
}
 
void emit_ldil(struct seg *seg, uint16_t reg, char *expr)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, LDIL);
  set_regnum(seg, seg->pos, 0, reg);
  set_mode(seg, seg->pos, 0, 'r');
  set_expr(seg, seg->pos, 1, expr);
  set_mode(seg, seg->pos, 1, 'n');
 
  snprintf(buf, CODE_MAX_LISTLEN, "ldil\tr%d, %s", reg, expr);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_ldih(struct seg *seg, uint16_t reg, char *expr)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, LDIH);
  set_regnum(seg, seg->pos, 0, reg);
  set_mode(seg, seg->pos, 0, 'r');
  set_expr(seg, seg->pos, 1, expr);
  set_mode(seg, seg->pos, 2, 'n');
 
  snprintf(buf, CODE_MAX_LISTLEN, "ldih\tr%d, %s", reg, expr);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_ldib(struct seg *seg, uint16_t reg, char *expr)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, LDIB);
  set_regnum(seg, seg->pos, 0, reg);
  set_mode(seg, seg->pos, 0, 'r');
  set_expr(seg, seg->pos, 1, expr);
  set_mode(seg, seg->pos, 1, 'n');
 
  snprintf(buf, CODE_MAX_LISTLEN, "ldib\tr%d, %s", reg, expr);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_addi(struct seg *seg, uint16_t reg, char *expr)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, ADDI);
  set_regnum(seg, seg->pos, 0, reg);
  set_mode(seg, seg->pos, 0, 'r');
  set_expr(seg, seg->pos, 1, expr);
  set_mode(seg, seg->pos, 1, 'n');
 
  snprintf(buf, CODE_MAX_LISTLEN, "addi\tr%d, %s", reg, expr);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_cmp(struct seg *seg, uint16_t reg1, uint16_t reg2)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, CMP);
  set_regnum(seg, seg->pos, 0, reg1);
  set_mode(seg, seg->pos, 0, 'r');
  set_regnum(seg, seg->pos, 1, reg2);
  set_mode(seg, seg->pos, 1, 'r');
 
  snprintf(buf, CODE_MAX_LISTLEN, "cmp\tr%d, r%d", reg1, reg2);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_load(struct seg *seg, uint16_t reg1, uint16_t reg2)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, LOAD);
  set_regnum(seg, seg->pos, 0, reg1);
  set_mode(seg, seg->pos, 0, 'r');
  set_regnum(seg, seg->pos, 1, reg2);
  set_mode(seg, seg->pos, 1, 'r');
 
  snprintf(buf, CODE_MAX_LISTLEN, "load\tr%d, r%d", reg1, reg2);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_store(struct seg *seg, uint16_t reg1, uint16_t reg2)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, STORE);
  set_regnum(seg, seg->pos, 0, reg1);
  set_mode(seg, seg->pos, 0, 'r');
  set_regnum(seg, seg->pos, 1, reg2);
  set_mode(seg, seg->pos, 1, 'r');
 
  snprintf(buf, CODE_MAX_LISTLEN, "store\tr%d, r%d", reg1, reg2);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_jmp(struct seg *seg, uint16_t reg)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, JMP);
  set_regnum(seg, seg->pos, 0, reg);
  set_mode(seg, seg->pos, 0, 'r');
 
  snprintf(buf, CODE_MAX_LISTLEN, "jmp\tr%d", reg);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}
 
void emit_brnz(struct seg *seg, char *expr)
{
  char *buf = xmalloc(CODE_MAX_LISTLEN);
 
  adjust_segsize(seg, seg->pos+1);
  set_op(seg, seg->pos, BRNZ);
  set_expr(seg, seg->pos, 0, expr);
  set_mode(seg, seg->pos, 0, 'a');
 
  snprintf(buf, CODE_MAX_LISTLEN, "brnz\t%s", expr);
  trace_listing(seg, seg->pos, buf);
  seg->pos++;
 
  free(buf);
}