git @ Cat's Eye Technologies ZOWIE / master demo / zowie.html
master

Tree @master (Download .tar.gz)

zowie.html @master — raw · history · 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
<!DOCTYPE html>
<html>
<!-- adapted from https://gist.github.com/bnmnetp/4650616 -->
<head>
  <meta charset="utf-8">
  <script src="https://catseye.tc/contrib/skulpt-0.11.0/skulpt.min.js" type="text/javascript"></script>
  <script src="https://catseye.tc/contrib/skulpt-0.11.0/skulpt-stdlib.js" type="text/javascript"></script>
  <script type="text/javascript">
  function outf(text) { 
      var mypre = document.getElementById("output");
      mypre.innerHTML = mypre.innerHTML + text.replace(/\n$/, "");
  }
  function builtinRead(x) {
      if (Sk.builtinFiles === undefined || Sk.builtinFiles["files"][x] === undefined) {
          throw "File not found: '" + x + "'";
      }
      return Sk.builtinFiles["files"][x];
  }
  function runit() { 
     var pyprog = document.getElementById("yourcode").value; 
     var esoprog = document.getElementById("esocode").value; 
     var mypre = document.getElementById("output"); 
     mypre.innerHTML = ''; 
     Sk.canvas = "mycanvas";
     Sk.pre = "output";
     Sk.configure({output: outf, read: builtinRead});
     prog = pyprog + "\n";
     prog += 'p = Processor()\n';
     prog += 'p.load_string("""\n';
     prog += esoprog;
     prog += '""")\n';
     prog += 'p.run()\n';
     eval(Sk.importMainWithBody("<stdin>", false, prog));
  }
  </script> 
</head>

<body>
  <h1>ZOWIE</h1>

<textarea id="yourcode" cols="80" rows="10">
# paste zowie.py here
</textarea><br/>

<textarea id="esocode" cols="80" rows="10">
; Display the Roman alphabet in reverse, in ZOWIE
; This example source is in the public domain.

MOV R10, 90   ; initially it's "Z"
MOV R1, R1    ; BEGIN TRANSACTION for "REPEAT"
MOV R0, R10   ; output character
MOV R8, R10   ; decrement character
MOV R5, 1
MOV R10, R8
MOV R8, R10   ; test if character is above "@"
MOV R5, 64
MOV R3, R8    ; COMMIT AND REPEAT if non-zero
</textarea><br/>
  
  <button type="button" onclick="runit()">Run</button>

  <pre style="border: 1px solid blue" id="output"></pre>
</body>

</html>