num2txt (4bit to char)
ZXNet echo conference «code.zx»
from: Evgeny Goljakov
to: Alexander Bondarenko
date: 5 June 2003
Привет, Alexander.
Сб 7 Июн 02 Eugene Palenock -> Alexander Bondarenko:
Рекомендую так:
====
in: a=[#00-#0f]
out: a=["0"-"9","A"-"F"]
CP #0A
SBC A,#69
DAA
====
Для более детального узучения прочти статью И.Рощина на память: математические
вычисления на Z80, вспомогательные
процедуру, там есть ссылка на первоисточник.
А далее идет как делать я бы не стал:
EP> Если быстро то так
EP> ld bc, 303fh
EP> ld a, d
EP> rra
EP> rra
EP> rra
EP> rra
EP> or a, b
EP> and a, c
EP> cp '9'+1+30h
EP> jp c, m1a
EP> add a, 7
EP> m1a: ld (buff+0), al
EP> ld a, d
EP> or a, b
EP> and a, c
EP> cp '9'+1+30h
EP> jp c, m1b
EP> add a, 7
EP> m1b: ld (buff+1), al
EP> ld a, e
EP> rra
EP> rra
EP> rra
EP> rra
EP> or a, b
EP> and a, c
EP> cp '9'+1+30h
EP> jp c, m1c
EP> add a, 7
EP> m1c: ld (buff+2), al
EP> ld a, d
EP> or a, b
EP> and a, c
EP> cp '9'+1+30h
EP> jp c, m1d
EP> add a, 7
EP> m1d: ld (buff+3), al
EP> ret
EP> buff: db '1234
from: Ivan Roshin
to: All
date: 11 June 2003
Hello, All!
Thu 5 Jun 2003 Evgeny Goljakov wrote to Alexander Bondarenko:
EG> Рекомендую так:
EG> ====
EG> in: a=[#00-#0f]
EG> out: a=["0"-"9","A"-"F"]
EG> CP #0A
EG> SBC A,#69
EG> DAA
EG> ====
EG> Для более детального узучения прочти статью И.Рощина на
EG> память: математические вычисления на Z80, вспомогательные
EG> процедуру, там есть ссылка на первоисточник.
Если кому надо, могу сюда закинуть последнюю версию этой
статьи ("Ещё о программировании арифметических операций").
Объём - 35 КБ ZIP.
С уважением, Иван Рощин.
from: Vladimir Karpenko
to: Ivan Roshin
date: 13 June 2003
Hello Ivan
IR> Если кому надо, могу сюда закинуть последнюю веpсию этой
IR> статьи ("Ещё о пpогpаммиpовании аpифметических опеpаций").
IR> Объём - 35 КБ ZIP.
Давай!
[ZX][Sprinter registered developer][rw1p2][NedoPC][A600HD]
Bye
from: Alexander Bondarenko
to: Ivan Roshin
date: 16 June 2003
*Здравствуй, Ivan!*
Лови мои идеи по поводу сабжа "num2txt (4bit to char)", о котором трещала
в 11 Jun 2003 твоя портянка к тов. All.
EG>> Для более детального узучения прочти статью И.Рощина на
EG>> память: математические вычисления на Z80, вспомогательные
EG>> процедуру, там есть ссылка на первоисточник.
IR> Если кому надо, могу сюда закинуть последнюю версию этой
IR> статьи ("Ещё о программировании арифметических операций").
IR> Объём - 35 КБ ZIP.
Давай, давай - пpигодиться.
/Вот и всё, Ivan, можешь листать дальше.../
|