scp.h - emulators/simh - Rivoreo Source Code Repositories

 /* scp.h: simulator control program headers

    Copyright (c) 1993-2009, Robert M Supnik

    Permission is hereby granted, free of charge, to any person obtaining a
    copy of this software and associated documentation files (the "Software"),
    to deal in the Software without restriction, including without limitation
    the rights to use, copy, modify, merge, publish, distribute, sublicense,
    and/or sell copies of the Software, and to permit persons to whom the
    Software is furnished to do so, subject to the following conditions:

    The above copyright notice and this permission notice shall be included in
    all copies or substantial portions of the Software.

    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
    ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
    IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
    CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

    Except as contained in this notice, the name of Robert M Supnik shall not
    be used in advertising or otherwise to promote the sale, use or other dealings
    in this Software without prior written authorization from Robert M Supnik.

    05-Dec-10    MP      Added macro invocation of sim_debug
    09-Aug-06    JDB     Added assign_device and deassign_device
    14-Jul-06    RMS     Added sim_activate_abs
    06-Jan-06    RMS     Added fprint_stopped_gen
                         Changed arg type in sim_brk_test
    07-Feb-05    RMS     Added ASSERT command
    09-Sep-04    RMS     Added reset_all_p
    14-Feb-04    RMS     Added debug prototypes (from Dave Hittner)
    02-Jan-04    RMS     Split out from SCP
 */

 #ifndef SIM_SCP_H_
 #define SIM_SCP_H_     0

 /* run_cmd parameters */

 #define RU_RUN          0                               /* run */
 #define RU_GO           1                               /* go */
 #define RU_STEP         2                               /* step */
 #define RU_NEXT         3                               /* step or step/over */
 #define RU_CONT         4                               /* continue */
 #define RU_BOOT         5                               /* boot */

 /* get_sim_opt parameters */

 #define CMD_OPT_SW      001                             /* switches */
 #define CMD_OPT_OF      002                             /* output file */
 #define CMD_OPT_SCH     004                             /* search */
 #define CMD_OPT_DFT     010                             /* defaults */

 /* Command processors */

 t_stat reset_cmd (int32 flag, char *ptr);
 t_stat exdep_cmd (int32 flag, char *ptr);
 t_stat eval_cmd (int32 flag, char *ptr);
 t_stat load_cmd (int32 flag, char *ptr);
 t_stat run_cmd (int32 flag, char *ptr);
 void run_cmd_message (const char *unechod_cmdline, t_stat r);
 t_stat attach_cmd (int32 flag, char *ptr);
 t_stat detach_cmd (int32 flag, char *ptr);
 t_stat assign_cmd (int32 flag, char *ptr);
 t_stat deassign_cmd (int32 flag, char *ptr);
 t_stat save_cmd (int32 flag, char *ptr);
 t_stat restore_cmd (int32 flag, char *ptr);
 t_stat exit_cmd (int32 flag, char *ptr);
 t_stat set_cmd (int32 flag, char *ptr);
 t_stat show_cmd (int32 flag, char *ptr);
 t_stat set_default_cmd (int32 flg, char *cptr);
 t_stat pwd_cmd (int32 flg, char *cptr);
 t_stat dir_cmd (int32 flg, char *cptr);
 t_stat brk_cmd (int32 flag, char *ptr);
 t_stat do_cmd (int32 flag, char *ptr);
 t_stat goto_cmd (int32 flag, char *ptr);
 t_stat return_cmd (int32 flag, char *ptr);
 t_stat shift_cmd (int32 flag, char *ptr);
 t_stat call_cmd (int32 flag, char *ptr);
 t_stat on_cmd (int32 flag, char *ptr);
 t_stat noop_cmd (int32 flag, char *ptr);
 t_stat assert_cmd (int32 flag, char *ptr);
 t_stat help_cmd (int32 flag, char *ptr);
 t_stat spawn_cmd (int32 flag, char *ptr);
 t_stat echo_cmd (int32 flag, char *ptr);

 /* Utility routines */

 t_stat sim_process_event (void);
 t_stat sim_activate (UNIT *uptr, int32 interval);
 t_stat _sim_activate (UNIT *uptr, int32 interval);
 t_stat sim_activate_abs (UNIT *uptr, int32 interval);
 t_stat sim_activate_notbefore (UNIT *uptr, int32 rtime);
 t_stat sim_activate_after (UNIT *uptr, int32 usecs_walltime);
 t_stat _sim_activate_after (UNIT *uptr, int32 usecs_walltime);
 t_stat sim_cancel (UNIT *uptr);
 t_bool sim_is_active (UNIT *uptr);
 int32 sim_activate_time (UNIT *uptr);
 double sim_gtime (void);
 uint32 sim_grtime (void);
 int32 sim_qcount (void);
 t_stat attach_unit (UNIT *uptr, char *cptr);
 t_stat detach_unit (UNIT *uptr);
 t_stat assign_device (DEVICE *dptr, char *cptr);
 t_stat deassign_device (DEVICE *dptr);
 t_stat reset_all (uint32 start_device);
 t_stat reset_all_p (uint32 start_device);
 char *sim_dname (DEVICE *dptr);
 char *sim_uname (UNIT *dptr);
 t_stat get_yn (char *ques, t_stat deflt);
 char *get_sim_opt (int32 opt, char *cptr, t_stat *st);
 char *get_glyph (const char *iptr, char *optr, char mchar);
 char *get_glyph_nc (const char *iptr, char *optr, char mchar);
 char *get_glyph_quoted (const char *iptr, char *optr, char mchar);
 t_value get_uint (char *cptr, uint32 radix, t_value max, t_stat *status);
 char *get_range (DEVICE *dptr, char *cptr, t_addr *lo, t_addr *hi,
     uint32 rdx, t_addr max, char term);
 t_value strtotv (const char *cptr, char **endptr, uint32 radix);
 t_stat fprint_val (FILE *stream, t_value val, uint32 rdx, uint32 wid, uint32 fmt);
 t_stat sim_print_val (t_value val, uint32 radix, uint32 width, uint32 format);
 char *read_line (char *cptr, int32 size, FILE *stream);
 void fprint_reg_help (FILE *st, DEVICE *dptr);
 void fprint_set_help (FILE *st, DEVICE *dptr);
 void fprint_show_help (FILE *st, DEVICE *dptr);
 CTAB *find_cmd (char *gbuf);
 DEVICE *find_dev (char *ptr);
 DEVICE *find_unit (char *ptr, UNIT **uptr);
 DEVICE *find_dev_from_unit (UNIT *uptr);
 t_stat sim_register_internal_device (DEVICE *dptr);
 void sim_sub_args (char *in_str, size_t in_str_size, char *do_arg[]);
 REG *find_reg (char *ptr, char **optr, DEVICE *dptr);
 CTAB *find_ctab (CTAB *tab, char *gbuf);
 C1TAB *find_c1tab (C1TAB *tab, char *gbuf);
 SHTAB *find_shtab (SHTAB *tab, char *gbuf);
 t_stat get_aval (t_addr addr, DEVICE *dptr, UNIT *uptr);
 BRKTAB *sim_brk_fnd (t_addr loc);
 uint32 sim_brk_test (t_addr bloc, uint32 btyp);
 void sim_brk_clrspc (uint32 spc);
 char *match_ext (char *fnam, char *ext);
 t_stat show_version (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr);
 t_stat set_dev_debug (DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr);
 t_stat show_dev_debug (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr);
 const char *sim_error_text (t_stat stat);
 t_stat sim_string_to_stat (char *cptr, t_stat *cond);
 t_stat sim_cancel_step (void);
 void sim_printf (const char* fmt, ...);
 void sim_data_trace(DEVICE *dptr, UNIT *uptr, const uint8 *data, const char *position, size_t len, const char *txt, uint32 reason);
 void sim_debug_bits (uint32 dbits, DEVICE* dptr, BITFIELD* bitdefs,
     uint32 before, uint32 after, int terminate);
 #if defined (__DECC) && defined (__VMS) && (defined (__VAX) || (__DECC_VER < 60590001))
 #define CANT_USE_MACRO_VA_ARGS 1
 #endif
 #ifdef CANT_USE_MACRO_VA_ARGS
 #define _sim_debug sim_debug
 void sim_debug (uint32 dbits, DEVICE* dptr, const char* fmt, ...);
 #else
 void _sim_debug (uint32 dbits, DEVICE* dptr, const char* fmt, ...);
 #define sim_debug(dbits, dptr, ...) if (sim_deb && dptr && ((dptr)->dctrl & dbits)) _sim_debug (dbits, dptr, __VA_ARGS__); else (void)0
 #endif
 void fprint_stopped_gen (FILE *st, t_stat v, REG *pc, DEVICE *dptr);
 #define SCP_HELP_FLAT   (1u << 31)       /* Force flat help when prompting is not possible */
 #define SCP_HELP_ONECMD (1u << 30)       /* Display one topic, do not prompt */
 #define SCP_HELP_ATTACH (1u << 29)       /* Top level topic is ATTACH help */
 t_stat scp_help (FILE *st, struct sim_device *dptr,
                  struct sim_unit *uptr, int32 flag, const char *help, const char *cptr, ...);
 t_stat scp_vhelp (FILE *st, struct sim_device *dptr,
                   struct sim_unit *uptr, int32 flag, const char *help, const char *cptr, va_list ap);
 t_stat scp_helpFromFile (FILE *st, struct sim_device *dptr,
                          struct sim_unit *uptr, int32 flag, const char *help, const char *cptr, ...);
 t_stat scp_vhelpFromFile (FILE *st, struct sim_device *dptr,
                           struct sim_unit *uptr, int32 flag, const char *help, const char *cptr, va_list ap);

 /* Global data */

 extern DEVICE *sim_dflt_dev;
 extern int32 sim_interval;
 extern int32 sim_switches;
 extern int32 sim_quiet;
 extern int32 sim_step;
 extern FILE *sim_log;                                   /* log file */
 extern FILEREF *sim_log_ref;                            /* log file file reference */
 extern FILE *sim_deb;                                   /* debug file */
 extern FILEREF *sim_deb_ref;                            /* debug file file reference */
 extern int32 sim_deb_switches;                          /* debug display flags */
 extern struct timespec sim_deb_basetime;                /* debug base time for relative time output */
 extern UNIT *sim_clock_queue;
 extern int32 sim_is_running;
 extern char *sim_prompt;                                /* prompt string */
 extern t_value *sim_eval;
 extern volatile int32 stop_cpu;
 extern uint32 sim_brk_types;                            /* breakpoint info */
 extern uint32 sim_brk_dflt;
 extern uint32 sim_brk_summ;
 extern FILE *stdnul;
 extern t_bool sim_asynch_enabled;

 /* VM interface */

 extern char sim_name[];
 extern DEVICE *sim_devices[];
 extern REG *sim_PC;
 extern const char *sim_stop_messages[];
 extern t_stat sim_instr (void);
 extern t_stat sim_load (FILE *ptr, char *cptr, char *fnam, int flag);
 extern int32 sim_emax;
 extern t_stat fprint_sym (FILE *ofile, t_addr addr, t_value *val,
     UNIT *uptr, int32 sw);
 extern t_stat parse_sym (char *cptr, t_addr addr, UNIT *uptr, t_value *val,
     int32 sw);

 /* The per-simulator init routine is a weak global that defaults to NULL
    The other per-simulator pointers can be overrriden by the init routine */

 extern void (*sim_vm_init) (void);
 extern char* (*sim_vm_read) (char *ptr, int32 size, FILE *stream);
 extern void (*sim_vm_post) (t_bool from_scp);
 extern CTAB *sim_vm_cmd;
 extern void (*sim_vm_fprint_addr) (FILE *st, DEVICE *dptr, t_addr addr);
 extern t_addr (*sim_vm_parse_addr) (DEVICE *dptr, char *cptr, char **tptr);
 extern t_value (*sim_vm_pc_value) (void);
 extern t_bool (*sim_vm_is_subroutine_call) (t_addr **ret_addrs);


 #endif
	/* scp.h: simulator control program headers

	Copyright (c) 1993-2009, Robert M Supnik

	Permission is hereby granted, free of charge, to any person obtaining a
	copy of this software and associated documentation files (the "Software"),
	to deal in the Software without restriction, including without limitation
	the rights to use, copy, modify, merge, publish, distribute, sublicense,
	and/or sell copies of the Software, and to permit persons to whom the
	Software is furnished to do so, subject to the following conditions:

	The above copyright notice and this permission notice shall be included in
	all copies or substantial portions of the Software.

	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
	IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
	FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
	ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
	IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
	CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

	Except as contained in this notice, the name of Robert M Supnik shall not
	be used in advertising or otherwise to promote the sale, use or other dealings
	in this Software without prior written authorization from Robert M Supnik.

	05-Dec-10 MP Added macro invocation of sim_debug
	09-Aug-06 JDB Added assign_device and deassign_device
	14-Jul-06 RMS Added sim_activate_abs
	06-Jan-06 RMS Added fprint_stopped_gen
	Changed arg type in sim_brk_test
	07-Feb-05 RMS Added ASSERT command
	09-Sep-04 RMS Added reset_all_p
	14-Feb-04 RMS Added debug prototypes (from Dave Hittner)
	02-Jan-04 RMS Split out from SCP
	*/

	#ifndef SIM_SCP_H_
	#define SIM_SCP_H_ 0

	/* run_cmd parameters */

	#define RU_RUN 0 /* run */
	#define RU_GO 1 /* go */
	#define RU_STEP 2 /* step */
	#define RU_NEXT 3 /* step or step/over */
	#define RU_CONT 4 /* continue */
	#define RU_BOOT 5 /* boot */

	/* get_sim_opt parameters */

	#define CMD_OPT_SW 001 /* switches */
	#define CMD_OPT_OF 002 /* output file */
	#define CMD_OPT_SCH 004 /* search */
	#define CMD_OPT_DFT 010 /* defaults */

	/* Command processors */

	t_stat reset_cmd (int32 flag, char *ptr);
	t_stat exdep_cmd (int32 flag, char *ptr);
	t_stat eval_cmd (int32 flag, char *ptr);
	t_stat load_cmd (int32 flag, char *ptr);
	t_stat run_cmd (int32 flag, char *ptr);
	void run_cmd_message (const char *unechod_cmdline, t_stat r);
	t_stat attach_cmd (int32 flag, char *ptr);
	t_stat detach_cmd (int32 flag, char *ptr);
	t_stat assign_cmd (int32 flag, char *ptr);
	t_stat deassign_cmd (int32 flag, char *ptr);
	t_stat save_cmd (int32 flag, char *ptr);
	t_stat restore_cmd (int32 flag, char *ptr);
	t_stat exit_cmd (int32 flag, char *ptr);
	t_stat set_cmd (int32 flag, char *ptr);
	t_stat show_cmd (int32 flag, char *ptr);
	t_stat set_default_cmd (int32 flg, char *cptr);
	t_stat pwd_cmd (int32 flg, char *cptr);
	t_stat dir_cmd (int32 flg, char *cptr);
	t_stat brk_cmd (int32 flag, char *ptr);
	t_stat do_cmd (int32 flag, char *ptr);
	t_stat goto_cmd (int32 flag, char *ptr);
	t_stat return_cmd (int32 flag, char *ptr);
	t_stat shift_cmd (int32 flag, char *ptr);
	t_stat call_cmd (int32 flag, char *ptr);
	t_stat on_cmd (int32 flag, char *ptr);
	t_stat noop_cmd (int32 flag, char *ptr);
	t_stat assert_cmd (int32 flag, char *ptr);
	t_stat help_cmd (int32 flag, char *ptr);
	t_stat spawn_cmd (int32 flag, char *ptr);
	t_stat echo_cmd (int32 flag, char *ptr);

	/* Utility routines */

	t_stat sim_process_event (void);
	t_stat sim_activate (UNIT *uptr, int32 interval);
	t_stat _sim_activate (UNIT *uptr, int32 interval);
	t_stat sim_activate_abs (UNIT *uptr, int32 interval);
	t_stat sim_activate_notbefore (UNIT *uptr, int32 rtime);
	t_stat sim_activate_after (UNIT *uptr, int32 usecs_walltime);
	t_stat _sim_activate_after (UNIT *uptr, int32 usecs_walltime);
	t_stat sim_cancel (UNIT *uptr);
	t_bool sim_is_active (UNIT *uptr);
	int32 sim_activate_time (UNIT *uptr);
	double sim_gtime (void);
	uint32 sim_grtime (void);
	int32 sim_qcount (void);
	t_stat attach_unit (UNIT uptr, char cptr);
	t_stat detach_unit (UNIT *uptr);
	t_stat assign_device (DEVICE dptr, char cptr);
	t_stat deassign_device (DEVICE *dptr);
	t_stat reset_all (uint32 start_device);
	t_stat reset_all_p (uint32 start_device);
	char sim_dname (DEVICE dptr);
	char sim_uname (UNIT dptr);
	t_stat get_yn (char *ques, t_stat deflt);
	char get_sim_opt (int32 opt, char cptr, t_stat *st);
	char get_glyph (const char iptr, char *optr, char mchar);
	char get_glyph_nc (const char iptr, char *optr, char mchar);
	char get_glyph_quoted (const char iptr, char *optr, char mchar);
	t_value get_uint (char cptr, uint32 radix, t_value max, t_stat status);
	char get_range (DEVICE dptr, char cptr, t_addr lo, t_addr *hi,
	uint32 rdx, t_addr max, char term);
	t_value strtotv (const char cptr, char *endptr, uint32 radix);
	t_stat fprint_val (FILE *stream, t_value val, uint32 rdx, uint32 wid, uint32 fmt);
	t_stat sim_print_val (t_value val, uint32 radix, uint32 width, uint32 format);
	char read_line (char cptr, int32 size, FILE *stream);
	void fprint_reg_help (FILE st, DEVICE dptr);
	void fprint_set_help (FILE st, DEVICE dptr);
	void fprint_show_help (FILE st, DEVICE dptr);
	CTAB find_cmd (char gbuf);
	DEVICE find_dev (char ptr);
	DEVICE find_unit (char ptr, UNIT **uptr);
	DEVICE find_dev_from_unit (UNIT uptr);
	t_stat sim_register_internal_device (DEVICE *dptr);
	void sim_sub_args (char in_str, size_t in_str_size, char do_arg[]);
	REG find_reg (char ptr, char *optr, DEVICE dptr);
	CTAB find_ctab (CTAB tab, char *gbuf);
	C1TAB find_c1tab (C1TAB tab, char *gbuf);
	SHTAB find_shtab (SHTAB tab, char *gbuf);
	t_stat get_aval (t_addr addr, DEVICE dptr, UNIT uptr);
	BRKTAB *sim_brk_fnd (t_addr loc);
	uint32 sim_brk_test (t_addr bloc, uint32 btyp);
	void sim_brk_clrspc (uint32 spc);
	char match_ext (char fnam, char *ext);
	t_stat show_version (FILE st, DEVICE dptr, UNIT uptr, int32 flag, char cptr);
	t_stat set_dev_debug (DEVICE dptr, UNIT uptr, int32 flag, char *cptr);
	t_stat show_dev_debug (FILE st, DEVICE dptr, UNIT uptr, int32 flag, char cptr);
	const char *sim_error_text (t_stat stat);
	t_stat sim_string_to_stat (char cptr, t_stat cond);
	t_stat sim_cancel_step (void);
	void sim_printf (const char* fmt, ...);
	void sim_data_trace(DEVICE dptr, UNIT uptr, const uint8 data, const char position, size_t len, const char *txt, uint32 reason);
	void sim_debug_bits (uint32 dbits, DEVICE* dptr, BITFIELD* bitdefs,
	uint32 before, uint32 after, int terminate);
	#if defined (__DECC) && defined (__VMS) && (defined (__VAX) \|\| (__DECC_VER < 60590001))
	#define CANT_USE_MACRO_VA_ARGS 1
	#endif
	#ifdef CANT_USE_MACRO_VA_ARGS
	#define _sim_debug sim_debug
	void sim_debug (uint32 dbits, DEVICE* dptr, const char* fmt, ...);
	#else
	void _sim_debug (uint32 dbits, DEVICE* dptr, const char* fmt, ...);
	#define sim_debug(dbits, dptr, ...) if (sim_deb && dptr && ((dptr)->dctrl & dbits)) _sim_debug (dbits, dptr, __VA_ARGS__); else (void)0
	#endif
	void fprint_stopped_gen (FILE st, t_stat v, REG pc, DEVICE *dptr);
	#define SCP_HELP_FLAT (1u << 31) /* Force flat help when prompting is not possible */
	#define SCP_HELP_ONECMD (1u << 30) /* Display one topic, do not prompt */
	#define SCP_HELP_ATTACH (1u << 29) /* Top level topic is ATTACH help */
	t_stat scp_help (FILE st, struct sim_device dptr,
	struct sim_unit uptr, int32 flag, const char help, const char *cptr, ...);
	t_stat scp_vhelp (FILE st, struct sim_device dptr,
	struct sim_unit uptr, int32 flag, const char help, const char *cptr, va_list ap);
	t_stat scp_helpFromFile (FILE st, struct sim_device dptr,
	struct sim_unit uptr, int32 flag, const char help, const char *cptr, ...);
	t_stat scp_vhelpFromFile (FILE st, struct sim_device dptr,
	struct sim_unit uptr, int32 flag, const char help, const char *cptr, va_list ap);

	/* Global data */

	extern DEVICE *sim_dflt_dev;
	extern int32 sim_interval;
	extern int32 sim_switches;
	extern int32 sim_quiet;
	extern int32 sim_step;
	extern FILE sim_log; / log file */
	extern FILEREF sim_log_ref; / log file file reference */
	extern FILE sim_deb; / debug file */
	extern FILEREF sim_deb_ref; / debug file file reference */
	extern int32 sim_deb_switches; /* debug display flags */
	extern struct timespec sim_deb_basetime; /* debug base time for relative time output */
	extern UNIT *sim_clock_queue;
	extern int32 sim_is_running;
	extern char sim_prompt; / prompt string */
	extern t_value *sim_eval;
	extern volatile int32 stop_cpu;
	extern uint32 sim_brk_types; /* breakpoint info */
	extern uint32 sim_brk_dflt;
	extern uint32 sim_brk_summ;
	extern FILE *stdnul;
	extern t_bool sim_asynch_enabled;

	/* VM interface */

	extern char sim_name[];
	extern DEVICE *sim_devices[];
	extern REG *sim_PC;
	extern const char *sim_stop_messages[];
	extern t_stat sim_instr (void);
	extern t_stat sim_load (FILE ptr, char cptr, char *fnam, int flag);
	extern int32 sim_emax;
	extern t_stat fprint_sym (FILE ofile, t_addr addr, t_value val,
	UNIT *uptr, int32 sw);
	extern t_stat parse_sym (char cptr, t_addr addr, UNIT uptr, t_value *val,
	int32 sw);

	/* The per-simulator init routine is a weak global that defaults to NULL
	The other per-simulator pointers can be overrriden by the init routine */

	extern void (*sim_vm_init) (void);
	extern char* (sim_vm_read) (char ptr, int32 size, FILE *stream);
	extern void (*sim_vm_post) (t_bool from_scp);
	extern CTAB *sim_vm_cmd;
	extern void (sim_vm_fprint_addr) (FILE st, DEVICE *dptr, t_addr addr);
	extern t_addr (sim_vm_parse_addr) (DEVICE dptr, char cptr, char *tptr);
	extern t_value (*sim_vm_pc_value) (void);
	extern t_bool (sim_vm_is_subroutine_call) (t_addr *ret_addrs);


	#endif