blob: 8c68f28055e41e42306770c9b36d5cbc8645f98a (
plain) (
tree)
|
|
# Initialize the minimal runtime for Mu programs.
#
# See translate for how this file is used.
#
# Mu programs start at a function called 'main' without inouts or outputs.
# All tests must pass first (the "power-on unit test").
== code
# 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
}
|