retroforth/vm/nga-c-no-libc/macos.s
crc ea8e12d32a finish reorg of main sources
FossilOrigin-Name: 6a7ee82ed6b024ee1d8f7a51a9b91a66a8041cde06b53cce649d6bd383ae9677
2019-11-22 18:30:02 +00:00

51 lines
1.1 KiB
ArmAsm

; ___ ___ _____ ___ ___ __ ___ ___ ___ ___
; | _ \ __|_ _| _ \/ _ \ / / | __| _ ___ ___| _ ) __| \
; | / _| | | | / (_) | / / | _| '_/ -_) -_) _ \__ \ |) |
; |_|_\___| |_| |_|_\\___/ /_/ |_||_| \___\___|___/___/___/
;
; This is the minimal startup + I/O functionality needed to run
; RETRO on a FreeBSD x86-64 system.
; =============================================================
bits 64
section .text
global _putchar
global _getchar
global _start
extern _main
global start
align 8
start:
_start:
call _main
jmp $
align 8
_putchar:
mov rax, rdi
mov [rel buf], eax
mov rax, 0x2000004; sys_write
mov rdi, 1 ; stdout
mov rsi, buf ; address
mov rdx, 1 ; 1 byte
syscall
ret
align 8
_getchar:
mov rax, 0x2000003; sys_read
mov rdi, 0 ; stdin
mov rsi, buf ; address
mov rdx, 1 ; 1 byte
syscall
mov rax, 0
mov eax, [rel buf]
ret
section .data
buf:
dd 0
dd 0
dd 0
dd 0