-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgames.php?name=asteroid
122 lines (118 loc) · 3.1 KB
/
games.php?name=asteroid
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Amatl</title>
<link rel="stylesheet" href="style.css">
</head>
<body>
<header>
<a href="index.php"><h2>Tny</h2></a>
<nav>
<ul class="menu">
<li><a href="about.php">About</a></li>
<li><a href="tutorial.php">Tutorial</a></li>
<li><a href="reference.php">Reference</a></li>
<li><a href="https://sr.ht/~m15o/Amatl/">Download</a></li>
<li><a href="ide.html">Web IDE</a></li>
<li><a href="launcher.php">Launcher</a></li>
<li><a href="games.php">Games</a></li>
</ul>
</nav>
</header>
<main>
<script src="amatl.js"></script>
<script>
try {
rom = msm.assemble(`2 @ctrl
LIT player: 81 FRM LIT a MOD LIT 9 LTH SET
FRM LIT 6 MOD LIT 0 NEQ LIT @end JCN
LIT @player LDA LDB LIT @hit JCN
CLS
LIT 0 LIT 10 PSH PSH do: RSI LIT 40 SFT
LIT 0 LIT f PSH PSH while:
DUP RSI ADD OVR RSI ADD LDB SET
DUP RSI ADD INC LDB OVR RSI ADD STB
PUL INC PSH
RSI RSJ NEQ LIT @while JCN
PUL PUL POP POP POP
PUL INC PSH
RSI RSJ NEQ LIT @do JCN
PUL PUL POP POP
RND LIT f0 AND LIT 0f ADD
DUP LIT 1 SET
LIT 1 SWP DEC STB
end: BRK
ctrl:
KEY LIT 1 EQU LIT @up JCN
KEY LIT 2 EQU LIT @dn JCN
BRK
up: LIT f0 LIT @move JMP
dn: LIT 10 LIT @move JMP
move: LIT @player LDA ADD LIT @player STA BRK
hit: LIT 0 LIT 0 STA BRK`);
console.log(rom);
} catch(e) {
errors.innerHTML = e.toString()
}
</script>
<h1>asteroid</h1>
<p id="share"></p>
<table>
<tr>
<td>Name</td>
<td>asteroid</td>
</tr>
<tr>
<td>Author</td>
<td>m15o</td>
</tr>
<tr>
<td>Instructions</td>
<td>Use up and down arrows to move the ship. Avoid asteroids!</td>
</tr>
<tr>
<td>Size</td>
<td id="size"></td>
</tr>
<tr>
<td>Source</td>
<td><pre><code>2 @ctrl
LIT player: 81 FRM LIT a MOD LIT 9 LTH SET
FRM LIT 6 MOD LIT 0 NEQ LIT @end JCN
LIT @player LDA LDB LIT @hit JCN
CLS
LIT 0 LIT 10 PSH PSH do: RSI LIT 40 SFT
LIT 0 LIT f PSH PSH while:
DUP RSI ADD OVR RSI ADD LDB SET
DUP RSI ADD INC LDB OVR RSI ADD STB
PUL INC PSH
RSI RSJ NEQ LIT @while JCN
PUL PUL POP POP POP
PUL INC PSH
RSI RSJ NEQ LIT @do JCN
PUL PUL POP POP
RND LIT f0 AND LIT 0f ADD
DUP LIT 1 SET
LIT 1 SWP DEC STB
end: BRK
ctrl:
KEY LIT 1 EQU LIT @up JCN
KEY LIT 2 EQU LIT @dn JCN
BRK
up: LIT f0 LIT @move JMP
dn: LIT 10 LIT @move JMP
move: LIT @player LDA ADD LIT @player STA BRK
hit: LIT 0 LIT 0 STA BRK</code></pre></td>
</tr>
</table>
<script>
document.getElementById("share").innerHTML = `<a href="emulator.php?r=${btoa(rom.map(e => String.fromCharCode(e)).join(''))}">play<a>`;
const bytes = new Uint8Array(rom);
const blob = new Blob([bytes], { type: 'application/octet-stream' });
document.getElementById("share").innerHTML += ` <a href="https://Amatl.m15o.net/${URL.createObjectURL(blob)}" download="asteroid.rom">download<a>`;
document.getElementById("size").innerHTML = rom.length + " B";
</script>
</main>
</body>
</html>