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

[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

[Advertiser]

[form]

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

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

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

.MTPS #370

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

[Alex_K]

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

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

[form]

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

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

[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>

[Korchagin]

Верно, биты 340, а не 370.

[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

[Korchagin]

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

[form]

CNTRLRNOTFOUND:
.PRINT #NOTFOUNDMSG
.EXIT

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

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

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

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

[Alex_K]

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

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