Программирование на УКНЦ зачем?

[Oleg N. Cher]

Всегда хотелось мне создать такую вот тему ;-) Сам не знаю зачем. Ностальжи по УКНЦ замучило.



В архиве DSK и исходники: Durak.zip

[Advertiser]

[Titus]

Программирование на УКНЦ зачем?

В основном для творчества и развлекухи.

[Oleg N. Cher]

Ну как и для Спека. Да, тема вполне интересная.

[hobot]

а где ещё паскалить от души и для души???

[Hunta]

Modula-2 лучше Паскаля

[hobot]

В архиве DSK и исходники:

ЭТО конечно очень щедро, но к исходникам обычно прилагается
командный файл для сборки конечного .SAV или инструкции, это
не я придумал, это даже не традиция, это повсеместно так -
можешь сам смотреть - архив общедоступен.

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

и что это за тормознутая прорисовка??? ) УК-НЦ рисует моментально спрайты - ты издеваешься???
Чем ты эту картинку выводишь??? Ха! Какая-то полная извини хрень!!! ))) Кому это надо, с такой скоростью работы?

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

и что это за тормознутая прорисовка??? ) УК-НЦ рисует моментально спрайты - ты издеваешься???
Чем ты эту картинку выводишь??? Ха! Какая-то полная извини хрень!!! ))) Кому это надо, с такой скоростью работы?

поглядел исходник - это мощно конечно, BMP с диска сразу на экран!!!
Вьювер?

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

Modula-2 лучше

О! Напомнили, с диска от Кванта который в теме про Модулу2

Image  :   РЈ1.0002501.РњР”20.dsk

Format :   DSK : RT-11
Size   :   800 Kb

Volume ID: FODOS
Owner    : 

File       Blocks    Date       Bytes
---------- ------ ----------- ----------
SWAP  .SYS    26P 31-Dec-1988     13'312
TT    .SYS     2P 31-Dec-1988      1'024
DW    .SYS     4P 31-Dec-1988      2'048
LP    .SYS     2P 31-Dec-1988      1'024
MY    .SYS     3P 07-Dec-1989      1'536
LD    .SYS     8P 31-Dec-1988      4'096
VM    .SYS     3P 31-Dec-1988      1'536
MX    .SYS    10P 03-Jan-1990      5'120
SL    .SYS    13P 31-Dec-1988      6'656
PC    .SYS     2P 31-Dec-1988      1'024
FMONSJ.SYS    72P 31-Dec-1988     36'864
NL    .SYS     2P 31-Dec-1988      1'024
FX    .SYS     6P 15-Feb-1990      3'072
RE    .SYS     2P 31-Dec-1988      1'024
DIR   .SAV    19P 31-Dec-1988      9'728
PIP   .SAV    29P 31-Dec-1988     14'848
DUP   .SAV    45P 31-Dec-1988     23'040
DUMP  .SAV     9P 31-Dec-1988      4'608
RESORC.SAV    22P 31-Dec-1988     11'264
K13   .SAV    55P 31-Dec-1988     28'160
SIPP  .SAV    21P 31-Dec-1988     10'752
DATIME.SAV     3P 31-Dec-1988      1'536
STARTS.COM     1P 31-Dec-1988        512
TESTMY.SAV    16P 31-Dec-1988      8'192
TIMER .SAV     1P 31-Dec-1988        512
MODULA.M2S     9P 19-Aug-1985      4'608
COMINT.M2S     8P 19-Aug-1985      4'096
COMP  .LOD     9P 19-Aug-1985      4'608
RESIDE.SYM     2P 04-Apr-1985      1'024
SYSTEM.SYM     2P 04-Apr-1985      1'024
TTIO  .SYM     1P 04-Apr-1985        512
RTS   .M2S     6P 15-Aug-1985      3'072
LINK  .LOD    42P 19-Aug-1985     21'504
NEWSTR.LNK     4P 04-Apr-1985      2'048
FILENA.LNK     4P 17-Jun-1985      2'048
OPTION.LNK     3P 22-May-1985      1'536
FILEPO.LNK     1P 04-Apr-1985        512
FILELO.LNK     3P 04-Apr-1985      1'536
WRITES.LNK     1P 04-Apr-1985        512
CONVER.LNK     2P 04-Apr-1985      1'024
STORAG.LNK     2P 04-Apr-1985      1'024
CSTORA.LNK     2P 04-Apr-1985      1'024
BIGSTO.LNK     1P 04-Apr-1985        512
CLOCK .LNK     1P 04-Apr-1985        512
INOUT .LNK     6P 30-May-1985      3'072
STREAM.LNK     3P 30-May-1985      1'536
SYSGEN.MOD    25P 04-Apr-1985     12'800
SYSLDA.MOD    15P 04-Apr-1985      7'680
DECLNK.MOD    71P 04-Apr-1985     36'352
DECLOD.MOD    25P 04-Apr-1985     12'800
MODULA.SAV    14P 19-Aug-1985      7'168
M2CINI.M2C    15P 19-Aug-1985      7'680
M2CP1 .M2C    53P 19-Aug-1985     27'136
M2CP2 .M2C    52P 19-Aug-1985     26'624
M2CP3 .M2C    46P 19-Aug-1985     23'552
M2CP4 .M2C    52P 19-Aug-1985     26'624
M2CP5 .M2C    25P 19-Aug-1985     12'800
M2CSYM.M2C    14P 19-Aug-1985      7'168
M2CLIS.M2C     9P 19-Aug-1985      4'608
LOADER.SYM     2P 04-Apr-1985      1'024
FILES .SYM     3P 04-Apr-1985      1'536
PDP11 .SYM     4P 04-Apr-1985      2'048
EXCEPT.SYM     2P 04-Apr-1985      1'024
NEWSTR.SYM     2P 04-Apr-1985      1'024
FILENA.SYM     1P 04-Apr-1985        512
OPTION.SYM     1P 04-Apr-1985        512
FILEPO.SYM     1P 04-Apr-1985        512
FILELO.SYM     1P 04-Apr-1985        512
WRITES.SYM     1P 04-Apr-1985        512
CONVER.SYM     1P 04-Apr-1985        512
STORAG.SYM     1P 04-Apr-1985        512
BIGSTO.SYM     1P 04-Apr-1985        512
CLOCK .SYM     1P 04-Apr-1985        512
INOUT .SYM     2P 30-May-1985      1'024
STREAM.SYM     2P 30-May-1985      1'024
< UNUSED >   656                 335'872
---------- ------ ----------- ----------
 75 Files, 930 Blocks
 656 Free blocks

