ДВК (и всё, что с ними связано)

Вид для печати

Показывать 40 сообщений этой темы на одной странице

13.11.2016, 16:12
Korchagin

Итого для однозадачки пусть будет этот вариант. Нажатие клавиши в принципе неважно - юзер забытое сделает при следующем включении машины.

Цитата:

.TITLE PARK2016.MAC
.MCALL .PRINT, .EXIT, .MTPS ;используемые вызовы библиотеки

STARTF: CMP @#174000, #401 ;сравнить содержимое регистра идентификации 174000 с кодом 401(восьмеричное)
BNE CNTRLRNOTFOUND ;контроллер не обнаружен, выходим

CHECK1: BIT #100000, 174020 ;проверка занятости
BEQ CHECK1 ;занят, ждем

BIS #8., 174020 ;начальная установка с выводом головок на нулевой трек
CHECK2: BIT #100000, 174020
BEQ CHECK2 ;занят, ждем
CHECK3: BIT #1, 174020
BNE CHECK3 ;ждем, пока операция не будет завершена

MOV LANDZONE, 174012 ;поместить в регистр адреса цилиндра 174012 номер цилиндра для парковки
MOV #7, 174006 ;сектор 7 (любой)
MOV #0, 174014 ;поверхность 0 (любая)
MOV #40, 174016 ;команда чтения сектора
.PRINT #SHUTDOWNMSG
.MTPS #340
BR .

CNTRLRNOTFOUND:
.PRINT #NOTFOUNDMSG
.EXIT

NOTFOUNDMSG: .ASCIZ /MFM CONTROLLER NOT FOUND/
SHUTDOWNMSG: .ASCIZ /TURN THE POWER OFF/
LANDZONE: .WORD 1230 ;664 цилиндр у моего HDD парковочный

.END STARTF
13.11.2016, 16:15
form

Цитата:

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

Под классическим вариантом имелось ввиду, что программа задаёт вопрос и в случае положительного ответа выводить надпись о завершении, паркует и входит в цикл с запрещенными прерываниями. Ну а случае отрицательного ответа - выход в RT-11.

Можно сделать иначе - выставить в программе вектор TRAP к примеру, и в случае парковки вызывать TRAP 0 скажем и .EXIT после него, а в его ISR вписать HALT, RTI. Тогда можно будет после парковки нажать P и вернуться в систему. Так в RSX можно после выполнения SHUTUP запустить систему дальше.

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

Цитата:

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

.MTPS #370

На паре процессоров это вызовет немедленный трап по 14 (и выпадение в RT-11 соответственно раз вектор не установлен). Правда вряд-ли всерьез стоит рассматривать вариант наличия DW на всяких PDP-11/10 :)
Все биты приоритета - это 340.
13.11.2016, 16:17
Alex_K

Цитата:

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

Можно сделать иначе - выставить в программе вектор TRAP к примеру, и в случае парковки вызывать TRAP 0 скажем и .EXIT после него, а в его ISR вписать HALT, RTI. Тогда можно будет после парковки нажать P и вернуться в систему. Так в RSX можно после выполнения SHUTUP запустить систему дальше.

Интересный вариант. А HALT в XM-мониторе пройдёт?
13.11.2016, 16:20
form

Цитата:

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

Интересный вариант. А HALT в XM-мониторе пройдёт?

Нет. Для того и говорю про вектор - через вектор снимется user mode (а RTI его вернет если нужно) - это самый простой способ.
13.11.2016, 16:24
hobot

поправил немного ))

Код:

