Dobór rezystora do przełącznika przy ATMEGA 8 - jaki prąd maksymalny?

$REGFILE="m8def.dat"
$CRYSTAL=8000000

Config Pinb.4 = Output
Config Pinb.1 = Input

Dim I As byte

Przycisk Alias Pinb.1                     'zmień nazwę Pinb.1 na Przycisk

Set Portb.1                                  'włącz rezystor podciągowy do Portb.1

Do                                               'początek pętli nieskończonej
   If Przycisk = 0 Then                   'jeśli przycisk naciśnięty
        Waitms 25                            'czekaj25ms(eliminacja drgań styków)
        Incr I                                   'zwiększ I o 1
  End If                                        
Loop                                            'koniec pętli nieskończonej
End                                             'koniec programu