Hier ist noch das TestProgramm:

$programmer = 12 '1=LPT stk200 13=MCS Bootloader 12=USBISP

' ---------------RN-Mega128Funk übliche ------------------

$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 32
$swstack = 32
$hwstack = 32

$crystal = 16000000 'Quarzfrequenz

Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk

' ---------------------------------------------------
Config Portd = Output

Do
Portd.0 = 1
Portd.1 = 1
Wait 5
Portd.0 = 0
Portd.1 = 0
Wait 5
Loop