Subversion Repositories vtach

/**********************************************************************

axasm Copyright 2006, 2007, 2008, 2009

by Al Williams (alw@al-williams.com).

This file is part of axasm.

axasm is free software: you can redistribute it and/or modify it

under the terms of the GNU General Public Licenses as published

by the Free Software Foundation, either version 3 of the License, or

(at your option) any later version.

axasm 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 General Public License for more details.

You should have received a copy of the GNU General Public License

along with axasm (see LICENSE.TXT).

If not, see http://www.gnu.org/licenses/.

If a non-GPL license is desired, contact the author.

This is the One-Der definition file

***********************************************************************/

#ifndef __SOLO_ASM_INC

#define __SOLO_ASM_INC

#include   // needed for XSYM

#include 

#include 

/* Define _SOLO_XSYM to get symbol xref dumped to stderr */

// Define this to override to a different memory size (in words, not bytes!)

#ifndef MAXMEM

#define MAXMEM 99

#endif

static void __setary(unsigned int a, unsigned int v)

  {

  if (a>=MAXMEM)

     {

     fprintf(stderr,"Memory overflow, program too large.\n");

     _solo_info.err=1;

     }

  else _solo_info.ary[a]=v;

  }

// note ORG is only for first address, use REORG to start over

#define ORG(n) unsigned int genasm(int _solo_pass) { \

   unsigned _solo_add=n;\

   _solo_info.psize=16; \

   _solo_info.begin=n; \

   _solo_info.end=n; \

   _solo_info.memsize=MAXMEM; \

   _solo_info.ary=malloc(_solo_info.memsize*_solo_info.psize); \

   _solo_info.err=(_solo_info.ary==NULL)

#define REORG(n) _solo_info.end=((_solo_add)-1)>_solo_info.end?((_solo_add)-1):_solo_info.end; _solo_add=n; _solo_info.begin=(n)<_solo_info.begin?(n):_solo_info.begin

// Assume end is at the highest address

#define END _solo_info.end=_solo_info.end<_solo_add-1?_solo_add-1:_solo_info.end; return _solo_info.end; }

// Note this requires a compiler like gcc that supports var

// declarations inthe middle of a block

#define DEFLABEL(l) static unsigned l

#ifdef _SOLO_XSYM

#define LABEL(l) l=_solo_add; if (_solo_pass==2) fprintf(stderr,"%-32s:\t%08X\n",#l,_solo_add)

#else

#define LABEL(l) l=_solo_add

#endif

#define bcd(n) ((((n)/100)<<8)+((((n)/10)%10)<<4)+((n)%10))

#define DATA(d) __setary(_solo_add++,(bcd(d)))

#define NEGDATA(d) __setary(_solo_add++,0x1000 + bcd(d))

#define INP(r) __setary(_solo_add++,bcd(r))

#define LOD(r) __setary(_solo_add++,bcd(100+(r)))

#define ADD(r) __setary(_solo_add++,bcd(200+(r)))

#define TAC(r) __setary(_solo_add++,bcd(300+(r)))

#define SFT(r,l) __setary(_solo_add++,bcd(400+((r)*10)+(l)))

#define OUT(r) __setary(_solo_add++,bcd(500+(r)))

#define STO(r) __setary(_solo_add++,bcd(600+(r)))

#define SUB(r) __setary(_solo_add++,bcd(700+(r)))

#define JMP(r) __setary(_solo_add++,bcd(800+(r)))

#define HLT __setary(_solo_add++,bcd(900))

#endif