PureBasic

Code : Tout sélectionner

; 
; PureBasic 4.51 (Windows - x64) generated code
; 
; (c) 2010 Fantaisie Software
; 
; The header must remain intact for Re-Assembly
; 
; String
; Requester
; FileSystem
; Date
; Object
; SimpleList
; Memory
; :System
; KERNEL32
; :Import
; 
format MS64 COFF
; 
extrn ExitProcess
extrn GetModuleHandleA
extrn HeapCreate
extrn HeapDestroy
; 
extrn PB_CopyMemory
extrn PB_FreeMemorys
extrn PB_InitMemory
extrn PB_InitRequester
extrn PB_MessageRequester
extrn PB_Str
extrn memset
extrn PB_StringBase
extrn SYS_InitString
; 
extrn PB_StringBasePosition
public _PB_Instance
public PB_ExecutableType
public _PB_MemoryBase
public PB_Instance
public PB_MemoryBase
public PB_EndFunctions

macro pb_public symbol
{
  public  _#symbol
  public symbol
_#symbol:
symbol:
}

macro    pb_align value { rb (value-1) - ($-_PB_DataSection + value-1) mod value }
macro pb_bssalign value { rb (value-1) - ($-_PB_BSSSection  + value-1) mod value }

define aligngosub1
define aligngosub2
define aligngosub3
define aligngosub4

public PureBasicStart
; 
section '.code' code readable executable align 8
; 
; 
PureBasicStart:
; 
  SUB    rsp,40
  MOV    r8,I_BSSEnd-I_BSSStart
  XOR    rdx,rdx
  MOV    rcx,I_BSSStart
  CALL   memset
  XOR    rcx,rcx
  CALL   GetModuleHandleA
  MOV    [PB_Instance],rax
  XOR    r8,r8
  MOV    rdx,4096
  XOR    rcx,rcx
  CALL   HeapCreate
  MOV    [PB_MemoryBase],rax
  CALL   SYS_InitString
  CALL   PB_InitMemory
  CALL   PB_InitRequester
; 
; CompilerIf #PB_Compiler_Debugger = 1
; 
; Goto CODE
  JMP    l_code
; 
; !section '.code' code readable writeable executable align 8
section '.code' code readable writeable executable align 8
; 
; CODE:
l_code:
  aligngosub1
; 
; a = 0
  MOV    qword [v_a],0
; 
; CopyMemory(?DEBUT, ?DEST, ?FIN-?DEBUT)
  MOV    rbp,l_fin
  MOV    r15,rbp
  MOV    rbp,l_debut
  SUB    r15,rbp
  MOV    rax,r15
  PUSH   rax
  MOV    rbp,l_dest
  MOV    rax,rbp
  PUSH   rax
  MOV    rbp,l_debut
  MOV    rax,rbp
  PUSH   rax
  POP    rcx
  POP    rdx
  POP    r8
  CALL   PB_CopyMemory
; 
; DEBUT:
l_debut:
  aligngosub2
; a+2
  ADD    qword [v_a],2
; FIN:
l_fin:
  aligngosub3
; 
; DEST:
l_dest:
  aligngosub4
; a+3
  ADD    qword [v_a],3
; 
; MessageRequester("Code modifié", Str(a))
  PUSH   qword [PB_StringBasePosition]
  SUB    rsp,8
  PUSH   qword [PB_StringBasePosition]
  SUB    rsp,8
  PUSH   qword [PB_StringBasePosition]
  PUSH   qword [v_a]
  POP    rcx
  POP    rdx
  SUB    rsp,32
  CALL   PB_Str
  ADD    rsp,40
  INC    qword [PB_StringBasePosition]
  MOV    rax,_S1
  PUSH   rax
  MOV    rdx,[PB_StringBase]
  ADD    [rsp+8],rdx
  POP    rcx
  POP    rdx
  SUB    rsp,32
  CALL   PB_MessageRequester
  ADD    rsp,40
  POP    qword [PB_StringBasePosition]
; 
; End
  JMP   _PB_EOP
_PB_EOP:
  CALL   PB_EndFunctions
  MOV    rcx,[PB_MemoryBase]
  CALL   HeapDestroy
  MOV    rcx,[PB_ExitCode]
  CALL   ExitProcess
PB_EndFunctions:
  SUB    rsp,40
  CALL   PB_FreeMemorys
  ADD    rsp,40
  RET
; 
; 
section '.data' data readable writeable
; 
_PB_DataSection:
pb_public PB_DEBUGGER_LineNumber
  dd     -1
pb_public PB_DEBUGGER_IncludedFiles
  dd     0
pb_public PB_DEBUGGER_FileName
  db     0
PB_ExecutableType: dd 0
public _SYS_StaticStringStart
_SYS_StaticStringStart:
_S1: db "Code modifié",0
pb_public PB_NullString
  db     0
public _SYS_StaticStringEnd
_SYS_StaticStringEnd:
pb_align 8
pb_align 8
s_s:
  dq     0
  dq     -1
pb_align 8
; 
section '.bss' readable writeable
_PB_BSSSection:
pb_bssalign 8
; 
I_BSSStart:
_PB_MemoryBase:
PB_MemoryBase: rq 1
_PB_Instance:
PB_Instance: rq 1
PB_ExitCode: rq 1
; 
pb_bssalign 8
PB_DataPointer rq 1
v_a rq 1
pb_bssalign 8
pb_bssalign 8
pb_bssalign 8
pb_bssalign 8
I_BSSEnd:
section '.data' data readable writeable
SYS_EndDataSection: