PDP-11 и всё всё всё :)

[vva]

Перехватил прерывание по вектору 244, поигрался с делением аккум-аккум double, результат:
1) легальные исключения (деление на 0 и переполнение целого) - прерывание и в FEC легальные значения (соответственно 4 и 6);
2) нормальное деление (аккум-аккум) - прерывание и в FEC ненормальное значение (205, 203б 200б 175 - зависит от чисел);
3) деление 0/число - результат 0 и ПРЕРЫВАНИЯ НЕТ.

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

.RUN FTEST
Enter first value (int dec): 12
Enter second value (int dec): 144

*** Float operations ***
*** ADD 156 007400
*** SUB 132 007400
*** MUL 1728 007400
*** DIV 12 007400

*** Double operations ***
*** ADD 156 007600
*** SUB 132 007600
*** MUL 1728 007600

!!! Interrupt has been captured !!!
FEC=000205 FEA=002534

*** DIV 0 107604




.RUN FTEST
Enter first value (int dec): 144
Enter second value (int dec): 0

*** Float operations ***
*** ADD 144 007400
*** SUB 65392 007410
*** MUL 0 007404
*** DIV 0 007404

*** Double operations ***
*** ADD 144 007600
*** SUB 65392 007610
*** MUL 0 007604
*** DIV 0 007604

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

*** операция результат статусный-регистр-FPU

[Hunta]

LDCID %2.%2 так? очень удобно и читаемо

Зато чётко понятно, что это регистры, а не (возможные) ячейки памяти, как в LDCID R2,F2

Но с экраном были проблемы... По сему написал точку, чтобы с фонтами текста не возиться, потом линию ...
То есть изначально выводил текстовую часть, затем загрузка программы в КЦГД а потом графику отрисовывал и возвращал управление исходной прошивке ...
Муторно... Но стандартного интерфейса графики для КЦГД тогда не было

Я пошёл по другому пути для терминала - сделал расширение для ESC последовательности - нарисовать линию от и до - и дальше написание процедуры линии было тривиально.

чтобы с фонтами текста не возиться

Так в Графоре уже встроены шрифты, чего с ними возиться?

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

