RND function

Discuss the games, programs, utilities... and vaporware!
Post Reply
User avatar
carlsson
Posts: 507
Joined: Fri Jun 13, 2008 7:39 am
Location: Västerås, Sweden

RND function

Post by carlsson » Mon Dec 06, 2010 8:46 pm

In my further studies of the Creativision Basic, I have come to the RND function. Barry Klein once wrote in the second Wizzdom newsletter:
1982 BASIC: RND(N) gives results in the range 0 to N-1
1983 BASIC: RND(N) gives results in the range 1 to N

For a random number in the range 0 to N-1, use RND(N)-RND(1)
For a random number in the range 1 to N, use RND(N)-RND(1)+1

Array elements and functions don't work properly as array subscripts, e.g. A(RND(3)) always gives A(3).
This must be separated into two statements: X=RND(3) then use A(X).
At this point, I tried Barry's own speed hacked Basic and made a terrible discovery: it runs so fast (!) that the random number generator is only regenerated once every time you run the program. Take for example this program:

10 FORI=1TO10
20 PRINTRND(5);
30 NEXT

It can be pointed out that the 1982 BASIC mentioned in the Wizzdom equals 1982 R1. The other version marked 1982 R2 has the same RND behavior as the 1983 releases.
User avatar
carlsson
Posts: 507
Joined: Fri Jun 13, 2008 7:39 am
Location: Västerås, Sweden

Re: RND function

Post by carlsson » Tue Dec 07, 2010 10:06 am

Speaking of the RND function, this is the kind of program I was trying to write yesterday. It is a DOG SLOW side scroller.. well, right now it is just a field of stars scrolling from right to left, but the playfield is 40 columns wide while only 28 columns are displayed simultaneously.

Code: Select all

5 CLS
10 DIMH(40)
11 FORI=1TO40
12 H(I)=RND(5)-RND(1)+1
13 NEXTI
14 A$="                            "
15 B$=A$
16 C$=A$
17 D$=A$
18 E$=A$
19 I=1
20 J=5
21 GOSUB100
22 A$=RIGHT$(A$,27)+X$
24 GOSUB100
25 B$=RIGHT$(B$,27)+X$
27 GOSUB100
28 C$=RIGHT$(C$,27)+X$
30 GOSUB100
31 D$=RIGHT$(D$,27)+X$
33 GOSUB100
34 E$=RIGHT$(E$,27)+X$
41 POKE218,2
42 POKE219,208
43 PRINTA$
44 PRINTB$
45 PRINTC$
46 PRINTD$
47 PRINTE$
48 I=I+1
49 IFI>40THENI=1
50 GOTO 20
100 X$=" "
105 IFH(I)>=JTHENX$="*"
107 J=J-1
110 RETURN
Apart from running it in Barry's speed hacked Basic which doesn't seem to handle RND like expected, I'm not yet sure which improvements could be made. I regret that strings may not be kept in arrays, even if it would not make any difference on execution speed.

I tried to use PEEK(3) instead of RND but it behaves in the same way re. speeded Basic.

Update 2: Here is an improved listing, which also may run a little fast as I found a way to use the SGN function. It runs in 1983 Basic, haven't tried the 1982 R1 Basic.

Code: Select all

1 L=60
2 DIMH(L)
3 V=1
4 FORI=1TOL
5 R=RND(3)-RND(1)+1
6 IFR=1ANDV>1THENV=V-1
7 IFR=3ANDV<5THENV=V+1
8 H(I)=V
9 NEXTI
10 A$="                            "
11 B$=A$
12 C$=A$
13 D$=A$
14 E$=A$
15 X$=" *"
16 I=1
19 CLS
20 A$=RIGHT$(A$,27)+MID$(X$,1+SGN(H(I)>=5),1)
21 B$=RIGHT$(B$,27)+MID$(X$,1+SGN(H(I)>=4),1)
23 C$=RIGHT$(C$,27)+MID$(X$,1+SGN(H(I)>=3),1)
24 D$=RIGHT$(D$,27)+MID$(X$,1+SGN(H(I)>=2),1)
25 E$=RIGHT$(E$,27)+MID$(X$,1+SGN(H(I)>=1),1)
30 POKE218,2
31 POKE219,210
32 PRINTA$
33 PRINTB$
34 PRINTC$
35 PRINTD$
36 PRINTE$
37 I=I+1
38 IFI>LTHENI=1
39 GOTO 20
User avatar
MADrigal
Site Admin
Posts: 1189
Joined: Sun Sep 15, 2013 1:00 pm
Contact:

