Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > Hallo..... > > Ich hab den Benchmark mal modifiziert um ihn möglichst aussagekräftig zu machen. > Er sollte alle wichtigen Operationen beeinhalten. Was du nicht 1:1 umsetzen kannst, > würde ich dann zu Vergleichszwecken rausnehmen. > Die CC1 V 2.0 läuft hier mit 17600 I/s das sind 56us/Instruction. > ciao....... > ---------------------------------------------------------------------------------------------------------- > define LIGHT port[16] > define ADC1 ad[1] > define LED port[8] > define BPORT byteport[1] > define INSTRUC word[1] > define WORDVAR word[2] > define WCOUNTER word[3] > define BYTEVAR byte[7] > define COUNTER byte[8] > define BO bit[17] > > > print"#ON_LCD#"; > print"#INIT#"; > > #LOOP > print"#L101#";:print"RUNNING......"; > '-------------------------------------------------- > gosub BMX > print"#L101#";:print"BENCHMARK "; > print"#L201#";:print"BM= ";:print INSTRUC;:print" I/s ";:pause 100 > '-------------------------------------------------- > goto LOOP > > 'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII > #BMX > INSTRUC=0:SECOND=0 > #BMXRUN > BO=on 'INSTRUCTION 1 > BO=off 'INSTRUCTION 2 > '----------- BYTE OPERATIONS ---------------------- > BYTEVAR=BYTEVAR+BYTEVAR 'INSTRUCTION 3 > BYTEVAR=BYTEVAR shr 4 'INSTRUCTION 4 > BYTEVAR=BYTEVAR*BYTEVAR 'INSTRUCTION 5 > BYTEVAR=BYTEVAR/BYTEVAR 'INSTRUCTION 6 > BYTEVAR=BYTEVAR-BYTEVAR 'INSTRUCTION 7 > looktab tab,0,BYTEVAR 'INSTRUCTION 8 > '---------- WORD OPERATIONS -------------------------- > WORDVAR=WORDVAR+WORDVAR 'INSTRUCTION 9 > WORDVAR=WORDVAR shr 4 'INSTRUCTION 10 > WORDVAR=WORDVAR*WORDVAR 'INSTRUCTION 11 > WORDVAR=WORDVAR/WORDVAR 'INSTRUCTION 12 > WORDVAR=WORDVAR-WORDVAR 'INSTRUCTION 13 > looktab tab,0,WORDVAR 'INSTRUCTION 14 > '---------- LOOPS ------------------------------------ > for COUNTER=1 to 10 'INSTRUCTION 15-24 > next > for WCOUNTER=1 to 10 'INSTRUCTION 25-34 > next > '---------- FLOW CONTROL ----------------------------- > goto JUMP 'INSTRUCTION 35 > #JUMP > if BYTEVAR=0 then goto JUMP1 ' INSTRUCTION 36 > #JUMP1 > if WORDVAR=0 then goto JUMP2 ' INSTRUCTION 37 > #JUMP2 > gosub JSR 'INSTRUCTION 38+39 > '---------- I/O OPERATIONS --------------------------- > LED=on 'INSTRUCTION 40 > LED=off 'INSTRUCTION 41 > LED=BO 'INSTRUCTION 42 > WORDVAR=ADC1 'INSTRUCTION 43 > TOG LED 'INSTRUCTION 44 > PULSE LED 'INSTRUCTION 45 > BPORT=on 'INSTRUCTION 46 > BPORT=off 'INSTRUCTION 47 > BPORT=BYTEVAR 'INSTRUCTION 48 > DEACT LED 'INSTRUCTION 49 > DEACT BPORT 'INSTRUCTION 50 > '--------------------------------------------------- > if SECOND>0 then return 'INSTRUCTION 51 > INSTRUC=INSTRUC+53 'INSTRUCTION 52 > goto BMXRUN 'INSTRUCTION 53 > 'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII > #JSR > return > '---------------------------------------------- > table tab > 0 > tabend > > > > > > > > >