Из тестовой программы

    GRF:
      .ASCII <33>/H/<33>/J/
      .ASCII <33>/</
      .ASCII <33>/[1;190;40y/
      .ASCII <33>/[1;610;200;190;200y/
      .ASCII <33>/[1;610;40y/
      .ASCII <33>/[2;200;50;600;190y/
      .ASCII <33>/[2;200;190;600;50y/
      .ASCII <33>/[2;200;50;200;190;y/
      .ASCII <33>/[2;200;50;600;50y/
      .ASCII <33>/[2;200;190;600;190y/
      .ASCII <33>/[?2;600;50y/
      .ASCII <33>/[2;0;0;0;239;799;239;799;0;0;0y/
      .ASCII <33>/[?2l/
    GRF.LN=.-GRF

В КЦГД загружался модуль расширения, который, собстенно, и интерпретировал пришедшую последовательность. Ну а перед этим несколько вскрыл код КЦГД, чтобы понять - как сделать

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

Посмотрел код. 0 - это было выставить перо рисования в точку с координатами, 1 - нарисовать точку, а 2 - нарисовать линию, не отрывая перо, а ?2 - переместить первоначально перо, оторвав от бумаги Ну и технически, что то типа ?2;600;50 - это аналогично команде 0

[Alex]

Сделал я неправильно, но у меня очень поджимало тогда время
Шефу надо было всё ещё вчера как всегда...
Потом оказалось, что и так работает и я оказался занят совсем другими вопросами.
Например убил кучу времени на борьбу с КМД. Написал драйвер который прекрасно работал SJ/FB
Он работал и в ХМ, но, зараза, только с задачами в нижней памяти.
И только тут я прочитал, что первые КМД были с ошибкой...
А я тогда этого не знал, и не мог понять в чём дело ...
Знал бы, сделал буфер в нижней памяти. Было бы медленнее, затратнее по памяти, но работало бы...
Хотя драйвер DW переделал из драйвера для Электроники-85.
И драйвер прекрасно работал со всеми мониторами.

[Hunta]

Железо или софт?

Обещанный тест. На реальном F11 - проблем нет

.DIR HX5:

INSTAL.COM     9P 08-Jun-1985    F77   .SAV   340P 27-Jun-1985
F77COM.MSG    15P 05-Feb-1985    F77OTS.OBJ   130P 27-Jun-1985
SHORT .OBJ     1P 27-Jun-1985    F77MAP.OBJ    32P 27-Jun-1985
F77CVF.OBJ     4P 27-Jun-1985    F77EIS.OBJ     2P 27-Jun-1985
F77NER.OBJ     1P 27-Jun-1985    F77RAN.OBJ     1P 27-Jun-1985
F77TST.FOR     1P 30-Apr-1984    VIRTXM.OBJ     2P 27-Jun-1985
SYSUPD.OBJ     5P 27-Jun-1985    F77DWA.MAC     2P 06-Jun-1985
F77XM .SAV   341P 27-Jun-1985
 15 Files, 886 Blocks
 2076 Free blocks

.IND HX5:INSTAL
;
; FORTRAN-77/RT-11 Installation procedure for RX50 diskette distribution
; Version 5.0
;
; This procedure will build the working FORTRAN-77 on SY:
;
* Enter the name of the device holding the distribution files [ddn:] [S]: HX5:
;
.ASSIGN HX5: INP
.ASSIGN SY: OUP
;
; The RX50 distribution is supplied with a complete FORTRAN-77 system
; on each diskette;  disk 1 contains the SJ/FB version of the compiler
; while disk 2 holds the XM version.  If the disk that is now loaded
; does not hold the compiler that you want, replace it now with the
; other diskette.
;
* Is the correct diskette mounted and ready to go? [Y/N D:N]: Y
;
; Do you want your default system library SYSLIB.OBJ to include
;
;   1) only the RT-11 distributed SYSLIB.OBJ (unchanged)
;   2) SYSLIB plus FORTRAN-IV (FORLIB) (unchanged SYSLIB+FORLIB)
;   3) SYSLIB plus FORTRAN-77 (F77OTS) (new combined SYSLIB+F77OTS)
;
* Enter option number:  [O]: 1
;
; The F77 OTS will be copied to SY:.  The SYSLIB update modules
; in SYSUPD.OBJ will be merged into the FORTRAN-77 OTS library.
;
; Should F77OTS be given the name FORLIB.OBJ to be compatible with the
* linker's /F switch? [Y/N D:N]: Y
;
.LIBR OUP:FORLIB/CREATE INP:F77OTS.OBJ,INP:SYSUPD
;
; Copying the F77 compiler and message file to the system disk...
;
.COPY INP:(F77*.SAV,F77COM.MSG) OUP:
 Files copied:
INP:F77.SAV    to OUP:F77.SAV
INP:F77XM.SAV  to OUP:F77XM.SAV
INP:F77COM.MSG to OUP:F77COM.MSG
;
; There are several optional object modules supplied in the distribution.
; They are explained in detail in the FORTRAN-77/RT-11 Installation Guide.
;
* Do you want to copy any of the optional modules to SY:? [Y/N D:N]:
;
; This completes the FORTRAN-77/RT-11 installation.
;
@ <EOF>

.ASS HX7 DK

.DIR

TEST  .FOR     1  20-May-2023
 1 Files, 1 Blocks
 65466 Free blocks

.F77 TEST,TEST=TEST

.DAT 20-MAY-2023

.TIM 13:11

.DIR
 20-May-2023
TEST  .FOR     1  20-May-2023    TEST  .OBJ     2
TEST  .LST     3
 3 Files, 6 Blocks
 65461 Free blocks

.LINK TEST,SY:FORLIB

.RUN TEST

STOP

.

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

PDP11/23+ от forth32

Вопрос - он у него собран на основе PDP-2011 или на основе реверса Vslav-а?

[vva]

опрос - он у него собран на основе PDP-2011 или на основе реверса Vslav-а?

На основе реверса Vslav'a.

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

Однако XXDP тест FPU проходит нормально. Нужно найти текст теста и попытаться разобраться...

[Hunta]

На основе реверса Vslav'a

Тогда ОЧЕНЬ странно, вроде как тест FPP для F11 есть и, ЕМНИП, вроде как тестировалось. Или нет? Память как то настороженно про тестирование FPP

Кстати, я очень предполагал, что на реальном F11 будет всё норм - в самой команде ошибок я не увидел (ну сложно их там в ней допустить, да и F77 аналогичный код генерит), так что с самого начала грешил на FPGA-шный F11, но - мало ли.

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

Однако XXDP тест FPU проходит нормально

Тогда ещё страньше.
Попробую MACRO-овскую прогу запстить

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

MACRO-овскую прогу

А её текст где-то можно взять?

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

Однако XXDP тест FPU проходит нормально

И JKDC?? и JKDD?? ?

[vva]

И JKDC?? и JKDD?? ?

1 JKDAD1.BIC 3-MAR-83 28 000050
2 JKDBD0.BIC 3-MAR-83 52 000104
3 JKDCB0.BIC 3-MAR-83 52 000170
4 JKDDB0.BIC 3-MAR-83 32 000254
Проходят все.

А её текст где-то можно взять?

Могу переслать или сюда скопировать, но здесь "съедаются" лидирующие пробелы/табуляции.

[Hunta]

Проходят все.

Да, очень странно.
Хотя я уже налетал - только на тестах MMU (и не помню, с какой моделью проца - но в моей теме есть об этом) - тесты без проблем, а драйвер VM ругалсо.
Но раз это на основе реверса - тут только Vslav, скорее всего, сможет помочь - я с его исходниками от реверса пока не возился, в первую очередь из-за того, что они на Verilog-е

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

здесь "съедаются" лидирующие пробелы/табуляции.

Окружать тегами [ CODE ] и [ /CODE ] (пробела после [ и перед ] убрать)

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

Могу переслать

Лог

.DIR *.MAC
 20-May-2023
FTEST .MAC     8  20-May-2023    INP   .MAC    12  20-May-2023
PRTOD .MAC     5  20-May-2023
 3 Files, 25 Blocks
 65415 Free blocks

.MAC FTEST

.MAC INP
U     2                                         .MCALL  .PRINT, OCTDIS
?MACRO-E-Errors detected:  1
DK:INP=DK:INP

.MAC PRTOD

.LINK FTEST,INP,PRTOD

.RUN FTEST
Enter first value  (int dec): 10
Enter second value (int dec): 20

 *** Float operations ***
 *** ADD        30      007400
 *** SUB        10      007400
 *** MUL        200     007400
 *** DIV        2       007400
 *** NEG        65526   007410
 *** ABS        10      007400

 *** Double operations ***
 *** ADD        30      007600
 *** SUB        10      007600
 *** MUL        200     007600
 *** DIV        2       007600
 *** NEG        65526   007610
 *** ABS        10      007600

.RUN FTEST
Enter first value  (int dec): 12
Enter second value (int dec): 144

 *** Float operations ***
 *** ADD        156     007400
 *** SUB        132     007400
 *** MUL        1728    007400
 *** DIV        12      007400
 *** NEG        65524   007410
 *** ABS        12      007400

 *** Double operations ***
 *** ADD        156     007600
 *** SUB        132     007600
 *** MUL        1728    007600
 *** DIV        12      007600
 *** NEG        65524   007610
 *** ABS        12      007600

.RUN FTEST
Enter first value  (int dec): 144
Enter second value (int dec): 0

 *** Float operations ***
 *** ADD        144     007400
 *** SUB        65392   007410
 *** MUL        0       007404
 *** DIV        0       007404
 *** NEG        65392   007410
 *** ABS        144     007400

 *** Double operations ***
 *** ADD        144     007600
 *** SUB        65392   007610
 *** MUL        0       007604
 *** DIV        0       007604
 *** NEG        65392   007610
 *** ABS        144     007600

.

[vva]

А если ввести 0 12?

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

Должно быть прерывание с FEC=4

[Hunta]

.RUN FTEST
Enter first value  (int dec): 0
Enter second value (int dec): 12

 *** Float operations ***
 *** ADD        12      007400
 *** SUB        12      007400
 *** MUL        0       007404

 !!! Interrupt has been captured !!!
FEC=000004      FEA=002520

 *** DIV        12      107400
 *** NEG        0       107404
 *** ABS        0       107404

 *** Double operations ***
 *** ADD        12      007600
 *** SUB        12      007600
 *** MUL        0       007604

 !!! Interrupt has been captured !!!
FEC=000004      FEA=002520

 *** DIV        12      107600
 *** NEG        0       107604
 *** ABS        0       107604

.