Не, текст не форматируется по нормальному. И в эмуле ДВК не пашет, кстати. Ошибку записи выдает.
- - - Добавлено - - -
А вопрос для меня тоже интересный - ПЗУху РФ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
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
PDP-11/83, Электроника МС0511 (УК-НЦ), DECserver 90M
Q-Bus: H9278-A, DLV11-J, DZQ11, DHV11, DELQA-M, LPV11, CQD-420/TM, DRV11
PMI: KDJ11-BF, MSV11-JE
VT220, CM7209
Ну можно немного модернизировать:
Код:.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; 27.11.2016 в 01:02.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)