Кросскомпилятор Си под 8080

[ivagor]

Восьмибитное умножение можно немного оптимизировать

; Умножение A на D, результат в HL. BC не трогаем
op_mul:
  ex hl, de
  ld l, 0
  ld e, a
  ld d, l
  ld a, 8
op_mul1:
  add hl, hl
  jp nc, op_mul2
    add hl, de
op_mul2:
  dec a
  jp nz, op_mul1
  ret

Если памяти не жалко, то еще быстрее

op_mul:
  ex hl, de
  ld l, 0
  ld e, a
  ld d, l
  DUP 7
  add hl, hl
  jp nc, $+4
  add hl, de
  EDUP
  add hl, hl
  ret nc
  add hl, de
  ret

Кажется такой или подобный вариант был в "Микропроцессорных средствах и системах", только номер не помню.

В прошлом посте я сначала случайно выложил mem.h без pop, потом исправился.