Apple-2gs-SW
/
MiniMemoryTester
mirror of https://github.com/digarok/MiniMemoryTester.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fixed 16 bit random

This commit is contained in:
Dagen Brock 2015-10-12 21:30:16 -05:00
parent 5f1909a25b
commit bd414a4c27
3 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/menu.s
View File

@ -947,3 +947,4 @@ BINBCDVARDUMP
jsr RDKEY
rts

1
src/misc.s
View File

@ -135,3 +135,4 @@ PopAll MAC
<<<

18
src/mmt.s
View File

@ -161,8 +161,10 @@ TestMasterLoop clc
ldy StartAddr
ldx EndAddr
stz CurBank
lda _updateInterval ;@todo ?
sta _updateTick ;this hack makes bank loops consistent. might not be the best thing
jsr TestPrintIteration
jsr TestPrintErrors ;just to get it drawn
:NextBank jsr TestSetState ;sets read/write/both
@ -1091,11 +1093,12 @@ PrintTimerVal
*$cf (207)
*$e7 (231)
*$f5 (245)
mx $00
GetRandByte16 sec
xce
sep #$30
* This is ridiculously poorly implemented. Don't care.
mx $00
GetRandByte16 PushAll
ShortMX
lda _seed16a
beq :doEor
asl
@ -1109,10 +1112,8 @@ GetRandByte16 sec
bcc :noEorB
:doEorB eor #$5f
:noEorB sta _seed16b
clc
xce
rep #$30
Full16
PopAll
lda _seed16a
rts
_seed16a db 03
@ -1562,4 +1563,3 @@ BankExpansionHighest ds 1
BankMap ds 256 ;page-align maps just to make them easier to see
_stash ds 256
ds \