Skip to content
Permalink
master
Switch branches/tags

Name already in use

A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
Go to file
 
 
Cannot retrieve contributors at this time
%macro pushdata 1
push r1
push r5
mov r5, [data_stack_length]
;; In case we want to do this with a constant or address
mov r1, %1
mov [data_stack + 8*r5], r1
inc qword [data_stack_length]
pop r5
pop r1
%endmacro
%macro popdata 1
push r5
dec qword [data_stack_length]
mov r5, [data_stack_length]
mov %1, [data_stack + 8*r5]
pop r5
%endmacro
%macro prints 1+
jmp %%endstr
%%str: db %1
%%endstr:
mov eax, 1
mov rdi, stdout
lea rsi, [%%str]
mov rdx, %%endstr-%%str
syscall
%endmacro
%macro retbool 1+
%1
je .true
.false:
pushdata False
ret
.true:
pushdata True
ret
%endmacro
%macro copyinit 1-2 8
mov r1, [%1_length]
dec r1
%%loop:
mov qword r2, [init_%1 + %2*r1]
mov qword [%1 + %2*r1], r2
dec r1
jns %%loop
%endmacro
section .text
exit:
mov eax, 60
mov rdi, 0
syscall
if_else:
popdata r3
popdata r1
popdata r2
cmp r2, 0
je .false
call r1
ret
.false:
call r3
ret
equal:
popdata r1
popdata r2
retbool cmp r1, r2
add:
popdata r1
popdata r2
add r2, r1
pushdata r2
ret
call_primitive:
; prints "Primitive # "
; call s11
; call print
; call printeol
popdata r1
call [primitive_function + 8*r1]
ret
is_primitive:
popdata r1
cmp r1, primitive_length
jge .false
pushdata True
ret
.false:
pushdata False
ret
push1:
pushdata 1
ret
print:
;; Print value at the top of the stack as an integer in hex.
;; Callable without losing register values
push qword rax
push qword rcx
push qword rdx
push qword rbx
push qword rbp
push qword rsi
push qword rdi
;; x = data_stack.pop()
popdata r3
mov r1, 8
dec r1
.loop8times:
;; sys.print(stdout, print_chars[x & 1111b], 1)
mov r2, r3
and r2, 1111b
push qword r1
push qword r3
mov eax, 1
mov rdi, stdout
lea rsi, [print_chars + 1*r2]
mov rdx, 1
syscall
pop r3
pop r1
;; x >>= 4
shr r3, 4
dec r1
jns .loop8times
mov eax, 1
mov rdi, stdout
lea rsi, [space]
mov rdx, 1
syscall
pop rdi
pop rsi
pop rbp
pop rbx
pop rdx
pop rcx
pop rax
ret
printeol:
mov eax, 1
mov rdi, stdout
lea rsi, [eol]
mov rdx, 1
syscall
ret
printspace:
mov eax, 1
mov rdi, stdout
lea rsi, [space]
mov rdx, 1
syscall
ret
read_stdin:
prints "> "
mov eax, 0
mov rdi, stdin
lea rsi, [input_buffer]
mov rdx, BUFFER_SIZE
syscall
cmp r1, 0
je .read_error
mov qword [input_buffer_length], r1
; pushdata r1 ;; Uncomment to return number of characters read
mov qword [input_buffer_counter], 0
ret
.read_error:
prints "Out of input", 10
call exit
is_input_end:
mov r1, [input_buffer_counter]
retbool cmp r1, [input_buffer_length]
next_char:
mov r1, [input_buffer_counter]
movzx r2, byte [input_buffer + 1*r1]
pushdata r2
inc qword [input_buffer_counter]
ret
is_whitespace:
popdata r1
cmp r1byte, 10 ; end of line
je .true
cmp r1byte, ' '
je .true
pushdata False
ret
.true:
pushdata True
ret
if:
popdata r1
popdata r2
cmp r2, 0
je .false
call r1
.false:
ret
not:
popdata r1
retbool cmp r1, 0
sub:
popdata r1
popdata r2
sub r2, r1
pushdata r2
ret
print_string:
popdata r2
movzx r3, byte [r2]
mov eax, 1
mov rdi, stdout
lea rsi, [r2 + 1*1]
; mov rdx, r3 ;; r3 is already rdx!
syscall
ret
string_equal:
popdata rsi
popdata rdi
; compare length
movzx r1, byte [rsi]
movzx r2, byte [rdi]
cmp r1, r2
jne .false ;; .false defined in retbool
; compare characters
inc rsi
inc rdi
retbool repe cmpsb
equal_right_bracket:
popdata r1
movzx r2, byte [strings + 1*r1]
movzx r1, byte [strings + 1*r1 + 1]
cmp r2, 1
jne .false
retbool cmp r1, ']'
setup:
mov qword [strings_length], strings_init_length
mov qword [names.keys_length], primitive_length
mov qword [names.values_length], primitive_length
mov qword [memory_length], primitive_length
mov qword [input_buffer_counter], 0
copyinit strings, 1
copyinit names.keys
copyinit names.values
pushdata return_index
pushdata 1
call memory.set_at
ret