tyrel/pikuma_6502_nes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added random number generator

Browse Source
This commit is contained in:
Tyrel Souza 2022-12-08 23:52:02 -05:00
parent 03454f01cb
commit 96c424fba7
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
atlantico/atlantico.asm
View File

@ -44,6 +44,8 @@ PrevOAMCount: .res 1 ; Store the previous number of bytes that were sent
ActorsArray: .res MAX_ACTORS * .sizeof(Actor)
Seed: .res 1 ; Used as the RANDOM NUMBER GENERATOR SEED
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; PRG-ROM code located at $8000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -512,6 +514,31 @@ EndRoutine:
rts
.endproc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Returns a random 8 bit number inside A (0-255), clobbers Y (0)
;; requires 1-byte value on the Zero Page called Seed
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; this is an 8 bit galois LFSR with polynomial $1D
;; The sequence of numbers it generates will repeat after 255 calls
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.proc GetRandomNumber
ldy #8 ; Loop counter (generates 8 bits)
lda Seed ;
Loop8Times:
asl ; Shift the register left
bcc :+ ;
eor #$1D ; Apply XOR feebback when a 1bit is shifted out
: ;
dey ;
bne Loop8Times ;
sta Seed ; Saves the value in A
cmp #0 ;
rts ;
.endproc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Reset handler (called when the NES resets or powers on)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;