1
0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-11-27 01:51:35 +00:00
8bitworkshop/presets/vcs/vcslib/rand8.ca65
2023-10-30 23:16:36 -05:00

37 lines
383 B
Plaintext

.include "vcs-ca65.inc"
.global _randseed8
.global _initrand8
.global _nextrand8
.global _prevrand8
_randseed8: .res 1
.proc _initrand8
lda INTIM
ora #1
sta _randseed8
rts
.endproc
.proc _nextrand8
lda _randseed8
lsr
bcc :+
eor #$d4
:
sta _randseed8
rts
.endproc
.proc _prevrand8
lda _randseed8
asl
bcc :+
eor #$a9
:
sta _randseed8
rts
.endproc