empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support randomize().

Browse source 
In order to have randomize() work as expected (and the Apple II random number generation in general) it is necessary to update the random counter during keypress wait just like the ROM function does.
This commit is contained in:
Oliver Schmidt 2018-09-08 18:44:30 +02:00
parent b6ccd4d5d4
commit 73faf60fe0
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
libsrc/apple2/cgetc.s
View file

@ -25,8 +25,11 @@ _cgetc:
jsr putchardirect ; Returns old character in X
; Wait for keyboard strobe.
: inc RNDL ; Increment random counter low
bne :+
inc RNDH ; Increment random counter high
: lda KBD
bpl :- ; If < 128, no key pressed
bpl :-- ; If < 128, no key pressed
; Cursor on ?
ldy cursor