samples/rndtest/main_marsaglia.zas

   1   org  #8000
   2
   3   di
   4 .loop:
   5   call random
   6   ld   c,l
   7   ld   a,h
   8   cp   192
   9   jr   nc,.loop
  10   call #22B0  ; pixel address
  11   ld   b,a
  12   inc  b
  13   ld   a,#01
  14   rrca
  15   djnz $-1
  16   xor  (hl)
  17   ld   (hl),a
  18   jr   .loop
  19
  20   include <marsaglia_rnd.zas>