PageRenderTime 25ms CodeModel.GetById 12ms RepoModel.GetById 0ms app.codeStats 0ms

/kernel.fth

https://github.com/august0815/forthos
Forth | 66 lines | 55 code | 11 blank | 0 comment | 0 complexity | ab13ff3c89cadfc664c700c83cecf893 MD5 | raw file
    

  1. ; program: kernel
    2. 

  2. ; by José Dinuncio <jdinunci@uc.edu.veZ
    3. 

  3. ; 12/2009
    4. 

  4. 

  5. %include "forth.h"
    6. 

  6. global main
    7. 

  7. extern main_test
    8. 

  8. 

  9. [BITS 32]
    10. 

  10. section .text
    11. 

  11. 

  12. ; function: main
    13. 

  13. ;   Initialize the forth machinery.
    14. 

  14. ;
    15. 

  15. global main
    16. 

  16. main:
    17. 

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

  18.             mov ebp, return_stack_top   ; init the return stack
    19. 

  19.             mov eax,point_DP			; init DP
    20. 

  20.             mov dword [var_DP],eax	;
    21. 

  21.             mov esi, cold_start         ; fist foth word to exec
    22. 

  22.             next
    23. 

  23. 

  24. section .rodata
    25. 

  25. 

  26. ; Bridge to the forth's word main
    27. 

  27. cold_start:
    28. 

  28.             dd main_kernel
    29. 

  29. 

  30. ; function: main
    31. 

  31. ;   Firts foth word to be executed by the kernel
    32. 

  32. extern pit_init
    33. 

  33. extern irq_init
    34. 

  34. extern idt_init
    35. 

  35. : main_kernel
    36. 

  36.     idt_init
    37. 

  37.     100 pit_init
    38. 

  38.     irq_init
    39. 

  39.     main_test
    40. 

  40.     stop
    41. 

  41. ;
    42. 

  42. 

  43. 

  44. ; stacks
    45. 

  45. section   .bss
    46. 

  46. align 4096
    47. 

  47.             RETURN_STACK_SIZE equ 8192
    48. 

  48. return_stack:
    49. 

  49.             resb RETURN_STACK_SIZE
    50. 

  50. global return_stack_top
    51. 

  51. return_stack_top:
    52. 

  52. 

  53. align 4096
    54. 

  54. BUFFER_SIZE equ 4096
    55. 

  55. buffer:
    56. 

  56. 	resb BUFFER_SIZE
    57. 

  57. 

  58. align 4096
    59. 

  59. pad: 
    60. 

  60. 	resb 1024
    61. 

  61. align 1024	
    62. 

  62. point_DP: resb 2048
    63. 

  63. 

  64. point: resb 363748
    65. 

  65. global top
    66. 

  66. top: resb 0
    67. 

  67.