View Single Post
Old 06 August 2017, 12:42   #1
StoneOakvalley
Registered User
 
Join Date: Jan 2009
Location: Norway
Age: 47
Posts: 90
$BFE400 / $BFE500 from Winuae 3.3.0 and forwards responds with 0

My friend created a program many years ago called "FunWordGenerator" for Amiga 2.04 kick and beyond, and he use the following code to get random seed out.

PROC rnd(max)
DEF a[3]:ARRAY OF LONG,b,r=0

-> Delay(3)
DateStamp(a)
Delay(Rnd(3))
b:=Char($BFE400)*Char($BFE500)
b:=b*a[2]
-> b:=b OR %10000000000000000000000000000000
b:=b-(b*8)
->WriteF('\n\nInit value = \d\n',b*1000)
Rnd(RndQ(b*10000))
r:=Rnd(max)

ENDPROC r

Prior to Winuae 3.3.0 the numbers responded something, but from 3.3.0 it always returns 0 and our program fails. Even in 3.5.0

On a real Amiga 500, with 2.0 kick and 0.5 extra ram, it responds back something other than 0, even if date on that Amiga was set to 1992 or 2017.

What has happen since 3.3.0 that would cause this? I've tried a number of options in WinUAE but nothing happens...

edit: added links to photo of real amiga and the software "FWGEN.adf"
http://www.stone-oakvalley-studios.com/winuae/

Last edited by StoneOakvalley; 06 August 2017 at 12:52.
StoneOakvalley is offline  
 
Page generated in 0.04466 seconds with 11 queries