41 lines
1017 B
FortranFixed
41 lines
1017 B
FortranFixed
|
REQUIRE CASE lib/ext/case.f
|
||
|
|
REQUIRE !CSP ~mak/lib/csr.f
|
||
|
|
|
||
|
|
: DEFER CREATE ['] NOOP , DOES> @ EXECUTE ;
|
||
|
|
: DEFER@ ' >BODY STATE @ IF POSTPONE LITERAL POSTPONE @ ELSE @ THEN ; IMMEDIATE
|
||
|
|
: IS ' >BODY STATE @ IF POSTPONE LITERAL POSTPONE ! ELSE ! THEN ; IMMEDIATE
|
||
|
|
|
||
|
|
: +TO ' >BODY STATE @ IF POSTPONE LITERAL POSTPONE +! ELSE +! THEN ; IMMEDIATE
|
||
|
|
|
||
|
|
: REVEAL SMUDGE ;
|
||
|
|
: COMPILE ' POSTPONE LITERAL POSTPONE COMPILE, ; IMMEDIATE
|
||
|
|
: (;CODE) R> LATEST 5 - ! ;
|
||
|
|
|
||
|
|
VECT EXIT-ASSEMBLER
|
||
|
|
|
||
|
|
VOCABULARY ASSEMBLER
|
||
|
|
|
||
|
|
S" lib/asm/486asm.f" INCLUDED
|
||
|
|
|
||
|
|
( FORTH HEADER CREATION WORDS )
|
||
|
|
ALSO ASSEMBLER ALSO ASM-HIDDEN
|
||
|
|
IN-HIDDEN
|
||
|
|
: _CODE ( START A NATIVE CODE DEFINITION )
|
||
|
|
CREATE CFL NEGATE ALLOT HIDE !CSP INIT-ASM ;
|
||
|
|
|
||
|
|
: _;CODE ( CREATE THE [;CODE] PART OF A LOW LEVEL DEFINING WORD )
|
||
|
|
?CSP !CSP COMPILE (;CODE) POSTPONE [ INIT-ASM ;
|
||
|
|
|
||
|
|
IN-FORTH
|
||
|
|
' _CODE IS CODE
|
||
|
|
' _;CODE IS ;CODE
|
||
|
|
|
||
|
|
: FCALL A; [COMPILE] ' COMPILE, ;
|
||
|
|
|
||
|
|
ONLY FORTH DEFINITIONS
|
||
|
|
|
||
|
|
ALSO FORTH IMMEDIATE PREVIOUS
|
||
|
|
|
||
|
|
|
||
|
|
S" lib/asm/asmmac.f" INCLUDED
|