folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

IMLAC: Add MIT bell device.

Browse source 
A hardware device particular to MIT with some kind of bell sound.
This commit is contained in:
Lars Brinkhoff 2020-06-15 12:44:41 +02:00
parent 09ae6da2cc
commit 629f138fea
5 changed files with 73 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Visual Studio Projects/imlac.vcproj
View file

@ -199,6 +199,10 @@
RelativePath="..\display\imlac.c"
>
</File>
<File
RelativePath="..\imlac\imlac_bel.c"
>
</File>
<File
RelativePath="..\imlac\imlac_cpu.c"
>

66
imlac/imlac_bel.c Normal file
View file

@ -0,0 +1,66 @@
/* imlac_bel.c: MIT bell device.
Copyright (c) 2020, Lars Brinkhoff
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
LARS BRINKHOFF 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 Lars Brinkhoff shall not be
used in advertising or otherwise to promote the sale, use or other dealings
in this Software without prior written authorization from Lars Brinkhoff.
*/
#include "imlac_defs.h"
#include "sim_video.h"
/* Debug */
#define DBG 0001
/* Function declaration. */
static uint16 bel_iot (uint16, uint16);
static IMDEV bel_imdev = {
1,
{ { 0071, bel_iot, { "BEL" } } }
};
static DEBTAB bel_deb[] = {
{ "DBG", DBG },
{ NULL, 0 }
};
DEVICE bel_dev = {
"BEL", NULL, NULL, NULL,
0, 8, 16, 1, 8, 16,
NULL, NULL, NULL,
NULL, NULL, NULL,
&bel_imdev, DEV_DISABLE | DEV_DEBUG | DEV_DIS, 0, bel_deb,
NULL, NULL, NULL, NULL, NULL, NULL
};
static uint16
bel_iot (uint16 insn, uint16 AC)
{
sim_debug (DBG, &bel_dev, "IOT\n");
if ((insn & 0771) == 0711) { /* BEL */
sim_debug (DBG, &bel_dev, "Dong!\n");
#ifdef HAVE_LIBSDL
vid_beep ();
#endif
}
return AC;
}

1
imlac/imlac_defs.h
View file

@ -73,5 +73,6 @@ extern uint16 memmask;
extern SUBDEV *dev_tab[0100];
extern DEVICE cpu_dev, irq_dev, rom_dev, dp_dev, crt_dev, kbd_dev;
extern DEVICE tty_dev, ptr_dev, ptp_dev, sync_dev;
extern DEVICE bel_dev;
#endif /* IMLAC_DEFS_H_ */

2
imlac/imlac_sys.c
View file

@ -49,7 +49,7 @@ DEVICE *sim_devices[] = {
/* &pen_dev, / * 13 */
&ptp_dev, /* 27 */
/* &mse_dev, / * 70, 73 */
/* &bel_dev, / * 71 */
&bel_dev, /* 71 */
NULL
};

2
makefile
View file

@ -1496,7 +1496,7 @@ PDP10_OPT = -DVM_PDP10 -DUSE_INT64 -I ${PDP10D} -I ${PDP11D} ${NETWORK_OPT}
IMLACD = ${SIMHD}/imlac
IMLAC = ${IMLACD}/imlac_sys.c ${IMLACD}/imlac_cpu.c \
${IMLACD}/imlac_dp.c ${IMLACD}/imlac_crt.c ${IMLACD}/imlac_kbd.c \
${IMLACD}/imlac_tty.c ${IMLACD}/imlac_pt.c \
${IMLACD}/imlac_tty.c ${IMLACD}/imlac_pt.c ${IMLACD}/imlac_bel.c \
${DISPLAYL} ${DISPLAYIMLAC}
IMLAC_OPT = -I ${IMLACD} ${DISPLAY_OPT}