Skip to content

PDP18b: Add Type 34 display. #547

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
rms47 merged 1 commit into from
Apr 30, 2026
+77 −15
Merged

PDP18b: Add Type 34 display. #547

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
92 changes: 77 additions & 15 deletions PDP18B/pdp18b_dpy.c
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
/* pdp18b_dpy.c: PDP-7 Type 340 interface
/* pdp18b_dpy.c: PDP-7 Type 34 and Type 340 interface

Copyright (c) 2019, Lars Brinkhoff
Copyright (c) 2019, 2026, Lars Brinkhoff

Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"),
Expand Down Expand Up @@ -38,6 +38,11 @@
#define DBG_IOT 001 /* IOT instructions. */
#define DBG_IRQ 002 /* Interrupts. */
#define DBG_INS 004 /* 340 instructions. */
#define DBG_PLT 010 /* Points plotted. */

#define UNIT_V_TYPE34 (UNIT_V_UF + 0) /* Type 34 */
#define UNIT_TYPE34 (1 << UNIT_V_TYPE34)
#define TYPE34 (dpy_unit[0].flags & UNIT_TYPE34)

/*
* Number of microseconds between svc calls. Used to age display and
Expand All @@ -63,23 +68,33 @@ DEBTAB dpy_deb[] = {
{ "IOT", DBG_IOT },
{ "IRQ", DBG_IRQ },
{ "INS", DBG_INS },
{ "PLT", DBG_PLT },
{ NULL, 0 }
};

MTAB dpy_mod[] = {
{ UNIT_TYPE34, UNIT_TYPE34, "Type 34", "TYPE34", NULL },
{ UNIT_TYPE34, 0, "Type 340", "TYPE340", NULL },
{ 0 }
};

DEVICE dpy_dev = {
"DPY", dpy_unit, NULL, NULL,
"DPY", dpy_unit, NULL, dpy_mod,
1, 8, 12, 1, 8, 18,
NULL, NULL, &dpy_reset,
NULL, NULL, NULL,
&dpy_dib, DEV_DISABLE | DEV_DIS | DEV_DEBUG, 0,
dpy_deb, NULL, NULL
};

static uint16 dpy_x, dpy_y, dpy_i;

t_stat dpy_svc (UNIT *uptr)
{
sim_activate_after(uptr, DPY_CYCLE_US);
display_age(DPY_CYCLE_US, 0);
ty340_cycle();
if (!TYPE34)
ty340_cycle();
return SCPE_OK;
}

Expand All @@ -95,7 +110,10 @@ t_stat dpy_reset (DEVICE *dptr)
display_reset();
ty340_reset(dptr);
}
sim_cancel (&dpy_unit[0]);
if (TYPE34)
sim_activate_abs (dpy_unit, 0);
else
sim_cancel (&dpy_unit[0]);
return SCPE_OK;
}

Expand Down Expand Up @@ -132,18 +150,34 @@ int32 dpy05 (int32 dev, int32 pulse, int32 dat)
{
sim_debug(DBG_IOT, &dpy_dev, "7005%02o, %06o\n", pulse, dat);

if (pulse & 001) {
if ((pulse & 001) != 0 && !TYPE34) {
if (ty340_sense(ST340_VEDGE))
dat |= IOT_SKP;
}

if (pulse & 002) {
dat |= ty340_get_dac();
if (TYPE34) {
sim_debug(DBG_IOT, &dpy_dev, "Clear X\n");
dpy_x = 0;
} else {
dat |= ty340_get_dac();
}
}

if (pulse & 004) {
ty340_clear (ST340_LPHIT);
sim_activate_abs (dpy_unit, 0);
if (TYPE34) {
dpy_x |= dat & 01777;
sim_debug(DBG_IOT, &dpy_dev, "Set X to %04o\n", dpy_x);
} else {
ty340_clear (ST340_LPHIT);
sim_activate_abs (dpy_unit, 0);
}
}

if ((pulse & 040) != 0 && TYPE34) {
sim_debug(DBG_PLT, &dpy_dev, "Plot %04o,%04o intensity %o\n",
dpy_x, dpy_y, dpy_i);
display_point (dpy_x, dpy_y, (dpy_i * DISPLAY_INT_MAX) / 7, 0);
}

return dat;
Expand All @@ -153,20 +187,36 @@ int32 dpy06 (int32 dev, int32 pulse, int32 dat)
{
sim_debug(DBG_IOT, &dpy_dev, "7006%02o, %06o\n", pulse, dat);

if (pulse & 001) {
if ((pulse & 001) != 0 && !TYPE34) {
if (ty340_sense(ST340_STOPPED))
dat |= IOT_SKP;
}

if (pulse & 002) {
ty340_set_dac (0);
if (TYPE34) {
sim_debug(DBG_IOT, &dpy_dev, "Clear Y\n");
dpy_y = 0;
} else {
ty340_set_dac (0);
}
}

if (pulse & 004) {
if ((pulse & 010) == 0)
ty340_set_dac (dat & 07777);
ty340_clear (ST340_STOPPED|ST340_STOP_INT);
sim_activate_abs (dpy_unit, 0);
if (TYPE34) {
dpy_y |= dat & 01777;
sim_debug(DBG_IOT, &dpy_dev, "Set Y to %04o\n", dpy_y);
} else {
if ((pulse & 010) == 0)
ty340_set_dac (dat & 07777);
ty340_clear (ST340_STOPPED|ST340_STOP_INT);
sim_activate_abs (dpy_unit, 0);
}
}

if ((pulse & 040) != 0 && TYPE34) {
sim_debug(DBG_PLT, &dpy_dev, "Plot %04o,%04o intensity %o\n",
dpy_x, dpy_y, dpy_i);
display_point (dpy_x, dpy_y, (dpy_i * DISPLAY_INT_MAX) / 7, 0);
}

return dat;
Expand All @@ -176,6 +226,15 @@ int32 dpy07 (int32 dev, int32 pulse, int32 dat)
{
sim_debug(DBG_IOT, &dpy_dev, "7007%02o, %06o\n", pulse, dat);

if (TYPE34) {
if (dat & 4)
dpy_i = 7 - (dat & 7);
else
dpy_i = (dat & 3) + 4;
sim_debug(DBG_IOT, &dpy_dev, "Set intensity to %06o\n", dpy_i);
return dat;
}

if (pulse & 001) {
if (ty340_sense(ST340_LPHIT))
dat |= IOT_SKP;
Expand All @@ -196,6 +255,9 @@ int32 dpy10 (int32 dev, int32 pulse, int32 dat)
{
sim_debug(DBG_IOT, &dpy_dev, "7010%02o, %06o\n", pulse, dat);

if (TYPE34)
return dat;

if (pulse & 001) {
if (ty340_sense(ST340_HEDGE))
dat |= IOT_SKP;
Expand Down
Loading