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

BESM6: Removed tabs, reindented, removed GNU extensions.

Browse source
This commit is contained in:
Leo Broukhis 2014-12-30 11:42:52 -08:00
parent b4eeaa77de
commit cc33257836
15 changed files with 5776 additions and 5782 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

112
BESM6/besm6_cpu.c
View file

@ -447,15 +447,16 @@ static void cmd_002 ()
besm6_debug ("*** рег %03o", Aex & 0377);
#endif
switch (Aex & 0377) {
case 0 ... 7:
case 0: case 1: case 2: case 3: case 4: case 5: case 6: case 7:
/* Запись в БРЗ */
mmu_setcache (Aex & 7, ACC);
break;
case 020 ... 027:
case 020: case 021: case 022: case 023:
case 024: case 025: case 026: case 027:
/* Запись в регистры приписки */
mmu_setrp (Aex & 7, ACC);
break;
case 030 ... 033:
case 030: case 031: case 032: case 033:
/* Запись в регистры защиты */
mmu_setprotection (Aex & 3, ACC);
break;
@ -468,8 +469,12 @@ static void cmd_002 ()
/* нехранящие биты невозможно погасить */
GRP &= ACC | GRP_WIRED_BITS;
break;
case 0100 ... 0137:
/* Бит 1: управление блокировкой режима останова БРО.
case 64: case 65: case 66: case 67: case 68: case 69: case 70: case 71:
case 72: case 73: case 74: case 75: case 76: case 77: case 78: case 79:
case 80: case 81: case 82: case 83: case 84: case 85: case 86: case 87:
case 88: case 89: case 90: case 91: case 92: case 93: case 94: case 95:
/* 0100 - 0137:
* Бит 1: управление блокировкой режима останова БРО.
* Биты 2 и 3 - признаки формирования контрольных
* разрядов (ПКП и ПКЛ). */
if (Aex & 1)
@ -485,12 +490,8 @@ static void cmd_002 ()
else
RUU &= ~RUU_CONVOL_LEFT;
break;
case 0140 ... 0177:
/* TODO: управление блокировкой схемы
* автоматического запуска */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 0200 ... 0207:
case 0200: case 0201: case 0202: case 0203:
case 0204: case 0205: case 0206: case 0207:
/* Чтение БРЗ */
ACC = mmu_getcache (Aex & 7);
break;
@ -499,6 +500,11 @@ static void cmd_002 ()
ACC = GRP;
break;
default:
if ((Aex & 0340) == 0140) {
/* TODO: управление блокировкой схемы
* автоматического запуска */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
}
/* Неиспользуемые адреса */
besm6_debug ("*** %05o%s: РЕГ %o - неправильный адрес спец.регистра",
PC, (RUU & RUU_RIGHT_INSTR) ? "п" : "л", Aex);
@ -520,32 +526,32 @@ static void cmd_033 ()
/* Точно неизвестно, что это такое, но драйвер МД
* иногда выдает команду "увв 0". */
break;
case 1 ... 2:
case 1: case 2:
/* Управление обменом с магнитными барабанами */
drum (Aex - 1, (uint32) ACC);
break;
case 3 ... 4:
case 3: case 4:
/* Передача управляющего слова для обмена
* с магнитными дисками */
disk_io (Aex - 3, (uint32) ACC);
break;
case 5 ... 7:
case 5: case 6: case 7:
/* TODO: управление обменом с магнитными лентами */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 010 ... 011:
case 010: case 011:
/* управление устройствами ввода с перфоленты */
fs_control (Aex - 010, (uint32) (ACC & 07));
break;
case 012 ... 013:
case 012: case 013:
/* TODO: управление устройствами ввода с перфоленты по запаянной программе */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 014 ... 015:
case 014: case 015:
/* Управление АЦПУ */
printer_control (Aex - 014, (uint32) (ACC & 017));
break;
case 023 ... 024:
case 023: case 024:
/* Управление обменом с магнитными дисками */
disk_ctl (Aex - 023, (uint32) ACC);
break;
@ -560,7 +566,7 @@ static void cmd_033 ()
PC, (RUU & RUU_RIGHT_INSTR) ? "п" : "л", ACC << 24);*/
GRP |= (ACC & BITS(24)) << 24;
break;
case 032 ... 033:
case 032: case 033:
/* TODO: имитация сигналов из КМБ в КВУ */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
@ -574,15 +580,13 @@ static void cmd_033 ()
* с МБ и МЛ, имитация обмена */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 040 ... 057:
case 040: case 041: case 042: case 043:
case 044: case 045: case 046: case 047:
case 050: case 051: case 052: case 053:
case 054: case 055: case 056: case 057:
/* Управление молоточками АЦПУ */
printer_hammer (Aex >= 050, Aex & 7, (uint32) (ACC & BITS(16)));
break;
case 0100 ... 0137:
/* Управление лентопротяжными механизмами
* и гашение разрядов регистров признаков
* окончания подвода зоны. Игнорируем. */
break;
case 0140:
/* Запись в регистр телеграфных каналов */
tty_send ((uint32) ACC & BITS(24));
@ -599,7 +603,7 @@ static void cmd_033 ()
/* Запись в регистр управления электропитанием, */
/* не оказывает видимого эффекта на выполнение */
break;
case 0150 ... 0151:
case 0150: case 0151:
/* TODO: управление вводом с перфокарт */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
@ -607,19 +611,19 @@ static void cmd_033 ()
/* гашение аппаратуры сопряжения с терминалами */
/* besm6_debug(">>> гашение АС: %08o", (uint32) ACC & BITS(24));*/
break;
case 0154 ... 0155:
case 0154: case 0155:
/* TODO: управление выводом на перфокарты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 0160 ... 0167:
case 0160: case 0167:
/* TODO: управление электромагнитами пробивки перфокарт */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 0170 ... 0171:
case 0170: case 0171:
/* TODO: пробивка строки на перфоленте */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 0174 ... 0175:
case 0174: case 0175:
/* Выдача кода в пульт оператора */
consul_print (Aex & 1, (uint32) ACC & BITS(8));
break;
@ -627,11 +631,11 @@ static void cmd_033 ()
/* управление табло ГПВЦ СО АН СССР */
/* besm6_debug(">>> ТАБЛО: %08o", (uint32) ACC & BITS(24));*/
break;
case 04001 ... 04002:
case 04001: case 04002:
/* TODO: считывание слога в режиме имитации обмена */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 04003 ... 04004:
case 04003: case 04004:
/* Запрос статуса контроллера магнитных дисков */
ACC = disk_state (Aex - 04003);
break;
@ -645,16 +649,16 @@ static void cmd_033 ()
* в запаянной программе ввода с перфоленты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 04014 ... 04015:
case 04014: case 04015:
/* считывание строки с устройства ввода с перфоленты */
ACC = fs_read (Aex - 04014);
break;
case 04016 ... 04017:
case 04016: case 04017:
/* TODO: считывание строки с устройства
* ввода с перфоленты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 04020 ... 04023:
case 04020: case 04021: case 04022: case 04023:
/* TODO: считывание слога в режиме имитации
* внешнего обмена */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
@ -685,7 +689,7 @@ static void cmd_033 ()
/* besm6_debug("Reading punchcard/punchtape READY @%05o", PC);*/
ACC = READY2;
break;
case 04103 ... 04106:
case 04103: case 04104: case 04105: case 04106:
/* Опрос состояния лентопротяжных механизмов.
* Все устройства не готовы. */
ACC = BITS(24);
@ -699,20 +703,12 @@ static void cmd_033 ()
* группами по 8 штук каждые несколько секунд. */
ACC = 0;
break;
case 04140 ... 04157:
/* TODO: считывание строки перфокарты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 04160 ... 04167:
/* TODO: контрольное считывание строки перфокарты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 04170 ... 04173:
case 04170: case 04171: case 04172: case 04173:
/* TODO: считывание контрольного кода
* строки перфоленты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
break;
case 04174 ... 04175:
case 04174: case 04175:
/* Считывание кода с пульта оператора */
ACC = consul_read (Aex & 1);
break;
@ -720,13 +716,26 @@ static void cmd_033 ()
/* чтение табло ГПВЦ СО АН СССР */
ACC = 0;
break;
default:
default: {
unsigned val = Aex & 04177;
if (0100 <= val && val <= 0137) {
/* Управление лентопротяжными механизмами
* и гашение разрядов регистров признаков
* окончания подвода зоны. Игнорируем. */
} else if (04140 <= val && val <= 04157) {
/* TODO: считывание строки перфокарты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
} else if (04160 <= val && val <= 04167) {
/* TODO: контрольное считывание строки перфокарты */
longjmp (cpu_halt, STOP_UNIMPLEMENTED);
} else {
/* Неиспользуемые адреса */
/* if (sim_deb && cpu_dev.dctrl)*/
besm6_debug ("*** %05o%s: УВВ %o - неправильный адрес ввода-вывода",
PC, (RUU & RUU_RIGHT_INSTR) ? "п" : "л", Aex);
ACC = 0;
break;
}
} break;
}
}
@ -1245,7 +1254,12 @@ transfer_modifier: M[Aex & 037] = M[reg];
M[0] = 0;
delay = 6;
break;
case 050 ... 077: /* э50...э77 */
case 050: case 051: case 052: case 053:
case 054: case 055: case 056: case 057:
case 060: case 061: case 062: case 063:
case 064: case 065: case 066: case 067:
case 070: case 071: case 072: case 073:
case 074: case 075: case 076: case 077: /* э50...э77 */
case 0200: /* э20 */
case 0210: /* э21 */
stop_as_extracode:

