apps/ex2.mu


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

='alt'>44c53fa5 ^
684c0962 ^
18ef136b ^
3ef69a05 ^


97df52bf ^
3ef69a05 ^

cf5c8bc6 ^
1a43d12b ^
cf5c8bc6 ^

81b3f72f ^
3ef69a05 ^
cf5c8bc6 ^
684c0962 ^


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

                       
# Experimental Mu shell
# Currently based on Lisp.

fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
  var env-storage: environment
  var env/esi: (addr environment) <- address env-storage
  initialize-environment env
  load-state env, data-disk
  $main:loop: {
    render-environment screen, env
    # no way to quit right now; just reboot
    {
      var key/eax: byte <- read-key keyboard
      compare key, 0
      loop-if-=
      var key/eax: grapheme <- copy key
      edit-environment env, key, data-disk
    }
    loop
  }
}