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

BESM-6: some correction for indentation and spacing.

Browse source
This commit is contained in:
Serge Vakulenko 2015-01-21 12:29:29 -08:00
parent d6e60b88b7
commit 5ed1909839
11 changed files with 596 additions and 582 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
BESM6/besm6_cpu.c
View file

@ -145,12 +145,24 @@ REG cpu_reg[] = {
};
MTAB cpu_mod[] = {
{ MTAB_XTD|MTAB_VDV, 0, "IDLE", "IDLE", &sim_set_idle, &sim_show_idle, NULL, "Enables idle detection mode" },
{ MTAB_XTD|MTAB_VDV, 0, NULL, "NOIDLE", &sim_clr_idle, NULL, NULL, "Disables idle detection" },
{ MTAB_XTD|MTAB_VDV, 0, NULL, "REQ", &cpu_req, NULL, NULL, "Sends a request interrupt" },
{ MTAB_XTD|MTAB_VDV, 0, "PANEL", "PANEL", &besm6_init_panel, &besm6_show_panel, NULL, "Displays graphical panel" },
{ MTAB_XTD|MTAB_VDV, 0, NULL, "NOPANEL", &besm6_close_panel, NULL, NULL, "Closes graphical panel" },
{ MTAB_XTD|MTAB_VDV|MTAB_VALO, 0, "PULT", "PULT", &cpu_set_pult, &cpu_show_pult, NULL, "Selects a hardwired program or switch reg." },
{ MTAB_XTD|MTAB_VDV,
0, "IDLE", "IDLE", &sim_set_idle, &sim_show_idle, NULL,
"Enables idle detection mode" },
{ MTAB_XTD|MTAB_VDV,
0, NULL, "NOIDLE", &sim_clr_idle, NULL, NULL,
"Disables idle detection" },
{ MTAB_XTD|MTAB_VDV,
0, NULL, "REQ", &cpu_req, NULL, NULL,
"Sends a request interrupt" },
{ MTAB_XTD|MTAB_VDV,
0, "PANEL", "PANEL", &besm6_init_panel, &besm6_show_panel, NULL,
"Displays graphical panel" },
{ MTAB_XTD|MTAB_VDV,
0, NULL, "NOPANEL", &besm6_close_panel, NULL, NULL,
"Closes graphical panel" },
{ MTAB_XTD|MTAB_VDV|MTAB_VALO,
0, "PULT", "PULT", &cpu_set_pult, &cpu_show_pult, NULL,
"Selects a hardwired program or switch reg." },
{ 0 }
};

6
BESM6/besm6_disk.c
View file

@ -233,7 +233,8 @@ t_value spread (t_value val)
int i, j;
t_value res = 0;
for (i = 0; i < 5; i++) for (j = 0; j < 9; j++)
for (i = 0; i < 5; i++)
for (j = 0; j < 9; j++)
if (val & (1LL<<(i+j*5)))
res |= 1LL << (i*9+j);
return res & BITS48;
@ -378,7 +379,8 @@ t_value collect (t_value val)
int i, j;
t_value res = 0;
for (i = 0; i < 5; i++) for (j = 0; j < 9; j++)
for (i = 0; i < 5; i++)
for (j = 0; j < 9; j++)
if (val & (1LL<<(i*9+j)))
res |= 1LL << (i+j*5);
return res & BITS48;

1
BESM6/besm6_panel.c
View file

@ -405,7 +405,6 @@ static SDL_Window *sdlWindow;
static SDL_Renderer *sdlRenderer;
static SDL_Texture *sdlTexture;
/*
* Initializing of the graphical window and the fonts.
*/

13
BESM6/besm6_punch.c
View file

@ -45,13 +45,13 @@ char line[2][128];
/* #define NEGATIVE_RDY */
#ifndef NEGATIVE_RDY
#define ENB_RDY SET_RDY
#define DIS_RDY CLR_RDY
#define IS_RDY ISSET_RDY
# define ENB_RDY SET_RDY
# define DIS_RDY CLR_RDY
# define IS_RDY ISSET_RDY
#else
#define ENB_RDY CLR_RDY
#define DIS_RDY SET_RDY
#define IS_RDY ISCLR_RDY
# define ENB_RDY CLR_RDY
# define DIS_RDY SET_RDY
# define IS_RDY ISCLR_RDY
#endif
#define SET_RDY(x) do READY |= x; while (0)
@ -303,6 +303,7 @@ int fs_read(int num) {
return FS[num];
}
/*
* Unlike the OS which uses GOST overline (approximated by ^) as a line separator
* in running text mode, the BESM-ALGOL programming system used a nonprintable