PASCAL + MACRO11 (УКНЦ-ДВК).

[hobot]

Различные версии PASCAL, FAST-PASCAL, стандартные и дополнительные библиотеки функций и процедур.
Советы от программистов (если не лень им будет), полезные ссылки (проявляем инициативу), обсуждения (по настроению), программы (разгрузим немного тему программирования). УК-НЦ замечательная машинка для тех кто решит программировать на паскале ради собственного удовольствия (хобби).

К этому моменту в архиве и моём "личном" хламничке, и на этом форуме,
так или иначе опубликованы различные версии транслятора PASCAL.SAV и
библиотеки процедур и функций к нему PASCAL.OBJ. Очевидно что пара этих файлов зависимы друг от друга. В этой теме я постараюсь собрать ссылки на разбросанные по архиву и форуму различные версии системного паскаля, выложить т.н. "Учебный паскаль" в двух его реализациях, а именно:
ТЕКСТОВО-СИМВОЛЬНОЙ - для ДВК и УК-НЦ и с графическим интерфейсом от ИТО - он (если не ошибаюсь) работал только на УК-НЦ.

Конечно и обязательно будет тут и вариант УК-НЦ > ДВКашного "турбо-паскаля", независимой среды очень близкой к борланд-паскалю по философии и названиям типовых модулей (DOS - для работы с файловой системой, GRAPH - для работы с графикой). Старшая версия из известных мне имеет номер 2.2 и доработана была в Питере, затем включена в комплект поставки ПО для УК-НЦ "Альтернатива-2 УК-НЦ".

И наверное с него и следует начать, поскольку он по своему очень интересен. Но в рамках этой темы конечно невозможно будет (по ситуации) обойти вниманием и ассемблер, поскольку программы на паскале редко обходятся без т.н. "макро-вставок" - процедур и функций написанных на макро-11.


Спасибо.

pascal сборник для эмулятора ДВК.

Различные версии и полезные ссылки !

[Advertiser]

[hobot]

Fast-Pascal v2.2 в составе пакета "Альтернатива-2"
>http://archive.pdp-11.org.ru/ukdwk_archive/ukncbtlwebcomplekt/ARS/NSK/NSK083.DSK<
>http://archive.pdp-11.org.ru/ukdwk_archive/ukncbtlwebcomplekt/ARS/NSK/NSK084.DSK<

>http://hobot.pdp-11.ru/ukdwk_archive/ukncbtlwebcomplekt/ARS/NSK/<
>http://zx.pk.ru/showpost.php?p=306895&postcount=1<

Fast-Pascal v1.1(1.2-?) исходники и полное описание
>http://archive.pdp-11.org.ru/ukdwk_archive/ukncbtlwebcomplekt/PASCALFAST/<
>http://hobot.pdp-11.ru/ukdwk_archive/ukncbtlwebcomplekt/PASCALFAST/<

Поскольку прилепленные к сообщению архивы с вариантами транслятора
у меня находятся на одном диске - некоторые файлы для привычной работы
нужно просто переименовать, присвоив им стандартные имена.

omsi-pascal v1.1G >http://zx.pk.ru/showpost.php?p=544006&postcount=94<
Адос pascal Полетаева на основе OMSI-PASCAL >http://zx.pk.ru/showpost.php?p=545716&postcount=285<


в архиве pascal.rar


в архиве pascal_SM4.rar - файлы надо переименовать


вариант (копия) Адос-Паскаля от Полетаева в архиве ados_var.rar


в архиве pasSM4_VAR.rar - отличается размерами и процедурой трансляции.



В рамках этой темы предлагаю любые обсуждения связанные с программированием, другими версиями трансляторов, системным, стандартным и дополнительным библиотекам, Фортран и Си ,так же немаловажные языки программирования на УК-НЦ и ДВК, заслуживают отдельной темы наверное?

[El_Ju]

Для ДВК был графический Паскаль. Не в том плане, что работал с графикой, а что рисовался граф программы, компилировался и после уже получался текст на Паскале. Далее стандартно. По такой технологии была сделана РДБ Микро. Я еще надеюсь когда-нибудь это увидеть :-). Заодно с исходниками самой РДБ. :-))). Кое какие сведения можно найти тут: http://alex.krsk.ru/.
Кстати, FAST-Pascal удалось побороть только после заглядывания в описание работы Турбо Паскаля (V3 который). Без этого одолеть текстовый редактор не получалось ;-).

[hobot]

Без этого одолеть текстовый редактор не получалось ;-).

