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

BESM6: Working calibrated clock which also supports idling

Browse source 
BESM6: Single instruction calibration and step cleanup
This commit is contained in:
Mark Pizzolato 2015-01-01 20:08:23 -08:00 • committed by Leo Broukhis
parent 76cdf0fd10
commit bd50637b18
4 changed files with 14 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
BESM6/besm6_cpu.c
View file

@ -1494,7 +1494,6 @@ t_stat sim_instr (void)
/* Restore register state */
PC = PC & BITS(15); /* mask PC */
sim_cancel_step (); /* defang SCP step */
mmu_setup (); /* copy RP to TLB */
/* An internal interrupt or user intervention */
@ -1688,13 +1687,7 @@ t_stat sim_instr (void)
redraw_panel = 0;
}
if (delay < 1)
delay = 1;
sim_interval -= delay; /* count down delay */
if (sim_step && (--sim_step <= 0)) { /* do step count */
besm6_draw_panel();
return SCPE_STOP;
}
sim_interval -= 1; /* count down instructions */
}
}
@ -1729,7 +1722,7 @@ t_stat fast_clk (UNIT * this)
}
UNIT clocks[] = {
{ UDATA(fast_clk, 0, 0), CLK_DELAY }, /* 40 р, 50 Гц */
{ UDATA(fast_clk, UNIT_IDLE, 0), CLK_DELAY }, /* 40 р, 50 Гц */
};
t_stat clk_reset (DEVICE * dev)

2
BESM6/besm6_defs.h
View file

@ -121,7 +121,7 @@ enum {
/*
* Считаем, что моделируеммая машина имеет опорную частоту 10 МГц.
*/
#define USEC 10 /* одна микросекунда - десять тактов */
#define USEC 1 /* одна микросекунда - десять тактов */
#define MSEC (1000*USEC) /* одна миллисекунда */
#define CLK_TPS 250 /* Fast Clock Ticks Per Second (every 4ms) */
#define CLK_DELAY 4000 /* Uncalibrated instructions per clock tick */

13
BESM6/besm6_tty.c
View file

@ -161,8 +161,8 @@ t_stat tty_reset (DEVICE *dptr)
/* Готовность устройства в READY2 инверсная, а устройство всегда готово */
/* Провоцируем передачу */
PRP |= CONS_CAN_PRINT[0] | CONS_CAN_PRINT[1];
return sim_activate (tty_unit, 1000*MSEC/300);
// return sim_clock_coschedule (tty_unit, 5*tmr_poll);
//return sim_activate_after (tty_unit, 1000*MSEC/300);
return sim_clock_coschedule (tty_unit, tmr_poll);
}
/* 19 р ГРП, 300 Гц */
@ -225,8 +225,8 @@ t_stat vt_clk (UNIT * this)
/* Опрашиваем сокеты на передачу. */
tmxr_poll_tx (&tty_desc);
return sim_activate (tty_unit, 1000*MSEC/300);
// return sim_clock_coschedule (this, 5*tmr_poll);
// return sim_activate_after (tty_unit, 1000*MSEC/300);
return sim_clock_coschedule (this, tmr_poll);
}
t_stat tty_setmode (UNIT *u, int32 val, char *cptr, void *desc)
@ -996,8 +996,9 @@ int vt_getc (int num)
} else {
/* Ввод с клавиатуры. */
c = sim_poll_kbd();
if (c == SCPE_STOP)
if (c == SCPE_STOP) {
return 0400; /* прерывание */
}
if (! (c & SCPE_KFLAG))
return -1;
}
@ -1136,7 +1137,7 @@ void vt_receive()
}
if (tty_typed[num] < 0) {
/* TODO: обработать исключение от "неоператорского" терминала */
sim_interval = 0;
// sim_interval = 0;
break;
}
if (tty_typed[num] <= 0177) {

10
BESM6/dispak.ini
View file

@ -1,5 +1,4 @@
! rm -f log.txt
set console log=log.txt
set -n console log=log.txt
set console debug=log
;set cpu debug
;set mmu debug
@ -9,9 +8,8 @@ set console debug=log
;
; Приводим барабаны в исходное состояние.
;
! rm -f drum1x.bin drum2x.bin
attach drum0 drum1x.bin
attach drum1 drum2x.bin
attach -n drum0 drum1x.bin
attach -n drum1 drum2x.bin
;
; Создаем рабочий диск.
@ -43,7 +41,7 @@ attach tty1 /dev/tty
;
;set tty1 jcuken,authbs
set tty1 authbs
set tty1 log=tty1.txt
set -n tty1 log=tty1.txt
;
; Разрешаем подключение пользователей по telnet, порт 4199.