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