Re: RND function

Post by MADrigal » Sun Sep 18, 2011 8:39 am

About Barry Klein's speed hack. As far as I remember, it's not a matter of "it running so fast -> the random generator works once per run". Ithink the speed hack also consists in "ignoring" the random generator. Not sure about that, but I think that Berry explained what actually changed with his speed Basic, and it had to do with the RND function.
User avatar
carlsson
Posts: 507
Joined: Fri Jun 13, 2008 7:39 am
Location: Västerås, Sweden

Re: RND function

Post by carlsson » Mon Feb 04, 2013 10:01 pm

For what it is worth, the BIOS routine at $FF58 seems to output decent pseudo-random numbers, except that all numbers are even. Note that it can't be used directly from BASIC anyway, as there is no CALL function and the result ends up in the accumulator anyway, but for machine code programs JSR $FF58 will pretty much generate numbers between $00 and $FF.
User avatar
Mobsie
Posts: 708
Joined: Fri Jun 13, 2008 10:38 am
Location: Weinheim, Germany

Re: RND function

Post by Mobsie » Sat May 11, 2013 8:04 am

Hi Carlsson,
have you test the BIOS RND function in assembler because i need a RND function?
And when the BIOS function work okay why not use.
thank you
User avatar
carlsson
Posts: 507
Joined: Fri Jun 13, 2008 7:39 am
Location: Västerås, Sweden

Re: RND function

Post by carlsson » Sun May 12, 2013 2:52 pm

Yes, in Reversi I call $FF58. The value is returned in A and seems fairly OK, except that you only get even numbers.

Code: Select all

PHA
JSR $FF58
TAX
PLA
CPX #77 ; 30% of maximum value
BCS ...
User avatar
Mobsie
Posts: 708
Joined: Fri Jun 13, 2008 10:38 am
Location: Weinheim, Germany

Re: RND function

Post by Mobsie » Tue Apr 25, 2023 11:05 am

Hi,

i try to use this one:

; Returns a random 8-bit number in A (0-255), clobbers Y (unknown).
prng:
lda seed+1
tay ; store copy of high byte
; compute seed+1 ($39>>1 = %11100)
lsr ; shift to consume zeroes on left...
lsr
lsr
sta seed+1 ; now recreate the remaining bits in reverse order... %111
lsr
eor seed+1
lsr
eor seed+1
eor seed+0 ; recombine with original low byte
sta seed+1
; compute seed+0 ($39 = %111001)
tya ; original high byte
sta seed+0
asl
eor seed+0
asl
eor seed+0
asl
asl
asl
eor seed+0
sta seed+0
rts

With the 16 Bit seed the sequence of numbers it generates will repeat after 65535 calls. That’s great.

Also the bios rnd function only deliver one random number in one frame, maybe i do wrong but also $03 only one per frame.

But i need more to init the enemy’s , and here this should not an issue.
User avatar
@username@
Posts: 320
Joined: Tue Oct 22, 2013 6:59 pm
Location: Scotland

Re: RND function

Post by @username@ » Tue Apr 25, 2023 4:56 pm

That looks like galois16 - the others are here https://github.com/bbbradsmith/prng_6502
User avatar
Mobsie
Posts: 708
Joined: Fri Jun 13, 2008 10:38 am
Location: Weinheim, Germany

Re: RND function

Post by Mobsie » Tue Apr 25, 2023 6:38 pm

👍 great
Post Reply