ZXNet эхоконференция «code.zx»

Hемедленно нажми на RESET, All!

Вот мне подсказали...


; hl=bin

div10: ld b, 10h
xor a
ld c, a
ld e, a
ld d, a ; 23

@@div: add hl, hl
ld a, c
adc a, a
daa
ld c, a
ld a, e
adc a, a
daa
ld e, a
ld a, d
adc a, a
daa
ld d, a
jr nc, @@nc
inc l
@@nc: djnz @@div ; ~83 ~1328

ld hl, buffer
ld a,d
or #30
ld (hl),a
inc hl
ld (hl),e
ld a,#33
rrd
inc hl
ld (hl),a
inc hl
ld (hl),c
ld a,#33
rrd
inc hl
ld (hl),a
ret ; 140 ~1491


Всего 1491 тактов на пеpевод числа!