6
BESM6/besm6_defs.h
View file

@ -31,6 +31,7 @@
#define _BESM6_DEFS_H_ 0
#include "sim_defs.h" /* simulator defns */
#include "scp.h"
#include <setjmp.h>
/*
@ -123,11 +124,6 @@ enum {
#define USEC 10 /* одна микросекунда - десять тактов */
#define MSEC (1000*USEC) /* одна миллисекунда */
extern uint32 sim_brk_types, sim_brk_dflt, sim_brk_summ; /* breakpoint info */
extern int32 sim_interval, sim_step;
extern FILE *sim_deb, *sim_log;
extern int32 sim_switches;
extern UNIT cpu_unit;
extern t_value memory [MEMSIZE];
extern t_value pult [8];

4
BESM6/besm6_mmu.c
View file

@ -261,7 +261,7 @@ void mmu_flush_by_age()
switch (FLUSH) {
case 0:
break;
case 1 ... 8:
case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8:
set_wins (OLDEST);
mmu_update_oldest ();
mmu_flush (OLDEST);
@ -279,7 +279,7 @@ void mmu_flush_by_number()
switch (FLUSH) {
case 0:
break;
case 1 ... 8:
case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8:
mmu_flush (FLUSH-1);
set_wins (FLUSH-1);
if (FLUSH-1 == OLDEST)

2
BESM6/besm6_panel.c
View file

@ -114,7 +114,7 @@ static SDL_Surface *sprite_from_data (int width, int height,
*/
SDL_LockSurface (sprite);
for (y=0; y<height; ++y) {
s = (unsigned*) (sprite->pixels + y * sprite->pitch);
s = (unsigned*) ((char*)sprite->pixels + y * sprite->pitch);
for (x=0; x<width; ++x) {
r = *data++;
g = *data++;

7
BESM6/besm6_printer.c
View file

@ -204,8 +204,7 @@ t_stat printer_event (UNIT *u)
int num = u - printer_unit;
struct acpu_t * dev = acpu + num;
switch (dev->curchar) {
case 0 ... 0137:
if (dev->curchar < 0140) {
GRP |= GRP_PRN1_SYNC >> num;
++dev->curchar;
/* For next char */
@ -213,8 +212,7 @@ t_stat printer_event (UNIT *u)
if (dev->feed && --dev->feed == 0) {
READY |= PRN1_LINEFEED >> num;
}
break;
case 0140:
} else {
/* For "zero" */
dev->curchar = 0;
GRP |= GRP_PRN1_ZERO >> num;
@ -222,7 +220,6 @@ t_stat printer_event (UNIT *u)
besm6_debug(">>> АЦПУ%d 'ноль'", num);
/* For first sync after "zero" */
sim_activate (u, 1000*USEC);
break;
}
return SCPE_OK;
}

26
BESM6/besm6_punch.c
View file

@ -204,13 +204,11 @@ t_stat fs_event (UNIT *u)
{
int num = u - fs_unit;
again:
switch (fs_state[num]) {
case FS_STARTING:
if (fs_state[num] == FS_STARTING) {
/* По первому прерыванию после запуска двигателя ничего не читаем */
FS[num] = 0;
fs_state[num] = FS_RUNNING;
break;
case FS_RUNNING: {
} else if (fs_state[num] == FS_RUNNING) {
int ch;
/* переводы строк игнорируются */
while ((ch = utf8_getc (u->fileref)) == '\n');
@ -228,9 +226,7 @@ again:
ch = (ch & 0x0F) + ((ch >> 4) & 0x0F);
if (ch & 1); else FS[num] |= 0x80;
}
break;
}
case FS_IMAGE ... FS_IMAGE_LAST: {
} else if (FS_IMAGE <= fs_state[num] && fs_state[num] <= FS_IMAGE_LAST) {
int ch = utf8_getc (u->fileref);
if (ch < 0) {
/* обрыв ленты */
@ -253,9 +249,7 @@ again:
if (ch & 1); else FS[num] |= 0x80;
++fs_state[num];
}
break;
}
case FS_TOOLONG: {
} else if (fs_state[num] == FS_TOOLONG) {
/* дочитываем до конца строки */
int ch;
besm6_debug("<<< too long???");
@ -266,15 +260,12 @@ again:
fs_state[num] = FS_TAIL;
} else
goto again;
break;
}
case FS_FILLUP ... FS_FILLUP_LAST:
} else if (FS_FILLUP <= fs_state[num] && fs_state[num] <= FS_FILLUP_LAST) {
FS[num] = 0;
if (++fs_state[num] == FS_ENDA3) {
fs_state[num] = FS_IMAGE;
}
break;
case FS_ENDA3 ... FS_ENDA3_LAST:
} else if (FS_ENDA3 <= fs_state[num] && fs_state[num] <= FS_ENDA3_LAST) {
if ((fs_state[num] - FS_ENDA3) % 5 == 0)
FS[num] = 0200;
else
@ -282,11 +273,8 @@ again:
if (++fs_state[num] == FS_TAIL) {
fs_state[num] = FS_RUNNING;
}
break;
case FS_IDLE:
case FS_TAIL:
} else if (fs_state[num] == FS_IDLE || fs_state[num] == FS_TAIL) {
FS[num] = 0;
break;
}
GRP |= GRP_FS1_SYNC >> num;
return SCPE_OK;

2
BESM6/besm6_sys.c
View file

@ -73,7 +73,7 @@ const char *besm6_opname (int opcode)
if (opcode & 0200)
return opname_long_bemsh [(opcode >> 3) & 017];
return opname_short_bemsh [opcode];
};
}
/*
* Выдача кода инструкции по мнемонике (UTF-8).

10
BESM6/besm6_tty.c
View file

@ -615,9 +615,9 @@ void tt_print()
*/
static int unicode_to_koi7 (unsigned val)
{
switch (val) {
case '\0'... '_': return val;
case 'a' ... 'z': return val + 'Z' - 'z';
if ('_' <= val) return val;
else if ('a' <= val && val <= 'z') return val + 'Z' - 'z';
else switch (val) {
case 0x007f: return 0x7f;
case 0x0410: case 0x0430: return 0x61;
case 0x0411: case 0x0431: return 0x62;
@ -1146,7 +1146,7 @@ void vt_receive()
vt_receiving |= mask;
}
break;
case 1 ... 7:
case 1: case 2: case 3: case 4: case 5: case 6: case 7:
/* need inverted byte */
TTY_IN |= (tty_typed[num] & (1 << (tty_instate[num]-1))) ? 0 : mask;
tty_instate[num]++;
@ -1155,7 +1155,7 @@ void vt_receive()
TTY_IN |= odd_parity(tty_typed[num]) ? 0 : mask; /* even parity of inverted */
tty_instate[num]++;
break;
case 9 ... 11:
case 9: case 10: case 11:
/* stop bits are 0 */
tty_instate[num]++;
break;

0
BESM6/formatdisk.c Executable file → Normal file
View file

1
BESM6/test_pprog05.ini
View file

@ -7,7 +7,6 @@ load test_pprog05.b6
ex -ml 1-6
ex 7-11
echo
go
echo Должно быть четыре останова с числами на сумматоре: 1.0 2.0 3.0 4.0.
br 2
go