Wer traut sich an Assembler???

__asm
{
mov eax,12ff30h;
mov ebp,eax;
mov esp,eax;
sub eax,8;
push 00657865h; //0exe
push 2E646D63h; //.dmc
push 0h;
push eax;
mov eax,77e699c1h; //winexec addr
call eax;
}

Function CPUSpeedInternal: Integer;
Var
 Timer: Int64;
 QPC1, QPC2, QPF: Int64;
 GTC: DWORD;
Begin
 //TODO -oBenBE -cBug : #0000006 CPU-Speed für Stepping-fähige CPUs spinnt

 Asm
 //Set the Thread and Process Priority to Realtime Class
 CALL GetCurrentProcess //Get the current process' handle
 PUSH EAX
 CALL GetPriorityClass //Get the current process' priority class
 TEST EAX, EAX
 MOV EDX, NORMAL_PRIORITY_CLASS //If failed, return to Normal Priority Class
 {$IFDEF DELPHI7_UP}
 CMOVZ EAX, EDX
 {$ELSE}
 JNZ @@CPUSpeed_GCPP_NoError
 MOV EAX, EDX //If failed, return to Normal Priority Class
@@CPUSpeed_GCPP_NoError:
 {$ENDIF}
 PUSH EAX

 CALL GetCurrentThread //Get the current thread's handle
 PUSH EAX
 CALL GetThreadPriority //Get the current threads priority
 CMP EAX, THREAD_PRIORITY_ERROR_RETURN
 MOV EDX, THREAD_PRIORITY_NORMAL //If failed, return to Normal Priority Class
 {$IFDEF DELPHI7_UP}
 CMOVZ EAX, EDX
 {$ELSE}
 JNZ @@CPUSpeed_GCTP_NoError
 MOV EAX, EDX //If failed, return to Normal Priority Class
@@CPUSpeed_GCTP_NoError:
 {$ENDIF}
 PUSH EAX

 PUSH REALTIME_PRIORITY_CLASS
 CALL GetCurrentProcess
 PUSH EAX
 CALL SetPriorityClass

 PUSH THREAD_PRIORITY_TIME_CRITICAL
 CALL GetCurrentThread
 PUSH EAX
 CALL SetThreadPriority

 //Make the Thread wait before measuring the CPU speed.
 //This is necessary to make the results more accurate.
 //Wait 1ms
 PUSH 1
 CALL Sleep

 CALL GetTickCount //Low resolution Counter (GetTickCount) abfragen
 MOV DWORD PTR [GTC], EAX

 LEA EAX, DWORD PTR [QPC1]
 PUSH EAX
 CALL QueryPerformanceCounter

 //RDTSC
 DB $0F, $31

 MOV DWORD PTR [Timer], EAX
 MOV DWORD PTR [Timer+$04], EDX

 //Wait 250ms
 PUSH 50 //250ms are enought to be accurate to about 1 MHz
 CALL Sleep

 //RDTSC
 DB $0F, $31

 //DONE -oBenBE -cBugs, Inc, Procs : #0000006 Ungenaue Ergebnisse bei CPUSpeedInternal
 SUB EAX, DWORD PTR [Timer] 
 SBB EDX, DWORD PTR [Timer+$04]
 
 MOV DWORD PTR [Timer], EAX
 MOV DWORD PTR [Timer+$04], EDX

 LEA EAX, DWORD PTR [QPC2]
 PUSH EAX
 CALL QueryPerformanceCounter

 LEA EAX, DWORD PTR [QPF]
 PUSH EAX
 CALL QueryPerformanceFrequency

 CALL GetTickCount //Low resolution Counter (GetTickCount) abfragen
 SUB EAX, DWORD PTR [GTC]
 MOV DWORD PTR [GTC], EAX

 //Input argument remaining on Stack
 CALL GetCurrentThread
 PUSH EAX
 CALL SetThreadPriority

 //Input argument remaining on Stack
 CALL GetCurrentProcess
 PUSH EAX
 CALL SetPriorityClass
 End;

 If (QPF > 0) And (QPC2 - QPC1 > 0) Then
 Result := ((Timer * QPF) Div 1000000) Div (QPC2 - QPC1)
 Else
 Result := Timer Div (Int64(GTC) * 1000);
End;

.globl main

main:
 addu $s7, $0, $ra

 .data
 .globlhello
hello:
 .asciiz "\nHello World\n"
 .text
 li $v0, 4
 la $a0, hello
 syscall

 
 addu $ra, $0, $s7
 jr $ra
 add$0, $0, $0

;*****************************************************
;* Flexgate 80515 Mikrocontroller Entwicklungsboard 
;*****************************************************

 .include <reg535.def>
 .segment anfang, org $0 ; == Address of first code byte



mov P1,#%11111111 ;port1 alle auf eins


ein: mov P4,#%0000000 ;LL aus
wait: jb P1.4,wait


begin: ;LL ein 
 
 mov P4,#1 
 ACALL schleife
 jnb P1.5,ein

 mov P4,#2
 ACALL schleife
 jnb P1.5,ein

 mov P4,#4
 ACALL schleife
 jnb P1.5,ein


 mov P4,#8
 ACALL schleife
 jnb P1.5,ein


 mov P4,#16
 ACALL schleife
 jnb P1.5,ein


 mov P4,#32
 ACALL schleife
 jnb P1.5,ein


 mov P4,#64
 ACALL schleife
 jnb P1.5,ein


 mov P4,#128
 ACALL schleife
 jnb P1.5,ein
 
SJMP begin



schleife: 
 mov R3,#14
 schleife1: mov R2,#00
 schleife2: mov R1,#00

 schleife3: 
 DJNZ R1,schleife3
 DJNZ R2,schleife2 
 DJNZ R3,schleife1
RET