http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&feed=atom&action=history
Homebrew:Tetris - Revision history
2024-03-29T07:11:55Z
Revision history for this page on the wiki
MediaWiki 1.28.0
http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&diff=652&oldid=prev
E5frog at 13:21, 12 April 2022
2022-04-12T13:21:09Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 13:21, 12 April 2022</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l8" >Line 8:</td>
<td colspan="2" class="diff-lineno">Line 8:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Peter Trauner wrote this excellent Tetris clone, a few minor details are missing but unfortunately Peter hasn't done any more updates.</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Peter Trauner wrote this excellent Tetris clone, a few minor details are missing but unfortunately Peter hasn't done any more updates.</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>The Channel F's twistable knob makes it excellent for Tetris!</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>The Channel F's twistable knob makes it excellent for Tetris!</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"></del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;">Graphics of the score-digits were edited to make them more visible in this release v7:</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;">[https://channelf.se/veswiki/index.php?title=File:Tetris_v7-edited_numbers.zip Tetris v7 edited (.zip, 1.98kB)]</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>There is some source code available for an earlier version (v 5) released under GPL:</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>There is some source code available for an earlier version (v 5) released under GPL:</div></td></tr>
</table>
E5frog
http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&diff=651&oldid=prev
E5frog at 13:20, 12 April 2022
2022-04-12T13:20:41Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 13:20, 12 April 2022</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l10" >Line 10:</td>
<td colspan="2" class="diff-lineno">Line 10:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Graphics of the score-digits were edited to make them more visible in this release v7:</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Graphics of the score-digits were edited to make them more visible in this release v7:</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>[https://channelf.se/veswiki/<del class="diffchange diffchange-inline">images/7/72/</del>Tetris_v7-edited_numbers.zip Tetris v7 edited (.zip, 1.98kB)]</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[https://channelf.se/veswiki/<ins class="diffchange diffchange-inline">index.php?title=File:</ins>Tetris_v7-edited_numbers.zip Tetris v7 edited (.zip, 1.98kB)]</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>There is some source code available for an earlier version (v 5) released under GPL:</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>There is some source code available for an earlier version (v 5) released under GPL:</div></td></tr>
</table>
E5frog
http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&diff=650&oldid=prev
E5frog at 13:18, 12 April 2022
2022-04-12T13:18:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 13:18, 12 April 2022</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l9" >Line 9:</td>
<td colspan="2" class="diff-lineno">Line 9:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>The Channel F's twistable knob makes it excellent for Tetris!</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>The Channel F's twistable knob makes it excellent for Tetris!</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">E5frog has changed the graphics </del>of the score-digits to make them more visible in this release v7:</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins class="diffchange diffchange-inline">Graphics </ins>of the score-digits <ins class="diffchange diffchange-inline">were edited </ins>to make them more visible in this release v7:</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>[<del class="diffchange diffchange-inline">http</del>://<del class="diffchange diffchange-inline">www</del>.<del class="diffchange diffchange-inline">bingbangboom.us/productions</del>/veswiki/images/7/72/Tetris_v7-edited_numbers.zip Tetris v7 edited (.zip, 1.98kB)]</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[<ins class="diffchange diffchange-inline">https</ins>://<ins class="diffchange diffchange-inline">channelf</ins>.<ins class="diffchange diffchange-inline">se</ins>/veswiki/images/7/72/Tetris_v7-edited_numbers.zip Tetris v7 edited (.zip, 1.98kB)]</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>There is some source code available for an earlier version (v 5) released under GPL:</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>There is some source code available for an earlier version (v 5) released under GPL:</div></td></tr>
</table>
E5frog
http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&diff=297&oldid=prev
E5frog at 20:28, 20 November 2012
2012-11-20T20:28:50Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 20:28, 20 November 2012</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l7" >Line 7:</td>
<td colspan="2" class="diff-lineno">Line 7:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Peter Trauner wrote this excellent Tetris clone, a few minor details are missing but unfortunately Peter hasn't done any more updates.</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Peter Trauner wrote this excellent Tetris clone, a few minor details are missing but unfortunately Peter hasn't done any more updates.</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">The Channel F's twistable knob makes it excellent for Tetris!</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>E5frog has changed the graphics of the score-digits to make them more visible in this release v7:</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>E5frog has changed the graphics of the score-digits to make them more visible in this release v7:</div></td></tr>
</table>
E5frog
http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&diff=296&oldid=prev
E5frog at 20:27, 20 November 2012
2012-11-20T20:27:01Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 20:27, 20 November 2012</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><div id="col1" style="width:437px; float: right"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><div style="border: 1px solid #437; padding: 5px; margin: 5px 0; background: #FFE;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">{{#ev:youtube|_uss_-b8kP0|425}}</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">''Two players in a game of Tetris.''</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></div></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></div></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Peter Trauner wrote this excellent Tetris clone, a few minor details are missing but unfortunately Peter hasn't done any more updates.</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Peter Trauner wrote this excellent Tetris clone, a few minor details are missing but unfortunately Peter hasn't done any more updates.</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
</table>
E5frog
http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&diff=97&oldid=prev
E5frog: 1 revision
2012-11-16T21:23:14Z
<p>1 revision</p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style='vertical-align: top;' lang='en'>
<td colspan='1' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='1' style="background-color: white; color:black; text-align: center;">Revision as of 21:23, 16 November 2012</td>
</tr><tr><td colspan='2' style='text-align: center;' lang='en'><div class="mw-diff-empty">(No difference)</div>
</td></tr></table>
E5frog
http://channelf.se/veswiki/index.php?title=Homebrew:Tetris&diff=96&oldid=prev
E5frog at 14:26, 14 August 2007
2007-08-14T14:26:03Z
<p></p>
<p><b>New page</b></p><div>Peter Trauner wrote this excellent Tetris clone, a few minor details are missing but unfortunately Peter hasn't done any more updates.<br />
<br />
E5frog has changed the graphics of the score-digits to make them more visible in this release v7:<br />
[http://www.bingbangboom.us/productions/veswiki/images/7/72/Tetris_v7-edited_numbers.zip Tetris v7 edited (.zip, 1.98kB)]<br />
<br />
There is some source code available for an earlier version (v 5) released under GPL:<br />
<br />
<pre>; Tetris by Peter Trauner<br />
; minor changes by e5frog<br />
<br />
processor f8<br />
include "ves.h"<br />
<br />
org $800<br />
<br />
player1: equ $2800<br />
p1next: equ $28e4<br />
p1fig: equ $28ec<br />
p1activ: equ $28fd<br />
p1bonus: equ $28f5<br />
p1penalty: equ $28f6<br />
p1score: equ $28f7 ; 8 9<br />
p1delay: equ $28fb<br />
p1delay_counter: equ $28fc<br />
p1randomnext: equ $28fe<br />
p1random: equ $28ff<br />
p1borderc1: equ $2a80<br />
p1borderc2: equ $2a81<br />
p1fieldposy: equ $2a82<br />
p1fieldposx: equ $2a83<br />
p1blockc1: equ $2a84<br />
p1blockc2: equ $2a85<br />
p1scoreparam: equ $2a86<br />
p1nextparam: equ $2a8a<br />
; equ $2a8e<br />
<br />
player2: equ $2900<br />
p2next: equ $29e4<br />
p2fig: equ $29ec<br />
p2activ: equ $29fd<br />
p2bonus: equ $29f5<br />
p2penalty: equ $29f6<br />
p2score: equ $29f7<br />
p2delay: equ $29fb<br />
p2delay_counter: equ $29fc<br />
p2randomnext: equ $29fe<br />
p2random: equ $29ff<br />
p2borderc1: equ $2a90<br />
p2borderc2: equ $2a91<br />
p2fieldposy: equ $2a92<br />
p2fieldposx: equ $2a93<br />
p2blockc1: equ $2a94<br />
p2blockc2: equ $2a95<br />
p2scoreparam: equ $2a96<br />
p2nextparam: equ $2a9a<br />
; equ $2a9e<br />
<br />
; player structure layout<br />
; 19 lines a 12 columns<br />
; ec next figure<br />
; ed figure (0..6, $ff for none)<br />
; ee rotation<br />
; ef x<br />
; f0 y<br />
; f5 bonus<br />
; f6 penalty<br />
; f7 score changed<br />
; f8/f9 score<br />
; fa counter until speed change<br />
; fb speed/delay<br />
; fc speed/delay counter<br />
; fd activ<br />
; fe next randomnumber<br />
; ff actual randomnumber<br />
<br />
randomnumber: equ $2a00<br />
gamemode: equ $2a01<br />
palvideomode: equ $2a02<br />
;shownextfigure: equ $2a03<br />
<br />
db $55 ; cartridge id<br />
db $2b ; unknown<br />
entry:<br />
pi clearscreen<br />
dci gamemode<br />
lis 0<br />
st<br />
dci palvideomode<br />
lis 1<br />
st<br />
; dci shownextfigure<br />
; lis 0<br />
; st<br />
<br />
; load videomode constants<br />
dci palvideomode<br />
lm<br />
dci pal<br />
ci 0<br />
bt 4,vmodepal<br />
dci ntsc<br />
vmodepal: li $10<br />
lr is,a<br />
li 28<br />
lr 8,a<br />
vmode1: lm<br />
lr (is),a<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 8<br />
bf 4,vmode1<br />
li $10<br />
lr is,a<br />
lis 14<br />
lr 8,a<br />
dci p1borderc1<br />
vmode2: lr a,(is)<br />
st<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 8<br />
bf 4,vmode2<br />
lis 14<br />
lr 8,a<br />
dci p2borderc1<br />
vmode3: lr a,(is)<br />
st<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 8<br />
bf 4,vmode3<br />
<br />
dci p1fig<br />
lis 0<br />
st<br />
dci p2fig<br />
st<br />
dci p1activ<br />
st<br />
dci p2activ<br />
st<br />
<br />
dci player1<br />
pi clearfield<br />
dci player2<br />
pi clearfield<br />
<br />
dci p1borderc1<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
dci player1<br />
pi drawfield<br />
<br />
dci p2borderc1<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
dci player2<br />
pi drawfield<br />
<br />
dci copyright<br />
pi drawansistringv<br />
<br />
dci thanx<br />
pi drawansistring<br />
<br />
li $13<br />
lr is,a<br />
li $30<br />
lr (is)-,a<br />
lr (is)-,a<br />
lr (is)-,a<br />
lr (is),a<br />
dci p1scoreparam<br />
lm<br />
lr 1,a<br />
lm<br />
lr 2,a<br />
lm <br />
lr 3,a<br />
lm<br />
lr 4,a<br />
lis 4<br />
lr 9,a<br />
pi drawstring<br />
<br />
li $10<br />
lr is,a<br />
dci p2scoreparam<br />
lm<br />
lr 1,a<br />
lm<br />
lr 2,a<br />
lm <br />
lr 3,a<br />
lm<br />
lr 4,a<br />
lis 4<br />
lr 9,a<br />
pi drawstring<br />
<br />
dci p1fig<br />
lm <br />
lr 0,a<br />
lis 0<br />
lr 1,a<br />
pi getfigure<br />
<br />
li $31<br />
lr is,a<br />
dci p1next<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st<br />
li $35<br />
lr is,a<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st <br />
li $39<br />
lr is,a<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st<br />
li $3d<br />
lr is,a<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st<br />
<br />
dci p1nextparam<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci p1next<br />
pi drawnext<br />
<br />
dci p1fig<br />
lm <br />
lr 0,a<br />
lis 0<br />
lr 1,a<br />
pi getfigure<br />
<br />
li $31<br />
lr is,a<br />
dci p2next<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st<br />
li $35<br />
lr is,a<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st <br />
li $39<br />
lr is,a<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st<br />
li $3d<br />
lr is,a<br />
lr a,(is)+<br />
st<br />
lr a,(is)+<br />
st<br />
<br />
dci p2nextparam<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci p2next<br />
pi drawnext <br />
<br />
gameover: pi random<br />
<br />
li $10<br />
outs 0<br />
ins 0<br />
ni 1<br />
bf 4,gameover1<br />
dci gamemode<br />
lis 1<br />
st<br />
<br />
gameover1: lis 0<br />
outs 4<br />
ins 4<br />
ni $80<br />
bf 4,gameover2<br />
dci gamemode<br />
lis 2<br />
st<br />
<br />
gameover2: lis 0<br />
outs 1<br />
ins 1<br />
ni $80<br />
bf 4,gameover3<br />
dci gamemode<br />
lis 3<br />
st<br />
<br />
gameover3: dci gamemode <br />
lm<br />
ci 0<br />
bt 4,gameover<br />
<br />
dci gamemode<br />
lm<br />
ci 1<br />
bf 4,start1<br />
dci player1<br />
pi clearfield<br />
dci player2<br />
pi clearfield<br />
lis 1<br />
dci p1activ<br />
st<br />
dci p2activ<br />
st<br />
jmp playing1<br />
start1: ci 2<br />
bf 4,start2<br />
dci player1<br />
pi clearfield<br />
lis 1<br />
dci p1activ<br />
st<br />
jmp playing1<br />
start2: dci player2<br />
pi clearfield<br />
lis 1<br />
dci p2activ<br />
st<br />
playing1: lis 0<br />
dci gamemode<br />
st<br />
<br />
dci p1activ<br />
lm<br />
ci 0<br />
bt 4,playingx<br />
dci p1borderc1<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
dci player1<br />
pi drawfield<br />
<br />
dci p1nextparam<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci p1next<br />
pi drawnext<br />
<br />
playingx: dci p2activ<br />
lm<br />
ci 0<br />
bt 4,playingy<br />
dci p2borderc1<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
dci player2<br />
pi drawfield<br />
<br />
dci p2nextparam<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci p2next<br />
pi drawnext<br />
<br />
playingy:<br />
playing: li $10<br />
outs 0<br />
<br />
dci p1activ<br />
lm<br />
ci 0<br />
bf 4,playing1b<br />
waste1a: jmp waste1<br />
playing1b:<br />
lis 0<br />
outs 4<br />
ins 4<br />
ni 4<br />
bt 4,playing1a<br />
<br />
dci p1delay_counter ; subtract one from the delay counter<br />
lm <br />
ai $ff<br />
dci p1delay_counter<br />
st<br />
ci 0 ; compare A with 0<br />
bf 4,waste1a ; if not zero go to "waste1a"<br />
playing1a: dci p1delay<br />
<br />
lm<br />
st<br />
<br />
lis 0<br />
outs 4<br />
ins 4<br />
lr 9,a<br />
dci p1fig<br />
pi move<br />
<br />
dci p1bonus<br />
lm<br />
ci 0<br />
bt 4,playing1x<br />
ai $ff<br />
dci p2penalty<br />
am<br />
dci p2penalty<br />
st<br />
lis 0<br />
dci p1bonus<br />
st<br />
<br />
playing1x: dci p1fieldposy<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci player1<br />
pi drawfielddiff<br />
<br />
dci p1nextparam<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci p1next<br />
pi drawnextdiff<br />
<br />
<br />
dci p1score<br />
lm<br />
ci 1<br />
bf 4,playing1c<br />
li $13<br />
lr is,a<br />
lm<br />
lr 0,a<br />
ni $f<br />
oi $30<br />
lr (is)-,a<br />
lr a,0<br />
sr 4<br />
oi $30<br />
lr (is)-,a<br />
lm<br />
lr 0,a<br />
ni $0f<br />
oi $30<br />
lr (is)-,a<br />
lr a,0<br />
sr 4<br />
oi $30<br />
lr (is),a<br />
dci p1scoreparam<br />
lm<br />
lr 1,a<br />
lm<br />
lr 2,a<br />
lm <br />
lr 3,a<br />
lm<br />
lr 4,a<br />
lis 4<br />
lr 9,a<br />
pi drawstring<br />
<br />
dci p1score<br />
lis 0<br />
st<br />
<br />
playing1c: dci p1activ<br />
lm<br />
ci 0<br />
bf 4,playing2<br />
dci p2activ<br />
lm<br />
ci 0<br />
bt 4,playing1d<br />
dci p2activ<br />
lis 0<br />
st<br />
dci player2won<br />
bf 0,playing1e<br />
playing1d: dci strgameover1<br />
playing1e: pi drawansistring<br />
bf 0,playing2<br />
waste1: pi random<br />
<br />
playing2: li $10<br />
outs 0<br />
<br />
dci p2activ<br />
lm<br />
ci 0<br />
bf 4,playing2b<br />
waste2a: jmp waste2<br />
playing2b: lis 0<br />
outs 1<br />
ins 1<br />
ni 4<br />
bt 4,playing2a<br />
<br />
dci p2delay_counter<br />
lm <br />
ai $ff<br />
dci p2delay_counter<br />
st<br />
ci 0<br />
bf 4,waste2a<br />
playing2a: dci p2delay<br />
lm<br />
st<br />
<br />
lis 0<br />
outs 1<br />
ins 1<br />
lr 9,a<br />
dci p2fig<br />
pi move<br />
<br />
dci p2bonus<br />
lm<br />
ci 0<br />
bt 4,playing2x<br />
ai $ff<br />
dci p1penalty<br />
am<br />
dci p1penalty<br />
st<br />
lis 0<br />
dci p2bonus<br />
st<br />
<br />
playing2x: dci p2fieldposy<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci player2<br />
pi drawfielddiff<br />
<br />
dci p2nextparam<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 4,a<br />
lm<br />
lr 5,a<br />
dci p2next<br />
pi drawnextdiff<br />
<br />
dci p2score<br />
lm<br />
ci 1<br />
bf 4,playing2c<br />
li $13<br />
lr is,a<br />
lm<br />
lr 0,a<br />
ni $f<br />
oi $30<br />
lr (is)-,a<br />
lr a,0<br />
sr 4<br />
oi $30<br />
lr (is)-,a<br />
lm<br />
lr 0,a<br />
ni $0f<br />
oi $30<br />
lr (is)-,a<br />
lr a,0<br />
sr 4<br />
oi $30<br />
lr (is),a<br />
dci p2scoreparam<br />
lm<br />
lr 1,a<br />
lm<br />
lr 2,a<br />
lm <br />
lr 3,a<br />
lm<br />
lr 4,a<br />
lis 4<br />
lr 9,a<br />
pi drawstring<br />
<br />
dci p2score<br />
lis 0<br />
st<br />
<br />
playing2c: dci p2activ<br />
lm<br />
ci 0<br />
bf 4,game<br />
dci p1activ<br />
lm<br />
ci 0<br />
bt 4,playing2d<br />
dci p1activ<br />
lis 0<br />
st<br />
dci player1won<br />
bf 0,playing2e<br />
playing2d: dci strgameover2<br />
playing2e: pi drawansistring<br />
bf 0,game<br />
waste2: pi random<br />
game:<br />
; avoid standing random number if no key pressed<br />
dci randomnumber<br />
lm<br />
dci randomnumber<br />
ai 1<br />
st<br />
dci p1random<br />
lm<br />
dci p1random<br />
ai 1<br />
st<br />
dci p2random<br />
lm<br />
dci p2random<br />
ai 1<br />
st<br />
<br />
pi random<br />
dci p1activ<br />
lm<br />
dci p2activ<br />
om<br />
bt 4,playing3<br />
jmp playing<br />
playing3: jmp gameover<br />
<br />
; dci address<br />
; r0 video row<br />
; r1 video col<br />
; r4 color<br />
; r5 color 2<br />
drawfield: lr k,p<br />
li 19<br />
lr 6,a<br />
lr a,1<br />
lr 8,a<br />
dfloopl: li 12<br />
lr 7,a<br />
<br />
dfloopc: lm<br />
ci 0<br />
bf 4,dfset<br />
li $c0<br />
lr 2,a<br />
lr 3,a<br />
jmp dfcont<br />
dfset: lr a,4<br />
lr 2,a<br />
lr a,5<br />
lr 3,a<br />
dfcont: pi drawblock<br />
lr a,1<br />
ai $fd<br />
lr 1,a<br />
ds 7<br />
bf 4,dfloopc<br />
lr a,8<br />
lr 1,a<br />
lr a,0<br />
ai $fd<br />
lr 0,a<br />
ds 6<br />
bf 4,dfloopl<br />
lr p,k<br />
pop<br />
<br />
; dci address<br />
; r0 video row<br />
; r1 video col<br />
; r4 color<br />
; r5 color 2<br />
drawfielddiff: lr k,p<br />
li 19<br />
lr 6,a<br />
lr a,1<br />
lr 8,a<br />
lr q,dc<br />
dfdloopl: li 12<br />
lr 7,a<br />
<br />
dfdloopc: lm<br />
ni $ff<br />
bt 1,dfdnot<br />
ni $7f<br />
bf 4,dfdset<br />
lr dc,q<br />
st<br />
li $c0<br />
lr 2,a<br />
lr 3,a<br />
jmp dfdcont<br />
dfdset: lr dc,q<br />
st<br />
lr a,4<br />
lr 2,a<br />
lr a,5<br />
lr 3,a<br />
dfdcont: pi drawblock<br />
dfdnot: lr q,dc<br />
lr a,1<br />
ai $fd<br />
lr 1,a<br />
ds 7<br />
bf 4,dfdloopc<br />
lr a,8<br />
lr 1,a<br />
lr a,0<br />
ai $fd<br />
lr 0,a<br />
ds 6<br />
bf 4,dfdloopl<br />
lr p,k<br />
pop<br />
<br />
; dci address<br />
; r0 video row<br />
; r1 video col<br />
; r4 color<br />
; r5 color 2<br />
drawnext: lr k,p<br />
lis 4<br />
lr 6,a<br />
lr a,1<br />
lr 8,a<br />
dfnloopl: lis 2<br />
lr 7,a<br />
<br />
dfnloopc: lm<br />
ci 0<br />
bf 4,dfnset<br />
lis 0<br />
lr 2,a<br />
lr 3,a<br />
jmp dfncont<br />
dfnset: lr a,4<br />
lr 2,a<br />
lr a,5<br />
lr 3,a<br />
dfncont: pi drawblock<br />
lr a,1<br />
ai $fd<br />
lr 1,a<br />
ds 7<br />
bf 4,dfnloopc<br />
lr a,8<br />
lr 1,a<br />
lr a,0<br />
ai $fd<br />
lr 0,a<br />
ds 6<br />
bf 4,dfnloopl<br />
lr p,k<br />
pop<br />
<br />
<br />
; dci address<br />
; r0 video row<br />
; r1 video col<br />
; r4 color<br />
; r5 color 2<br />
drawnextdiff: lr k,p<br />
lis 4<br />
lr 6,a<br />
lr a,1<br />
lr 8,a<br />
lr q,dc<br />
dndloopl: lis 2<br />
lr 7,a<br />
<br />
dndloopc: lm<br />
ni $ff<br />
bt 1,dndnot<br />
ni $7f<br />
bf 4,dndset<br />
lr dc,q<br />
st<br />
lis 0<br />
lr 2,a<br />
lr 3,a<br />
jmp dndcont<br />
dndset: lr dc,q<br />
st<br />
lr a,4<br />
lr 2,a<br />
lr a,5<br />
lr 3,a<br />
dndcont: pi drawblock<br />
dndnot: lr q,dc<br />
lr a,1<br />
ai $fd<br />
lr 1,a<br />
ds 7<br />
bf 4,dndloopc<br />
lr a,8<br />
lr 1,a<br />
lr a,0<br />
ai $fd<br />
lr 0,a<br />
ds 6<br />
bf 4,dndloopl<br />
lr p,k<br />
pop<br />
<br />
; dci address <br />
clearfield: lr h,dc<br />
li 228<br />
lr 0,a<br />
li 0<br />
cfloop: st<br />
ds 0<br />
bf 4,cfloop<br />
lr dc,h<br />
li 18<br />
lr 0,a<br />
li 1<br />
cfloop1: st<br />
li 10<br />
adc<br />
li 1<br />
st<br />
ds 0<br />
bf 4,cfloop1<br />
st<br />
st<br />
st<br />
st<br />
st<br />
st<br />
st<br />
st<br />
st<br />
st<br />
st<br />
st<br />
lis 0<br />
cm ; playing $2[89]e4<br />
cm<br />
cm<br />
cm<br />
cm<br />
cm<br />
cm<br />
cm<br />
cm ; $2[89]ec<br />
li $ff<br />
st ; no figure<br />
lr h,dc<br />
li $f5<br />
lr 11,a<br />
lr dc,h<br />
lis 0<br />
st<br />
st<br />
st<br />
st<br />
st<br />
lis 1<br />
st<br />
lis 10<br />
st<br />
lis 1<br />
st<br />
pop<br />
<br />
; dci field<br />
; r9 keys<br />
move: lr k,p<br />
lr q,dc<br />
lm<br />
; ci 0<br />
; bf 4,moveend1<br />
; jmp moveend<br />
moveend1: lm<br />
ci $ff<br />
bf 4,next1<br />
jmp next<br />
next1: lr 0,a<br />
lm<br />
lr 1,a<br />
lm <br />
lr 2,a<br />
lm <br />
lr 3,a<br />
pi getfigure<br />
pi fieldpos<br />
pi clearfigure<br />
lr a,9<br />
ni $1<br />
bf 4,nmoveright<br />
lr a,2<br />
ai 1<br />
lr 2,a<br />
nmoveright: lr a,9<br />
ni $2<br />
bf 4,nmoveleft<br />
lr a,2<br />
ai $ff<br />
lr 2,a<br />
nmoveleft: lr a,9<br />
ni $10<br />
bf 4,nmovecc<br />
lr a,1<br />
ai 1<br />
ni 3<br />
lr 1,a<br />
nmovecc: lr a,9<br />
ni $20<br />
bf 4,nmovec<br />
lr a,1<br />
ai $ff<br />
ni 3<br />
lr 1,a<br />
nmovec: pi getfigure<br />
pi fieldpos<br />
pi testfigure<br />
ci 0<br />
bt 4,nreload<br />
lr dc,q<br />
lm<br />
lm<br />
lr 0,a<br />
lm<br />
lr 1,a<br />
lm<br />
lr 2,a<br />
lm<br />
lr 3,a<br />
pi getfigure<br />
nreload: lr dc,q<br />
lm<br />
lr a,0<br />
st<br />
lr a,1<br />
st<br />
lr a,2<br />
st<br />
lr a,3<br />
st<br />
lr a,3<br />
ai 1<br />
lr 3,a<br />
pi fieldpos<br />
pi testfigure<br />
lr 9,a<br />
ci 0<br />
bf 4,nmovedown<br />
lr dc,q<br />
lm<br />
lm<br />
lm<br />
lm<br />
lr a,3<br />
st<br />
nmovedown: lr dc,q<br />
lm<br />
lm<br />
lm<br />
lm<br />
lm<br />
lr 3,a<br />
pi fieldpos<br />
pi setfigure<br />
lr a,9<br />
ci 0<br />
bf 4,nmovedown1<br />
jmp moveend<br />
nmovedown1: pi findlines<br />
lr dc,q<br />
lr h,dc<br />
li $f6<br />
lr 11,a<br />
lr dc,h<br />
lm<br />
ci 0<br />
bt 4,next<br />
lr 4,a<br />
lr dc,h<br />
lis 0<br />
st<br />
mpen: pi penalty<br />
ds 4<br />
bf 4,mpen<br />
next: lr dc,q<br />
lr h,dc<br />
li $fa<br />
lr 11,a<br />
lr dc,h<br />
lm <br />
ai 1<br />
lr dc,h<br />
st<br />
ci $50<br />
bf 4,next2<br />
lr dc,h<br />
lis 0<br />
st<br />
lm<br />
ci 1<br />
bt 4,next2<br />
ai $ff<br />
lr dc,h<br />
cm<br />
st<br />
next2: lr dc,q<br />
lm<br />
st<br />
lr dc,q<br />
lr h,dc<br />
li $fe<br />
lr 11,a<br />
lr dc,h<br />
lm<br />
lm<br />
ni 7<br />
ci 7<br />
bf 4,nextloop<br />
lis 0<br />
nextloop: lr 0,a<br />
lr dc,h<br />
lm<br />
st<br />
lr dc,q<br />
lm<br />
st<br />
lr dc,q<br />
lr a,0<br />
st<br />
cm<br />
li 0 ; rotation<br />
lr 1,a<br />
st<br />
li $4 ; x<br />
lr 2,a<br />
st<br />
li $0 ; y<br />
lr 3,a<br />
st<br />
lr dc,q<br />
cm<br />
lm <br />
lr 0,a<br />
lm <br />
lr 1,a<br />
pi getfigure<br />
lr dc,q<br />
pi fieldpos<br />
pi testfigure<br />
ci 0<br />
bt 4, nextend<br />
; end of game<br />
lr dc,q<br />
lr h,dc<br />
li $fd<br />
lr 11,a<br />
lr dc,h<br />
li $0<br />
st<br />
lr dc,q<br />
nextend: lr h,dc<br />
li $f7<br />
lr 11,a<br />
lr dc,h<br />
lis 1<br />
st<br />
li $67<br />
amd <br />
lr 4,a<br />
li $66<br />
lnk<br />
amd<br />
lr 5,a<br />
lr dc,h<br />
cm<br />
lr a,4<br />
st<br />
lr a,5<br />
st <br />
pi fieldpos<br />
pi setfigure<br />
<br />
<br />
lr dc,q<br />
lm <br />
lr 0,a<br />
lis 0<br />
lr 1,a<br />
pi getfigure<br />
<br />
li $31<br />
lr is,a <br />
lr h,dc<br />
li $e4<br />
lr 11,a<br />
lr dc,h<br />
lr a,(is)+<br />
oi $80<br />
st<br />
lr a,(is)+<br />
oi $80<br />
st<br />
li $35<br />
lr is,a<br />
lr a,(is)+<br />
oi $80<br />
st<br />
lr a,(is)+<br />
oi $80<br />
st <br />
li $39<br />
lr is,a<br />
lr a,(is)+<br />
oi $80<br />
st<br />
lr a,(is)+<br />
oi $80<br />
st<br />
li $3d<br />
lr is,a<br />
lr a,(is)+<br />
oi $80<br />
st<br />
lr a,(is)+<br />
oi $80<br />
st<br />
<br />
moveend: lr p,k<br />
pop<br />
<br />
; r0 figure<br />
; r1 rotation<br />
getfigure: lr h,dc<br />
dci figures<br />
lr a,0<br />
ci 0<br />
bt 4,gfn<br />
lr 4,a<br />
li $40<br />
gfn1: adc<br />
ds 4<br />
bf 4,gfn1<br />
gfn: lr a,1<br />
ci 0<br />
bt 4,gff<br />
lr 4,a<br />
li $10<br />
gff1: adc<br />
ds 4<br />
bf 4,gff1<br />
gff: li $30<br />
lr is,a<br />
li $10<br />
lr 4,a<br />
gfloop: lm<br />
lr (is),a<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 4<br />
bf 4,gfloop<br />
lr dc,h<br />
pop<br />
<br />
<br />
findlines:<br />
lr h,dc<br />
li 205 ; 17*(1+10+1)+1<br />
lr 11,a ; hl<br />
fl2: lr dc,h<br />
li 9<br />
lr 8,a<br />
lm<br />
fl1: nm<br />
ds 8<br />
bf 4,fl1<br />
ni 1<br />
bf 4,fl3<br />
fl1c: lr a,11<br />
ai 244 ; -12<br />
lr 11,a<br />
ci 1<br />
bf 4,fl2 <br />
pop<br />
; row found<br />
fl3: lr a,11<br />
lr 9,a<br />
li $f5<br />
lr 11,a<br />
lr dc,h<br />
lm<br />
ai 1<br />
lr dc,h<br />
st<br />
lr a,9<br />
lr 11,a<br />
fl1d: lr a,11<br />
ai 244<br />
lr 11,a<br />
ci 1<br />
bf 4,fl1e<br />
lr a,9<br />
lr 11,a<br />
jmp fl2<br />
fl1e: lr dc,h <br />
li $30<br />
lr is,a<br />
li 10<br />
lr 8,a<br />
fl1a: lm<br />
lr (is),a<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 8<br />
bf 4,fl1a<br />
lm<br />
lm<br />
li $30<br />
lr is,a<br />
li 10<br />
lr 8,a<br />
fl1b: lr a,(is)<br />
; probably doing check to only redraw changed blocks<br />
oi $80<br />
st<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 8<br />
bf 4,fl1b<br />
jmp fl1d<br />
<br />
penalty: li 17<br />
lr 6,a<br />
lis 13<br />
lr dc,q<br />
lr h,dc<br />
lr 11,a<br />
penalty3: lr dc,h<br />
lis 10<br />
lr 5,a<br />
li $30<br />
lr is,a<br />
penalty1: lm<br />
lr (is),a<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 5<br />
bf 4,penalty1<br />
lr a,11<br />
ai $f4 ; -12<br />
lr 11,a<br />
lr dc,h<br />
li $30<br />
lr is,a<br />
lis 10<br />
lr 5,a<br />
penalty2: lr a,(is)<br />
oi $80<br />
st<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
ds 5<br />
bf 4,penalty2<br />
lr a,11<br />
ai 24<br />
lr 11,a<br />
ds 6<br />
bf 4,penalty3<br />
lr a,11<br />
ai $f4<br />
lr 11,a<br />
lr dc,h<br />
lis 10<br />
lr 5,a<br />
li $81<br />
penalty5: st<br />
ds 5<br />
bf 4,penalty5<br />
li $ff<br />
lr 11,a<br />
lr dc,h<br />
lm<br />
ni 7<br />
ai 206 ;12*17+1+1<br />
lr 11,a<br />
lr dc,h<br />
li $80<br />
st<br />
pop<br />
; r2 x<br />
; r3 y<br />
; dci<br />
fieldpos: lr h,dc<br />
lr a,2<br />
lr $b,a<br />
ni $ff<br />
bt 1,fieldpos3<br />
ds $a<br />
fieldpos3: lr dc,h<br />
lr a,3<br />
ci 0<br />
bt 4, fieldpos1<br />
lr 4,a<br />
li 12<br />
fieldpos2: adc<br />
ds 4<br />
bf 4, fieldpos2<br />
fieldpos1: <br />
pop<br />
<br />
; r0 figure<br />
; r1 rotation<br />
; r2 x<br />
; r3 y<br />
; dci field<br />
testfigure: lr h,dc<br />
li 4<br />
lr 4,a<br />
li $30<br />
lr is,a<br />
tpy: li 4<br />
lr 5,a<br />
tpx: lr a,(is)<br />
ci 0<br />
bt 4,tpnothing<br />
lm<br />
ni $7f<br />
bt 4,tpcont<br />
lr dc,h<br />
li 1 ; something in it<br />
pop<br />
tpnothing: cm <br />
tpcont: lr a,is<br />
ai 1<br />
lr is,a<br />
ds 5<br />
bf 4,tpx<br />
li 8<br />
adc<br />
ds 4<br />
bf 4,tpy<br />
lr dc,h<br />
li 0<br />
pop<br />
<br />
; r2 x<br />
; r2 y<br />
; dci field<br />
clearfigure: lr h,dc<br />
li 4<br />
lr 4,a<br />
li $30<br />
lr is,a<br />
<br />
cfy: li 4<br />
lr 5,a<br />
cfx: lr a,(is)<br />
ci 0<br />
bt 4,cfnothing<br />
li $80<br />
st<br />
jmp cfc<br />
cfnothing: cm<br />
cfc: lr a,is<br />
ai 1<br />
lr is,a<br />
ds 5<br />
bf 4,cfx<br />
li 8<br />
adc<br />
ds 4<br />
bf 4,cfy<br />
lr dc,h<br />
pop<br />
<br />
; dci field<br />
setfigure: lr h,dc<br />
li 4<br />
lr 4,a<br />
li $30<br />
lr is,a<br />
<br />
sfy: li 4<br />
lr 5,a<br />
sfx: lr a,(is)<br />
ci 0<br />
bt 4,sfnothing<br />
li $81<br />
st<br />
jmp sfc<br />
sfnothing: cm<br />
sfc: lr a,is<br />
ai 1<br />
lr is,a<br />
ds 5<br />
bf 4,sfx<br />
li 8<br />
adc<br />
ds 4<br />
bf 4,sfy<br />
lr dc,h<br />
pop<br />
<br />
; pseudo random number generation<br />
; (f3853 timer not used; irqs generally difficult to use with subroutines)<br />
; so if user presses a key in while loop simply its counter is taken<br />
; (random number from 0 to 255)<br />
; I expect a 50% change him to press<br />
; 0 has several clocks more, so its more likely to come<br />
random: <br />
li $10<br />
outs 0<br />
ins 0<br />
lr 2,a<br />
lis 0<br />
outs 4<br />
ins 4<br />
lr 3,a<br />
lis 0<br />
outs 1<br />
ins 1<br />
lr 4,a<br />
lis 0<br />
lr 1,a<br />
random1: <br />
; currently not needed<br />
; ins 0<br />
; xs 2<br />
; bt 4,random1a<br />
; xs 2<br />
; lr 2,a<br />
; dci randomnumber<br />
; lr a,1<br />
; st<br />
random1a: ins 4<br />
xs 3 <br />
bt 4,random1b<br />
xs 3<br />
lr 3,a<br />
dci p1randomnext<br />
lr a,1<br />
st<br />
random1b: ins 1<br />
xs 4 <br />
bt 4,random1c<br />
xs 4<br />
lr 4,a<br />
dci p2randomnext<br />
lr a,1<br />
st<br />
random1c: ds 1<br />
bf 4,random1<br />
pop<br />
<br />
; r0 video row<br />
; r1 video col<br />
; r2 color<br />
; r3 color 2<br />
drawblock: li $50<br />
outs 0<br />
ins 5<br />
ni $c0<br />
xs 0<br />
outs 5<br />
ins 4<br />
ni $80<br />
xs 1<br />
outs 4<br />
lr a,2<br />
outs 1<br />
li $60 ; p 0/0<br />
outs 0<br />
li $50<br />
outs 0<br />
li $ff<br />
lr 10,a<br />
dbdelay1: ds 10<br />
bf 4,dbdelay1<br />
ins 4<br />
ai $ff<br />
outs 4<br />
li $60 ; p 1/0<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay2: ds 10<br />
bf 4,dbdelay2<br />
ins 4<br />
ai $ff<br />
outs 4<br />
li $60 ; p 2/0<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay3: ds 10<br />
bf 4,dbdelay3<br />
ins 5<br />
ai $ff<br />
outs 5<br />
li $60 ; p 2/1<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay4: ds 10<br />
bf 4,dbdelay4<br />
ins 4<br />
inc<br />
outs 4<br />
lr a,3<br />
outs 1<br />
li $60 ; p 1/1<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay5: ds 10<br />
bf 4,dbdelay5<br />
ins 4<br />
inc<br />
outs 4<br />
lr a,2<br />
outs 1<br />
li $60 ; p 0/1<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay6: ds 10<br />
bf 4,dbdelay6<br />
ins 5<br />
ai $ff<br />
outs 5<br />
li $60 ; p 0/2<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay7: ds 10<br />
bf 4,dbdelay7<br />
ins 4<br />
ai $ff<br />
outs 4<br />
li $60 ; p 1/2<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay8: ds 10<br />
bf 4,dbdelay8<br />
ins 4<br />
ai $ff<br />
outs 4<br />
li $60 ; p 2/2<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 10,a<br />
dbdelay9: ds 10<br />
bf 4,dbdelay9<br />
pop<br />
<br />
clearscreen: lis 0<br />
outs 1<br />
li $3f<br />
lr 0,a<br />
csloopl: lr a,0<br />
outs 5<br />
li $7f<br />
lr 1,a<br />
csloopc: lr a,1<br />
outs 4<br />
li $60<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6 ; in bowling 4<br />
lr 4,a<br />
csdelay: ds 4<br />
bf 4,csdelay<br />
ds 1<br />
bt 2,csloopc<br />
ds 0<br />
bt 2,csloopl <br />
pop<br />
<br />
; 7 figures<br />
; in 4 rotations<br />
; 4x4 size<br />
figures: <br />
<br />
db 0,0,0,0<br />
db 1,1,1,1<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
<br />
db 0,0,0,0<br />
db 1,1,1,1<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
<br />
;<br />
<br />
db 0,1,1,0<br />
db 1,1,0,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 0,1,1,0<br />
db 0,0,1,0<br />
db 0,0,0,0<br />
<br />
db 0,1,1,0<br />
db 1,1,0,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 0,1,1,0<br />
db 0,0,1,0<br />
db 0,0,0,0<br />
<br />
;<br />
<br />
db 1,1,0,0<br />
db 0,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,0,1,0<br />
db 0,1,1,0<br />
db 0,1,0,0<br />
db 0,0,0,0<br />
<br />
db 1,1,0,0<br />
db 0,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,0,1,0<br />
db 0,1,1,0<br />
db 0,1,0,0<br />
db 0,0,0,0<br />
<br />
;<br />
<br />
db 0,1,0,0<br />
db 1,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 1,1,0,0<br />
db 0,1,0,0<br />
db 0,0,0,0<br />
<br />
db 0,0,0,0<br />
db 1,1,1,0<br />
db 0,1,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 0,1,1,0<br />
db 0,1,0,0<br />
db 0,0,0,0<br />
<br />
;<br />
<br />
db 0,0,1,0<br />
db 1,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 1,1,0,0<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 0,0,0,0<br />
<br />
db 0,0,0,0<br />
db 1,1,1,0<br />
db 1,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 0,1,1,0<br />
db 0,0,0,0<br />
<br />
;<br />
<br />
db 1,0,0,0<br />
db 1,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 1,1,0,0<br />
db 0,0,0,0<br />
<br />
db 0,0,0,0<br />
db 1,1,1,0<br />
db 0,0,1,0<br />
db 0,0,0,0<br />
<br />
db 0,1,1,0<br />
db 0,1,0,0<br />
db 0,1,0,0<br />
db 0,0,0,0<br />
<br />
;<br />
<br />
db 0,1,1,0<br />
db 0,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,1,0<br />
db 0,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,1,0<br />
db 0,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
db 0,1,1,0<br />
db 0,1,1,0<br />
db 0,0,0,0<br />
db 0,0,0,0<br />
<br />
<br />
pal: ; score on the outsides <br />
; player 1<br />
db $40,$80 ; block border color border, mid<br />
db $3a,$70 ; fieldpos y, x<br />
db $40,0 ; block color border, mid<br />
db $3a,$74,$40,0 ; score pos x,y,foreground, backgroundcolor<br />
db $0d,$77,$40,$0 ; next figure: x,y, color border, color of center<br />
<br />
; player 2<br />
db $80,$40 ; block border color border, mid<br />
db $3a,$40 ; fieldpos y, x<br />
db $80,0 ; block color border, mid<br />
db $3a,$1b,$80,0 ; score pos x,y,foreground, backgroundcolor<br />
db $0d,$1b,$80,$0 ; next figure: x,y, color border, color of center<br />
<br />
ntsc: ; score between playfields<br />
; player 1 left player RED<br />
db $40,$80 ; color of block border, color of center<br />
db $3a,$72 ; fieldpos y, x<br />
db $40,0 ; block color border, mid<br />
db $3a,$4b,$40,$c0 ; score pos y,x,foreground, backgroundcolor<br />
db $1d,$48,$40,$0 ; next figure: y, x, color border, color of center<br />
<br />
; player 2 right player BLUE<br />
db $80,$40 ; block border color border, mid<br />
db $3a,$3e ; fieldpos y, x<br />
db $80,0 ; block color border, mid<br />
db $3a,$44,$80,$c0 ; score pos y,x,foreground, backgroundcolor<br />
db $0d,$48,$80,$0 ; next figure: y, x, color border, color of center<br />
<br />
ascii: db 0,0,0,0,0,0,0,0 <br />
db 0,0,0,0,0,0,0,0 <br />
db 0,0,0,0,0,0,0,0 <br />
db 0,0,0,0,0,0,0,0 <br />
db 36,0,0,0,0,0,0,0 <br />
db 0,0,0,0,0,0,0,0 <br />
db 0,1,2,3,4,5,6,7<br />
db 8,9,0,0,0,0,0,0<br />
db 37,10,11,12,13,14,15,16<br />
db 17,18,19,20,21,22,23,24<br />
db 25,26,27,28,29,30,31,32<br />
db 33,34,35<br />
<br />
font: db $e0,$a0,$a0,$a0,$e0 ; 0<br />
db $40,$c0,$40,$40,$e0 ; 1<br />
db $e0,$20,$e0,$80,$e0 ; 2<br />
db $e0,$20,$e0,$20,$e0 ; 3<br />
db $a0,$a0,$e0,$20,$20 ; 4<br />
db $e0,$80,$e0,$20,$e0 ; 5<br />
db $e0,$80,$e0,$a0,$e0 ; 6<br />
db $e0,$20,$40,$40,$40 ; 7<br />
db $e0,$a0,$e0,$a0,$e0 ; 8<br />
db $e0,$a0,$e0,$20,$e0 ; 9<br />
db $e0,$a0,$e0,$a0,$a0 ; A<br />
db $c0,$a0,$c0,$a0,$c0 ; B<br />
db $60,$80,$80,$80,$60 ; C<br />
db $c0,$a0,$a0,$a0,$c0<br />
db $e0,$80,$e0,$80,$e0<br />
db $e0,$80,$e0,$80,$80<br />
db $60,$80,$a0,$a0,$60<br />
db $a0,$a0,$e0,$a0,$a0<br />
db $40,$40,$40,$40,$40<br />
db $40,$40,$40,$40,$80<br />
db $a0,$c0,$80,$c0,$a0<br />
db $80,$80,$80,$80,$e0<br />
db $a0,$e0,$a0,$a0,$a0<br />
db $c0,$a0,$a0,$a0,$a0<br />
db $40,$a0,$a0,$a0,$40 ; O<br />
db $c0,$a0,$a0,$c0,$80<br />
db $40,$c0,$c0,$c0,$60<br />
db $c0,$a0,$a0,$c0,$a0<br />
db $60,$80,$40,$20,$c0<br />
db $e0,$40,$40,$40,$40<br />
db $a0,$a0,$a0,$a0,$60<br />
db $a0,$a0,$a0,$a0,$40<br />
db $a0,$a0,$a0,$e0,$a0<br />
db $a0,$a0,$40,$a0,$a0<br />
db $a0,$a0,$40,$40,$40<br />
db $e0,$20,$40,$80,$e0<br />
db 0,0,0,0,0<br />
db $60,$a0,$a0,$60,$a0 ; tetris R<br />
<br />
<br />
; r0 char as ascii<br />
; r1 row<br />
; r2 column<br />
; r3 foreground color<br />
; r4 background color<br />
drawchar0:<br />
dci ascii<br />
lr a,0<br />
adc <br />
lm<br />
dci font<br />
adc<br />
adc<br />
adc<br />
adc<br />
adc<br />
li 5<br />
lr 10,a<br />
ins 5<br />
ni $c0<br />
xs 1<br />
outs 5<br />
drawchar1: lm<br />
lr 5,a<br />
lr a,2<br />
ins 4<br />
ni $80<br />
xs 2<br />
outs 4<br />
lis 3<br />
lr 8,a<br />
dcl4:<br />
lr a,5<br />
ni $80<br />
bf 4,dcl1<br />
lr a,4<br />
bf 0,dcl2<br />
dcl1: lr a,3<br />
dcl2: outs 1<br />
li $60<br />
outs 0<br />
li $50<br />
outs 0<br />
lis 6<br />
lr 6,a<br />
dcl3: ds 6<br />
bf 4,dcl3<br />
lr a,5<br />
sl 1<br />
lr 5,a<br />
ins 4<br />
ai $ff<br />
outs 4<br />
ds 8<br />
bf 4,dcl4<br />
ins 5<br />
ai $ff<br />
outs 5<br />
ds 10<br />
bf 4,drawchar1<br />
<br />
pop<br />
<br />
; is string<br />
; r1 row<br />
; r2 column<br />
; r3 foreground color<br />
; r4 background color<br />
; r9 count<br />
drawstring:<br />
lr k,p<br />
drawstring1: lr a,(is)<br />
lr 0,a<br />
pi drawchar0<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
lr a,1<br />
ai $fa<br />
lr 1,a<br />
ds 9<br />
bf 4,drawstring1<br />
lr p,k<br />
pop<br />
<br />
; dc string<br />
drawansistringv:<br />
lr k,p<br />
drawstring3v: lm<br />
lr q,dc<br />
lr 0,a<br />
ci 0<br />
bt 4,drawstring4v<br />
ci 1<br />
bf 4,drawstring5v<br />
lm<br />
lr 1,a<br />
lm<br />
lr 2,a<br />
bf 0,drawstring3v<br />
drawstring5v: ci 2<br />
bf 4,drawstring6v<br />
lm<br />
lr 3,a<br />
lm<br />
lr 4,a<br />
bf 0,drawstring3v<br />
drawstring6v: pi drawchar0<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
lr a,1<br />
ai $fa<br />
lr 1,a<br />
lr dc,q<br />
jmp drawstring3v<br />
<br />
drawstring4v: lr p,k<br />
pop<br />
<br />
; dc string<br />
drawansistring:<br />
lr k,p<br />
drawstring3: lm<br />
lr q,dc<br />
lr 0,a<br />
ci 0<br />
bt 4,drawstring4<br />
ci 1<br />
bf 4,drawstring5<br />
lm<br />
lr 1,a<br />
lm<br />
lr 2,a<br />
bf 0,drawstring3<br />
drawstring5: ci 2<br />
bf 4,drawstring6<br />
lm<br />
lr 3,a<br />
lm<br />
lr 4,a<br />
bf 0,drawstring3<br />
drawstring6: pi drawchar0<br />
lr a,is<br />
ai 1<br />
lr is,a<br />
lr a,2<br />
ai $fc<br />
lr 2,a<br />
lr dc,q<br />
jmp drawstring3<br />
<br />
drawstring4: lr p,k<br />
pop<br />
<br />
thanx:<br />
db 1,$3a,$3a<br />
db 1,$34,$3a<br />
db 2,$40,$c0<br />
db $20,$48,$41,$4c,$4c,$4f<br />
db 1,$2e,$3a<br />
db 1,$28,$3a<br />
db 2,$80,$c0<br />
db $20,$46,$52,$41,$4e,$4b<br />
db 1,$22,$3a<br />
db 1,$1c,$3a<br />
db 2,$00,$c0<br />
db $46,$52,$45,$44,$52,$49,$43<br />
db 1,$16,$3a<br />
db 1,$10,$38<br />
db 2,$40,$c0<br />
db $20,$53,$45,$41,$4e<br />
db 1,$0a,$3a<br />
db 0<br />
<br />
strgameover1: <br />
db 2,$80,$c0<br />
db 1,$23,$6f<br />
db $20,$47,$41,$4d,$45,$20<br />
db 1,$1d,$68<br />
db $20,$4f,$56,$45,$52,$20<br />
db 0<br />
strgameover2: <br />
db 2,$40,$c0<br />
db 1,$23,$3b<br />
db $20,$47,$41,$4d,$45,$20<br />
db 1,$1d,$34<br />
db $20,$4f,$56,$45,$52,$20<br />
db 0<br />
<br />
player1won: <br />
db 2,$80,$c0<br />
db 1,$20,$66<br />
db $57,$4f,$4e<br />
db 2,$40,$c0<br />
db 1,$20,$34<br />
db $4c,$4f,$53,$54<br />
db 0<br />
<br />
player2won:<br />
db 2,$80,$c0<br />
db 1,$20,$68<br />
db $4c,$4f,$53,$54<br />
db 2,$40,$c0<br />
db 1,$20,$32<br />
db $57,$4f,$4e<br />
db 0<br />
<br />
copyright:<br />
db 2,$80,$0<br />
db 1,$37,$6d<br />
db $20,$54,$45,$54,$40,$49,$53,$20<br />
db 2,$40,$c0<br />
db 1,$3a,$68<br />
db $43,$4f,$50,$59,$52,$49,$47,$48,$54<br />
db 2,$40,$0<br />
db 1,$2b,$64<br />
db $32,$30,$30,$34<br />
db 1,$25,$5f<br />
db 2,$40,$c0<br />
db $42,$59<br />
db 1,$3a,$5a<br />
db 2,$00,$c0<br />
db $20,$20,$50,$45,$54,$45,$52<br />
db 1,$3a,$56<br />
db 2,$80,$c0<br />
db $20,$54,$52,$41,$55,$4e,$45,$52<br />
db 0<br />
<br />
<br />
</pre></div>
E5frog