Глава 10. - часть 6

RegAX, RegBX, RegCX И RegDX:

DIM IntProgd T0 16) AS INTEGER

' установка сегмента для работы подпрограммы DEF SEG=VARSEG(IntProg(1))

' установка смещения для работы подпрограммы Int33&=VARPTR(IntProgd) )

' Перепись подпрограммы из блока данных в массив F0R J%=0 T0 23

READ K% : P0KE Int33&+J%,K% NEXT J%

Обратите внимание на команды, изменяющие базовый (начальный) адрес сегмента. В качестве новой базы устанавливается адрес начала массива intProg, что позволяет не производить перенастройку адресов машинной программы в зависимости от ее местоположения в оперативной памяти.

В тексте программы, как и в ее прототипе [7], имеется небольшой дефект -после обработки прерывания не запоминается содержимое регистра АХ. А некоторые прерывания заносят в этот регистр результаты своей работы. Например, при опросе текущей даты в младшие разряды регистра АХ зано- сится день недели. Исправить эту оплошность довольно просто -необходимо после команды int добавить команду mov RegAX,ax, которая занимает три байта и в числовом представлении имеет вид АЗ ххуу (здесь ххуу — относительный адрес поля RegDX). При этом адреса переменных RegAX, RegBX, RegCX и RegDX увеличатся на три байта. Но их желательно сохранить на границе полуслова, т. к. с ними оперируют как с элементами целочисленного массива. Поэтому в текст приводимой ниже модификации вставлен еще один байт — пустая команда NOP (числовой код — 90h):

Содержание  Назад  Вперед

---

---

---

---