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

BESM6: Enhanced the front panel, code cleanup.

Browse source
This commit is contained in:
Leo Broukhis 2015-02-12 20:35:33 -08:00
parent 4c8e1631b5
commit 68efe4d36a
4 changed files with 192 additions and 126 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
BESM6/besm6_cpu.c
View file

@ -559,11 +559,7 @@ static void cmd_033 ()
switch (Aex & 04177) { switch (Aex & 04177) {
case 0: case 0:
/* /*
* Using an I/O control instruction with Aex == 0 * Releasing the drum printer solenoids. No effect on simulation.
* after issuing a 033 instruction with a non-zero Aex
* to send data to a device was required
* for some devices (e.g. printers) according to the docs.
* What is the exact purpose is unclear (timing, power, ???)
*/ */
break; break;
case 1: case 2: case 1: case 2:
@ -1761,6 +1757,12 @@ t_stat sim_instr (void)
return STOP_IBKPT; /* stop simulation */ return STOP_IBKPT; /* stop simulation */
} }
if (redraw_panel) {
/* Periodic panel redraw is not forcing */
besm6_draw_panel(0);
redraw_panel = 0;
}
if (PRP & MPRP) { if (PRP & MPRP) {
/* There are interrupts pending in the peripheral /* There are interrupts pending in the peripheral
* interrupt register */ * interrupt register */
@ -1774,11 +1776,6 @@ t_stat sim_instr (void)
} }
cpu_one_inst (); /* one instr */ cpu_one_inst (); /* one instr */
iintr = 0; iintr = 0;
if (redraw_panel) {
/* Periodic panel redraw is not forcing */
besm6_draw_panel(0);
redraw_panel = 0;
}
sim_interval -= 1; /* count down instructions */ sim_interval -= 1; /* count down instructions */
} }

298
BESM6/besm6_panel.c
View file

