Blame | Last modification | View Log | RSS feed
/*
Crown Copyright (c) 1997
This TenDRA(r) Computer Program is subject to Copyright
owned by the United Kingdom Secretary of State for Defence
acting through the Defence Evaluation and Research Agency
(DERA). It is made available to Recipients with a
royalty-free licence for its use, reproduction, transfer
to other parties and amendment for any purpose not excluding
product development provided that any such use et cetera
shall be deemed to be acceptance of the following conditions:-
(1) Its Recipients shall ensure that this Notice is
reproduced upon any copies or amended versions of it;
(2) Any amended version of it shall be clearly marked to
show both the nature of and the organisation responsible
for the relevant amendment or amendments;
(3) Its onward transfer from a recipient to another
party shall be deemed to be that party's acceptance of
these conditions;
(4) DERA gives no warranty or assurance as to its
quality or suitability for any purpose and DERA accepts
no liability whatsoever in relation to any use to which
it may be put.
*/
/* $Id: out_ba.c,v 1.1.1.1 1998/01/17 15:56:01 release Exp $ */
#ifndef lint
static char vcid[] = "$Id: out_ba.c,v 1.1.1.1 1998/01/17 15:56:01 release Exp $";
#endif /* lint */
/*
out_ba.c
This file contains code to output a file of machine instructions
in binary assembler format.
*/
/*
$Log: out_ba.c,v $
* Revision 1.1.1.1 1998/01/17 15:56:01 release
* First version to be checked into rolling release.
*
* Revision 1.7 1995/09/06 09:01:10 john
* removed old command line argument parsing
*
* Revision 1.6 1995/06/28 10:26:00 john
* Some reformatting
*
* Revision 1.5 1995/05/23 13:24:02 john
* Change for 64 bit support
*
* Revision 1.4 1995/04/10 14:13:27 john
* Minor changes
*
* Revision 1.3 1995/04/07 11:05:10 john
* Fixed assembler output.
*
* Revision 1.2 1995/03/29 14:07:58 john
* Changed strings.h to string.h
*
* Revision 1.1.1.1 1995/03/23 10:39:32 john
* Entered into CVS
*
* Revision 1.5 1995/03/23 10:09:21 john
* Added support for scheduler
*
* Revision 1.4 1995/01/26 13:46:39 john
* Removed unused variable
*
*/
#include "config.h"
#include "ibinasm.h"
#include "main.h"
#include "out_ba.h"
#include "xalloc.h"
extern FILE * ba_file;
static binasm ba;
#define OUT out_one(ba.data)
#define C(x) ba.x.symno = symno; ba.x.fill0a =0;ba.x.asmtype = asmtype
/*
output one binasm record and return a copy of the output.
*/
char * out_one
PROTO_N ( ( d ) )
PROTO_T ( char *d )
{
#if DO_SCHEDULE
char * res = (char*)xcalloc(binasm_record_length,sizeof(char));
#endif
int i;
for (i = 0; i < binasm_record_length; i++) {
#if DO_SCHEDULE
res[i] = d[i];
#else
putc (d[i], ba_file);
#endif
d[i] = 0;
}
#if DO_SCHEDULE
return res;
#endif
return (char*)NULL;
}
/*
output string as set of binasm records
*/
char * out_data
PROTO_N ( ( s,size ) )
PROTO_T ( char *s X int size )
{
int i;
int j = ((size+binasm_record_length-1)/binasm_record_length)
*binasm_record_length;
#if DO_SCHEDULE
char * res = (char*)xcalloc(j,sizeof(char));
#else
char *res = (char*)NULL;
#endif
for (i = 0; i < size; i++) {
#if DO_SCHEDULE
res[i] = s[i];
#else
putc (s[i], ba_file);
#endif
}
for (i = size; i < j; i++)
#if DO_SCHEDULE
res[i] = ' ';
#else
putc (' ', ba_file);
#endif
return res;
}
char * out_common
PROTO_N ( ( symno, asmtype ) )
PROTO_T ( asmsym symno X unsigned asmtype )
{
/* things like label settings */
C (common);
return OUT;
}
/*
output enter binasm record
*/
char * out_ent
PROTO_N ( ( symno, asmtype, lexlev ) )
PROTO_T ( asmsym symno X unsigned asmtype X unsigned lexlev )
{
C (ent);
ba.ent.lexlev = lexlev;
return OUT;
}
/*
output frame binasm record
*/
char * out_frame
PROTO_N ( ( symno,asmtype,frameoffset,framereg,pcreg ) )
PROTO_T ( asmsym symno X unsigned asmtype X asmint frameoffset X asmreg framereg X asmreg pcreg )
{
C (frame);
ba.frame.frameoffset = frameoffset;
ba.frame.framereg = framereg;
ba.frame.pcreg = pcreg;
return OUT;
}
/*
output mask binasm record
*/
char * out_mask
PROTO_N ( ( symno,asmtype,regmask,regoffset ) )
PROTO_T ( asmsym symno X unsigned asmtype X unsigned regmask X asmint regoffset )
{
C (mask);
ba.mask.regmask = regmask;
ba.mask.regoffset = regoffset;
return OUT;
}
/*
output version stamp binasm record
*/
char * out_verstamp
PROTO_N ( ( majornumber, minornumber ) )
PROTO_T ( int majornumber X int minornumber )
{
ba.verstamp.symno = 0;
ba.verstamp.fill0a = 0;
ba.verstamp.asmtype = iverstamp;
ba.verstamp.majornumber = majornumber;
ba.verstamp.minornumber = minornumber;
return OUT;
}
/*
output line-no binasm record
*/
void out_loc
PROTO_N ( ( filenumber, linenumber ) )
PROTO_T ( int filenumber X unsigned linenumber )
{
ba.loc.symno = 0;
ba.loc.fill0a = 0;
ba.loc.asmtype = iloc;
ba.loc.filenumber = (filenumber<0)?2:filenumber;
ba.loc.linenumber = linenumber;
OUT;
#if !DO_SCHEDULE
fflush (ba_file);
#endif
}
/*
output some data directive binasm record
*/
char *out_chars
PROTO_N ( ( symno,asmtype,expression,repeat ) )
PROTO_T ( asmsym symno X unsigned asmtype X asmint expression X unsigned short repeat )
{
C (value);
ba.value.expression = expression;
ba.value.repeat = repeat;
return OUT;
}
/*
output option binasm record
*/
char * out_option
PROTO_N ( ( optype, opint ) )
PROTO_T ( int optype X int opint )
{
ba.voption.symno = 0;
ba.voption.fill0a = 0;
ba.voption.asmtype = ioption;
ba.voption.option = optype;
ba.voption.opt_int_value = opint;
return OUT;
}
/*
output some data directive binasm record
*/
char * out_value
PROTO_N ( ( symno,asmtype,expression,repeat ) )
PROTO_T ( asmsym symno X unsigned asmtype X INT64 expression X unsigned int repeat )
{
C (value);
ba.value.expression = expression;
/*ba.value.repeat = (repeat>0xffff)?0xffff:repeat;*/
ba.value.repeat = repeat;
return OUT;
/*if (repeat>0xffff) out_value(symno, asmtype, expression, repeat-0xffff);*/
}
/*
output alias binasm record
*/
void out_alias
PROTO_N ( ( symno,asmtype,basereg1,basereg2 ) )
PROTO_T ( asmsym symno X unsigned asmtype X asmreg basereg1 X asmreg basereg2 )
{
C (alias);
ba.alias.basereg1 = basereg1;
ba.alias.basereg2 = basereg2;
OUT;
}
/*
output binasm for instruction with no
immediate operand
*/
char * out_rinst
PROTO_N ( ( symno,opcode,reg1,reg2,form,reg3 ) )
PROTO_T ( asmsym symno X int opcode X asmreg reg1 X asmreg reg2 X asmformat form X asmreg reg3 )
{
ba.rinst.symno = symno;
ba.rinst.asmtype = iocode;
ba.rinst.fill0a = 0;
ba.rinst.fill03 = 0;
ba.rinst.op = opcode;
ba.rinst.reg1 = reg1;
ba.rinst.reg2 = reg2;
ba.rinst.form = form;
ba.rinst.reg3 = reg3;
return OUT;
}
/*
output binasm for instruction with immediate operand
*/
char * out_iinst
PROTO_N ( ( symno,opcode,reg1,reg2,form,mem_tag,immediate ) )
PROTO_T ( asmsym symno X int opcode X asmreg reg1 X asmreg reg2 X asmformat form X unsigned int mem_tag X int immediate )
{
ba.iinst.symno = symno;
ba.iinst.asmtype = iocode;
ba.iinst.fill0a = 0;
ba.iinst.fill03 = 0;
ba.iinst.op = opcode;
ba.iinst.reg1 = reg1;
ba.iinst.reg2 = reg2;
ba.iinst.mem_tag = mem_tag;
ba.iinst.form = form;
ba.iinst.immediate = immediate;
return OUT;
}
char * out_biinst
PROTO_N ( ( symno,opcode,reg1,reg2,form,mem_tag,immediate ) )
PROTO_T ( asmsym symno X int opcode X asmreg reg1 X asmreg reg2 X asmformat form X unsigned int mem_tag X INT64 immediate )
{
ba.iinst.symno = symno;
ba.iinst.asmtype = iocode;
ba.iinst.fill0a = 0;
ba.iinst.fill03 = 0;
ba.iinst.op = opcode;
ba.iinst.reg1 = reg1;
ba.iinst.reg2 = reg2;
ba.iinst.mem_tag = mem_tag;
ba.iinst.form = form;
ba.iinst.immediate = immediate;
return OUT;
}
/*
*/
char * out_linst
PROTO_N ( ( symno,opcode,reg1,reg2,form,imm ) )
PROTO_T ( asmsym symno X int opcode X asmreg reg1 X asmreg reg2 X asmformat form X asmint imm )
{
ba.linst.symno = symno;
ba.linst.asmtype = iocode;
ba.linst.fill0a = 0;
ba.linst.fill03 = 0 ;
ba.linst.op = opcode;
ba.linst.reg1 = reg1;
ba.linst.reg2 = reg2;
ba.linst.form = form;
ba.linst.imm = imm;
return OUT;
}