Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
zu 1.) Dazu ist mir kein anderer Weg bekannt.Fluid Byte hat geschrieben:Zwei Fragen:
1.) Wie bekomme ich die Adresse des TIB ohne das FS-Register?
2.) Der ASM-Code ist so nicht 64Bit kompatibel. Korrekt?
Ich kenne keine hab mich aber auch nie intensiv damit beschäftigt.Fluid Byte hat geschrieben:Klingt sehr interessant. Auch wenn ich natürlich Kosten/Nutzen abwäge und sowas für die meisten Projekte nicht in Frage kommt
hätte ich Lust mich damit mit mal näher zu befassen. Gibt es da entsprechende Tutorials oder eine Art Crashkurs um das Ganze mal
besser zu veranschaulichen?
Da steckt nicht besonders viel dahinter: Du musst dir nur überlegen, wie dein Bytecode aussehen soll (Instruktionen und ihre Parameter) und dann besteht der Interpreter für die Virtuelle Maschine einfach daraus den Bytecode zu lesen und die entsprechenden Instruktionen auszuführen.Fluid Byte hat geschrieben:Klingt sehr interessant. Auch wenn ich natürlich Kosten/Nutzen abwäge und sowas für die meisten Projekte nicht in Frage kommt
hätte ich Lust mich damit mit mal näher zu befassen. Gibt es da entsprechende Tutorials oder eine Art Crashkurs um das Ganze mal
besser zu veranschaulichen?
Code: Alles auswählen
Enumeration
#ILiteral ; argument: 1-byte literal
#IPush ; no arguments
#IPop
#IAdd
#ISub
#IMul
#IDiv
EndEnumeration
Procedure Interpreter(*Code.BYTE, *CodeEnd)
Protected Dim Stack(50)
Protected Index = 0
Protected Accumulator = 0
While *Code < *CodeEnd
Select *Code\b
Case #ILiteral
Accumulator = PeekB(*Code+1)
*Code + 2
Case #IPush
If Index = 50
Debug "Stack overflow"
Break
EndIf
Index + 1
Stack(Index) = Accumulator
*Code + 1
Case #IPop
If Index = 0
Debug "Stack underflow"
Break
EndIf
Accumulator = Stack(Index)
Index - 1
*Code + 1
Case #IAdd
Accumulator = Stack(Index) + Accumulator
Index - 1
*Code + 1
Case #ISub
Accumulator = Stack(Index) - Accumulator
Index - 1
*Code + 1
Case #IMul
Accumulator = Stack(Index) * Accumulator
Index - 1
*Code + 1
Case #IDiv
Accumulator = Stack(Index) / Accumulator
Index - 1
*Code + 1
Default
Debug "Invalid Instruction"
Break
EndSelect
Wend
ProcedureReturn Accumulator
EndProcedure
Debug Interpreter(?Code1, ?CodeEnd1)
Debug Interpreter(?Code2, ?CodeEnd2)
DataSection
; Code: (((5 * 7) + (10 - 3)) * 2) = 84
;
Code1:
Data.b #ILiteral, 5
Data.b #IPush
Data.b #ILiteral, 7
Data.b #IMul
Data.b #IPush
Data.b #ILiteral, 10
Data.b #IPush
Data.b #ILiteral, 3
Data.b #ISub
Data.b #IAdd
Data.b #IPush
Data.b #ILiteral, 2
Data.b #IMul
CodeEnd1:
; Code: 2^5 = 32
Code2:
Data.b #ILiteral, 2
Data.b #IPush
Data.b #ILiteral, 2
Data.b #IMul
Data.b #IPush
Data.b #ILiteral, 2
Data.b #IMul
Data.b #IPush
Data.b #ILiteral, 2
Data.b #IMul
Data.b #IPush
Data.b #ILiteral, 2
Data.b #IMul
CodeEnd2:
EndDataSection
Code: Alles auswählen
Procedure IsDebuggerPresent()
v=0
!MOV eax, [fs:$18];
!MOV eax, [eax+$30];
!MOVZX eax, byte [eax+2];
MOV v,eax
ProcedureReturn v
EndProcedure;
Mittels deiner Erläuterungen und dem anschaulichen Demo-Quelltext habe selbst ich das Grundprinzip jetzt verstanden.freak hat geschrieben:Da steckt nicht besonders viel dahinter: Du musst dir nur überlegen, wie dein Bytecode aussehen soll (Instruktionen und ihre Parameter) und dann besteht der Interpreter für die Virtuelle Maschine einfach daraus den Bytecode zu lesen und die entsprechenden Instruktionen auszuführen
