User Tag List

Показано с 1 по 10 из 383

Тема: RSX-11, ОСРВ, ОСРВМ

Комбинированный просмотр

Предыдущее сообщение Предыдущее сообщение   Следующее сообщение Следующее сообщение
  1. #1

    Регистрация
    15.12.2011
    Адрес
    Ульяновск
    Сообщений
    143
    Спасибо Благодарностей отдано 
    5
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Почитал документацию по CMD файлам, а то не всё было понятно и набросал такой вот порт wargames из BSD games

    Код:
    	.ENABLE SUBSTITUTION
    ;
    ; Greeting professor Falken.
    ;
    ;	   .----.
    ;	   |>_  |
    ;	 __|____|__
    ;	|  ______--|
    ;	`-/.::::.\-'
    ;	 `--------'
    ;
    	.SETS OCLI <CLI>
    	.IF OCLI <> "MCR" MCR SET /CLI=TI:MCR
    
    	.ASK [<TRUE>] DIRG To list a games
    	;
    	.ENABLE QUIET
    	.IFT DIRG PIP LB:[GAMES]*.TSK/LI
    	.DISABLE QUIET
    .ASKG:
    	.ASKS GAM Would you like to play a game
    	.TESTFILE LB:[GAMES]'GAM'.TSK
    	.IF <FILERR> = 1 .GOTO RUNG
    	;
    	; Funny, the only way to win is not to play at all.
    	.GOTO DONE
    
    .RUNG:
    	;
    	.ENABLE QUIET
    	RUN LB:[GAMES]'GAM'.TSK
    	.DISABLE QUIET
    	;
    	.GOTO ASKG
    
    .DONE:
    	;
    	.ENABLE QUIET
    	SET /CLI=TI:'OCLI'
    	.DISABLE QUIET

  2. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #2

    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,850
    Спасибо Благодарностей отдано 
    9
    Спасибо Благодарностей получено 
    289
    Поблагодарили
    233 сообщений
    Mentioned
    30 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Unik Посмотреть сообщение
    .IF OCLI <> "MCR" MCR SET /CLI=TI:MCR
    Достаточно SET /MCR=TI: (или SE MC в DCL), универсального метода нету и гарантии что любая из этих команд в текущем CLI отработает нету
    Можно задать только второй вопрос, а если на него ответили нажатием <ESC> листать каталог...
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  4. #3

    Регистрация
    15.12.2011
    Адрес
    Ульяновск
    Сообщений
    143
    Спасибо Благодарностей отдано 
    5
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Можно задать только второй вопрос, а если на него ответили нажатием <ESC> листать каталог...
    Я сначала и хотел только чтоб один вопрос был, но не догадался как сделать. Вообще этот командный язык очень ограничен, годится только инсталяторы писать.

    А как проверить что нажата <ESC>?

  5. #4

    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,850
    Спасибо Благодарностей отдано 
    9
    Спасибо Благодарностей получено 
    289
    Поблагодарили
    233 сообщений
    Mentioned
    30 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Unik Посмотреть сообщение
    Вообще этот командный язык очень ограничен, годится только инсталяторы писать.
    Вообще он и предназначен для написаний простеньких командных файлов, однако на нем написаны весьма серьезные программы с которыми современные писатели порой и на перле не справляются

    Цитата Сообщение от Unik Посмотреть сообщение
    А как проверить что нажата <ESC>?
    .IFT <ESCAPE> ...
    Предварительно нужно сделать где-нибудь .ENABLE ESCAPE
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

  6. #5

    Регистрация
    04.02.2011
    Адрес
    Киев
    Сообщений
    65
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    0
    Поблагодарили
    0 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от form Посмотреть сообщение
    Вообще он и предназначен для написаний простеньких командных файлов, однако на нем написаны весьма серьезные программы с которыми современные писатели порой и на перле не справляются
    .IFT <ESCAPE> ...
    Предварительно нужно сделать где-нибудь .ENABLE ESCAPE
    Не был здесь 3 года, рад, что фанаты PDP-11, RSX и гуру form на месте и активно работают)
    Добавлю свои 5 коп - ICP - очень неслабый интерпретатор, писал на нём очень нетривиальные модули. Для скорости работы обычно создавал небольшой виртуальный диск в памяти компа (FX: ), записывал туда ICP.TSK, вручную инсталлировал ICP не с диска, а с FX и скорость работы ICP вырастала в разы (оверлеи брались из памяти).

  7. #6

    Регистрация
    27.05.2009
    Адрес
    СССР, Новосибирск
    Сообщений
    5,850
    Спасибо Благодарностей отдано 
    9
    Спасибо Благодарностей получено 
    289
    Поблагодарили
    233 сообщений
    Mentioned
    30 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от AlexCherny Посмотреть сообщение
    ICP.TSK
    Добавлю, что в M+ оно ICM

    Цитата Сообщение от AlexCherny Посмотреть сообщение
    вырастала в разы
    Ну и кэш там есть для такого
    PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
    Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
    PMI: KDJ11-BF, MSV11-JE
    VT220, CM7209

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •