Важная информация

User Tag List

Страница 5 из 14 ПерваяПервая 123456789 ... ПоследняяПоследняя
Показано с 41 по 50 из 140

Тема: Реконструкция CGLIB для использования из OMSI Pascal

  1. #41
    Veteran Аватар для Oleg N. Cher
    Регистрация
    24.08.2007
    Адрес
    Днепропетровская обл.
    Сообщений
    1,080
    Спасибо Благодарностей отдано 
    372
    Спасибо Благодарностей получено 
    26
    Поблагодарили
    19 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Норм библиотека, но с картинками не работает. Хотя объектник я бы поглядел, чтобы не велосипедить.

    Цитата Сообщение от hobot Посмотреть сообщение
    ??? с чего ты взял ???
    А, не хочешь? Ну как хочешь. Ты сам где-то тут писал, что хотел бы с картинками работать из Паскаля.

  2. #42
    Guru
    Регистрация
    07.10.2007
    Адрес
    п.Пудость Гатчинского р-на Лен.обл.
    Сообщений
    2,396
    Спасибо Благодарностей отдано 
    98
    Спасибо Благодарностей получено 
    165
    Поблагодарили
    107 сообщений
    Mentioned
    12 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    Другая найденная на просторах версия LIBR работает так, как и указано в документации. Вызываю её так:

    rt11.exe RUN LIBR CGLIB=CG001,CG002,CG003,CG004,CG005,CG006

    При попытке добавить ,CG007 либр кочевряжится (видимо, количество символов ограничено). С этой версией я не понял как добавлять в существующую библиотеку, она всегда пересоздаёт.
    В командной строке CSI передаются максимум шесть файлов. Если надо больше, то программы обычно поддерживают ключ //.
    А зачем такие сложности. Лучше в RT-11 собрать, удобнее.
    Код:
    LIBRARY         Создание и обслуживание объектных и макро библиотек
    
    
      SYNTAX
            LIBRARY[/OPTIONS] библиотека файлы[/OPTIONS]
    
    
      SEMANTICS
            Библиотека - имя библиотечного файла, который создает или
            модифицируется. Файлы содержат имена файлов разделенных
            запятыми (,). По умолчанию тип выходного файла для листинга
            .LST, .MLB для макробиблиотек, и .OBJ для объектных библиотек.
            По умолчанию типы входных файлов .OBJ и .MAC.
    
    
      OPTIONS
       ALLOCATE:размер
            Резервирует место для выходного файла
       CREATE
            Создает новую объектную библиотеку
       DELETE
            Удаляет объектный модуль из библиотеки
       EXTRACT
            Извлекает объектный модуль из библиотеки и сохраняет его в OBJ-файле
       INSERT
            Вставляет объектный модуль в библиотеку
       LIST[:файл]
            Выводит каталог объектной библиотеки
       MACRO
            Создает макробиблиотеку
       NOOBJECT
            Запрещает создавать новую объектную библиотеку
       OBJECT[:файл]
            Задает имя объектной библиотеки
       PROMPT
            Выдать приглашение программы LIBR, для ввода большо числа имен
            файлов (более шести). Завершается вводом //
       REMOVE
            Удаляет заданный глобальный символ (и соответствующий модуль)
            из каталога библиотеки
       REPLACE
            Замещает существующий модуль более новым
       UPDATE
            Комбинация ключей /INSERT и /REPLACE
    
    
      EXAMPLES
            LIBRARY/CREATE NEWLIB FIRST,SECOND
            LIBRARY/EXTRACT NEWLIB MZ1:ATAN
            LIBRARY/INSERT/OBJECT:NEWLIB OLDLIB THIRD,FOURTH
            LIBRARY/LIST:TT: OLDLIB

  3. Эти 2 пользователя(ей) поблагодарили Alex_K за это полезное сообщение:

    nzeemin (10.03.2020), Oleg N. Cher (07.03.2020)

  4. #43
    Guru
    Регистрация
    30.11.2015
    Адрес
    г. Самара
    Сообщений
    3,324
    Спасибо Благодарностей отдано 
    71
    Спасибо Благодарностей получено 
    133
    Поблагодарили
    111 сообщений
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Alex_K Посмотреть сообщение
    Лучше в RT-11 собрать, удобнее.
    Я так думаю, тут вопрос в том, что есть команда RT LIBRARY (сокращённый вариант написания LIBR), а есть программа LIBR.SAV (которая запускается командой LIBRARY с передачей параметров). И если ввести LIBR - то это обращение к команде, а если R LIBR или RUN LIBR - то это запуск программы LIBR.SAV (если команда RUN LIBR FILE1 FILE2 - то это ещё и передача в LIBR .SAV строки команды LIBR2=LIBR1, то по сути это запуск в таком виде RUN LIBR FILE2=FILE1)

  5. Этот пользователь поблагодарил Hunta за это полезное сообщение:

    Oleg N. Cher (07.03.2020)

  6. #44
    Veteran Аватар для Oleg N. Cher
    Регистрация
    24.08.2007
    Адрес
    Днепропетровская обл.
    Сообщений
    1,080
    Спасибо Благодарностей отдано 
    372
    Спасибо Благодарностей получено 
    26
    Поблагодарили
    19 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Осилил реализацию Palette и SetPalette. Критика очень приветствуется.
    Код:
    PROCEDURE Palette (n: INTEGER);
    BEGIN /*$C
            .TITLE  CG004
            MOV     #^O146000, R0                    ; #CC00
            MOV     #^O167252, R1                    ; #EEAA
            TSTB    2(SP)
            BEQ     PALET$
            MOV     #^O135631, R0                    ; #BB99
            MOV     #^O177735, R1                    ; #FFDD
            DEC     2(SP)
            BEQ     PALET$
            MOV     #^O42000, R0                     ; #4400
            MOV     #^O21146, R1                     ; #2266
            DEC     2(SP)
            BEQ     PALET$
            MOV     #^O31421, R0                     ; #3311
            MOV     #^O73525, R1                     ; #7755
    PALET$: CALL    PALET
    */
    END {Palette};
    
    /*------------------------------- Cut here --------------------------------*/
    
    PROCEDURE SetPalette (c0, c1, c2, c3: INTEGER);
    BEGIN /*$C
            .TITLE  CG005
            BICB    8(SP), #^O17
            BICB    6(SP), #^O17
            MOVB    6(SP), R0
            ASH     #4, R0
            ADD     6(SP), R0
            ASH     #4, R0
            ADD     8(SP), R0
            ASH     #4, R0
            ADD     8(SP), R0
            BICB    4(SP), #^O17
            BICB    2(SP), #^O17
            MOVB    2(SP), R1
            ASH     #4, R1
            ADD     2(SP), R1
            ASH     #4, R1
            ADD     4(SP), R1
            ASH     #4, R1
            ADD     4(SP), R1
            CALL    PALET
    */
    END {SetPalette};
    
    /*$C
            .GLOBL  NEWPAL
            .GLOBL  PALET
    PALET:  MOV     R0, NEWPAL
            MOV     R1, NEWPAL+2
            MOV     #BUF0, R0
            MOV     #5, R1
            MTPS    #^O200
            BR      2$
    1$:     MOVB    (R0)+, @#^O176676
    2$:     TSTB    @#^O176674
            BPL     2$
            SOB     R1, 1$
            MTPS    #0
            RETURN
    BLK:    .WORD   ^O20*^O400, ^O32, ^O2470, NEWPAL, 2
    BUF0:   .WORD   BLK, -1
    NEWPAL: .WORD   ^B1110111011001100, ^B1010101010001000
    */
    Хотел сделать в Palette BICB #3, 2(SP) вместо TSTB 2(SP), но похоже, что оно не устанавливает флаг нуля. Или надо писать BICB 2(SP), #3 ? Или это у меня MACRO неправильный? Так нормальный же. Этот же тот, что в эмуль Патрона вшит.

    Кстати, мне так и не ответили по поводу: на PDP-11 какие операции более быстрые - с байтами или со словами?

    2 NZeemin: есть основания предположить, что Ваша утилитка rt11dsk [Jan 18 2020 07:46:18] не работает в Windows 10. Вы её там тестировали? Интересует ли больше информации по этому вопросу?

  7. #45
    Guru
    Регистрация
    07.10.2007
    Адрес
    п.Пудость Гатчинского р-на Лен.обл.
    Сообщений
    2,396
    Спасибо Благодарностей отдано 
    98
    Спасибо Благодарностей получено 
    165
    Поблагодарили
    107 сообщений
    Mentioned
    12 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    BICB 8(SP), #^O17
    Данная команда никаких полезных действия не делает.
    Oleg N. Cher, что вы хотели от этой команды?

  8. #46
    Moderator Аватар для MM
    Регистрация
    20.04.2013
    Адрес
    г. Павловский Посад
    Сообщений
    3,085
    Спасибо Благодарностей отдано 
    125
    Спасибо Благодарностей получено 
    187
    Поблагодарили
    161 сообщений
    Mentioned
    20 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    на PDP-11 какие операции более быстрые - с байтами или со словами?
    Смотря для какой конкретной М-ЭВМ.
    Для 1801ВМ1 - одинаково.
    ВМ2 - целесообразно работать со словами.
    ВМ3 на МС1201 - чипсет имеет очень медленную поддержку байтовых операций в ДОЗУ .
    Блог : http://collectingrd.kxk.ru/ . В ЛС прошу не писать, все сообщения MMTEMA@MAIL.RU

  9. Этот пользователь поблагодарил MM за это полезное сообщение:

    Oleg N. Cher (11.03.2020)

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

  11. #47
    Оператор ДВК Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    6,076
    Спасибо Благодарностей отдано 
    1,456
    Спасибо Благодарностей получено 
    147
    Поблагодарили
    128 сообщений
    Mentioned
    6 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    Ваша утилитка rt11dsk
    если пользуешься Totalom 32-bit - ставь плагин Патрона, будешь .DSK открывать как обычные архивы.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  12. #48
    Veteran Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Москва
    Сообщений
    1,336
    Спасибо Благодарностей отдано 
    255
    Спасибо Благодарностей получено 
    249
    Поблагодарили
    122 сообщений
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    2 NZeemin: есть основания предположить, что Ваша утилитка rt11dsk [Jan 18 2020 07:46:18] не работает в Windows 10. Вы её там тестировали? Интересует ли больше информации по этому вопросу?
    Я её и писал под Windows 10.
    У других работает.
    Не работает у вас - пишите в чём конкретно проблема, конкретно КАК не работает.

  13. Этот пользователь поблагодарил nzeemin за это полезное сообщение:

    hobot (11.03.2020)

  14. #49
    Veteran Аватар для Oleg N. Cher
    Регистрация
    24.08.2007
    Адрес
    Днепропетровская обл.
    Сообщений
    1,080
    Спасибо Благодарностей отдано 
    372
    Спасибо Благодарностей получено 
    26
    Поблагодарили
    19 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Alex_K Посмотреть сообщение
    Данная команда никаких полезных действия не делает.
    Oleg N. Cher, что вы хотели от этой команды?
    Лежащий на стеке по заданному смещению байт маскируется по AND #F, т.е. выделяются 4 младших бита. Это так и работает, проверено. Тут было упомянуто, что надо поменять операнды местами, но если так сделать, тогда не работает.

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

    Цитата Сообщение от hobot Посмотреть сообщение
    если пользуешься Totalom 32-bit - ставь плагин Патрона, будешь .DSK открывать как обычные архивы.
    Уже юзаю, спасибо. Мне из батника нужно.

  15. #50
    Guru
    Регистрация
    07.10.2007
    Адрес
    п.Пудость Гатчинского р-на Лен.обл.
    Сообщений
    2,396
    Спасибо Благодарностей отдано 
    98
    Спасибо Благодарностей получено 
    165
    Поблагодарили
    107 сообщений
    Mentioned
    12 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    Лежащий на стеке по заданному смещению байт маскируется по AND #F, т.е. выделяются 4 младших бита. Это так и работает, проверено. Тут было упомянуто, что надо поменять операнды местами, но если так сделать, тогда не работает.
    Всё дело в том, что команда BIC очищает заданные биты, т.е. делается операция dst := dst .and. not(src). Поэтому если вам надо оставить какие-то биты, то src надо задавать инверсным, т.е. BIC #^O177760,8(SP). Можно иначе BIC #^C^O17,8(SP).

  16. Этот пользователь поблагодарил Alex_K за это полезное сообщение:

    Oleg N. Cher (11.03.2020)

Страница 5 из 14 ПерваяПервая 123456789 ... ПоследняяПоследняя

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

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

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

Похожие темы

  1. Turbo Pascal для msx/msx2
    от Оззя в разделе MSX
    Ответов: 4
    Последнее: 23.02.2020, 23:59
  2. Ответов: 7
    Последнее: 12.12.2019, 04:12
  3. Turbo Pascal 4 и CP/M 3 для Корвета
    от litwr в разделе Корвет
    Ответов: 10
    Последнее: 26.11.2019, 04:19
  4. Язык PL/M. Возможность использования.
    от James DiGreze в разделе Программирование
    Ответов: 18
    Последнее: 15.01.2006, 12:19

Ваши права

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