Появилось время и снова посмотрел LAT, понял почему не работает.Сообщение от form
Не подумав, указал "DEFINE /DEVICE=UNA-0" но UNA-0 отключен т.к. используется драйвер IP...
А вот LCP не даёт указать другой драйвер т.е. на "DEFINE /DEVICE=IP-0-0" выдаёт синтаксическую ошибку.
Скорее всего это не-етхернетное устройство, и соответственно LAT на нем не бывает. У меня к слову устройство в принципе не указано, а как он в этом случае поступает: берет все етхернетные или первое которое найдет - дже не знаю
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
Полноценный кит BP2 V2.7, обновленный LP patch к нему (дофиксивает Y2K для 24H формата) на стакане в DU2:[KITS]. Там же патч для паскаля (в дистрибе RSX он не суппортится).
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
Вот это новость!
Как раз скоро хотел переделать узел СТЕРЕО на 11/93, поставлю на него бейсик с патчами.
Пополнил коллекцию хелловорлдовКод:>DIB HELLO,TI:=HELLO/BU HELLO Hello World 2-MAR-2016 12:25:28 RSX DIBOL-83 V1.3/0 Page 1 Data Division DU1:[FORM]HELLO.DBL;3 .TITLE "Hello World" HELLO Hello World 2-MAR-2016 12:25:28 RSX DIBOL-83 V1.3/0 Page 2 Procedure Division DU1:[FORM]HELLO.DBL;3 1 PROC 2 XCALL FLAGS(7000000) 3 OPEN(1,O:P,"TI:") 4 WRITES(1,"") 5 DISPLAY(1,"Hello, World!") 6 CLOSE(1) 7 END No errors detected >TKB @HELLO >RUN HELLO Hello, World! >
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
Почитал документацию по 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
Достаточно 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
Я сначала и хотел только чтоб один вопрос был, но не догадался как сделать. Вообще этот командный язык очень ограничен, годится только инсталяторы писать.
А как проверить что нажата <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
Теперь "CTEPEO" это 11/93 на котором пока ничего нет
Как обычно есть проблема... BQTCP/IP похоже не работает через "QNA-0"
Причем при загрузке никаких ошибок нет.
Пробовал указать как в мануале:
и не помогло.Код:CFE> DEF SYSTEM LARGE BUFFER SIZE 1500 CFE> DEF EXEC SEGMENT BUFFER SIZE 576
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием