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

User Tag List

Страница 33 из 33 ПерваяПервая ... 2930313233
Показано с 321 по 322 из 322

Тема: PASCAL + MACRO11 (УКНЦ-ДВК).

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

    По умолчанию

    Я про то, что Никита сделал утилиту, чтобы патчить .mac-файл после компиляции Паскалем именно в плане искажения строк на русском (обнуляется старший бит символов). Если Паскаль берёт русские строки и так, то зачем бы он стал это делать?

  2. #322
    Оператор ДВК Аватар для hobot
    Регистрация
    30.08.2011
    Адрес
    Зеленоград
    Сообщений
    7,155
    Спасибо Благодарностей отдано 
    2,962
    Спасибо Благодарностей получено 
    353
    Поблагодарили
    300 сообщений
    Mentioned
    12 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Oleg N. Cher Посмотреть сообщение
    Паскаль берёт русские строки и так
    Код:
    HD7>TY OLEG.PAS
    /* ПРОГРАММА "ПРИВЕТ, ОЛЕГ!" */
    PROGRAM HO;
    BEGIN
            WRITELN('ПРИВЕТ, ОЛЕГ!');
    END.
    
    HD7>PASDWK OLEG,TT:=OLEG
    
    
    .MAIN.               OMSI PASCAL-1  RT11 V1.1G 21-   -89        Page 1
    Univ. Tasmania, Info. Sciences, Physics Bldg, Hobart 7001, site #72-12
    
    LINE  STMT LEVEL  NEST   SOURCE STATEMENT
    
       1                     /* ПРОГРАММА "ПРИВЕТ, ОЛЕГ!" */
       2                     PROGRAM HO;
       3                     BEGIN
       4     1     1     1          WRITELN('ПРИВЕТ, ОЛЕГ!');
       5     2     1     1   END.
    
    ERRORS DETECTED:  0
    FREE MEMORY: 11510  WORDS
    
    ERRORS DETECTED:  0
    FREE MEMORY: 11510  WORDS
    
    HD7>TY OLEG.MAC
            .GLOBL  $RESR6,$RESR5,$KORE,$SAV10,$VER
            .GLOBL  $BEGIN,FILE,$TTY,$END
            .RADIX  10
            $VER=59.
    $BEGIN:
            JSR     %7,$B127
            .GLOBL  $B127
            MOV             #L0,-(6)
            MOV     #17,-(6)
            CLR     -(6)
            JSR     %7,$B32
            .GLOBL  $B32
            JSR     %7,$B36
            .GLOBL  $B36
            JMP     $END
    L0:     .WORD   28686
            .WORD   26994
            .WORD   25975
            .WORD   3956
            .WORD   8236
            .WORD   28430
            .WORD   25964
            .WORD   3943
            .WORD   33
            .END
    
    HD7>MAC OLEG
    
    HD7>LIN OLEG,PASDWK
    
    HD7>RU OLEG
    ПРИВЕТ, ОЛЕГ!
    
    HD7>
    Цитата Сообщение от nzeemin Посмотреть сообщение
    5. У всех символов в строках срезается верхний (7-й) бит, так что работать с КОИ-8 весьма проблематично - работаем только с ASCII или КОИ-7.
    КОИ-7 - семибитная кодировка для русского языка и обмена информацией, основанная на ASCII. КОИ-7 описана в ГОСТ 13052-67, 13052-74 и 27463-87. КОИ-7 включает в себя 3 "набора" - Н0, Н1, Н2. Н0 - это просто US-ASCII ; в Н1 все латинские буквы заменены на русские; в Н2 заглавные латинские буквы оставлены, а строчные заменены на заглавные русские.

    На практике использовался либо набор Н2 сам по себе, либо Н0/Н1 с переключением: для перехода в русский режим Н1 использовался управляющий символ 0xE SO, РУС, а для возврата в латинский Н0 - символ 0xF SI, ЛАТ. Иногда смена набора, используемого устройством, осуществлялась ручным переключателем.

    Буквы Ё не было; отсутствовала также заглавная буква Ъ для избежания потенциального конфликта с управляющим символом DELETE 0x7F. Поскольку русские буквы были размещены на позициях аналогичных латинских букв, текст оставался более-менее понятным даже при неправильно выбранном режиме.

    КОИ-7 использовалась в основном на машинах серии СМ ЭВМ и ДВК; КОИ-7 Н2 использовалась на машинно-ориентированном языке в микроЭВМ Электроника Д3-28 в виде четырёхзначного шестнадцатеричного кода, также на БЭСМ-6 там она называлась ВКД, внутренний код данных; при этом вместо части русских букв использовались совпадающие по начертанию латинские.
    - - - Добавлено - - -

    Цитата Сообщение от Alex_K Посмотреть сообщение
    hobot, судя по всему вы в текст программы символы переключения алфавита добавили.
    да в этом была причина, убрал, собралось сразу в OBJ, но SAV в итоге всё равно не запустился - ругнулся "замысловато" )
    В общем буду экспериментировать (по мимо прочего) с Pascal-2 - вещь занятная )
    Последний раз редактировалось hobot; 21.04.2021 в 10:31.
    Архив программ для УК-НЦ, ДВК и БК.

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

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

    Oleg N. Cher (21.04.2021)

Страница 33 из 33 ПерваяПервая ... 2930313233

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

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

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

Похожие темы

  1. "Исходники" Turbo Pascal нужны кому ?
    от esl в разделе Программирование
    Ответов: 2
    Последнее: 19.10.2018, 11:33
  2. Продам МС5310 блок дисководов к УКНЦ+КМД УКНЦ
    от Mad Killer/PG в разделе Барахолка (архив)
    Ответов: 7
    Последнее: 19.03.2012, 11:27
  3. в розыске дисковая версия Pascal.
    от goblinish в разделе Программирование
    Ответов: 18
    Последнее: 16.08.2011, 16:30
  4. Pascal
    от Andrew771 в разделе Программирование
    Ответов: 22
    Последнее: 24.05.2011, 21:20
  5. Скопировать/вставить из/в HiSoft Pascal в эмуляторе
    от kit в разделе Программирование
    Ответов: 1
    Последнее: 05.02.2010, 15:35

Метки этой темы

Ваши права

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