Просмотр полной версии : FOCAL
http://storage5.static.itmages.ru/i/15/1108/h_1446981945_4287046_f9ee13b95c.png
* FFFFFFFF OOOO CCCC AAAAA LL *
* FF OO OO CC CC AA AA LL *
* FF OO OO CC CC AA AA LL *
* FF OO OO CC AA AA LL *
* FFFFFF OO OO CC AA AA LL *
* FF OO OO CC AA AA LL *
* FF OO OO CC AAAAAAAA LL *
* FF OO OO CC CC AA AA LL *
* FF OO OO CC CC AA AA LL LL *
* FF OOOO CCCC AA AA LLLLLLLL *
МОСКВА МИЭТ (С) 1988.
ФРОЛОВ Г.И. И ДР. МИКРОЭВМ В УЧЕБНЫХ ЗАВЕДЕНИЯХ.
УЧЕБНОЕ ПОСОБИЕ ПОД РЕД.ПРЕСНУХИНА Л.Н., М.:ВЫСШАЯ ШКОЛА,1988. (http://irbis.sstu.ru/cgi-bin/irbis64r_13/cgiirbis_64.exe?LNG=en&Z21ID=&I21DBN=SGTU_PRINT&P21DBN=SGTU&S21STN=1&S21REF=&S21FMT=fullw_print&C21COM=S&S21CNR=&S21P01=0&S21P02=0&S21LOG=1&S21P03=K=&S21STR=%D0%B2%D0%B5%D1%80%D1%81%D0%B8%D1%8F%20%D1% 8F%D0%B7%D1%8B%D0%BA%D0%B0%20%D0%A4%D0%9E%D0%9A%D0 %90%D0%9B%20%D0%B4%D0%BB%D1%8F%20%D0%BD%D0%B0%D1%8 7%D0%B0%D0%BB%D1%8C%D0%BD%D0%BE%D0%B3%D0%BE%20%D0% BE%D0%B1%D1%83%D1%87%D0%B5%D0%BD%D0%B8%D1%8F%20%D0 %BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B 8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8E)
ИНТЕРПРЕТАТОР ЯЗЫКА ФОКАЛ V01.04 ДЛЯ МИКРОЭВМ "ЭЛЕКТРОНИКА УК НЦ"
(http://hobot.pdp-11.ru/ukdwk_archive/ukncbtlwebcomplekt/Other/FOCAL_UKNC/)
Focal_DEC
http://emulator.pdp-11.org.ru/misc/Focal_DEC.zip
http://zx-pk.ru/attachment.php?attachmentid=54805&d=1446987611
https://ru.wikipedia.org/wiki/Фокал
https://en.wikipedia.org/wiki/FOCAL_%28programming_language%29
https://en.wikipedia.org/wiki/FOCAL-69
https://en.wikipedia.org/wiki/Focal_%28HP-41%29
http://storage3.static.itmages.ru/i/15/1108/h_1446982661_4810038_93ca2e5a84.png (https://www.miet.ru/)
Обсуждение различных версий Фокала время от времени в разных темах возникали
Самое свежее на текущий момент ссылки,
http://zx-pk.ru/showthread.php?t=10718&p=839949&viewfull=1#post839949
http://zx-pk.ru/showthread.php?t=10718&p=839998&viewfull=1#post839998
http://zx-pk.ru/showthread.php?t=16861&p=837795&viewfull=1#post837795
http://zx-pk.ru/showthread.php?t=18351&p=839827&viewfull=1#post839827
теперь предлагаю всё что связано с Фокалом,
его вариантами обсуждать (и публиковать\выкладывать) в этой теме.
http://s10.rimg.info/5798dcb905c2ea67063dedecc591de45.gif
Нашёл у себя Дековский фокал, вроде пошёл. Откуда у меня он, уже не вспомнить.
http://s020.radikal.ru/i718/1511/8b/4d1a0f449ad9.jpg (http://radikal.ru/big/ca1a61fbad324f93b92ea1a97c853d7c)
Нашёл у себя Дековский фокал
?02 AT 1.10
*W
C:FOCAL-11S V1-B (8K RT-11) 08-NOV-83
1.10 X FI
1.20 T "HELLO , MIX!"
*M 1.1
X FI
*M 1.1
X FCHR[12]
*W
C:FOCAL-11S V1-B (8K RT-11) 08-NOV-83
1.10 X FCHR[12]
1.20 T "HELLO , MIX!"
*G
HELLO , MIX!*
:smile:
И в эмуляторе УК-НЦ, в целом это универсальный вариант наверное,
к нему бы описание ещё, что бы уточнить различие в граф. функциях ну и для порядка в целом.
http://storage8.static.itmages.ru/i/15/1108/s_1446990325_3710587_a2b7327d49.png (http://itmages.ru/image/view/3178962/a2b7327d)
Обязательно FOCAL8 и дистрибутив, который ранее Patron выложил в раздел ДВК прилеплю ! )
Нашёл ещё архив. (http://www.ibiblio.org/pub/academic/computer-science/history/pdp-11/rt/decus11/110447d2)
Нашёл у себя Дековский фокал,
Это собрано из того, что выложил Patron.
Я собрал ради интереса. В ZM не запускается и либо роняет все, либо выходит молча (в зависимости от варианта сборки). В SB запускается и работает, но от системы остаются рожки да ножки, хотя сразу этого и не видно...
.COP/NOPRO SY:FORLIB DK:
Files copied:
SY:FORLIB.OBJ to DK:FORLIB.OBJ
.@BLDERR
.R MACRO
*ERFCL.NHD=NHD,ERFCL
*ERFCL.EAE=EAE,ERFCL
*ERFCL.EIS=EIS,ERFCL
*ERFCL.FIS=FIS,ERFCL
*ERFCL.FPU=FPU,ERFCL
*^C
.REN ERFCL.FPU .OBJ
Files renamed:
DK:ERFCL.FPU to DK:ERFCL.OBJ
.@BLDFCL
.R MACRO
*PUB8=SMALL,PUBLIC
*FOC81=SMALL,FOCAL1
*FOC82=SMALL,FOCAL2
*FMAT8=SMALL,SINGLE,FOCMAT
*^C
.R LINK
*FOCAL8,FOCAL8=PUB8,FOC81,FOC82,FMAT8,ERFCL,FORLIB
*^C
.R MACRO
*PUBLIC=PUBLIC
*FOCAL1=FOCAL1
*FOCAL2=FOCAL2
*FMATSP=SINGLE,FOCMAT
*FMATDP=DOUBLE,FOCMAT
*^C
.R LINK
*FOCALS,FOCALS/W/B:1400=PUBLIC,FOCAL1,FOCAL2,FMATSP,ERFCL,FORLIB
*FOCALD,FOCALD/W/B:1400=PUBLIC,FOCAL1,FOCAL2,FMATDP,ERFCL,FORLIB
*^C
.
.RU FOCALS
?00 AT 0.00
*1.10 T "HI HERE, THERE, AND EVERYWHERE!"!
*G
HI HERE, THERE, AND EVERYWHERE!
*^C
.
Это собрано из того, что выложил Patron.Я лично ничего не собирал. Файл из инета, где версия Фокала V-1B. А у Патрона версия V-1С.
где версия Фокала V-1B. А у Патрона версия V-1С.
Кстати о версиях Фокала для УК-НЦ (Зеленоградского), пока нащупал 2 версии
1.02 - просто есть, отличается тем, что по кнопке "ПОМ" (ПС) - нет выхода в систему,
но не ДВКашная, работает с цветами и графическим экраном как и 1.04
1.04 - та что с описанием лежит на сайте.
Ради интереса продолжаю "дружить" с Фокалом )
Из МИЭТовской поставки, там сразу несколько обучающих
программ и демок. Запустил в версии 1.4 Фокала
в UKNCBTL программу TEST.FOC
http://smages.com/images/uknctestfo.png
И в эмуляторе Patron'а прогнал его же (там же у нас ВМ2 по умолч.)
Правда там использовал Фокал 1.2
КОНТР. ЗАДАЧА N1
ПРОВЕРКА МАТЕМАТИЧЕСКИХ ФУНКЦИЙ
ФУНКЦИЯ СИНУС
0.0175, 0.0175 ФУНКЦИЯ ВЕРНА
0.0349, 0.0349 ФУНКЦИЯ ВЕРНА
0.0523, 0.0523 ФУНКЦИЯ ВЕРНА
0.0698, 0.0698 ФУНКЦИЯ ВЕРНА
0.0872, 0.0872 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ КОСИНУС
0.9998, 0.9998 ФУНКЦИЯ ВЕРНА
0.9994, 0.9994 ФУНКЦИЯ ВЕРНА
0.9986, 0.9986 ФУНКЦИЯ ВЕРНА
0.9976, 0.9976 ФУНКЦИЯ ВЕРНА
0.9962, 0.9962 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ ТАНГЕНС
0.0175, 0.0175 ФУНКЦИЯ ВЕРНА
0.0349, 0.0349 ФУНКЦИЯ ВЕРНА
0.0524, 0.0524 ФУНКЦИЯ ВЕРНА
0.0699, 0.0699 ФУНКЦИЯ ВЕРНА
0.0875, 0.0875 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ АРКТАНГЕНС
1.2490, 1.2490 ФУНКЦИЯ ВЕРНА
0.9828, 0.9828 ФУНКЦИЯ ВЕРНА
0.7854, 0.7854 ФУНКЦИЯ ВЕРНА
0.6435, 0.6435 ФУНКЦИЯ ВЕРНА
0.5404, 0.5404 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ АРКСИНУС
0.1674, 0.1674 ФУНКЦИЯ ВЕРНА
0.3398, 0.3398 ФУНКЦИЯ ВЕРНА
0.5236, 0.5236 ФУНКЦИЯ ВЕРНА
0.7297, 0.7297 ФУНКЦИЯ ВЕРНА
0.9851, 0.9851 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ АРККОСИНУС
1.4033, 1.4034 ФУНКЦИЯ ВЕРНА
1.2310, 1.2310 ФУНКЦИЯ ВЕРНА
1.0472, 1.0472 ФУНКЦИЯ ВЕРНА
0.8411, 0.8411 ФУНКЦИЯ ВЕРНА
0.5857, 0.5857 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ ЛОГАРИФМ НАТУРАЛЬНЫЙ
- 0.6931, - 0.6931 ФУНКЦИЯ ВЕРНА
2.0149, 2.0149 ФУНКЦИЯ ВЕРНА
3.2771, 3.2771 ФУНКЦИЯ ВЕРНА
4.1510, 4.1510 ФУНКЦИЯ ВЕРНА
4.8243, 4.8243 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ ЛОГАРИФМ ДЕСЯТИЧНЫЙ
1.0000, 1.0000 ФУНКЦИЯ ВЕРНА
2.0000, 2.0000 ФУНКЦИЯ ВЕРНА
3.0000, 3.0000 ФУНКЦИЯ ВЕРНА
4.0000, 4.0000 ФУНКЦИЯ ВЕРНА
5.0000, 5.0000 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ ПОКАЗАТЕЛЬНАЯ
2.7183, 2.7183 ФУНКЦИЯ ВЕРНА
7.3891, 7.3891 ФУНКЦИЯ ВЕРНА
20.0855, 20.0855 ФУНКЦИЯ ВЕРНА
54.5981, 54.5981 ФУНКЦИЯ ВЕРНА
148.4130, 148.4130 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ КВАДРАТНЫЙ КОРЕНЬ
1.0000, 1.0000 ФУНКЦИЯ ВЕРНА
1.4142, 1.4142 ФУНКЦИЯ ВЕРНА
1.7321, 1.7321 ФУНКЦИЯ ВЕРНА
2.0000, 2.0000 ФУНКЦИЯ ВЕРНА
2.2361, 2.2361 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ 'АБСОЛЮТНАЯ ВЕЛИЧИНА'
- 9.0000, 9.0000 ФУНКЦИЯ ВЕРНА
- 8.0000, 8.0000 ФУНКЦИЯ ВЕРНА
- 7.0000, 7.0000 ФУНКЦИЯ ВЕРНА
- 6.0000, 6.0000 ФУНКЦИЯ ВЕРНА
- 5.0000, 5.0000 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ 'ЦЕЛОЧИСЛЕННАЯ'
4.0406, 4.0000 ФУНКЦИЯ ВЕРНА
7.2307, 7.0000 ФУНКЦИЯ ВЕРНА
- 0.6279, 0.0000 ФУНКЦИЯ ВЕРНА
7.2862, 7.0000 ФУНКЦИЯ ВЕРНА
4.1420, 4.0000 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ 'ЗНАКОВАЯ'
- 1.9034, - 1.0000 ФУНКЦИЯ ВЕРНА
- 2.5012, - 1.0000 ФУНКЦИЯ ВЕРНА
3.9041, 1.0000 ФУНКЦИЯ ВЕРНА
4.1534, 1.0000 ФУНКЦИЯ ВЕРНА
2.7634, 1.0000 ФУНКЦИЯ ВЕРНА
ФУНКЦИЯ,ПРОГРАММИРУЕМАЯ ПОЛЬЗОВАТЕЛЕМ-FSBR
НА ПРИМЕРЕ РЕКУРСИВНОЙ ФУНКЦИИ ВЫЧИСЛЕНИЯ ФАКТОРИАЛА
ФАКТОРИАЛ ЧИСЛА 8 = 40320.000 ФУНКЦИЯ ВЕРНА
ГЕНЕРАТОР СЛУЧАЙНЫХ ЧИСЕЛ С РАВНОМЕРНЫМ ЗАКОНОМ РАСПРЕДЕЛЕНИЯ [0,1]
МАТЕМАТИЧЕСКОЕ ОЖИДАНИЕ СЛУЧАЙНОЙ ВЕЛИЧИНЫ 0.5018
ТЕОРЕТИЧЕСКОЕ ЗНАЧЕНИЕ 0.5000
СТАНДАРТНОЕ ОТКЛОНЕНИЕ СЛУЧАЙНОЙ ВЕЛИЧИНЫ 0.2985
ТЕОРЕТИЧЕСКОЕ ЗНАЧЕНИЕ 0.2887
ВРЕМЯ ТЕСТА
13.4000 СЕКУНД
КОЛИЧЕСТВО ПРОХОДОВ 1
? СТОП - готовность к работе
*
Ещё версии Фокала с компиляцией, ДВКшный V02.02 и УКНЦшный V03.01
Jarik65535
10.11.2015, 18:26
Помнится, как-то давно перенес образ ПЗУ с фокалом из БК0010 на МС0511, написал обработчики ЕМТ и ... оно завелось и работало. Все это было сохранено на кассету и благополучно утеряно. :(
перенес образ ПЗУ с фокалом из БК0010 на МС0511
http://smages.com/images/focal0010.png
KMON>FOCAL8
?00 AT 0.00
*W
C:FOCAL-11S V1-B (8K RT-11) 10-NOV-83
*
По шапке приглашения 1 в 1 с FOCAL8,
разве что Русифицирован и назван БК0010, интересно какой объём
ФОКАЛ-БК0010 и есть ли исходники? К БК0010 и БК0010-01 прилагалось несколько книг по Фокалу, ссылки на них
в шапке добавлять не стал, как и само упоминание о БК-версии языка, поскольку БК в этом разделе рассматривается только в исключительных случаях (хотя может это и есть тот случай?) :
Электроника БК 0010-01. Программное обеспечение микро-ЭВМ язык "Фокал". Описание языка.
Микро-ЭВМ "Электроника БК 0010-01". Программное обеспечение Фокал. Руководство пользователя
Персональная ЭВМ "Электроника МС0513". Программное обеспечение. Язык Фокал. Описание языка.
Всё это можно взять например тут > http://gid.pdp-11.ru/docstable.html - где автор эмулятора
собирает документацию для всех модификаций БК.
- - - Добавлено - - -
Все это было сохранено на кассету
Да! Это важный момент - интерпретатор по сути является рабочей средой для расчётов
и машинной графики, которая не зависима и не нуждается в ОС!
- - - Добавлено - - -
нагуглил обсуждение ФОКАЛА на БК-форуме
http://bk0010.org/forum/?id=16144
- - - Добавлено - - -
Про размер интерпретатора :
Интерпретатор Фокала занимает в ПЗУ в три раза меньше места, чем
транслятор Бейсика - это одно из преимуществ такого типа исполняющих
систем.
Прошивка 058 Фокал.
http://s011.radikal.ru/i318/1511/f6/12305ffed52c.jpg (http://radikal.ru/big/f62e24780fdd482a811a3b5053d1805c)
Конфигурация в эмуляторе на подобие Бейсик НЦ, только вместо 013.dat ставим 058.dat.
P.S.Спасибо dk_spb за прошивку.
Да! Это важный момент - интерпретатор по сути является рабочей средой для расчётов
и машинной графики, которая не зависима и не нуждается в ОС!
Arseny, я всё хотел предложить помимо прочего всего, попытаться добавить в твою подборку фокал УК-НЦ,
судя по описанию загрузка с МЛ вполне возможна. Я не настаиваю, но был бы реальный эксперимент, тем
более, что у тебя там целая коллекция http://uknc.pdp-11.ru/OST/index.htm
Друзья, меня интересует формат, в котором FOCAL пишет текст программы в эмуляторе БК 0010 от gid. Где можно его найти?
lamp, я могу ошибаться, но формат внутренний у фокала (https://ru.wikipedia.org/wiki/%D0%A4%D0%BE%D0%BA%D0%B0%D0%BB) мог не меняться со времён PDP8 ?
ftp://ftp.informatik.uni-stuttgart.de/pub/cm/dec/pdp8e/soft/unf/unf09b/
Соответственно он там как одно из предлагаемых средств написания программ для инженеров -
так же и фокал под RT-11 после запуска интерпретатора более не нуждается в ОС.
Формат где читать - разбирать прямой ссылки нет.
eugenjak
17.11.2020, 01:09
Пытаюсь запустить программку на фокале на эмуляторе БК и не могу понять как. Загрузить через L G получается (EMU)
Если просто G - пишет "несуществующий номер строки". А как понять с какой строки стартовать понятия не имею.
Да и листинг не понiмаю как посмотреть.
Может у кого-то получится?
https://r-games.net/675-zapusk-igr-na-emulyatore.html - по этому описанию пробовал.
Игра: http://bk0010.narod.ru/files/YAMAHA.FOC.gz
Пытаюсь запустить программку на фокале на эмуляторе БК
здесь тема про фокал (дисковый вариант для ОС RT-11), а не про игры для БК и не про эмулятор БК !!!
eugenjak, внутри файла другое имя, переименуй в FOCYAMAHA.FOC
загрузка L G FOCYAMAHA
листинг W
Уважаемые Знатоки!
В свое время была версия FOCAL с функциями CAMAC, возможно у него просто была дополнительная библиотека.
Если кто-то встречал подобное, поделитесь, пожалуйста, ссылкой (можно для BASIC или иного языка).
rrp, Есть что-то типа (в смыле неразобранное) квасика с поддержкой КАМАК.
СИСТЕМА QUASIC-2 ДЛЯ ПРОГРАММИРОВАНИЯ
НА МИКРО-ЭВМ
РАСШИРЕНИЕ ДЛЯ CAMAC
rrp, Есть что-то типа (в смыле неразобранное) квасика с поддержкой КАМАК.
СИСТЕМА QUASIC-2 ДЛЯ ПРОГРАММИРОВАНИЯ
НА МИКРО-ЭВМ
РАСШИРЕНИЕ ДЛЯ CAMAC
Спасибо! Поскольку QUASIC не по теме - напишу в личку. :-)
shattered
19.10.2023, 00:26
Изучаю Фокалы, которые входили в КУВТ:
БК0010, ПЗУ 018
Коротко описан в "Микро-ЭВМ книга 8", стр. 133; более подробно в https://archive.org/details/focal
W ID: ФОКАЛ-БК0010
LIBRARY работает с кассетой
VACANT показывает свободную память
Нестандартные функции:
FX (чтение-запись памяти)
FP (чтение-запись порта УП)
FK (установка текстового курсора)
FT, FV (рисование точек и векторов)
FCLK (таймер; требует внешнего источника прерываний по вектору 100)
БК0010, ПЗУ 084
Вариант ПЗУ 018 с поддержкой ТЛГ (ИРПС). Исключен оператор VACANT.
Внутренняя версия МИЭТ-85.
ДВК, ПЗУ 058
Описан в "Микро-ЭВМ книга 8", стр. 34-87
Внутренняя версия МИЭТ: 1985.
W ID: Ф О К А Л
LIBRARY работает с перфолентой
OPERATE переключает ввод/вывод на терминал, перфоленту, принтер
KILL выполняет команду RESET
VERIFY запускает диагностику ЭВМ
Нестандартные функции:
FX (чтение-запись памяти)
FZCLK, FCLK (таймер)
FI, FM, FP, FD, FA, FC, FV, FL, FR, FS, FF (графика на КГД)
FCS (установка текстового курсора) -- описана на стр. 70, но в прошивке 058 ее нет
ДВК, ПЗУ 093
Упоминается в "Микро-ЭВМ книга 8", стр. 152, пока не найден
ДВК, загружаемые FOCAL1/FOCAL2, работают в RT-11
Описан в "Микро-ЭВМ книга 8", стр. 151-156, пока не найден
Совместим с версией в ПЗУ 093.
VACANT вместо VERIFY (свободная память)
нет FZCLK
итд.
При проведении археологических раскопок нашёлся интересный исходник. Начало из него:
;FOCAL-11, VERSION B2
;BY RICK MERRILL
;COPYRIGHT@ 1970,1971 BY
;DIGITAL EQUIPMENT CORP, MAYNARD, MASS.
...
И как прикол - файл с этим содержимым назывался... BASIC.P11(!) :v2_blink:
Немного позже попробую собрать и запустить :)
- - - Добавлено - - -
Вдогонку
...
.ASCII "C:FOCAL-11,PRELIM";VERSION IDENTIFIER
...
Powered by vBulletin® Version 4.2.5 Copyright © 2025 vBulletin Solutions, Inc. All rights reserved. Перевод: zCarot