Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Wrote syscall0..3

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 23:23:09 +09:00
parent 16ffc302ec
commit 178c5df235
1 changed files with 53 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
bootstrap.fs
View file

@ -1861,9 +1861,60 @@ read-commandline-args
codegen-target @ s" i386-linux" str= [if]
\ i386-linux dependent codes will be added here
%000 constant eax immediate
%001 constant ecx immediate
%010 constant edx immediate
%011 constant ebx immediate
[else]
\ compile 'pop reg' and 'push reg'
: pop ( reg -- ) 0x58 + c, ; immediate
: push ( reg -- ) 0x50 + c, ; immediate
\ lodsl; jmp *(%eax);
: next ( -- ) 0xad c, 0xff c, 0x20 c, ; immediate
: int80 ( -- ) 0xcd c, 0x80 c, ; immediate
\ overwrite code field by DFA
: ;asm
[compile] ; \ finish compilation
latest dup >dfa over >cfa !
; immediate
: syscall0 ( n -- r )
eax pop
int80
eax push
next
;asm
: syscall1 ( arg1 n -- r )
eax pop
ebx pop
int80
eax push
next
;asm
: syscall2 ( arg2 arg1 n -- r )
eax pop
ebx pop
ecx pop
int80
eax push
next
;asm
: syscall3 ( arg3 arg2 arg1 n -- r )
eax pop
ebx pop
ecx pop
edx pop
int80
eax push
next
;asm
[else] \ i386-linux
codegen-target @ s" no-codegen" str= <> [if]
." Unknown codegen target: " codegen-target @ type cr