diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-22 23:39:54 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-22 23:39:54 -0700 |
commit | 76ef912eb25cf6eccac43253ad1184d6fd502426 (patch) | |
tree | 435e519b05aa08d34ac74caa73cf12b297699609 /mu-init.subx | |
parent | 2eae06ebda6edfb5d0ea3f8823ccaf60af38694e (diff) | |
download | mu-76ef912eb25cf6eccac43253ad1184d6fd502426.tar.gz |
all tests passing again; infix seems done
Diffstat (limited to 'mu-init.subx')
-rw-r--r-- | mu-init.subx | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/mu-init.subx b/mu-init.subx index 26accb8a..8fcf84e3 100644 --- a/mu-init.subx +++ b/mu-init.subx @@ -14,21 +14,19 @@ Entry: bd/copy-to-ebp 0/imm32 # #? (main 0 0 Primary-bus-secondary-drive) - (set-cursor-position 0 0x30 2) - (test-infix) -#? # 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) -#? } + # 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 { |