RT-11 для чайников

[hobot]

Но делать её придется с помощью DESS.

Уверен, что в обычном текстовом редакторе пишется, просто я помимо
синтаксиса ещё и не уверен в адресации. Там вроде вводится константа
"адрес запуска" который устанавливает компилятору собирать программу
соответственно, поскольку адрес запуска по умолчанию 1000(восьм.) это
уже второй блок. Где то обсуждалось в темах программирования, надо
бы полистать.

[form]

вполне реально.
Но делать её придется с помощью DESS.

И делается штатной сборкой...

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

улучшить

Улучшить можно многое. Например опросить тип терминала сначала чтобы очищать не только VT52. Как вариант - не опрашивать терминал, но проверить значение редактора по умлчанию и в зависимости от K52/KED считать VT52/ANSI. А для TSX буде таковой обнаружится просто прочитать значение терминала.

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

Собственно пример - определение типа терминала в TSX, предположение типа в RT-11 по редактору, очистка экрана. Все в 1 блок без всяких DESS

.TY ERA.MAC
        .TITLE  ERASE -- ERASE VT52/ANSI TERMINAL SCREEN
        .IDENT  /V01.00/

$JSW    =:      44                      ;JOB STATUS WORD
CHAIN$  =:      400                     ;CHAIN BIT

$PROGD  =:      452                     ;DEFAULT EDITOR OFFSET
$$KED   =:      22                      ;KED EDITOR
$$K52   =:      23                      ;K52 EDITOR
$$KEX   =:      24                      ;KEX EDITOR

T.VT52  =:      1                       ;VT52 TERTMINAL
T.VT100 =:      2                       ;VT100 TERMINAL
T.VT200 =:      11                      ;VT200 TERMINAL

ESC     =:      33                      ;ECSAPE
EOL     =:      200                     ;END OF LINE (NO CRLF)

        .MCALL  .EXIT,.GVAL,.PRINT,.SERR;SYSTEM MACRO CALLS

        .ASECT
        .=$JSW
        .WORD   CHAIN$                  ;LOAD WORDS 500-777 FROM IMAGE
        .=500

START:: .SERR                           ;CATCH INVALID EMT EXCEPTION
        MOV     #AREA,R0                ;DETERMINE TSX TERMINAL TYPE
        EMT     375                     ;
        BCS     20$                     ;IF CS NOT A TSX SYSTEM
        CMP     #T.VT52,R0              ;VT52?
        BEQ     40$                     ;IF EQ YES
        CMP     #T.VT100,R0             ;VT100?
        BEQ     30$                     ;IF EQ YES
        CMP     #T.VT200,R0             ;VT200?
        BEQ     30$                     ;IF EQ YES
10$:    CLR     R0                      ;ENFORCE HARD RESET
        .EXIT                           ;EXIT
20$:    .GVAL   #AREA,#$PROGD           ;GET DEFAULT EDITOR
        CMPB    #$$K52,R0               ;K52?
        BEQ     40$                     ;IF EQ YES
        CMPB    #$$KED,R0               ;KED?
        BEQ     30$                     ;IF EQ YES
        CMPB    #$$KEX,R0               ;KEX?
        BNE     10$                     ;IF NE NO
30$:    MOV     #ANSI,R0                ;ANSI ESCAPE SEQUENCE
        BR      50$                     ;
40$:    MOV     #VT52,R0                ;VT52 ESCAPE SEQUENCE
50$:    .PRINT                          ;CLEAR THE SCREEN
        BR      10$                     ;EXIT

AREA:   .BYTE   0,137                   ;EMT AREA
        .BLKW                           ;