там сам файл запуска среды MODULA.SAV отличается и размером и запросом после запуска, но он норм. стартует, нужно только присвоить системе лог. имена по которым он ищет ресурсы свои, ПКМ это логично, я попробовал - он запустился, имена я брал из пакета, который удалось запустить ранее (см. соотв. тему)

[Hunta]

с диска от Кванта который в теме про Модулу2

жалкие клочки от поставки Модулы-2

[hobot]

жалкие клочки от поставки Модулы-2

дискету ты предоставил, 19-20-21, если помнишь, есть дополнение - кидай разберёмся )

[Oleg N. Cher]

ЭТО конечно очень щедро, но к исходникам обычно прилагается
командный файл для сборки конечного .SAV

Ха. Это странно от тебя слышать, Хобот. Ты же паскалишь уже годы и годы!
Ты же хардкорщик и не любишь спортивного кодирования на эмулях, сам же сказал. Ну ладно, вот тебе инструкция:

rt11.exe RUN PASDWK CGLIB.PAS CGLIB.MAC
rt11.exe RUN PASDWK DURAK.PAS DURAK.MAC

rt11.exe MACRO CGLIB.MAC
rt11.exe MACRO DURAK.MAC

\rt11.exe RUN LINK DURAK,CGLIB,PASDWK AK.SAV

При попытке переименовать AK.SAV в DURAK.SAV линкер начинает косячить. Это пока непонятно.

А мои батники для запуска компиляции и линковки тебе лучше даже не видеть. Хотя могу выложить, если пообещаешь не ругаться матом ;-) У меня всё под XDev заточено, чтобы из-под неё собирать одной кнопкой. Только автоматизировать вызов старинных утилит трудно, особенно универсальным образом.

и что это за тормознутая прорисовка??? ) УК-НЦ рисует моментально спрайты - ты издеваешься???

А ты не заметил, что он рисует по мере подгрузки с дискеты? Прорисовка может и моментальная, но чтение тормозное. Удивляешь ты меня, вроде уже столько ковыряешься с УКНЦ...

поглядел исходник - это мощно конечно, BMP с диска сразу на экран!!!
Вьювер?

Да, но он не универсальный - заточен только под цвета именно этой одной картинки.

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

Modula-2 лучше Паскаля

С этим я соглашусь, ровно так же, как и с тем, что Оберон лучше Модулы, а Оберон-2 лучше Оберона, а Компонентный Паскаль лучше Оберона 2. Такие дела. Но мы пока не видели нормальной Модулы, которая дала бы на выходе .SAV размером в 3 блока. Вот будет - тогда поглядим.

И вообще, это вы, хардкорщики, должны учить типа нас, зелёных, правильной Модуле-2 ;-) Как её готовить и всё такое.

[Hunta]

Но мы пока не видели нормальной Модулы, которая дала бы на выходе .SAV размером в 3 блока.

У виртовской реализации есть нюанс - она на выходе выдаёт не .sav файл. И то, что она выдаёт - из под RT не запустишь. Но можно сделать standalone файл. К нему будет добавка - run time system. Исходно в нём достаточно много всякого, но технически можно сделать, что бы получился мелкий файл. До какого предела я доходил - не помню, давно это было.
К тому же был у этой реализации и более крутой недостаток - компилятор выдавал код, который использовал исключительно абсолютную адресацию. Я начинал с этим разбираться, но исходный пакет был переделан под RSX-11M-Plus - из за этого с некоторыми нюансами - под RT без переделок не взлетит. Да и не было доведено до конца - ни run time, ни компилятор. Но задумка была интересной - было сделана своеобразная Modula-2 OS, программа вообще ничего не знала про RSX, все обращения были к Modula-2 OS (а она уже выдавала запросы к RSX). Заброшено только это было. Может и доделаю - просто ради прикола.