.TITLE PARK2016.MAC .MCALL .PRINT, .EXIT ;используемые вызовы библиотеки STARTF: CMP @#174000, #401 ;сравнить содержимое регистра идентификации 174000 с BNE CNTRLRNOTFOUND ;контроллер не обнаружен, выходим CHECK1: BIT #100000, @#174020 ;проверка занятости BEQ CHECK1 ;занят, ждем BIS #8., @#174020 ;начальная установка с выводом головок на нулевой тре CHECK2: BIT #100000, @#174020 BEQ CHECK2 ;занят, ждем CHECK3: BIT #1, @#174020 BNE CHECK3 ;ждем, пока операция не будет завершена MOV #LANDZONE, @#174012 ;поместить в регистр адреса цилиндра 174012 ном MOV #7, @#174006 ;сектор 7 (любой) MOV #0, @#174014 ;поверхность 0 (любая) MOV #40, @#174016 ;команда чтения сектора, команды пишутся в младший ба .PRINT #SHUTDOWNMSG .EXIT CNTRLRNOTFOUND: .PRINT #NOTFOUNDMSG .EXIT Exit? Y KMON>mac TPARK KMON>lin TPARK KMON>RU TPARK FDGGDFGDFGDFGG^C ^ KMON>
13.11.2016, 16:25
Korchagin

Верно, биты 340, а не 370.
13.11.2016, 16:30
hobot

сейчас листинг обновлю )

Код:

KMON>TY TPARK.MAC .TITLE PARK2016.MAC .MCALL .PRINT, .EXIT, .MTPS ;используемые вызовы библиотеки STARTF: CMP @#174000, #401 ;сравнить содержимое регистра идентификации 174000 с кодом 401(восьмеричное) BNE CNTRLRNOTFOUND ;контроллер не обнаружен, выходим CHECK1: BIT #100000, @#174020 ;проверка занятости BEQ CHECK1 ;занят, ждем BIS #8., @#174020 ;начальная установка с выводом головок на нулевой трек CHECK2: BIT #100000, @#174020 BEQ CHECK2 ;занят, ждем CHECK3: BIT #1, @#174020 BNE CHECK3 ;ждем, пока операция не будет завершена MOV #LANDZONE, @#174012 ;поместить в регистр адреса цилиндра 174012 номе р цилиндра для парковки MOV #7, @#174006 ;сектор 7 (любой) MOV #0, @#174014 ;поверхность 0 (любая) MOV #40, @#174016 ;команда чтения сектора, команды пишутся в младший бай т РАЦ .PRINT #SHUTDOWNMSG .MTPS #370 BR . CNTRLRNOTFOUND: .PRINT #NOTFOUNDMSG .EXIT NOTFOUNDMSG: .ASCIZ /MFM CONTROLLER NOT FOUND/ SHUTDOWNMSG: .ASCIZ /TURN THE POWER OFF/ LANDZONE:.WORD 1230 ;664 цилиндр у моего HDD парковочный .END STARTF KMON>mac TPARK KMON>lin TPARK KMON>RU TPARK
13.11.2016, 16:38
Korchagin

То есть, для многозадачных систем необходимо перехватить TRAP 0, затем его вызвать из самой программы? А в обработчике должны быть команды HALT и RTI?
13.11.2016, 16:41
form

Цитата:

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

CNTRLRNOTFOUND:
.PRINT #NOTFOUNDMSG
.EXIT

Сюда же уместно направить подпрограмму обработки .TRPSET...

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

Цитата:

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

То есть, для многозадачных систем необходимо перехватить TRAP 0, затем его вызвать из самой программы? А в обработчике должны быть команды HALT и RTI?

Здесь дело не в многозадачности, а в системах, использующих MMU (XM, ZM) - в них программа выполняется в пользовательском режиме и напрямую HALT сделать не может. Но никто не мешает с помощью вектора прерываний (TRAP взят для примера, годится и BPT) гарантированно войти в режим ядра процессора. А для не-MMU систем это никак не мешает - будет совместимо.
13.11.2016, 16:47
Alex_K

Цитата:

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

Но никто не мешает с помощью вектора прерываний (TRAP взят для примера, годится и BPT) гарантированно войти в режим ядра процессора.

А это часом не слишком большая дырка в системе? Таким образом любая задача получает режим KERNEL?

Показывать 40 сообщений этой темы на одной странице