Получалось ) У меня во всяком случае, в спокойной домашней обстановке - путём подсматривания вот в это приложение документации :

 1
			   - 146 -




					     ПРИЛОЖЕНИЕ	 1



	     КРАТКИЙ СПРАВОЧНИК	КОМАНД РЕДАКТОРА



						   TАБЛИЦАъ1
 ------------------------------------------------------------
 :КЛАВИША ИЛИ	:	  ВЫПОЛНЯЕМОЕ  ДЕЙСТВИЕ		    :
 :ПОСЛEДОВАТЕЛЬ-:					    :
 :НОСТЬ	КЛАВИШ	:					    :
 ------------------------------------------------------------
 :		:	ПЕРЕМЕЩЕНИЕ ПО ТЕКСТУ		    :
 :		:					    :
 : СТРЕЛКА	:  ПЕРЕДВИЖЕНИЕ	МАРКЕРА	НА 1 ПОЗИЦИЮ:ВПРАВО :
 : ВПРАВО	:					    :
 : СТРЕЛКА	:				     ВЛЕВО  :
 : ВЛЕВО	:					    :
 : СТРЕЛКА	:				     ВВЕРХ  :
 : ВВЕРХ	:					    :
 : СТРЕЛКА	:				     ВНИЗ   :
 : ВНИЗ		:					    :
 : <GOLD>	:  МАРКЕР В КОНЕЦ СТРОКИ		    :
 : СТРЕЛКА	:					    :
 : ВПРАВО	:					    :
 : <GOLD>	:  МАРКЕР В НАЧАЛО СТРОКИ		    :
 : СТРЕЛКА	:					    :
 : ВЛЕВО	:					    :
 : <GOLD>	:  МАРКЕР НА 12	СТРОК ВВЕРХ		    :
 : СТРЕЛКА	:					    :
 : ВВЕРХ	:					    :
 : <GOLD>	:  МАРКЕР НА 12	СТРОК ВНИЗ		    :
 : СТРЕЛКА	:					    :
 : ВНИЗ		:					    :
 : <GOLD>"4"	: УСТАНОВИТЬ ТЕКУЩУЮ ПОЗИЦИЮ НА	КОНЕЦ ФАЙЛА :
 : <GOLD>"5"	: УСТАНОВИТЬ ТЕКУЩУЮ ПОЗИЦИЮ НА	НАЧАЛО ФАЙЛА:
 :		:					    :
 :		:	 КОРРЕКТИРОВКА ТЕКСТА		    :
 :		:					    :
 : <ЗБ>		:  УДАЛЕНИЕ 1 СИМВОЛА СЛЕВА ОТ ТЕКУЩЕЙ	    :
 :		:  ПОЗИЦИИ				    :
 : <GRAY>	:  УДАЛЕНИЕ 1 СИМВОЛА СПРАВА ОТ	ТЕКУЩЕЙ	    :
 :		:  ПОЗИЦИИ				    :
 : <ВК>		:  ВСТАВКА СИМВОЛА КОНЦА СТРОКИ	СЛЕВА	    :
 :		:  ОТ ТЕКУЩЕЙ ПОЗИЦИИ			    :
 : <GOLD><ЗБ>	:  УДАЛЕНИЕ ВСЕХ СИМАОЛОВ СПРАВА ОТ ТЕКУ-   :
 :		:  ЩЕЙ ПОЗИЦИИ С УДАЛЕНИЕМ СИМВОЛА КОНЦА    :
 :		:  СТРОКИ				    :
 : <GOLD><GRAY>	:  ТО ЖЕ БЕЗ УДАЛЕНИЯ СИМВОЛА КОНЦА СТРОКИ  :
 :		:					    :
 1
			   - 147 -




 :		:	  РАБОТА С УЧАСТКАМИ ТЕКСТА	    :
 :		:					    :
 : <GOLD>"W"	:  ОТМЕТИТЬ НАЧАЛО УЧАСТКА ТЕКСТА	    :
 : <GOLD>"В"	:					    :
 : <GOLD>"N"	:  ОТМЕТИТЬ КОНЕЦ УЧАСТКА ТЕКСТА	    :
 : <GOLD>"Н"	:					    :
 : <GOLD>"У"	:  УДАЛИТЬ ОТМЕЧЕННЫЙ УЧАСТОК ТЕКСТА	    :
 : <GOLD>"К"	:  СКОПИРОВАТЬ ОТМЕЧЕННЫЙ УЧАСТОК ТЕКСТА    :
 :		:  В ТЕКУЩУЮ ПОЗИЦИЮ			    :
 : <GOLD>"П"	:  ПЕРЕМЕСТИТЬ ОТМЕЧЕННЫЙ УЧАСТОК ТЕКСТА    :
 :		:  В ТЕКУЩУЮ ПОЗИЦИЮ			    :
 : <GOLD>"С"	:  СБРОС ОТМЕТОК ГРАНИЦ			    :
 :		:					    :
 :		:	 ДРУГИЕ	ВОЗМОЖНОСТИ РЕДАКТОРА	    :
 :		:					    :
 : <GOLD>"8"	:  ПОИСК ОБРАЗЦА ПО ТЕКСТУ		    :
 : <GOLD>"7"	:  ВХОД	В РЕДАКТИРОВАНИЕ ДРУГОГО ФАЙЛА	    :
 : <GOLD>"^"	:  ПЕРЕКЛЮЧЕНИЕ	РЕЖИМОВ	"РУС" И	"ЛАТ"	    :
 : <CTRL/W>	:  РЕГЕНЕРАЦИЯ ЭКРАНА			    :
 : <CTRL/Y>	:  ВЫХОД ИЗ РЕДАКТОРА			    :
 ------------------------------------------------------------

