diff options
Diffstat (limited to 'mu-init.subx')
| -rw-r--r-- | mu-init.subx | 77 |
1 files changed, 21 insertions, 56 deletions
diff --git a/mu-init.subx b/mu-init.subx index feab920f..26b83451 100644 --- a/mu-init.subx +++ b/mu-init.subx @@ -1,62 +1,27 @@ # Initialize the minimal runtime for Mu programs. # -# See translate_mu for how this file is used. +# See translate_mu_baremetal for how this file is used. # -# Mu programs start at a function called 'main' with this signature: -# fn main args: (addr array addr array byte) -> _/ebx: int -# If your program doesn't need commandline arguments you can drop it: -# fn main -> _/ebx: int -# -# Notice that the output must be in ebx, so that the exit() syscall can pick -# it up. +# Mu baremetal programs start at a function called 'main' without inouts or outputs. == code -Entry: - # we don't use ebp in Entry; just initialize it - bd/copy-to-ebp 0/imm32 - # - save argc and argv - # var argc-and-argv/esi - 89/<- %esi 4/r32/esp -$Entry:initialize-heap: - # - initialize the heap - (new-segment *Heap-size Heap) -$Entry:initialize-args: - # - convert argv from null-terminated 'kernel' strings to length-prefixed Mu strings - # var argc/edx: int - 8b/-> *esi 2/r32/edx - # argc is in words; convert it to bytes - c1/shift 4/subop/left %edx 2/imm8 - # var tmp/ebx: handle - 68/push 0/imm32 - 68/push 0/imm32 - 89/<- %ebx 4/r32/esp - # var args/edi: (addr array (addr array byte)) - (allocate-array Heap %edx %ebx) - (lookup *ebx *(ebx+4)) # => eax - 89/<- %edi 0/r32/eax - # var curr/ecx: (addr kernel-string) = argv - 8d/copy-address *(esi+4) 1/r32/ecx - # var max/edx: (addr kernel-string) = argv+4+argc - 8d/copy-address *(ecx+edx) 2/r32/edx - # var dest/esi: (addr (addr array byte)) = args+4 - 8d/copy-address *(edi+4) 6/r32/esi - { - # if (curr >= max) break - 39/compare %ecx 2/r32/edx - 73/jump-if-addr>= break/disp8 - # *dest = kernel-string-to-string(*curr) - (kernel-string-to-string Heap *ecx %ebx) - (lookup *ebx *(ebx+4)) # => eax - 89/<- *esi 0/r32/eax - # curr += 4 - 81 0/subop/add %ecx 4/imm32 - # dest += 4 - 81 0/subop/add %esi 4/imm32 - # - eb/jump loop/disp8 - } - # - run Mu program - (main %edi) # => ebx - # - exit - (syscall_exit) +# initialize stack +bd/copy-to-ebp 0/imm32 +# always first run tests +(run-tests) +(num-test-failures) # => eax +# call main if tests all passed +{ + 3d/compare-eax-and 0/imm32 + 75/jump-if-!= break/disp8 + (clear-real-screen) + c7 0/subop/copy *Real-screen-cursor-x 0/imm32 + c7 0/subop/copy *Real-screen-cursor-y 0/imm32 + (main) +} + +# hang indefinitely +{ + eb/jump loop/disp8 +} |