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

Цитата:

Сообщение от hobot

RT-11 если не ошибаюсь команды не могут начинаться с цифр !!!

в пользовательской программе а не ОС

Цитата:

Сообщение от hobot

я вообще не думаю что писать интерфейсы на ассемблере это удобно...

возможно вы правы:) паскаль не знаю вообще, фортран проходил 27 лет тому назад:)
так что у меня есть только macro11

Цитата:

Сообщение от hobot

готового шаблона нет и быть не может,

есть к примеру программа TSTDW в ней как раз стрелочный интерфейс, возможно имея исходник, можно было бы приспособить......

Цитата:

Сообщение от hobot

подскажу - простой карандаш и тетрадка в клетку )

:) и это в 21веке

Цитата:

Сообщение от hobot

любой простой интерфейс с выводом пунктов по координатам на экран и какой-то "курсор" управления
выбором нужного пункта - вроде бы ничего сложного.

просто - это когда знаешь-умеешь-делал-(не)получилось итд итп.....

командная строка -компактна-информативна-многовариантна, стрелки итд итп-нет:)

Цитата:

Сообщение от gfd71

так что у меня есть только macro11

это на кванте то? у вас даже "турбо-паскаль" там есть )
Си есть и OMSI-Pascal у вас то же есть - я не агитирую я факты констатирую.

Цитата:

Сообщение от gfd71

и это в 21веке

ага - самый удобный прибор при разработке любой сложности.
что бы чётко выделить какой блок уже написан и на каком этапе что куда ветвиться - простейшая блок схема ИМХО,
как же без неё???

Цитата:

Сообщение от gfd71

командная строка -компактна-информативна-многовариантна, стрелки итд итп-нет

как вы озаглавите пункт выбора режима работы настолько он и будет информативен
далее по схеме - запускается нужная процедура при выборе определённого пункта (можно отдельный файл с диска запускать, а переменных глобальных значения хранить (и контрольную копию) во внешних файлах), сама процедура может иметь входящих и вых. параметров (по ТЗ) и нужные уточнения в диалоговом режиме вводит Оператор по запросу программы. Диалоговый интерфейс. На ассемблере мне было бы муторно такое писать )

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

просто со строками работа та ещё волокита
пункт меню - выбрал - жмыкнул ввод

Цитата:

Сообщение от hobot

это на кванте то? у вас даже "турбо-паскаль" там есть )
Си есть и OMSI-Pascal у вас то же есть - я не агитирую я факты констатирую.

"у меня"- это имеется ввиду то , что хоть как то что то могу делать
а так в природе много что есть..... всё не изучишь:)

Цитата:

Сообщение от hobot

как же без неё???

Лехко. Даже на MACRO-11. Если мне нужна блок-схема - значит, я пока сам не понял, чего хочу. Значит - пишем формальное описание.

Цитата:

Сообщение от hobot

просто со строками работа та ещё волокита

Кому как.

Цитата:

Сообщение от hobot

пункт меню

попробуйте выбрать из командного файла - когда нужно автоматизировать процесс

gfd71, если меня кто не опередит - примерно через час сброшу заготовку

Цитата:

Сообщение от gfd71

есть команды сом1 сом2 сом3......сомN, также эти команды могут содержать перед собой кол-во повторов 888сом1 333сом2 222сом3......111сомN и пакетный вариант 888сом1,333сом2, 222сом3,......111сомN-

Задача для табличного разборщика который есть в RSXLIB :)
Но можно и проще подпрограммами оттуда же. Например если команды состоят из 3х букв, то можно делать так: конвертируем число, если ошибка - считаем 1, конвертируем 3 символа RSDIX-50, если ошибка - ошибка и есть, в противном случае поиск по таблице.

Цитата:

Сообщение от Hunta

если меня кто не опередит - примерно через час сброшу заготовку

буду благодарен даже если опередит:)

Цитата:

Сообщение от form

Задача для табличного разборщика который есть в RSXLIB

TRAPS-?
мне его с моим английским и прочими навыками год наверно осваивать:)

Цитата:

Сообщение от form

Но можно и проще подпрограммами оттуда же. Например если команды состоят из 3х букв, то можно делать так: конвертируем число, если ошибка - считаем 1, конвертируем 3 символа RSDIX-50, если ошибка - ошибка и есть, в противном случае поиск по таблице.

по подробней можно?

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

Цитата:

Сообщение от gfd71

TRAPS

если он, то разве в RT11 он имеется?

Цитата:

Сообщение от gfd71

