Linear Feedback Shift Register

From	Duhast <duhast@123gmail.com>
Newsgroups	comp.sys.apple2.programmer
Subject	Linear Feedback Shift Register
Date	2024-09-04 21:39 -0400
Organization	A noiseless patient Spider
Message-ID	<vbb26i$1tf0$1@dont-email.me> (permalink)

Show all headers | View raw

I'm trying to generate pseudo random numbers 1-255(yes zero is a special 
case).  Following Graphic Gems, and code I found at codebase64 I came up 
with this:

          ORG   $300

          LDY   #$00

XOR      LSR   RAND
          LDA   RAND
          BCC   SKIP
          EOR   #$B8
SKIP     STA   RAND
          STA   $2000,Y
          INY
          BEQ   DONE
          JMP   XOR

DONE     RTS

RAND     DB    $01

I then put the values in text file:

  10 D$ =  CHR$ (4)
  20  PRINT D$;"OPEN RAND"
  30  PRINT D$;"WRITE RAND"
  40  FOR I = 0 TO 255
  50  PRINT  PEEK (8196 + I)
  60  NEXT
  70  PRINT D$;"CLOSE"

Pasted them into a spreadsheet and sorted.  It doesn't work.  There are 
missing numbers, duplicate numbers.  What am I doing wrong?  Is there a 
better method?

Back to comp.sys.apple2.programmer | Previous | Next — Next in thread | Find similar

Thread

Linear Feedback Shift Register Duhast <duhast@123gmail.com> - 2024-09-04 21:39 -0400
  Re: Linear Feedback Shift Register kegs@provalid.com (Kent Dickey) - 2024-09-05 20:13 +0000
    Re: Linear Feedback Shift Register Duhast <duhast@123gmail.com> - 2024-09-10 22:54 -0400
      Re: Linear Feedback Shift Register kegs@provalid.com (Kent Dickey) - 2024-09-12 03:58 +0000
        Re: Linear Feedback Shift Register Duhast <duhast@123gmail.com> - 2024-09-12 19:06 -0400
          Re: Linear Feedback Shift Register D Finnigan <dog_cow@macgui.com> - 2024-09-13 00:49 +0000
  Re: Linear Feedback Shift Register John Ames <commodorejohn@gmail.com> - 2025-01-16 09:36 -0800
    Re: Linear Feedback Shift Register Peter Ferrie <peter.ferrie@gmail.com> - 2025-01-21 15:46 +0000

csiph-web