libc-native-file.M1 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. ## Copyright (C) 2016 Jeremiah Orians
  2. ## This file is part of M2-Planet.
  3. ##
  4. ## M2-Planet is free software: you can redistribute it and/or modify
  5. ## it under the terms of the GNU General Public License as published by
  6. ## the Free Software Foundation, either version 3 of the License, or
  7. ## (at your option) any later version.
  8. ##
  9. ## M2-Planet is distributed in the hope that it will be useful,
  10. ## but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. ## GNU General Public License for more details.
  13. ##
  14. ## You should have received a copy of the GNU General Public License
  15. ## along with M2-Planet. If not, see <http://www.gnu.org/licenses/>.
  16. :_start
  17. ;; Prep TAPE_02
  18. LOADUI R0 0x1101
  19. FOPEN_WRITE
  20. ;; Prep TAPE_01
  21. LOADUI R0 0x1100
  22. FOPEN_READ
  23. LOADR R15 4
  24. JUMP 4
  25. &STACK ; Setup initial stack pointer
  26. COPY R14 R15 ; Setup initial base pointer
  27. LOADR32 R12 @HEAP ; Setup HEAP pointer
  28. ADD R12 R12 R15 ; After Stack ends
  29. ;; Setup for FILE*
  30. LOADR R0 4
  31. JUMP 4
  32. &FUNCTION___init_io
  33. CALL R0 R15
  34. LOADR R0 4
  35. JUMP 4
  36. &FUNCTION_main
  37. CALL R0 R15
  38. HALT ; Exit to kernel
  39. ;; Our default heap offset (how big our stack ia)
  40. :HEAP
  41. '00100000'