Include 'win64a.inc'

format PE64 GUI 4.0
entry main

section '.data' data readable writeable
    a           dq 365
    b           dq 2026

    title       db 'Fasm calculation',0
    prefix      db 'our days living on earth : '
    prefix_len  = $ - prefix

    message     rb 80
    numbuf      rb 32

section '.text' code readable executable

main:
    sub rsp, 8

    ; 1. calculation
    mov rax, [a]
    imul rax, [b]

    ; 2. Zahl in Dezimaltext umwandeln
    lea r10, [numbuf + 31]
    mov byte [r10], 0
    mov r8, 10

.convert:
    xor edx, edx
    div r8
    add dl, '0'
    dec r10
    mov [r10], dl
    test rax, rax
    jnz .convert

    ; Anfang und Laenge der Zahl merken
    mov r9, r10
    lea r8, [numbuf + 31]
    sub r8, r9

    ; 3. Prefix in die Meldung kopieren
    lea r10, [message]
    lea r11, [prefix]
    mov ecx, prefix_len

.copy_prefix:
    test rcx, rcx
    jz .copy_number
    mov al, [r11]
    mov [r10], al
    inc r11
    inc r10
    dec rcx
    jmp .copy_prefix

    ; 4. Zahl hinter den Prefix kopieren
.copy_number:
    mov rcx, r8

.copy_digit:
    test rcx, rcx
    jz .finish
    mov al, [r9]
    mov [r10], al
    inc r9
    inc r10
    dec rcx
    jmp .copy_digit

.finish:
    mov byte [r10], 0

    ; 5. Ergebnis anzeigen
    invoke MessageBox, NULL, message, title, MB_OK

    ; 6. Programm beenden
    invoke ExitProcess, 0

section '.idata' import data readable
    library kernel32, 'kernel32.dll', \
            user32, 'user32.dll'

include 'api/kernel32.inc'
include 'api/user32.inc'
    

include 'win64a.inc'

format PE64 console
entry main

section '.data' data readable writeable

    prompt1 db 'please type in first number: '
    prompt1_len = $ - prompt1

    prompt2 db 'please txpe in second number: '
    prompt2_len = $ - prompt2

    result_msg db 'result is : '
    result_len = $ - result_msg

    newline db 13, 10
    exit_msg db 'Enter to end..'
    exit_len = $ - exit_msg

    input1 rb 64
    input2 rb 64
    buffer rb 32
    keybuf rb 8

    written dd 0
    hOut dq 0
    hIn dq 0

section '.text' code readable executable

main:
    sub rsp, 8

    invoke GetStdHandle, -11
    mov [hOut], rax

    invoke GetStdHandle, -10
    mov [hIn], rax

    ; Erste Zahl einlesen
    invoke WriteConsoleA, [hOut], prompt1, prompt1_len, written, 0
    invoke ReadConsoleA, [hIn], input1, 64, written, 0

    ; Erste Zahl in Integer umwandeln
    lea rsi, [input1]
    xor rax, rax

.parse1:
    movzx edx, byte [rsi]
    cmp dl, '0'
    jb .first_done
    cmp dl, '9'
    ja .first_done
    imul rax, rax, 10
    sub edx, '0'
    add rax, rdx
    inc rsi
    jmp .parse1

.first_done:
    mov r12, rax

    ; Zweite Zahl einlesen
    invoke WriteConsoleA, [hOut], prompt2, prompt2_len, written, 0
    invoke ReadConsoleA, [hIn], input2, 64, written, 0

    ; Zweite Zahl in Integer umwandeln
    lea rsi, [input2]
    xor rax, rax

.parse2:
    movzx edx, byte [rsi]
    cmp dl, '0'
    jb .second_done
    cmp dl, '9'
    ja .second_done
    imul rax, rax, 10
    sub edx, '0'
    add rax, rdx
    inc rsi
    jmp .parse2

.second_done:
    mov r13, rax

    ; Multiplikation
    mov rax, r12
    imul rax, r13

    ; Ergebnis in Dezimalstring umwandeln
    lea rdi, [buffer + 31]
    mov byte [rdi], 0
    mov ebx, 10

.convert:
    xor edx, edx
    div rbx
    add dl, '0'
    dec rdi
    mov [rdi], dl
    test rax, rax
    jnz .convert

    ; Ergebnistext ausgeben
    invoke WriteConsoleA, [hOut], result_msg, result_len, written, 0

    ; Ziffernlaenge berechnen
    lea r8, [buffer + 31]
    sub r8, rdi

    ; Ergebnis ausgeben
    invoke WriteConsoleA, [hOut], rdi, r8d, written, 0

    ; Neue Zeile
    invoke WriteConsoleA, [hOut], newline, 2, written, 0

    ; Programm sichtbar offen halten
    invoke WriteConsoleA, [hOut], exit_msg, exit_len, written, 0
    invoke ReadConsoleA, [hIn], keybuf, 8, written, 0

    invoke ExitProcess, 0

section '.idata' import data readable writeable
    library kernel32, 'kernel32.dll'
    include 'api/kernel32.inc'
    ;
    

Is PE64 is actually PE+?

Is PE64 is actually PE+?

format  pe64 gui 4.0
entry   main
include 'win64ax.inc'
;------------
section '.data' data readable writeable
a      dq  365
b      dq  2026
buff   db  0
;------------
section '.text' code readable executable
main:  sub     rsp,8

       mov     rax,[a]
       imul    rax,[b]

       mov     ebx,1000
       xor     edx,edx
       div     ebx
       xchg    ebx,edx

      cinvoke  wsprintf,buff,<'Our days living on Earth: %d.%d',0>,eax,ebx
       invoke  MessageBox,0,buff,<'Fasm calculation',0>,0
       invoke  ExitProcess, 0
;------------
section '.idata' import data readable
library kernel32,'kernel32.dll', user32,'user32.dll'
include 'api/kernel32.inc'
include 'api/user32.inc'