Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-08 08:33:37 +00:00
Code Issues Projects Releases Wiki Activity

KERNEL:better random16 generation

Browse Source
This commit is contained in:
Rémy GIBERT 2016-03-26 08:28:47 +01:00
parent f8be97559d
commit 700b408efc
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SYS/KERNEL.S.EVT.txt
View File

@ -131,8 +131,6 @@ S.GetKeyboardEvent
bpl .9
sta KBDSTROBE
sta A2osX.RANDOM16
and #$7F
ldy #S.EVT.DATA
sta (pEvent),y
@ -151,7 +149,7 @@ S.GetKeyboardEvent
.9 inc A2osX.RANDOM16
bne .99
inc A2osX.RANDOM16+1
dec A2osX.RANDOM16+1
.99 sec no event
rts
*--------------------------------------