Практическое программирование в среде RT-11 на ассемблере.

[MM]

Приглашаю Гуру кодов и строк попрактиковаться в программировании под RT-11 в MACRO.SAV .

Например, имеется задача написать малогабаритный фрагмент , реализующий функцию записи на диск участка ОЗУ с адреса 020000 до адреса 040000. При запуске процесса должно запрашиваться имя файла, а по завершению проводится диагностика возможных ошибок - например, нет места на диске, аппаратный сбой и т.п.

Прошу приводить примеры кода.

[Advertiser]

[Patron]

функцию записи на диск участка ОЗУ с адреса 020000 до адреса 040000

Команда

SAVE XXX.BIN 20000-40000

запишет в файл XXX.BIN содержимое ОЗУ с адреса 0 по адрес 40000 ( пишет всегда с адреса 0 ).

Если хочется иметь обязательно файл с 20000 по 40000 - надо дать следующие команды:

SAVE XXX.BIN 0-40000
DEL XXX.BIN
CREA 000.BIN/ALL:16.
CREA XXX.BIN/ALL:16.
DEL 000.BIN

[MM]

Имеется в виду ввод-вывод по макрокомандам из текста программы. Если совсем проще - посредством ЕМТ команд.

[hobot]

Patron, интересно GET после перезагрузки сработает или всё повиснет )

[Patron]

интересно GET после перезагрузки сработает или всё повиснет

GET = RUN - START
RUN = GET + START

.GET DAY
 
.START
Время           Дата
21:38:04        20-Июн-2015, Суббота
 
.

[MM]

Надеюсь, описания макрокоманд ассемблера RT-11 у общественности имеются ?
Если нет - могу сфоткать толстенькую брошурку.

[Patron]

описания макрокоманд ассемблера RT-11

Системные таблицы и библиотеки

[MM]

Да, все знакомые книжечки.
Они же комплектовались к БК0011 без М.

Однако, некотрые сомнения имеются в достоверности материала :


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

[hobot]

описания макрокоманд ассемблера RT-11

Есть ещё вот такое пособие (и в архиве и на форуме)
описание системной макро-библиотеки SYSMAC.SML
> http://zx-pk.ru/showpost.php?p=558147&postcount=8 - в теме
по ПАСКАЛЮ \ МАКРО-11.

[Korchagin]

Хоть и древняя тема, но руки зачесались изваять.
Задумка ММ, на мой взгляд, выглядела примерно так.

.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