Генератор псевдослучайных чисел

[ram_scan]

Каноничный генератор. 16-битный. Полином из умной книжки. Длина последовательности 65535. Тактов когда писал не считал, поленился. может статься что он быстрее вышеприведенного. Использовался мною для написания тестрома в части теста ОЗУ.

;-------------------------------------------------------------------------------       
; Генератор псевдослучайных чисел на сдвиговом регистре.
; Полином [1,2,4,15] (период 65535)
; Входные параметры: HL - SEED
; Выходные параметры: HL - новый SEED
; Модифицирует: HL, AF, E
;------------------------------------------------------------------------------- 
    MACRO RANDOM
    ld          a,h
    rlca                        ; бит 15 положили в бит 0 аккумулятора
    ld          e,l             ; запомнили младшие биты
    add         hl,hl           ; сдвинули регистр на бит влево
    srl         e               ; в бит 0 регистра e положили бит 1 SEED
    xor         e               ; поксорили с 15 битом
    srl         e               ; в бит 0 регистра e положили 2 бит SEED
    xor         e               ; поксорили с результатом
    srl         e               ; пропускаем бит 3
    srl         e               ; в 0 бит вдвигаем 4 бит SEED
    xor         e               ; поксорили с результатом
    and         %00000001       ; выделили младший бит
    xor         l
    ld          l,a
    ENDM

UPD: проверил первый генератор. Работает отвратительно. Не рекомендую.