Кросс-средства для программирования под МП 1801, 1806, 588

hobot, это значит - такой вещи как "код возврата из программы" в RT-11 нет?

С ассемблера по сути не так уж трудно транслировать, там прямое соответствие. Это с Си нужно изголяться, чтобы оптимальный код получился. И "родные" компиляторы, работающие под RT-11, не дадут нормального качества кода, там генерация обычно построена на монолитном рантайме, который включается в каждую программу. А вот GCC с его механизмом библиотек способен динамически генерировать рантайм, включая только действительно необходимое. То есть потенциально мы можем получить на базе gcc-pdp11 самую идеальную в плане качества кода среду для кросс-разработки под PDP-11.

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

.END - это директива, за которой скрывается машинная команда (или команды). Я точно не знаю что там именно, надо дизассемблировать такой .sav, благо, это можно сделать с помощью IDA Pro. Попробую.

Цитата:

---

Сообщение от Oleg N. Cher

hobot, это значит

---

Олег, да не программер я ! Я не знаю что такое "код возврата". )
Вот ты бы почитал SYSMAC.HLP раз собрался что то ваять под RT-11 ведь
от штатных директив и запросов всё равно не денешься )))

Ты просил минимальную, на макро-11 и что бы просто выходила в систему, я ей в первой же строке написал "конец" без указания стартовой метки, не уверен что во всех вариантах монитора она заработает, может под каким нибудь вариантом трапниться, но под SJ работает так как я описал.

Выход в систему осуществляется грамотно наверное вот так:

Код:

---

