ed/asm_dip
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

progress on hello_files.asm

Browse Source
This commit is contained in:
Edward R. Gonzalez
2025-06-21 01:52:23 -04:00
parent a56fc1a454
commit c1b8f935e0
1 changed files with 102 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

167
code/asm/hello_files.asm
View File

@ -191,6 +191,18 @@ def_farray Mem_128k, 128 * kilo
;region memory_copy ;region memory_copy
; dst = rdstindex = [Byte]
; src = rsrcindex = [Byte]
; rcounter = U64
section .text
memory_copy:
cld
rep movsb ; REPEAT MoveStringByte
; 1. Copies the byte from [RSI] to [RDI].
; 2. Increments RSI and RDI (because of CLD).
; 3. Decrements RCX.
; 4. Repeats until RCX is 0.
ret
;endregion memory_copy ;endregion memory_copy
struc Slice struc Slice
@ -206,11 +218,6 @@ endstruc
endstruc endstruc
%endmacro %endmacro
; struc Slice_Byte
; .ptr: resq 1 (Byte*)
; .len: resq 1
; endstruc
def_Slice Byte def_Slice Byte
; Usage: stack_slice %1: <type>, %2 <slice id>, %3 <stack_offset> ; Usage: stack_slice %1: <type>, %2 <slice id>, %3 <stack_offset>
@ -224,7 +231,7 @@ def_Slice Byte
; Usage: slice_assert %1: Slice_<type> { .ptr = Slice.ptr, .len = Slice.len } ; Usage: slice_assert %1: Slice_<type> { .ptr = Slice.ptr, .len = Slice.len }
%macro slice_assert 1 %macro slice_assert 1
%ifidn BUILD_DEBUG, 1 %ifidn BUILD_DEBUG, 1
cmp qword [%1 + Slice.len], nullptr cmp qword [%1 + Slice.ptr], nullptr
jnz %%.ptr_passed jnz %%.ptr_passed
int debug_trap int debug_trap
%%.ptr_passed: ; macro-unique-prefix (%%) .passed is the label name %%.ptr_passed: ; macro-unique-prefix (%%) .passed is the label name
@ -265,17 +272,20 @@ def_Slice Byte
; returns: raccumulator = U64 ; returns: raccumulator = U64
; Usage ; Usage
%macro min_U64 2 %macro min_S64 2
mov raccumulator, %1 mov raccumulator, %1
cmp raccumulator, %2 cmp raccumulator, %2
cmovg raccumulator, %2 ; ConditionalMoveIfGreater cmovg raccumulator, %2 ; ConditionalMoveIfGreater
%endmacro min_U64 %endmacro min_S64
;endregion Math ;endregion Math
;region Strings ;region Strings
def_Slice UTF8 struc Str8
%define Str8 Slice_UTF8 .ptr: resq 1
.len: resq 1
endstruc
def_Slice Slice_Str8
; Usage: lit %1: <slice_label>, %2: <utf-8 literal> ; Usage: lit %1: <slice_label>, %2: <utf-8 literal>
%macro lit 2 %macro lit 2
@ -288,7 +298,7 @@ def_Slice UTF8
iend iend
%endmacro %endmacro
section .lits progbits noexec nowrite section .data
lit path_hello_files_asm, `./code/asm/hello_files.asm` lit path_hello_files_asm, `./code/asm/hello_files.asm`
;endregion Strings ;endregion Strings
@ -302,44 +312,34 @@ section .lits progbits noexec nowrite
%define result rcounter %define result rcounter
%define content_ptr rdata %define content_ptr rdata
%define content_len r8 %define content_len r8
%define mem %define mem r9
section .text section .text
api_str8_to_cstr_capped: str8_to_cstr_capped:
%push raccumulator push raccumulator
%push rsrcindex push rdstindex
push rsrcindex
; U64 raccumulator = min(content.len, mem.len - 1); ; U64 raccumulator = min(content.len, mem.len - 1);
mov rsrcindex, qword [mem + Slice_Byte.len] mov rsrcindex, qword [mem + Slice_Byte.len]
sub rsrcindex, 1 sub rsrcindex, 1
min_U64 content_len, rsrcindex ; raccumulator has result min_S64 content_len, rsrcindex ; raccumulator has result
; memory_copy(mem.ptr, content.ptr, copy_len); ; memory_copy(mem.ptr, content.ptr, copy_len);
mov rdstindex, qword [mem + Slice_Byte.ptr]
mov rsrcindex, content_ptr
mov rcounter, raccumulator
call memory_copy
; mem.ptr[copy_len] = '\0'; ; mem.ptr[copy_len] = '\0';
mov rdstindex, qword [mem + Slice_Byte.ptr]
mov byte [rdstindex + raccumulator], 0
; return cast(char*, mem.ptr); ; return cast(char*, mem.ptr);
%pop rsrcindex mov result, qword [mem + Str8.ptr]
%pop raccumulator pop rsrcindex
leave pop rdstindex
pop raccumulator
ret ret
%pop_proc_scope %pop proc_scope
; Returns via rcounter
; Usage: str8_to_cstr_capped content, mem
%macro str8_to_cstr_capped 2
%push rdata
%push r8
%push r9
lea rdata, [%2 + Str8.ptr]
mov r8, %2 + Str8.len
leat r9, %3
call api_str8_to_cstr_capped
%pop r9
%pop r8
%pop rdata
%endmacro
;endregion str8_to_cstr_capped ;endregion str8_to_cstr_capped
section .data
;endregion String Ops ;endregion String Ops
;region WinAPI ;region WinAPI
@ -349,10 +349,13 @@ section .data
extern GetStdHandle extern GetStdHandle
extern WriteConsoleA extern WriteConsoleA
; File API ; File API
extern CloseHandle
extern CreateFileA extern CreateFileA
extern GetFileSizeEx extern GetFileSizeEx
extern GetLastError extern GetLastError
extern ReadFile extern ReadFile
; Process API
extern ExitProcess
%define MS_STD_OUTPUT_HANDLE 11 %define MS_STD_OUTPUT_HANDLE 11
@ -380,7 +383,7 @@ section .data
;endregion WinAPI ;endregion WinAPI
struc FileOpInfo struc FileOpInfo
.content: resb Slice_Byte_size ; gemini is this allowed? .content: resb Slice_Byte_size
endstruc endstruc
;region file_read_contents ;region file_read_contents
@ -389,78 +392,84 @@ endstruc
; result: rcounter = [FileOpInfo] ; result: rcounter = [FileOpInfo]
; path: Slice_Str8 = { .ptr = rdata, .len = r8 } ; path: Slice_Str8 = { .ptr = rdata, .len = r8 }
; backing: r9 = [Slice_Byte] ; backing: r9 = [Slice_Byte]
%push api_file_read_contents %push proc_scope
%define result rcounter %define result rcounter
%define path_ptr rdata %define path_ptr rdata
%define path_len r8 %define path_len r8
%define backing r9 %define backing r9
section .text section .text
api_file_read_contents: file_read_contents:
%push proc_scope
assert_not_null result assert_not_null result
slice_assert backing slice_assert backing
slice_assert path_ptr, path_len slice_assert path_ptr, path_len
; %define slice_fmem_scratch ;TODO(Ed): figure this out ; rcounter = str8_to_cstr_capped(path, slice_fmem(scratch));
; call str8_to_cstr_capped path_c_str, path, slice_fmem_scratch push rcounter ; save rcounter
push backing ; save backing
mov r9, .scratch ; r9 = .scratch
call str8_to_cstr_capped ; (rcounter, rdata, r8, r9)
pop backing
pop rcounter
wapi_shadow_space
mov rcounter, [std_out_hndl]
lea rdata, [.scratch + Slice_Byte.ptr]
lea r9, [rstack_ptr + wapi_arg4_offset] ; Written chars
mov qword [rstack_ptr + wapi_arg5_offset], 0 ; Reserved (must be 0)
call WriteConsoleA
stack_pop
; TODO(Ed): Form-fill ; TODO(Ed): Form-fill
; call CreateFileA ; call CreateFileA
leave
ret ret
%pop proc_scope %pop proc_scope
section .bss section .bss
api_file_read_contents.scratch_kilo: resb 64 * kilo ; local_persist raw_scratch : [64 * kilo]byte
api_file_read_contents.path_cstr: resq 1 file_read_contents.raw_scratch: resb 64 * kilo
%pop api_file_read_contents file_read_contents.path_cstr: resq 1
section .data
; Args: result: [FileOpInfo], path: Str8, backing: [Slice_Byte] ; local_persist scratch = fmem_slice(raw_scratch)
%macro file_read_contents 3 file_read_contents.scratch:
%push rcounter istruc Slice_Byte
%push rdata at Slice_Byte.ptr, dq file_read_contents.raw_scratch
%push r8 at Slice_Byte.len, dq 64 * kilo
%push r9 iend
lea rcounter, %1
lea rdata, [%2 + Str8.ptr]
mov r8, %2 + Str8.len
lea r9, %3
call api_file_read_contents
%pop r9
%pop r8
%pop rdata
%pop rcounter
%endmacro
;endregion file_read_contents ;endregion file_read_contents
section .text section .text
global main global main
main: main:
wapi_shadow_space
; Setup stdout handle
mov rcounter_32, -MS_STD_OUTPUT_HANDLE
call GetStdHandle
mov [std_out_hndl], raccumulator
%push proc_scope %push proc_scope
; dbg_wipe_gprs ; dbg_wipe_gprs
%push calling %push calling
; Allocate stack for file_read_contents args
%assign stack_offset 0 %assign stack_offset 0
stack_slice Slice_Byte, local_backing stack_slice Slice_Byte, local_backing
stack_push stack_offset stack_push stack_offset ; stack local_backing : Slice_byte
mov qword [local_backing + Slice_Byte.ptr], read_mem mov qword [local_backing + Slice_Byte.ptr], read_mem ; local_backing.ptr = read_mem.ptr
mov qword [local_backing + Slice_Byte.len], Mem_128k_size mov qword [local_backing + Slice_Byte.len], Mem_128k_size ; local_backing.len = Mem_128k_size
; Allocate registers with args lea rcounter, file ; rcounter = file.ptr
lea rcounter, file mov rdata, [path_hello_files_asm + Str8.ptr] ; rdata = path_hello_files.ptr
lea rdata, [path_hello_files_asm + Str8.ptr] mov r8, [path_hello_files_asm + Str8.len] ; r9 = path_hello_files.len
mov r8, path_hello_files_asm + Str8.len
lea r9, [local_backing] lea r9, [local_backing]
call api_file_read_contents call file_read_contents ; read_file_contents(rcounter, rdata, r8, r9)
stack_pop
%pop calling %pop calling
; file_read_contents file, path_hello_files_asm, read_mem ; Exit program
%pop proc_scope wapi_shadow_space
xor ecx, ecx ; Exit code 0
call ExitProcess
ret ret
%pop proc_scope
section .bss section .bss
read_mem: resb Mem_128k_size read_mem: resb Mem_128k_size