Increment random seed in my keyboard loop.

This commit is contained in:
Martin Haye 2015-08-21 09:28:57 -07:00
parent 50a7123381
commit 9eb99c4dc5

View File

@ -6,6 +6,7 @@ const NULL = 0
///////////////////////////////////////////////////////////////////////////////////////////////////
// Fixed memory locations
const seed = $4E // Incremented continuously by montitor's rdkey routine
const displayEngine = $6000 // main mem (raycaster and tile engine at same location)
const expandVec = $2000 // aux mem (only for raycaster)
const fontEngine = $E000 // main mem
@ -749,6 +750,7 @@ end
def getUpperKey()
byte key
while ^keyboard < 128
seed = seed+1
loop
key = ^keyboard & $7F
^keystrobe