;; vim: syntax=fasm
-segment readable executable
+section '.text' code readable executable
macro printlen msg, len {
push rsi
add rsp, 8
- mov rsi, msg
+ mov rcx, msg
mov rdx, len
- mov rax, 1
- mov rdi, 1
- syscall
+ sys_print_string
sub rsp, 8
pop rsi
printlen msg, msg#.len
}
-macro exit code {
- mov rax, $3C
- mov rdi, code
- syscall
-}
-
struc string bytes {
. db bytes
.len = $ - .
read_word:
.skip_whitespace:
;; Read characters into .char_buffer until one of them is not whitespace.
- mov rax, 0
- mov rdi, 0
mov rsi, .char_buffer
- mov rdx, 1
- syscall
+ sys_read_char
;; We consider newlines and spaces to be whitespace.
cmp [.char_buffer], ' '
mov [rsi], al
inc [.length]
- mov rax, 0
- mov rdi, 0
mov rsi, .char_buffer
- mov rdx, 1
- syscall
+ sys_read_char
cmp [.char_buffer], ' '
je .end
pop rdi
printlen rdi, [.length]
newline
- exit 100
+ sys_terminate 100
-segment readable writable
+section '.data' readable writable
find.search_length dq ?
find.search_buffer dq ?