[simh.git] / Ibm1130 / ibm1130_defs.h

/*\r
 * (C) Copyright 2002, Brian Knittel.\r
 * You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN\r
 * RISK basis, there is no warranty of fitness for any purpose, and the rest of the\r
 * usual yada-yada. Please keep this notice and the copyright in any distributions\r
 * or modifications.\r
 *\r
 * This is not a supported product, but I welcome bug reports and fixes.\r
 * Mail to sim@ibm1130.org\r
 */\r
\r
/* ibm1130_defs.h: IBM-1130 simulator definitions\r
 */\r
\r
#include "sim_defs.h"						/* main SIMH defns (include path should include .., or make a copy) */\r
#include "sim_console.h"					/* more SIMH defns (include path should include .., or make a copy) */\r
\r
#include <setjmp.h>\r
#include <assert.h>\r
#include <stdlib.h>\r
\r
#if defined(VMS)\r
	#  include <unistd.h>  					/* to pick up 'unlink' */\r
#endif\r
\r
#define MIN(a,b)  (((a) <= (b)) ? (a) : (b))\r
#define MAX(a,b)  (((a) >= (b)) ? (a) : (b))\r
\r
#ifndef _WIN32\r
   int strnicmp (const char *a, const char *b, int n);\r
   int strcmpi  (const char *a, const char *b);\r
