Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. REQUIRE CASE lib/ext/case.f
  2. REQUIRE !CSP ~mak/lib/csr.f
  3.  
  4. : DEFER CREATE ['] NOOP , DOES> @ EXECUTE ;
  5. : DEFER@ ' >BODY STATE @ IF POSTPONE LITERAL POSTPONE @ ELSE @ THEN ; IMMEDIATE
  6. : IS '  >BODY STATE @ IF POSTPONE LITERAL POSTPONE ! ELSE ! THEN ; IMMEDIATE
  7.  
  8. : +TO ' >BODY STATE @ IF POSTPONE LITERAL POSTPONE +! ELSE +! THEN ; IMMEDIATE
  9.  
  10. : REVEAL SMUDGE ;
  11. : COMPILE ' POSTPONE LITERAL POSTPONE COMPILE, ; IMMEDIATE
  12. : (;CODE) R> LATEST 5 - ! ;
  13.  
  14. VECT EXIT-ASSEMBLER
  15.  
  16. VOCABULARY ASSEMBLER
  17.  
  18. S" lib/asm/486asm.f" INCLUDED
  19.  
  20. ( FORTH HEADER CREATION WORDS )
  21. ALSO ASSEMBLER ALSO ASM-HIDDEN
  22. IN-HIDDEN
  23. : _CODE ( START A NATIVE CODE DEFINITION )
  24.        CREATE CFL NEGATE ALLOT HIDE !CSP INIT-ASM ;
  25.  
  26. : _;CODE ( CREATE THE [;CODE] PART OF A LOW LEVEL DEFINING WORD )
  27.        ?CSP !CSP COMPILE (;CODE) POSTPONE [ INIT-ASM ;
  28.  
  29. IN-FORTH
  30. ' _CODE IS CODE
  31. ' _;CODE IS ;CODE
  32.  
  33. : FCALL A; [COMPILE] ' COMPILE, ;
  34.  
  35. ONLY FORTH DEFINITIONS
  36.  
  37. ALSO FORTH IMMEDIATE PREVIOUS
  38.  
  39.  
  40. S" lib/asm/asmmac.f" INCLUDED
  41.