* * *
Вторая программка (вернее, их две) реализует
быстрые алгоритмы деления и умножения больших чи-
сел. На их основе несложно написать п/п ввода деся-
тичных чисел в регистры (преобразование строки в
число).
Обозначение:
MUL_HLBC_DE : Регистры HLBC=HLBC*DE
DIV_HLBC_DE : Регистры HLBC=HLBC/DE
Точки входа MUL16 и DIV16, как и следует из
названия, выполняют умножение и деление 16-битных
чисел. Причем, если умножается 16 бит на 16, то в
результате получается 32 бита.
;====================================
; 16-BIT MULTIPLY
;====================================
MUL16: LD HL,0
MUL_HLBC_DE:
LD A,B
LD B,11H
JR L4928
L4921: JR NC,L4924
ADD HL,DE
L4924: RR H
RR L
L4928: RRA
RR C
DJNZ L4921
LD B,A
RET
;====================================
; 16-BIT DIVIDE
;====================================
DIV16: LD HL,0
DIV_HLBC_DE:
LD A,B
LD B,10H
RL C
RLA
L493B: RL L
RL H
JR C,L494E
SBC HL,DE
JR NC,L4946
ADD HL,DE
L4946: CCF
L4947: RL C
RLA
DJNZ L493B
LD B,A
RET
L494E: OR A
SBC HL,DE
JR L4947
* * *
Ну вот, вроде бы и все на сегодня. Да, чуть
не забыл: все эти программки написал где-то году в
1983 не кто иной, как Тим Патерсон, автор MSX-DOS
и первой версии MS-DOS. Такие вот дела...
