;
; Random number generator
;
; x[i + 1] = (5 * x[i] + 1) mod 256
;
; out: y random value
rnd:
    ld x, <seed
    ld a, >seed

    ld y, [a : x]
    ld b, y

    add y, y
    add y, y
    add y, b
    add y, 7

    ld [a : x], y

    ret

seed:
    .db 0