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

Цитата:

---

Сообщение от MM

Если нет - могу сфоткать толстенькую брошурку.

---

А какую именно брошюру вы упоминали ?

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

Korchagin, может всё таки тэг сменить на [code],
что бы некий стандарт форматирования применять
к макро-11 исходникам? )

Цитата:

---

Сообщение от Korchagin

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

---

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

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

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

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

Цитата:

---

Сообщение от Korchagin

А вопрос для меня тоже интересный - ПЗУху РФ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

---

Цитата:

---

Сообщение от Alex_K

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

---

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

Цитата:

---

Сообщение от form

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

---

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

Цитата:

---

Сообщение от Alex_K

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

---

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

Цитата:

---

Сообщение от form

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

---

Ну можно немного модернизировать:

Код:

---

        .TITLE  RDROM
        .IDENT  /V01.00/
        .MCALL  .SETTO,.ENTER,.WRITW,.CLOSE,.PURGE,.PRINT,.EXIT
START:  .SETTO  #BUFFER+20000
        CMP    R0,#BUFFER+20000
        BHIS    1$
        .PRINT  #NOMEM
        .EXIT
1$:    MOV    #BUFFER,R0
        MOV    #140000,R1
        MOV    #10000,R2
2$:    MOV    (R1)+,(R0)+
        SOB    R2,2$
      .ENTER  #AREA,#0,#FILNAM,#16.,#0
        BCC    3$
        .PRINT  #ERRENT
        BR      5$
3$:    .WRITW  #AREA,#0,#BUFFER,#10000,#0,#0
        BCC    4$
        .PURGE  #0
        .PRINT  #ERRWRI
        BR      5$
4$:    .CLOSE  #0
5$:    .EXIT

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

---

Цитата:

---

Сообщение от Alex_K

Ну можно немного модернизировать

---

Тллко аргумент остался #140000 :)

Цитата:

---

Сообщение от form

Тллко аргумент остался #140000 :)

---

Пока писали ответ, я уже успел поправить.