[hobot]

Мне совершенно ничего не известно о данном продукте, а самое главное
совершенно не помню откуда он взялся у меня на ЖД. В любом случае в
архиве NBSPAS.RAR(исходя из очень подробного авторского описания) содержится всё необходимое что-бы собрать и использовать данную версию. Полный архив прилепил к сообщению и добавил в раздел ДВК в папку NBSPASCAL

RELEASE NOTES - тут же в архиве README.rar

                               RELEASE NOTES
                               -------------

             NBS Pascal Version 1.6iec  January 1986 for RT11
<..>
2.0  OPERATING SYSTEM SUPPORT 


     For  historical  and  financial  reasons,  this compiler has only been
implemented under RT11.  It has been used successfully with  many  versions
RT11 and TSX+.  
<..>
4.0  BUILDING THE SYSTEM 


     The files contained within this release include the following logical
discs:

PASDOC.DSK

   PASGUI.DOC - Original documentation for NBS Pascal (version 1.6i)
	which should be read first.

   PASDOC.DOC - Description of general improvements to NBS by Earl Chew

<..>

[hobot]

Штука в том, что в этом архиве помимо всего прочего присутсвует уже собранный PASCAL.OBJ, странный файл PCL.SAV - который ищет PASCAL.SAV строго на устройстве SY: . И вот такой документ :

1) distributiwnye fajly nahodqtsq na magnitnoj lente.  w  zawisimosti 
   ot togo,na  kakoj lentoprotqvke postawlena distributiwnaq lenta, 
   otwet polxzowatelq movet bytx mt0, mt1 i  t.d. 
2) pri  generacii neobhodimo imetx dostato~no mesta na diske(okolo 1000 
   blokow,velatelxno neprerywnyh),na kotorom  budut sozdawatxsq  wremen-
   nye fajly).
                        rekomendaciq. 
        predlagaem pered generaciej programmoj DSKINT sozdatx 
        na  DK1: li~nyj disk, zatem, smontirowaw ego komandoj 
        MOUNT, sozdatx  na nem programmoj REAKT katalog polx -
        zowatelq [1,2],w kotorom i  budut sozdawatxsq wremennye 
        fajly.
3) dlq translqtora(PASCAL.SAV) neobhodimo neprerywnoe prostranstwo 58-59
   blokow,dlq biblioteki(PASCAL.OBJ) neobhodimo 73 - 90  nepreryw-
   nyh blokow.

Содержимое архива PASCALD.RAR

\PascalD

[.]          PAS0.OBJ     PAS9.OBJ     PASFOR.SAV   PCL.SAV      SYSF4.OBJ
[..]         PAS1.OBJ     PASA.OBJ     PASFPP.OBJ   PCLRAF.PAS   SYSLIB.OBJ
CSI.PAS      PAS2.OBJ     PASB.OBJ     PASFPP.SAV   PDBIOR.PAS   SYSMAC.SML
ERROR.PAS    PAS3.OBJ     PASCAL.HLP   PASIMP.PAS   PDGRAF.PAS   VOC.PAS
HYPHEN.PAS   PAS4.OBJ     PASCAL.OBJ   PASIMP.SAV   PDHANO.PAS   VOCE.PAS
INTRPT.PAS   PAS5.OBJ     PASCGN.PGN   PASPRF.OBJ   PDRAND.PAS   
MACEIS.SAV   PAS6.OBJ     PASEIS.OBJ   PASPRF.PAS   PDROMA.PAS   
MACSIM.SAV   PAS7.OBJ     PASFIS.OBJ   PASSIM.OBJ   SRCCOM.SAV   
ODT.OBJ      PAS8.OBJ     PASFOR.PAS   PASSIM.SAV   STRING.PAS   
              48 File(s)        774158 bytes

     Total Files Listed:
              48 File(s)        774158 bytes

