github.com/simh.simh
1
0
Fork 0
mirror of https://github.com/simh/simh.git synced 2026-01-28 12:49:21 +00:00
Code Releases Activity

PDP11: NG, Knight display.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-02-07 08:16:31 +01:00
parent 25ab8de55d
commit 5aa8454ab5
11 changed files with 745 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
display/display.c
View File

@@ -123,6 +123,10 @@ static struct color color_p7 = { p7, ELEMENTS(p7), 125000 };
static struct phosphor p29[] = {{0.0260, 1.0, 0.00121, 0.5, 0.025}};
struct color color_p29 = { p29, ELEMENTS(p29), 25000 };
/* green phosphor for Tek 611 */
static struct phosphor p31[] = {{0.0, 1.0, 0.77, 0.5, .1}};
struct color color_p31 = { p31, ELEMENTS(p31), 25000 };
static struct phosphor p40[] = {
/* P40 blue-white spot with yellow-green decay (.045s to 10%?) */
{0.4, 0.2, 0.924, 0.5, 0.0135},
@@ -227,7 +231,17 @@ static struct display displays[] = {
* 0,0 at lower left
* 8 intensity levels
*/
{ DIS_TYPE340, "Type 340", &color_p7, NULL, 1024, 1024 }
{ DIS_TYPE340, "Type 340", &color_p7, NULL, 1024, 1024 },
/*
* NG display
* on PDP-11/45
*
* Tektronix 611
* 512x512, out of 800x600
* 0,0 at middle
*/
{ DIS_NG, "NG Display", &color_p31, NULL, 512, 512 }
};
/*

3
display/display.h
View File

@@ -47,7 +47,8 @@ enum display_type {
DIS_VR20 = 20,
DIS_TYPE30 = 30,
DIS_VR48 = 48,
DIS_TYPE340 = 340
DIS_TYPE340 = 340,
DIS_NG = 999,
};
/*

340
display/ng.c Normal file
View File

@@ -0,0 +1,340 @@
/*
* Copyright (c) 2018 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
* THE AUTHORS 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 names of the authors shall
* not be used in advertising or otherwise to promote the sale, use or
* other dealings in this Software without prior written authorization
* from the authors.
*/
#include "display.h" /* XY plot interface */
#include "ng.h"
/* Bits in the CSR register, type Dazzle. */
#define TKRUN 004000
#define TKGO 010000
#define TKSTOP 020000
static void *ng_dptr;
static int ng_dbit;
#define DEVICE void
extern void _sim_debug_device (unsigned int dbits, DEVICE* dptr, const char* fmt, ...);
#define DEBUGF(...) _sim_debug_device (ng_dbit, ng_dptr, ## __VA_ARGS__)
int ng_type = 0;
int ng_scale = PIX_SCALE;
static uint16 status = 0;
static int reloc = 0;
static int console = 0;
static int dpc[8];
static int x[8];
static int y[8];
static unsigned char sync_period = 0;
static unsigned char time_out = 0;
int32
ng_get_csr(void)
{
if (ng_type == TYPE_DAZZLE) {
DEBUGF("[%d] Get CSR: ", 0);
if (status & TKRUN)
DEBUGF("running\n");
else
DEBUGF("stopped\n");
} else if (ng_type == TYPE_LOGO) {
DEBUGF("Get CSR: %06o\n", status);
}
return status;
}
int32
ng_get_reloc(void)
{
return reloc & 0177777;
}
void
ng_set_csr(uint16 d)
{
if (ng_type == TYPE_DAZZLE) {
console = d & 0377;
if (d & TKGO) {
DEBUGF("[%d] Set CSR: GO\n", console);
if ((status & TKRUN) == 0)
dpc[console] = 2*console;
status |= TKRUN;
}
if (d & TKSTOP) {
DEBUGF("[%d] Set CSR: STOP\n", console);
status &= ~TKRUN;
}
} else if (ng_type == TYPE_LOGO) {
DEBUGF("Set CSR: %06o\n", d);
if ((status & 1) == 0 && (d & 1))
dpc[0] = 2*0;
status = d;
}
}
void
ng_set_reloc(uint16 d)
{
reloc = d;
DEBUGF("Set REL: %06o\n", d);
}
int
ng_init(void *dev, int debug)
{
ng_dptr = dev;
ng_dbit = debug;
return display_init(DIS_NG, ng_scale, ng_dptr);
}
static int fetch (int a, uint16 *x)
{
return ng_fetch (a + reloc, x);
}
static int store (int a, uint16 x)
{
return ng_store (a + reloc, x);
}
static void point (void)
{
int x1 = x[console];
int y1 = y[console];
DEBUGF("[%d] POINT %d %d\n", console, x[console], y[console]);
display_point(x1 + 256, y1 + 256, DISPLAY_INT_MAX, 0);
}
void increment (uint16 inst)
{
int n = (inst >> 8) & 7;
int i, mask;
if (n == 0)
n = 8;
DEBUGF("[%d] Increment %d, direction %d, bits %o\n",
console, n, (inst >> 11) & 7, inst & 0377);
mask = 0200;
if (ng_type == TYPE_DAZZLE)
mask = 0200 >> (8 - n);
for (i = 0; i < n; i++, mask >>= 1) {
switch (inst & 034000) {
case 000000:
if (inst & mask)
x[console]++;
y[console]++;
break;
case 004000:
if (inst & mask)
y[console]++;
x[console]++;
break;
case 010000:
if (inst & mask)
y[console]--;
x[console]++;
break;
case 014000:
if (inst & mask)
x[console]++;
y[console]--;
break;
case 020000:
if (inst & mask)
x[console]--;
y[console]--;
break;
case 024000:
if (inst & mask)
y[console]--;
x[console]--;
break;
case 030000:
if (inst & mask)
y[console]++;
x[console]--;
break;
case 034000:
if (inst & mask)
x[console]--;
y[console]++;
break;
}
point ();
}
}
void pushj (uint16 inst)
{
uint16 a;
fetch (16 + 2*console, &a);
store (16 + 2*console, a + 1);
store (2*a, dpc[console]);
DEBUGF("[%d] PUSHJ %06o -> %06o (%06o->%06o)\n",
console, dpc[console], inst << 1, a, a+1);
dpc[console] = inst << 1;
}
void stop (void)
{
DEBUGF("[%d] STOP\n", console);
if (ng_type == TYPE_DAZZLE)
status &= ~TKRUN;
else if (ng_type == TYPE_LOGO)
dpc[0] = 2*0;
}
uint16 pop (void)
{
uint16 a;
fetch (16 + 2*console, &a);
store (16 + 2*console, a - 1);
DEBUGF("[%d] POP (%06o -> %06o)\n", console, a, a - 1);
return a - 1;
}
void popj (void)
{
uint16 a, x;
a = pop ();
fetch (2*a, &x);
DEBUGF("[%d] POPJ %06o -> %06o\n", console, dpc[console], x);
dpc[console] = x;
}
void resetx (void)
{
DEBUGF("[%d] RESET X\n", console);
x[console] = 0;
}
void resety (void)
{
DEBUGF("[%d] RESET Y\n", console);
y[console] = 0;
}
void delta (uint16 inst)
{
int delta = inst & 01777;
if (inst & 01000)
delta |= -1 << 10;
switch (inst & 014000) {
case 000000:
if (inst & 02000)
resetx ();
if (inst & 01000)
resety ();
if (inst & 00400)
stop ();
if (inst & 00200)
pop ();
if (inst & 00100)
popj ();
return;
case 004000:
y[console] += delta;
break;
case 010000:
x[console] += delta;
break;
case 014000:
x[console] += delta;
y[console] += delta;
break;
}
DEBUGF("[%d] DELTA %d\n", console, delta);
if (inst & 02000) {
point ();
}
}
int
ng_cycle(int us, int slowdown)
{
uint16 inst;
static uint32 usec = 0;
static uint32 msec = 0;
uint32 new_msec;
new_msec = (usec += us) / 1000;
/* if awaiting sync, look for next frame start */
if (sync_period && (msec / sync_period != new_msec / sync_period))
sync_period = 0; /* start next frame */
msec = new_msec;
if (ng_type == TYPE_DAZZLE) {
if ((status & TKRUN) == 0)
goto age_ret;
} else if (ng_type == TYPE_LOGO) {
DEBUGF("STATUS %06o\n", status);
if ((status & 1) == 0)
goto age_ret;
} else
return 1;
if (sync_period)
goto age_ret;
for (console = 0; console < 1; console++) {
time_out = fetch(dpc[console], &inst);
DEBUGF("[%d] PC %06o, INSTR %06o\n", console, dpc[console], inst);
dpc[console] += 2;
switch (inst & 0160000) {
case 0040000:
case 0060000:
increment (inst);
break;
case 0100000:
case 0120000:
pushj (inst & 037777);
break;
case 0140000:
delta (inst);
break;
}
}
age_ret:
display_age(us, slowdown);
return 1;
}

64
display/ng.h Normal file
View File

@@ -0,0 +1,64 @@
/*
* Copyright (c) 2018 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
* THE AUTHORS 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 names of the authors shall
* not be used in advertising or otherwise to promote the sale, use or
* other dealings in this Software without prior written authorization
* from the authors.
*/
#if defined(__cplusplus)
extern "C" {
#endif
#ifndef SIM_DEFS_H_
typedef unsigned short uint16;
typedef int int32;
typedef unsigned int uint32;
#endif /* SIM_DEFS_H_ */
/* Hardware type. */
#define TYPE_DAZZLE 1
#define TYPE_LOGO 2
/*
* The PIX_SCALE #define establishes the initial default display scale
* factor; to change from the default scale factor, set ng_scale
* before calling ng_init().
*/
#ifndef PIX_SCALE
#define PIX_SCALE RES_FULL
#endif
extern int ng_type;
extern int ng_scale;
extern int32 ng_get_csr(void);
extern int32 ng_get_reloc(void);
extern void ng_set_csr(uint16);
extern void ng_set_reloc(uint16);
extern int ng_init(void *, int);
extern int ng_cycle(int, int);
extern int ng_fetch(uint32, uint16 *); /* get a display-file word */
extern int ng_store(uint32, uint16);
#if defined(__cplusplus)
}
#endif