@ -46,11 +46,13 @@
* Use a 640x480 window with 32 bit pixels. * Use a 640x480 window with 32 bit pixels.
*/ */
#define WIDTH 800 #define WIDTH 800
#define HEIGHT 400 #define HEIGHT 450
#define DEPTH 32 #define DEPTH 32
#define STEPX 14 #define STEPX 14
#define STEPY 16 #define STEPY 16
#define TEXTW 76
#define HEADER 28
#include <SDL.h> #include <SDL.h>
#include <SDL_ttf.h> #include <SDL_ttf.h>
@ -68,8 +70,9 @@ static const SDL_Color black = { 0, 0, 0 };
static const SDL_Color cyan = { 0, 128, 128 }; static const SDL_Color cyan = { 0, 128, 128 };
static const SDL_Color grey = { 64, 64, 64 }; static const SDL_Color grey = { 64, 64, 64 };
static t_value old_BRZ [8], old_GRP [2]; static t_value old_BRZ [8], old_GRP [2];
static t_value old_M [NREGS]; static uint32 old_M [NREGS], old_PRP [2], old_PC;
static char M_lamps[NREGS][15], BRZ_lamps[8][48], GRP_lamps[2][48]; static char M_lamps[NREGS][15], BRZ_lamps[8][48],
GRP_lamps[2][48], PRP_lamps[2][24], PC_lamps[16];
static const int regnum[] = { static const int regnum[] = {
013, 012, 011, 010, 7, 6, 5, 4, 013, 012, 011, 010, 7, 6, 5, 4,
@ -207,25 +210,47 @@ static void draw_lamp (int left, int top, int on)
SDL_BlitSurface (sprites[on], 0, screen, &area); SDL_BlitSurface (sprites[on], 0, screen, &area);
} }
static void draw_a_modifier (int reg, int hpos, int vpos) {
int x, val, anded, ored;
val = M [reg];
anded = old_M [reg] & val;
ored = old_M [reg] | val;
old_M [reg] = val;
for (x=0; act && x<15; ++x) {
int new_lamp = anded >> (14-x) & 1 ? 2 : ored >> (14-x) & 1 ? 1 : 0;
if (new_lamp != M_lamps[reg][x]) {
draw_lamp (hpos + x*STEPX, vpos, new_lamp);
M_lamps[reg][x] = new_lamp;
}
}
}
/* /*
* Drawing index (modifier) registers. They form two groups. * Drawing index (modifier) registers. They form two groups.
*/ */
static void draw_modifiers_periodic (int group, int left, int top) static void draw_modifiers_periodic (int group, int left, int top)
{ {
int x, y, reg, val, anded, ored; int y, reg;
for (y=0; y<8; ++y) { for (y=0; y<8; ++y) {
reg = regnum [y + group*8]; reg = regnum [y + group*8];
val = M [reg]; draw_a_modifier (reg, left + TEXTW, top + HEADER + y*STEPY);
anded = old_M [reg] & val; }
ored = old_M [reg] | val; }
old_M [reg] = val;
for (x=0; act && x<15; ++x) { static void draw_full_word (t_value val, t_value * old, char * lamps,
int new_lamp = anded >> (14-x) & 1 ? 2 : ored >> (14-x) & 1 ? 1 : 0; int hpos, int vpos)
if (new_lamp != M_lamps[reg][x]) { {
draw_lamp (left+76 + x*STEPX, top+28 + y*STEPY, new_lamp); int x;
M_lamps[reg][x] = new_lamp; t_value anded, ored;
} anded = *old & val;
ored = *old | val;
*old = val;
for (x=0; act && x<48; ++x) {
int new_lamp = anded >> (47-x) & 1 ? 2 : ored >> (47-x) & 1 ? 1 : 0;
if (new_lamp != lamps[x]) {
draw_lamp (hpos + x*STEPX, vpos, new_lamp);
lamps[x] = new_lamp;
} }
} }
} }
@ -233,46 +258,90 @@ static void draw_modifiers_periodic (int group, int left, int top)
/* /*
* Drawing the main interrupt register and its mask. * Drawing the main interrupt register and its mask.
*/ */
static void draw_grp_periodic (int top) static void draw_grp_periodic (int left, int top)
{ {
int x, y; draw_full_word (GRP, &old_GRP[0], GRP_lamps[0], left + TEXTW, top+HEADER);
t_value val, anded, ored; draw_full_word (MGRP, &old_GRP[1], GRP_lamps[1], left + TEXTW, top+HEADER+STEPY);
}
for (y=0; y<2; ++y) { static void draw_partial_word (uint32 val, int bits, uint32 * old,
val = y ? MGRP : GRP; char * lamps, int hpos, int vpos)
anded = old_GRP [y] & val; {
ored = old_GRP [y] | val; int x;
old_GRP [y] = val; uint32 anded, ored;
for (x=0; act && x<48; ++x) { anded = *old & val;
int new_lamp = anded >> (47-x) & 1 ? 2 : ored >> (47-x) & 1 ? 1 : 0; ored = *old | val;
if (new_lamp != GRP_lamps[y][x]) { *old = val;
draw_lamp (100 + x*STEPX, top+28 + y*STEPY, new_lamp); --bits;
GRP_lamps[y][x] = new_lamp; for (x=0; act && x<=bits; ++x) {
} int new_lamp = anded >> (bits-x) & 1 ? 2 :
ored >> (bits-x) & 1 ? 1 : 0;
if (new_lamp != lamps[x]) {
draw_lamp (hpos + x*STEPX, vpos, new_lamp);
lamps[x] = new_lamp;
} }
} }
} }
static void draw_counters_periodic (int left, int top)
{
draw_a_modifier(017, left+TEXTW+STEPX, top+HEADER);
/* The MSB of the displayed PC is the supervisor mode tag */
draw_partial_word(IS_SUPERVISOR(RUU) ? PC | BBIT(16) : PC, 16,
&old_PC, PC_lamps, left+TEXTW, top+HEADER+STEPY);
}
/*
* Drawing the peripheral interrupt register and its mask.
*/
static void draw_prp_periodic (int left, int top)
{
draw_partial_word(PRP, 24, &old_PRP[0], PRP_lamps[0], left+TEXTW, top+HEADER);
draw_partial_word(MPRP, 24, &old_PRP[1], PRP_lamps[1], left+TEXTW, top+HEADER+STEPY);
}
/* /*
* Drawing the data cache registers. * Drawing the data cache registers.
*/ */
static void draw_brz_periodic (int top) static void draw_brz_periodic (int left, int top)
{ {
int x, y; int y;
t_value val, anded, ored;
for (y=0; y<8; ++y) { for (y=0; y<8; ++y) {
val = BRZ [7-y]; draw_full_word (BRZ[7-y], &old_BRZ[7-y], BRZ_lamps[y],
anded = old_BRZ [7-y] & val; left+TEXTW, top+HEADER+y*STEPY);
ored = old_BRZ [7-y] | val; }
old_BRZ [7-y] = val; }
for (x=0; act && x<48; ++x) {
int new_lamp = anded >> (47-x) & 1 ? 2 : ored >> (47-x) & 1 ? 1 : 0; /*
if (new_lamp != BRZ_lamps[y][x]) { * Visually separating groups of bits.
draw_lamp (100 + x*STEPX, top+28 + y*STEPY, new_lamp); */
BRZ_lamps[y][x] = new_lamp; static void draw_separators (int left, int top, int startbit, int step, int totbits, int rows)
} {
} int x, color;
SDL_Rect area;
color = grey.r << 16 | grey.g << 8 | grey.b;
for (x=startbit; x<totbits; x+=step) {
area.x = left + TEXTW-2 + x*STEPX;
area.y = top + HEADER-2;
area.w = 2;
area.h = rows*STEPY + 2;
SDL_FillRect (screen, &area, color);
}
}
/*
* Drawing weaving bit numbers.
*/
static void draw_bit_numbers (int left, int top, int totbits)
{
char message [16];
int x;
for (x=0; x<totbits; ++x) {
sprintf (message, "%d", totbits-x);
render_utf8 (font_small, left+TEXTW+(STEPX/2-1) + x*STEPX,
(x & 1) ? top+4 : top+10, 0, message);
} }
} }
@ -281,98 +350,80 @@ static void draw_brz_periodic (int top)
*/ */
static void draw_modifiers_static (int group, int left, int top) static void draw_modifiers_static (int group, int left, int top)
{ {
int x, y, color, reg; int y, reg;
char message [40]; char message [16];
SDL_Rect area;
background = black; draw_separators (left, top, 3, 3, 15, 8);
foreground = cyan;
/* Visually separating groups of bits */
color = grey.r << 16 | grey.g << 8 | grey.b;
for (x=3; x<15; x+=3) {
area.x = left + 74 + x*STEPX;
area.y = top + 26;
area.w = 2;
area.h = 8*STEPY + 2;
SDL_FillRect (screen, &area, color);
}
/* Register names */ /* Register names */
for (y=0; y<8; ++y) { for (y=0; y<8; ++y) {
reg = regnum [y + group*8]; reg = regnum [y + group*8];
sprintf (message, "М%2o", reg); sprintf (message, "М%2o", reg);
render_utf8 (font_big, left, top + 24 + y*STEPY, 1, message); render_utf8 (font_big, left, top + HEADER-4 + y*STEPY, 1, message);
old_M [reg] = ~0;
}
/* Bit numbers */
for (x=0; x<15; ++x) {
sprintf (message, "%d", 15-x);
render_utf8 (font_small, left+82 + x*STEPX,
(x & 1) ? top+4 : top+10, 0, message);
} }
draw_bit_numbers (left, top, 15);
} }
/* /*
* Drawing the static part of the interrupt register area. * Drawing the static part of the interrupt register area.
*/ */
static void draw_grp_static (int top) static void draw_grp_static (int left, int top)
{ {
int x, y, color; draw_separators (left, top, 3, 3, 48, 2);
char message [40];
SDL_Rect area;
background = black;
foreground = cyan;
/* Visually separating groups of bits */
color = grey.r << 16 | grey.g << 8 | grey.b;
for (x=3; x<48; x+=3) {
area.x = 98 + x*STEPX;
area.y = top + 26;
area.w = 2;
area.h = 2*STEPY + 2;
SDL_FillRect (screen, &area, color);
}
/* Register names */ /* Register names */
for (y=0; y<2; ++y) { render_utf8 (font_big, left, top + HEADER-4, 1, "ГРП");
render_utf8 (font_big, 24, top + 24 + y*STEPY, 1, y ? "МГРП" : "ГРП"); render_utf8 (font_big, left, top + HEADER-4 + STEPY, 1, "МГРП");
old_GRP[y] = ~0;
} draw_bit_numbers (left, top, 48);
/* Bit numbers */ }
for (x=0; x<48; ++x) {
sprintf (message, "%d", 48-x); /*
render_utf8 (font_small, 106 + x*STEPX, * Drawing the static part of the interrupt register area.
(x & 1) ? top+10 : top+4, 0, message); */
} static void draw_prp_static (int left, int top)
{
draw_separators (left, top, 3, 3, 24, 2);
/* Register names */
render_utf8 (font_big, left, top + HEADER-4, 1, "ПРП");
render_utf8 (font_big, left, top + HEADER-4 + STEPY, 1, "МПРП");
draw_bit_numbers (left, top, 24);
}
/*
* Drawing the static part of PC and SP (M17) area.
*/
static void draw_counters_static (int left, int top)
{
draw_separators (left, top, 1, 3, 16, 2);
/* Register names */
render_utf8 (font_big, left, top + HEADER-4, 1, "СчМ");
render_utf8 (font_big, left, top + HEADER-4 + STEPY, 1, "СчАС");
draw_bit_numbers (left, top, 16);
} }
/* /*
* Drawing the static part of the cache register area * Drawing the static part of the cache register area
*/ */
static void draw_brz_static (int top) static void draw_brz_static (int left, int top)
{ {
int x, y, color; int y;
char message [40]; char message [40];
SDL_Rect area;
background = black; draw_separators (left, top, 3, 3, 48, 8);
foreground = cyan;
/* Visually separating groups of bits */
color = grey.r << 16 | grey.g << 8 | grey.b;
for (x=3; x<48; x+=3) {
area.x = 98 + x*STEPX;
area.y = top + 26;
area.w = 2;
area.h = 8*STEPY + 2;
SDL_FillRect (screen, &area, color);
}
/* Register names */ /* Register names */
for (y=7; y>=0; --y) { for (y=7; y>=0; --y) {
sprintf (message, "БРЗ %d", 7-y); sprintf (message, "БРЗ %d", 7-y);
render_utf8 (font_big, 24, top + 24 + y*STEPY, 1, message); render_utf8 (font_big, left, top + HEADER-4 + y*STEPY, 1, message);
old_BRZ[y] = ~0;
} }
/* Using bit numbers above GRP */
} }
/* /*
@ -439,6 +490,10 @@ t_stat besm6_init_panel (UNIT *u, int32 val, char *cptr, void *desc)
return ret; return ret;
} }
/* Font colors */
background = black;
foreground = cyan;
/* Open the font file with the requested point size */ /* Open the font file with the requested point size */
font_big = TTF_OpenFont (QUOTE(FONTFILE), 16); font_big = TTF_OpenFont (QUOTE(FONTFILE), 16);
font_small = TTF_OpenFont (QUOTE(FONTFILE), 9); font_small = TTF_OpenFont (QUOTE(FONTFILE), 9);
@ -463,13 +518,17 @@ t_stat besm6_init_panel (UNIT *u, int32 val, char *cptr, void *desc)
/* Drawing the static part of the BESM-6 panel */ /* Drawing the static part of the BESM-6 panel */
draw_modifiers_static (0, 24, 10); draw_modifiers_static (0, 24, 10);
draw_modifiers_static (1, 400, 10); draw_modifiers_static (1, 400, 10);
draw_grp_static (180); draw_prp_static (24, 170);
draw_brz_static (230); draw_counters_static (24+32*STEPX, 170);
draw_grp_static (24, 230);
draw_brz_static (24, 280);
/* Make sure all lights are updated */ /* Make sure all lights are updated */
memset(M_lamps, ~0, sizeof(M_lamps)); memset(M_lamps, ~0, sizeof(M_lamps));
memset(BRZ_lamps, ~0, sizeof(BRZ_lamps)); memset(BRZ_lamps, ~0, sizeof(BRZ_lamps));
memset(GRP_lamps, ~0, sizeof(GRP_lamps)); memset(GRP_lamps, ~0, sizeof(GRP_lamps));
memset(PRP_lamps, ~0, sizeof(PRP_lamps));
memset(PC_lamps, ~0, sizeof(PC_lamps));
besm6_draw_panel(1); besm6_draw_panel(1);
/* Tell SDL to update the whole screen */ /* Tell SDL to update the whole screen */
@ -502,8 +561,10 @@ void besm6_draw_panel (int force)
/* Do the blinkenlights */ /* Do the blinkenlights */
draw_modifiers_periodic (0, 24, 10); draw_modifiers_periodic (0, 24, 10);
draw_modifiers_periodic (1, 400, 10); draw_modifiers_periodic (1, 400, 10);
draw_grp_periodic (180); draw_counters_periodic (24+32*STEPX, 170);
draw_brz_periodic (230); draw_prp_periodic (24, 170);
draw_grp_periodic (24, 230);
draw_brz_periodic (24, 280);
act = !act; act = !act;
@ -556,16 +617,23 @@ t_stat besm6_init_panel (UNIT *u, int32 val, char *cptr, void *desc)
return ret; return ret;
} }
/* Font colors */
background = black;
foreground = cyan;
/* Drawing the static part of the BESM-6 panel */ /* Drawing the static part of the BESM-6 panel */
draw_modifiers_static (0, 24, 10); draw_modifiers_static (0, 24, 10);
draw_modifiers_static (1, 400, 10); draw_modifiers_static (1, 400, 10);
draw_grp_static (180); draw_prp_static (24, 170);
draw_brz_static (230); draw_counters_static (472, 170);
draw_grp_static (24, 230);
draw_brz_static (24, 280);
/* Make sure all lights are updated */ /* Make sure all lights are updated */
memset(M_lamps, ~0, sizeof(M_lamps)); memset(M_lamps, ~0, sizeof(M_lamps));
memset(BRZ_lamps, ~0, sizeof(BRZ_lamps)); memset(BRZ_lamps, ~0, sizeof(BRZ_lamps));
memset(GRP_lamps, ~0, sizeof(GRP_lamps)); memset(GRP_lamps, ~0, sizeof(GRP_lamps));
memset(PRP_lamps, ~0, sizeof(PRP_lamps));
besm6_draw_panel(1); besm6_draw_panel(1);
/* Tell SDL to update the whole screen */ /* Tell SDL to update the whole screen */
@ -594,8 +662,10 @@ void besm6_draw_panel (int force)
/* Do the blinkenlights */ /* Do the blinkenlights */
draw_modifiers_periodic (0, 24, 10); draw_modifiers_periodic (0, 24, 10);
draw_modifiers_periodic (1, 400, 10); draw_modifiers_periodic (1, 400, 10);
draw_grp_periodic (180); draw_counters_periodic (472, 170);
draw_brz_periodic (230); draw_prp_periodic (24, 170);
draw_grp_periodic (24, 230);
draw_brz_periodic (24, 280);
/* Tell SDL to update the whole screen */ /* Tell SDL to update the whole screen */
SDL_UpdateRect (screen, 0, 0, WIDTH, HEIGHT); SDL_UpdateRect (screen, 0, 0, WIDTH, HEIGHT);

