Составители:
72
6F MOV L,A Запись в младший байт
78 MOV А, В Восстановления в А старшего байта
B7 ORA А Только очистка флага переноса
1F RAR Последний сдвиг старшего байта
67 MOV H,А Запись старшего байта в Н
7D MOV A,L Загрузка в А младшего байта
1F RAR (в L попадает бит, выдвинутый из Н)
СЕ ACI 0 Прибавление бита с весом 1/2 для
00 округления (этот бит во флаге перенос а)
6F MOV L, A Сохранение младшего байта
7С MOV A, H
СЕ ACI 0 Учет возможности переноса в старший
00 байт при округлении
67 MOV H, A Сохранение старшего байта
02С1: C9 RET Возврат из подпрограммы деления (в случае
положительной суммы – это выход из под-
программы, в случае отрицательной суммы –
это продолжение обработки)
Обработка ошибки переполнения:
02С2: 76 HLT процедура обработки ошибки
00 NOP переполнения может быть выполнена
00 NOP занесением в эти три байта команды перехода
на нужный адрес
