Вид для печати
Приглашаю Гуру кодов и строк попрактиковаться в программировании под RT-11 в MACRO.SAV .
Например, имеется задача написать малогабаритный фрагмент , реализующий функцию записи на диск участка ОЗУ с адреса 020000 до адреса 040000. При запуске процесса должно запрашиваться имя файла, а по завершению проводится диагностика возможных ошибок - например, нет места на диске, аппаратный сбой и т.п.
Прошу приводить примеры кода.:v2_dizzy_coder:
КомандаЦитата:
Сообщение от MM
запишет в файл XXX.BIN содержимое ОЗУ с адреса 0 по адрес 40000 ( пишет всегда с адреса 0 ).Код:SAVE XXX.BIN 20000-40000
Если хочется иметь обязательно файл с 20000 по 40000 - надо дать следующие команды:
Код:SAVE XXX.BIN 0-40000
DEL XXX.BIN
CREA 000.BIN/ALL:16.
CREA XXX.BIN/ALL:16.
DEL 000.BIN
Имеется в виду ввод-вывод по макрокомандам из текста программы. Если совсем проще - посредством ЕМТ команд.
Patron, интересно GET после перезагрузки сработает или всё повиснет )
GET = RUN - STARTЦитата:
Сообщение от hobot
RUN = GET + START
Код:.GET DAY
.START
Время Дата
21:38:04 20-Июн-2015, Суббота
.
Надеюсь, описания макрокоманд ассемблера RT-11 у общественности имеются ?
Если нет - могу сфоткать толстенькую брошурку.
Системные таблицы и библиотекиЦитата:
Сообщение от MM
Да, все знакомые книжечки.
Они же комплектовались к БК0011 без М.
Однако, некотрые сомнения имеются в достоверности материала :
http://storage3.static.itmages.ru/i/...0a16cf3e94.jpg
Кто первый найдет клюкву, получит пирожок. Только самовывоз - почта исключена. :v2_dizzy_fisher:
Есть ещё вот такое пособие (и в архиве и на форуме)Цитата:
Сообщение от MM
описание системной макро-библиотеки SYSMAC.SML
> http://zx-pk.ru/showpost.php?p=558147&postcount=8 - в теме
по ПАСКАЛЮ \ МАКРО-11.
Хоть и древняя тема, но руки зачесались изваять.
Задумка ММ, на мой взгляд, выглядела примерно так.
.TITLE SAVEMEM.MAC
.MCALL .PRINT, .EXIT, .ENTER,
.MCALL .CLOSE, .WRITW, .CSISPC ;используемые вызовы библиотеки
START:
.CSISPC #FNAME, #FEXT ;ввод имени и расширения файла
MOV #AREA, R5
.ENTER R5, #1, #FNAME+36, #20 ;откроем файл с усеченным до 8 байт именем и размером 16 блоков по 256 слов
BCS 2$ ;ошибка открытия файла
.WRITW R5, #1, 20000, #10000 ;пишем в канал 1 4096 слов, начиная с адреса 20000
BCS 3$ ;ошибка записи
.CLOSE #1 ;закрываем канал, создается постоянный дисковый файл
MOV #SUCCESS, R0 ;сообщение об успехе
1$:
.PRINT ;печать сообщения с адресом в R0
.EXIT ;выход
2$:
MOV #EERR, R0 ;не открылся
BR 1$
3$:
MOV #WERR, R0 ;не удалось записать
BR 1$
SUCCESS: .ASCIZ /SUCCESS/
EERR: .ASCIZ /CAN'T OPEN FILE FOR OUTPUT/
WERR: .ASCIZ /CAN'T WRITE FILE/
FNAME: .BLKW 40 ;у функции ввода строки буфер 80 байт
FEXT: .RAD50 /BIN/
AREA: .BLKW 5 ;аргументы для EMT
.END START