[FASM] Heaven's gate - Printable Version

Code:
include 'win32ax.inc' ;We want to run as a x86 process

.data
        szMessageCaption        DB "DeadlyVermilion", 0
        szMessageText32         DB "This seems to be running on a 32 bit operating system.", 0

.code

proc Our64Proc ;This proc is x64 code
     use64
        CALL @F
        DB "This was generated using 64 bit ASM code.", 0
@@:
        POP RAX
        MOV RCX, RAX

     use32
        RETF
endp

start:
        ;invoke DebugBreak ;Used for debugging

        MOV AX, CS
        CMP AL, 1Bh ;1Bh for 32 bits native, 33h if 64 bits native, 23h for wow64
        JE Its32BitsNative
        CMP AL, 33h
        JE ExitCode

        XOR ECX, ECX
        CALL 33h:Our64Proc

        invoke MessageBox, 0, ECX, szMessageCaption, MB_OK
        JMP ExitCode

Its32BitsNative:
        invoke MessageBox, 0, szMessageText32, szMessageCaption, MB_OK


ExitCode:
        invoke ExitProcess, 0
.end start