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

[SKcorp.]

Похоже Paf Commander гасил вывод, несмотря на то, что я из него вышел.

Теперь вопрос как сделать переход по метке?

[form]

Теперь вопрос как сделать переход по метке?

В простом командном файле - никак. Это нужно создавать IND файл, но его стоит подробно изучать. Можно для примера посмотреть в исходниках IOSCAN - выкладывал где-то здесь в софте. Там есть IOSCAN.CMD - это файл для IND.

[hobot]

Теперь вопрос как сделать переход по метке?

не уверен, что такое возможно внутри обычного командного файла?
переход по метке - это уже MACRO-11 )))

[form]

Вот нашел под рукой IOSCAN.CMD... Для примера. Это не тот, что выклаывал - в том для RT-11 пример внутри.
Запускать уже командой IND file (или сначала SET KMON IND, а потом просто @file).

>TYP IOSCAN.CMD
        .ENABLE SUBSTITUTION
        .SETS DIR <UIC>
        .IFDF <DIRECT> .SETS DIR <DIRECT>

        .SETS STB "LB:'<SYSUIC>'RSX11M.STB"
        .IF <SYSTEM> = 6 .SETS STB "LB:'<LIBUIC>'RSXVEC.STB"

        .SETS CLI "MCR"
        .IFDF <CLI> .SETS CLI <CLI>
        .IF CLI = "DCL" SET MCR
        .IF CLI = "MCR" .OR .IF CLI = "DCL" .GOTO COMP

        ;
        ;CLI "'CLI'" is not supported. Please set CLI to MCR or DCL.
        ;
        .EXIT 2

.COMP:
        MAC IOSCAN=LB:[11,10]RSXMC/PA:1,[1,1]EXEMC/ML,SY:'DIR'IOSCAN
        .IF <EXSTAT> <> 1 .GOTO DONE

        .OPEN IOSCANBLD.CMD
        .DATA IOSCAN/PR:5=IOSCAN
        .DATA 'STB'/SS
        .DATA /
        .DATA ASG=TI:1
        .DATA UNITS=1
        .DATA //
        .CLOSE

        TKB @IOSCANBLD

.DONE:  .SETN STAT <EXSTAT>
        .IF CLI = "DCL" SET /DCL=TI:
        .EXIT STAT
>

[litwr]

Извиняюсь за вопрос, но как очистить экран в командной строке RT11? Ecть что-то типа досовского CLS?

[form]

Извиняюсь за вопрос, но как очистить экран в командной строке RT11?

.SETUP CLEAR

Можно определить сокращенную команду:

.CLS :== SETUP CLEAR

.ER*ASE :== SETUP CLEAR

тогда по команде CLS или ERASE (можно сократить до ER) будет очищаться экран CRT терминала.

[Advertiser]

[Patron]

.SETUP CLEAR

VT52 не очищает.

[form]

VT52 не очищает.

Ну да, оно для ANSI только. При желании можно сделать универсальную чистилку.

[hobot]

VT52 не очищает.

Я для себя накатал такую вот для ДВК-эмулятора и УК-НЦ,
чистит экран + исправляет если кодировка после последней задачи осталась в РУС.

    .TITLE    CLRL
    .ENABL    LC, MCL
    .DSABL    GBL
    .MCALL    .PRINT
    
START:    .PRINT    #GOOD
    CLR    R0
    .EXIT
GOOD:    .ASCIZ    <33>'H'<33>'J'<17>
    .END START

Единственное, что хотелось бы улучшить (я просто не уверен как),
можно размер исполняемого файла загнать в 1 блок? смещением и
как это сделать (смена адреса запуска? в общем в этом плаваю.)
В целом работает. Перемещает курсор в левый верхний угол,
очищает все строки от курсора до конца экрана, устанавливает ЛАТ.
Выход в монитор.

[MM]

Программа для RT-11 общей длиной в 1 блок - вполне реально.
Но делать её придется с помощью DESS.
Примерный текст :
000400 : 012700 000420 104351 005000 104350
000420 : коды для воспроизведения дисплеем, последовательность оканчивается на байт 000, набирать лучше в виде отображения байтов.
В ячейку 000040 занести адрес пуска программы - 000400
Может быть и заработает.