about summary refs log blame commit diff stats
path: root/mu-init.subx
blob: 438e29e74854682a0a9fb33db971b2e4ea99372d (plain) (tree)
1
2
3
4
5
6
7
8

                                                 
                                          
 
                                                                    
                                                                                    
 
                                                       


       
      

                        
   
                                           
                                      















                                                        
 



                      
# Initialize the minimal runtime for Mu programs.
#
# See translate for how this file is used.
#
# Mu programs start at a function called 'main' with this signature:
#   fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
#
# All tests must pass first (the "power-on unit test").

== code

Entry:
  # initialize stack
  bd/copy-to-ebp 0/imm32
  #
#?   (main 0 0 Primary-bus-secondary-drive)
#?   (set-cursor-position 0 0x40 0x20)
#?   (test-parenthesize)
#?   (test-parenthesize-skips-lines-with-initial-parens)
#?   (test-parenthesize-skips-single-word-lines)
  # 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
    c7 0/subop/copy *Running-tests? 0/imm32/false
    (clear-real-screen)
    c7 0/subop/copy *Real-screen-cursor-x 0/imm32
    c7 0/subop/copy *Real-screen-cursor-y 0/imm32
    (main 0 0 Primary-bus-secondary-drive)
  }

  # hang indefinitely
  {
    eb/jump loop/disp8
  }