blob: 19daeb7df23ad5846ee8607c1c82fa35d08af97e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(load "mu.arc")
(reset)
(new-trace "new-screen")
(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*)
(reset)
|