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евод числа!