Всегда хотелось мне создать такую вот тему ;-) Сам не знаю зачем. Ностальжи по УКНЦ замучило.
http://i.piccy_.info/i9/6d0083a4e17d...0134/DURAK.png
В архиве DSK и исходники: Вложение 71699
Вид для печати
Всегда хотелось мне создать такую вот тему ;-) Сам не знаю зачем. Ностальжи по УКНЦ замучило.
http://i.piccy_.info/i9/6d0083a4e17d...0134/DURAK.png
В архиве DSK и исходники: Вложение 71699
В основном для творчества и развлекухи.Цитата:
Сообщение от Oleg N. Cher
Ну как и для Спека. Да, тема вполне интересная.
а где ещё паскалить от души и для души???
Modula-2 лучше Паскаля
ЭТО конечно очень щедро, но к исходникам обычно прилагаетсяЦитата:
Сообщение от Oleg N. Cher
командный файл для сборки конечного .SAV или инструкции, это
не я придумал, это даже не традиция, это повсеместно так -
можешь сам смотреть - архив общедоступен.
- - - Добавлено - - -
и что это за тормознутая прорисовка??? ) УК-НЦ рисует моментально спрайты - ты издеваешься???
Чем ты эту картинку выводишь??? Ха! Какая-то полная извини хрень!!! ))) Кому это надо, с такой скоростью работы?
- - - Добавлено - - -
поглядел исходник - это мощно конечно, BMP с диска сразу на экран!!!Цитата:
Сообщение от hobot
Вьювер?
- - - Добавлено - - -
О! Напомнили, с диска от Кванта который в теме про Модулу2Цитата:
Сообщение от Hunta
там сам файл запуска среды MODULA.SAV отличается и размером и запросом после запуска, но он норм. стартует, нужно только присвоить системе лог. имена по которым он ищет ресурсы свои, ПКМ это логично, я попробовал - он запустился, имена я брал из пакета, который удалось запустить ранее (см. соотв. тему)Код: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
жалкие клочки от поставки Модулы-2Цитата:
Сообщение от hobot
дискету ты предоставил, 19-20-21, если помнишь, есть дополнение - кидай разберёмся )Цитата:
Сообщение от Hunta
Ха. Это странно от тебя слышать, Хобот. Ты же паскалишь уже годы и годы!Цитата:
Сообщение от hobot
Ты же хардкорщик и не любишь спортивного кодирования на эмулях, сам же сказал. Ну ладно, вот тебе инструкция:
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 заточено, чтобы из-под неё собирать одной кнопкой. Только автоматизировать вызов старинных утилит трудно, особенно универсальным образом.
А ты не заметил, что он рисует по мере подгрузки с дискеты? Прорисовка может и моментальная, но чтение тормозное. Удивляешь ты меня, вроде уже столько ковыряешься с УКНЦ...Цитата:
Сообщение от hobot
Да, но он не универсальный - заточен только под цвета именно этой одной картинки.Цитата:
Сообщение от hobot
- - - Добавлено - - -
С этим я соглашусь, ровно так же, как и с тем, что Оберон лучше Модулы, а Оберон-2 лучше Оберона, а Компонентный Паскаль лучше Оберона 2. Такие дела. Но мы пока не видели нормальной Модулы, которая дала бы на выходе .SAV размером в 3 блока. Вот будет - тогда поглядим.Цитата:
Сообщение от Hunta
И вообще, это вы, хардкорщики, должны учить типа нас, зелёных, правильной Модуле-2 ;-) Как её готовить и всё такое.
У виртовской реализации есть нюанс - она на выходе выдаёт не .sav файл. И то, что она выдаёт - из под RT не запустишь. Но можно сделать standalone файл. К нему будет добавка - run time system. Исходно в нём достаточно много всякого, но технически можно сделать, что бы получился мелкий файл. До какого предела я доходил - не помню, давно это было.Цитата:
Сообщение от Oleg N. Cher
К тому же был у этой реализации и более крутой недостаток - компилятор выдавал код, который использовал исключительно абсолютную адресацию. Я начинал с этим разбираться, но исходный пакет был переделан под RSX-11M-Plus - из за этого с некоторыми нюансами - под RT без переделок не взлетит. Да и не было доведено до конца - ни run time, ни компилятор. Но задумка была интересной - было сделана своеобразная Modula-2 OS, программа вообще ничего не знала про RSX, все обращения были к Modula-2 OS (а она уже выдавала запросы к RSX). Заброшено только это было. Может и доделаю - просто ради прикола.
Чего ты мне приписываешь то что я никогда нигде не говорил? Окстись!!!Цитата:
Сообщение от Oleg N. Cher
Я всем втенд.риваю про эмулятор ДВК и сам им пользуюсь с момента его появления - ты гонишь или троллишь?
Мне лично твоя инструкция по барабану, посмотри на дистрибутивы системы к каждому исходнику идёт .com файл - и так на каждом уровне потом, и даже школьники к своим исходниками прикладывали .com что бы самим потом не вспоминать нде там что и к чему. Лично повторяю - оно вообще по барабану.
да он вообще никакой! Там интересна только идея из исходника под RSX Хунты - читать файл от конца к началу.Цитата:
Сообщение от Oleg N. Cher
Ну напиши чего получше. Я после трёх дней освоения УКНЦ вполне им доволен)