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 cpu_mod[] = {
{ MTAB_XTD|MTAB_VDV, 0, "IDLE", "IDLE", &sim_set_idle, &sim_show_idle, NULL, "Enables idle detection mode" }, { MTAB_XTD|MTAB_VDV,
{ MTAB_XTD|MTAB_VDV, 0, NULL, "NOIDLE", &sim_clr_idle, NULL, NULL, "Disables idle detection" }, 0, "IDLE", "IDLE", &sim_set_idle, &sim_show_idle, NULL,
{ MTAB_XTD|MTAB_VDV, 0, NULL, "REQ", &cpu_req, NULL, NULL, "Sends a request interrupt" }, "Enables idle detection mode" },
{ MTAB_XTD|MTAB_VDV, 0, "PANEL", "PANEL", &besm6_init_panel, &besm6_show_panel, NULL, "Displays graphical panel" }, { MTAB_XTD|MTAB_VDV,
{ MTAB_XTD|MTAB_VDV, 0, NULL, "NOPANEL", &besm6_close_panel, NULL, NULL, "Closes graphical panel" }, 0, NULL, "NOIDLE", &sim_clr_idle, NULL, NULL,
{ MTAB_XTD|MTAB_VDV|MTAB_VALO, 0, "PULT", "PULT", &cpu_set_pult, &cpu_show_pult, NULL, "Selects a hardwired program or switch reg." }, "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 } { 0 }
}; };

6
BESM6/besm6_disk.c
View file

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

1
BESM6/besm6_panel.c
View file

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

1
BESM6/besm6_punch.c
View file

@ -303,6 +303,7 @@ int fs_read(int num) {
return FS[num]; return FS[num];
} }
/* /*
* Unlike the OS which uses GOST overline (approximated by ^) as a line separator * 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 * in running text mode, the BESM-ALGOL programming system used a nonprintable