5.3.12. .EXIT
        ЗАПРОС .EXIT ВЫЗЫВАЕТ ОКОНЧАНИЕ  ВЫПОЛНЕНИЯ  ПРОГРАММЫ
  ПОЛЬЗОВАТЕЛЯ И ПЕРЕДАЕТ УПРАВЛЕНИЕ KMON.
        ПЕРЕД ВЫХОДОМ ИЗ ПРОГРАММЫ ВЫПОЛНЕНИЕ  ВСЕХ  ИНИЦИИРО-
  ВАННЫХ ОПЕРАЦИЙ ВВОДА-ВЫВОДА И /ИЛИ ПОДПРОГРАММ  ЗАВЕРШЕНИЯ
  БУДЕТ ЗАКОНЧЕНО. ВСЕ НЕВЫПОЛНЕННЫЕ ЗАПРОСЫ  .MRKT  И  .CMKT
  БУДУТ АННУЛИРОВАНЫ.
        ЕСЛИ ЧАСТЬ ФОНОВОЙ ПРОГРАММЫ ЗАНИМАЕТ  ОБЛАСТЬ  ПАМЯТИ
  KMON И USR, ТО ОНА БУДЕТ ЗАПИСАНА В  БЛОКИ  ДЛЯ  ВРЕМЕННОГО
  ХРАНЕНИЯ ДАННЫХ НА СИСТЕМНОЕ УСТРОЙСТВО  (ЕСЛИ  РАНЕЕ  БЫЛА
  ВЫПОЛНЕНА КОМАНДА SET EXIT SWAP). ПОСЛЕ ЭТОГО  KMON  И  USR
  ЗАГРУЖАЮТСЯ В ПАМЯТЬ И УПРАВЛЕНИЕ ПЕРЕДАЕТСЯ  КЛАВИАТУРНОМУ
  МОНИТОРУ. ЕСЛИ БЫЛА ВЫПОЛНЕНА КОМАНДА SET EXIT  NOSWAP,  ТО
  ПРОГРАММА ПОЛЬЗОВАТЕЛЯ ПРОСТО ПЕРЕЗАПИСЫВАЕТСЯ.
        ЕСЛИ R0 = 0 ВО ВРЕМЯ ВЫПОЛНЕНИЯ .EXIT, ТО  ВЫПОЛНЯЕТСЯ
  ОПЕРАЦИЯ  АНАЛОГИЧНАЯ  .HRESET,  ЗАПРЕЩАЮЩАЯ  ПОСЛЕДУЮЩЕЕ
  ВЫПОЛНЕНИЕ КОМАНД REENTER, START ИЛИ CLOSE.
        ЗАПРОС .EXIT ПОЗВОЛЯЕТ ПРОГРАММЕ ПЕРЕДАТЬ КОМАНДЫ КЛА-
  ВИАТУРНОМУ МОНИТОРУ, ИСПОЛЬЗУЯ ЯЧЕЙКИ 500-777, ДЛЯ ИХ  ПОС-
  ЛЕДУЮЩЕГО ВЫПОЛНЕНИЯ. ДЛЯ ЭТОГО НЕОБХОДИМО:
        1) ЯЧЕЙКА 510 ДОЛЖНА СОДЕРЖАТЬ ОБЩЕЕ КОЛИЧЕСТВО БАЙТОВ
  В КОМАНДЕ, КОТОРАЯ БУДЕТ ПЕРЕДАНА KMON;
        2) КОМАНДЫ ЗАПИСЫВАЮТСЯ, НАЧИНАЯ С ЯЧЕЙКИ 512;  СТРОКА
  ДОЛЖНА БЫТЬ ЗАПИСАНА В СИМВОЛАХ КОИ-7 И НЕ ДОЛЖНА СОДЕРЖАТЬ
  ВК ИЛИ ПС ; НАПРИМЕР:
      .=510
      .WORD B-A
  A:  .ASCIZ /COPY A.MAC W.MAC/
      .ASCIZ /DELETE A.MAC/
  B=  .
        3) ПРОГРАММА ПОЛЬЗОВАТЕЛЯ ДОЛЖНА УСТАНОВИТЬ 5  ИЛИ  11
  РАЗРЯД В ССЗ ПЕРЕД ВЫПОЛНЕНИЕМ .EXIT; СОДЕРЖИМОЕ R0  ДОЛЖНО
  БЫТЬ НУЛЕВЫМ.
        КОГДА ЗАПРОС .EXIT ИСПОЛЬЗУЕТСЯ  ДЛЯ  ПЕРЕДАЧИ  КОМАНД
  НЕОБХОДИМО УЧИТЫВАТЬ СЛЕДУЮЩЕЕ:
        1) ЕСЛИ ЭТО СВОЙСТВО ИСПОЛЬЗУЕТСЯ ПРОГРАММОЙ,  КОТОРАЯ
  ВЫЗЫВАЕТСЯ С ПОМОЩЬЮ КОСВЕННОГО ФАЙЛА, ТО ВСЕ КОМАНДЫ  СЛЕ-
  ДУЮЩИЕ В КОСВЕННОМ ФАЙЛЕ  ЗА  КОМАНДОЙ,  ИНИЦИИРУЮЩЕЙ  ПУСК
  ЭТОЙ ПРОГРАММЫ, ВЫПОЛНЯТЬСЯ НЕ БУДУТ;
        2) КОСВЕННЫЙ ФАЙЛ МОЖЕТ  БЫТЬ  ВЫЗВАН,  ИСПОЛЬЗУЯ  ЭТО
  СВОЙСТВО, ТОЛЬКО В ТОМ СЛУЧАЕ ЕСЛИ ПЕРЕДАВАЕМАЯ KMON СТРОКА
  СОДЕРЖИТ ЕДИНСТВЕННУЮ СПЕЦИФИКАЦИЮ ФАЙЛА; ПОПЫТКА  ПЕРЕДАЧИ
  НЕСКОЛЬКИХ КОСВЕННЫХ ФАЙЛОВ ИЛИ КОМБИНАЦИЙ КОСВЕННЫХ ФАЙЛОВ
  С ДРУГИМИ КОМАНДАМИ KMON ПРИВОДИТ К НЕПРАВИЛЬНЫМ  РЕЗУЛЬТА-
  ТАМ;
        3) .EXIT В ПОДПРОГРАММЕ ЗАВЕРШЕНИЯ  НЕДОПУСТИМ.  ЗАМЕ-
  ТИМ, ЧТО ЗАПРОС .EXIT ИЗМЕНЯЕТ ТЕКУЩЕЕ ПОЛОЖЕНИЕ  УКАЗАТЕЛЯ
  СТЕКА.
        ФОРМАТ МАКРОКОМАНДЫ: .EXIT
  ПРИМЕР.
          .TITLE  EXIT.MAC
  ;В ЭТОМ ПРИМЕРЕ, ПОСЛЕ ЗАВЕРШЕНИЯ ПРОГРАММЫ,
  ;КЛАВИАТУРНОМУ МОНИТОРУ ПЕРЕДЕТСЯ КОМАНДНАЯ
  ;СТРОКА НА ПЕЧАТЬ СПРАВОЧНИКА УСТРОЙСТВА DK:
          .MCALL  .EXIT
  CHNIF$  = 4000
  JSW    = 44
 
  START:  MOV    #510,R0
          MOV    #CMDSTR,R1
          MOV    #START,SP
 
  1$:    MOVB    (R1)+,(R0)+
          CMP    R1,#CMDEND
          BLO    1$
          BIS    #CHNIF$,@#JSW ;УСТАНОВИТЬ 11-ЫЙ РАЗРЯД
                                ;В JSW
        CLR    R0            ;В R0 ДОЛЖЕН БЫТЬ 0
          .EXIT
 
  CMDSTR: .WORD  CMDEND-CMDSTR ;ДЛИНА КОМАНДНОЙ СТРОКИ
          .ASCIZ  "DIRECT/FULL *.MAC" ;КОМАНДНАЯ СТРОКА
  CMDEND:
          .EVEN
          .END    START

