Эмулятор RT-11

[litwr]

Если что, вот вильнюсский Бейсик. На ДВК работает молча. Точно не помню, но, вроде-бы, именно он на ДВК с КГД работал с графикой.

Пошел этот бейсик в эмуляторе. Очень Вам благодарен.

- - - Добавлено - - -

Весьма состоятельны

Опять демагогию разводите.

[Advertiser]

[Hunta]

Опять демагогию разводите

Не я первый начал

[litwr]

Не я первый начал

Прямо вы человек-генератор-загадок. О чем это вы? Что начал? Когда? Я свою позицию всегда разъясняю, а вы темните много.

[Patron]

Я свою позицию всегда разъясняю

В данной теме это лишнее.

[litwr]

В данной теме это лишнее.

Может Вы тогда объясните, что Hunta имеет в виду? Он тут понаписал много комментов, которые совсем ни о чем. А про разъяснение написал потому как вроде надо ответить человеку, а как ответить, если непонятно, о чем он пишет?

[nzeemin]

Patron, я смотрю, Jonathan Harston портировал свой BBC Basic под этот эмулятор:
https://mdfs.net/Software/PDP11/BBCB...ocs/RT11Em.htm

Но он там жалуется на какую-то ошибку установки флагов:

I had to add a workaround for a bug in RT11Em.
After MOV Rn,-(sp) RT11Em fails to set NE/EQ correctly. On all other PDP11 platforms tested, EQ/NE is set correctly.

[Patron]

Но он там жалуется на какую-то ошибку установки флагов

Действительно, в эмуляторе RT-11 для отдельных часто встречающихся кодов операций применены выборочные оптимизации, которых нет в эмуляторе PDP-11, и для команд вида MOV Rn,-(SP) как раз используется отдельный программный код для каждого из регистров:

void CPU11::Cmd_010046( word )
{// MOV R0,-(SP)
	
	SP -= 2;
	WordWrite( SP, R0 );

	PSW &= ~(V|Z|N);

	if( (signed short)R0 < 0 )
	{
		PSW |= N;
	}
	else
	if( R0 == 0 )
	{
		PSW |= Z;
	}
}

Тогда как в универсальном эмуляторе используется общий код для всех регистров, который выполняется дольше:

		  if( nWord <= 017777 )
		  {
			byte nOp1 = (nWord & 07700)>>6;

			word wOperand1;
			WordRead0(  nOp1, wOperand1 );
			
			// MOV

			WordWrite2( nWord & 077, nOp1, wOperand1 );
			
			PSW &= ~(V|Z|N);

			if( (signed short) wOperand1 < 0 )
			{
				PSW |= N;
			}
			else
			if( wOperand1 == 0 )
			{
				PSW |= Z;
			}

			continue;  //  goto RETURN_TRUE;
		  }

На первый взгляд - оба варианта кода должны работать одинаково.

...

Ошибка найдена (и она впечатляет своей эпичностью):

void CPU11::Cmd_010146( word )
{// MOV R1,-(SP)
	
	SP -= 2;
	WordWrite( SP, R1 );

	PSW &= ~(V|Z|N);

	if( (signed short)R1 < 0 )
	{
		PSW |= N;
	}
	else
	if( R0 == 1 )		// Должно быть if( R1 == 0 )
	{
		PSW |= Z;
	}
}

- - - Добавлено - - -

...

Исправленная версия эмулятора: RT-11_Emulator_16.01.2022

[andrews]

Пошел этот бейсик в эмуляторе. Очень Вам благодарен.

воистину пошел. И в отличие от буржуйского basic.sav нормально выводит
print sin(1). Другие функции пока не попробовал.

Попробовал.

Гиперболических точно нет, только программой. И log(x) дает значение как ln(x), а последнего нет.

Еще есть ограничение для вложенных функций. sin(sin(x)) работает, а sin(sin(sin(x))) уже нет - пиши программу.

Графики тоже нет?