From 9d7d99fe6cc5a05960ef52cdfa8acefabf8e40bf Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 20 Jun 2021 20:36:47 -0700 Subject: snapshot This is going better than expected; just 3 failing tests among the new ones. --- mu-init.subx | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) (limited to 'mu-init.subx') diff --git a/mu-init.subx b/mu-init.subx index 4bd7abc6..25c1149e 100644 --- a/mu-init.subx +++ b/mu-init.subx @@ -14,22 +14,23 @@ Entry: bd/copy-to-ebp 0/imm32 # #? (main 0 0 Primary-bus-secondary-drive) -#? (test-tokenize-indent) -#? (test-run-integer) -#? (test-run-expand-trace) - # 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) - } +#? (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 { -- cgit 1.4.1-2-gfad0