---

А вот сейчас и напишем прогу "Окончание работы " :
В DESS.SAV разместить в адресе 000040 число 001000, а в адресе 001000 - число 104350 (8). Так же надо разместить в адресе 000360 число 000360 ( 8 ). Остальные ячейки заполнить "000000".
Файл создать командой .CR/ST:1234 X.SAV/ALL:2
Где - 1234 - восьмеричный блок диска RT-11, с которого начинается новый файл.
X.SAV - имя файла.
2 - размер файла в блоках.
*
Можно прогу ( в 001000 адресе ) подраздуть :
010700 062700 000010 104351 104350 062520 067156 071551

Видишь как всё шустро и оптимально!!! ) А ты говоришь, родная среда же! )

Цитата:

---

А вот сейчас и напишем прогу "Окончание работы "

---

1000 - это стартовый адрес и уже как-бы "второй блок", помниться как то минималку в 1 блок впихивали )

В 1 блок - запросто. В RT-11 формате .SAV достаточно свободны адреса 000400...000770 ( 8 ).
Тогда патчим :
в адресе 000040 ставим 000400
И весь текст переписываем в адрес 000400 ( 8 ) .
Получится ограничится 1 шт. блоком.
*
В настоящий оригинальный DESS.SAV V5.00 встроен примитивный ассемблер - без всяких там макросов.

Цитата:

---

Сообщение от Oleg N. Cher

надо дизассемблировать такой .sav, благо, это можно сделать с помощью IDA Pro.

---

Олег - не надо там ничего нет внутри кроме макро-команды "конец" )))

Вот тебе пожалуйста SAV файл в честном DESS (!). (не ММ который набил, а который из одной команды .END "ради шутки", но по твоему
запросу согласись?)

Код:

---

первые пол блока

BLCK=000000/000000.  ADDR=000000/000000          TYPE=WORDS        DESS V05.00e
000/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
020/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
040/ 000001 001000 000000 000000 000776 000000 000000 000000 *........~.......*
060/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
100/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
120/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
140/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
160/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
200/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
220/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
240/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
260/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
300/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
320/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
340/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
360/ 000200 000000 000000 000000 000000 000000 000000 000000 *................*

STACK  :  000000 000000 000000 000000 000000 000000 000000 000000 000000