если он, то разве в RT11 он имеется?

Он есть в RSXLIB для RT-11 - для того и перетаскивал туда самое полезное чтобы жизнь облегчить :)

Цитата:

Сообщение от form

Он есть в RSXLIB для RT-11

у меня вот это есть
Обновление библиотеки RSXLIB. (RSXLIB 2.0)
Добавлены макрокоманды и подпрограмма лексического
разбора строк (ISTAT$, STATE$, TRAN$). Сама библиотека
соответственно разделилась на две библиотеки:
объектную (RSXLIB.OBJ) и макробиблиотеку (RSXLIB.MLB).

Что то типа такого. Сегодня проверить, чего я там накропал - не могу, возможно, получится завтра.

Код:

; ; .PSECT DATA,RW ; ;; Имена команд ;CMD1: .ASCIZ /COM1/ ;CMD2: .ASCIZ /COM2/ ; .EVEN ;; Ссылка на процедур (порядок тот же, как и в именах команд) ;METH1: .WORD RMETH1 ;METH2: .WORD RMETH2 ; ;; Описатель - команда-процедура. Окончание - нулевое слово ;DESC: .WORD CMD1 ; .WORD METH1 ; .WORD CMD2 ; .WORD METH2 ; .WORD 0 ; ; .PSECT CODE,RO ; ; MOV #CMD, R0 ; Строка команды в формате .ASCIZ ; MOV #DESC, R1 ; Дескриптор команд-процедур ; CALL PARSE ; PARSE:: MOV R1, -(SP) ; Сохраним описатель команд LOOP: TSTB (R0) ; Дошли до конца строки команд BEQ EXIT ; Да - выход CMPB (R0), #', ; Нет. Разделитель команд? BNE NCOMMA ; Нет - дальше повторитель-команда или команда INC R0 ; Пропуск запятой BR LOOP ; Дальше по командной строке NCOMMA: CLR R3 ; Повторитель команды DIG: CMPB (R0), #'0 ; Цифра? BLO NDIG ; Нет - дальше пошла команда CMPB (R0), #'9 ; Цифра BHI NDIG ; Нет - дальше пошла команда MUL #10., R3 ; Предыдущее*10 SUB #'0, R3 ; Минус код ASCII минус код нуля MOVB (R0)+, R2 ; Очердной символ-цифра ADD R2, R3 ; Плюс следующаяя цифра в коде ASCII BR DIG ; Смотрим дальше NDIG: TST R3 ; Повторитель задан? BNE SCMD ; Да - ищем команду INC R3 ; Нет - но один раз команду выполнить надо SCMD: MOV (SP), R1 ; Описатель команд MOV R0, -(SP) ; Начало имени команды LCMD: MOV (R1)+, R2 ; Имя следующей команды. Описатель закончился? BEQ ECMD ; Да - (тут в принципе можно вставить переход на обработку ошибки) MOV (R1)+, R5 ; Процедура, её выполняющая MOV (SP), R0 ; Начало имени команды - для очередного сравнения SCMP: TSTB (R0) ; В конце строки (окончание имени команды)? BEQ CCHECK ; Да CMPB (R0), #', ; Запятая (тоже окончание имени команды)? BEQ CCHECK ; Да TSTB (R2) ; Имя команды в описателе закончилось (а в строке команды - нет)? BEQ LCMD CMPB (R0)+, (R2)+ ; Символ тот же? BEQ SCMP ; Да, продолжаем сравнение BR LCMD ; Нет - смотрим следующую команду CCHECK: TSTB (R2) ; В строке команда закончилась. А в описателе? BNE LCMD ; Нет - не та команды CALL MCMD ; Да - выполнить связанную с ней процедуру ECMD: TST (SP)+ BR LOOP EXIT: TST (SP)+ RETURN MCMD: CALL $SAVAL CALL (R5) RETURN ; ;В принципе, стандартная процедура сохранения восстановления всех регистров, ;но с этим кодом процедура становится самодостаточной. ;Можно выкинуть :) ; $SAVAL: MOV R4,-(SP) MOV R3,-(SP) MOV R2,-(SP) MOV R1,-(SP) MOV R0,-(SP) MOV 12(SP),-(SP) MOV R5,14(SP) JSR PC,@(SP)+ MOV (SP)+,R0 MOV (SP)+,R1 MOV (SP)+,R2 MOV (SP)+,R3 MOV (SP)+,R4 MOV (SP)+,R5 RETURN

спасибо:)
мне наверно тоже только завтра получится