/kernel_words.fth

https://github.com/august0815/forthos · Forth · 47 lines · 39 code · 8 blank · 0 comment · 1 complexity · 22cc2c5e16b454ae13b8d01fa8ce1a50 MD5 · raw file 

    

  1. ; program: kernel_words
    2. 

  2. ; Useful words for kernel management.
    3. 

  3. 

  4. ; License: GPL
    5. 

  5. ; José Dinuncio <jdinunci@uc.edu.ve>, 12/2009.
    6. 

  6. 

  7. %include "forth.h"
    8. 

  8. 

  9. [BITS 32]
    10. 

  10. ; function: outb
    11. 

  11. ;   Executes an out assembly instruction
    12. 

  12. ;
    13. 

  13. ; Stack:
    14. 

  14. ;   val port --
    15. 

  15. ;
    16. 

  16. ; Parameters:
    17. 

  17. ;   val - The value to out. Byte.
    18. 

  18. ;   port - The port to output the value. int16.
    19. 

  19. defcode "outb", outb, 0
    20. 

  20.         pop edx
    21. 

  21.         pop eax
    22. 

  22.         out dx, al
    23. 

  23.         next
    24. 

  24. 

  25. ; function: inb
    26. 

  26. ;   Executes an IN assembly instruction
    27. 

  27. ;
    28. 

  28. ; Stack:
    29. 

  29. ;   port -- val
    30. 

  30. defcode "inb", inb, 0
    31. 

  31.         pop edx
    32. 

  32.         xor eax, eax
    33. 

  33.         in  al, dx
    34. 

  34.         push eax
    35. 

  35.         next
    36. 

  36. 

  37. ; b3b2b1b0 -- 0000b1b0
    38. 

  38. : lo
    39. 

  39.     0xFFFF and
    40. 

  40. ;
    41. 

  41. 

  42. ; b3b2b1b0 -- 0000b1b0
    43. 

  43. : hi
    44. 

  44.     16 shr 0xFFFF and
    45. 

  45. ;
    46.