MACRO-11:  HALT

вторые пол блока

BLCK=000000/000000.  ADDR=000760/000760          TYPE=WORDS        DESS V05.00e
400/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
420/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
440/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
460/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
500/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
520/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
540/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
560/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
600/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
620/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
640/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
660/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
700/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
720/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
740/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
760/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*

STACK  :  000000 000000 000000 000000 000000 000000 000000 000000 000000

MACRO-11:  HALT

---

Цитата:

---

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

Олег - не надо там ничего нет внутри кроме макро-команды "конец" )))

Вот тебе пожалуйста SAV файл в честном DESS (!). (не ММ который набил, а который из одной команды .END "ради шутки", но по твоему
запросу согласись?)

Код:

---

первые пол блока

BLCK=000000/000000.  ADDR=000000/000000          TYPE=WORDS        DESS V05.00e
000/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
020/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
040/ 000001 001000 000000 000000 000776 000000 000000 000000 *........~.......*
060/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
100/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
120/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
140/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
160/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
200/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
220/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
240/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
260/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
300/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
320/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
340/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
360/ 000200 000000 000000 000000 000000 000000 000000 000000 *................*

STACK  :  000000 000000 000000 000000 000000 000000 000000 000000 000000

MACRO-11:  HALT

вторые пол блока

BLCK=000000/000000.  ADDR=000760/000760          TYPE=WORDS        DESS V05.00e
400/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
420/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
440/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
460/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
500/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
520/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
540/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
560/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
600/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
620/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
640/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
660/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
700/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
720/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
740/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*
760/ 000000 000000 000000 000000 000000 000000 000000 000000 *................*

STACK  :  000000 000000 000000 000000 000000 000000 000000 000000 000000

MACRO-11:  HALT

---

---

Ну не знаю, либо DESS окончательно загнулся, либо текст программы - фейк.
И почему это в 000040 адресе содержится кол ? По моему, процессор пошлет в лес такой текст. :v2_dizzy_christmas:

Цитата:

---

либо текст программы - фейк.

---

как бы вот протокол того что открыто DESSом выше :

Код:

---

.DIR NOP
 21-Nov-2014
NOP  .MAC    1  21-Nov-2014    NOP  .OBJ    1  21-Nov-2014
NOP  .SAV    1  21-Nov-2014
 3 Files, 3 Blocks
 52865 Free blocks

.TY NOP.MAC
        .END


.MAC NOP

.LIN/RU NOP

.

---

Как то так.

наверное Олега ещё больше запутали )))
Повторюсь, не под SJ возможно будет трапиться, а возможно нет ))) Я не знаю )))

Вариант более правильный, наверное как-то так:

Код:

---

.mac NOP

.LIN/RU NOP

.^С

.TY NOP.MAC
START:  NOP
        CLR    R0
        EMT    350
        .END    START

.

---

вот этот второй уже 2 блока SAV понятное дело будет весить )))

Видимо, кол в 40 адресе означает неисполняемый программный модуль - по типу дровишек.
Сейчас плохо помню, но программу из одного ЕМТ350 сделать нельзя - надо хоть какой-нибуть кусочек "мяса" приделать - например, NOP. Тогда и автоматическая функция завершения сработает.
*
А никак нельзя назначить начальный адрес меньше 1000 ? Например 400 ?

Цитата:

---

но программу из одного ЕМТ350 сделать нельзя

---

под SJ всё можно, только MACRO.SAV ругнётся что нет .END )))

Мы тут такой офф-топ устроили жуткий, пора завязывать, а тему
"самая короткая программа" ради интереса можно тут продолжить обсуждать в любое время, в теме по MACRO-11 + PASCAL например )))

---------- Post added 22.11.2014 at 00:12 ---------- Previous post was 21.11.2014 at 23:45 ----------

Вот поиском нашёл запрос про SAV файлы - и это вряд ли единственный )))
http://zx-pk.ru/showpost.php?p=584286&postcount=89