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

Цитата:

---

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

Для FADD по идее такого случая нету.

---

А переполнение порядка. Вроде возможно если сложить два самых больших числа.

Цитата:

---

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

А переполнение порядка. Вроде возможно если сложить два самых больших числа.

---

Надо проверить возможен ли такой случай в данном конкретном случае с учетом того, что RESORC заведомо в low memory выполняется.

Заплатка для RESORC из RT-11 v05.04 выглядит так:

Код:

---

        MOV        SP,R2                ;Point to stack (but don't destroy)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV        SP, (PC)+
ResSP:        .Word        0
        Sub        #8., SP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV        #40000,-(R2)        ;We'll check for FIS by adding .5 to .5
        CLR        -(R2)                ;
        MOV        #40000,-(R2)        ;
        CLR        -(R2)                ;
        FADD        R2                ;Do a floating point add
;;        NOP                        ;One instruction delay for T11.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV        ResSP, SP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        BCS        3$                ;If C set, no FIS

---

А драйвер завтра исправлю..

Сложил в UKNCBTL два самых больших числа (077777 177777). Получил переполнение порядка, прервалось по вектору 244, в стеке 202 на месте PSW.

Цитата:

---

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

Заплатка для RESORC из RT-11 v05.04 выглядит так

---

Это мне напоминает когда выпустили "аналог" TA11 который не различал байт и слово, а потом "поправили кривые драйвера DEC" чтобы работало :)

Цитата:

---

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

Заплатка для RESORC из RT-11 v05.04 выглядит так:

Код:

---

        MOV        SP,R2                ;Point to stack (but don't destroy)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV        SP, (PC)+
ResSP:        .Word        0
        Sub        #8., SP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV        #40000,-(R2)        ;We'll check for FIS by adding .5 to .5
        CLR        -(R2)                ;
        MOV        #40000,-(R2)        ;
        CLR        -(R2)                ;
        FADD        R2                ;Do a floating point add
;;        NOP                        ;One instruction delay for T11.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        MOV        ResSP, SP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        BCS        3$                ;If C set, no FIS

---

А драйвер завтра исправлю..

---

Можно было сделать проще - заслать аргументы в стек и сложить командой FADD SP, и R2 трогать не надо.

Цитата:

---

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

Сложил в UKNCBTL два самых больших числа (077777 177777). Получил переполнение порядка, прервалось по вектору 244, в стеке 202 на месте PSW.

---

Тут надо проверять не два самых больших числа, а реальные числа которые могут оказаться с учетом адреса в котором выполняется :)

---------- Post added at 04:22 ---------- Previous post was at 04:22 ----------

Цитата:

---

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

Можно было сделать проще - заслать аргументы в стек и сложить командой FADD SP, и R2 трогать не надо.

---

Только потом SP надо на место ставить :)

Цитата:

---

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

Можно было сделать проще - заслать аргументы в стек и сложить командой FADD SP, и R2 трогать не надо.

---

Зато исходный код остался неизменным :)))

Цитата:

---

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

Тут надо проверять не два самых больших числа, а реальные числа которые могут оказаться с учетом адреса в котором выполняется :)

---

Это я к тому, что и FADD может прерваться по 244 вектору.

Цитата:

---

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

Только потом SP надо на место ставить :)

---

Это да. Действительно.

Копаясь в RESORC от 5.7 обнаружил закоментированную фичу - просмотр параметров кэша (драйвер CA). Самого драйвера не вижу.

---------- Post added at 04:28 ---------- Previous post was at 04:26 ----------

А .COM для его сборки есть...

---------- Post added at 04:37 ---------- Previous post was at 04:28 ----------

А в KMON команда есть :)