6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Change initial seed to 1

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1488 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-11-05 13:19:43 +00:00
parent 3fae969b5b
commit 839b425890
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libsrc/common/rand.s
View File

@ -1,4 +1,4 @@
;
;
; Randum number generator
;
; Written and donated by Sidney Cadot - sidney@ch.twi.tudelft.nl
@ -21,9 +21,11 @@
.export _rand, _srand
.bss
.data
rand: .res 4 ; Seed
; The seed. When srand() is not called, the C standard says that that rand()
; should behave as if srand() was called with an argument of 1 before.
rand: .dword 1
.code
@ -51,7 +53,7 @@ _rand: clc
lda rand+3
adc #$31
sta rand+3
pla ; return bit 8-22 in (X,A)
pla ; return bit 8-22 in (X,A)
rts
_srand: sta rand+0 ; Store the seed
@ -61,3 +63,4 @@ _srand: sta rand+0 ; Store the seed
sta rand+3
rts