В целом как есть прилепил сюда и в раздел ДВК.
Да же не уверен, что уже не выкладывал это и вполне возможно и в архиве давно лежит.

[hobot]

---------------------------------------------------------------
			Учебный ПАСКАЛЬ
---------------------------------------------------------------
Имя программы:PSC.SAV

Запуск программы:
MX1>R PSC или 
MX1>RU PSC


		КОМАНДЫ МОНИТОРА


NEW			- Создание нового файла.

EDIT			- Вызов редактора текста.

COMP 			- Компиляция.

RUN			- Запуск программы на выполнение.

OLD < Имя файла >	- Чтение файла с диска.

SAVE < Имя файла >	- Запись файла на диск.

TRACE			- Трассировка программы

BYE			- Выход.




		КОМАНДЫ РЕДАКТОРА ТЕКСТА  * EDIT *

<ПС>	- Курсор на начало следующей строки.

<ВК>	- Курсор на начало или конец строки.

<УДАЛ>	- Удалить символ.

<ВСТ>	- Вставить символ.

<ПРЕД>
<КАДР>	- Предыдущая страница.

<СЛЕД>
<КАДР>	- Следующая страница.

<НТ>	- В начало текущей страницы.

<ЗБ>	- Удалить символ.

<ПФ1>	- Вставить строку.

<ПФ2>	- Удалить строку.

<ПФ4>	- Удалить символы правее курсора. 

Су/ц	- Выход.

Вроде бы успешно запускается и работает в UKNCBTL.

<ПС> - Курсор на начало следующей строки.

Только вот если с ПФ понятно, какая кнопка на УК-НЦ вместо ПС?
Без неё конечно набить тестовую программку не получится никак
Образ дискеты содержит :

Image  :   PSC.dsk

Format :   DSK 
Size   :   800 Kb

Volume ID: RT11A
Owner    : 

File       Blocks    Date       Bytes
---------- ------ ----------- ----------
PSC   .SAV    60  19-Oct-1993     30'720
PSC   .LST     3  31-Dec-1999      1'536
< UNUSED >  1523                 779'776
---------- ------ ----------- ----------
 2 Files, 63 Blocks
 1523 Free blocks

Впрочем для УК-НЦ был(есть) собственный вариант "Учебного Паскаля",
с графическим интерфейсом пользователя от издателя ИТО. Этот образ
добавил в раздел ДВК в папку PSC. - пускай отдельно там полежит(повесит).

[hobot]

Как я уже писал связка PASCAL+MACRO очень удобное и правильное
решение для уменьшения размера исполняемого файла и увеличения
скорости работы программы в целом. Да и многие вещи удобнее писать
на ассемблере (по многим причинам). Поэтому, пользуясь случаем,
здесь повесим ссылку на описание языка Ассемблера для ДВК, что бы
было под рукой и не терялось из виду.

>MACRO-11 в библиотеке<

[El_Ju]

Получалось ) У меня во всяком случае, в спокойной домашней обстановке - путём подсматривания вот в это приложение документации :

С инструкцией почти любой справиться . У меня от описания был только огрызок, примерно, 20..120 странички. А описание стандартного Паскаля тут мало чем помогает.

[hobot]

С инструкцией почти любой справиться

От стандартного конечно ничем, согласен. Но у меня ситуация была такая, что версию 1.1 мне принёс один мощный Зеленоградский программист - полный пакет (с доками) на одной дискете. Его тогда прислали сюда с целью начинать внедрять в школах, как-то так. А вот борланд-паскаль - мне точно негде было подглядеть ))) Я только слышал тогда про "крутой" - "турбо-паскаль", но ПиСи был недосягаем.
Были у разрабов в студии несколько машинок и в классах университета (я ещё не поступил тогда), но помните такую вещь как "машинное время", кто ж его предоставил бы "пареньку с улицы". ) А вот, что доработали FAST-PASCAL до версии 2.2 я узнал только когда дискеты добытые Арсением изучал.
Такие дела.