#endif\r
\r
/* #define GUI_SUPPORT		uncomment to compile the GUI extensions. It's defined in the windows ibm1130.mak makefile */\r
\r
/* ------------------------------------------------------------------------ */\r
/* Architectural constants */\r
\r
#define MAXMEMSIZE	(32768)						/* 32Kwords */\r
#define INIMEMSIZE 	(16384)						/* 16Kwords */\r
#define MEMSIZE		(cpu_unit.capac)\r
\r
#define ILL_ADR_FLAG	0x40000000				/* an impossible 1130 address */\r
\r
/* ------------------------------------------------------------------------ */\r
/* Global state */\r
\r
extern int cgi;								/* TRUE if we are running as a CGI program */\r
extern int cgiwritable;						/* TRUE if we can write the disk images back to the image file in CGI mode */\r
extern int sim_gui;\r
\r
extern uint16 M[];							/* core memory, up to 32Kwords (note: don't even think about trying 64K) */\r
extern uint16 ILSW[];						/* interrupt level status words */\r
extern int32  IAR;							/* instruction address register */\r
extern int32  prev_IAR;						/* instruction address register at start of current instruction */\r
extern int32  SAR, SBR;						/* storage address/buffer registers */\r
extern int32  OP, TAG, CCC;					/* instruction decoded pieces */\r
extern int32  CES;							/* console entry switches */\r
extern int32  ACC, EXT;						/* accumulator and extension */\r
extern int32  ARF;							/* arithmetic factor register, a nonaddressable internal CPU register */\r
extern int32  RUNMODE;						/* processor run/step mode */\r
extern int32  ipl;							/* current interrupt level (-1 = not handling irq) */\r
extern int32  iplpending;					/* interrupted IPL's */\r
extern int32  tbit;							/* trace flag (causes level 5 IRQ after each instr) */\r
extern int32  V, C;							/* condition codes */\r
extern int32  wait_state;					/* wait state (waiting for an IRQ) */\r
extern int32  wait_lamp;					/* alternate indicator to light the wait lamp on the GUI */\r
extern int32  int_req;						/* sum of interrupt request levels active */\r
extern int32  int_lamps;					/* accumulated version of int_req - gives lamp persistence */\r
extern int32  int_mask;						/* current active interrupt mask (ipl sensitive) */\r
extern int32  mem_mask;\r
extern int32  cpu_dsw;						/* CPU device status word */\r
extern int32  sim_int_char;					/* interrupt character */\r
extern int32  con_dsw;						/* has program stop and int run bits */\r
extern t_bool running;\r
extern t_bool power;\r
extern t_bool cgi;							/* TRUE if we are running as a CGI program */\r
extern t_bool cgiwritable;					/* TRUE if we can write to the disk image file in CGI mode */\r
extern t_stat reason;						/* CPU execution loop control */\r
\r
#define WAIT_OP			 1		/* wait state causes: wait instruction, invalid instruction*/\r
#define WAIT_INVALID_OP  2\r
\r
#define MODE_SS				3				/* RUNMODE values. SS and SMC are not implemented in this simulator */\r
#define MODE_SMC			2\r
#define MODE_INT_RUN		1\r
#define MODE_RUN			0\r
#define MODE_SI				-1\r
#define MODE_DISP			-2\r
#define MODE_LOAD			-3\r
\r
/* ------------------------------------------------------------------------ */\r
/* debugging																*/\r
/* ------------------------------------------------------------------------ */\r
\r
#define ENABLE_DEBUG_PRINT\r
#define ENABLE_DEBUG_TO_LOG\r
\r
#ifdef ENABLE_DEBUG_PRINT\r
#  define DEBUG_PRINT debug_print\r
#else\r
#  ifdef ENABLE_DEBUG_TO_LOG\r
#      define DEBUG_PRINT trace_io\r
#  else\r
#      define DEBUG_PRINT if (0) debug_print\r
#  endif\r
#endif\r
\r
void debug_print(char *fmt, ...);\r
\r
/* ------------------------------------------------------------------------ */\r
/* memory IO routines */\r
\r
int32 ReadW  (int32 a); \r
void  WriteW (int32 a, int32 d);\r
\r
/* ------------------------------------------------------------------------ */\r
/* handy macros */\r
\r
#define CLRBIT(v,b)    ((v) &= ~(b))\r
#define SETBIT(v,b)    ((v) |= (b))\r
#define BETWEEN(v,a,b) (((v) >= (a)) && ((v) <= (b)))\r
\r
/* ------------------------------------------------------------------------ */\r
/* Simulator stop codes */\r
\r
#define STOP_WAIT			1				/* wait, no events */\r
#define STOP_INVALID_INSTR	2				/* bad instruction */\r
#define STOP_IBKPT			3				/* simulator breakpoint */\r
#define STOP_INCOMPLETE		4				/* simulator coding not complete here */\r
#define STOP_POWER_OFF		5				/* no power */\r
#define STOP_DECK_BREAK		6				/* !BREAK in deck file */\r
#define STOP_PHASE_BREAK	7				/* phase load break */\r
#define STOP_CRASH			8				/* program has crashed badly */\r
#define STOP_TIMED_OUT		9				/* simulation time limit exceeded */\r
#define STOP_IMMEDIATE		10				/* simulator stop key pressed (immediate stop) */\r
#define STOP_BREAK			11				/* simulator break key pressed */\r
#define STOP_STEP			12				/* step count expired */\r
#define STOP_OTHER			13				/* other reason, probably error returned by sim_process_event() */\r
\r
#define IORETURN(f,v)	((f)? (v): SCPE_OK)	/* cond error return */\r
\r
#define INT_REQ_5		0x01				/* bits for interrupt levels (ipl, iplpending, int_req, int_mask) */\r
#define INT_REQ_4		0x02\r
#define INT_REQ_3		0x04\r
#define INT_REQ_2		0x08\r
#define INT_REQ_1		0x10\r
#define INT_REQ_0		0x20\r
\r
#define XIO_UNUSED		0x00				/* XIO commands */\r
#define XIO_WRITE		0x01\r
#define XIO_READ		0x02\r
#define XIO_SENSE_IRQ	0x03\r
#define XIO_CONTROL		0x04\r
#define XIO_INITW		0x05\r
#define XIO_INITR		0x06\r
#define XIO_SENSE_DEV	0x07\r
\r
#define XIO_FAILED		0x20				/* fake function to record error */\r
\r
/* ILSW bits - set by appropriate device whenever an interrupt is outstanding */\r
\r
#define ILSW_0_1442_CARD			0x8000			/* ILSW 0 is not really defined on the 1130 */\r
\r
#define ILSW_1_1132_PRINTER			0x8000			/* had these backwards! */\r
#define ILSW_1_SCA					0x4000\r
\r
#define ILSW_2_1131_DISK			0x8000\r
\r
#define ILSW_2_2310_DRV_1			0x4000\r
#define ILSW_2_2310_DRV_2			0x2000\r
#define ILSW_2_2310_DRV_3			0x1000\r
#define ILSW_2_2310_DRV_4			0x0800			/* can have 2310 or 2311 */\r
\r
#define ILSW_2_2311_DRV_1_DISK_1	0x4000\r
#define ILSW_2_2311_DRV_1_DISK_2	0x2000\r
#define ILSW_2_2311_DRV_1_DISK_3	0x1000\r
#define ILSW_2_2311_DRV_1_DISK_4	0x0800\r
\r
#define ILSW_2_2311_DRV_1_DISK_5	0x0400\r
#define ILSW_2_2311_DRV_2_DISK_1	0x0200\r
#define ILSW_2_2311_DRV_2_DISK_2	0x0100\r
#define ILSW_2_2311_DRV_2_DISK_3	0x0080\r
#define ILSW_2_2311_DRV_2_DISK_4	0x0040\r
#define ILSW_2_2311_DRV_2_DISK_5	0x0020\r
\r
#define ILSW_2_SAC_BIT_11			0x0010\r
#define ILSW_2_SAC_BIT_12			0x0008\r
#define ILSW_2_SAC_BIT_13			0x0004\r
#define ILSW_2_SAC_BIT_14			0x0002\r
#define ILSW_2_SAC_BIT_15			0x0001\r
\r
#define ILSW_3_1627_PLOTTER			0x8000\r
#define ILSW_3_SAC_BIT_01			0x4000\r
#define ILSW_3_SAC_BIT_02			0x2000\r
#define ILSW_3_SAC_BIT_03			0x1000\r
#define ILSW_3_2250_DISPLAY			0x0800\r
#define ILSW_3_SYSTEM7				0x0800\r
#define ILSW_3_SAC_BIT_05			0x0400\r
#define ILSW_3_SAC_BIT_06			0x0200\r
#define ILSW_3_SAC_BIT_07			0x0100\r
#define ILSW_3_SAC_BIT_08			0x0080\r
#define ILSW_3_SAC_BIT_09			0x0040\r
#define ILSW_3_SAC_BIT_10			0x0020\r
#define ILSW_3_SAC_BIT_11			0x0010\r
#define ILSW_3_SAC_BIT_12			0x0008\r
#define ILSW_3_SAC_BIT_13			0x0004\r
#define ILSW_3_SAC_BIT_14			0x0002\r
#define ILSW_3_SAC_BIT_15			0x0001\r
\r
#define ILSW_4_1134_TAPE			0x8000\r
#define ILSW_4_1055_TAPE			0x8000\r
#define ILSW_4_CONSOLE				0x4000\r
#define ILSW_4_1442_CARD			0x2000\r
#define ILSW_4_2501_CARD			0x1000\r
#define ILSW_4_1403_PRINTER			0x0800\r
#define ILSW_4_1231_MARK			0x0400\r
#define ILSW_4_SAC_BIT_06			0x0200\r
#define ILSW_4_SAC_BIT_07			0x0100\r
#define ILSW_4_SAC_BIT_08			0x0080\r
#define ILSW_4_SAC_BIT_09			0x0040\r
#define ILSW_4_SAC_BIT_10			0x0020\r
#define ILSW_4_SAC_BIT_11			0x0010\r
#define ILSW_4_T2741_TERMINAL		0x0010	/* APL\1130 nonstandard serial interface uses this bit */\r
#define ILSW_4_SAC_BIT_12			0x0008\r
#define ILSW_4_SAC_BIT_13			0x0004\r
#define ILSW_4_SAC_BIT_14			0x0002\r
#define ILSW_4_SAC_BIT_15			0x0001\r
\r
#define ILSW_5_INT_RUN_PROGRAM_STOP 0x8000	/* this replaces both ILSW_5_INT_RUN and ILSW_5_PROGRAM_STOP */\r
#define ILSW_5_SAC_BIT_01			0x4000\r
#define ILSW_5_SAC_BIT_02			0x2000\r
#define ILSW_5_SAC_BIT_03			0x1000\r
#define ILSW_5_SAC_BIT_04			0x0800\r
#define ILSW_5_SAC_BIT_05			0x0400\r
#define ILSW_5_SAC_BIT_06			0x0200\r
#define ILSW_5_SAC_BIT_07			0x0100\r
#define ILSW_5_SAC_BIT_08			0x0080\r
#define ILSW_5_SAC_BIT_09			0x0040\r
#define ILSW_5_SAC_BIT_10			0x0020\r
#define ILSW_5_SAC_BIT_11			0x0010\r
#define ILSW_5_SAC_BIT_12			0x0008\r
#define ILSW_5_SAC_BIT_13			0x0004\r
#define ILSW_5_SAC_BIT_14			0x0002\r
#define ILSW_5_SAC_BIT_15			0x0001\r
\r
/* CPU  DSW bits */\r
\r
#define CPU_DSW_PROGRAM_STOP			0x8000\r
#define CPU_DSW_INT_RUN					0x4000\r
\r
/* prototypes: xio handlers */\r
\r
void xio_1131_console	(int32 addr, int32 func, int32 modify);				/* console keyboard and printer */\r
void xio_1142_card		(int32 addr, int32 func, int32 modify);				/* standard card reader/punch */\r
void xio_1134_papertape	(int32 addr, int32 func, int32 modify);				/* paper tape reader/punch */\r
void xio_disk			(int32 addr, int32 func, int32 modify, int drv);	/* internal CPU disk */\r
void xio_1627_plotter	(int32 addr, int32 func, int32 modify);				/* XY plotter */\r
void xio_1132_printer	(int32 addr, int32 func, int32 modify);				/* standard line printer */\r
void xio_1131_switches	(int32 addr, int32 func, int32 modify);				/* console buttons & switches */\r
void xio_1231_optical	(int32 addr, int32 func, int32 modify);				/* optical mark page reader */\r
void xio_2501_card		(int32 addr, int32 func, int32 modify);				/* alternate high-speed card reader */\r
void xio_sca			(int32 addr, int32 func, int32 modify);				/* synchronous communications adapter */\r
void xio_system7		(int32 addr, int32 func, int32 modify);				/* system/7 interprocessor IO link */\r
void xio_1403_printer	(int32 addr, int32 func, int32 modify);				/* alternate high-speed printer */\r
void xio_2250_display	(int32 addr, int32 func, int32 modify);				/* vector display processor */\r
void xio_t2741_terminal (int32 addr, int32 func, int32 modify);				/* IO selectric via nonstandard serial interface for APL */\r
void xio_error 			(char *msg);\r
\r
void   bail (char *msg);\r
t_stat load_cr_boot (int drv, int switches);\r
t_stat cr_boot (int unitno, DEVICE *dptr);\r
t_stat cr_rewind (void);\r
t_stat cr_detach (UNIT *uptr);\r
void   calc_ints (void);							/* recalculate interrupt bitmask */\r
void   trace_io (char *fmt, ...);					/* debugging printout */\r
void   trace_both (char *fmt, ...);					/* debugging printout */\r
t_stat register_cmd (char *name, t_stat (*action)(int32 flag, char *ptr), int arg, char *help);\r
void   scp_panic (char *msg);						/* bail out of simulator */\r
char  *upcase(char *str);\r
void   break_simulation (t_stat reason);			/* let a device halt the simulation */\r
char   hollerith_to_ascii (uint16 hol);				/* for debugging use only */\r
t_bool gdu_active (void);\r
void   remark_cmd (char *remark);\r
void   stuff_cmd (char *cmd);\r
t_bool stuff_and_wait (char *cmd, int timeout, int delay);\r
void   update_gui (t_bool force);\r
void   sim_init (void);\r
t_stat register_cmd (char *name, t_stat (*action)(int32 flag, char *ptr), int arg, char *help);\r
t_stat basic_attach (UNIT *uptr, char *cptr);\r
char * quotefix (char * cptr);\r
\r
/* GUI interface routines */\r
t_bool keyboard_is_busy (void);\r
void   forms_check (int set);						/* device notification to console lamp display */\r
void   print_check (int set);\r
void   keyboard_selected (int select);				\r
void   disk_ready (int ready);\r
void   disk_unlocked (int unlocked);\r
void   gui_run(int running);\r
char   *read_cmdline (char *ptr, int size, FILE *stream);\r
\r
#ifdef GUI_SUPPORT\r
#  define GUI_BEGIN_CRITICAL_SECTION begin_critical_section();\r
#  define GUI_END_CRITICAL_SECTION   end_critical_section();\r
   void begin_critical_section (void);\r
   void end_critical_section   (void);\r
