diff options
Diffstat (limited to 'edit.arc.t')
-rw-r--r-- | edit.arc.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/edit.arc.t b/edit.arc.t new file mode 100644 index 00000000..ea064245 --- /dev/null +++ b/edit.arc.t @@ -0,0 +1,22 @@ +(load "mu.arc") + +(reset) +(add-fns:readfile "edit.mu") +(add-fns + '((test-new-screen + ((curr-screen screen-address) <- new-screen (5 literal) (5 literal)) + ))) +(run 'test-new-screen) +(prn memory*) + +;? (reset) +;? (add-fns:readfile "edit.mu") +;? (add-fns +;? '((test-redraw +;? ((curr-screen screen-address) <- new-screen (5 literal) (5 literal)) +;? ((x line-address) <- get-address (curr-screen screen) (2 offset)) +;? ((y character-address) <- get-address (x line-address deref) (4 offset)) +;? ((y character-address deref) <- copy (literal "a")) +;? ))) +;? (run 'test-redraw) +;? (prn memory*) |