PASCAL + MACRO11 (УКНЦ-ДВК).

[Oleg N. Cher]

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

[Advertiser]

[hobot]

Паскаль берёт русские строки и так

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>

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 там она называлась ВКД, внутренний код данных; при этом вместо части русских букв использовались совпадающие по начертанию латинские.

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

hobot, судя по всему вы в текст программы символы переключения алфавита добавили.

да в этом была причина, убрал, собралось сразу в OBJ, но SAV в итоге всё равно не запустился - ругнулся "замысловато" )
В общем буду экспериментировать (по мимо прочего) с Pascal-2 - вещь занятная )