#else\r
#  define GUI_BEGIN_CRITICAL_SECTION\r
#  define GUI_END_CRITICAL_SECTION\r
#endif\r
Commit	Line	Data
196ba1fc PH	1	/*\r
	2	* (C) Copyright 2002, Brian Knittel.\r
	3	* You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN\r
	4	* RISK basis, there is no warranty of fitness for any purpose, and the rest of the\r
	5	* usual yada-yada. Please keep this notice and the copyright in any distributions\r
	6	* or modifications.\r
	7	*\r
	8	* This is not a supported product, but I welcome bug reports and fixes.\r
	9	* Mail to sim@ibm1130.org\r
	10	*/\r
	11	\r
	12	/* ibm1130_defs.h: IBM-1130 simulator definitions\r
	13	*/\r
	14	\r
	15	#include "sim_defs.h" /* main SIMH defns (include path should include .., or make a copy) */\r
	16	#include "sim_console.h" /* more SIMH defns (include path should include .., or make a copy) */\r
	17	\r
	18	#include <setjmp.h>\r
	19	#include <assert.h>\r
	20	#include <stdlib.h>\r
	21	\r
	22	#if defined(VMS)\r
	23	# include <unistd.h> /* to pick up 'unlink' */\r
	24	#endif\r
	25	\r
	26	#define MIN(a,b) (((a) <= (b)) ? (a) : (b))\r
	27	#define MAX(a,b) (((a) >= (b)) ? (a) : (b))\r
	28	\r
	29	#ifndef _WIN32\r
	30	int strnicmp (const char a, const char b, int n);\r
	31	int strcmpi (const char a, const char b);\r
	32	#endif\r
	33	\r
	34	/* #define GUI_SUPPORT uncomment to compile the GUI extensions. It's defined in the windows ibm1130.mak makefile */\r
	35	\r
	36	/* ------------------------------------------------------------------------ */\r
	37	/* Architectural constants */\r
	38	\r
	39	#define MAXMEMSIZE (32768) /* 32Kwords */\r
	40	#define INIMEMSIZE (16384) /* 16Kwords */\r
	41	#define MEMSIZE (cpu_unit.capac)\r
	42	\r
	43	#define ILL_ADR_FLAG 0x40000000 /* an impossible 1130 address */\r
	44	\r
	45	/* ------------------------------------------------------------------------ */\r
	46	/* Global state */\r
	47	\r
	48	extern int cgi; /* TRUE if we are running as a CGI program */\r
	49	extern int cgiwritable; /* TRUE if we can write the disk images back to the image file in CGI mode */\r
	50	extern int sim_gui;\r
	51	\r
	52	extern uint16 M[]; /* core memory, up to 32Kwords (note: don't even think about trying 64K) */\r
	53	extern uint16 ILSW[]; /* interrupt level status words */\r
	54	extern int32 IAR; /* instruction address register */\r
	55	extern int32 prev_IAR; /* instruction address register at start of current instruction */\r
	56	extern int32 SAR, SBR; /* storage address/buffer registers */\r
	57	extern int32 OP, TAG, CCC; /* instruction decoded pieces */\r
	58	extern int32 CES; /* console entry switches */\r
	59	extern int32 ACC, EXT; /* accumulator and extension */\r
	60	extern int32 ARF; /* arithmetic factor register, a nonaddressable internal CPU register */\r
	61	extern int32 RUNMODE; /* processor run/step mode */\r
	62	extern int32 ipl; /* current interrupt level (-1 = not handling irq) */\r
	63	extern int32 iplpending; /* interrupted IPL's */\r
	64	extern int32 tbit; /* trace flag (causes level 5 IRQ after each instr) */\r
