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

[hobot]

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

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

[Advertiser]

[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

[form]

Хоть и древняя тема, но руки зачесались изваять.

Вот еще бы код сюда помещался в читабельном виде, а не в перекособоченном

[Korchagin]

Не, текст не форматируется по нормальному. И в эмуле ДВК не пашет, кстати. Ошибку записи выдает.

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

А вопрос для меня тоже интересный - ПЗУху РФ3 с адресом 140000 вычитать треба, вставив ее в панельку МC1201.02, и в файл закинуть содержимое.

[Alex_K]

А вопрос для меня тоже интересный - ПЗУху РФ3 с адресом 140000 вычитать треба, вставив ее в панельку МC1201.02, и в файл закинуть содержимое.

        .TITLE  RDROM
        .IDENT  /V01.00/
        .MCALL  .ENTER,.WRITW,.CLOSE,.PURGE,.PRINT,.EXIT
START:  .ENTER  #AREA,#0,#FILNAM,#16.,#0
        BCC     1$
        .PRINT  #ERRENT
        BR      3$
1$:     .WRITW  #AREA,#0,#140000,#10000,#0,#0
        BCC     2$
        .PURGE  #0
        .PRINT  #ERRWRI
        BR      3$
2$:     .CLOSE  #0
3$:     .EXIT


AREA:   .BLKW   5
FILNAM: .RAD50  /DK 140000ROM/
ERRENT: .ASCIZ  /?RDROM-F-.ENTER error/
ERRWRI: .ASCIZ  /?RDROM-F-.WRITW error/
        .END    START

[form]

.WRITW #AREA,#0,#140000,#10000,#0,#0

Только стоит отметить, что это будет работать только в SJ мониторе и ни в каком другом...

[Alex_K]

Только стоит отметить, что это будет работать только в SJ мониторе и ни в каком другом...

Неужто и в FB-мониторе не будет работать?

[form]

Неужто и в FB-мониторе не будет работать?

Даже в SB не будет (впрочем это по сути и есть однозадачный FB). Там выполняется проверка адреса буфера - он не может быть выше программной области.

[form]

Ну и совсем для красоты можно .FETCH сделать сначала ибо DK может быть каким-нибудь LD который часто не загружают.

[Alex_K]

Ну и совсем для красоты можно .FETCH сделать сначала ибо DK может быть каким-нибудь LD который часто не загружают.

Ну тогда программу уже сильно усложним, для начинающих много сложностей, легче вместо DK поставить SY, уж он то всегда загружен. А так и .DSTAT надо вызывать для определения загружен ли драйвер и его размер, плюс ещё место для него, потом .FETCH вызывать при необходимости.