VT52:   .ASCIZ  <ESC>/H/<ESC>/J/<EOL>   ;VT52 SEQUENCE
ANSI:   .ASCIZ  <ESC>/[H/<ESC>/[J/<EOL> ;ANSI SEQUENCE

        .END    START


.BU ERA

.DIR ERA.SAV
 05-Mar-2016
ERA   .SAV     1  05-Mar-2016    
 1 Files, 1 Blocks
 29990 Free blocks

.

[litwr]

Ну и морока. Хотя в концепции RT-11 очистка экрана вроде бы не есть что-то правильное, как мне показалось. Система запоминает значительную часть вывода на консоль и позволяет его пролистывать и очистка экрана может как-то это ломать, так? И на RT-11 для БК0011 нет программы setup.
Уважаемый form, как там ваши кошки? Хотелось попользоваться вашей PDP и на них опять взглянуть. Если это возможно, то жду указания времени для сеанса.
Ещё вопрос. Можно ли программы для RT-11 в формате sav запускать на разных PDP-11? Попробовал запустить sav, сделанный под ОС БК-11, на эмуляторе уважаемого Patron'a - пошло. Но всегда ли так?

[form]

позволяет его пролистывать

Система этого не позволяет
Это может позволять конкретный терминал или его эмулятор. Типов терминалов которые можно подключить - одних видео около десятка с разными способами очистки экрана (причем несовместимыми - что очистит один терминал другой введет в ступор). Есть и бумажные терминалы где само понятие очистки не существует. Как быть?

[AFZ]

Но делать её придется с помощью DESS.

Зачем? Подать команду H LINK не ку? Решение в первом же экране - ключик /BOTTOM
К тому же адрес 400 - это слишком круто! Это же уже желтая зона стека.

Единственное, что хотелось бы улучшить (я просто не уверен как), можно размер исполняемого файла загнать в 1 блок?

LIN/BOT:700 CLRL

Только вот работать оно будет по 5.01 включительно - в более свежих RT-11 область до 776 занята.

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

Улучшить можно многое. Например опросить тип терминала сначала чтобы очищать не только VT52. Как вариант - не опрашивать терминал, но проверить значение редактора по умлчанию и в зависимости от K52/KED считать VT52/ANSI. А для TSX буде таковой обнаружится просто прочитать значение терминала.

Можно еще проще: принудительно переключить терминал в VT100+, а затем в VT52. Если он это не поддерживает, то просто нарисует символы переключения. А последующая очистка в режиме VT52 сделает свое грязное (т.е. чистое) дело.

[form]

Только вот работать оно будет по 5.01 включительно - в более свежих RT-11 область до 776 занята.

Во всех будет если выставить бит CHAIN$ в $JSW.

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

принудительно переключить терминал в VT100+, а затем в VT52

Отнюдь не проще. Это ANSI последовательности, соответственно если их выполнить на VT52 - терминал останется в режиме HOLD screen. Кроме того VT52 и ANSI не единственные типы терминалов...

[AFZ]

терминал останется в режиме HOLD screen.

А я забыл, что это такое...

Кроме того VT52 и ANSI не единственные типы терминалов...

А они есть? Ни разу не видел. То есть ANSI разных была куча, но они все понимали

.ASCIZ <33>/[?2l/

как переход в эмуляцию VT52

[form]

А они есть? Ни разу не видел.

Мне довелось видеть бумажные. У нас среди прочего были какие-то видеотоны со своими последовательностями, причем у них строк вроде 16 было.

как переход в эмуляцию VT52

Да, только потом неплохо бы еще и вернуть обратно именно в тот режим в котором он был перед этим

[litwr]

3aпустил вашу программку под эмулятором уважаемого Patron'a - работает. А с ОС БК-11 вышел конфуз - там оказывается встроена команда CLS.
Хорошо бы иметь echo как в Linux, чтобы просто использовать типа echo -e \\x1b

[AFZ]

Мне довелось видеть бумажные.

Телетайп? Я тоже видел, English Only. Да еще и с перфоленточным оборудованием. То самое низкоскоростное устройство ПЛОС.

У нас среди прочего были какие-то видеотоны со своими последовательностями, причем у них строк вроде 16 было.

Так их давно не осталось. Такую ерунду из-за несовместимости выбрасывали первой. Помню, у нас тоже какой-то несовместимый Видеотон выкинули.

Да, только потом неплохо бы еще и вернуть обратно именно в тот режим в котором он был перед этим

У меня было две программы: VT100 и VT52. Каждая из них очищала экран, восстанавливала английский регистр и переключала терминал в режим, согласно своему названию. Что надо, то и вызываешь.