65	extern int32 V, C; /* condition codes */\r
66	extern int32 wait_state; /* wait state (waiting for an IRQ) */\r
67	extern int32 wait_lamp; /* alternate indicator to light the wait lamp on the GUI */\r
68	extern int32 int_req; /* sum of interrupt request levels active */\r
69	extern int32 int_lamps; /* accumulated version of int_req - gives lamp persistence */\r
70	extern int32 int_mask; /* current active interrupt mask (ipl sensitive) */\r
71	extern int32 mem_mask;\r
72	extern int32 cpu_dsw; /* CPU device status word */\r
73	extern int32 sim_int_char; /* interrupt character */\r
74	extern int32 con_dsw; /* has program stop and int run bits */\r
75	extern t_bool running;\r
76	extern t_bool power;\r
77	extern t_bool cgi; /* TRUE if we are running as a CGI program */\r
78	extern t_bool cgiwritable; /* TRUE if we can write to the disk image file in CGI mode */\r
79	extern t_stat reason; /* CPU execution loop control */\r
80	\r
81	#define WAIT_OP 1 /* wait state causes: wait instruction, invalid instruction*/\r
82	#define WAIT_INVALID_OP 2\r
83	\r
84	#define MODE_SS 3 /* RUNMODE values. SS and SMC are not implemented in this simulator */\r
85	#define MODE_SMC 2\r
86	#define MODE_INT_RUN 1\r
87	#define MODE_RUN 0\r
88	#define MODE_SI -1\r
89	#define MODE_DISP -2\r
90	#define MODE_LOAD -3\r
91	\r
92	/* ------------------------------------------------------------------------ */\r
93	/* debugging */\r
94	/* ------------------------------------------------------------------------ */\r
95	\r
96	#define ENABLE_DEBUG_PRINT\r
97	#define ENABLE_DEBUG_TO_LOG\r
98	\r
99	#ifdef ENABLE_DEBUG_PRINT\r
100	# define DEBUG_PRINT debug_print\r
101	#else\r
102	# ifdef ENABLE_DEBUG_TO_LOG\r
103	# define DEBUG_PRINT trace_io\r
104	# else\r
105	# define DEBUG_PRINT if (0) debug_print\r
106	# endif\r
107	#endif\r
108	\r
109	void debug_print(char *fmt, ...);\r
110	\r
111	/* ------------------------------------------------------------------------ */\r
112	/* memory IO routines */\r
113	\r
114	int32 ReadW (int32 a); \r
115	void WriteW (int32 a, int32 d);\r
116	\r
117	/* ------------------------------------------------------------------------ */\r
118	/* handy macros */\r
119	\r
120	#define CLRBIT(v,b) ((v) &= ~(b))\r
121	#define SETBIT(v,b) ((v) \|= (b))\r
122	#define BETWEEN(v,a,b) (((v) >= (a)) && ((v) <= (b)))\r
123	\r
124	/* ------------------------------------------------------------------------ */\r
125	/* Simulator stop codes */\r
126	\r
127	#define STOP_WAIT 1 /* wait, no events */\r
128	#define STOP_INVALID_INSTR 2 /* bad instruction */\r
129	#define STOP_IBKPT 3 /* simulator breakpoint */\r
130	#define STOP_INCOMPLETE 4 /* simulator coding not complete here */\r
131	#define STOP_POWER_OFF 5 /* no power */\r
132	#define STOP_DECK_BREAK 6 /* !BREAK in deck file */\r
133	#define STOP_PHASE_BREAK 7 /* phase load break */\r
134	#define STOP_CRASH 8 /* program has crashed badly */\r
135	#define STOP_TIMED_OUT 9 /* simulation time limit exceeded */\r
136	#define STOP_IMMEDIATE 10 /* simulator stop key pressed (immediate stop) */\r
137	#define STOP_BREAK 11 /* simulator break key pressed */\r
138	#define STOP_STEP 12 /* step count expired */\r
139	#define STOP_OTHER 13 /* other reason, probably error returned by sim_process_event() */\r
140	\r
141	#define IORETURN(f,v) ((f)? (v): SCPE_OK) /* cond error return */\r
142	\r
143	#define INT_REQ_5 0x01 /* bits for interrupt levels (ipl, iplpending, int_req, int_mask) */\r
144	#define INT_REQ_4 0x02\r
145	#define INT_REQ_3 0x04\r
146	#define INT_REQ_2 0x08\r
147	#define INT_REQ_1 0x10\r
148	#define INT_REQ_0 0x20\r
149	\r
150	#define XIO_UNUSED 0x00 /* XIO commands */\r
151	#define XIO_WRITE 0x01\r
152	#define XIO_READ 0x02\r
153	#define XIO_SENSE_IRQ 0x03\r
154	#define XIO_CONTROL 0x04\r
155	#define XIO_INITW 0x05\r
156	#define XIO_INITR 0x06\r
157	#define XIO_SENSE_DEV 0x07\r
158	\r
159	#define XIO_FAILED 0x20 /* fake function to record error */\r
160	\r
161	/* ILSW bits - set by appropriate device whenever an interrupt is outstanding */\r
162	\r
163	#define ILSW_0_1442_CARD 0x8000 /* ILSW 0 is not really defined on the 1130 */\r
164	\r
165	#define ILSW_1_1132_PRINTER 0x8000 /* had these backwards! */\r
166	#define ILSW_1_SCA 0x4000\r
167	\r
168	#define ILSW_2_1131_DISK 0x8000\r
169	\r
170	#define ILSW_2_2310_DRV_1 0x4000\r
171	#define ILSW_2_2310_DRV_2 0x2000\r
172	#define ILSW_2_2310_DRV_3 0x1000\r
173	#define ILSW_2_2310_DRV_4 0x0800 /* can have 2310 or 2311 */\r
174	\r
175	#define ILSW_2_2311_DRV_1_DISK_1 0x4000\r
176	#define ILSW_2_2311_DRV_1_DISK_2 0x2000\r
177	#define ILSW_2_2311_DRV_1_DISK_3 0x1000\r
178	#define ILSW_2_2311_DRV_1_DISK_4 0x0800\r
179	\r
180	#define ILSW_2_2311_DRV_1_DISK_5 0x0400\r
181	#define ILSW_2_2311_DRV_2_DISK_1 0x0200\r
182	#define ILSW_2_2311_DRV_2_DISK_2 0x0100\r
183	#define ILSW_2_2311_DRV_2_DISK_3 0x0080\r
184	#define ILSW_2_2311_DRV_2_DISK_4 0x0040\r
185	#define ILSW_2_2311_DRV_2_DISK_5 0x0020\r
186	\r
187	#define ILSW_2_SAC_BIT_11 0x0010\r
188	#define ILSW_2_SAC_BIT_12 0x0008\r
189	#define ILSW_2_SAC_BIT_13 0x0004\r
190	#define ILSW_2_SAC_BIT_14 0x0002\r
191	#define ILSW_2_SAC_BIT_15 0x0001\r
192	\r
193	#define ILSW_3_1627_PLOTTER 0x8000\r
194	#define ILSW_3_SAC_BIT_01 0x4000\r
195	#define ILSW_3_SAC_BIT_02 0x2000\r
196	#define ILSW_3_SAC_BIT_03 0x1000\r
197	#define ILSW_3_2250_DISPLAY 0x0800\r
198	#define ILSW_3_SYSTEM7 0x0800\r
199	#define ILSW_3_SAC_BIT_05 0x0400\r
200	#define ILSW_3_SAC_BIT_06 0x0200\r
201	#define ILSW_3_SAC_BIT_07 0x0100\r
202	#define ILSW_3_SAC_BIT_08 0x0080\r
203	#define ILSW_3_SAC_BIT_09 0x0040\r
204	#define ILSW_3_SAC_BIT_10 0x0020\r
205	#define ILSW_3_SAC_BIT_11 0x0010\r
206	#define ILSW_3_SAC_BIT_12 0x0008\r
207	#define ILSW_3_SAC_BIT_13 0x0004\r
208	#define ILSW_3_SAC_BIT_14 0x0002\r
209	#define ILSW_3_SAC_BIT_15 0x0001\r
210	\r
211	#define ILSW_4_1134_TAPE 0x8000\r
212	#define ILSW_4_1055_TAPE 0x8000\r
213	#define ILSW_4_CONSOLE 0x4000\r
214	#define ILSW_4_1442_CARD 0x2000\r
215	#define ILSW_4_2501_CARD 0x1000\r
216	#define ILSW_4_1403_PRINTER 0x0800\r
217	#define ILSW_4_1231_MARK 0x0400\r
218	#define ILSW_4_SAC_BIT_06 0x0200\r
219	#define ILSW_4_SAC_BIT_07 0x0100\r
220	#define ILSW_4_SAC_BIT_08 0x0080\r
221	#define ILSW_4_SAC_BIT_09 0x0040\r
222	#define ILSW_4_SAC_BIT_10 0x0020\r
223	#define ILSW_4_SAC_BIT_11 0x0010\r
224	#define ILSW_4_T2741_TERMINAL 0x0010 /* APL\1130 nonstandard serial interface uses this bit */\r
225	#define ILSW_4_SAC_BIT_12 0x0008\r
226	#define ILSW_4_SAC_BIT_13 0x0004\r
227	#define ILSW_4_SAC_BIT_14 0x0002\r
228	#define ILSW_4_SAC_BIT_15 0x0001\r
229	\r
230	#define ILSW_5_INT_RUN_PROGRAM_STOP 0x8000 /* this replaces both ILSW_5_INT_RUN and ILSW_5_PROGRAM_STOP */\r
231	#define ILSW_5_SAC_BIT_01 0x4000\r
232	#define ILSW_5_SAC_BIT_02 0x2000\r
233	#define ILSW_5_SAC_BIT_03 0x1000\r
234	#define ILSW_5_SAC_BIT_04 0x0800\r
235	#define ILSW_5_SAC_BIT_05 0x0400\r
236	#define ILSW_5_SAC_BIT_06 0x0200\r
237	#define ILSW_5_SAC_BIT_07 0x0100\r
238	#define ILSW_5_SAC_BIT_08 0x0080\r
239	#define ILSW_5_SAC_BIT_09 0x0040\r
240	#define ILSW_5_SAC_BIT_10 0x0020\r
241	#define ILSW_5_SAC_BIT_11 0x0010\r
242	#define ILSW_5_SAC_BIT_12 0x0008\r
243	#define ILSW_5_SAC_BIT_13 0x0004\r
244	#define ILSW_5_SAC_BIT_14 0x0002\r
245	#define ILSW_5_SAC_BIT_15 0x0001\r
246	\r
247	/* CPU DSW bits */\r
248	\r
249	#define CPU_DSW_PROGRAM_STOP 0x8000\r
250	#define CPU_DSW_INT_RUN 0x4000\r
251	\r
252	/* prototypes: xio handlers */\r
253	\r
254	void xio_1131_console (int32 addr, int32 func, int32 modify); /* console keyboard and printer */\r
255	void xio_1142_card (int32 addr, int32 func, int32 modify); /* standard card reader/punch */\r
256	void xio_1134_papertape (int32 addr, int32 func, int32 modify); /* paper tape reader/punch */\r
257	void xio_disk (int32 addr, int32 func, int32 modify, int drv); /* internal CPU disk */\r
258	void xio_1627_plotter (int32 addr, int32 func, int32 modify); /* XY plotter */\r
259	void xio_1132_printer (int32 addr, int32 func, int32 modify); /* standard line printer */\r
260	void xio_1131_switches (int32 addr, int32 func, int32 modify); /* console buttons & switches */\r
261	void xio_1231_optical (int32 addr, int32 func, int32 modify); /* optical mark page reader */\r
262	void xio_2501_card (int32 addr, int32 func, int32 modify); /* alternate high-speed card reader */\r
263	void xio_sca (int32 addr, int32 func, int32 modify); /* synchronous communications adapter */\r
264	void xio_system7 (int32 addr, int32 func, int32 modify); /* system/7 interprocessor IO link */\r
265	void xio_1403_printer (int32 addr, int32 func, int32 modify); /* alternate high-speed printer */\r
266	void xio_2250_display (int32 addr, int32 func, int32 modify); /* vector display processor */\r
267	void xio_t2741_terminal (int32 addr, int32 func, int32 modify); /* IO selectric via nonstandard serial interface for APL */\r
268	void xio_error (char *msg);\r
269	\r
270	void bail (char *msg);\r
271	t_stat load_cr_boot (int drv, int switches);\r
272	t_stat cr_boot (int unitno, DEVICE *dptr);\r
273	t_stat cr_rewind (void);\r
274	t_stat cr_detach (UNIT *uptr);\r
275	void calc_ints (void); /* recalculate interrupt bitmask */\r
276	void trace_io (char fmt, ...); / debugging printout */\r
277	void trace_both (char fmt, ...); / debugging printout */\r
278	t_stat register_cmd (char name, t_stat (action)(int32 flag, char ptr), int arg, char help);\r
279	void scp_panic (char msg); / bail out of simulator */\r
280	char upcase(char str);\r
281	void break_simulation (t_stat reason); /* let a device halt the simulation */\r
282	char hollerith_to_ascii (uint16 hol); /* for debugging use only */\r
283	t_bool gdu_active (void);\r
284	void remark_cmd (char *remark);\r
285	void stuff_cmd (char *cmd);\r
286	t_bool stuff_and_wait (char *cmd, int timeout, int delay);\r
287	void update_gui (t_bool force);\r
288	void sim_init (void);\r
289	t_stat register_cmd (char name, t_stat (action)(int32 flag, char ptr), int arg, char help);\r
290	t_stat basic_attach (UNIT uptr, char cptr);\r
291	char * quotefix (char * cptr);\r
292	\r
293	/* GUI interface routines */\r
294	t_bool keyboard_is_busy (void);\r
295	void forms_check (int set); /* device notification to console lamp display */\r
296	void print_check (int set);\r
297	void keyboard_selected (int select); \r
298	void disk_ready (int ready);\r
299	void disk_unlocked (int unlocked);\r
300	void gui_run(int running);\r
301	char read_cmdline (char ptr, int size, FILE *stream);\r
302	\r
303	#ifdef GUI_SUPPORT\r
304	# define GUI_BEGIN_CRITICAL_SECTION begin_critical_section();\r
305	# define GUI_END_CRITICAL_SECTION end_critical_section();\r
306	void begin_critical_section (void);\r
307	void end_critical_section (void);\r
308	#else\r
309	# define GUI_BEGIN_CRITICAL_SECTION\r
310	# define GUI_END_CRITICAL_SECTION\r
311	#endif\r