PageRenderTime 38ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/test.fth

https://github.com/jdinuncio/forthos
Forth | 50 lines | 36 code | 14 blank | 0 comment | 0 complexity | 3a3afc861d2ed1ad1f4aaa7c8695d0a7 MD5 | raw file
    

  1. ; program: test
    2. 

  2. ;   Used to test words as they are developed
    3. 

  3. 

  4. 

  5. %include "forth.h"
    6. 

  6. 

  7. [BITS 32]
    8. 

  8. section .text
    9. 

  9. 

  10. GLOBAL _start
    11. 

  11. _start:
    12. 

  12. 			mov [var_S0], esp 			; Save the initial data stack pointer in FORTH variable S0.
    13. 

  13.             mov ebp, return_stack_top   ; init the return stack
    14. 

  14.             mov esi, cold_start         ; fist foth word to exec
    15. 

  15.             next
    16. 

  16. 

  17. ; Forth Entry point
    18. 

  18. section .rodata
    19. 

  19. cold_start:
    20. 

  20.             dd main
    21. 

  21. 

  22. : test_add, test_add, 0
    23. 

  23.     2 2 + drop
    24. 

  24. ;
    25. 

  25. 

  26. 

  27. %define _invoke_addr invoke_addr
    28. 

  28. : test_invoke, test_invoke, 0
    29. 

  29.     _invoke_addr execute
    30. 

  30. ;
    31. 

  31. 

  32. GLOBAL main
    33. 

  33. : main, main, 0
    34. 

  34.     test_invoke
    35. 

  35. ;
    36. 

  36. 

  37. 

  38. 

  39. ; stacks
    40. 

  40. section   .bss
    41. 

  41. align 4096
    42. 

  42.             RETURN_STACK_SIZE equ 8192
    43. 

  43. return_stack:
    44. 

  44.             resb RETURN_STACK_SIZE
    45. 

  45. return_stack_top:
    46. 

  46. 

  47. 

  48. ; data
    49. 

  49. section .rodata
    50. 

  50. _invoke_addr: dd test_add
    51. 

  51.