Ibm1130/ibm1130_defs.h - emulators/simh - Rivoreo Source Code Repositories

 /*
  * (C) Copyright 2002, Brian Knittel.
  * You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN
  * RISK basis, there is no warranty of fitness for any purpose, and the rest of the
  * usual yada-yada. Please keep this notice and the copyright in any distributions
  * or modifications.
  *
  * This is not a supported product, but I welcome bug reports and fixes.
  * Mail to sim@ibm1130.org
  */

 /* ibm1130_defs.h: IBM-1130 simulator definitions
  */

 #include "sim_defs.h"						/* main SIMH defns (include path should include .., or make a copy) */
 #include <setjmp.h>
 #include <assert.h>

 #if defined(VMS)
 	#  include <unistd.h>  					/* to pick up 'unlink' */
 #endif

 #define MIN(a,b)  (((a) <= (b)) ? (a) : (b))
 #define MAX(a,b)  (((a) >= (b)) ? (a) : (b))

 #ifndef WIN32
    int strnicmp (char *a, char *b, int n);
    int strcmpi  (char *a, char *b);
 #endif

 // #define GUI_SUPPORT		// uncomment to compile the GUI extensions. It's defined in the windows ibm1130.mak makefile

 /* ------------------------------------------------------------------------ */
 /* Architectural constants */

 #define MAXMEMSIZE	(32768)						/* 32Kwords */
 #define INIMEMSIZE 	(16384)						/* 16Kwords */
 #define MEMSIZE		(cpu_unit.capac)

 #define UNIT_MSIZE	(1 << (UNIT_V_UF + 7))		/* flag for memory size setting */

 #define ILL_ADR_FLAG	0x40000000				/* an impossible 1130 address */

 /* ------------------------------------------------------------------------ */
 /* Global state */

 extern int cgi;								// TRUE if we are running as a CGI program
 extern int sim_gui;

 extern uint16 M[];							/* core memory, up to 32Kwords (note: don't even think about trying 64K) */
 extern uint16 ILSW[];						/* interrupt level status words */
 extern int32  IAR;							/* instruction address register */
 extern int32  prev_IAR;						/* instruction address register at start of current instruction */
 extern int32  SAR, SBR;						/* storage address/buffer registers */
 extern int32  OP, TAG, CCC;					/* instruction decoded pieces */
 extern int32  CES;							/* console entry switches */
 extern int32  ACC, EXT;						/* accumulator and extension */
 extern int32  RUNMODE;						/* processor run/step mode */
 extern int32  ipl;							/* current interrupt level (-1 = not handling irq) */
 extern int32  iplpending;					/* interrupted IPL's */
 extern int32  tbit;							/* trace flag (causes level 5 IRQ after each instr) */
 extern int32  V, C;							/* condition codes */
 extern int32  wait_state;					/* wait state (waiting for an IRQ) */
 extern int32  wait_lamp;					/* alternate indicator to light the wait lamp on the GUI */
 extern int32  int_req;						/* sum of interrupt request levels active */
 extern int32  int_lamps;					/* accumulated version of int_req - gives lamp persistence */
 extern int32  int_mask;						/* current active interrupt mask (ipl sensitive) */
 extern int32  mem_mask;
 extern int32  cpu_dsw;						/* CPU device status word */
 extern int32  sim_int_char;					/* interrupt character */
 extern t_bool running;
 extern t_bool power;
 extern t_bool cgi;							/* TRUE if we are running as a CGI program */
 extern t_stat reason;						/* CPU execution loop control */

 #define WAIT_OP			 1		/* wait state causes: wait instruction, invalid instruction*/
 #define WAIT_INVALID_OP  2

 #define MODE_SS				3				/* RUNMODE values. SS and SMC are not implemented in this simulator */
 #define MODE_SMC			2
 #define MODE_INT_RUN		1
 #define MODE_RUN			0
 #define MODE_SI				-1
 #define MODE_DISP			-2
 #define MODE_LOAD			-3

 /* ------------------------------------------------------------------------ */
 /* debugging																*/
 /* ------------------------------------------------------------------------ */

 #define ENABLE_DEBUG_PRINT
 #define ENABLE_DEBUG_TO_LOG

 #ifdef ENABLE_DEBUG_PRINT
 #  define DEBUG_PRINT debug_print
 #else
 #  ifdef ENABLE_DEBUG_TO_LOG
 #      define DEBUG_PRINT trace_io
 #  else
 #      define DEBUG_PRINT if (0) debug_print
 #  endif
 #endif

 void debug_print(char *fmt, ...);

 /* ------------------------------------------------------------------------ */
 /* memory IO routines */

 int32 ReadW  (int32 a);
 void  WriteW (int32 a, int32 d);

 /* ------------------------------------------------------------------------ */
 /* handy macros */

 #define CLRBIT(v,b)    ((v) &= ~(b))
 #define SETBIT(v,b)    ((v) |= (b))
 #define BETWEEN(v,a,b) (((v) >= (a)) && ((v) <= (b)))

 /* ------------------------------------------------------------------------ */
 /* Simulator stop codes */

 #define STOP_WAIT			1				/* wait, no events */
 #define STOP_INVALID_INSTR	2				/* bad instruction */
 #define STOP_IBKPT			3				/* simulator breakpoint */
 #define STOP_INCOMPLETE		4				/* simulator coding not complete here */
 #define STOP_POWER_OFF		5				/* no power */
 #define STOP_DECK_BREAK		6				/* !BREAK in deck file */
 #define STOP_PHASE_BREAK	7				/* phase load break */
 #define STOP_CRASH			8				/* program has crashed badly */
 #define STOP_TIMED_OUT		9				/* simulation time limit exceeded */

 #define IORETURN(f,v)	((f)? (v): SCPE_OK)	/* cond error return */

 #define INT_REQ_0		0x01				/* bits for interrupt levels (ipl, iplpending, int_req, int_mask) */
 #define INT_REQ_1		0x02
 #define INT_REQ_2		0x04
 #define INT_REQ_3		0x08
 #define INT_REQ_4		0x10
 #define INT_REQ_5		0x20

 #define XIO_UNUSED		0x00				/* XIO commands */
 #define XIO_WRITE		0x01
 #define XIO_READ		0x02
 #define XIO_SENSE_IRQ	0x03
 #define XIO_CONTROL		0x04
 #define XIO_INITW		0x05
 #define XIO_INITR		0x06
 #define XIO_SENSE_DEV	0x07

 #define XIO_FAILED		0x20				/* fake function to record error */

 /* ILSW bits - set by appropriate device whenever an interrupt is outstanding */

 #define ILSW_0_1442_CARD			0x8000			/* ILSW 0 is not really defined on the 1130 */

 #define ILSW_1_1132_PRINTER			0x8000			// had these backwards!
 #define ILSW_1_SCA					0x4000

 #define ILSW_2_1131_DISK			0x8000

 #define ILSW_2_2310_DRV_1			0x4000
 #define ILSW_2_2310_DRV_2			0x2000
 #define ILSW_2_2310_DRV_3			0x1000
 #define ILSW_2_2310_DRV_4			0x0800			/* can have 2310 or 2311 */

 #define ILSW_2_2311_DRV_1_DISK_1	0x4000
 #define ILSW_2_2311_DRV_1_DISK_2	0x2000
 #define ILSW_2_2311_DRV_1_DISK_3	0x1000
 #define ILSW_2_2311_DRV_1_DISK_4	0x0800

 #define ILSW_2_2311_DRV_1_DISK_5	0x0400
 #define ILSW_2_2311_DRV_2_DISK_1	0x0200
 #define ILSW_2_2311_DRV_2_DISK_2	0x0100
 #define ILSW_2_2311_DRV_2_DISK_3	0x0080
 #define ILSW_2_2311_DRV_2_DISK_4	0x0040
 #define ILSW_2_2311_DRV_2_DISK_5	0x0020

 #define ILSW_2_SAC_BIT_11			0x0010
 #define ILSW_2_SAC_BIT_12			0x0008
 #define ILSW_2_SAC_BIT_13			0x0004
 #define ILSW_2_SAC_BIT_14			0x0002
 #define ILSW_2_SAC_BIT_15			0x0001

 #define ILSW_3_1627_PLOTTER			0x8000
 #define ILSW_3_SAC_BIT_01			0x4000
 #define ILSW_3_SAC_BIT_02			0x2000
 #define ILSW_3_SAC_BIT_03			0x1000
 #define ILSW_3_2250_DISPLAY			0x0800
 #define ILSW_3_SYSTEM7				0x0800
 #define ILSW_3_SAC_BIT_05			0x0400
 #define ILSW_3_SAC_BIT_06			0x0200
 #define ILSW_3_SAC_BIT_07			0x0100
 #define ILSW_3_SAC_BIT_08			0x0080
 #define ILSW_3_SAC_BIT_09			0x0040
 #define ILSW_3_SAC_BIT_10			0x0020
 #define ILSW_3_SAC_BIT_11			0x0010
 #define ILSW_3_SAC_BIT_12			0x0008
 #define ILSW_3_SAC_BIT_13			0x0004
 #define ILSW_3_SAC_BIT_14			0x0002
 #define ILSW_3_SAC_BIT_15			0x0001

 #define ILSW_4_1134_TAPE			0x8000
 #define ILSW_4_1055_TAPE			0x8000
 #define ILSW_4_CONSOLE				0x4000
 #define ILSW_4_1442_CARD			0x2000
 #define ILSW_4_2501_CARD			0x1000
 #define ILSW_4_1403_PRINTER			0x0800
 #define ILSW_4_1231_MARK			0x0400
 #define ILSW_4_SAC_BIT_06			0x0200
 #define ILSW_4_SAC_BIT_07			0x0100
 #define ILSW_4_SAC_BIT_08			0x0080
 #define ILSW_4_SAC_BIT_09			0x0040
 #define ILSW_4_SAC_BIT_10			0x0020
 #define ILSW_4_SAC_BIT_11			0x0010
 #define ILSW_4_SAC_BIT_12			0x0008
 #define ILSW_4_SAC_BIT_13			0x0004
 #define ILSW_4_SAC_BIT_14			0x0002
 #define ILSW_4_SAC_BIT_15			0x0001

 #define ILSW_5_INT_RUN				0x8000
 #define ILSW_5_PROGRAM_STOP			0x8000
 #define ILSW_5_SAC_BIT_01			0x4000
 #define ILSW_5_SAC_BIT_02			0x2000
 #define ILSW_5_SAC_BIT_03			0x1000
 #define ILSW_5_SAC_BIT_04			0x0800
 #define ILSW_5_SAC_BIT_05			0x0400
 #define ILSW_5_SAC_BIT_06			0x0200
 #define ILSW_5_SAC_BIT_07			0x0100
 #define ILSW_5_SAC_BIT_08			0x0080
 #define ILSW_5_SAC_BIT_09			0x0040
 #define ILSW_5_SAC_BIT_10			0x0020
 #define ILSW_5_SAC_BIT_11			0x0010
 #define ILSW_5_SAC_BIT_12			0x0008
 #define ILSW_5_SAC_BIT_13			0x0004
 #define ILSW_5_SAC_BIT_14			0x0002
 #define ILSW_5_SAC_BIT_15			0x0001

 //* CPU  DSW bits

 #define CPU_DSW_PROGRAM_STOP			0x8000
 #define CPU_DSW_INT_RUN					0x4000

 /* prototypes: xio handlers */

 void xio_1131_console	(int32 addr, int32 func, int32 modify);				// console keyboard and printer
 void xio_1142_card		(int32 addr, int32 func, int32 modify);				// standard card reader/punch
 void xio_1134_papertape	(int32 addr, int32 func, int32 modify);				// paper tape reader/punch
 void xio_disk			(int32 addr, int32 func, int32 modify, int drv);	// internal CPU disk
 void xio_1627_plotter	(int32 addr, int32 func, int32 modify);				// XY plotter
 void xio_1132_printer	(int32 addr, int32 func, int32 modify);				// standard line printer
 void xio_1131_switches	(int32 addr, int32 func, int32 modify);				// console buttons & switches
 void xio_1231_optical	(int32 addr, int32 func, int32 modify);				// optical mark page reader
 void xio_2501_card		(int32 addr, int32 func, int32 modify);				// alternate high-speed card reader
 void xio_1131_synch		(int32 addr, int32 func, int32 modify);				// synchronous communications adapter
 void xio_system7		(int32 addr, int32 func, int32 modify);				// system/7 interprocessor IO link
 void xio_1403_printer	(int32 addr, int32 func, int32 modify);				// alternate high-speed printer
 void xio_2250_display	(int32 addr, int32 func, int32 modify);				// vector display processor
 void xio_error 			(char *msg);

 void   bail (char *msg);
 t_stat load_cr_boot (int drv);
 t_stat cr_boot (int unitno, DEVICE *dptr);
 void   calc_ints (void);							/* recalculate interrupt bitmask */
 void   trace_io (char *fmt, ...);					/* debugging printout */
 void   scp_panic (char *msg);						/* bail out of simulator */
 char  *upcase(char *str);
 void   break_simulation (t_stat reason);			/* let a device halt the simulation */
 char   hollerith_to_ascii (int16 hol);				/* for debugging use only */
 t_bool gdu_active (void);
 void   remark_cmd (char *remark);
 void   stuff_cmd (char *cmd);
 void   update_gui (t_bool force);
 void   sim_init (void);
 t_stat register_cmd (char *name, t_stat (*action)(), int arg, char *help);

 /* GUI interface routines */
 t_bool keyboard_is_locked (void);
 void   forms_check (int set);						/* device notification to console lamp display */
 void   print_check (int set);
 void   keyboard_selected (int select);
 void   disk_ready (int ready);
 void   disk_unlocked (int unlocked);
 void   gui_run(int running);
 char   *read_cmdline (char *ptr, int size, FILE *stream);

 #ifdef GUI_SUPPORT
 #  define GUI_BEGIN_CRITICAL_SECTION begin_critical_section();
 #  define GUI_END_CRITICAL_SECTION   end_critical_section();
    void begin_critical_section (void);
    void end_critical_section   (void);
 #else
 #  define GUI_BEGIN_CRITICAL_SECTION
 #  define GUI_END_CRITICAL_SECTION
 #endif
	/*
	* (C) Copyright 2002, Brian Knittel.
	* You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN
	* RISK basis, there is no warranty of fitness for any purpose, and the rest of the
	* usual yada-yada. Please keep this notice and the copyright in any distributions
	* or modifications.
	*
	* This is not a supported product, but I welcome bug reports and fixes.
	* Mail to sim@ibm1130.org
	*/

	/* ibm1130_defs.h: IBM-1130 simulator definitions
	*/

	#include "sim_defs.h" /* main SIMH defns (include path should include .., or make a copy) */
	#include <setjmp.h>
	#include <assert.h>

	#if defined(VMS)
	# include <unistd.h> /* to pick up 'unlink' */
	#endif

	#define MIN(a,b) (((a) <= (b)) ? (a) : (b))
	#define MAX(a,b) (((a) >= (b)) ? (a) : (b))

	#ifndef WIN32
	int strnicmp (char a, char b, int n);
	int strcmpi (char a, char b);
	#endif

	// #define GUI_SUPPORT // uncomment to compile the GUI extensions. It's defined in the windows ibm1130.mak makefile

	/* ------------------------------------------------------------------------ */
	/* Architectural constants */

	#define MAXMEMSIZE (32768) /* 32Kwords */
	#define INIMEMSIZE (16384) /* 16Kwords */
	#define MEMSIZE (cpu_unit.capac)

	#define UNIT_MSIZE (1 << (UNIT_V_UF + 7)) /* flag for memory size setting */

	#define ILL_ADR_FLAG 0x40000000 /* an impossible 1130 address */

	/* ------------------------------------------------------------------------ */
	/* Global state */

	extern int cgi; // TRUE if we are running as a CGI program
	extern int sim_gui;

	extern uint16 M[]; /* core memory, up to 32Kwords (note: don't even think about trying 64K) */
	extern uint16 ILSW[]; /* interrupt level status words */
	extern int32 IAR; /* instruction address register */
	extern int32 prev_IAR; /* instruction address register at start of current instruction */
	extern int32 SAR, SBR; /* storage address/buffer registers */
	extern int32 OP, TAG, CCC; /* instruction decoded pieces */
	extern int32 CES; /* console entry switches */
	extern int32 ACC, EXT; /* accumulator and extension */
	extern int32 RUNMODE; /* processor run/step mode */
	extern int32 ipl; /* current interrupt level (-1 = not handling irq) */
	extern int32 iplpending; /* interrupted IPL's */
	extern int32 tbit; /* trace flag (causes level 5 IRQ after each instr) */
	extern int32 V, C; /* condition codes */
	extern int32 wait_state; /* wait state (waiting for an IRQ) */
	extern int32 wait_lamp; /* alternate indicator to light the wait lamp on the GUI */
	extern int32 int_req; /* sum of interrupt request levels active */
	extern int32 int_lamps; /* accumulated version of int_req - gives lamp persistence */
	extern int32 int_mask; /* current active interrupt mask (ipl sensitive) */
	extern int32 mem_mask;
	extern int32 cpu_dsw; /* CPU device status word */
	extern int32 sim_int_char; /* interrupt character */
	extern t_bool running;
	extern t_bool power;
	extern t_bool cgi; /* TRUE if we are running as a CGI program */
	extern t_stat reason; /* CPU execution loop control */

	#define WAIT_OP 1 /* wait state causes: wait instruction, invalid instruction*/
	#define WAIT_INVALID_OP 2

	#define MODE_SS 3 /* RUNMODE values. SS and SMC are not implemented in this simulator */
	#define MODE_SMC 2
	#define MODE_INT_RUN 1
	#define MODE_RUN 0
	#define MODE_SI -1
	#define MODE_DISP -2
	#define MODE_LOAD -3

	/* ------------------------------------------------------------------------ */
	/* debugging */
	/* ------------------------------------------------------------------------ */

	#define ENABLE_DEBUG_PRINT
	#define ENABLE_DEBUG_TO_LOG

	#ifdef ENABLE_DEBUG_PRINT
	# define DEBUG_PRINT debug_print
	#else
	# ifdef ENABLE_DEBUG_TO_LOG
	# define DEBUG_PRINT trace_io
	# else
	# define DEBUG_PRINT if (0) debug_print
	# endif
	#endif

	void debug_print(char *fmt, ...);

	/* ------------------------------------------------------------------------ */
	/* memory IO routines */

	int32 ReadW (int32 a);
	void WriteW (int32 a, int32 d);

	/* ------------------------------------------------------------------------ */
	/* handy macros */

	#define CLRBIT(v,b) ((v) &= ~(b))
	#define SETBIT(v,b) ((v) \|= (b))
	#define BETWEEN(v,a,b) (((v) >= (a)) && ((v) <= (b)))

	/* ------------------------------------------------------------------------ */
	/* Simulator stop codes */

	#define STOP_WAIT 1 /* wait, no events */
	#define STOP_INVALID_INSTR 2 /* bad instruction */
	#define STOP_IBKPT 3 /* simulator breakpoint */
	#define STOP_INCOMPLETE 4 /* simulator coding not complete here */
	#define STOP_POWER_OFF 5 /* no power */
	#define STOP_DECK_BREAK 6 /* !BREAK in deck file */
	#define STOP_PHASE_BREAK 7 /* phase load break */
	#define STOP_CRASH 8 /* program has crashed badly */
	#define STOP_TIMED_OUT 9 /* simulation time limit exceeded */

	#define IORETURN(f,v) ((f)? (v): SCPE_OK) /* cond error return */

	#define INT_REQ_0 0x01 /* bits for interrupt levels (ipl, iplpending, int_req, int_mask) */
	#define INT_REQ_1 0x02
	#define INT_REQ_2 0x04
	#define INT_REQ_3 0x08
	#define INT_REQ_4 0x10
	#define INT_REQ_5 0x20

	#define XIO_UNUSED 0x00 /* XIO commands */
	#define XIO_WRITE 0x01
	#define XIO_READ 0x02
	#define XIO_SENSE_IRQ 0x03
	#define XIO_CONTROL 0x04
	#define XIO_INITW 0x05
	#define XIO_INITR 0x06
	#define XIO_SENSE_DEV 0x07

	#define XIO_FAILED 0x20 /* fake function to record error */

	/* ILSW bits - set by appropriate device whenever an interrupt is outstanding */

	#define ILSW_0_1442_CARD 0x8000 /* ILSW 0 is not really defined on the 1130 */

	#define ILSW_1_1132_PRINTER 0x8000 // had these backwards!
	#define ILSW_1_SCA 0x4000

	#define ILSW_2_1131_DISK 0x8000

	#define ILSW_2_2310_DRV_1 0x4000
	#define ILSW_2_2310_DRV_2 0x2000
	#define ILSW_2_2310_DRV_3 0x1000
	#define ILSW_2_2310_DRV_4 0x0800 /* can have 2310 or 2311 */

	#define ILSW_2_2311_DRV_1_DISK_1 0x4000
	#define ILSW_2_2311_DRV_1_DISK_2 0x2000
	#define ILSW_2_2311_DRV_1_DISK_3 0x1000
	#define ILSW_2_2311_DRV_1_DISK_4 0x0800

	#define ILSW_2_2311_DRV_1_DISK_5 0x0400
	#define ILSW_2_2311_DRV_2_DISK_1 0x0200
	#define ILSW_2_2311_DRV_2_DISK_2 0x0100
	#define ILSW_2_2311_DRV_2_DISK_3 0x0080
	#define ILSW_2_2311_DRV_2_DISK_4 0x0040
	#define ILSW_2_2311_DRV_2_DISK_5 0x0020

	#define ILSW_2_SAC_BIT_11 0x0010
	#define ILSW_2_SAC_BIT_12 0x0008
	#define ILSW_2_SAC_BIT_13 0x0004
	#define ILSW_2_SAC_BIT_14 0x0002
	#define ILSW_2_SAC_BIT_15 0x0001

	#define ILSW_3_1627_PLOTTER 0x8000
	#define ILSW_3_SAC_BIT_01 0x4000
	#define ILSW_3_SAC_BIT_02 0x2000
	#define ILSW_3_SAC_BIT_03 0x1000
	#define ILSW_3_2250_DISPLAY 0x0800
	#define ILSW_3_SYSTEM7 0x0800
	#define ILSW_3_SAC_BIT_05 0x0400
	#define ILSW_3_SAC_BIT_06 0x0200
	#define ILSW_3_SAC_BIT_07 0x0100
	#define ILSW_3_SAC_BIT_08 0x0080
	#define ILSW_3_SAC_BIT_09 0x0040
	#define ILSW_3_SAC_BIT_10 0x0020
	#define ILSW_3_SAC_BIT_11 0x0010
	#define ILSW_3_SAC_BIT_12 0x0008
	#define ILSW_3_SAC_BIT_13 0x0004
	#define ILSW_3_SAC_BIT_14 0x0002
	#define ILSW_3_SAC_BIT_15 0x0001

	#define ILSW_4_1134_TAPE 0x8000
	#define ILSW_4_1055_TAPE 0x8000
	#define ILSW_4_CONSOLE 0x4000
	#define ILSW_4_1442_CARD 0x2000
	#define ILSW_4_2501_CARD 0x1000
	#define ILSW_4_1403_PRINTER 0x0800
	#define ILSW_4_1231_MARK 0x0400
	#define ILSW_4_SAC_BIT_06 0x0200
	#define ILSW_4_SAC_BIT_07 0x0100
	#define ILSW_4_SAC_BIT_08 0x0080
	#define ILSW_4_SAC_BIT_09 0x0040
	#define ILSW_4_SAC_BIT_10 0x0020
	#define ILSW_4_SAC_BIT_11 0x0010
	#define ILSW_4_SAC_BIT_12 0x0008
	#define ILSW_4_SAC_BIT_13 0x0004
	#define ILSW_4_SAC_BIT_14 0x0002
	#define ILSW_4_SAC_BIT_15 0x0001

	#define ILSW_5_INT_RUN 0x8000
	#define ILSW_5_PROGRAM_STOP 0x8000
	#define ILSW_5_SAC_BIT_01 0x4000
	#define ILSW_5_SAC_BIT_02 0x2000
	#define ILSW_5_SAC_BIT_03 0x1000
	#define ILSW_5_SAC_BIT_04 0x0800
	#define ILSW_5_SAC_BIT_05 0x0400
	#define ILSW_5_SAC_BIT_06 0x0200
	#define ILSW_5_SAC_BIT_07 0x0100
	#define ILSW_5_SAC_BIT_08 0x0080
	#define ILSW_5_SAC_BIT_09 0x0040
	#define ILSW_5_SAC_BIT_10 0x0020
	#define ILSW_5_SAC_BIT_11 0x0010
	#define ILSW_5_SAC_BIT_12 0x0008
	#define ILSW_5_SAC_BIT_13 0x0004
	#define ILSW_5_SAC_BIT_14 0x0002
	#define ILSW_5_SAC_BIT_15 0x0001

	//* CPU DSW bits

	#define CPU_DSW_PROGRAM_STOP 0x8000
	#define CPU_DSW_INT_RUN 0x4000

	/* prototypes: xio handlers */

	void xio_1131_console (int32 addr, int32 func, int32 modify); // console keyboard and printer
	void xio_1142_card (int32 addr, int32 func, int32 modify); // standard card reader/punch
	void xio_1134_papertape (int32 addr, int32 func, int32 modify); // paper tape reader/punch
	void xio_disk (int32 addr, int32 func, int32 modify, int drv); // internal CPU disk
	void xio_1627_plotter (int32 addr, int32 func, int32 modify); // XY plotter
	void xio_1132_printer (int32 addr, int32 func, int32 modify); // standard line printer
	void xio_1131_switches (int32 addr, int32 func, int32 modify); // console buttons & switches
	void xio_1231_optical (int32 addr, int32 func, int32 modify); // optical mark page reader
	void xio_2501_card (int32 addr, int32 func, int32 modify); // alternate high-speed card reader
	void xio_1131_synch (int32 addr, int32 func, int32 modify); // synchronous communications adapter
	void xio_system7 (int32 addr, int32 func, int32 modify); // system/7 interprocessor IO link
	void xio_1403_printer (int32 addr, int32 func, int32 modify); // alternate high-speed printer
	void xio_2250_display (int32 addr, int32 func, int32 modify); // vector display processor
	void xio_error (char *msg);

	void bail (char *msg);
	t_stat load_cr_boot (int drv);
	t_stat cr_boot (int unitno, DEVICE *dptr);
	void calc_ints (void); /* recalculate interrupt bitmask */
	void trace_io (char fmt, ...); / debugging printout */
	void scp_panic (char msg); / bail out of simulator */
	char upcase(char str);
	void break_simulation (t_stat reason); /* let a device halt the simulation */
	char hollerith_to_ascii (int16 hol); /* for debugging use only */
	t_bool gdu_active (void);
	void remark_cmd (char *remark);
	void stuff_cmd (char *cmd);
	void update_gui (t_bool force);
	void sim_init (void);
	t_stat register_cmd (char name, t_stat (action)(), int arg, char *help);

	/* GUI interface routines */
	t_bool keyboard_is_locked (void);
	void forms_check (int set); /* device notification to console lamp display */
	void print_check (int set);
	void keyboard_selected (int select);
	void disk_ready (int ready);
	void disk_unlocked (int unlocked);
	void gui_run(int running);
	char read_cmdline (char ptr, int size, FILE *stream);

	#ifdef GUI_SUPPORT
	# define GUI_BEGIN_CRITICAL_SECTION begin_critical_section();
	# define GUI_END_CRITICAL_SECTION end_critical_section();
	void begin_critical_section (void);
	void end_critical_section (void);
	#else
	# define GUI_BEGIN_CRITICAL_SECTION
	# define GUI_END_CRITICAL_SECTION
	#endif