Отправлено Iwan 30 сентября 2004 г. 10:31 В ответ на: Подскажите: генератор случайных чисел на ASM'е для 51-го отправлено YURASIN 30 сентября 2004 г. 07:10

И если псевдослучайные устраивают то берете книжку рекомендованную ниже Виноградовым и реализуете программно любой понравившийся вариант. Сделать сдвиги с отводами на ассемблере достаточно просто:

;-----------------------------------------------------------------------------
; Randomise value generator.
; Makin the 15 bit Psevdo Randomise Seqense.
; One calling make one step.
; For generation using R6,R7 and ACC. Random value saved in R6,R7.
TakeRnd:        clr     p3.4            ; controlbit
                mov     a,r6    ; Exclude 0 value.
                orl     a,r7
                jnz     NextRND
                mov     r6, # 1
NextRND:        clr     c
                mov     a, r6
                rlc     a
                mov     r6,a
                mov     a,r7
                rl      a
                mov     acc.0,c
                mov     r7,a
loopback:       rl      a
                xrl     a,r7
                mov     c,acc.6
                mov     a,r6
                mov     acc.0,c
                mov     r6,a
                mov     a,r7            ; only 15 bits!
                anl     a,#07Fh
                mov     r7,a