1994-06-24 11:31:16 +00:00
|
|
|
/* $Id$ */
|
1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
1984-11-26 13:43:22 +00:00
|
|
|
/* I N T E R M E D I A T E C O D E
|
|
|
|
|
*
|
|
|
|
|
* A U X I L I A R Y R O U T I N E S
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
extern offset opr_size(); /* ( short instr )
|
|
|
|
|
* size of operand of given instruction.
|
|
|
|
|
* The operand is an object , so the
|
|
|
|
|
* instruction can be loe, zre etc..
|
|
|
|
|
*/
|
|
|
|
|
extern dblockdef(); /* (dblock_p db, int n, line_p lnp)
|
|
|
|
|
* Fill in d_pseudo, d_size and
|
|
|
|
|
* d_values fields of db.
|
|
|
|
|
*/
|
|
|
|
|
extern combine(); /* (dblock_p db;line_p l1,l2;byte pseu)
|
|
|
|
|
* Combine two successive ROMs or CONs
|
|
|
|
|
* (with no data label in between)
|
|
|
|
|
* into one ROM or CON.
|
|
|
|
|
*/
|
|
|
|
|
extern line_p arglist(); /* ( int m)
|
|
|
|
|
* Read a list of m arguments. If m
|
|
|
|
|
* is 0, then the list is of
|
|
|
|
|
* undetermined length; it is
|
|
|
|
|
* then terminated by a cend symbol.
|
|
|
|
|
*/
|
|
|
|
|
extern bool is_datalabel(); /* ( line_p l)
|
|
|
|
|
* TRUE if l is a data label defining
|
|
|
|
|
* occurrence (i.e. its l_instr
|
|
|
|
|
* field is ps_sym).
|
|
|
|
|
*/
|
|
|
|
|
extern dblock_p block_of_lab(); /* (char *ident)
|
|
|
|
|
* Find the datablock with
|
|
|
|
|
* the given name.
|
|
|
|
|
*/
|
|
|
|
|
extern obj_p object(); /* (char *ident,offset off,short size)
|
|
|
|
|
* Create an object struct.
|
|
|
|
|
*/
|