1
BESM6/besm6_printer.c
View file

@ -159,6 +159,7 @@ void printer_control (int num, uint32 cmd)
case 2: /* ribbon off */ case 2: /* ribbon off */
dev->rampup = cmd == 2 ? FAST_START : SLOW_START; dev->rampup = cmd == 2 ? FAST_START : SLOW_START;
sim_cancel (u); sim_cancel (u);
fflush (u->fileref);
break; break;
} }
} }

2
BESM6/besm6_punch.c
View file

@ -217,7 +217,6 @@ static int utf8_getc (FILE *fin);
*/ */
t_stat fs_event (UNIT *u) t_stat fs_event (UNIT *u)
{ {
static int cnt;
int num = u - fs_unit; int num = u - fs_unit;
again: again:
if (fs_state[num] == FS_STARTING) { if (fs_state[num] == FS_STARTING) {
@ -225,7 +224,6 @@ t_stat fs_event (UNIT *u)
* no need to read anything from the attached file. * no need to read anything from the attached file.
*/ */
FS[num] = 0; FS[num] = 0;
cnt = 0;
fs_state[num] = fs_textmode[num] ? FS_RUNNING : FS_BINARY; fs_state[num] = fs_textmode[num] ? FS_RUNNING : FS_BINARY;
} else if (fs_state[num] == FS_BINARY) { } else if (fs_state[num] == FS_BINARY) {
int ch = getc (u->fileref); int ch = getc (u->fileref);