$programmer = 22                                            'ARDUINO (using stk500v1 protocol)
$regfile = "m328pdef.dat"                                   'Set the AVR to use - ATMega328.
$crystal = 16000000                                         'Set the AVR clock.
   '
$hwstack = 48                                               'Set the capacity of the hardware stack.
$swstack = 80                                               'Set the capacity of the software stack.
$framesize = 80


' ---------------------------------------------
'  * PCF8574 I2C LCD Adapter settings *
'----------------------------------------------
$lib "i2c_twi.lib"                                       'Incorporate the hardware I2C/TWI library.
Config Twi = 100000                                      'I2C bus clock = 100KHz
Config Scl = Portc.5                                     'You must specify the SCL pin name.
Config Sda = Portc.4                                     'You must specify the SDA pin name.
I2cinit                                                  'Initialize the SCL and SDA lines of the I2C bus.

Dim Pcf8574_lcd As Byte : Pcf8574_lcd = &H4E             'PCF8574 slave address. (&H40,&H42,&H44,&H46,&H48,&H4A,&H4C,&H4E)
Dim Backlight As Byte : Backlight = 1                    'LCD backlight control. (0: off, 1: on)
$lib "lcd_i2c_PCF8574.LIB"                               'Incorporate the library of I2C LCD PCF8574 Adapter.
Config Lcd = 16x2                                        'Set the LCD to 16 characters and 2 lines.
Initlcd



'-------------------------------------------------------
' Here we make a more random seed
'

Dim I as Byte
MakeSeed:
cls
CONFIG ADC = free, PRESCALER = 2
Dim Rnd_word as word
'Dim I as byte
Dim Bit_num as byte
Dim Adc_word as word
lcd "Random Gen:"
Rnd_word = 0
For I = 1 To 255                                            'n times the whole process to mix the value up well
   For Bit_num = 0 To 25
      Adc_word = Getadc(0)
      Adc_word = Adc_word And 1
      Rotate Rnd_word , Left
      Rnd_word = Rnd_word Xor Adc_word
   Next
Next
''__rseed = Rnd_word                                          'use random value to set the seed or for whatever
'cls
lcd Rnd_word

waitms 100

Goto MakeSeed


 

Dim I as word
Dim AdcJunk as Word
MakeSeed:

CONFIG ADC = free, PRESCALER = 2,  REFERENCE = off

Dim Rnd_word as word
'Dim I as byte
Dim Bit_num as byte
Dim Adc_word as word

'Rnd_word = 0
For I = 1 To 2550                                            'n times the whole process to mix the value up well
   For Bit_num = 0 To 250
      AdcJunk = Getadc(0)
      AdcJunk = Adc_word And 1
      Rotate Rnd_word , Left
      Rnd_word = Rnd_word Xor AdcJunk
   Next
Next
''__rseed = Rnd_word                                          'use random value to set the seed or for whatever
cls
lcd "Random Gen:"
lcd Rnd_word

waitms 100

Goto MakeSeed

 

adc_word = getadc(0)
 

lds R16,ADMUX
andi R16,&B11110000  'MUX3:0 = 0
sts ADMUX,R16
'and, for short, in pseudo-word assembler:
lds R24:R25,ADC
ldi X,{adc_word}
st X,R24:R25
 

CONFIG ADC = Single, PRESCALER = Auto,  REFERENCE = Avcc

Dim Adc_word as word
Dim Bit_num as Byte
Dim Rnd_word as word

For I = 1 To 72
   For Bit_num = 0 To 7
      Start ADC
      Adc_word = Getadc(Bit_num)
      Stop ADC
      Rotate Rnd_word , Left
      Rnd_word = Rnd_word Xor Adc_word
   Next
Next
___rseed = Rnd_word