Реферат: Измерение угла опережения зажигания

CALL DEL

LD BC, (A1)

LD (A2), BC

LD (A1), HL

CALL DEL

LD BC, (A1)

LD (R3), BC

LD BC, (A3)

LD (R10), BC

CALL DECT

EXX

RETI

Подпрограмма DECT:

; процедура разбиения числа на десятки (на цифры).

LD BC, (R3) ; ввод числа, которое нужно разбить осуществляется через ячейку с адрессом R3.

LD (A1), BC

C: LD (A2), 10

CALL DEL

LD B, (A3)

INC (R4) ; количество десятков в ячейке с адресом R4.

LD A, (R4)

ADD A, (R5)

LD (A), B

LD A, (A1)

CPS 10

JP NC C;

LD B, (A1)

INC (R4)

LD A, (R4)