ЭТЮДЫ

[denpopov]

вот что родилось, пока пыхтел:

new_r
 call random;x=random(x-1)+1
 ld l,a
 call random
 ld h,a

find_r
push hl
ld de,319
or a
sbc hl,de
pop hl
jr c,got_r
or a
sbc hl,de
jr find_r
got_r
ex de,hl

[Advertiser]

[Reobne]

Оптимизирую твою идею

new_r
 call random;x=random(x-1)+1
 ld l,a
 call random
 OR #f0  ; Это чтобы быстрее приехать
 ld h,a

ld de,320
find_r
ADD HL,DE
JP NC,find_r

ex de,hl

[denpopov]

хехе, как допилю основу, придется тест алгоритмов проводить..

---------- Post added at 20:15 ---------- Previous post was at 20:13 ----------

я так понимаю random дает a=rnd(0-#ff) тоесть ряд 256 значений еще и подряд 2 раза тоесть 128 для 0-319 будет много
пустышек с малым периодом, довольно специфический рандом.

алгоритм старый, не могу найти, где я сравнивал с алгоритмом introspec'a. этот получше

random:
push bc
R1: LD C,#18
R2: LD A,#70
ADD A,C
LD C,A
LD (R1+1),A
R3: LD A,#FD
SUB C
LD C,A
LD(R2+1),A
RRCA
LD (R3+1),A
pop bc
RET

---------- Post added at 20:21 ---------- Previous post was at 20:15 ----------

вроде это:
http://zx-pk.ru/showpost.php?p=701098&postcount=36

[denpopov]

Мне одинаково подошли варианты krt17 и Reobne.
Спасибо за помощь.

[rasmer]

ну если интересно как в асме - инкбинишь кодовый блок, потом инкбинишь или инклюдишь или прописываешь напрямую кусок которым пропатчиваешь, потом также записываешь бинарник\хобету\снапшот....
sjasmplus по моему с этим удачно справится!

[denpopov]

глянул на процедуру умножения baze/au
http://baze.au.com/misc/z80bits.html#1.4

интересно, что умножение с учетом знака. А вот резульаьы теста просто странные:

ld bc,#FEFF; (-2)*(-1)=2
ld bc,#FE02;2*(-2)=$FC
ld bc,#7070; ?$70*$70=$3100
ld bc,$0F10;$F0

откуда выползло такое?

[Titus]

ld bc,#7070; ?$70*$70=$3100

откуда выползло такое?

Какое такое? Вообще-то $70 умножить на $70 и будет $3100

[denpopov]

Вообще-то $70 умножить на $70 и будет $3100

результат HL=$A200, bc=$3100

[Titus]

результат HL=$A200, bc=$3100

Такой результат не верен, разумеется)
Почему - не знаю, я эту процедурку не тестировал)

[denpopov]

Почему - не знаю, я эту процедурку не тестировал)

лучше б попробовал за время своих постов. всяко экономия