Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
Multiply: PUSH PSW ; Сохраняем регистры
PUSH BC ; которые будут меняться (проталкиваем в стэк)
SUB H,H ; Обнуляем результат
SUB L,L
MOV A,B ; Записываем множитель в A
CPI A,00h ; Если он равен 0, завершаем
JZ AllDone
MVI B,00h ; Записываем 0 в B
MultLoop: DAD HL,BC ; Складываем HL и BC
DEC A ; Уменьшаем множитель на 1
JNZ MultLoop ; Повторяем, если не 0
AllDone: POP BC ; Восстанавливаем регистры
POP PSW
RET ; Возврат

Код. Тайный язык информатики