anon/eaxhla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

partially fix eax syntax

Browse Source
This commit is contained in:
anon 2024-07-14 19:38:32 +02:00
parent de81ab7d6d
commit 47e725ee35
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
test/nop.eax
View File

@ -12,26 +12,30 @@ u32 standard_output = 1
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
fast
procedure print procedure print
in u64 message in u64 message
begin begin
repeat until u8 [message] = 0 // Not sure about casting... // Not sure about casting...
call write standard_output message 1 until [message] = 0 repeat
fastcall write standard_output message 1
inc message inc message
end repeat end repeat
end procedure end procedure
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
fast
procedure fatal procedure fatal
in u64 message in u64 message
begin begin
call print message fastcall print message
exit 1 exit 1
end procedure end procedure
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
fast
procedure read procedure read
in s32 file in s32 file
in u64 data in u64 data
@ -44,12 +48,13 @@ begin
syscall syscall
if eax = -1 then if eax = -1 then
call fatal "> failed to read from the file!\n\0" fastcall fatal "> failed to read from the file!\n\0"
end if end if
end procedure end procedure
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
fast
procedure write procedure write
in s32 file in s32 file
in u64 data in u64 data
@ -62,12 +67,13 @@ begin
syscall syscall
if eax = -1 then if eax = -1 then
call fatal "> failed to write to the file!\n\0" fastcall fatal "> failed to write to the file!\n\0"
end if end if
end procedure end procedure
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
fast
procedure open procedure open
in u64 name in u64 name
in s32 mode in s32 mode
@ -79,7 +85,7 @@ begin
syscall syscall
if eax = -1 then if eax = -1 then
call fatal "> failed to open the file!\n\0" fastcall fatal "> failed to open the file!\n\0"
end if end if
mov [file] eax mov [file] eax
@ -87,6 +93,7 @@ end procedure
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
fast
procedure close procedure close
in s32 file in s32 file
begin begin
@ -95,7 +102,7 @@ begin
syscall syscall
if eax = -1 then if eax = -1 then
call fatal "> failed to close the file!\n\0" fastcall fatal "> failed to close the file!\n\0"
end if end if
end procedure end procedure
@ -110,36 +117,36 @@ unix program main
s8 new_line = 10 s8 new_line = 10
begin begin
if argc = 2 then if argc = 2 then
call fatal "> argument count must be 2!\n\0" fastcall fatal "> argument count must be 2!\n\0"
end if end if
call open argv [1] 0 file fastcall open argv [1] 0 file
repeat until r10 = 0 until r10 = 0 repeat
call read standard_input byte 1 fastcall read standard_input byte 1
// When EOF is reached 'rax', then 'r10' is 0. // When EOF is reached 'rax', then 'r10' is 0.
mov r10, rax mov r10, rax
if u8 [byte] = 0x90 then if u8 [byte] = 0x90 then
call print "\n\0" fastcall print "\n\0"
end if end if
mov r12 standard_output mov r12 standard_output
mov r13 digits mov r13 digits
sar r15 4 sar r15 4
add r13 r15 add r13 r15
call write r12 r13 1 fastcall write r12 r13 1
mov r12 standard_output mov r12 standard_output
mov r13 digits mov r13 digits
mov r15b [byte] mov r15b [byte]
and r15 15 and r15 15
add r13 r15 add r13 r15
call write r12 r13 1 fastcall write r12 r13 1
call print " \0" fastcall print " \0"
end repeat end repeat
call print "\n\0" fastcall print "\n\0"
call close file fastcall close file
end program end program