2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2007 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: bootstrap.image.private kernel namespaces system
|
2007-09-21 23:30:47 -04:00
|
|
|
cpu.x86.assembler layouts vocabs parser ;
|
|
|
|
|
IN: bootstrap.x86
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
4 \ cell set
|
|
|
|
|
|
2008-11-03 02:18:35 -05:00
|
|
|
: shift-arg ( -- reg ) ECX ;
|
|
|
|
|
: div-arg ( -- reg ) EAX ;
|
|
|
|
|
: mod-arg ( -- reg ) EDX ;
|
2008-06-11 05:52:19 -04:00
|
|
|
: arg0 ( -- reg ) EAX ;
|
|
|
|
|
: arg1 ( -- reg ) EDX ;
|
|
|
|
|
: temp-reg ( -- reg ) EBX ;
|
|
|
|
|
: stack-reg ( -- reg ) ESP ;
|
|
|
|
|
: ds-reg ( -- reg ) ESI ;
|
2008-07-07 11:39:04 -04:00
|
|
|
: rs-reg ( -- reg ) EDI ;
|
2008-06-11 05:52:19 -04:00
|
|
|
: fixnum>slot@ ( -- ) arg0 1 SAR ;
|
|
|
|
|
: rex-length ( -- n ) 0 ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-07-28 23:03:13 -04:00
|
|
|
<< "resource:basis/cpu/x86/bootstrap.factor" parse-file parsed >>
|
2008-01-26 22:47:52 -05:00
|
|
|
call
|
