Похоже Paf Commander гасил вывод, несмотря на то, что я из него вышел.
Теперь вопрос как сделать переход по метке?
Вид для печати
Похоже Paf Commander гасил вывод, несмотря на то, что я из него вышел.
Теперь вопрос как сделать переход по метке?
В простом командном файле - никак. Это нужно создавать IND файл, но его стоит подробно изучать. Можно для примера посмотреть в исходниках IOSCAN - выкладывал где-то здесь в софте. Там есть IOSCAN.CMD - это файл для IND.Цитата:
Сообщение от SKcorp.
не уверен, что такое возможно внутри обычного командного файла?Цитата:
Сообщение от SKcorp.
переход по метке - это уже MACRO-11 )))
Вот нашел под рукой 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
>
Извиняюсь за вопрос, но как очистить экран в командной строке RT11? Ecть что-то типа досовского CLS?
Цитата:
Сообщение от litwr
Можно определить сокращенную команду:Код:.SETUP CLEAR
тогда по команде CLS или ERASE (можно сократить до ER) будет очищаться экран CRT терминала.Код:.CLS :== SETUP CLEAR
.ER*ASE :== SETUP CLEAR
VT52 не очищает.Цитата:
Сообщение от form
Ну да, оно для ANSI только. При желании можно сделать универсальную чистилку.Цитата:
Сообщение от Patron
Я для себя накатал такую вот для ДВК-эмулятора и УК-НЦ,Цитата:
Сообщение от Patron
чистит экран + исправляет если кодировка после последней задачи осталась в РУС.
Единственное, что хотелось бы улучшить (я просто не уверен как),Код:.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 блок? смещением и
как это сделать (смена адреса запуска? в общем в этом плаваю.)
В целом работает. Перемещает курсор в левый верхний угол,
очищает все строки от курсора до конца экрана, устанавливает ЛАТ.
Выход в монитор.
Программа для RT-11 общей длиной в 1 блок - вполне реально.
Но делать её придется с помощью DESS.
Примерный текст :
000400 : 012700 000420 104351 005000 104350
000420 : коды для воспроизведения дисплеем, последовательность оканчивается на байт 000, набирать лучше в виде отображения байтов.
В ячейку 000040 занести адрес пуска программы - 000400
Может быть и заработает.