mirror of
https://github.com/vsariola/sointu.git
synced 2026-02-06 07:40:16 -05:00
2ad61ff6b2
The preprocessing is done sointu-cli and (almost) nothing is done by the NASM preprocessor anymore (some .strucs are still there. Now, sointu-cli loads the .yml song, defines bunch of macros (go functions / variables) and passes the struct to text/template parses. This a lot more powerful way to generate .asm code than trying to fight with the nasm preprocessor. At the moment, tests pass but the repository is a bit of monster, as the library is still compiled using the old approach. Go should generate the library also from the templates.
59 lines
2.4 KiB
NASM
59 lines
2.4 KiB
NASM
{{- if eq .OS "windows"}}
|
|
{{.ExportFunc "su_load_gmdls"}}
|
|
{{- if .Amd64}}
|
|
extern OpenFile ; requires windows
|
|
extern ReadFile ; requires windows
|
|
; Win64 ABI: RCX, RDX, R8, and R9
|
|
sub rsp, 40 ; Win64 ABI requires "shadow space" + space for one parameter.
|
|
mov rdx, qword su_sample_table
|
|
mov rcx, qword su_gmdls_path1
|
|
su_gmdls_pathloop:
|
|
xor r8,r8 ; OF_READ
|
|
push rdx ; &ofstruct, blatantly reuse the sample table
|
|
push rcx
|
|
call OpenFile ; eax = OpenFile(path,&ofstruct,OF_READ)
|
|
pop rcx
|
|
add rcx, su_gmdls_path2 - su_gmdls_path1 ; if we ever get to third, then crash
|
|
pop rdx
|
|
cmp eax, -1 ; ecx == INVALID?
|
|
je su_gmdls_pathloop
|
|
movsxd rcx, eax
|
|
mov qword [rsp+32], 0
|
|
mov r9, rdx
|
|
mov r8d, 3440660 ; number of bytes to read
|
|
call ReadFile ; Readfile(handle,&su_sample_table,SAMPLE_TABLE_SIZE,&bytes_read,NULL)
|
|
add rsp, 40 ; shadow space, as required by Win64 ABI
|
|
ret
|
|
{{- else}}
|
|
mov edx, su_sample_table
|
|
mov ecx, su_gmdls_path1
|
|
su_gmdls_pathloop:
|
|
push 0 ; OF_READ
|
|
push edx ; &ofstruct, blatantly reuse the sample table
|
|
push ecx ; path
|
|
call _OpenFile@12 ; eax = OpenFile(path,&ofstruct,OF_READ)
|
|
add ecx, su_gmdls_path2 - su_gmdls_path1 ; if we ever get to third, then crash
|
|
cmp eax, -1 ; eax == INVALID?
|
|
je su_gmdls_pathloop
|
|
push 0 ; NULL
|
|
push edx ; &bytes_read, reusing sample table again; it does not matter that the first four bytes are trashed
|
|
push 3440660 ; number of bytes to read
|
|
push edx ; here we actually pass the sample table to readfile
|
|
push eax ; handle to file
|
|
call _ReadFile@20 ; Readfile(handle,&su_sample_table,SAMPLE_TABLE_SIZE,&bytes_read,NULL)
|
|
ret
|
|
extern _OpenFile@12 ; requires windows
|
|
extern _ReadFile@20 ; requires windows
|
|
{{end}}
|
|
|
|
{{.Data "su_gmdls_path1"}}
|
|
db 'drivers/gm.dls',0
|
|
su_gmdls_path2:
|
|
db 'drivers/etc/gm.dls',0
|
|
|
|
{{.SectBss "susamtable"}}
|
|
su_sample_table:
|
|
resb 3440660 ; size of gmdls.
|
|
|
|
{{end}}
|