Последняя подпрограмма, GETV, находит величину V (т. е. соответствующее поле ячейки М), используемую различными операторами MIX, как определено в разделе 1.3.1.

Последовательность вызова: JMP GETV.

Состояние при входе: г15 = допустимый адрес памяти; г13 = допустимое по-

ле. (Если оно недопустимо, то регистрируется ошибка, как и выше.)

гА = абсолютное значение V; гХ = знак V; гП = L; г12 = -R.

JMP GETAV, используется только в операторах сравнения для выборки поля из регистра.

Состояние при выходе: Второй вход:

А теперь рассмотрим программы для каждого оператора в отдельности. Данные программы приведены здесь для полноты изложения, поэтому читателю стоит изучить лишь некоторые из них, если, конечно, у него нет важных причин для более тщательного изучения. Рекомендуется изучить программы для операторов SUB и JUMP: это наиболее типичные примеры. Обратите внимание на то, как можно аккуратно объединить программы для аналогичных операций, а также на то, как программа JUMP использует другую таблицу-переключатель для управления этим типом перехода.

159 * ОТДЕЛЬНЫЕ ОПЕРАТОРЫ

176 *

177 DIV 178

179 180 181 182 183 184 185 186 187 188

189 STOREAX

191 OVCHECK

192 193 194

195 *

196 LOADN 197

198 LOADNl

201 LOAD

203 LOADl

MUL AREG JMP STOREAX

204 205

206 *

207 STORE 208

209 210 211

212 IH

CMPX

ENTX

ENNX

JNOV

ENTX

ENTl

LDXN

ENTl

SIGNA

SIGNX

GETV

SIGNA

*+2 1

SIGNA

TEMP

AREG

XREG

TEMP

AREG

XREG

CYCLE

OVTOG CYCLE

GETV

47,4

TEMP

TEMP

LOADl

GETV

55,4

AREG.l

SIGNA,1

SIZECHK

JMP FCHECK JMP MEMORY JIP IF ENTl 1

LDX SIGNA+39,4 LD2N R SRAX 5,2 LDA AREG+39.4 SLAX 5,2 ENN2 0,1 SRAX 6,2 LDA 0,5 SRA 6,2 SRAX -1,1 STX 0,5 JMP CYCLE

Перемножить операнды. Сохранить абсолютные значения.

Установить знак остатка.

Загрузить значение V в гА и гХ. Знаки одинаковы?

Занести в гХ знак результата.

Поместить его в имитируемый гА.

Разделить операнды.

Сохранить абсолютные значения.

Только что произошло переполнение? Если да, установить имитируемый

флаг переполнения в положение 1. Вернуться в управляющую программу.

Загрузить значение V в гА и гХ. гИ <- С - 16; указывает регистр. Сделать знак отрицательным.

Заменить LOADN на LOAD. Загрузить значение V в гА и гХ. гИ <- С - 8, указывает регистр. Сохранить абсолютные значения. Сохранить знак.

Проверить, не слишком ли велико

абсолютное значение. гИ -(- L.

Взять содержимое ячейки памяти. Знак включен в поле? Если да, заменить L на 1

и "сохранить" знак регистра. г12 -(- -R.

Сохранить область справа от поля. Вставить регистр в поле.

Восстановить область слева от поля.

Присоединить знак.

Сохранить в памяти.

Вернуться в управляющую программу.