update: source cleaning

- clean the source code
- add nasm.exe - the assembler, and upx.exe - the packer as shared tools

Author: paule32

src/_internal/shared/bin/nasm.exe

@@ -1,66 +0,0 @@
-fmtHello: WSTR "abde fg", 13, 10, 0
-fmtHello_length equ ($-fmtHello)-1
-written: dd 0
-
-align 4
-last_error: dd 0
-
-; Puffer für CONSOLE_SCREEN_BUFFER_INFO (>= 22 Bytes; wir nehmen 32 zur Sicherheit)
-csbi:        times 32 db 0
-orig_attr:   dw 0
-
-fmtW:   WSTR "Win32-Fehler: 0x%08X (%u)", 0      ; Format-String (UTF-16)
-wbuf:   times 256 dw 0                           ; Ausgabepuffer (128 WCHAR)
-ErrTitleW: WSTR "Fehler", 0
-
-pMsg:   dq 0                          ; LPWSTR, wird von FormatMessageW allokiert
-errmsgW: WSTR 'RegisterClassExW failed'
-titleW: WSTR 'NASM PE64 GUI without Linker'
-winclassW: WSTR 'NasmWndClass'
-
-; SMALL_RECT {Left,Top,Right,Bottom} = {0,0,79,24}
-Rect80x25:  dw 0, 0, 79, 24
-
-hWndCon: dq 0
-hMenu: dq 0
-
-caption:     db "Eingabe",0
-src     times 256 db 0
-dst     times 512 db 0
-bytesRead:   dq 0                 ; DWORD64 für Anzahl gelesener Zeichen
-
-charswritten: dd 0               ; LPDWORD für WriteConsoleA (Anzahl Zeichen)
-MessageErrorTextW: WSTR "message error text"
-
-fmt:     db "%6d", 0      ; Limitiert die Eingabe für %s auf 63 Zeichen
-outfmt:  db "Eingabe: %s", 13,10, 0
-num:     dd 0
-
-msg_down    db "KEYDOWN: VK=%04X CH='%c'", 13,10, 0
-msg_up      db "KEYUP  : VK=%04X CH='%c'", 13,10, 0
-
-hIn:        dq 0
-hOut:       dq 0
-prompt:     db "Eingabe: ",0
-read: dd 0
-
-; Wir lesen ein Array von 32 INPUT_RECORDs (je 20 Bytes → 640 Bytes)
-; Layout (x64, gepackt wie WinAPI, jeweils 2-Byte-aligned):
-; INPUT_RECORD {
-;   WORD  EventType;                      ; +0
-;   WORD  Padding;                        ; +2 (Ausgleich)
-;   union {
-;     KEY_EVENT_RECORD {                  ; +4
-;       BOOL  bKeyDown;                   ; +4  (4)
-;       WORD  wRepeatCount;               ; +8  (2)
-;       WORD  wVirtualKeyCode;            ; +10 (2)
-;       WORD  wVirtualScanCode;           ; +12 (2)
-;       WCHAR UnicodeChar;                ; +14 (2)  (wir nutzen W-Variante)
-;       DWORD dwControlKeyState;          ; +16 (4)
-;     }                                   ; Größe 20 Bytes insgesamt
-;   }
-; }
-; == Gesamtgröße INPUT_RECORD: 20 Bytes
-records:     times 32*20 db 0
-readCount:   dd 1
-tmpConsoleMode: dd 0

src/_internal/shared/bin/upx.exe

@@ -1,13 +1,39 @@
-
+; -----------------------------------------------------------------------------
+; \file  data64.asm
+; \note  (c) 2025 by Jens Kallup - paule32
+;        all rights reserved.
+;
+; \desc  Create a dBASE MS-Windows 11 64-bit Pro EXE.
+; -----------------------------------------------------------------------------
 times (DATA_RAW_PTR-($-$$)) db 0
 data_start:
+
 %include 'data.inc'
-errA: db 'MessageBoxW failed',0
-capA: db 'User32',0
-msgW: WSTR 'Hello World'
+
 cap2A: db "ein Text",13,10,0
 cap2A_length equ ($ - cap2A)
-capW: WSTR 'Pure NASM PE-64', 0
-capW_length: dd 5 ; equ ($-capW)
+
+fmtW:           WSTR "Win32-Fehler: 0x%08X (%u)", 0      ; Format-String (UTF-16)
+ErrTitleW:      WSTR "Fehler", 0
+
+errmsgW:        WSTR 'RegisterClassExW failed'
+titleW:         WSTR 'NASM PE64 GUI without Linker'
+winclassW:      WSTR 'NasmWndClass'
+prompt:         db "Eingabe: ",0
+
+; SMALL_RECT {Left,Top,Right,Bottom} = {0,0,79,24}
+Rect80x25:      dw 0, 0, 79, 24
+pMsg:           dq 0                    ; LPWSTR, wird von FormatMessageW allokiert
+
+wbuf:           times 256 dw 0          ; Ausgabepuffer (128 WCHAR)
+src:            times 256 db 0
+dst:            times 512 db 0
+
+hIn:            dq 0
+hOut:           dq 0
+read:           dd 0
+tmpConsoleMode: dd 0
+last_error:     dd 0
+
 data_end:
 times (ALIGN_UP($-$$,FILEALIGN)-($-$$)) db 0

src/_internal/shared/data.inc

@@ -196,7 +196,6 @@ utf8_to_cp1252_char:
     push    rbx
 
     mov     bl, [rcx]
-    ShowMessageW titleW,capW
     test    bl, bl
     jz      .nul               ; Stringende
 
@@ -338,9 +337,9 @@ utf8_to_cp1252:
     inc     rax              ; count++
     jmp     .next
     .done:
-    push    rcx
-    ShowMessageW titleW,capW
-    pop     rcx
+    ;push    rcx
+    ;ShowMessageW titleW,capW
+    ;pop     rcx
     mov     byte [rdi], 0
     pop     rdi
     pop     rsi

src/_internal/shared/data64.asm

@@ -32,8 +32,9 @@ PASCALMAIN:
 
     ; ReadConsoleA(hIn, inbuf, maxChars, &read, NULL)
     mov      rcx, r13
-    mov      rdx, IMAGE_BASE
-    add      rdx, RVA_DATA(src)
+    GETDATA  rdx, src
+    ;mov      rdx, IMAGE_BASE
+    ;add      rdx, RVA_DATA(src)
     mov      r8d, 127            ; maxChars (Reserviere 1 Byte für NUL)
     mov      r9,  IMAGE_BASE
     add      r9,  RVA_DATA(read)
@@ -45,10 +46,9 @@ PASCALMAIN:
     
     GETDATA  rcx, src
     GETDATA  rdx, dst
-
     call utf8_to_cp1252
 
-    ShowMessageW dst,src
+    ShowMessageW src,dst
 ; --- Exit ---
     .exit:
     xor     ecx, ecx