Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-07-06 03:28:59 +00:00
Code Issues Projects Releases Wiki Activity

Improved random number generator on the Apple 2.

Browse Source
This commit is contained in:
Oliver Schmidt 2015-02-16 17:48:48 +01:00
parent 079e34939a
commit bc17aefbfe
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ip65/ip65.s
View File

@ -51,8 +51,9 @@ ip65_error: .res 1 ; last error code
; outputs: AX set to a pseudo-random 16 bit number
ip65_random_word:
jsr timer_read ;sets AX
adc $4e ; on an Apple 2, this is RNDL
adc $9004 ; on a VIC 20, this is the raster register
adc $d41b ; on a c64, this is a 'random' number from the SID
adc $d41b ; on a C64, this is a 'random' number from the SID
pha
adc ip65_ctr_arp
ora #$08 ; make sure we grab at least 8 bytes from eth_inp