https://7800.8bitdev.org/api.php?action=feedcontributions&feedformat=atom&user=MSaarna 2026-04-08T10:50:01Z User contributions MediaWiki 1.28.0 https://7800.8bitdev.org/index.php?title=File:YIQ-7800-warmup.gif&diff=1302 2026-01-07T05:41:58Z

<p>MSaarna: MSaarna uploaded a new version of File:YIQ-7800-warmup.gif</p> <hr /> <div>== Summary ==<br /> Atari 7800 color values shifting as the console warms up, overlaid on Y=0.5 IQ colorspace.<br /> <br /> Original U-V color plane underlay created by wikipedia.org user Tonyle.<br /> <br /> == Licensing ==<br /> {{cc-by-sa-3.0}}</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:YIQ-7800-warmup.gif&diff=1301 2026-01-07T05:36:06Z

<p>MSaarna: MSaarna uploaded a new version of File:YIQ-7800-warmup.gif</p> <hr /> <div>== Summary ==<br /> Atari 7800 color values shifting as the console warms up, overlaid on Y=0.5 IQ colorspace.<br /> <br /> Original U-V color plane underlay created by wikipedia.org user Tonyle.<br /> <br /> == Licensing ==<br /> {{cc-by-sa-3.0}}</div>

MSaarna https://7800.8bitdev.org/index.php?title=The_7800_Minnie_sound_chip&diff=1300 2026-01-07T00:54:54Z

<p>MSaarna: </p> <hr /> <div>==Introduction==<br /> <br /> [[File:Minnie_die_shot_01.jpg|thumb|A die shot of the Minnie prototype]]<br /> Minnie (GCC 1730) was a soundchip designed by GCC as an in-cart audio solution for the 7800 console. <br /> <br /> The original plan for the 7800 console was to include an onboard sound solution (in addition to TIA audio) but the Maria die space set aside for audio was needed for other core functionality. So GCC added an audio line to the 7800 cartridge port, and began adapting their previous work on the Gumby soundchip (a soundchip design previously developed for their Spring project) into a new Mini-Gumby soundchip, the &quot;Minnie&quot;.<br /> <br /> Although the Minnie design was completed - prototype chips were produced, and a &quot;Minnie Rag&quot; demo sang out within the walls at GCC - the chip ultimately never made it to production, due to the Warner sale of Atari to Jack Tramiel, which marked an end to GCC's relationship with Atari.<br /> <br /> <br /> ==Capability Overview==<br /> <br /> The Minnie design is quite unique compared to other contemporary sound chips. The synthesis technique employed is Digital Wave Synthesis, where sample data is used to represent one cycle of the sound. There were two rows of sample data and 3 predefined waveform rows, so the chip could also be driven in a Wavetable Synthesis fashion.<br /> <br /> Adjustable sound parameters include very fine-grained volume and frequency controls, and a noise parameter. The noise parameter could be used to adjust the wave phase of any of the voices in varying levels, achieving modulation effects ranging from slight frequency instability through to pitched noise.<br /> <br /> <br /> Features:<br /> * 3 voices<br /> * 16-bit frequency resolution<br /> * 28kHz sample rate with dynamic range of 10 bits<br /> * 2 arbitrary 64-byte waveforms stored in on-chip ROM, which could differ per-game<br /> * 3 standard waveforms: triangle, square, sawtooth<br /> <br /> <br /> The Minnie and TIA audio was summed together, which added another 2 voices to the system, suitable for sound effects and percussion effects.<br /> <br /> Minnie relied on the CPU to adjust volume for achieving sound envelopes. This would have commonly occurred once per frame, along with any other sound parameter adjustments desired.<br /> <br /> <br /> ==The GCC Minnie Documentation==<br /> [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|The Minnie Subsystem Top-Level Specification]].<br /> <br /> [[Media:MiniGumby Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis System, Analog Output Section Specification.]]<br /> <br /> <br /> ==Thanks==<br /> Many thanks to Steve Golson, who provided the GCC technical documentation this article is based on. The documentation was found by Steve, in the personal files of Gary Boone.<br /> <br /> If you're at all interested in the GCC side of Atari history, or the 7800 at a technical level, you owe it to yourself to view Steve's talks and papers at: https://trilobyte.com/papers/</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:Minnie_die_shot_01.jpg&diff=1299 2026-01-07T00:51:09Z

<p>MSaarna: A die shot of GCC's Minnie sound chip</p> <hr /> <div>A die shot of GCC's Minnie sound chip</div>

MSaarna https://7800.8bitdev.org/index.php?title=The_SuperGame_Format&diff=1298 2026-01-03T18:10:42Z

<p>MSaarna: </p> <hr /> <div>== SuperGame Format ==<br /> <br /> === General Info ===<br /> <br /> The SuperGame cart mapper was created by GCC/Atari, and is still in use by modern homebrewers. The actual feature specification of SuperGame is a bit loose. The following is a quote from Eckhard Stolberg's [[ATARI 7800 BANKSWITCHING GUIDE]].<br /> &lt;pre&gt;<br /> [...]there are several different types of Atari's SuperGame<br /> bankswitching. It basically consists of 8 16KB banks (0-7)<br /> that can be mapped in at $8000-$bfff. Bank 7 always is fixed<br /> at $c000-$ffff. To map in a chosen bank into $8000-$bfff you<br /> write it's bank number (0-7) to any address between $8000-bfff.<br /> The contend of $4000-$7fff differs between different variations<br /> of this type:<br /> <br /> Some games have nothing connected in this area and return only<br /> random data.<br /> <br /> Some games have bank 6 fixed at this area.<br /> <br /> Some games have 16K of extra ROM there. Those games are 144K<br /> in size and are marked as 78S9 in the list.<br /> <br /> Some games have either 8K of RAM at $6000-$7fff or 16K of<br /> RAM at $4000-$7fff.<br /> <br /> Some games have a POKEY chip mapped in at this area. It<br /> has 16 addresses that get repeated all the way between $4000<br /> and $7fff.<br /> <br /> Some games only have 4 ROM banks at $8000-$bfff (0-3). Banks<br /> 4-7 either return the same data as banks 0-3 or completely<br /> random data. PAL Karateka is a special case. It only uses<br /> banks 4-7. Banks 0-3 are random data and bank 6 is also fixed<br /> at $4000-$7fff.<br /> &lt;/pre&gt;<br /> <br /> When you generate rom files, any extra hardware features at $4000 can just be flagged via the A78 header, with the exception of having an extra 16K bank of rom placed there - for that you need to add an extra bank at the start of your rom with it's ORG being $4000, in addition to A78 header flagging.<br /> <br /> === A basic 128k 7800 SuperGame Skeleton ===<br /> &lt;pre&gt;<br /> ; basic 128k 7800 supergame skeleton, with no rom@4000.<br /> ; banks 1-7 live at $8000-BFFF in 6502 address space<br /> ; bank 8 lives at $C000-FFFF in 6502 address space<br /> <br /> ORG $8000<br /> RORG $8000<br /> <br /> ; bank 1 code goes here ($8000-$BFFF)<br /> <br /> ORG $C000<br /> RORG $8000<br /> <br /> ; bank 2 code goes here ($8000-$BFFF)<br /> <br /> ORG $10000<br /> RORG $8000<br /> <br /> ; bank 3 code goes here ($8000-$BFFF)<br /> <br /> ORG $14000<br /> RORG $8000<br /> <br /> ; bank 4 code goes here ($8000-$BFFF)<br /> <br /> ORG $18000<br /> RORG $8000<br /> <br /> ; bank 5 code goes here ($8000-$BFFF)<br /> <br /> ORG $1C000<br /> RORG $8000<br /> <br /> ; bank 6 code goes here ($8000-$BFFF)<br /> <br /> ORG $20000<br /> RORG $8000<br /> <br /> ; bank 7 code goes here ($8000-$BFFF)<br /> <br /> ORG $24000<br /> RORG $C000<br /> <br /> ; bank 8 code goes here ($C000-$FFFF)<br /> <br /> ORG $27FF8<br /> RORG $FFF8<br /> ; 7800 bytes and 6502 vectors go here<br /> .byte.b $FF ; region verification. $FF=all regions<br /> .byte.b $F7 ; high nibble: encryption check from $N000 to $FF7F.<br /> .word.w NMI<br /> .word.w START<br /> .word.w IRQ<br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=The_SuperGame_Format&diff=1297 2026-01-03T18:09:58Z

<p>MSaarna: </p> <hr /> <div>== SuperGame Format ==<br /> <br /> === General Info ===<br /> <br /> The SuperGame cart mapper was created by GCC/Atari, and is still in use by modern homebrewers. The actual feature specification of SuperGame is a bit loose. The following is a quote from Eckhard Stolberg's [[ATARI 7800 BANKSWITCHING GUIDE]].<br /> &lt;pre&gt;<br /> [...]there are several different types of Atari's SuperGame<br /> bankswitching. It basically consists of 8 16KB banks (0-7)<br /> that can be mapped in at $8000-$bfff. Bank 7 always is fixed<br /> at $c000-$ffff. To map in a chosen bank into $8000-$bfff you<br /> write it's bank number (0-7) to any address between $8000-bfff.<br /> The contend of $4000-$7fff differs between different variations<br /> of this type:<br /> <br /> Some games have nothing connected in this area and return only<br /> random data.<br /> <br /> Some games have bank 6 fixed at this area.<br /> <br /> Some games have 16K of extra ROM there. Those games are 144K<br /> in size and are marked as 78S9 in the list.<br /> <br /> Some games have either 8K of RAM at $6000-$7fff or 16K of<br /> RAM at $4000-$7fff.<br /> <br /> Some games have a POKEY chip mapped in at this area. It<br /> has 16 addresses that get repeated all the way between $4000<br /> and $7fff.<br /> <br /> Some games only have 4 ROM banks at $8000-$bfff (0-3). Banks<br /> 4-7 either return the same data as banks 0-3 or completely<br /> random data. PAL Karateka is a special case. It only uses<br /> banks 4-7. Banks 0-3 are random data and bank 6 is also fixed<br /> at $4000-$7fff.<br /> &lt;/pre&gt;<br /> <br /> When you generate rom files, any extra hardware features at $4000 can just be flagged via the A78 header, with the exception of having an extra 16K bank of rom placed there - for that you need to add an extra bank at the start of your rom with it's ORG being $4000, in addition to A78 header flagging.<br /> <br /> === A basic 7800 SuperGame Skeleton ===<br /> &lt;pre&gt;<br /> ; basic 128k supergame skeleton, with no rom@4000.<br /> ; banks 1-7 live at $8000-BFFF in 6502 address space<br /> ; bank 8 lives at $C000-FFFF in 6502 address space<br /> <br /> ORG $8000<br /> RORG $8000<br /> <br /> ; bank 1 code goes here ($8000-$BFFF)<br /> <br /> ORG $C000<br /> RORG $8000<br /> <br /> ; bank 2 code goes here ($8000-$BFFF)<br /> <br /> ORG $10000<br /> RORG $8000<br /> <br /> ; bank 3 code goes here ($8000-$BFFF)<br /> <br /> ORG $14000<br /> RORG $8000<br /> <br /> ; bank 4 code goes here ($8000-$BFFF)<br /> <br /> ORG $18000<br /> RORG $8000<br /> <br /> ; bank 5 code goes here ($8000-$BFFF)<br /> <br /> ORG $1C000<br /> RORG $8000<br /> <br /> ; bank 6 code goes here ($8000-$BFFF)<br /> <br /> ORG $20000<br /> RORG $8000<br /> <br /> ; bank 7 code goes here ($8000-$BFFF)<br /> <br /> ORG $24000<br /> RORG $C000<br /> <br /> ; bank 8 code goes here ($C000-$FFFF)<br /> <br /> ORG $27FF8<br /> RORG $FFF8<br /> ; 7800 bytes and 6502 vectors go here<br /> .byte.b $FF ; region verification. $FF=all regions<br /> .byte.b $F7 ; high nibble: encryption check from $N000 to $FF7F.<br /> .word.w NMI<br /> .word.w START<br /> .word.w IRQ<br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=The_SuperGame_Format&diff=1296 2026-01-03T18:08:40Z

<p>MSaarna: </p> <hr /> <div>== SuperGame Format ==<br /> <br /> === General Info ===<br /> <br /> The SuperGame cart mapper was created by GCC/Atari, and is still in use by modern homebrewers. The actual feature specification of SuperGame is a bit loose. The following is a quote from Eckhard Stolberg's [[ATARI 7800 BANKSWITCHING GUIDE]].<br /> <br /> [...]there are several different types of Atari's SuperGame<br /> bankswitching. It basically consists of 8 16KB banks (0-7)<br /> that can be mapped in at $8000-$bfff. Bank 7 always is fixed<br /> at $c000-$ffff. To map in a chosen bank into $8000-$bfff you<br /> write it's bank number (0-7) to any address between $8000-bfff.<br /> The contend of $4000-$7fff differs between different variations<br /> of this type:<br /> <br /> Some games have nothing connected in this area and return only<br /> random data.<br /> <br /> Some games have bank 6 fixed at this area.<br /> <br /> Some games have 16K of extra ROM there. Those games are 144K<br /> in size and are marked as 78S9 in the list.<br /> <br /> Some games have either 8K of RAM at $6000-$7fff or 16K of<br /> RAM at $4000-$7fff.<br /> <br /> Some games have a POKEY chip mapped in at this area. It<br /> has 16 addresses that get repeated all the way between $4000<br /> and $7fff.<br /> <br /> Some games only have 4 ROM banks at $8000-$bfff (0-3). Banks<br /> 4-7 either return the same data as banks 0-3 or completely<br /> random data. PAL Karateka is a special case. It only uses<br /> banks 4-7. Banks 0-3 are random data and bank 6 is also fixed<br /> at $4000-$7fff.<br /> <br /> When you generate rom files via assembly, any extra hardware features at $4000 can be flagged via the A78 header, with the exception of having an extra 16K bank of rom placed there - for that you need to add an extra bank at the start of your rom with it's ORG being $4000, in addition to A78 header flagging.<br /> <br /> === A basic 7800 SuperGame Skeleton ===<br /> &lt;pre&gt;<br /> ; basic 128k supergame skeleton, with no rom@4000.<br /> ; banks 1-7 live at $8000-BFFF in 6502 address space<br /> ; bank 8 lives at $C000-FFFF in 6502 address space<br /> <br /> ORG $8000<br /> RORG $8000<br /> <br /> ; bank 1 code goes here ($8000-$BFFF)<br /> <br /> ORG $C000<br /> RORG $8000<br /> <br /> ; bank 2 code goes here ($8000-$BFFF)<br /> <br /> ORG $10000<br /> RORG $8000<br /> <br /> ; bank 3 code goes here ($8000-$BFFF)<br /> <br /> ORG $14000<br /> RORG $8000<br /> <br /> ; bank 4 code goes here ($8000-$BFFF)<br /> <br /> ORG $18000<br /> RORG $8000<br /> <br /> ; bank 5 code goes here ($8000-$BFFF)<br /> <br /> ORG $1C000<br /> RORG $8000<br /> <br /> ; bank 6 code goes here ($8000-$BFFF)<br /> <br /> ORG $20000<br /> RORG $8000<br /> <br /> ; bank 7 code goes here ($8000-$BFFF)<br /> <br /> ORG $24000<br /> RORG $C000<br /> <br /> ; bank 8 code goes here ($C000-$FFFF)<br /> <br /> ORG $27FF8<br /> RORG $FFF8<br /> ; 7800 bytes and 6502 vectors go here<br /> .byte.b $FF ; region verification. $FF=all regions<br /> .byte.b $F7 ; high nibble: encryption check from $N000 to $FF7F.<br /> .word.w NMI<br /> .word.w START<br /> .word.w IRQ<br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=The_SuperGame_Format&diff=1295 2026-01-03T18:07:59Z

<p>MSaarna: Created page with &quot;== SuperGame Format == === General Info === The SuperGame cart mapper was created by GCC/Atari, and is still in use by modern homebrewers. The actual feature specification o...&quot;</p> <hr /> <div>== SuperGame Format ==<br /> <br /> === General Info ===<br /> <br /> The SuperGame cart mapper was created by GCC/Atari, and is still in use by modern homebrewers. The actual feature specification of SuperGame is a bit loose. The following is a quote from Eckhard Stolberg's [[ATARI 7800 BANKSWITCHING GUIDE]].<br /> <br /> [...]there are several different types of Atari's SuperGame<br /> bankswitching. It basically consists of 8 16KB banks (0-7)<br /> that can be mapped in at $8000-$bfff. Bank 7 always is fixed<br /> at $c000-$ffff. To map in a chosen bank into $8000-$bfff you<br /> write it's bank number (0-7) to any address between $8000-bfff.<br /> The contend of $4000-$7fff differs between different variations<br /> of this type:<br /> <br /> Some games have nothing connected in this area and return only<br /> random data.<br /> <br /> Some games have bank 6 fixed at this area.<br /> <br /> Some games have 16K of extra ROM there. Those games are 144K<br /> in size and are marked as 78S9 in the list.<br /> <br /> Some games have either 8K of RAM at $6000-$7fff or 16K of<br /> RAM at $4000-$7fff.<br /> <br /> Some games have a POKEY chip mapped in at this area. It<br /> has 16 addresses that get repeated all the way between $4000<br /> and $7fff.<br /> <br /> Some games only have 4 ROM banks at $8000-$bfff (0-3). Banks<br /> 4-7 either return the same data as banks 0-3 or completely<br /> random data. PAL Karateka is a special case. It only uses<br /> banks 4-7. Banks 0-3 are random data and bank 6 is also fixed<br /> at $4000-$7fff.<br /> <br /> When you generate rom files via assembly, any extra hardware features at $4000 can be flagged via the A78 header, with the exception of having an extra 16K bank of rom placed there - for that you need to add an extra bank at the start of your rom with it's ORG being $4000, in addition to A78 header flagging.<br /> <br /> === A basic 7800 SuperGame Skeleton ===<br /> &lt;nowiki&gt;<br /> ; basic 128k supergame skeleton, with no rom@4000.<br /> ; banks 1-7 live at $8000-BFFF in 6502 address space<br /> ; bank 8 lives at $C000-FFFF in 6502 address space<br /> <br /> ORG $8000<br /> RORG $8000<br /> <br /> ; bank 1 code goes here ($8000-$BFFF)<br /> <br /> ORG $C000<br /> RORG $8000<br /> <br /> ; bank 2 code goes here ($8000-$BFFF)<br /> <br /> ORG $10000<br /> RORG $8000<br /> <br /> ; bank 3 code goes here ($8000-$BFFF)<br /> <br /> ORG $14000<br /> RORG $8000<br /> <br /> ; bank 4 code goes here ($8000-$BFFF)<br /> <br /> ORG $18000<br /> RORG $8000<br /> <br /> ; bank 5 code goes here ($8000-$BFFF)<br /> <br /> ORG $1C000<br /> RORG $8000<br /> <br /> ; bank 6 code goes here ($8000-$BFFF)<br /> <br /> ORG $20000<br /> RORG $8000<br /> <br /> ; bank 7 code goes here ($8000-$BFFF)<br /> <br /> ORG $24000<br /> RORG $C000<br /> <br /> ; bank 8 code goes here ($C000-$FFFF)<br /> <br /> ORG $27FF8<br /> RORG $FFF8<br /> ; 7800 bytes and 6502 vectors go here<br /> .byte.b $FF ; region verification. $FF=all regions<br /> .byte.b $F7 ; high nibble: encryption check from $N000 to $FF7F.<br /> .word.w NMI<br /> .word.w START<br /> .word.w IRQ<br /> &lt;/nowiki&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_Tutorials_and_Guides&diff=1294 2026-01-03T17:54:04Z

<p>MSaarna: </p> <hr /> <div><br /> Once you've read through an understood the [[7800 Software Guide]] and [[7800 Assembly Quick-Start]], the documents listed in this entry will help you master more advanced topics.<br /> <br /> ==7800 Development Documents==<br /> <br /> ===General Topics===<br /> <br /> The Atari authored [[7800 Software Guide]] is still the best place for learning about the 7800 hardware and development.<br /> <br /> The [[A78 Header Specification]] covers the purpose and various fields in the A78 header.<br /> <br /> The [https://atariage.com/forums/topic/333208-old-world-a78-format-10-31-primer/ Old World A78 Format Primer] covers v1.0 to v3.1 A78 header usage, with the intention of clarifying how the header should be parsed by emulators and flash-carts.<br /> <br /> See [[The SuperGame Format]] for a brief synopsis of how to create games compatible with the SuperGame mapper, a format created by GCC/Atari and still in use by homebrews today.<br /> <br /> [[Introduction to the MAME debugger]] covers basic usage of the built-in MAME debugger, an indispensable tool for the 7800 coder.<br /> <br /> [[Debugging On Ancient Game Platforms]] has suggestions on what to do when your homebrew project isn't going so well.<br /> <br /> ===MARIA Focused===<br /> <br /> [[Atari 7800 Color Documentation]] covers how the 7800 generates its colors, with specific consideration to color selection for homebrew authors.<br /> <br /> [[Maria Display Structure Overview]] is a graphical overview of DL and DLL memory structures used to create the display.<br /> <br /> [[Importing Bitmap Graphics into Assembly Source Code with BMP7800]] covers the utility from Bob DeCrescenzo (aka PacManPlus)<br /> <br /> [[Maximizing 7800 Sprites]] discusses techniques that can be used for games that need a maximum number of moving objects.<br /> <br /> [https://7800.8bitdev.org/images/3/3c/7800_Software_Guide_-_The_Podcast_-_Graphics_Overview%2C_DLs%2C_DLLs%2C_etc.mp3 The 7800 Software Guide Podcast] is a bit of fun. It's an AI podcast generated with [https://notebooklm.google/ Google's NotebookLM tool].<br /> <br /> ===TIA Sound===<br /> <br /> Eckhard Stolberg's [[Atari 2600 VCS Sound Frequency and Waveform Guide]] covers TIA musical frequencies.<br /> <br /> [[The Perceptual Tuning Primer]] covers an easy technique to keep TIA music sounding in tune.<br /> <br /> The [[Tune2600 Introduction]] covers using Thomas Jentzsch's Tune2600 utility to select your notes.<br /> <br /> [[TIA Arpeggio Tips]] provides helpful information for implementing arpeggios in your music.<br /> <br /> ===6532 RIOT===<br /> <br /> [[RIOT limitations and workarounds]] contains info on using the RIOT RAM and Timers in 7800 mode.<br /> <br /> ==General 6502 Assembly Documents==<br /> <br /> The [[6502 opcodes for hackers]] reference lists 6502 opcodes, valid modes, cycles, useful illegal opcodes, etc.<br /> <br /> [[6502 Beginner Tips]] contains useful information and references if you're new to 6502 assembly.<br /> <br /> [[6502 Advanced Tips]] contains information for seasoned 6502 coders.<br /> <br /> External links:<br /> <br /> [http://www.6502.org/tutorials/6502opcodes.html Opcodes] in more detail<br /> <br /> [http://www.6502.org/tutorials/compare_instructions.html Compare Instructions] in even-more detail<br /> <br /> [http://www.6502.org/tutorials/compare_beyond.html Advanced Comparisons] by Bruce Clark, including alternatives to CMP/CPX/CPY, signed comparisons, and multibyte comparisons<br /> <br /> [http://nesdev.com/6502guid.txt Another overview], this one from NESdev, containing detail on addressing modes and status flags<br /> <br /> [https://wiki.nesdev.com/w/index.php/6502_assembly_optimisations Assembly Optimizations] from NESdev<br /> <br /> [http://web.archive.org/web/20130316101738/http://mycorner.no-ip.org/6502/shorts/index.html 6502 Shorts] by Lee Davison<br /> <br /> [http://web.archive.org/web/20130316101732/http://mycorner.no-ip.org/6502/code/index.html 6502 Routines] also by Lee Davison<br /> <br /> [http://wilsonminesco.com/6502primer/PgmTips.html Tips for Programming] by Garth Wilson<br /> <br /> [http://www.6502.org/tutorials/interrupts.html Investigating Interrupts], all you need to know and more about interrupts, by Garth Wilson<br /> <br /> [http://wilsonminesco.com/SelfModCode/ Self-Modifying Code] by Garth Wilson<br /> <br /> [https://www.esocop.org/docs/MOS6510UnintendedOpcodes-20152412.pdf NMOS 6510 Unintended Opcodes] is an excellent overview of the undocumented/illegal opcodes on the 6502/6510.<br /> <br /> ==External Hardware Documents==<br /> <br /> ===General===<br /> The [[Atari 7800 Hardware Interfacing Guide For Programmers]] page is a good primer for programmers aspiring to working with hardware.<br /> <br /> ===POKEY===<br /> Atari's internal [[POKEY C012294 Documentation]] covers POKEY in formal manner.<br /> <br /> [[Detecting POKEY]] provides one method of detecting the presence of the POKEY chip.<br /> <br /> [[The POKEY Note Table]] is a handy guide to note frequencies by Bobby Clark, aka Synthpopalooza. Both 8-bit and 16-bit modes are covered.<br /> <br /> 7800 games can use the [https://github.com/VinsCool/RASTER-Music-Tracker RMT - Raster Music Tracker], originally developed by Radek Štěrba, currently maintained by Vin Samuel, with a [https://forums.atariage.com/topic/22877-rmt-pokey-player-for-the-7800/ 7800 driver port courtesy of Eckhard Stolberg.] <br /> <br /> [https://asma.atari.org/ ASMA SAP Archive] contains SAP format wrapped Atari songs, some of which are SAP wrapped RMT files. You can download [[Media:ASMA_SAP_RMT_Files.zip|a collection of RMT based ASMA SAP files here]].<br /> <br /> <br /> ===XM, The 7800 Expansion Module===<br /> <br /> The [https://web.archive.org/web/20200813143026/http://www.7800xm.com/XMdevelopers.htm XM Developers page] has the official XM developer information.<br /> <br /> The [[YM2151 Programming]] page has technical information on the YM2151 and the XM.<br /> <br /> The [[OPM Instrument Collection]] page is a good source of instruments for the YM2151.<br /> <br /> The [[YM2151 Detection]] page has code for detecting the YM2151 on the 7800. (XM or stand-alone)<br /> <br /> <br /> ===AtariVox===<br /> [[AtariVox for the 7800]] covers details for accessing the AtariVox peripheral.<br /> <br /> The [https://7800.8bitdev.org/webapps/speakalator.html Speakalator Web App] can be used for authoring AtariVox phrases. It requires a chromium engine based browser to connect to your AtariVox via a TTL serial port.<br /> <br /> ===High Score Cart===<br /> The [[HSC Layout]] describes the NVRAM layout for the HSC Cart.<br /> <br /> ===SNES2Atari===<br /> [[SNES2Atari]] contains implementation information for connecting SNES controllers to the 7800, and othr Atari consoles.<br /> <br /> ==Miscellaneous Documents==<br /> <br /> [[Bankset Bankswitching]] gives an overview of the homebrew bankswitching scheme.<br /> <br /> [[The Atari 7800 BEAD Executable Specification]] covers how 7800 B78 executables are formatted.<br /> <br /> [[Common Emulator Development Issues]] covers some of the games that may cause quirks in new emulators.<br /> <br /> Eckhard Stolberg's [[ATARI 7800 BANKSWITCHING GUIDE]] is the bank-switching bible for the 7800.<br /> <br /> <br /> <br /> [[Creating Bluish Noise With Minimal Compute]] covers the uses of blue noise, and how to inexpensively generate it on older platforms.</div>

MSaarna https://7800.8bitdev.org/index.php?title=Assembly_Source_Code&diff=1291 2025-08-21T16:08:09Z

<p>MSaarna: </p> <hr /> <div>== Assembly Source Code ==<br /> The following source code files will compile on DASM, making them useful for both studying and modifying.<br /> <br /> === [[7800_NTSC_BIOS]] ===<br /> ''The NTSC BIOS does a bit of sanity checking, verifies if the inserted cart is cryptographically signed for 7800 mode, and then either locks the console into 2600 mode or passes on control to the cart.<br /> <br /> <br /> === [[7800 PAL BIOS]] ===<br /> ''The PAL BIOS lacks the cryptographic checks of the NTSC BIOS, due to US munition laws that made export of cryptographic technology illegal. Instead the PAL BIOS runs some heuristics to determine if the cart is 2600 or 7800, like looking for 2600 cart ROM mirrors.<br /> <br /> <br /> === [[JOUST 7800 NTSC Source Code]] ===<br /> ''A complete disassembly of the finest 8-bit port of Joust.</div>

MSaarna https://7800.8bitdev.org/index.php?title=JOUST_7800_NTSC_Source_Code&diff=1290 2025-08-21T01:20:49Z

<p>MSaarna: Created page with &quot;==Joust 7800 NTSC Source Code== This reverse engineered 7800 Joust code contains helpful context-comments and builds a 1:1 with the official BIOS ROM. In DASM syntax. &lt;pre&gt;...&quot;</p> <hr /> <div>==Joust 7800 NTSC Source Code==<br /> <br /> This reverse engineered 7800 Joust code contains helpful context-comments and builds a 1:1 with the official BIOS ROM. In DASM syntax.<br /> <br /> <br /> &lt;pre&gt;<br /> ;------------------------------------------------------------------------------<br /> ; Disassembly of Joust NTSC for the Atari 7800 console<br /> ;<br /> ; 2025-08-20 - Mike Saarna<br /> ; * Initial public release. <br /> ; * Game logic and all routines identified and documented.<br /> ;<br /> ; &quot;Our goal at GCC was to bring arcade-quality games home. With the 7800,<br /> ; we wanted it to feel as close as possible to what you remembered from<br /> ; the arcade.&quot;<br /> ; --Steve Golson, GCC<br /> ;<br /> ; Joust 7800 is a faithful recreation of the arcade classic. The brilliant<br /> ; minds at GCC reverse engineered the original game to craft this stellar <br /> ; port. To produce this disassembly I had to reverse engineer a cloaked<br /> ; machine-generated listing, revealing GCC’s masterful work. Reverseception.<br /> ;<br /> ; --Mike Saarna<br /> ;------------------------------------------------------------------------------<br /> <br /> ;------------------------------------------------------------------------------<br /> ; NOTABLE GAME DESIGN FEATURES:<br /> ;<br /> ; 1. Game Object System:<br /> ; The game manages all on-screen entities (players, enemies, eggs, <br /> ; pterodactyls) through a powerful &quot;Game Object&quot; system. Instead of unique<br /> ; code for each entity, properties like position, velocity, and state are<br /> ; stored in parallel arrays in RAM. A single index represents a specific <br /> ; object. The game logic iterates through these objects, applying common <br /> ; routines for physics, rendering, and AI. <br /> ;<br /> ; 2. Event Scheduler (ES):<br /> ; The ESRoutineScheduler system manages timed and sequential game events <br /> ; without introducing purpose-specific code in the main game loop. It uses <br /> ; a list of timers and function pointers. When a timer expires, its <br /> ; corresponding routine is executed. This allows for complex, multi-frame <br /> ; sequences like the dissolving platforms, lava rising, and timed text <br /> ; messages to occur gracefully in the background while the main game action<br /> ; continues.<br /> ;<br /> ; 3. Sprites for the upcoming frame are added to render lists, in a format<br /> ; for eventual quick dumping to the DLs. This is a sort of pseudo double-<br /> ; buffer functionality.<br /> ;<br /> ; 4. 16-bit Sub-Pixel Physics:<br /> ; To achieve smooth, arcade-accurate movement, the game uses 16-bit values<br /> ; for object coordinates and velocities. This allows for fine-grained <br /> ; control over acceleration and movement.<br /> ;<br /> ;------------------------------------------------------------------------------<br /> <br /> processor 6502<br /> <br /> ;------------------------------------------------------------------------------<br /> ; TIA/MARIA/RIOT Hardware Registers <br /> ;------------------------------------------------------------------------------<br /> INPTCTRL = $01<br /> INPT4 = $0C<br /> INPT5 = $0D<br /> AUDC0 = $15<br /> AUDF0 = $17<br /> AUDV0 = $19<br /> AUDV1 = $1A<br /> BACKGRND = $20<br /> P0C1 = $21<br /> P0C2 = $22<br /> P0C3 = $23<br /> WSYNC = $24<br /> P1C1 = $25<br /> P1C2 = $26<br /> P1C3 = $27<br /> MSTAT = $28<br /> P2C1 = $29<br /> P2C2 = $2A<br /> P2C3 = $2B<br /> DPPH = $2C<br /> P3C1 = $2D<br /> P3C2 = $2E<br /> P3C3 = $2F<br /> DPPL = $30<br /> P4C1 = $31<br /> P4C2 = $32<br /> P4C3 = $33<br /> CHARBASE = $34<br /> P5C1 = $35<br /> P5C2 = $36<br /> P5C3 = $37<br /> OFFSET = $38<br /> P6C1 = $39<br /> P6C2 = $3A<br /> P6C3 = $3B<br /> CTRL = $3C<br /> P7C1 = $3D<br /> P7C2 = $3E<br /> P7C3 = $3F<br /> SWCHA = $0280<br /> SWACNT = $0281<br /> SWCHB = $0282<br /> SWBCNT = $0283<br /> <br /> ; ****************** VARIABLES<br /> <br /> P0Score = $40 ; to $42<br /> P0ExtraLifeScore = $43 ; to $44 Score threshold for bonus life award<br /> P1Score = $45 ; to $47<br /> P1ExtraLifeScore = $48 ; to $49 Score threshold for bonus life award<br /> <br /> PlayerCount = $4A<br /> DemoMode = $4B<br /> <br /> Difficulty = $4C<br /> TimerHi = $4D<br /> TimerLo = $4E<br /> IncrementingRandSeed = $4F<br /> <br /> P0LastFire = $50<br /> P1LastFire = $51<br /> P0CurrentFire = $52<br /> P1CurrentFire = $53<br /> <br /> MenuJoyDebounceTimer = $54<br /> MenuSelectDebounceTimer = $55<br /> MenuResetTimer = $56<br /> PrevPausedState = $57<br /> PrevResetState = $58<br /> PrevSelectState = $59<br /> <br /> TempPoint5ACurrentESRoutineLo = $5A<br /> TempPointLo5A = $5A<br /> TempPoint5ACurrentESRoutineHi = $5B<br /> TempPointHi5B = $5B<br /> <br /> TempPoint5CLo = $5C<br /> TempPoint5DHi = $5D<br /> <br /> ; Note that I've defined aliases for temps that are reused for<br /> ; various routines, to help maintain clarity in local routines.<br /> <br /> Temp5E = $5E<br /> Temp5EGfxDataLo = $5E<br /> TempPterryCoordY = $5E<br /> TempSavedYForHunterBirdSpawn = $5E<br /> Temp5F = $5F<br /> Temp5FGfxDataHi = $5F<br /> TempPterryCoordX = $5F<br /> Temp60 = $60<br /> Temp60ScoreAdd = $60<br /> Temp60PaletteAndWidth = $60<br /> TempPterryScoreValue = $60<br /> Temp60MinPhysicsXSpeedIndex = $60<br /> <br /> Temp61 = $61<br /> Temp61ScoreAdd = $61<br /> Temp61SpriteXCoord = $61<br /> Temp61MaxPhysicsXSpeedIndex = $61<br /> <br /> Temp62 = $62<br /> Temp62ScoreAdd = $62<br /> Temp62MaxFallSpeed = $62<br /> Temp63 = $63<br /> Temp63SpriteYCoord = $63<br /> Temp63MaxRiseSpeedNeg = $63<br /> Temp64 = $64<br /> Temp64SpriteYOffset = $64<br /> Temp64WeightFactor = $64<br /> Temp65 = $65<br /> Temp66 = $66<br /> <br /> TempCollisionOverlap = $67 ; the magnitude of overlap from collision checks<br /> <br /> Temp68 = $68<br /> Temp69 = $69<br /> <br /> Temp6ASFXIndex = $6A<br /> <br /> SFXChannel0Index = $6B ; Current sound effect playing on audio channel 0<br /> SFXChannel1Index = $6C ; Current sound effect playing on audio channel 1<br /> <br /> BridgeBurningWidth = $6D<br /> ESTemp6E = $6E<br /> ESTemp6ELavaRiseCounter = $6E<br /> <br /> ; ??? = $6F appears unused<br /> <br /> LeftFlameAnimationIndex = $70<br /> RightFlameAnimationIndex = $71<br /> <br /> TitleColorIndex = $70<br /> TitleColorChangeCountdown = $71<br /> <br /> EggsPresentCount = $72<br /> ColorCycleIndex = $72 ; reused for title screen<br /> EnemyBirdCount = $73<br /> ColorChangeTimer = $73 ; reused for title screen<br /> <br /> TrollState = $74 ; 0=hiding in lave, $FF=jumping out, $02=holding a bird<br /> <br /> TrollXCoord = $75<br /> TrollYCoord = $76<br /> TrollTargetIndex = $77<br /> TrollGfxOffset = $78<br /> <br /> PterryCountdownLo = $79<br /> EasterEggJoyDownCount = $79<br /> PterryCountdownHi = $7A<br /> EasterEggJoyLeftCount = $7A<br /> PterryAliveCount = $7B<br /> <br /> EnemyAITargetDelayBase = $7C<br /> TrollPullingVelocity = $7D<br /> TrollMinimumGrabYCoord = $7E<br /> TrollMinimumTargetYCoord = $7F<br /> <br /> BirdPhysicsIndexMinByType = $80 ; to $84<br /> BirdPhysicsIndexMaxByType = $85 ; to $89<br /> <br /> ; Eggs collected so far, to a max of 3. Used as an index to determine value<br /> ; of egg pickup. This gets reset on death or new wave.<br /> P0EggPointLevel = $8A<br /> P1EggPointLevel = $8B<br /> <br /> P0Lives = $8C<br /> P1Lives = $8D<br /> <br /> GamePacingTimer = $8E ; ensures game logic runs every other frame<br /> DemoTimer = $8F<br /> <br /> GameEndDelayTimer = $90<br /> EnemyIsSpawning = $91<br /> PlatformPresentBitmask = $92<br /> <br /> Level = $93<br /> LevelBCD = $94<br /> <br /> GameActiveFlag = $95 ; 0=normal, 1=game is ending<br /> <br /> ; Game logic writes sprite data to a render list, and then the render list is <br /> ; used to update the DL in one shot.<br /> RenderListCount = $96 ; The number of sprites in the render list<br /> RenderListDirty = $97 ; A flag to indicate if the render list was<br /> ; updated since the last DL update.<br /> <br /> LevelWasSurvived = $98 ; keep track to award survival points<br /> PlayersWereATeam = $99 ; keep track to award team points<br /> PlayerWasGladiator = $9A ; keep track to award gladiator points<br /> PterryWave = $9B<br /> <br /> IsEggWave = $9C<br /> PlatformsInLevel = $9D<br /> <br /> ; The PlatformPresentBitmask from the previous wave...<br /> OldPlatformPresentBitmask = $9E<br /> <br /> MaxActiveEnemyIndex = $9F<br /> <br /> SpawnPlatformDissolved0 = $A0<br /> SpawnPlatformDissolved1 = $A1<br /> SpawnPlatformDissolved2 = $A2<br /> SpawnPlatformDissolved3 = $A3<br /> <br /> MaxEnemyBirdCount = $A4<br /> <br /> EggWaveEnemyType = $A5<br /> <br /> P0DeathState = $A6<br /> P1DeathState = $A7<br /> <br /> ; When a player bird dies, there's an explostion/particle cloud. <br /> ; These are the Coordinates for the cloud.<br /> PlayerExplosionXCoord = $A8 ; to $A9<br /> PlayerExplosionYCoord = $AA ; to $AB<br /> <br /> ; A collection of event scheduler (ES) routine indexes.<br /> ESRoutineIndex = $AC ; to $BD<br /> <br /> ; A collection of event scheduler (ES) routine timers.<br /> ESRoutineTimer = $BE ; to $CF 18 timers total<br /> <br /> <br /> GameObjectState = $D0<br /> ; $D0 | P0 0=dead 3=born1 4=normal 5=hit 6=invincible 7=born2 8=troll has bird<br /> ; $D1 | P1 0=dead 3=born1 4=normal 5=hit 6=invincible 7=born2 8=troll has bird<br /> ; $D2 - $D9 | EnemyBird(8) 0=dead 3=born1 4=normal 5=hit 6=invincible 7=born2 8=troll has bird $14=bird seeking rider<br /> ; $DA - $DC | Pterry(3) 0=dead A=normal B=charging C=leaving<br /> ; $DD - $E8 | Egg(12) 0=none 1=egg 2=hatching 3=rider+shell 4=rider<br /> PterryState1 = $DA<br /> PterryState2 = $DB<br /> PterryState3 = $DC<br /> EggState = $DD<br /> <br /> GameObjectAIMode = $E9<br /> ; $E9 : P0<br /> ; $EA : P1<br /> ; $EB - $F2 : EnemyBird(8)<br /> <br /> GameObjectAlive = $F3<br /> ; $F3 : P0<br /> ; $F4 : P1<br /> ; $F5 - $FC : EnemyBird(8)<br /> <br /> NMIModeFlag = $FD<br /> ; $00: Normal game NMI (in-game, title screen animation) - sound, input, render list processing.<br /> ; $01: 320A portion of split screen NMI mode. Automatically changes NMIModeFlag to $FF. <br /> ; $FF: 160A portion of split screen NMI mode. Automatically changes NMIModeFlag to $01.<br /> <br /> ; When a player bird enters a platform a bit low, it initiates a bounce/skip<br /> ; across the platform instead of walking. 0=not skipping, 1=skipping<br /> GameObjectPlatformSkipState = $14A<br /> ; $14A : P0<br /> ; $14B : P1<br /> ; $14C - $153 : EnemyBird(8)<br /> <br /> GameObjectXCoordHi = $154<br /> ; $154 : P0<br /> ; $155 : P1<br /> ; $156 - $15D : EnemyBird(8)<br /> ; $15E - $160 : Pterry(3)<br /> ; $161 - $16C : Egg(12)<br /> EggX = $161<br /> <br /> GameObjectYCoordHi = $16D<br /> ; $16D : P0<br /> ; $16E : P1<br /> ; $16F - $176 : EnemyBird(8)<br /> ; $177 - $179 : Pterry(3)<br /> ; $17A - $185 : Egg(12)<br /> EggY = $17A<br /> <br /> ; The palette+width used to eventually render the bird.<br /> BirdObjectPaletteAndWidth = $186<br /> ; $186 : P0<br /> ; $187 : P1<br /> ; $188 - $18F : EnemyBird(8)<br /> <br /> PaletteInRam = $0190 ; to $01A7<br /> P0C1_Ram = $0190<br /> P0C2_Ram = $0191<br /> P0C3_Ram = $0192<br /> P1C1_Ram = $0193<br /> P1C2_Ram = $0194<br /> P1C3_Ram = $0195<br /> P2C1_Ram = $0196<br /> P2C2_Ram = $0197<br /> P2C3_Ram = $0198<br /> P3C1_Ram = $0199<br /> P3C2_Ram = $019A<br /> P3C3_Ram = $019B<br /> P4C1_Ram = $019C<br /> P4C2_Ram = $019D<br /> P4C3_Ram = $019E<br /> P5C1_Ram = $019F<br /> P5C2_Ram = $01A0<br /> P5C3_Ram = $01A1<br /> P6C1_Ram = $01A2<br /> P6C2_Ram = $01A3<br /> P6C3_Ram = $01A4<br /> P7C1_Ram = $01A5<br /> P7C2_Ram = $01A6<br /> P7C3_Ram = $01A7<br /> <br /> Platform56GfxLo = $1A13<br /> Platform56PaletteWidth = $1A14<br /> Platform4GfxLo = $1A6D<br /> Platform4PaletteWidth = $1A6E<br /> Platform0GfxLo = $1D43<br /> Platform0PaletteWidth = $1D44<br /> <br /> Platform4XCoordinate = $1A70 ; DL object's X coordinate<br /> SpawnPoint4XCoordinate = $1A74 ; DL object's X coordinate<br /> <br /> Platform5XCoordinate = $1A16 ; DL object's X coordinate<br /> Platform6XCoordinate = $1A1A ; DL object's X coordinate<br /> <br /> Platform0XCoordinate = $1D46 ; DL object's X coordinate<br /> <br /> EasterEggXCoordinate1 = $1D96<br /> EasterEggXCoordinate2 = $1DF0<br /> EasterEggXCoordinate3 = $1E4B<br /> <br /> ; DL X-coordinate bytes for menu texts.<br /> MenuTwoPlayerTextXCoord = $1EA5<br /> MenuDifficultyTextXCoord = $1EFF<br /> MenuOnePlayerTextXCoord = $1F59<br /> <br /> BridgeRightGfxByte1 = $1F4F<br /> BridgeLeftGfxByte1 = $1F53<br /> BridgeRightGfxByte2 = $1F57<br /> BridgeLeftGfxByte2 = $1F5B<br /> BridgeRightGfxByte3 = $1FA5<br /> BridgeLeftGfxByte3 = $1FA9<br /> <br /> ; I think these are probably just graphics data hi bytes of lava sprites <br /> ; in a larger DL for the bottom level, and the lava level for each gets <br /> ; raised by changing them to scroll them out a DMA hole.<br /> <br /> LeftLavaLevelWave3 = $1FB0<br /> RightLavaLevelWave3 = $1FAC<br /> <br /> LeftLavaLevelWave2 = $1FC3<br /> RightLavaLevelWave2 = $1FC7<br /> <br /> LeftLavaLevelWave1 = $1FD9<br /> RightLavaLevelWave1 = $1FDD<br /> <br /> ; Used to derive bird walk cycle frame<br /> GameObjectFootstepAnimIndex = $1FF2<br /> ; $1FF2 : P0<br /> ; $1FF3 : P1<br /> ; $1FF4 - $1FFB : EnemyBird(8)<br /> <br /> GameObjectFootstepAnimTimer = $1FFC<br /> ; $1FFC : P0<br /> ; $1FFD : P1<br /> ; $1FFE - $2005 : EnemyBird(8)<br /> <br /> UnusedBirdObjectArray1 = $2006<br /> ; A bird object sized array that gets cleared with others,<br /> ; but it's never actually used after that.<br /> ; $2006 : P0<br /> ; $2007 : P1<br /> ; $2008 - $200F : EnemyBird(8)<br /> <br /> ; A bird timer delaying AI target re-evaluation<br /> GameObjectAITargetDelayTimer = $2010<br /> ; $2010 : P0<br /> ; $2011 : P1<br /> ; $2012 - $2019 : EnemyBird(8)<br /> <br /> GameObjectSpawnPlatformIndex = $201A<br /> ; $201A : P0<br /> ; $201B : P1<br /> ; $201C - $2023 : EnemyBird(8)<br /> <br /> BirdInvulnerable = $2024 ; to 2025<br /> ; When the bird spawns on a platform, this flag cycles:<br /> ; $FF, $02, $02, $01, $01, $00, $00<br /> ; $2024 : P0<br /> ; $2025 : P1<br /> ; $2026 - $202D : EnemyBird(8)<br /> <br /> ; When the player tries to reverse direction when running on a platform,<br /> ; it initiates a skid until the bird comes to a stop. This location holds<br /> ; the skid direction/flag, or zero when not-skidding.<br /> GameObjectSkidDirection = $202E<br /> ; $202E : P0<br /> ; $202F : P1<br /> ; $2030 - $2037 : EnemyBird(8)<br /> P0SkidDirection = $202E<br /> P1SkidDirection = $202F<br /> <br /> MessageLine0Enable = $2038<br /> <br /> ; $2040 to $20FF: 7800 console ram block 0 shadow<br /> <br /> MessageLine0Timer = $2108<br /> MessageLine1Timer = $2109<br /> MessageLine2Timer = $210A<br /> MessageLine3Timer = $210B<br /> <br /> ; These unused player state bytes are cleared but never used.<br /> UnusedPlayerStateArray = $210C ; to $210D<br /> <br /> TempSpawnUnsafeCounter = $2110 ; to $2113<br /> <br /> P0JoyDelay = $2114<br /> P1JoyDelay = $2115<br /> <br /> P0FireDebounce = $2116<br /> P1FireDebounce = $2117<br /> <br /> ; $2140 to $21FF: 7800 console ram block 1 shadow<br /> <br /> ; Character strings for the animated titlescreen border<br /> TitleBorderStr0 = $2200<br /> TitleBorderStr1 = $2201<br /> TitleBorderStr2 = $2202<br /> TitleBorderStr3 = $2203<br /> TitleBorderStr4 = $2204 ; to $2223<br /> TitleBorderStr5 = $2205 ; to $2223<br /> <br /> ObjectWiggleAnimation = $220E ; only used for egg wiggle animation<br /> ; $220E : P0<br /> ; $220F : P1<br /> ; $2210 - $2217 : EnemyBird(8)<br /> ; $2218 - $221A : Pterry(3)<br /> ; $221B - $2226 : Egg(12)<br /> <br /> GameObjectXCoordLo = $2227 ; sub-pixel X<br /> ; $2227 : P0<br /> ; $2228 : P1<br /> ; $2229 - $2230 : EnemyBird(8)<br /> ; $2231 - $2233 : Pterry(3)<br /> ; $2234 - $223F : Egg(12)<br /> <br /> GameObjectYCoordLo = $2240 ; sub-pixel Y<br /> ; $2240 : P0<br /> ; $2241 : P1<br /> ; $2242 - $2249 : EnemyBird(8)<br /> ; $224A - $224C : Pterry(3)<br /> ; $224D - $2258 : Egg(12)<br /> <br /> TitleCopyrightCharBuffer = $2244 ; to $225F<br /> TitleScreenLogoCharBuffer = $2260 ; to $2347<br /> <br /> ObjectBirdLevelAndType = $2259<br /> ; 0:red-bounder, 1:gray-hunter, 2:blue-shadowlord, 3:??, 4:pterry<br /> ; $2259 : P0<br /> ; $225A : P1<br /> ; $225B - $2262 : EnemyBird(8)<br /> ; $2263 - $2265 : Pterry(3)<br /> ; $2266 - $2271 : Egg(12)<br /> EggLevelAndType = $2266<br /> <br /> GameObjectInAir = $2272 ; ... i.e. not standing on a platform.<br /> ; $2272 : P0<br /> ; $2273 : P1<br /> ; $2274 - $227B : EnemyBird(8)<br /> ; $227C - $227E : Pterry(3)<br /> ; $227F - $228A : Egg(12)<br /> <br /> GameObjectYVelocityLo = $228B<br /> ; $228B : P0<br /> ; $228C : P1<br /> ; $228D - $2294 : EnemyBird(8)<br /> ; $2295 - $2297 : Pterry(3)<br /> ; $2298 - $22A3 : Egg(12)<br /> <br /> GameObjectYVelocityHi = $22A4<br /> ; $22A4 : P0<br /> ; $22A5 : P1<br /> ; $22A6 - $22AD : EnemyBird(8)<br /> ; $22AE - $22B0 : Pterry(3)<br /> ; $22B1 - $22BC : Egg(12)<br /> <br /> GameObjectXVelocity = $22BD<br /> ; $22BD : P0<br /> ; $22BE : P1<br /> ; $22BF - $22C6 : EnemyBird(8)<br /> ; $22C7 - $22C9 : Pterry(3)<br /> ; $22CA - $22D5 : Egg(12)<br /> <br /> GameObjectHunterIndex = $22D6<br /> ; When one game object tagets another, the index of the hunter is <br /> ; stored here. E.g. the index of a riderless bird targetting a reborn rider<br /> ; There's a corresponding GameObjectPreyIndex that would store the index<br /> ; of the reborn rider.<br /> ; $22D6 : P0 <br /> ; $22D7 : P1<br /> ; $22D8 - $22DF : EnemyBird(8)<br /> ; $22E0 - $22E2 : Pterry(3)<br /> ; $22E3 - $22EE : Egg(12)<br /> <br /> UnusedGameObjectArray2 = $22EF<br /> ; A game object sized array that gets cleared with others<br /> ; but it's never actually used after that.<br /> ; $22EF : P0<br /> ; $22F0 : P1<br /> ; $22F1 - $22F8 : EnemyBird(8)<br /> ; $22F9 - $22FB : Pterry(3)<br /> ; $22FC - $2307 : Egg(12)<br /> <br /> GameObjectCountdownHi = $2308<br /> ; $2308 : P0<br /> ; $2309 : P1<br /> ; $230A - $2311 : EnemyBird(8)<br /> ; $2312 - $2314 : Pterry(3)<br /> ; $2315 - $2320 : Egg(12)<br /> <br /> GameObjectCountdownLo = $2321<br /> ; $2321 : P0<br /> ; $2322 : P1<br /> ; $2323 - $232A : EnemyBird(8)<br /> ; $232B - $232D : Pterry(3)<br /> ; $232E - $2339 : Egg(12)<br /> <br /> GameObjectDirection = $233A<br /> ; $233A : P0<br /> ; $233B : P1<br /> ; $233C - $2343 : EnemyBird(8)<br /> ; $2344 - $2346 : Pterry(3)<br /> ; $2347 - $2352 : Egg(12)<br /> <br /> GameObjectAnimationFrame = $2360<br /> ; $2360 : P0<br /> ; $2361 : P1<br /> ; $2362 - $2369 : EnemyBird(8)<br /> ; $236A - $236C : Pterry(3)<br /> ; $236D - $2378 : Egg(12)<br /> <br /> ; ??? = $2379 ; unused?<br /> <br /> GameObjectPreyIndex = $237A<br /> ; $237A : P0<br /> ; $237B : P1<br /> ; $237C - $2383 : EnemyBird(8)<br /> ; $2384 - $2385 : Pterry(3)<br /> <br /> GameObjectTimerResetValue = $2387<br /> ; $2387 : P0<br /> ; $2388 : P1<br /> ; $2389 - $2390 : EnemyBird(8)<br /> ; $2391 - $2393 : Pterry(3)<br /> <br /> GameObjectEventTimer1 = $2394<br /> ; $2394 : P0<br /> ; $2395 : P1<br /> ; $2396 - $239D : EnemyBird(8)<br /> ; $239E - $23A0 : Pterry(3)<br /> <br /> GameObjectAnimationCounter = $23A1 ; Seems to only be used by pterry.<br /> ; A animation countdown that's used to derive the flap frame used.<br /> ; $23A1 : P0<br /> ; $23A2 : P1<br /> ; $23A3 - $23AA : EnemyBird(8)<br /> ; $23AB - $23AD : Pterry(3)<br /> <br /> GameObjectAnimationDelay = $23AE ; Also only used by pterry.<br /> ; Used to add delay between the pterry flap frames.<br /> ; $23AE : P0<br /> ; $23AF : P1<br /> ; $23B0 - $23B7 : EnemyBird(8)<br /> ; $23B8 - $23BA : Pterry(3)<br /> <br /> GameObjectChargingTimer = $23BB<br /> ; Used for timing of pterry charging at the player, <br /> ; and riderless birds sliding at riders.<br /> ; $23BB : P0<br /> ; $23BC : P1<br /> ; $23BD - $23C4 : EnemyBird(8)<br /> ; $23C5 - $23C7 : Pterry(3)<br /> <br /> PterryDefeatedFlag = $23C8 ; to $23CA (Pterry objects only)<br /> ; $23C8 - $23C4 : Pterry(3)<br /> <br /> ; Note this is an alias for the same underlying memory as PterryDefeatedFlag.<br /> EnemyBirdTypesForLevel = $23C8 ; to ????<br /> <br /> PterryAgressionFlag = $23D2 ; to $23D4<br /> ; forces faster respawn on higher levels<br /> <br /> ; $23D5 - $23D9 don't seem to be used, other than getting cleared <br /> ; with other game objects at the game start/end.<br /> <br /> GameObjectTurnCheckTimerLo = $23DA <br /> ; seems to get read when the dead bird flys off-screen<br /> ; $23DA : P0<br /> ; $23DB : P1<br /> ; $23DC - $23E3 : EnemyBird(8)<br /> <br /> GameObjectTurnCheckTimerHi = $23E4<br /> ; $23E4 : P0<br /> ; $23E5 : P1<br /> ; $23E6 - $23ED : EnemyBird(8)<br /> <br /> ; Index into tables that load turn timer values.<br /> GameObjectTurnTimerIndex = $23EE<br /> ; $23EE : P0<br /> ; $23EF : P1<br /> ; $23F0 - $23F7 : EnemyBird(8)<br /> <br /> ; A Hi timer controlling the frequency of AI decision-making for birds.<br /> ; For details see the comments below for it's Lo timer counterpart.<br /> GameObjectAITimerHi = $23F8<br /> ; $23F8 : P0<br /> ; $23F9 : P1<br /> ; $23FA - $2401 : EnemyBird(8)<br /> <br /> ; A Lo timer controlling the frequency of AI decision-making for birds<br /> ; and pterodactyls. Birds use this lo timer and it's hi counterpart to,<br /> ; for example, randomly turn around. Pterrys use it, for example, to home<br /> ; in on prey.<br /> GameObjectAITimerLo = $2402<br /> ; $2402 : P0<br /> ; $2403 : P1<br /> ; $2404 - $240B : EnemyBird(8)<br /> ; $240C - $240E : Pterry(3)<br /> <br /> ; Flags for platform dissolving sprite animation<br /> PlatformDissolveAnimationFlag0 = $240F<br /> PlatformDissolveAnimationFlag1 = $2410<br /> PlatformDissolveAnimationFlag2 = $2411<br /> PlatformDissolveAnimationFlag3 = $2412<br /> PlatformDissolveAnimationFlag4 = $2413<br /> PlatformDissolveAnimationFlag5 = $2414<br /> <br /> PlatformDissolveAnimationXCoord0 = $2415<br /> PlatformDissolveAnimationXCoord1 = $2416<br /> PlatformDissolveAnimationXCoord2 = $2417<br /> PlatformDissolveAnimationXCoord3 = $2418<br /> PlatformDissolveAnimationXCoord4 = $2419<br /> PlatformDissolveAnimationXCoord5 = $241A<br /> <br /> PlatformDissolveAnimationYCoord0 = $241B<br /> PlatformDissolveAnimationYCoord1 = $241C<br /> PlatformDissolveAnimationYCoord2 = $241D<br /> PlatformDissolveAnimationYCoord3 = $241E<br /> PlatformDissolveAnimationYCoord4 = $241F<br /> PlatformDissolveAnimationYCoord5 = $2420<br /> <br /> RiderObjectPaletteAndWidth = $2421<br /> ; $2421 : P0<br /> ; $2422 : P1<br /> ; $2423 - $242A : EnemyBird(8)<br /> <br /> ; RAM structures containing DL addresses<br /> DisplayListLo = $242B ; to $2442<br /> DisplayListHi = $2443 ; to $245A<br /> <br /> ; Game logic writes sprite data to a render list, and then the render list is <br /> ; used to update the DLs in one shot. <br /> RenderListDLLo = $245B ; to $24AF<br /> RenderListDLHi = $24B0 ; to $2504<br /> RenderListGfxDataLo = $2505 ; to $2559<br /> RenderListGfxDataHi = $255A ; to $25AE<br /> RenderListPaletteAndWidth = $25AF ; to $2603<br /> RenderListXCoord = $2604 ; to $2658<br /> <br /> HudDisplayStringBuffer = $2659 ; to ???<br /> <br /> HudWaveNumberDigit1 = $267C<br /> HudWaveNumberDigit2 = $267D<br /> <br /> MenuLine1CharBuffer = $2685 ; &quot;TWO PLAYER&quot; text<br /> MenuLine2CharBuffer = $2699 ; &quot;ONE PLAYER&quot; text<br /> <br /> DifficultyLevelCharBuffer = $26AD<br /> <br /> SurvivalWaveFlag = $26C1<br /> TeamWaveFlag = $26C2<br /> GladiatorWaveFlag = $26C3<br /> <br /> ScorePopup_ActiveTimerBase = $26C4 ; Base for active timers for score popups (12 bytes)<br /> ScorePopup_ZoneIndexBase = $26DC ; Base for zone index for score popups (12 bytes)<br /> ScorePopup_CharDataLoBase = $26E8 ; Base for character data (lo byte) for score popups (12 bytes)<br /> ScorePopup_XCoordBase = $26D0 ; Base for X coordinate for score popups (12 bytes)<br /> <br /> FinalDLL_PointerStorage_Hi = $275E<br /> FinalDLL_PointerStorage_Lo = $275F<br /> <br /> CurrentPlayer = $27AE<br /> <br /> DisplayEasterEggFlag = $27CE<br /> <br /> ; ****************** CONSTANTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Difficulty Level Constants<br /> ; Used with the 'Difficulty' variable ($4C) and for text display.<br /> ;------------------------------------------------------------------------------<br /> Difficulty_Beginner = $00<br /> Difficulty_Intermediate = $01<br /> Difficulty_Advanced = $02<br /> Difficulty_Expert = $03<br /> <br /> PLAYER1_OBJECT_INDEX = $01<br /> PLAYER1_COLLISION_HEIGHT_SPECIAL = $0B ; Specific height check value for Player 1<br /> <br /> ;------------------------------------------------------------------------------<br /> ; GameObjectState Constants<br /> ; Defines the various states a game object can be in.<br /> ;<br /> ; Player and Enemy Bird States ($D0 - $D9):<br /> ; Shared states for player-controlled birds and enemy AI birds.<br /> ;------------------------------------------------------------------------------<br /> State_Dead = $00 ; Object is inactive, dead, or not present.<br /> State_Born1 = $03 ; First phase of spawning/birth animation.<br /> State_Normal = $04 ; Normal gameplay state (player controllable, AI active).<br /> State_Hit = $05 ; Object has been hit (e.g., by a lance, preparing to die/drop egg).<br /> State_Invincible = $06 ; Object is temporarily invincible (e.g., during spawn).<br /> State_Born2 = $07 ; Second phase of spawning/birth animation.<br /> State_TrollHasBird = $08 ; Object (bird) is currently held by the troll.<br /> <br /> ; EnemyBird Specific State ($D2 - $D9):<br /> State_BirdSeekingRider = $14 ; Enemy bird is actively seeking a rider (that hatched from an egg).<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Pterodactyl (Pterry) States ($DA - $DC):<br /> ;------------------------------------------------------------------------------<br /> ; State_Dead is $00, shared with above.<br /> PterryState_Normal = $0A ; Pterry is flying normally.<br /> PterryState_Charging = $0B ; Pterry is actively charging/attacking a player.<br /> PterryState_Leaving = $0C ; Pterry is leaving the screen (e.g., after being hit or timer expiry).<br /> PterryState_DefeatedVisual = $0D ; Pterry being visually defeated on screen<br /> ;------------------------------------------------------------------------------<br /> ; Egg States ($DD - $E8):<br /> ;------------------------------------------------------------------------------<br /> EggState_None = $00 ; Egg slot is empty, no egg present.<br /> EggState_Egg = $01 ; A laid egg, waiting to hatch.<br /> EggState_Hatching = $02 ; Egg is actively wiggling/hatching.<br /> EggState_RiderOnShell = $03 ; Rider has hatched and is standing on the broken egg shell.<br /> EggState_StandingRider = $04 ; Rider is standing alone, shell is gone (will attract a hunter bird).<br /> ; Note: This value is the same as State_Normal for birds.<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Egg Physics Parameter Constants<br /> ; These define the specific physics characteristics for an airborne egg.<br /> ;------------------------------------------------------------------------------<br /> EGG_WEIGHT_FACTOR = $04 ; Gravity effect on egg (lower is lighter)<br /> EGG_MAX_RISE_SPEED_NEG = $FF ; Max upward Y-velocity (effectively -1, very slow rise)<br /> EGG_MAX_FALL_SPEED = $01 ; Max downward Y-velocity (slow fall)<br /> EGG_X_SPEED_LUT_MAX_CLAMP_INDEX = $02 ; Smallest numerical index for X-speed LUT (fastest left drift)<br /> ; Note: &quot;Max&quot; in Temp61MaxPhysicsXSpeedIndex refers to its role in clamping logic,<br /> ; not necessarily the numerically largest index value.<br /> EGG_X_SPEED_LUT_MIN_CLAMP_INDEX = $08 ; Largest numerical index for X-speed LUT (fastest right drift)<br /> ; Note: &quot;Min&quot; in MinPhysicsXSpeedLUTIndex refers to its role in clamping logic.<br /> ; For eggs, this value is numerically larger than EGG_X_SPEED_LUT_MAX_CLAMP_INDEX,<br /> ; defining the allowed index range [$02..$08] for X-movement.<br /> <br /> PTERRY_SPAWN_Y_COORD_MASK = %00000011 ; Mask for selecting Y coordinate from PterrySpawnYCoordLUT<br /> PTERRY_SPAWN_XDIRVEL_MASK = %00000001 ; Mask for selecting from X/Dir/XVel LUTs<br /> PTERRY_MIN_SPAWN_DIST_X = $30 ; Minimum X distance from player for Pterry spawn<br /> PTERRY_MIN_SPAWN_DIST_Y = $20 ; Minimum Y distance from player for Pterry spawn<br /> <br /> MinEnemyBirdObjectIndex = $02 ; Smallest index for an enemy bird object<br /> MaxEnemyBirdSlots = $0A ; Number of enemy bird slots to check (index 02 to 09)<br /> <br /> InitialTimerHiByteValue = $00 ; Initial value for the high byte of the timer.<br /> DifficultyLoopCounterBase = $03 ; Base value for calculating difficulty-dependent loop iterations.<br /> ; Max Difficulty is 3. Loop runs (Base - Difficulty + 1) times.<br /> TimerLevelCalcBaseValue = $27 ; Baseline value for calculating level-dependent part of timer.<br /> RandomTimerLoopAddend = $40 ; Value added to timer in each difficulty-scaled loop iteration.<br /> <br /> ; AI Action Categories (values from BirdAIActionCategoryByProximityLUT lookup)<br /> AIActionCat_CloseDefensive = $00<br /> AIActionCat_OptimalAttack = $01<br /> AIActionCat_ModerateEngage = $02<br /> AIActionCat_FarApproach = $03<br /> <br /> ; Constants for Score Popup Display List Object<br /> ScorePopup_DLModeByte EQU $60 ; Indirect Character Mode for DL<br /> ScorePopup_DLCharHiByte EQU $27 ; High byte of character data address for HSC font<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Sound Effect (SFX) Index Constants<br /> ; Used as arguments to ScheduleSFX and for identifying sounds.<br /> ; The actual sound data is pointed to by SFX_FreqAndControlDataPtrLoLUT/Hi tables.<br /> ;------------------------------------------------------------------------------<br /> SFX_CoinDrop = $00 ; Sound for coin drop (attract mode?)<br /> SFX_FreeBird = $01 ; Sound when a player earns an extra life.<br /> SFX_PickupEgg = $02 ; Sound when a player picks up an egg.<br /> SFX_GameStart = $03 ; Sound played at the beginning of a new game.<br /> SFX_BirdPlatformBounce = $04 ; Sound when a bird bounces off a platform edge.<br /> SFX_BirdBirdBounce = $05 ; Sound when two birds collide and bounce off each other.<br /> SFX_PlayerFootstep = $06 ; Sound of a player's bird walking on a platform.<br /> SFX_PterryDefeated = $07 ; Sound when a Pterodactyl is defeated.<br /> SFX_PterryCharging = $08 ; Sound when a Pterodactyl starts its charging attack.<br /> SFX_PlayerBorn = $09 ; Sound when a player's bird spawns/re-spawns.<br /> SFX_Invulnerable = $0A ; Sound indicating player invulnerability (e.g., during spawn).<br /> SFX_EggWigglingHatching = $0B ; Sound of an egg wiggling before hatching.<br /> SFX_EnemyBirdBorn = $0C ; Sound when an enemy bird spawns.<br /> SFX_TrollJumping = $0D ; Sound of the troll jumping out of the lava.<br /> SFX_PlatformDissolve = $0E ; Sound when a platform starts to dissolve.<br /> SFX_Skid = $0F ; Sound of a bird skidding to a stop on a platform.<br /> SFX_BirdExplosion = $10 ; Sound when a bird (player or enemy) dies in an explosion.<br /> SFX_CheepCheep = $11 ; A &quot;cheep cheep&quot; sound, possibly unused or for a minor event.<br /> SFX_PlayerBirdFlap = $12 ; Sound of a player's bird flapping its wings.<br /> SFX_ChannelAvailable = $FF<br /> <br /> HunterBirdXVel_Right = $02 ; X-velocity for hunter bird moving right<br /> HunterBirdXVel_Left = $FD ; X-velocity for hunter bird moving left (-3)<br /> HunterBirdX_OffscreenLeft = $1A ; Spawn X-coordinate for hunter bird appearing from left<br /> HunterBirdX_OffscreenRight = $BE ; Spawn X-coordinate for hunter bird appearing from right<br /> HunterBirdYOffsetAboveRider = $0F ; Vertical offset (15 pixels) for hunter bird above rider<br /> <br /> X_VEL_TO_LUT_INDEX_OFFSET = $05 ; Offset to convert signed X-velocity to 0-based LUT index (e.g., index 5 = zero movement)<br /> <br /> Direction_Right = $01<br /> Direction_Left = $FF<br /> <br /> TOP_SCREEN_Y_BOUNDARY = $10 ; Y-coordinate of the top screen edge for bounce<br /> <br /> SKID_VELOCITY_THRESHOLD_RIGHT = $03 ; Min X-velocity (e.g. +3) to initiate a skid when turning left<br /> SKID_VELOCITY_THRESHOLD_LEFT = $FE ; Max X-velocity (e.g. -2) to initiate a skid when turning right<br /> ; (Max left speed is -3, which is $FD)<br /> SKID_ANIMATION_FRAME = $04 ; Footstep animation index when skidding<br /> <br /> ; NMIModeFlag Values<br /> NMIMode_NormalGame = $00 ; Normal in-game NMI processing<br /> NMIMode_SplitScreen160A = $01 ; 160A portion of split screen NMI<br /> NMIMode_SplitScreen320A = $FF ; 320A portion of split screen NMI<br /> <br /> ; Console Switch Masks (from SWCHB - Active Low)<br /> SWCHB_Reset_Mask = %00000001 ; Bit 0 for Reset<br /> SWCHB_Select_Mask = %00000010 ; Bit 1 for Select<br /> SWCHB_Pause_Mask = %00001000 ; Bit 3 for Pause<br /> <br /> ; Control Register Values<br /> CTRL_DMA_ON_160AB = $40 ; single-width chars, 160A/B, border-off<br /> CTRL_DMA_OFF = $60<br /> CTRL_DMA_ON_320AC = $4B ; single-width chars, 320A/C, border-on<br /> <br /> ; Input Register Bitmasks<br /> Input_FireButtonMask EQU %10000000 ; Bit 7 for fire button<br /> <br /> <br /> <br /> ; ****************** MACROS<br /> <br /> ; ASCII to HSC text encoding...<br /> mac WATKINS<br /> dc.b {1}-&quot;A&quot;<br /> endm<br /> <br /> <br /> ; ****************** ROM <br /> <br /> ORG $8000<br /> ;------------------------------------------------------------------------------<br /> ; SetBirdRandomTurnTimers<br /> ; Sets the 16-bit turn timer for an AI bird (index in X) to a new random value<br /> ; based on its TurnTimerIndex. Also toggles the bird's direction.<br /> ;------------------------------------------------------------------------------<br /> SetBirdRandomTurnTimers<br /> ADC #$01<br /> STA GameObjectDirection,X<br /> <br /> LDY GameObjectTurnTimerIndex,X<br /> JSR ReturnRandInA<br /> AND #$0F<br /> CLC<br /> ADC TurnCheckTimerValuesLoLUT,Y<br /> STA GameObjectTurnCheckTimerLo,X<br /> LDA TurnCheckTimerValuesHiLUT,Y<br /> STA GameObjectTurnCheckTimerHi,X<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; RunEggObjectProcessing<br /> ; Main routine to update the state and behavior of an egg object (index in X).<br /> ; This is a state machine that handles an egg's lifecycle:<br /> ; - State 1 (Egg): A stationary egg on a platform, counting down to hatch.<br /> ; - State 2 (Hatching): The egg is wiggling, counting down to reveal the rider.<br /> ; - State 3 (RiderOnShell): A rider stands on the broken shell for a short time.<br /> ; - State 4 (StandingRider): The rider stands alone, waiting for a hunter bird.<br /> ; It also handles the physics for an egg when it is airborne.<br /> ;------------------------------------------------------------------------------<br /> RunEggObjectProcessing<br /> LDA GameObjectState,X ; Get the current state of the egg<br /> BEQ ExitEggProcessing_A ; If state is 0 (EggState_None), skip processing<br /> <br /> LDA GameObjectInAir,X ; Is the egg currently airborne?<br /> BEQ ProcessEggOnPlatform ; If not (on a platform), handle platform logic.<br /> JSR EggIsAirborne ; If airborne, set up egg-specific physics parameters...<br /> JMP UpdateEggPhysicsAndPlatformInteraction ; ...and jump to the physics/platform interaction handler.<br /> <br /> ProcessEggOnPlatform<br /> LDA LevelBCD ; Get current level in BCD format<br /> CMP #$03 ; Is it Level 3 or higher? (BCD comparison)<br /> BNE ProcessEgg_StandardBehavior ; If not, eggs behave normally.<br /> JSR CheckIfEggSlippingOffPlatform ; On Level 3+, platforms are slippery. Check if egg is near an edge.<br /> LDA Temp60 ; Check result from the slip check.<br /> BNE ProcessEgg_StandardBehavior ; If not slipping, proceed with standard behavior.<br /> <br /> ; Egg is on Level 3+ AND is slipping off the platform's edge.<br /> LDA #$01 ; Set InAir flag to true.<br /> STA GameObjectInAir,X ; Make the egg airborne, causing it to fall.<br /> ; Falls through to ExitEggProcessing_A (RTS).<br /> ExitEggProcessing_A<br /> RTS<br /> <br /> ProcessEgg_StandardBehavior<br /> ; This is the main state machine for an egg that is resting on a platform.<br /> LDA GameObjectState,X ; Get current state of the egg.<br /> CMP #EggState_StandingRider ; State 4: Rider is standing alone. No further action needed here.<br /> BEQ ExitEggProcessing_A ; Its fate is now tied to a hunter bird.<br /> CMP #EggState_Hatching ; State 2: Egg is actively hatching.<br /> BEQ ProcessHatchingEggTimer ; Process its hatching animation timer.<br /> CMP #EggState_RiderOnShell ; State 3: Rider is on the shell.<br /> BEQ ProcessRiderOnShellTimer ; Process its timer for shedding the shell.<br /> <br /> ; --- State 1: Egg is waiting to hatch ---<br /> DEC GameObjectCountdownLo,X ; Decrement low byte of the 16-bit hatch timer.<br /> BEQ DecrementHatchTimerHi ; If low byte wrapped, handle the high byte.<br /> RTS ; Timer still active, nothing more to do.<br /> <br /> DecrementHatchTimerHi<br /> DEC GameObjectCountdownHi,X ; Decrement high byte of hatch timer.<br /> BEQ AttemptToHatchEgg ; If timer expired, try to hatch.<br /> BMI AttemptToHatchEgg ; Also handle underflow just in case.<br /> ExitEggProcessing_B<br /> RTS<br /> <br /> AttemptToHatchEgg<br /> LDA Difficulty ; Get current game difficulty.<br /> BEQ ExitEggProcessing_B ; On Beginner difficulty, eggs never hatch.<br /> LDA EnemyBirdCount ; Get current number of active enemy birds.<br /> CMP MaxEnemyBirdCount ; Compare with the maximum allowed on screen for this level.<br /> BCC ProceedWithHatching ; If we are below the max, the egg can hatch.<br /> <br /> ; Max enemy birds reached, cannot hatch now. Reset a short timer to try again soon.<br /> LDA #$0A ; Reset countdown low byte.<br /> STA GameObjectCountdownLo,X<br /> LDA #$00 ; Reset countdown high byte.<br /> STA GameObjectCountdownHi,X<br /> RTS<br /> <br /> ProceedWithHatching<br /> INC EnemyBirdCount ; One more enemy bird will be active (the rider).<br /> LDA #EggState_Hatching ; Set egg state to 'hatching' (state 2).<br /> STA GameObjectState,X<br /> LDA #$05 ; Set initial low byte for hatching animation timer.<br /> STA GameObjectCountdownLo,X<br /> LDA #$0A ; Set initial high byte for hatching animation timer.<br /> STA GameObjectCountdownHi,X<br /> LDA #SFX_EggWigglingHatching ; Schedule the egg wiggling/hatching sound effect.<br /> JSR ScheduleSFX<br /> RTS<br /> <br /> ProcessHatchingEggTimer ; --- State 2: Egg is actively hatching ---<br /> DEC GameObjectCountdownLo,X ; Decrement low byte of hatching animation timer.<br /> BEQ ContinueHatchingEggTimer ; If low byte wrapped, process high byte and animation.<br /> RTS<br /> <br /> ContinueHatchingEggTimer<br /> LDA GameObjectCountdownHi,X<br /> AND #$07 ; Check lower 3 bits of high byte timer.<br /> BEQ UpdateEggWiggleAnimation ; If zero, it's time to update the wiggle animation frame.<br /> ; Otherwise, play the sound effect (every time Lo wraps, unless Hi&amp;7 is 0).<br /> LDA #SFX_EggWigglingHatching ; Schedule egg wiggling/hatching sound effect.<br /> JSR ScheduleSFX<br /> <br /> UpdateEggWiggleAnimation<br /> DEC GameObjectCountdownHi,X ; Decrement high byte of hatching animation timer.<br /> BEQ TransitionToRiderOnShell ; If timer fully expired, transition to the next state.<br /> LDA ObjectWiggleAnimation,X ; Get current wiggle frame.<br /> EOR #$01 ; Toggle wiggle frame (0 &lt;-&gt; 1).<br /> STA ObjectWiggleAnimation,X ; Store new wiggle frame.<br /> LDA #$0A ; Reset low byte of hatching animation timer for the next wiggle cycle.<br /> STA GameObjectCountdownLo,X<br /> RTS<br /> <br /> TransitionToRiderOnShell<br /> LDA #EggState_RiderOnShell ; Egg is now 'rider standing on shell' (state 3).<br /> STA GameObjectState,X<br /> LDA #$0F ; Set timer for how long rider stays on the shell.<br /> STA GameObjectCountdownLo,X ; (High byte is implicitly 0 from the previous countdown).<br /> RTS<br /> <br /> ProcessRiderOnShellTimer ; --- State 3: Rider standing on broken shell ---<br /> DEC GameObjectCountdownLo,X ; Decrement timer for rider on shell.<br /> BEQ EggIsRiderNoShell ; If timer expires, transition to rider without shell.<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; EggIsRiderNoShell<br /> ; Called when an egg (object X) has progressed to the state of being just a <br /> ; rider (state 4), having shed its shell. This routine finds an available enemy<br /> ; bird slot and spawns a new &quot;hunter&quot; bird (object Y) to fly in and retrieve<br /> ; this rider. X contains the index of the egg object (now the rider).<br /> ;------------------------------------------------------------------------------<br /> EggIsRiderNoShell<br /> LDA #EggState_StandingRider ; Set state to: rider standing without shell.<br /> STA GameObjectState,X ; Update the former egg object's state.<br /> <br /> ; Find an available (dead) enemy bird slot to spawn the hunter bird.<br /> LDY #MinEnemyBirdObjectIndex ; Start from the first enemy bird slot (index 2).<br /> FindDeadEnemyBirdSlotLoop<br /> LDA.w GameObjectState,Y ; Get state of potential enemy bird Y.<br /> BEQ FoundDeadEnemyBirdSlot ; If state is 0 (dead), the slot is available.<br /> INY ; Try next bird slot.<br /> CPY #MaxEnemyBirdSlots ; Have we checked all enemy bird slots (up to 9)?<br /> BNE FindDeadEnemyBirdSlotLoop ; If not, loop.<br /> <br /> FoundDeadEnemyBirdSlot<br /> ; Initialize the new hunter bird (object Y) based on the rider (object X).<br /> LDA ObjectBirdLevelAndType,X ; Get rider's original bird type/level (e.g., Bounder, Hunter, Shadow Lord).<br /> STA ObjectBirdLevelAndType,Y ; Set the new hunter bird's type/level to match.<br /> <br /> TYA ; Bird Y (the hunter) is now hunting Rider X (the prey).<br /> STA GameObjectHunterIndex,X ; Link: Rider X is being hunted by Bird Y.<br /> TXA ;<br /> STA GameObjectPreyIndex,Y ; Link: Bird Y is hunting Rider X.<br /> <br /> STY TempSavedYForHunterBirdSpawn ; Save Y (hunter bird index) as it will be clobbered by the JSR.<br /> JSR DetermineInitialHunterBirdDirection ; Determine which side of the screen the bird should spawn from.<br /> LDY TempSavedYForHunterBirdSpawn ; Restore Y.<br /> <br /> STA GameObjectDirection,Y ; Set hunter bird's initial direction.<br /> LDA GameObjectDirection,Y ; Load direction again to check sign.<br /> BMI SpawnHunterBirdFacingLeft<br /> <br /> SpawnHunterBirdFacingRight<br /> LDA #HunterBirdXVel_Right ; Set X velocity for right-facing bird.<br /> STA GameObjectXVelocity,Y<br /> LDA #HunterBirdX_OffscreenLeft ; Spawn off-screen to the left.<br /> JMP SetHunterBirdInitialXPosition<br /> <br /> SpawnHunterBirdFacingLeft<br /> LDA #HunterBirdXVel_Left ; Set X velocity for left-facing bird.<br /> STA GameObjectXVelocity,Y<br /> LDA #HunterBirdX_OffscreenRight ; Spawn off-screen to the right.<br /> <br /> SetHunterBirdInitialXPosition<br /> STA GameObjectXCoordHi,Y ; Set hunter bird's initial X coordinate (high byte).<br /> <br /> ; Set hunter bird's initial Y coordinate to be slightly above the rider.<br /> LDA GameObjectYCoordHi,X ; Get rider's Y coordinate.<br /> SEC<br /> SBC #HunterBirdYOffsetAboveRider ; Spawn 15 pixels above the rider.<br /> STA GameObjectYCoordHi,Y ; Set hunter bird's Y coordinate.<br /> <br /> ; Initialize various properties for the newly spawned hunter bird.<br /> LDA #$01 ; True for boolean flags.<br /> STA GameObjectInAir,Y ; Hunter bird starts in the air.<br /> STA.w GameObjectAIMode,Y ; Set hunter bird's AI mode to seeking.<br /> LDA #$00 ; Zero for timers and some physics components.<br /> STA GameObjectChargingTimer,Y ; Clear charging timer.<br /> STA GameObjectFootstepAnimTimer,Y ; Clear footstep animation timer.<br /> STA GameObjectFootstepAnimIndex,Y ; Reset footstep animation frame.<br /> STA GameObjectYVelocityLo,Y ; Clear Y velocity (low byte).<br /> STA GameObjectYVelocityHi,Y ; Clear Y velocity (high byte).<br /> STA GameObjectPlatformSkipState,Y ; Not skipping on a platform.<br /> STA GameObjectSkidDirection,Y ; Not skidding.<br /> STA GameObjectAnimationFrame,Y ; Reset animation frame.<br /> STA.w GameObjectAlive,Y ; Mark as alive (though its state defines behavior).<br /> STA GameObjectAITargetDelayTimer,X ; Reset AI target delay for the rider it was targeting.<br /> <br /> LDA #$01 ; Default timer reset value.<br /> STA GameObjectTimerResetValue,Y ; Set timer reset value for hunter bird.<br /> STA GameObjectEventTimer1,Y ; Set event timer 1 for hunter bird.<br /> <br /> LDA #State_BirdSeekingRider ; Set state to: bird is actively seeking its rider.<br /> STA GameObjectState,Y ; Update hunter bird's state.<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; DetermineInitialHunterBirdDirection<br /> ; Determines the initial direction for a newly spawned hunter bird. The hunter<br /> ; pursues the rider (object index in X). The routine checks which platform the<br /> ; rider is on to decide if the hunter should enter from the left or right.<br /> ; Returns:<br /> ; A = Direction_Right ($01) if rider is on a known platform.<br /> ; A = Direction_Left ($FF) if rider is not found on a known platform.<br /> ; Preserves: X / Modifies: Y, A<br /> ;------------------------------------------------------------------------------<br /> DetermineInitialHunterBirdDirection<br /> LDY #$06 ; Start with the last platform index (Platform 6).<br /> LDA GameObjectYCoordHi,X ; Get rider's Y coordinate (high byte).<br /> FindRiderPlatformLoop<br /> CMP PlatformTopCoordinate,Y ; Is rider at the Y level of this platform's top?<br /> BNE RiderNotOnThisPlatform ; If not, check the next platform.<br /> <br /> ; Rider is at the correct Y level, now check X bounds.<br /> LDA GameObjectXCoordHi,X ; Get rider's X coordinate (high byte).<br /> CMP PlatformLeftsideCoordinate,Y ; Is rider to the right of the platform's left edge?<br /> BCC RiderNotOnThisPlatform ; If rider is left of the left edge, not on this platform.<br /> CMP PlatformRightsideCoordinate,Y ; Is rider to the left of the platform's right edge?<br /> BCS RiderNotOnThisPlatform ; If rider is right of the right edge, not on this platform.<br /> <br /> ; Rider is on this platform.<br /> LDA #Direction_Right ; Return direction: RIGHT.<br /> RTS<br /> <br /> RiderNotOnThisPlatform<br /> DEY ; Next platform index.<br /> BPL FindRiderPlatformLoop ; If platform index is still valid, loop.<br /> <br /> ; Rider was not found on any of the checked platforms.<br /> LDA #Direction_Left ; Return direction: LEFT.<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; EggIsAirborne<br /> ; Sets up the physics parameters in Zero Page specifically for an airborne egg<br /> ; object. Eggs have unique, floaty physics compared to birds. After setting<br /> ; the parameters, it jumps to the common airborne physics update routine.<br /> ; X = index of the egg GameObject<br /> ;------------------------------------------------------------------------------<br /> EggIsAirborne<br /> ; Set egg's gravity (WeightFactor). A lower value means less gravity.<br /> LDA #EGG_WEIGHT_FACTOR<br /> STA Temp64WeightFactor<br /> <br /> ; Set egg's maximum upward speed (a small negative value for a slow rise).<br /> LDA #EGG_MAX_RISE_SPEED_NEG<br /> STA Temp63MaxRiseSpeedNeg<br /> <br /> ; Set egg's maximum downward speed (a small positive value for a slow fall).<br /> LDA #EGG_MAX_FALL_SPEED<br /> STA Temp62MaxFallSpeed<br /> <br /> ; Set egg's X-axis speed Look-Up Table index range. This controls its<br /> ; horizontal drift. For eggs, this range is narrow, resulting in slow drift.<br /> LDA #EGG_X_SPEED_LUT_MAX_CLAMP_INDEX<br /> STA Temp61MaxPhysicsXSpeedIndex ; Smallest X-speed LUT index egg can use.<br /> LDA #EGG_X_SPEED_LUT_MIN_CLAMP_INDEX<br /> STA Temp60MinPhysicsXSpeedIndex ; Largest X-speed LUT index egg can use.<br /> <br /> JMP UpdateAirborneXPositionAndVelocity ; Proceed to common X-axis physics update.<br /> <br /> ;------------------------------------------------------------------------------<br /> ; UpdateAirborneObjectPhysics<br /> ; Main physics routine for airborne birds and pterodactyls. It loads the<br /> ; appropriate physics parameters for the object type and then jumps to the<br /> ; common X and Y position update logic.<br /> ; Input: X = GameObject index<br /> ;------------------------------------------------------------------------------<br /> UpdateAirborneObjectPhysics<br /> LDA GameObjectState,X<br /> CMP #$08 ; check if state=troll holding the bird<br /> BNE ObjectIsAirborne<br /> JMP TrollHoldingTheBird<br /> ObjectIsAirborne<br /> LDY ObjectBirdLevelAndType,X ; Get bird type for index with physics LUTs<br /> LDA.w BirdPhysicsIndexMinByType,Y<br /> STA Temp60<br /> LDA.w BirdPhysicsIndexMaxByType,Y<br /> STA Temp61<br /> LDA BirdWeightByTypeLUT,Y<br /> STA Temp64<br /> LDA BirdMaxDownVelocityByTypeLUT,Y<br /> STA Temp62<br /> LDA BirdMaxUpVelocityByTypeLUT,Y<br /> STA Temp63<br /> <br /> ;------------------------------------------------------------------------------<br /> ; UpdateAirborneXPositionAndVelocity<br /> ; This is the core 16-bit physics update routine for all airborne objects.<br /> ; It's jumped to after physics parameters have been loaded into ZP temps.<br /> ; It handles:<br /> ; 1. X-velocity to LUT index conversion and clamping.<br /> ; 2. 16-bit X-position update from LUT.<br /> ; 3. Horizontal screen wrapping.<br /> ; 4. 16-bit Y-velocity update (applying gravity).<br /> ; 5. 16-bit Y-position update from velocity.<br /> ; Input: X = GameObject index. ZP temps $60-$64 must be pre-loaded.<br /> ;------------------------------------------------------------------------------<br /> UpdateAirborneXPositionAndVelocity<br /> LDA GameObjectXVelocity,X ; Load current X velocity component<br /> CLC<br /> ADC #X_VEL_TO_LUT_INDEX_OFFSET ; Convert signed X velocity to an unsigned LUT index base.<br /> ; E.g., if XVel is -5 to +5, and OFFSET is 5, result is 0 to 10.<br /> ; This resulting index (in Y) is then adjusted by specific min/max allowed indices.<br /> TAY ; Y = initial candidate X speed LUT index<br /> <br /> BMI XSpeedIndexIsNegative_SetToMaxAllowed ; If Y &lt; 0 (unlikely for typical Xvel range), use MaxAllowedIndex.<br /> ; else (Y &gt;= 0)<br /> XSpeedIndex_CheckAgainstMaxAllowed<br /> CPY Temp61MaxPhysicsXSpeedIndex ; Compare Y with Temp61MaxPhysicsXSpeedIndex<br /> BCS XSpeedIndex_AtOrExceedsMax_CheckMinAllowed ; If Y &gt;= Temp61MaxPhysicsXSpeedIndex, Y is used as is for min check.<br /> ; else (Y &lt; Temp61MaxPhysicsXSpeedIndex)<br /> XSpeedIndexIsNegative_SetToMaxAllowed ; also reached if Y &lt; MaxAllowedIndex<br /> LDY Temp61MaxPhysicsXSpeedIndex ; Y = Temp61MaxPhysicsXSpeedIndex. If Y was &lt; Max, it's forced to Max.<br /> <br /> XSpeedIndex_AtOrExceedsMax_CheckMinAllowed<br /> CPY Temp60MinPhysicsXSpeedIndex ; Compare Y (now possibly MaxAllowedIndex) with Temp60MinPhysicsXSpeedIndex<br /> BEQ XSpeedIndex_IsFinalized ; If Y == MinAllowedIndex, the index is finalized.<br /> BCC XSpeedIndex_IsFinalized ; If Y &lt; MinAllowedIndex, the index is also finalized.<br /> ; (This implies that values &lt; MinAllowedIndex are treated as MinAllowedIndex by table structure or subsequent logic)<br /> ; else (Y &gt; MinAllowedIndex)<br /> LDY Temp60MinPhysicsXSpeedIndex ; Y = Temp60MinPhysicsXSpeedIndex. If Y was &gt; Min, it's forced to Min.<br /> <br /> XSpeedIndex_IsFinalized<br /> TYA ; A = final Y (the determined LUT index)<br /> SEC<br /> SBC #X_VEL_TO_LUT_INDEX_OFFSET ; Convert the LUT index back to a signed X velocity value<br /> STA GameObjectXVelocity,X ; Store the (potentially modified by LUT index logic) X velocity<br /> <br /> UpdateXPositionFromLUT<br /> CLC<br /> LDA GameObjectXCoordLo,X ; Load current X sub-pixel coordinate<br /> ADC XPositionIncrementTableLoLUT,Y ; Add X sub-pixel increment from LUT using final index Y<br /> STA GameObjectXCoordLo,X<br /> LDA GameObjectXCoordHi,X ; Load current X pixel coordinate<br /> ADC XPositionIncrementTableHiLUT,Y ; Add X pixel increment from LUT (with carry from Lo)<br /> STA GameObjectXCoordHi,X<br /> <br /> HandleXScreenWrap<br /> CMP ObjectScreenWrapXRightEdgeLUT,X ; Compare X with right edge for wrapping<br /> BCC CheckLeftEdgeWrap ; If X &lt; RightEdge, no right-to-left wrap.<br /> BEQ CheckLeftEdgeWrap ; If X == RightEdge, also no right-to-left wrap.<br /> ; else (X &gt; RightEdge) -&gt; wrap from right to left<br /> LDA ObjectScreenWrapXLeftEdgeLUT,X ; Load left edge X coordinate<br /> JMP StoreWrappedXAndCheckObjectRemoval<br /> <br /> CheckLeftEdgeWrap<br /> CMP ObjectScreenWrapXLeftEdgeLUT,X ; Compare X with left edge for wrapping<br /> BCS XWrapHandled_ProceedToYPhysics ; If X &gt;= LeftEdge, no left-to-right wrap.<br /> ; else (X &lt; LeftEdge) -&gt; wrap from left to right<br /> LDA ObjectScreenWrapXRightEdgeLUT,X ; Load right edge X coordinate<br /> <br /> StoreWrappedXAndCheckObjectRemoval<br /> STA GameObjectXCoordHi,X ; Store wrapped X pixel coordinate<br /> <br /> CPX #$0D ; Check if object index is Pterry or Egg (Indices $0A-$0C for Pterry, $0D-$18 for Egg)<br /> ; Player/Enemy birds are $00-$09.<br /> BCS XWrapHandled_ProceedToYPhysics ; If Pterry or Egg, skip removal check.<br /> ; Object is a Player or Enemy Bird that wrapped<br /> LDA GameObjectState,X<br /> CMP #State_Hit ; is state=bird hit? ($05)<br /> BEQ KillBird ; If hit bird wrapped, remove it.<br /> CMP #PterryState_Leaving ; is state=pterry leaving? ($0C) - This check is for birds, but PterryState is used.<br /> ; This implies a bird object could be in a &quot;leaving&quot; state, perhaps an unridden enemy bird.<br /> BEQ RemovePterry ; If &quot;leaving&quot; bird wrapped, remove it.<br /> <br /> XWrapHandled_ProceedToYPhysics<br /> LDA ObjectBirdLevelAndType,X ; Get object's type (0-2 Enemy, 3 Player, 4 Pterry)<br /> CMP #$04 ; Is it Pterry? (Type 4)<br /> BEQ ApplyGravityAndYVelocity ; If Pterry, always apply Y-velocity updates.<br /> ; Not Pterry (Player or Enemy Bird)<br /> LDA GameObjectInAir,X ; Check if the bird is airborne (not on a platform)<br /> BEQ UpdateYPositionFromVelocityOnly ; If on a platform (InAir == 0), skip Y-velocity changes due to gravity.<br /> ; Only update Y position based on its current (likely zeroed on landing) Y velocity.<br /> ApplyGravityAndYVelocity<br /> ; Apply Y-velocity changes (gravity and clamping)<br /> LDA GameObjectYVelocityLo,X<br /> CLC<br /> ADC Temp64WeightFactor<br /> STA GameObjectYVelocityLo,X<br /> LDA #$00 ; Prepare to add carry to Hi byte<br /> ADC GameObjectYVelocityHi,X ; A = Y_Vel_Hi + Carry<br /> BMI YVelocityIsUpward_CheckMaxRise ; If Y-velocity is negative (moving up).<br /> <br /> ; Y-velocity is positive (moving downward) or zero<br /> CMP Temp62MaxFallSpeed<br /> BEQ StoreYVelocityHi ; If Y_Vel_Hi == Temp62MaxFallSpeed, store it.<br /> BCC StoreYVelocityHi ; If Y_Vel_Hi &lt; Temp62MaxFallSpeed, store it (falling slower than max is fine).<br /> ; Else (Y_Vel_Hi &gt; Temp62MaxFallSpeed - falling too fast)<br /> LDA #$00 ; Reset Lo byte of Y-velocity as Hi is being clamped<br /> STA GameObjectYVelocityLo,X<br /> LDA Temp62MaxFallSpeed ; Load Temp62MaxFallSpeed to clamp<br /> JMP StoreYVelocityHi<br /> <br /> YVelocityIsUpward_CheckMaxRise<br /> CMP Temp63MaxRiseSpeedNeg<br /> ; e.g. Y_Vel_Hi=$FE(-2), Temp63MaxRiseSpeedNeg=$FC(-4). $FE &gt;= $FC (less negative), so BCS is taken.<br /> BCS StoreYVelocityHi ; If Y_Vel_Hi &gt;= Temp63MaxRiseSpeedNeg (rising slower or at max rise), store it.<br /> ; Else (Y_Vel_Hi &lt; Temp63MaxRiseSpeedNeg - rising too fast, i.e., more negative)<br /> LDA #$00 ; Reset Lo byte of Y-velocity<br /> STA GameObjectYVelocityLo,X<br /> LDA Temp63MaxRiseSpeedNeg ; Load Temp63MaxRiseSpeedNeg to clamp<br /> <br /> StoreYVelocityHi<br /> STA GameObjectYVelocityHi,X ; Store the (clamped) Hi byte of Y-velocity<br /> <br /> UpdateYPositionFromVelocityOnly<br /> ; Update Y-coordinates from Y-velocity<br /> LDA GameObjectYVelocityLo,X<br /> CLC<br /> ADC GameObjectYCoordLo,X ; Add Y_Vel_Lo to Y_Coord_Lo<br /> STA GameObjectYCoordLo,X<br /> LDA GameObjectYCoordHi,X<br /> ADC GameObjectYVelocityHi,X ; Add Y_Vel_Hi to Y_Coord_Hi (with carry)<br /> STA GameObjectYCoordHi,X<br /> JMP HandleObjectTopScreenCollision ; Jump to process Y boundary conditions (top of screen bounce, troll grab)<br /> <br /> RemovePterry<br /> LDA #$00 ; Pterry is dead and gone<br /> STA GameObjectState,X<br /> LDA PterryAliveCount<br /> BEQ SkipPterryDecrement<br /> DEC PterryAliveCount<br /> SkipPterryDecrement<br /> JSR UpdatePterryRespawnTimer<br /> LSR PterryCountdownHi ; divide pterry <br /> ROR PterryCountdownLo ; counter by two<br /> RTS<br /> <br /> KillBird<br /> LDA #$00<br /> STA GameObjectState,X<br /> STA GameObjectAlive,X<br /> CPX #$02 ; players are X=0,1<br /> BCC KillPlayerBird<br /> DEC EnemyBirdCount<br /> BNE MoreEnemyBirdsLeft<br /> LDA EggsPresentCount<br /> BNE MoreEnemyBirdsLeft<br /> JMP SetupNextLevel<br /> MoreEnemyBirdsLeft<br /> RTS<br /> <br /> KillPlayerBird<br /> LDA P0Lives,X<br /> BPL SetupNewPlayerBird<br /> LDA #$00<br /> STA GameObjectState,X<br /> RTS<br /> <br /> SetupNewPlayerBird<br /> JMP SpawnNewBird<br /> <br /> <br /> ;------------------------------------------------------------------------------<br /> ; HandleObjectTopScreenCollision<br /> ; Checks if an object has moved above the top screen boundary. If so, it reverses<br /> ; and dampens its Y velocity for a bounce effect and clamps its Y position.<br /> ; Input: X = GameObject index<br /> ;------------------------------------------------------------------------------<br /> HandleObjectTopScreenCollision<br /> <br /> LDA GameObjectYCoordHi,X ; Get object's current Y position (high byte)<br /> CMP #TOP_SCREEN_Y_BOUNDARY ; Compare with the top screen boundary<br /> BCS ProcessTrollGrab_Or_FurtherYChecks ; If Y &gt;= TOP_BOUNDARY (i.e., below or at safe margin),<br /> ; object is not at/above top, skip bounce logic.<br /> ; Branch to ProcessTrollGrab_Or_FurtherYChecks<br /> <br /> ; Object is at or above the top screen boundary (Y &lt; TOP_SCREEN_Y_BOUNDARY)<br /> LDA GameObjectYVelocityHi,X ; Get Y velocity (high byte)<br /> BPL ClampYAtTopBoundaryAndExit ; If velocity is positive or zero (moving down/still),<br /> ; no upward bounce needed, just clamp position.<br /> <br /> ; Object is moving upwards into the top boundary (Y velocity is negative)<br /> ; Reverse and dampen Y velocity for bounce effect.<br /> EOR #$FF ; Negate Y-velocity (High Byte), part 1<br /> CLC<br /> ADC #$01 ; Negate Y-velocity (High Byte), part 2 (Two's complement)<br /> STA GameObjectYVelocityHi,X<br /> <br /> LDA GameObjectYVelocityLo,X ; Get Y velocity (low byte)<br /> EOR #$FF ; Negate Y-velocity (Low Byte), part 1<br /> CLC<br /> ADC #$01 ; Negate Y-velocity (Low Byte), part 2<br /> STA GameObjectYVelocityLo,X<br /> <br /> ; Dampen the bounce velocity: Divide Y-velocity by 4<br /> CLC<br /> ROR GameObjectYVelocityHi,X ; Shift combined 16-bit velocity right (effectively VelY / 2)<br /> ROR GameObjectYVelocityLo,X<br /> CLC<br /> ROR GameObjectYVelocityHi,X ; Shift again (effectively VelY / 4 total)<br /> ROR GameObjectYVelocityLo,X<br /> <br /> ClampYAtTopBoundaryAndExit<br /> LDA #TOP_SCREEN_Y_BOUNDARY ; Load the top boundary Y coordinate<br /> STA GameObjectYCoordHi,X ; Clamp object's Y position to the top boundary<br /> RTS ; Return from NMI or subroutine<br /> <br /> ProcessTrollGrab_Or_FurtherYChecks<br /> LDA GameObjectState,X<br /> CMP #$08<br /> BEQ TrollHoldingTheBird<br /> LDA GameObjectYCoordHi,X<br /> CMP TrollGrabHeight,X<br /> BCS TrollJustGrabbedTheBird<br /> RTS<br /> <br /> TrollJustGrabbedTheBird<br /> CPX #$0D ; Eggs can't be grabbed (but Pterry can?!?)<br /> BCS TrollKilledEnemyBird<br /> LDA #$08<br /> STA GameObjectState,X<br /> RTS<br /> <br /> TrollHoldingTheBird<br /> LDA GameObjectYCoordHi,X<br /> CMP #$BB ; See if the bird pulled down far enough to die<br /> BCS TrollKilledThBird<br /> INC GameObjectYCoordHi,X ; Pull the bird down some more<br /> RTS<br /> <br /> TrollKilledThBird<br /> CPX #$02<br /> BCS GotoKillBird ; branch if non-player enemy bird<br /> LDA #$00<br /> STA GameObjectState,X<br /> JMP StartPlayerDeath<br /> GotoKillBird<br /> JMP KillBird<br /> <br /> TrollKilledEnemyBird<br /> ; a shortened version of the KillBird routine<br /> LDA #$00<br /> STA GameObjectState,X<br /> DEC EggsPresentCount<br /> BNE ExitTrollKillRoutine<br /> LDA EnemyBirdCount<br /> BNE ExitTrollKillRoutine<br /> JMP SetupNextLevel<br /> <br /> ExitTrollKillRoutine<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; ProcessBirdToBirdCollisionLoop<br /> ; Checks for collisions between the bird object in X and all other birds with a<br /> ; lower index. Handles simple horizontal bounces for non-player birds.<br /> ; Input: X = Index of the primary bird for collision check<br /> ;------------------------------------------------------------------------------<br /> ProcessBirdToBirdCollisionLoop<br /> TXA ; A = ObjX_idx<br /> TAY ; Y_reg = ObjX_idx (used as the initial counter for ObjY loop)<br /> PHA ; Push ObjX_idx onto stack (will be retrieved by PLA in Bird2BirdIterateAndCheckObjY)<br /> JMP Bird2BirdIterateAndCheckObjY ; Jump to the main loop logic for iterating through ObjY<br /> <br /> ; Start of the logic for a specific ObjX vs ObjY pair<br /> Bird2BirdFilterObjYAndDetectCollision<br /> LDA.w GameObjectState,Y ; Get state of ObjY (current object in inner loop, index in Y_REG)<br /> BNE Bird2BirdCheckIfObjYBorn1 ; If not State_Dead ($00), check further<br /> JMP Bird2BirdIterateAndCheckObjY ; ObjY is dead, skip to next ObjY<br /> <br /> Bird2BirdCheckIfObjYBorn1<br /> CMP #State_Born1 ; Is ObjY in State_Born1 ($03)?<br /> BNE Bird2BirdCheckIfObjYInvincible ; If not, check next state<br /> JMP Bird2BirdIterateAndCheckObjY ; ObjY is in Born1 state, skip to next ObjY<br /> <br /> Bird2BirdCheckIfObjYInvincible<br /> CMP #State_Invincible ; Is ObjY in State_Invincible ($06)?<br /> BNE Bird2BirdCheckIfObjYBorn2 ; If not, check next state<br /> JMP Bird2BirdIterateAndCheckObjY ; ObjY is invincible, skip to next ObjY<br /> <br /> Bird2BirdCheckIfObjYBorn2<br /> CMP #State_Born2 ; Is ObjY in State_Born2 ($07)?<br /> BNE Bird2BirdCheckIfObjYAlive ; If not, check if alive<br /> JMP Bird2BirdIterateAndCheckObjY ; ObjY is in Born2 state, skip to next ObjY<br /> <br /> Bird2BirdCheckIfObjYAlive<br /> LDA.w GameObjectAlive,Y ; Is ObjY alive?<br /> BNE Bird2BirdPerformCollisionDetection ; If alive flag is non-zero, proceed to collision detection<br /> JMP Bird2BirdIterateAndCheckObjY ; ObjY is not alive (e.g. riderless bird leaving), skip to next ObjY<br /> <br /> Bird2BirdPerformCollisionDetection<br /> JSR GameObjCollisionDetection ; Check collision between ObjX (in X_REG) and ObjY (in Y_REG)<br /> ; Carry will be CLEAR if collision, SET if no collision.<br /> BCS Bird2BirdIterateAndCheckObjY ; If Carry SET (no collision), skip to next ObjY<br /> <br /> ; Collision detected between ObjX and ObjY (Carry is CLEAR)<br /> CPX #MinEnemyBirdObjectIndex ; Is ObjX a player (index &lt; 2)?<br /> BCS GameObject1NotAPlayer ; If ObjX_idx &gt;= 2 (enemy bird), check ObjY<br /> JMP CheckPlayerAndBirdY ; ObjX is a player, jump to player-involved collision logic<br /> <br /> GameObject1NotAPlayer<br /> CPY #MinEnemyBirdObjectIndex ; Is ObjY a player (index &lt; 2)?<br /> BCS GameObject2NotAPlayer ; If ObjY_idx &gt;= 2 (enemy bird), both are non-players<br /> JMP CheckPlayerAndBirdY ; ObjY is a player, ObjX is enemy, jump to player-involved logic<br /> <br /> GameObject2NotAPlayer ; Both ObjX and ObjY are non-player birds (indices &gt;= 2)<br /> BirdsAtTheSameHeight<br /> LDA #SFX_BirdBirdBounce ; Sound effect for bird-to-bird bounce<br /> JSR ScheduleSFX<br /> <br /> BirdsHaveBounced ; Collision response for two non-player birds<br /> PLA ; A = Pop ObjY_idx from stack (pushed at Bird2BirdIterateAndCheckObjY)<br /> TAY ; Y_REG = ObjY_idx (the object ObjX collided with)<br /> ; X_REG still holds ObjX_idx<br /> <br /> LDA TempCollisionOverlap ; Load Y-axis overlap magnitude (from GameObjCollisionDetection)<br /> CMP #$07 ; Collision_MinYOverlapForHorizBounce (value from original code)<br /> BCS HandleVerticalBounceCollision ; If Y_overlap &gt;= 7, jump to vertical bounce logic<br /> <br /> ; Y_overlap &lt; 7: Handle as a primarily horizontal collision (glancing blow)<br /> ; Nudge objects apart based on their relative X positions.<br /> LDA GameObjectXCoordHi,X ; ObjX's X coordinate<br /> CMP GameObjectXCoordHi,Y ; Compare with ObjY's X coordinate<br /> BCC Bird2BirdBounceObjXLeft_ObjYRight ; If ObjX is to the left of ObjY<br /> <br /> ; ObjX is to the right of (or at same X as) ObjY.<br /> ; Nudge ObjY left, ObjX right.<br /> LDA #Direction_Left ; Set ObjY direction to Left<br /> STA GameObjectDirection,Y<br /> LDA GameObjectXCoordHi,Y<br /> SEC<br /> SBC #$01 ; ObjY_X--<br /> STA GameObjectXCoordHi,Y<br /> LDA #Direction_Right ; Set ObjX direction to Right<br /> STA GameObjectDirection,X<br /> INC GameObjectXCoordHi,X ; ObjX_X++<br /> JMP Bird2BirdApplyHorizontalBounceVelocities ; Proceed to adjust velocities<br /> <br /> Bird2BirdBounceObjXLeft_ObjYRight<br /> ; Nudge ObjY right, ObjX left.<br /> LDA #Direction_Right ; Set ObjY direction to Right<br /> STA GameObjectDirection,Y<br /> LDA GameObjectXCoordHi,Y<br /> CLC<br /> ADC #$01 ; ObjY_X++<br /> STA GameObjectXCoordHi,Y<br /> LDA #Direction_Left ; Set ObjX direction to Left<br /> STA GameObjectDirection,X<br /> DEC GameObjectXCoordHi,X ; ObjX_X--<br /> ; Fall through to Bird2BirdApplyHorizontalBounceVelocities<br /> <br /> Bird2BirdApplyHorizontalBounceVelocities<br /> ; Adjust X-velocities for both collided objects.<br /> ; The logic effectively reverses direction and slightly dampens.<br /> ; e.g., Vel +2 becomes -1; Vel -2 becomes +1. Stops if Vel was +/-1.<br /> Bird2BirdAdjustObjX_Vel<br /> LDA GameObjectXVelocity,X ; Get ObjX's current X-velocity<br /> BEQ Bird2BirdStoreAdjustedObjX_Vel ; If velocity is zero, no change needed<br /> EOR #$FF ; Invert all bits (NOT operation)<br /> BPL Bird2BirdStoreAdjustedObjX_Vel ; If result is positive (original was negative or zero), use this value<br /> ; (e.g., if original was -1 ($FF), result is $00)<br /> ; (e.g., if original was -2 ($FE), result is $01)<br /> CLC<br /> ADC #$02 ; If result was negative (original was positive), add 2 to complete pseudo-negation<br /> ; (e.g., if original was +1 ($01), NOT is $FE. $FE + 2 = $00)<br /> ; (e.g., if original was +2 ($02), NOT is $FD. $FD + 2 = $FF (-1))<br /> Bird2BirdStoreAdjustedObjX_Vel<br /> STA GameObjectXVelocity,X ; Store new X-velocity for ObjX<br /> <br /> Bird2BirdAdjustObjY_Vel<br /> LDA GameObjectXVelocity,Y ; Get ObjY's current X-velocity<br /> BEQ Bird2BirdStoreAdjustedObjY_Vel ; If velocity is zero, no change<br /> EOR #$FF ; Invert all bits<br /> BPL Bird2BirdStoreAdjustedObjY_Vel ; If result positive, use it<br /> CLC<br /> ADC #$02 ; Else, add 2<br /> Bird2BirdStoreAdjustedObjY_Vel<br /> STA GameObjectXVelocity,Y ; Store new X-velocity for ObjY<br /> <br /> LDA GameObjectInAir,Y ; Check if ObjY is in the air<br /> BEQ Bird2BirdFinishHorizontalBounceResponse ; If ObjY is on a platform, this horizontal bounce is sufficient.<br /> <br /> LDA TempCollisionOverlap ; ObjY is airborne, check Y-overlap again<br /> CMP #$03<br /> BCS HandleVerticalBounceCollision ; If Y_overlap &gt;= 3, might need vertical bounce (external logic)<br /> ; Fall through to Bird2BirdFinishHorizontalBounceResponse if Y_overlap &lt; 3 and ObjY airborne<br /> <br /> Bird2BirdFinishHorizontalBounceResponse<br /> RTS ; Return from ProcessBirdToBirdCollisionLoop<br /> <br /> Bird2BirdIterateAndCheckObjY<br /> PLA<br /> DEY<br /> TYA<br /> BMI Bird2BirdFinishHorizontalBounceResponse<br /> PHA<br /> JMP Bird2BirdFilterObjYAndDetectCollision<br /> HandleVerticalBounceCollision<br /> LDA GameObjectYVelocityLo,X<br /> EOR #$FF<br /> ADC #$01<br /> STA GameObjectYVelocityLo,X<br /> LDA GameObjectYVelocityLo,Y<br /> EOR #$FF<br /> ADC #$01<br /> STA GameObjectYVelocityLo,Y<br /> LDA GameObjectYVelocityHi,X<br /> EOR #$FF<br /> ADC #$01<br /> STA GameObjectYVelocityHi,X<br /> LDA GameObjectYVelocityHi,Y<br /> EOR #$FF<br /> ADC #$01<br /> STA GameObjectYVelocityHi,Y<br /> LDA GameObjectYVelocityHi,X<br /> ROL<br /> ROR GameObjectYVelocityHi,X<br /> ROR GameObjectYVelocityLo,X<br /> LDA GameObjectYVelocityHi,Y<br /> ROL<br /> LDA GameObjectYVelocityHi,Y<br /> ROR<br /> STA GameObjectYVelocityHi,Y<br /> LDA GameObjectYVelocityLo,Y<br /> ROR<br /> STA GameObjectYVelocityLo,Y<br /> LDA GameObjectYCoordHi,X<br /> CMP GameObjectYCoordHi,Y<br /> BCC HandleBouncePhysicsForUpperObject<br /> LDA GameObjectYVelocityHi,Y<br /> BPL ClampWinnerVelocityOnBounce<br /> CMP #$FF<br /> BCS ClampWinnerVelocityOnBounce<br /> RTS<br /> <br /> ClampWinnerVelocityOnBounce<br /> LDA #$FF<br /> STA GameObjectYVelocityHi,Y<br /> RTS<br /> <br /> HandleBouncePhysicsForUpperObject<br /> LDA GameObjectYVelocityHi,X<br /> BPL ClampBouncedObjectVelocityHi<br /> CMP #$FF<br /> BCS ClampBouncedObjectVelocityHi<br /> RTS<br /> <br /> ClampBouncedObjectVelocityHi<br /> LDA #$FF<br /> STA GameObjectYVelocityHi,X<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; CheckPlayerAndBirdY<br /> ; Handles the complex logic for when a player collides with another bird<br /> ; (either another player or an enemy). Determines who wins the joust based on<br /> ; vertical position, awards points, and initiates death sequences.<br /> ;------------------------------------------------------------------------------<br /> CheckPlayerAndBirdY<br /> ; A player and enemy bird -or- player and player have collided<br /> LDA GameObjectYCoordHi,X<br /> CMP GameObjectYCoordHi,Y<br /> BNE DetermineJoustWinner<br /> JMP BirdsAtTheSameHeight<br /> DetermineJoustWinner<br /> TXA<br /> PHA<br /> LDA #SFX_BirdExplosion<br /> JSR ScheduleSFX<br /> CPY #$02<br /> BCS WhichBirdWasHigher ; branch if non-player enemy bird<br /> CPX #$02<br /> BCS WhichBirdWasHigher ; branch if non-player enemy bird<br /> LDA #$00<br /> STA PlayersWereATeam<br /> LDA #$02<br /> STA Temp61ScoreAdd<br /> LDA #$00<br /> STA Temp62ScoreAdd<br /> LDA PlayerWasGladiator<br /> BEQ CalculateStandardPlayerJoustScore<br /> LDA #$03<br /> STA Temp61ScoreAdd<br /> LDA #$00<br /> STA Temp62ScoreAdd<br /> CalculateStandardPlayerJoustScore<br /> LDA GameObjectYCoordHi,X<br /> CMP GameObjectYCoordHi,Y<br /> BCS PlayerXLosesJoustToPlayerY<br /> JSR UpdatePlayerScoreAndBonus<br /> LDA PlayerWasGladiator<br /> BEQ WhichBirdWasHigher<br /> LDA #$00<br /> STA PlayerWasGladiator<br /> LDA GameObjectYCoordHi,Y<br /> CLC<br /> ADC #$04<br /> STA Temp5E<br /> LDA GameObjectXCoordHi,Y<br /> CLC<br /> ADC #$0E<br /> STA Temp5F<br /> LDA #$05<br /> STA Temp60ScoreAdd<br /> JSR CreateScorePopupAtObjectLocation<br /> JMP WhichBirdWasHigher<br /> <br /> PlayerXLosesJoustToPlayerY<br /> TXA<br /> PHA<br /> TYA<br /> TAX<br /> JSR UpdatePlayerScoreAndBonus<br /> LDA PlayerWasGladiator<br /> BEQ PlayerYWinsJoustVsPlayerX<br /> LDA #$00<br /> STA PlayerWasGladiator<br /> LDA GameObjectYCoordHi,X<br /> CLC<br /> ADC #$04<br /> STA Temp5E<br /> LDA GameObjectXCoordHi,X<br /> CLC<br /> ADC #$0E<br /> STA Temp5F<br /> LDA #$05<br /> STA Temp60<br /> JSR CreateScorePopupAtObjectLocation<br /> PlayerYWinsJoustVsPlayerX<br /> PLA<br /> TAX<br /> WhichBirdWasHigher<br /> LDA GameObjectYCoordHi,X<br /> CMP GameObjectYCoordHi,Y<br /> BCS JoustLoserIdentified<br /> TYA<br /> TAX<br /> JoustLoserIdentified<br /> CPX #$02<br /> BCS PlayerKilledEnemyBird<br /> JSR StartPlayerDeath<br /> PLA<br /> TAX<br /> JMP BirdsHaveBounced<br /> PlayerKilledEnemyBird<br /> TYA<br /> PHA<br /> JSR ConvertKilledBirdToEgg<br /> LDA ObjectBirdLevelAndType,X<br /> BNE CheckIfKilledBirdIsHunter<br /> LDA #$00<br /> STA Temp61ScoreAdd<br /> LDA #$50<br /> JMP StoreCalculatedScoreValue<br /> CheckIfKilledBirdIsHunter<br /> CMP #$01<br /> BNE CalculateShadowLordKillScore<br /> LDA #$01<br /> STA Temp61ScoreAdd<br /> LDA #$00<br /> JMP StoreCalculatedScoreValue<br /> SetDefaultKillScore<br /> LDA #$00<br /> STA Temp61ScoreAdd<br /> LDA #$05<br /> JMP StoreCalculatedScoreValue<br /> CalculateShadowLordKillScore<br /> CMP #$02<br /> BNE SetDefaultKillScore<br /> LDA #$01<br /> STA Temp61ScoreAdd<br /> LDA #$50<br /> StoreCalculatedScoreValue<br /> STA Temp62ScoreAdd<br /> PLA<br /> TAX<br /> JSR UpdatePlayerScoreAndBonus<br /> PLA<br /> TAX<br /> JMP BirdsHaveBounced<br /> <br /> ;------------------------------------------------------------------------------<br /> ; CheckPlayerEggCollision<br /> ; Iterates through all egg objects and checks for collision with a player bird.<br /> ; Handles egg pickup, scoring, and sound effects.<br /> ; Input: X = Player object index<br /> ;------------------------------------------------------------------------------<br /> CheckPlayerEggCollision<br /> LDY #$0D<br /> CheckPlayerEggCollisionLoop<br /> LDA.w GameObjectState,Y<br /> BEQ SkipThisEggCheck<br /> JSR GameObjCollisionDetection ; carry is clear on collision<br /> BCC PlayerPickedUpAnEgg<br /> LDA GameObjectInAir,X<br /> BNE CheckAirbornePlayerEggCollision<br /> LDA GameObjectYCoordHi,Y<br /> STA Temp63<br /> SEC<br /> SBC #$05<br /> STA GameObjectYCoordHi,Y<br /> JSR GameObjCollisionDetection ; carry is clear on collision<br /> BCC PlayerPickedUpAnEgg<br /> LDA Temp63<br /> STA GameObjectYCoordHi,Y<br /> JMP SkipThisEggCheck<br /> CheckAirbornePlayerEggCollision<br /> LDA.w GameObjectState,Y<br /> CMP #$04<br /> BNE SkipThisEggCheck<br /> LDA GameObjectYCoordHi,Y<br /> STA Temp63<br /> SEC<br /> SBC #$03<br /> STA GameObjectYCoordHi,Y<br /> JSR GameObjCollisionDetection ; carry is clear on collision<br /> BCC PlayerPickedUpAnEgg<br /> LDA GameObjectXCoordHi,Y<br /> STA Temp64<br /> CLC<br /> ADC #$04<br /> STA GameObjectXCoordHi,Y<br /> JSR GameObjCollisionDetection ; carry is clear on collision<br /> BCC PlayerPickedUpAnEgg<br /> LDA Temp63<br /> STA GameObjectYCoordHi,Y<br /> JSR GameObjCollisionDetection ; carry is clear on collision<br /> BCC PlayerPickedUpAnEgg<br /> LDA Temp64<br /> STA GameObjectXCoordHi,Y<br /> SkipThisEggCheck<br /> INY<br /> CPY #$19<br /> BEQ AllEggsChecked<br /> JMP CheckPlayerEggCollisionLoop<br /> AllEggsChecked<br /> RTS<br /> <br /> PlayerPickedUpAnEgg<br /> LDA #SFX_PickupEgg<br /> JSR ScheduleSFX<br /> LDA.w GameObjectState,Y<br /> CMP #$03<br /> BEQ DecrementEnemyCountForHatchingEggPickup<br /> CMP #$02<br /> BNE HandleEggPickupState<br /> DecrementEnemyCountForHatchingEggPickup<br /> DEC EnemyBirdCount<br /> HandleEggPickupState<br /> CMP #$04<br /> BNE ClearPickedUpEggState<br /> STX Temp65<br /> LDX GameObjectHunterIndex,Y<br /> LDA #$05<br /> STA GameObjectState,X<br /> LDA #$01<br /> STA GameObjectTimerResetValue,X<br /> LDX Temp65<br /> ClearPickedUpEggState<br /> LDA #$00<br /> STA.w GameObjectState,Y<br /> DEC EggsPresentCount<br /> BNE CalculateEggPickupScore<br /> LDA EnemyBirdCount<br /> BNE CalculateEggPickupScore<br /> JSR SetupNextLevel<br /> CalculateEggPickupScore<br /> LDA GameObjectDirection,Y<br /> BEQ CalculateScoreForEggPickup<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$08<br /> STA Temp5E<br /> LDA GameObjectXCoordHi,Y<br /> STA Temp5F<br /> LDA #$04<br /> STA Temp60ScoreAdd<br /> JSR CreateScorePopupAtObjectLocation<br /> LDA #$00<br /> STA Temp61ScoreAdd<br /> LDA #$50<br /> STA Temp62ScoreAdd<br /> JSR UpdatePlayerScoreAndBonus<br /> CalculateScoreForEggPickup<br /> LDA GameObjectYCoordHi,Y<br /> STA Temp5E<br /> LDA GameObjectXCoordHi,Y<br /> STA Temp5F<br /> LDA P0EggPointLevel,X<br /> STA Temp60ScoreAdd<br /> JSR CreateScorePopupAtObjectLocation<br /> LDA P0EggPointLevel,X<br /> TAY<br /> LDA NextEggPointLevelLUT,Y<br /> STA P0EggPointLevel,X<br /> LDA EggPointLevelScoreHiLUT,Y<br /> STA Temp61ScoreAdd<br /> LDA EggPointLevelScoreLoLUT,Y<br /> STA Temp62ScoreAdd<br /> JMP UpdatePlayerScoreAndBonus<br /> <br /> NextEggPointLevelLUT<br /> .byte $01,$02,$03,$03<br /> <br /> ; Consecutive egg pickups score 250,500,750,1000,1000,1000...<br /> EggPointLevelScoreHiLUT<br /> .byte &gt;$0025,&gt;$0050,&gt;$0075,&gt;$0100<br /> EggPointLevelScoreLoLUT<br /> .byte &lt;$0025,&lt;$0050,&lt;$0075,&lt;$0100<br /> <br /> ;------------------------------------------------------------------------------<br /> ; ProcessBirdPlatformInteraction<br /> ; Handles all physics and state changes for a bird object (index in X)<br /> ; related to its interaction with platforms.<br /> ;<br /> ; This routine has two main paths:<br /> ; 1. On-Platform Logic: If the bird is on a platform (InAir flag is false),<br /> ; it checks for proximity to edges, handles skidding, and can initiate a fall.<br /> ; 2. Airborne Logic: If the bird is airborne (InAir flag is true), it checks<br /> ; for collisions with platforms, which can result in landing, bouncing, or<br /> ; a &quot;skip&quot; across the surface.<br /> ;------------------------------------------------------------------------------<br /> ProcessBirdPlatformInteraction<br /> LDA GameObjectInAir,X ; Is the bird currently airborne?<br /> BNE BirdIsAirborne_CheckForCollision ; If yes, branch to airborne logic path.<br /> <br /> ; --- On-Platform Logic ---<br /> JSR CheckIfBirdNearPlatformEdge ; Check for proximity to a platform edge.<br /> LDA Temp60 ; Load the result of the edge check.<br /> BNE OnPlatform_EdgeOrSideDetected ; If non-zero, an edge was detected.<br /> <br /> ; Bird is on a platform but not near an edge.<br /> LDA GameObjectSkidDirection,X ; Is the bird currently skidding?<br /> BEQ BirdNotSkidding1 ; If not, proceed to check if it should fall.<br /> JSR ClearSkidStateAndSound ; If it is skidding (but not near an edge), clear the skid state.<br /> BirdNotSkidding1<br /> JMP CheckIfBirdIsUnsupportedAndShouldFall ; Check if bird is on a valid platform spot, otherwise fall.<br /> <br /> OnPlatform_EdgeOrSideDetected<br /> JSR SelectCollisionPointsAndCheckPlatform ; Perform a more detailed platform collision check.<br /> CMP #$08 ; Is the collision type a side impact?<br /> BEQ OnPlatform_BounceOffSide ; If yes, handle bouncing off the side.<br /> RTS ; Otherwise, no action needed this frame.<br /> <br /> OnPlatform_BounceOffSide<br /> INC GameObjectXCoordHi,X ; Nudge the bird slightly away from the platform.<br /> LDA #SFX_BirdPlatformBounce ; Schedule the bounce sound effect.<br /> JSR ScheduleSFX<br /> LDA GameObjectXVelocity,X ; Reverse X-velocity.<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectXVelocity,X<br /> LDA GameObjectDirection,X ; Reverse facing direction.<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectDirection,X<br /> LDA GameObjectSkidDirection,X ; Reverse skid direction if skidding.<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectSkidDirection,X<br /> RTS<br /> <br /> ; --- Airborne Logic ---<br /> BirdIsAirborne_CheckForCollision<br /> JSR SelectCollisionPointsAndCheckPlatform ; Check for collision with any platform.<br /> BEQ Airborne_NoCollision_ClearSkipState ; If no collision, clear skip state and continue.<br /> BMI Airborne_HandleLanding ; If result is negative, it's a landing on top of a platform.<br /> CMP #$01<br /> BEQ Airborne_CheckForPlatformSkip ; A result of 1 or 8 indicates a shallow landing or side hit.<br /> CMP #$08<br /> BEQ Airborne_CheckForPlatformSkip<br /> JMP CheckIfBirdIsUnsupportedAndShouldFall ; For other collision types, check if it should fall.<br /> <br /> Airborne_HandleLanding<br /> LDA GameObjectPlatformSkipState,X ; Is the bird in a &quot;skip&quot; state from a previous frame?<br /> BNE CheckIfBirdIsUnsupportedAndShouldFall ; If yes, don't land yet, let it fall/continue skipping.<br /> LDA #$02 ; Set animation frame to standing/walking.<br /> STA GameObjectAnimationFrame,X<br /> LDA #$00 ; Bird is no longer in the air.<br /> STA GameObjectInAir,X<br /> STA GameObjectYVelocityHi,X ; Zero out Y-velocity.<br /> STA GameObjectYVelocityLo,X<br /> LDA GameObjectXVelocity,X ; Check X-velocity to set facing direction.<br /> BEQ Airborne_Landing_Finalize ; If stopped, branch to the JMP trampoline.<br /> BMI Airborne_Landing_FaceLeft<br /> LDA #Direction_Right ; Moving right, so face right.<br /> STA GameObjectDirection,X<br /> JMP Airborne_Landing_Finalize ; Jump to the JMP trampoline.<br /> Airborne_Landing_FaceLeft<br /> LDA #Direction_Left ; Moving left, so face left.<br /> STA GameObjectDirection,X<br /> ; Fall through to the JMP trampoline.<br /> Airborne_Landing_Finalize<br /> JMP UpdateCoordsFromTempAndExit_B ; This JMP acts as a trampoline for the short branches above.<br /> <br /> Airborne_CheckForPlatformSkip<br /> JSR CheckForShallowPlatformCollision ; Another check, possibly to confirm the nature of the shallow landing.<br /> BNE Airborne_ProcessBounce ; If it's a bounce, process it.<br /> LDA GameObjectYCoordHi,X ; Check bird's Y coordinate.<br /> CMP #$92 ; Is it above a certain height?<br /> BCS CheckIfBirdIsUnsupportedAndShouldFall ; If too low, treat as a fall.<br /> LDA #$01 ; Otherwise, initiate a &quot;skip&quot; across the platform surface.<br /> STA GameObjectPlatformSkipState,X<br /> BPL CheckIfBirdIsUnsupportedAndShouldFall ; Always branches.<br /> <br /> Airborne_NoCollision_ClearSkipState<br /> LDA #$00 ; No collision, so clear any platform skip state.<br /> STA GameObjectPlatformSkipState,X<br /> <br /> CheckIfBirdIsUnsupportedAndShouldFall<br /> LDA #$01 ; Set InAir flag to TRUE, making the bird subject to gravity.<br /> STA GameObjectInAir,X<br /> LDA GameObjectYCoordHi,X<br /> CMP #TOP_SCREEN_Y_BOUNDARY ; Has the bird hit the top of the screen?<br /> BCC Airborne_BounceOffTopScreen ; If Y &lt; boundary, it has.<br /> JSR CheckForShallowPlatformCollision ; Check for platform support again.<br /> BNE Airborne_ProcessBounce ; If a bounce condition is met, process it.<br /> JMP Exit_ProcessBirdPlatformInteraction ; Otherwise, bird is airborne and falling, exit.<br /> <br /> Airborne_BounceOffTopScreen<br /> LDA GameObjectYVelocityHi,X ; Get Y-velocity.<br /> BMI Airborne_ReverseYVelocityForBounce ; If moving up (negative), reverse it for a bounce.<br /> RTS ; If moving down, just let it fall away from the top.<br /> <br /> Airborne_ReverseYVelocityForBounce<br /> EOR #$FF ; Reverse Y-velocity to bounce down.<br /> STA GameObjectYVelocityHi,X<br /> LDA GameObjectYVelocityLo,X<br /> EOR #$FF<br /> ADC #$01<br /> STA GameObjectYVelocityLo,X<br /> RTS<br /> <br /> Airborne_ProcessBounce<br /> TAY ; A holds collision type, save in Y.<br /> BPL Airborne_Bounce_PositiveResult ; Handle different bounce types based on sign.<br /> ; Negative result: Bounce off the bottom of a platform.<br /> LDA #SFX_BirdPlatformBounce<br /> JSR ScheduleSFX<br /> LDA #$80 ; Set Y-velocity to a strong upward value.<br /> STA GameObjectYVelocityLo,X<br /> LDA #$FF<br /> STA GameObjectYVelocityHi,X<br /> JMP UpdateCoordsFromTempAndExit_B<br /> <br /> Airborne_Bounce_PositiveResult<br /> LDA #SFX_BirdPlatformBounce<br /> JSR ScheduleSFX<br /> TYA ; Restore collision type from Y.<br /> LSR<br /> BCS Airborne_Bounce_SideImpactRight ; Bit 0 set -&gt; hit right side of platform<br /> LSR<br /> BCS Airborne_Bounce_GlancingBlow ; Bit 1 set -&gt; glancing blow, small bounce<br /> LSR<br /> BCS Airborne_Bounce_GlancingBlow ; Bit 2 set -&gt; also a glancing blow<br /> ; Fall-through for other bounce types<br /> LDA GameObjectXVelocity,X<br /> BPL UpdateCoordsFromTempAndExit_B ; If moving right, no X-velocity change.<br /> EOR #$FF ; If moving left, dampen X-velocity (divide by 2).<br /> CLC<br /> ADC #$01<br /> ROR<br /> JMP Airborne_Bounce_StoreNewXVel<br /> <br /> Airborne_Bounce_SideImpactRight<br /> LDA GameObjectXVelocity,X<br /> BEQ UpdateCoordsFromTempAndExit_B ; If stopped, no change.<br /> BMI UpdateCoordsFromTempAndExit_B ; If moving left (away from impact), no change.<br /> EOR #$FF ; Moving right into platform, reverse and dampen velocity.<br /> CLC<br /> ADC #$01<br /> SEC<br /> ROR<br /> Airborne_Bounce_StoreNewXVel<br /> STA GameObjectXVelocity,X<br /> LDA GameObjectState,X<br /> CMP #State_Hit ; Is the bird in the &quot;hit&quot; state?<br /> BNE UpdateCoordsFromTempAndExit_A ; If not, just update coords.<br /> LDY ObjectBirdLevelAndType,X ; If it is, reset its AI timer to make it<br /> LDA AITimerDistantPassive_Or_ApproachAggressive_ByType,Y ; react more quickly after the bounce.<br /> STA GameObjectTimerResetValue,X<br /> STA GameObjectEventTimer1,X<br /> UpdateCoordsFromTempAndExit_A<br /> RTS<br /> <br /> Airborne_Bounce_GlancingBlow<br /> LDA #$50 ; Set Y-velocity to a moderate upward value.<br /> STA GameObjectYVelocityLo,X<br /> LDA #$00<br /> STA GameObjectYVelocityHi,X<br /> <br /> UpdateCoordsFromTempAndExit_B<br /> LDA Temp65 ; Load new X coordinate calculated by collision routine.<br /> STA GameObjectXCoordHi,X<br /> LDA Temp66 ; Load new Y coordinate.<br /> STA GameObjectYCoordHi,X<br /> <br /> Exit_ProcessBirdPlatformInteraction<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; UpdateEggPhysicsAndPlatformInteraction<br /> ; Handles physics and platform interaction specifically for an egg object.<br /> ; Input: X = Egg object index<br /> ;------------------------------------------------------------------------------<br /> UpdateEggPhysicsAndPlatformInteraction<br /> JSR SelectEggCollisionPointAndCheck<br /> BEQ EggNoPlatformCollision<br /> STA Temp5E<br /> LDA #$00<br /> STA GameObjectDirection,X<br /> LDA Temp5E<br /> BMI HandlePlatformTopCollisionEgg<br /> LSR<br /> BCS EggBounceOffRightSideOfPlatform<br /> LSR<br /> BCS NegateEggYVelocityOnBounce<br /> LSR<br /> BCS NegateEggYVelocityOnBounce<br /> LSR<br /> BCS EggAirborne_BounceOffSideOfPlatform<br /> EggNoPlatformCollision<br /> RTS<br /> <br /> EggAirborne_BounceOffSideOfPlatform<br /> LDA GameObjectXVelocity,X<br /> BMI ReverseEggXVelocityOnBounce<br /> JMP UpdateEggCoordsAfterCollision<br /> ReverseEggXVelocityOnBounce<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectXVelocity,X<br /> JMP UpdateEggCoordsAfterCollision<br /> EggBounceOffRightSideOfPlatform<br /> LDA GameObjectXVelocity,X<br /> BPL ReverseEggXVelocityOnBounce<br /> JMP UpdateEggCoordsAfterCollision<br /> NegateEggYVelocityOnBounce<br /> LDA GameObjectYVelocityHi,X<br /> BPL EggBounceYVelocityAlreadyDownward<br /> SEC<br /> LDA #$00<br /> SBC GameObjectYVelocityLo,X<br /> STA GameObjectYVelocityLo,X<br /> LDA #$00<br /> SBC GameObjectYVelocityHi,X<br /> STA GameObjectYVelocityHi,X<br /> EggBounceYVelocityAlreadyDownward<br /> LDA GameObjectXVelocity,X<br /> DecelerateBouncingEggXVelocity<br /> BMI DecelerateBouncingEggLeft<br /> DEC GameObjectXVelocity,X<br /> JMP UpdateEggCoordsAfterCollision<br /> DecelerateBouncingEggLeft<br /> INC GameObjectXVelocity,X<br /> JMP UpdateEggCoordsAfterCollision<br /> HandlePlatformTopCollisionEgg<br /> LDA GameObjectYVelocityHi,X<br /> BNE EggIsMovingBounce<br /> LDA GameObjectXVelocity,X<br /> BNE EggIsMovingBounce<br /> LDA GameObjectYVelocityLo,X<br /> CMP #$28<br /> BCC EggLandedOnPlatform<br /> EggIsMovingBounce<br /> SEC<br /> LDA #$00<br /> SBC GameObjectYVelocityLo,X<br /> STA GameObjectYVelocityLo,X<br /> LDA #$00<br /> SBC GameObjectYVelocityHi,X<br /> STA GameObjectYVelocityHi,X<br /> ROL<br /> ROR GameObjectYVelocityHi,X<br /> ROR GameObjectYVelocityLo,X<br /> LDA GameObjectXVelocity,X<br /> BNE DecelerateBouncingEggXVelocity<br /> RTS<br /> <br /> EggLandedOnPlatform<br /> LDA #$00<br /> STA GameObjectDirection,X<br /> STA ObjectWiggleAnimation,X<br /> STA GameObjectInAir,X<br /> STA GameObjectYVelocityLo,X<br /> JSR CalculateLevelDifficultyRandomTimer<br /> LDA Temp5E<br /> STA GameObjectCountdownLo,X<br /> LDA Temp5F<br /> STA GameObjectCountdownHi,X<br /> UpdateEggCoordsAfterCollision<br /> LDA Temp65<br /> STA GameObjectXCoordHi,X<br /> LDA Temp66<br /> STA GameObjectYCoordHi,X<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; SpawnPointSafetyCheck<br /> ; Checks if a spawn point is safe for a new bird to appear. It iterates through<br /> ; all other birds to see if any are too close to the target spawn point.<br /> ; Input: X = index of bird to be spawned.<br /> ; Output: Temp60 = 0 if safe, non-zero if unsafe.<br /> ;------------------------------------------------------------------------------<br /> SpawnPointSafetyCheck<br /> TXA<br /> PHA ; save X<br /> CPX #$02<br /> BCC SafetyCheckForPlayer<br /> SafetyCheckForEnemy<br /> LDX #$03<br /> JMP SafetyCheckLoop<br /> SafetyCheckForPlayer<br /> LDX #$00<br /> SafetyCheckLoop<br /> LDA SpawnPlatformDissolved0,X<br /> BEQ HandleSpawnOnDissolvedPlatform<br /> LDY #$09<br /> LDA #$00<br /> STA TempSpawnUnsafeCounter,X<br /> CheckProximityToOtherObjectsLoop<br /> LDA.w GameObjectState,Y<br /> BEQ SpawnSafetyCheckDoNextObject<br /> CMP #$05<br /> BEQ SpawnSafetyCheckDoNextObject<br /> CMP #$03<br /> BEQ SpawnSafetyCheckDoNextObject<br /> CMP #$07<br /> BEQ SpawnSafetyCheckDoNextObject<br /> CMP #$06<br /> BNE ObjectStateIsValidForProximityCheck<br /> LDA GameObjectSpawnPlatformIndex,Y<br /> STX Temp5F<br /> CMP Temp5F<br /> BNE ObjectStateIsValidForProximityCheck<br /> HandleSpawnOnDissolvedPlatform<br /> INC TempSpawnUnsafeCounter,X<br /> JMP MarkSpawnPointUnsafeAndContinueCheck<br /> ObjectStateIsValidForProximityCheck<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC PlayerRespawnY,X<br /> BPL CompareAbsoluteYDistanceToMinimum<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> CompareAbsoluteYDistanceToMinimum<br /> CMP #$1E<br /> BCS SpawnSafetyCheckDoNextObject<br /> LDA GameObjectXCoordHi,Y<br /> SEC<br /> SBC PlayerRespawnX,X<br /> BPL CompareAbsoluteXDistanceToMinimum<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> CompareAbsoluteXDistanceToMinimum<br /> CMP #$28<br /> BCS SpawnSafetyCheckDoNextObject<br /> JMP MarkSpawnPointUnsafeAndContinueCheck<br /> SpawnSafetyCheckDoNextObject<br /> DEY<br /> BPL CheckProximityToOtherObjectsLoop<br /> STX Temp60<br /> PLA<br /> TAX<br /> RTS<br /> <br /> MarkSpawnPointUnsafeAndContinueCheck<br /> PLA<br /> PHA<br /> CMP #$02<br /> BCS SafetyCheckLoop_Player<br /> INX<br /> CPX #$04<br /> BCC SafetyCheckLoop<br /> JMP MarkSpawnPointUnsafeAndExit<br /> SafetyCheckLoop_Player<br /> DEX<br /> BPL SafetyCheckLoop<br /> MarkSpawnPointUnsafeAndExit<br /> LDA #$FF<br /> STA Temp60<br /> PLA<br /> TAX<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; SetupEggWave<br /> ; Initializes all egg objects for an Egg Wave. It randomly places eggs on<br /> ; available platforms, ensuring they are not too clustered.<br /> ;------------------------------------------------------------------------------<br /> SetupEggWave<br /> LDA #$00<br /> STA EnemyBirdCount<br /> LDA #$07<br /> TAX<br /> LDY #$0C<br /> STY EggsPresentCount<br /> DEY<br /> ; this is the start of the random egg placement code.<br /> JSR ReturnRandInA<br /> GetNewEggPosition<br /> STX Temp64<br /> CMP NewEggXMaximum,X<br /> BCC EggXRangeFitsPlatform<br /> GetNewEggPositionLoop<br /> LDX Temp64<br /> JSR ReturnRandInA<br /> DEX<br /> BPL GetNewEggPosition<br /> LDX #$07<br /> JMP GetNewEggPosition<br /> EggXRangeFitsPlatform<br /> CLC ; The width of the random X range used fits<br /> ADC NewEggXOffset,X ; the platform width, so we just need to add<br /> STA EggX,Y ; to EggX to reach the X of the platform.<br /> LDA NewEggYCoordinate,X<br /> STA EggY,Y<br /> CPY #$0B ; first egg? if so then skip<br /> BEQ EggLocationValidationDone ; egg position validation<br /> <br /> EggLocationValidation<br /> ; We first ensure that no more than 5 eggs already exist on the same<br /> ; platform. Otherwise we fetch new egg coordinates.<br /> LDA #$05<br /> STA Temp65<br /> LDX #$0B<br /> LDA EggY,Y<br /> EggYCountCheckLoop<br /> CMP EggY,X<br /> BNE EggNotAtSameY1<br /> DEC Temp65<br /> BEQ GetNewEggPositionLoop<br /> EggNotAtSameY1<br /> DEX<br /> STX Temp66<br /> CPY Temp66 ; only check eggs up until the current one<br /> BNE EggYCountCheckLoop<br /> <br /> ; Now we ensure that our egg is at least 5 pixels away from any other<br /> ; eggs on the same platform. Otherwise we fetch new egg coordinates.<br /> LDX #$0B<br /> EggDistanceCheckLoop<br /> LDA EggY,Y<br /> CMP EggY,X<br /> BNE EggNotAtSameY2<br /> LDA EggX,Y<br /> SEC<br /> SBC EggX,X ; Distance is OurEggX - ThisEggX<br /> BPL SkipDistanceInversion<br /> ; if we have a negative distance, we need to invert it (A=255-A)<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> SkipDistanceInversion<br /> CMP #$05<br /> BCC GetNewEggPositionLoop<br /> EggNotAtSameY2<br /> DEX<br /> STX Temp66<br /> CPY Temp66<br /> BNE EggDistanceCheckLoop<br /> <br /> EggLocationValidationDone<br /> LDA EggWaveEnemyType<br /> STA EggLevelAndType,Y<br /> LDA #$01<br /> STA.w EggState,Y<br /> JSR CalculateLevelDifficultyRandomTimer<br /> LDA Temp5E<br /> STA $232E,Y<br /> LDA Temp5F<br /> STA $2315,Y<br /> LDA #$00<br /> STA $2347,Y<br /> STA $221B,Y<br /> STA $227F,Y<br /> STA $22CA,Y<br /> STA $22FC,Y<br /> STA $2298,Y<br /> STA $22B1,Y<br /> DEY<br /> BMI ExitEggWaveSetup<br /> JMP GetNewEggPositionLoop<br /> ExitEggWaveSetup<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; CalculateLevelDifficultyRandomTimer<br /> ; Calculates a 16-bit random timer value influenced by game level and difficulty.<br /> ; Used for Pterodactyl appearance delays and egg hatching countdowns.<br /> ; The final timer is primarily based on a random value plus difficulty-scaled<br /> ; additions, with an initial offset to the high byte determined by the level.<br /> ; Outputs: Temp5E (Lo), Temp5F (Hi)<br /> ;------------------------------------------------------------------------------<br /> CalculateLevelDifficultyRandomTimer<br /> TXA ; Preserve X register<br /> PHA<br /> TYA ; Preserve Y register<br /> PHA<br /> <br /> LDA #InitialTimerHiByteValue ; Initialize high byte of timer<br /> STA Temp5F ; Temp5F will act as the high byte accumulator<br /> <br /> ; Calculate loop counter for difficulty-based additions.<br /> ; Loop runs (DifficultyLoopCounterBase - Difficulty + 1) times.<br /> LDA #DifficultyLoopCounterBase<br /> SEC<br /> SBC Difficulty ; A = DifficultyLoopCounterBase - Difficulty<br /> TAX ; X will be the loop counter (0 to 3)<br /> <br /> ; Calculate an 8-bit term based on the current level.<br /> LDA #TimerLevelCalcBaseValue<br /> SEC<br /> SBC Level ; A = TimerLevelCalcBaseValue - Level<br /> <br /> ; Multiply this level-based term by 8 (ASL A three times).<br /> ; The carry from the third ASL (representing bit 8 of an 9-bit result)<br /> ; is added to Temp5F (timer high byte). The 8 LSBs in A are then discarded.<br /> ASL ; A = A * 2<br /> ASL ; A = A * 4<br /> ASL ; A = A * 8. Carry C holds the 9th bit.<br /> BCC CalculateTimer_LevelComponentDone ; If C=0, no carry into 9th bit.<br /> INC Temp5F ; C=1, (LevelTerm*8) overflowed 8 bits. Add to TimerHi.<br /> <br /> CalculateTimer_LevelComponentDone<br /> <br /> ; A currently holds (TimerLevelCalcBaseValue - Level)*8 AND $FF. This value is about to be overwritten.<br /> ; Temp5F holds 0 or 1 based on the carry from the above calculation.<br /> <br /> JSR ReturnRandInA ; A = RandomByte<br /> ; The subsequent ADC loop will start with this random byte as the LSB,<br /> ; and Temp5F as the initial MSB.<br /> CalculateTimer_DifficultyLoop ; Loop (X+1) times, adding to the (Temp5F,A) 16-bit value.<br /> ADC #RandomTimerLoopAddend ; A = A + RandomTimerLoopAddend + CarryFromPreviousADC (initially 0 for first ADC)<br /> BCC CalculateTimer_EndLoopIter ; If no carry from ADC to high byte<br /> INC Temp5F ; Add carry to high byte of timer<br /> CalculateTimer_EndLoopIter<br /> DEX ; Decrement difficulty-based loop counter<br /> BPL CalculateTimer_DifficultyLoop ; Loop if X &gt;= 0<br /> <br /> STA Temp5E ; Store final low byte of timer in Temp5E<br /> <br /> PLA ; Restore Y register<br /> TAY<br /> PLA ; Restore X register<br /> TAX<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; RunPterryCountdown<br /> ; Main logic for managing the Pterodactyl appearance timer and spawning.<br /> ;------------------------------------------------------------------------------<br /> RunPterryCountdown<br /> LDA Difficulty<br /> BEQ RunPterryCountdownExit<br /> LDA PterryAliveCount<br /> CMP #$03 ; 3 Pterrys max<br /> BEQ RunPterryCountdownExit<br /> SEC<br /> LDA PterryCountdownLo<br /> SBC #$01<br /> STA PterryCountdownLo<br /> LDA PterryCountdownHi<br /> BMI CheckForLiveEnemyBirds<br /> SBC #$00<br /> STA PterryCountdownHi<br /> BMI CheckForLiveEnemyBirds<br /> RTS<br /> <br /> DelayPterry<br /> INC PterryCountdownLo<br /> RunPterryCountdownExit<br /> RTS<br /> <br /> CheckForLiveEnemyBirds<br /> LDX #$09 ; last bird object<br /> CheckForLiveEnemyBirdsLoop<br /> LDA GameObjectState,X<br /> CMP #$07 ; if a bird is being born2...<br /> BEQ DelayPterry ; ...delay spawning a pterry.<br /> CMP #$06 ; if a bird is transporting-in...<br /> BEQ DelayPterry ; ...delay spawning a pterry.<br /> CMP #$03 ; if a bird is being born1...<br /> BEQ DelayPterry ; ...delay spawning a pterry.<br /> DEX ; Check another Enemy bird object so long<br /> CPX #$02 ; as we haven't reached the player birds.<br /> BCS CheckForLiveEnemyBirdsLoop<br /> <br /> LDA #SFX_PterryCharging<br /> JSR ScheduleSFX<br /> INC PterryAliveCount<br /> LDX #$0A<br /> FindDeadPterryLoop<br /> LDA GameObjectState,X<br /> BEQ InitializeNewPterryObject<br /> INX<br /> CPX #$0D<br /> BCC FindDeadPterryLoop<br /> PterrySpawnFailCrashLoop<br /> BCS PterrySpawnFailCrashLoop ; crash loop, but shouldn't ever trigger<br /> InitializeNewPterryObject<br /> LDA #$0A ; Normal Pterry state<br /> STA GameObjectState,X<br /> LDA #$04<br /> STA ObjectBirdLevelAndType,X<br /> LDA #$00<br /> STA GameObjectYVelocityHi,X<br /> STA GameObjectYVelocityLo,X<br /> LDA #$03<br /> STA GameObjectAnimationCounter,X<br /> LDA #$02<br /> STA GameObjectAnimationFrame,X<br /> LDA #$FA<br /> STA GameObjectChargingTimer,X<br /> LDA #$02<br /> STA GameObjectAITimerLo,X<br /> JSR SetPterryInitialSpawnParameters<br /> CPX #$0A<br /> BNE UpdatePterryRespawnTimerAndExit<br /> LDA PterryAgressionFlag<br /> CMP #$02<br /> BNE UpdatePterryRespawnTimerAndExit<br /> LDA PterryAgressionFlag+1<br /> CMP #$02<br /> BEQ ResetPterryCountdownForced<br /> UpdatePterryRespawnTimerAndExit<br /> JSR UpdatePterryRespawnTimer<br /> LSR PterryCountdownHi ; divide the pterry<br /> ROR PterryCountdownLo ; countdown by two<br /> RTS<br /> <br /> ResetPterryCountdownForced<br /> LDA #$00<br /> STA PterryCountdownHi<br /> LDA #$14<br /> STA PterryCountdownLo<br /> RTS<br /> <br /> ; Look-up table for initial Y coordinates for Pterodactyl spawn.<br /> ; Indexed by (RandomByte AND PTERRY_SPAWN_Y_COORD_MASK).<br /> PterrySpawnYCoordLUT<br /> .byte $94, $52, $52, $15<br /> <br /> ; Look-up table for initial X coordinates for Pterodactyl spawn.<br /> ; Indexed by (RandomByte AND PTERRY_SPAWN_XDIRVEL_MASK).<br /> PterrySpawnXCoordLUT<br /> .byte $15, $BA<br /> <br /> ; Look-up table for initial facing direction for Pterodactyl spawn.<br /> ; $01 = Right, $FF = Left.<br /> ; Indexed by (RandomByte AND PTERRY_SPAWN_XDIRVEL_MASK).<br /> PterrySpawnDirectionLUT<br /> .byte Direction_Right, Direction_Left<br /> <br /> ; Look-up table for initial X velocities for Pterodactyl spawn.<br /> PterrySpawnXVelocityLUT<br /> .byte $05, $FB<br /> <br /> ;------------------------------------------------------------------------------<br /> ; SetPterryInitialSpawnParameters<br /> ; Sets the initial spawn parameters for a new Pterodactyl and ensures it does<br /> ; not spawn too close to a player. Re-randomizes if it's too close.<br /> ; Input: X = Pterodactyl object index<br /> ;------------------------------------------------------------------------------<br /> SetPterryInitialSpawnParameters<br /> TryNewPterrySpawnParameters<br /> JSR ReturnRandInA ; Get a random byte in A<br /> AND #PTERRY_SPAWN_Y_COORD_MASK ; Mask to get index 0-3 for Y LUT<br /> TAY ; Y = random index for Y coordinate<br /> LDA PterrySpawnYCoordLUT,Y ; Load Y coordinate<br /> STA GameObjectYCoordHi,X ; Set Pterry's initial Y<br /> <br /> JSR ReturnRandInA ; Get another random byte<br /> AND #PTERRY_SPAWN_XDIRVEL_MASK ; Mask to get index 0-1 for X/Dir/XVel LUTs<br /> TAY ; Y = random index for X, Direction, X-Velocity<br /> LDA PterrySpawnXCoordLUT,Y ; Load X coordinate<br /> STA GameObjectXCoordHi,X ; Set Pterry's initial X<br /> LDA PterrySpawnDirectionLUT,Y ; Load direction<br /> STA GameObjectDirection,X ; Set Pterry's initial direction<br /> LDA PterrySpawnXVelocityLUT,Y ; Load X-velocity<br /> STA GameObjectXVelocity,X ; Set Pterry's initial X-velocity<br /> <br /> LDY PlayerCount ; Y = number of players (0 for 1P, 1 for 2P; used as player object index)<br /> ; Player 0 is index 0, Player 1 is index 1.<br /> CheckPterrySpawnProximityToPlayerLoop<br /> ; Calculate absolute X distance to current player Y<br /> LDA GameObjectXCoordHi,X ; Pterry's X<br /> SEC<br /> SBC GameObjectXCoordHi,Y ; Pterry's X - Player Y's X<br /> BMI PterryXDistIsNegativeOrZero ; If result is negative (PlayerX &gt; PterryX)<br /> EOR #$FF ; Make positive (abs value part 1)<br /> CLC<br /> ADC #$01 ; Make positive (abs value part 2)<br /> PterryXDistIsNegativeOrZero<br /> CMP #PTERRY_MIN_SPAWN_DIST_X ; Compare |PterryX - PlayerX| with $30<br /> BCS PterrySpawnIsFarEnoughFromThisPlayer ; If dist &gt;= $30, X is okay for this player.<br /> <br /> ; X distance &lt; PTERRY_MIN_SPAWN_DIST_X, now check Y distance<br /> LDA GameObjectYCoordHi,X ; Pterry's Y<br /> SEC<br /> SBC GameObjectYCoordHi,Y ; Pterry's Y - Player Y's Y<br /> BMI PterryYDistIsNegativeOrZero ; If result is negative (PlayerY &gt; PterryY)<br /> EOR #$FF ; Make positive (abs value part 1)<br /> PterryYDistIsNegativeOrZero ; Note: CLC ADC #$01 for abs value missing if BMI not taken.<br /> ; However, since we only care about CMP &lt; $20, a large positive<br /> ; (if PterryY &gt; PlayerY) will correctly fail the BCC.<br /> ; If PterryY &lt; PlayerY, BMI is taken, and it becomes positive small.<br /> CMP #PTERRY_MIN_SPAWN_DIST_Y ; Compare |PterryY - PlayerY| with $20<br /> BCC SetPterryInitialSpawnParameters ; If dist &lt; $20, Pterry is too close. Re-randomize.<br /> <br /> PterrySpawnIsFarEnoughFromThisPlayer<br /> DEY ; Next player index (from PlayerCount down to -1)<br /> BPL CheckPterrySpawnProximityToPlayerLoop ; If Y &gt;= 0, check next player.<br /> <br /> RTS ; Pterry spawn position is okay for all players.<br /> <br /> ;------------------------------------------------------------------------------<br /> ; RunPterryProcessing<br /> ; Main routine to update the state and behavior of a Pterodactyl object.<br /> ; This is a state machine handling its movement, AI, and collision.<br /> ; Input: X = Pterodactyl object index<br /> ;------------------------------------------------------------------------------<br /> RunPterryProcessing<br /> LDA GameObjectState,X<br /> BNE PterryIsAliveAndNotDeadState<br /> JMP ExitPterryProcessing_NoAction ; If state is 0 (dead), do nothing<br /> <br /> PterryIsAliveAndNotDeadState<br /> CMP #PterryState_DefeatedVisual ; Is Pterry in its &quot;defeated&quot; visual effect state ($0D)?<br /> BNE PterryNotInDefeatedVisualState ; If not, proceed to normal state processing<br /> <br /> ; Pterry is in &quot;defeated&quot; visual state (e.g., spinning off screen)<br /> DEC GameObjectXCoordLo,X ; Update sub-pixel X for visual effect<br /> BEQ PterryDefeatedVisual_UpdateY_And_Frame ; If XCoordLo wrapped, update Y and frame<br /> RTS ; Otherwise, visual effect continues<br /> <br /> PterryDefeatedVisual_UpdateY_And_Frame<br /> INC GameObjectAnimationFrame,X ; Advance animation frame for defeat visual<br /> DEC GameObjectYCoordLo,X ; Update sub-pixel Y for visual effect<br /> BEQ PterryDefeatedVisual_FullyOffscreen ; If YCoordLo wrapped, Pterry is gone<br /> LDA #$0A ; Reset XCoordLo for next part of visual effect<br /> STA GameObjectXCoordLo,X<br /> RTS<br /> <br /> PterryDefeatedVisual_FullyOffscreen<br /> LDA #State_Dead ; Pterry is now fully dead and off-screen<br /> STA GameObjectState,X<br /> DEC PterryAliveCount ; Decrement count of active Pterodactyls<br /> LDA #$01 ; Flag related to Pterry state or scoring?<br /> STA PterryDefeatedFlag,X ; Store this flag (unknown purpose, maybe related to next Pterry spawn timing)<br /> LDA GameObjectYCoordHi,X ; Store Pterry's last Y position<br /> STA TempPterryCoordY<br /> LDA GameObjectXCoordHi,X ; Store Pterry's last X position<br /> STA TempPterryCoordX<br /> LDA #$03<br /> STA TempPterryScoreValue<br /> JMP CreateScorePopupAtObjectLocation ; Create a score popup<br /> <br /> PterryNotInDefeatedVisualState<br /> JSR CheckPterryPlatformCollision ; Returns collision type in A, Temp65/Temp66 updated with new coords if bounced<br /> BEQ PterryNoPlatformCollision ; If A is 0, no collision or standard fall-through<br /> BMI PterryHitPlatform_MoveUp ; If A is negative, hit bottom of platform, bounce up<br /> <br /> ; Pterry hit side or top of platform (A is positive)<br /> CLC<br /> LSR ; A = A / 2 (collision type to direction/action bits)<br /> BCS PterryHitPlatform_FaceLeftAndReverseXVel ; Bit 0 set: hit right side<br /> LSR ; A = A / 2<br /> BCS PterryHitPlatform_MoveDownSlightly ; Bit 1 set: hit top, shallow bounce<br /> LSR ; A = A / 2<br /> BCS PterryHitPlatform_MoveDownSlightly ; Bit 2 set: hit top, shallow bounce (alternative condition)<br /> LSR ; A = A / 2<br /> BCC PterryNoPlatformCollision ; Bit 3 clear: no significant horizontal reaction needed<br /> <br /> ; Bit 3 set: hit left side<br /> LDA #Direction_Right ; Change direction to right<br /> STA GameObjectDirection,X<br /> LDA GameObjectXVelocity,X ; Reverse X velocity<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectXVelocity,X<br /> JMP PterryPlatformCollision_FinalizeBounce<br /> <br /> PterryHitPlatform_MoveDownSlightly ; Hit top of platform, shallow bounce down<br /> LDA GameObjectYCoordHi,X<br /> SEC<br /> SBC #$02 ; Move Pterry down slightly (adjust Y coord up on screen)<br /> STA GameObjectYCoordHi,X<br /> JMP PterryPlatformCollision_FinalizeBounce<br /> <br /> PterryHitPlatform_MoveUp ; Hit bottom of platform, bounce up<br /> LDA GameObjectYCoordHi,X<br /> CLC<br /> ADC #$02 ; Move Pterry up slightly (adjust Y coord down on screen)<br /> STA GameObjectYCoordHi,X<br /> JMP PterryPlatformCollision_FinalizeBounce<br /> <br /> PterryHitPlatform_FaceLeftAndReverseXVel ; Hit right side of platform<br /> LDA #Direction_Left ; Change direction to left<br /> STA GameObjectDirection,X<br /> LDA GameObjectXVelocity,X ; Reverse X velocity<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectXVelocity,X<br /> ; Fall through to PterryPlatformCollision_FinalizeBounce<br /> <br /> PterryPlatformCollision_FinalizeBounce ; Common code after platform collision<br /> LDA #SFX_BirdPlatformBounce ; Pterry uses bird bounce sound for platforms<br /> JSR ScheduleSFX<br /> LDA Temp65 ; Temp65 holds adjusted X from CheckPterryPlatformCollision<br /> STA GameObjectXCoordHi,X<br /> LDA Temp66 ; Temp66 holds adjusted Y from CheckPterryPlatformCollision<br /> STA GameObjectYCoordHi,X<br /> <br /> PterryNoPlatformCollision ; No platform collision or handled above<br /> JSR UpdateAirborneObjectPhysics ; Apply standard airborne physics (gravity, X/Y movement)<br /> <br /> CheckPterryStateAfterPhysics<br /> LDA GameObjectState,X<br /> CMP #PterryState_Leaving ; Is Pterry leaving the screen?<br /> BNE CheckPterryState_NormalOrCharging<br /> JSR SetPterryVelocityForChargingScreen ; Set fast velocity<br /> JSR AdjustBirdYBasedOnAltitude ; Fine-tune Y velocity for leaving<br /> JMP UpdatePterryTargetingAndVerticalVelocity_Main ; Further Y velocity adjustments and animation<br /> <br /> CheckPterryState_NormalOrCharging<br /> CMP #PterryState_Normal ; If Pterry is normal do his regular logic<br /> BEQ HandlePterryNormalStateLogic<br /> <br /> ; Pterry must be in Charging state ($0B)<br /> LDA GameObjectChargingTimer,X ; Check charging timer<br /> BEQ PterryChargeTimerExpired<br /> DEC GameObjectChargingTimer,X ; Decrement charging timer<br /> JMP ExitPterryProcessing_NoAction ; Continue charging<br /> <br /> PterryChargeTimerExpired<br /> LDA #PterryState_Normal ; Charge finished, switch to normal state<br /> STA GameObjectState,X<br /> LDA #$FA ; Reset timer for next charge cycle (long delay)<br /> STA GameObjectChargingTimer,X<br /> <br /> ; Set velocity back to normal Pterry speed<br /> LDA GameObjectDirection,X<br /> BPL SetPterryNormalVelocity_RightFacing<br /> LDA #$00 ; Why? This could have just been LDA #$FD. :|<br /> SEC ; Maybe the velocity was originally a variable<br /> SBC #$03 ; instead of a constant.<br /> JMP SetPterryNormalVelocity_Store<br /> SetPterryNormalVelocity_RightFacing<br /> LDA #$03 ; Normal speed right<br /> SetPterryNormalVelocity_Store<br /> STA GameObjectXVelocity,X<br /> ExitPterryProcessing_NoAction<br /> RTS<br /> <br /> HandlePterryNormalStateLogic<br /> LDA GameObjectChargingTimer,X ; Timer before Pterry starts charging<br /> BEQ PterryStartChargingSequence<br /> DEC GameObjectChargingTimer,X<br /> JMP ProcessPterryAIAndAnimation<br /> <br /> PterryStartChargingSequence<br /> LDA #SFX_PterryCharging<br /> JSR ScheduleSFX<br /> LDA #PterryState_Charging ; Switch to charging state<br /> STA GameObjectState,X<br /> LDA #$02 ; Initial animation frame for charging<br /> STA GameObjectAnimationFrame,X<br /> LDA #$03 ; Initial animation counter for charging<br /> STA GameObjectAnimationCounter,X<br /> LDA #$00 ; Zero out Y velocity when starting charge<br /> STA GameObjectYVelocityHi,X<br /> STA GameObjectYVelocityLo,X<br /> LDA #$5A ; Duration of the charge<br /> STA GameObjectChargingTimer,X<br /> ; Fall through to SetPterryVelocityForChargingScreen<br /> <br /> SetPterryVelocityForChargingScreen<br /> LDA GameObjectDirection,X<br /> BPL SetPterryChargeVelocity_RightFacing<br /> LDA #$00 ; Again, this could have been LDA #$FB<br /> SEC ; since all of the values are constants,<br /> SBC #$05 ; instead of subtracting.<br /> JMP SetPterryChargeVelocity_Store<br /> SetPterryChargeVelocity_RightFacing<br /> LDA #$05 ; Charge speed right<br /> SetPterryChargeVelocity_Store<br /> STA GameObjectXVelocity,X<br /> RTS<br /> <br /> ProcessPterryAIAndAnimation<br /> LDA GameObjectAITimerLo,X ; Low byte of AI decision timer<br /> BEQ PterryAITimerExpired_MakeDecision<br /> DEC GameObjectAITimerLo,X<br /> LDA PterryYVelocityZero ; Set Y velocity to 0 (ROM const $00)<br /> JMP UpdatePterryTargetingAndVerticalVelocity_Main<br /> <br /> PterryAITimerExpired_MakeDecision<br /> LDA #$02 ; Reset AI action timer low byte<br /> STA GameObjectAITimerLo,X<br /> JSR FindBestTargetForGameObject ; Find a player target<br /> LDY GameObjectPreyIndex,X ; Y = index of targeted player<br /> BMI PterryNoValidTarget_AdjustYVel ; If no target (or target invalid), just adjust Y based on altitude<br /> <br /> ; Target acquired, adjust Y velocity to intercept<br /> LDA GameObjectYCoordHi,Y ; Target's Y<br /> CLC<br /> ADC #$02 ; Add slight offset to target Y (aim slightly below target)<br /> CMP GameObjectYCoordHi,X ; Compare with Pterry's Y<br /> BCS PterryTargetIsLowerOrSame_FlyDown ; If Pterry is above target (TargetY &gt;= PterryY), fly down<br /> <br /> ; Pterry is below target, needs to fly up<br /> CLC<br /> ADC #$01 ; Add a bit more to make comparison for &quot;slightly up&quot;<br /> CMP GameObjectYCoordHi,X<br /> BCC PterryTargetIsHigher_FlyUpSlightly ; If Pterry is still significantly below, fly up slightly<br /> <br /> ; Pterry is very close vertically, fly level<br /> LDA PterryYVelocityZero<br /> JMP UpdatePterryTargetingAndVerticalVelocity_Main<br /> <br /> PterryNoValidTarget_AdjustYVel ; No target, or lost target<br /> JSR AdjustBirdYBasedOnAltitude ; Adjust Y based on general altitude zones<br /> JMP UpdatePterryTargetingAndVerticalVelocity_Main<br /> <br /> PterryTargetIsHigher_FlyUpSlightly<br /> LDA PterryYVelocitySlightUp ; Set Y velocity to slight up (ROM const $FF)<br /> JMP UpdatePterryTargetingAndVerticalVelocity_Main<br /> <br /> PterryTargetIsLowerOrSame_FlyDown<br /> LDA PterryYVelocitySlightDown ; Set Y velocity to slight down (ROM const $01)<br /> ; Fall through to UpdatePterryTargetingAndVerticalVelocity_Main<br /> <br /> UpdatePterryTargetingAndVerticalVelocity_Main<br /> STA GameObjectYVelocityHi,X ; Store determined Y velocity<br /> <br /> LDA GameObjectAnimationDelay,X ; Check animation delay timer<br /> BEQ PterryAnimationDelay_Expired<br /> DEC GameObjectAnimationDelay,X<br /> RTS<br /> <br /> PterryAnimationDelay_Expired<br /> LDY GameObjectAnimationCounter,X ; Get current animation sequence counter<br /> LDA PterryFrameIndexAdjustmentLUT,Y ; Get frame adjustment based on counter<br /> CLC<br /> ADC GameObjectAnimationFrame,X ; Add to current animation frame<br /> STA GameObjectAnimationFrame,X ; Store new frame<br /> DEC GameObjectAnimationCounter,X ; Decrement animation sequence counter<br /> BPL SkipPterryAnimCounterWrap<br /> LDA #$03 ; Wrap counter if it went negative<br /> STA GameObjectAnimationCounter,X<br /> SkipPterryAnimCounterWrap<br /> LDA #$04 ; Reset animation delay timer<br /> STA GameObjectAnimationDelay,X<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Player vs Pterodactyl Collision<br /> ; Input: X = Player index<br /> ;------------------------------------------------------------------------------<br /> HandlePlayerVsPterry<br /> LDY #$0C<br /> PlayerVsPterryCollisionLoop<br /> LDA.w GameObjectState,Y<br /> BEQ CheckNextPterryForCollision<br /> CMP #$0D<br /> BEQ CheckNextPterryForCollision<br /> JSR GameObjCollisionDetection ; returns carry is clear on collision<br /> BCC PlayerVsPterryDetermineJoustWinner<br /> CheckNextPterryForCollision<br /> DEY<br /> CPY #$0A<br /> BCS PlayerVsPterryCollisionLoop<br /> RTS<br /> <br /> PlayerVsPterryDetermineJoustWinner<br /> ; Collision occurred. Check vertical alignment to see who wins.<br /> LDA GameObjectYCoordHi,Y<br /> STA Temp5E<br /> DEC Temp5E<br /> DEC Temp5E<br /> LDA GameObjectYCoordHi,X<br /> CMP Temp5E<br /> BEQ PterryAndPlayerSameHeight ; Player is slightly above Pterry<br /> INC Temp5E<br /> CMP Temp5E<br /> BEQ PterryAndPlayerSameHeight ; Player is level with Pterry<br /> INC Temp5E<br /> CMP Temp5E<br /> BEQ PterryAndPlayerSameHeight ; Player is slightly below Pterry<br /> JMP StartPlayerDeath ; Player is too low, player dies<br /> <br /> PterryAndPlayerSameHeight<br /> LDA GameObjectDirection,X<br /> CMP GameObjectDirection,Y<br /> BNE PlayerJoustedPterry<br /> JMP StartPlayerDeath ; Player wasn't facing pterry, player dies<br /> <br /> PlayerJoustedPterry<br /> LDA GameObjectDirection,X<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectDirection,X<br /> LDA #$00<br /> STA GameObjectXVelocity,X<br /> STA GameObjectXVelocity,Y<br /> LDA #SFX_PterryDefeated<br /> JSR ScheduleSFX<br /> LDA #$0D<br /> STA.w GameObjectState,Y<br /> LDA #$02<br /> STA GameObjectYCoordLo,Y<br /> LDA #$0A<br /> STA GameObjectXCoordLo,Y<br /> LDA #$03<br /> STA GameObjectAnimationFrame,Y<br /> LDA #$01<br /> STA Temp61ScoreAdd<br /> LDA #$00<br /> STA Temp62ScoreAdd<br /> JMP UpdatePlayerScoreAndBonus<br /> <br /> ;------------------------------------------------------------------------------<br /> ; SetAnyPterrysToLeaving<br /> ; Sets the state of all active Pterodactyls to &quot;Leaving&quot; ($0C).<br /> ;------------------------------------------------------------------------------<br /> SetAnyPterrysToLeaving<br /> LDY #$0C<br /> STY PterryCountdownHi<br /> SetAnyPterrysToLeavingLoop<br /> LDA.w GameObjectState,Y<br /> BEQ SkipPterryLeavingUpdate ; skip if pterry is dead and gone<br /> CMP #$0D<br /> BEQ SkipPterryLeavingUpdate ; skip if pterry is offscreen<br /> LDA #$0C<br /> STA.w GameObjectState,Y<br /> SkipPterryLeavingUpdate<br /> DEY<br /> CPY #$0A<br /> BCS SetAnyPterrysToLeavingLoop<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Collision Detection Data<br /> ; These LUTs define parameters for the simplified collision detection.<br /> ;------------------------------------------------------------------------------<br /> ObjectOffsetXLUT<br /> .byte $04,$04,$04,$04,$04,$04,$04,$04,$04,$04 ; birds<br /> .byte $07,$07,$07 ; pterrys<br /> .byte $02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02,$02 ; eggs<br /> <br /> ObjectOffsetYLUT<br /> .byte $05,$06,$05,$05,$05,$05,$05,$05,$05,$05 ; birds<br /> .byte $05,$05,$05 ; pterrys<br /> .byte $03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03 ; eggs<br /> <br /> ObjectCollisionWidthLUT<br /> .byte $07,$07,$07,$07,$07,$07,$07,$07,$07,$07 ; birds<br /> .byte $0C,$0C,$0C ; pterrys<br /> .byte $05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05 ; eggs<br /> <br /> ObjectCollisionHeightLUT<br /> .byte $09,$0B,$09,$09,$09,$09,$09,$09,$09,$09 ; birds<br /> .byte $09,$09,$09 ; pterrys<br /> .byte $07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07,$07 ; eggs<br /> <br /> <br /> ;------------------------------------------------------------------------------<br /> ; GameObjCollisionDetection<br /> ; Performs a simplified Axis-Aligned Bounding Box (AABB) collision check<br /> ; between two game objects.<br /> ; Input: X = Index of the first game object.<br /> ; Y = Index of the second game object.<br /> ; Output: Carry Flag: SET if NO collision, CLEAR if collision.<br /> ; TempCollisionOverlap holds absolute Y-distance on collision.<br /> ;------------------------------------------------------------------------------<br /> GameObjCollisionDetection<br /> ; Calculate Effective X coordinate for Object X<br /> LDA GameObjectXCoordHi,X ; Load ObjX's base X coord<br /> CLC<br /> ADC ObjectOffsetXLUT,X ; Add ObjX's X offset<br /> STA Temp5E ; Store EffX_ObjX in Temp5E<br /> <br /> ; Calculate absolute difference between Effective X of ObjX and Effective X of ObjY<br /> LDA GameObjectXCoordHi,Y ; Load ObjY's base X coord<br /> CLC<br /> ADC ObjectOffsetXLUT,Y ; Add ObjY's X offset (EffX_ObjY)<br /> SEC ; Prepare for subtraction<br /> SBC Temp5E ; A = EffX_ObjY - EffX_ObjX<br /> BPL CalculateAbsX_IsPositive ; If result is positive, it's the absolute difference<br /> EOR #$FF ; Negate the result (part 1)<br /> CLC<br /> ADC #$01 ; Negate the result (part 2, to get absolute value)<br /> CalculateAbsX_IsPositive<br /> STA Temp66 ; Store absolute X-distance in Temp66<br /> <br /> ; Check for X-axis overlap using Object Y's collision width threshold<br /> CMP ObjectCollisionWidthLUT,Y ; Compare abs X-distance with ObjY's collision width threshold<br /> BCS NoCollisionDetected_Return ; If DistX &gt;= Width_Y, no X-overlap. Set Carry and RTS.<br /> <br /> ; X-axis overlaps, now check Y-axis<br /> ; Calculate Effective Y coordinate for Object X<br /> LDA GameObjectYCoordHi,X ; Load ObjX's base Y coord<br /> CLC<br /> ADC ObjectOffsetYLUT,X ; Add ObjX's Y offset<br /> STA Temp5E ; Store EffY_ObjX in Temp5E<br /> <br /> ; Calculate absolute difference between Effective Y of ObjX and Effective Y of ObjY<br /> LDA GameObjectYCoordHi,Y ; Load ObjY's base Y coord<br /> CLC<br /> ADC ObjectOffsetYLUT,Y ; Add ObjY's Y offset (EffY_ObjY)<br /> SEC ; Prepare for subtraction<br /> SBC Temp5E ; A = EffY_ObjY - EffY_ObjX<br /> BPL CalculateAbsY_IsPositive ; If positive, it's the absolute difference<br /> EOR #$FF ; Negate (part 1)<br /> CLC<br /> ADC #$01 ; Negate (part 2, to get absolute value)<br /> CalculateAbsY_IsPositive<br /> STA TempCollisionOverlap ; Store absolute Y-distance<br /> <br /> ; Special collision height check if Object Y is Player 1<br /> CPY #PLAYER1_OBJECT_INDEX ; Is Object Y Player 1?<br /> BEQ CheckCollision_Player1_Y_Height ; Yes, branch to P1 specific height check<br /> <br /> ; Object Y is not Player 1, use its standard collision height from LUT<br /> CMP ObjectCollisionHeightLUT,Y ; Compare abs Y-distance with ObjY's collision height threshold<br /> ; Carry will be CLEAR if DistY &lt; Height_Y (collision)<br /> ; Carry will be SET if DistY &gt;= Height_Y (no collision)<br /> ; Fall through to RTS. If BCS was taken (no collision), Carry is SET.<br /> ; If CMP results in DistY &lt; Height_Y, Carry is CLEAR (collision).<br /> <br /> NoCollisionDetected_Return<br /> RTS ; Return with Carry SET (no collision) or CLEAR (collision)<br /> <br /> CheckCollision_Player1_Y_Height<br /> ; Player 1 specific Y-collision height check (functionally same as LUT for P1)<br /> CMP #PLAYER1_COLLISION_HEIGHT_SPECIAL ; Compare abs Y-distance with P1's specific height value<br /> ; Carry will be CLEAR if DistY &lt; Value (collision)<br /> ; Carry will be SET if DistY &gt;= Value (no collision)<br /> RTS ; Return with Carry status from CMP<br /> <br /> <br /> ;------------------------------------------------------------------------------<br /> ; ESRoutineScheduler<br /> ; Event Scheduler main loop. Iterates through 18 event slots.<br /> ; If an event's index is positive, it executes the corresponding routine.<br /> ; If an event's index is negative, it treats it as a countdown timer. When the<br /> ; timer reaches zero, the index is made positive so it will run on the next pass.<br /> ;------------------------------------------------------------------------------<br /> ESRoutineScheduler<br /> INC IncrementingRandSeed<br /> LDX #$11<br /> ESRoutineSchedulerLoop<br /> LDA ESRoutineIndex,X<br /> BEQ ESRoutineSchedulerLoopBottom ; if index=0 handler is off<br /> BMI UpdateEventTimers ; if index&lt;0 update this timer<br /> ; if index&gt;0 run this routine<br /> ASL<br /> TAY ; y=index*2 (table has sequential lo+hi pairs)<br /> LDA ESRoutinesLo,Y<br /> STA TempPoint5ACurrentESRoutineLo<br /> LDA ESRoutinesHi,Y<br /> STA TempPoint5ACurrentESRoutineHi<br /> JMP (TempPoint5ACurrentESRoutineLo)<br /> <br /> UpdateEventTimers<br /> DEC ESRoutineTimer,X<br /> BNE EventTimerStillCountingDown<br /> ; Once the timer expires, we invert the function index to turn off<br /> ; the timer. The next time the handler loop is called, it will run.<br /> LDA ESRoutineIndex,X<br /> EOR #$FF<br /> STA ESRoutineIndex,X<br /> INC ESRoutineIndex,X<br /> EventTimerStillCountingDown<br /> JMP ESRoutineSchedulerLoopBottom<br /> <br /> ESScheduleNextRoutine<br /> ; Common endpoint for many ES Jump table functions. Sets/Resets timer<br /> ; and advances and inverts the index. (index=0-index+1) <br /> STA ESRoutineTimer,X<br /> LDA ESRoutineIndex,X<br /> EOR #$FF<br /> ESUpdateRoutineIndex<br /> STA ESRoutineIndex,X<br /> ESRoutineSchedulerLoopBottom<br /> DEX<br /> BPL ESRoutineSchedulerLoop<br /> RTS<br /> <br /> ESCancelRoutine<br /> ; Cancels the currently running event by setting its index to 0.<br /> LDA #$00<br /> BEQ ESUpdateRoutineIndex<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Event Scheduler Routine Jump Table<br /> ;------------------------------------------------------------------------------<br /> ESRoutinesLo ; Event Timer jump table<br /> .byte &lt;ESGameColdInit ; event index $00<br /> ESRoutinesHi<br /> .byte &gt;ESGameColdInit<br /> <br /> .byte &lt;ESSetPointedValueFromRandom ; event index $01<br /> .byte &gt;ESSetPointedValueFromRandom<br /> <br /> .byte &lt;ES_AdvanceLavaSparkleFrame ; event index $02<br /> .byte &gt;ES_AdvanceLavaSparkleFrame<br /> <br /> .byte &lt;ES_ReverseLavaSparkleFrame ; event index $03<br /> .byte &gt;ES_ReverseLavaSparkleFrame<br /> <br /> .byte &lt;ES_SetRandomLavaSparkleFrameAndCancel ; event index $04<br /> .byte &gt;ES_SetRandomLavaSparkleFrameAndCancel<br /> <br /> .byte &lt;ESSetupFlameAnimation ; event index $05<br /> .byte &gt;ESSetupFlameAnimation<br /> <br /> .byte &lt;ESDoFlameAnimation ; event index $06<br /> .byte &gt;ESDoFlameAnimation<br /> <br /> .byte &lt;ESSetupBridgeBurning ; event index $07<br /> .byte &gt;ESSetupBridgeBurning<br /> <br /> .byte &lt;ESAnimateBridgeBurning ; event index $08<br /> .byte &gt;ESAnimateBridgeBurning<br /> <br /> .byte &lt;ESAnimateBridgeReforming ; event index $09<br /> .byte &gt;ESAnimateBridgeReforming<br /> <br /> .byte &lt;ESWave1StartRoutines ; event index $0A <br /> .byte &gt;ESWave1StartRoutines<br /> <br /> .byte &lt;ESRaiseLavaWave1 ; event index $0B<br /> .byte &gt;ESRaiseLavaWave1<br /> <br /> .byte &lt;ESWave2StartRoutines ; event index $0C<br /> .byte &gt;ESWave2StartRoutines<br /> <br /> .byte &lt;ESRaiseLavaWave2 ; event index $0D<br /> .byte &gt;ESRaiseLavaWave2<br /> <br /> .byte &lt;ESWave3StartRoutines ; event index $0E<br /> .byte &gt;ESWave3StartRoutines<br /> <br /> .byte &lt;ESRaiseLavaWave3 ; event index $0F<br /> .byte &gt;ESRaiseLavaWave3<br /> <br /> .byte &lt;ES_StartEndOfWaveBonusDisplayTimer ; event index $10<br /> .byte &gt;ES_StartEndOfWaveBonusDisplayTimer<br /> <br /> .byte &lt;ESTransitionToNextLevel ; event index $11<br /> .byte &gt;ESTransitionToNextLevel<br /> <br /> .byte &lt;ES_StartBuzzardBaitWarningDelay ; event index $12<br /> .byte &gt;ES_StartBuzzardBaitWarningDelay<br /> <br /> .byte &lt;ESShowBuzzardBaitText ; event index $13<br /> .byte &gt;ESShowBuzzardBaitText<br /> <br /> .byte &lt;ES_StartPreWaveEnemySpawnDelay ; event index $14<br /> .byte &gt;ES_StartPreWaveEnemySpawnDelay<br /> <br /> .byte &lt;ESIfEggWaveDoSetup ; event index $15<br /> .byte &gt;ESIfEggWaveDoSetup<br /> <br /> .byte &lt;UNUSED_ES_AdvanceBottomPlatformDissolve ; event index $16<br /> .byte &gt;UNUSED_ES_AdvanceBottomPlatformDissolve<br /> <br /> .byte &lt;UNUSED_ES_AdvanceBottomPlatformDissolve ; event index $17<br /> .byte &gt;UNUSED_ES_AdvanceBottomPlatformDissolve<br /> <br /> .byte &lt;UNUSED_ES_AdvanceBottomPlatformDissolve ; event index $18<br /> .byte &gt;UNUSED_ES_AdvanceBottomPlatformDissolve<br /> <br /> .byte &lt;UNUSED_ES_AdvanceBottomPlatformDissolve ; event index $19<br /> .byte &gt;UNUSED_ES_AdvanceBottomPlatformDissolve<br /> <br /> .byte &lt;UNUSED_ES_SetBottomPlatformDissolveDelay ; event index $1A<br /> .byte &gt;UNUSED_ES_SetBottomPlatformDissolveDelay<br /> <br /> .byte &lt;UNUSED_ES_CleanupBottomPlatformDissolve ; event index $1B<br /> .byte &gt;UNUSED_ES_CleanupBottomPlatformDissolve<br /> <br /> ; this sequence of functions does the top center platform (4) dissolve animation...<br /> <br /> .byte &lt;ESShakePlatform4Left ; event index $1C <br /> .byte &gt;ESShakePlatform4Left<br /> <br /> .byte &lt;ESShakePlatform4Right ; event index $1D<br /> .byte &gt;ESShakePlatform4Right<br /> <br /> .byte &lt;ESShakePlatform4Left ; event index $1E<br /> .byte &gt;ESShakePlatform4Left<br /> <br /> .byte &lt;ESShakePlatform4Right ; event index $1F<br /> .byte &gt;ESShakePlatform4Right<br /> <br /> .byte &lt;ESShakePlatform4Left ; event index $20<br /> .byte &gt;ESShakePlatform4Left<br /> <br /> .byte &lt;ESShakePlatform4Right ; event index $21<br /> .byte &gt;ESShakePlatform4Right<br /> <br /> .byte &lt;ESShakePlatform4Left ; event index $22<br /> .byte &gt;ESShakePlatform4Left<br /> <br /> .byte &lt;ESShakePlatform4Right ; event index $23<br /> .byte &gt;ESShakePlatform4Right<br /> <br /> .byte &lt;ESStartPlatform4DissolveVisuals ; event index $24<br /> .byte &gt;ESStartPlatform4DissolveVisuals<br /> <br /> .byte &lt;ESUpdatePlatform4DissolveParticles ; event index $25<br /> .byte &gt;ESUpdatePlatform4DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform4DissolveParticles ; event index $26<br /> .byte &gt;ESUpdatePlatform4DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform4DissolveParticles ; event index $27<br /> .byte &gt;ESUpdatePlatform4DissolveParticles<br /> <br /> .byte &lt;AdvancePlatform4DissolveFrame ; event index $28<br /> .byte &gt;AdvancePlatform4DissolveFrame<br /> <br /> .byte &lt;ESUpdatePlatform4DissolveParticles ; event index $29<br /> .byte &gt;ESUpdatePlatform4DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform4DissolveParticles ; event index $2A<br /> .byte &gt;ESUpdatePlatform4DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform4DissolveParticles ; event index $2B<br /> .byte &gt;ESUpdatePlatform4DissolveParticles<br /> <br /> .byte &lt;ESDissolvingPlatformAnimationCleanup ; event index $2C<br /> .byte &gt;ESDissolvingPlatformAnimationCleanup<br /> <br /> ; this sequence of functions does the top side-wrapping platform (5+6) dissolve animation...<br /> .byte &lt;ESShakePlatforms56Left ; event index $2D<br /> .byte &gt;ESShakePlatforms56Left<br /> <br /> .byte &lt;ESShakePlatforms56Right ; event index $2E<br /> .byte &gt;ESShakePlatforms56Right<br /> <br /> .byte &lt;ESShakePlatforms56Left ; event index $2F<br /> .byte &gt;ESShakePlatforms56Left<br /> <br /> .byte &lt;ESShakePlatforms56Right ; event index $30<br /> .byte &gt;ESShakePlatforms56Right<br /> <br /> .byte &lt;ESShakePlatforms56Left ; event index $31<br /> .byte &gt;ESShakePlatforms56Left<br /> <br /> .byte &lt;ESShakePlatforms56Right ; event index $32<br /> .byte &gt;ESShakePlatforms56Right<br /> <br /> .byte &lt;ESShakePlatforms56Left ; event index $33<br /> .byte &gt;ESShakePlatforms56Left<br /> <br /> .byte &lt;ESShakePlatforms56Right ; event index $34<br /> .byte &gt;ESShakePlatforms56Right<br /> <br /> .byte &lt;ESStartPlatforms56DissolveVisuals ; event index $35<br /> .byte &gt;ESStartPlatforms56DissolveVisuals<br /> <br /> .byte &lt;ESUpdatePlatforms56DissolveParticles ; event index $36<br /> .byte &gt;ESUpdatePlatforms56DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatforms56DissolveParticles ; event index $37<br /> .byte &gt;ESUpdatePlatforms56DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatforms56DissolveParticles ; event index $38<br /> .byte &gt;ESUpdatePlatforms56DissolveParticles<br /> <br /> .byte &lt;ESAdvancePlatforms56DissolveFrame ; event index $39<br /> .byte &gt;ESAdvancePlatforms56DissolveFrame<br /> <br /> .byte &lt;ESUpdatePlatforms56DissolveParticles ; event index $3A<br /> .byte &gt;ESUpdatePlatforms56DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatforms56DissolveParticles ; event index $3B<br /> .byte &gt;ESUpdatePlatforms56DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatforms56DissolveParticles ; event index $3C<br /> .byte &gt;ESUpdatePlatforms56DissolveParticles<br /> <br /> .byte &lt;ESDissolvingPlatformAnimationCleanup ; event index $3D<br /> .byte &gt;ESDissolvingPlatformAnimationCleanup<br /> <br /> ; this sequence of functions does the low center platform (0) dissolve animation...<br /> .byte &lt;ESShakePlatform0Left ; event index $3E<br /> .byte &gt;ESShakePlatform0Left<br /> <br /> .byte &lt;ESShakePlatform0Right ; event index $3F<br /> .byte &gt;ESShakePlatform0Right<br /> <br /> .byte &lt;ESShakePlatform0Left ; event index $40<br /> .byte &gt;ESShakePlatform0Left<br /> <br /> .byte &lt;ESShakePlatform0Right ; event index $41<br /> .byte &gt;ESShakePlatform0Right<br /> <br /> .byte &lt;ESShakePlatform0Left ; event index $42<br /> .byte &gt;ESShakePlatform0Left<br /> <br /> .byte &lt;ESShakePlatform0Right ; event index $43<br /> .byte &gt;ESShakePlatform0Right<br /> <br /> .byte &lt;ESShakePlatform0Left ; event index $44<br /> .byte &gt;ESShakePlatform0Left<br /> <br /> .byte &lt;ESShakePlatform0Right ; event index $45<br /> .byte &gt;ESShakePlatform0Right<br /> <br /> .byte &lt;ESStartPlatform0DissolveVisuals ; event index $46<br /> .byte &gt;ESStartPlatform0DissolveVisuals<br /> <br /> .byte &lt;ESUpdatePlatform0DissolveParticles ; event index $47<br /> .byte &gt;ESUpdatePlatform0DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform0DissolveParticles ; event index $48<br /> .byte &gt;ESUpdatePlatform0DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform0DissolveParticles ; event index $49<br /> .byte &gt;ESUpdatePlatform0DissolveParticles<br /> <br /> .byte &lt;ESAdvancePlatform0DissolveFrame ; event index $4A<br /> .byte &gt;ESAdvancePlatform0DissolveFrame<br /> <br /> .byte &lt;ESUpdatePlatform0DissolveParticles ; event index $4B<br /> .byte &gt;ESUpdatePlatform0DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform0DissolveParticles ; event index $4C<br /> .byte &gt;ESUpdatePlatform0DissolveParticles<br /> <br /> .byte &lt;ESUpdatePlatform0DissolveParticles ; event index $4D<br /> .byte &gt;ESUpdatePlatform0DissolveParticles<br /> <br /> .byte &lt;ESDissolvingPlatformAnimationCleanup ; event index $4E<br /> .byte &gt;ESDissolvingPlatformAnimationCleanup<br /> <br /> UNUSED_ES_AdvanceBottomPlatformDissolve<br /> INC SpawnPlatformDissolved1,X<br /> UNUSED_ES_SetBottomPlatformDissolveDelay<br /> LDA #$04<br /> JMP ESScheduleNextRoutine<br /> <br /> UNUSED_ES_CleanupBottomPlatformDissolve<br /> LDA #$00<br /> STA SpawnPlatformDissolved1,X<br /> JMP ESCancelRoutine<br /> <br /> ES_StartPreWaveEnemySpawnDelay<br /> LDA #$50<br /> JMP ESScheduleNextRoutine<br /> <br /> ESIfEggWaveDoSetup<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> JSR InitializeWave<br /> LDA IsEggWave<br /> BEQ EggWaveSetupDone<br /> JSR SetupEggWave<br /> EggWaveSetupDone<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> JMP ESCancelRoutine<br /> <br /> ESDissolvingPlatformAnimationCleanup<br /> LDA #$00<br /> LDY #$05<br /> PlatformAnimationCleanupLoop<br /> STA PlatformDissolveAnimationFlag0,Y ; reset all 6 flags<br /> DEY<br /> BPL PlatformAnimationCleanupLoop<br /> STA ESRoutineIndex,X<br /> JMP ESRoutineSchedulerLoopBottom<br /> <br /> ; Platforms by number:<br /> ; 0: Bottom center<br /> ; 1: Bottom left (wraps)<br /> ; 2: Bottom right (wraps)<br /> ; 3: Mid-level platform<br /> ; 4: Top center<br /> ; 5: Top left (wraps)<br /> ; 6: Top right (wraps)<br /> <br /> ESShakePlatform4Left<br /> DEC Platform4XCoordinate<br /> DEC SpawnPoint4XCoordinate<br /> LDA #$04<br /> JMP ESScheduleNextRoutine<br /> ESShakePlatform4Right<br /> INC Platform4XCoordinate<br /> INC SpawnPoint4XCoordinate<br /> LDA #$04<br /> JMP ESScheduleNextRoutine<br /> ESStartPlatform4DissolveVisuals<br /> LDA #$00<br /> STA Platform4PaletteWidth<br /> STA Platform4GfxLo<br /> LDA #$01<br /> STA PlatformDissolveAnimationFlag0<br /> STA PlatformDissolveAnimationFlag1<br /> LDA #$32<br /> STA PlatformDissolveAnimationXCoord0<br /> LDA #$3E<br /> STA PlatformDissolveAnimationXCoord1<br /> LDA #$41<br /> STA PlatformDissolveAnimationYCoord0<br /> STA PlatformDissolveAnimationYCoord1<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> ESUpdatePlatform4DissolveParticles<br /> INC PlatformDissolveAnimationXCoord0<br /> DEC PlatformDissolveAnimationXCoord1<br /> INC PlatformDissolveAnimationYCoord0<br /> INC PlatformDissolveAnimationYCoord1<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> AdvancePlatform4DissolveFrame<br /> INC PlatformDissolveAnimationFlag0<br /> INC PlatformDissolveAnimationFlag1<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> <br /> ESShakePlatforms56Left ; this label is misleading, but named to match the existing pattern<br /> ; The two platform halves shake by moving in and out.<br /> DEC Platform5XCoordinate<br /> INC Platform6XCoordinate<br /> LDA #$04<br /> JMP ESScheduleNextRoutine<br /> <br /> ESShakePlatforms56Right<br /> INC Platform5XCoordinate<br /> DEC Platform6XCoordinate<br /> LDA #$04<br /> JMP ESScheduleNextRoutine<br /> <br /> ESStartPlatforms56DissolveVisuals<br /> LDA #$00<br /> STA Platform56PaletteWidth<br /> STA Platform56GfxLo<br /> LDA #$01<br /> STA PlatformDissolveAnimationFlag2<br /> STA PlatformDissolveAnimationFlag3<br /> LDA #$90<br /> STA PlatformDissolveAnimationXCoord2<br /> LDA #$02<br /> STA PlatformDissolveAnimationXCoord3<br /> LDA #$39<br /> STA PlatformDissolveAnimationYCoord2<br /> STA PlatformDissolveAnimationYCoord3<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> ESUpdatePlatforms56DissolveParticles<br /> INC PlatformDissolveAnimationXCoord2<br /> DEC PlatformDissolveAnimationXCoord3<br /> INC PlatformDissolveAnimationYCoord2<br /> INC PlatformDissolveAnimationYCoord3<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> ESAdvancePlatforms56DissolveFrame<br /> INC PlatformDissolveAnimationFlag2<br /> INC PlatformDissolveAnimationFlag3<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> ESShakePlatform0Left<br /> DEC Platform0XCoordinate<br /> LDA #$04<br /> JMP ESScheduleNextRoutine<br /> ESShakePlatform0Right<br /> INC Platform0XCoordinate<br /> LDA #$04<br /> JMP ESScheduleNextRoutine<br /> ESStartPlatform0DissolveVisuals<br /> LDA #$00<br /> STA Platform0PaletteWidth<br /> STA Platform0GfxLo<br /> LDA #$01<br /> STA PlatformDissolveAnimationFlag4<br /> STA PlatformDissolveAnimationFlag5<br /> LDA #$39<br /> STA PlatformDissolveAnimationXCoord4<br /> LDA #$45<br /> STA PlatformDissolveAnimationXCoord5<br /> LDA #$81<br /> STA PlatformDissolveAnimationYCoord4<br /> STA PlatformDissolveAnimationYCoord5<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> ESUpdatePlatform0DissolveParticles<br /> INC PlatformDissolveAnimationXCoord4<br /> DEC PlatformDissolveAnimationXCoord5<br /> INC PlatformDissolveAnimationYCoord4<br /> INC PlatformDissolveAnimationYCoord5<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> <br /> ESAdvancePlatform0DissolveFrame<br /> INC PlatformDissolveAnimationFlag4<br /> INC PlatformDissolveAnimationFlag5<br /> LDA #$02<br /> JMP ESScheduleNextRoutine<br /> <br /> ES_StartBuzzardBaitWarningDelay<br /> LDA #$1E<br /> JMP ESScheduleNextRoutine<br /> <br /> ESShowBuzzardBaitText<br /> TXA ; save X and Y<br /> PHA<br /> TYA<br /> PHA<br /> LDA #$02 ; &quot;buzzard bait&quot;<br /> JSR DisplayGameMessage<br /> PLA ; restore X and Y<br /> TAY<br /> PLA<br /> TAX<br /> JMP ESCancelRoutine<br /> <br /> ES_StartEndOfWaveBonusDisplayTimer<br /> LDA #$46<br /> JMP ESScheduleNextRoutine<br /> <br /> ESTransitionToNextLevel<br /> LDA PterryState1<br /> ORA PterryState2<br /> ORA PterryState3<br /> BEQ NoPterrysAlive2<br /> JSR SetAnyPterrysToLeaving<br /> DEC ESRoutineIndex,X ; Change event to the event above this one<br /> LDA #$05<br /> JMP ESScheduleNextRoutine<br /> <br /> NoPterrysAlive2<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> JSR DisplayLevelStartMsg<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> JMP ESCancelRoutine<br /> <br /> ESSetupBridgeBurning<br /> LDA #$1E<br /> STA BridgeBurningWidth<br /> LDA #$05 ; schedule flame sprite frame animation<br /> STA ESRoutineIndex+8<br /> LDA #$1E<br /> STA $6E<br /> LDA #$14<br /> LDY #$00<br /> JMP ESScheduleNextRoutine<br /> <br /> ESAnimateBridgeBurning<br /> INC BridgeBurningWidth<br /> DEC $6E<br /> BMI ESAnimateBridgeBurningChangeState<br /> INC BridgeLeftGfxByte1<br /> INC BridgeLeftGfxByte3<br /> INC BridgeLeftGfxByte2<br /> DEC BridgeRightGfxByte1<br /> DEC BridgeRightGfxByte3<br /> DEC BridgeRightGfxByte2<br /> ESBridgeAnimationScheduleNextFrame<br /> DEC ESRoutineIndex,X<br /> LDA #$0F<br /> JMP ESScheduleNextRoutine<br /> <br /> ESAnimateBridgeBurningChangeState<br /> LDA #$10<br /> STA $6E<br /> LDA #$0F<br /> JMP ESScheduleNextRoutine<br /> ESAnimateBridgeReforming<br /> DEC $6E<br /> BMI FinishBridgeReforming<br /> DEC BridgeLeftGfxByte1<br /> DEC BridgeLeftGfxByte3<br /> INC BridgeRightGfxByte1<br /> INC BridgeRightGfxByte3<br /> JMP ESBridgeAnimationScheduleNextFrame<br /> FinishBridgeReforming<br /> JMP ESCancelRoutine<br /> <br /> TopFlameAnimationGfxLoLUT<br /> .byte $3A, $38, $36, $2E, $2C, $2A, $28, $26<br /> .byte $24, $22, $20, $34, $32, $30, $2E, $2C<br /> .byte $2A, $28, $26, $24, $22, $20 <br /> <br /> BottomFlameAnimationGfxLoLUT<br /> .byte $56, $54, $52, $4A, $48, $46, $44, $42 <br /> .byte $40, $3E, $3C, $50, $4E, $4C, $4A, $48 <br /> .byte $46, $44, $42, $40, $3E, $3C <br /> <br /> ESSetupFlameAnimation ; event index $05<br /> LDA #$15<br /> STA LeftFlameAnimationIndex<br /> LDA #$06<br /> STA RightFlameAnimationIndex<br /> LDA #$01<br /> JMP ESScheduleNextRoutine<br /> <br /> ESDoFlameAnimation ; event index $06<br /> LDY LeftFlameAnimationIndex<br /> LDA TopFlameAnimationGfxLoLUT,Y<br /> STA $1F50<br /> LDA BottomFlameAnimationGfxLoLUT,Y<br /> STA $1FA6<br /> LDY RightFlameAnimationIndex<br /> LDA TopFlameAnimationGfxLoLUT,Y<br /> STA $1F4C<br /> LDA BottomFlameAnimationGfxLoLUT,Y<br /> STA $1FA2<br /> <br /> DEC LeftFlameAnimationIndex<br /> BPL SkipWrapFixLeftFlameIndex<br /> LDA #$15<br /> STA LeftFlameAnimationIndex<br /> SkipWrapFixLeftFlameIndex<br /> DEC RightFlameAnimationIndex<br /> BPL SkipWrapFixRightFlameIndex<br /> LDA #$15<br /> STA RightFlameAnimationIndex<br /> SkipWrapFixRightFlameIndex<br /> LDA #$01<br /> DEC ESRoutineIndex,X<br /> JMP ESScheduleNextRoutine<br /> <br /> ESWave1StartRoutines ; event index $0A<br /> LDA #$06<br /> SetValueThenESScheduleNextRoutine<br /> STA ESTemp6ELavaRiseCounter<br /> LDA #$0F<br /> JMP ESScheduleNextRoutine<br /> <br /> ESWave2StartRoutines<br /> LDA #$FF<br /> STA $1FC4<br /> LDA #$7C<br /> STA $1FC8<br /> LDA #$06<br /> JMP SetValueThenESScheduleNextRoutine<br /> <br /> ESWave3StartRoutines<br /> LDA #$FF<br /> STA $1FB1<br /> LDA #$7C<br /> STA $1FAD<br /> LDA #$02<br /> JMP SetValueThenESScheduleNextRoutine<br /> <br /> ESRaiseLavaWave1<br /> DEC LeftLavaLevelWave1<br /> DEC RightLavaLevelWave1<br /> DEC ESTemp6ELavaRiseCounter<br /> BMI DoneRisingLavaWave1<br /> ScheduleThisRoutineAgainAfterDelay<br /> LDA #$0F ; Number of ticks to wait before running.<br /> DEC ESRoutineIndex,X ; Decrement this timer so the &quot;next&quot;<br /> JMP ESScheduleNextRoutine ; routine is this one again.<br /> DoneRisingLavaWave1<br /> LDA #$01<br /> STA ESRoutineIndex+3<br /> STA ESRoutineIndex+4<br /> JMP ESCancelRoutine ; We're done<br /> <br /> ESRaiseLavaWave2<br /> DEC LeftLavaLevelWave2<br /> DEC RightLavaLevelWave2<br /> DEC ESTemp6ELavaRiseCounter<br /> BMI DoneRisingLavaWave2<br /> JMP ScheduleThisRoutineAgainAfterDelay<br /> DoneRisingLavaWave2<br /> LDA #$01<br /> STA ESRoutineIndex+1<br /> STA ESRoutineIndex+2<br /> JMP ESCancelRoutine<br /> ESRaiseLavaWave3<br /> DEC LeftLavaLevelWave3<br /> DEC RightLavaLevelWave3<br /> DEC ESTemp6ELavaRiseCounter<br /> BMI DoneRisingLavaWave3<br /> JMP ScheduleThisRoutineAgainAfterDelay<br /> <br /> DoneRisingLavaWave3<br /> LDA #$01<br /> STA ESRoutineIndex<br /> LDA #$07 ; Schedule the ESSetupBridgeBurning routine<br /> STA ESRoutineIndex+7 ; in 8th slot. (8th slot significance unknown)<br /> JMP ESCancelRoutine<br /> <br /> ESSetPointedValueFromRandom<br /> JSR ES_LoadLavaSparkleGfxPtr<br /> JSR ReturnRandInA<br /> ClampRandomValueLoop<br /> CMP #$20<br /> BCC StoreRandomValueAndScheduleNext<br /> CMP #$79<br /> BCC ContinueClampingRandomValue<br /> CMP #$99<br /> BCC StoreRandomValueAndScheduleNext<br /> ContinueClampingRandomValue<br /> SBC #$3B<br /> JMP ClampRandomValueLoop<br /> StoreRandomValueAndScheduleNext<br /> LDY #$03<br /> STA (TempPoint5ACurrentESRoutineLo),Y<br /> LDA #$08<br /> JMP ESScheduleNextRoutine<br /> ES_AdvanceLavaSparkleFrame<br /> JSR ES_LoadLavaSparkleGfxPtr<br /> LDY #$00<br /> LDA (TempPoint5ACurrentESRoutineLo),Y<br /> CLC<br /> ADC #$01<br /> STA (TempPoint5ACurrentESRoutineLo),Y<br /> LDA #$06<br /> JMP ESScheduleNextRoutine<br /> ES_ReverseLavaSparkleFrame<br /> JSR ES_LoadLavaSparkleGfxPtr<br /> LDY #$00<br /> LDA (TempPoint5ACurrentESRoutineLo),Y<br /> SEC<br /> SBC #$01<br /> STA (TempPoint5ACurrentESRoutineLo),Y<br /> CPX #$00<br /> BNE ScheduleNextESRoutineShortDelay<br /> LDA #$B0<br /> LDY #$03<br /> STA (TempPoint5ACurrentESRoutineLo),Y<br /> ScheduleNextESRoutineShortDelay<br /> LDA #$05<br /> JMP ESScheduleNextRoutine<br /> <br /> ES_LoadLavaSparkleGfxPtr<br /> LDA ES_LavaSparkleAnimationPtrLoLUT,X<br /> STA TempPoint5ACurrentESRoutineLo<br /> LDA ES_LavaSparkleAnimationPtrHiLUT,X<br /> STA TempPoint5ACurrentESRoutineHi<br /> RTS<br /> <br /> ES_SetRandomLavaSparkleFrameAndCancel<br /> JSR ES_LoadLavaSparkleGfxPtr<br /> LDA #$B0<br /> LDY #$03<br /> STA (TempPoint5ACurrentESRoutineLo),Y<br /> LDA #$00<br /> STA ESRoutineIndex,X<br /> JSR ReturnRandInA<br /> AND #$1F<br /> JMP ESScheduleNextRoutine<br /> <br /> ;------------------------------------------------------------------------------<br /> ; ReturnRandInA<br /> ; A simple pseudo-random number generator.<br /> ; It uses an incrementing seed to read 4 bytes from ROM code space ($B0xx) and<br /> ; adds them together.<br /> ; Returns: A = random byte. Preserves Y.<br /> ;------------------------------------------------------------------------------<br /> ReturnRandInA<br /> TYA<br /> PHA<br /> INC IncrementingRandSeed<br /> LDA IncrementingRandSeed<br /> STA Temp68<br /> LDA #$B0<br /> STA Temp69<br /> LDY #$03<br /> RandLoop<br /> ADC ($68),Y<br /> DEY<br /> BPL RandLoop<br /> STA Temp68<br /> PLA<br /> TAY<br /> LDA Temp68<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; TrollAiLogic<br /> ; Manages the troll that lives in the lava. If conditions are right, it will<br /> ; jump out to grab a bird and pull it into the lava.<br /> ;------------------------------------------------------------------------------<br /> TrollAiLogic<br /> LDA Level<br /> CMP #$03 ; Troll only appears on level 3 and higher<br /> BMI TrollTargetSearchFailed<br /> LDA Difficulty<br /> BEQ TrollTargetSearchFailed ; Troll does not appear on Beginner difficulty<br /> LDA TrollState<br /> BEQ SearchForTrollTarget ; 0=troll hiding in lava<br /> BMI TrollInAirProcessing ; ff=troll jumping at bird<br /> CMP #$01<br /> BNE ProcessTrollState ; 02=troll holding a bird<br /> JMP TrollHoldingBirdUpdateState<br /> ProcessTrollState<br /> JMP TrollIsRetreating<br /> SearchForTrollTarget<br /> LDX #$09<br /> SearchForTrollTargetLoop<br /> LDA GameObjectYCoordHi,X<br /> CMP TrollMinimumTargetYCoord<br /> BCC TrollTargetSearch_CheckNextObject<br /> LDA GameObjectState,X<br /> CMP #$04<br /> BNE TrollTargetSearch_CheckNextObject<br /> LDA GameObjectAlive,X<br /> BEQ TrollTargetSearch_CheckNextObject<br /> LDA GameObjectXCoordHi,X<br /> CMP #$33<br /> BCC TrollTargetFound<br /> CMP #$A4<br /> BCS TrollTargetFound<br /> TrollTargetSearch_CheckNextObject<br /> DEX<br /> BPL SearchForTrollTargetLoop<br /> TrollTargetSearchFailed<br /> RTS<br /> <br /> TrollTargetFound<br /> STX TrollTargetIndex<br /> LDA #$B6<br /> STA TrollYCoord<br /> Troll_StartJump<br /> LDA GameObjectXCoordHi,X<br /> STA TrollXCoord<br /> LDA #$FF ; troll is jumping at a bird<br /> STA TrollState<br /> LDA #SFX_TrollJumping<br /> JSR ScheduleSFX<br /> SetTrollGrabGfxFrame<br /> LDA ObjectGrabYOffsetLUT,X<br /> CLC<br /> ADC GameObjectYCoordHi,X<br /> SEC<br /> SBC TrollYCoord<br /> BPL SelectTrollJumpFrameByDistance<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> SelectTrollJumpFrameByDistance<br /> CMP #$03<br /> BCS TrollGfxSelectMediumDistanceFrame<br /> LDA #$06<br /> JMP TrollGfxFrameUpdate<br /> TrollGfxSelectMediumDistanceFrame<br /> CMP #$06<br /> BCS TrollGfxSelectFarDistanceFrame<br /> LDA #$04<br /> JMP TrollGfxFrameUpdate<br /> TrollGfxSelectFarDistanceFrame<br /> CMP #$09<br /> BCS TrollGfxSetDefaultOrRetreat<br /> LDA #$02<br /> JMP TrollGfxFrameUpdate<br /> TrollGfxSetDefaultOrRetreat<br /> LDA #$00<br /> TrollGfxFrameUpdate<br /> STA TrollGfxOffset<br /> RTS<br /> <br /> TrollInAirProcessing<br /> ; Troll is in the air, check if it should grab the bird or retreat<br /> LDX TrollTargetIndex<br /> LDA GameObjectState,X<br /> CMP #$04<br /> BNE TrollTargetInvalid<br /> LDA GameObjectAlive,X<br /> BEQ TrollTargetInvalid<br /> LDA GameObjectYCoordHi,X<br /> CMP TrollMinimumTargetYCoord<br /> BCC TrollTargetInvalid<br /> LDY GameObjectXCoordHi,X<br /> CPY #$33<br /> BCC TrollTargetStillValid<br /> CPY #$A4<br /> BCS TrollTargetStillValid<br /> TrollTargetInvalid<br /> ; troll retreats<br /> LDA #$02<br /> STA TrollState<br /> BPL SetTrollGrabGfxFrame<br /> TrollTargetStillValid<br /> ; Target is still valid, continue moving towards it<br /> STY TrollXCoord<br /> CLC<br /> ADC ObjectGrabYOffsetLUT,X<br /> CMP TrollYCoord<br /> BCS TrollGrabbedBirdCheckGrabHeight<br /> LDA TrollYCoord<br /> CMP TrollMinimumGrabYCoord<br /> BCC TrollContinuesJump<br /> DEC TrollYCoord<br /> TrollContinuesJump<br /> JMP SetTrollGrabGfxFrame<br /> TrollHoldingBirdUpdateState<br /> LDX TrollTargetIndex<br /> LDA GameObjectState,X<br /> CMP #$04 ; alive<br /> BEQ TrollHoldingBirdUpdateGrabPosition<br /> LDA GameObjectAlive,X<br /> BEQ TrollTargetInvalid<br /> TrollHoldingBirdUpdateGrabPosition<br /> LDA GameObjectYCoordHi,X<br /> CLC<br /> ADC ObjectGrabYOffsetLUT,X<br /> TrollGrabbedBirdCheckGrabHeight<br /> CMP TrollMinimumGrabYCoord<br /> BCS TrollGrabbedTheBird<br /> JMP Troll_StartJump<br /> TrollGrabbedTheBird<br /> STA TrollYCoord<br /> LDA #$00<br /> STA GameObjectXVelocity,X<br /> LDA GameObjectYVelocityLo,X<br /> CLC<br /> ADC TrollPullingVelocity<br /> STA GameObjectYVelocityLo,X<br /> LDA GameObjectYVelocityHi,X<br /> ADC #$00<br /> STA GameObjectYVelocityHi,X<br /> LDA TrollXCoord<br /> STA GameObjectXCoordHi,X<br /> JMP SetTrollGrabGfxFrame<br /> TrollIsRetreating<br /> INC TrollYCoord<br /> LDA TrollYCoord<br /> CMP #$B6<br /> BCC TrollUpdateRetreatingFrame<br /> LDA #$00<br /> STA TrollState ; troll in lava (default)<br /> STA TrollYCoord<br /> TrollUpdateRetreatingFrame<br /> JMP TrollGfxSetDefaultOrRetreat<br /> <br /> ObjectGrabYOffsetLUT ; bird objects only<br /> .byte $0A, $0C, $0A, $0A, $0A, $0A, $0A, $0A, $0A, $0A<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Platform Collision Detection Routines<br /> ; These routines check for collisions between a game object and the platforms.<br /> ;------------------------------------------------------------------------------<br /> CheckPlatformCollision<br /> LDA GameObjectXCoordHi,X<br /> STA Temp5E<br /> LDA GameObjectYCoordHi,X<br /> STA Temp5F<br /> STY Temp68<br /> LDY Temp69<br /> LDA PlatformCollisionCheckPointXLUT,Y<br /> CLC<br /> ADC Temp5E<br /> STA Temp62<br /> LDA PlatformCollisionCheckPointYLUT,Y<br /> CLC<br /> ADC Temp5F<br /> STA Temp61<br /> LDA PlatformPresentBitmask<br /> STA Temp63<br /> LDY #$06<br /> CheckCollisionAgainstEachPlatformLoop<br /> LSR Temp63<br /> BCS CheckCollisionWithPresentPlatform<br /> CollisionCheckNextPlatform<br /> DEY<br /> BPL CheckCollisionAgainstEachPlatformLoop<br /> JMP CheckCollisionWithLavaBridge<br /> CheckCollisionWithPresentPlatform<br /> LDA Temp61<br /> CMP PlatformYTop,Y<br /> BCS PlatformCollisionCheckYBottomAndXBounds<br /> JMP PlatformCollisionNoHitReturnZero<br /> PlatformCollisionCheckYBottomAndXBounds<br /> LDA Temp5F<br /> CMP PlatformYBottom,Y<br /> BCS CollisionCheckNextPlatform<br /> LDA Temp62<br /> CMP PlatformXLeftEdge,Y<br /> BEQ CollisionCheckNextPlatform<br /> BCC CollisionCheckNextPlatform<br /> LDA Temp5E<br /> CMP PlatformXRightEdge,Y<br /> BCS CollisionCheckNextPlatform<br /> LDA Temp61<br /> CLC<br /> ADC #$04<br /> LSR<br /> LSR<br /> LSR<br /> STA Temp60<br /> LDA Temp62<br /> SEC<br /> SBC PlatformXLeftBounce,Y<br /> BMI InitializeRightSideCollisionCheck<br /> SEC<br /> SBC Temp60<br /> BCS HandleLeftSidePlatformCollision<br /> JMP CollisionCheckNextPlatform<br /> HandleLeftSidePlatformCollision<br /> ADC #$00<br /> STA TempCollisionOverlap<br /> LDA #$01<br /> STA Temp64<br /> LDA Temp5E<br /> SEC<br /> SBC TempCollisionOverlap<br /> STA Temp65<br /> LDA Temp5F<br /> STA Temp66<br /> JMP ContinueRightSideCollisionCheck<br /> InitializeRightSideCollisionCheck<br /> LDA #$64<br /> STA TempCollisionOverlap<br /> ContinueRightSideCollisionCheck<br /> LDA PlatformXRightBounce,Y<br /> SEC<br /> SBC Temp5E<br /> BMI ContinueCollisionCheckWithYAxis<br /> SEC<br /> SBC Temp60<br /> BCS UpdateClosestRightSideCollision<br /> JMP CollisionCheckNextPlatform<br /> UpdateClosestRightSideCollision<br /> ADC #$00<br /> CMP TempCollisionOverlap<br /> BCS ContinueCollisionCheckWithYAxis<br /> STA TempCollisionOverlap<br /> CLC<br /> ADC Temp5E<br /> STA Temp65<br /> LDA Temp5F<br /> STA Temp66<br /> LDA #$08<br /> STA Temp64<br /> ContinueCollisionCheckWithYAxis<br /> LDA Temp5F<br /> SEC<br /> SBC PlatformYBottomForBounceCheckLUT,Y<br /> BMI CheckPlatformTopCollision<br /> STA Temp60<br /> LDA Temp62<br /> CLC<br /> ADC #$02<br /> LSR<br /> LSR<br /> SEC<br /> SBC Temp60<br /> BCS UpdateClosestBottomSideCollision<br /> JMP CollisionCheckNextPlatform<br /> UpdateClosestBottomSideCollision<br /> ADC #$00<br /> CMP TempCollisionOverlap<br /> BCS CheckPlatformTopCollision<br /> STA TempCollisionOverlap<br /> CLC<br /> ADC Temp5F<br /> STA Temp66<br /> LDA Temp5E<br /> STA Temp65<br /> LDA #$02<br /> STA Temp64<br /> CheckPlatformTopCollision<br /> LDA Temp5E<br /> CLC<br /> ADC #$02<br /> LSR<br /> LSR<br /> STA Temp60<br /> LDA PlatformYTopForBounceCheckLUT,Y<br /> SEC<br /> SBC Temp5F<br /> BMI SkipUpdatingClosestCollision<br /> SEC<br /> SBC Temp60<br /> BCS UpdateClosestBottomPlatformCollision<br /> JMP CollisionCheckNextPlatform<br /> UpdateClosestBottomPlatformCollision<br /> ADC #$00<br /> CMP TempCollisionOverlap<br /> BCS SkipUpdatingClosestCollision<br /> STA TempCollisionOverlap<br /> CLC<br /> ADC Temp5F<br /> STA Temp66<br /> LDA Temp5E<br /> STA Temp65<br /> LDA #$04<br /> STA Temp64<br /> SkipUpdatingClosestCollision<br /> LDA Temp61<br /> SEC<br /> SBC PlatformYTop,Y<br /> CLC<br /> ADC #$02<br /> CMP TempCollisionOverlap<br /> BEQ UpdateClosestCollisionPoint<br /> BCC UpdateClosestCollisionPoint<br /> JMP FinalizePlatformCollisionCheck<br /> UpdateClosestCollisionPoint<br /> STA TempCollisionOverlap<br /> LDA Temp62<br /> SEC<br /> SBC #$03<br /> CMP PlatformXLeftEdge,Y<br /> BCS FinalizeTopPlatformCollision<br /> JMP CollisionCheckNextPlatform<br /> FinalizeTopPlatformCollision<br /> LDA PlatformXRightEdge,Y<br /> SEC<br /> SBC #$03<br /> CMP Temp5E<br /> BCS HandlePlatformTopCollision<br /> JMP CollisionCheckNextPlatform<br /> HandlePlatformTopCollision<br /> LDA #$FF<br /> STA Temp64<br /> LDA Temp5E<br /> STA Temp65<br /> LDA Temp5F<br /> SEC<br /> SBC TempCollisionOverlap<br /> STA Temp66<br /> INC Temp66<br /> JMP FinalizePlatformCollisionCheck<br /> CheckCollisionWithLavaBridge<br /> LDA Temp61<br /> SEC<br /> SBC #$AF<br /> BMI PlatformCollisionNoHitReturnZero<br /> STA Temp60<br /> LDA Temp62<br /> SEC<br /> SBC BridgeBurningWidth<br /> STA TempCollisionOverlap<br /> INC TempCollisionOverlap<br /> LDA #$01<br /> STA Temp64<br /> LDA Temp5E<br /> SEC<br /> SBC TempCollisionOverlap<br /> STA Temp65<br /> LDA Temp5F<br /> STA Temp66<br /> LDA #$E0<br /> SEC<br /> SBC BridgeBurningWidth<br /> SEC<br /> SBC Temp5E<br /> CMP TempCollisionOverlap<br /> BCS PrioritizeLavaBridgeHorizontalCollision<br /> STA TempCollisionOverlap<br /> INC TempCollisionOverlap<br /> LDA #$08<br /> STA Temp64<br /> LDA Temp5E<br /> CLC<br /> ADC TempCollisionOverlap<br /> STA Temp65<br /> LDA Temp5F<br /> STA Temp66<br /> PrioritizeLavaBridgeHorizontalCollision<br /> LDA Temp60<br /> CMP TempCollisionOverlap<br /> BCS FinalizePlatformCollisionCheck<br /> LDA Temp62<br /> SEC<br /> SBC #$03<br /> CMP BridgeBurningWidth<br /> BCS CheckLavaBridgeXBounds<br /> JMP PlatformCollisionNoHitReturnZero<br /> CheckLavaBridgeXBounds<br /> LDA #$E0<br /> SEC<br /> SBC BridgeBurningWidth<br /> SEC<br /> SBC #$03<br /> CMP Temp5E<br /> BCS HandleLavaBridgeTopCollision<br /> JMP PlatformCollisionNoHitReturnZero<br /> HandleLavaBridgeTopCollision<br /> LDA #$FF<br /> STA Temp64<br /> LDA Temp5E<br /> STA Temp65<br /> LDA Temp5F<br /> SEC<br /> SBC Temp60<br /> STA Temp66<br /> FinalizePlatformCollisionCheck<br /> LDY Temp68<br /> LDA Temp64<br /> RTS<br /> <br /> PlatformCollisionNoHitReturnZero<br /> LDY Temp68<br /> LDA #$00<br /> RTS<br /> <br /> SelectEggCollisionPointAndCheck<br /> LDA #$04<br /> STA Temp69<br /> JMP CheckPlatformCollision<br /> SelectCollisionPointsAndCheckPlatform<br /> LDA GameObjectSkidDirection,X<br /> BNE SelectCollisionPointsForSkiddingBird<br /> LDA #$00<br /> STA Temp69<br /> JMP CheckPlatformCollision<br /> SelectCollisionPointsForSkiddingBird<br /> LDA #$0A<br /> STA Temp69<br /> JMP CheckPlatformCollision<br /> CheckForShallowPlatformCollision<br /> LDA GameObjectXCoordHi,X<br /> CMP #$B0<br /> BCS FallbackToStandardCollisionCheck<br /> CMP #$AA<br /> BEQ FallbackToStandardCollisionCheck<br /> BCC FallbackToStandardCollisionCheck<br /> LDA GameObjectYCoordHi,X<br /> CMP #$66<br /> BCS FallbackToStandardCollisionCheck<br /> CMP #$62<br /> BCC FallbackToStandardCollisionCheck<br /> LDA GameObjectXVelocity,X<br /> BPL FallbackToStandardCollisionCheck<br /> LDA #$AA<br /> STA Temp65<br /> LDA #$73<br /> STA Temp66<br /> LDA #$02<br /> RTS<br /> <br /> FallbackToStandardCollisionCheck<br /> CPX #$01<br /> BNE SelectCollisionPointForOtherBirds<br /> LDA #$08<br /> STA Temp69<br /> JMP CheckPlatformCollision<br /> SelectCollisionPointForOtherBirds<br /> LDA #$02<br /> STA Temp69<br /> JMP CheckPlatformCollision<br /> <br /> CheckPterryPlatformCollision<br /> LDA GameObjectXCoordHi,X<br /> CMP #$AD<br /> BCS SelectCollisionPointsForPterry<br /> CMP #$AA<br /> BCC SelectCollisionPointsForPterry<br /> LDA GameObjectYCoordHi,X<br /> CMP #$67<br /> BCS SelectCollisionPointsForPterry<br /> CMP #$62<br /> BCC SelectCollisionPointsForPterry<br /> LDA GameObjectXVelocity,X<br /> BPL SelectCollisionPointsForPterry<br /> LDA #$AA<br /> STA Temp65<br /> LDA #$73<br /> STA Temp66<br /> LDA #$02<br /> RTS<br /> <br /> SelectCollisionPointsForPterry<br /> LDA #$06<br /> STA Temp69<br /> JMP CheckPlatformCollision<br /> CheckIfEggSlippingOffPlatform<br /> STY Temp64<br /> LDY #$04<br /> JMP PerformPlatformEdgeCheck<br /> CheckIfBirdNearPlatformEdge<br /> STY Temp64<br /> LDA GameObjectSkidDirection,X<br /> BNE SelectCollisionPointForSkiddingBird<br /> LDY #$00<br /> JMP PerformPlatformEdgeCheck<br /> SelectCollisionPointForSkiddingBird<br /> LDY #$0A<br /> PerformPlatformEdgeCheck<br /> LDA GameObjectXCoordHi,X<br /> STA Temp5E<br /> LDA GameObjectYCoordHi,X<br /> STA Temp5F<br /> LDA #$00<br /> STA Temp60<br /> LDA PlatformCollisionCheckPointYLUT,Y<br /> CLC<br /> ADC Temp5F<br /> STA Temp61<br /> INC Temp61<br /> LDA PlatformCollisionCheckPointXLUT,Y<br /> CLC<br /> ADC Temp5E<br /> STA Temp62<br /> LDA PlatformPresentBitmask<br /> STA Temp63<br /> LDY #$06<br /> PlatformEdgeCheckLoop<br /> LSR Temp63<br /> BCC CheckNextPlatformForEdge<br /> LDA Temp61<br /> CMP PlatformYTop,Y<br /> BEQ ConfirmBirdIsOnPlatform<br /> BCS CheckNextPlatformForEdge<br /> JMP FinishPlatformEdgeCheck<br /> ConfirmBirdIsOnPlatform<br /> LDA Temp62<br /> SEC<br /> SBC #$03<br /> CMP PlatformXLeftEdge,Y<br /> BCC CheckNextPlatformForEdge<br /> LDA PlatformXRightEdge,Y<br /> SEC<br /> SBC #$03<br /> CMP Temp5E<br /> BCC CheckNextPlatformForEdge<br /> JMP PlatformEdgeCheckOnPlatformReturnTrue<br /> CheckNextPlatformForEdge<br /> DEY<br /> BPL PlatformEdgeCheckLoop<br /> LDA Temp61<br /> CMP #$B0<br /> BNE FinishPlatformEdgeCheck<br /> LDA #$E0<br /> SEC<br /> SBC BridgeBurningWidth<br /> CMP Temp5E<br /> BEQ FinishPlatformEdgeCheck<br /> BCC FinishPlatformEdgeCheck<br /> LDA Temp62<br /> CMP BridgeBurningWidth<br /> BEQ FinishPlatformEdgeCheck<br /> BCC FinishPlatformEdgeCheck<br /> LDA #$E0<br /> SEC<br /> SBC BridgeBurningWidth<br /> CMP Temp5E<br /> BEQ FinishPlatformEdgeCheck<br /> BCC FinishPlatformEdgeCheck<br /> PlatformEdgeCheckOnPlatformReturnTrue<br /> LDA #$01<br /> STA Temp60<br /> FinishPlatformEdgeCheck<br /> LDY Temp64<br /> RTS<br /> <br /> ; Pairs of coordinates used for platform collision checks<br /> PlatformCollisionCheckPointXLUT<br /> .byte $08<br /> PlatformCollisionCheckPointYLUT<br /> .byte $0F<br /> .byte $08,$0A<br /> .byte $04,$05<br /> .byte $10,$09<br /> .byte $08,$0C<br /> .byte $08,$0E<br /> <br /> PlatformXLeftEdge<br /> .byte $57,$AB,$18,$8D,$4E,$18,$A8<br /> <br /> PlatformXRightEdge<br /> .byte $7B,$CD,$44,$AE,$7D,$33,$C4<br /> <br /> PlatformYTop<br /> .byte $80,$70,$70,$68,$40,$38,$38<br /> <br /> PlatformYBottom<br /> .byte $86,$77,$76,$72,$46,$3E,$3E<br /> <br /> PlatformXLeftBounce ; used to start low-approacing bird bouncing<br /> .byte $47,$9D,$0A,$80,$46,$11,$A1<br /> <br /> PlatformYBottomForBounceCheckLUT<br /> .byte $6D,$4A,$6A,$47,$2D,$34,$11<br /> PlatformYTopForBounceCheckLUT<br /> .byte $9F,$A4,$82,$9D,$5F,$48,$6B<br /> <br /> PlatformXRightBounce ; used to start low-approacing bird bouncing<br /> .byte $8B,$DB,$52,$BB,$85,$3A,$CB<br /> <br /> ; Platform information tables used by riderless bird figuring out which<br /> ; direction to start with to get to it's hatched rider.<br /> PlatformTopCoordinate<br /> .byte $32,$3A,$62,$6A,$7A,$AA,$AA<br /> PlatformLeftsideCoordinate<br /> .byte $A8,$4E,$8D,$AB,$4D,$3C,$A4<br /> PlatformRightsideCoordinate<br /> .byte $C0,$65,$9D,$C0,$89,$70,$C0<br /> <br /> ; Doesn't seem to be referenced during play, even indirectly.<br /> UnusedPterrySpawnYCoordLUT <br /> .byte $15,$52,$52,$52,$52,$94,$94<br /> <br /> ; Data for random egg placement during Egg Waves<br /> NewEggXMaximum<br /> .byte $10,$0B,$27,$1D,$20,$12,$20,$59<br /> NewEggXOffset<br /> .byte $AB,$23,$51,$90,$23,$AE,$5A,$45<br /> NewEggYCoordinate<br /> .byte $32,$32,$3A,$62,$6A,$6A,$7A,$AA<br /> <br /> ;------------------------------------------------------------------------------<br /> ; UpdatePlayerScoreAndBonus<br /> ; Adds a score value to the current player's score and checks for extra lives.<br /> ; Input: X = player index. Temp60/61/62 = score value to add.<br /> ;------------------------------------------------------------------------------<br /> UpdatePlayerScoreAndBonus<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> LDA P0Lives,X<br /> BMI FinalizeScoreUpdateAndExit<br /> LDA DemoMode<br /> BNE FinalizeScoreUpdateAndExit<br /> STA Temp60<br /> TXA<br /> BNE UpdatePlayer1Score<br /> LDY #$02<br /> SED<br /> CLC<br /> AddScoreToPlayer0Loop<br /> LDA.w Temp60,Y<br /> ADC.w P0Score,Y<br /> STA.w P0Score,Y<br /> DEY<br /> BPL AddScoreToPlayer0Loop<br /> TXA<br /> JSR CheckForPlayer0BonusLife<br /> JMP FinalizeScoreUpdateAndExit<br /> UpdatePlayer1Score<br /> LDY #$02<br /> SED<br /> CLC<br /> AddScoreToPlayer1Loop<br /> LDA.w Temp60,Y<br /> ADC.w P1Score,Y<br /> STA.w P1Score,Y<br /> DEY<br /> BPL AddScoreToPlayer1Loop<br /> TXA<br /> JSR CheckForPlayer1BonusLife<br /> FinalizeScoreUpdateAndExit<br /> JSR UpdateScoreDisplay<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> RTS<br /> <br /> CheckForPlayer0BonusLife<br /> LDY #$01<br /> CLC<br /> AddScoreToBonusLifeCounterLoop: LDA.w Temp61,Y<br /> ADC.w P0ExtraLifeScore,Y<br /> STA.w P0ExtraLifeScore,Y<br /> DEY<br /> BPL AddScoreToBonusLifeCounterLoop<br /> CLD<br /> LDA P0ExtraLifeScore<br /> BMI NoBonusLifeAwarded<br /> SEC<br /> SBC #$80<br /> STA P0ExtraLifeScore<br /> JMP AwardBonusLife<br /> NoBonusLifeAwarded<br /> RTS<br /> <br /> CheckForPlayer1BonusLife<br /> LDY #$01<br /> CLC<br /> AddScoreToP1BonusLifeCounterLoop<br /> LDA.w Temp61,Y<br /> ADC.w P1ExtraLifeScore,Y<br /> STA.w P1ExtraLifeScore,Y<br /> DEY<br /> BPL AddScoreToP1BonusLifeCounterLoop<br /> CLD<br /> LDA P1ExtraLifeScore<br /> BMI NoBonusLifeAwarded<br /> SEC<br /> SBC #$80<br /> STA P1ExtraLifeScore<br /> JMP AwardBonusLife<br /> <br /> ;------------------------------------------------------------------------------<br /> ; InitPlayerLivesAndBonus<br /> ; Initializes lives and bonus score thresholds at the start of a game.<br /> ;------------------------------------------------------------------------------<br /> InitPlayerLivesAndBonus<br /> ; Initializes the lives and bonus score for one or both players<br /> LDA #$FF<br /> STA P1Lives<br /> LDA #$04<br /> STA P0Lives<br /> LDX PlayerCount<br /> BEQ InitPlayerLivesDone ; leave P1Lives=FF for one player mode<br /> STA P1Lives<br /> InitPlayerLivesDone<br /> LDA #$80<br /> STA P0ExtraLifeScore<br /> STA P1ExtraLifeScore<br /> ASL<br /> STA P0ExtraLifeScore+1<br /> STA P1ExtraLifeScore+1<br /> EarlyReturn3<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; DeadPlayerChecks<br /> ; Handles the logic when a player dies: decrements lives, checks for game over.<br /> ; Input: X = player index<br /> ;------------------------------------------------------------------------------<br /> DeadPlayerChecks<br /> LDA #$00<br /> STA LevelWasSurvived ; No survival points if you die.<br /> STA P0EggPointLevel,X<br /> DEC P0Lives,X ; Lose a life and return<br /> LDA P0Lives,X ; only if you have more.<br /> BPL EarlyReturn3<br /> LDA P0Lives ; when both player lives are zero, we skip<br /> EOR P1Lives ; over player death notifications, and <br /> BEQ SkipPlayerGameOverMsg ; instead display &quot;thy game is over&quot;<br /> LDA DemoMode<br /> BNE EarlyReturn3<br /> TXA<br /> CLC<br /> ADC #$08 ; game message 8=&quot;player one&quot;, 9=&quot;player two&quot;<br /> JSR DisplayGameMessage<br /> LDA #$0A ; &quot;game over&quot;<br /> JMP DisplayGameMessage<br /> SkipPlayerGameOverMsg<br /> LDA DemoMode<br /> BNE EarlyReturn3<br /> LDA #$01<br /> STA GameActiveFlag<br /> LDA #$0B ; &quot;thy game is over&quot;<br /> JMP DisplayGameMessage<br /> AwardBonusLife<br /> LDA P0Lives,X<br /> CMP #$7F ; Maximum lives is $7F<br /> BEQ ScheduleFreeBirdSound<br /> INC P0Lives,X<br /> JSR UpdatePlayerLivesDisplayed<br /> ScheduleFreeBirdSound<br /> LDA #SFX_FreeBird<br /> JMP ScheduleSFX<br /> UpdateScoreDisplay<br /> LDA #$00<br /> STA Temp5E<br /> TAX<br /> UpdateScoreDisplayP0HandleLeadingZeros<br /> LDA P0Score,X<br /> LSR<br /> LSR<br /> LSR<br /> LSR<br /> BNE UpdateScoreDisplayP0ProcessDigit<br /> JSR AddSpaceToScoreHudString<br /> LDA P0Score,X<br /> AND #$0F<br /> BNE UpdateScoreDisplayP0ProcessUnitsDigit<br /> JSR AddSpaceToScoreHudString<br /> INX<br /> CPX #$03<br /> BMI UpdateScoreDisplayP0HandleLeadingZeros<br /> JMP FinalizeP0ScoreDisplay<br /> UpdateScoreDisplayP0Loop<br /> LDA P0Score,X<br /> LSR<br /> LSR<br /> LSR<br /> LSR<br /> UpdateScoreDisplayP0ProcessDigit<br /> CLC<br /> ADC #$01<br /> JSR AddCharToScoreHudString<br /> LDA P0Score,X<br /> AND #$0F<br /> UpdateScoreDisplayP0ProcessUnitsDigit<br /> CLC<br /> ADC #$01<br /> JSR AddCharToScoreHudString<br /> INX<br /> CPX #$03<br /> BMI UpdateScoreDisplayP0Loop<br /> FinalizeP0ScoreDisplay<br /> LDA #$01<br /> JSR AddCharToScoreHudString<br /> LDA PlayerCount<br /> BNE UpdatePlayer1ScoreDisplay<br /> RTS<br /> <br /> UpdatePlayer1ScoreDisplay<br /> LDA #$0D<br /> STA Temp5E<br /> LDX #$00<br /> UpdateScoreDisplayP1HandleLeadingZeros<br /> LDA P1Score,X<br /> LSR<br /> LSR<br /> LSR<br /> LSR<br /> BNE UpdateScoreDisplayP1ProcessDigit<br /> JSR AddSpaceToScoreHudString<br /> LDA P1Score,X<br /> AND #$0F<br /> BNE UpdateScoreDisplayP1ProcessUnitsDigit<br /> JSR AddSpaceToScoreHudString<br /> INX<br /> CPX #$03<br /> BMI UpdateScoreDisplayP1HandleLeadingZeros<br /> BPL FinalizeP1ScoreDisplay<br /> UpdateScoreDisplayP1Loop<br /> LDA P1Score,X<br /> LSR<br /> LSR<br /> LSR<br /> LSR<br /> UpdateScoreDisplayP1ProcessDigit<br /> CLC<br /> ADC #$0C<br /> JSR AddCharToScoreHudString<br /> LDA P1Score,X<br /> AND #$0F<br /> UpdateScoreDisplayP1ProcessUnitsDigit<br /> CLC<br /> ADC #$0C<br /> JSR AddCharToScoreHudString<br /> INX<br /> CPX #$03<br /> BMI UpdateScoreDisplayP1Loop<br /> FinalizeP1ScoreDisplay<br /> LDA #$0C<br /> BNE AddCharToScoreHudString<br /> <br /> UpdatePlayerLivesDisplayed<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> LDA DemoMode<br /> BNE UpdatePlayerLivesExit<br /> LDA HudPlayerLivesStartXOffsetLUT,X<br /> STA Temp5E<br /> LDY #$03<br /> DrawPlayerLivesLoop<br /> TYA<br /> CMP P0Lives,X<br /> BPL DrawEmptyLifeSlot<br /> LDA HudPlayerLifeIconCharLUT,X<br /> JSR AddCharToScoreHudString<br /> JMP UpdatePlayerLivesContinueLoop<br /> DrawEmptyLifeSlot<br /> JSR AddSpaceToScoreHudString<br /> UpdatePlayerLivesContinueLoop<br /> DEY<br /> BPL DrawPlayerLivesLoop<br /> UpdatePlayerLivesExit<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> RTS<br /> <br /> HudPlayerLifeIconCharLUT<br /> .byte $0B,$16 ; Character codes for P0 and P1 life icons<br /> HudPlayerLivesStartXOffsetLUT<br /> .byte $07,$14 ; Start offsets in HUD buffer for P0 and P1 lives<br /> <br /> AddSpaceToScoreHudString<br /> LDA #$00 ; character index for space<br /> AddCharToScoreHudString<br /> STY Temp5F<br /> LDY Temp5E<br /> STA HudDisplayStringBuffer,Y<br /> LDY Temp5F<br /> INC Temp5E<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; DisplayGameMessage<br /> ; Schedules a message to be displayed on screen.<br /> ; Input: A = message index<br /> ;------------------------------------------------------------------------------<br /> DisplayGameMessage<br /> STA Temp69<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> LDA Temp69<br /> TAX<br /> LDY MessageLineNumber,X<br /> LDA Temp69<br /> STA $2038,Y<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; ManageMessageTimers<br /> ; Manages the timers for on-screen messages, clearing them when they expire.<br /> ;------------------------------------------------------------------------------<br /> ManageMessageTimers<br /> LDX #$03<br /> UpdateMessageDisplayTimers<br /> LDA $2038,X<br /> BMI ManageMessageTimersCheckNextLine<br /> LDA MessageLine0Timer,X<br /> BPL ManageMessageTimersCheckNextLine<br /> LDA $2038,X<br /> JSR DisplayMessageAndSetTimer<br /> LDA #$FF<br /> STA $2038,X<br /> ManageMessageTimersCheckNextLine<br /> DEX<br /> BPL UpdateMessageDisplayTimers<br /> LDX #$03<br /> ClearExpiredMessageTimersLoop: LDA MessageLine0Timer,X<br /> CMP #$FF<br /> BEQ CheckNextMessageTimer<br /> LDA MessageLine0Timer,X<br /> BMI CheckNextMessageTimer<br /> DEC MessageLine0Timer,X<br /> BNE CheckNextMessageTimer<br /> LDA MsgBufferLo,X<br /> STA TempPointLo5A<br /> LDA MsgBufferHi,X<br /> STA TempPointHi5B<br /> LDY #$0F<br /> LDA #$00<br /> ClearMessageBufferLoop<br /> STA (TempPointLo5A),Y<br /> DEY<br /> BPL ClearMessageBufferLoop<br /> CheckNextMessageTimer<br /> DEX<br /> BPL ClearExpiredMessageTimersLoop<br /> RTS<br /> <br /> DisplayMessageAndSetTimer<br /> STA Temp69<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> LDX Temp69<br /> LDA MessageLineNumber,X<br /> TAX<br /> LDY Temp69<br /> LDA MessageDisplayTime,Y<br /> STA MessageLine0Timer,X<br /> JSR UpdateDLWithMessageString<br /> LDA Temp69<br /> BNE FinishDisplayingMessage<br /> TAX<br /> TAY<br /> JSR UpdateDLWithMessageString<br /> LDA LevelBCD<br /> LSR<br /> LSR<br /> LSR<br /> LSR<br /> BEQ DisplayWaveNumberProcessUnitsDigit<br /> CLC<br /> ADC #$0C<br /> STA HudWaveNumberDigit1<br /> DisplayWaveNumberProcessUnitsDigit<br /> LDA LevelBCD<br /> AND #$0F<br /> CLC<br /> ADC #$0C<br /> STA HudWaveNumberDigit2<br /> FinishDisplayingMessage<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> RTS<br /> <br /> UpdateDLWithMessageString<br /> LDA MsgBufferLo,X<br /> STA TempPointLo5A<br /> LDA MsgBufferHi,X<br /> STA TempPointHi5B<br /> TYA<br /> ASL<br /> ASL<br /> ASL<br /> ASL ; A = Y * 16<br /> PHP<br /> CLC<br /> ADC #&lt;GameMessages<br /> STA Temp5E<br /> BCC AddHiByteWithNoCarry<br /> LDA #$01<br /> BNE FinalizeMessagePointerHiByte<br /> AddHiByteWithNoCarry<br /> LDA #$00<br /> FinalizeMessagePointerHiByte<br /> PLP<br /> ADC #&gt;GameMessages<br /> STA Temp5F<br /> LDY #$0F<br /> CopyMessageStringToBufferLoop<br /> LDA (Temp5E),Y<br /> CLC<br /> ADC #$00<br /> STA (TempPointLo5A),Y<br /> DEY<br /> BPL CopyMessageStringToBufferLoop<br /> RTS<br /> <br /> MessageLineNumber<br /> .byte 0,2,3,1,1,1,1,1,2,2,3,2,1,1,1,2,1,1,1<br /> <br /> MessageDisplayTime<br /> .byte $3C, $46, $28, $3C, $3C, $3C, $3C, $3C<br /> .byte $3C, $3C, $3C, $F0, $3C, $3C, $3C, $3C<br /> .byte $3C, $3C, $3C <br /> <br /> MsgBufferLo<br /> .byte &lt;$2671 <br /> .byte &lt;$2685 <br /> .byte &lt;$2699 <br /> .byte &lt;$26AD <br /> <br /> MsgBufferHi<br /> .byte &gt;$2671 <br /> .byte &gt;$2685 <br /> .byte &gt;$2699 <br /> .byte &gt;$26AD <br /> <br /> GameMessages<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> ; &quot;WAVE&quot;<br /> .byte $29 ; 'W' <br /> .byte $17 ; 'A'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> ; &quot;PREPARE TO JOUST&quot;<br /> .byte $23 ; 'P' <br /> .byte $24 ; 'R'<br /> .byte $1B ; 'E'<br /> .byte $23 ; 'P'<br /> .byte $17 ; 'A'<br /> .byte $24 ; 'R'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $26 ; 'T'<br /> .byte $0C ; '0'<br /> .byte $00<br /> .byte $1F ; 'J' <br /> .byte $0C ; '0' <br /> .byte $27 ; 'U' <br /> .byte $25 ; 'S' <br /> .byte $26 ; 'T' <br /> .byte $00<br /> .byte $00<br /> ; &quot;BUZZARD BAIT&quot;<br /> .byte $18 ; 'B' <br /> .byte $27 ; 'U'<br /> .byte $2C ; 'Z'<br /> .byte $2C ; 'Z'<br /> .byte $17 ; 'A'<br /> .byte $24 ; 'R'<br /> .byte $1A ; 'D'<br /> .byte $00<br /> .byte $18 ; 'B' <br /> .byte $17 ; 'A'<br /> .byte $1E ; 'I'<br /> .byte $26 ; 'T'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> ; &quot;EGG WAVE&quot;<br /> .byte $1B ; 'E' <br /> .byte $1C ; 'G'<br /> .byte $1C ; 'G'<br /> .byte $00<br /> .byte $29 ; 'W'<br /> .byte $17 ; 'A'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $1C ; 'G' <br /> .byte $20 ; 'L'<br /> .byte $17 ; 'A'<br /> .byte $1A ; 'D'<br /> .byte $1E ; 'I'<br /> .byte $17 ; 'A'<br /> .byte $26 ; 'T'<br /> .byte $0C ; 'O'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $29 ; 'W' <br /> .byte $17 ; 'A'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $23 ; 'P' <br /> .byte $26 ; 'T'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $24 ; 'R'<br /> .byte $2B ; 'Y'<br /> .byte $00<br /> .byte $00<br /> .byte $29 ; 'W' <br /> .byte $17 ; 'A'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $25 ; 'S' <br /> .byte $27 ; 'U'<br /> .byte $24 ; 'R'<br /> .byte $28 ; 'V'<br /> .byte $1E ; 'I'<br /> .byte $28 ; 'V'<br /> .byte $17 ; 'A'<br /> .byte $20 ; 'L'<br /> .byte $00<br /> .byte $00<br /> .byte $29 ; 'W' <br /> .byte $17 ; 'A'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $26 ; 'T'<br /> .byte $1B ; 'E'<br /> .byte $17 ; 'A'<br /> .byte $21 ; 'M'<br /> .byte $00<br /> .byte $00<br /> .byte $29 ; 'W'<br /> .byte $17 ; 'A'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $23 ; 'P'<br /> .byte $20 ; 'L'<br /> .byte $17 ; 'A'<br /> .byte $2B ; 'Y'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $0D ; '1'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $23 ; 'P'<br /> .byte $20 ; 'L'<br /> .byte $17 ; 'A'<br /> .byte $2B ; 'Y'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $0E ; '2'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $1C ; 'G'<br /> .byte $17 ; 'A'<br /> .byte $21 ; 'M'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> .byte $0C ; '0'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $00<br /> .byte $26 ; 'T'<br /> .byte $1D ; 'H'<br /> .byte $2B ; 'Y'<br /> .byte $00<br /> .byte $1C ; 'G'<br /> .byte $17 ; 'A'<br /> .byte $21 ; 'M'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $1E ; 'I'<br /> .byte $25 ; 'S'<br /> .byte $00<br /> .byte $0C ; '0'<br /> .byte $28 ; 'V'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $0F ; '3'<br /> .byte $0C ; '0'<br /> .byte $0C ; '0'<br /> .byte $0C ; '0'<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $25 ; 'S'<br /> .byte $27 ; 'U'<br /> .byte $24 ; 'R'<br /> .byte $28 ; 'V'<br /> .byte $1E ; 'I'<br /> .byte $28 ; 'V'<br /> .byte $17 ; 'A'<br /> .byte $20 ; 'L'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $0F ; '3'<br /> .byte $0C ; '0'<br /> .byte $0C ; '0'<br /> .byte $0C ; '0'<br /> .byte $00 ;<br /> .byte $00 ;<br /> .byte $26 ; 'T'<br /> .byte $1B ; 'E'<br /> .byte $17 ; 'A'<br /> .byte $21 ; 'M'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $0F ; '3'<br /> .byte $0C ; '0'<br /> .byte $0C ; '0'<br /> .byte $0C ; '0'<br /> .byte $00<br /> .byte $1C ; 'G'<br /> .byte $20 ; 'L'<br /> .byte $17 ; 'A'<br /> .byte $1A ; 'D'<br /> .byte $1E ; 'I'<br /> .byte $17 ; 'A'<br /> .byte $26 ; 'T'<br /> .byte $0C ; '0'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $00<br /> .byte $23 ; 'P'<br /> .byte $0C ; '0'<br /> .byte $1E ; 'I'<br /> .byte $22 ; 'N'<br /> .byte $26 ; 'T'<br /> .byte $25 ; 'S'<br /> .byte $00<br /> .byte $17 ; 'A'<br /> .byte $29 ; 'W'<br /> .byte $17 ; 'A'<br /> .byte $24 ; 'R'<br /> .byte $1A ; 'D'<br /> .byte $1B ; 'E'<br /> .byte $1A ; 'D'<br /> <br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $22 ; 'N'<br /> .byte $0C ; '0'<br /> .byte $00<br /> .byte $00<br /> .byte $25 ; 'S'<br /> .byte $27 ; 'U'<br /> .byte $24 ; 'R'<br /> .byte $28 ; 'V'<br /> .byte $1E ; 'I'<br /> .byte $28 ; 'V'<br /> .byte $17 ; 'A'<br /> .byte $20 ; 'L'<br /> .byte $00<br /> <br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $22 ; 'N'<br /> .byte $0C ; '0'<br /> .byte $00<br /> .byte $00<br /> .byte $26 ; 'T'<br /> .byte $1B ; 'E'<br /> .byte $17 ; 'A'<br /> .byte $21 ; 'M'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $22 ; 'N'<br /> .byte $0C ; '0'<br /> .byte $00<br /> .byte $1C ; 'G'<br /> .byte $20 ; 'L'<br /> .byte $17 ; 'A'<br /> .byte $1A ; 'D'<br /> .byte $1E ; 'I'<br /> .byte $17 ; 'A'<br /> .byte $26 ; 'T'<br /> .byte $0C ; 'O'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $00<br /> <br /> StringCopyright<br /> .byte $2E ; 1/2 (c) symbol<br /> .byte $2F ; 1/2 (c) symbol<br /> .byte $00 ; ' '<br /> .byte $17 ; 'A'<br /> .byte $26 ; 'T'<br /> .byte $17 ; 'A'<br /> .byte $24 ; 'R'<br /> .byte $1E ; 'I'<br /> .byte $00 ; ' '<br /> .byte $0D ; '1'<br /> .byte $15 ; '9'<br /> .byte $14 ; '8'<br /> .byte $10 ; '4' <br /> .byte $2E ; 1/2 (c) symbol<br /> .byte $2F ; 1/2 (c) symbol<br /> .byte $00 ; ' '<br /> .byte $29 ; 'W'<br /> .byte $1E ; 'I'<br /> .byte $20 ; 'L'<br /> .byte $20 ; 'L'<br /> .byte $1E ; 'I'<br /> .byte $17 ; 'A'<br /> .byte $21 ; 'M'<br /> .byte $25 ; 'S'<br /> .byte $00 ; ' '<br /> .byte $0D ; '1'<br /> .byte $15 ; '9'<br /> .byte $14 ; '8'<br /> .byte $0E ; '2'<br /> <br /> ;------------------------------------------------------------------------------<br /> ; DisplayRoutineInit<br /> ; Initializes the working Display List pointers in RAM ($242B/$2443)<br /> ; from the master pointers in ROM. It then proceeds to build the render list<br /> ; for the current frame by processing all active game objects.<br /> ;------------------------------------------------------------------------------<br /> DisplayRoutineInit<br /> LDX #$17 ; 24 DLs<br /> InitializeDisplayListPointers<br /> LDA DisplayListLoLUT,X<br /> STA DisplayListLo,X<br /> LDA DisplayListHiLUT,X<br /> STA DisplayListHi,X<br /> DEX<br /> BPL InitializeDisplayListPointers<br /> <br /> ; loop through all of the birds...<br /> LDY #$09<br /> RenderBirdObjectsLoop<br /> LDA.w GameObjectState,Y<br /> BEQ RenderNextBird ; if state is dead then skip<br /> CMP #$03 ; if state is born1<br /> BEQ RenderNextBird ; then skip<br /> JSR PrepareBirdSpriteForRenderList<br /> LDA GameObjectInAir,Y<br /> BNE RenderAirborneBirdRider<br /> JSR PrepareOnPlatformBirdSprite<br /> RenderAirborneBirdRider<br /> LDA.w GameObjectAlive,Y<br /> BEQ RenderNextBird<br /> JSR PrepareRiderOnBirdSpriteForRenderList<br /> RenderNextBird<br /> DEY<br /> BPL RenderBirdObjectsLoop<br /> <br /> ; loop through all of the pterrys...<br /> LDY #$02<br /> RenderPterryObjectsLoop<br /> LDA.w PterryState1,Y<br /> BEQ RenderNextPterry<br /> JSR PreparePterrySpriteForRenderList<br /> RenderNextPterry<br /> DEY<br /> BPL RenderPterryObjectsLoop<br /> <br /> ; loop through all of the eggs...<br /> LDY #$0B<br /> RenderEggObjectsLoop<br /> LDA.w EggState,Y<br /> BEQ RenderNextEggObject<br /> JSR PrepareEggSpriteForRenderList<br /> RenderNextEggObject<br /> DEY<br /> BPL RenderEggObjectsLoop<br /> <br /> ; loop through all of the player birds...<br /> LDY #$01<br /> RenderPlayerDeathExplosionLoop<br /> LDA.w P0DeathState,Y<br /> BEQ RenderNextPlayerDeathExplosion<br /> JSR PreparePlayerExplosionSpriteForRenderList<br /> RenderNextPlayerDeathExplosion<br /> DEY<br /> BPL RenderPlayerDeathExplosionLoop<br /> <br /> LDY #$05<br /> RenderDissolvingPlatformObjectsLoop<br /> LDA PlatformDissolveAnimationFlag0,Y<br /> BEQ RenderNextDissolvingParticle<br /> JSR PrepareDissolvingPlatformParticleForRenderList<br /> RenderNextDissolvingParticle<br /> DEY<br /> BPL RenderDissolvingPlatformObjectsLoop<br /> LDA TrollState<br /> BEQ RenderTrollIfVisible ; Troll hiding in lava?<br /> JSR PrepareTrollSpriteForRenderList<br /> RenderTrollIfVisible<br /> STX RenderListCount<br /> LDA #$01<br /> STA RenderListDirty<br /> RTS<br /> <br /> PrepareTrollSpriteForRenderList<br /> LDA TrollGfxOffset<br /> STA Temp5EGfxDataLo<br /> LDA #$A8<br /> STA Temp5FGfxDataHi<br /> LDA #$1E<br /> STA Temp60PaletteAndWidth<br /> LDA TrollXCoord<br /> SEC<br /> SBC #$20<br /> STA Temp61SpriteXCoord<br /> LDA #$9A<br /> STA Temp62<br /> LDA TrollYCoord<br /> SEC<br /> SBC #$10<br /> LDY TrollTargetIndex<br /> CPY #$01<br /> BNE StoreTrollSpriteYCoord<br /> SBC #$02<br /> StoreTrollSpriteYCoord<br /> STA Temp63SpriteYCoord<br /> JMP AddSpriteToRenderList<br /> PrepareDissolvingPlatformParticleForRenderList<br /> SEC<br /> SBC #$01<br /> ASL<br /> ASL<br /> CLC<br /> ADC #$78<br /> STA Temp5EGfxDataLo<br /> LDA #$A8<br /> STA Temp5FGfxDataHi<br /> LDA #$1C<br /> STA Temp60PaletteAndWidth<br /> LDA PlatformDissolveAnimationXCoord0,Y<br /> STA Temp61SpriteXCoord<br /> LDA #$A1<br /> STA Temp62<br /> LDA PlatformDissolveAnimationYCoord0,Y<br /> SEC<br /> SBC #$10<br /> STA Temp63SpriteYCoord<br /> JMP AddSpriteToRenderList<br /> PreparePlayerExplosionSpriteForRenderList<br /> LDA.w P0DeathState,Y<br /> SEC<br /> SBC #$01<br /> ASL<br /> CLC<br /> ADC #$70<br /> STA Temp5EGfxDataLo<br /> LDA #$A8<br /> STA Temp5FGfxDataHi<br /> LDA #$7E<br /> STA Temp60PaletteAndWidth<br /> LDA.w PlayerExplosionXCoord,Y<br /> SEC<br /> SBC #$20<br /> STA Temp61SpriteXCoord<br /> LDA #$A2<br /> STA Temp62<br /> LDA.w PlayerExplosionYCoord,Y<br /> SEC<br /> SBC #$10<br /> STA Temp63SpriteYCoord<br /> JMP AddSpriteToRenderList<br /> <br /> ; This appears to be dead menu code. Apparently at one point in development<br /> ; changing menu options would update the DL with the relevant character object.<br /> ; This was abandoned for the current character-buffer update system.<br /> STY Temp65<br /> LDA #$8F<br /> STA Temp60PaletteAndWidth<br /> LDA #$27<br /> STA Temp61SpriteXCoord<br /> LDA UNUSED_TitleMenuTextAddrLoLUT,Y<br /> STA Temp5EGfxDataLo<br /> LDA UNUSED_TitleMenuTextAddrHiLUT,Y<br /> STA Temp5F<br /> LDA UNUSED_TitleMenuDLZoneLUT,Y<br /> TAY<br /> JSR UpdateRenderList<br /> LDY Temp65<br /> RTS<br /> <br /> PreparePterrySpriteForRenderList<br /> LDA $2344,Y ; pterry direction<br /> BMI SetPterryBaseGfxForLeftFacing<br /> LDA #$44<br /> JMP StorePterryBaseGfxAndContinue<br /> SetPterryBaseGfxForLeftFacing<br /> LDA #$2C<br /> StorePterryBaseGfxAndContinue<br /> STA Temp5EGfxDataLo<br /> LDA $236A,Y ; pterry animation frame<br /> ASL<br /> ASL<br /> ADC Temp5EGfxDataLo<br /> STA Temp5EGfxDataLo<br /> LDA #$A8<br /> STA Temp5F<br /> STX Temp61<br /> LDA $236A,Y<br /> TAX<br /> LDA PterrySpritePaletteAndWidthLUT,X<br /> STA Temp60PaletteAndWidth<br /> LDX Temp61<br /> LDA $015E,Y<br /> SEC<br /> SBC #$20<br /> STA Temp61SpriteXCoord<br /> LDA #$9A<br /> STA Temp62<br /> LDA $0177,Y<br /> SEC<br /> SBC #$10<br /> STA Temp63SpriteYCoord<br /> JMP AddSpriteToRenderList<br /> PrepareEggSpriteForRenderList<br /> CMP #$04<br /> BEQ PrepareRiderSpriteForRenderList<br /> CMP #$03<br /> BEQ PrepareRiderSpriteForRenderList<br /> LDA $221B,Y<br /> CLC<br /> ADC #$80<br /> STA Temp5EGfxDataLo<br /> LDA EggX,Y<br /> SEC<br /> SBC #$20<br /> STA Temp61SpriteXCoord<br /> LDA #$9F<br /> STA Temp60PaletteAndWidth<br /> LDA #$A8<br /> STA Temp5FGfxDataHi<br /> LDA #$A4<br /> STA Temp62<br /> LDA EggY,Y<br /> SEC<br /> SBC #$0F<br /> STA Temp63SpriteYCoord<br /> JMP AddSpriteToRenderList<br /> PrepareRiderSpriteForRenderList<br /> LDA.w EggState,Y<br /> CMP #$03<br /> BNE RenderHatchedRiderSprite<br /> LDA #$CB<br /> STA Temp5EGfxDataLo<br /> LDA #$C0<br /> STA Temp5FGfxDataHi<br /> LDA #$9E<br /> STA Temp60PaletteAndWidth<br /> LDA EggX,Y<br /> SEC<br /> SBC #$21<br /> STA Temp61SpriteXCoord<br /> LDA EggY,Y<br /> SEC<br /> SBC #$0C<br /> LSR<br /> LSR<br /> LSR<br /> STY TempCollisionOverlap<br /> TAY<br /> JSR UpdateRenderList<br /> LDY TempCollisionOverlap<br /> RenderHatchedRiderSprite<br /> LDA EggLevelAndType,Y<br /> ASL<br /> CLC<br /> ADC #$58<br /> STA Temp5EGfxDataLo<br /> LDA #$C0<br /> STA Temp5FGfxDataHi<br /> LDA #$5E<br /> STA Temp60PaletteAndWidth<br /> LDA EggX,Y<br /> SEC<br /> SBC #$20<br /> STA Temp61SpriteXCoord<br /> LDA EggY,Y<br /> SEC<br /> SBC #$0C<br /> LSR<br /> LSR<br /> LSR<br /> STY TempCollisionOverlap<br /> TAY<br /> JSR UpdateRenderList<br /> LDY TempCollisionOverlap<br /> RTS<br /> <br /> PrepareRiderOnBirdSpriteForRenderList<br /> LDA RiderObjectPaletteAndWidth,Y<br /> STA Temp60PaletteAndWidth<br /> LDA GameObjectDirection,Y<br /> BMI SetRiderBaseGfxForLeftFacing<br /> LDA #$5E<br /> JMP StoreRiderBaseGfxAndContinue<br /> SetRiderBaseGfxForLeftFacing<br /> LDA #$5C<br /> StoreRiderBaseGfxAndContinue<br /> STA Temp5E<br /> CPY #$02<br /> BCS CalculateEnemyRiderGfxOffset ; branch if non-player enemy bird<br /> TYA<br /> JMP CalculateFinalRiderGfxPointer<br /> CalculateEnemyRiderGfxOffset<br /> LDA ObjectBirdLevelAndType,Y<br /> CLC<br /> ADC #$02<br /> CalculateFinalRiderGfxPointer<br /> ASL<br /> ASL<br /> ADC Temp5EGfxDataLo<br /> STA Temp5EGfxDataLo<br /> LDA #$A8<br /> STA Temp5F<br /> LDA GameObjectXCoordHi,Y<br /> CLC<br /> ADC GameObjectDirection,Y<br /> SEC<br /> SBC #$20<br /> STA Temp61SpriteXCoord<br /> LDA #$A1<br /> STA Temp62<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$0F<br /> STA Temp63SpriteYCoord<br /> JMP AddSpriteToRenderList<br /> PrepareOnPlatformBirdSprite<br /> STX TempCollisionOverlap<br /> LDA.w GameObjectState,Y<br /> CMP #$06 ; invincible<br /> BNE RenderBirdOnPlatform<br /> LDA BirdObjectPaletteAndWidth,Y<br /> STA Temp60PaletteAndWidth<br /> LDA BirdSpawnGfxOffsetLUT,Y<br /> CLC<br /> LDX GameObjectDirection,Y<br /> BMI SetSpawnGfxForLeftFacingBird<br /> ADC #$02<br /> SetSpawnGfxForLeftFacingBird<br /> STA Temp5E<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$05<br /> STA Temp66<br /> AND #$07<br /> STA Temp64<br /> LDA #$A8<br /> CLC<br /> ADC Temp64<br /> STA Temp5F<br /> LDA Temp66<br /> LSR<br /> LSR<br /> LSR<br /> STA Temp66<br /> JMP FinalizeOnPlatformSpriteCoordsAndRender<br /> <br /> RenderBirdOnPlatform<br /> LDA #$1E<br /> STA Temp60PaletteAndWidth<br /> LDA #$AB<br /> STA Temp5FGfxDataHi<br /> LDA GameObjectFootstepAnimIndex,Y<br /> ASL<br /> LDX GameObjectDirection,Y<br /> BMI SelectLeftFacingWalkFrame<br /> CLC<br /> ADC #$0A<br /> SelectLeftFacingWalkFrame<br /> CLC<br /> ADC #$C4<br /> ADC BirdWalkCycleGfxOffsetLUT,Y<br /> STA Temp5EGfxDataLo<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$07<br /> LSR<br /> LSR<br /> LSR<br /> STA Temp66<br /> FinalizeOnPlatformSpriteCoordsAndRender<br /> LDA GameObjectXCoordHi,Y<br /> LDX GameObjectDirection,Y<br /> CLC<br /> BMI SetLeftFacingOnPlatformSpriteXCoord<br /> ADC #$01<br /> SetLeftFacingOnPlatformSpriteXCoord<br /> SEC<br /> SBC #$20<br /> STA Temp61SpriteXCoord<br /> LDX TempCollisionOverlap<br /> STY Temp65<br /> LDY Temp66<br /> JSR UpdateRenderList<br /> LDY Temp65<br /> RTS<br /> <br /> PrepareBirdSpriteForRenderList<br /> STX TempCollisionOverlap<br /> LDA BirdObjectPaletteAndWidth,Y<br /> STA Temp60PaletteAndWidth<br /> LDA GameObjectDirection,Y<br /> BMI SetBirdSpriteBaseGfxForLeftFacing<br /> LDA #$06<br /> JMP ContinuePrepareBirdSprite<br /> SetBirdSpriteBaseGfxForLeftFacing<br /> LDA #$00<br /> ContinuePrepareBirdSprite<br /> STA Temp5E<br /> LDA GameObjectInAir,Y<br /> BEQ SetOnPlatformAnimationOffset<br /> LDA GameObjectAnimationFrame,Y<br /> ASL<br /> JMP CalculateFinalBirdGfxPointer<br /> SetOnPlatformAnimationOffset<br /> LDA #$04<br /> CalculateFinalBirdGfxPointer<br /> CLC<br /> ADC Temp5E<br /> ADC BirdGfxAnimationOffsetLUT,Y<br /> STA Temp5E<br /> LDX TempCollisionOverlap<br /> LDA #$A8<br /> STA Temp5F<br /> LDA GameObjectXCoordHi,Y<br /> SEC<br /> SBC #$20<br /> STA Temp61<br /> LDA #$9C<br /> STA Temp62<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$10<br /> CMP #$F0<br /> BCC SkipClampYCoord<br /> LDA #$00<br /> SkipClampYCoord<br /> STA Temp63SpriteYCoord<br /> <br /> ;------------------------------------------------------------------------------<br /> ; AddSpriteToRenderList<br /> ; Takes sprite parameters from ZP temps and adds one or more 8-pixel tall sprite<br /> ; slices to the render list. It handles breaking down taller sprites into<br /> ; multiple slices and calculating their positions in the Display List zones.<br /> ;------------------------------------------------------------------------------<br /> AddSpriteToRenderList<br /> STY Temp65 ; save Y<br /> LDA Temp63SpriteYCoord<br /> AND #$07<br /> STA Temp64SpriteYOffset ; Y offset in zone<br /> LDA Temp5FGfxDataHi<br /> CLC<br /> ADC Temp64SpriteYOffset<br /> STA Temp5FGfxDataHi<br /> LDA Temp63SpriteYCoord<br /> LSR<br /> LSR<br /> LSR<br /> TAY ; Y is zone index for this sprite<br /> AddAllSpriteSlicesToRenderListLoop<br /> JSR UpdateRenderList<br /> LDA Temp5FGfxDataHi<br /> SEC<br /> SBC #$08<br /> CMP Temp62<br /> BCC FinishMultiSliceSpriteRender<br /> STA Temp5FGfxDataHi<br /> INY<br /> JMP AddAllSpriteSlicesToRenderListLoop<br /> FinishMultiSliceSpriteRender<br /> LDY Temp65 ; restore Y<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; UpdateRenderList<br /> ; The core function that adds a single sprite slice to the render list arrays.<br /> ; It also decrements the pointer for the corresponding DL zone to make space.<br /> ;------------------------------------------------------------------------------<br /> UpdateRenderList<br /> CPY #$16<br /> BCS UpdateRenderList_Exit<br /> INX<br /> LDA Temp5EGfxDataLo<br /> STA RenderListGfxDataLo,X<br /> LDA Temp5FGfxDataHi<br /> STA RenderListGfxDataHi,X<br /> LDA Temp60PaletteAndWidth<br /> STA RenderListPaletteAndWidth,X<br /> LDA Temp61SpriteXCoord<br /> STA RenderListXCoord,X<br /> <br /> LDA DisplayListLo,Y<br /> SEC<br /> SBC #$04<br /> STA DisplayListLo,Y<br /> STA RenderListDLLo,X<br /> LDA DisplayListHi,Y<br /> SBC #$00<br /> STA DisplayListHi,Y<br /> STA RenderListDLHi,X<br /> UpdateRenderList_Exit<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; UpdateDLWithBackgroundSprites<br /> ; Initializes the static background elements of the Display Lists by copying<br /> ; data from ROM tables into their respective DL object locations in RAM.<br /> ; This sets up platforms, lava, and other non-interactive scenery.<br /> ;------------------------------------------------------------------------------<br /> UpdateDLWithBackgroundSprites<br /> LDX #$20<br /> BackgroundSpriteUpdateLoop<br /> LDA GameDLStartLutLo,X<br /> STA TempPointLo5A<br /> LDA GameDLStartLutHi,X<br /> STA TempPointHi5B<br /> <br /> LDA BackgroundSpriteGfxLoLUT,X<br /> LDY #$00<br /> STA (TempPointLo5A),Y<br /> LDA BackgroundSpritePaletteWidthLUT,X<br /> INY<br /> STA (TempPointLo5A),Y<br /> LDA BackgroundSpriteGfxHiLUT,X<br /> INY<br /> STA (TempPointLo5A),Y<br /> LDA BackgroundSpriteXCoordLUT,X<br /> INY<br /> STA (TempPointLo5A),Y<br /> DEX<br /> BPL BackgroundSpriteUpdateLoop<br /> <br /> LDX #$05<br /> UpdateDLWithMsgAndHUDCharObjects<br /> LDA HUDCharDLAddrLoLUT,X<br /> STA TempPointLo5A<br /> LDA HUDCharDLAddrHiLUT,X<br /> STA TempPointHi5B<br /> <br /> ; DL byte 0<br /> LDA MsgAndHUDCharObjectStringLoLUT,X<br /> LDY #$00<br /> STA (TempPointLo5A),Y<br /> <br /> ; DL byte 1<br /> LDA #$60 ; character mode<br /> INY<br /> STA (TempPointLo5A),Y<br /> <br /> ; DL byte 2<br /> LDA MsgAndHUDCharObjectStringHiLUT,X<br /> INY<br /> STA (TempPointLo5A),Y<br /> <br /> ; DL byte 3<br /> LDA MsgAndHUDCharObjectPaletteAndWidthLUT,X<br /> INY<br /> STA (TempPointLo5A),Y<br /> <br /> ; DL byte 4<br /> LDA MsgAndHUDCharObjectXLUT,X<br /> INY<br /> STA (TempPointLo5A),Y<br /> <br /> DEX<br /> BPL UpdateDLWithMsgAndHUDCharObjects<br /> <br /> LDA DisplayEasterEggFlag<br /> BEQ SkipEasterEggDisplaySetup<br /> <br /> LDX #$0E<br /> CopyEasterEggDataToRamLoop<br /> LDA EasterEggDisplayData,X<br /> STA $21FF,X<br /> DEX<br /> BNE CopyEasterEggDataToRamLoop<br /> LDA #$30<br /> STA $1FEF<br /> SkipEasterEggDisplaySetup<br /> LDX #$09 ; loop through all of the birds<br /> InitializeBirdPalettesLoop<br /> LDA BirdPaletteAndWidthLUT,X<br /> STA BirdObjectPaletteAndWidth,X<br /> LDA RiderPaletteAndWidthLUT,X<br /> STA RiderObjectPaletteAndWidth,X<br /> DEX<br /> BPL InitializeBirdPalettesLoop<br /> ; Initialize the working Display List pointers from the master ROM table<br /> LDX #$17<br /> InitializeWorkDLPointerLoop<br /> LDA DisplayListLoLUT,X<br /> STA DisplayListLo,X<br /> LDA DisplayListHiLUT,X<br /> STA DisplayListHi,X<br /> DEX<br /> BPL InitializeWorkDLPointerLoop<br /> LDX #$00<br /> LDY #$00<br /> CopyWorkDLToFinalDLLLoop<br /> LDA DisplayListHi,X<br /> STA $275E,Y<br /> LDA DisplayListLo,X<br /> STA $275F,Y<br /> INY<br /> INY<br /> INY<br /> INX<br /> CPX #$18<br /> BNE CopyWorkDLToFinalDLLLoop<br /> LDX #$18<br /> InitializeScorePopupJumpTable<br /> LDA ReturnFromScorePopupCreation,X<br /> STA $27B2,X<br /> DEX<br /> BNE InitializeScorePopupJumpTable<br /> EasterEggDisplayData<br /> RTS<br /> <br /> ; easter egg data<br /> .byte $18 <br /> .byte $29 <br /> .byte $21 <br /> .byte $26 <br /> .byte $21 <br /> .byte $FD <br /> .byte $1B <br /> .byte $17 <br /> .byte $21 <br /> .byte $23 <br /> .byte $23 <br /> .byte $1C <br /> .byte $23 <br /> .byte $1C <br /> <br /> ;------------------------------------------------------------------------------<br /> ; SetupTitleScrDLs<br /> ; Initializes all Display List objects specifically for the title screen.<br /> ;------------------------------------------------------------------------------<br /> SetupTitleScrDLs<br /> LDX #$50<br /> SetupTitleScrCharacterDLs<br /> ; destination memory for next DL object...<br /> LDA TitleScrDLAddrLoLUT,X<br /> STA TempPointLo5A<br /> LDA TitleScrDLAddrHiLUT,X<br /> STA TempPointHi5B<br /> <br /> LDA TitleScrCharObject_LoAddress,X<br /> LDY #$00<br /> STA (TempPointLo5A),Y ; Byte 0: Lo Address<br /> <br /> LDA #$60 ; Indirect/Character Object<br /> INY<br /> STA (TempPointLo5A),Y ; Byte 1: Mode<br /> <br /> LDA TitleScrCharObject_HiAddress,X<br /> INY<br /> STA (TempPointLo5A),Y ; Byte 2: Hi Address<br /> <br /> LDA TitleScrCharObject_PalleteWidth,X<br /> INY<br /> STA (TempPointLo5A),Y ; Byte 3: Palette+Width<br /> <br /> LDA TitleScrCharObject_XCoordinate,X<br /> INY<br /> STA (TempPointLo5A),Y ; Byte 4: X Coordinate<br /> <br /> DEX<br /> BPL SetupTitleScrCharacterDLs<br /> <br /> LDX #$0C<br /> SetupTitleScrSpriteDLs<br /> ; destination memory for next DL object...<br /> LDA TitleScrCharacterObjectLoLUT,X<br /> STA TempPointLo5A<br /> LDA TitleScrCharacterObjectHiLUT,X<br /> STA TempPointHi5B<br /> <br /> LDA TitleScrSpriteObjectLoLUT,X<br /> LDY #$00<br /> STA (TempPointLo5A),Y ; Byte 0: Lo Address<br /> <br /> LDA TitleScrSpriteObject_PaletteWidth,X<br /> INY<br /> STA (TempPointLo5A),Y ; Byte 1: Palette+Width<br /> <br /> LDA TitleScrSpriteObjectHiLUT,X<br /> INY<br /> STA (TempPointLo5A),Y ; Byte 2: Hi Address<br /> <br /> LDA TitleScrSpriteObject_XCoordinate,X<br /> INY<br /> STA (TempPointLo5A),Y ; Byte 3: X Coordinate<br /> <br /> DEX<br /> BPL SetupTitleScrSpriteDLs<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; SetColorRegisters<br /> ; Copies the 24-byte color palette from RAM ($0190) to the hardware color<br /> ; registers ($20-$3F) every frame.<br /> ;------------------------------------------------------------------------------<br /> SetColorRegisters<br /> LDA #$00<br /> STA BACKGRND<br /> LDA PaletteInRam+$00<br /> STA P0C1<br /> LDA PaletteInRam+$01<br /> STA P0C2<br /> LDA PaletteInRam+$02<br /> STA P0C3<br /> LDA PaletteInRam+$03<br /> STA P1C1<br /> LDA PaletteInRam+$04<br /> STA P1C2<br /> LDA PaletteInRam+$05<br /> STA P1C3<br /> LDA PaletteInRam+$06<br /> STA P2C1<br /> LDA PaletteInRam+$07<br /> STA P2C2<br /> LDA PaletteInRam+$08<br /> STA P2C3<br /> LDA PaletteInRam+$09<br /> STA P3C1<br /> LDA PaletteInRam+$0A<br /> STA P3C2<br /> LDA PaletteInRam+$0B<br /> STA P3C3<br /> LDA PaletteInRam+$0C<br /> STA P4C1<br /> LDA PaletteInRam+$0D<br /> STA P4C2<br /> LDA PaletteInRam+$0E<br /> STA P4C3<br /> LDA PaletteInRam+$0F<br /> STA P5C1<br /> LDA PaletteInRam+$10<br /> STA P5C2<br /> LDA PaletteInRam+$11<br /> STA P5C3<br /> LDA PaletteInRam+$12<br /> STA P6C1<br /> LDA PaletteInRam+$13<br /> STA P6C2<br /> LDA PaletteInRam+$14<br /> STA P6C3<br /> LDA PaletteInRam+$15<br /> STA P7C1<br /> LDA PaletteInRam+$16<br /> STA P7C2<br /> LDA PaletteInRam+$17<br /> STA P7C3<br /> RTS<br /> <br /> ; well, how did I get here?<br /> ; (clear the HUD display string buffer)<br /> LDX #$67<br /> LDA #$00<br /> ClearHudDisplayStringBuffer<br /> STA HudDisplayStringBuffer,X<br /> DEX<br /> BPL ClearHudDisplayStringBuffer<br /> RTS<br /> <br /> InitializeFinalDisplayListPointers<br /> LDX #$56<br /> CopyFinalDllPointersLoop<br /> LDA DllLUT,X<br /> STA $2700,X<br /> STA $2757,X<br /> DEX<br /> BPL CopyFinalDllPointersLoop<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; CreateScorePopupAtObjectLocation<br /> ; Creates a score popup (e.g., &quot;500&quot;) at a specified location. It finds an<br /> ; available popup slot and initializes its timer, position, and character value.<br /> ; Input: Temp5E/Temp5F = Y/X coordinates. Temp60 = score value index.<br /> ;------------------------------------------------------------------------------<br /> CreateScorePopupAtObjectLocation<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> LDX #$0B<br /> FindAvailableScorePopupSlot<br /> LDA $26C4,X<br /> BEQ FoundAvailableScorePopupSlotInitialize<br /> DEX<br /> BPL FindAvailableScorePopupSlot<br /> LDX #$0B<br /> FoundAvailableScorePopupSlotInitialize<br /> LDA #$1E<br /> STA $26C4,X<br /> LDA Temp5E<br /> SEC<br /> SBC #$10<br /> BPL CalculateScorePopupZone<br /> CMP #$E0<br /> BCC CalculateScorePopupZone<br /> LDA Temp5F<br /> SEC<br /> SBC #$12<br /> STA Temp5F<br /> LDA #$00<br /> CalculateScorePopupZone<br /> LSR<br /> LSR<br /> LSR<br /> STA $26DC,X<br /> LDA Temp5F<br /> SEC<br /> SBC #$26<br /> CMP #$91<br /> BCC StoreClampedScorePopupXCoord<br /> CMP #$C0<br /> BCC ClampScorePopupXTooFarRight<br /> LDA #$00<br /> BEQ StoreClampedScorePopupXCoord<br /> ClampScorePopupXTooFarRight<br /> LDA #$90<br /> StoreClampedScorePopupXCoord<br /> STA $26D0,X<br /> LDY Temp60<br /> LDA ScorePopupValues,Y<br /> STA $26E8,X<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> ReturnFromScorePopupCreation<br /> RTS<br /> <br /> ; Data for score popups<br /> .byte $00 <br /> .byte $0E <br /> .byte $11 <br /> .byte $0C <br /> .byte $00 <br /> .byte $11 <br /> .byte $0C <br /> .byte $0C <br /> .byte $00 <br /> .byte $13 <br /> <br /> .byte $11 <br /> .byte $0C <br /> .byte $0D <br /> .byte $0C <br /> .byte $0C <br /> .byte $0C <br /> .byte $00 <br /> .byte $06 <br /> .byte $01 <br /> .byte $01 <br /> .byte $0F <br /> .byte $0C <br /> .byte $0C <br /> .byte $0C <br /> <br /> ScorePopupValues ; scores 250, 500, 750, ...<br /> .byte $B3 <br /> .byte $B7 <br /> .byte $BB <br /> .byte $BF <br /> .byte $C3 <br /> .byte $C7 <br /> <br /> ;------------------------------------------------------------------------------<br /> ; NMI_ROUTINE<br /> ; Non-Maskable Interrupt handler. This is the heart of the game's frame-by-frame<br /> ; processing. It is responsible for sound, input, palette updates, and, most<br /> ; importantly, processing the render list to update the hardware display lists.<br /> ; It supports three modes via NMIModeFlag:<br /> ; $00: Normal in-game processing.<br /> ; $01: Title screen, 160A mode (left/right borders).<br /> ; $FF: Title screen, 320A mode (central logo area).<br /> ;------------------------------------------------------------------------------<br /> NMI_ROUTINE<br /> NMI_SaveRegisters<br /> PHA ; Save A<br /> TXA<br /> PHA ; Save X<br /> TYA<br /> PHA ; Save Y<br /> <br /> LDA NMIModeFlag ; Check current NMI mode<br /> BEQ NMI_ProcessNormalGame ; If $00, handle normal game NMI<br /> BMI NMI_ProcessSplitScreen_320A_Mode ; If $FF (negative), handle 320A part of split screen<br /> <br /> ; This is the 160A portion of the title screen's split-screen rendering.<br /> ; It handles the scrolling borders on the left and right.<br /> NMI_ProcessSplitScreen_160A_Mode ; NMIModeFlag was $01<br /> LDA #CTRL_DMA_ON_160AB ; Set CTRL for 160A mode (normal width pixels)<br /> STA CTRL<br /> JSR CycleTitleScreenPaletteAndCounters ; Update title screen colors and border animation<br /> LDA #NMIMode_SplitScreen320A ; Set flag for the *next* NMI to be the 320A part<br /> STA NMIModeFlag<br /> JMP NMI_ExitAndRestoreRegisters<br /> <br /> ; This is the 320A portion of the title screen's split-screen rendering.<br /> ; It handles the central logo area with double-width pixels.<br /> NMI_ProcessSplitScreen_320A_Mode ; NMIModeFlag was $FF<br /> STA WSYNC ; Wait until the end of the line<br /> STA WSYNC ; Wait until the end of the line<br /> LDA #CTRL_DMA_ON_320AC ; Set CTRL for 320A mode (double-width pixels)<br /> STA CTRL<br /> LDA #NMIMode_SplitScreen160A ; Set flag for the *next* NMI to be the 160A part<br /> STA NMIModeFlag<br /> JMP NMI_ExitAndRestoreRegisters<br /> <br /> ; This is the main NMI handler for gameplay and demo mode.<br /> NMI_ProcessNormalGame<br /> JSR ServiceSFX ; Process active sound effects<br /> <br /> ; Read Player 0 Fire Button with a one-frame debounce.<br /> ; P0LastFire holds the state from the previous NMI, P0CurrentFire holds this NMI's state.<br /> ; This prevents a single press from being registered on multiple consecutive frames.<br /> LDA INPT4 ; Read Player 0 input port<br /> AND #Input_FireButtonMask ; Isolate fire button bit<br /> CMP P0LastFire ; Compare with last latched state<br /> BEQ NMI_P0_Fire_NoChange ; If same, no change in press state<br /> STA P0LastFire ; New state, update P0LastFire<br /> BNE NMI_P0_Fire_StoreCurrent ; If different and non-zero (pressed), store it as current<br /> NMI_P0_Fire_NoChange<br /> STA P0CurrentFire ; Store current state (either newly pressed or still same as last)<br /> NMI_P0_Fire_StoreCurrent<br /> <br /> ; Read Player 1 Fire Button with a one-frame debounce.<br /> LDA INPT5 ; Read Player 1 input port<br /> AND #Input_FireButtonMask ; Isolate fire button bit<br /> CMP P1LastFire ; Compare with last latched state<br /> BEQ NMI_P1_Fire_NoChange ; If same, no change in press state<br /> STA P1LastFire ; New state, update P1LastFire<br /> BNE NMI_P1_Fire_StoreCurrent ; If different and non-zero (pressed), store it as current<br /> NMI_P1_Fire_NoChange<br /> STA P1CurrentFire ; Store current state<br /> NMI_P1_Fire_StoreCurrent<br /> <br /> ; Increment global 16-bit frame timer<br /> INC TimerLo<br /> BNE NMI_Timer_HiByteNoInc ; If TimerLo didn't wrap, skip TimerHi increment<br /> INC TimerHi<br /> NMI_Timer_HiByteNoInc<br /> <br /> JSR SetColorRegisters ; Update hardware color palette registers from RAM<br /> <br /> LDA RenderListDirty ; Check if the game logic has prepared a new list of sprites to draw<br /> BNE ProcessDirtyRenderList ; If dirty, branch to process it<br /> JMP NMI_ExitAndRestoreRegisters ; If not dirty, nothing to render, so exit NMI<br /> <br /> ProcessDirtyRenderList<br /> LDX RenderListCount ; Get number of sprites in the render list<br /> BMI FinalizeDisplayListPointers ; If negative (e.g., $FF from init), skip sprite processing<br /> <br /> RenderSpritesFromListToDisplayList<br /> ; This loop iterates through the render list (built by the main game logic)<br /> ; and writes the 5-byte sprite definitions into the appropriate Display List zones.<br /> LDA RenderListDLLo,X ; Get Lo byte of target DL entry address for this sprite<br /> STA TempPoint5CLo ; Store in ZP pointer<br /> LDA RenderListDLHi,X ; Get Hi byte of target DL entry address<br /> STA TempPoint5DHi ; Store in ZP pointer<br /> LDY #$00 ; Y will be offset into the 5-byte DL object<br /> <br /> LDA RenderListGfxDataLo,X ; Byte 0: Graphics Data Lo<br /> STA (TempPoint5CLo),Y<br /> INY<br /> <br /> LDA RenderListPaletteAndWidth,X ; Byte 1: Palette and Width<br /> STA (TempPoint5CLo),Y<br /> INY<br /> <br /> LDA RenderListGfxDataHi,X ; Byte 2: Graphics Data Hi<br /> STA (TempPoint5CLo),Y<br /> INY<br /> <br /> LDA RenderListXCoord,X ; Byte 3: X Coordinate (Horizontal Position)<br /> STA (TempPoint5CLo),Y<br /> <br /> DEX<br /> BPL RenderSpritesFromListToDisplayList<br /> <br /> ; After processing sprites, process score popups (if any)<br /> LDX #$0B ; Max index for score popups (12 popups, 0 to 11)<br /> ProcessScorePopupsLoop<br /> LDA ScorePopup_ActiveTimerBase,X ; Check if this score popup timer is active<br /> BEQ SkipThisScorePopup ; If timer is 0, skip this popup<br /> DEC ScorePopup_ActiveTimerBase,X ; Decrement active timer<br /> <br /> LDY ScorePopup_ZoneIndexBase,X ; Y = Zone index for this score popup<br /> SEC<br /> LDA DisplayListLo,Y ; Get current Lo pointer for this zone's DL<br /> SBC #$05 ; Make space for a 5-byte character DL object by moving the pointer up<br /> STA DisplayListLo,Y ; Store updated Lo pointer<br /> STA TempPoint5CLo ; Use ZP pointer for indirect write<br /> LDA DisplayListHi,Y ; Get current Hi pointer<br /> SBC #$00 ; Adjust Hi pointer if Lo underflowed<br /> STA DisplayListHi,Y ; Store updated Hi pointer<br /> STA TempPoint5DHi ; Use ZP pointer<br /> <br /> LDY #$00 ; Y = offset into DL object<br /> LDA ScorePopup_CharDataLoBase,X ; Byte 0: Character Data Lo (e.g., '2' for &quot;250&quot;)<br /> STA (TempPoint5CLo),Y<br /> INY<br /> LDA #ScorePopup_DLModeByte ; Byte 1: Mode (Indirect Character)<br /> STA (TempPoint5CLo),Y<br /> INY<br /> LDA #ScorePopup_DLCharHiByte ; Byte 2: Character Data Hi (High byte of HSC font base)<br /> STA (TempPoint5CLo),Y<br /> INY<br /> LDA #$7C ; Byte 3: Palette &amp; Width (seems fixed for score popups)<br /> STA (TempPoint5CLo),Y<br /> INY<br /> LDA ScorePopup_XCoordBase,X ; Byte 4: X Coordinate<br /> STA (TempPoint5CLo),Y<br /> SkipThisScorePopup<br /> DEX ; Next score popup slot<br /> BPL ProcessScorePopupsLoop ; Loop if X is not negative<br /> <br /> FinalizeDisplayListPointers<br /> ; Copy the adjusted DisplayListLo/Hi pointers (from $242B/$2443)<br /> ; into the final RAM area ($275E onwards) that Maria's DLL will use.<br /> ; This is done in reverse order because the final DLL structure is 3 bytes<br /> ; per entry (Interrupt/Height, Hi, Lo) and it's easier to fill from the end.<br /> LDX #$17 ; Number of DL zones - 1 (0 to 23)<br /> LDY #$45 ; Offset into FinalDLL_PointerStorage (starts at $275E + $45 = $27A3)<br /> CopyDLLPointersToFinalRAMLoop<br /> LDA DisplayListHi,X ; Get Hi byte of DL pointer for zone X<br /> STA FinalDLL_PointerStorage_Hi,Y ; Store it<br /> LDA DisplayListLo,X ; Get Lo byte of DL pointer for zone X<br /> STA FinalDLL_PointerStorage_Lo,Y ; Store it<br /> DEY ; Next storage slot (lower address)<br /> DEY<br /> DEY ; DLL entries are 3 bytes (interrupt+height, Hi, Lo)<br /> DEX ; Next zone<br /> BPL CopyDLLPointersToFinalRAMLoop<br /> <br /> INX ; X = 0<br /> STX RenderListDirty ; Clear the dirty flag, signaling the main loop that rendering is complete.<br /> <br /> NMI_ExitAndRestoreRegisters<br /> PLA ; Restore Y<br /> TAY<br /> PLA ; Restore X<br /> TAX<br /> PLA ; Restore A<br /> ; Fall through to IRQ RTI<br /> <br /> IRQ_ROUTINE<br /> RTI <br /> <br /> ;------------------------------------------------------------------------------<br /> ; Title Screen and Menu Logic<br /> ;------------------------------------------------------------------------------<br /> AttractModeMain<br /> JSR SetupTitleScreen<br /> LDA TimerLo<br /> STA $6E<br /> SEC<br /> SBC #$01<br /> STA Temp68<br /> LDA #$01<br /> STA Temp69<br /> AttractMode_FrameLoop<br /> LDA TimerLo<br /> CMP $6E<br /> BEQ AttractMode_FrameLoop<br /> STA $6E<br /> JSR HandleDemoModeJoyInput<br /> JSR AnimateTitleScreenFrame<br /> LDA Temp68<br /> CMP TimerLo<br /> BNE AttractMode_FrameLoop<br /> DEC Temp69<br /> BPL AttractMode_FrameLoop<br /> LDA #$00<br /> STA Temp62<br /> AttractMode_HSC_Loop<br /> JSR DoHscStatusCheck<br /> BMI HscLoopContinueOrExit<br /> JSR DoHscAttractMode<br /> LDA INPT4<br /> AND INPT5<br /> JSR CheckForAttractModeExit<br /> HscLoopContinueOrExit<br /> INC Temp62<br /> LDA Temp62<br /> CMP #$04<br /> BCC AttractMode_HSC_Loop<br /> RTS<br /> <br /> SetupTitleScreen<br /> SEI<br /> LDA #$60<br /> STA CTRL<br /> JSR ClearRamMuteAudio<br /> JSR LoadTitlePalette<br /> JSR SetColorRegisters<br /> JSR SetupTitleScrText<br /> JSR SetupTitleScrDLs<br /> WaitVblankOver<br /> BIT MSTAT<br /> BMI WaitVblankOver<br /> WaitVblankStart<br /> BIT MSTAT<br /> BPL WaitVblankStart<br /> <br /> ; ** We're now in vblank<br /> <br /> LDA #$00<br /> STA DPPL<br /> LDA #$27<br /> STA DPPH ; Register $2700 as the DLL location<br /> <br /> LDA #$40 ; DMA on, single-width chars<br /> STA CTRL<br /> RTS<br /> <br /> DisplayGameOptions<br /> JSR SetupTitleScreen<br /> LDX #$0F<br /> CopyPlayerStringLoop<br /> LDA StringOnePlayer,X<br /> STA MenuLine2CharBuffer,X<br /> LDA StringTwoPlayer,X<br /> STA MenuLine1CharBuffer,X<br /> DEX<br /> BPL CopyPlayerStringLoop<br /> JSR SetupGameOptionsText<br /> JSR SetMenuJoyDebounceTimerTo20<br /> JSR SetMenuSelectDebounceTimerTo20<br /> JSR SetMenuResetTimer ; MenuResetTimer = Timerhi - 1<br /> GameOptionsMenuLoop<br /> JSR CheckMenuFireButtonAndStartGame<br /> JSR SetupGameOptionsText<br /> JSR AnimateTitleScreenFrame<br /> LDA SWCHA<br /> AND #$F0<br /> CMP #$F0<br /> BNE MenuJoyInput_ProcessAfterDebounce<br /> LDA #$00<br /> STA MenuJoyDebounceTimer<br /> GoMenuHandlingAndUpdate<br /> JMP MenuHandlingAndUpdate<br /> <br /> ; MenuJoyInput_ProcessAfterDebounce<br /> ; This code is reached after the joystick debounce timer (MenuJoyDebounceTimer)<br /> ; has expired, indicating it's time to process joystick input for the menu.<br /> ; Part of the DisplayGameOptions routine.<br /> <br /> MenuJoyInput_ProcessAfterDebounce<br /> DEC MenuJoyDebounceTimer ; Decrement debounce timer<br /> BPL GoMenuHandlingAndUpdate ; If timer still active, skip input processing for now<br /> JSR SetMenuJoyDebounceTimerTo20 ; Reset debounce timer for next input<br /> <br /> LDA SWCHA ; Read Player 1 Joystick &amp; Console Switches<br /> ; SWCHA bits (active low for joystick)<br /> ; 7654 3210<br /> ; ---- RLDU (Right, Left, Down, Up for P1 Joystick)<br /> <br /> ASL ; Shift P1 Right (Bit 3) into Carry<br /> BCC HandleP0JoyRight<br /> ASL ; Shift P1 Left (Bit 2) into Carry<br /> BCC HandleP0JoyLeft<br /> ASL ; Shift P1 Down (Bit 1) into Carry<br /> BCS MenuJoyInput_CheckP1UpOrNoVerticalInput<br /> JMP MenuSelectOnePlayer ; P1 Down IS pressed: Select 1 Player<br /> <br /> MenuJoyInput_CheckP1UpOrNoVerticalInput<br /> ASL ; Shift P1 Up (Bit 0) into Carry<br /> BCS HandleP0JoyRight<br /> JMP MenuSelectTwoPlayers ; P1 Up IS pressed: Select 2 Players<br /> <br /> ;------------------------------------------------------------------------------<br /> ; HandleP0JoyRight<br /> ; Increases the game difficulty, capping at Difficulty_Expert.<br /> ; Resets the counters used for the menu easter egg.<br /> ;------------------------------------------------------------------------------<br /> HandleP0JoyRight<br /> LDX Difficulty<br /> CPX #Difficulty_Expert ; Max difficulty?<br /> BPL SkipDifficultyIncrease ; If at or above max, skip<br /> INX ; Increase difficulty<br /> STX Difficulty<br /> JSR ClearScores ; Clear scores when difficulty changes<br /> SkipDifficultyIncrease<br /> LDA #$00 ; Reset easter egg press counters<br /> STA EasterEggJoyDownCount<br /> STA EasterEggJoyLeftCount<br /> JMP MenuTextUpdate ; Redraw menu text<br /> <br /> ;------------------------------------------------------------------------------<br /> ; HandleP0JoyLeft<br /> ; Decreases the game difficulty, bottoming out at Difficulty_Beginner.<br /> ; Jumps to update counters used for the menu easter egg.<br /> ;------------------------------------------------------------------------------<br /> HandleP0JoyLeft<br /> LDX Difficulty<br /> BEQ SkipDifficultyDecrease ; If already at Beginner, skip<br /> DEX ; Decrease difficulty<br /> STX Difficulty<br /> JSR ClearScores ; Clear scores when difficulty changes<br /> SkipDifficultyDecrease<br /> JMP MenuUpdateCounter<br /> <br /> ; This section seems to be entirely dead. <br /> ; Emulation debugging during regular play shows no access.<br /> ; In assembly it would be &quot;BIT $56, ORA $03, KIL, KIL&quot;.<br /> ; It's not accessed by Maria, and isn't sensible in ASCII nor the game's character set.<br /> .byte $24 ; $9FFA<br /> .byte $56 ; $9FFB<br /> .byte $05 ; $9FFC<br /> .byte $03 ; $9FFD<br /> .byte $12 ; $9FFE<br /> .byte $12 ; $9FFF<br /> <br /> ; ORG $A000<br /> <br /> ; This upcoming bit is a bit ugly. It's mostly Maria gfx data, but they stuck some<br /> ; 6502 data in the middle of each page.<br /> <br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00<br /> <br /> ; A058<br /> <br /> BirdWalkCycleGfxOffsetLUT<br /> .byte $00, $14, $28, $28, $28, $28, $28, $28, $28, $28<br /> <br /> BirdSpawnGfxOffsetLUT<br /> .byte $82, $86, $8A, $8A, $8A, $8A, $8A, $8A, $8A, $8A <br /> <br /> BirdPaletteAndWidthLUT<br /> .byte $BE,$DE,$FE,$FE,$FE,$FE,$FE,$FE,$FE,$FE<br /> <br /> RiderPaletteAndWidthLUT<br /> .byte $7E,$7E,$5E,$5E,$5E,$5E,$5E,$5E,$5E,$5E<br /> <br /> BirdGfxAnimationOffsetLUT<br /> .byte $08, $14, $20, $20, $20<br /> <br /> ; This doesn't seem to be reached by Sally or Maria<br /> .byte $20, $20, $20, $20, $20<br /> <br /> ; This is graphics data (A08E)<br /> .byte $03, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $F0, $3F, $55, $55, $55, $55, $55, $55<br /> .byte $55, $55, $55, $55, $55, $7F, $FD, $55<br /> .byte $55, $55, $55, $55, $55, $55, $55, $55<br /> .byte $55, $55, $7C, $00, $EB, $FF, $FF, $FB<br /> .byte $FF, $FA, $AF, $FF, $BE, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $EB, $FB, $AF, $AF<br /> .byte $FE, $FF, $AB, $BF, $FF, $AF, $FF, $FF<br /> .byte $A8, $0F, $BE, $A0, $00, $AF, $F8, $2F<br /> .byte $FF, $A8, $BB, $FA, $FC, $0F, $FF, $AF<br /> .byte $80, $FF, $EB, $E8, $2A, $C2, $BF, $E8<br /> .byte $F0, $EE, $AF, $00, $00, $00, $00, $00<br /> <br /> ; A100<br /> <br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00 <br /> <br /> ; A180<br /> <br /> TitleScrSpriteObject_PaletteWidth<br /> .byte $FA, $FF, $F7, $FD, $F6, $F6, $FA, $F6<br /> .byte $F6, $FA, $33, $33, $34<br /> <br /> .byte $00 ; not used<br /> <br /> ; A18E<br /> <br /> .byte $0E, $FA <br /> .byte $AA, $AA, $AA, $AA, $AA, $AA, $AA, $AA<br /> .byte $AA, $AA, $AB, $FF, $EA, $AA, $AA, $AA<br /> .byte $AA, $AA, $AA, $AA, $AA, $AA, $AA, $AF<br /> .byte $FC, $2F, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $00, $AB, $FF, $BF, $FA<br /> .byte $BF, $FF, $EA, $BE, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $EA, $BE, $BE, $AA, $AE, $FA<br /> .byte $AF, $FE, $AF, $EE, $AB, $FB, $AB, $FE<br /> .byte $AA, $0E, $BF, $A8, $02, $BF, $FE, $FF<br /> .byte $FA, $FE, $BF, $BF, $EA, $FF, $FE, $FB<br /> .byte $B3, $FF, $BA, $EA, $2F, $A2, $FA, $B0<br /> .byte $E0, $AA, $BB, $FC, $0A, $C0, $00, $00 <br /> <br /> ; A200<br /> <br /> .byte $F8, $00, $F8, $00, $3E, $00, $F0, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> <br /> ; A280<br /> <br /> TitleScrSpriteObject_XCoordinate<br /> .byte $41, $2F, $0F, $57, $31, $57, $7D, $31<br /> .byte $57, $7D, $B4, $B4, $B8<br /> <br /> .byte $00 ; not used<br /> <br /> ; A28E<br /> .byte $02, $BF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $F8, $0D, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $DF, $F7, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $DF, $00, $3A, $FB, $EB, $FF<br /> .byte $BF, $FF, $FA, $EF, $FF, $FF, $FE, $AF<br /> .byte $FE, $BF, $BE, $EE, $FF, $FA, $AB, $FF<br /> .byte $FF, $FE, $AF, $AA, $FA, $AF, $3F, $EA<br /> .byte $AA, $83, $FF, $E8, $00, $BF, $FF, $BF<br /> .byte $EF, $FF, $FE, $FE, $BE, $BF, $FE, $AF<br /> .byte $FE, $AF, $FE, $3F, $AB, $EF, $B8, $02<br /> .byte $AF, $FF, $FC, $AF, $BA, $F0, $00, $00<br /> <br /> ; A300<br /> <br /> .byte $BE, $00, $BE, $00, $3F, $00, $FC, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $FC, $3A, $7C<br /> .byte $00, $00, $3F, $00, $3D, $AC, $00, $00<br /> .byte $00, $00, $BB, $C0, $00, $00, $00, $00<br /> .byte $03, $EE, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> <br /> ; A380<br /> <br /> PterryFrameIndexAdjustmentLUT<br /> .byte $01, $01, $FF, $FF <br /> <br /> BirdBornSFXType<br /> .byte $09, $09, $0C, $0C, $0C, $0C, $0C, $0C, $0C, $0C<br /> <br /> ; A38E<br /> <br /> .byte $0F, $AF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FA<br /> .byte $A8, $37, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $F7, $DF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $F7, $C0, $3E, $BF, $FF, $FF<br /> .byte $FE, $AA, $EE, $AA, $FF, $FF, $EA, $FE<br /> .byte $FB, $AF, $FF, $EF, $EF, $FF, $BF, $FF<br /> .byte $FF, $FA, $EA, $BF, $FA, $A8, $03, $AB<br /> .byte $EA, $A2, $FF, $FA, $00, $FF, $FF, $EF<br /> .byte $FF, $FF, $EB, $FF, $FF, $EF, $FF, $EE<br /> .byte $EA, $BF, $FA, $AF, $BA, $AA, $A0, $0A<br /> .byte $FF, $FF, $F0, $EA, $FA, $EF, $AC, $00<br /> <br /> ; A400<br /> <br /> .byte $BF, $80, $BF, $80, $3F, $C0, $FF, $40<br /> .byte $00, $00, $0F, $B0, $00, $00, $00, $00<br /> .byte $0E, $F0, $00, $00, $03, $AF, $05, $6F<br /> .byte $02, $BF, $FA, $C0, $F9, $50, $FE, $80<br /> .byte $00, $00, $EE, $F0, $00, $00, $00, $00 <br /> .byte $0F, $BB, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00 <br /> .byte $00, $00, $00, $00, $00, $00, $00, $00 <br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00 ,$00, $00<br /> .byte $00, $00, $00, $00, $00, $00<br /> <br /> ; A48E<br /> <br /> .byte $0F, $AB<br /> <br /> .byte $FF, $EA, $AE, $AA, $AB, $FA, $AA, $FF<br /> .byte $FF, $FF, $AB, $FA, $AB, $FF, $EA, $AA<br /> .byte $AA, $BE, $EA, $AB, $FB, $FA, $AA, $AA<br /> .byte $FC, $3F, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $80, $0F, $AF, $FF, $FF<br /> .byte $FA, $AF, $FE, $FB, $BF, $FF, $EF, $FF<br /> .byte $EF, $FF, $FF, $FB, $FF, $FF, $EB, $EA<br /> .byte $BF, $FB, $FF, $FF, $FE, $BE, $00, $BF<br /> .byte $FE, $A8, $FF, $EA, $80, $3F, $FF, $FE<br /> .byte $FF, $FF, $EF, $FF, $FF, $FF, $EA, $FB<br /> .byte $BA, $BF, $FF, $EA, $AA, $BE, $88, $AA<br /> .byte $FF, $AA, $A0, $EF, $FE, $BF, $FF, $00<br /> <br /> ; A500<br /> <br /> .byte $3F, $E0, $3F, $E0, $3F, $F0, $FD, $80<br /> .byte $03, $F8, $03, $B8, $03, $B8, $2F, $C0<br /> .byte $2E, $C0, $2E, $C0, $05, $A8, $06, $A8<br /> .byte $06, $A8, $2A, $50, $2A, $90, $2A, $90<br /> .byte $01, $A8, $37, $AC, $45, $B8, $2A, $40<br /> .byte $3A, $DC, $2E, $51, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00<br /> <br /> ; A58E<br /> <br /> .byte $05, $55 <br /> <br /> .byte $55, $55, $55, $55, $55, $55, $57, $55<br /> .byte $55, $55, $D5, $55, $55, $55, $55, $55<br /> .byte $55, $55, $55, $55, $55, $55, $55, $55<br /> .byte $54, $3F, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $80, $0F, $EB, $FF, $FF<br /> .byte $BB, $FF, $FF, $FF, $FF, $FE, $FF, $FF<br /> .byte $BF, $FF, $FF, $FF, $FF, $FF, $FE, $BF<br /> .byte $EF, $FF, $FF, $FF, $FF, $AC, $00, $FF<br /> .byte $FA, $AA, $BE, $AA, $A0, $2F, $FF, $FF<br /> .byte $AA, $AF, $FF, $FE, $FF, $FF, $AF, $BF<br /> .byte $FE, $FF, $FF, $AA, $BB, $FF, $AA, $AB<br /> .byte $FA, $FA, $00, $EB, $BF, $AE, $AF, $C0<br /> <br /> ; A600<br /> <br /> .byte $3F, $F0, $3F, $FC, $BE, $FC, $39, $D0<br /> .byte $0F, $FF, $0F, $EB, $0F, $EE, $FF, $F0<br /> .byte $EB, $F0, $BB, $F0, $36, $A0, $35, $A0<br /> .byte $35, $A0, $0A, $9C, $0A, $5C, $0A, $5C<br /> .byte $46, $BA, $06, $E6, $56, $AE, $AE, $91<br /> .byte $9B, $90, $BA, $95, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00<br /> <br /> ; A68E<br /> <br /> .byte $05, $55 <br /> <br /> .byte $55, $55, $55, $55, $55, $55, $5D, $55<br /> .byte $55, $55, $75, $55, $55, $55, $55, $55<br /> .byte $55, $55, $55, $55, $55, $55, $55, $55<br /> .byte $54, $EB, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FB, $EF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FB, $A0, $0E, $AF, $BF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $EF, $BC, $00, $EB<br /> .byte $EF, $FA, $BA, $FF, $AA, $2F, $FF, $EE<br /> .byte $AB, $EA, $FF, $FF, $FF, $FE, $FF, $FF<br /> .byte $FF, $FF, $FF, $AB, $EB, $FF, $AA, $AF<br /> .byte $EB, $FF, $00, $FF, $FA, $AF, $AB, $C0<br /> <br /> ; A700<br /> <br /> .byte $3F, $F8, $3F, $F8, $BE, $FF, $3E, $60<br /> .byte $3C, $EE, $1C, $BA, $1F, $FA, $BB, $3C<br /> .byte $AE, $34, $AF, $F4, $16, $9B, $16, $80<br /> .byte $16, $80, $E6, $94, $02, $94, $02, $94<br /> .byte $56, $AC, $46, $A9, $1A, $BB, $3A, $95<br /> .byte $6A, $91, $EE, $A4, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $40, $00, $15, $54<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $15, $54, $00, $01<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00<br /> <br /> ; A78E<br /> <br /> .byte $05, $55 <br /> <br /> .byte $55, $55, $55, $55, $55, $55, $75, $55<br /> .byte $55, $55, $5D, $55, $55, $55, $55, $55<br /> .byte $55, $55, $55, $55, $55, $55, $55, $55<br /> .byte $54, $FE, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $EF, $FB, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $EF, $80, $0A, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FF, $FF, $FF, $FF, $EF, $FC, $00, $3B<br /> .byte $EF, $FF, $AB, $FF, $AA, $AB, $EF, $EE<br /> .byte $BF, $FF, $AE, $FF, $FF, $FF, $FF, $FF<br /> .byte $FB, $FF, $FE, $AF, $FF, $FF, $EB, $FF<br /> .byte $FF, $FF, $00, $55, $55, $55, $55, $50<br /> <br /> ; A800<br /> <br /> .byte $3F, $F4, $3E, $F4, $FE, $F0, $3E, $F0<br /> .byte $13, $F8, $13, $FE, $13, $FC, $2F, $C4<br /> .byte $BF, $C4, $3F, $C4, $16, $57, $16, $00<br /> .byte $16, $00, $D5, $94, $00, $94, $00, $94<br /> .byte $16, $BA, $56, $A8, $0A, $A0, $AE, $94<br /> .byte $2A, $95, $0A, $A0, $00, $3F, $C0, $00<br /> .byte $50, $3F, $C0, $00, $14, $F1, $55, $50<br /> .byte $00, $00, $C3, $30, $00, $00, $C3, $00<br /> .byte $00, $00, $C0, $00, $00, $03, $FC, $00<br /> .byte $00, $03, $FC, $05, $05, $55, $4F, $14<br /> .byte $33, $0C, $00, $00, $03, $0C, $00, $00<br /> .byte $00, $0C, $00, $00, $00, $14, $14, $00<br /> .byte $00, $28, $28, $00, $00, $14, $14, $00<br /> .byte $00, $28, $28, $00, $00, $3C, $3C, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00<br /> <br /> ; A88E<br /> <br /> .byte $FF, $FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00<br /> .byte $00, $00, $0F, $EF, $EA, $AA, $80, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00<br /> <br /> ; A8C4<br /> BirdSpawnInvulnAnimStateSequence_TypeA<br /> .byte $00, $00, $00, $00 <br /> .byte $00, $00, $00, $01, $02, $03, $04, $02<br /> .byte $03, $04, $02, $03, $04, $02, $03, $04<br /> .byte $02, $03, $04, $02, $03, $04, $02, $03<br /> .byte $04, $02, $03, $04, $02, $03, $04, $05<br /> .byte $06, $05, $06, $05, $06, $05, $06, $05<br /> .byte $06, $05, $06, $05, $06, $05, $06, $05<br /> .byte $06, $05, $06, $05, $06, $05, $06, $07<br /> <br /> ; A900<br /> <br /> .byte $3F, $FC, $3E, $FC, $FA, $FC, $3E, $A0<br /> .byte $10, $FC, $10, $00, $10, $00, $3F, $04<br /> .byte $00, $04, $00, $04, $38, $9A, $17, $00<br /> .byte $17, $00, $A6, $2C, $00, $D4, $00, $D4<br /> .byte $00, $AB, $14, $00, $00, $00, $EA, $00<br /> .byte $00, $14, $00, $00, $00, $FF, $FF, $C0<br /> .byte $35, $F1, $55, $C0, $05, $FD, $55, $00<br /> .byte $F3, $CF, $33, $C0, $03, $03, $00, $C0<br /> .byte $00, $00, $00, $00, $03, $FF, $FF, $00<br /> .byte $03, $55, $4F, $5C, $00, $55, $7F, $50<br /> .byte $0F, $33, $CF, $3C, $0C, $03, $03, $00<br /> .byte $00, $00, $00, $00, $00, $15, $54, $00<br /> .byte $00, $2A, $A8, $00, $00, $15, $54, $00<br /> .byte $00, $2A, $A8, $00, $00, $3F, $FC, $00<br /> .byte $00, $00, $00, $00, $00, $00, $82, $08<br /> .byte $02, $A8, $8A, $00, $02, $82, $00, $20<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00<br /> <br /> ; A98E<br /> <br /> .byte $FF, $FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00<br /> .byte $00, $00, $AE, $BE, $BE, $FF, $A0, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $2A<br /> .byte $A0, $00, $00, $00, $3C, $EB, $EB, $3F<br /> .byte $A0, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $10<br /> <br /> ; A9C4<br /> <br /> BirdSpawnInvulnAnimStateSequence_TypeB<br /> .byte $02, $02, $02, $02<br /> .byte $02, $02, $02, $00, $04, $04, $04, $04<br /> .byte $04, $04, $03, $03, $03, $03, $03, $03<br /> .byte $02, $02, $02, $02, $02, $02, $02, $02<br /> .byte $02, $01, $01, $01, $00, $00, $00, $04<br /> .byte $04, $04, $04, $03, $03, $03, $03, $02<br /> .byte $02, $02, $02, $02, $02, $01, $01, $01<br /> .byte $01, $01, $01, $00, $00, $00, $00, $00<br /> <br /> ; AA00<br /> <br /> .byte $3F, $CC, $3E, $CF, $FB, $CF, $3E, $F0<br /> .byte $10, $3E, $1C, $00, $30, $00, $BC, $04<br /> .byte $00, $34, $00, $0C, $38, $2B, $1C, $00<br /> .byte $1C, $00, $E8, $2C, $00, $34, $00, $34<br /> .byte $00, $2A, $00, $00, $00, $00, $A8, $00<br /> .byte $00, $00, $00, $00, $03, $C7, $FF, $FF<br /> .byte $3D, $45, $55, $5F, $FD, $45, $55, $CF<br /> .byte $33, $33, $3C, $00, $33, $30, $0C, $00<br /> .byte $33, $30, $00, $00, $FF, $FF, $D3, $C0<br /> .byte $F5, $55, $51, $7C, $F3, $55, $51, $7F<br /> .byte $00, $F3, $33, $30, $00, $C0, $33, $30<br /> .byte $00, $00, $33, $30, $00, $15, $54, $00<br /> .byte $00, $2A, $A8, $00, $00, $15, $54, $00<br /> .byte $00, $2A, $A8, $00, $00, $3F, $FC, $00<br /> .byte $00, $00, $00, $00, $20, $20, $00, $00<br /> .byte $23, $E2, $8A, $80, $08, $82, $03, $28<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00<br /> <br /> ; AA8E<br /> <br /> .byte $FF, $FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00<br /> .byte $00, $FF, $FB, $BF, $AB, $FE, $A0, $00<br /> .byte $00, $00, $00, $00, $00, $02, $80, $AA<br /> .byte $BC, $00, $00, $00, $AA, $BF, $FF, $FF<br /> .byte $FE, $EE, $00, $2A, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $10, $00<br /> .byte $00, $00, $10, $44<br /> <br /> ; AAC4<br /> <br /> MaxEnemyBirdCountLUT<br /> .byte $06, $06, $06, $06, $06, $06, $08, $08, $08, $08<br /> <br /> EggWaveEnemyTypeLUT<br /> .byte $00, $00, $01, $01, $01, $01, $01, $01, $01, $01<br /> <br /> PlatformsInLevelLUT<br /> .byte $1F, $1F, $0F, $0F, $0D, $0C, $0C, $04, $0F, $07<br /> .byte $04, $04, $0F, $0F, $0F, $0F, $0E, $0E, $06, $06<br /> .byte $04, $04, $04, $04, $0F, $0F, $0D, $0D, $07, $0D<br /> .byte $05, $05, $0E, $06, $06, $04, $07, $0D, $05, $05<br /> <br /> ; AB00<br /> <br /> .byte $3C, $C0, $3C, $C0, $FC, $F0, $3E, $A0<br /> .byte $10, $3E, $1C, $00, $10, $00, $BC, $04<br /> .byte $00, $34, $00, $04, $34, $3F, $10, $00<br /> .byte $10, $00, $FC, $1C, $00, $04, $00, $04<br /> .byte $00, $2B, $00, $00, $00, $00, $E8, $00<br /> .byte $00, $00, $00, $00, $55, $07, $FC, $00<br /> .byte $05, $03, $FF, $C0, $01, $0D, $55, $5C<br /> .byte $CF, $30, $CF, $3C, $CC, $30, $00, $F0<br /> .byte $0C, $00, $00, $30, $00, $3F, $D0, $55<br /> .byte $03, $FF, $C0, $50, $35, $55, $70, $40<br /> .byte $F3, $CC, $33, $CC, $3C, $00, $30, $CC<br /> .byte $30, $00, $00, $C0, $55, $51, $45, $55<br /> .byte $AA, $A2, $8A, $AA, $55, $51, $45, $55<br /> .byte $AA, $A2, $8A, $AA, $FF, $F3, $CF, $FF<br /> .byte $00, $00, $01, $00, $01, $00, $08, $80<br /> .byte $23, $E0, $8E, $0C, $22, $A2, $00, $80<br /> .byte $28, $A0, $04, $14, $14, $10, $20, $38<br /> .byte $2C, $08, $70, $50, $05, $0D<br /> <br /> ; AB8E<br /> <br /> .byte $FF, $FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00<br /> .byte $3A, $FF, $FF, $FF, $FF, $AA, $FF, $00<br /> .byte $00, $00, $00, $00, $00, $AA, $AB, $AB<br /> .byte $AA, $BF, $00, $2A, $BF, $AA, $BF, $FF<br /> .byte $FF, $EA, $FE, $AA, $B0, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $10<br /> .byte $00, $00, $00, $10, $04, $14, $01, $40<br /> .byte $00, $50, $00, $14, $04, $10, $14, $10<br /> .byte $01, $40, $05, $00, $14, $00, $04, $10<br /> .byte $14, $05, $01, $80, $00, $10, $00, $04<br /> .byte $1C, $60, $50, $14, $02, $40, $04, $00<br /> .byte $10, $00, $09, $34, $70, $50, $06, $00<br /> .byte $01, $80, $00, $60, $14, $50, $05, $0D<br /> .byte $00, $90, $02, $40, $09, $00, $05, $14<br /> <br /> ; AC00<br /> <br /> .byte $0C, $C0, $3C, $F0, $FB, $3C, $3E, $F0<br /> .byte $14, $3F, $14, $00, $14, $00, $FC, $14<br /> .byte $00, $14, $00, $14, $04, $0F, $10, $00<br /> .byte $10, $00, $F0, $10, $00, $04, $00, $04<br /> .byte $00, $0E, $00, $00, $00, $00, $B0, $00<br /> .byte $00, $00, $00, $00, $05, $41, $FC, $00<br /> .byte $10, $00, $00, $00, $04, $00, $00, $00<br /> .byte $0C, $33, $33, $30, $0C, $33, $03, $30<br /> .byte $00, $33, $03, $00, $00, $3F, $41, $50<br /> .byte $00, $00, $00, $04, $00, $00, $00, $10<br /> .byte $33, $33, $30, $C0, $33, $03, $30, $C0<br /> .byte $03, $03, $30, $00, $00, $15, $54, $00<br /> .byte $00, $2A, $A8, $00, $00, $15, $54, $00<br /> .byte $00, $2A, $A8, $00, $00, $3F, $FC, $00<br /> .byte $01, $40, $04, $40, $01, $10, $80, $08<br /> .byte $AB, $22, $BE, $2C, $23, $E0, $0A, $28<br /> .byte $AA, $A8, $01, $04, $10, $40, $08, $08<br /> .byte $20, $20, $30, $10, $04, $0C<br /> <br /> ; AC8E<br /> <br /> .byte $FF, $FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $00<br /> .byte $FF, $FA, $FF, $FF, $FF, $FF, $EF, $00<br /> .byte $00, $00, $00, $00, $00, $FF, $AA, $EA<br /> .byte $FF, $FF, $00, $AE, $FF, $FF, $FF, $FF<br /> .byte $FF, $AB, $EB, $AB, $F0, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $DC<br /> .byte $00, $10, $00, $00, $01, $04, $00, $48<br /> .byte $00, $10, $00, $04, $04, $10, $10, $40<br /> .byte $21, $00, $04, $00, $10, $00, $04, $10<br /> .byte $05, $04, $02, $40, $00, $10, $00, $04<br /> .byte $04, $70, $10, $50, $01, $80, $04, $00<br /> .byte $10, $00, $0D, $10, $30, $10, $01, $00<br /> .byte $00, $40, $00, $10, $05, $24, $04, $0C<br /> .byte $00, $40, $01, $00, $04, $00, $18, $50<br /> <br /> ; AD00<br /> <br /> .byte $00, $00, $30, $30, $F3, $CC, $3E, $A0<br /> .byte $54, $0E, $54, $00, $54, $00, $B0, $15<br /> .byte $00, $15, $00, $15, $14, $0F, $50, $00<br /> .byte $50, $00, $F0, $14, $00, $05, $00, $05<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $5F, $C0<br /> .byte $40, $00, $00, $00, $10, $00, $00, $00<br /> .byte $30, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $03, $F5, $00, $00<br /> .byte $00, $00, $00, $01, $00, $00, $00, $04<br /> .byte $00, $00, $00, $30, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $24, $18, $00<br /> .byte $00, $18, $24, $00, $00, $34, $1C, $00<br /> .byte $00, $18, $24, $00, $00, $2C, $38, $00<br /> .byte $00, $00, $01, $00, $01, $00, $08, $80<br /> .byte $2B, $2A, $0F, $2C, $A8, $0A, $AE, $AB<br /> .byte $AA, $AA, $01, $44, $11, $40, $02, $20<br /> .byte $08, $80, $24, $10, $04, $18<br /> <br /> ; AD8E<br /> <br /> .byte $FF,$FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $0E<br /> .byte $FF, $FF, $FD, $55, $55, $57, $FE, $00<br /> .byte $00, $0B, $AE, $C0, $0E, $FF, $FF, $FA<br /> .byte $FA, $AF, $03, $FF, $EF, $55, $55, $55<br /> .byte $FA, $BF, $FE, $BF, $FE, $00, $05, $55<br /> .byte $55, $50, $0A, $AA, $AA, $A0, $00, $00<br /> .byte $10, $44, $00, $00, $01, $44, $00, $44<br /> .byte $00, $14, $00, $04, $01, $04, $11, $40<br /> .byte $11, $00, $14, $00, $10, $00, $10, $40<br /> .byte $01, $14, $00, $54, $00, $90, $14, $14<br /> .byte $01, $10, $14, $40, $15, $00, $06, $00<br /> .byte $14, $14, $04, $40, $24, $10, $01, $00<br /> .byte $00, $40, $30, $10, $01, $14, $04, $18<br /> .byte $00, $40, $01, $00, $04, $0C, $14, $40<br /> <br /> ; AE00<br /> <br /> .byte $00, $00, $00, $00, $F0, $F0, $2F, $B0<br /> .byte $10, $0B, $10, $00, $10, $00, $E0, $04<br /> .byte $00, $04, $00, $04, $38, $03, $D0, $00<br /> .byte $D0, $00, $C0, $2C, $00, $07, $00, $07<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $05, $5C<br /> .byte $00, $00, $00, $00, $40, $00, $00, $00<br /> .byte $C0, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $3F, $50, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $01<br /> .byte $00, $00, $00, $0C, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $14, $14, $00<br /> .byte $00, $28, $28, $00, $00, $14, $14, $00<br /> .byte $00, $28, $28, $00, $00, $3C, $3C, $00<br /> .byte $00, $00, $00, $00, $20, $20, $00, $00<br /> .byte $33, $AA, $0F, $AB, $AE, $2A, $A2, $8B<br /> .byte $AA, $2A, $00, $54, $15, $00, $00, $B0<br /> .byte $0E, $00, $04, $50, $05, $10<br /> <br /> ; AE8E<br /> <br /> .byte $FF, $FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $35<br /> .byte $55, $55, $75, $55, $55, $55, $D5, $40<br /> .byte $02, $BB, $FF, $A0, $0A, $AA, $BF, $BF<br /> .byte $EA, $BB, $0F, $FF, $5D, $55, $55, $55<br /> .byte $7F, $FF, $FF, $FF, $FF, $C0, $15, $55<br /> .byte $55, $54, $2A, $AA, $AA, $A8, $00, $00<br /> .byte $00, $10, $00, $00, $00, $54, $00, $54<br /> .byte $00, $14, $01, $4C, $01, $44, $15, $00<br /> .byte $15, $00, $14, $00, $31, $40, $11, $40<br /> .byte $03, $D4, $03, $DC, $01, $DC, $07, $DC<br /> .byte $01, $55, $17, $C0, $37, $C0, $37, $40<br /> .byte $37, $D0, $55, $40, $04, $50, $01, $04<br /> .byte $00, $40, $0E, $D0, $00, $54, $05, $10<br /> .byte $10, $40, $01, $00, $07, $B0, $15, $00<br /> <br /> ; AF00<br /> <br /> .byte $00, $00, $00, $00, $C0, $00, $0B, $C0<br /> .byte $00, $03, $00, $00, $00, $00, $C0, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $54<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $15, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $14, $14, $00<br /> .byte $00, $28, $28, $00, $00, $14, $14, $00<br /> .byte $00, $28, $28, $00, $00, $3C, $3C, $00<br /> .byte $00, $00, $00, $00, $00, $00, $82, $08<br /> .byte $C3, $A2, $BC, $3E, $A8, $22, $80, $00<br /> .byte $28, $0A, $00, $50, $05, $00, $00, $00<br /> .byte $00, $00, $0A, $90, $06, $A0<br /> <br /> ; AF8E<br /> <br /> .byte $FF, $FF <br /> <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $15<br /> .byte $55, $55, $D5, $55, $55, $55, $75, $40<br /> .byte $0A, $AA, $BE, $A8, $15, $55, $55, $55<br /> .byte $55, $57, $15, $55, $75, $55, $55, $55<br /> .byte $5D, $55, $55, $55, $55, $50, $55, $55<br /> .byte $55, $55, $AA, $AA, $AA, $AA, $00, $00<br /> .byte $00, $00, $00, $00, $00, $50, $00, $54<br /> .byte $00, $50, $00, $50, $00, $00, $05, $00<br /> .byte $15, $00, $05, $00, $05, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $0A, $90, $01, $90<br /> .byte $02, $60, $03, $E0, $00, $00, $06, $A0<br /> .byte $06, $40, $09, $80, $0B, $C0, $00, $00<br /> <br /> GameColdInit<br /> ESGameColdInit<br /> SEI<br /> LDA #$60<br /> STA CTRL<br /> LDA #$17<br /> STA INPTCTRL<br /> LDA #$00<br /> STA OFFSET<br /> CLD<br /> LDX #$FF<br /> TXS<br /> JSR SystemHardwareInit<br /> StartGameInDemoMode<br /> JSR AttractModeMain<br /> LDA #$01<br /> STA DemoMode<br /> JSR InitializeNewGame<br /> LDA TimerHi<br /> CLC<br /> ADC #$06<br /> STA DemoTimer ; run demo for ~24-30 seconds<br /> JMP MainGameLoop<br /> StartNewGameFromMenu<br /> LDA #$00<br /> STA DemoMode<br /> JSR InitializeNewGame<br /> <br /> MainGameLoop<br /> LDA TimerLo<br /> STA GamePacingTimer ; Initialize the pacer with the current frame time<br /> <br /> MainGameLoop_CheckState<br /> LDA GameActiveFlag ; Check if the game is active or in a game-over transition<br /> BEQ GameIsActiveOrDemo ; If 0, game is running normally (or in demo)<br /> <br /> ; Game is in the &quot;ending&quot; state (GameActiveFlag = 1)<br /> LDA GameEndDelayTimer<br /> BPL DecrementGameOverTimer<br /> LDA #$40 ; If timer underflowed, reset it<br /> STA GameEndDelayTimer<br /> DecrementGameOverTimer<br /> JSR CheckResetSwitch ; Allow player to reset during the game over sequence<br /> DEC GameEndDelayTimer ; Countdown before transitioning to high score screen<br /> BNE GameIsActiveOrDemo ; If timer still running, continue normal processing<br /> <br /> ; Game over timer has expired, transition to High Score screen<br /> JSR MuteAudio<br /> LDA #$00<br /> STA CurrentPlayer ; Set to Player 1 for first score entry<br /> JSR DoHscScoreEntry ; Call High Score Cartridge for P1<br /> LDA PlayerCount<br /> BEQ GameOver_ScoresEntered<br /> LDA #$01 ; If 2 players, set to Player 2<br /> STA CurrentPlayer<br /> JSR DoHscScoreEntry ; Call High Score Cartridge for P2<br /> GameOver_ScoresEntered<br /> LDA Difficulty<br /> STA Temp62 ; Preserve difficulty setting<br /> JSR DoHscAttractMode ; Show high score table<br /> JMP StartGameInDemoMode ; After high scores, return to demo mode<br /> <br /> GameIsActiveOrDemo<br /> LDA DemoMode<br /> BEQ PacingLoop ; If not in demo mode, skip to game pacing logic<br /> LDA TimerHi<br /> CMP DemoTimer ; Check if the demo timer has expired<br /> BEQ StartGameInDemoMode ; If so, restart the demo/attract sequence<br /> <br /> PacingLoop<br /> ; This loop ensures the main game logic runs at a consistent rate (every 2 frames).<br /> ; It prevents the game speed from fluctuating based on processing load.<br /> LDA TimerLo<br /> SEC<br /> SBC GamePacingTimer<br /> CMP #$02 ; Has the frame timer advanced by at least 2 ticks?<br /> BCC PacingLoop ; If not, wait.<br /> LDA TimerLo<br /> STA GamePacingTimer ; Latch the new time for the next pace check<br /> <br /> JSR HandleConsoleSwitches ; Check for Pause, Reset, Select<br /> JSR UpdateAllGameObjects ; Run all game object logic (players, enemies, eggs, etc.)<br /> JSR ESRoutineScheduler ; Run any scheduled events (lava rising, platform dissolving, etc.)<br /> JSR ManageMessageTimers ; Update the HUD string buffer with current scores/lives<br /> <br /> WaitForRender<br /> ; Wait here until the NMI has finished processing the previous frame's render list.<br /> ; This synchronizes the main logic thread with the VBlank/NMI thread.<br /> LDA RenderListDirty<br /> BNE WaitForRender<br /> <br /> JSR DisplayRoutineInit ; Prepare the render list for the upcoming frame<br /> JMP MainGameLoop_CheckState ; Loop back to the start of the main logic<br /> <br /> RestartGameFromMenu<br /> LDX #$FF ; Reset the stack pointer<br /> TXS<br /> JMP StartNewGameFromMenu ; Jump to start a new game<br /> <br /> ResetStackAndDisplayGameOptions<br /> LDX #$FF<br /> TXS<br /> JMP DisplayGameOptions<br /> ResetStackAndStartGameInDemoMode<br /> LDX #$FF<br /> TXS<br /> JMP StartGameInDemoMode<br /> InitializeNewGame<br /> SEI<br /> LDA #$60<br /> STA CTRL<br /> JSR ClearRamMuteAudio<br /> JSR LoadGamePalette<br /> JSR SetColorRegisters<br /> JSR ResetMessageDisplayFlags<br /> JSR UpdateDLWithBackgroundSprites<br /> WaitForVblankEnd<br /> BIT MSTAT<br /> BMI WaitForVblankEnd<br /> WaitForVblankStart<br /> BIT MSTAT<br /> BPL WaitForVblankStart<br /> <br /> LDA #$57<br /> STA DPPL<br /> LDA #$27<br /> STA DPPH<br /> <br /> LDA #$40<br /> STA CTRL<br /> JSR InitPlayerLivesAndBonus<br /> JSR SpawnInitialPlayerBirds<br /> JSR InitializeSpawnPlatformStates<br /> LDA #$FF<br /> STA GameEndDelayTimer<br /> LDA #$10<br /> STA BridgeBurningWidth<br /> LDA #$0A<br /> STA ESRoutineIndex+9<br /> LDA #$FF<br /> STA OldPlatformPresentBitmask<br /> LDA #$01<br /> STA LevelBCD<br /> STA IsEggWave<br /> STA PterryCountdownHi<br /> JSR DisplayLevelStartMsg<br /> LDA DemoMode<br /> BNE DisplayGameStartMsg<br /> LDA #$01 ; &quot;prepare to joust&quot;<br /> JSR DisplayGameMessage<br /> LDA #$12<br /> STA ESRoutineIndex+$0D<br /> LDA #SFX_GameStart<br /> JSR ScheduleSFX<br /> JSR ClearScores<br /> DisplayGameStartMsg<br /> JSR UpdateScoreDisplay<br /> LDX #$01 ; &quot;prepare to joust&quot;<br /> JSR UpdatePlayerLivesDisplayed<br /> DEX ; &quot;Wave #&quot;<br /> JMP UpdatePlayerLivesDisplayed<br /> DisplayLevelStartMsg<br /> JSR UpdateAIParametersForLevel<br /> JSR DisplayGameStartMsg<br /> JSR SetAnyPterrysToLeaving<br /> LDA #$00 ; &quot;Wave #&quot;<br /> JMP DisplayGameMessage<br /> AwardEndOfWaveBonuses<br /> LDA GladiatorWaveFlag<br /> BEQ CheckForTeamWaveBonus<br /> LDA PlayerWasGladiator<br /> BNE DisplayNoGladiatorBonusMessage<br /> LDA #$0E ; &quot;3000 gladiator&quot;<br /> JSR DisplayGameMessage<br /> JMP FinalizeGladiatorBonus<br /> DisplayNoGladiatorBonusMessage<br /> LDA #$12 ; &quot;no gladiator&quot;<br /> JSR DisplayGameMessage<br /> FinalizeGladiatorBonus<br /> LDA #$00<br /> STA PlayerWasGladiator<br /> STA GladiatorWaveFlag<br /> JMP DisplayPointsAwardedMessage<br /> CheckForTeamWaveBonus<br /> LDA TeamWaveFlag<br /> BEQ CheckForSurvivalWaveBonus<br /> LDA PlayersWereATeam<br /> BEQ DisplayNoTeamBonusMessage<br /> LDA #$10<br /> STA ESRoutineIndex+$0C<br /> LDA #$03<br /> STA Temp61ScoreAdd<br /> LDA #$00<br /> STA Temp62ScoreAdd<br /> LDX #$00<br /> JSR UpdatePlayerScoreAndBonus<br /> LDX #$01<br /> JSR UpdatePlayerScoreAndBonus<br /> LDA #$0D ; &quot;3000 team&quot;<br /> JSR DisplayGameMessage<br /> JMP DisplayPointsAwardedMessage<br /> DisplayNoTeamBonusMessage<br /> LDA #$11 ; &quot;no team&quot;<br /> JSR DisplayGameMessage<br /> JMP DisplayPointsAwardedMessage<br /> CheckForSurvivalWaveBonus<br /> LDA SurvivalWaveFlag<br /> BEQ ExitWaveBonusChecks<br /> LDA LevelWasSurvived<br /> BEQ DisplayNoSurvivalBonusMessage<br /> LDA #$10<br /> STA ESRoutineIndex+$0C<br /> LDA #$03<br /> STA Temp61ScoreAdd<br /> LDA #$00<br /> STA Temp62ScoreAdd<br /> LDX #$00<br /> JSR UpdatePlayerScoreAndBonus<br /> LDA #$0C ; &quot;3000 survival&quot;<br /> JSR DisplayGameMessage<br /> JMP DisplayPointsAwardedMessage<br /> DisplayNoSurvivalBonusMessage<br /> LDA #$10 ; &quot;no survival&quot;<br /> JSR DisplayGameMessage<br /> DisplayPointsAwardedMessage<br /> LDA #$0F ; &quot;points awarded&quot;<br /> JMP DisplayGameMessage<br /> ExitWaveBonusChecks<br /> RTS<br /> <br /> SetupNextLevel<br /> LDA GameActiveFlag<br /> BNE ExitWaveBonusChecks<br /> TXA<br /> PHA<br /> TYA<br /> PHA<br /> JSR SetAnyPterrysToLeaving<br /> JSR AwardEndOfWaveBonuses<br /> INC Level<br /> LDA Level<br /> CMP #$28<br /> BMI SkipLevelRepeat<br /> LDA #$20 ; Levels greater than $28 repeat levels $20-$28<br /> STA Level<br /> SkipLevelRepeat<br /> LDA LevelBCD ; adjust the BCD level<br /> BEQ IncrementLevelBCD<br /> SED<br /> CLC<br /> ADC #$01<br /> CLD<br /> STA LevelBCD<br /> IncrementLevelBCD<br /> LDA Level<br /> CMP #$01<br /> BNE SetupNextLevelCheckWave2<br /> LDA #$0C<br /> STA ESRoutineIndex+$0A<br /> JMP FinalizeNextLevelSetup<br /> SetupNextLevelCheckWave2<br /> CMP #$02<br /> BNE FinalizeNextLevelSetup<br /> LDA #$0E<br /> STA ESRoutineIndex+$0B<br /> FinalizeNextLevelSetup<br /> LDA ESRoutineIndex+$0C<br /> BNE SkipResettingWaveEndTimer<br /> LDA #$10<br /> STA ESRoutineIndex+$0C<br /> SkipResettingWaveEndTimer<br /> PLA<br /> TAY<br /> PLA<br /> TAX<br /> RTS<br /> <br /> UpdateAIParametersForLevel<br /> LDA #$AE<br /> SEC<br /> SBC Level<br /> STA TrollMinimumGrabYCoord<br /> SBC #$18<br /> STA TrollMinimumTargetYCoord<br /> <br /> LDA Level<br /> CLC<br /> ADC Difficulty<br /> ADC Difficulty<br /> ASL<br /> ADC #$0A ; A = (2 * LEVEL) + (4 * Difficulty) + 10<br /> STA TrollPullingVelocity<br /> <br /> ASL<br /> BCS AnimateTitleScreen<br /> ASL<br /> AnimateTitleScreen<br /> EOR #$FF<br /> STA EnemyAITargetDelayBase<br /> LDA Difficulty<br /> BNE SetAIParamsForNormalOrHarder<br /> LDA #$03<br /> STA Temp5E<br /> LDA #$02<br /> STA Temp5F<br /> LDA #$07<br /> STA Temp60<br /> LDA #$08<br /> STA Temp61<br /> LDA #$02<br /> STA Temp62<br /> LDA #$01<br /> STA Temp63<br /> LDA #$08<br /> STA Temp64<br /> LDA #$09<br /> STA Temp65<br /> JMP StoreCalculatedAIPhysicsParameters<br /> SetAIParamsForNormalOrHarder<br /> LDA #$02<br /> STA Temp5E<br /> LDA #$01<br /> STA Temp5F<br /> LDA #$08<br /> STA Temp60<br /> LDA #$09<br /> STA Temp61<br /> LDA #$01<br /> STA Temp62<br /> LDA #$00<br /> STA Temp63<br /> LDA #$09<br /> STA Temp64<br /> LDA #$0A<br /> STA Temp65<br /> StoreCalculatedAIPhysicsParameters<br /> LDA Level<br /> CMP #$02<br /> BCS SetAIPhysicsForHigherLevels<br /> LDA Temp5E<br /> STA BirdPhysicsIndexMaxByType<br /> STA BirdPhysicsIndexMaxByType+1<br /> STA BirdPhysicsIndexMaxByType+2<br /> LDA Temp5F<br /> STA BirdPhysicsIndexMaxByType+3<br /> STA BirdPhysicsIndexMaxByType+4<br /> <br /> LDA Temp60<br /> STA BirdPhysicsIndexMinByType<br /> STA BirdPhysicsIndexMinByType+1<br /> STA BirdPhysicsIndexMinByType+2<br /> LDA Temp61<br /> STA BirdPhysicsIndexMinByType+3<br /> STA BirdPhysicsIndexMinByType+4<br /> JMP ResetWaveBonusFlags<br /> SetAIPhysicsForHigherLevels<br /> LDA Temp62<br /> STA BirdPhysicsIndexMaxByType<br /> STA BirdPhysicsIndexMaxByType+1<br /> STA BirdPhysicsIndexMaxByType+2<br /> STA BirdPhysicsIndexMaxByType+3<br /> LDA Temp63<br /> STA BirdPhysicsIndexMaxByType+4<br /> LDA Temp64<br /> STA BirdPhysicsIndexMinByType<br /> STA BirdPhysicsIndexMinByType+1<br /> STA BirdPhysicsIndexMinByType+2<br /> STA BirdPhysicsIndexMinByType+3<br /> LDA Temp65<br /> STA BirdPhysicsIndexMinByType+4<br /> ResetWaveBonusFlags<br /> LDA #$00<br /> STA LevelWasSurvived<br /> STA PlayersWereATeam<br /> STA PlayerWasGladiator<br /> STA SurvivalWaveFlag<br /> STA TeamWaveFlag<br /> STA GladiatorWaveFlag<br /> STA PterryWave<br /> LDA Level<br /> AND #$03<br /> BNE ProcessNonEggWaveSetup<br /> LDA IsEggWave<br /> BNE ProcessNonEggWaveSetup<br /> LDA #$01<br /> STA IsEggWave<br /> LDA #$03 ; &quot;Egg Wave&quot;<br /> JSR DisplayGameMessage<br /> LDA #$0F<br /> STA PlatformsInLevel<br /> LDA Level ; Level (range from 0 to 40)<br /> LSR ; <br /> LSR ; <br /> TAX ; X=Level/4 (range from 0 to 10)<br /> LDA MaxEnemyBirdCountLUT,X<br /> STA MaxEnemyBirdCount<br /> LDA EggWaveEnemyTypeLUT,X<br /> STA EggWaveEnemyType<br /> DEC Level<br /> JMP FinalizeWaveSetupAndInitPlatforms<br /> ProcessNonEggWaveSetup<br /> LDA #$00<br /> STA IsEggWave<br /> LDX #$01<br /> LDA Level<br /> CMP #$04<br /> BMI CheckForTeamWave<br /> AND #$03<br /> CMP #$02<br /> BNE CheckForTeamWave<br /> LDY Difficulty<br /> BEQ CheckForTeamWave<br /> STX PterryWave<br /> LDA #$05 ; &quot;Pterry Wave&quot;<br /> JSR DisplayGameMessage<br /> JMP MessageDisplayDone<br /> CheckForTeamWave<br /> LDY P0Lives<br /> BMI CheckForSurvivalWave<br /> LDY P1Lives<br /> BMI CheckForSurvivalWave<br /> CMP #$01<br /> BNE CheckForGladiatorWave<br /> STX PlayersWereATeam<br /> STX TeamWaveFlag<br /> LDA #$07 ; &quot;Team Wave&quot;<br /> JSR DisplayGameMessage<br /> JMP MessageDisplayDone<br /> CheckForGladiatorWave<br /> CMP #$03<br /> BNE MessageDisplayDone<br /> STX PlayerWasGladiator<br /> STX GladiatorWaveFlag<br /> LDA #$04 ; &quot;Gladiator Wave&quot;<br /> JSR DisplayGameMessage<br /> JMP MessageDisplayDone<br /> CheckForSurvivalWave<br /> CMP #$01<br /> BNE MessageDisplayDone<br /> STX LevelWasSurvived<br /> STX SurvivalWaveFlag<br /> LDA #$06 ; &quot;Survival Wave&quot;<br /> JSR DisplayGameMessage<br /> <br /> MessageDisplayDone<br /> LDA #$08<br /> STA MaxEnemyBirdCount<br /> LDX Level<br /> LDA PlatformsInLevelLUT,X<br /> STA PlatformsInLevel<br /> LDY #$00<br /> LDA Difficulty<br /> ASL<br /> ASL<br /> CLC<br /> ADC Level<br /> TAX<br /> STA Temp5E<br /> LDA EnemyWaveDataLUT_A,X<br /> JSR PopulateEnemyTypesForWave<br /> LDX Temp5E<br /> LDA EnemyWaveDataLUT_B,X<br /> JSR PopulateEnemyTypesForWave<br /> FindNextValidEnemyTypeInWaveData<br /> DEY<br /> LDA EnemyBirdTypesForLevel,Y<br /> CMP #$03<br /> BEQ FindNextValidEnemyTypeInWaveData<br /> STY MaxActiveEnemyIndex<br /> FinalizeWaveSetupAndInitPlatforms<br /> LDA #$14<br /> STA ESRoutineIndex+$11<br /> LDA #$00<br /> STA PlatformPresentBitmask<br /> LDA PlatformsInLevel<br /> CLC<br /> AND #$08<br /> BEQ SetupPlatformsProcessTopWrapBit<br /> SEC<br /> SetupPlatformsProcessTopWrapBit<br /> ROL PlatformPresentBitmask<br /> SEC<br /> ROL PlatformPresentBitmask<br /> SEC<br /> ROL PlatformPresentBitmask<br /> SEC<br /> ROL PlatformPresentBitmask<br /> CLC<br /> LDA PlatformsInLevel<br /> AND #$02<br /> STA SpawnPlatformDissolved3<br /> BEQ SetupPlatformsProcessTopCenterPlatform<br /> SEC<br /> SetupPlatformsProcessTopCenterPlatform<br /> ROL PlatformPresentBitmask<br /> CLC<br /> LDA PlatformsInLevel<br /> AND #$01<br /> BEQ SetupPlatformsProcessBottomLeftWrapBit<br /> SEC<br /> SetupPlatformsProcessBottomLeftWrapBit<br /> ROL PlatformPresentBitmask<br /> CLC<br /> LDA PlatformsInLevel<br /> AND #$01<br /> BEQ SetupPlatformsProcessBottomRightWrapBit<br /> SEC<br /> SetupPlatformsProcessBottomRightWrapBit<br /> ROL PlatformPresentBitmask<br /> LDA PlatformPresentBitmask<br /> AND #$40<br /> BEQ HandlePlatform0Removal<br /> LDA OldPlatformPresentBitmask<br /> AND #$40<br /> BNE ContinuePlatformSetupCheckPlatform4<br /> LDA #$C0<br /> STA $1D45<br /> LDA #$37<br /> STA Platform0XCoordinate<br /> LDA #$17<br /> STA Platform0PaletteWidth<br /> LDA #$17<br /> STA Platform0GfxLo<br /> JMP ContinuePlatformSetupCheckPlatform4<br /> HandlePlatform0Removal<br /> LDA OldPlatformPresentBitmask<br /> AND #$40<br /> BEQ ContinuePlatformSetupCheckPlatform4<br /> LDA #SFX_PlatformDissolve<br /> JSR ScheduleSFX<br /> LDA #$3E<br /> STA ESRoutineIndex+$10<br /> ContinuePlatformSetupCheckPlatform4<br /> LDA PlatformPresentBitmask<br /> AND #$04<br /> BEQ HandlePlatform4RemovalOrNoChange<br /> LDA OldPlatformPresentBitmask<br /> AND #$04<br /> BNE SetupPlatformsContinueAfterPlatform4<br /> LDA #$A8<br /> STA $1A6F<br /> LDA #$2E<br /> STA Platform4XCoordinate<br /> LDA #$14<br /> STA Platform4PaletteWidth<br /> LDA #$AA<br /> STA Platform4GfxLo<br /> JMP SetupPlatformsContinueAfterPlatform4<br /> HandlePlatform4RemovalOrNoChange<br /> LDA OldPlatformPresentBitmask<br /> AND #$04<br /> BEQ SetupPlatformsContinueAfterPlatform4<br /> LDA #SFX_PlatformDissolve<br /> JSR ScheduleSFX<br /> LDA #$1C<br /> STA ESRoutineIndex+$0E<br /> SetupPlatformsContinueAfterPlatform4<br /> LDA PlatformPresentBitmask<br /> AND #$02<br /> BEQ SetupPlatforms_HandleTopWrappedPlatformRemoval<br /> LDA OldPlatformPresentBitmask<br /> AND #$02<br /> BNE FinalizeWavePlatformSetup<br /> LDA #$A0<br /> STA $1A15<br /> LDA #$00<br /> STA Platform5XCoordinate<br /> LDA #$1B<br /> STA Platform56PaletteWidth<br /> LDA #$FB<br /> STA Platform56GfxLo<br /> JMP FinalizeWavePlatformSetup<br /> SetupPlatforms_HandleTopWrappedPlatformRemoval<br /> LDA OldPlatformPresentBitmask<br /> AND #$02<br /> BEQ FinalizeWavePlatformSetup<br /> LDA #SFX_PlatformDissolve<br /> JSR ScheduleSFX<br /> LDA #$2D<br /> STA ESRoutineIndex+$0F<br /> FinalizeWavePlatformSetup<br /> LDA PlatformPresentBitmask<br /> STA OldPlatformPresentBitmask<br /> RTS<br /> <br /> PopulateEnemyTypesForWave<br /> STA Temp5F<br /> LDX #$03<br /> UnpackEnemyTypeDataLoop<br /> LDA #$00<br /> ASL Temp5F<br /> ROL<br /> ASL Temp5F<br /> ROL<br /> STA EnemyBirdTypesForLevel,Y<br /> INY<br /> DEX<br /> BPL UnpackEnemyTypeDataLoop<br /> RTS<br /> <br /> ClearRamMuteAudio<br /> ; zero ZP $60 to $FF<br /> LDA #$00<br /> LDX #$A0<br /> ClearMoreZPRamLoop<br /> STA $5F,X<br /> DEX<br /> BNE ClearMoreZPRamLoop<br /> <br /> ; zero $140 to $1F7<br /> LDA #$00<br /> LDX #$B8<br /> ClearRamMuteAudioLoop1<br /> STA $013F,X<br /> DEX<br /> BNE ClearRamMuteAudioLoop1<br /> <br /> LDA #$18<br /> STA Temp5F<br /> LDA #$00<br /> STA Temp5E ; ($5E) = $1800<br /> LDA #$00 ; value to store in<br /> LDX #$08 ; 8 pages of ram.<br /> JSR MemSet ; ie. zero ram from $1800 to $1FFF<br /> <br /> ; zero $2000 to $203F<br /> LDA #$00<br /> LDX #$40<br /> ClearRamMuteAudioLoop2<br /> STA $1FFF,X<br /> DEX<br /> BNE ClearRamMuteAudioLoop2<br /> <br /> ; zero $2100 to $213F<br /> LDA #$00<br /> LDX #$40<br /> ClearRamMuteAudioLoop3<br /> STA $20FF,X<br /> DEX<br /> BNE ClearRamMuteAudioLoop3<br /> <br /> LDA #$22<br /> STA Temp5F<br /> LDA #$00<br /> STA Temp5E ; ($5E) = $2200<br /> LDA #$00 ; value to store in<br /> LDX #$05 ; 5 pages of ram.<br /> JSR MemSet ; i.e. zero ram from $2200 to $26FF<br /> <br /> LDA #$FF<br /> STA P0CurrentFire<br /> JSR MuteAudio<br /> RTS<br /> <br /> SystemHardwareInit<br /> LDA #$00<br /> LDX #$20 ; zero $40-$5F...<br /> ClearSomeZPLoop<br /> STA $3F,X<br /> DEX<br /> BNE ClearSomeZPLoop<br /> <br /> LDA #$27<br /> STA Temp5F<br /> LDA #$00<br /> STA Temp5E ; ($5E) = $2700<br /> LDA #$00 ; value to store in<br /> LDX #$01 ; 1 page of ram.<br /> JSR MemSet ; ie. zero ram from $1800 to $18FF<br /> <br /> JSR ClearRamMuteAudio<br /> JSR InitializeFinalDisplayListPointers<br /> LDA #$00<br /> STA SWACNT<br /> STA SWBCNT<br /> STA $0284<br /> LDA #$C8<br /> STA CHARBASE<br /> LDA #$01<br /> STA Difficulty<br /> STA INPTCTRL<br /> RTS<br /> <br /> ResetMessageDisplayFlags<br /> LDA #$FF<br /> LDX #$07<br /> ResetMessageFlagsLoop<br /> STA $2038,X<br /> DEX<br /> BPL ResetMessageFlagsLoop<br /> RTS<br /> <br /> InitializeSpawnPlatformStates<br /> LDA #$01<br /> STA SpawnPlatformDissolved0<br /> STA SpawnPlatformDissolved1<br /> STA SpawnPlatformDissolved2<br /> STA SpawnPlatformDissolved3<br /> RTS<br /> <br /> LoadGamePalette<br /> LDX #$17<br /> LoadGamePaletteLoop<br /> LDA GamePalette,X<br /> STA PaletteInRam,X<br /> DEX<br /> BPL LoadGamePaletteLoop<br /> RTS<br /> <br /> LoadTitlePalette<br /> LDX #$17<br /> LoadTitlePaletteLoop<br /> LDA TitlePalette,X<br /> STA PaletteInRam,X<br /> DEX<br /> BPL LoadTitlePaletteLoop<br /> RTS<br /> <br /> ClearScores<br /> LDX #$02<br /> LDA #$00<br /> ClearScoresLoop<br /> STA P0Score,X<br /> STA P1Score,X<br /> DEX<br /> BPL ClearScoresLoop<br /> RTS<br /> <br /> MemSet<br /> LDY #$00<br /> MemSetLoop<br /> STA (Temp5E),Y<br /> DEY<br /> BNE MemSetLoop<br /> INC Temp5F<br /> DEX<br /> BNE MemSetLoop<br /> RTS<br /> <br /> InitializeWave<br /> LDA #$00<br /> STA P0EggPointLevel<br /> STA P1EggPointLevel<br /> JSR UpdatePterryRespawnTimer<br /> LDX #$03<br /> ClearPlayerWaveStartVariablesLoop<br /> STA UnusedPlayerStateArray,X<br /> STA TempSpawnUnsafeCounter,X<br /> DEX<br /> BPL ClearPlayerWaveStartVariablesLoop<br /> LDA #$01<br /> LDX #$02<br /> ResetPterryWaveAggressionFlagsLoop<br /> STA PterryAgressionFlag,X<br /> DEX<br /> BPL ResetPterryWaveAggressionFlagsLoop<br /> LDA IsEggWave<br /> BEQ SetupStandardEnemyWave<br /> RTS<br /> <br /> SetupStandardEnemyWave<br /> LDX MaxActiveEnemyIndex<br /> STX EnemyBirdCount<br /> INC EnemyBirdCount<br /> SpawnNextEnemyBirdLoop<br /> LDA EnemyBirdTypesForLevel,X<br /> INX<br /> INX<br /> STA ObjectBirdLevelAndType,X<br /> JSR SpawnNewBird<br /> DEX<br /> DEX<br /> DEX<br /> BPL SpawnNextEnemyBirdLoop<br /> LDA PterryWave<br /> BEQ FinalizeStandardWaveSetup<br /> LDA #$05<br /> STA PterryCountdownLo<br /> LDA #$00<br /> STA PterryCountdownHi<br /> LDA #$02<br /> STA PterryAgressionFlag<br /> LDA Level<br /> CMP #$0F<br /> BCC FinalizeStandardWaveSetup<br /> LDA #$02<br /> STA PterryAgressionFlag+1<br /> FinalizeStandardWaveSetup<br /> RTS<br /> <br /> SpawnInitialPlayerBirds<br /> LDX PlayerCount<br /> SpawnNextPlayerBirdLoop<br /> LDA DemoMode<br /> BNE SetInitialPlayerBirdTypeForDemo<br /> LDA #$03<br /> JMP StoreInitialPlayerBirdType<br /> SetInitialPlayerBirdTypeForDemo<br /> LDA #$01<br /> StoreInitialPlayerBirdType<br /> STA ObjectBirdLevelAndType,X<br /> JSR SpawnNewBird<br /> LDA DemoMode<br /> BEQ SetPlayerSpawnPositionAndState<br /> LDA #$FF<br /> STA GameObjectAITimerHi,X<br /> SetPlayerSpawnPositionAndState<br /> LDA PlayerStartXLUT,X<br /> STA GameObjectXCoordHi,X<br /> LDA #$A0 ; Players start on the<br /> STA GameObjectYCoordHi,X ; the bottom platform.<br /> LDA #$04 ; Set alive state<br /> STA GameObjectState,X<br /> LDA #$00<br /> STA P0FireDebounce,X<br /> DEX<br /> BPL SpawnNextPlayerBirdLoop<br /> RTS<br /> <br /> PlayerStartXLUT<br /> .byte $46, $78<br /> UpdatePterryRespawnTimer<br /> LDA DemoMode<br /> BEQ SetPterryRespawnTimerNormalPlay<br /> LDA #$B0<br /> STA PterryCountdownLo<br /> LDA #$01<br /> STA PterryCountdownHi<br /> RTS<br /> <br /> SetPterryRespawnTimerNormalPlay<br /> JSR CalculateLevelDifficultyRandomTimer<br /> ROL Temp5E<br /> ROL Temp5F<br /> LDA Temp5E<br /> ADC #$80<br /> STA PterryCountdownLo<br /> LDA Temp5F<br /> ADC #$00<br /> STA PterryCountdownHi<br /> RTS<br /> <br /> UpdateAllGameObjects<br /> LDA P0SkidDirection<br /> ORA P1SkidDirection<br /> BNE ProcessGameObjectsMain<br /> LDA #$0F ; skid sound effect<br /> JSR SilenceSFXIfPlaying<br /> ProcessGameObjectsMain<br /> JSR RunPterryCountdown<br /> <br /> LDX #$18 ; last egg object<br /> EggProcessingLoop<br /> JSR RunEggObjectProcessing<br /> DEX<br /> CPX #$0D ; first egg object<br /> BCS EggProcessingLoop<br /> <br /> ; X is holding $0C, the last ptery object index<br /> <br /> PterryProcessingLoop<br /> JSR RunPterryProcessing<br /> DEX<br /> CPX #$0A ; first ptero object<br /> BCS PterryProcessingLoop<br /> <br /> LDX #$09<br /> AllBirdsProcessingLoop ; (player and enemy birds)<br /> JSR RunAllBirdsProcessing<br /> DEX<br /> BPL AllBirdsProcessingLoop<br /> JSR TrollAiLogic<br /> RTS<br /> <br /> SpawnNewBird<br /> LDA InitialBirdDirection,X<br /> STA GameObjectDirection,X<br /> LDA #$00<br /> STA GameObjectChargingTimer,X<br /> STA GameObjectFootstepAnimTimer,X<br /> STA GameObjectFootstepAnimIndex,X<br /> STA GameObjectYVelocityLo,X<br /> STA GameObjectYVelocityHi,X<br /> STA GameObjectYCoordLo,X<br /> STA GameObjectXCoordLo,X<br /> STA GameObjectXVelocity,X<br /> STA GameObjectInAir,X<br /> STA GameObjectPlatformSkipState,X<br /> STA GameObjectSkidDirection,X<br /> STA GameObjectXCoordHi,X<br /> STA GameObjectYCoordHi,X<br /> STA GameObjectAITargetDelayTimer,X<br /> LDA #$02<br /> STA GameObjectAnimationFrame,X<br /> LDA ObjectBirdLevelAndType,X ; A = 0 to 2 (excluding pterry)<br /> ASL ; A = 0 to 4<br /> ASL ; A = 0 to 8<br /> CLC<br /> ADC Difficulty ; A = 0 to 11<br /> TAY<br /> LDA AIModeByBirdTypeAndDifficultyLUT,Y<br /> CMP Level<br /> BCS StoreCalculatedAIMode<br /> LDA #$00<br /> StoreCalculatedAIMode<br /> STA GameObjectAIMode,X<br /> LDA #$01<br /> STA GameObjectAlive,X<br /> LDA #$03<br /> STA GameObjectTimerResetValue,X<br /> STA GameObjectEventTimer1,X<br /> LDA #$03 ; state=born1<br /> STA GameObjectState,X<br /> LDA #$1E<br /> STA GameObjectCountdownLo,X<br /> LDA Level<br /> CMP #$40<br /> BCC ClampLevelTo64<br /> LDA #$40<br /> ClampLevelTo64<br /> LSR<br /> CLC<br /> ADC Difficulty<br /> STA Temp66<br /> CMP #$04<br /> BCC ClampTurnTimerIndex<br /> LDA #$03<br /> ClampTurnTimerIndex<br /> STA TempCollisionOverlap<br /> LDA ObjectBirdLevelAndType,X<br /> ASL<br /> ASL<br /> CLC<br /> ADC TempCollisionOverlap<br /> STA GameObjectTurnTimerIndex,X<br /> TAY<br /> JSR ReturnRandInA<br /> AND #$7F<br /> CLC<br /> ADC TurnCheckTimerValuesLoLUT,Y<br /> STA GameObjectTurnCheckTimerLo,X<br /> LDA TurnCheckTimerValuesHiLUT,Y<br /> ADC #$00<br /> STA GameObjectTurnCheckTimerHi,X<br /> LDA Temp66<br /> CMP #$08<br /> BCC StoreCalculatedAITimers<br /> LDA #$07<br /> StoreCalculatedAITimers<br /> TAY<br /> LDA AITimerByBirdTypeAndDifficultyLoLUT,Y<br /> STA GameObjectAITimerLo,X<br /> LDA AITimerByBirdTypeAndDifficultyHiLUT,Y<br /> STA GameObjectAITimerHi,X<br /> RTS<br /> <br /> RunAllBirdsProcessing<br /> LDA GameObjectState,X<br /> BNE BirdIsAlive<br /> RTS<br /> <br /> BirdIsAlive<br /> CMP #$03 ; ** 3 is the bird init first state &quot;born1&quot;<br /> BNE BirdIsPastInit<br /> DEC GameObjectCountdownLo,X ; ** delay before next init state<br /> BPL ExitAllBirdsProcessing1<br /> LDA #$07 ; ** 7 is the bird init second state &quot;born2&quot;<br /> STA GameObjectState,X<br /> ExitAllBirdsProcessing1<br /> RTS<br /> <br /> BirdIsPastInit<br /> LDA GameObjectInAir,X<br /> BNE NOPBranch ; pointless<br /> NOPBranch<br /> LDA GameObjectState,X<br /> CMP #$06 ; Is bird invincible?<br /> BNE BirdIsntInvincible<br /> JMP BirdBorn1Processing<br /> BirdIsntInvincible<br /> CMP #$07 ; Is bird on second init stage?<br /> BNE BirdIsntInit2<br /> JMP BirdBorn2Processing<br /> BirdIsntInit2<br /> ; if we're here, the bird state must be regular(4) or riderless($14)<br /> CPX #$02 ; players are the first 2 objects<br /> BCC PlayerBirdLogic ; If it's an Enemy Bird then fall-through<br /> JSR AutoPilotBirdLogic<br /> JMP ProcessCommonBirdPhysicsAndCollisions<br /> PlayerBirdLogic<br /> JSR PlayerHitLogic<br /> LDA GameObjectAlive,X<br /> BEQ ProcessBirdPhysicsCommon<br /> JSR HandlePlayerVsPterry<br /> ProcessCommonBirdPhysicsAndCollisions<br /> LDA GameObjectAlive,X<br /> BEQ ProcessBirdPhysicsCommon<br /> JSR ProcessBirdToBirdCollisionLoop<br /> ProcessBirdPhysicsCommon<br /> JSR ProcessBirdPlatformInteraction<br /> JSR UpdateAirborneObjectPhysics<br /> LDA GameObjectInAir,X<br /> BEQ ProcessOnPlatformBirdLogic<br /> RTS<br /> <br /> ProcessOnPlatformBirdLogic<br /> LDA GameObjectSkidDirection,X<br /> BEQ ProcessOnPlatformMovement<br /> JMP ProcessSkidDeceleration<br /> ProcessOnPlatformMovement<br /> LDA GameObjectXVelocity,X<br /> BNE ProcessFootstepAnimation<br /> STA GameObjectFootstepAnimIndex,X<br /> RTS<br /> <br /> ProcessFootstepAnimation<br /> LDA GameObjectFootstepAnimTimer,X<br /> BEQ AdvanceFootstepAnimation<br /> DEC GameObjectFootstepAnimTimer,X<br /> RTS<br /> <br /> AdvanceFootstepAnimation<br /> LDA GameObjectXVelocity,X<br /> CLC<br /> BMI CalculateFootstepTimerFromAbsXVel<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> CalculateFootstepTimerFromAbsXVel<br /> ADC #$02<br /> BMI AdvanceFootstepAnimSlowestSpeed<br /> STA GameObjectFootstepAnimTimer,X<br /> INC GameObjectFootstepAnimIndex,X<br /> LDA GameObjectFootstepAnimIndex,X<br /> CMP #$04<br /> BCC FinishFootstepAnimationCycle<br /> LDA #SFX_PlayerFootstep<br /> JSR SilenceSFXIfPlaying<br /> LDA #SFX_PlayerFootstep<br /> JSR ScheduleSFX<br /> LDA #$00<br /> STA GameObjectFootstepAnimIndex,X<br /> FinishFootstepAnimationCycle<br /> RTS<br /> <br /> AdvanceFootstepAnimSlowestSpeed<br /> CMP #$FF<br /> BNE FootstepAnim_Slow_DoubleFrameIncrement<br /> LDA #$00<br /> STA GameObjectFootstepAnimTimer,X<br /> INC GameObjectFootstepAnimIndex,X<br /> LDA GameObjectFootstepAnimIndex,X<br /> CMP #$02<br /> BNE FootstepAnim_Slowest_CheckCycleEnd<br /> INC GameObjectFootstepAnimIndex,X<br /> LDA GameObjectFootstepAnimIndex,X<br /> FootstepAnim_Slowest_CheckCycleEnd<br /> CMP #$04<br /> BCC FootstepAnim_Slowest_FinishFrame<br /> LDA #SFX_PlayerFootstep<br /> JSR SilenceSFXIfPlaying<br /> LDA #SFX_PlayerFootstep<br /> JSR ScheduleSFX<br /> LDA #$00<br /> STA GameObjectFootstepAnimIndex,X<br /> FootstepAnim_Slowest_FinishFrame<br /> RTS<br /> <br /> FootstepAnim_Slow_DoubleFrameIncrement<br /> LDA #$00<br /> STA GameObjectFootstepAnimTimer,X<br /> INC GameObjectFootstepAnimIndex,X<br /> INC GameObjectFootstepAnimIndex,X<br /> LDA GameObjectFootstepAnimIndex,X<br /> CMP #$04<br /> BCC FootstepAnim_Slow_FinishFrame<br /> LDA #SFX_PlayerFootstep<br /> JSR SilenceSFXIfPlaying<br /> LDA #SFX_PlayerFootstep<br /> JSR ScheduleSFX<br /> LDA #$00<br /> STA GameObjectFootstepAnimIndex,X<br /> FootstepAnim_Slow_FinishFrame<br /> RTS<br /> <br /> ProcessSkidDeceleration<br /> LDA GameObjectChargingTimer,X<br /> BEQ ApplySkidDeceleration<br /> DEC GameObjectChargingTimer,X<br /> RTS<br /> <br /> ApplySkidDeceleration<br /> LDA GameObjectXVelocity,X<br /> BMI ApplyNegativeVelocitySkidDeceleration<br /> DEC GameObjectXVelocity,X<br /> JMP ContinueSkidDeceleration<br /> ApplyNegativeVelocitySkidDeceleration<br /> INC GameObjectXVelocity,X<br /> ContinueSkidDeceleration<br /> LDA GameObjectXVelocity,X<br /> BEQ FinalizeSkidBirdStopped<br /> LDA #$04<br /> STA GameObjectChargingTimer,X<br /> RTS<br /> <br /> FinalizeSkidBirdStopped<br /> JSR ClearSkidStateAndSound<br /> RTS<br /> <br /> BirdBorn1Processing<br /> DEC BirdInvulnerable,X<br /> BMI StartSpawnAnimationSequence<br /> RTS<br /> <br /> StartSpawnAnimationSequence<br /> LDY GameObjectHunterIndex,X<br /> LDA BirdSpawnInvulnAnimStateSequence_TypeA,Y<br /> CMP #$00<br /> BNE DispatchSpawnAnimationState<br /> DEC GameObjectYCoordHi,X<br /> JMP AdvanceSpawnAnimationState<br /> DispatchSpawnAnimationState<br /> CMP #$01<br /> BNE PlayerAirSteering<br /> CPX #$02<br /> BCS HandleEnemyBirdSpawnAnimationState ; branch if non-player enemy bird<br /> LDA #SFX_Invulnerable<br /> JSR ScheduleSFX<br /> JMP AdvanceSpawnAnimationState<br /> HandleEnemyBirdSpawnAnimationState<br /> LDA #$00<br /> STA EnemyIsSpawning<br /> JMP SpawnAnim_FinalizeAndSetStateNormal<br /> ProcessSpawnAnimationOrPlayerSteering<br /> JSR SpawnAnim_FinalizeAndSetStateNormal<br /> JMP PlayerBirdLogic<br /> PlayerAirSteering<br /> LDA P0CurrentFire,X<br /> BPL ProcessSpawnAnimationOrPlayerSteering ; Only when the player bird flaps <br /> LDA SWCHA<br /> CPX #$00<br /> BEQ SkipJoystickShift<br /> ASL<br /> ASL ; Shift the lower j1 nibble into<br /> ASL ; the higher j0 nibble postition<br /> ASL<br /> SkipJoystickShift<br /> ASL<br /> BCC ProcessSpawnAnimationOrPlayerSteering ; Right<br /> ASL<br /> BCC ProcessSpawnAnimationOrPlayerSteering ; Left<br /> ASL<br /> BCC ProcessSpawnAnimationOrPlayerSteering ; Down<br /> ASL<br /> BCC ProcessSpawnAnimationOrPlayerSteering ; Up<br /> LDA BirdSpawnInvulnAnimStateSequence_TypeA,Y<br /> CMP #$02<br /> BNE CheckSpawnAnimState3<br /> JSR SetPlayerSpawnInvulnerablePalette<br /> LDA #$9C<br /> STA Temp60PaletteAndWidth<br /> LDA #$BA<br /> STA Temp61<br /> LDA #$7E<br /> STA Temp62<br /> LDA BirdPaletteAndWidthLUT,X<br /> STA Temp63<br /> JSR UpdatePlatformDLWithSpawnedBirdGfx<br /> JMP AdvanceSpawnAnimationState<br /> CheckSpawnAnimState3<br /> CMP #$03<br /> BNE SpawnAnimCheckState4<br /> JSR SetPlayerPaletteInRam<br /> LDA #$9C<br /> STA Temp60PaletteAndWidth<br /> LDA #$BA<br /> STA Temp61<br /> LDA RiderPaletteAndWidthLUT,X<br /> STA Temp62<br /> LDA BirdPaletteAndWidthLUT,X<br /> STA Temp63<br /> JSR UpdatePlatformDLWithSpawnedBirdGfx<br /> JMP AdvanceSpawnAnimationState<br /> SpawnAnimCheckState4<br /> CMP #$04<br /> BNE SpawnAnim_CheckState5<br /> JSR SetPlayerSpawnInvulnerablePalette<br /> LDA #$7C<br /> STA Temp60PaletteAndWidth<br /> LDA SpawnRiderPaletteAndWidthLUT,X<br /> STA Temp61<br /> LDA BirdPaletteAndWidthLUT,X<br /> STA Temp62<br /> STA Temp63<br /> JSR UpdatePlatformDLWithSpawnedBirdGfx<br /> JMP AdvanceSpawnAnimationState<br /> SpawnAnim_CheckState5<br /> CMP #$05<br /> BNE SpawnAnim_CheckState6<br /> JSR SetPlayersSpawnPalette<br /> LDA #$9C<br /> STA Temp60PaletteAndWidth<br /> LDA #$BA<br /> STA Temp61<br /> LDA RiderPaletteAndWidthLUT,X<br /> STA Temp62<br /> LDA BirdPaletteAndWidthLUT,X<br /> STA Temp63<br /> JSR UpdatePlatformDLWithSpawnedBirdGfx<br /> JMP AdvanceSpawnAnimationState<br /> SpawnAnim_CheckState6<br /> CMP #$06<br /> BNE SpawnAnim_FinalizeAndSetStateNormal<br /> JSR SetPlayerSpawnInvulnerablePalette<br /> LDA #$5C<br /> STA Temp60PaletteAndWidth<br /> LDA #$BA<br /> STA Temp61<br /> LDA BirdPaletteAndWidthLUT,X<br /> STA Temp62<br /> STA Temp63<br /> JSR UpdatePlatformDLWithSpawnedBirdGfx<br /> JMP AdvanceSpawnAnimationState<br /> SpawnAnim_FinalizeAndSetStateNormal<br /> CPX #$02<br /> BCS FinalizeBirdSpawnAndSetState ; branch if non-player enemy bird<br /> LDA #$0A ; player invulnerable sound effect<br /> JSR SilenceSFXIfPlaying<br /> FinalizeBirdSpawnAndSetState<br /> LDA #$04<br /> STA GameObjectState,X<br /> LDA P0CurrentFire,X<br /> EOR #$FF<br /> STA P0FireDebounce,X<br /> LDA #$00<br /> STA GameObjectYVelocityLo,X<br /> STA GameObjectYVelocityHi,X<br /> JSR SetPlayersSpawnPalette<br /> LDA #$5C<br /> STA Temp60PaletteAndWidth<br /> LDA #$BA<br /> STA Temp61<br /> LDA RiderPaletteAndWidthLUT,X<br /> STA Temp62<br /> LDA BirdPaletteAndWidthLUT,X<br /> STA Temp63<br /> JMP UpdatePlatformDLWithSpawnedBirdGfx<br /> AdvanceSpawnAnimationState<br /> LDA BirdSpawnInvulnAnimStateSequence_TypeB,Y<br /> STA BirdInvulnerable,X<br /> INC GameObjectHunterIndex,X<br /> RTS<br /> <br /> BirdBorn2Processing<br /> CPX #$02<br /> BCC PlayerBorn2 ; branch if it's a player bird<br /> LDA EnemyIsSpawning<br /> BEQ CheckForPterryBeforeSpawning<br /> DelaySpawnIfAnotherEnemySpawning<br /> RTS<br /> <br /> PlayerBorn2<br /> LDA P0Lives,X<br /> BPL ProceedWithSpawnSafetyCheck<br /> RTS<br /> <br /> CheckForPterryBeforeSpawning<br /> LDA PterryState1<br /> ORA PterryState2<br /> ORA PterryState3<br /> BEQ ProceedWithSpawnSafetyCheck<br /> RTS<br /> <br /> ProceedWithSpawnSafetyCheck<br /> JSR SpawnPointSafetyCheck<br /> LDA Temp60<br /> BMI DelaySpawnIfAnotherEnemySpawning<br /> CPX #$02<br /> BCC SpawnPlayerBird ; branch if it's a player bird<br /> LDA #$01<br /> STA EnemyIsSpawning<br /> SpawnPlayerBird<br /> LDA #$01<br /> STA GameObjectAlive,X<br /> LDA $60<br /> STA GameObjectSpawnPlatformIndex,X<br /> TAY<br /> LDA PlayerRespawnX,Y<br /> STA GameObjectXCoordHi,X<br /> LDA PlayerRespawnY,Y<br /> STA GameObjectYCoordHi,X<br /> LDA #$06<br /> STA GameObjectState,X<br /> LDA #$00<br /> STA GameObjectInAir,X<br /> STA GameObjectHunterIndex,X<br /> STA GameObjectXVelocity,X<br /> STA BirdInvulnerable,X<br /> LDA BirdBornSFXType,X ; different sounds for birds being born,<br /> JSR ScheduleSFX ; depending on it being a player or enemy.<br /> JSR SetPlayerPaletteInRam<br /> LDA SpawnPlatformPaletteAndWidthLUT,X<br /> STA Temp60PaletteAndWidth<br /> LDA SpawnRiderPaletteAndWidthLUT,X<br /> STA Temp61<br /> LDA SpawnBirdPaletteAndWidthLUT,X<br /> STA Temp62<br /> STA Temp63<br /> UpdatePlatformDLWithSpawnedBirdGfx<br /> LDY GameObjectSpawnPlatformIndex,X<br /> LDA SpawnPlatformDLObjectLoLUT,Y<br /> STA Temp5EGfxDataLo<br /> LDA SpawnPlatformDLObjectHiLUT,Y<br /> STA Temp5FGfxDataHi<br /> LDY #$01<br /> LDA Temp60PaletteAndWidth<br /> STA (Temp5E),Y<br /> DEY<br /> LDA Temp61<br /> STA (Temp5E),Y<br /> LDA Temp62<br /> STA RiderObjectPaletteAndWidth,X<br /> LDA Temp63<br /> STA BirdObjectPaletteAndWidth,X<br /> RTS<br /> <br /> SetPlayerPaletteInRam<br /> CPX #$00<br /> BNE SetPlayer1Palette<br /> LDA #$1E<br /> STA P5C1_Ram<br /> STA P5C2_Ram<br /> STA P5C3_Ram<br /> JMP UpdatePlayerLivesDisplayed<br /> SetPlayer1Palette<br /> CPX #$01<br /> BNE SetPaletteHandleEnemyBird<br /> LDA #$BC<br /> STA P6C1_Ram<br /> STA P6C2_Ram<br /> STA P6C3_Ram<br /> JMP UpdatePlayerLivesDisplayed<br /> SetPaletteHandleEnemyBird<br /> LDA #$0D<br /> STA P4C1_Ram<br /> STA P4C3_Ram<br /> RTS<br /> <br /> SetPlayerSpawnInvulnerablePalette<br /> LDA #$0D<br /> CPX #$00<br /> BNE SetSpawnInvulnPalette_HandlePlayer1<br /> STA P5C1_Ram<br /> STA P5C2_Ram<br /> STA P5C3_Ram<br /> RTS<br /> <br /> SetSpawnInvulnPalette_HandlePlayer1<br /> STA P6C1_Ram<br /> STA P6C2_Ram<br /> STA P6C3_Ram<br /> RTS<br /> <br /> SetPlayersSpawnPalette<br /> CPX #$00<br /> BNE SetPlayer1SpawnPalette<br /> SetPlayer0SpawnPalette<br /> LDA #$15<br /> STA P5C1_Ram<br /> LDA #$A9<br /> STA P5C2_Ram<br /> LDA #$85<br /> STA P5C3_Ram<br /> RTS<br /> <br /> SetPlayer1SpawnPalette<br /> CPX #$01<br /> BNE SetEnemySpawnPalette<br /> LDA #$0D<br /> STA P6C1_Ram<br /> LDA #$1C<br /> STA P6C2_Ram<br /> LDA #$44<br /> STA P6C3_Ram<br /> RTS<br /> <br /> SetEnemySpawnPalette<br /> LDA #$39<br /> STA P4C1_Ram<br /> LDA #$33<br /> STA P4C3_Ram<br /> RTS<br /> <br /> PlayerHitLogic<br /> LDA P0Lives,X<br /> BPL ProcessActivePlayerLogic<br /> LDA GameObjectState,X<br /> CMP #$05<br /> BEQ ProcessActivePlayerLogic<br /> LDA #$00<br /> STA GameObjectState,X<br /> RTS<br /> <br /> ProcessActivePlayerLogic<br /> LDA GameObjectAlive,X<br /> BNE ProcessActivePlayerCollisionsAndInput<br /> JMP AutoPilotBirdLogic<br /> ProcessActivePlayerCollisionsAndInput<br /> JSR CheckPlayerEggCollision<br /> LDA DemoMode<br /> BEQ ProcessPlayerInput<br /> JMP AutoPilotBirdLogic<br /> ProcessPlayerInput<br /> LDA #$00<br /> STA Temp5E<br /> LDA P0CurrentFire,X<br /> STA Temp5F<br /> CMP P0FireDebounce,X<br /> BEQ ProcessPlayerJoystickInput<br /> STA P0FireDebounce,X<br /> LDA Temp5F<br /> BMI PlayerNoFlapResetAnimation<br /> LDA #$01<br /> STA Temp5E<br /> LDY ObjectBirdLevelAndType,X<br /> JSR ApplyFlapPhysics<br /> LDA GameObjectSkidDirection,X<br /> BEQ ContinuePlayerInputAfterFlap<br /> JSR ClearSkidStateAndSound<br /> ContinuePlayerInputAfterFlap<br /> JMP ProcessPlayerJoystickInput<br /> PlayerNoFlapResetAnimation<br /> LDA #$00<br /> STA GameObjectAnimationFrame,X<br /> ProcessPlayerJoystickInput<br /> LDA GameObjectInAir,X<br /> BNE ProcessAirbornePlayerInput<br /> LDA P0JoyDelay,X<br /> BEQ ResetOnPlatformJoyDelay<br /> DEC P0JoyDelay,X<br /> RTS<br /> <br /> ResetOnPlatformJoyDelay<br /> LDA #$04<br /> STA P0JoyDelay,X<br /> ProcessAirbornePlayerInput<br /> LDA SWCHA<br /> CPX #$00<br /> BEQ ProcessNormalizedJoystickInput<br /> ASL<br /> ASL<br /> ASL<br /> ASL<br /> ProcessNormalizedJoystickInput<br /> ASL<br /> BCC HandlePlayerJoyRight_PlatformOrAir<br /> ASL<br /> BCC HandlePlayerJoyLeft_PlatformOrAir<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; Player On-Platform Horizontal Movement &amp; Airborne Steering Logic<br /> ;<br /> ; This section handles player joystick input (Left/Right). Its behavior differs<br /> ; based on whether the bird is on a platform or airborne.<br /> ;<br /> ; - Airborne: The joystick changes the bird's facing direction. If the fire<br /> ; button is also pressed (flapping), it applies horizontal acceleration.<br /> ;<br /> ; - On-Platform: The joystick controls walking. If the player reverses direction<br /> ; while moving above a certain speed, a &quot;skid&quot; is initiated. Pressing the<br /> ; opposite direction again will cancel the skid.<br /> ;<br /> ; Input:<br /> ; X = CurrentPlayer index (0 or 1)<br /> ; Temp5E (from outer context): Holds 1 if fire button was pressed this frame<br /> ; (flapping), 0 otherwise.<br /> ;------------------------------------------------------------------------------<br /> HandlePlayerJoyLeft_PlatformOrAir<br /> LDA GameObjectInAir,X<br /> BEQ PlayerOnPlatform_JoyLeft_CheckVelocity ; If on platform, jump to on-platform logic.<br /> ; Bird is AIRBORNE with joystick LEFT<br /> LDA #Direction_Left ; Face left.<br /> STA GameObjectDirection,X<br /> LDY Temp5E ; Temp5E holds 1 if flapping, 0 if not.<br /> BEQ PlatformMovementOrAirborne_RTS1 ; If not flapping, just steer and exit.<br /> ; Fall through to accelerate if flapping in air.<br /> <br /> AccelerateBirdLeft_PlatformOrAir ; Shared target for airborne left flap &amp; on-platform left acceleration.<br /> DEC GameObjectXVelocity,X ; Decrease X-velocity (move more left or less right).<br /> PlatformMovementOrAirborne_RTS1<br /> RTS<br /> <br /> PlayerOnPlatform_JoyLeft_CheckVelocity ; On Platform, Joy Left: Check current X Velocity<br /> LDA GameObjectXVelocity,X<br /> BEQ BirdStopped_Platform_JoyLeft ; If X-velocity is 0, bird is stopped.<br /> BPL BirdMovingRight_Platform_JoyLeft ; If &gt;0, bird moving/skidding right.<br /> ; Bird is already moving/skidding left (X-velocity is negative).<br /> BNE BirdMovingOrSkiddingLeft_Platform_JoyLeft ; Always taken if XVel &lt; 0.<br /> <br /> BirdStopped_Platform_JoyLeft<br /> LDA GameObjectDirection,X ; Bird was stationary. Get current facing direction.<br /> BMI AccelerateBirdLeft_PlatformOrAir ; If already facing left ($FF), try to accelerate left.<br /> ; Else, was facing right ($01).<br /> LDA #Direction_Left ; Change direction to Left ($FF).<br /> STA GameObjectDirection,X<br /> PlatformMovementOrAirborne_RTS2 ; Also used as common RTS for some skid conditions.<br /> RTS<br /> <br /> BirdMovingRight_Platform_JoyLeft ; Bird was moving/skidding right, joystick now left.<br /> CMP #SKID_VELOCITY_THRESHOLD_RIGHT ; Compare current X-velocity with skid threshold.<br /> BCC BirdMovingOrSkiddingLeft_Platform_JoyLeft ; If VelX &lt; Threshold (moving slowly right), don't skid.<br /> ; Attempt to move left (effectively braking then accelerating).<br /> ; Bird is moving right quickly enough to skid if direction changes.<br /> LDA GameObjectSkidDirection,X ; Is bird already skidding?<br /> BNE PlatformMovementOrAirborne_RTS2 ; Yes, already skidding (likely right): let skid resolve. RTS.<br /> ; Not skidding, but moving right quickly and joystick is left: Initiate SKID to the RIGHT.<br /> INC GameObjectYCoordHi,X ; Visual effect: bird hops up slightly when skidding starts.<br /> LDA #Direction_Right ; Set skid direction to RIGHT ($01) because we were moving right.<br /> STA GameObjectSkidDirection,X<br /> LDA #SKID_ANIMATION_FRAME ; Set animation to skid frame.<br /> STA GameObjectFootstepAnimIndex,X<br /> LDA #SFX_Skid ; Schedule skid sound effect.<br /> JMP ScheduleSFX<br /> <br /> BirdMovingOrSkiddingLeft_Platform_JoyLeft ; Arrived here if: (XVel &lt; 0) OR (XVel &gt; 0 but &lt; SKID_THRESHOLD_RIGHT)<br /> LDA GameObjectSkidDirection,X ; Check if already skidding.<br /> BEQ AccelerateBirdLeft_PlatformOrAir ; Not skidding: try to accelerate left.<br /> ; Already skidding.<br /> BPL PlatformMovementOrAirborne_RTS2 ; Skidding right ($01), joy left (anti-skid): RTS.<br /> ; Skidding left ($FF), joy left (reinforce skid).<br /> JSR ClearSkidStateAndSound ; Clear the skid state (was skidding left, now actively moving left).<br /> JMP AccelerateBirdLeft_PlatformOrAir ; And try to accelerate left.<br /> <br /> HandlePlayerJoyRight_PlatformOrAir<br /> LDA GameObjectInAir,X<br /> BEQ PlayerOnPlatform_JoyRight_CheckVelocity ; If on platform, jump to on-platform logic.<br /> ; Bird is AIRBORNE with joystick RIGHT<br /> LDA #Direction_Right ; Face right.<br /> STA GameObjectDirection,X<br /> LDY Temp5E ; Temp5E has flap status (1 if flapping).<br /> BEQ PlatformMovementOrAirborne_RTS1 ; If not flapping, just steer and exit.<br /> ; Fall through to accelerate if flapping in air.<br /> <br /> AccelerateBirdRight_PlatformOrAir ; Shared target for airborne right flap &amp; on-platform right acceleration.<br /> INC GameObjectXVelocity,X ; Increase X-velocity (move more right or less left).<br /> RTS<br /> <br /> PlayerOnPlatform_JoyRight_CheckVelocity ; On Platform, Joy Right: Check current X Velocity<br /> LDA GameObjectXVelocity,X<br /> BMI BirdMovingLeft_Platform_JoyRight ; If &lt;0, bird moving/skidding left.<br /> BNE BirdMovingOrSkiddingRight_Platform_JoyRight ; If &gt;0 (and non-zero), bird moving/skidding right.<br /> ; Bird is stopped (X-velocity is 0).<br /> BirdStopped_Platform_JoyRight<br /> LDA GameObjectDirection,X ; Get current facing direction.<br /> BPL AccelerateBirdRight_PlatformOrAir ; If already facing right ($01), try to accelerate right.<br /> ; Else, was facing left ($FF).<br /> LDA #Direction_Right ; Change direction to Right ($01).<br /> STA GameObjectDirection,X<br /> PlatformMovementOrAirborne_RTS4 ; Also used as common RTS for some skid conditions.<br /> RTS<br /> <br /> BirdMovingLeft_Platform_JoyRight ; Bird was moving/skidding left, joystick now right.<br /> CMP #SKID_VELOCITY_THRESHOLD_LEFT ; Compare current X-velocity with skid threshold (-2).<br /> BCS BirdMovingOrSkiddingRight_Platform_JoyRight ; If VelX &gt;= Threshold (moving slowly left), don't skid.<br /> ; Attempt to move right (effectively braking then accelerating).<br /> ; Bird is moving left quickly enough to skid.<br /> LDA GameObjectSkidDirection,X ; Is bird already skidding?<br /> BNE PlatformMovementOrAirborne_RTS4 ; Yes, already skidding (likely left): let skid resolve. RTS.<br /> ; Not skidding, but moving left quickly and joystick is right: Initiate SKID to the LEFT.<br /> INC GameObjectYCoordHi,X ; Visual hop.<br /> LDA #Direction_Left ; Set skid direction to LEFT ($FF) because we were moving left.<br /> STA GameObjectSkidDirection,X<br /> LDA #SKID_ANIMATION_FRAME<br /> STA GameObjectFootstepAnimIndex,X<br /> LDA #SFX_Skid<br /> JMP ScheduleSFX<br /> <br /> BirdMovingOrSkiddingRight_Platform_JoyRight ; Arrived here if: (XVel &gt; 0) OR (XVel &lt; 0 but &gt; SKID_THRESHOLD_LEFT)<br /> LDA GameObjectSkidDirection,X ; Check if already skidding.<br /> BEQ AccelerateBirdRight_PlatformOrAir ; Not skidding: try to accelerate right.<br /> ; Already skidding.<br /> BMI PlatformMovementOrAirborne_RTS4 ; Skidding left ($FF), joy right (anti-skid): RTS.<br /> ; Skidding right ($01), joy right (reinforce skid).<br /> JSR ClearSkidStateAndSound ; Clear skid state, now actively moving right.<br /> JMP AccelerateBirdRight_PlatformOrAir ; And try to accelerate right.<br /> <br /> EnemyBirdIsSeekingRider<br /> LDY GameObjectPreyIndex,X<br /> CMP #$14<br /> BNE HunterBirdAICheckPrepareToSlideState<br /> LDA GameObjectDirection,X<br /> CMP GameObjectXVelocity,X<br /> BEQ HunterBirdAIContinueAfterVelocityUpdate<br /> ASL<br /> STA GameObjectXVelocity,X<br /> HunterBirdAIContinueAfterVelocityUpdate<br /> JSR DetermineAIActionBasedOnProximity<br /> LDY GameObjectPreyIndex,X<br /> LDA GameObjectYVelocityHi,X<br /> BEQ UpdateHunterBirdYPosition<br /> BMI HunterBirdMoveUpward<br /> LDA #$01<br /> STA GameObjectYVelocityHi,X<br /> JMP UpdateHunterBirdYPosition<br /> HunterBirdMoveUpward<br /> LDA #$FF<br /> STA GameObjectYVelocityHi,X<br /> LDA GameObjectYVelocityLo,X<br /> BMI UpdateHunterBirdYPosition<br /> LDA #$80<br /> STA GameObjectYVelocityLo,X<br /> UpdateHunterBirdYPosition<br /> LDA GameObjectYCoordHi,X<br /> CLC<br /> ADC #$06<br /> CMP GameObjectYCoordHi,Y<br /> BCC HunterBirdDescendTowardRider<br /> DEC GameObjectYCoordHi,X<br /> HunterBirdDescendTowardRider<br /> LDY GameObjectPreyIndex,X<br /> LDA GameObjectXCoordHi,Y<br /> SEC<br /> SBC GameObjectXCoordHi,X<br /> BPL HunterBirdCheckXProximityToRider<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> HunterBirdCheckXProximityToRider<br /> CMP #$03<br /> BCS HunterAIContinueSeekingRider<br /> LDA #$15<br /> STA GameObjectState,X<br /> LDA #$0A<br /> STA GameObjectEventTimer1,X<br /> HunterAIContinueSeekingRider<br /> RTS<br /> <br /> HunterBirdAICheckPrepareToSlideState<br /> CMP #$15<br /> BNE HunterBirdHandleSlidingState<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$06<br /> CMP GameObjectYCoordHi,X<br /> BCS HunterBirdInitiateSlide<br /> HunterBirdRepositionAfterSlideFail<br /> LDA GameObjectDirection,X<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectDirection,X<br /> LDA #$00<br /> STA GameObjectTimerResetValue,X<br /> STA GameObjectEventTimer1,X<br /> LDA #$14<br /> STA GameObjectState,X<br /> RTS<br /> <br /> HunterBirdInitiateSlide<br /> LDA #$0A<br /> STA GameObjectEventTimer1,X<br /> LDA GameObjectInAir,X<br /> BNE SkipHunterBirdSlideInitiation<br /> LDA #$16<br /> STA GameObjectState,X<br /> LDA GameObjectDirection,X<br /> STA GameObjectSkidDirection,X<br /> INC GameObjectYCoordHi,X<br /> LDA #$04 ; riderless bird time to slide toward rider<br /> STA GameObjectChargingTimer,X<br /> SkipHunterBirdSlideInitiation<br /> RTS<br /> <br /> HunterBirdHandleSlidingState<br /> CMP #$16<br /> BNE HunterBirdFinalApproach<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$06<br /> CMP GameObjectYCoordHi,X<br /> BCS HunterSlideVerticalAlignOK<br /> JMP HunterBirdRepositionAfterSlideFail<br /> HunterSlideVerticalAlignOK<br /> LDA #$0A<br /> STA GameObjectEventTimer1,X<br /> LDA GameObjectXCoordHi,Y<br /> CMP GameObjectXCoordHi,X<br /> BNE HunterSlideContinueApproach<br /> JMP HunterBirdReachedRider<br /> HunterSlideContinueApproach<br /> LDA GameObjectSkidDirection,X<br /> BNE HunterSlideMaintainSkidDirection<br /> LDA GameObjectDirection,X<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> STA GameObjectDirection,X<br /> STA GameObjectXVelocity,X<br /> LDA #$17<br /> STA GameObjectState,X<br /> HunterSlideMaintainSkidDirection<br /> RTS<br /> <br /> HunterBirdFinalApproach<br /> LDA GameObjectYCoordHi,Y<br /> SEC<br /> SBC #$06<br /> CMP GameObjectYCoordHi,X<br /> BCS HunterBirdTargetStillValidContinueApproach<br /> JMP HunterBirdRepositionAfterSlideFail<br /> HunterBirdTargetStillValidContinueApproach<br /> LDA #$0A<br /> STA GameObjectEventTimer1,X<br /> LDA GameObjectDirection,X<br /> STA GameObjectXVelocity,X<br /> LDA GameObjectXCoordHi,Y<br /> CMP GameObjectXCoordHi,X<br /> BNE HunterBirdFinishRiderPickup<br /> HunterBirdReachedRider<br /> LDA #$FF<br /> STA GameObjectPreyIndex,X<br /> LDA #$01<br /> STA GameObjectAlive,X<br /> LDA #$04<br /> STA GameObjectState,X<br /> LDA #$0A<br /> STA GameObjectEventTimer1,X<br /> LDA #$04<br /> STA GameObjectTimerResetValue,X<br /> LDA #$00<br /> STA GameObjectXVelocity,X<br /> STA GameObjectAITimerLo,X<br /> STA GameObjectAITimerHi,X<br /> STA.w GameObjectState,Y<br /> DEC EggsPresentCount<br /> HunterBirdFinishRiderPickup<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; AutoPilotBirdLogic<br /> ; Handles AI for non-player-controlled birds (enemy birds, demo mode player birds).<br /> ; This is the main entry point for their AI processing each game cycle relevant<br /> ; to this logic.<br /> ; Input: X = GameObject index (bird)<br /> ;------------------------------------------------------------------------------<br /> <br /> AutoPilotBirdLogic<br /> LDA GameObjectState,X<br /> CMP #State_BirdSeekingRider ; Is bird in State_BirdSeekingRider ($14)?<br /> ; This is a special state where an unridden enemy bird<br /> ; is actively seeking a hatched rider.<br /> BCC EnemyBirdHasRider_Or_IsNormalAI ; If state &lt; $14, proceed to general AI or rider-attached logic.<br /> JSR EnemyBirdIsSeekingRider ; If state is $14 (or potentially higher, though unlikely),<br /> ; jump to its specialized AI handler.<br /> EnemyBirdHasRider_Or_IsNormalAI<br /> ; This label implies the bird either has a rider (and thus uses general AI)<br /> ; or is an AI bird not in the special &quot;seeking rider&quot; state.<br /> <br /> ; Check if the bird is on a platform and has stopped skidding or moving.<br /> LDA GameObjectInAir,X ; Is the bird in the air?<br /> BNE BirdAI_FlightPathAltitudeCheck ; - Yes, skip platform-specific idle movement.<br /> <br /> ; Bird is ON a PLATFORM.<br /> LDA GameObjectXVelocity,X ; Get current X velocity.<br /> BEQ BirdAI_OnPlatform_Stopped ; - If X velocity is zero, bird is stopped.<br /> LDA GameObjectSkidDirection,X ; Check if bird is skidding.<br /> BEQ BirdAI_FlightPathAltitudeCheck ; - If not skidding (but moving), proceed to altitude checks.<br /> ; This implies moving non-skidding birds on platforms still use some airborne AI logic.<br /> RTS ; - Bird is skidding on a platform, AI takes no further action this frame.<br /> <br /> BirdAI_OnPlatform_Stopped ; Bird is on a platform and X-velocity is zero.<br /> ; Make it pace back and forth slightly if it's an AI bird.<br /> LDA GameObjectXVelocity,X ; Re-load X-velocity (will be $00 here).<br /> CLC<br /> ADC GameObjectDirection,X ; Add current facing direction to X-velocity.<br /> ; (e.g., if facing right ($01), XVel becomes $01; if left ($FF), XVel becomes $FF)<br /> STA GameObjectXVelocity,X ; Store new X-velocity to start slight movement.<br /> <br /> BirdAI_FlightPathAltitudeCheck<br /> LDA GameObjectYCoordHi,X ; Get current Y position.<br /> CMP #$A2 ; Is bird very low (near bottom of typical play area)?<br /> BCC BirdAI_CheckMidAltitudeRange ; - If higher than $A2, check next range.<br /> ; Bird is very low (Y &gt;= $A2).<br /> LDA #$00 ; Set a fast timer value for GameObjectTimerResetValue.<br /> STA GameObjectEventTimer1,X ; Force next event (flap) quickly to gain altitude.<br /> JMP BirdAI_CheckEventTimer ; Proceed to main AI timer logic.<br /> <br /> BirdAI_CheckMidAltitudeRange<br /> CMP #$92 ; Is bird in the lower-mid section of screen?<br /> BCC BirdAI_CheckUpperAltitudeRange ; - If higher than $92, check upper range.<br /> ; Bird is in lower-mid range ($92 &lt;= Y &lt; $A2).<br /> LDA GameObjectYVelocityHi,X ; Check Y velocity.<br /> BMI BirdAI_CheckUpperAltitudeRange ; - If moving up, it might be correcting, check upper range logic.<br /> CMP #$01 ; Is bird moving down (YVel &gt;= $01)?<br /> BCC BirdAI_CheckUpperAltitudeRange ; - If not moving down (YVel == $00), proceed to upper range logic.<br /> ; This means if stationary or moving slowly down in this zone, it's fine.<br /> ; Bird is in lower-mid range AND moving down significantly (YVel &gt;= $01).<br /> LDY ObjectBirdLevelAndType,X ; Get bird type.<br /> LDA AITimerDistantAggressive_ByType,Y ; Load a type-specific timer reset value (from &quot;slow reaction&quot; table).<br /> ; This likely makes the bird react/flap sooner to correct downward movement.<br /> STA GameObjectTimerResetValue,X ; Store it to influence next flap time.<br /> JMP BirdAI_CheckEventTimer<br /> <br /> BirdAI_CheckUpperAltitudeRange<br /> CMP #$88 ; Is bird in the mid-upper section of screen?<br /> BCC BirdAI_CheckEventTimer ; - If higher than $88 (i.e. Y &lt; $88, near top), go to standard event timer.<br /> ; Bird is in mid-upper range ($88 &lt;= Y &lt; $92).<br /> LDA GameObjectYVelocityHi,X ; Check Y velocity.<br /> BMI BirdAI_CheckEventTimer ; - If moving up, behavior is fine, go to standard event timer.<br /> CMP #$02 ; Is bird moving down significantly (YVel &gt;= $02)?<br /> BCC BirdAI_CheckEventTimer ; - If not (YVel &lt; $02), behavior is fine.<br /> ; Bird is in mid-upper range AND moving down significantly (YVel &gt;= $02).<br /> LDY ObjectBirdLevelAndType,X ; Get bird type.<br /> LDA AITimerDistantAggressive_ByType,Y ; Load a type-specific timer reset value (from &quot;slow reaction&quot; table).<br /> STA GameObjectTimerResetValue,X ; Store it to influence next flap time.<br /> ; Fall through to BirdAI_CheckEventTimer<br /> <br /> ; Bird Animation Frames:<br /> ; $00: Gliding / Standing on platform<br /> ; $01: Wings up (during flap)<br /> ; $02: Wings mid-stroke (specific flapping/landing animation phase)<br /> ; $03: Wings down (during flap)<br /> <br /> BirdAI_CheckEventTimer<br /> LDA GameObjectEventTimer1,X ; Load the bird's short-term event timer.<br /> BEQ BirdAI_EventTimerExpired ; If timer is zero, process the event.<br /> DEC GameObjectEventTimer1,X ; Otherwise, decrement the timer.<br /> JMP BirdAI_CheckMainAIDecisionTimer ; Proceed to check the longer-term AI decision timer.<br /> <br /> BirdAI_EventTimerExpired ; Short-term event timer has expired.<br /> LDA GameObjectAnimationFrame,X ; Get current animation frame.<br /> ; Frames $00 (glide/stand) and $02 (mid-flap/land)<br /> ; seem to be key decision points for initiating a flap.<br /> BEQ BirdAI_FlapOrTakeAction ; If frame $00 (gliding/standing), time to flap/act.<br /> CMP #$02 ; Is animation frame $02?<br /> BEQ BirdAI_FlapOrTakeAction ; If frame $02, also time to flap/act.<br /> <br /> BirdAI_SetAnimationToGlideOrStand ; Current animation is likely $01 (wings up) or $03 (wings down).<br /> ; Reset animation to the default non-flapping state.<br /> LDA #$00 ; Set animation frame to $00 (gliding/standing).<br /> STA GameObjectAnimationFrame,X<br /> LDA GameObjectTimerResetValue,X ; Reload short-term event timer from its dynamic reset value.<br /> ; This value is often set by altitude adjustment logic.<br /> STA GameObjectEventTimer1,X<br /> JMP BirdAI_CheckMainAIDecisionTimer ; Proceed to check the longer-term AI decision timer.<br /> <br /> BirdAI_FlapOrTakeAction ; Time to perform a primary action, usually flapping.<br /> LDA GameObjectTimerResetValue,X ; Reload short-term event timer.<br /> STA GameObjectEventTimer1,X<br /> JSR BirdFlapOrAction ; Execute the flap: changes Y-velocity, updates animation frame.<br /> <br /> BirdAI_CheckMainAIDecisionTimer ; Check the 16-bit main AI decision timer.<br /> LDA GameObjectState,X ; Get current bird state.<br /> CMP #State_BirdSeekingRider ; Is bird in &quot;State_BirdSeekingRider&quot; ($14)?<br /> BCS BirdAI_ExitThisAutopilot ; If state is &gt;= $14 (SeekingRider or unknown higher),<br /> ; this general autopilot logic does not apply. Exit.<br /> ; State_BirdSeekingRider has its own specialized AI routines.<br /> <br /> ; Bird is in a state managed by this general autopilot (e.g., normal flight, attacking player).<br /> ; Decrement the 16-bit AI decision timer (GameObjectAITimerHi/Lo).<br /> <br /> SEC<br /> LDA GameObjectAITimerLo,X<br /> SBC #$01<br /> STA GameObjectAITimerLo,X<br /> LDA GameObjectAITimerHi,X<br /> BMI BirdAI_DecisionTimerExpired_HandleTargeting ; If Hi byte was already negative, timer had expired.<br /> SBC #$00 ; Subtract carry (if Lo underflowed).<br /> STA GameObjectAITimerHi,X<br /> BMI BirdAI_DecisionTimerExpired_HandleTargeting ; If Hi byte is now negative, timer just expired.<br /> <br /> BirdAI_DecisionTimerStillActive ; Main AI decision timer has not expired yet.<br /> ; Bird continues with its current general behavior.<br /> JSR AdjustBirdYBasedOnAltitude ; Make minor adjustments to Y velocity based on altitude zones.<br /> ; The return value in A is used to set the next flap timer.<br /> STA GameObjectTimerResetValue,X ; Store the altitude-influenced value. This determines<br /> ; how soon GameObjectEventTimer1 will expire for the next flap.<br /> RTS ; Done with autopilot for this frame.<br /> <br /> BirdAI_DecisionTimerExpired_HandleTargeting ; Main AI decision timer has expired.<br /> ; Time for a more significant AI decision.<br /> LDA GameObjectAlive,X ; Is the bird currently considered &quot;alive&quot;?<br /> BNE BirdAI_Alive_MakeDecision ; If alive, proceed to make a decision (re-target, turn, etc.).<br /> ; Bird is NOT alive (GameObjectAlive,X is $00), but its AI is still being processed.<br /> ; This can happen for unridden enemy birds that are flying off-screen after their<br /> ; rider has been defeated (they are in state $05 &quot;hit&quot; but Alive is $00).<br /> JMP AdjustBirdYBasedOnAltitudeAndResetEventTimer ; Adjust Y for its off-screen path and set event timer.<br /> <br /> BirdAI_Alive_MakeDecision ; Bird is alive, and its main AI timer has expired.<br /> JMP BirdAI_ReTargetOrYAdjust ; Jump to the core AI decision logic:<br /> ; find a target, adjust Y-velocity towards it, or turn.<br /> <br /> BirdAI_ExitThisAutopilot ; Bird is in a state (e.g. SeekingRider) not handled by this general autopilot.<br /> RTS<br /> <br /> BirdFlapOrAction<br /> LDA GameObjectState,X<br /> CMP #$08<br /> BEQ ExitFlapPhysics<br /> CLC<br /> LDA GameObjectXVelocity,X<br /> ADC GameObjectDirection,X<br /> STA GameObjectXVelocity,X<br /> ApplyFlapPhysics<br /> LDA GameObjectState,X<br /> CMP #$08<br /> BEQ ExitFlapPhysics<br /> LDY ObjectBirdLevelAndType,X<br /> SEC<br /> LDA GameObjectYVelocityLo,X<br /> SBC BirdFlapLiftFactorLoLUT,Y<br /> STA GameObjectYVelocityLo,X<br /> LDA GameObjectYVelocityHi,X<br /> SBC BirdFlapLiftFactorHiLUT,Y<br /> STA GameObjectYVelocityHi,X<br /> LDA GameObjectInAir,X<br /> BNE FinalizeFlapState<br /> DEC GameObjectYCoordHi,X<br /> FinalizeFlapState<br /> LDA #$01<br /> STA GameObjectAnimationFrame,X<br /> STA GameObjectInAir,X<br /> LDA #$00<br /> STA GameObjectPlatformSkipState,X<br /> CPX #$02<br /> BCS ExitFlapPhysics ; branch if non-player enemy bird<br /> LDA #SFX_PlayerBirdFlap<br /> JMP ScheduleSFX<br /> ExitFlapPhysics<br /> RTS<br /> <br /> ClearSkidStateAndSound<br /> LDA GameObjectSkidDirection,X<br /> BEQ BirdNotSkidding2<br /> DEC GameObjectYCoordHi,X<br /> LDA #$00<br /> STA GameObjectSkidDirection,X<br /> STA GameObjectFootstepAnimIndex,X<br /> LDA #$0F ; skid sound effect<br /> JMP SilenceSFXIfPlaying<br /> BirdNotSkidding2<br /> RTS<br /> <br /> AdjustBirdYBasedOnAltitudeAndResetEventTimer<br /> JSR AdjustBirdYBasedOnAltitude<br /> STA GameObjectTimerResetValue,X<br /> RTS<br /> <br /> ; BirdAI_ReTargetOrYAdjust<br /> ; This routine is called when a bird's main AI decision timer has expired.<br /> ; It handles re-targeting, turn timers, and then determines the bird's next<br /> ; short-term event timer (GameObjectTimerResetValue,X) based on proximity to its<br /> ; target and its current AI mode. This timer controls flap/action frequency.<br /> ; Input: X = bird's GameObject index<br /> <br /> BirdAI_ReTargetOrYAdjust<br /> LDA GameObjectPreyIndex,X ; Check if bird already has a prey<br /> BPL TargetAcquired_Or_AITargetDelayActive ; If prey index is valid (0 or positive), proceed<br /> <br /> JSR FindBestTargetForGameObject ; No valid prey, try to find one<br /> LDA GameObjectPreyIndex,X ; Check again if a prey was found<br /> BPL PreyFound_ProceedToProximityCalc ; If prey now valid, proceed<br /> <br /> ; Still no prey after trying to find one<br /> JSR AdjustBirdYBasedOnAltitude ; Adjust Y velocity based on current altitude<br /> STA GameObjectTimerResetValue,X ; Set next event timer based on altitude adjustment<br /> RTS ; No target, no further complex AI decision<br /> <br /> TargetAcquired_Or_AITargetDelayActive<br /> LDA GameObjectAITargetDelayTimer,X ; Check if AI target re-evaluation is on cooldown<br /> BEQ AITargetDelayExpired_ForceRetarget ; If timer is zero, cooldown expired, force re-target<br /> DEC GameObjectAITargetDelayTimer,X ; Otherwise, decrement cooldown timer<br /> JMP PreyFound_ProceedToProximityCalc ; Proceed with current prey<br /> <br /> AITargetDelayExpired_ForceRetarget<br /> LDA EnemyAITargetDelayBase ; Cooldown expired, load base delay value<br /> STA GameObjectAITargetDelayTimer,X ; Reset the cooldown timer<br /> JSR FindBestTargetForGameObject ; Force re-evaluation of the best target<br /> <br /> PreyFound_ProceedToProximityCalc ; Bird has a prey (either existing or newly acquired)<br /> JSR DecrementAndProcessBirdTurnTimer ; Handle turn timer (may cause bird to turn around)<br /> <br /> DetermineAIActionBasedOnProximity<br /> JSR CalculateProximityCategoryIndexForAI ; A -&gt; index based on Y dist/vel to prey. Y reg gets this index.<br /> TAY ; Y = Proximity Category Index (0-2, 4-6, 8-A)<br /> LDA BirdAIActionCategoryByProximityLUT,Y ; Get AI Action Category ($00-$04, $FF)<br /> LDY ObjectBirdLevelAndType,X ; Y = Bird Type (0:Bounder, 1:Hunter, 2:ShadowLord, 3:Player)<br /> <br /> CMP #AIActionCat_CloseDefensive ; Is category $00 (Close/Defensive)?<br /> BEQ SelectTimer_Cat00_Path ; If so, branch<br /> CMP #AIActionCat_OptimalAttack ; Is category $01 (Optimal Attack)?<br /> BEQ SelectTimer_Cat01_Path ; If so, branch<br /> CMP #AIActionCat_ModerateEngage ; Is category $02 (Moderate Engage)?<br /> BEQ SelectTimer_Cat02_Path ; If so, branch<br /> CMP #AIActionCat_FarApproach ; Is category $03 (Far Approach)?<br /> BEQ SelectTimer_Cat03_Path ; If so, branch<br /> <br /> ; Fall-through: Category is $04 (VeryFar) or $FF (NoTarget/Maintain current behavior)<br /> <br /> LDA GameObjectAIMode,X ; Check AI Mode (0=Passive, NonZero=Aggressive)<br /> BEQ Branch_CatFF04_AIMode0 ; If Mode 0 (Passive)<br /> ; AIMode is 1 (Aggressive) for Cat $04/$FF<br /> LDA AITimerDistantAggressive_ByType,Y ; Mode 1<br /> ; Fall-through to StoreCalculatedTimerAndExitAIAction<br /> <br /> StoreCalculatedTimerAndExitAIAction ; Common exit point for storing timer and returning.<br /> STA GameObjectTimerResetValue,X<br /> RTS<br /> <br /> Branch_CatFF04_AIMode0 ; Category $04/$FF, AI Mode 0 (Passive)<br /> LDA AITimerDistantPassive_Or_ApproachAggressive_ByType,Y ; Use shared table<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> SelectTimer_Cat03_Path ; Category $03 (Far Approach)<br /> LDA GameObjectAIMode,X<br /> BEQ Branch_Cat03_AIMode0 ; If Mode 0 (Passive)<br /> ; AI Mode is 1 (Aggressive) for Cat $03<br /> LDA AITimerDistantPassive_Or_ApproachAggressive_ByType,Y ; Mode 1: Use shared table<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> Branch_Cat03_AIMode0 ; Category $03 (Far Approach), AI Mode 0 (Passive)<br /> LDA AITimerApproachPassive_ByType,Y ; Use Cat03_AIMode0 table<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> SelectTimer_Cat00_Path ; Category $00 (Close/Defensive)<br /> LDA AITimerCloseDefensive_ByType,Y ; This category uses one table regardless of AI mode<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> SelectTimer_Cat02_Path ; Category $02 (Moderate Engage)<br /> LDA GameObjectAIMode,X<br /> BEQ Branch_Cat02_AIMode0 ; If Mode 0 (Passive)<br /> ; AI Mode is 1 (Aggressive) for Cat $02<br /> LDA AITimerMixedEngageAttack_ByType,Y ; Mode 1: Use shared table<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> Branch_Cat02_AIMode0 ; Category $02 (Moderate Engage), AI Mode 0 (Passive)<br /> LDA AITimerEngagePassive_ByType,Y ; Use Cat02_AIMode0 table<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> SelectTimer_Cat01_Path ; Category $01 (Optimal Attack)<br /> LDA GameObjectAIMode,X<br /> BEQ Branch_Cat01_AIMode0 ; If Mode 0 (Passive)<br /> ; AI Mode is 1 (Aggressive) for Cat $01<br /> LDA AITimerAttackAggressive_ByType,Y ; Mode 1: Use Cat01_AIMode1 table<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> Branch_Cat01_AIMode0 ; Category $01 (Optimal Attack), AI Mode 0 (Passive)<br /> LDA AITimerMixedEngageAttack_ByType,Y ; Mode 0: Use shared table<br /> JMP StoreCalculatedTimerAndExitAIAction ; Jump to common exit<br /> <br /> AdjustBirdYBasedOnAltitude<br /> LDA GameObjectYCoordHi,X<br /> SEC<br /> SBC #$94<br /> BPL AltitudeCheckGotAbsYDistFromLowBoundary<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> AltitudeCheckGotAbsYDistFromLowBoundary<br /> CMP #$02<br /> BCS BirdAI_CheckDistanceFromMidAltitudeBoundary<br /> SetFlapTimerForLowAltitude<br /> LDY ObjectBirdLevelAndType,X<br /> LDA AITimerCloseDefensive_ByType,Y<br /> RTS<br /> <br /> BirdAI_CheckDistanceFromMidAltitudeBoundary<br /> STA Temp65<br /> LDA GameObjectYCoordHi,X<br /> SEC<br /> SBC #$52<br /> BPL CheckDistanceFromMidAltitude<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> CheckDistanceFromMidAltitude<br /> CMP #$02<br /> BCC SetFlapTimerForLowAltitude<br /> STA Temp66<br /> LDA GameObjectYCoordHi,X<br /> SEC<br /> SBC #$15<br /> BPL CompareAltitudeDistancesAndSelectTimer<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> CompareAltitudeDistancesAndSelectTimer<br /> CMP #$02<br /> BCC SetFlapTimerForLowAltitude<br /> CMP Temp66<br /> BCS BirdAI_CheckMidAltitudePosition<br /> CMP Temp65<br /> BCS BirdAI_CompareAltitudeDistances<br /> LDA GameObjectYCoordHi,X<br /> CMP #$15<br /> BCS SetFlapTimerForHighAltitude<br /> SetFlapTimerForMidAltitudePassive<br /> LDY ObjectBirdLevelAndType,X<br /> LDA AITimerEngagePassive_ByType,Y<br /> RTS<br /> <br /> BirdAI_CheckMidAltitudePosition<br /> LDA Temp66<br /> CMP Temp65<br /> BCS BirdAI_CompareAltitudeDistances<br /> LDA GameObjectYCoordHi,X<br /> CMP #$52<br /> BCS SetFlapTimerForHighAltitude<br /> JMP SetFlapTimerForMidAltitudePassive<br /> BirdAI_CompareAltitudeDistances<br /> LDA GameObjectYCoordHi,X<br /> CMP #$94<br /> BCC SetFlapTimerForMidAltitudePassive<br /> SetFlapTimerForHighAltitude<br /> LDY ObjectBirdLevelAndType,X<br /> LDA AITimerApproachPassive_ByType,Y<br /> RTS<br /> <br /> CalculateProximityMetric<br /> LDA #$00<br /> STA Temp60<br /> LDA GameObjectXCoordHi,X<br /> SEC<br /> SBC GameObjectXCoordHi,Y<br /> BPL CalculateProximityMetricXDone<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> CalculateProximityMetricXDone<br /> LSR<br /> LSR<br /> STA Temp5F<br /> LDA GameObjectYCoordHi,X<br /> SEC<br /> SBC GameObjectYCoordHi,Y<br /> BPL AddXDistanceToProximityMetric<br /> EOR #$FF<br /> CLC<br /> ADC #$01<br /> AddXDistanceToProximityMetric<br /> CLC<br /> ADC Temp5F<br /> STA Temp5E<br /> RTS<br /> <br /> FindBestTargetForGameObject<br /> CPX #$02<br /> BCS FindTargetForEnemyBird ; branch if non-player enemy bird<br /> LDA #$02<br /> STA Temp62<br /> LDY #$18<br /> JMP FindTargetInitializeSearch<br /> FindTargetForEnemyBird<br /> LDA #$00<br /> STA Temp62<br /> LDY #$01<br /> FindTargetInitializeSearch<br /> LDA #$FF<br /> STA Temp61<br /> STA GameObjectPreyIndex,X<br /> FindTargetCheckNextObjectLoop<br /> LDA.w GameObjectState,Y<br /> BEQ FindTargetCheckNextObject<br /> CMP #$04<br /> BEQ TargetStateIsValidCalculateDistance<br /> BCC TargetStateIsValidCalculateDistance<br /> CMP #$14<br /> BCS FindTargetCheckNextObject<br /> CMP #$0A<br /> BCC FindTargetCheckNextObject<br /> TargetStateIsValidCalculateDistance<br /> JSR CalculateProximityMetric<br /> LDA Temp5E<br /> CMP Temp61<br /> BCS FindTargetCheckNextObject<br /> STA Temp61<br /> TYA<br /> STA GameObjectPreyIndex,X<br /> FindTargetCheckNextObject<br /> DEY<br /> CPY Temp62<br /> BPL FindTargetCheckNextObjectLoop<br /> RTS<br /> <br /> CalculateProximityCategoryIndexForAI<br /> LDY GameObjectPreyIndex,X<br /> LDA GameObjectYCoordHi,X<br /> CPY #$0D<br /> BCS CalculateProximityForEggOrPterry<br /> SEC<br /> SBC #$02<br /> CMP GameObjectYCoordHi,Y<br /> BCC SetProximityBaseIndexTargetIsBelow<br /> SEC<br /> SBC #$06<br /> CMP GameObjectYCoordHi,Y<br /> BCS SetProximityCategoryToOptimalAttack<br /> JMP SetProximityCategoryFarApproach<br /> CalculateProximityForEggOrPterry<br /> SEC<br /> SBC #$F2<br /> CMP GameObjectYCoordHi,Y<br /> BCC SetProximityBaseIndexTargetIsBelow<br /> SEC<br /> SBC #$02<br /> CMP GameObjectYCoordHi,Y<br /> BCS SetProximityCategoryToOptimalAttack<br /> SetProximityCategoryFarApproach<br /> LDA #$04<br /> JMP StoreProximityBaseIndexAndAddVelocityBias<br /> SetProximityBaseIndexTargetIsBelow<br /> LDA #$08<br /> JMP StoreProximityBaseIndexAndAddVelocityBias<br /> SetProximityCategoryToOptimalAttack<br /> LDA #$00<br /> StoreProximityBaseIndexAndAddVelocityBias<br /> STA Temp5E<br /> LDA GameObjectYVelocityHi,X<br /> BEQ CalculateProximityIndex_BirdStationary<br /> BPL AddDownwardVelocityBiasToProximityIndex<br /> CMP #$FF<br /> BEQ CalculateProximityIndex_BirdStationary<br /> AddDownwardVelocityBiasToProximityIndex<br /> LDA Temp5E<br /> CLC<br /> ADC #$02<br /> RTS<br /> <br /> CalculateProximityIndex_BirdStationary<br /> LDA Temp5E<br /> CLC<br /> ADC #$01<br /> RTS<br /> <br /> LDA Temp5E<br /> RTS<br /> <br /> ConvertKilledBirdToEgg<br /> LDA GameObjectSkidDirection,X<br /> BEQ PlayBirdDeathExplosionSFXTurnIntoEgg<br /> LDA #SFX_Skid<br /> JSR SilenceSFXIfPlaying<br /> PlayBirdDeathExplosionSFXTurnIntoEgg<br /> LDA #SFX_BirdExplosion<br /> JSR ScheduleSFX<br /> LDA #$00<br /> STA GameObjectAlive,X<br /> LDA #$05<br /> STA GameObjectState,X<br /> LDY ObjectBirdLevelAndType,X<br /> LDA AITimerCloseDefensive_ByType,Y<br /> STA GameObjectTimerResetValue,X<br /> INC EggsPresentCount<br /> LDY #$0D<br /> FindAvailableEggSlot<br /> LDA.w GameObjectState,Y<br /> BEQ FoundAvailableEggSlotInitialize<br /> INY<br /> CPY #$19<br /> BNE FindAvailableEggSlot<br /> FoundAvailableEggSlotInitialize<br /> LDA #$01<br /> STA.w GameObjectState,Y<br /> LDA #$01<br /> STA GameObjectInAir,Y<br /> STA GameObjectDirection,Y<br /> LDA GameObjectXVelocity,X<br /> STA GameObjectXVelocity,Y<br /> LDA GameObjectYVelocityLo,X<br /> STA GameObjectYVelocityLo,Y<br /> LDA GameObjectYVelocityHi,X<br /> STA GameObjectYVelocityHi,Y<br /> LDA GameObjectYCoordLo,X<br /> STA GameObjectYCoordLo,Y<br /> LDA GameObjectYCoordHi,X<br /> CLC<br /> ADC #$0B<br /> STA GameObjectYCoordHi,Y<br /> LDA GameObjectXCoordLo,X<br /> STA GameObjectXCoordLo,Y<br /> LDA GameObjectXCoordHi,X<br /> STA GameObjectXCoordHi,Y<br /> LDA ObjectBirdLevelAndType,X<br /> STX Temp5E<br /> TAX<br /> LDA NextEnemyBirdLevel,X ; check what the next upgraded enemy is<br /> LDX Temp5E<br /> STA ObjectBirdLevelAndType,Y<br /> LDA #$00<br /> STA ObjectWiggleAnimation,Y<br /> RTS<br /> <br /> StartPlayerDeath<br /> LDA PterryCountdownHi<br /> BNE SkipPterryCountdown<br /> LDA #$01<br /> STA PterryCountdownHi<br /> SkipPterryCountdown<br /> LDA #$00<br /> STA LevelWasSurvived<br /> LDA #$00<br /> STA Temp61ScoreAdd<br /> LDA #$05<br /> STA Temp62ScoreAdd<br /> JSR UpdatePlayerScoreAndBonus<br /> LDA GameObjectSkidDirection,X<br /> BEQ PlayPlayerDeathExplosionSFX<br /> LDA #SFX_Skid<br /> JSR SilenceSFXIfPlaying<br /> PlayPlayerDeathExplosionSFX<br /> LDA #SFX_BirdExplosion<br /> JSR ScheduleSFX<br /> JSR DeadPlayerChecks<br /> <br /> LDA GameObjectState,X<br /> BEQ SetupPlayerRespawn ; state = 0:dead<br /> <br /> LDA #$05 ; state = 5:player was hit <br /> STA GameObjectState,X<br /> <br /> LDY ObjectBirdLevelAndType,X<br /> LDA AITimerCloseDefensive_ByType,Y<br /> STA GameObjectTimerResetValue,X<br /> LDA #$00<br /> STA GameObjectAlive,X<br /> LDA GameObjectYCoordHi,X<br /> JMP StorePlayerExplosionCoordinates<br /> SetupPlayerRespawn<br /> LDA #$03 ; state = 3:born1<br /> STA GameObjectState,X<br /> LDA #$1E<br /> STA GameObjectCountdownLo,X<br /> LDA GameObjectYCoordHi,X<br /> SEC<br /> SBC #$08 ; Explosion should be a bit higher than the bird<br /> StorePlayerExplosionCoordinates<br /> STA PlayerExplosionYCoord,X<br /> LDA GameObjectXCoordHi,X<br /> STA PlayerExplosionXCoord,X<br /> LDA #$16<br /> STA ESRoutineIndex+5,X<br /> LDA #$00 ; Clear the death state<br /> STA P0DeathState,X<br /> TYA<br /> PHA<br /> LDY #$0A<br /> SetPterrysToLeavingOnDeathLoop<br /> LDA.w GameObjectState,Y<br /> BEQ CheckNextPterryOnPlayerDeath<br /> CMP #$0D<br /> BEQ CheckNextPterryOnPlayerDeath<br /> LDA PterryDefeatedFlag,Y<br /> CMP #$01<br /> BNE CheckNextPterryOnPlayerDeath<br /> LDA #$0C<br /> STA.w GameObjectState,Y<br /> LDA GameObjectDirection,Y<br /> BPL SetPterryLeavingVelocityRight<br /> LDA #$FB<br /> JMP StorePterryLeavingVelocity<br /> SetPterryLeavingVelocityRight<br /> LDA #$05<br /> StorePterryLeavingVelocity<br /> STA GameObjectXVelocity,Y<br /> CheckNextPterryOnPlayerDeath<br /> INY<br /> CPY #$0D<br /> BCC SetPterrysToLeavingOnDeathLoop<br /> PLA<br /> TAY<br /> RTS<br /> <br /> DecrementAndProcessBirdTurnTimer<br /> SEC<br /> LDA GameObjectTurnCheckTimerLo,X<br /> SBC #$01<br /> STA GameObjectTurnCheckTimerLo,X<br /> LDA GameObjectTurnCheckTimerHi,X<br /> BMI BirdTurnTimerExpired<br /> SBC #$00<br /> STA GameObjectTurnCheckTimerHi,X<br /> BMI BirdTurnTimerExpired<br /> RTS<br /> <br /> BirdTurnTimerExpired<br /> LDA GameObjectDirection,X<br /> EOR #$FF<br /> CLC<br /> JMP SetBirdRandomTurnTimers<br /> <br /> ; This rom is a bit weird in that the last 2 8k blocks are identical,<br /> ; including the cart vectors and encryption key.<br /> ;<br /> ; block 1: the graphics and code are live/used, except for the <br /> ; brief &quot;jmp $B000&quot; located at DF7A. The encryption key, BIOS bytes,<br /> ; and 6502 vectors are dead/unused.<br /> ;<br /> ; block 2: the graphics and code are dead/unused, except for the<br /> ; brief &quot;jmp $B000&quot; located at FF7A. The encryption key, BIOS bytes,<br /> ; and 6502 vectors are used.<br /> ;<br /> ; So... Joust has just under 8K unused in block 2, ready and waiting <br /> ; for rom hacks.<br /> ;<br /> ; This is block 1 of 2...<br /> <br /> <br /> SpriteGFX2 ; C000-C7FF<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $2A, $A0, $2A, $80, $2A, $20, $AA, $00<br /> .byte $A8, $00, $AA, $00, $AA, $00, $AA, $80<br /> .byte $AA, $A0, $AA, $A0, $AA, $A0, $AA, $A0<br /> .byte $2A, $A0, $2A, $A0, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $11, $48, $22, $8C, $33, $C8, $AA, $AA<br /> .byte $EA, $54, $00, $10, $6A, $AA, $A8, $A0<br /> .byte $AA, $AA, $95, $56, $AB, $7A, $A9, $57<br /> .byte $00, $D0, $6A, $AA, $A5, $5A, $AA, $AA<br /> .byte $AA, $A0, $00, $00, $00, $15, $55, $56<br /> .byte $AA, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $03, $00, $33<br /> .byte $00, $C0, $33, $00, $C0, $0C, $C0, $CC<br /> .byte $30, $00, $00, $C0, $00, $00, $00, $00<br /> .byte $00, $0C, $00, $00, $00, $00, $0C, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $0A, $A0, $0A, $AA, $56<br /> .byte $9A, $90, $36, $A9, $6A, $AA, $80, $00<br /> .byte $55, $AA, $00, $09, $7A, $A6, $A5, $FE<br /> .byte $A5, $A9, $54, $D6, $A5, $AA, $BD, $66<br /> .byte $56, $AB, $70, $00, $00, $00, $A0, $00<br /> .byte $02, $A0, $00, $00, $A8, $02, $AA, $02<br /> .byte $A0, $00, $00, $AA, $00, $44, $F0, $81<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $FF, $EB, $CF, $FF, $00, $00, $00<br /> .byte $00, $00, $00, $0F, $CF, $00, $00, $00<br /> .byte $00, $FF, $A0, $00, $00, $00, $00, $00<br /> .byte $2A, $80, $2A, $80, $2A, $00, $AA, $00<br /> .byte $AA, $00, $AA, $00, $AA, $00, $AA, $80<br /> .byte $AA, $80, $AA, $A0, $AA, $A0, $AA, $80<br /> .byte $AA, $A0, $2A, $A0, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $04, $48, $08, $8C, $0C, $C8, $2A, $AA<br /> .byte $AA, $94, $00, $10, $AA, $AA, $A8, $A0<br /> .byte $AA, $AA, $95, $56, $AB, $FE, $A9, $57<br /> .byte $00, $D0, $6A, $AA, $A5, $56, $AA, $AA<br /> .byte $AA, $A0, $00, $00, $00, $00, $55, $55<br /> .byte $AA, $80, $00, $00, $2A, $AB, $F4, $00<br /> .byte $00, $00, $00, $AA, $80, $00, $00, $00<br /> .byte $00, $2A, $AA, $A8, $00, $5A, $AA, $A0<br /> .byte $00, $00, $00, $00, $00, $00, $00, $0A<br /> .byte $AA, $A0, $00, $00, $00, $03, $30, $0C<br /> .byte $00, $C0, $0C, $00, $C0, $0F, $00, $CC<br /> .byte $30, $00, $00, $30, $00, $00, $00, $00<br /> .byte $03, $FF, $FF, $FF, $FF, $FF, $F0, $0F<br /> .byte $FC, $03, $F3, $C3, $CF, $00, $00, $FC<br /> .byte $03, $00, $F0, $28, $28, $02, $A9, $5A<br /> .byte $9E, $90, $36, $A9, $5A, $AA, $40, $00<br /> .byte $01, $5A, $A0, $0A, $FA, $A6, $A5, $FA<br /> .byte $A5, $6A, $54, $D6, $A6, $AA, $D7, $A6<br /> .byte $A5, $AB, $FA, $80, $00, $0A, $AB, $C0<br /> .byte $0A, $A9, $00, $02, $AA, $86, $AA, $0A<br /> .byte $A8, $00, $7A, $AA, $B0, $0C, $F0, $63<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $FA, $BF, $FF, $EA, $BE, $F3, $FF, $C0<br /> .byte $00, $00, $00, $EA, $FB, $EA, $FF, $00<br /> .byte $03, $FA, $BF, $FA, $80, $00, $00, $00<br /> .byte $0A, $80, $0A, $80, $2A, $80, $2A, $80<br /> .byte $2A, $80, $AA, $80, $AA, $80, $AA, $80<br /> .byte $2A, $80, $AA, $80, $2A, $80, $AA, $80<br /> .byte $AA, $80, $AA, $80, $AA, $A8, $AF, $A8<br /> .byte $AE, $A8, $AA, $A8, $2A, $A8, $2A, $A8<br /> .byte $2A, $A8, $2A, $A8, $AA, $A8, $AA, $A8<br /> .byte $AA, $A8, $2A, $A8, $2A, $A8, $2A, $A8<br /> .byte $04, $48, $08, $8C, $0C, $C8, $0A, $AA<br /> .byte $AA, $94, $00, $10, $AA, $AA, $A8, $20<br /> .byte $AA, $AA, $55, $4A, $AA, $7E, $A9, $57<br /> .byte $00, $D0, $6A, $AA, $A5, $56, $AA, $AA<br /> .byte $AA, $80, $00, $00, $00, $00, $05, $55<br /> .byte $6A, $A0, $00, $00, $AA, $AA, $BF, $D0<br /> .byte $00, $00, $A0, $AA, $AB, $40, $00, $00<br /> .byte $00, $AA, $AA, $AA, $30, $5A, $AA, $A0<br /> .byte $01, $56, $A8, $00, $00, $00, $70, $AA<br /> .byte $AA, $AA, $B0, $00, $00, $03, $0C, $00<br /> .byte $00, $C0, $00, $03, $00, $0C, $C0, $CF<br /> .byte $F0, $00, $00, $0F, $FC, $00, $00, $00<br /> .byte $00, $0C, $00, $00, $00, $00, $00, $30<br /> .byte $03, $0C, $0C, $3C, $30, $C0, $F3, $03<br /> .byte $03, $03, $0C, $80, $08, $00, $55, $4A<br /> .byte $AE, $90, $06, $AA, $16, $A9, $00, $00<br /> .byte $00, $00, $00, $0A, $BA, $A5, $A9, $DA<br /> .byte $A5, $6A, $54, $D6, $A6, $AA, $FD, $A6<br /> .byte $AA, $AA, $AA, $00, $00, $2A, $AA, $7F<br /> .byte $2A, $AA, $F0, $02, $AA, $A6, $AA, $6A<br /> .byte $AA, $3F, $6A, $AA, $A0, $00, $12, $91<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $FF, $AA, $AA, $BA, $AB, $FA, $EE, $A0<br /> .byte $00, $00, $02, $AA, $AB, $FF, $FF, $00<br /> .byte $3F, $EB, $FF, $AB, $FA, $C0, $00, $00<br /> .byte $0A, $80, $0A, $80, $0A, $80, $0A, $80<br /> .byte $2A, $80, $2A, $80, $2A, $80, $2A, $80<br /> .byte $2A, $80, $2A, $80, $2A, $80, $2A, $80<br /> .byte $2A, $80, $AA, $80, $BB, $A8, $BA, $A8<br /> .byte $AE, $E8, $BA, $AB, $BE, $A8, $BA, $A0<br /> .byte $3B, $A8, $3A, $A8, $BE, $A8, $3A, $A8<br /> .byte $BA, $A8, $3B, $E8, $3A, $E8, $3A, $A8<br /> .byte $45, $48, $8A, $8C, $CF, $C8, $02, $AA<br /> .byte $AA, $94, $00, $10, $AA, $A8, $00, $20<br /> .byte $AA, $A9, $54, $0A, $AA, $BE, $A9, $57<br /> .byte $00, $D0, $6A, $AA, $A8, $55, $AA, $AA<br /> .byte $AA, $00, $00, $00, $00, $00, $00, $05<br /> .byte $52, $A8, $00, $0A, $AA, $AA, $AF, $FD<br /> .byte $40, $00, $A0, $AA, $AA, $F4, $00, $00<br /> .byte $02, $AA, $AA, $AA, $90, $5A, $AA, $A0<br /> .byte $15, $AA, $AA, $A0, $00, $07, $E0, $AA<br /> .byte $AA, $AA, $A8, $00, $00, $00, $C3, $00<br /> .byte $00, $C0, $00, $0C, $00, $0C, $30, $00<br /> .byte $30, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $C0<br /> .byte $03, $0C, $0C, $0C, $C0, $33, $0F, $03<br /> .byte $03, $03, $03, $00, $00, $00, $00, $0A<br /> .byte $A6, $90, $06, $AA, $00, $00, $00, $00<br /> .byte $00, $00, $00, $0A, $AA, $A5, $A9, $5A<br /> .byte $95, $6A, $50, $D6, $A6, $AA, $76, $A6<br /> .byte $AA, $AA, $A8, $00, $00, $AA, $AA, $5D<br /> .byte $EA, $AA, $FF, $0A, $AA, $AA, $A9, $AA<br /> .byte $AA, $BF, $AA, $AA, $A8, $00, $12, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $FE, $FF, $FF, $FF, $FF, $EA, $BA, $A8<br /> .byte $00, $00, $0E, $EE, $AF, $FF, $FF, $00<br /> .byte $AF, $EF, $EE, $BF, $FA, $AF, $C0, $00<br /> .byte $0A, $80, $0A, $80, $0A, $80, $0A, $80<br /> .byte $0A, $80, $0A, $80, $2A, $00, $2A, $80<br /> .byte $2A, $80, $2A, $80, $2A, $80, $2A, $00<br /> .byte $2A, $20, $2A, $80, $AE, $A8, $AE, $A0<br /> .byte $AA, $A0, $AB, $A0, $AF, $A0, $AF, $A0<br /> .byte $AF, $A0, $2E, $A8, $2F, $A8, $AB, $B8<br /> .byte $2B, $A8, $2F, $E8, $AE, $A8, $2B, $A8<br /> .byte $15, $48, $2A, $8C, $3F, $C8, $00, $2A<br /> .byte $AA, $A4, $00, $00, $AA, $00, $00, $00<br /> .byte $2A, $95, $00, $0A, $AA, $BF, $A9, $57<br /> .byte $00, $10, $6A, $AA, $A8, $05, $AA, $AA<br /> .byte $A8, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $2A, $AA, $AA, $A9, $5F<br /> .byte $FC, $02, $A0, $AA, $AA, $7F, $C0, $00<br /> .byte $02, $AA, $AA, $AA, $A0, $5A, $AA, $81<br /> .byte $5A, $AA, $AA, $AA, $0F, $FF, $60, $AA<br /> .byte $AA, $AA, $AA, $80, $00, $30, $03, $00<br /> .byte $3F, $FF, $FF, $F0, $00, $0C, $00, $00<br /> .byte $30, $00, $00, $0F, $C0, $FC, $03, $C0<br /> .byte $FC, $00, $15, $55, $55, $54, $00, $C0<br /> .byte $FF, $0C, $0C, $0F, $00, $0C, $03, $03<br /> .byte $03, $03, $03, $00, $00, $00, $00, $02<br /> .byte $AB, $94, $06, $AA, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $AA, $A9, $AA, $AA<br /> .byte $95, $6A, $50, $D6, $AA, $AA, $BA, $A6<br /> .byte $AA, $AA, $A0, $00, $02, $AA, $AA, $97<br /> .byte $AA, $AA, $9D, $FA, $AA, $AA, $A9, $AA<br /> .byte $AA, $B5, $AA, $AA, $AA, $0B, $B0, $38<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $FE, $FD, $55, $55, $57, $AA, $EA, $AB<br /> .byte $C0, $00, $FF, $EF, $AB, $BF, $FF, $03<br /> .byte $EB, $FA, $BF, $FF, $EB, $FF, $FF, $A8<br /> .byte $2A, $00, $8A, $00, $0A, $00, $02, $80<br /> .byte $02, $A0, $0A, $A0, $0A, $80, $0A, $80<br /> .byte $2A, $00, $2A, $00, $2A, $00, $2A, $20<br /> .byte $2A, $00, $2A, $00, $BB, $A0, $AB, $A0<br /> .byte $AB, $A0, $AE, $80, $AE, $80, $AE, $80<br /> .byte $AB, $A0, $AE, $A0, $AF, $EB, $AF, $A8<br /> .byte $2F, $E8, $AB, $A8, $AB, $E8, $AB, $E8<br /> .byte $05, $50, $0A, $A0, $0F, $F0, $00, $0A<br /> .byte $AA, $A8, $00, $00, $80, $00, $00, $00<br /> .byte $00, $00, $00, $2A, $AA, $AF, $AA, $57<br /> .byte $00, $10, $6A, $AA, $A8, $00, $02, $AA<br /> .byte $80, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $AA, $AA, $AA, $AA, $55<br /> .byte $FF, $CA, $A0, $AA, $AA, $97, $FD, $00<br /> .byte $0A, $AA, $AA, $AA, $A0, $5A, $AA, $85<br /> .byte $6A, $AA, $AA, $AA, $BF, $FD, $60, $AA<br /> .byte $AA, $AA, $AA, $A0, $00, $30, $03, $00<br /> .byte $00, $C0, $00, $00, $00, $0C, $00, $C0<br /> .byte $30, $00, $00, $30, $33, $03, $0C, $33<br /> .byte $03, $00, $AA, $AA, $AA, $AA, $00, $C0<br /> .byte $00, $03, $F0, $0C, $00, $0C, $00, $FC<br /> .byte $FC, $FC, $03, $00, $00, $00, $00, $00<br /> .byte $2A, $A4, $0A, $AA, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $0A, $A9, $6A, $AA<br /> .byte $95, $DA, $50, $36, $A9, $AA, $AA, $A6<br /> .byte $AA, $AA, $80, $00, $02, $AA, $AA, $9F<br /> .byte $AA, $AA, $B7, $EA, $AA, $AA, $AD, $AA<br /> .byte $AA, $A6, $AA, $AA, $AA, $3D, $F2, $FE<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $55, $75, $55, $55, $55, $D5, $AF, $FF<br /> .byte $FC, $03, $FF, $FF, $EA, $BF, $FF, $FF<br /> .byte $FA, $FF, $FF, $FF, $BF, $FF, $FF, $AF<br /> .byte $28, $00, $28, $00, $08, $00, $02, $80<br /> .byte $02, $A0, $02, $A0, $02, $A0, $0A, $A0<br /> .byte $28, $A0, $28, $20, $AA, $00, $28, $20<br /> .byte $28, $28, $A8, $80, $AA, $A0, $AE, $A0<br /> .byte $AE, $80, $AA, $80, $AA, $00, $AA, $00<br /> .byte $AA, $80, $AB, $A0, $AF, $A0, $AA, $E0<br /> .byte $AB, $A0, $2B, $A0, $AB, $A0, $AE, $A0<br /> .byte $01, $08, $02, $0C, $03, $08, $00, $00<br /> .byte $AA, $A8, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $0A, $AA, $A7, $AA, $57<br /> .byte $00, $10, $6A, $AA, $A8, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $AA, $AA, $AA, $AA, $57<br /> .byte $F7, $EA, $A0, $AA, $AA, $AD, $FF, $F0<br /> .byte $0A, $AA, $AA, $AA, $A0, $9A, $AA, $B5<br /> .byte $AA, $AA, $AA, $AA, $AF, $FD, $A0, $AA<br /> .byte $AA, $AA, $AA, $A8, $00, $0C, $0C, $00<br /> .byte $00, $00, $00, $00, $00, $CC, $00, $00<br /> .byte $33, $00, $00, $C0, $0C, $00, $F0, $0C<br /> .byte $00, $C0, $00, $00, $00, $00, $00, $C0<br /> .byte $00, $00, $00, $00, $00, $0C, $00, $00<br /> .byte $00, $00, $03, $00, $00, $00, $00, $00<br /> .byte $0A, $A4, $0A, $80, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $02, $A9, $6A, $AA<br /> .byte $96, $DA, $50, $36, $A9, $AA, $AA, $A1<br /> .byte $5A, $AA, $A0, $00, $0A, $AA, $AA, $95<br /> .byte $AA, $AA, $95, $EA, $AA, $AA, $AD, $AA<br /> .byte $AA, $AE, $AA, $AA, $AA, $2A, $A0, $89<br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF<br /> .byte $55, $D5, $55, $55, $55, $75, $55, $55<br /> .byte $55, $15, $55, $55, $55, $55, $55, $55<br /> .byte $55, $55, $55, $55, $55, $55, $55, $55<br /> .byte $88, $00, $08, $00, $08, $00, $00, $00<br /> .byte $00, $20, $00, $20, $00, $20, $00, $88<br /> .byte $02, $00, $28, $80, $A0, $00, $00, $00<br /> .byte $22, $08, $A0, $20, $AA, $A0, $AA, $A0<br /> .byte $AA, $80, $AE, $00, $AE, $00, $BA, $00<br /> .byte $AA, $00, $AA, $80, $AA, $A0, $AA, $A0<br /> .byte $AA, $80, $2A, $A0, $2A, $A0, $AA, $80<br /> .byte $05, $08, $0A, $0C, $0F, $08, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $02, $AA, $AB, $EA, $54<br /> .byte $00, $10, $6A, $AA, $A8, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $02, $AA, $AA, $AA, $AA, $95<br /> .byte $77, $EA, $A0, $AA, $AA, $A5, $DF, $FF<br /> .byte $2A, $AA, $AA, $AA, $A0, $AA, $AA, $95<br /> .byte $AA, $AA, $AA, $AA, $AF, $75, $A0, $AA<br /> .byte $AA, $AA, $AA, $AA, $00, $03, $F0, $00<br /> .byte $00, $00, $00, $00, $03, $00, $00, $00<br /> .byte $00, $C0, $03, $00, $33, $00, $C0, $33<br /> .byte $00, $C0, $0C, $30, $CF, $F0, $00, $C0<br /> .byte $00, $00, $00, $00, $00, $0C, $00, $00<br /> .byte $00, $00, $03, $00, $00, $00, $00, $00<br /> .byte $00, $A8, $08, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $2A, $2A, $AA<br /> .byte $56, $DA, $50, $36, $A9, $6A, $AA, $A0<br /> .byte $05, $56, $A8, $00, $2A, $AA, $AA, $A6<br /> .byte $AA, $6A, $AF, $EA, $AA, $AA, $AD, $AA<br /> .byte $AA, $AA, $AA, $A5, $6A, $2E, $A1, $D0<br /> <br /> ; C800<br /> <br /> CharacterSet<br /> ; comprised of...<br /> ; 000000000000000011111111111111112222222222222222<br /> ; 0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF<br /> ; _0123456789@0123456789@ABCDEGHIJLMNPRSTUVWXYZK() **then the title border and logo chars<br /> <br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $AA, $AA, $6A, $5A, $96, $A5, $A9, $AA<br /> .byte $90, $A0, $A0, $A0, $A0, $A0, $60, $50<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $00<br /> .byte $0A, $97, $7F, $EA, $AA, $AA, $A7, $5D<br /> .byte $7F, $EA, $95, $AA, $AF, $75, $AA, $AA<br /> .byte $AA, $02, $AA, $AA, $AA, $95, $AA, $AA<br /> .byte $55, $55, $AA, $95, $57, $0F, $50, $9A<br /> .byte $AA, $9D, $AA, $5A, $A0, $AA, $AA, $AA<br /> .byte $A8, $00, $02, $95, $7F, $A9, $5A, $50<br /> .byte $7F, $FE, $95, $5A, $55, $5F, $3F, $56<br /> .byte $AA, $BF, $D7, $5A, $50, $56, $AA, $AF<br /> .byte $D5, $40, $00, $00, $00, $00, $6A, $A9<br /> .byte $70, $5D, $FF, $A5, $6A, $5F, $FD, $AB<br /> .byte $F5, $56, $AA, $A9, $5D, $55, $AA, $A8<br /> .byte $00, $00, $55, $A9, $50, $55, $57, $A5<br /> .byte $57, $5D, $50, $6A, $A9, $55, $DD, $55<br /> .byte $5A, $A9, $60, $A0, $02, $AA, $95, $55<br /> .byte $A5, $95, $55, $55, $A0, $AB, $55, $AA<br /> .byte $95, $D5, $6A, $AA, $96, $95, $55, $55<br /> .byte $56, $2A, $AA, $A5, $9A, $A0, $5A, $95<br /> .byte $FE, $AA, $AA, $AA, $AA, $D5, $6A, $AA<br /> .byte $AA, $AA, $9A, $A5, $AA, $05, $5A, $A6<br /> .byte $A5, $56, $A5, $A9, $55, $56, $A5, $F5<br /> .byte $6A, $A5, $6A, $80, $2A, $A9, $EA, $A6<br /> .byte $A9, $5A, $A7, $EA, $AA, $AA, $AD, $AA<br /> .byte $AA, $AA, $AA, $95, $5A, $00, $E0, $85<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $10, $10<br /> .byte $AA, $6A, $5A, $96, $A5, $A9, $AA, $AA<br /> .byte $A0, $A0, $A0, $A0, $A0, $60, $50, $90<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $00<br /> .byte $0A, $A5, $5F, $AA, $AA, $AA, $A9, $DD<br /> .byte $DF, $AA, $95, $AA, $A9, $D6, $AA, $AA<br /> .byte $AA, $00, $2A, $AA, $AA, $95, $AA, $A9<br /> .byte $55, $57, $AA, $95, $57, $03, $D0, $96<br /> .byte $AA, $AA, $AA, $5A, $A0, $AA, $AA, $AA<br /> .byte $A8, $00, $02, $A7, $5F, $A9, $5A, $70<br /> .byte $FD, $DE, $95, $5A, $55, $5F, $3F, $5A<br /> .byte $AA, $75, $75, $6A, $A0, $55, $AA, $AB<br /> .byte $DD, $55, $40, $00, $00, $00, $6A, $A9<br /> .byte $70, $5D, $7F, $A5, $6A, $5F, $FD, $AB<br /> .byte $F7, $56, $AA, $A5, $D5, $D5, $AA, $A8<br /> .byte $00, $00, $00, $A9, $50, $D5, $75, $A5<br /> .byte $57, $FD, $50, $6A, $A9, $7D, $D7, $55<br /> .byte $6A, $A5, $60, $A0, $02, $AA, $95, $55<br /> .byte $A5, $95, $55, $55, $60, $AB, $55, $AA<br /> .byte $75, $55, $6A, $AA, $56, $95, $55, $40<br /> .byte $00, $AA, $AA, $55, $56, $90, $5A, $95<br /> .byte $7A, $AA, $AA, $AA, $AA, $D5, $6A, $AA<br /> .byte $AA, $AA, $9A, $A5, $6A, $00, $5A, $A6<br /> .byte $A5, $56, $A5, $A9, $55, $56, $AF, $55<br /> .byte $6A, $95, $6A, $80, $AA, $A5, $7A, $A6<br /> .byte $A9, $5A, $A5, $AA, $AA, $AA, $AD, $AA<br /> .byte $AA, $AA, $AA, $95, $5A, $00, $B0, $01<br /> .byte $00, $54, $54, $54, $54, $04, $54, $54<br /> .byte $10, $54, $04, $00, $A8, $A8, $A8, $A8<br /> .byte $08, $A8, $A8, $20, $A8, $08, $00, $88<br /> .byte $A0, $28, $A0, $A8, $A8, $88, $A8, $20<br /> .byte $A8, $88, $88, $80, $88, $A8, $20, $A8<br /> .byte $20, $88, $88, $20, $A8, $88, $41, $04<br /> .byte $6A, $5A, $96, $A5, $A9, $AA, $AA, $AA<br /> .byte $A0, $A0, $A0, $A0, $60, $50, $90, $A0<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $00<br /> .byte $2A, $A5, $DF, $AA, $AA, $AA, $A9, $D5<br /> .byte $DD, $AA, $D5, $AA, $AB, $56, $AA, $AA<br /> .byte $AA, $00, $02, $AA, $AA, $95, $6A, $A9<br /> .byte $55, $57, $6A, $A5, $57, $03, $D0, $96<br /> .byte $AA, $AA, $AA, $5A, $A0, $AA, $AA, $AA<br /> .byte $A8, $00, $02, $A9, $DF, $AA, $5A, $50<br /> .byte $5F, $DA, $95, $56, $95, $5F, $3F, $5A<br /> .byte $AB, $D7, $5D, $AA, $A0, $95, $6A, $AB<br /> .byte $FF, $FD, $80, $00, $00, $01, $6A, $A9<br /> .byte $50, $7F, $7F, $A5, $5A, $7F, $CF, $AA<br /> .byte $D5, $5A, $AA, $AD, $55, $55, $AA, $AA<br /> .byte $40, $00, $00, $AB, $50, $57, $57, $A5<br /> .byte $DF, $FD, $50, $6A, $AB, $FF, $75, $55<br /> .byte $6A, $A7, $60, $A0, $00, $AA, $55, $55<br /> .byte $A5, $95, $55, $55, $60, $AB, $D5, $AA<br /> .byte $57, $55, $AA, $AA, $56, $95, $00, $00<br /> .byte $00, $AA, $A9, $55, $56, $90, $5A, $95<br /> .byte $7A, $AA, $AA, $AA, $AA, $D5, $6A, $AA<br /> .byte $AA, $AA, $9A, $A5, $6A, $00, $0A, $A6<br /> .byte $A5, $56, $A5, $A9, $55, $56, $AF, $D5<br /> .byte $AA, $B5, $6A, $80, $2A, $95, $5A, $A6<br /> .byte $A5, $56, $A5, $AA, $AA, $AA, $A5, $AA<br /> .byte $5A, $AA, $AA, $55, $56, $80, $30, $EB<br /> .byte $00, $44, $10, $40, $04, $04, $04, $44<br /> .byte $10, $44, $04, $54, $88, $20, $80, $08<br /> .byte $08, $08, $88, $20, $88, $08, $A8, $A8<br /> .byte $88, $80, $88, $80, $88, $88, $20, $88<br /> .byte $80, $88, $A8, $80, $A0, $08, $20, $88<br /> .byte $20, $A8, $88, $20, $80, $88, $44, $04<br /> .byte $5A, $96, $A5, $A9, $AA, $AA, $AA, $6A<br /> .byte $A0, $A0, $A0, $60, $50, $90, $A0, $A0<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $00<br /> .byte $AA, $A5, $57, $AA, $AA, $AA, $AA, $77<br /> .byte $5D, $AA, $D5, $AA, $AA, $DA, $AA, $AA<br /> .byte $AA, $00, $00, $AA, $AA, $95, $6A, $A9<br /> .byte $55, $77, $6A, $A5, $57, $03, $D0, $96<br /> .byte $AA, $AA, $AA, $55, $50, $AA, $AA, $5A<br /> .byte $AA, $00, $02, $AA, $77, $AA, $56, $90<br /> .byte $F5, $DA, $95, $56, $95, $5F, $3F, $5A<br /> .byte $AB, $75, $D5, $AA, $A0, $AA, $AA, $AA<br /> .byte $FE, $AA, $80, $00, $00, $05, $6A, $AA<br /> .byte $50, $7F, $FE, $A5, $5A, $5F, $FD, $AA<br /> .byte $D5, $6A, $AA, $97, $5D, $55, $AA, $AA<br /> .byte $00, $00, $00, $A9, $50, $5D, $77, $A5<br /> .byte $5F, $FD, $D0, $6A, $AB, $FF, $57, $55<br /> .byte $AA, $95, $60, $A0, $00, $AA, $55, $55<br /> .byte $A5, $95, $55, $55, $60, $AB, $55, $A9<br /> .byte $D5, $55, $AA, $AA, $56, $90, $00, $00<br /> .byte $00, $AA, $A9, $55, $55, $90, $5A, $95<br /> .byte $5A, $AA, $AA, $AA, $AB, $D5, $6A, $AA<br /> .byte $A6, $AA, $9A, $95, $6A, $00, $0A, $A6<br /> .byte $A5, $5E, $A5, $A9, $55, $56, $AD, $D6<br /> .byte $AA, $55, $6A, $80, $2A, $95, $5A, $A6<br /> .byte $A5, $56, $A5, $AA, $95, $AA, $A5, $A9<br /> .byte $56, $AA, $AA, $55, $56, $80, $A2, $14<br /> .byte $00, $44, $10, $54, $14, $54, $54, $54<br /> .byte $10, $54, $54, $54, $88, $20, $A8, $28<br /> .byte $A8, $A8, $A8, $20, $A8, $A8, $A8, $88<br /> .byte $A0, $80, $88, $A0, $88, $A8, $20, $08<br /> .byte $80, $88, $A8, $A8, $A8, $20, $20, $88<br /> .byte $88, $88, $20, $20, $20, $A0, $44, $04<br /> .byte $96, $A5, $A9, $AA, $AA, $AA, $6A, $5A<br /> .byte $A0, $A0, $60, $50, $90, $A0, $A0, $A0<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $02<br /> .byte $AA, $A5, $76, $AA, $AA, $AA, $AA, $75<br /> .byte $7D, $AA, $D5, $6A, $AA, $DA, $AA, $AA<br /> .byte $AA, $00, $00, $0A, $AA, $A5, $6A, $A9<br /> .byte $55, $9F, $6A, $A5, $57, $03, $D0, $95<br /> .byte $AA, $AA, $AA, $03, $50, $55, $55, $56<br /> .byte $AA, $00, $02, $AA, $9E, $AA, $56, $90<br /> .byte $5F, $5A, $55, $56, $95, $5F, $0F, $5A<br /> .byte $AB, $DD, $D6, $AA, $A0, $AA, $AA, $AA<br /> .byte $AA, $AA, $00, $00, $00, $57, $6A, $AA<br /> .byte $70, $77, $5E, $A5, $5A, $5C, $FD, $AA<br /> .byte $D5, $6A, $AA, $75, $55, $55, $6A, $AA<br /> .byte $40, $00, $00, $A9, $50, $D5, $F7, $A5<br /> .byte $5F, $CD, $50, $6A, $AB, $FF, $F5, $56<br /> .byte $AA, $9D, $60, $A0, $00, $2A, $55, $55<br /> .byte $A5, $55, $55, $D5, $50, $AB, $55, $A9<br /> .byte $75, $55, $AA, $A9, $56, $80, $00, $00<br /> .byte $00, $2A, $A5, $55, $55, $50, $56, $95<br /> .byte $5A, $AA, $AA, $AA, $AB, $55, $6A, $AA<br /> .byte $55, $AA, $9A, $95, $5A, $00, $0A, $A6<br /> .byte $A5, $7E, $A5, $A9, $55, $56, $AD, $5A<br /> .byte $AA, $75, $5A, $80, $0A, $95, $5A, $A6<br /> .byte $A5, $56, $A5, $AA, $55, $6A, $A5, $A9<br /> .byte $D6, $AA, $AA, $55, $56, $A8, $04, $06<br /> .byte $00, $44, $50, $04, $04, $44, $40, $40<br /> .byte $04, $44, $44, $F4, $88, $A0, $08, $08<br /> .byte $88, $80, $80, $08, $88, $88, $F8, $88<br /> .byte $88, $80, $88, $80, $80, $88, $20, $08<br /> .byte $80, $A8, $A8, $88, $88, $80, $20, $88<br /> .byte $88, $88, $88, $88, $08, $A0, $44, $04<br /> .byte $A5, $A9, $AA, $AA, $AA, $6A, $5A, $96<br /> .byte $A0, $60, $50, $90, $A0, $A0, $A0, $A0<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $0A<br /> .byte $AA, $A9, $56, $AA, $AA, $AA, $AA, $55<br /> .byte $DE, $AA, $D5, $6A, $AA, $DA, $AA, $95<br /> .byte $5A, $00, $00, $00, $AA, $A5, $4A, $A9<br /> .byte $56, $9F, $7A, $A5, $57, $00, $D0, $95<br /> .byte $AA, $AA, $AA, $00, $10, $55, $55, $55<br /> .byte $AA, $80, $02, $AA, $AA, $AA, $56, $A0<br /> .byte $77, $6A, $55, $56, $95, $5F, $0F, $FA<br /> .byte $AB, $77, $5A, $AA, $A0, $AA, $AA, $AA<br /> .byte $AA, $A0, $00, $00, $05, $7F, $6A, $AA<br /> .byte $70, $75, $DE, $A5, $5A, $5F, $FD, $AA<br /> .byte $D5, $AA, $A9, $F7, $75, $55, $6A, $AA<br /> .byte $94, $00, $00, $A9, $50, $5D, $77, $A5<br /> .byte $5F, $FD, $50, $6A, $AB, $F7, $55, $5A<br /> .byte $AA, $95, $50, $A0, $00, $2A, $55, $55<br /> .byte $A5, $55, $55, $55, $50, $AB, $D5, $A7<br /> .byte $55, $56, $AA, $A9, $55, $80, $00, $00<br /> .byte $00, $2A, $A5, $55, $55, $50, $56, $A5<br /> .byte $5A, $AA, $96, $AA, $AB, $55, $6A, $A9<br /> .byte $D5, $6A, $9A, $95, $5A, $00, $0A, $A6<br /> .byte $A5, $7E, $A5, $A9, $55, $56, $AD, $6A<br /> .byte $AB, $55, $5A, $A0, $0A, $55, $5A, $A6<br /> .byte $A5, $56, $A5, $AA, $55, $5A, $AD, $A5<br /> .byte $5A, $A9, $AA, $55, $00, $80, $F9, $5F<br /> .byte $00, $54, $10, $54, $54, $44, $54, $54<br /> .byte $54, $54, $54, $54, $A8, $20, $A8, $A8<br /> .byte $88, $A8, $A8, $A8, $A8, $A8, $A8, $20<br /> .byte $A0, $28, $A0, $A8, $A8, $88, $A8, $08<br /> .byte $80, $88, $88, $A8, $A8, $A8, $A8, $88<br /> .byte $88, $88, $88, $88, $A8, $88, $41, $04<br /> .byte $A9, $AA, $AA, $AA, $6A, $5A, $96, $A5<br /> .byte $60, $50, $90, $A0, $A0, $A0, $A0, $A0<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $0A<br /> .byte $AA, $A9, $56, $AA, $95, $AA, $AA, $5D<br /> .byte $DE, $AA, $D5, $6A, $AA, $9A, $AA, $55<br /> .byte $56, $00, $00, $00, $0A, $A9, $0A, $A5<br /> .byte $56, $AF, $7A, $A5, $57, $00, $D0, $A5<br /> .byte $6A, $AA, $A8, $00, $00, $55, $55, $55<br /> .byte $6A, $A0, $02, $AA, $AA, $AA, $56, $A0<br /> .byte $77, $6A, $55, $55, $95, $57, $0F, $5A<br /> .byte $AB, $5F, $5A, $AA, $A0, $AA, $AA, $AA<br /> .byte $AA, $80, $00, $00, $55, $5F, $5A, $AA<br /> .byte $70, $5F, $FE, $A5, $5A, $5F, $CD, $AA<br /> .byte $55, $AA, $A9, $F7, $D6, $55, $5A, $AA<br /> .byte $B5, $00, $00, $A9, $70, $55, $FF, $A5<br /> .byte $7C, $FF, $50, $5A, $AB, $F5, $D5, $6A<br /> .byte $AA, $75, $50, $AB, $00, $09, $55, $57<br /> .byte $A5, $55, $57, $55, $50, $AB, $55, $AD<br /> .byte $55, $56, $AA, $A9, $55, $80, $00, $00<br /> .byte $00, $0A, $95, $55, $55, $50, $56, $A5<br /> .byte $6A, $A9, $55, $5A, $AB, $55, $AA, $A5<br /> .byte $55, $6A, $9A, $95, $5A, $00, $5A, $A6<br /> .byte $A5, $FE, $A5, $A9, $55, $56, $AD, $6A<br /> .byte $A5, $55, $5A, $A0, $02, $55, $5A, $A6<br /> .byte $A5, $56, $A5, $A9, $55, $5A, $A5, $A5<br /> .byte $5A, $A5, $AA, $50, $00, $A8, $10, $90<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $00, $00<br /> .byte $00, $00, $00, $00, $00, $00, $10, $10<br /> .byte $AA, $AA, $AA, $6A, $5A, $96, $A5, $A9<br /> .byte $50, $90, $A0, $A0, $A0, $A0, $A0, $60<br /> .byte $AA, $A0, $A9, $5A, $55, $6A, $50, $2A<br /> .byte $AA, $A9, $76, $AA, $55, $6A, $AA, $95<br /> .byte $7E, $AA, $D5, $6A, $AA, $9A, $A9, $55<br /> .byte $55, $00, $00, $00, $00, $A8, $02, $A5<br /> .byte $56, $AF, $7A, $A5, $57, $00, $D0, $A5<br /> .byte $6A, $AA, $A8, $00, $00, $05, $55, $55<br /> .byte $5A, $A8, $00, $2A, $AA, $AA, $55, $A0<br /> .byte $9D, $AA, $55, $55, $95, $57, $0F, $9A<br /> .byte $AA, $77, $6A, $AA, $A0, $AA, $AA, $AA<br /> .byte $AA, $00, $00, $02, $55, $DF, $5A, $AA<br /> .byte $50, $F7, $7E, $95, $5A, $5F, $3F, $AA<br /> .byte $56, $AA, $AD, $DD, $DA, $59, $56, $AA<br /> .byte $AD, $50, $00, $A9, $50, $75, $DF, $A5<br /> .byte $5F, $FD, $50, $5A, $AB, $FD, $55, $AA<br /> .byte $AA, $55, $50, $A8, $00, $00, $00, $77<br /> .byte $A5, $55, $75, $75, $50, $AB, $D5, $95<br /> .byte $D5, $5A, $AA, $A9, $55, $80, $00, $00<br /> .byte $00, $0A, $95, $55, $55, $50, $56, $A5<br /> .byte $6A, $A5, $55, $55, $AB, $55, $AA, $9D<br /> .byte $55, $6A, $96, $95, $56, $05, $7A, $A6<br /> .byte $A5, $FE, $A5, $A9, $57, $D6, $A5, $AA<br /> .byte $AD, $D5, $56, $AD, $02, $55, $5A, $A6<br /> .byte $A5, $56, $A5, $A9, $55, $5A, $A5, $B5<br /> .byte $5A, $A5, $AA, $00, $00, $00, $D0, $28<br /> <br /> ; ORG $D000<br /> <br /> MenuUpdateCounter<br /> LDA EasterEggJoyDownCount<br /> ; easter egg phase 2: if the first phase completed successfully<br /> ; the left press counter is allowed to increment.<br /> CMP #53<br /> BNE SkipCounting2ndEasterEggPhase<br /> INC EasterEggJoyLeftCount<br /> SkipCounting2ndEasterEggPhase<br /> JMP MenuTextUpdate<br /> MenuSelectTwoPlayers<br /> LDA #$01<br /> STA PlayerCount<br /> BNE SkipCounting1stEasterEggPhase<br /> <br /> MenuSelectOnePlayer ; (the joystick was pressed down in the title menu)<br /> LDA #$00<br /> STA PlayerCount<br /> ; easter egg phase 1: if the second phase isn't in progress the<br /> ; down press counter is allowed to increment.<br /> LDA EasterEggJoyLeftCount<br /> BNE SkipCounting1stEasterEggPhase<br /> INC EasterEggJoyDownCount<br /> JMP MenuTextUpdate<br /> SkipCounting1stEasterEggPhase<br /> LDA #$00<br /> STA EasterEggJoyDownCount<br /> STA EasterEggJoyLeftCount<br /> BEQ MenuTextUpdate<br /> MenuHandlingAndUpdate<br /> LDA SWCHB<br /> AND #$02<br /> BEQ MenuSelectPressed<br /> LDA #$00<br /> STA MenuSelectDebounceTimer<br /> BPL SkipMenuRedraw<br /> MenuSelectPressed<br /> DEC MenuSelectDebounceTimer<br /> BPL SkipMenuRedraw<br /> JSR SetMenuSelectDebounceTimerTo20<br /> JSR ChangeDifficulty<br /> MenuTextUpdate<br /> JSR SetMenuResetTimer<br /> JSR SetupGameOptionsText<br /> SkipMenuRedraw<br /> <br /> ; implement a ~18 minute timer that just resets the stack and demo mode.<br /> ; I'm thinking they had a slow stack leak during development.<br /> LDA TimerHi<br /> CMP MenuResetTimer<br /> BNE ContinueMenuLoop<br /> JMP ResetStackAndStartGameInDemoMode<br /> ContinueMenuLoop<br /> LDA TimerLo<br /> MenuWaitForNextFrame<br /> CMP TimerLo<br /> BEQ MenuWaitForNextFrame<br /> JMP GameOptionsMenuLoop<br /> <br /> SetMenuJoyDebounceTimerTo20<br /> LDA #$20<br /> STA MenuJoyDebounceTimer<br /> RTS<br /> <br /> SetMenuSelectDebounceTimerTo20<br /> LDA #$20<br /> STA MenuSelectDebounceTimer<br /> RTS<br /> <br /> SetMenuResetTimer<br /> LDX TimerHi<br /> DEX<br /> STX MenuResetTimer<br /> RTS<br /> <br /> ChangeDifficulty<br /> INC Difficulty<br /> LDA Difficulty<br /> CMP #$04<br /> BMI FinalizeDifficultyChange<br /> LDA #$00<br /> STA Difficulty<br /> <br /> LDA PlayerCount<br /> EOR #$01<br /> STA PlayerCount<br /> FinalizeDifficultyChange<br /> JMP ClearScores<br /> SetupGameOptionsText<br /> LDX PlayerCount<br /> LDA HideOrShowTwoPlayerText,X<br /> STA MenuTwoPlayerTextXCoord ; set X coordinate of upper DL object = 160 or 48, to hide or display &quot;two player&quot;<br /> LDA HideOrShowOnePlayerText,X<br /> STA MenuOnePlayerTextXCoord ; set X coordinate of lower DL object = 48 or 160, to display of hide &quot;one player&quot;<br /> LDA Difficulty<br /> TAX<br /> ASL<br /> ASL<br /> ASL<br /> ASL ; A = Difficulty * 16<br /> CLC<br /> ADC #&lt;DifficultyText<br /> STA Temp5E<br /> LDA #$00<br /> ADC ##&gt;DifficultyText<br /> STA Temp5F ; ($5E) = current difficulty name<br /> <br /> LDY #$0F ; copy over 16 characters<br /> CopyDifficultyNameLoop<br /> LDA (Temp5E),Y<br /> STA DifficultyLevelCharBuffer,Y<br /> DEY<br /> BPL CopyDifficultyNameLoop<br /> <br /> LDA DifficultyTextXCoordinate,X ; set X coordinate of mid DL object (difficulty level text)<br /> STA MenuDifficultyTextXCoord ; differently, depending on the difficulty level.<br /> <br /> LDA EasterEggJoyLeftCount<br /> <br /> ; easter egg phase 3: check if phase 2 (left 41 times) is done. <br /> ; if so, set us up the egg!<br /> CMP #41<br /> BNE ExitMenuEasterEggCheck<br /> LDA TimerLo<br /> AND #$03<br /> CMP #$03<br /> BNE ExitMenuEasterEggCheck<br /> DEC EasterEggXCoordinate1<br /> DEC EasterEggXCoordinate2<br /> DEC EasterEggXCoordinate3<br /> LDA #$01<br /> STA DisplayEasterEggFlag<br /> ExitMenuEasterEggCheck<br /> RTS<br /> <br /> CheckMenuFireButtonAndStartGame<br /> LDA P0CurrentFire<br /> BPL ResetStackAndStartGameInDemoMode_Short<br /> LDA PrevResetState<br /> BNE MenuUpdateResetButtonState<br /> LDA SWCHB<br /> LSR<br /> BCS ExitMenuEasterEggCheck<br /> LDA #$01<br /> STA PrevResetState<br /> ResetStackAndStartGameInDemoMode_Short<br /> JMP RestartGameFromMenu<br /> MenuUpdateResetButtonState<br /> JMP UpdatePrevResetStateFlag<br /> <br /> HandleDemoModeJoyInput<br /> LDA P0CurrentFire<br /> CheckForAttractModeExit<br /> BPL ResetStackAndStartGameInDemoMode_Short<br /> LDA SWCHA<br /> CMP #$F0<br /> BCS CheckResetSwitch<br /> JMP ResetStackAndDisplayGameOptions<br /> <br /> <br /> ;------------------------------------------------------------------------------<br /> ; HandleConsoleSwitches<br /> ; Checks the state of Pause, Reset, and Select console switches and acts accordingly.<br /> ; This routine is typically called during active gameplay.<br /> ;------------------------------------------------------------------------------<br /> HandleConsoleSwitches<br /> LDA DemoMode<br /> BNE HandleDemoModeJoyInput ; If in demo mode, only check for joystick/fire to exit demo<br /> <br /> ; Fall-through if not in Demo Mode<br /> CheckPauseSwitch<br /> LDA PrevPausedState ; Get previous state of Pause switch (was it already pressed?)<br /> BNE UpdatePauseSwitchState ; If it was pressed, go update its current debounced state<br /> <br /> ; Pause switch was not previously pressed, check if it's pressed now<br /> LDA SWCHB ; Read console switch register B<br /> AND #SWCHB_Pause_Mask ; Isolate Pause switch bit (Bit 3)<br /> BNE CheckResetSwitch ; If Pause bit is high (not pressed), check Reset switch<br /> <br /> ; Pause switch is now pressed (bit 3 is low)<br /> LDA #$01 ; Mark that Pause has been latched as pressed<br /> STA PrevPausedState<br /> BNE EnterPauseSequence ; Branch always (Pause switch was just pressed, so enter pause logic)<br /> <br /> UpdatePauseSwitchState ; Pause switch was previously latched as pressed<br /> LDA SWCHB<br /> AND #SWCHB_Pause_Mask ; Isolate Pause bit<br /> EOR #SWCHB_Pause_Mask ; Invert Pause bit (so $00=released this cycle, $08=still held)<br /> STA PrevPausedState ; Update debounced state<br /> <br /> CheckResetSwitch<br /> LDA PrevResetState ; Get previous state of Reset switch<br /> BNE CheckResetSwitchAndCheckSelect ; If it was pressed, go update its current debounced state<br /> <br /> ; Reset switch was not previously pressed, check if it's pressed now<br /> LDA SWCHB<br /> LSR ; Shift Reset bit (Bit 0) into Carry<br /> BCS CheckSelectSwitch_Direct ; If Carry is set (Reset bit was high, not pressed), check Select<br /> <br /> ; Reset switch is now pressed (Bit 0 was low)<br /> LDA #$01 ; Mark that Reset has been latched as pressed<br /> STA PrevResetState<br /> BNE ResetStackAndStartGameInDemoMode_Short ; Branch always (Reset was just pressed)<br /> <br /> CheckResetSwitchAndCheckSelect<br /> JSR UpdatePrevResetStateFlag ; Update PrevResetState based on current SWCHB_Reset_Mask state<br /> ; Falls through to CheckSelectSwitch_Direct<br /> CheckSelectSwitch_Direct<br /> LDA PrevSelectState ; Get previous state of Select switch<br /> BNE UpdateSelectSwitchStateAndFinish ; If it was pressed, go update its current debounced state<br /> <br /> ; Select switch was not previously pressed, check if it's pressed now<br /> LDA SWCHB<br /> AND #SWCHB_Select_Mask ; Isolate Select switch bit (Bit 1)<br /> BNE FinishSwitchHandling ; If Select bit is high (not pressed), we're done<br /> <br /> ; Select switch is now pressed (Bit 1 is low)<br /> LDA #$01 ; Mark that Select has been latched as pressed<br /> STA PrevSelectState<br /> JMP ResetStackAndDisplayGameOptions ; Go to game options screen<br /> <br /> UpdateSelectSwitchStateAndFinish<br /> LDA SWCHB<br /> AND #SWCHB_Select_Mask<br /> EOR #SWCHB_Select_Mask ; Invert Select bit<br /> STA PrevSelectState ; Update debounced state<br /> ; Falls through to FinishSwitchHandling<br /> FinishSwitchHandling<br /> RTS<br /> <br /> ;------------------------------------------------------------------------------<br /> ; EnterPauseSequence / PauseGameAndWaitForInput<br /> ; Handles the game pause state. Waits for Pause to be released or other inputs.<br /> ; Mutes audio, saves timers, and monitors switches.<br /> ;------------------------------------------------------------------------------<br /> EnterPauseSequence<br /> LDA TimerHi<br /> PHA ; Save current game timers<br /> LDA TimerLo<br /> PHA<br /> TXA ; Save X register (usually current player index)<br /> PHA<br /> <br /> LDX #$01<br /> STX DemoMode ; Temporarily set DemoMode to 1 (likely to alter some behaviors)<br /> DEX ; X is now 0<br /> STX AUDV0 ; Mute audio channel 0<br /> STX AUDV1 ; Mute audio channel 1<br /> <br /> LDX TimerHi ; Use current TimerHi for a short timeout/loop mechanism<br /> DEX ; X = TimerHi - 1<br /> PauseLoop<br /> JSR CheckResetSwitch ; Allow Reset/Select to break out of pause. This will RTS if no action.<br /> <br /> CPX TimerHi ; Compare saved TimerHi-1 with current TimerHi<br /> BNE PauseLoop_CheckPlayerInput ; If TimerHi has incremented, skip DMA off<br /> LDA #CTRL_DMA_OFF<br /> STA CTRL<br /> <br /> PauseLoop_CheckPlayerInput<br /> LDA SWCHA ; Read Player 1 Joystick/Difficulty Switches<br /> CMP #$F0 ; Check if all P1 joystick directions are high (neutral)<br /> BCS PauseLoop_CheckP1Fire ; If neutral or invalid, check P1 fire<br /> JSR DisableDMAOnTimeout ; If joystick active &amp; timeout, potentially change CTRL<br /> <br /> PauseLoop_CheckP1Fire<br /> LDA P0CurrentFire ; Check Player 1 fire button state<br /> BMI PauseLoop_ProcessPauseButtonState ; If fire pressed, proceed<br /> JSR DisableDMAOnTimeout ; If fire not pressed &amp; timeout, potentially change CTRL<br /> <br /> PauseLoop_ProcessPauseButtonState<br /> LDA PrevPausedState ; Get latched/debounced state of Pause<br /> BEQ PauseLoop_IfPreviouslyReleasedCheckCurrent ; If PrevPausedState is 0 (was seen as released)<br /> <br /> ; PrevPausedState is non-zero (was latched as pressed, or seen as still held)<br /> LDA SWCHB ; Read current physical switch state<br /> AND #SWCHB_Pause_Mask ; Isolate Pause bit<br /> EOR #SWCHB_Pause_Mask ; Invert Pause bit (result $00 if physically RELEASED now, $08 if HELD)<br /> STA PrevPausedState ; Update internal debounced state<br /> BPL PauseLoop ; If $00 (just released) or $08 (still held), continue pause loop<br /> <br /> PauseLoop_IfPreviouslyReleasedCheckCurrent<br /> LDA SWCHB<br /> AND #SWCHB_Pause_Mask ; Isolate current physical Pause bit<br /> BNE PauseLoop ; If Pause button is high (physically RELEASED), continue pause loop.<br /> ; Loop until Pause is physically PRESSED AGAIN.<br /> <br /> ; Fall-through: Pause button is now physically PRESSED again (value is $00 after AND)<br /> ; This is the condition to EXIT the pause state.<br /> <br /> ResumeGameFromPause<br /> PLA<br /> TAX ; Restore X register<br /> PLA<br /> STA TimerLo ; Restore game timers<br /> PLA<br /> STA TimerHi<br /> <br /> LDA #$01 ; Set PrevPausedState to 1. This indicates the pause cycle is complete<br /> ; and the pause button is considered &quot;up&quot; for the next check in HandleConsoleSwitches.<br /> STA PrevPausedState<br /> LSR ; A = 0 (from $01 LSR)<br /> STA DemoMode ; Clear the temporary DemoMode set during pause<br /> LDA #CTRL_DMA_ON_160AB<br /> STA CTRL<br /> RTS<br /> <br /> SetupTitleScrText<br /> ; The Titlescreen border in Joust has a bunch of slanty angle characters<br /> ; that scroll. The following code just sets up the initial slanty char<br /> ; indexes in each string.<br /> <br /> SetupTitleColumns<br /> LDA #$30<br /> STA TitleBorderStr0<br /> LDA #$38<br /> STA TitleBorderStr1<br /> LDA #$36<br /> STA TitleBorderStr2<br /> LDA #$3E<br /> STA TitleBorderStr3<br /> <br /> LDX #$1E<br /> SetupTitleRowLoop<br /> LDA #$30<br /> STA TitleBorderStr4,X<br /> LDA #$34<br /> STA TitleBorderStr5,X<br /> DEX<br /> DEX<br /> BPL SetupTitleRowLoop<br /> LDX #$1C<br /> STX TitleColorIndex<br /> LDA TitleColors,X<br /> STA $0191<br /> LDA DelayBetweenTitleColorChanges,X<br /> STA TitleColorChangeCountdown<br /> <br /> LDX #$1C<br /> CopyrghtToBuffer<br /> LDA StringCopyright,X<br /> STA TitleCopyrightCharBuffer,X<br /> DEX<br /> BPL CopyrghtToBuffer<br /> <br /> ; Copy character set values that make up most of the JOUST logo.<br /> ; The very top and bottom of the logo aren't part of this.<br /> LDX #$E7<br /> CopyMiddleTitleLogoDataToRamLoop<br /> LDA MiddleTitleLogoDataCharsLUT,X<br /> STA TitleScreenLogoCharBuffer,X<br /> DEX<br /> BNE CopyMiddleTitleLogoDataToRamLoop<br /> <br /> SetDemoPalette<br /> LDX #$0B<br /> STX EggsPresentCount<br /> LDA PaletteFadeInRed,X<br /> STA $01A5<br /> STA P7C1<br /> LDA PaletteFadeInYellow,X<br /> STA $01A6<br /> STA P7C2<br /> LDA PaletteFadeInBrown,X<br /> STA $01A7<br /> STA P7C3<br /> LDA TitleScreenColorChangeDelayLUT,X<br /> STA EnemyBirdCount<br /> RTS<br /> <br /> AnimateTitleScreenFrame<br /> DEC TitleColorChangeCountdown<br /> BPL DoTitleFrameAnimation<br /> DEC TitleColorIndex<br /> BPL WrapTitleColorIndex<br /> LDA #$1C<br /> STA TitleColorIndex<br /> WrapTitleColorIndex<br /> LDX TitleColorIndex<br /> LDA TitleColors,X<br /> STA $0191<br /> LDA DelayBetweenTitleColorChanges,X<br /> STA TitleColorChangeCountdown<br /> DoTitleFrameAnimation<br /> INC TitleBorderStr0 ; left-most char in left column<br /> LDA TitleBorderStr0<br /> CMP #$38<br /> BCC SkipCharResetStr0<br /> LDA #$30<br /> STA TitleBorderStr0<br /> SkipCharResetStr0<br /> INC TitleBorderStr2 ; left-most char in right column<br /> LDA TitleBorderStr2<br /> CMP #$38<br /> BCC SkipCharResetStr2<br /> LDA #$30<br /> STA TitleBorderStr2<br /> SkipCharResetStr2<br /> INC TitleBorderStr1 ; right-most char in left column<br /> LDA TitleBorderStr1<br /> CMP #$40<br /> BCC SkipCharResetStr1<br /> LDA #$38<br /> STA TitleBorderStr1<br /> SkipCharResetStr1<br /> INC TitleBorderStr3 ; right-most char in right column<br /> LDA TitleBorderStr3<br /> CMP #$40<br /> BCC SkipCharResetStr3<br /> LDA #$38<br /> STA TitleBorderStr3<br /> SkipCharResetStr3<br /> LDX #$1F<br /> AnimateTitleFrameColumnsLoop<br /> INC TitleBorderStr4,X ; top row and bottom row of 32 characters<br /> LDA TitleBorderStr4,X<br /> CMP #$38<br /> BCC SkipCharResetStr4plus<br /> LDA #$30<br /> STA TitleBorderStr4,X<br /> SkipCharResetStr4plus<br /> DEX<br /> BPL AnimateTitleFrameColumnsLoop<br /> <br /> CycleTitleScreenPaletteAndCounters<br /> LDA ColorChangeTimer<br /> BMI CycleColorExit<br /> DEC ColorChangeTimer<br /> BPL CycleColorExit<br /> DEC ColorCycleIndex<br /> BPL CycleIndexStillPositive<br /> LDA #$0B<br /> STA ColorCycleIndex<br /> CycleIndexStillPositive<br /> LDX ColorCycleIndex<br /> LDA PaletteFadeInRed,X<br /> STA $01A5<br /> STA P7C1<br /> LDA PaletteFadeInYellow,X<br /> STA $01A6<br /> STA P7C2<br /> LDA PaletteFadeInBrown,X<br /> STA $01A7<br /> STA P7C3<br /> LDA TitleScreenColorChangeDelayLUT,X<br /> STA ColorChangeTimer<br /> CycleColorExit<br /> RTS<br /> <br /> UpdatePrevResetStateFlag<br /> LDA SWCHB<br /> AND #$01<br /> EOR #$01<br /> STA PrevResetState<br /> RTS<br /> <br /> DisableDMAOnTimeout<br /> LDA #$40<br /> STA CTRL<br /> LDX TimerHi<br /> DEX<br /> RTS<br /> <br /> HideOrShowTwoPlayerText<br /> .byte 160 ; off-screen<br /> HideOrShowOnePlayerText<br /> .byte 48 ; on-screen<br /> .byte 160 ; off-screen<br /> <br /> ; 000000000000000011111111111111112222222222222222<br /> ; 0123456789ABCDEF0123456789ABCDEF0123456789ABCDEF<br /> ; _0123456789@0123456789@ABCDEGHIJLMNPRSTUVWXYZK() **then the title border and logo chars<br /> <br /> DifficultyTextXCoordinate<br /> .byte $00<br /> .byte $20<br /> .byte $45<br /> .byte $62<br /> <br /> DifficultyText<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $18 ; 'B'<br /> .byte $1B ; 'E'<br /> .byte $1C ; 'G'<br /> .byte $1E ; 'I'<br /> .byte $22 ; 'N'<br /> .byte $22 ; 'N'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $00<br /> .byte $00<br /> .byte $1E ; 'I'<br /> .byte $22 ; 'N'<br /> .byte $26 ; 'T'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $21 ; 'M'<br /> .byte $1B ; 'E'<br /> .byte $1A ; 'D'<br /> .byte $1E ; 'I'<br /> .byte $17 ; 'A'<br /> .byte $26 ; 'T'<br /> .byte $1B ; 'E'<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $17 ; 'A'<br /> .byte $0C ; '0'<br /> .byte $28 ; 'V'<br /> .byte $17 ; 'A'<br /> .byte $22 ; 'N'<br /> .byte $19 ; 'C'<br /> .byte $1B ; 'E'<br /> .byte $1A ; 'D'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $1B ; 'E'<br /> .byte $2A ; 'X'<br /> .byte $23 ; 'P'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $26 ; 'T'<br /> .byte $00<br /> .byte $00<br /> <br /> StringOnePlayer<br /> .byte $00 ; \ These 3 bytes are also <br /> .byte $00 ; &gt; part of the &quot;EXPERT&quot; string<br /> .byte $00 ; / post-padding.<br /> <br /> .byte $0C ; '0'<br /> .byte $22 ; 'N'<br /> .byte $1B ; 'E'<br /> .byte $00 ; <br /> .byte $23 ; 'P'<br /> .byte $20 ; 'L'<br /> .byte $17 ; 'A'<br /> .byte $2B ; 'Y'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> <br /> StringTwoPlayer<br /> .byte $00<br /> .byte $00<br /> .byte $00<br /> .byte $26 ; 'T'<br /> .byte $29 ; 'W'<br /> .byte $0C ; '0'<br /> .byte $00<br /> .byte $23 ; 'P'<br /> .byte $20 ; 'L'<br /> .byte $17 ; 'A'<br /> .byte $2B ; 'Y'<br /> .byte $1B ; 'E'<br /> .byte $24 ; 'R'<br /> .byte $00<br /> .byte $00<br /> <br /> MiddleTitleLogoDataCharsLUT<br /> .byte $00, $59, $5A, $5B, $5C, $5D, $5E, $41<br /> .byte $40, $40, $5F, $60, $61, $62, $63, $64<br /> .byte $65, $66, $43, $40, $67, $68, $40, $69<br /> .byte $40, $6A, $6B, $6C, $6D, $6E, $6F, $70<br /> .byte $71, $72, $73, $74, $40, $75, $76, $40<br /> .byte $77, $78, $79, $40, $7A, $7B, $40, $7C<br /> .byte $7D, $7E, $46, $43, $40, $7F, $40, $80<br /> .byte $81, $82, $83, $43, $84, $85, $86, $87<br /> .byte $88, $89, $8A, $8B, $8C, $8D, $40, $42<br /> .byte $8E, $8F, $90, $91, $92, $40, $93, $43<br /> .byte $40, $44, $95, $96, $46, $43, $97, $98<br /> .byte $99, $40, $9A, $9B, $9C, $9D, $46, $9E<br /> .byte $9F, $A0, $A1, $A2, $40, $42, $45, $A3<br /> .byte $A4, $A5, $A6, $40, $A7, $45, $40, $44<br /> .byte $A8, $A9, $AA, $AB, $AC, $AD, $AE, $AF<br /> .byte $B0, $40, $B1, $44, $B2, $40, $B3, $B4<br /> .byte $B5, $B6, $44, $44, $40, $42, $45, $42<br /> .byte $46, $44, $B7, $40, $B8, $45, $40, $B9<br /> .byte $BA, $BB, $BC, $40, $BD, $BE, $BF, $C0<br /> .byte $C1, $C2, $C3, $C4, $41, $40, $C5, $C6<br /> .byte $C7, $C8, $C9, $40, $CA, $CB, $CC, $40<br /> .byte $42, $43, $40, $CD, $44, $CE, $40, $CF<br /> .byte $D0, $40, $D1, $D2, $D3, $41, $40, $D4<br /> .byte $D5, $D6, $D7, $D8, $D9, $40, $DA, $41<br /> .byte $40, $DB, $44, $44, $DC, $47, $48, $40<br /> .byte $40, $40, $40, $49, $4A, $4B, $41, $4C<br /> .byte $4D, $4E, $4F, $50, $51, $40, $40, $40<br /> .byte $41, $40, $40, $52, $53, $40, $40, $40<br /> .byte $54, $55, $41, $40, $56, $57, $58, $40<br /> <br /> DelayBetweenTitleColorChanges<br /> .byte $3C, $03, $03, $3C, $03, $03, $03<br /> .byte $03, $03, $3C, $03, $03, $03, $03<br /> .byte $03, $03, $3C, $03, $03, $03, $3C<br /> .byte $03, $03, $03, $03, $03, $03, $03<br /> .byte $03<br /> <br /> TitleColors<br /> .byte $24, $15, $06, $F7, $D6, $C5, $B5<br /> .byte $A5, $95, $85, $76, $67, $58, $49<br /> .byte $3A, $2B, $1D, $1C, $1B, $0C, $0D<br /> .byte $0C, $0B, $1A, $19, $28, $27, $26 <br /> .byte $25<br /> <br /> PaletteFadeInRed<br /> .byte $33 <br /> .byte $33 <br /> .byte $33 <br /> .byte $33 <br /> .byte $33 <br /> .byte $33 <br /> .byte $33 <br /> .byte $32 <br /> .byte $22 <br /> .byte $11 <br /> .byte $10 <br /> .byte $00 <br /> <br /> PaletteFadeInYellow<br /> .byte $1F <br /> .byte $1E <br /> .byte $1D <br /> .byte $1C <br /> .byte $1B <br /> .byte $1A <br /> .byte $18 <br /> .byte $16 <br /> .byte $22 <br /> .byte $11 <br /> .byte $10 <br /> .byte $00 <br /> <br /> PaletteFadeInBrown<br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $10 <br /> .byte $00 <br /> <br /> TitleScreenColorChangeDelayLUT<br /> .byte $FF <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> <br /> MuteAudio<br /> LDA #$FF<br /> STA SFXChannel0Index<br /> STA SFXChannel1Index<br /> LDA #$00<br /> STA AUDV0<br /> STA AUDV1<br /> RTS<br /> <br /> SilenceSFXIfPlaying<br /> ; Check if this particular sound effect is playing on channel 0<br /> CMP SFXChannel0Index<br /> BNE SilenceSFXIfPlayingChannel1<br /> ; yes? then silence it and mark the channel index as available<br /> LDA #$00<br /> STA AUDV0<br /> LDA #$FF<br /> STA SFXChannel0Index<br /> RTS<br /> <br /> SilenceSFXIfPlayingChannel1<br /> ; Check if this particular sound effect is playing on channel 1<br /> SEC<br /> SBC SFXChannel1Index<br /> BNE EarlyReturn1<br /> ; yes? then silence it and mark the channel index as available<br /> STA AUDV1<br /> LDA #$FF<br /> STA SFXChannel1Index<br /> EarlyReturn1<br /> RTS<br /> <br /> ScheduleSFX<br /> STA Temp6ASFXIndex<br /> LDA GameActiveFlag<br /> BNE EarlyReturn1<br /> LDA DemoMode<br /> BNE EarlyReturn1<br /> TYA<br /> PHA<br /> TXA<br /> PHA<br /> LDY #$01<br /> LDX Temp6ASFXIndex<br /> FindFreeSFXChannelLoop<br /> LDA.w SFXChannel0Index,Y<br /> CMP #$FF<br /> BEQ ScheduleSFXChannelY<br /> DEY<br /> BPL FindFreeSFXChannelLoop<br /> ; If we're here there was no free sound effect channel. Instead we'll<br /> ; look for a sound effect in the same &quot;interrupt group&quot; and interrupt<br /> ; it.<br /> LDA SFXChannel1Index<br /> AND #$7F<br /> TAY<br /> LDA SFXInterruptGroups,X<br /> CMP SFXInterruptGroups,Y<br /> LDY #$01<br /> BCS ScheduleSFXChannelY<br /> LDA SFXChannel0Index<br /> AND #$7F<br /> TAY<br /> LDA SFXInterruptGroups,X<br /> CMP SFXInterruptGroups,Y<br /> BCC SkipScheduleSFX<br /> LDY #$00<br /> ScheduleSFXChannelY<br /> TXA<br /> ORA #$80<br /> STA.w SFXChannel0Index,Y<br /> SkipScheduleSFX<br /> PLA<br /> TAX<br /> PLA<br /> TAY<br /> EarlyReturn2<br /> RTS<br /> <br /> ServiceSFX<br /> LDA DemoMode<br /> BNE EarlyReturn2<br /> LDX #$01<br /> ServiceSFXLoop<br /> LDY SFXChannel0Index,X<br /> INY ; FF is the voice not-in-use flag. FF+1=0<br /> BNE ServiceSFXDoVoice<br /> GoServiceSFXVoiceDone<br /> JMP ServiceSFXVoiceDone<br /> ServiceSFXDoVoice<br /> DEY ; undo the previous INY<br /> BPL PlaySoundSlice<br /> ; If the SFX index top bit it set, the sound was just scheduled.<br /> ; We need to do some init.<br /> TYA<br /> AND #$7F ; clear the &quot;just scheduled&quot; bit<br /> STA SFXChannel0Index,X<br /> TAY<br /> LDA #$01<br /> STA $2100,X<br /> LDA #$FF<br /> STA $2102,X<br /> STA $2104,X<br /> STA $2106,X<br /> PlaySoundSlice<br /> LDA SFX_FreqAndControlDataPtrLoLUT,Y<br /> STA $5C<br /> LDA SFX_FreqAndControlDataPtrHiLUT,Y<br /> STA $5D<br /> DEC $2100,X<br /> BNE GoServiceSFXVoiceDone<br /> LDA SFX_SampleDurationLUT,Y<br /> STA $2100,X<br /> LDY $2102,X<br /> INC $2104,X<br /> INC $2106,X<br /> INY<br /> LDA ($5C),Y<br /> CMP #$FF ; sound EOD marker<br /> BNE SFXIsStillPlaying<br /> STA SFXChannel0Index,X<br /> LDA #$00<br /> STA AUDV0,X<br /> BEQ GoServiceSFXVoiceDone<br /> SFXIsStillPlaying<br /> CMP #$FE<br /> BEQ SFX_HandleResetAndContinueCommand<br /> CMP #$FD<br /> BNE SFX_ProcessStandardPitchData<br /> INY<br /> LDA ($5C),Y<br /> STA SFXChannel0Index,X<br /> TAY<br /> LDA SFX_FreqAndControlDataPtrLoLUT,Y<br /> STA $5C<br /> LDA SFX_FreqAndControlDataPtrHiLUT,Y<br /> STA $5D<br /> SFX_HandleResetAndContinueCommand<br /> LDY #$00<br /> TYA<br /> STA $2104,X<br /> STA $2106,X<br /> LDA ($5C),Y<br /> SFX_ProcessStandardPitchData<br /> BPL SFX_ProcessPitchDataFlags<br /> INY<br /> LDA ($5C),Y<br /> STA $2100,X<br /> DEY<br /> LDA ($5C),Y<br /> INY<br /> JMP SFX_SetChannelPitch<br /> SFX_ProcessPitchDataFlags<br /> ASL<br /> BPL SFX_ProcessPitchNoiseFlag<br /> LSR<br /> AND #$BF<br /> STA $2100,X<br /> TYA<br /> STA $2102,X<br /> DEC $2106,X<br /> DEC $2104,X<br /> LDA #$00<br /> STA AUDV0,X<br /> BEQ ServiceSFXVoiceDone<br /> SFX_ProcessPitchNoiseFlag<br /> LSR<br /> SFX_SetChannelPitch<br /> STA AUDF0,X<br /> TYA<br /> STA $2102,X<br /> LDY SFXChannel0Index,X<br /> LDA SFX_VolumeDataPtrLoLUT,Y<br /> STA $5C<br /> LDA SFX_VolumeDataPtrHiLUT,Y<br /> STA $5D<br /> LDY $2106,X<br /> LDA ($5C),Y<br /> BPL SFX_SetChannelVolume<br /> DEY<br /> SFX_SetChannelVolume<br /> STA AUDV0,X<br /> TYA<br /> STA $2106,X<br /> LDY SFXChannel0Index,X<br /> LDA SFX_DistortionDataPtrLoLUT,Y<br /> STA $5C<br /> LDA SFX_DistortionDataPtrHiLUT,Y<br /> STA $5D<br /> LDY $2104,X<br /> LDA ($5C),Y<br /> BPL SFX_SetChannelDistortion<br /> DEY<br /> SFX_SetChannelDistortion<br /> STA AUDC0,X<br /> TYA<br /> STA $2104,X<br /> ServiceSFXVoiceDone<br /> DEX<br /> BMI ExitSFXServiceLoop<br /> JMP ServiceSFXLoop<br /> ExitSFXServiceLoop<br /> RTS<br /> <br /> SFX_FreqAndControlDataPtrLoLUT<br /> .byte &lt;SFX_00_CoinDropAUDF<br /> .byte &lt;SFX_01_FreeBirdAUDF<br /> .byte &lt;SFX_02_PickupEggAUDF<br /> .byte &lt;SFX_03_GameStartAUDF<br /> .byte &lt;SFX_04_BirdPlatformBounceAUDF<br /> .byte &lt;SFX_05_BirdBirdBounceAUDF<br /> .byte &lt;SFX_06_PlayerFootstepAUDF<br /> .byte &lt;SFX_07_PterryDefeatedAUDF<br /> .byte &lt;SFX_08_PterryChargingAUDF<br /> .byte &lt;SFX_09_PlayerBornAUDF<br /> .byte &lt;SFX_0A_InvulnerableAUDF<br /> .byte &lt;SFX_0B_EggWigglingAUDF<br /> .byte &lt;SFX_0C_EnemyBirdBornAUDF<br /> .byte &lt;SFX_0D_TrollJumpingAUDF<br /> .byte &lt;SFX_0E_PlatformDissolveAUDF<br /> .byte &lt;SFX_0F_SkidAUDF<br /> .byte &lt;SFX_10_BirdExplosionAUDF<br /> .byte &lt;SFX_11_CheepCheepAUDF<br /> .byte &lt;SFX_12_PlayerBirdFlapAUDF<br /> <br /> SFX_VolumeDataPtrLoLUT<br /> .byte &lt;SFX_00_CoinDropAUDV<br /> .byte &lt;SFX_01_FreeBirdAUDV<br /> .byte &lt;SFX_02_PickupEggAUDV<br /> .byte &lt;SFX_03_GameStartAUDV<br /> .byte &lt;SFX_04_BirdPlatformBounceAUDV<br /> .byte &lt;SFX_05_BirdBirdBounceAUDV<br /> .byte &lt;SFX_06_PlayerFootstepAUDV<br /> .byte &lt;SFX_07_PterryDefeatedAUDV<br /> .byte &lt;SFX_08_PterryChargingAUDV<br /> .byte &lt;SFX_09_PlayerBornAUDV<br /> .byte &lt;SFX_0A_InvulnerableAUDV<br /> .byte &lt;SFX_0B_EggWigglingAUDV<br /> .byte &lt;SFX_0C_EnemyBirdBornAUDV<br /> .byte &lt;SFX_0D_TrollJumpingAUDV<br /> .byte &lt;SFX_0E_PlatformDissolveAUDV<br /> .byte &lt;SFX_0F_SkidAUDV<br /> .byte &lt;SFX_10_BirdExplosionAUDV<br /> .byte &lt;SFX_11_CheepCheepAUDV<br /> .byte &lt;SFX_12_PlayerBirdFlapAUDV<br /> <br /> SFX_DistortionDataPtrLoLUT<br /> .byte &lt;SFX_00_CoinDropAUDC<br /> .byte &lt;SFX_01_FreeBirdAUDC<br /> .byte &lt;SFX_02_PickupEggAUDC<br /> .byte &lt;SFX_03_GameStartAUDC<br /> .byte &lt;SFX_04_BirdPlatformBounceAUDC<br /> .byte &lt;SFX_05_BirdBirdBounceAUDC<br /> .byte &lt;SFX_06_PlayerFootstepAUDC<br /> .byte &lt;SFX_07_PterryDefeatedAUDC<br /> .byte &lt;SFX_08_PterryChargingAUDC<br /> .byte &lt;SFX_09_PlayerBornAUDC<br /> .byte &lt;SFX_0A_InvulnerableAUDC<br /> .byte &lt;SFX_0B_EggWigglingAUDC<br /> .byte &lt;SFX_0C_EnemyBirdBornAUDC<br /> .byte &lt;SFX_0D_TrollJumpingAUDC<br /> .byte &lt;SFX_0E_PlatformDissolveAUDC<br /> .byte &lt;SFX_0F_SkidAUDC<br /> .byte &lt;SFX_10_BirdExplosionAUDC<br /> .byte &lt;SFX_11_CheepCheepAUDC<br /> .byte &lt;SFX_12_PlayerBirdFlapAUDC<br /> <br /> SFX_DistortionDataPtrHiLUT<br /> .byte &gt;SFX_00_CoinDropAUDC<br /> .byte &gt;SFX_01_FreeBirdAUDC<br /> .byte &gt;SFX_02_PickupEggAUDC<br /> .byte &gt;SFX_03_GameStartAUDC<br /> .byte &gt;SFX_04_BirdPlatformBounceAUDC<br /> .byte &gt;SFX_05_BirdBirdBounceAUDC<br /> .byte &gt;SFX_06_PlayerFootstepAUDC<br /> .byte &gt;SFX_07_PterryDefeatedAUDC<br /> .byte &gt;SFX_08_PterryChargingAUDC<br /> .byte &gt;SFX_09_PlayerBornAUDC<br /> .byte &gt;SFX_0A_InvulnerableAUDC<br /> .byte &gt;SFX_0B_EggWigglingAUDC<br /> .byte &gt;SFX_0C_EnemyBirdBornAUDC<br /> .byte &gt;SFX_0D_TrollJumpingAUDC<br /> .byte &gt;SFX_0E_PlatformDissolveAUDC<br /> .byte &gt;SFX_0F_SkidAUDC<br /> .byte &gt;SFX_10_BirdExplosionAUDC<br /> .byte &gt;SFX_11_CheepCheepAUDC<br /> .byte &gt;SFX_12_PlayerBirdFlapAUDC<br /> <br /> SFX_VolumeDataPtrHiLUT<br /> .byte &gt;SFX_00_CoinDropAUDV<br /> .byte &gt;SFX_01_FreeBirdAUDV<br /> .byte &gt;SFX_02_PickupEggAUDV<br /> .byte &gt;SFX_03_GameStartAUDV<br /> .byte &gt;SFX_04_BirdPlatformBounceAUDV<br /> .byte &gt;SFX_05_BirdBirdBounceAUDV<br /> .byte &gt;SFX_06_PlayerFootstepAUDV<br /> .byte &gt;SFX_07_PterryDefeatedAUDV<br /> .byte &gt;SFX_08_PterryChargingAUDV<br /> .byte &gt;SFX_09_PlayerBornAUDV<br /> .byte &gt;SFX_0A_InvulnerableAUDV<br /> .byte &gt;SFX_0B_EggWigglingAUDV<br /> .byte &gt;SFX_0C_EnemyBirdBornAUDV<br /> .byte &gt;SFX_0D_TrollJumpingAUDV<br /> .byte &gt;SFX_0E_PlatformDissolveAUDV<br /> .byte &gt;SFX_0F_SkidAUDV<br /> .byte &gt;SFX_10_BirdExplosionAUDV<br /> .byte &gt;SFX_11_CheepCheepAUDV<br /> .byte &gt;SFX_12_PlayerBirdFlapAUDV<br /> <br /> SFX_FreqAndControlDataPtrHiLUT<br /> .byte &gt;SFX_00_CoinDropAUDF<br /> .byte &gt;SFX_01_FreeBirdAUDF<br /> .byte &gt;SFX_02_PickupEggAUDF<br /> .byte &gt;SFX_03_GameStartAUDF<br /> .byte &gt;SFX_04_BirdPlatformBounceAUDF<br /> .byte &gt;SFX_05_BirdBirdBounceAUDF<br /> .byte &gt;SFX_06_PlayerFootstepAUDF<br /> .byte &gt;SFX_07_PterryDefeatedAUDF<br /> .byte &gt;SFX_08_PterryChargingAUDF<br /> .byte &gt;SFX_09_PlayerBornAUDF<br /> .byte &gt;SFX_0A_InvulnerableAUDF<br /> .byte &gt;SFX_0B_EggWigglingAUDF<br /> .byte &gt;SFX_0C_EnemyBirdBornAUDF<br /> .byte &gt;SFX_0D_TrollJumpingAUDF<br /> .byte &gt;SFX_0E_PlatformDissolveAUDF<br /> .byte &gt;SFX_0F_SkidAUDF<br /> .byte &gt;SFX_10_BirdExplosionAUDF<br /> .byte &gt;SFX_11_CheepCheepAUDF<br /> .byte &gt;SFX_12_PlayerBirdFlapAUDF<br /> <br /> SFX_SampleDurationLUT<br /> .byte $02, $01, $02, $01, $01, $01, $01, $04<br /> .byte $02, $04, $07, $02, $04, $02, $0E, $01<br /> .byte $02, $01, $01 <br /> <br /> SFXInterruptGroups<br /> .byte $00 ; 00:?coin drop sfx?<br /> .byte $09 ; 01:free bird notification sfx<br /> .byte $05 ; 02:pickup egg sfx<br /> .byte $09 ; 03:game start sfx<br /> .byte $02 ; 04:bird bounced off platform sfx<br /> .byte $04 ; 05:bird bounced off bird sfx<br /> .byte $02 ; 06:player footstep sfx<br /> .byte $08 ; 07:pterry defeated sfx<br /> .byte $04 ; 08:pterry charging sfx<br /> .byte $05 ; 09:player born on platform sfx<br /> .byte $05 ; 0A:player invulnerable sfx<br /> .byte $00 ; 0B:egg wiggling sfx<br /> .byte $03 ; 0C:enemy bird born sfx<br /> .byte $04 ; 0D:troll jumping sfx<br /> .byte $06 ; 0E:platform dissolve sfx<br /> .byte $03 ; 0F:skid sfx<br /> .byte $07 ; 10:bird died explosion sfx<br /> .byte $00 ; 11:cheep cheep sfx<br /> .byte $02 ; 12:player bird flap sfx<br /> <br /> SFX_00_CoinDropAUDF<br /> .byte $0B <br /> .byte $0B <br /> .byte $11 <br /> .byte $11 <br /> .byte $0F <br /> .byte $0F <br /> .byte $17 <br /> .byte $17 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $0B <br /> .byte $0B <br /> .byte $11 <br /> .byte $11 <br /> .byte $0B <br /> .byte $0B <br /> .byte $11 <br /> .byte $11 <br /> .byte $0F <br /> .byte $0F <br /> .byte $17 <br /> .byte $17 <br /> .byte $00 <br /> .byte $00 <br /> .byte $FF <br /> SFX_00_CoinDropAUDV<br /> .byte $04 <br /> .byte $00 <br /> .byte $03 <br /> .byte $00 <br /> .byte $02 <br /> .byte $00 <br /> .byte $01 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $04 <br /> .byte $00 <br /> .byte $03 <br /> .byte $00 <br /> .byte $04 <br /> .byte $00 <br /> .byte $03 <br /> .byte $00 <br /> .byte $02 <br /> .byte $00 <br /> .byte $01 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> SFX_00_CoinDropAUDC<br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $0D <br /> .byte $0D <br /> .byte $0D <br /> .byte $0D <br /> .byte $0D <br /> .byte $0D <br /> .byte $0D <br /> .byte $0D <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $8D <br /> <br /> SFX_01_FreeBirdAUDF<br /> .byte $0C <br /> .byte $0E <br /> .byte $11 <br /> .byte $16 <br /> .byte $0C <br /> .byte $0E <br /> .byte $11 <br /> .byte $16 <br /> .byte $0C <br /> .byte $0E <br /> .byte $11 <br /> .byte $16 <br /> .byte $0C <br /> .byte $0E <br /> .byte $11 <br /> .byte $16 <br /> .byte $0C <br /> .byte $0E <br /> .byte $11 <br /> .byte $16 <br /> .byte $0C <br /> .byte $0E <br /> .byte $11 <br /> .byte $16 <br /> .byte $FF <br /> SFX_01_FreeBirdAUDV<br /> .byte $0B <br /> .byte $0B <br /> .byte $0B <br /> .byte $0B <br /> .byte $09 <br /> .byte $09 <br /> .byte $09 <br /> .byte $09 <br /> .byte $07 <br /> .byte $07 <br /> .byte $07 <br /> .byte $07 <br /> .byte $06 <br /> .byte $06 <br /> .byte $06 <br /> .byte $06 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $02 <br /> .byte $02 <br /> .byte $02 <br /> .byte $02 <br /> <br /> SFX_02_PickupEggAUDF<br /> .byte $18 <br /> .byte $16 <br /> .byte $14 <br /> .byte $11 <br /> .byte $0F <br /> .byte $0D <br /> .byte $0B <br /> .byte $FF <br /> SFX_02_PickupEggAUDV<br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $09 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> <br /> SFX_03_GameStartAUDF<br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $FF <br /> SFX_03_GameStartAUDV<br /> .byte $0F <br /> .byte $0F <br /> .byte $0A <br /> .byte $09 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $0E <br /> .byte $0E <br /> .byte $0A <br /> .byte $09 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $0C <br /> .byte $0C <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $0B <br /> .byte $0B <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $0A <br /> .byte $0A <br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> .byte $03 <br /> .byte $08 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> .byte $03 <br /> .byte $02 <br /> .byte $02 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> .byte $03 <br /> .byte $02 <br /> .byte $02 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> .byte $03 <br /> .byte $03 <br /> .byte $02 <br /> .byte $02 <br /> .byte $05 <br /> .byte $05 <br /> .byte $04 <br /> .byte $04 <br /> .byte $03 <br /> .byte $02 <br /> .byte $02 <br /> .byte $04 <br /> .byte $04 <br /> .byte $03 <br /> .byte $03 <br /> .byte $02 <br /> .byte $02 <br /> .byte $01 <br /> .byte $03 <br /> .byte $03 <br /> .byte $03 <br /> .byte $02 <br /> .byte $02 <br /> .byte $02 <br /> .byte $02 <br /> <br /> SFX_04_BirdPlatformBounceAUDF<br /> .byte $0F <br /> .byte $10 <br /> .byte $11 <br /> .byte $12 <br /> .byte $1F <br /> .byte $FF <br /> <br /> SFX_05_BirdBirdBounceAUDF<br /> .byte $0F <br /> .byte $10 <br /> .byte $11 <br /> .byte $12 <br /> .byte $0F <br /> .byte $10 <br /> .byte $11 <br /> .byte $12 <br /> .byte $0F <br /> .byte $10 <br /> .byte $11 <br /> .byte $12 <br /> .byte $0F <br /> .byte $10 <br /> .byte $11 <br /> .byte $12 <br /> .byte $FF <br /> SFX_05_BirdBirdBounceAUDV<br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $06 <br /> .byte $06 <br /> .byte $06 <br /> .byte $06 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $02 <br /> .byte $02 <br /> .byte $02 <br /> .byte $02 <br /> <br /> SFX_06_PlayerFootstepAUDF<br /> .byte $04 <br /> .byte $FF <br /> <br /> SFX_07_PterryDefeatedAUDF<br /> .byte $0F <br /> .byte $14 <br /> .byte $18 <br /> .byte $1F <br /> .byte $0F <br /> .byte $14 <br /> .byte $18 <br /> .byte $1F <br /> .byte $0F <br /> .byte $14 <br /> .byte $18 <br /> .byte $1F <br /> .byte $0F <br /> .byte $14 <br /> .byte $18 <br /> .byte $1F <br /> .byte $18 <br /> .byte $1A <br /> .byte $1C <br /> .byte $1E <br /> .byte $1F <br /> .byte $FF <br /> <br /> SFX_08_PterryChargingAUDF<br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $07 <br /> .byte $08 <br /> .byte $09 <br /> .byte $0A <br /> .byte $0B <br /> .byte $0C <br /> .byte $0D <br /> .byte $0E <br /> .byte $0F <br /> .byte $FF <br /> SFX_08_PterryChargingAUDV<br /> .byte $0A <br /> .byte $0A <br /> .byte $0A <br /> .byte $0A <br /> .byte $0A <br /> .byte $0A <br /> .byte $0A <br /> .byte $0A <br /> .byte $09 <br /> .byte $09 <br /> .byte $09 <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> <br /> SFX_09_PlayerBornAUDF<br /> .byte $1F <br /> .byte $12 <br /> .byte $00 <br /> .byte $1E <br /> .byte $11 <br /> .byte $00 <br /> .byte $1D <br /> .byte $10 <br /> .byte $FF <br /> SFX_09_PlayerBornAUDV<br /> .byte $08 <br /> .byte $08 <br /> .byte $00 <br /> .byte $08 <br /> .byte $08 <br /> .byte $00 <br /> .byte $08 <br /> .byte $08 <br /> <br /> SFX_0A_InvulnerableAUDF<br /> .byte $1F <br /> .byte $1F <br /> .byte $1E <br /> .byte $1E <br /> .byte $1D <br /> .byte $1C <br /> .byte $1B <br /> .byte $1A <br /> .byte $19 <br /> .byte $18 <br /> .byte $17 <br /> .byte $16 <br /> .byte $15 <br /> .byte $14 <br /> .byte $13 <br /> .byte $12 <br /> .byte $11 <br /> .byte $10 <br /> .byte $0F <br /> .byte $0E <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $FF <br /> SFX_0A_InvulnerableAUDV<br /> .byte $0A <br /> .byte $0A <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> .byte $03 <br /> .byte $02 <br /> SFX_0B_EggWigglingAUDF<br /> .byte $0D <br /> .byte $0B <br /> .byte $09 <br /> .byte $00 <br /> .byte $0D <br /> .byte $0B <br /> .byte $09 <br /> .byte $00 <br /> .byte $0D <br /> .byte $0B <br /> .byte $09 <br /> .byte $FF <br /> SFX_0B_EggWigglingAUDV<br /> .byte $06 <br /> .byte $07 <br /> .byte $08 <br /> .byte $00 <br /> .byte $06 <br /> .byte $06 <br /> .byte $06 <br /> .byte $00 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> <br /> SFX_0C_EnemyBirdBornAUDF<br /> .byte $1F <br /> .byte $1F <br /> .byte $1E <br /> .byte $1D <br /> .byte $1C <br /> .byte $1B <br /> .byte $1A <br /> .byte $19 <br /> .byte $18 <br /> .byte $17 <br /> .byte $16 <br /> .byte $15 <br /> .byte $14 <br /> .byte $13 <br /> .byte $12 <br /> .byte $11 <br /> .byte $FF <br /> SFX_0C_EnemyBirdBornAUDV<br /> .byte $0A <br /> .byte $0A <br /> .byte $07 <br /> .byte $07 <br /> .byte $88 <br /> <br /> SFX_0D_TrollJumpingAUDF<br /> .byte $03 <br /> .byte $03 <br /> .byte $03 <br /> .byte $03 <br /> .byte $FF <br /> SFX_0D_TrollJumpingAUDV<br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> <br /> SFX_0E_PlatformDissolveAUDF<br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $FF <br /> SFX_0E_PlatformDissolveAUDV<br /> .byte $04 <br /> .byte $05 <br /> .byte $06 <br /> .byte $07 <br /> .byte $07 <br /> .byte $07 <br /> .byte $05 <br /> .byte $04 <br /> .byte $03 <br /> .byte $01 <br /> <br /> SFX_0F_SkidAUDF<br /> .byte $14 <br /> .byte $14 <br /> .byte $14 <br /> .byte $14 <br /> .byte $16 <br /> .byte $14 <br /> .byte $17 <br /> .byte $15 <br /> .byte $16 <br /> .byte $14 <br /> .byte $17 <br /> .byte $15 <br /> .byte $17 <br /> .byte $14 <br /> .byte $15 <br /> .byte $14 <br /> .byte $14 <br /> .byte $16 <br /> .byte $14 <br /> .byte $15 <br /> .byte $17 <br /> .byte $14 <br /> .byte $17 <br /> .byte $15 <br /> .byte $16 <br /> .byte $14 <br /> .byte $17 <br /> .byte $15 <br /> .byte $17 <br /> .byte $14 <br /> .byte $15 <br /> .byte $14 <br /> .byte $FE <br /> <br /> SFX_10_BirdExplosionAUDF<br /> .byte $0F <br /> .byte $11 <br /> .byte $13 <br /> .byte $15 <br /> .byte $17 <br /> .byte $19 <br /> .byte $1B <br /> .byte $1D <br /> .byte $1E <br /> .byte $1F <br /> .byte $FF <br /> SFX_10_BirdExplosionAUDV<br /> .byte $09 <br /> .byte $09 <br /> .byte $08 <br /> .byte $07 <br /> .byte $06 <br /> .byte $05 <br /> .byte $04 <br /> .byte $03 <br /> .byte $02 <br /> .byte $01 <br /> <br /> SFX_11_CheepCheepAUDF<br /> .byte $0F <br /> .byte $0E <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $00 <br /> .byte $0F <br /> .byte $0E <br /> .byte $0D <br /> .byte $0C <br /> .byte $0B <br /> .byte $0A <br /> .byte $09 <br /> .byte $08 <br /> .byte $00 <br /> .byte $00 <br /> .byte $FF <br /> <br /> SFX_12_PlayerBirdFlapAUDF<br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $18 <br /> .byte $FF <br /> SFX_12_PlayerBirdFlapAUDV<br /> .byte $03 <br /> .byte $03 <br /> .byte $03 <br /> .byte $06 <br /> .byte $06 <br /> .byte $06 <br /> .byte $05 <br /> .byte $05 <br /> .byte $05 <br /> .byte $02 <br /> SFX_07_PterryDefeatedAUDC<br /> SFX_0B_EggWigglingAUDC<br /> SFX_0D_TrollJumpingAUDC<br /> SFX_0E_PlatformDissolveAUDC<br /> SFX_10_BirdExplosionAUDC<br /> SFX_12_PlayerBirdFlapAUDC<br /> .byte $88 <br /> SFX_01_FreeBirdAUDC<br /> SFX_03_GameStartAUDC<br /> SFX_04_BirdPlatformBounceAUDC<br /> SFX_05_BirdBirdBounceAUDC<br /> SFX_0F_SkidAUDC<br /> SFX_11_CheepCheepAUDC<br /> .byte $84 <br /> SFX_08_PterryChargingAUDC<br /> SFX_0A_InvulnerableAUDC<br /> .byte $87 <br /> SFX_02_PickupEggAUDC<br /> SFX_09_PlayerBornAUDC<br /> .byte $8D <br /> SFX_06_PlayerFootstepAUDC<br /> .byte $86 <br /> SFX_0C_EnemyBirdBornAUDC<br /> .byte $83 <br /> SFX_06_PlayerFootstepAUDV<br /> SFX_0F_SkidAUDV<br /> .byte $88 <br /> SFX_04_BirdPlatformBounceAUDV<br /> .byte $84 <br /> SFX_07_PterryDefeatedAUDV<br /> .byte $8A <br /> SFX_11_CheepCheepAUDV<br /> .byte $82 <br /> <br /> DoHscStatusCheck<br /> JSR InitForHsc<br /> LDA #$00<br /> STA $250E<br /> JSR $3FF7 ; HSCSTAT check status of HSC and some cart init<br /> RTS<br /> <br /> DoHscAttractMode<br /> JSR InitForHsc<br /> JSR $3FFA ; HSCATRCT - attract mode score display<br /> <br /> RestoreCharbaseAndExit<br /> LDA #$C8<br /> STA CHARBASE<br /> LDA #$00<br /> STA NMIModeFlag<br /> RTS<br /> <br /> DoHscScoreEntry<br /> LDA Difficulty<br /> STA Temp62 ; save difficulty<br /> JSR InitForHsc<br /> LDA PlayerCount<br /> BEQ HscScoreEntryHandlePlayer1<br /> LDA CurrentPlayer<br /> BNE HscScoreEntryHandlePlayer1<br /> STA $250E<br /> HscScoreEntryHandlePlayer1<br /> JSR $3FFD ; HSC score entry routine<br /> JMP RestoreCharbaseAndExit<br /> <br /> InitForHsc<br /> LDA $3900 ; Check two bytes of the HSC rom to ensure it's<br /> CMP #$C6 ; plugged in.<br /> BNE AbortUsingHSC<br /> LDA $3904<br /> CMP #$FE<br /> BNE AbortUsingHSC<br /> <br /> LDX #$0F<br /> CopyArgsToRamLoop<br /> LDA HscLUTArgumentBlock-1,X<br /> STA $24FF,X<br /> DEX<br /> BNE CopyArgsToRamLoop<br /> <br /> LDX #$28<br /> CopyLogoDls<br /> LDA HscGameLogoDisplayLists-1,X<br /> STA $18B3,X<br /> DEX<br /> BNE CopyLogoDls<br /> <br /> LDA #$01<br /> STA NMIModeFlag<br /> JSR SetDemoPalette<br /> <br /> ; update the DL text string for current player...<br /> LDA Temp62<br /> TAX<br /> ASL<br /> ASL<br /> ORA CurrentPlayer<br /> STA $2502<br /> <br /> ; ...and update the DL text string for the difficulty name...<br /> LDA DifficultyTextLo,X<br /> STA $2506<br /> LDA DifficultyTextHi,X<br /> STA $2507<br /> <br /> LDA CurrentPlayer<br /> BEQ CopyP0ScoreToHscRam<br /> <br /> CopyP1ScoreToHscRam<br /> LDA #$00<br /> STA $27AF<br /> LDX #$03<br /> CopyP1ScoreLoop<br /> LDA P1Score-1,X<br /> STA $27AF,X<br /> DEX<br /> BNE CopyP1ScoreLoop<br /> JMP ReturnFromHSCInit<br /> <br /> CopyP0ScoreToHscRam<br /> LDX #$03<br /> CopyP0ScoreLoop<br /> LDA P0Score-1,X<br /> STA $27AF,X<br /> DEX<br /> BNE CopyP0ScoreLoop<br /> ReturnFromHSCInit<br /> LDX #$00<br /> LDY #$25<br /> RTS<br /> <br /> AbortUsingHSC<br /> PLA<br /> PLA<br /> RTS<br /> <br /> HscLUTArgumentBlock ; we copy this to ram for actual use<br /> .byte $8B,$23 ; Joust's HSC Game ID<br /> .byte $00 ; Game Difficulty<br /> .byte $00 ; Game Controller<br /> .byte $00,$00 ; Game Name (Lo,Hi)<br /> .byte $C0,$D9 ; Difficulty Name (Lo,Hi)<br /> .byte $AF,$27 ; Game Score (Lo,Hi)<br /> .byte &lt;HscGameLogoDisplayListList, &gt;HscGameLogoDisplayListList<br /> .byte $70,$D9 ; Sound Routine (Lo,Hi)<br /> .byte $04 ; HS Display Time<br /> <br /> HscGameLogoDisplayListList<br /> .byte $8F,$27,$CB<br /> .byte $08,$27,$CB<br /> .byte $07,$18,$B4<br /> .byte $07,$18,$BB<br /> .byte $07,$18,$C2<br /> .byte $07,$18,$C9<br /> .byte $07,$18,$D0<br /> <br /> HscGameLogoDisplayLists<br /> <br /> .byte $CD,$40,$C0,$F2,$3C<br /> .byte $00,$00<br /> <br /> .byte $DB,$40,$C0,$EF,$30<br /> .byte $00,$00<br /> <br /> .byte $DD,$40,$C8,$F1,$30<br /> .byte $00,$00<br /> <br /> .byte $EC,$40,$C8,$EF,$2C<br /> .byte $00,$00<br /> <br /> .byte $EC,$40,$C0,$EF,$2C<br /> .byte $EC,$80,$C0,$FF,$A0<br /> .byte $00,$00<br /> <br /> ; &quot;BEGINNER&quot;<br /> WATKINS &quot;^&quot; ; space $D9C0<br /> WATKINS &quot;^&quot; ; space $D9C1<br /> WATKINS &quot;^&quot; ; space $D9C2<br /> WATKINS &quot;^&quot; ; space $D9C3<br /> WATKINS &quot;^&quot; ; space $D9C4<br /> WATKINS &quot;^&quot; ; space $D9C5<br /> WATKINS &quot;^&quot; ; space $D9C6<br /> WATKINS &quot;^&quot; ; space $D9C7<br /> WATKINS &quot;^&quot; ; space $D9C8<br /> WATKINS &quot;B&quot; ; $D9C9<br /> WATKINS &quot;E&quot; ; $D9CA<br /> WATKINS &quot;G&quot; ; $D9CB<br /> WATKINS &quot;I&quot; ; $D9CC<br /> WATKINS &quot;N&quot; ; $D9CD<br /> WATKINS &quot;N&quot; ; $D9CE<br /> WATKINS &quot;E&quot; ; $D9CF<br /> WATKINS &quot;R&quot; ; $D9D0<br /> WATKINS &quot;^&quot; ; space $D9D1<br /> WATKINS &quot;^&quot; ; space $D9D2<br /> WATKINS &quot;^&quot; ; space $D9D3<br /> <br /> ; &quot;INTERMEDIATE&quot;<br /> WATKINS &quot;^&quot; ; space $D9D4<br /> WATKINS &quot;^&quot; ; space $D9D5<br /> WATKINS &quot;^&quot; ; space $D9D6<br /> WATKINS &quot;^&quot; ; space $D9D7<br /> WATKINS &quot;^&quot; ; space $D9D8<br /> WATKINS &quot;^&quot; ; space $D9D9<br /> WATKINS &quot;I&quot; ; $D9DA<br /> WATKINS &quot;N&quot; ; $D9DB<br /> WATKINS &quot;T&quot; ; $D9DC<br /> WATKINS &quot;E&quot; ; $D9DD<br /> WATKINS &quot;R&quot; ; $D9DE<br /> WATKINS &quot;M&quot; ; $D9DF<br /> WATKINS &quot;E&quot; ; $D9E0<br /> WATKINS &quot;D&quot; ; $D9E1<br /> WATKINS &quot;I&quot; ; $D9E2<br /> WATKINS &quot;A&quot; ; $D9E3<br /> WATKINS &quot;T&quot; ; $D9E4<br /> WATKINS &quot;E&quot; ; $D9E5<br /> <br /> ; &quot;ADVANCED&quot;<br /> WATKINS &quot;^&quot; ; space $D9E6<br /> WATKINS &quot;^&quot; ; space $D9E7<br /> WATKINS &quot;^&quot; ; space $D9E8<br /> WATKINS &quot;^&quot; ; space $D9E9<br /> WATKINS &quot;^&quot; ; space $D9EA<br /> WATKINS &quot;^&quot; ; space $D9EB<br /> WATKINS &quot;^&quot; ; space $D9EC<br /> WATKINS &quot;^&quot; ; space $D9ED<br /> WATKINS &quot;^&quot; ; space $D9EE<br /> WATKINS &quot;A&quot; ; $D9EF<br /> WATKINS &quot;D&quot; ; $D9F0<br /> WATKINS &quot;V&quot; ; $D9F1<br /> WATKINS &quot;A&quot; ; $D9F2<br /> WATKINS &quot;N&quot; ; $D9F3<br /> WATKINS &quot;C&quot; ; $D9F4<br /> WATKINS &quot;E&quot; ; $D9F5<br /> WATKINS &quot;D&quot; ; $D9F6<br /> <br /> ; &quot;EXPERT&quot;<br /> WATKINS &quot;^&quot; ; space $D9F7<br /> WATKINS &quot;^&quot; ; space $D9F8<br /> WATKINS &quot;^&quot; ; space $D9F9<br /> WATKINS &quot;^&quot; ; space $D9FA<br /> WATKINS &quot;^&quot; ; space $D9FB<br /> WATKINS &quot;^&quot; ; space $D9FC<br /> WATKINS &quot;^&quot; ; space $D9FD<br /> WATKINS &quot;^&quot; ; space $D9FE<br /> WATKINS &quot;^&quot; ; space $D9FF<br /> WATKINS &quot;^&quot; ; space $DA00<br /> WATKINS &quot;E&quot; ; $DA01<br /> WATKINS &quot;X&quot; ; $DA02<br /> WATKINS &quot;P&quot; ; $DA03<br /> WATKINS &quot;E&quot; ; $DA04<br /> WATKINS &quot;R&quot; ; $DA05<br /> WATKINS &quot;T&quot; ; $DA06<br /> WATKINS &quot;^&quot; ; space $DA07<br /> WATKINS &quot;^&quot; ; space $DA08<br /> WATKINS &quot;^&quot; ; space $DA09<br /> WATKINS &quot;^&quot; ; space $DA0A<br /> WATKINS &quot;^&quot; ; space $DA0B<br /> WATKINS &quot;^&quot; ; space $DA0C<br /> WATKINS &quot;^&quot; ; space $DA0D<br /> WATKINS &quot;^&quot; ; space $DA0E<br /> WATKINS &quot;^&quot; ; space $DA0F<br /> WATKINS &quot;^&quot; ; space $DA10<br /> <br /> ; pointers to previous HSC/Watkins encoded text strings<br /> <br /> DifficultyTextLo<br /> .byte $C0 ; BEGINNER text pointer lo<br /> .byte $D4 ; INTERMEDIATE text pointer lo<br /> .byte $E6 ; ADVANCED text pointer lo<br /> .byte $F7 ; EXPERT text pointer lo<br /> <br /> DifficultyTextHi<br /> .byte $D9 ; BEGINNER text pointer hi<br /> .byte $D9 ; INTERMEDIATE text pointer hi<br /> .byte $D9 ; ADVANCED text pointer hi<br /> .byte $D9 ; EXPERT text pointer hi<br /> <br /> TitlePalette<br /> .byte $00 ; P0C1<br /> .byte $00 ; P0C2<br /> .byte $00 ; P0C3<br /> <br /> .byte $FA ; P1C1<br /> .byte $FF ; P1C2<br /> .byte $CF ; P1C3<br /> <br /> .byte $0D ; P2C1<br /> .byte $0D ; P2C2<br /> .byte $0D ; P2C3<br /> <br /> .byte $0D ; P3C1<br /> .byte $0D ; P3C2<br /> .byte $0D ; P3C3<br /> <br /> .byte $0D ; P4C1<br /> .byte $0D ; P4C2<br /> .byte $0D ; P4C3<br /> <br /> .byte $0D ; P5C1<br /> .byte $0D ; P5C2<br /> .byte $0D ; P5C3<br /> <br /> .byte $0D ; P6C1<br /> .byte $0D ; P6C2<br /> .byte $0D ; P6C3<br /> <br /> .byte $00 ; P7C1<br /> .byte $00 ; P7C2<br /> .byte $00 ; P7C3<br /> <br /> GamePalette<br /> .byte $1A ; P0C1<br /> .byte $10 ; P0C2<br /> .byte $14 ; P0C3<br /> <br /> .byte $00 ; P1C1<br /> .byte $29 ; P1C2<br /> .byte $32 ; P1C3<br /> <br /> .byte $46 ; P2C1<br /> .byte $09 ; P2C2<br /> .byte $84 ; P2C3<br /> <br /> .byte $1E ; P3C1<br /> .byte $BC ; P3C2<br /> .byte $00 ; P3C3<br /> <br /> .byte $39 ; P4C1<br /> .byte $0D ; P4C2<br /> .byte $33 ; P4C3<br /> <br /> .byte $15 ; P5C1<br /> .byte $A9 ; P5C2<br /> .byte $85 ; P5C3<br /> <br /> .byte $0D ; P6C1<br /> .byte $1C ; P6C2<br /> .byte $44 ; P6C3<br /> <br /> .byte $16 ; P7C1<br /> .byte $E3 ; P7C2<br /> .byte $E8 ; P7C3<br /> <br /> TitleScrCharacterObjectLoLUT<br /> .byte &lt;$18FE<br /> .byte &lt;$1958<br /> .byte &lt;$1C2A<br /> .byte &lt;$18FA<br /> .byte &lt;$1954<br /> .byte &lt;$1950 <br /> .byte &lt;$194C <br /> .byte &lt;$1C26 <br /> .byte &lt;$1C22 <br /> .byte &lt;$1C1E <br /> .byte &lt;$1D93 <br /> .byte &lt;$1DED <br /> .byte &lt;$1E48 <br /> <br /> TitleScrCharacterObjectHiLUT<br /> .byte &gt;$18FE <br /> .byte &gt;$1958 <br /> .byte &gt;$1C2A <br /> .byte &gt;$18FA <br /> .byte &gt;$1954 <br /> .byte &gt;$1950 <br /> .byte &gt;$194C <br /> .byte &gt;$1C26 <br /> .byte &gt;$1C22 <br /> .byte &gt;$1C1E <br /> .byte &gt;$1D93 <br /> .byte &gt;$1DED <br /> .byte &gt;$1E48 <br /> <br /> TitleScrSpriteObjectLoLUT<br /> .byte &lt;$C05E <br /> .byte &lt;$C067 <br /> .byte &lt;$C082 <br /> .byte &lt;$C064 <br /> .byte &lt;$C068 <br /> .byte &lt;$C072 <br /> .byte &lt;$C07C <br /> .byte &lt;$C08B <br /> .byte &lt;$C095 <br /> .byte &lt;$C09F <br /> .byte &lt;$C0A5 <br /> .byte &lt;$C0B2 <br /> .byte &lt;$C0BF <br /> <br /> TitleScrSpriteObjectHiLUT<br /> .byte &gt;$C05E <br /> .byte &gt;$C067 <br /> .byte &gt;$C082 <br /> .byte &gt;$C064 <br /> .byte &gt;$C068 <br /> .byte &gt;$C072 <br /> .byte &gt;$C07C <br /> .byte &gt;$C08B <br /> .byte &gt;$C095 <br /> .byte &gt;$C09F <br /> .byte &gt;$C0A5 <br /> .byte &gt;$C0B2 <br /> .byte &gt;$C0BF <br /> <br /> TitleScrDLAddrLoLUT<br /> .byte &lt;$1EA1, &lt;$1F55, &lt;$1EFB, &lt;$1FC1, &lt;$1FC6, &lt;$184E, &lt;$1853, &lt;$1FD7 <br /> .byte &lt;$1FDC, &lt;$18AD, &lt;$18A8, &lt;$1907, &lt;$1902, &lt;$1961, &lt;$195C, &lt;$19BB <br /> .byte &lt;$19B6, &lt;$1A16, &lt;$1A11, &lt;$1A70, &lt;$1A6B, &lt;$1ACA, &lt;$1AC5, &lt;$1B25<br /> .byte &lt;$1B20, &lt;$1B7F, &lt;$1B7A, &lt;$1BD9, &lt;$1BD4, &lt;$1C33, &lt;$1C2E, &lt;$1C8D<br /> .byte &lt;$1C88, &lt;$1CE7, &lt;$1CE2, &lt;$1D42, &lt;$1D3D, &lt;$1D9C, &lt;$1D97, &lt;$1DF6<br /> .byte &lt;$1DF1, &lt;$1E51, &lt;$1E4C, &lt;$1EAB, &lt;$1EA6, &lt;$1F05, &lt;$1F00, &lt;$1F5F<br /> .byte &lt;$1F5A, &lt;$1FBA, &lt;$1FB5, &lt;$1FCB, &lt;$1FD0, &lt;$19B1, &lt;$19AC, &lt;$19A7<br /> .byte &lt;$19A2, &lt;$1A0C, &lt;$1A07, &lt;$1A02, &lt;$19FD, &lt;$1A66, &lt;$1A61, &lt;$1A5C <br /> .byte &lt;$1A57, &lt;$1AC0, &lt;$1ABB, &lt;$1AB6, &lt;$1AB1, &lt;$1B1B, &lt;$1B16, &lt;$1B11<br /> .byte &lt;$1B0C, &lt;$1B75, &lt;$1B70, &lt;$1B6B, &lt;$1B66, &lt;$1BCF, &lt;$1BCA, &lt;$1BC5<br /> .byte &lt;$1BC0 <br /> <br /> TitleScrDLAddrHiLUT<br /> .byte &gt;$1EA1, &gt;$1F55, &gt;$1EFB, &gt;$1FC1, &gt;$1FC6, &gt;$184E, &gt;$1853, &gt;$1FD7 <br /> .byte &gt;$1FDC, &gt;$18AD, &gt;$18A8, &gt;$1907, &gt;$1902, &gt;$1961, &gt;$195C, &gt;$19BB <br /> .byte &gt;$19B6, &gt;$1A16, &gt;$1A11, &gt;$1A70, &gt;$1A6B, &gt;$1ACA, &gt;$1AC5, &gt;$1B25<br /> .byte &gt;$1B20, &gt;$1B7F, &gt;$1B7A, &gt;$1BD9, &gt;$1BD4, &gt;$1C33, &gt;$1C2E, &gt;$1C8D<br /> .byte &gt;$1C88, &gt;$1CE7, &gt;$1CE2, &gt;$1D42, &gt;$1D3D, &gt;$1D9C, &gt;$1D97, &gt;$1DF6<br /> .byte &gt;$1DF1, &gt;$1E51, &gt;$1E4C, &gt;$1EAB, &gt;$1EA6, &gt;$1F05, &gt;$1F00, &gt;$1F5F<br /> .byte &gt;$1F5A, &gt;$1FBA, &gt;$1FB5, &gt;$1FCB, &gt;$1FD0, &gt;$19B1, &gt;$19AC, &gt;$19A7<br /> .byte &gt;$19A2, &gt;$1A0C, &gt;$1A07, &gt;$1A02, &gt;$19FD, &gt;$1A66, &gt;$1A61, &gt;$1A5C <br /> .byte &gt;$1A57, &gt;$1AC0, &gt;$1ABB, &gt;$1AB6, &gt;$1AB1, &gt;$1B1B, &gt;$1B16, &gt;$1B11<br /> .byte &gt;$1B0C, &gt;$1B75, &gt;$1B70, &gt;$1B6B, &gt;$1B66, &gt;$1BCF, &gt;$1BCA, &gt;$1BC5<br /> .byte &gt;$1BC0 <br /> <br /> TitleScrCharObject_LoAddress<br /> .byte &lt;$2685, &lt;$2699, &lt;$26AD, &lt;$2244, &lt;$2251, &lt;$2204, &lt;$2204, &lt;$2204<br /> .byte &lt;$2204, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200<br /> .byte &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200<br /> .byte &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200<br /> .byte &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200<br /> .byte &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200<br /> .byte &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2200, &lt;$2202, &lt;$2261, &lt;$2268, &lt;$2272<br /> .byte &lt;$227C, &lt;$2281, &lt;$2289, &lt;$2293, &lt;$229D, &lt;$22A3, &lt;$22AB, &lt;$22B5<br /> .byte &lt;$22BF, &lt;$22C3, &lt;$22C9, &lt;$22D3, &lt;$22DD, &lt;$22DF, &lt;$22E9, &lt;$22F3<br /> .byte &lt;$22FD, &lt;$2302, &lt;$230C, &lt;$2316, &lt;$2320, &lt;$2325, &lt;$232F, &lt;$2339<br /> .byte &lt;$2343<br /> <br /> TitleScrCharObject_HiAddress<br /> .byte &gt;$2685, &gt;$2699, &gt;$26AD, &gt;$2244, &gt;$2251, &gt;$2204, &gt;$2204, &gt;$2204<br /> .byte &gt;$2204, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200<br /> .byte &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200<br /> .byte &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200<br /> .byte &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200<br /> .byte &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200<br /> .byte &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2200, &gt;$2202, &gt;$2261, &gt;$2268, &gt;$2272<br /> .byte &gt;$227C, &gt;$2281, &gt;$2289, &gt;$2293, &gt;$229D, &gt;$22A3, &gt;$22AB, &gt;$22B5<br /> .byte &gt;$22BF, &gt;$22C3, &gt;$22C9, &gt;$22D3, &gt;$22DD, &gt;$22DF, &gt;$22E9, &gt;$22F3<br /> .byte &gt;$22FD, &gt;$2302, &gt;$230C, &gt;$2316, &gt;$2320, &gt;$2325, &gt;$232F, &gt;$2339<br /> .byte &gt;$2343<br /> <br /> TitleScrCharObject_PalleteWidth<br /> .byte $90, $90, $90, $93, $90, $00, $08, $00<br /> .byte $08, $1E, $1E, $1E, $1E, $1E, $1E, $1E<br /> .byte $1E, $1E, $1E, $1E, $1E, $1E, $1E, $1E<br /> .byte $1E, $1E, $1E, $1E, $1E, $1E, $1E, $1E<br /> .byte $1E, $1E, $1E, $1E, $1E, $1E, $1E, $1E<br /> .byte $1E, $1E, $1E, $1E, $1E, $1E, $1E, $1E<br /> .byte $1E, $1E, $1E, $1E, $1E, $F9, $F6, $F6<br /> .byte $FB, $F8, $F6, $F6, $FA, $F8, $F6, $F6<br /> .byte $FC, $FA, $F6, $F6, $FE, $F6, $F6, $F6<br /> .byte $FB, $F6, $F6, $F6, $FB, $F6, $F6, $F6<br /> .byte $FB<br /> <br /> TitleScrCharObject_XCoordinate<br /> .byte $A0, $A0, $A0, $10, $50, $00, $80, $00<br /> .byte $80, $00, $9A, $00, $9A, $00, $9A, $00<br /> .byte $9A, $00, $9A, $00, $9A, $00, $9A, $00<br /> .byte $9A, $00, $9A, $00, $9A, $00, $9A, $00<br /> .byte $9A, $00, $9A, $00, $9A, $00, $9A, $00<br /> .byte $9A, $00, $9A, $00, $9A, $00, $9A, $00<br /> .byte $9A, $00, $9A, $00, $9A, $17, $31, $57<br /> .byte $7D, $13, $31, $57, $7D, $13, $31, $57<br /> .byte $7D, $1B, $31, $57, $7D, $0B, $31, $57<br /> .byte $7D, $0B, $31, $57, $7D, $0B, $31, $57<br /> .byte $7D<br /> <br /> DllLUT<br /> .byte $0F,$27,$CB<br /> .byte $08,$27,$CB<br /> .byte $47,$18,$4E<br /> .byte $47,$18,$A8<br /> .byte $47,$18,$A8<br /> .byte $47,$18,$A8<br /> .byte $47,$18,$FA<br /> .byte $47,$19,$4C<br /> .byte $47,$19,$A2<br /> .byte $47,$19,$FD<br /> .byte $47,$1A,$57<br /> .byte $47,$1A,$B1<br /> .byte $47,$1B,$0C<br /> .byte $47,$1B,$66<br /> .byte $47,$1B,$C0<br /> .byte $47,$1C,$1E<br /> .byte $47,$1D,$3D<br /> .byte $47,$1D,$93<br /> .byte $47,$1D,$ED<br /> .byte $47,$1E,$48<br /> .byte $47,$1E,$A1<br /> .byte $47,$1E,$FB<br /> .byte $47,$1F,$55<br /> .byte $47,$1F,$B5<br /> .byte $47,$1F,$C1<br /> .byte $47,$1F,$D7<br /> .byte $0F,$27,$CB<br /> .byte $06,$27,$CB<br /> .byte $8F,$27,$CB<br /> <br /> GameDLStartLutLo<br /> .byte &lt;$1A17, &lt;$1A13, &lt;$1A6D, &lt;$1A71, &lt;$1C30, &lt;$1C34, &lt;$1C8E, &lt;$1C82 <br /> .byte &lt;$1C86, &lt;$1C8A, &lt;$1D43, &lt;$1F58, &lt;$1F54, &lt;$1F5C, &lt;$1F60, &lt;$1F50<br /> .byte &lt;$1F4C, &lt;$1FAE, &lt;$1FAA, &lt;$1FB6, &lt;$1FB2, &lt;$1FA6, &lt;$1FA2, &lt;$1FC1<br /> .byte &lt;$1FC5, &lt;$1FD1, &lt;$1FC9, &lt;$1FCD, &lt;$1FD7, &lt;$1FDB, &lt;$1FE7, &lt;$1FDF<br /> .byte &lt;$1FE3<br /> <br /> GameDLStartLutHi<br /> .byte &gt;$1A17, &gt;$1A13, &gt;$1A6D, &gt;$1A71, &gt;$1C30, &gt;$1C34, &gt;$1C8E, &gt;$1C82 <br /> .byte &gt;$1C86, &gt;$1C8A, &gt;$1D43, &gt;$1F58, &gt;$1F54, &gt;$1F5C, &gt;$1F60, &gt;$1F50<br /> .byte &gt;$1F4C, &gt;$1FAE, &gt;$1FAA, &gt;$1FB6, &gt;$1FB2, &gt;$1FA6, &gt;$1FA2, &gt;$1FC1<br /> .byte &gt;$1FC5, &gt;$1FD1, &gt;$1FC9, &gt;$1FCD, &gt;$1FD7, &gt;$1FDB, &gt;$1FE7, &gt;$1FDF<br /> .byte &gt;$1FE3<br /> <br /> BackgroundSpriteGfxLoLUT<br /> .byte &lt;$A8A4, &lt;$A0FB, &lt;$A8AA, &lt;$A8BA, &lt;$A897, &lt;$A8BA, &lt;$A8A0, &lt;$C008 <br /> .byte &lt;$C011, &lt;$A8BA, &lt;$C017, &lt;$C000, &lt;$C000, &lt;$A08E, &lt;$A8BA, &lt;$C020 <br /> .byte &lt;$C020, &lt;$AF8E, &lt;$AF8E, &lt;$A0A9, &lt;$A8BE, &lt;$C03C, &lt;$C03C, &lt;$AF8E <br /> .byte &lt;$AF8E, &lt;$A0C4, &lt;$A8C0, &lt;$A8C2, &lt;$AF8E, &lt;$AF8E, &lt;$A0DE, &lt;$A8C0 <br /> .byte &lt;$A8C2 <br /> <br /> BackgroundSpriteGfxHiLUT<br /> .byte &gt;$A8A4, &gt;$A0FB, &gt;$A8AA, &gt;$A8BA, &gt;$A897, &gt;$A8BA, &gt;$A8A0, &gt;$C008 <br /> .byte &gt;$C011, &gt;$A8BA, &gt;$C017, &gt;$C000, &gt;$C000, &gt;$A08E, &gt;$A8BA, &gt;$C020 <br /> .byte &gt;$C020, &gt;$AF8E, &gt;$AF8E, &gt;$A0A9, &gt;$A8BE, &gt;$C03C, &gt;$C03C, &gt;$AF8E <br /> .byte &gt;$AF8E, &gt;$A0C4, &gt;$A8C0, &gt;$A8C2, &gt;$AF8E, &gt;$AF8E, &gt;$A0DE, &gt;$A8C0 <br /> .byte &gt;$A8C2 <br /> <br /> BackgroundSpritePaletteWidthLUT<br /> .byte $1A, $1B, $14, $5C, $17, $5C, $1C, $17 <br /> .byte $1A, $5C, $17, $18, $18, $05, $5C, $3E <br /> .byte $3E, $37, $37, $05, $3F, $3E, $3E, $37<br /> .byte $37, $06, $3F, $3F, $37, $37, $03, $3F<br /> .byte $3F <br /> <br /> BackgroundSpriteXCoordLUT<br /> .byte $88, $00, $2E, $38, $6D, $7A, $7C, $00<br /> .byte $8B, $05, $37, $FD, $82, $19, $3B, $F7<br /> .byte $A2, $A0, $A0, $1B, $B0, $F7, $A2, $A0<br /> .byte $A0, $1B, $B0, $B0, $F9, $84, $15, $B0<br /> .byte $B0<br /> <br /> HUDCharDLAddrLoLUT<br /> .byte &lt;$19BB <br /> .byte &lt;$1ACA <br /> .byte &lt;$1B7F <br /> .byte &lt;$1DF6 <br /> .byte &lt;$1FBA <br /> .byte &lt;$1FEB <br /> <br /> HUDCharDLAddrHiLUT<br /> .byte &gt;$19BB <br /> .byte &gt;$1ACA <br /> .byte &gt;$1B7F <br /> .byte &gt;$1DF6 <br /> .byte &gt;$1FBA <br /> .byte &gt;$1FEB <br /> <br /> MsgAndHUDCharObjectStringLoLUT<br /> .byte &lt;$2671 <br /> .byte &lt;$2685 <br /> .byte &lt;$2699 <br /> .byte &lt;$26AD <br /> .byte &lt;$2659 <br /> .byte &lt;$2200 <br /> <br /> MsgAndHUDCharObjectStringHiLUT<br /> .byte &gt;$2671 <br /> .byte &gt;$2685 <br /> .byte &gt;$2699 <br /> .byte &gt;$26AD <br /> .byte &gt;$2659 <br /> .byte &gt;$2200 <br /> <br /> MsgAndHUDCharObjectPaletteAndWidthLUT<br /> .byte $90 <br /> .byte $90 <br /> .byte $90 <br /> .byte $90 <br /> .byte $68 <br /> .byte $92 <br /> <br /> MsgAndHUDCharObjectXLUT<br /> .byte $2E <br /> .byte $2E <br /> .byte $2E <br /> .byte $2E <br /> .byte $20 <br /> .byte $A8 <br /> <br /> DisplayListLoLUT<br /> .byte &lt;$1858, &lt;$18B2, &lt;$190C, &lt;$1966, &lt;$19BB, &lt;$1A13, &lt;$1A6D, &lt;$1ACA<br /> .byte &lt;$1B2A, &lt;$1B7F, &lt;$1BDE, &lt;$1C30, &lt;$1C82, &lt;$1CEC, &lt;$1D43, &lt;$1DA1<br /> .byte &lt;$1DF6, &lt;$1E56, &lt;$1EB0, &lt;$1F0A, &lt;$1F4C, &lt;$1FA2, &lt;$1FC1, &lt;$1FD7 <br /> DisplayListHiLUT<br /> .byte &gt;$1858, &gt;$18B2, &gt;$190C, &gt;$1966, &gt;$19BB, &gt;$1A13, &gt;$1A6D, &gt;$1ACA<br /> .byte &gt;$1B2A, &gt;$1B7F, &gt;$1BDE, &gt;$1C30, &gt;$1C82, &gt;$1CEC, &gt;$1D43, &gt;$1DA1<br /> .byte &gt;$1DF6, &gt;$1E56, &gt;$1EB0, &gt;$1F0A, &gt;$1F4C, &gt;$1FA2, &gt;$1FC1, &gt;$1FD7 <br /> <br /> ES_LavaSparkleAnimationPtrLoLUT<br /> .byte &lt;$1FB2 <br /> .byte &lt;$1FC9 <br /> .byte &lt;$1FCD <br /> .byte &lt;$1FDF <br /> .byte &lt;$1FE3 <br /> ES_LavaSparkleAnimationPtrHiLUT<br /> .byte &gt;$1FB2 <br /> .byte &gt;$1FC9 <br /> .byte &gt;$1FCD <br /> .byte &gt;$1FDF <br /> .byte &gt;$1FE3 <br /> <br /> SpawnPlatformDLObjectLoLUT<br /> .byte &lt;$1F60 <br /> .byte &lt;$1C8A <br /> .byte &lt;$1C34 <br /> .byte &lt;$1A71 <br /> SpawnPlatformDLObjectHiLUT<br /> .byte &gt;$1F60 <br /> .byte &gt;$1C8A <br /> .byte &gt;$1C34<br /> .byte &gt;$1A71<br /> <br /> SpawnRiderPaletteAndWidthLUT<br /> .byte $B6, $BA ; spawning player rider <br /> .byte $BA, $BA, $BA, $BA, $BA, $BA, $BA, $BA ; spawning enemy rider<br /> <br /> SpawnPlatformPaletteAndWidthLUT<br /> .byte $7C, $7C ; spawning platform with player bird on it<br /> .byte $9C, $9C, $9C, $9C, $9C, $9C, $9C, $9C ; spawinging platform with enemy birds<br /> <br /> SpawnBirdPaletteAndWidthLUT<br /> .byte $BE, $DE ; spawning player birds<br /> .byte $9E, $9E, $9E, $9E, $9E, $9E, $9E, $9E ; spawning enemy birds<br /> <br /> AITimerDistantAggressive_ByType<br /> .byte $02 <br /> .byte $03 <br /> .byte $01 <br /> .byte $02 <br /> .byte $FF <br /> <br /> AITimerDistantPassive_Or_ApproachAggressive_ByType<br /> .byte $03 <br /> .byte $03 <br /> .byte $02 <br /> .byte $03 <br /> PterryYVelocitySlightUp<br /> .byte $FF <br /> <br /> AITimerApproachPassive_ByType<br /> .byte $04 <br /> .byte $04 <br /> .byte $04 <br /> .byte $05 <br /> .byte $FF <br /> <br /> AITimerCloseDefensive_ByType<br /> .byte $05 <br /> .byte $06 <br /> .byte $06 <br /> .byte $07 <br /> PterryYVelocityZero<br /> .byte $00 <br /> <br /> AITimerEngagePassive_ByType<br /> .byte $08 <br /> .byte $08 <br /> .byte $09 <br /> .byte $0A <br /> .byte $01 <br /> <br /> AITimerMixedEngageAttack_ByType<br /> .byte $0A <br /> .byte $0B <br /> .byte $0C <br /> .byte $0B <br /> PterryYVelocitySlightDown<br /> .byte $01 <br /> <br /> AITimerAttackAggressive_ByType<br /> .byte $0C <br /> .byte $0C <br /> .byte $0F <br /> .byte $0E <br /> .byte $01 <br /> <br /> ; the below tables are largely involved in enemy vertical velocity calcs<br /> BirdWeightByTypeLUT<br /> .byte $0C,$14,$1E,$26,$00<br /> BirdFlapLiftFactorLoLUT<br /> .byte $80,$00,$5A,$DC,$00<br /> BirdFlapLiftFactorHiLUT<br /> .byte $00,$01,$01,$01,$01<br /> BirdMaxDownVelocityByTypeLUT<br /> .byte $04,$04,$04,$04,$02<br /> BirdMaxUpVelocityByTypeLUT<br /> .byte $FC,$FC,$FC,$FC,$FD<br /> <br /> AITimerByBirdTypeAndDifficultyLoLUT<br /> .byte $00, $00, $00, $00, $C0, $A0, $80, $40 <br /> AITimerByBirdTypeAndDifficultyHiLUT<br /> .byte $10, $04, $02, $01, $00, $00, $00, $00 <br /> <br /> AIModeByBirdTypeAndDifficultyLUT<br /> .byte $7F,$05,$04,$03,$7F,$04,$03,$02,$7F,$03,$02,$01<br /> <br /> TurnCheckTimerValuesLoLUT<br /> .byte $00,$00,$00,$40,$00,$E0,$C0,$A0,$80,$00,$80,$40<br /> <br /> TurnCheckTimerValuesHiLUT<br /> .byte $10,$03,$02,$01,$01,$00,$00,$00,$02,$02,$01,$01<br /> <br /> ; 16-bit speed index tables.<br /> ; The fastest left-heading speed is the first value.<br /> ; The neutral non-moving speed is the middle value.<br /> ; The fastest right-heading speed is the last value.<br /> ; These apply to player and enemy birds.<br /> XPositionIncrementTableLoLUT<br /> .byte $20,$D0,$60,$E0,$80,$00,$80,$20,$A0,$30,$E0<br /> XPositionIncrementTableHiLUT<br /> .byte $FD,$FD,$FE,$FE,$FF,$00,$00,$01,$01,$02,$02<br /> <br /> BirdAIActionCategoryByProximityLUT<br /> .byte $03,$04,$04,$FF,$02,$00,$03,$FF,$01,$01,$02<br /> <br /> TrollGrabHeight ; If a bird object is at this Y the troll will grab it (game level is index)<br /> .byte $B3,$B3,$B3,$B3,$B3,$B3,$B3,$B3,$B3,$B3,$B5,$B5,$B5<br /> .byte $BA,$BA,$BA,$BA,$BA,$BA,$BA,$BA,$BA,$BA,$BA,$BA<br /> <br /> InitialBirdDirection<br /> .byte $01,$FF,$01,$FF,$01,$FF,$01,$FF,$01,$FF,$01<br /> <br /> PlayerRespawnY<br /> .byte $A7,$67,$5F,$37<br /> PlayerRespawnX<br /> .byte $5E,$29,$9D,$5B<br /> <br /> ObjectScreenWrapXRightEdgeLUT<br /> .byte $BE, $BE, $BE, $BE, $BE, $BE, $BE, $BE, $BE, $BE ; Birds<br /> .byte $C2, $C2, $C2 ; Pterrys<br /> .byte $BB, $BB, $BB, $BB, $BB, $BB, $BB, $BB, $BB, $BB, $BB, $BB ; Eggs<br /> <br /> ObjectScreenWrapXLeftEdgeLUT<br /> .byte $1A, $1A, $1A, $1A, $1A, $1A, $1A, $1A, $1A, $1A ; Birds<br /> .byte $16, $16, $16 ; Pterrys<br /> .byte $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F ; Eggs<br /> <br /> ; enemy levels are 0:red-bounder, 1:gray-hunter, 2:blue-shadowlord<br /> ; this table says enemy upgrades are 0-&gt;1, 1-&gt;2, and 2-&gt;2.<br /> NextEnemyBirdLevel<br /> .byte $01, $02, $02<br /> <br /> PterrySpritePaletteAndWidthLUT<br /> .byte $9C <br /> .byte $9C <br /> .byte $9C <br /> .byte $1C <br /> .byte $1C <br /> .byte $1C <br /> <br /> UNUSED_TitleMenuTextAddrLoLUT<br /> .byte &lt;$2671 <br /> .byte &lt;$2685 <br /> .byte &lt;$2699 <br /> .byte &lt;$26AD <br /> UNUSED_TitleMenuTextAddrHiLUT<br /> .byte &gt;$2671 <br /> .byte &gt;$2685 <br /> .byte &gt;$2699 <br /> .byte &gt;$26AD <br /> UNUSED_TitleMenuDLZoneLUT<br /> .byte $03 <br /> .byte $08 <br /> .byte $0C <br /> .byte $10 <br /> <br /> ; packed 2-bit enemy type data, first set of 4 enemies for each wave...<br /> EnemyWaveDataLUT_A <br /> .byte $3F, $0F, $0F, $03, $03, $00, $00, $00<br /> .byte $00, $00, $00, $54, $54, $55, $55, $55<br /> .byte $55, $55, $55, $55, $95, $95, $95, $A5<br /> .byte $A9, $AA, $AA, $AA, $AA, $AA, $AA, $AA<br /> .byte $AA, $AA, $AA, $AA, $AA, $AA, $AA, $AA<br /> .byte $AA, $AA, $AA, $AA, $AA, $AA, $AA, $AA<br /> .byte $AA, $AA, $AA, $AA <br /> <br /> ; packed 2-bit enemy type data, second set of 4 enemies for each wave<br /> EnemyWaveDataLUT_B <br /> .byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $3F<br /> .byte $3F, $0F, $0F, $0F, $0F, $0F, $5F, $5F<br /> .byte $03, $43, $57, $55, $5F, $5F, $5F, $5F<br /> .byte $5F, $5F, $5F, $5F, $95, $95, $5F, $95<br /> .byte $55, $A5, $5F, $A5, $A5, $AA, $AF, $AA<br /> .byte $AA, $AA, $AF, $AA, $AA, $AA, $AF, $AA<br /> .byte $AA, $AA, $AF, $AA<br /> <br /> .byte &quot;GCC(C)1984&quot; ; not used by the game, just an embedded text<br /> <br /> .byte $4C <br /> .byte $00 <br /> .byte $B0 <br /> .byte $3F <br /> .byte $39 <br /> .byte $34 <br /> <br /> CART_SIGNATURE_DUPE ; DF80-DFF7<br /> .byte $04,$C4,$76,$30,$6A,$8C,$8A,$3A,$CA,$F5,$BC,$71,$CA,$76,$08,$AB<br /> .byte $75,$58,$CD,$19,$2A,$29,$2E,$F0,$DB,$7B,$84,$98,$A4,$0E,$0A,$7C<br /> .byte $3F,$D8,$93,$8D,$59,$98,$FA,$77,$03,$FF,$E9,$9B,$70,$A8,$B3,$A5<br /> .byte $AA,$E7,$7F,$82,$CF,$DD,$5F,$F4,$54,$79,$BA,$D7,$6D,$73,$26,$CE<br /> .byte $B3,$06,$39,$94,$BA,$74,$A1,$E7,$8F,$AF,$6C,$B2,$E2,$74,$70,$0B<br /> .byte $2E,$68,$F2,$4F,$27,$E2,$AA,$4D,$F7,$B0,$CD,$C6,$9D,$B1,$42,$59<br /> .byte $CE,$0D,$59,$14,$13,$8E,$71,$5C,$A0,$09,$4E,$00,$85,$99,$E7,$CA<br /> .byte $E4,$A5,$D9,$A1,$2B,$47,$A4,$CE<br /> <br /> .byte $FF ; region verification. $FF=all regions<br /> .byte $E7 ; encryption check starts at $E000 <br /> <br /> .word NMI_ROUTINE<br /> .word START<br /> .word IRQ_ROUTINE<br /> <br /> ; This rom is a bit weird, in that the last 2 8k blocks are identical<br /> ; including the cart vectors and encryption key.<br /> ;<br /> ; block 1: the graphics and code are live/used, except for the <br /> ; brief &quot;jmp $B000&quot; located at DF7A. The encryption key, BIOS bytes,<br /> ; and 6502 vectors are dead/unused.<br /> ;<br /> ; block 2: the graphics and code are dead/unused, except for the<br /> ; brief &quot;jmp $B000&quot; located at FF7A. The encryption key, BIOS bytes,<br /> ; and 6502 vectors are (of course) used.<br /> ;<br /> ; I've left the dead parts of block 2 as uninterpreted byte values,<br /> ; to avoid confusion with the active code in block 1.<br /> ;<br /> ; So... Joust has just under 8K unused in block 2, ready and waiting <br /> ; for rom hacks.<br /> ;<br /> ; This is block 2 of 2...<br /> <br /> ; ORG $E000<br /> <br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $2a,$a0,$2a,$80,$2a,$20,$aa,$00,$a8,$00,$aa,$00,$aa,$00,$aa,$80<br /> .byte $aa,$a0,$aa,$a0,$aa,$a0,$aa,$a0,$2a,$a0,$2a,$a0,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$11,$48,$22,$8c,$33,$c8,$aa,$aa<br /> .byte $ea,$54,$00,$10,$6a,$aa,$a8,$a0,$aa,$aa,$95,$56,$ab,$7a,$a9,$57<br /> .byte $00,$d0,$6a,$aa,$a5,$5a,$aa,$aa,$aa,$a0,$00,$00,$00,$15,$55,$56<br /> .byte $aa,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$03,$00,$33,$00,$c0,$33,$00,$c0,$0c,$c0,$cc<br /> .byte $30,$00,$00,$c0,$00,$00,$00,$00,$00,$0c,$00,$00,$00,$00,$0c,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0a,$a0,$0a,$aa,$56<br /> .byte $9a,$90,$36,$a9,$6a,$aa,$80,$00,$55,$aa,$00,$09,$7a,$a6,$a5,$fe<br /> .byte $a5,$a9,$54,$d6,$a5,$aa,$bd,$66,$56,$ab,$70,$00,$00,$00,$a0,$00<br /> .byte $02,$a0,$00,$00,$a8,$02,$aa,$02,$a0,$00,$00,$aa,$00,$44,$f0,$81<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$ff,$eb,$cf,$ff,$00,$00,$00<br /> .byte $00,$00,$00,$0f,$cf,$00,$00,$00,$00,$ff,$a0,$00,$00,$00,$00,$00<br /> .byte $2a,$80,$2a,$80,$2a,$00,$aa,$00,$aa,$00,$aa,$00,$aa,$00,$aa,$80<br /> .byte $aa,$80,$aa,$a0,$aa,$a0,$aa,$80,$aa,$a0,$2a,$a0,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$04,$48,$08,$8c,$0c,$c8,$2a,$aa<br /> .byte $aa,$94,$00,$10,$aa,$aa,$a8,$a0,$aa,$aa,$95,$56,$ab,$fe,$a9,$57<br /> .byte $00,$d0,$6a,$aa,$a5,$56,$aa,$aa,$aa,$a0,$00,$00,$00,$00,$55,$55<br /> .byte $aa,$80,$00,$00,$2a,$ab,$f4,$00,$00,$00,$00,$aa,$80,$00,$00,$00<br /> .byte $00,$2a,$aa,$a8,$00,$5a,$aa,$a0,$00,$00,$00,$00,$00,$00,$00,$0a<br /> .byte $aa,$a0,$00,$00,$00,$03,$30,$0c,$00,$c0,$0c,$00,$c0,$0f,$00,$cc<br /> .byte $30,$00,$00,$30,$00,$00,$00,$00,$03,$ff,$ff,$ff,$ff,$ff,$f0,$0f<br /> .byte $fc,$03,$f3,$c3,$cf,$00,$00,$fc,$03,$00,$f0,$28,$28,$02,$a9,$5a<br /> .byte $9e,$90,$36,$a9,$5a,$aa,$40,$00,$01,$5a,$a0,$0a,$fa,$a6,$a5,$fa<br /> .byte $a5,$6a,$54,$d6,$a6,$aa,$d7,$a6,$a5,$ab,$fa,$80,$00,$0a,$ab,$c0<br /> .byte $0a,$a9,$00,$02,$aa,$86,$aa,$0a,$a8,$00,$7a,$aa,$b0,$0c,$f0,$63<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$fa,$bf,$ff,$ea,$be,$f3,$ff,$c0<br /> .byte $00,$00,$00,$ea,$fb,$ea,$ff,$00,$03,$fa,$bf,$fa,$80,$00,$00,$00<br /> .byte $0a,$80,$0a,$80,$2a,$80,$2a,$80,$2a,$80,$aa,$80,$aa,$80,$aa,$80<br /> .byte $2a,$80,$aa,$80,$2a,$80,$aa,$80,$aa,$80,$aa,$80,$aa,$a8,$af,$a8<br /> .byte $ae,$a8,$aa,$a8,$2a,$a8,$2a,$a8,$2a,$a8,$2a,$a8,$aa,$a8,$aa,$a8<br /> .byte $aa,$a8,$2a,$a8,$2a,$a8,$2a,$a8,$04,$48,$08,$8c,$0c,$c8,$0a,$aa<br /> .byte $aa,$94,$00,$10,$aa,$aa,$a8,$20,$aa,$aa,$55,$4a,$aa,$7e,$a9,$57<br /> .byte $00,$d0,$6a,$aa,$a5,$56,$aa,$aa,$aa,$80,$00,$00,$00,$00,$05,$55<br /> .byte $6a,$a0,$00,$00,$aa,$aa,$bf,$d0,$00,$00,$a0,$aa,$ab,$40,$00,$00<br /> .byte $00,$aa,$aa,$aa,$30,$5a,$aa,$a0,$01,$56,$a8,$00,$00,$00,$70,$aa<br /> .byte $aa,$aa,$b0,$00,$00,$03,$0c,$00,$00,$c0,$00,$03,$00,$0c,$c0,$cf<br /> .byte $f0,$00,$00,$0f,$fc,$00,$00,$00,$00,$0c,$00,$00,$00,$00,$00,$30<br /> .byte $03,$0c,$0c,$3c,$30,$c0,$f3,$03,$03,$03,$0c,$80,$08,$00,$55,$4a<br /> .byte $ae,$90,$06,$aa,$16,$a9,$00,$00,$00,$00,$00,$0a,$ba,$a5,$a9,$da<br /> .byte $a5,$6a,$54,$d6,$a6,$aa,$fd,$a6,$aa,$aa,$aa,$00,$00,$2a,$aa,$7f<br /> .byte $2a,$aa,$f0,$02,$aa,$a6,$aa,$6a,$aa,$3f,$6a,$aa,$a0,$00,$12,$91<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$ff,$aa,$aa,$ba,$ab,$fa,$ee,$a0<br /> .byte $00,$00,$02,$aa,$ab,$ff,$ff,$00,$3f,$eb,$ff,$ab,$fa,$c0,$00,$00<br /> .byte $0a,$80,$0a,$80,$0a,$80,$0a,$80,$2a,$80,$2a,$80,$2a,$80,$2a,$80<br /> .byte $2a,$80,$2a,$80,$2a,$80,$2a,$80,$2a,$80,$aa,$80,$bb,$a8,$ba,$a8<br /> .byte $ae,$e8,$ba,$ab,$be,$a8,$ba,$a0,$3b,$a8,$3a,$a8,$be,$a8,$3a,$a8<br /> .byte $ba,$a8,$3b,$e8,$3a,$e8,$3a,$a8,$45,$48,$8a,$8c,$cf,$c8,$02,$aa<br /> .byte $aa,$94,$00,$10,$aa,$a8,$00,$20,$aa,$a9,$54,$0a,$aa,$be,$a9,$57<br /> .byte $00,$d0,$6a,$aa,$a8,$55,$aa,$aa,$aa,$00,$00,$00,$00,$00,$00,$05<br /> .byte $52,$a8,$00,$0a,$aa,$aa,$af,$fd,$40,$00,$a0,$aa,$aa,$f4,$00,$00<br /> .byte $02,$aa,$aa,$aa,$90,$5a,$aa,$a0,$15,$aa,$aa,$a0,$00,$07,$e0,$aa<br /> .byte $aa,$aa,$a8,$00,$00,$00,$c3,$00,$00,$c0,$00,$0c,$00,$0c,$30,$00<br /> .byte $30,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$c0<br /> .byte $03,$0c,$0c,$0c,$c0,$33,$0f,$03,$03,$03,$03,$00,$00,$00,$00,$0a<br /> .byte $a6,$90,$06,$aa,$00,$00,$00,$00,$00,$00,$00,$0a,$aa,$a5,$a9,$5a<br /> .byte $95,$6a,$50,$d6,$a6,$aa,$76,$a6,$aa,$aa,$a8,$00,$00,$aa,$aa,$5d<br /> .byte $ea,$aa,$ff,$0a,$aa,$aa,$a9,$aa,$aa,$bf,$aa,$aa,$a8,$00,$12,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$fe,$ff,$ff,$ff,$ff,$ea,$ba,$a8<br /> .byte $00,$00,$0e,$ee,$af,$ff,$ff,$00,$af,$ef,$ee,$bf,$fa,$af,$c0,$00<br /> .byte $0a,$80,$0a,$80,$0a,$80,$0a,$80,$0a,$80,$0a,$80,$2a,$00,$2a,$80<br /> .byte $2a,$80,$2a,$80,$2a,$80,$2a,$00,$2a,$20,$2a,$80,$ae,$a8,$ae,$a0<br /> .byte $aa,$a0,$ab,$a0,$af,$a0,$af,$a0,$af,$a0,$2e,$a8,$2f,$a8,$ab,$b8<br /> .byte $2b,$a8,$2f,$e8,$ae,$a8,$2b,$a8,$15,$48,$2a,$8c,$3f,$c8,$00,$2a<br /> .byte $aa,$a4,$00,$00,$aa,$00,$00,$00,$2a,$95,$00,$0a,$aa,$bf,$a9,$57<br /> .byte $00,$10,$6a,$aa,$a8,$05,$aa,$aa,$a8,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$2a,$aa,$aa,$a9,$5f,$fc,$02,$a0,$aa,$aa,$7f,$c0,$00<br /> .byte $02,$aa,$aa,$aa,$a0,$5a,$aa,$81,$5a,$aa,$aa,$aa,$0f,$ff,$60,$aa<br /> .byte $aa,$aa,$aa,$80,$00,$30,$03,$00,$3f,$ff,$ff,$f0,$00,$0c,$00,$00<br /> .byte $30,$00,$00,$0f,$c0,$fc,$03,$c0,$fc,$00,$15,$55,$55,$54,$00,$c0<br /> .byte $ff,$0c,$0c,$0f,$00,$0c,$03,$03,$03,$03,$03,$00,$00,$00,$00,$02<br /> .byte $ab,$94,$06,$aa,$00,$00,$00,$00,$00,$00,$00,$00,$aa,$a9,$aa,$aa<br /> .byte $95,$6a,$50,$d6,$aa,$aa,$ba,$a6,$aa,$aa,$a0,$00,$02,$aa,$aa,$97<br /> .byte $aa,$aa,$9d,$fa,$aa,$aa,$a9,$aa,$aa,$b5,$aa,$aa,$aa,$0b,$b0,$38<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$fe,$fd,$55,$55,$57,$aa,$ea,$ab<br /> .byte $c0,$00,$ff,$ef,$ab,$bf,$ff,$03,$eb,$fa,$bf,$ff,$eb,$ff,$ff,$a8<br /> .byte $2a,$00,$8a,$00,$0a,$00,$02,$80,$02,$a0,$0a,$a0,$0a,$80,$0a,$80<br /> .byte $2a,$00,$2a,$00,$2a,$00,$2a,$20,$2a,$00,$2a,$00,$bb,$a0,$ab,$a0<br /> .byte $ab,$a0,$ae,$80,$ae,$80,$ae,$80,$ab,$a0,$ae,$a0,$af,$eb,$af,$a8<br /> .byte $2f,$e8,$ab,$a8,$ab,$e8,$ab,$e8,$05,$50,$0a,$a0,$0f,$f0,$00,$0a<br /> .byte $aa,$a8,$00,$00,$80,$00,$00,$00,$00,$00,$00,$2a,$aa,$af,$aa,$57<br /> .byte $00,$10,$6a,$aa,$a8,$00,$02,$aa,$80,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$aa,$aa,$aa,$aa,$55,$ff,$ca,$a0,$aa,$aa,$97,$fd,$00<br /> .byte $0a,$aa,$aa,$aa,$a0,$5a,$aa,$85,$6a,$aa,$aa,$aa,$bf,$fd,$60,$aa<br /> .byte $aa,$aa,$aa,$a0,$00,$30,$03,$00,$00,$c0,$00,$00,$00,$0c,$00,$c0<br /> .byte $30,$00,$00,$30,$33,$03,$0c,$33,$03,$00,$aa,$aa,$aa,$aa,$00,$c0<br /> .byte $00,$03,$f0,$0c,$00,$0c,$00,$fc,$fc,$fc,$03,$00,$00,$00,$00,$00<br /> .byte $2a,$a4,$0a,$aa,$00,$00,$00,$00,$00,$00,$00,$00,$0a,$a9,$6a,$aa<br /> .byte $95,$da,$50,$36,$a9,$aa,$aa,$a6,$aa,$aa,$80,$00,$02,$aa,$aa,$9f<br /> .byte $aa,$aa,$b7,$ea,$aa,$aa,$ad,$aa,$aa,$a6,$aa,$aa,$aa,$3d,$f2,$fe<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$55,$75,$55,$55,$55,$d5,$af,$ff<br /> .byte $fc,$03,$ff,$ff,$ea,$bf,$ff,$ff,$fa,$ff,$ff,$ff,$bf,$ff,$ff,$af<br /> .byte $28,$00,$28,$00,$08,$00,$02,$80,$02,$a0,$02,$a0,$02,$a0,$0a,$a0<br /> .byte $28,$a0,$28,$20,$aa,$00,$28,$20,$28,$28,$a8,$80,$aa,$a0,$ae,$a0<br /> .byte $ae,$80,$aa,$80,$aa,$00,$aa,$00,$aa,$80,$ab,$a0,$af,$a0,$aa,$e0<br /> .byte $ab,$a0,$2b,$a0,$ab,$a0,$ae,$a0,$01,$08,$02,$0c,$03,$08,$00,$00<br /> .byte $aa,$a8,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0a,$aa,$a7,$aa,$57<br /> .byte $00,$10,$6a,$aa,$a8,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$aa,$aa,$aa,$aa,$57,$f7,$ea,$a0,$aa,$aa,$ad,$ff,$f0<br /> .byte $0a,$aa,$aa,$aa,$a0,$9a,$aa,$b5,$aa,$aa,$aa,$aa,$af,$fd,$a0,$aa<br /> .byte $aa,$aa,$aa,$a8,$00,$0c,$0c,$00,$00,$00,$00,$00,$00,$cc,$00,$00<br /> .byte $33,$00,$00,$c0,$0c,$00,$f0,$0c,$00,$c0,$00,$00,$00,$00,$00,$c0<br /> .byte $00,$00,$00,$00,$00,$0c,$00,$00,$00,$00,$03,$00,$00,$00,$00,$00<br /> .byte $0a,$a4,$0a,$80,$00,$00,$00,$00,$00,$00,$00,$00,$02,$a9,$6a,$aa<br /> .byte $96,$da,$50,$36,$a9,$aa,$aa,$a1,$5a,$aa,$a0,$00,$0a,$aa,$aa,$95<br /> .byte $aa,$aa,$95,$ea,$aa,$aa,$ad,$aa,$aa,$ae,$aa,$aa,$aa,$2a,$a0,$89<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$55,$d5,$55,$55,$55,$75,$55,$55<br /> .byte $55,$15,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55<br /> .byte $88,$00,$08,$00,$08,$00,$00,$00,$00,$20,$00,$20,$00,$20,$00,$88<br /> .byte $02,$00,$28,$80,$a0,$00,$00,$00,$22,$08,$a0,$20,$aa,$a0,$aa,$a0<br /> .byte $aa,$80,$ae,$00,$ae,$00,$ba,$00,$aa,$00,$aa,$80,$aa,$a0,$aa,$a0<br /> .byte $aa,$80,$2a,$a0,$2a,$a0,$aa,$80,$05,$08,$0a,$0c,$0f,$08,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$02,$aa,$ab,$ea,$54<br /> .byte $00,$10,$6a,$aa,$a8,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$02,$aa,$aa,$aa,$aa,$95,$77,$ea,$a0,$aa,$aa,$a5,$df,$ff<br /> .byte $2a,$aa,$aa,$aa,$a0,$aa,$aa,$95,$aa,$aa,$aa,$aa,$af,$75,$a0,$aa<br /> .byte $aa,$aa,$aa,$aa,$00,$03,$f0,$00,$00,$00,$00,$00,$03,$00,$00,$00<br /> .byte $00,$c0,$03,$00,$33,$00,$c0,$33,$00,$c0,$0c,$30,$cf,$f0,$00,$c0<br /> .byte $00,$00,$00,$00,$00,$0c,$00,$00,$00,$00,$03,$00,$00,$00,$00,$00<br /> .byte $00,$a8,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$2a,$2a,$aa<br /> .byte $56,$da,$50,$36,$a9,$6a,$aa,$a0,$05,$56,$a8,$00,$2a,$aa,$aa,$a6<br /> .byte $aa,$6a,$af,$ea,$aa,$aa,$ad,$aa,$aa,$aa,$aa,$a5,$6a,$2e,$a1,$d0<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $aa,$aa,$6a,$5a,$96,$a5,$a9,$aa,$90,$a0,$a0,$a0,$a0,$a0,$60,$50<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$00,$0a,$97,$7f,$ea,$aa,$aa,$a7,$5d<br /> .byte $7f,$ea,$95,$aa,$af,$75,$aa,$aa,$aa,$02,$aa,$aa,$aa,$95,$aa,$aa<br /> .byte $55,$55,$aa,$95,$57,$0f,$50,$9a,$aa,$9d,$aa,$5a,$a0,$aa,$aa,$aa<br /> .byte $a8,$00,$02,$95,$7f,$a9,$5a,$50,$7f,$fe,$95,$5a,$55,$5f,$3f,$56<br /> .byte $aa,$bf,$d7,$5a,$50,$56,$aa,$af,$d5,$40,$00,$00,$00,$00,$6a,$a9<br /> .byte $70,$5d,$ff,$a5,$6a,$5f,$fd,$ab,$f5,$56,$aa,$a9,$5d,$55,$aa,$a8<br /> .byte $00,$00,$55,$a9,$50,$55,$57,$a5,$57,$5d,$50,$6a,$a9,$55,$dd,$55<br /> .byte $5a,$a9,$60,$a0,$02,$aa,$95,$55,$a5,$95,$55,$55,$a0,$ab,$55,$aa<br /> .byte $95,$d5,$6a,$aa,$96,$95,$55,$55,$56,$2a,$aa,$a5,$9a,$a0,$5a,$95<br /> .byte $fe,$aa,$aa,$aa,$aa,$d5,$6a,$aa,$aa,$aa,$9a,$a5,$aa,$05,$5a,$a6<br /> .byte $a5,$56,$a5,$a9,$55,$56,$a5,$f5,$6a,$a5,$6a,$80,$2a,$a9,$ea,$a6<br /> .byte $a9,$5a,$a7,$ea,$aa,$aa,$ad,$aa,$aa,$aa,$aa,$95,$5a,$00,$e0,$85<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10<br /> .byte $aa,$6a,$5a,$96,$a5,$a9,$aa,$aa,$a0,$a0,$a0,$a0,$a0,$60,$50,$90<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$00,$0a,$a5,$5f,$aa,$aa,$aa,$a9,$dd<br /> .byte $df,$aa,$95,$aa,$a9,$d6,$aa,$aa,$aa,$00,$2a,$aa,$aa,$95,$aa,$a9<br /> .byte $55,$57,$aa,$95,$57,$03,$d0,$96,$aa,$aa,$aa,$5a,$a0,$aa,$aa,$aa<br /> .byte $a8,$00,$02,$a7,$5f,$a9,$5a,$70,$fd,$de,$95,$5a,$55,$5f,$3f,$5a<br /> .byte $aa,$75,$75,$6a,$a0,$55,$aa,$ab,$dd,$55,$40,$00,$00,$00,$6a,$a9<br /> .byte $70,$5d,$7f,$a5,$6a,$5f,$fd,$ab,$f7,$56,$aa,$a5,$d5,$d5,$aa,$a8<br /> .byte $00,$00,$00,$a9,$50,$d5,$75,$a5,$57,$fd,$50,$6a,$a9,$7d,$d7,$55<br /> .byte $6a,$a5,$60,$a0,$02,$aa,$95,$55,$a5,$95,$55,$55,$60,$ab,$55,$aa<br /> .byte $75,$55,$6a,$aa,$56,$95,$55,$40,$00,$aa,$aa,$55,$56,$90,$5a,$95<br /> .byte $7a,$aa,$aa,$aa,$aa,$d5,$6a,$aa,$aa,$aa,$9a,$a5,$6a,$00,$5a,$a6<br /> .byte $a5,$56,$a5,$a9,$55,$56,$af,$55,$6a,$95,$6a,$80,$aa,$a5,$7a,$a6<br /> .byte $a9,$5a,$a5,$aa,$aa,$aa,$ad,$aa,$aa,$aa,$aa,$95,$5a,$00,$b0,$01<br /> .byte $00,$54,$54,$54,$54,$04,$54,$54,$10,$54,$04,$00,$a8,$a8,$a8,$a8<br /> .byte $08,$a8,$a8,$20,$a8,$08,$00,$88,$a0,$28,$a0,$a8,$a8,$88,$a8,$20<br /> .byte $a8,$88,$88,$80,$88,$a8,$20,$a8,$20,$88,$88,$20,$a8,$88,$41,$04<br /> .byte $6a,$5a,$96,$a5,$a9,$aa,$aa,$aa,$a0,$a0,$a0,$a0,$60,$50,$90,$a0<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$00,$2a,$a5,$df,$aa,$aa,$aa,$a9,$d5<br /> .byte $dd,$aa,$d5,$aa,$ab,$56,$aa,$aa,$aa,$00,$02,$aa,$aa,$95,$6a,$a9<br /> .byte $55,$57,$6a,$a5,$57,$03,$d0,$96,$aa,$aa,$aa,$5a,$a0,$aa,$aa,$aa<br /> .byte $a8,$00,$02,$a9,$df,$aa,$5a,$50,$5f,$da,$95,$56,$95,$5f,$3f,$5a<br /> .byte $ab,$d7,$5d,$aa,$a0,$95,$6a,$ab,$ff,$fd,$80,$00,$00,$01,$6a,$a9<br /> .byte $50,$7f,$7f,$a5,$5a,$7f,$cf,$aa,$d5,$5a,$aa,$ad,$55,$55,$aa,$aa<br /> .byte $40,$00,$00,$ab,$50,$57,$57,$a5,$df,$fd,$50,$6a,$ab,$ff,$75,$55<br /> .byte $6a,$a7,$60,$a0,$00,$aa,$55,$55,$a5,$95,$55,$55,$60,$ab,$d5,$aa<br /> .byte $57,$55,$aa,$aa,$56,$95,$00,$00,$00,$aa,$a9,$55,$56,$90,$5a,$95<br /> .byte $7a,$aa,$aa,$aa,$aa,$d5,$6a,$aa,$aa,$aa,$9a,$a5,$6a,$00,$0a,$a6<br /> .byte $a5,$56,$a5,$a9,$55,$56,$af,$d5,$aa,$b5,$6a,$80,$2a,$95,$5a,$a6<br /> .byte $a5,$56,$a5,$aa,$aa,$aa,$a5,$aa,$5a,$aa,$aa,$55,$56,$80,$30,$eb<br /> .byte $00,$44,$10,$40,$04,$04,$04,$44,$10,$44,$04,$54,$88,$20,$80,$08<br /> .byte $08,$08,$88,$20,$88,$08,$a8,$a8,$88,$80,$88,$80,$88,$88,$20,$88<br /> .byte $80,$88,$a8,$80,$a0,$08,$20,$88,$20,$a8,$88,$20,$80,$88,$44,$04<br /> .byte $5a,$96,$a5,$a9,$aa,$aa,$aa,$6a,$a0,$a0,$a0,$60,$50,$90,$a0,$a0<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$00,$aa,$a5,$57,$aa,$aa,$aa,$aa,$77<br /> .byte $5d,$aa,$d5,$aa,$aa,$da,$aa,$aa,$aa,$00,$00,$aa,$aa,$95,$6a,$a9<br /> .byte $55,$77,$6a,$a5,$57,$03,$d0,$96,$aa,$aa,$aa,$55,$50,$aa,$aa,$5a<br /> .byte $aa,$00,$02,$aa,$77,$aa,$56,$90,$f5,$da,$95,$56,$95,$5f,$3f,$5a<br /> .byte $ab,$75,$d5,$aa,$a0,$aa,$aa,$aa,$fe,$aa,$80,$00,$00,$05,$6a,$aa<br /> .byte $50,$7f,$fe,$a5,$5a,$5f,$fd,$aa,$d5,$6a,$aa,$97,$5d,$55,$aa,$aa<br /> .byte $00,$00,$00,$a9,$50,$5d,$77,$a5,$5f,$fd,$d0,$6a,$ab,$ff,$57,$55<br /> .byte $aa,$95,$60,$a0,$00,$aa,$55,$55,$a5,$95,$55,$55,$60,$ab,$55,$a9<br /> .byte $d5,$55,$aa,$aa,$56,$90,$00,$00,$00,$aa,$a9,$55,$55,$90,$5a,$95<br /> .byte $5a,$aa,$aa,$aa,$ab,$d5,$6a,$aa,$a6,$aa,$9a,$95,$6a,$00,$0a,$a6<br /> .byte $a5,$5e,$a5,$a9,$55,$56,$ad,$d6,$aa,$55,$6a,$80,$2a,$95,$5a,$a6<br /> .byte $a5,$56,$a5,$aa,$95,$aa,$a5,$a9,$56,$aa,$aa,$55,$56,$80,$a2,$14<br /> .byte $00,$44,$10,$54,$14,$54,$54,$54,$10,$54,$54,$54,$88,$20,$a8,$28<br /> .byte $a8,$a8,$a8,$20,$a8,$a8,$a8,$88,$a0,$80,$88,$a0,$88,$a8,$20,$08<br /> .byte $80,$88,$a8,$a8,$a8,$20,$20,$88,$88,$88,$20,$20,$20,$a0,$44,$04<br /> .byte $96,$a5,$a9,$aa,$aa,$aa,$6a,$5a,$a0,$a0,$60,$50,$90,$a0,$a0,$a0<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$02,$aa,$a5,$76,$aa,$aa,$aa,$aa,$75<br /> .byte $7d,$aa,$d5,$6a,$aa,$da,$aa,$aa,$aa,$00,$00,$0a,$aa,$a5,$6a,$a9<br /> .byte $55,$9f,$6a,$a5,$57,$03,$d0,$95,$aa,$aa,$aa,$03,$50,$55,$55,$56<br /> .byte $aa,$00,$02,$aa,$9e,$aa,$56,$90,$5f,$5a,$55,$56,$95,$5f,$0f,$5a<br /> .byte $ab,$dd,$d6,$aa,$a0,$aa,$aa,$aa,$aa,$aa,$00,$00,$00,$57,$6a,$aa<br /> .byte $70,$77,$5e,$a5,$5a,$5c,$fd,$aa,$d5,$6a,$aa,$75,$55,$55,$6a,$aa<br /> .byte $40,$00,$00,$a9,$50,$d5,$f7,$a5,$5f,$cd,$50,$6a,$ab,$ff,$f5,$56<br /> .byte $aa,$9d,$60,$a0,$00,$2a,$55,$55,$a5,$55,$55,$d5,$50,$ab,$55,$a9<br /> .byte $75,$55,$aa,$a9,$56,$80,$00,$00,$00,$2a,$a5,$55,$55,$50,$56,$95<br /> .byte $5a,$aa,$aa,$aa,$ab,$55,$6a,$aa,$55,$aa,$9a,$95,$5a,$00,$0a,$a6<br /> .byte $a5,$7e,$a5,$a9,$55,$56,$ad,$5a,$aa,$75,$5a,$80,$0a,$95,$5a,$a6<br /> .byte $a5,$56,$a5,$aa,$55,$6a,$a5,$a9,$d6,$aa,$aa,$55,$56,$a8,$04,$06<br /> .byte $00,$44,$50,$04,$04,$44,$40,$40,$04,$44,$44,$f4,$88,$a0,$08,$08<br /> .byte $88,$80,$80,$08,$88,$88,$f8,$88,$88,$80,$88,$80,$80,$88,$20,$08<br /> .byte $80,$a8,$a8,$88,$88,$80,$20,$88,$88,$88,$88,$88,$08,$a0,$44,$04<br /> .byte $a5,$a9,$aa,$aa,$aa,$6a,$5a,$96,$a0,$60,$50,$90,$a0,$a0,$a0,$a0<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$0a,$aa,$a9,$56,$aa,$aa,$aa,$aa,$55<br /> .byte $de,$aa,$d5,$6a,$aa,$da,$aa,$95,$5a,$00,$00,$00,$aa,$a5,$4a,$a9<br /> .byte $56,$9f,$7a,$a5,$57,$00,$d0,$95,$aa,$aa,$aa,$00,$10,$55,$55,$55<br /> .byte $aa,$80,$02,$aa,$aa,$aa,$56,$a0,$77,$6a,$55,$56,$95,$5f,$0f,$fa<br /> .byte $ab,$77,$5a,$aa,$a0,$aa,$aa,$aa,$aa,$a0,$00,$00,$05,$7f,$6a,$aa<br /> .byte $70,$75,$de,$a5,$5a,$5f,$fd,$aa,$d5,$aa,$a9,$f7,$75,$55,$6a,$aa<br /> .byte $94,$00,$00,$a9,$50,$5d,$77,$a5,$5f,$fd,$50,$6a,$ab,$f7,$55,$5a<br /> .byte $aa,$95,$50,$a0,$00,$2a,$55,$55,$a5,$55,$55,$55,$50,$ab,$d5,$a7<br /> .byte $55,$56,$aa,$a9,$55,$80,$00,$00,$00,$2a,$a5,$55,$55,$50,$56,$a5<br /> .byte $5a,$aa,$96,$aa,$ab,$55,$6a,$a9,$d5,$6a,$9a,$95,$5a,$00,$0a,$a6<br /> .byte $a5,$7e,$a5,$a9,$55,$56,$ad,$6a,$ab,$55,$5a,$a0,$0a,$55,$5a,$a6<br /> .byte $a5,$56,$a5,$aa,$55,$5a,$ad,$a5,$5a,$a9,$aa,$55,$00,$80,$f9,$5f<br /> .byte $00,$54,$10,$54,$54,$44,$54,$54,$54,$54,$54,$54,$a8,$20,$a8,$a8<br /> .byte $88,$a8,$a8,$a8,$a8,$a8,$a8,$20,$a0,$28,$a0,$a8,$a8,$88,$a8,$08<br /> .byte $80,$88,$88,$a8,$a8,$a8,$a8,$88,$88,$88,$88,$88,$a8,$88,$41,$04<br /> .byte $a9,$aa,$aa,$aa,$6a,$5a,$96,$a5,$60,$50,$90,$a0,$a0,$a0,$a0,$a0<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$0a,$aa,$a9,$56,$aa,$95,$aa,$aa,$5d<br /> .byte $de,$aa,$d5,$6a,$aa,$9a,$aa,$55,$56,$00,$00,$00,$0a,$a9,$0a,$a5<br /> .byte $56,$af,$7a,$a5,$57,$00,$d0,$a5,$6a,$aa,$a8,$00,$00,$55,$55,$55<br /> .byte $6a,$a0,$02,$aa,$aa,$aa,$56,$a0,$77,$6a,$55,$55,$95,$57,$0f,$5a<br /> .byte $ab,$5f,$5a,$aa,$a0,$aa,$aa,$aa,$aa,$80,$00,$00,$55,$5f,$5a,$aa<br /> .byte $70,$5f,$fe,$a5,$5a,$5f,$cd,$aa,$55,$aa,$a9,$f7,$d6,$55,$5a,$aa<br /> .byte $b5,$00,$00,$a9,$70,$55,$ff,$a5,$7c,$ff,$50,$5a,$ab,$f5,$d5,$6a<br /> .byte $aa,$75,$50,$ab,$00,$09,$55,$57,$a5,$55,$57,$55,$50,$ab,$55,$ad<br /> .byte $55,$56,$aa,$a9,$55,$80,$00,$00,$00,$0a,$95,$55,$55,$50,$56,$a5<br /> .byte $6a,$a9,$55,$5a,$ab,$55,$aa,$a5,$55,$6a,$9a,$95,$5a,$00,$5a,$a6<br /> .byte $a5,$fe,$a5,$a9,$55,$56,$ad,$6a,$a5,$55,$5a,$a0,$02,$55,$5a,$a6<br /> .byte $a5,$56,$a5,$a9,$55,$5a,$a5,$a5,$5a,$a5,$aa,$50,$00,$a8,$10,$90<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$10,$10<br /> .byte $aa,$aa,$aa,$6a,$5a,$96,$a5,$a9,$50,$90,$a0,$a0,$a0,$a0,$a0,$60<br /> .byte $aa,$a0,$a9,$5a,$55,$6a,$50,$2a,$aa,$a9,$76,$aa,$55,$6a,$aa,$95<br /> .byte $7e,$aa,$d5,$6a,$aa,$9a,$a9,$55,$55,$00,$00,$00,$00,$a8,$02,$a5<br /> .byte $56,$af,$7a,$a5,$57,$00,$d0,$a5,$6a,$aa,$a8,$00,$00,$05,$55,$55<br /> .byte $5a,$a8,$00,$2a,$aa,$aa,$55,$a0,$9d,$aa,$55,$55,$95,$57,$0f,$9a<br /> .byte $aa,$77,$6a,$aa,$a0,$aa,$aa,$aa,$aa,$00,$00,$02,$55,$df,$5a,$aa<br /> .byte $50,$f7,$7e,$95,$5a,$5f,$3f,$aa,$56,$aa,$ad,$dd,$da,$59,$56,$aa<br /> .byte $ad,$50,$00,$a9,$50,$75,$df,$a5,$5f,$fd,$50,$5a,$ab,$fd,$55,$aa<br /> .byte $aa,$55,$50,$a8,$00,$00,$00,$77,$a5,$55,$75,$75,$50,$ab,$d5,$95<br /> .byte $d5,$5a,$aa,$a9,$55,$80,$00,$00,$00,$0a,$95,$55,$55,$50,$56,$a5<br /> .byte $6a,$a5,$55,$55,$ab,$55,$aa,$9d,$55,$6a,$96,$95,$56,$05,$7a,$a6<br /> .byte $a5,$fe,$a5,$a9,$57,$d6,$a5,$aa,$ad,$d5,$56,$ad,$02,$55,$5a,$a6<br /> .byte $a5,$56,$a5,$a9,$55,$5a,$a5,$b5,$5a,$a5,$aa,$00,$00,$00,$d0,$28<br /> .byte $a5,$79,$c9,$35,$d0,$02,$e6,$7a,$4c,$3d,$d0,$a9,$01,$85,$4a,$d0<br /> .byte $0d,$a9,$00,$85,$4a,$a5,$7a,$d0,$05,$e6,$79,$4c,$3d,$d0,$a9,$00<br /> .byte $85,$79,$85,$7a,$f0,$17,$ad,$82,$02,$29,$02,$f0,$06,$a9,$00,$85<br /> .byte $55,$10,$10,$c6,$55,$10,$0c,$20,$5a,$d0,$20,$65,$d0,$20,$5f,$d0<br /> .byte $20,$7a,$d0,$a5,$4d,$c5,$56,$d0,$03,$4c,$a0,$b0,$a5,$4e,$c5,$4e<br /> .byte $f0,$fc,$4c,$a3,$9f,$a9,$20,$85,$54,$60,$a9,$20,$85,$55,$60,$a6<br /> .byte $4d,$ca,$86,$56,$60,$e6,$4c,$a5,$4c,$c9,$04,$30,$0a,$a9,$00,$85<br /> .byte $4c,$a5,$4a,$49,$01,$85,$4a,$4c,$e9,$b4,$a6,$4a,$bd,$aa,$d2,$8d<br /> .byte $a5,$1e,$bd,$ab,$d2,$8d,$59,$1f,$a5,$4c,$aa,$0a,$0a,$0a,$0a,$18<br /> .byte $69,$b1,$85,$5e,$a9,$00,$69,$d2,$85,$5f,$a0,$0f,$b1,$5e,$99,$ad<br /> .byte $26,$88,$10,$f8,$bd,$ad,$d2,$8d,$ff,$1e,$a5,$7a,$c9,$29,$d0,$16<br /> .byte $a5,$4e,$29,$03,$c9,$03,$d0,$0e,$ce,$96,$1d,$ce,$f0,$1d,$ce,$4b<br /> .byte $1e,$a9,$01,$8d,$ce,$27,$60,$a5,$52,$10,$0e,$a5,$58,$d0,$0d,$ad<br /> .byte $82,$02,$4a,$b0,$f1,$a9,$01,$85,$58,$4c,$94,$b0,$4c,$98,$d2,$a5<br /> .byte $52,$10,$f6,$ad,$80,$02,$c9,$f0,$b0,$21,$4c,$9a,$b0,$a5,$4b,$d0<br /> .byte $ee,$a5,$57,$d0,$0d,$ad,$82,$02,$29,$08,$d0,$0f,$a9,$01,$85,$57<br /> .byte $d0,$38,$ad,$82,$02,$29,$08,$49,$08,$85,$57,$a5,$58,$d0,$0c,$ad<br /> .byte $82,$02,$4a,$b0,$09,$a9,$01,$85,$58,$d0,$be,$20,$98,$d2,$a5,$59<br /> .byte $d0,$0e,$ad,$82,$02,$29,$02,$d0,$10,$a9,$01,$85,$59,$4c,$9a,$b0<br /> .byte $ad,$82,$02,$29,$02,$49,$02,$85,$59,$60,$a5,$4d,$48,$a5,$4e,$48<br /> .byte $8a,$48,$a2,$01,$86,$4b,$ca,$86,$19,$86,$1a,$a6,$4d,$ca,$20,$0b<br /> .byte $d1,$e4,$4d,$d0,$04,$a9,$60,$85,$3c,$ad,$80,$02,$c9,$f0,$b0,$03<br /> .byte $20,$a2,$d2,$a5,$52,$30,$03,$20,$a2,$d2,$a5,$57,$f0,$0b,$ad,$82<br /> .byte $02,$29,$08,$49,$08,$85,$57,$10,$d5,$ad,$82,$02,$29,$08,$d0,$ce<br /> .byte $68,$aa,$68,$85,$4e,$68,$85,$4d,$a9,$01,$85,$57,$4a,$85,$4b,$a9<br /> .byte $40,$85,$3c,$60,$a9,$30,$8d,$00,$22,$a9,$38,$8d,$01,$22,$a9,$36<br /> .byte $8d,$02,$22,$a9,$3e,$8d,$03,$22,$a2,$1e,$a9,$30,$9d,$04,$22,$a9<br /> .byte $34,$9d,$05,$22,$ca,$ca,$10,$f2,$a2,$1c,$86,$70,$bd,$12,$d4,$8d<br /> .byte $91,$01,$bd,$f5,$d3,$85,$71,$a2,$1c,$bd,$c5,$98,$9d,$44,$22,$ca<br /> .byte $10,$f7,$a2,$e7,$bd,$0d,$d3,$9d,$60,$22,$ca,$d0,$f7,$a2,$0b,$86<br /> .byte $72,$bd,$2f,$d4,$8d,$a5,$01,$85,$3d,$bd,$3b,$d4,$8d,$a6,$01,$85<br /> .byte $3e,$bd,$47,$d4,$8d,$a7,$01,$85,$3f,$bd,$53,$d4,$85,$73,$60,$c6<br /> .byte $71,$10,$15,$c6,$70,$10,$04,$a9,$1c,$85,$70,$a6,$70,$bd,$12,$d4<br /> .byte $8d,$91,$01,$bd,$f5,$d3,$85,$71,$ee,$00,$22,$ad,$00,$22,$c9,$38<br /> .byte $90,$05,$a9,$30,$8d,$00,$22,$ee,$02,$22,$ad,$02,$22,$c9,$38,$90<br /> .byte $05,$a9,$30,$8d,$02,$22,$ee,$01,$22,$ad,$01,$22,$c9,$40,$90,$05<br /> .byte $a9,$38,$8d,$01,$22,$ee,$03,$22,$ad,$03,$22,$c9,$40,$90,$05,$a9<br /> .byte $38,$8d,$03,$22,$a2,$1f,$fe,$04,$22,$bd,$04,$22,$c9,$38,$90,$05<br /> .byte $a9,$30,$9d,$04,$22,$ca,$10,$ee,$a5,$73,$30,$2b,$c6,$73,$10,$27<br /> .byte $c6,$72,$10,$04,$a9,$0b,$85,$72,$a6,$72,$bd,$2f,$d4,$8d,$a5,$01<br /> .byte $85,$3d,$bd,$3b,$d4,$8d,$a6,$01,$85,$3e,$bd,$47,$d4,$8d,$a7,$01<br /> .byte $85,$3f,$bd,$53,$d4,$85,$73,$60,$ad,$82,$02,$29,$01,$49,$01,$85<br /> .byte $58,$60,$a9,$40,$85,$3c,$a6,$4d,$ca,$60,$a0,$30,$a0,$00,$20,$45<br /> .byte $62,$00,$00,$00,$00,$18,$1b,$1c,$1e,$22,$22,$1b,$24,$00,$00,$00<br /> .byte $00,$00,$00,$1e,$22,$26,$1b,$24,$21,$1b,$1a,$1e,$17,$26,$1b,$00<br /> .byte $00,$00,$00,$00,$00,$17,$0c,$28,$17,$22,$19,$1b,$1a,$00,$00,$00<br /> .byte $00,$00,$00,$00,$00,$00,$1b,$2a,$23,$1b,$24,$26,$00,$00,$00,$00<br /> .byte $00,$0c,$22,$1b,$00,$23,$20,$17,$2b,$1b,$24,$00,$00,$00,$00,$00<br /> .byte $00,$26,$29,$0c,$00,$23,$20,$17,$2b,$1b,$24,$00,$00,$00,$59,$5a<br /> .byte $5b,$5c,$5d,$5e,$41,$40,$40,$5f,$60,$61,$62,$63,$64,$65,$66,$43<br /> .byte $40,$67,$68,$40,$69,$40,$6a,$6b,$6c,$6d,$6e,$6f,$70,$71,$72,$73<br /> .byte $74,$40,$75,$76,$40,$77,$78,$79,$40,$7a,$7b,$40,$7c,$7d,$7e,$46<br /> .byte $43,$40,$7f,$40,$80,$81,$82,$83,$43,$84,$85,$86,$87,$88,$89,$8a<br /> .byte $8b,$8c,$8d,$40,$42,$8e,$8f,$90,$91,$92,$40,$93,$43,$40,$44,$95<br /> .byte $96,$46,$43,$97,$98,$99,$40,$9a,$9b,$9c,$9d,$46,$9e,$9f,$a0,$a1<br /> .byte $a2,$40,$42,$45,$a3,$a4,$a5,$a6,$40,$a7,$45,$40,$44,$a8,$a9,$aa<br /> .byte $ab,$ac,$ad,$ae,$af,$b0,$40,$b1,$44,$b2,$40,$b3,$b4,$b5,$b6,$44<br /> .byte $44,$40,$42,$45,$42,$46,$44,$b7,$40,$b8,$45,$40,$b9,$ba,$bb,$bc<br /> .byte $40,$bd,$be,$bf,$c0,$c1,$c2,$c3,$c4,$41,$40,$c5,$c6,$c7,$c8,$c9<br /> .byte $40,$ca,$cb,$cc,$40,$42,$43,$40,$cd,$44,$ce,$40,$cf,$d0,$40,$d1<br /> .byte $d2,$d3,$41,$40,$d4,$d5,$d6,$d7,$d8,$d9,$40,$da,$41,$40,$db,$44<br /> .byte $44,$dc,$47,$48,$40,$40,$40,$40,$49,$4a,$4b,$41,$4c,$4d,$4e,$4f<br /> .byte $50,$51,$40,$40,$40,$41,$40,$40,$52,$53,$40,$40,$40,$54,$55,$41<br /> .byte $40,$56,$57,$58,$40,$3c,$03,$03,$3c,$03,$03,$03,$03,$03,$3c,$03<br /> .byte $03,$03,$03,$03,$03,$3c,$03,$03,$03,$3c,$03,$03,$03,$03,$03,$03<br /> .byte $03,$03,$24,$15,$06,$f7,$d6,$c5,$b5,$a5,$95,$85,$76,$67,$58,$49<br /> .byte $3a,$2b,$1d,$1c,$1b,$0c,$0d,$0c,$0b,$1a,$19,$28,$27,$26,$25,$33<br /> .byte $33,$33,$33,$33,$33,$33,$32,$22,$11,$10,$00,$1f,$1e,$1d,$1c,$1b<br /> .byte $1a,$18,$16,$22,$11,$10,$00,$10,$10,$10,$10,$10,$10,$10,$10,$10<br /> .byte $10,$10,$00,$ff,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$a9<br /> .byte $ff,$85,$6b,$85,$6c,$a9,$00,$85,$19,$85,$1a,$60,$c5,$6b,$d0,$09<br /> .byte $a9,$00,$85,$19,$a9,$ff,$85,$6b,$60,$38,$e5,$6c,$d0,$06,$85,$1a<br /> .byte $a9,$ff,$85,$6c,$60,$85,$6a,$a5,$95,$d0,$f9,$a5,$4b,$d0,$f5,$98<br /> .byte $48,$8a,$48,$a0,$01,$a6,$6a,$b9,$6b,$00,$c9,$ff,$f0,$21,$88,$10<br /> .byte $f6,$a5,$6c,$29,$7f,$a8,$bd,$30,$d6,$d9,$30,$d6,$a0,$01,$b0,$0f<br /> .byte $a5,$6b,$29,$7f,$a8,$bd,$30,$d6,$d9,$30,$d6,$90,$08,$a0,$00,$8a<br /> .byte $09,$80,$99,$6b,$00,$68,$aa,$68,$a8,$60,$a5,$4b,$d0,$fb,$a2,$01<br /> .byte $b4,$6b,$c8,$d0,$03,$4c,$a4,$d5,$88,$10,$16,$98,$29,$7f,$95,$6b<br /> .byte $a8,$a9,$01,$9d,$00,$21,$a9,$ff,$9d,$02,$21,$9d,$04,$21,$9d,$06<br /> .byte $21,$b9,$ab,$d5,$85,$5c,$b9,$0a,$d6,$85,$5d,$de,$00,$21,$d0,$d5<br /> .byte $b9,$1d,$d6,$9d,$00,$21,$bc,$02,$21,$fe,$04,$21,$fe,$06,$21,$c8<br /> .byte $b1,$5c,$c9,$ff,$d0,$08,$95,$6b,$a9,$00,$95,$19,$f0,$b7,$c9,$fe<br /> .byte $f0,$14,$c9,$fd,$d0,$1b,$c8,$b1,$5c,$95,$6b,$a8,$b9,$ab,$d5,$85<br /> .byte $5c,$b9,$0a,$d6,$85,$5d,$a0,$00,$98,$9d,$04,$21,$9d,$06,$21,$b1<br /> .byte $5c,$10,$0d,$c8,$b1,$5c,$9d,$00,$21,$88,$b1,$5c,$c8,$4c,$6a,$d5<br /> .byte $0a,$10,$16,$4a,$29,$bf,$9d,$00,$21,$98,$9d,$02,$21,$de,$06,$21<br /> .byte $de,$04,$21,$a9,$00,$95,$19,$f0,$3b,$4a,$95,$17,$98,$9d,$02,$21<br /> .byte $b4,$6b,$b9,$be,$d5,$85,$5c,$b9,$f7,$d5,$85,$5d,$bc,$06,$21,$b1<br /> .byte $5c,$10,$01,$88,$95,$19,$98,$9d,$06,$21,$b4,$6b,$b9,$d1,$d5,$85<br /> .byte $5c,$b9,$e4,$d5,$85,$5d,$bc,$04,$21,$b1,$5c,$10,$01,$88,$95,$15<br /> .byte $98,$9d,$04,$21,$ca,$30,$03,$4c,$d0,$d4,$60,$43,$8d,$be,$cd,$76<br /> .byte $7c,$9d,$9f,$b5,$d8,$e9,$1a,$31,$47,$50,$65,$86,$9b,$b6,$5e,$a6<br /> .byte $c6,$22,$d2,$8d,$d1,$d3,$c7,$e1,$02,$26,$42,$4c,$5b,$d1,$91,$d4<br /> .byte $c1,$78,$cc,$ce,$cc,$cc,$cc,$cf,$cb,$cd,$ce,$cd,$cb,$d0,$cb,$cb<br /> .byte $cc,$cb,$cc,$cb,$d6,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d8<br /> .byte $d8,$d8,$d8,$d8,$d8,$d8,$d8,$d6,$d6,$d6,$d7,$d8,$d7,$d8,$d8,$d7<br /> .byte $d7,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d6,$d6,$d6,$d6,$d7,$d7<br /> .byte $d7,$d7,$d7,$d7,$d7,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$d8,$02,$01,$02<br /> .byte $01,$01,$01,$01,$04,$02,$04,$07,$02,$04,$02,$0e,$01,$02,$01,$01<br /> .byte $00,$09,$05,$09,$02,$04,$02,$08,$04,$05,$05,$00,$03,$04,$06,$03<br /> .byte $07,$00,$02,$0b,$0b,$11,$11,$0f,$0f,$17,$17,$00,$00,$00,$00,$0b<br /> .byte $0b,$11,$11,$0b,$0b,$11,$11,$0f,$0f,$17,$17,$00,$00,$ff,$04,$00<br /> .byte $03,$00,$02,$00,$01,$00,$00,$00,$00,$00,$04,$00,$03,$00,$04,$00<br /> .byte $03,$00,$02,$00,$01,$00,$00,$00,$04,$04,$04,$04,$0d,$0d,$0d,$0d<br /> .byte $0d,$0d,$0d,$0d,$04,$04,$04,$04,$04,$04,$04,$04,$8d,$0c,$0e,$11<br /> .byte $16,$0c,$0e,$11,$16,$0c,$0e,$11,$16,$0c,$0e,$11,$16,$0c,$0e,$11<br /> .byte $16,$0c,$0e,$11,$16,$ff,$0b,$0b,$0b,$0b,$09,$09,$09,$09,$07,$07<br /> .byte $07,$07,$06,$06,$06,$06,$04,$04,$04,$04,$02,$02,$02,$02,$18,$16<br /> .byte $14,$11,$0f,$0d,$0b,$ff,$0b,$0a,$09,$09,$07,$06,$05,$0d,$0c,$0b<br /> .byte $0a,$09,$08,$07,$0d,$0c,$0b,$0a,$09,$08,$07,$0d,$0c,$0b,$0a,$09<br /> .byte $08,$07,$0d,$0c,$0b,$0a,$09,$08,$07,$0d,$0c,$0b,$0a,$09,$08,$07<br /> .byte $0d,$0c,$0b,$0a,$09,$08,$07,$0d,$0c,$0b,$0a,$09,$08,$07,$0d,$0c<br /> .byte $0b,$0a,$09,$08,$07,$0d,$0c,$0b,$0a,$09,$08,$07,$0d,$0c,$0b,$0a<br /> .byte $09,$08,$07,$0d,$0c,$0b,$0a,$09,$08,$07,$0d,$0c,$0b,$0a,$09,$08<br /> .byte $07,$ff,$0f,$0f,$0a,$09,$07,$06,$05,$0e,$0e,$0a,$09,$07,$06,$05<br /> .byte $0c,$0c,$09,$08,$07,$06,$05,$0b,$0b,$09,$08,$07,$06,$05,$0a,$0a<br /> .byte $08,$07,$06,$05,$04,$09,$08,$07,$06,$05,$04,$03,$08,$06,$05,$04<br /> .byte $03,$02,$02,$07,$06,$05,$04,$03,$02,$02,$06,$05,$04,$03,$03,$02<br /> .byte $02,$05,$05,$04,$04,$03,$02,$02,$04,$04,$03,$03,$02,$02,$01,$03<br /> .byte $03,$03,$02,$02,$02,$02,$0f,$10,$11,$12,$1f,$ff,$0f,$10,$11,$12<br /> .byte $0f,$10,$11,$12,$0f,$10,$11,$12,$0f,$10,$11,$12,$ff,$08,$08,$08<br /> .byte $08,$06,$06,$06,$06,$04,$04,$04,$04,$02,$02,$02,$02,$04,$ff,$0f<br /> .byte $14,$18,$1f,$0f,$14,$18,$1f,$0f,$14,$18,$1f,$0f,$14,$18,$1f,$18<br /> .byte $1a,$1c,$1e,$1f,$ff,$08,$08,$08,$08,$08,$08,$08,$08,$07,$08,$09<br /> .byte $0a,$0b,$0c,$0d,$0e,$0f,$ff,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$0a,$09<br /> .byte $09,$09,$09,$08,$07,$06,$05,$04,$1f,$12,$00,$1e,$11,$00,$1d,$10<br /> .byte $ff,$08,$08,$00,$08,$08,$00,$08,$08,$1f,$1f,$1e,$1e,$1d,$1c,$1b<br /> .byte $1a,$19,$18,$17,$16,$15,$14,$13,$12,$11,$10,$0f,$0e,$0d,$0c,$0b<br /> .byte $0a,$ff,$0a,$0a,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08,$08<br /> .byte $08,$08,$08,$08,$07,$06,$05,$04,$03,$02,$0d,$0b,$09,$00,$0d,$0b<br /> .byte $09,$00,$0d,$0b,$09,$ff,$06,$07,$08,$00,$06,$06,$06,$00,$04,$04<br /> .byte $04,$1f,$1f,$1e,$1d,$1c,$1b,$1a,$19,$18,$17,$16,$15,$14,$13,$12<br /> .byte $11,$ff,$0a,$0a,$07,$07,$88,$03,$03,$03,$03,$ff,$08,$07,$06,$05<br /> .byte $04,$04,$04,$04,$04,$04,$04,$04,$04,$04,$ff,$04,$05,$06,$07,$07<br /> .byte $07,$05,$04,$03,$01,$14,$14,$14,$14,$16,$14,$17,$15,$16,$14,$17<br /> .byte $15,$17,$14,$15,$14,$14,$16,$14,$15,$17,$14,$17,$15,$16,$14,$17<br /> .byte $15,$17,$14,$15,$14,$fe,$0f,$11,$13,$15,$17,$19,$1b,$1d,$1e,$1f<br /> .byte $ff,$09,$09,$08,$07,$06,$05,$04,$03,$02,$01,$0f,$0e,$0d,$0c,$0b<br /> .byte $0a,$09,$08,$00,$00,$00,$00,$00,$00,$00,$00,$0f,$0e,$0d,$0c,$0b<br /> .byte $0a,$09,$08,$00,$00,$ff,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18<br /> .byte $ff,$03,$03,$03,$06,$06,$06,$05,$05,$05,$02,$88,$84,$87,$8d,$86<br /> .byte $83,$88,$84,$8a,$82,$20,$09,$d9,$a9,$00,$8d,$0e,$25,$20,$f7,$3f<br /> .byte $60,$20,$09,$d9,$20,$fa,$3f,$a9,$c8,$85,$34,$a9,$00,$85,$fd,$60<br /> .byte $a5,$4c,$85,$62,$20,$09,$d9,$a5,$4a,$f0,$08,$ad,$ae,$27,$d0,$03<br /> .byte $8d,$0e,$25,$20,$fd,$3f,$4c,$e7,$d8,$ad,$00,$39,$c9,$c6,$d0,$61<br /> .byte $ad,$04,$39,$c9,$fe,$d0,$5a,$a2,$0f,$bd,$73,$d9,$9d,$ff,$24,$ca<br /> .byte $d0,$f7,$a2,$28,$bd,$97,$d9,$9d,$b3,$18,$ca,$d0,$f7,$a9,$01,$85<br /> .byte $fd,$20,$dd,$d1,$a5,$62,$aa,$0a,$0a,$0d,$ae,$27,$8d,$02,$25,$bd<br /> .byte $11,$da,$8d,$06,$25,$bd,$15,$da,$8d,$07,$25,$ad,$ae,$27,$f0,$12<br /> .byte $a9,$00,$8d,$af,$27,$a2,$03,$b5,$44,$9d,$af,$27,$ca,$d0,$f8,$4c<br /> .byte $6c,$d9,$a2,$03,$b5,$3f,$9d,$af,$27,$ca,$d0,$f8,$a2,$00,$a0,$25<br /> .byte $60,$68,$68,$60,$8b,$23,$00,$00,$00,$00,$c0,$d9,$af,$27,$83,$d9<br /> .byte $70,$d9,$04,$8f,$27,$cb,$08,$27,$cb,$07,$18,$b4,$07,$18,$bb,$07<br /> .byte $18,$c2,$07,$18,$c9,$07,$18,$d0,$cd,$40,$c0,$f2,$3c,$00,$00,$db<br /> .byte $40,$c0,$ef,$30,$00,$00,$dd,$40,$c8,$f1,$30,$00,$00,$ec,$40,$c8<br /> .byte $ef,$2c,$00,$00,$ec,$40,$c0,$ef,$2c,$ec,$80,$c0,$ff,$a0,$00,$00<br /> .byte $1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$01,$04,$06,$08,$0d,$0d,$04<br /> .byte $11,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$08,$0d,$13,$04,$11,$0c<br /> .byte $04,$03,$08,$00,$13,$04,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$00<br /> .byte $03,$15,$00,$0d,$02,$04,$03,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d<br /> .byte $1d,$04,$17,$0f,$04,$11,$13,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d,$1d<br /> .byte $1d,$c0,$d4,$e6,$f7,$d9,$d9,$d9,$d9,$00,$00,$00,$fa,$ff,$cf,$0d<br /> .byte $0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$0d,$00,$00<br /> .byte $00,$1a,$10,$14,$00,$29,$32,$46,$09,$84,$1e,$bc,$00,$39,$0d,$33<br /> .byte $15,$a9,$85,$0d,$1c,$44,$16,$e3,$e8,$fe,$58,$2a,$fa,$54,$50,$4c<br /> .byte $26,$22,$1e,$93,$ed,$48,$18,$19,$1c,$18,$19,$19,$19,$1c,$1c,$1c<br /> .byte $1d,$1d,$1e,$5e,$67,$82,$64,$68,$72,$7c,$8b,$95,$9f,$a5,$b2,$bf<br /> .byte $c0,$c0,$c0,$c0,$c0,$c0,$c0,$c0,$c0,$c0,$c0,$c0,$c0,$a1,$55,$fb<br /> .byte $c1,$c6,$4e,$53,$d7,$dc,$ad,$a8,$07,$02,$61,$5c,$bb,$b6,$16,$11<br /> .byte $70,$6b,$ca,$c5,$25,$20,$7f,$7a,$d9,$d4,$33,$2e,$8d,$88,$e7,$e2<br /> .byte $42,$3d,$9c,$97,$f6,$f1,$51,$4c,$ab,$a6,$05,$00,$5f,$5a,$ba,$b5<br /> .byte $cb,$d0,$b1,$ac,$a7,$a2,$0c,$07,$02,$fd,$66,$61,$5c,$57,$c0,$bb<br /> .byte $b6,$b1,$1b,$16,$11,$0c,$75,$70,$6b,$66,$cf,$ca,$c5,$c0,$1e,$1f<br /> .byte $1e,$1f,$1f,$18,$18,$1f,$1f,$18,$18,$19,$19,$19,$19,$19,$19,$1a<br /> .byte $1a,$1a,$1a,$1a,$1a,$1b,$1b,$1b,$1b,$1b,$1b,$1c,$1c,$1c,$1c,$1c<br /> .byte $1c,$1d,$1d,$1d,$1d,$1d,$1d,$1e,$1e,$1e,$1e,$1f,$1f,$1f,$1f,$1f<br /> .byte $1f,$1f,$1f,$19,$19,$19,$19,$1a,$1a,$1a,$19,$1a,$1a,$1a,$1a,$1a<br /> .byte $1a,$1a,$1a,$1b,$1b,$1b,$1b,$1b,$1b,$1b,$1b,$1b,$1b,$1b,$1b,$85<br /> .byte $99,$ad,$44,$51,$04,$04,$04,$04,$00,$02,$00,$02,$00,$02,$00,$02<br /> .byte $00,$02,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02<br /> .byte $00,$02,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02,$00,$02<br /> .byte $00,$02,$00,$02,$61,$68,$72,$7c,$81,$89,$93,$9d,$a3,$ab,$b5,$bf<br /> .byte $c3,$c9,$d3,$dd,$df,$e9,$f3,$fd,$02,$0c,$16,$20,$25,$2f,$39,$43<br /> .byte $26,$26,$26,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22<br /> .byte $22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22<br /> .byte $22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22<br /> .byte $22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22,$22<br /> .byte $22,$22,$22,$22,$22,$22,$22,$22,$22,$23,$23,$23,$23,$23,$23,$23<br /> .byte $23,$90,$90,$90,$93,$90,$00,$08,$00,$08,$1e,$1e,$1e,$1e,$1e,$1e<br /> .byte $1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e<br /> .byte $1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e,$1e<br /> .byte $1e,$1e,$1e,$1e,$1e,$1e,$f9,$f6,$f6,$fb,$f8,$f6,$f6,$fa,$f8,$f6<br /> .byte $f6,$fc,$fa,$f6,$f6,$fe,$f6,$f6,$f6,$fb,$f6,$f6,$f6,$fb,$f6,$f6<br /> .byte $f6,$fb,$a0,$a0,$a0,$10,$50,$00,$80,$00,$80,$00,$9a,$00,$9a,$00<br /> .byte $9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00<br /> .byte $9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00,$9a,$00<br /> .byte $9a,$00,$9a,$00,$9a,$00,$9a,$17,$31,$57,$7d,$13,$31,$57,$7d,$13<br /> .byte $31,$57,$7d,$1b,$31,$57,$7d,$0b,$31,$57,$7d,$0b,$31,$57,$7d,$0b<br /> .byte $31,$57,$7d,$0f,$27,$cb,$08,$27,$cb,$47,$18,$4e,$47,$18,$a8,$47<br /> .byte $18,$a8,$47,$18,$a8,$47,$18,$fa,$47,$19,$4c,$47,$19,$a2,$47,$19<br /> .byte $fd,$47,$1a,$57,$47,$1a,$b1,$47,$1b,$0c,$47,$1b,$66,$47,$1b,$c0<br /> .byte $47,$1c,$1e,$47,$1d,$3d,$47,$1d,$93,$47,$1d,$ed,$47,$1e,$48,$47<br /> .byte $1e,$a1,$47,$1e,$fb,$47,$1f,$55,$47,$1f,$b5,$47,$1f,$c1,$47,$1f<br /> .byte $d7,$0f,$27,$cb,$06,$27,$cb,$8f,$27,$cb,$17,$13,$6d,$71,$30,$34<br /> .byte $8e,$82,$86,$8a,$43,$58,$54,$5c,$60,$50,$4c,$ae,$aa,$b6,$b2,$a6<br /> .byte $a2,$c1,$c5,$d1,$c9,$cd,$d7,$db,$e7,$df,$e3,$1a,$1a,$1a,$1a,$1c<br /> .byte $1c,$1c,$1c,$1c,$1c,$1d,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f<br /> .byte $1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$a4,$fb,$aa,$ba<br /> .byte $97,$ba,$a0,$08,$11,$ba,$17,$00,$00,$8e,$ba,$20,$20,$8e,$8e,$a9<br /> .byte $be,$3c,$3c,$8e,$8e,$c4,$c0,$c2,$8e,$8e,$de,$c0,$c2,$a8,$a0,$a8<br /> .byte $a8,$a8,$a8,$a8,$c0,$c0,$a8,$c0,$c0,$c0,$a0,$a8,$c0,$c0,$af,$af<br /> .byte $a0,$a8,$c0,$c0,$af,$af,$a0,$a8,$a8,$af,$af,$a0,$a8,$a8,$1a,$1b<br /> .byte $14,$5c,$17,$5c,$1c,$17,$1a,$5c,$17,$18,$18,$05,$5c,$3e,$3e,$37<br /> .byte $37,$05,$3f,$3e,$3e,$37,$37,$06,$3f,$3f,$37,$37,$03,$3f,$3f,$88<br /> .byte $00,$2e,$38,$6d,$7a,$7c,$00,$8b,$05,$37,$fd,$82,$19,$3b,$f7,$a2<br /> .byte $a0,$a0,$1b,$b0,$f7,$a2,$a0,$a0,$1b,$b0,$b0,$f9,$84,$15,$b0,$b0<br /> .byte $bb,$ca,$7f,$f6,$ba,$eb,$19,$1a,$1b,$1d,$1f,$1f,$71,$85,$99,$ad<br /> .byte $59,$00,$26,$26,$26,$26,$26,$22,$90,$90,$90,$90,$68,$92,$2e,$2e<br /> .byte $2e,$2e,$20,$a8,$58,$b2,$0c,$66,$bb,$13,$6d,$ca,$2a,$7f,$de,$30<br /> .byte $82,$ec,$43,$a1,$f6,$56,$b0,$0a,$4c,$a2,$c1,$d7,$18,$18,$19,$19<br /> .byte $19,$1a,$1a,$1a,$1b,$1b,$1b,$1c,$1c,$1c,$1d,$1d,$1d,$1e,$1e,$1f<br /> .byte $1f,$1f,$1f,$1f,$b2,$c9,$cd,$df,$e3,$1f,$1f,$1f,$1f,$1f,$60,$8a<br /> .byte $34,$71,$1f,$1c,$1c,$1a,$b6,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$ba<br /> .byte $7c,$7c,$9c,$9c,$9c,$9c,$9c,$9c,$9c,$9c,$be,$de,$9e,$9e,$9e,$9e<br /> .byte $9e,$9e,$9e,$9e,$02,$03,$01,$02,$ff,$03,$03,$02,$03,$ff,$04,$04<br /> .byte $04,$05,$ff,$05,$06,$06,$07,$00,$08,$08,$09,$0a,$01,$0a,$0b,$0c<br /> .byte $0b,$01,$0c,$0c,$0f,$0e,$01,$0c,$14,$1e,$26,$00,$80,$00,$5a,$dc<br /> .byte $00,$00,$01,$01,$01,$01,$04,$04,$04,$04,$02,$fc,$fc,$fc,$fc,$fd<br /> .byte $00,$00,$00,$00,$c0,$a0,$80,$40,$10,$04,$02,$01,$00,$00,$00,$00<br /> .byte $7f,$05,$04,$03,$7f,$04,$03,$02,$7f,$03,$02,$01,$00,$00,$00,$40<br /> .byte $00,$e0,$c0,$a0,$80,$00,$80,$40,$10,$03,$02,$01,$01,$00,$00,$00<br /> .byte $02,$02,$01,$01,$20,$d0,$60,$e0,$80,$00,$80,$20,$a0,$30,$e0,$fd<br /> .byte $fd,$fe,$fe,$ff,$00,$00,$01,$01,$02,$02,$03,$04,$04,$ff,$02,$00<br /> .byte $03,$ff,$01,$01,$02,$b3,$b3,$b3,$b3,$b3,$b3,$b3,$b3,$b3,$b3,$b5<br /> .byte $b5,$b5,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$ba,$01,$ff<br /> .byte $01,$ff,$01,$ff,$01,$ff,$01,$ff,$01,$a7,$67,$5f,$37,$5e,$29,$9d<br /> .byte $5b,$be,$be,$be,$be,$be,$be,$be,$be,$be,$be,$c2,$c2,$c2,$bb,$bb<br /> .byte $bb,$bb,$bb,$bb,$bb,$bb,$bb,$bb,$bb,$bb,$1a,$1a,$1a,$1a,$1a,$1a<br /> .byte $1a,$1a,$1a,$1a,$16,$16,$16,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f,$1f<br /> .byte $1f,$1f,$1f,$01,$02,$02,$9c,$9c,$9c,$1c,$1c,$1c,$71,$85,$99,$ad<br /> .byte $26,$26,$26,$26,$03,$08,$0c,$10,$3f,$0f,$0f,$03,$03,$00,$00,$00<br /> .byte $00,$00,$00,$54,$54,$55,$55,$55,$55,$55,$55,$55,$95,$95,$95,$a5<br /> .byte $a9,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa<br /> .byte $aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$ff,$ff,$ff,$ff<br /> .byte $ff,$ff,$ff,$3f,$3f,$0f,$0f,$0f,$0f,$0f,$5f,$5f,$03,$43,$57,$55<br /> .byte $5f,$5f,$5f,$5f,$5f,$5f,$5f,$5f,$95,$95,$5f,$95,$55,$a5,$5f,$a5<br /> .byte $a5,$aa,$af,$aa,$aa,$aa,$af,$aa,$aa,$aa,$af,$aa,$aa,$aa,$af,$aa<br /> .byte $47,$43,$43,$28,$43,$29,$31,$39,$38,$34<br /> <br /> ORG $FF7A<br /> START<br /> JMP GameColdInit<br /> <br /> .byte $3F <br /> .byte $39 <br /> .byte $34 <br /> <br /> CART_SIGNATURE: ; FF80-FFF7<br /> .byte $04,$C4,$76,$30,$6A,$8C,$8A,$3A,$CA,$F5,$BC,$71,$CA,$76,$08,$AB<br /> .byte $75,$58,$CD,$19,$2A,$29,$2E,$F0,$DB,$7B,$84,$98,$A4,$0E,$0A,$7C<br /> .byte $3F,$D8,$93,$8D,$59,$98,$FA,$77,$03,$FF,$E9,$9B,$70,$A8,$B3,$A5<br /> .byte $AA,$E7,$7F,$82,$CF,$DD,$5F,$F4,$54,$79,$BA,$D7,$6D,$73,$26,$CE<br /> .byte $B3,$06,$39,$94,$BA,$74,$A1,$E7,$8F,$AF,$6C,$B2,$E2,$74,$70,$0B<br /> .byte $2E,$68,$F2,$4F,$27,$E2,$AA,$4D,$F7,$B0,$CD,$C6,$9D,$B1,$42,$59<br /> .byte $CE,$0D,$59,$14,$13,$8E,$71,$5C,$A0,$09,$4E,$00,$85,$99,$E7,$CA<br /> .byte $E4,$A5,$D9,$A1,$2B,$47,$A4,$CE<br /> <br /> .byte $FF ; region verification. $FF=all regions<br /> .byte $E7 ; encryption check starts at $E000 <br /> <br /> .word NMI_ROUTINE<br /> .word START<br /> .word IRQ_ROUTINE<br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=Assembly_Source_Code&diff=1289 2025-08-21T01:20:13Z

<p>MSaarna: /* JOUST 7800 NTSC */</p> <hr /> <div>== Assembly Source Code ==<br /> The following source code files will compile on DASM, making them useful for both studying and modifying.<br /> <br /> === [[7800_NTSC_BIOS]] ===<br /> ''The NTSC BIOS does a bit of sanity checking, verifies if the inserted cart is cryptographically signed for 7800 mode.<br /> <br /> <br /> === [[7800 PAL BIOS]] ===<br /> ''The PAL BIOS lacks the cryptographic checks of the NTSC BIOS, due to US munition laws that made export of cryptographic technology illegal.<br /> <br /> <br /> === [[JOUST 7800 NTSC Source Code]] ===<br /> ''A complete disassembly of the finest 8-bit port of Joust.</div>

MSaarna https://7800.8bitdev.org/index.php?title=Main_Page&diff=1288 2025-08-21T01:19:50Z

<p>MSaarna: </p> <hr /> <div>==Atari 7800 Development Wiki Home==<br /> <br /> Welcome to the &lt;b&gt;Atari 7800 Development wiki&lt;/b&gt;! This site aims to be the definitive source for accurate and up-to-date information on &lt;b&gt;programming the Atari 7800 console&lt;/b&gt;. If you're interested in &lt;b&gt;7800 homebrew&lt;/b&gt; programming, you've come to the right place!<br /> <br /> You can begin by checking out one of the links presented in the next section, or you may use the wiki search function to quickly find information on a specific topic.<br /> <br /> ==Wiki Sections==<br /> <br /> <br /> ;The [[7800 Software Guide]] <br /> :An updated version of the documentation originally produced by Atari and GCC. Several inaccuracies have been discovered and corrected, and new sections have been added.<br /> <br /> <br /> ;[[7800AsmDevKit]] <br /> :A quick way to get started with programming the 7800 using assembly language. All the tools you need to create a game, cross-platform and available for multiple OSes. 7800.8bitdev.org is the official home of the 7800AsmDevKit.<br /> <br /> <br /> ;[[7800basic]] <br /> :A quick way to get started with programming the 7800 using a higher level language. 7800basic is a compiled language, designed for efficiency. 7800.8bitdev.org is the official home of 7800basic.<br /> <br /> <br /> ;[[7800 Tutorials and Guides]] <br /> :Covers more advanced 7800 topics.<br /> <br /> <br /> ;[[Emulators and Tools]] <br /> :Covers information on tools useful to the 7800 developer.<br /> <br /> <br /> ;[[Assembly Source Code]]<br /> :Reverse engineered source code in DASM format.<br /> <br /> <br /> ;[[Historic Documents]]<br /> :Various Atari 7800 related historic documents.</div>

MSaarna https://7800.8bitdev.org/index.php?title=Assembly_Source_Code&diff=1286 2025-08-21T01:11:58Z

<p>MSaarna: Created page with &quot;== Assembly Source Code == The following source code files will compile on DASM, making them useful for both studying and modifying. === 7800_NTSC_BIOS === ''The NTSC BIO...&quot;</p> <hr /> <div>== Assembly Source Code ==<br /> The following source code files will compile on DASM, making them useful for both studying and modifying.<br /> <br /> === [[7800_NTSC_BIOS]] ===<br /> ''The NTSC BIOS does a bit of sanity checking, verifies if the inserted cart is cryptographically signed for 7800 mode.<br /> <br /> <br /> === [[7800 PAL BIOS]] ===<br /> ''The PAL BIOS lacks the cryptographic checks of the NTSC BIOS, due to US munition laws that made export of cryptographic technology illegal.<br /> <br /> <br /> === [[JOUST 7800 NTSC]] ===<br /> ''A complete disassembly of the finest 8-bit port of Joust.</div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_PAL_BIOS&diff=1285 2025-08-05T12:58:13Z

<p>MSaarna: </p> <hr /> <div>==7800 PAL BIOS==<br /> <br /> This reverse engineered 7800 PAL BIOS code contains helpful context-comments and builds 1:1 with the official BIOS ROM. In DASM syntax.<br /> <br /> <br /> &lt;pre&gt;<br /> <br /> ; Disassembly of the Atari 7800 PAL BIOS<br /> ;<br /> ; - Daniel Boris &lt;dboris@home.com&gt;<br /> ; - Mike Saarna<br /> ; - Gemini 2.5 Pro<br /> ;<br /> ; Key differences from the NTSC BIOS:<br /> ; 1. Built-in Game: Includes a full version of Asteroids that runs if no<br /> ; valid cartridge is detected.<br /> ; 2. No Encryption: Due to 1980s-era encryption export laws, the complex<br /> ; cart verification from the NTSC BIOS is absent. 7800 cartridge checks<br /> ; just confirm 7800 footer bytes and lack of 2600 ROM mirrors.<br /> ;<br /> ; The code must be assembled with DASM.<br /> <br /> processor 6502<br /> <br /> ;=============================================================================<br /> ;<br /> ; I. HARDWARE AND MEMORY EQUATES<br /> ;<br /> ;=============================================================================<br /> <br /> STACKPTR EQU $FF<br /> REGION EQU $FE<br /> <br /> ; --- TIA (Television Interface Adapter) Registers ---<br /> INPTCTRL EQU $01 ; Input Control Register. Controls memory mapping (BIOS, RAM, Cart) and TIA access.<br /> TIAWSYNC EQU $02 ; TIA's WSYNC, not Maria's<br /> CXP0FB EQU $02 ; TIA Collision Register<br /> CXP1FB EQU $03 ; TIA Collision Register<br /> COLUP0 EQU $06 ; TIA P0 Color<br /> COLUBK EQU $09 ; TIA Background Color<br /> INPT4 EQU $0C ; Input Port 4 (Joystick Triggers)<br /> INPT5 EQU $0D ; Input Port 5 (Joystick Triggers)<br /> AUDC0 EQU $15 ; Audio Control 0<br /> AUDC1 EQU $16 ; Audio Control 1<br /> AUDF0 EQU $17 ; Audio Frequency 0<br /> AUDF1 EQU $18 ; Audio Frequency 1<br /> AUDV0 EQU $19 ; Audio Volume 0<br /> AUDV1 EQU $1A ; Audio Volume 1<br /> <br /> ; --- Maria (Custom Graphics Chip) Registers ---<br /> BACKGRND EQU $20 ; Background Color<br /> P0C1 EQU $21 ; Palette 0, Color 1<br /> P0C2 EQU $22 ; Palette 0, Color 2<br /> P0C3 EQU $23 ; Palette 0, Color 3<br /> WSYNC EQU $24 ; Maria Wait for Sync (halts CPU until horizontal blank)<br /> P1C1 EQU $25 ; Palette 1, Color 1<br /> P1C2 EQU $26 ; Palette 1, Color 2<br /> P1C3 EQU $27 ; Palette 1, Color 3<br /> MSTAT EQU $28 ; Maria Status Register (VBLANK, etc.)<br /> P2C1 EQU $29 ; Palette 2, Color 1<br /> P2C2 EQU $2A ; Palette 2, Color 2<br /> P2C3 EQU $2B ; Palette 2, Color 3<br /> DPPH EQU $2C ; Display List Pointer High Byte<br /> P3C1 EQU $2D ; Palette 3, Color 1<br /> P3C2 EQU $2E ; Palette 3, Color 2<br /> P3C3 EQU $2F ; Palette 3, Color 3<br /> DPPL EQU $30 ; Display List Pointer Low Byte<br /> P4C1 EQU $31 ; Palette 4, Color 1<br /> P4C2 EQU $32 ; Palette 4, Color 2<br /> P4C3 EQU $33 ; Palette 4, Color 3<br /> CHARBASE EQU $34 ; Character Mode High Pointer<br /> P5C1 EQU $35 ; Palette 5, Color 1<br /> P5C2 EQU $36 ; Palette 5, Color 2<br /> P5C3 EQU $37 ; Palette 5, Color 3<br /> OFFSET EQU $38 ; Not used by BIOS<br /> P6C1 EQU $39 ; Palette 6, Color 1<br /> P6C2 EQU $3A ; Palette 6, Color 2<br /> P6C3 EQU $3B ; Palette 6, Color 3<br /> CTRL EQU $3C ; Maria Control Register (DMA, graphics mode)<br /> P7C1 EQU $3D ; Palette 7, Color 1<br /> P7C2 EQU $3E ; Palette 7, Color 2<br /> P7C3 EQU $3F ; Palette 7, Color 3<br /> <br /> ; --- RAM Address Equates ---<br /> RAM_BASE_1 EQU $2000<br /> RAM_BASE_2 EQU $2100<br /> RAM_CODE_BASE EQU $2300<br /> RAM_DLL_BASE EQU $2700<br /> RAM_DLL_START EQU $2707<br /> <br /> ;=============================================================================<br /> ;<br /> ; II. BUILT-IN ASTEROIDS GAME DATA<br /> ;<br /> ;=============================================================================<br /> ORG $C000<br /> ; This directive includes the 15,933 byte ROM image for the built-in<br /> ; Asteroids game. To generate this file from a PAL BIOS ROM on Mac OS<br /> ; or Linux, do the following...<br /> ;<br /> ; dd if=7800pal.rom of=ASTEROID.BIN bs=1 count=15933<br /> <br /> INCBIN &quot;ASTEROID.BIN&quot;<br /> <br /> ;=============================================================================<br /> ;<br /> ; III. MAIN BIOS LOGIC (EXECUTED FROM ROM)<br /> ;<br /> ;=============================================================================<br /> ORG $FE3D<br /> <br /> ; --- Data for Initial Display List ---<br /> ; This data is copied to RAM at RAM_DLL_BASE ($2700) during initialization.<br /> DisplayList_InitialData:<br /> .byte $00 ; DL entry - this is copied to $2700<br /> .byte $40<br /> .byte $F0<br /> .byte $1F<br /> .byte $BB<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $8F ; DLL entry - this is copied repeatedly at $2707<br /> .byte &gt;RAM_DLL_BASE<br /> DisplayList_InitialData_End:<br /> .byte &lt;RAM_DLL_BASE<br /> <br /> ; --- BIOS Entry Point on Power-On/Reset ---<br /> Bios_EntryPoint_Reset:<br /> SEI ; Disable interrupts.<br /> CLD ; Clear decimal mode.<br /> <br /> LDA #$02 ; Enable Maria and map BIOS into memory.<br /> STA INPTCTRL<br /> <br /> LDX #STACKPTR<br /> TXS ; Set stack pointer.<br /> <br /> LDA #$7F<br /> STA CTRL ; Turn off Maria DMA.<br /> LDA #$00<br /> STA BACKGRND ; Set background color to black.<br /> <br /> LDX #$7F ; Copy 2600 mode initialization code to RIOT RAM.<br /> Bios_Copy2600InitToRam_Loop:<br /> LDA TiaInitCode_2600Mode,X ; Move from ROM...<br /> STA $480,X ; ...to RIOT RAM at $0480.<br /> DEX<br /> BPL Bios_Copy2600InitToRam_Loop<br /> <br /> ; Copy the main cartridge checking logic from ROM to system RAM.<br /> ; This is done so the system can disable the BIOS ROM to read the<br /> ; cartridge, while still executing the necessary checker code from RAM.<br /> LDX #[TiaInitCode_2600Mode - RamCode_Start]<br /> Bios_CopyCartCheckToRam_Loop:<br /> LDA RamCode_Start-1,X<br /> STA RAM_CODE_BASE-1,X<br /> DEX<br /> BNE Bios_CopyCartCheckToRam_Loop<br /> <br /> LDA #0 ; Zero out all TIA registers.<br /> TAX<br /> Bios_ClearTiaRegs_Loop:<br /> STA 1,X<br /> INX<br /> CPX #$2C<br /> BNE Bios_ClearTiaRegs_Loop<br /> LDA #$02 ; Switch back into Maria mode.<br /> STA INPTCTRL<br /> <br /> ; Initialize the first 64 bytes of both RAM chips to $FF.<br /> LDA #$FF<br /> LDX #$3F<br /> Bios_InitRam_Loop:<br /> STA RAM_BASE_1,X<br /> STA RAM_BASE_2,X<br /> DEX<br /> BPL Bios_InitRam_Loop<br /> <br /> ; Copy the initial Display List data to its location in RAM.<br /> LDX #(DisplayList_InitialData_End - DisplayList_InitialData)<br /> Bios_CopyDisplayList_Loop:<br /> LDA DisplayList_InitialData,X<br /> STA RAM_DLL_BASE,X<br /> DEX<br /> BPL Bios_CopyDisplayList_Loop<br /> <br /> ; Replicate the last 3 bytes of the DL data to fill out the list.<br /> INX<br /> LDY #80<br /> Bios_FillDisplayList_Loop:<br /> LDA RAM_DLL_START,X<br /> STA RAM_DLL_START+3,X<br /> INX<br /> DEY<br /> BNE Bios_FillDisplayList_Loop<br /> <br /> ; Jump to the cartridge test routine, now located in RAM.<br /> JMP [CartCheck_Start - RamCode_Start + RAM_CODE_BASE]<br /> <br /> ;=============================================================================<br /> ;<br /> ; IV. RAM-EXECUTED CODE (COPIED FROM ROM)<br /> ;<br /> ; This block of code is not executed from its ROM address. It is copied to<br /> ; system RAM starting at RAM_CODE_BASE ($2300) and executed from there.<br /> ;<br /> ;=============================================================================<br /> RamCode_Start: ; (Base address for relative calculations, starts at $FEBD in ROM)<br /> CartCheck_RunInternalGame:<br /> LDA #$13 ; Enable BIOS ROM and Maria.<br /> STA INPTCTRL<br /> JMP StartInternalAsteroidsGame ; Jump to the built-in game.<br /> <br /> CartCheck_Start:<br /> LDA #$16 ; Enable external cartridge ROM and Maria.<br /> STA INPTCTRL<br /> <br /> LDY #$FF<br /> LDX #$7F<br /> ; --- Cartridge Presence Test (Floating Bus Check) ---<br /> ; This loop compares the same ROM regions using different base addresses. <br /> ; If no cart is present, the bus will &quot;float&quot; with the last byte of the opcode<br /> ; (due to bus capacitance) and the last byte of the opcode differs in our test. <br /> ; Therefore, if our compared bytes differ, a cart IS NOT present.<br /> CartCheck_FloatingBus_Loop:<br /> LDA $FE00,X<br /> CMP $FD80,Y<br /> BNE CartCheck_RunInternalGame<br /> DEY<br /> DEX<br /> BPL CartCheck_FloatingBus_Loop<br /> <br /> ; --- Cartridge Reset Vector Test ---<br /> ; A valid cart must have a valid reset vector. $FFFF or $0000 indicates an<br /> ; empty socket or a problem.<br /> LDA $FFFC<br /> AND $FFFD<br /> CMP #$FF<br /> BEQ CartCheck_RunInternalGame ; All lines high -&gt; No cart.<br /> <br /> LDA $FFFC<br /> ORA $FFFD<br /> BEQ CartCheck_RunInternalGame ; All lines low -&gt; No cart.<br /> <br /> ; --- Simple 7800 Signature Checks ---<br /> LDA $FFF8 ; Check region verification byte.<br /> ORA #REGION<br /> CMP #$FF<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF8<br /> EOR #$F0<br /> AND #$F0<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Check Maria signature byte.<br /> AND #$0B ; $07 or $03 are valid values.<br /> CMP #$03<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Get bottom of cart address range.<br /> AND #$F0<br /> CMP #$40 ; Make sure it is not below $4000.<br /> BCC CartCheck_7800Fail_Try2600<br /> <br /> SBC #$01 ; Check that start vector is within cart range.<br /> CMP $FFFD<br /> BCS CartCheck_7800Fail_Try2600<br /> <br /> ; --- Final Header Check ---<br /> ; This appears to be a final, simple checksum or signature validation.<br /> LDA $1BEA<br /> EOR #$FF<br /> STA $1BEA<br /> <br /> TAY<br /> LDX #$05<br /> CartCheck_HeaderValidation_Loop:<br /> LDA $FFFA,X<br /> CMP $DFFA,X<br /> BNE CartCheck_HeaderValidation_Fail<br /> DEX<br /> BPL CartCheck_HeaderValidation_Loop<br /> <br /> CPY $1BEA<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> CartCheck_HeaderValidation_Fail:<br /> LDA #$02<br /> STA INPTCTRL<br /> <br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> <br /> LDA #&gt;(RAM_DLL_START)<br /> STA DPPH<br /> LDA #&lt;(RAM_DLL_START)<br /> STA DPPL ; Set Display List pointer.<br /> LDA #$43<br /> STA $78<br /> STA CTRL ; Turn graphics on.<br /> LDX #$01<br /> Util_WaitTwoFrames:<br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> DEX<br /> BPL Util_WaitTwoFrames<br /> <br /> LDA #$60 ; Turn off graphics DMA.<br /> STA CTRL<br /> <br /> ; --- Boot into 7800 Mode ---<br /> Boot_Enter7800Mode:<br /> LDX #$16 ; Enable cartridge ROM and Maria.<br /> STX INPTCTRL<br /> TXS ; Set stack pointer.<br /> SED ; Set decimal mode.<br /> JMP ($FFFC) ; Jump to the cartridge's reset vector.<br /> <br /> ; --- Boot into 2600 Mode ---<br /> CartCheck_7800Fail_Try2600:<br /> Boot_Enter2600Mode_FromRam:<br /> LDA #$02 ; Enable BIOS ROM.<br /> STA INPTCTRL ; Lock cart in 2600 mode.<br /> JMP $480 ; Execute 2600 init code from RIOT RAM.<br /> <br /> ; --- Utility: Wait for Vertical Blank ---<br /> Util_WaitForVblank:<br /> BIT MSTAT ; Is VBLANK ended yet?<br /> BMI Util_WaitForVblank<br /> Util_WaitForVblank_Start:<br /> BIT MSTAT ; Is VBLANK started yet?<br /> BPL Util_WaitForVblank_Start<br /> RTS<br /> <br /> ; --- 2600 TIA Setup Code (Copied to and executed from RIOT RAM at $0480) ---<br /> TiaInitCode_2600Mode:<br /> LDA #0<br /> TAX<br /> STA INPTCTRL<br /> TiaInit_ClearLoop:<br /> STA $03,X<br /> INX<br /> CPX #$2A<br /> BNE TiaInit_ClearLoop<br /> STA TIAWSYNC<br /> LDA #4<br /> NOP<br /> BMI TiaInit_SetColors1<br /> LDX #4<br /> TiaInit_DelayLoop:<br /> DEX<br /> BPL TiaInit_DelayLoop<br /> TXS<br /> STA $110<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> STA $11<br /> STA $1B<br /> STA $1C<br /> STA $F<br /> NOP<br /> STA TIAWSYNC<br /> LDA #$00<br /> NOP<br /> BMI TiaInit_SetColors1<br /> BIT CXP1FB<br /> BMI TiaInit_SetColors2<br /> TiaInit_SetColors1:<br /> LDA #2<br /> STA COLUBK<br /> STA $F112<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors2:<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors3<br /> LDA #2<br /> STA COLUP0<br /> STA $F118<br /> TiaInit_DummyLabel:<br /> STA $F460<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors3:<br /> STA $2C<br /> LDA #$08<br /> STA $1B<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> NOP<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors1<br /> TiaInit_Finalize:<br /> LDA #$FD<br /> STA 8<br /> JMP ($FFFC)<br /> <br /> ; --- Internal Asteroids Game Startup Logic ---<br /> ; This routine is only called from inside the Asteroids game code.<br /> Asteroids_InternalSubroutine_Equate = $F444<br /> Asteroids_InternalSubroutine:<br /> JSR Asteroids_InternalSubroutine_Equate<br /> LDA $82<br /> BPL Asteroids_Sub_SkipZero<br /> LDA #$00<br /> Asteroids_Sub_SkipZero:<br /> ASL<br /> ASL<br /> CLC<br /> ADC $83<br /> STA $55<br /> LDA #$01<br /> RTS<br /> <br /> StartInternalAsteroidsGame:<br /> JSR Util_WaitForVblank<br /> StartInternalGame_WaitFrame1:<br /> BIT MSTAT<br /> BMI StartInternalGame_WaitFrame1<br /> LDA #$9E<br /> LDY #$00<br /> LDX #$00<br /> StartInternalGame_WaitFrame2:<br /> BIT MSTAT<br /> BMI StartInternalGame_SyncWaitDone<br /> STA WSYNC<br /> STA WSYNC<br /> DEX<br /> BNE StartInternalGame_WaitFrame2<br /> StartInternalGame_SyncWaitDone:<br /> CPX #$78<br /> BCS StartInternalGame_SetDPPL<br /> LDA #$98<br /> LDY #$2B<br /> StartInternalGame_SetDPPL:<br /> STA DPPL<br /> STY $2001<br /> JMP $D000 ; Jump into the Asteroids game code.<br /> <br /> .byte 0,0,0,0,0,0,0,0<br /> .byte 0,0<br /> <br /> ; --- Equates for Asteroids Game Vectors ---<br /> ASTEROIDS_NMI_VECTOR EQU $D2E9<br /> ASTEROIDS_IRQ_VECTOR EQU $D329<br /> <br /> ;=============================================================================<br /> ;<br /> ; V. 6502 HARDWARE VECTORS<br /> ;<br /> ;=============================================================================<br /> .word ASTEROIDS_NMI_VECTOR ; NMI (DLI handler for Asteroids)<br /> .word Bios_EntryPoint_Reset ; RESET<br /> .word ASTEROIDS_IRQ_VECTOR ; IRQ<br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_PAL_BIOS&diff=1284 2025-08-05T12:52:51Z

<p>MSaarna: </p> <hr /> <div>==7800 PAL BIOS==<br /> <br /> This reverse engineered 7800 PAL BIOS code contains helpful context-comments and builds 1:1 with the official BIOS ROM. In DASM syntax.<br /> <br /> <br /> &lt;pre&gt;<br /> <br /> ; Disassembly of the Atari 7800 PAL BIOS<br /> ;<br /> ; - Daniel Boris &lt;dboris@home.com&gt;<br /> ; - Mike Saarna<br /> ; - Gemini 2.5 Pro<br /> ;<br /> ; Key differences from the NTSC BIOS:<br /> ; 1. Built-in Game: Includes a full version of Asteroids that runs if no<br /> ; valid cartridge is detected.<br /> ; 2. No Encryption: Due to 1980s-era export laws, the complex signature<br /> ; verification from the NTSC BIOS is absent. Cartridge checks are simpler.<br /> ;<br /> ; The code must be assembled with DASM.<br /> <br /> processor 6502<br /> <br /> ;=============================================================================<br /> ;<br /> ; I. HARDWARE AND MEMORY EQUATES<br /> ;<br /> ;=============================================================================<br /> <br /> STACKPTR EQU $FF<br /> REGION EQU $FE<br /> <br /> ; --- TIA (Television Interface Adapter) Registers ---<br /> INPTCTRL EQU $01 ; Input Control Register. Controls memory mapping (BIOS, RAM, Cart) and TIA access.<br /> TIAWSYNC EQU $02 ; TIA's WSYNC, not Maria's<br /> CXP0FB EQU $02 ; TIA Collision Register<br /> CXP1FB EQU $03 ; TIA Collision Register<br /> COLUP0 EQU $06 ; TIA P0 Color<br /> COLUBK EQU $09 ; TIA Background Color<br /> INPT4 EQU $0C ; Input Port 4 (Joystick Triggers)<br /> INPT5 EQU $0D ; Input Port 5 (Joystick Triggers)<br /> AUDC0 EQU $15 ; Audio Control 0<br /> AUDC1 EQU $16 ; Audio Control 1<br /> AUDF0 EQU $17 ; Audio Frequency 0<br /> AUDF1 EQU $18 ; Audio Frequency 1<br /> AUDV0 EQU $19 ; Audio Volume 0<br /> AUDV1 EQU $1A ; Audio Volume 1<br /> <br /> ; --- Maria (Custom Graphics Chip) Registers ---<br /> BACKGRND EQU $20 ; Background Color<br /> P0C1 EQU $21 ; Palette 0, Color 1<br /> P0C2 EQU $22 ; Palette 0, Color 2<br /> P0C3 EQU $23 ; Palette 0, Color 3<br /> WSYNC EQU $24 ; Maria Wait for Sync (halts CPU until horizontal blank)<br /> P1C1 EQU $25 ; Palette 1, Color 1<br /> P1C2 EQU $26 ; Palette 1, Color 2<br /> P1C3 EQU $27 ; Palette 1, Color 3<br /> MSTAT EQU $28 ; Maria Status Register (VBLANK, etc.)<br /> P2C1 EQU $29 ; Palette 2, Color 1<br /> P2C2 EQU $2A ; Palette 2, Color 2<br /> P2C3 EQU $2B ; Palette 2, Color 3<br /> DPPH EQU $2C ; Display List Pointer High Byte<br /> P3C1 EQU $2D ; Palette 3, Color 1<br /> P3C2 EQU $2E ; Palette 3, Color 2<br /> P3C3 EQU $2F ; Palette 3, Color 3<br /> DPPL EQU $30 ; Display List Pointer Low Byte<br /> P4C1 EQU $31 ; Palette 4, Color 1<br /> P4C2 EQU $32 ; Palette 4, Color 2<br /> P4C3 EQU $33 ; Palette 4, Color 3<br /> CHARBASE EQU $34 ; Character Mode High Pointer<br /> P5C1 EQU $35 ; Palette 5, Color 1<br /> P5C2 EQU $36 ; Palette 5, Color 2<br /> P5C3 EQU $37 ; Palette 5, Color 3<br /> OFFSET EQU $38 ; Not used by BIOS<br /> P6C1 EQU $39 ; Palette 6, Color 1<br /> P6C2 EQU $3A ; Palette 6, Color 2<br /> P6C3 EQU $3B ; Palette 6, Color 3<br /> CTRL EQU $3C ; Maria Control Register (DMA, graphics mode)<br /> P7C1 EQU $3D ; Palette 7, Color 1<br /> P7C2 EQU $3E ; Palette 7, Color 2<br /> P7C3 EQU $3F ; Palette 7, Color 3<br /> <br /> ; --- RAM Address Equates ---<br /> RAM_BASE_1 EQU $2000<br /> RAM_BASE_2 EQU $2100<br /> RAM_CODE_BASE EQU $2300<br /> RAM_DLL_BASE EQU $2700<br /> RAM_DLL_START EQU $2707<br /> <br /> ;=============================================================================<br /> ;<br /> ; II. BUILT-IN ASTEROIDS GAME DATA<br /> ;<br /> ;=============================================================================<br /> ORG $C000<br /> ; This directive includes the 15,933 byte ROM image for the built-in<br /> ; Asteroids game. To generate this file from a PAL BIOS ROM on Mac OS<br /> ; or Linux, do the following...<br /> ;<br /> ; dd if=7800pal.rom of=ASTEROID.BIN bs=1 count=15933<br /> <br /> INCBIN &quot;ASTEROID.BIN&quot;<br /> <br /> ;=============================================================================<br /> ;<br /> ; III. MAIN BIOS LOGIC (EXECUTED FROM ROM)<br /> ;<br /> ;=============================================================================<br /> ORG $FE3D<br /> <br /> ; --- Data for Initial Display List ---<br /> ; This data is copied to RAM at RAM_DLL_BASE ($2700) during initialization.<br /> DisplayList_InitialData:<br /> .byte $00 ; DL entry - this is copied to $2700<br /> .byte $40<br /> .byte $F0<br /> .byte $1F<br /> .byte $BB<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $8F ; DLL entry - this is copied repeatedly at $2707<br /> .byte &gt;RAM_DLL_BASE<br /> DisplayList_InitialData_End:<br /> .byte &lt;RAM_DLL_BASE<br /> <br /> ; --- BIOS Entry Point on Power-On/Reset ---<br /> Bios_EntryPoint_Reset:<br /> SEI ; Disable interrupts.<br /> CLD ; Clear decimal mode.<br /> <br /> LDA #$02 ; Enable Maria and map BIOS into memory.<br /> STA INPTCTRL<br /> <br /> LDX #STACKPTR<br /> TXS ; Set stack pointer.<br /> <br /> LDA #$7F<br /> STA CTRL ; Turn off Maria DMA.<br /> LDA #$00<br /> STA BACKGRND ; Set background color to black.<br /> <br /> LDX #$7F ; Copy 2600 mode initialization code to RIOT RAM.<br /> Bios_Copy2600InitToRam_Loop:<br /> LDA TiaInitCode_2600Mode,X ; Move from ROM...<br /> STA $480,X ; ...to RIOT RAM at $0480.<br /> DEX<br /> BPL Bios_Copy2600InitToRam_Loop<br /> <br /> ; Copy the main cartridge checking logic from ROM to system RAM.<br /> ; This is done so the system can disable the BIOS ROM to read the<br /> ; cartridge, while still executing the necessary checker code from RAM.<br /> LDX #[TiaInitCode_2600Mode - RamCode_Start]<br /> Bios_CopyCartCheckToRam_Loop:<br /> LDA RamCode_Start-1,X<br /> STA RAM_CODE_BASE-1,X<br /> DEX<br /> BNE Bios_CopyCartCheckToRam_Loop<br /> <br /> LDA #0 ; Zero out all TIA registers.<br /> TAX<br /> Bios_ClearTiaRegs_Loop:<br /> STA 1,X<br /> INX<br /> CPX #$2C<br /> BNE Bios_ClearTiaRegs_Loop<br /> LDA #$02 ; Switch back into Maria mode.<br /> STA INPTCTRL<br /> <br /> ; Initialize the first 64 bytes of both RAM chips to $FF.<br /> LDA #$FF<br /> LDX #$3F<br /> Bios_InitRam_Loop:<br /> STA RAM_BASE_1,X<br /> STA RAM_BASE_2,X<br /> DEX<br /> BPL Bios_InitRam_Loop<br /> <br /> ; Copy the initial Display List data to its location in RAM.<br /> LDX #(DisplayList_InitialData_End - DisplayList_InitialData)<br /> Bios_CopyDisplayList_Loop:<br /> LDA DisplayList_InitialData,X<br /> STA RAM_DLL_BASE,X<br /> DEX<br /> BPL Bios_CopyDisplayList_Loop<br /> <br /> ; Replicate the last 3 bytes of the DL data to fill out the list.<br /> INX<br /> LDY #80<br /> Bios_FillDisplayList_Loop:<br /> LDA RAM_DLL_START,X<br /> STA RAM_DLL_START+3,X<br /> INX<br /> DEY<br /> BNE Bios_FillDisplayList_Loop<br /> <br /> ; Jump to the cartridge test routine, now located in RAM.<br /> JMP [CartCheck_Start - RamCode_Start + RAM_CODE_BASE]<br /> <br /> ;=============================================================================<br /> ;<br /> ; IV. RAM-EXECUTED CODE (COPIED FROM ROM)<br /> ;<br /> ; This block of code is not executed from its ROM address. It is copied to<br /> ; system RAM starting at RAM_CODE_BASE ($2300) and executed from there.<br /> ;<br /> ;=============================================================================<br /> RamCode_Start: ; (Base address for relative calculations, starts at $FEBD in ROM)<br /> CartCheck_RunInternalGame:<br /> LDA #$13 ; Enable BIOS ROM and Maria.<br /> STA INPTCTRL<br /> JMP StartInternalAsteroidsGame ; Jump to the built-in game.<br /> <br /> CartCheck_Start:<br /> LDA #$16 ; Enable external cartridge ROM and Maria.<br /> STA INPTCTRL<br /> <br /> LDY #$FF<br /> LDX #$7F<br /> ; --- Cartridge Presence Test (Floating Bus Check) ---<br /> ; This loop compares the same ROM regions using different base addresses. <br /> ; If no cart is present, the bus will &quot;float&quot; with the last byte of the opcode<br /> ; (due to bus capacitance) and the last byte of the opcode differs in our test. <br /> ; Therefore, if our compared bytes differ, a cart IS NOT present.<br /> CartCheck_FloatingBus_Loop:<br /> LDA $FE00,X<br /> CMP $FD80,Y<br /> BNE CartCheck_RunInternalGame<br /> DEY<br /> DEX<br /> BPL CartCheck_FloatingBus_Loop<br /> <br /> ; --- Cartridge Reset Vector Test ---<br /> ; A valid cart must have a valid reset vector. $FFFF or $0000 indicates an<br /> ; empty socket or a problem.<br /> LDA $FFFC<br /> AND $FFFD<br /> CMP #$FF<br /> BEQ CartCheck_RunInternalGame ; All lines high -&gt; No cart.<br /> <br /> LDA $FFFC<br /> ORA $FFFD<br /> BEQ CartCheck_RunInternalGame ; All lines low -&gt; No cart.<br /> <br /> ; --- Simple 7800 Signature Checks ---<br /> LDA $FFF8 ; Check region verification byte.<br /> ORA #REGION<br /> CMP #$FF<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF8<br /> EOR #$F0<br /> AND #$F0<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Check Maria signature byte.<br /> AND #$0B ; $07 or $03 are valid values.<br /> CMP #$03<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Get bottom of cart address range.<br /> AND #$F0<br /> CMP #$40 ; Make sure it is not below $4000.<br /> BCC CartCheck_7800Fail_Try2600<br /> <br /> SBC #$01 ; Check that start vector is within cart range.<br /> CMP $FFFD<br /> BCS CartCheck_7800Fail_Try2600<br /> <br /> ; --- Final Header Check ---<br /> ; This appears to be a final, simple checksum or signature validation.<br /> LDA $1BEA<br /> EOR #$FF<br /> STA $1BEA<br /> <br /> TAY<br /> LDX #$05<br /> CartCheck_HeaderValidation_Loop:<br /> LDA $FFFA,X<br /> CMP $DFFA,X<br /> BNE CartCheck_HeaderValidation_Fail<br /> DEX<br /> BPL CartCheck_HeaderValidation_Loop<br /> <br /> CPY $1BEA<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> CartCheck_HeaderValidation_Fail:<br /> LDA #$02<br /> STA INPTCTRL<br /> <br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> <br /> LDA #&gt;(RAM_DLL_START)<br /> STA DPPH<br /> LDA #&lt;(RAM_DLL_START)<br /> STA DPPL ; Set Display List pointer.<br /> LDA #$43<br /> STA $78<br /> STA CTRL ; Turn graphics on.<br /> LDX #$01<br /> Util_WaitTwoFrames:<br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> DEX<br /> BPL Util_WaitTwoFrames<br /> <br /> LDA #$60 ; Turn off graphics DMA.<br /> STA CTRL<br /> <br /> ; --- Boot into 7800 Mode ---<br /> Boot_Enter7800Mode:<br /> LDX #$16 ; Enable cartridge ROM and Maria.<br /> STX INPTCTRL<br /> TXS ; Set stack pointer.<br /> SED ; Set decimal mode.<br /> JMP ($FFFC) ; Jump to the cartridge's reset vector.<br /> <br /> ; --- Boot into 2600 Mode ---<br /> CartCheck_7800Fail_Try2600:<br /> Boot_Enter2600Mode_FromRam:<br /> LDA #$02 ; Enable BIOS ROM.<br /> STA INPTCTRL ; Lock cart in 2600 mode.<br /> JMP $480 ; Execute 2600 init code from RIOT RAM.<br /> <br /> ; --- Utility: Wait for Vertical Blank ---<br /> Util_WaitForVblank:<br /> BIT MSTAT ; Is VBLANK ended yet?<br /> BMI Util_WaitForVblank<br /> Util_WaitForVblank_Start:<br /> BIT MSTAT ; Is VBLANK started yet?<br /> BPL Util_WaitForVblank_Start<br /> RTS<br /> <br /> ; --- 2600 TIA Setup Code (Copied to and executed from RIOT RAM at $0480) ---<br /> TiaInitCode_2600Mode:<br /> LDA #0<br /> TAX<br /> STA INPTCTRL<br /> TiaInit_ClearLoop:<br /> STA $03,X<br /> INX<br /> CPX #$2A<br /> BNE TiaInit_ClearLoop<br /> STA TIAWSYNC<br /> LDA #4<br /> NOP<br /> BMI TiaInit_SetColors1<br /> LDX #4<br /> TiaInit_DelayLoop:<br /> DEX<br /> BPL TiaInit_DelayLoop<br /> TXS<br /> STA $110<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> STA $11<br /> STA $1B<br /> STA $1C<br /> STA $F<br /> NOP<br /> STA TIAWSYNC<br /> LDA #$00<br /> NOP<br /> BMI TiaInit_SetColors1<br /> BIT CXP1FB<br /> BMI TiaInit_SetColors2<br /> TiaInit_SetColors1:<br /> LDA #2<br /> STA COLUBK<br /> STA $F112<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors2:<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors3<br /> LDA #2<br /> STA COLUP0<br /> STA $F118<br /> TiaInit_DummyLabel:<br /> STA $F460<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors3:<br /> STA $2C<br /> LDA #$08<br /> STA $1B<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> NOP<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors1<br /> TiaInit_Finalize:<br /> LDA #$FD<br /> STA 8<br /> JMP ($FFFC)<br /> <br /> ; --- Internal Asteroids Game Startup Logic ---<br /> ; This routine is only called from inside the Asteroids game code.<br /> Asteroids_InternalSubroutine_Equate = $F444<br /> Asteroids_InternalSubroutine:<br /> JSR Asteroids_InternalSubroutine_Equate<br /> LDA $82<br /> BPL Asteroids_Sub_SkipZero<br /> LDA #$00<br /> Asteroids_Sub_SkipZero:<br /> ASL<br /> ASL<br /> CLC<br /> ADC $83<br /> STA $55<br /> LDA #$01<br /> RTS<br /> <br /> StartInternalAsteroidsGame:<br /> JSR Util_WaitForVblank<br /> StartInternalGame_WaitFrame1:<br /> BIT MSTAT<br /> BMI StartInternalGame_WaitFrame1<br /> LDA #$9E<br /> LDY #$00<br /> LDX #$00<br /> StartInternalGame_WaitFrame2:<br /> BIT MSTAT<br /> BMI StartInternalGame_SyncWaitDone<br /> STA WSYNC<br /> STA WSYNC<br /> DEX<br /> BNE StartInternalGame_WaitFrame2<br /> StartInternalGame_SyncWaitDone:<br /> CPX #$78<br /> BCS StartInternalGame_SetDPPL<br /> LDA #$98<br /> LDY #$2B<br /> StartInternalGame_SetDPPL:<br /> STA DPPL<br /> STY $2001<br /> JMP $D000 ; Jump into the Asteroids game code.<br /> <br /> .byte 0,0,0,0,0,0,0,0<br /> .byte 0,0<br /> <br /> ; --- Equates for Asteroids Game Vectors ---<br /> ASTEROIDS_NMI_VECTOR EQU $D2E9<br /> ASTEROIDS_IRQ_VECTOR EQU $D329<br /> <br /> ;=============================================================================<br /> ;<br /> ; V. 6502 HARDWARE VECTORS<br /> ;<br /> ;=============================================================================<br /> .word ASTEROIDS_NMI_VECTOR ; NMI (DLI handler for Asteroids)<br /> .word Bios_EntryPoint_Reset ; RESET<br /> .word ASTEROIDS_IRQ_VECTOR ; IRQ<br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:LLM_Creative_Writing.md&diff=1283 2025-07-28T18:30:20Z

<p>MSaarna: MSaarna uploaded a new version of File:LLM Creative Writing.md</p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=File:LLM_Web_App.md&diff=1282 2025-07-28T18:29:26Z

<p>MSaarna: MSaarna uploaded a new version of File:LLM Web App.md</p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=File:LLM_General_Coding.md&diff=1281 2025-07-28T18:28:22Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=LLM_Prompts&diff=1268 2025-07-26T17:18:17Z

<p>MSaarna: </p> <hr /> <div>The following are Markdown-formatted prompt files I’ve developed or enhanced for use with large language models (LLMs). They are tailored to improve task performance in coding, web development, and creative writing.<br /> <br /> If your browser opens these files directly rather than downloading them, you may want to right-click the links and choose “Save link as…” to preserve Unicode characters.<br /> <br /> == [[Media:LLM_General_Coding.md|LLM_General_Coding.md]] ==<br /> This general-purpose coding prompt was originally inspired by a Claude community submission. I later refined it in collaboration with ChatGPT, incorporating insights from recent research on prompt engineering to improve its effectiveness.<br /> <br /> == [[Media:LLM_Web_App.md|LLM_Web_App.md]] ==<br /> This variant is tailored for building simple web applications. It instructs the LLM to produce a single self-contained HTML file as output, which I find useful for sharing prototypes. If you prefer a different output format, you can easily modify that directive in the prompt file using a text editor.<br /> <br /> == [[Media:LLM_Creative_Writing.md|LLM_Creative_Writing.md]] ==<br /> This creative writing prompt guides the LLM to take on multiple collaborative writing roles, enhancing ideation, structure, and narrative quality. It's especially helpful for story development and brainstorming sessions.</div>

MSaarna https://7800.8bitdev.org/index.php?title=LLM_Prompts&diff=1267 2025-07-26T17:15:48Z

<p>MSaarna: Created page with &quot;The following are LLM prompts in Markdown file format that I've found useful for certain tasks. If your browser opens up the files directly, you may want to instead right-clic...&quot;</p> <hr /> <div>The following are LLM prompts in Markdown file format that I've found useful for certain tasks. If your browser opens up the files directly, you may want to instead right-click and &quot;save link as...&quot; to preserve the unicode within.<br /> <br /> == [[Media:LLM_General_Coding.md|LLM_General_Coding.md]] ==<br /> This general coding prompt originated as a Claude community prompt, but I worked with ChatGPT to enhance it's effectiveness based on the latest prompt research.<br /> <br /> == [[Media:LLM_Web_App.md|LLM_Web_App.md]] ==<br /> This is a web-app specific version of the general coding prompt. Note that it's directed to produce a single html file as output, which I prefer for easily giving my apps to others. If this isn't suitable in your context, just open the file with a text editor and modify that directive.<br /> <br /> == [[Media:LLM_Creative_Writing.md|LLM_Creative_Writing.md]] ==<br /> This is my creative writing version of the prompt. It has the LLM take on the several collaborative writing roles.</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:LLM_Creative_Writing.md&diff=1266 2025-07-26T17:13:57Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=File:LLM_Web_App.md&diff=1265 2025-07-26T17:07:25Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_PAL_BIOS&diff=1263 2025-07-24T17:11:40Z

<p>MSaarna: </p> <hr /> <div>==7800 PAL BIOS==<br /> <br /> This reverse engineered 7800 PAL BIOS code contains helpful context-comments and builds 1:1 with the official BIOS ROM. In DASM syntax.<br /> <br /> <br /> &lt;pre&gt;<br /> <br /> ; Disassembly of the Atari 7800 PAL BIOS<br /> ;<br /> ; - Daniel Boris &lt;dboris@home.com&gt;<br /> ; - Mike Saarna<br /> ; - Gemini 2.5 Pro<br /> ;<br /> ; Key differences from the NTSC BIOS:<br /> ; 1. Built-in Game: Includes a full version of Asteroids that runs if no<br /> ; valid cartridge is detected.<br /> ; 2. No Encryption: Due to 1980s-era export laws, the complex signature<br /> ; verification from the NTSC BIOS is absent. Cartridge checks are simpler.<br /> ;<br /> ; The code must be assembled with DASM.<br /> <br /> processor 6502<br /> <br /> ;=============================================================================<br /> ;<br /> ; I. HARDWARE AND MEMORY EQUATES<br /> ;<br /> ;=============================================================================<br /> <br /> STACKPTR EQU $FF<br /> REGION EQU $FE<br /> <br /> ; --- TIA (Television Interface Adapter) Registers ---<br /> INPTCTRL EQU $01 ; Input Control Register. Controls memory mapping (BIOS, RAM, Cart) and TIA access.<br /> TIAWSYNC EQU $02 ; TIA's WSYNC, not Maria's<br /> CXP0FB EQU $02 ; TIA Collision Register<br /> CXP1FB EQU $03 ; TIA Collision Register<br /> COLUP0 EQU $06 ; TIA P0 Color<br /> COLUBK EQU $09 ; TIA Background Color<br /> INPT4 EQU $0C ; Input Port 4 (Joystick Triggers)<br /> INPT5 EQU $0D ; Input Port 5 (Joystick Triggers)<br /> AUDC0 EQU $15 ; Audio Control 0<br /> AUDC1 EQU $16 ; Audio Control 1<br /> AUDF0 EQU $17 ; Audio Frequency 0<br /> AUDF1 EQU $18 ; Audio Frequency 1<br /> AUDV0 EQU $19 ; Audio Volume 0<br /> AUDV1 EQU $1A ; Audio Volume 1<br /> <br /> ; --- Maria (Custom Graphics Chip) Registers ---<br /> BACKGRND EQU $20 ; Background Color<br /> P0C1 EQU $21 ; Palette 0, Color 1<br /> P0C2 EQU $22 ; Palette 0, Color 2<br /> P0C3 EQU $23 ; Palette 0, Color 3<br /> WSYNC EQU $24 ; Maria Wait for Sync (halts CPU until horizontal blank)<br /> P1C1 EQU $25 ; Palette 1, Color 1<br /> P1C2 EQU $26 ; Palette 1, Color 2<br /> P1C3 EQU $27 ; Palette 1, Color 3<br /> MSTAT EQU $28 ; Maria Status Register (VBLANK, etc.)<br /> P2C1 EQU $29 ; Palette 2, Color 1<br /> P2C2 EQU $2A ; Palette 2, Color 2<br /> P2C3 EQU $2B ; Palette 2, Color 3<br /> DPPH EQU $2C ; Display List Pointer High Byte<br /> P3C1 EQU $2D ; Palette 3, Color 1<br /> P3C2 EQU $2E ; Palette 3, Color 2<br /> P3C3 EQU $2F ; Palette 3, Color 3<br /> DPPL EQU $30 ; Display List Pointer Low Byte<br /> P4C1 EQU $31 ; Palette 4, Color 1<br /> P4C2 EQU $32 ; Palette 4, Color 2<br /> P4C3 EQU $33 ; Palette 4, Color 3<br /> CHARBASE EQU $34 ; Character Mode High Pointer<br /> P5C1 EQU $35 ; Palette 5, Color 1<br /> P5C2 EQU $36 ; Palette 5, Color 2<br /> P5C3 EQU $37 ; Palette 5, Color 3<br /> OFFSET EQU $38 ; Not used by BIOS<br /> P6C1 EQU $39 ; Palette 6, Color 1<br /> P6C2 EQU $3A ; Palette 6, Color 2<br /> P6C3 EQU $3B ; Palette 6, Color 3<br /> CTRL EQU $3C ; Maria Control Register (DMA, graphics mode)<br /> P7C1 EQU $3D ; Palette 7, Color 1<br /> P7C2 EQU $3E ; Palette 7, Color 2<br /> P7C3 EQU $3F ; Palette 7, Color 3<br /> <br /> ; --- RAM Address Equates ---<br /> RAM_BASE_1 EQU $2000<br /> RAM_BASE_2 EQU $2100<br /> RAM_CODE_BASE EQU $2300<br /> RAM_DLL_BASE EQU $2700<br /> RAM_DLL_START EQU $2707<br /> <br /> ;=============================================================================<br /> ;<br /> ; II. BUILT-IN ASTEROIDS GAME DATA<br /> ;<br /> ;=============================================================================<br /> ORG $C000<br /> ; This directive includes the 15,933 byte ROM image for the built-in<br /> ; Asteroids game. To generate this file from a PAL BIOS ROM on Mac OS<br /> ; or Linux, do the following...<br /> ;<br /> ; dd if=7800pal.rom of=ASTEROID.BIN bs=1 count=15933<br /> <br /> INCBIN &quot;ASTEROID.BIN&quot;<br /> <br /> ;=============================================================================<br /> ;<br /> ; III. MAIN BIOS LOGIC (EXECUTED FROM ROM)<br /> ;<br /> ;=============================================================================<br /> ORG $FE3D<br /> <br /> ; --- Data for Initial Display List ---<br /> ; This data is copied to RAM at RAM_DLL_BASE ($2700) during initialization.<br /> DisplayList_InitialData:<br /> .byte $00 ; DL entry - this is copied to $2700<br /> .byte $40<br /> .byte $F0<br /> .byte $1F<br /> .byte $BB<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $8F ; DLL entry - this is copied repeatedly at $2707<br /> .byte &gt;RAM_DLL_BASE<br /> DisplayList_InitialData_End:<br /> .byte &lt;RAM_DLL_BASE<br /> <br /> ; --- BIOS Entry Point on Power-On/Reset ---<br /> Bios_EntryPoint_Reset:<br /> SEI ; Disable interrupts.<br /> CLD ; Clear decimal mode.<br /> <br /> LDA #$02 ; Enable Maria and map BIOS into memory.<br /> STA INPTCTRL<br /> <br /> LDX #STACKPTR<br /> TXS ; Set stack pointer.<br /> <br /> LDA #$7F<br /> STA CTRL ; Turn off Maria DMA.<br /> LDA #$00<br /> STA BACKGRND ; Set background color to black.<br /> <br /> LDX #$7F ; Copy 2600 mode initialization code to RIOT RAM.<br /> Bios_Copy2600InitToRam_Loop:<br /> LDA TiaInitCode_2600Mode,X ; Move from ROM...<br /> STA $480,X ; ...to RIOT RAM at $0480.<br /> DEX<br /> BPL Bios_Copy2600InitToRam_Loop<br /> <br /> ; Copy the main cartridge checking logic from ROM to system RAM.<br /> ; This is done so the system can disable the BIOS ROM to read the<br /> ; cartridge, while still executing the necessary checker code from RAM.<br /> LDX #[TiaInitCode_2600Mode - RamCode_Start]<br /> Bios_CopyCartCheckToRam_Loop:<br /> LDA RamCode_Start-1,X<br /> STA RAM_CODE_BASE-1,X<br /> DEX<br /> BNE Bios_CopyCartCheckToRam_Loop<br /> <br /> LDA #0 ; Zero out all TIA registers.<br /> TAX<br /> Bios_ClearTiaRegs_Loop:<br /> STA 1,X<br /> INX<br /> CPX #$2C<br /> BNE Bios_ClearTiaRegs_Loop<br /> LDA #$02 ; Switch back into Maria mode.<br /> STA INPTCTRL<br /> <br /> ; Initialize the first 64 bytes of both RAM chips to $FF.<br /> LDA #$FF<br /> LDX #$3F<br /> Bios_InitRam_Loop:<br /> STA RAM_BASE_1,X<br /> STA RAM_BASE_2,X<br /> DEX<br /> BPL Bios_InitRam_Loop<br /> <br /> ; Copy the initial Display List data to its location in RAM.<br /> LDX #(DisplayList_InitialData_End - DisplayList_InitialData)<br /> Bios_CopyDisplayList_Loop:<br /> LDA DisplayList_InitialData,X<br /> STA RAM_DLL_BASE,X<br /> DEX<br /> BPL Bios_CopyDisplayList_Loop<br /> <br /> ; Replicate the last 3 bytes of the DL data to fill out the list.<br /> INX<br /> LDY #80<br /> Bios_FillDisplayList_Loop:<br /> LDA RAM_DLL_START,X<br /> STA RAM_DLL_START+3,X<br /> INX<br /> DEY<br /> BNE Bios_FillDisplayList_Loop<br /> <br /> ; Jump to the cartridge test routine, now located in RAM.<br /> JMP [CartCheck_Start - RamCode_Start + RAM_CODE_BASE]<br /> <br /> ;=============================================================================<br /> ;<br /> ; IV. RAM-EXECUTED CODE (COPIED FROM ROM)<br /> ;<br /> ; This block of code is not executed from its ROM address. It is copied to<br /> ; system RAM starting at RAM_CODE_BASE ($2300) and executed from there.<br /> ;<br /> ;=============================================================================<br /> RamCode_Start: ; (Base address for relative calculations, starts at $FEBD in ROM)<br /> CartCheck_RunInternalGame:<br /> LDA #$13 ; Enable BIOS ROM and Maria.<br /> STA INPTCTRL<br /> JMP StartInternalAsteroidsGame ; Jump to the built-in game.<br /> <br /> CartCheck_Start:<br /> LDA #$16 ; Enable external cartridge ROM and Maria.<br /> STA INPTCTRL<br /> <br /> LDY #$FF<br /> LDX #$7F<br /> ; --- Cartridge Presence Test (Floating Bus Check) ---<br /> ; This loop compares the same ROM regions using different base addresses. <br /> ; If no cart is present, the bus will &quot;float&quot; with the last byte of the opcode<br /> ; which differs in our test. Therefore, if the compared bytes differ, then <br /> ; If a cart IS NOT present.<br /> CartCheck_FloatingBus_Loop:<br /> LDA $FE00,X<br /> CMP $FD80,Y<br /> BNE CartCheck_RunInternalGame<br /> DEY<br /> DEX<br /> BPL CartCheck_FloatingBus_Loop<br /> <br /> ; --- Cartridge Reset Vector Test ---<br /> ; A valid cart must have a valid reset vector. $FFFF or $0000 indicates an<br /> ; empty socket or a problem.<br /> LDA $FFFC<br /> AND $FFFD<br /> CMP #$FF<br /> BEQ CartCheck_RunInternalGame ; All lines high -&gt; No cart.<br /> <br /> LDA $FFFC<br /> ORA $FFFD<br /> BEQ CartCheck_RunInternalGame ; All lines low -&gt; No cart.<br /> <br /> ; --- Simple 7800 Signature Checks ---<br /> LDA $FFF8 ; Check region verification byte.<br /> ORA #REGION<br /> CMP #$FF<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF8<br /> EOR #$F0<br /> AND #$F0<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Check Maria signature byte.<br /> AND #$0B ; $07 or $03 are valid values.<br /> CMP #$03<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Get bottom of cart address range.<br /> AND #$F0<br /> CMP #$40 ; Make sure it is not below $4000.<br /> BCC CartCheck_7800Fail_Try2600<br /> <br /> SBC #$01 ; Check that start vector is within cart range.<br /> CMP $FFFD<br /> BCS CartCheck_7800Fail_Try2600<br /> <br /> ; --- Final Header Check ---<br /> ; This appears to be a final, simple checksum or signature validation.<br /> LDA $1BEA<br /> EOR #$FF<br /> STA $1BEA<br /> <br /> TAY<br /> LDX #$05<br /> CartCheck_HeaderValidation_Loop:<br /> LDA $FFFA,X<br /> CMP $DFFA,X<br /> BNE CartCheck_HeaderValidation_Fail<br /> DEX<br /> BPL CartCheck_HeaderValidation_Loop<br /> <br /> CPY $1BEA<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> CartCheck_HeaderValidation_Fail:<br /> LDA #$02<br /> STA INPTCTRL<br /> <br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> <br /> LDA #&gt;(RAM_DLL_START)<br /> STA DPPH<br /> LDA #&lt;(RAM_DLL_START)<br /> STA DPPL ; Set Display List pointer.<br /> LDA #$43<br /> STA $78<br /> STA CTRL ; Turn graphics on.<br /> LDX #$01<br /> Util_WaitTwoFrames:<br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> DEX<br /> BPL Util_WaitTwoFrames<br /> <br /> LDA #$60 ; Turn off graphics DMA.<br /> STA CTRL<br /> <br /> ; --- Boot into 7800 Mode ---<br /> Boot_Enter7800Mode:<br /> LDX #$16 ; Enable cartridge ROM and Maria.<br /> STX INPTCTRL<br /> TXS ; Set stack pointer.<br /> SED ; Set decimal mode.<br /> JMP ($FFFC) ; Jump to the cartridge's reset vector.<br /> <br /> ; --- Boot into 2600 Mode ---<br /> CartCheck_7800Fail_Try2600:<br /> Boot_Enter2600Mode_FromRam:<br /> LDA #$02 ; Enable BIOS ROM.<br /> STA INPTCTRL ; Lock cart in 2600 mode.<br /> JMP $480 ; Execute 2600 init code from RIOT RAM.<br /> <br /> ; --- Utility: Wait for Vertical Blank ---<br /> Util_WaitForVblank:<br /> BIT MSTAT ; Is VBLANK ended yet?<br /> BMI Util_WaitForVblank<br /> Util_WaitForVblank_Start:<br /> BIT MSTAT ; Is VBLANK started yet?<br /> BPL Util_WaitForVblank_Start<br /> RTS<br /> <br /> ; --- 2600 TIA Setup Code (Copied to and executed from RIOT RAM at $0480) ---<br /> TiaInitCode_2600Mode:<br /> LDA #0<br /> TAX<br /> STA INPTCTRL<br /> TiaInit_ClearLoop:<br /> STA $03,X<br /> INX<br /> CPX #$2A<br /> BNE TiaInit_ClearLoop<br /> STA TIAWSYNC<br /> LDA #4<br /> NOP<br /> BMI TiaInit_SetColors1<br /> LDX #4<br /> TiaInit_DelayLoop:<br /> DEX<br /> BPL TiaInit_DelayLoop<br /> TXS<br /> STA $110<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> STA $11<br /> STA $1B<br /> STA $1C<br /> STA $F<br /> NOP<br /> STA TIAWSYNC<br /> LDA #$00<br /> NOP<br /> BMI TiaInit_SetColors1<br /> BIT CXP1FB<br /> BMI TiaInit_SetColors2<br /> TiaInit_SetColors1:<br /> LDA #2<br /> STA COLUBK<br /> STA $F112<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors2:<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors3<br /> LDA #2<br /> STA COLUP0<br /> STA $F118<br /> TiaInit_DummyLabel:<br /> STA $F460<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors3:<br /> STA $2C<br /> LDA #$08<br /> STA $1B<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> NOP<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors1<br /> TiaInit_Finalize:<br /> LDA #$FD<br /> STA 8<br /> JMP ($FFFC)<br /> <br /> ; --- Internal Asteroids Game Startup Logic ---<br /> ; This routine is only called from inside the Asteroids game code.<br /> Asteroids_InternalSubroutine_Equate = $F444<br /> Asteroids_InternalSubroutine:<br /> JSR Asteroids_InternalSubroutine_Equate<br /> LDA $82<br /> BPL Asteroids_Sub_SkipZero<br /> LDA #$00<br /> Asteroids_Sub_SkipZero:<br /> ASL<br /> ASL<br /> CLC<br /> ADC $83<br /> STA $55<br /> LDA #$01<br /> RTS<br /> <br /> StartInternalAsteroidsGame:<br /> JSR Util_WaitForVblank<br /> StartInternalGame_WaitFrame1:<br /> BIT MSTAT<br /> BMI StartInternalGame_WaitFrame1<br /> LDA #$9E<br /> LDY #$00<br /> LDX #$00<br /> StartInternalGame_WaitFrame2:<br /> BIT MSTAT<br /> BMI StartInternalGame_SyncWaitDone<br /> STA WSYNC<br /> STA WSYNC<br /> DEX<br /> BNE StartInternalGame_WaitFrame2<br /> StartInternalGame_SyncWaitDone:<br /> CPX #$78<br /> BCS StartInternalGame_SetDPPL<br /> LDA #$98<br /> LDY #$2B<br /> StartInternalGame_SetDPPL:<br /> STA DPPL<br /> STY $2001<br /> JMP $D000 ; Jump into the Asteroids game code.<br /> <br /> .byte 0,0,0,0,0,0,0,0<br /> .byte 0,0<br /> <br /> ; --- Equates for Asteroids Game Vectors ---<br /> ASTEROIDS_NMI_VECTOR EQU $D2E9<br /> ASTEROIDS_IRQ_VECTOR EQU $D329<br /> <br /> ;=============================================================================<br /> ;<br /> ; V. 6502 HARDWARE VECTORS<br /> ;<br /> ;=============================================================================<br /> .word ASTEROIDS_NMI_VECTOR ; NMI (DLI handler for Asteroids)<br /> .word Bios_EntryPoint_Reset ; RESET<br /> .word ASTEROIDS_IRQ_VECTOR ; IRQ<br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1262 2025-07-20T20:03:08Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In reverse chronological order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:7800_keyboard_programming.pdf|7800_keyboard_programming.pdf]] ===<br /> ''GCC's guide to programming the planned 7800 Prosystem keyboard peripheral. (June 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_ntsc_bios_source_code.pdf|7800_ntsc_bios_source_code.pdf]] ===<br /> ''A rough scan of the 7800's NTSC BIOS source code. (April 1984)''<br /> <br /> * '''Note 1:''' If you want this information for development purposes, you might wish to check out the [[7800_NTSC_BIOS]] or [[7800 PAL BIOS]] pages, both of which can build with modern assemblers.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. (??? 1984)''<br /> * '''Note 1:''' If you want this information for development purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era.<br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1261 2025-07-20T20:02:19Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In reverse chronological order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:7800_keyboard_programming.pdf|7800_keyboard_programming.pdf]] ===<br /> ''GCC's guide to programming the planned 7800 Prosystem keyboard peripheral. (June 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_ntsc_bios_source_code.pdf|7800_ntsc_bios_source_code.pdf]] ===<br /> ''A rough scan of the 7800's NTSC BIOS source code. (April 1984)''<br /> <br /> * '''Note 1:''' If you want this information for development purposes, you might wish to check out the [[7800_NTSC_BIOS]] page, or the [[7800 PAL BIOS]] page, both of which can build with modern assemblers.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. (??? 1984)''<br /> * '''Note 1:''' If you want this information for development purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era.<br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.</div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_PAL_BIOS&diff=1260 2025-07-20T20:00:58Z

<p>MSaarna: Created page with &quot;==7800 PAL BIOS== This reverse engineered 7800 PAL BIOS code contains helpful context-comments and builds a 1:1 with the official BIOS ROM. In DASM syntax. &lt;pre&gt; ; Disasse...&quot;</p> <hr /> <div>==7800 PAL BIOS==<br /> <br /> This reverse engineered 7800 PAL BIOS code contains helpful context-comments and builds a 1:1 with the official BIOS ROM. In DASM syntax.<br /> <br /> <br /> &lt;pre&gt;<br /> <br /> ; Disassembly of the Atari 7800 PAL BIOS<br /> ;<br /> ; - Daniel Boris &lt;dboris@home.com&gt;<br /> ; - Mike Saarna<br /> ; - Gemini 2.5 Pro<br /> ;<br /> ; Key differences from the NTSC BIOS:<br /> ; 1. Built-in Game: Includes a full version of Asteroids that runs if no<br /> ; valid cartridge is detected.<br /> ; 2. No Encryption: Due to 1980s-era export laws, the complex signature<br /> ; verification from the NTSC BIOS is absent. Cartridge checks are simpler.<br /> ;<br /> ; The code must be assembled with DASM.<br /> <br /> processor 6502<br /> <br /> ;=============================================================================<br /> ;<br /> ; I. HARDWARE AND MEMORY EQUATES<br /> ;<br /> ;=============================================================================<br /> <br /> STACKPTR EQU $FF<br /> REGION EQU $FE<br /> <br /> ; --- TIA (Television Interface Adapter) Registers ---<br /> INPTCTRL EQU $01 ; Input Control Register. Controls memory mapping (BIOS, RAM, Cart) and TIA access.<br /> TIAWSYNC EQU $02 ; TIA's WSYNC, not Maria's<br /> CXP0FB EQU $02 ; TIA Collision Register<br /> CXP1FB EQU $03 ; TIA Collision Register<br /> COLUP0 EQU $06 ; TIA P0 Color<br /> COLUBK EQU $09 ; TIA Background Color<br /> INPT4 EQU $0C ; Input Port 4 (Joystick Triggers)<br /> INPT5 EQU $0D ; Input Port 5 (Joystick Triggers)<br /> AUDC0 EQU $15 ; Audio Control 0<br /> AUDC1 EQU $16 ; Audio Control 1<br /> AUDF0 EQU $17 ; Audio Frequency 0<br /> AUDF1 EQU $18 ; Audio Frequency 1<br /> AUDV0 EQU $19 ; Audio Volume 0<br /> AUDV1 EQU $1A ; Audio Volume 1<br /> <br /> ; --- Maria (Custom Graphics Chip) Registers ---<br /> BACKGRND EQU $20 ; Background Color<br /> P0C1 EQU $21 ; Palette 0, Color 1<br /> P0C2 EQU $22 ; Palette 0, Color 2<br /> P0C3 EQU $23 ; Palette 0, Color 3<br /> WSYNC EQU $24 ; Maria Wait for Sync (halts CPU until horizontal blank)<br /> P1C1 EQU $25 ; Palette 1, Color 1<br /> P1C2 EQU $26 ; Palette 1, Color 2<br /> P1C3 EQU $27 ; Palette 1, Color 3<br /> MSTAT EQU $28 ; Maria Status Register (VBLANK, etc.)<br /> P2C1 EQU $29 ; Palette 2, Color 1<br /> P2C2 EQU $2A ; Palette 2, Color 2<br /> P2C3 EQU $2B ; Palette 2, Color 3<br /> DPPH EQU $2C ; Display List Pointer High Byte<br /> P3C1 EQU $2D ; Palette 3, Color 1<br /> P3C2 EQU $2E ; Palette 3, Color 2<br /> P3C3 EQU $2F ; Palette 3, Color 3<br /> DPPL EQU $30 ; Display List Pointer Low Byte<br /> P4C1 EQU $31 ; Palette 4, Color 1<br /> P4C2 EQU $32 ; Palette 4, Color 2<br /> P4C3 EQU $33 ; Palette 4, Color 3<br /> CHARBASE EQU $34 ; Character Mode High Pointer<br /> P5C1 EQU $35 ; Palette 5, Color 1<br /> P5C2 EQU $36 ; Palette 5, Color 2<br /> P5C3 EQU $37 ; Palette 5, Color 3<br /> OFFSET EQU $38 ; Not used by BIOS<br /> P6C1 EQU $39 ; Palette 6, Color 1<br /> P6C2 EQU $3A ; Palette 6, Color 2<br /> P6C3 EQU $3B ; Palette 6, Color 3<br /> CTRL EQU $3C ; Maria Control Register (DMA, graphics mode)<br /> P7C1 EQU $3D ; Palette 7, Color 1<br /> P7C2 EQU $3E ; Palette 7, Color 2<br /> P7C3 EQU $3F ; Palette 7, Color 3<br /> <br /> ; --- RAM Address Equates ---<br /> RAM_BASE_1 EQU $2000<br /> RAM_BASE_2 EQU $2100<br /> RAM_CODE_BASE EQU $2300<br /> RAM_DLL_BASE EQU $2700<br /> RAM_DLL_START EQU $2707<br /> <br /> ;=============================================================================<br /> ;<br /> ; II. BUILT-IN ASTEROIDS GAME DATA<br /> ;<br /> ;=============================================================================<br /> ORG $C000<br /> ; This directive includes the 15,933 byte ROM image for the built-in<br /> ; Asteroids game. To generate this file from a PAL BIOS ROM on Mac OS<br /> ; or Linux, do the following...<br /> ;<br /> ; dd if=7800pal.rom of=ASTEROID.BIN bs=1 count=15933<br /> <br /> INCBIN &quot;ASTEROID.BIN&quot;<br /> <br /> ;=============================================================================<br /> ;<br /> ; III. MAIN BIOS LOGIC (EXECUTED FROM ROM)<br /> ;<br /> ;=============================================================================<br /> ORG $FE3D<br /> <br /> ; --- Data for Initial Display List ---<br /> ; This data is copied to RAM at RAM_DLL_BASE ($2700) during initialization.<br /> DisplayList_InitialData:<br /> .byte $00 ; DL entry - this is copied to $2700<br /> .byte $40<br /> .byte $F0<br /> .byte $1F<br /> .byte $BB<br /> .byte $00<br /> .byte $00<br /> <br /> .byte $8F ; DLL entry - this is copied repeatedly at $2707<br /> .byte &gt;RAM_DLL_BASE<br /> DisplayList_InitialData_End:<br /> .byte &lt;RAM_DLL_BASE<br /> <br /> ; --- BIOS Entry Point on Power-On/Reset ---<br /> Bios_EntryPoint_Reset:<br /> SEI ; Disable interrupts.<br /> CLD ; Clear decimal mode.<br /> <br /> LDA #$02 ; Enable Maria and map BIOS into memory.<br /> STA INPTCTRL<br /> <br /> LDX #STACKPTR<br /> TXS ; Set stack pointer.<br /> <br /> LDA #$7F<br /> STA CTRL ; Turn off Maria DMA.<br /> LDA #$00<br /> STA BACKGRND ; Set background color to black.<br /> <br /> LDX #$7F ; Copy 2600 mode initialization code to RIOT RAM.<br /> Bios_Copy2600InitToRam_Loop:<br /> LDA TiaInitCode_2600Mode,X ; Move from ROM...<br /> STA $480,X ; ...to RIOT RAM at $0480.<br /> DEX<br /> BPL Bios_Copy2600InitToRam_Loop<br /> <br /> ; Copy the main cartridge checking logic from ROM to system RAM.<br /> ; This is done so the system can disable the BIOS ROM to read the<br /> ; cartridge, while still executing the necessary checker code from RAM.<br /> LDX #[TiaInitCode_2600Mode - RamCode_Start]<br /> Bios_CopyCartCheckToRam_Loop:<br /> LDA RamCode_Start-1,X<br /> STA RAM_CODE_BASE-1,X<br /> DEX<br /> BNE Bios_CopyCartCheckToRam_Loop<br /> <br /> LDA #0 ; Zero out all TIA registers.<br /> TAX<br /> Bios_ClearTiaRegs_Loop:<br /> STA 1,X<br /> INX<br /> CPX #$2C<br /> BNE Bios_ClearTiaRegs_Loop<br /> LDA #$02 ; Switch back into Maria mode.<br /> STA INPTCTRL<br /> <br /> ; Initialize the first 64 bytes of both RAM chips to $FF.<br /> LDA #$FF<br /> LDX #$3F<br /> Bios_InitRam_Loop:<br /> STA RAM_BASE_1,X<br /> STA RAM_BASE_2,X<br /> DEX<br /> BPL Bios_InitRam_Loop<br /> <br /> ; Copy the initial Display List data to its location in RAM.<br /> LDX #(DisplayList_InitialData_End - DisplayList_InitialData)<br /> Bios_CopyDisplayList_Loop:<br /> LDA DisplayList_InitialData,X<br /> STA RAM_DLL_BASE,X<br /> DEX<br /> BPL Bios_CopyDisplayList_Loop<br /> <br /> ; Replicate the last 3 bytes of the DL data to fill out the list.<br /> INX<br /> LDY #80<br /> Bios_FillDisplayList_Loop:<br /> LDA RAM_DLL_START,X<br /> STA RAM_DLL_START+3,X<br /> INX<br /> DEY<br /> BNE Bios_FillDisplayList_Loop<br /> <br /> ; Jump to the cartridge test routine, now located in RAM.<br /> JMP [CartCheck_Start - RamCode_Start + RAM_CODE_BASE]<br /> <br /> ;=============================================================================<br /> ;<br /> ; IV. RAM-EXECUTED CODE (COPIED FROM ROM)<br /> ;<br /> ; This block of code is not executed from its ROM address. It is copied to<br /> ; system RAM starting at RAM_CODE_BASE ($2300) and executed from there.<br /> ;<br /> ;=============================================================================<br /> RamCode_Start: ; (Base address for relative calculations, starts at $FEBD in ROM)<br /> CartCheck_RunInternalGame:<br /> LDA #$13 ; Enable BIOS ROM and Maria.<br /> STA INPTCTRL<br /> JMP StartInternalAsteroidsGame ; Jump to the built-in game.<br /> <br /> CartCheck_Start:<br /> LDA #$16 ; Enable external cartridge ROM and Maria.<br /> STA INPTCTRL<br /> <br /> LDY #$FF<br /> LDX #$7F<br /> ; --- Cartridge Presence Test (Floating Bus Check) ---<br /> ; This loop compares the same ROM regions using different base addresses. <br /> ; If no cart is present, the bus will &quot;float&quot; with the last byte of the opcode<br /> ; which differs in our test. Therefore, if the compared bytes differ, then <br /> ; If a cart IS NOT present.<br /> CartCheck_FloatingBus_Loop:<br /> LDA $FE00,X<br /> CMP $FD80,Y<br /> BNE CartCheck_RunInternalGame<br /> DEY<br /> DEX<br /> BPL CartCheck_FloatingBus_Loop<br /> <br /> ; --- Cartridge Reset Vector Test ---<br /> ; A valid cart must have a valid reset vector. $FFFF or $0000 indicates an<br /> ; empty socket or a problem.<br /> LDA $FFFC<br /> AND $FFFD<br /> CMP #$FF<br /> BEQ CartCheck_RunInternalGame ; All lines high -&gt; No cart.<br /> <br /> LDA $FFFC<br /> ORA $FFFD<br /> BEQ CartCheck_RunInternalGame ; All lines low -&gt; No cart.<br /> <br /> ; --- Simple 7800 Signature Checks ---<br /> LDA $FFF8 ; Check region verification byte.<br /> ORA #REGION<br /> CMP #$FF<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF8<br /> EOR #$F0<br /> AND #$F0<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Check Maria signature byte.<br /> AND #$0B ; $07 or $03 are valid values.<br /> CMP #$03<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> LDA $FFF9 ; Get bottom of cart address range.<br /> AND #$F0<br /> CMP #$40 ; Make sure it is not below $4000.<br /> BCC CartCheck_7800Fail_Try2600<br /> <br /> SBC #$01 ; Check that start vector is within cart range.<br /> CMP $FFFD<br /> BCS CartCheck_7800Fail_Try2600<br /> <br /> ; --- Final Header Check ---<br /> ; This appears to be a final, simple checksum or signature validation.<br /> LDA $1BEA<br /> EOR #$FF<br /> STA $1BEA<br /> <br /> TAY<br /> LDX #$05<br /> CartCheck_HeaderValidation_Loop:<br /> LDA $FFFA,X<br /> CMP $DFFA,X<br /> BNE CartCheck_HeaderValidation_Fail<br /> DEX<br /> BPL CartCheck_HeaderValidation_Loop<br /> <br /> CPY $1BEA<br /> BNE CartCheck_7800Fail_Try2600<br /> <br /> CartCheck_HeaderValidation_Fail:<br /> LDA #$02<br /> STA INPTCTRL<br /> <br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> <br /> LDA #&gt;(RAM_DLL_START)<br /> STA DPPH<br /> LDA #&lt;(RAM_DLL_START)<br /> STA DPPL ; Set Display List pointer.<br /> LDA #$43<br /> STA $78<br /> STA CTRL ; Turn graphics on.<br /> LDX #$01<br /> Util_WaitTwoFrames:<br /> JSR [Util_WaitForVblank - RamCode_Start + RAM_CODE_BASE]<br /> DEX<br /> BPL Util_WaitTwoFrames<br /> <br /> LDA #$60 ; Turn off graphics DMA.<br /> STA CTRL<br /> <br /> ; --- Boot into 7800 Mode ---<br /> Boot_Enter7800Mode:<br /> LDX #$16 ; Enable cartridge ROM and Maria.<br /> STX INPTCTRL<br /> TXS ; Set stack pointer.<br /> SED ; Set decimal mode.<br /> JMP ($FFFC) ; Jump to the cartridge's reset vector.<br /> <br /> ; --- Boot into 2600 Mode ---<br /> CartCheck_7800Fail_Try2600:<br /> Boot_Enter2600Mode_FromRam:<br /> LDA #$02 ; Enable BIOS ROM.<br /> STA INPTCTRL ; Lock cart in 2600 mode.<br /> JMP $480 ; Execute 2600 init code from RIOT RAM.<br /> <br /> ; --- Utility: Wait for Vertical Blank ---<br /> Util_WaitForVblank:<br /> BIT MSTAT ; Is VBLANK ended yet?<br /> BMI Util_WaitForVblank<br /> Util_WaitForVblank_Start:<br /> BIT MSTAT ; Is VBLANK started yet?<br /> BPL Util_WaitForVblank_Start<br /> RTS<br /> <br /> ; --- 2600 TIA Setup Code (Copied to and executed from RIOT RAM at $0480) ---<br /> TiaInitCode_2600Mode:<br /> LDA #0<br /> TAX<br /> STA INPTCTRL<br /> TiaInit_ClearLoop:<br /> STA $03,X<br /> INX<br /> CPX #$2A<br /> BNE TiaInit_ClearLoop<br /> STA TIAWSYNC<br /> LDA #4<br /> NOP<br /> BMI TiaInit_SetColors1<br /> LDX #4<br /> TiaInit_DelayLoop:<br /> DEX<br /> BPL TiaInit_DelayLoop<br /> TXS<br /> STA $110<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> STA $11<br /> STA $1B<br /> STA $1C<br /> STA $F<br /> NOP<br /> STA TIAWSYNC<br /> LDA #$00<br /> NOP<br /> BMI TiaInit_SetColors1<br /> BIT CXP1FB<br /> BMI TiaInit_SetColors2<br /> TiaInit_SetColors1:<br /> LDA #2<br /> STA COLUBK<br /> STA $F112<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors2:<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors3<br /> LDA #2<br /> STA COLUP0<br /> STA $F118<br /> TiaInit_DummyLabel:<br /> STA $F460<br /> BNE TiaInit_Finalize<br /> TiaInit_SetColors3:<br /> STA $2C<br /> LDA #$08<br /> STA $1B<br /> JSR [TiaInit_DummyLabel+1 - TiaInitCode_2600Mode + $480]<br /> NOP<br /> BIT CXP0FB<br /> BMI TiaInit_SetColors1<br /> TiaInit_Finalize:<br /> LDA #$FD<br /> STA 8<br /> JMP ($FFFC)<br /> <br /> ; --- Internal Asteroids Game Startup Logic ---<br /> ; This routine is only called from inside the Asteroids game code.<br /> Asteroids_InternalSubroutine_Equate = $F444<br /> Asteroids_InternalSubroutine:<br /> JSR Asteroids_InternalSubroutine_Equate<br /> LDA $82<br /> BPL Asteroids_Sub_SkipZero<br /> LDA #$00<br /> Asteroids_Sub_SkipZero:<br /> ASL<br /> ASL<br /> CLC<br /> ADC $83<br /> STA $55<br /> LDA #$01<br /> RTS<br /> <br /> StartInternalAsteroidsGame:<br /> JSR Util_WaitForVblank<br /> StartInternalGame_WaitFrame1:<br /> BIT MSTAT<br /> BMI StartInternalGame_WaitFrame1<br /> LDA #$9E<br /> LDY #$00<br /> LDX #$00<br /> StartInternalGame_WaitFrame2:<br /> BIT MSTAT<br /> BMI StartInternalGame_SyncWaitDone<br /> STA WSYNC<br /> STA WSYNC<br /> DEX<br /> BNE StartInternalGame_WaitFrame2<br /> StartInternalGame_SyncWaitDone:<br /> CPX #$78<br /> BCS StartInternalGame_SetDPPL<br /> LDA #$98<br /> LDY #$2B<br /> StartInternalGame_SetDPPL:<br /> STA DPPL<br /> STY $2001<br /> JMP $D000 ; Jump into the Asteroids game code.<br /> <br /> .byte 0,0,0,0,0,0,0,0<br /> .byte 0,0<br /> <br /> ; --- Equates for Asteroids Game Vectors ---<br /> ASTEROIDS_NMI_VECTOR EQU $D2E9<br /> ASTEROIDS_IRQ_VECTOR EQU $D329<br /> <br /> ;=============================================================================<br /> ;<br /> ; V. 6502 HARDWARE VECTORS<br /> ;<br /> ;=============================================================================<br /> .word ASTEROIDS_NMI_VECTOR ; NMI (DLI handler for Asteroids)<br /> .word Bios_EntryPoint_Reset ; RESET<br /> .word ASTEROIDS_IRQ_VECTOR ; IRQ<br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_NTSC_BIOS&diff=1259 2025-07-20T18:27:34Z

<p>MSaarna: </p> <hr /> <div>==7800 NTSC BIOS==<br /> <br /> This reverse engineered 7800 NTSC BIOS code contains helpful context-comments and builds a 1:1 with the official BIOS ROM. In DASM syntax.<br /> <br /> <br /> &lt;pre&gt;<br /> ; Disassembly of the Atari 7800 NTSC BIOS (bios7800.bin)<br /> ; Originally disassembled by DiStella v2.0 on Sun Mar 08 20:30:38 1998<br /> ;<br /> ; This version has been heavily commented and refactored for maximum clarity,<br /> ; with generic labels (e.g., LF400) renamed to descriptive ones.<br /> ; The goal is to explain the inner workings of the BIOS for educational<br /> ; and development purposes.<br /> ;<br /> ; Original comments by:<br /> ; - Keith Henrickson &lt;flipper@phin.com&gt;<br /> ; - Daniel Boris &lt;dboris@home.com&gt;<br /> ; - Mike Saarna (dasm fixups, additional comments)<br /> ; - Gemini 2.5 Pro (semantic meaningful label names, comments galore)<br /> ;<br /> ; The code must be assembled with DASM.<br /> ;<br /> <br /> processor 6502<br /> <br /> ;=============================================================================<br /> ;<br /> ; I. HARDWARE AND MEMORY EQUATES<br /> ;<br /> ;=============================================================================<br /> <br /> ; --- Misc System Equates ---<br /> LFD80 = $FD80<br /> CartKey = $FF80 ; Start address of the 8-byte cartridge security key<br /> CartRegion = $FFF8 ; Cartridge region/signature byte<br /> CartKeyStartPage = $FFF9 ; Cartridge ROM start page and signature byte<br /> CartResetVectorHi = $FFFD ; High byte of the cartridge's RESET vector address<br /> LF112 = $F112<br /> LF118 = $F118<br /> LF460 = $F460<br /> LF700 = $F700<br /> LF800 = $F800<br /> <br /> ; --- 7800 System Control ---<br /> INPTCTRL = $01 ; Input Control Register. Controls memory mapping (BIOS, RAM, Cart) and TIA access.<br /> <br /> ; --- TIA (Television Interface Adapter) Registers (for 2600 Mode) ---<br /> VSYNC = $00 ; Vertical Sync<br /> VBLANK = $01 ; Vertical Blank<br /> WSYNC = $02 ; Wait for Horizontal Sync<br /> RSYNC = $03 ; Reset Horizontal Sync Counter<br /> COLUP0 = $06 ; Color-Luminance for Player 0<br /> COLUPF = $08 ; Color-Luminance for Playfield<br /> COLUBK = $09 ; Color-Luminance for Background<br /> PF2 = $0F ; Playfield Register 2<br /> RESP1 = $11 ; Reset Player 1<br /> GRP0 = $1B ; Player 0 Graphics<br /> GRP1 = $1C ; Player 1 Graphics<br /> <br /> ; --- Maria (Custom Graphics Chip) Registers ---<br /> BACKGRND = $20 ; Background Color<br /> POC1 = $21 ; Palette 0, Color 1<br /> P0C2 = $22 ; Palette 0, Color 2<br /> POC3 = $23 ; Palette 0, Color 3<br /> MWSYNC = $24 ; Maria Wait for Sync<br /> P1C1 = $25 ; Palette 1, Color 1<br /> P1C2 = $26 ; Palette 1, Color 2<br /> P1C3 = $27 ; Palette 1, Color 3<br /> MSTAT = $28 ; Maria Status Register (VBLANK, etc.)<br /> DPPH = $2C ; Display List Pointer High Byte<br /> DPPL = $30 ; Display List Pointer Low Byte<br /> CTRL = $3C ; Maria Control Register (DMA, graphics mode)<br /> <br /> ; --- Zero Page RAM Vectors/Variables ---<br /> DLIAddr = $F4 ; RAM vector for Display List Interrupts (NMI)<br /> ConsoleRegion = $FE ; Console region byte (used in cart verification)<br /> <br /> ;=============================================================================<br /> ;<br /> ; II. CARTRIDGE AUTHENTICATION &amp; MODE SWITCHING LOGIC<br /> ;<br /> ; This entire block of code from $F000 to $F880 is not executed from ROM.<br /> ; Instead, it is copied to RAM ($2300-$2700) by the main BIOS init routine<br /> ; at Bios_InitSystem. The jump to $2306 then begins execution from RAM.<br /> ;<br /> ;=============================================================================<br /> <br /> ORG $F000<br /> <br /> ; --- NMI Vector (ROM) ---<br /> ; This is the hardware NMI vector. It immediately jumps to a RAM vector at $F4,<br /> ; which allows the running program (including the BIOS itself) to define its<br /> ; own NMI handler.<br /> NmiVector_Rom:<br /> pha ; This is the NMI routine.<br /> jmp (DLIAddr) ; Jump to RAM NMI vector.<br /> <br /> <br /> ORG $F400<br /> <br /> ; --- RAM Routine: Cartridge Detection and Authentication ---<br /> ; This code is designed to be executed from RAM starting at address $2300.<br /> ; Its primary job is to determine if a valid, signed 7800 cartridge is<br /> ; present. If it is, the system boots in 7800 mode. If not, it attempts<br /> ; to boot in 2600 mode.<br /> <br /> RamExec_Start:<br /> SwitchTo2600Mode1:<br /> jmp Enter2600Mode ; Branch to the 2600 mode initialization routine.<br /> SwitchTo2600Mode2:<br /> jmp Enter2600Mode ; Branch to the 2600 mode initialization routine.<br /> <br /> CartTest:<br /> lda #$16 ; Value to enable Maria and map in the cartridge ROM.<br /> sta INPTCTRL ; Switch in cart + enable Maria.<br /> <br /> ldy #$FF ; Initialize Y to $FF.<br /> ldx #$7F ; Initialize X to $7F.<br /> ; --- Cartridge Presence Test ---<br /> ; This loop compares two different ROM regions ($FD80-$FDFF and $FE00-$FE7F).<br /> ; If a cartridge is not present, the data bus &quot;floats&quot;, and reading any address<br /> ; might return the last value seen on the bus (or garbage). By comparing two<br /> ; regions that should contain different data, the BIOS can detect this state.<br /> ; If the data is the same, it's likely a floating bus, so no cart is present.<br /> CartPresenceCheck_Loop:<br /> lda LFE00,X ; Read from the $FExx range.<br /> cmp LFD80,Y ; Compare with the $FDxx range.<br /> bne SwitchTo2600Mode1 ; If they differ, the test passes (so far). Branch if they are the same (fail).<br /> dey ;<br /> dex ;<br /> bpl CartPresenceCheck_Loop ; Loop for 128 bytes.<br /> <br /> ; --- Cartridge Reset Vector Test ---<br /> ; A valid 7800 or 2600 cart must have a valid reset vector. A vector of $FFFF<br /> ; or $0000 typically indicates an empty socket or a problem.<br /> lda CartResetVectorLo ;<br /> and CartResetVectorHi ;<br /> cmp #$FF ;<br /> beq SwitchTo2600Mode1 ; If RESET vector is $FFFF, then go 2600.<br /> lda CartResetVectorLo ;<br /> ora CartResetVectorHi ;<br /> beq SwitchTo2600Mode1 ; If RESET vector is $0000, then go 2600.<br /> <br /> ; --- Cartridge Signature/Region Verification ---<br /> ; This is a series of simple, quick checks on bytes in the $FFF8-$FFF9 region<br /> ; of the cartridge ROM to see if it looks like an official 7800 cart.<br /> lda CartRegion ; Read signature byte at $FFF8.<br /> ora #ConsoleRegion ; OR with the console's region byte ($FE).<br /> cmp #$FF ;<br /> bne SwitchTo2600Mode2 ; If low-bit of CartRegion=0, then go 2600.<br /> lda CartRegion ;<br /> eor #$F0 ; Invert high nibble.<br /> and #$F0 ; Isolate the high nibble.<br /> bne SwitchTo2600Mode2 ; If high nibble was not originally $F, then go 2600.<br /> lda CartKeyStartPage ; Read signature byte at $FFF9.<br /> and #$0B ;<br /> cmp #$03 ;<br /> bne SwitchTo2600Mode2 ; If low nibble of $FFF9 was not 3 or 7, go 2600.<br /> <br /> ; --- Cartridge Header Processing ---<br /> ; If the quick checks pass, the BIOS proceeds with the full authentication.<br /> lda CartKeyStartPage ;<br /> and #$F0 ; Extract ROM start page from high nibble of $FFF9.<br /> sta $EE ; Store it in zero page.<br /> sta $2406 ; Store it in RAM for the authentication routine.<br /> cmp #$40 ;<br /> bcc SwitchTo2600Mode2 ; If ROM start page &lt; $40 (i.e., address &lt; $4000), fail.<br /> sbc #$01 ;<br /> cmp CartResetVectorHi ; Compare ROM start page with high byte of reset vector.<br /> bcs SwitchTo2600Mode2 ; If start page is &gt;= reset vector high byte, fail.<br /> jsr $2536 ; If all checks pass, start the full authentication process.<br /> <br /> ; --- Obfuscated Authentication Code ---<br /> ; The following code is part of the digital signature verification. It involves<br /> ; complex mixing, rotating, and lookup operations on the cartridge's security<br /> ; key and internal BIOS data tables. Its purpose is to be difficult to analyze<br /> ; and replicate. The high-level goal is to compute a hash from the cart key<br /> ; and compare it against an expected result.<br /> <br /> lda #$00<br /> sta $F0<br /> jsr $241B<br /> lda #$16<br /> sta INPTCTRL<br /> ldx #$00<br /> txa<br /> Auth_RamFillLoop1:<br /> sta $1800,X<br /> dex<br /> bne Auth_RamFillLoop1<br /> pha<br /> ldy #$7F<br /> Auth_CopyRomToRamLoop:<br /> lda LFF00,Y<br /> sta $1800,Y<br /> dey<br /> cpy #$F8<br /> bne Auth_CopyRomToRamLoop<br /> lda #$2E<br /> sta $2409<br /> lda #$24<br /> sta $240A<br /> <br /> Auth_MainLoop1:<br /> jsr $241B<br /> pla<br /> jsr $23FF<br /> pha<br /> inc $2406<br /> lda $2406<br /> cmp #$FF<br /> bne Auth_MainLoop1<br /> <br /> jsr $241B<br /> jsr $2412<br /> jsr $2412<br /> lda #$36<br /> sta $2409<br /> lda #$24<br /> sta $240A<br /> dec $2406<br /> Auth_MainLoop2:<br /> jsr $241B<br /> pla<br /> jsr $23FF<br /> pha<br /> dec $2406<br /> lda $2406<br /> cmp $EE<br /> bcs Auth_MainLoop2<br /> lda #$60<br /> sta CTRL<br /> ldx #$77<br /> Auth_XorAndStoreLoop:<br /> lda $1800,X<br /> eor $1850,X<br /> eor $1888,X<br /> sta $1A00,X<br /> dex<br /> bpl Auth_XorAndStoreLoop<br /> lda $1A00<br /> and #$07<br /> sta $1A00<br /> lda #$00<br /> ldx #$04<br /> sta $1A00,X<br /> sta $2000,X<br /> <br /> ; --- Final Authentication Check ---<br /> ; After all the cryptographic hashing, this is the final comparison.<br /> ; It compares two blocks of memory in RAM. If they match, the cart is authentic.<br /> ldx #$77<br /> Auth_FinalCompareLoop:<br /> lda $2000,X ; Read from one workspace area.<br /> cmp $1A00,X ; Compare with the computed hash.<br /> bne Auth_FailAndSwitchTo2600; If they don't match, authentication fails.<br /> dex<br /> bpl Auth_FinalCompareLoop ; Loop until all bytes are compared.<br /> jmp Enter7800Mode ; AUTHENTICATION PASSED: Jump to 7800 mode init.<br /> Auth_FailAndSwitchTo2600:<br /> jmp Enter2600Mode ; AUTHENTICATION FAILED: Jump to 2600 mode init.<br /> <br /> <br /> ; --- Authentication Subroutines ---<br /> ; More opaque subroutines used by the main authentication algorithm.<br /> Auth_Sub_MixAndLookup_Equate = $F500<br /> ldx #$00<br /> Auth_Sub_MixAndLookup_Loop:<br /> adc $1800,X<br /> adc LFF00,X<br /> tay<br /> lda $2DD5,Y<br /> sta $1800,X<br /> inx<br /> bne Auth_Sub_MixAndLookup_Loop<br /> rts<br /> <br /> ldx #$00<br /> Auth_Sub_RotateRam_Loop:<br /> rol $1800,X<br /> inx<br /> bne Auth_Sub_RotateRam_Loop<br /> rts<br /> <br /> ; Subroutine at $241B - This routine briefly disables the cartridge to access BIOS ROM/RAM.<br /> php<br /> dec $F0<br /> bpl Auth_Sub_AccessBios_Done<br /> lda #$02<br /> sta INPTCTRL<br /> Auth_Sub_AccessBios_WaitLoop:<br /> lda $F0<br /> bmi Auth_Sub_AccessBios_WaitLoop<br /> lda #$16<br /> sta INPTCTRL<br /> Auth_Sub_AccessBios_Done:<br /> plp<br /> rts<br /> <br /> ; --- Authentication Signature Data Tables ---<br /> ; These large blocks of byte data are part of the digital signature scheme.<br /> ; They are used as lookup tables and keys during the verification process.<br /> AuthData_Table1: .byte $C7,$65,$AB,$CA,$EE,$F7,$83,$09<br /> AuthData_Table2: .byte $E1,$D0,$92,$67,$62,$B6,$72,$55,$8E,$91,$DC,$C5,$81,$BE,$78,$20<br /> .byte $59,$B7,$E6,$3D,$06,$45,$AF,$C8,$08,$31,$38,$D1,$FB,$73,$84,$A9<br /> .byte $17,$FC,$34,$87,$A3,$94,$FA,$90,$B8,$ED,$CE,$3B,$5B,$0A,$43,$D9<br /> .byte $F3,$53,$82,$B3,$0D,$6D,$5A,$60,$9D,$51,$A7,$B9<br /> AuthData_Table3: .byte $11,$10,$BC,$E4,$7F,$80,$41,$E7,$E3<br /> AuthData_Table4: .byte $F6,$56,$26,$35,$EC,$D6,$DF,$0C,$7F,$F4,$9E,$AC,$52,$46,$EF,$CF<br /> .byte $BF,$A2,$3F,$A4,$13,$15,$97,$4A,$1C,$B0,$42,$8C,$B1,$05,$58,$80<br /> .byte $18,$77,$2B,$02,$3E,$A8,$49,$1A,$6A<br /> AuthData_Table5: .byte $CB,$6E,$0B,$8A,$EB,$F1,$4F,$14,$79,$8B,$D8,$9F,$9B,$57,$19,$F8<br /> .byte $2A,$2D,$76,$0E,$E8,$2E,$4B,$F9,$07,$03,$DE,$93,$16,$7E,$D4,$E5<br /> .byte $B2,$F0,$7D,$7A,$DA,$D2,$A1,$CC,$1D,$E0,$5E,$23,$A0,$95,$22,$1E<br /> .byte $36,$85,$FE,$1F,$39<br /> AuthData_Table6: .byte $AA,$89,$96,$AD,$0F,$2F,$C0,$47<br /> AuthData_Table7: .byte $27,$5D,$24,$EA,$C3,$A5,$F5,$21,$5F,$1B,$40,$8F,$AE,$74,$25,$DD<br /> .byte $C1,$7C,$CD,$A6,$70,$D7,$33,$7B,$2C,$75,$BB,$86,$99,$BD,$54<br /> AuthData_Table8: .byte $9A,$6C,$63,$32,$48,$4C,$8D,$BA<br /> AuthData_Table9: .byte $5C,$61,$C4,$4E,$29,$37,$12,$C6,$98,$9C,$D5,$69,$6B,$E2,$04,$4D<br /> .byte $E9,$C2,$88,$3A,$DB,$64,$01,$44,$6F,$B5,$F2,$30,$28,$FD,$50,$71<br /> .byte $3C,$B4,$66,$68,$C9,$D3,$CA,$83,$C7,$AB,$F7,$65,$09,$EE<br /> <br /> ; --- Main Authentication Routine ($2536) ---<br /> ; This routine is the entry point for the signature verification process.<br /> ; It copies the 128-byte security key from the cartridge ROM into RAM.<br /> ldx #$77 ; ($2536) Start of routine, X=119<br /> stx $E4<br /> stx $E5<br /> Auth_CopyCartKey_Loop:<br /> lda CartKey,X ; Read a byte from the cart security key area ($FF80-FFFF).<br /> sta $1901,X ; Store it in RAM work area 1.<br /> sta $2000,X ; Store it in RAM work area 2.<br /> dex ; next byte of key<br /> bpl Auth_CopyCartKey_Loop ; Loop until all 128 bytes are copied.<br /> <br /> lda #$02 ;<br /> sta INPTCTRL ; Disable cart ROM to access BIOS routines.<br /> jsr Display_InitLogo ; Initialize Maria for the Fuji logo display.<br /> jsr $257B<br /> dec $F2<br /> ldx #$77<br /> stx $E4<br /> Auth_CopyInternalKey_Loop:<br /> lda LFED5,X<br /> sta $1901,X<br /> dex<br /> bpl Auth_CopyInternalKey_Loop<br /> lda $E1<br /> sta $E3<br /> jsr $25E1<br /> dec $F2<br /> Auth_CopyWorkspace_Start:<br /> lda $E0<br /> sta $2572<br /> ldx #$77<br /> Auth_CopyWorkspace_Loop:<br /> lda $1800,X<br /> Auth_CopyWorkspace_Store:<br /> sta $2000,X<br /> dex<br /> bpl Auth_CopyWorkspace_Loop<br /> rts<br /> <br /> ; --- More Authentication Subroutines ---<br /> jsr $2639 ; ($257B)<br /> ldy $E5<br /> iny<br /> Auth_Sub_KeyProcess_OuterLoop:<br /> STY $E1<br /> TYA<br /> clc<br /> adc $E2<br /> pha<br /> Auth_Sub_KeyProcess_ClearRam:<br /> tax<br /> lda #$00<br /> sta $2671<br /> Auth_Sub_KeyProcess_ClearRam_Loop:<br /> sta $1800,X<br /> dex<br /> Auth_Sub_KeyProcess_ClearRam_Check:<br /> bne Auth_Sub_KeyProcess_ClearRam_Loop<br /> sta $1800<br /> Auth_Sub_KeyProcess_SetupCounters:<br /> iny<br /> STY $266E<br /> STY $2674<br /> STY $267C<br /> STY $2681<br /> ldx #$00<br /> Auth_Sub_KeyProcess_InnerLoop:<br /> dec $266E<br /> dec $2674<br /> dec $267C<br /> dec $2681<br /> dec $E1<br /> bmi Auth_Sub_KeyProcess_Done<br /> Auth_Sub_KeyProcess_BitCheck:<br /> ldy $E1<br /> lda $2000,Y<br /> and $25D9,X<br /> beq Auth_Sub_KeyProcess_NextBit<br /> lda $2662,X<br /> sta $2672<br /> jsr $266A<br /> Auth_Sub_KeyProcess_NextBit:<br /> inx<br /> cpx #$08<br /> bmi Auth_Sub_KeyProcess_BitCheck<br /> jmp $25A4<br /> Auth_Sub_KeyProcess_Done:<br /> pla<br /> sta $E1<br /> lda #$01<br /> sta $E0<br /> rts<br /> <br /> AuthData_Bitmasks: .byte $01,$02,$04,$08,$10,$20,$40,$80<br /> <br /> jsr $2639<br /> lda $E3<br /> sec<br /> sbc $E4<br /> sta $E0<br /> sta $E1<br /> ldx #$00<br /> stx $1800<br /> stx $268F<br /> stx $26AC<br /> dex<br /> stx $26A9<br /> stx $268C<br /> stx $2692<br /> stx $269A<br /> stx $269F<br /> ldx #$07<br /> inc $26A9<br /> inc $268C<br /> inc $2692<br /> inc $269A<br /> inc $269F<br /> dec $E1<br /> bmi Auth_Sub_Op_Done<br /> Auth_Sub_Op_Loop:<br /> lda $2662,X<br /> sta $2690<br /> sta $26AD<br /> jsr $26A6<br /> bcc Auth_Sub_Op_Next<br /> jsr $2688<br /> Auth_Sub_Op_Next:<br /> dex<br /> bpl Auth_Sub_Op_Loop<br /> jmp $2608<br /> Auth_Sub_Op_Done:<br /> lda $E3<br /> sta $E1<br /> rts<br /> <br /> ldx $E4 ; ($2639)<br /> inx<br /> stx $E2<br /> ldy #$00<br /> STY $1900<br /> Auth_Sub_Rotate_OuterLoop:<br /> lda $2662,Y<br /> sta $2655<br /> iny<br /> lda $2662,Y<br /> sta $2659<br /> ldx $E2<br /> clc<br /> Auth_Sub_Rotate_InnerLoop:<br /> lda $1900,X<br /> rol<br /> sta $1900,X<br /> dex<br /> bpl Auth_Sub_Rotate_InnerLoop<br /> cpy #$07<br /> bmi Auth_Sub_Rotate_OuterLoop<br /> rts<br /> <br /> AuthData_Indices: .byte $19,$1A,$1B,$1C,$1D,$1E,$1F,$21<br /> <br /> ldy $E2<br /> clc<br /> Auth_Sub_Add_Loop:<br /> lda $1800,Y<br /> adc $1900,Y<br /> sta $1800,Y<br /> dey<br /> bpl Auth_Sub_Add_Loop<br /> bcc Auth_Sub_Add_NoCarry<br /> lda $1700,Y<br /> adc #$00<br /> sta $1700,Y<br /> dey<br /> jmp $2679<br /> Auth_Sub_Add_NoCarry:<br /> rts<br /> <br /> ldy $E2<br /> sec<br /> Auth_Sub_Subtract_Loop:<br /> lda $1800,Y<br /> sbc $1900,Y<br /> sta $1800,Y<br /> dey<br /> bpl Auth_Sub_Subtract_Loop<br /> bcs Auth_Sub_Subtract_NoBorrow<br /> lda $1700,Y<br /> sbc #$00<br /> sta $1700,Y<br /> dey<br /> jmp $2697<br /> Auth_Sub_Subtract_NoBorrow:<br /> rts<br /> <br /> ldy #$00<br /> lda $1800,Y<br /> cmp $1900,Y<br /> beq Auth_Sub_Compare_Equal<br /> Auth_Sub_Compare_NotEqual:<br /> rts<br /> <br /> Auth_Sub_Compare_Equal:<br /> cpy $E2<br /> beq Auth_Sub_Compare_NotEqual<br /> iny<br /> jmp $26A8<br /> <br /> ; --- 7800 Mode Initialization ---<br /> ORG $F7B9<br /> ; This label is an equate, not a location. It calculates the correct RAM address<br /> ; for the routine, which is needed by the code executing from RAM.<br /> ; ROM address $F7B9 -&gt; RAM address $26B9. Offset is $D100.<br /> Enter7800Mode = . - $D100<br /> Routine_Enter7800Mode:<br /> ldx #$16 ; Enable Maria and Cartridge ROM.<br /> stx INPTCTRL ; Lock out BIOS, enable cartridge.<br /> txs ; Set up stack pointer.<br /> SED ; Set Decimal Mode (a 7800 convention, often cleared by games).<br /> jmp (CartResetVectorLo) ; Jump to the game's starting address on the cartridge.<br /> <br /> ; --- 2600 Mode Initialization ---<br /> ORG $F7C2<br /> ; This label is also an equate to calculate the correct RAM address.<br /> ; ROM address $F7C2 -&gt; RAM address $26C2. Offset is $D100.<br /> Enter2600Mode = . - $D100<br /> Routine_Enter2600Mode:<br /> lda #$02 ; Enable 7800 RAM and BIOS ROM.<br /> sta INPTCTRL ;<br /> ldx #$7F<br /> ; Copy the 2600 TIA setup code from BIOS ROM into RIOT RAM ($0480).<br /> CopyTiaInitToRam_Loop:<br /> lda TiaInitCode,X<br /> sta $0480,X<br /> dex<br /> bpl CopyTiaInitToRam_Loop<br /> jmp $0480 ; Jump to the newly copied code in RIOT RAM to execute it.<br /> <br /> ; --- 2600 TIA Setup Code (Executed from RIOT RAM at $0480) ---<br /> TiaInitCode:<br /> lda #$00 ;<br /> tax ;<br /> sta INPTCTRL ; Disable 7800 RAM/BIOS, giving full control to cart.<br /> ; Clear all TIA registers to put it in a known state.<br /> TiaInit_ClearLoop:<br /> sta RSYNC,X<br /> inx ;<br /> cpx #$2A ;<br /> bne TiaInit_ClearLoop<br /> sta WSYNC ; Wait for horizontal sync.<br /> lda #$04 ;<br /> nop ;<br /> bmi TiaInit_SetColors1<br /> ldx #$04<br /> TiaInit_DelayLoop:<br /> dex<br /> bpl TiaInit_DelayLoop<br /> txs<br /> sta $0110<br /> jsr $04CB<br /> jsr $04CB<br /> sta RESP1<br /> sta GRP0<br /> sta GRP1<br /> sta PF2<br /> nop<br /> sta WSYNC<br /> lda #$00<br /> nop<br /> bmi TiaInit_SetColors1<br /> bit RSYNC<br /> bmi TiaInit_SetColors2<br /> TiaInit_SetColors1:<br /> lda #$02<br /> sta COLUBK<br /> sta LF112<br /> bne TiaInit_Finalize<br /> TiaInit_SetColors2:<br /> bit WSYNC<br /> bmi TiaInit_SetColors3<br /> lda #$02<br /> sta COLUP0<br /> sta LF118<br /> sta LF460<br /> bne TiaInit_Finalize<br /> TiaInit_SetColors3:<br /> sta DPPH<br /> lda #$08<br /> sta GRP0<br /> jsr $04CB<br /> nop<br /> bit WSYNC<br /> bmi TiaInit_SetColors1<br /> TiaInit_Finalize:<br /> lda #$FD<br /> sta COLUPF<br /> jmp (CartResetVectorLo) ; Jump to the 2600 game's starting address on the cartridge.<br /> nop<br /> <br /> ;=============================================================================<br /> ;<br /> ; III. BIOS ENTRY, POWER-ON SELF TEST (POST), AND SYSTEM INIT<br /> ;<br /> ;=============================================================================<br /> <br /> ORG $F880<br /> <br /> ; --- Self-Test Failure Handler ---<br /> ; This code is jumped to whenever a POST routine fails. It writes an error<br /> ; code to INPTCTRL, which can be read by external diagnostic hardware.<br /> Post_FailHandler:<br /> lda #$1D<br /> sta INPTCTRL ; Enable TIA/Cart/lock out INPTCTRL.<br /> <br /> ; --- BIOS Entry Point / Cold Start ---<br /> START: ; $F884<br /> SEI ; Disable interrupts on power-on.<br /> CLD ; Clear decimal flag.<br /> lda #$02 ;<br /> Bios_SetRamAndBios:<br /> sta INPTCTRL ; Enable 7800 RAM and map BIOS into memory.<br /> lda #$FB ; Set high byte of NMI vector to $FB.<br /> sta $F5 ;<br /> lda #$12 ; Set low byte of NMI vector to $12.<br /> sta $F4 ; NMI vector is now $FB12 (points to IRQ cleanup).<br /> lda #$7F ;<br /> sta CTRL ; Turn off Maria DMA.<br /> lda #$00 ;<br /> sta BACKGRND ; Set background color to black.<br /> <br /> ; --- POST: RAM Test 1 (Basic) ---<br /> ; This is a quick test of the two 2KB RAM chips ($2000-$27FF).<br /> ; It writes several patterns to each byte and reads them back.<br /> ldx #$05 ; Loop counter for the 6 test patterns.<br /> Post_RamTest1_PatternLoop:<br /> lda Post_RamTest_Data,X ; Load a test pattern ($00, $FF, $55, $AA, $69, $0F).<br /> ldy #$00 ; Inner loop counter for 256 bytes.<br /> Post_RamTest1_PageLoop:<br /> sta $2000,Y ; Write pattern to first RAM chip.<br /> cmp $2000,Y ; Read it back and compare.<br /> bne Post_RamTest_Fail1 ; If it fails, branch to error handler.<br /> sta $2100,Y ; Write pattern to second RAM chip.<br /> cmp $2100,Y ; Read it back and compare.<br /> bne Post_RamTest_Fail1 ; If it fails, branch to error handler.<br /> dey ;<br /> bne Post_RamTest1_PageLoop ; Loop through all 256 bytes of a page.<br /> dex ;<br /> bpl Post_RamTest1_PatternLoop ; Loop to the next test pattern.<br /> <br /> ; --- POST: RAM Mirror Test ---<br /> ; Checks that the RAM is correctly mirrored every 256 bytes.<br /> lda #$43 ; Check RAM 0 mirror.<br /> sta $2080 ; Write to $2080.<br /> cmp $80 ; Compare with $0080 (a mirror).<br /> bne Post_RamMirror_Fail ; make sure they match. If not, fail selftest.<br /> sta $2180 ; Check RAM 1 mirror<br /> cmp $0180 ;<br /> bne Post_RamMirror_Fail ; make sure they match. If not, fail selftest.<br /> jmp Post_CpuTest_Start ; continue selftest<br /> Post_RamMirror_Fail:<br /> ldy #$04 ;<br /> jmp Post_FailHandler ; selftest fail.<br /> <br /> ; --- POST: RAM Failure Handlers ---<br /> ; These routines are jumped to from the RAM tests to indicate failure.<br /> Post_RamTest_Fail1:<br /> sta $1800 ; test store and compare<br /> cmp $1800<br /> bne Post_RamTest_Fail3 ; some kind of error code is being determined<br /> Post_RamTest_Fail2:<br /> ldy #$01<br /> jmp Post_FailHandler<br /> <br /> Post_RamTest_Fail_Indirect:<br /> ldy #$02<br /> jmp $F880<br /> <br /> Post_RamTest_Fail3:<br /> ldy #$03<br /> jmp Post_FailHandler<br /> <br /> ; --- POST: RAM Test 2 (Comprehensive) ---<br /> ; This is a more thorough RAM test called later in the boot process. It uses<br /> ; indirect addressing to test all 8 pages of the 4KB RAM.<br /> Post_RamTest2_Start:<br /> lda #$00<br /> sta $F0 ; Base address low byte pointer.<br /> sta $F2 ;<br /> ldy #$07 ; Loop counter for 8 pages.<br /> STY $F4<br /> Post_RamTest2_OuterLoop:<br /> lda Post_RamTest_AddrHi1,Y ; Load high byte of address for RAM chip 1.<br /> sta $F1<br /> lda Post_RamTest_AddrHi2,Y ; Load high byte of address for RAM chip 2.<br /> sta $F3<br /> ldx #$05 ; Loop counter for 6 test patterns.<br /> Post_RamTest2_PatternLoop:<br /> lda Post_RamTest_Data,X ; Load a test pattern.<br /> Post_RamTest2_InnerLoop:<br /> ldy #$00 ; Inner loop counter for 256 bytes.<br /> Post_RamTest2_ByteLoop:<br /> sta ($F0),Y ; Write to RAM 1 via indirect pointer ($F0/$F1).<br /> cmp ($F0),Y ; Read back and compare.<br /> bne Post_RamTest_Fail2 ; Fail.<br /> sta ($F2),Y ; Write to RAM 2 via indirect pointer ($F2/$F3).<br /> cmp ($F2),Y ; Read back and compare.<br /> bne Post_RamTest_Fail_Indirect ; Fail.<br /> dey<br /> bne Post_RamTest2_ByteLoop ; Loop through page.<br /> dex<br /> bpl Post_RamTest2_PatternLoop ; Loop through patterns.<br /> dec $F4<br /> ldy $F4<br /> bpl Post_RamTest2_OuterLoop ; Loop through pages.<br /> jmp Bios_InitSystem ; ram test passed, so jump in here.<br /> <br /> ; --- RAM Test Data ---<br /> Post_RamTest_Data: .byte $00,$FF,$55,$AA,$69,$0F<br /> Post_RamTest_AddrHi1: .byte $22,$23,$24,$25,$26,$27,$22,$23<br /> Post_RamTest_AddrHi2: .byte $18,$19,$1A,$1B,$1C,$1D,$1E,$1F<br /> <br /> Post_CpuTest_Fail:<br /> ldy #$00 ; local place for selftest fail branch target<br /> jmp Post_FailHandler<br /> <br /> ; --- POST: 6502 CPU Test ---<br /> ; This section exhaustively tests the 6502's instruction set, flags,<br /> ; and addressing modes to ensure the CPU is functioning correctly.<br /> Post_CpuTest_Start:<br /> lda #$AA ; test some flags and branches<br /> beq Post_CpuTest_Fail ; test failed<br /> bpl Post_CpuTest_Fail ; test failed<br /> bmi CpuTest_CheckBne ; test passed<br /> jmp Post_CpuTest_Fail ; test failed<br /> CpuTest_CheckBne:<br /> bne CpuTest_CheckStore ; test passed<br /> jmp Post_CpuTest_Fail ; test failed<br /> CpuTest_CheckStore:<br /> sta $AA ; store AA to 00AA<br /> cmp $AA ; compare it back<br /> bne Post_CpuTest_Fail ; if it doesn't match, selftest fail<br /> lda #$00 ; do some more flag tests<br /> bne Post_CpuTest_Fail ;<br /> bmi Post_CpuTest_Fail ;<br /> bpl CpuTest_CheckBeq ; test passed<br /> jmp Post_CpuTest_Fail ;<br /> CpuTest_CheckBeq:<br /> beq CpuTest_CheckCmp ; test passed<br /> jmp Post_CpuTest_Fail ;<br /> CpuTest_CheckCmp:<br /> cmp #$00 ; test the compare instruction<br /> bne Post_CpuTest_Fail ;<br /> bcc Post_CpuTest_Fail ;<br /> bcs CpuTest_CheckCmpBcs ; test passed, since they're equal<br /> jmp Post_CpuTest_Fail ;<br /> CpuTest_CheckCmpBcs:<br /> cmp #$01 ; compare it to 01<br /> bcs Post_CpuTest_Fail ;<br /> bcc CpuTest_CheckCpx ; A &lt; 01, so carry is clear<br /> jmp Post_CpuTest_Fail ;<br /> CpuTest_CheckCpx:<br /> ldx #$55 ; test comparisons with the X register<br /> cpx #$56 ;<br /> beq Post_CpuTest_Fail ;<br /> stx $01AA ;<br /> cpx $01AA ;<br /> bne Post_CpuTest_Fail ;<br /> ldy $AA ; and with the Y register.<br /> cpy #$AB ;<br /> CpuTest_CheckCpy:<br /> beq Post_CpuTest_Fail ;<br /> STY $0155 ; put some stuff in the stack area to test stack<br /> cpy $0155 ; and then access this data in many different ways<br /> bne Post_CpuTest_Fail ;<br /> dex ;<br /> txs ;<br /> inx ;<br /> pla ;<br /> cmp #$AA ;<br /> bne Post_CpuTest_Fail_Central ;<br /> txa ;<br /> pha ;<br /> cpx $0155 ;<br /> bne Post_CpuTest_Fail_Central ;<br /> TYA ;<br /> cmp #$AA ;<br /> bne Post_CpuTest_Fail_Central ;<br /> tax ;<br /> lda $0100,X ;<br /> tay ;<br /> cpy #$55 ;<br /> bne Post_CpuTest_Fail_Central ;<br /> lda VSYNC,X ;<br /> cmp $AA ;<br /> bne Post_CpuTest_Fail_Central ;<br /> cmp #$AA ;<br /> bne Post_CpuTest_Fail_Central ;<br /> eor #$FF ;<br /> sta $0000,Y ;<br /> cmp $55 ;<br /> bne Post_CpuTest_Fail_Central ;<br /> cmp $0100,Y ;<br /> bne Post_CpuTest_Fail_Central ;<br /> cmp $20AB,X ;<br /> bne Post_CpuTest_Fail_Central ;<br /> lda #$20 ;<br /> sta $F1 ;<br /> lda #$CC ;<br /> sta $F0 ;<br /> sta ($46,X) ;<br /> cmp $CC ;<br /> bne Post_CpuTest_Fail_Central ;<br /> sta ($F0),Y ;<br /> cmp $2121 ;<br /> bne Post_CpuTest_Fail_Central ;<br /> lda #$EE ; test the indirect jump by setting up a jump<br /> sta $F0 ; to Post_CpuMath_Start<br /> lda #$F9 ;<br /> sta $F1 ;<br /> jmp ($00F0) ; and do it.<br /> <br /> CpuTest_ShouldNotBeReached:<br /> jmp Post_CpuTest_Fail_Central<br /> <br /> Post_CpuTest_Fail_Central:<br /> jmp Post_CpuTest_Fail<br /> <br /> <br /> ; --- POST: CPU Math and Logic Tests ---<br /> Post_CpuMath_Start:<br /> lda #$55 ; now test out the math functions.<br /> clc<br /> adc #$55<br /> nop<br /> bcs Post_CpuTest_Fail_Central ; test addition.<br /> bpl Post_CpuTest_Fail_Central<br /> beq Post_CpuTest_Fail_Central<br /> cmp #$AA ; make sure it worked<br /> bne Post_CpuTest_Fail_Central<br /> adc #$55 ; test addition again.<br /> CpuMath_TestAdcCarry:<br /> nop<br /> bcc Post_CpuTest_Fail_Central<br /> bmi Post_CpuTest_Fail_Central<br /> bne Post_CpuTest_Fail_Central<br /> sbc #$55 ; test subtraction<br /> bcs Post_CpuTest_Fail_Central<br /> bpl Post_CpuTest_Fail_Central<br /> beq Post_CpuTest_Fail_Central<br /> cmp #$AB ; make sure it worked<br /> bne Post_CpuTest_Fail_Central<br /> clc<br /> sbc #$AA ; test subtraction again<br /> bcc Post_CpuTest_Fail_Central<br /> bmi Post_CpuTest_Fail_Central<br /> bne Post_CpuTest_Fail_Central<br /> lda #$FF ; set up a stack<br /> tax ; and do all kinds of stuff in it for tests<br /> inx<br /> bne CpuMath_Fail<br /> dex<br /> beq CpuMath_Fail<br /> bpl CpuMath_Fail<br /> cpx #$FF<br /> bne CpuMath_Fail<br /> tay<br /> iny<br /> bne CpuMath_Fail<br /> dey<br /> beq CpuMath_Fail<br /> iny<br /> bne CpuMath_Fail<br /> sta $F0<br /> inc $F0<br /> bne CpuMath_Fail<br /> cpy $F0<br /> bne CpuMath_Fail<br /> dec $F0<br /> beq CpuMath_Fail<br /> cmp $F0<br /> bne CpuMath_Fail<br /> lda #$AA<br /> clc<br /> rol ; now we get onto the more complex math instrs<br /> rol<br /> rol<br /> cmp #$52<br /> bne CpuMath_Fail ; make sure rotate left works.<br /> ror<br /> ror<br /> ror<br /> cmp #$AA<br /> beq CpuMath_TestAsl ; test rotate right<br /> CpuMath_Fail:<br /> jmp Post_CpuTest_Fail ; fail!<br /> <br /> CpuMath_TestAsl:<br /> asl ; test arithmetic shift left<br /> bcc CpuMath_Fail<br /> asl<br /> bcs CpuMath_Fail<br /> asl<br /> cmp #$50<br /> bne CpuMath_Fail<br /> eor #$05<br /> lsr ; and logical shift right<br /> bcc CpuMath_Fail<br /> lsr<br /> bcs CpuMath_Fail<br /> lsr<br /> cmp #$0A<br /> bne CpuMath_Fail<br /> lda #$55 ; now test the ands and ors.<br /> ora #$1B<br /> cmp #$5F<br /> bne CpuMath_Fail<br /> and #$55<br /> and #$1B<br /> cmp #$11<br /> bne CpuMath_Fail<br /> ora #$55<br /> eor #$1B ; and the eors<br /> cmp #$4E<br /> bne CpuMath_Fail<br /> jsr Cpu_TestJsr ; test jump subroutine instruction<br /> jmp CpuMath_Fail ; if we return, fail<br /> <br /> Cpu_TestJsr:<br /> tsx<br /> cpx #$52 ; check stack pointer<br /> bne CpuMath_Fail ; fail if not right<br /> pla<br /> cmp #$8D<br /> bne CpuMath_Fail<br /> pla<br /> cmp #$FA<br /> bne CpuMath_Fail ; get the old return address off the stack<br /> lda #$F8<br /> pha<br /> lda #$E6<br /> pha ; and make our own<br /> rts ; and 'return' to Post_RamTest2_Start<br /> <br /> jmp CpuMath_Fail ; another jump to catch a failure<br /> <br /> ;=============================================================================<br /> ;<br /> ; IV. NMI HANDLER (FUJI LOGO DISPLAY)<br /> ;<br /> ;=============================================================================<br /> <br /> ; This NMI routine is responsible for drawing the &quot;Fuji&quot; mountain logo and<br /> ; the &quot;ATARI&quot; text on the screen during the boot-up/authentication process.<br /> ; It is called on every VBLANK. Its main job is to manipulate Maria's palette<br /> ; registers to create the signature color-cycling effect on the Fuji logo.<br /> <br /> Nmi_DrawFujiAndAtari:<br /> txa ;Save A<br /> pha ;<br /> lda #$43 ;Setup control register<br /> sta CTRL ;<br /> ldx #$0F ; Handle the color scrolling in the FUJI<br /> lda $EF<br /> sta P0C2<br /> bit $F3<br /> bvc Nmi_Sync3<br /> bpl Nmi_Sync2<br /> Nmi_Sync1:<br /> sta MWSYNC ;Wait for 3 scanlines<br /> Nmi_Sync2:<br /> sta MWSYNC ;<br /> Nmi_Sync3:<br /> sta MWSYNC ;<br /> sec<br /> sbc #$10<br /> cmp #$10<br /> bcs Nmi_StoreColor<br /> sbc #$0F<br /> Nmi_StoreColor:<br /> sta P0C2<br /> dex<br /> bpl Nmi_Sync1 ;Branch to do next section of fuji<br /> ldx #$40 ;set 160x2/160x4 mode<br /> stx CTRL ;<br /> and #$F0 ;<br /> ora #$0E ;set Palette 1 color 3<br /> sta P1C3 ;<br /> lda $EF ;<br /> and #$F0 ;<br /> ora #$06 ;set Palette 1 color 1<br /> sta P1C1 ;<br /> and #$F0<br /> clc<br /> adc #$40<br /> bcc Nmi_SetPalette1Color2<br /> adc #$0F<br /> Nmi_SetPalette1Color2:<br /> ora #$03 ;set Palette 1 color 2<br /> sta P1C2<br /> dec $F1<br /> bpl Nmi_RestoreRegs<br /> lda $F3<br /> adc #$60<br /> bcc Nmi_UpdateFrameCounter<br /> lda $EF<br /> clc<br /> adc #$10<br /> bcc Nmi_StoreNewBaseColor<br /> adc #$0F<br /> Nmi_StoreNewBaseColor:<br /> sta $EF<br /> lda $F2<br /> sta $F1<br /> lda #$00<br /> Nmi_UpdateFrameCounter:<br /> sta $F3<br /> Nmi_RestoreRegs:<br /> lda #$02<br /> sta $F0<br /> pla<br /> tax<br /> pla<br /> rti<br /> <br /> Trap_InfiniteLoop:<br /> jmp Trap_InfiniteLoop<br /> <br /> ;=============================================================================<br /> ;<br /> ; V. SYSTEM INITIALIZATION (POST-TEST)<br /> ;<br /> ;=============================================================================<br /> <br /> ; This routine is executed after all Power-On Self Tests have passed.<br /> Bios_InitSystem:<br /> ldx #$FF ; selftest has passed, start system init<br /> txs ; set up a stack<br /> lda #$00 ; Clear TIA/Maria registers<br /> tax ;<br /> Bios_ClearRegsLoop:<br /> sta $01,X ;<br /> inx ;<br /> cpx #$2C ;<br /> bne Bios_ClearRegsLoop<br /> lda #$02 ;<br /> sta INPTCTRL ; Enable 7800 RAM<br /> ldx #$00 ;<br /> stx BACKGRND ; Set background color<br /> <br /> ; --- Copy BIOS Routines and Data to RAM ---<br /> ; This is a critical step. It copies the cartridge authentication code,<br /> ; graphics display routines, and associated data from the BIOS ROM<br /> ; into the main system RAM. This allows the BIOS to run its complex<br /> ; authentication logic from RAM, freeing up the cartridge bus.<br /> Bios_CopyCodeToRam_Loop:<br /> lda RamExec_Start,X ; copy the authentication and title screen to<br /> sta $2300,X ; ram<br /> lda Auth_Sub_MixAndLookup_Equate,X ;<br /> sta $2400,X ;<br /> lda AuthData_Table8,X ;<br /> sta $2500,X ;<br /> lda LF700,X ;<br /> sta $2600,X ;<br /> lda LF800,X ;<br /> sta $2700,X ;<br /> lda DisplayList_Defs,X ;<br /> sta $2200,X ;<br /> cpx #$00 ;<br /> bmi Bios_CopyCodeToRam_Done ;<br /> lda DisplayList_Master,X ;<br /> sta $1F84,X ;<br /> lda GraphicsData_FujiAtari_1,X ;<br /> sta $1984,X ;<br /> lda LFD3D,X ;<br /> sta $1A84,X ;<br /> lda LFDB4,X ;<br /> sta $1B84,X ;<br /> lda LFE18,X ;<br /> sta $1C84,X ;<br /> lda LFE57,X ;<br /> sta $1D84,X ;<br /> lda LFE96,X ;<br /> sta $1E84,X ;<br /> Bios_CopyCodeToRam_Done:<br /> dex ;<br /> bne Bios_CopyCodeToRam_Loop ;<br /> jmp $2306 ; and execute it (CartTest)<br /> <br /> ;Start display of Atari logo<br /> Display_InitLogo:<br /> lda CartKeyStartPage ; Read ROM start byte from cart<br /> and #$04 ; Is rom start greater then $4000?<br /> beq Display_InitLogo_Done ; Branch if not<br /> lda #$03<br /> sta $F1<br /> sta $F2<br /> lda #$49<br /> sta $EF<br /> lda #$66 ;Palette 1 Color 1<br /> sta P1C1 ;<br /> lda #$56 ;Palette 1 Color 2<br /> sta P1C2 ;<br /> lda #$2E ;Palette 1 Color 3<br /> sta P1C3 ;<br /> lda #$AA ;Set NMI vector to Nmi_DrawFujiAndAtari<br /> sta $F4 ;<br /> lda #$FA ;<br /> sta $F5 ;<br /> Display_WaitForVblankEnd:<br /> bit MSTAT ;Check VBLANK status<br /> bmi Display_WaitForVblankEnd ;Wait till end of VBLANK<br /> Display_WaitForVblankStart:<br /> bit MSTAT ;Check BLANK status<br /> bpl Display_WaitForVblankStart ;Wait for start of next VBLANK<br /> lda #$84 ;Set Display list pointer to $1f84<br /> sta DPPL ;<br /> lda #$1F ;<br /> sta DPPH ;<br /> lda #$43 ;Maria mode = DMA on/320A or 320C<br /> sta CTRL ;<br /> Display_InitLogo_Done:<br /> rts ;<br /> <br /> ;=============================================================================<br /> ;<br /> ; VI. GRAPHICS DATA AND DISPLAY LISTS<br /> ;<br /> ;=============================================================================<br /> <br /> ; --- Display List Definitions for Fuji/Atari Logo ---<br /> ; Each entry defines a block of scanlines, pointing to the graphics data<br /> ; to be displayed. Copied to $2200 in RAM.<br /> DisplayList_Defs: ;$2200<br /> <br /> .byte $84,$1F,$19,$BB ;$2200 Blank space<br /> .byte $00,$00<br /> <br /> .byte $84,$40,$19,$1F,$BB ;$2206 First DL on screen<br /> .byte $00,$00<br /> <br /> .byte $85,$1C,$19,$4A ;$220D Blank space before Fuji<br /> .byte $00,$00<br /> <br /> .byte $89,$1C,$19,$4A ;$2213 Fuji line 1<br /> .byte $00,$00<br /> <br /> .byte $8D,$1C,$19,$48 ;$2219 Fuji line 2<br /> .byte $00,$00<br /> <br /> .byte $91,$1B,$19,$46 ;$221F Fuji line 3<br /> .byte $00,$00<br /> <br /> .byte $96,$19,$19,$42 ;$2225 Fuji line 4<br /> .byte $00,$00<br /> <br /> .byte $9D,$17,$19,$3E ;$222B Fuji line 5<br /> .byte $00,$00<br /> <br /> .byte $A6,$17,$19,$3E ;$2231 Fuji line 6<br /> .byte $00,$00<br /> <br /> .byte $AF,$2C,$1C,$00 ;$2237 Start of Atari<br /> .byte $AF,$2C,$1C,$50 ; and between lines<br /> .byte $00,$00<br /> <br /> .byte $AF,$2C,$1D,$00 ;$2241 End of Atari<br /> .byte $AF,$2C,$1D,$50<br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$19,$28 ;$224B Atari line 1<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$19,$28 ;$2251 Atari line 2<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$19,$28 ;$2257 Atari line 3<br /> .byte $00,$00<br /> <br /> .byte $E8,$2D,$19,$28 ;$225D Atari line 4<br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$1A,$28 ;$2263 Atari line 5<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$1A,$28 ;$2269 Atari line 6<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$1A,$28 ;$226F Atari line 7<br /> .byte $00,$00<br /> <br /> .byte $E8,$2D,$1A,$28 ;$2275 Atari line 8<br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$1B,$28 ;$227B Atari line 9<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$1B,$28 ;$2281 Atari line 10<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$1B,$28 ;$2287 Atari line 11<br /> .byte $00,$00<br /> <br /> ; --- Master Display List for Boot Screen ---<br /> ; This is the main display list that Maria reads. It is a list of pointers<br /> ; to the display list definitions above. Copied to $1F84 in RAM.<br /> DisplayList_Master:<br /> .byte $0F,$22,$06 ;Blank space<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $03,$22,$00 ;<br /> .byte $85,$22,$0D ;DLI - Triggers NMI for color cycling<br /> .byte $05,$22,$13 ;Draw Fuji<br /> .byte $05,$22,$19 ;<br /> .byte $05,$22,$1F ;<br /> .byte $05,$22,$25 ;<br /> .byte $05,$22,$2B ;<br /> .byte $05,$22,$31 ;<br /> .byte $0F,$22,$00 ;Blank area<br /> .byte $01,$22,$37 ;Draw &quot;ATARI&quot;<br /> .byte $00,$22,$4B ;Line 1<br /> .byte $02,$22,$37<br /> .byte $00,$22,$51 ;Line 2<br /> .byte $02,$22,$37<br /> .byte $00,$22,$57 ;Line 3<br /> .byte $02,$22,$37<br /> .byte $00,$22,$5D ;Line 4<br /> .byte $02,$22,$37<br /> .byte $00,$22,$63 ;Line 5<br /> .byte $02,$22,$37<br /> .byte $00,$22,$69 ;Line 6<br /> .byte $02,$22,$37<br /> .byte $00,$22,$6F ;Line 7<br /> .byte $02,$22,$37<br /> .byte $00,$22,$75 ;Line 8<br /> .byte $02,$22,$37<br /> .byte $00,$22,$7B ;Line 9<br /> .byte $02,$22,$37<br /> .byte $00,$22,$81 ;Line 10<br /> .byte $02,$22,$37<br /> .byte $00,$22,$87 ;Line 11<br /> .byte $01,$22,$41<br /> .byte $0F,$22,$00 ;Blank Space<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> <br /> ; --- Fuji/Atari Logo Graphics Data ---<br /> ; These are the raw bitmap graphics for the logo, copied to RAM.<br /> GraphicsData_FujiAtari_1:<br /> .byte $00,$7c,$7f,$8f,$80,$fc,$7f,$8f,$c0,$1f,$87,$f8,$7e,$0f,$e0,$7f<br /> GraphicsData_FujiAtari_2:<br /> .byte $81,$fc,$07,$ff,$80,$7f,$80,$7f,$f8,$1f,$ff,$f0,$00,$7f,$80,$03<br /> GraphicsData_FujiAtari_3:<br /> .byte $ff,$fe,$1f,$00,$00,$00,$7f,$80,$00,$00,$3e,$00,$00,$0c,$00,$3f<br /> GraphicsData_FujiAtari_4:<br /> .byte $ff,$ff,$ff,$f0,$00,$c0,$00,$00,$3f,$ff,$ff,$00,$03,$fc,$00,$00<br /> GraphicsData_FujiAtari_5:<br /> .byte $3f,$00,$3f,$ff,$ff,$ff,$f0,$03,$f0,$00,$00,$3f,$ff,$ff,$fc,$03<br /> GraphicsData_FujiAtari_6:<br /> .byte $fc,$00,$00,$ff,$c0,$00,$03,$ff,$00,$00,$0f,$fc,$00,$00,$3f,$f0<br /> GraphicsData_FujiAtari_7:<br /> .byte $03,$ff,$c3,$fc,$00,$03,$ff,$f0,$00,$03,$ff,$00,$00,$3f,$ff,$00<br /> LFD36:<br /> .byte $00,$3f,$f0,$00,$3f,$c3,$fc,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80<br /> LFD46:<br /> .byte $1f,$87,$f8,$7e,$0f,$f0,$7f,$83,$fc,$01,$ff,$80,$7f,$80,$7f,$e0<br /> LFD56:<br /> .byte $1f,$ff,$f8,$00,$7f,$80,$07,$ff,$fe,$1f,$f0,$00,$00,$7f,$80,$00<br /> LFD66:<br /> .byte $03,$fe,$00,$0f,$f3,$fc,$00,$03,$ff,$00,$00,$ff,$3f,$c0,$00,$3f<br /> LFD76:<br /> .byte $f0,$00,$ff,$c3,$fc,$00,$3f,$c0,$ff,$00,$03,$ff,$00,$03,$fc,$0f<br /> LFD86:<br /> .byte $f0,$00,$3f,$f0,$3f,$fc,$03,$fc,$00,$ff,$00,$3f,$c0,$03,$ff,$00<br /> LFD96:<br /> .byte $0f,$f0,$03,$fc,$00,$3f,$f0,$ff,$c0,$03,$fc,$03,$ff,$ff,$ff,$f0<br /> LFDA6:<br /> .byte $03,$ff,$00,$3f,$ff,$ff,$ff,$00,$3f,$f0,$3f,$f0,$03,$fc,$00,$7c<br /> LFDB6:<br /> .byte $7f,$8f,$80,$7c,$7f,$8f,$80,$1f,$87,$f8,$7e,$07,$f0,$7f,$83,$f8<br /> LFDC6:<br /> .byte $00,$ff,$c0,$7f,$80,$ff,$c0,$1f,$ff,$fc,$00,$7f,$80,$0f,$ff,$fe<br /> LFDD6:<br /> .byte $1f,$fc,$00,$00,$7f,$80,$00,$0f,$fe,$0f,$ff,$ff,$ff,$fc,$03,$ff<br /> LFDE6:<br /> .byte $00,$ff,$ff,$ff,$ff,$c0,$3f,$f0,$0f,$fc,$03,$fc,$3f,$f0,$00,$03<br /> LFDF6:<br /> .byte $ff,$03,$ff,$03,$ff,$00,$00,$3f,$f0,$3f<br /> LFE00:<br /> .byte $f0,$03,$ff,$03,$fc,$ff<br /> LFE06:<br /> .byte $c0,$00,$00,$ff,$c3,$ff,$0f,$fc,$00,$00,$0f,$fc,$3f,$f0,$00,$ff<br /> LFE16:<br /> .byte $c3,$fc,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$87,$f8,$7c,$07<br /> LFE26:<br /> .byte $f0,$7f,$83,$f8,$00,$7f,$c0,$7f,$80,$ff,$80,$1f,$ff,$fe,$00,$7f<br /> LFE36:<br /> .byte $80,$1f,$ff,$fe,$1f,$ff,$00,$00,$7f,$80,$00,$3f,$fe,$55,$55,$55<br /> LFE46:<br /> .byte $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55<br /> LFE56:<br /> .byte $55,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$c7,$f8,$fc,$03,$f0<br /> LFE66:<br /> .byte $7f,$83,$f0,$00,$3f,$e0,$7f,$81,$ff,$00,$01,$ff,$fe,$00,$7f,$80<br /> LFE76:<br /> .byte $1f,$ff,$e0,$1f,$ff,$c0,$00,$7f,$80,$00,$ff,$fe,$aa,$aa,$aa,$aa<br /> LFE86:<br /> .byte $aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa<br /> LFE96:<br /> .byte $00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$c7,$f8,$fc,$03,$f8,$7f<br /> LFEA6:<br /> .byte $87,$f0,$00,$1f,$e0,$7f,$81,$fe,$00,$00,$1f,$ff,$00,$7f,$80,$3f<br /> LFEB6:<br /> .byte $fe,$00,$1f,$ff,$e0,$00,$7f,$80,$01,$ff,$fe,$55,$55,$55,$55,$55<br /> LFEC6:<br /> .byte $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$09<br /> LFED6:<br /> .byte $ca,$c9,$c6,$b4,$12,$08,$1b,$60,$58,$81,$4b,$86,$01,$d8,$bf,$d9<br /> LFEE6:<br /> .byte $25,$a0,$7b,$dc,$32,$79,$84,$3b,$7c,$bc,$2f,$e2,$e2,$fa,$8d,$0a<br /> LFEF6:<br /> .byte $00,$3b,$c5,$ec,$af,$2d,$8a,$cd,$06,$93<br /> LFF00:<br /> .byte $6a,$a5,$14,$46,$77,$c4<br /> LFF06:<br /> .byte $6a,$b2,$53,$36,$ef,$8c,$ce,$0c,$a2,$68,$71,$d3,$73,$e8,$f7,$6d<br /> LFF16:<br /> .byte $06,$b5,$20,$ef,$23,$47,$0c,$51,$55,$c8,$fe,$f4,$58,$c4,$3f,$20<br /> LFF26:<br /> .byte $a7,$67,$38,$b0,$76,$e2,$c4,$d8,$05,$63,$f8,$3c,$58,$3b,$2d,$22<br /> LFF36:<br /> .byte $cc,$88,$b3,$71,$8f,$1d,$80,$0a,$87,$bd,$a1,$59,$23,$e9,$70,$e2<br /> LFF46:<br /> .byte $d3,$ec,$46,$68,$80,$42,$39,$ea,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF56:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF66:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF76:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF86:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF96:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFA6:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFB6:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFC6:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFD6:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFE6:<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> <br /> <br /> <br /> LFD3D = $FD3D<br /> LFDB4 = $FDB4<br /> LFDD5 = $FDD5<br /> LFE18 = $FE18<br /> LFE57 = $FE57<br /> LFE84 = $FE84<br /> LFE96 = $FE96<br /> LFED5 = $FED5<br /> LFF00 = $FF00<br /> <br /> GccCopyright:<br /> .byte $47,$43,$43,$28,$43,$29 ; 'GCC(C)'<br /> .byte $31,$39,$38,$34,$2D,$F7 ; '1984-'<br /> <br /> ;=============================================================================<br /> ;<br /> ; VII. 6502 HARDWARE VECTORS<br /> ;<br /> ;=============================================================================<br /> <br /> ; These are the processor's hard-wired vectors at the top of memory.<br /> ; The BIOS uses these to direct the CPU on NMI, Reset, and IRQ events.<br /> ; When a cartridge is mapped in, its own vectors at these locations are used.<br /> <br /> CartNMIVectorLo:<br /> .byte $00,$F0 ; System NMI vector points to NmiVector_Rom.<br /> CartResetVectorLo:<br /> .word START ; System RESET vector points to $F884.<br /> CartIRQVectorLo:<br /> .byte $33,$F9 ; System IRQ vector.<br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_NTSC_BIOS&diff=1258 2025-07-20T17:44:15Z

<p>MSaarna: </p> <hr /> <div>==7800 NTSC BIOS==<br /> <br /> This reverse engineered 7800 NTSC BIOS code contains helpful context-comments and builds a 1:1 with the official BIOS ROM. In DASM syntax.<br /> <br /> <br /> &lt;pre&gt;<br /> ; Disassembly of bios7800.bin<br /> ; Disassembled Sun Mar 08 20:30:38 1998<br /> ; Using DiStella v2.0<br /> ;<br /> ; Comments added by Keith Henrickson &lt;flipper@phin.com&gt;<br /> ; Further commented by Daniel Boris &lt;dboris@home.com&gt;<br /> ; Fixed to compile correctly with dasm, and additional comments by <br /> ; Mike Saarna. You can't have my email!<br /> ;<br /> <br /> processor 6502<br /> <br /> ; some misc equates<br /> LFD80 = $FD80<br /> CartKey = $FF80<br /> CartRegion = $FFF8<br /> CartKeyStartPage = $FFF9<br /> CartResetVectorHi = $FFFD<br /> LF112 = $F112<br /> LF118 = $F118<br /> LF460 = $F460<br /> LF700 = $F700<br /> LF800 = $F800<br /> <br /> <br /> ; 7800 system<br /> <br /> INPTCTRL = $01<br /> <br /> ; TIA<br /> <br /> VSYNC = $00<br /> VBLANK = $01<br /> WSYNC = $02<br /> RSYNC = $03<br /> COLUP0 = $06<br /> COLUPF = $08<br /> COLUBK = $09<br /> PF2 = $0F<br /> RESP1 = $11<br /> GRP0 = $1B<br /> GRP1 = $1C<br /> <br /> ;Maria<br /> <br /> BACKGRND = $20<br /> POC1 = $21<br /> P0C2 = $22<br /> POC3 = $23<br /> MWSYNC = $24<br /> P1C1 = $25<br /> P1C2 = $26<br /> P1C3 = $27<br /> MSTAT = $28<br /> DPPH = $2C<br /> DPPL = $30<br /> CTRL = $3C<br /> <br /> DLIAddr = $F4<br /> ConsoleRegion = $FE<br /> <br /> ORG $F000<br /> <br /> LF000: pha ; This is the NMI routine.<br /> jmp (DLIAddr) ; RAM NMI vector<br /> <br /> <br /> ORG $F400<br /> <br /> ; this code is designed to be executed while stored in ram at 2300.<br /> LF400<br /> SwitchTo2600Mode1<br /> jmp $26C2 ; Enter 2600 mode.<br /> SwitchTo2600Mode2<br /> jmp $26C2 ; Enter 2600 mode.<br /> <br /> CartTest<br /> lda #$16 ; ($2306)<br /> sta INPTCTRL ; Switch in cart + enable Maria<br /> <br /> ldy #$FF ;<br /> ldx #$7F ;<br /> CartTestLoop<br /> lda LFE00,X ; Compare same FE7F+ ROM with differing opcodes, <br /> cmp LFD80,Y ; to avoid false positives from a floating bus.<br /> bne SwitchTo2600Mode1 ; Switch to 2600 mode<br /> dey ;<br /> dex ;<br /> bpl CartTestLoop<br /> <br /> lda CartResetVectorLo ;<br /> and CartResetVectorHi ;<br /> cmp #$FF ;<br /> beq SwitchTo2600Mode1 ; If RESET vector is FFFF, then go 2600.<br /> lda CartResetVectorLo ;<br /> ora CartResetVectorHi ;<br /> beq SwitchTo2600Mode1 ; If RESET vector is 0000, then go 2600.<br /> lda CartRegion ; &quot;Region verification&quot;<br /> ora #ConsoleRegion<br /> cmp #$FF ; <br /> bne SwitchTo2600Mode2 ; If low-bit of CartRegion=0, then go 2600.<br /> lda CartRegion ;<br /> eor #$F0 ; Invert high nibble<br /> and #$F0 ; Extract high nibble<br /> bne SwitchTo2600Mode2 ; If high nibble was not F, then go 2600.<br /> lda CartKeyStartPage ;<br /> and #$0B ; <br /> cmp #$03 ; <br /> bne SwitchTo2600Mode2 ; If low nibble FFF9 was not 3 or 7, go 2600.<br /> lda CartKeyStartPage ;<br /> and #$F0 ; Extract ROM start from high nibble<br /> sta $EE ; Store it <br /> sta $2406 ; Store it a couple of places for auth. (whocares)<br /> cmp #$40 ;<br /> bcc SwitchTo2600Mode2 ; If ROM start &lt; than 4, then go 2600<br /> sbc #$01 ; Subtract 1.<br /> cmp CartResetVectorHi ; High byte of reset vector<br /> bcs SwitchTo2600Mode2 ; If high-byte of start is &gt;=, go 2600<br /> jsr $2536 ; Start the authentication process.<br /> <br /> lda #$00<br /> sta $F0 <br /> jsr $241B <br /> lda #$16 <br /> sta INPTCTRL <br /> ldx #$00 <br /> txa <br /> LF46D: sta $1800,X <br /> dex <br /> bne LF46D <br /> pha <br /> ldy #$7F <br /> LF476: lda LFF00,Y <br /> sta $1800,Y <br /> dey <br /> cpy #$F8 <br /> bne LF476 <br /> lda #$2E <br /> sta $2409 <br /> lda #$24 <br /> sta $240A <br /> <br /> LF48B<br /> jsr $241B <br /> pla <br /> jsr $23FF <br /> pha <br /> inc $2406 <br /> lda $2406 <br /> cmp #$FF <br /> bne LF48B <br /> <br /> jsr $241B <br /> jsr $2412 <br /> jsr $2412 <br /> lda #$36 <br /> sta $2409 <br /> lda #$24 <br /> sta $240A <br /> dec $2406 <br /> LF4B3: jsr $241B <br /> pla <br /> jsr $23FF <br /> pha <br /> dec $2406 <br /> lda $2406 <br /> cmp $EE <br /> bcs LF4B3 <br /> lda #$60 <br /> sta CTRL <br /> ldx #$77 <br /> LF4CB: lda $1800,X <br /> eor $1850,X <br /> eor $1888,X <br /> sta $1A00,X <br /> dex <br /> bpl LF4CB <br /> lda $1A00 <br /> and #$07 <br /> sta $1A00 <br /> lda #$00 <br /> ldx #$04 <br /> sta $1A00,X <br /> sta $2000,X <br /> ldx #$77 ; That was a lot, but we end up here, comparing<br /> LF4EE: lda $2000,X ; two parts of memory. If they match, then<br /> cmp $1A00,X ; go to 7800 mode....<br /> bne LF4FC ; otherwise go to 2600 mode.<br /> dex ; nop out above branch to allow user-written<br /> bpl LF4EE ; carts to run -- I think.<br /> jmp $26B9 ; 7800 mode init<br /> LF4FC: jmp $26C2 ; 2600 mode init.<br /> <br /> <br /> LF500 = $F500 ; F500 is partway through the next opcode<br /> ldx #$00 ; more authentication stuff all the way through<br /> LF501: adc $1800,X<br /> adc LFF00,X <br /> tay <br /> lda $2DD5,Y <br /> sta $1800,X <br /> inx <br /> bne LF501 <br /> rts <br /> <br /> ldx #$00 <br /> LF514: rol $1800,X <br /> inx <br /> bne LF514 <br /> rts <br /> <br /> ;$241B<br /> php <br /> dec $F0 <br /> bpl LF52C <br /> lda #$02 <br /> sta INPTCTRL <br /> LF524: lda $F0 <br /> bmi LF524 <br /> lda #$16 <br /> sta INPTCTRL <br /> LF52C: plp <br /> rts <br /> <br /> LF52E: .byte $C7,$65,$AB,$CA,$EE,$F7,$83,$09<br /> LF536: .byte $E1,$D0,$92,$67,$62,$B6,$72,$55,$8E,$91,$DC,$C5,$81,$BE,$78,$20<br /> .byte $59,$B7,$E6,$3D,$06,$45,$AF,$C8,$08,$31,$38,$D1,$FB,$73,$84,$A9<br /> .byte $17,$FC,$34,$87,$A3,$94,$FA,$90,$B8,$ED,$CE,$3B,$5B,$0A,$43,$D9<br /> .byte $F3,$53,$82,$B3,$0D,$6D,$5A,$60,$9D,$51,$A7,$B9<br /> LF572: .byte $11,$10,$BC,$E4,$7F,$80,$41,$E7,$E3<br /> LF57B: .byte $F6,$56,$26,$35,$EC,$D6,$DF,$0C,$7F,$F4,$9E,$AC,$52,$46,$EF,$CF<br /> .byte $BF,$A2,$3F,$A4,$13,$15,$97,$4A,$1C,$B0,$42,$8C,$B1,$05,$58,$80<br /> .byte $18,$77,$2B,$02,$3E,$A8,$49,$1A,$6A<br /> LF5A4: .byte $CB,$6E,$0B,$8A,$EB,$F1,$4F,$14,$79,$8B,$D8,$9F,$9B,$57,$19,$F8<br /> .byte $2A,$2D,$76,$0E,$E8,$2E,$4B,$F9,$07,$03,$DE,$93,$16,$7E,$D4,$E5<br /> .byte $B2,$F0,$7D,$7A,$DA,$D2,$A1,$CC,$1D,$E0,$5E,$23,$A0,$95,$22,$1E<br /> .byte $36,$85,$FE,$1F,$39<br /> LF5D9: .byte $AA,$89,$96,$AD,$0F,$2F,$C0,$47<br /> LF5E1: .byte $27,$5D,$24,$EA,$C3,$A5,$F5,$21,$5F,$1B,$40,$8F,$AE,$74,$25,$DD<br /> .byte $C1,$7C,$CD,$A6,$70,$D7,$33,$7B,$2C,$75,$BB,$86,$99,$BD,$54<br /> LF600: .byte $9A,$6C,$63,$32,$48,$4C,$8D,$BA<br /> LF608: .byte $5C,$61,$C4,$4E,$29,$37,$12,$C6,$98,$9C,$D5,$69,$6B,$E2,$04,$4D<br /> .byte $E9,$C2,$88,$3A,$DB,$64,$01,$44,$6F,$B5,$F2,$30,$28,$FD,$50,$71<br /> .byte $3C,$B4,$66,$68,$C9,$D3,$CA,$83,$C7,$AB,$F7,$65,$09,$EE<br /> <br /> ldx #$77 ;($2536)<br /> stx $E4 <br /> stx $E5 <br /> LF63C: lda CartKey,X ;Read Key<br /> sta $1901,X ;Store it<br /> sta $2000,X ;Store it again<br /> dex ;next byte of key<br /> bpl LF63C ;Continue<br /> <br /> lda #$02 ;<br /> sta INPTCTRL ;Disable cart <br /> jsr LFB84 ;Init display<br /> jsr $257B <br /> dec $F2 <br /> ldx #$77 <br /> stx $E4 <br /> LF658: lda LFED5,X <br /> sta $1901,X <br /> dex <br /> bpl LF658 <br /> lda $E1 <br /> sta $E3 <br /> jsr $25E1 <br /> dec $F2 <br /> LF66A: lda $E0 <br /> sta $2572 <br /> ldx #$77 <br /> LF671: lda $1800,X <br /> LF674: sta $2000,X <br /> dex <br /> bpl LF671 <br /> rts <br /> <br /> jsr $2639 ;($257B)<br /> ldy $E5 <br /> iny <br /> LF681: STY $E1 <br /> TYA <br /> clc <br /> adc $E2 <br /> pha <br /> LF688: tax <br /> lda #$00 <br /> sta $2671 <br /> LF68E: sta $1800,X <br /> dex <br /> LF692: bne LF68E <br /> sta $1800 <br /> LF697: iny <br /> STY $266E <br /> STY $2674 <br /> STY $267C <br /> STY $2681 <br /> ldx #$00 <br /> LF6A6: dec $266E <br /> LF6A9: dec $2674 <br /> LF6AC: dec $267C <br /> dec $2681 <br /> dec $E1 <br /> bmi LF6D1 <br /> LF6B6: ldy $E1 <br /> lda $2000,Y <br /> and $25D9,X <br /> beq LF6C9 <br /> lda $2662,X <br /> sta $2672 <br /> jsr $266A <br /> LF6C9: inx <br /> cpx #$08 <br /> bmi LF6B6 <br /> jmp $25A4 <br /> LF6D1: pla <br /> sta $E1 <br /> lda #$01 <br /> sta $E0 <br /> rts <br /> <br /> LF6D9: .byte $01,$02,$04,$08,$10,$20,$40,$80<br /> <br /> jsr $2639<br /> lda $E3 <br /> sec <br /> sbc $E4 <br /> sta $E0 <br /> sta $E1 <br /> ldx #$00 <br /> stx $1800 <br /> stx $268F <br /> stx $26AC <br /> dex <br /> stx $26A9 <br /> stx $268C <br /> stx $2692 <br /> stx $269A <br /> stx $269F <br /> ldx #$07 <br /> inc $26A9 <br /> inc $268C <br /> inc $2692 <br /> inc $269A <br /> inc $269F <br /> dec $E1 <br /> bmi LF734 <br /> LF71D: lda $2662,X <br /> sta $2690 <br /> sta $26AD <br /> jsr $26A6 <br /> bcc LF72E <br /> jsr $2688 <br /> LF72E: dex <br /> bpl LF71D <br /> jmp $2608 <br /> LF734: lda $E3 <br /> sta $E1 <br /> rts <br /> <br /> ldx $E4 ;($2639)<br /> inx <br /> stx $E2 <br /> ldy #$00 <br /> STY $1900 <br /> LF743: lda $2662,Y <br /> sta $2655 <br /> iny <br /> lda $2662,Y <br /> sta $2659 <br /> ldx $E2 <br /> clc <br /> LF753: lda $1900,X <br /> rol<br /> sta $1900,X <br /> dex <br /> bpl LF753 <br /> cpy #$07 <br /> bmi LF743 <br /> rts <br /> <br /> LF762: .byte $19,$1A,$1B,$1C,$1D,$1E,$1F,$21<br /> <br /> ldy $E2<br /> clc <br /> LF76D: lda $1800,Y <br /> adc $1900,Y <br /> sta $1800,Y <br /> dey <br /> bpl LF76D <br /> bcc LF787 <br /> lda $1700,Y <br /> adc #$00 <br /> sta $1700,Y <br /> dey <br /> jmp $2679 <br /> LF787: rts <br /> <br /> ldy $E2 <br /> sec <br /> LF78B: lda $1800,Y <br /> sbc $1900,Y <br /> sta $1800,Y <br /> dey <br /> bpl LF78B <br /> bcs LF7A5 <br /> lda $1700,Y <br /> sbc #$00 <br /> sta $1700,Y <br /> dey <br /> jmp $2697 <br /> LF7A5: rts <br /> <br /> ldy #$00 <br /> lda $1800,Y <br /> cmp $1900,Y <br /> beq LF7B1 <br /> LF7B0: rts <br /> <br /> LF7B1: cpy $E2 <br /> beq LF7B0 <br /> iny <br /> jmp $26A8 <br /> <br /> LF7B9: ; ($26B9) 7800 mode init<br /> ldx #$16 ; finally, back to something important<br /> stx INPTCTRL ; switch out bios and use reset vector<br /> txs ; on cart to start the game.<br /> SED <br /> jmp (CartResetVectorLo) <br /> <br /> ; Enable 2600 mode<br /> LF7C2: ; ($26C2) 2600 mode init<br /> lda #$02 ; Enable memory/bios<br /> sta INPTCTRL ; <br /> ldx #$7F<br /> LF7C8: lda LF7D4,X ; again, copy code to ram....<br /> sta $0480,X <br /> dex <br /> bpl LF7C8 <br /> jmp $0480 ; execute it<br /> <br /> ; code executed at $0480 (RIOT RAM)<br /> <br /> LF7D4: lda #$00 ; <br /> tax ; <br /> sta INPTCTRL ; Disable 7800 RAM<br /> LF7D9: sta RSYNC,X ; Clear the TIA<br /> inx ;<br /> cpx #$2A ;<br /> bne LF7D9 ;<br /> sta WSYNC ; wait for sync<br /> lda #$04 ;<br /> nop ;<br /> bmi LF80A <br /> ldx #$04 <br /> LF7E9: dex <br /> bpl LF7E9 <br /> txs <br /> sta $0110 <br /> jsr $04CB <br /> jsr $04CB <br /> sta RESP1 <br /> sta GRP0 <br /> sta GRP1 <br /> sta PF2 <br /> nop <br /> sta WSYNC <br /> lda #$00 <br /> nop <br /> bmi LF80A <br /> bit RSYNC <br /> bmi LF813 <br /> LF80A: lda #$02 <br /> sta COLUBK <br /> sta LF112 <br /> bne LF831 <br /> LF813: bit WSYNC <br /> bmi LF823 <br /> lda #$02 <br /> sta COLUP0 <br /> sta LF118 <br /> sta LF460 <br /> bne LF831 <br /> LF823: sta DPPH <br /> lda #$08 <br /> sta GRP0 <br /> jsr $04CB <br /> nop <br /> bit WSYNC <br /> bmi LF80A <br /> LF831: lda #$FD <br /> sta COLUPF <br /> jmp (CartResetVectorLo) ; And use the reset vector on the cart to start<br /> nop ; the 2600 game.<br /> <br /> ORG $F880<br /> <br /> LF880: lda #$1D ; this is called any time the self-test fails.<br /> sta INPTCTRL ; Eanble TIA/Cart/lock out INPTCTRL<br /> <br /> START: ; $F884 <br /> SEI ; BIOS entry point. Disable interrupts<br /> CLD ; Clear decimal flag<br /> lda #$02 ;<br /> LF888: sta INPTCTRL ; Enable 7800 RAM<br /> lda #$FB ;<br /> sta $F5 ;<br /> lda #$12 ;<br /> sta $F4 ; set nmi vector to FB12. (shares cleanup of irq)<br /> lda #$7F ;<br /> sta CTRL ; Turn off DMA<br /> lda #$00 ;<br /> sta BACKGRND ; Background color<br /> ldx #$05 ;<br /> LF89C: lda LF91D,X ; looks icky, but it's just a ram test<br /> ldy #$00 ;<br /> LF8A1: sta $2000,Y ;<br /> cmp $2000,Y ;<br /> bne LF8D0 ; Test failed<br /> sta $2100,Y ;<br /> cmp $2100,Y ;<br /> bne LF8D0 ; Test failed<br /> dey ;<br /> bne LF8A1 ;<br /> dex ;<br /> bpl LF89C ; and right down here, it passes<br /> lda #$43 ; Check RAM 0 mirror<br /> sta $2080 ; <br /> cmp $80 ; <br /> bne LF8CB ; make sure they match. If not, fail selftest.<br /> sta $2180 ; Check RAM 1 mirror<br /> cmp $0180 ; <br /> bne LF8CB ; make sure they match. If not, fail selftest.<br /> jmp LF938 ; continue selftest<br /> LF8CB: ldy #$04 ;<br /> jmp LF880 ; selftest fail.<br /> <br /> LF8D0: sta $1800 ; test store and compare<br /> cmp $1800 <br /> bne LF8E2 ; some kind of error code is being determined<br /> LF8D8: ldy #$01 <br /> jmp LF880 <br /> <br /> LF8DD: ldy #$02<br /> jmp $F880<br /> <br /> LF8E2: ldy #$03<br /> jmp LF880 <br /> <br /> LF8E7: lda #$00 ; this is a more comprehensive ram test than<br /> sta $F0 ; the first routine, and it is called after<br /> sta $F2 ; more of the selftest has completed.<br /> ldy #$07 <br /> STY $F4 <br /> LF8F1: lda LF923,Y <br /> sta $F1 <br /> lda LF92B,Y <br /> sta $F3 <br /> ldx #$05 <br /> LF8FD: lda LF91D,X <br /> LF900: ldy #$00 <br /> LF902: sta ($F0),Y <br /> cmp ($F0),Y <br /> bne LF8D8 <br /> sta ($F2),Y <br /> cmp ($F2),Y <br /> bne LF8DD <br /> dey <br /> bne LF902 <br /> dex <br /> bpl LF8FD <br /> dec $F4 <br /> ldy $F4 <br /> bpl LF8F1 <br /> jmp LFB17 ; ram test passed, so jump in here.<br /> <br /> ; ram test data<br /> LF91D: .byte $00,$FF,$55,$AA,$69,$0F<br /> LF923: .byte $22,$23,$24,$25,$26,$27,$22,$23<br /> LF92B: .byte $18,$19,$1A,$1B,$1C,$1D,$1E,$1F<br /> <br /> LF933: ldy #$00 ; local place for selftest fail branch target<br /> jmp LF880 <br /> <br /> ; 6502 CPU test<br /> <br /> LF938: lda #$AA ; test some flags and branches<br /> beq LF933 ; test failed<br /> bpl LF933 ; test failed<br /> bmi LF943 ; test passed<br /> jmp LF933 ; test failed<br /> LF943: bne LF948 ; test passed<br /> jmp LF933 ; test failed<br /> LF948: sta $AA ; store AA to 00AA<br /> cmp $AA ; compare it back<br /> bne LF933 ; if it doesn't match, selftest fail<br /> lda #$00 ; do some more flag tests<br /> bne LF933 ;<br /> bmi LF933 ;<br /> bpl LF959 ; test passed<br /> jmp LF933 ;<br /> LF959: beq LF95E ; test passed<br /> jmp LF933 ;<br /> LF95E: cmp #$00 ; test the compare instruction<br /> bne LF933 ;<br /> bcc LF933 ;<br /> bcs LF969 ; test passed, since they're equal<br /> jmp LF933 ;<br /> LF969: cmp #$01 ; compare it to 01<br /> bcs LF933 ;<br /> bcc LF972 ; A &lt; 01, so carry is clear<br /> jmp LF933 ;<br /> LF972: ldx #$55 ; test comparisons with the X register<br /> cpx #$56 ;<br /> beq LF933 ;<br /> stx $01AA ;<br /> cpx $01AA ;<br /> bne LF933 ;<br /> ldy $AA ; and with the Y register.<br /> cpy #$AB ;<br /> LF984: beq LF933 ;<br /> STY $0155 ; put some stuff in the stack area to test stack<br /> cpy $0155 ; and then access this data in many diffeent ways<br /> bne LF933 ;<br /> dex ;<br /> txs ;<br /> inx ;<br /> pla ;<br /> cmp #$AA ;<br /> bne LF9EB ;<br /> txa ;<br /> pha ;<br /> cpx $0155 ;<br /> bne LF9EB ;<br /> TYA ;<br /> cmp #$AA ;<br /> bne LF9EB ;<br /> tax ;<br /> lda $0100,X ;<br /> tay ;<br /> cpy #$55 ;<br /> bne LF9EB ;<br /> lda VSYNC,X ;<br /> cmp $AA ;<br /> bne LF9EB ;<br /> cmp #$AA ;<br /> bne LF9EB ;<br /> eor #$FF ;<br /> sta $0000,Y ;<br /> cmp $55 ;<br /> bne LF9EB ;<br /> cmp $0100,Y ;<br /> bne LF9EB ;<br /> cmp $20AB,X ;<br /> bne LF9EB ;<br /> lda #$20 ;<br /> sta $F1 ;<br /> lda #$CC ;<br /> sta $F0 ;<br /> sta ($46,X) ;<br /> cmp $CC ;<br /> bne LF9EB ;<br /> sta ($F0),Y ;<br /> cmp $2121 ;<br /> bne LF9EB ;<br /> lda #$EE ; test the indirect jump by setting up a jump<br /> sta $F0 ; to F9EE<br /> lda #$F9 ;<br /> sta $F1 ;<br /> jmp ($00F0) ; and do it.<br /> <br /> LF9E8: jmp $F9EB<br /> <br /> LF9EB: jmp LF933<br /> <br /> <br /> LF9EE: lda #$55 ; now test out the math functions.<br /> clc <br /> adc #$55 <br /> nop <br /> bcs LF9EB ; test addition.<br /> bpl LF9EB <br /> beq LF9EB <br /> cmp #$AA ; make sure it worked<br /> bne LF9EB <br /> adc #$55 ; test addition again.<br /> LFA00: nop <br /> bcc LF9EB <br /> bmi LF9EB <br /> bne LF9EB <br /> sbc #$55 ; test subtraction<br /> bcs LF9EB <br /> bpl LF9EB <br /> beq LF9EB <br /> cmp #$AB ; make sure it worked<br /> bne LF9EB <br /> clc <br /> sbc #$AA ; test subtraction again<br /> bcc LF9EB <br /> bmi LF9EB <br /> bne LF9EB <br /> lda #$FF ; set up a stack<br /> tax ; and do all kinds of stuff in it for tests<br /> inx <br /> bne LFA58 <br /> dex <br /> beq LFA58 <br /> bpl LFA58 <br /> cpx #$FF <br /> bne LFA58 <br /> tay <br /> iny <br /> bne LFA58 <br /> dey <br /> beq LFA58 <br /> iny <br /> bne LFA58 <br /> sta $F0 <br /> inc $F0 <br /> bne LFA58 <br /> cpy $F0 <br /> bne LFA58 <br /> dec $F0 <br /> beq LFA58 <br /> cmp $F0 <br /> bne LFA58 <br /> lda #$AA <br /> clc <br /> rol ; now we get onto the more complex math instrs<br /> rol<br /> rol<br /> cmp #$52 <br /> bne LFA58 ; make sure rotate left works.<br /> ror<br /> ror<br /> ror<br /> cmp #$AA <br /> beq LFA5B ; test rotate right<br /> LFA58: jmp LF933 ; fail!<br /> <br /> LFA5B: asl ; test arithmetic shift left<br /> bcc LFA58 <br /> asl <br /> bcs LFA58 <br /> asl <br /> cmp #$50 <br /> bne LFA58 <br /> eor #$05 <br /> lsr ; and logical shift right<br /> bcc LFA58 <br /> lsr <br /> bcs LFA58 <br /> lsr <br /> cmp #$0A <br /> bne LFA58 <br /> lda #$55 ; now test the ands and ors.<br /> ora #$1B <br /> cmp #$5F <br /> bne LFA58 <br /> and #$55 <br /> and #$1B <br /> cmp #$11 <br /> bne LFA58 <br /> ora #$55 <br /> eor #$1B ; and the eors<br /> cmp #$4E <br /> bne LFA58 <br /> jsr LFA91 ; test jump subroutine instruction<br /> jmp LFA58 ; if we return, fail<br /> <br /> LFA91: tsx <br /> cpx #$52 ; check stack pointer<br /> bne LFA58 ; fail if not right<br /> pla <br /> cmp #$8D <br /> bne LFA58 <br /> pla <br /> cmp #$FA <br /> bne LFA58 ; get the old return address off the stack<br /> lda #$F8 <br /> pha <br /> lda #$E6 <br /> pha ; and make our own<br /> rts ; and 'return' to F8E7<br /> <br /> jmp LFA58 ; another jump to catch a failure<br /> <br /> ; Interrupt routine NMI. <br /> <br /> LFAAA: txa ;Save A<br /> pha ; <br /> lda #$43 ;Setup control register <br /> sta CTRL ; <br /> ldx #$0F ; Handle the color scrolling in the FUJI <br /> lda $EF <br /> sta P0C2<br /> bit $F3 <br /> bvc LFAC0 <br /> bpl LFABE <br /> LFABC: sta MWSYNC ;Wait for 3 scanlines <br /> LFABE: sta MWSYNC ; <br /> LFAC0: sta MWSYNC ; <br /> sec <br /> sbc #$10 <br /> cmp #$10 <br /> bcs LFACB <br /> sbc #$0F <br /> LFACB: sta P0C2<br /> dex <br /> bpl LFABC ;Branch to do next section of fuji<br /> ldx #$40 ;set 160x2/160x4 mode<br /> stx CTRL ; <br /> and #$F0 ;<br /> ora #$0E ;set Palette 1 color 3<br /> sta P1C3 ;<br /> lda $EF ;<br /> and #$F0 ;<br /> ora #$06 ;set Palette 1 color 1<br /> sta P1C1 ;<br /> and #$F0 <br /> clc <br /> adc #$40 <br /> bcc LFAEB <br /> adc #$0F <br /> LFAEB: ora #$03 ;set Palette 1 color 2 <br /> sta P1C2 <br /> dec $F1 <br /> bpl LFB0C <br /> lda $F3 <br /> adc #$60 <br /> bcc LFB0A <br /> lda $EF <br /> clc <br /> adc #$10 <br /> bcc LFB02 <br /> adc #$0F <br /> LFB02: sta $EF <br /> lda $F2 <br /> sta $F1 <br /> lda #$00 <br /> LFB0A: sta $F3 <br /> LFB0C: lda #$02 <br /> sta $F0 <br /> pla <br /> tax <br /> pla <br /> rti <br /> <br /> LFB14: jmp LFB14 <br /> <br /> LFB17: ldx #$FF ; selftest has passed, start system init<br /> txs ; set up a stack<br /> lda #$00 ; Clear TIA/Maria registers<br /> tax ;<br /> LFB1D: sta $01,X ; ;<br /> inx ;<br /> cpx #$2C ;<br /> bne LFB1D ; <br /> lda #$02 ;<br /> sta INPTCTRL ; Enable 7800 RAM <br /> ldx #$00 ;<br /> stx BACKGRND ; Set background color <br /> LFB2C: lda LF400,X ; copy the authentication and title screen to <br /> sta $2300,X ; ram<br /> lda LF500,X ;<br /> sta $2400,X ;<br /> lda LF600,X ;<br /> sta $2500,X ;<br /> lda LF700,X ;<br /> sta $2600,X ;<br /> lda LF800,X ;<br /> sta $2700,X ;<br /> lda LFBBE,X ;<br /> sta $2200,X ;<br /> cpx #$00 ;<br /> bmi LFB7E ;<br /> lda LFC4B,X ;<br /> sta $1F84,X ;<br /> lda LFCC6,X ;<br /> sta $1984,X ;<br /> lda LFD3D,X ;<br /> sta $1A84,X ;<br /> lda LFDB4,X ;<br /> sta $1B84,X ;<br /> lda LFE18,X ;<br /> sta $1C84,X ;<br /> lda LFE57,X ;<br /> sta $1D84,X ;<br /> lda LFE96,X ;<br /> sta $1E84,X ;<br /> LFB7E: dex ;<br /> bne LFB2C ;<br /> jmp $2306 ; and execute it<br /> <br /> ;Start display of Atari logo<br /> <br /> LFB84: lda CartKeyStartPage ; Read ROM start byte from cart<br /> and #$04 ; Is rom start greater then $4000?<br /> beq LFBBD ; Branch if not<br /> lda #$03 <br /> sta $F1 <br /> sta $F2 <br /> lda #$49 <br /> sta $EF <br /> lda #$66 ;Palette 1 Color 1<br /> sta P1C1 ;<br /> lda #$56 ;Palette 1 Color 2<br /> sta P1C2 ;<br /> lda #$2E ;Palette 1 Color 3<br /> sta P1C3 ;<br /> lda #$AA ;Set NMI vector to FAAA<br /> sta $F4 ;<br /> lda #$FA ;<br /> sta $F5 ;<br /> LFBA9: bit MSTAT ;Check VBLANK status<br /> bmi LFBA9 ;Wait till end of VBLANK<br /> LFBAD: bit MSTAT ;Check BLANK status<br /> bpl LFBAD ;Wait for start of next VBLANK<br /> lda #$84 ;Set Display list pointer to $1f84<br /> sta DPPL ;<br /> lda #$1F ;<br /> sta DPPH ;<br /> lda #$43 ;Maria mode = DMA on/320A or 320C<br /> sta CTRL ;<br /> LFBBD: rts ;<br /> <br /> ; Graphics and Display List Data<br /> <br /> LFBBE: ;$2200 Display Lists<br /> <br /> .byte $84,$1F,$19,$BB ;$2200 Blank space<br /> .byte $00,$00<br /> <br /> .byte $84,$40,$19,$1F,$BB ;$2206 First DL on screen<br /> .byte $00,$00<br /> <br /> .byte $85,$1C,$19,$4A ;$220D Blank space before Fuji<br /> .byte $00,$00<br /> <br /> .byte $89,$1C,$19,$4A ;$2213 Fuji line 1<br /> .byte $00,$00<br /> <br /> .byte $8D,$1C,$19,$48 ;$2219 Fuji line 2<br /> .byte $00,$00<br /> <br /> .byte $91,$1B,$19,$46 ;$221F Fuji line 3<br /> .byte $00,$00<br /> <br /> .byte $96,$19,$19,$42 ;$2225 Fuji line 4<br /> .byte $00,$00<br /> <br /> .byte $9D,$17,$19,$3E ;$222B Fuji line 5<br /> .byte $00,$00<br /> <br /> .byte $A6,$17,$19,$3E ;$2231 Fuji line 6<br /> .byte $00,$00<br /> <br /> .byte $AF,$2C,$1C,$00 ;$2237 Start of Atari<br /> .byte $AF,$2C,$1C,$50 ; and between lines<br /> .byte $00,$00<br /> <br /> .byte $AF,$2C,$1D,$00 ;$2241 End of Atari<br /> .byte $AF,$2C,$1D,$50 <br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$19,$28 ;$224B Atari line 1<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$19,$28 ;$2251 Atari line 2<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$19,$28 ;$2257 Atari line 3<br /> .byte $00,$00<br /> <br /> .byte $E8,$2D,$19,$28 ;$225D Atari line 4<br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$1A,$28 ;$2263 Atari line 5<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$1A,$28 ;$2269 Atari line 6<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$1A,$28 ;$226F Atari line 7<br /> .byte $00,$00<br /> <br /> .byte $E8,$2D,$1A,$28 ;$2275 Atari line 8<br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$1B,$28 ;$227B Atari line 9<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$1B,$28 ;$2281 Atari line 10<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$1B,$28 ;$2287 Atari line 11<br /> .byte $00,$00<br /> <br /> ; $1F84 Display List List<br /> <br /> LFC4B: .byte $0F,$22,$06 ;Blank space<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $03,$22,$00 ;<br /> .byte $85,$22,$0D ;DLI<br /> .byte $05,$22,$13 ;Draw Fuji<br /> .byte $05,$22,$19 ;<br /> .byte $05,$22,$1F ;<br /> .byte $05,$22,$25 ;<br /> .byte $05,$22,$2B ;<br /> .byte $05,$22,$31 ;<br /> .byte $0F,$22,$00 ;Blank area<br /> .byte $01,$22,$37 ;Draw &quot;ATARI&quot;<br /> .byte $00,$22,$4B ;Line 1 <br /> .byte $02,$22,$37<br /> .byte $00,$22,$51 ;Line 2<br /> .byte $02,$22,$37<br /> .byte $00,$22,$57 ;Line 3<br /> .byte $02,$22,$37<br /> .byte $00,$22,$5D ;Line 4<br /> .byte $02,$22,$37<br /> .byte $00,$22,$63 ;Line 5<br /> .byte $02,$22,$37<br /> .byte $00,$22,$69 ;Line 6<br /> .byte $02,$22,$37<br /> .byte $00,$22,$6F ;Line 7<br /> .byte $02,$22,$37<br /> .byte $00,$22,$75 ;Line 8<br /> .byte $02,$22,$37<br /> .byte $00,$22,$7B ;Line 9<br /> .byte $02,$22,$37<br /> .byte $00,$22,$81 ;Line 10<br /> .byte $02,$22,$37<br /> .byte $00,$22,$87 ;Line 11<br /> .byte $01,$22,$41<br /> .byte $0F,$22,$00 ;Blank Space<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> <br /> LFCC6<br /> .byte $00,$7c,$7f,$8f,$80,$fc,$7f,$8f,$c0,$1f,$87,$f8,$7e,$0f,$e0,$7f<br /> LFCD6<br /> .byte $81,$fc,$07,$ff,$80,$7f,$80,$7f,$f8,$1f,$ff,$f0,$00,$7f,$80,$03<br /> LFCE6<br /> .byte $ff,$fe,$1f,$00,$00,$00,$7f,$80,$00,$00,$3e,$00,$00,$0c,$00,$3f<br /> LFCF6<br /> .byte $ff,$ff,$ff,$f0,$00,$c0,$00,$00,$3f,$ff,$ff,$00,$03,$fc,$00,$00<br /> LFD06<br /> .byte $3f,$00,$3f,$ff,$ff,$ff,$f0,$03,$f0,$00,$00,$3f,$ff,$ff,$fc,$03<br /> LFD16<br /> .byte $fc,$00,$00,$ff,$c0,$00,$03,$ff,$00,$00,$0f,$fc,$00,$00,$3f,$f0<br /> LFD26<br /> .byte $03,$ff,$c3,$fc,$00,$03,$ff,$f0,$00,$03,$ff,$00,$00,$3f,$ff,$00<br /> LFD36<br /> .byte $00,$3f,$f0,$00,$3f,$c3,$fc,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80<br /> LFD46<br /> .byte $1f,$87,$f8,$7e,$0f,$f0,$7f,$83,$fc,$01,$ff,$80,$7f,$80,$7f,$e0<br /> LFD56<br /> .byte $1f,$ff,$f8,$00,$7f,$80,$07,$ff,$fe,$1f,$f0,$00,$00,$7f,$80,$00<br /> LFD66<br /> .byte $03,$fe,$00,$0f,$f3,$fc,$00,$03,$ff,$00,$00,$ff,$3f,$c0,$00,$3f<br /> LFD76<br /> .byte $f0,$00,$ff,$c3,$fc,$00,$3f,$c0,$ff,$00,$03,$ff,$00,$03,$fc,$0f<br /> LFD86<br /> .byte $f0,$00,$3f,$f0,$3f,$fc,$03,$fc,$00,$ff,$00,$3f,$c0,$03,$ff,$00<br /> LFD96<br /> .byte $0f,$f0,$03,$fc,$00,$3f,$f0,$ff,$c0,$03,$fc,$03,$ff,$ff,$ff,$f0<br /> LFDA6<br /> .byte $03,$ff,$00,$3f,$ff,$ff,$ff,$00,$3f,$f0,$3f,$f0,$03,$fc,$00,$7c<br /> LFDB6<br /> .byte $7f,$8f,$80,$7c,$7f,$8f,$80,$1f,$87,$f8,$7e,$07,$f0,$7f,$83,$f8<br /> LFDC6<br /> .byte $00,$ff,$c0,$7f,$80,$ff,$c0,$1f,$ff,$fc,$00,$7f,$80,$0f,$ff,$fe<br /> LFDD6<br /> .byte $1f,$fc,$00,$00,$7f,$80,$00,$0f,$fe,$0f,$ff,$ff,$ff,$fc,$03,$ff<br /> LFDE6<br /> .byte $00,$ff,$ff,$ff,$ff,$c0,$3f,$f0,$0f,$fc,$03,$fc,$3f,$f0,$00,$03<br /> LFDF6<br /> .byte $ff,$03,$ff,$03,$ff,$00,$00,$3f,$f0,$3f<br /> LFE00<br /> .byte $f0,$03,$ff,$03,$fc,$ff<br /> LFE06<br /> .byte $c0,$00,$00,$ff,$c3,$ff,$0f,$fc,$00,$00,$0f,$fc,$3f,$f0,$00,$ff<br /> LFE16<br /> .byte $c3,$fc,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$87,$f8,$7c,$07<br /> LFE26<br /> .byte $f0,$7f,$83,$f8,$00,$7f,$c0,$7f,$80,$ff,$80,$1f,$ff,$fe,$00,$7f<br /> LFE36<br /> .byte $80,$1f,$ff,$fe,$1f,$ff,$00,$00,$7f,$80,$00,$3f,$fe,$55,$55,$55<br /> LFE46<br /> .byte $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55<br /> LFE56<br /> .byte $55,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$c7,$f8,$fc,$03,$f0<br /> LFE66<br /> .byte $7f,$83,$f0,$00,$3f,$e0,$7f,$81,$ff,$00,$01,$ff,$fe,$00,$7f,$80<br /> LFE76<br /> .byte $1f,$ff,$e0,$1f,$ff,$c0,$00,$7f,$80,$00,$ff,$fe,$aa,$aa,$aa,$aa<br /> LFE86<br /> .byte $aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa<br /> LFE96<br /> .byte $00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$c7,$f8,$fc,$03,$f8,$7f<br /> LFEA6<br /> .byte $87,$f0,$00,$1f,$e0,$7f,$81,$fe,$00,$00,$1f,$ff,$00,$7f,$80,$3f<br /> LFEB6<br /> .byte $fe,$00,$1f,$ff,$e0,$00,$7f,$80,$01,$ff,$fe,$55,$55,$55,$55,$55<br /> LFEC6<br /> .byte $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$09<br /> LFED6<br /> .byte $ca,$c9,$c6,$b4,$12,$08,$1b,$60,$58,$81,$4b,$86,$01,$d8,$bf,$d9<br /> LFEE6<br /> .byte $25,$a0,$7b,$dc,$32,$79,$84,$3b,$7c,$bc,$2f,$e2,$e2,$fa,$8d,$0a<br /> LFEF6<br /> .byte $00,$3b,$c5,$ec,$af,$2d,$8a,$cd,$06,$93<br /> LFF00<br /> .byte $6a,$a5,$14,$46,$77,$c4<br /> LFF06<br /> .byte $6a,$b2,$53,$36,$ef,$8c,$ce,$0c,$a2,$68,$71,$d3,$73,$e8,$f7,$6d<br /> LFF16<br /> .byte $06,$b5,$20,$ef,$23,$47,$0c,$51,$55,$c8,$fe,$f4,$58,$c4,$3f,$20<br /> LFF26<br /> .byte $a7,$67,$38,$b0,$76,$e2,$c4,$d8,$05,$63,$f8,$3c,$58,$3b,$2d,$22<br /> LFF36<br /> .byte $cc,$88,$b3,$71,$8f,$1d,$80,$0a,$87,$bd,$a1,$59,$23,$e9,$70,$e2<br /> LFF46<br /> .byte $d3,$ec,$46,$68,$80,$42,$39,$ea,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF56<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF66<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF76<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF86<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF96<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFA6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFB6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFC6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFD6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFE6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> <br /> <br /> <br /> LFD3D = $FD3D<br /> LFDB4 = $FDB4<br /> LFDD5 = $FDD5<br /> LFE18 = $FE18<br /> LFE57 = $FE57 <br /> LFE84 = $FE84<br /> LFE96 = $FE96<br /> LFED5 = $FED5<br /> LFF00 = $FF00<br /> <br /> GccCopyright<br /> .byte $47,$43,$43,$28,$43,$29 ; 'GCC(C)'<br /> .byte $31,$39,$38,$34,$2D,$F7 ; '1984-'<br /> <br /> ; Classic 6502 vectors. Called Cart* because they often<br /> ; are referenced when the game cart is switched in.<br /> <br /> CartNMIVectorLo<br /> .byte $00,$F0 ; system vector - nmi<br /> CartResetVectorLo<br /> .word START ; F884<br /> CartIRQVectorLo<br /> .byte $33,$F9 ; system vector - irq<br /> <br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=Main_Page&diff=1257 2025-07-20T17:08:28Z

<p>MSaarna: </p> <hr /> <div>==Atari 7800 Development Wiki Home==<br /> <br /> Welcome to the &lt;b&gt;Atari 7800 Development wiki&lt;/b&gt;! This site aims to be the definitive source for accurate and up-to-date information on &lt;b&gt;programming the Atari 7800 console&lt;/b&gt;. If you're interested in &lt;b&gt;7800 homebrew&lt;/b&gt; programming, you've come to the right place!<br /> <br /> You can begin by checking out one of the links presented in the next section, or you may use the wiki search function to quickly find information on a specific topic.<br /> <br /> ==Wiki Sections==<br /> <br /> <br /> ;The [[7800 Software Guide]] <br /> :An updated version of the documentation originally produced by Atari and GCC. Several inaccuracies have been discovered and corrected, and new sections have been added.<br /> <br /> <br /> ;[[7800AsmDevKit]] <br /> :A quick way to get started with programming the 7800 using assembly language. All the tools you need to create a game, cross-platform and available for multiple OSes. 7800.8bitdev.org is the official home of the 7800AsmDevKit.<br /> <br /> <br /> ;[[7800basic]] <br /> :A quick way to get started with programming the 7800 using a higher level language. 7800basic is a compiled language, designed for efficiency. 7800.8bitdev.org is the official home of 7800basic.<br /> <br /> <br /> ;[[7800 Tutorials and Guides]] <br /> :Covers more advanced 7800 topics.<br /> <br /> <br /> ;[[Emulators and Tools]] <br /> :Covers information on tools useful to the 7800 developer.<br /> <br /> <br /> ;[[Historic Documents]]<br /> :Various Atari 7800 related historic documents.</div>

MSaarna https://7800.8bitdev.org/index.php?title=7800_NTSC_BIOS&diff=1256 2025-07-20T17:04:48Z

<p>MSaarna: Created page with &quot;==7800 NTSC BIOS== This reverse engineered 7800 NTSC BIOS code contains helpful context-comments and builds a 1:1 with the released BIOS using DASM. &lt;pre&gt; ; Disassembly of...&quot;</p> <hr /> <div>==7800 NTSC BIOS==<br /> <br /> This reverse engineered 7800 NTSC BIOS code contains helpful context-comments and builds a 1:1 with the released BIOS using DASM.<br /> <br /> <br /> &lt;pre&gt;<br /> ; Disassembly of bios7800.bin<br /> ; Disassembled Sun Mar 08 20:30:38 1998<br /> ; Using DiStella v2.0<br /> ;<br /> ; Comments added by Keith Henrickson &lt;flipper@phin.com&gt;<br /> ; Further commented by Daniel Boris &lt;dboris@home.com&gt;<br /> ; Fixed to compile correctly with dasm, and additional comments by <br /> ; Mike Saarna. You can't have my email!<br /> ;<br /> <br /> processor 6502<br /> <br /> ; some misc equates<br /> LFD80 = $FD80<br /> CartKey = $FF80<br /> CartRegion = $FFF8<br /> CartKeyStartPage = $FFF9<br /> CartResetVectorHi = $FFFD<br /> LF112 = $F112<br /> LF118 = $F118<br /> LF460 = $F460<br /> LF700 = $F700<br /> LF800 = $F800<br /> <br /> <br /> ; 7800 system<br /> <br /> INPTCTRL = $01<br /> <br /> ; TIA<br /> <br /> VSYNC = $00<br /> VBLANK = $01<br /> WSYNC = $02<br /> RSYNC = $03<br /> COLUP0 = $06<br /> COLUPF = $08<br /> COLUBK = $09<br /> PF2 = $0F<br /> RESP1 = $11<br /> GRP0 = $1B<br /> GRP1 = $1C<br /> <br /> ;Maria<br /> <br /> BACKGRND = $20<br /> POC1 = $21<br /> P0C2 = $22<br /> POC3 = $23<br /> MWSYNC = $24<br /> P1C1 = $25<br /> P1C2 = $26<br /> P1C3 = $27<br /> MSTAT = $28<br /> DPPH = $2C<br /> DPPL = $30<br /> CTRL = $3C<br /> <br /> DLIAddr = $F4<br /> ConsoleRegion = $FE<br /> <br /> ORG $F000<br /> <br /> LF000: pha ; This is the NMI routine.<br /> jmp (DLIAddr) ; RAM NMI vector<br /> <br /> <br /> ORG $F400<br /> <br /> ; this code is designed to be executed while stored in ram at 2300.<br /> LF400<br /> SwitchTo2600Mode1<br /> jmp $26C2 ; Enter 2600 mode.<br /> SwitchTo2600Mode2<br /> jmp $26C2 ; Enter 2600 mode.<br /> <br /> CartTest<br /> lda #$16 ; ($2306)<br /> sta INPTCTRL ; Switch in cart + enable Maria<br /> <br /> ldy #$FF ;<br /> ldx #$7F ;<br /> CartTestLoop<br /> lda LFE00,X ; Compare same FE7F+ ROM with differing opcodes, <br /> cmp LFD80,Y ; to avoid false positives from a floating bus.<br /> bne SwitchTo2600Mode1 ; Switch to 2600 mode<br /> dey ;<br /> dex ;<br /> bpl CartTestLoop<br /> <br /> lda CartResetVectorLo ;<br /> and CartResetVectorHi ;<br /> cmp #$FF ;<br /> beq SwitchTo2600Mode1 ; If RESET vector is FFFF, then go 2600.<br /> lda CartResetVectorLo ;<br /> ora CartResetVectorHi ;<br /> beq SwitchTo2600Mode1 ; If RESET vector is 0000, then go 2600.<br /> lda CartRegion ; &quot;Region verification&quot;<br /> ora #ConsoleRegion<br /> cmp #$FF ; <br /> bne SwitchTo2600Mode2 ; If low-bit of CartRegion=0, then go 2600.<br /> lda CartRegion ;<br /> eor #$F0 ; Invert high nibble<br /> and #$F0 ; Extract high nibble<br /> bne SwitchTo2600Mode2 ; If high nibble was not F, then go 2600.<br /> lda CartKeyStartPage ;<br /> and #$0B ; <br /> cmp #$03 ; <br /> bne SwitchTo2600Mode2 ; If low nibble FFF9 was not 3 or 7, go 2600.<br /> lda CartKeyStartPage ;<br /> and #$F0 ; Extract ROM start from high nibble<br /> sta $EE ; Store it <br /> sta $2406 ; Store it a couple of places for auth. (whocares)<br /> cmp #$40 ;<br /> bcc SwitchTo2600Mode2 ; If ROM start &lt; than 4, then go 2600<br /> sbc #$01 ; Subtract 1.<br /> cmp CartResetVectorHi ; High byte of reset vector<br /> bcs SwitchTo2600Mode2 ; If high-byte of start is &gt;=, go 2600<br /> jsr $2536 ; Start the authentication process.<br /> <br /> lda #$00<br /> sta $F0 <br /> jsr $241B <br /> lda #$16 <br /> sta INPTCTRL <br /> ldx #$00 <br /> txa <br /> LF46D: sta $1800,X <br /> dex <br /> bne LF46D <br /> pha <br /> ldy #$7F <br /> LF476: lda LFF00,Y <br /> sta $1800,Y <br /> dey <br /> cpy #$F8 <br /> bne LF476 <br /> lda #$2E <br /> sta $2409 <br /> lda #$24 <br /> sta $240A <br /> <br /> LF48B<br /> jsr $241B <br /> pla <br /> jsr $23FF <br /> pha <br /> inc $2406 <br /> lda $2406 <br /> cmp #$FF <br /> bne LF48B <br /> <br /> jsr $241B <br /> jsr $2412 <br /> jsr $2412 <br /> lda #$36 <br /> sta $2409 <br /> lda #$24 <br /> sta $240A <br /> dec $2406 <br /> LF4B3: jsr $241B <br /> pla <br /> jsr $23FF <br /> pha <br /> dec $2406 <br /> lda $2406 <br /> cmp $EE <br /> bcs LF4B3 <br /> lda #$60 <br /> sta CTRL <br /> ldx #$77 <br /> LF4CB: lda $1800,X <br /> eor $1850,X <br /> eor $1888,X <br /> sta $1A00,X <br /> dex <br /> bpl LF4CB <br /> lda $1A00 <br /> and #$07 <br /> sta $1A00 <br /> lda #$00 <br /> ldx #$04 <br /> sta $1A00,X <br /> sta $2000,X <br /> ldx #$77 ; That was a lot, but we end up here, comparing<br /> LF4EE: lda $2000,X ; two parts of memory. If they match, then<br /> cmp $1A00,X ; go to 7800 mode....<br /> bne LF4FC ; otherwise go to 2600 mode.<br /> dex ; nop out above branch to allow user-written<br /> bpl LF4EE ; carts to run -- I think.<br /> jmp $26B9 ; 7800 mode init<br /> LF4FC: jmp $26C2 ; 2600 mode init.<br /> <br /> <br /> LF500 = $F500 ; F500 is partway through the next opcode<br /> ldx #$00 ; more authentication stuff all the way through<br /> LF501: adc $1800,X<br /> adc LFF00,X <br /> tay <br /> lda $2DD5,Y <br /> sta $1800,X <br /> inx <br /> bne LF501 <br /> rts <br /> <br /> ldx #$00 <br /> LF514: rol $1800,X <br /> inx <br /> bne LF514 <br /> rts <br /> <br /> ;$241B<br /> php <br /> dec $F0 <br /> bpl LF52C <br /> lda #$02 <br /> sta INPTCTRL <br /> LF524: lda $F0 <br /> bmi LF524 <br /> lda #$16 <br /> sta INPTCTRL <br /> LF52C: plp <br /> rts <br /> <br /> LF52E: .byte $C7,$65,$AB,$CA,$EE,$F7,$83,$09<br /> LF536: .byte $E1,$D0,$92,$67,$62,$B6,$72,$55,$8E,$91,$DC,$C5,$81,$BE,$78,$20<br /> .byte $59,$B7,$E6,$3D,$06,$45,$AF,$C8,$08,$31,$38,$D1,$FB,$73,$84,$A9<br /> .byte $17,$FC,$34,$87,$A3,$94,$FA,$90,$B8,$ED,$CE,$3B,$5B,$0A,$43,$D9<br /> .byte $F3,$53,$82,$B3,$0D,$6D,$5A,$60,$9D,$51,$A7,$B9<br /> LF572: .byte $11,$10,$BC,$E4,$7F,$80,$41,$E7,$E3<br /> LF57B: .byte $F6,$56,$26,$35,$EC,$D6,$DF,$0C,$7F,$F4,$9E,$AC,$52,$46,$EF,$CF<br /> .byte $BF,$A2,$3F,$A4,$13,$15,$97,$4A,$1C,$B0,$42,$8C,$B1,$05,$58,$80<br /> .byte $18,$77,$2B,$02,$3E,$A8,$49,$1A,$6A<br /> LF5A4: .byte $CB,$6E,$0B,$8A,$EB,$F1,$4F,$14,$79,$8B,$D8,$9F,$9B,$57,$19,$F8<br /> .byte $2A,$2D,$76,$0E,$E8,$2E,$4B,$F9,$07,$03,$DE,$93,$16,$7E,$D4,$E5<br /> .byte $B2,$F0,$7D,$7A,$DA,$D2,$A1,$CC,$1D,$E0,$5E,$23,$A0,$95,$22,$1E<br /> .byte $36,$85,$FE,$1F,$39<br /> LF5D9: .byte $AA,$89,$96,$AD,$0F,$2F,$C0,$47<br /> LF5E1: .byte $27,$5D,$24,$EA,$C3,$A5,$F5,$21,$5F,$1B,$40,$8F,$AE,$74,$25,$DD<br /> .byte $C1,$7C,$CD,$A6,$70,$D7,$33,$7B,$2C,$75,$BB,$86,$99,$BD,$54<br /> LF600: .byte $9A,$6C,$63,$32,$48,$4C,$8D,$BA<br /> LF608: .byte $5C,$61,$C4,$4E,$29,$37,$12,$C6,$98,$9C,$D5,$69,$6B,$E2,$04,$4D<br /> .byte $E9,$C2,$88,$3A,$DB,$64,$01,$44,$6F,$B5,$F2,$30,$28,$FD,$50,$71<br /> .byte $3C,$B4,$66,$68,$C9,$D3,$CA,$83,$C7,$AB,$F7,$65,$09,$EE<br /> <br /> ldx #$77 ;($2536)<br /> stx $E4 <br /> stx $E5 <br /> LF63C: lda CartKey,X ;Read Key<br /> sta $1901,X ;Store it<br /> sta $2000,X ;Store it again<br /> dex ;next byte of key<br /> bpl LF63C ;Continue<br /> <br /> lda #$02 ;<br /> sta INPTCTRL ;Disable cart <br /> jsr LFB84 ;Init display<br /> jsr $257B <br /> dec $F2 <br /> ldx #$77 <br /> stx $E4 <br /> LF658: lda LFED5,X <br /> sta $1901,X <br /> dex <br /> bpl LF658 <br /> lda $E1 <br /> sta $E3 <br /> jsr $25E1 <br /> dec $F2 <br /> LF66A: lda $E0 <br /> sta $2572 <br /> ldx #$77 <br /> LF671: lda $1800,X <br /> LF674: sta $2000,X <br /> dex <br /> bpl LF671 <br /> rts <br /> <br /> jsr $2639 ;($257B)<br /> ldy $E5 <br /> iny <br /> LF681: STY $E1 <br /> TYA <br /> clc <br /> adc $E2 <br /> pha <br /> LF688: tax <br /> lda #$00 <br /> sta $2671 <br /> LF68E: sta $1800,X <br /> dex <br /> LF692: bne LF68E <br /> sta $1800 <br /> LF697: iny <br /> STY $266E <br /> STY $2674 <br /> STY $267C <br /> STY $2681 <br /> ldx #$00 <br /> LF6A6: dec $266E <br /> LF6A9: dec $2674 <br /> LF6AC: dec $267C <br /> dec $2681 <br /> dec $E1 <br /> bmi LF6D1 <br /> LF6B6: ldy $E1 <br /> lda $2000,Y <br /> and $25D9,X <br /> beq LF6C9 <br /> lda $2662,X <br /> sta $2672 <br /> jsr $266A <br /> LF6C9: inx <br /> cpx #$08 <br /> bmi LF6B6 <br /> jmp $25A4 <br /> LF6D1: pla <br /> sta $E1 <br /> lda #$01 <br /> sta $E0 <br /> rts <br /> <br /> LF6D9: .byte $01,$02,$04,$08,$10,$20,$40,$80<br /> <br /> jsr $2639<br /> lda $E3 <br /> sec <br /> sbc $E4 <br /> sta $E0 <br /> sta $E1 <br /> ldx #$00 <br /> stx $1800 <br /> stx $268F <br /> stx $26AC <br /> dex <br /> stx $26A9 <br /> stx $268C <br /> stx $2692 <br /> stx $269A <br /> stx $269F <br /> ldx #$07 <br /> inc $26A9 <br /> inc $268C <br /> inc $2692 <br /> inc $269A <br /> inc $269F <br /> dec $E1 <br /> bmi LF734 <br /> LF71D: lda $2662,X <br /> sta $2690 <br /> sta $26AD <br /> jsr $26A6 <br /> bcc LF72E <br /> jsr $2688 <br /> LF72E: dex <br /> bpl LF71D <br /> jmp $2608 <br /> LF734: lda $E3 <br /> sta $E1 <br /> rts <br /> <br /> ldx $E4 ;($2639)<br /> inx <br /> stx $E2 <br /> ldy #$00 <br /> STY $1900 <br /> LF743: lda $2662,Y <br /> sta $2655 <br /> iny <br /> lda $2662,Y <br /> sta $2659 <br /> ldx $E2 <br /> clc <br /> LF753: lda $1900,X <br /> rol<br /> sta $1900,X <br /> dex <br /> bpl LF753 <br /> cpy #$07 <br /> bmi LF743 <br /> rts <br /> <br /> LF762: .byte $19,$1A,$1B,$1C,$1D,$1E,$1F,$21<br /> <br /> ldy $E2<br /> clc <br /> LF76D: lda $1800,Y <br /> adc $1900,Y <br /> sta $1800,Y <br /> dey <br /> bpl LF76D <br /> bcc LF787 <br /> lda $1700,Y <br /> adc #$00 <br /> sta $1700,Y <br /> dey <br /> jmp $2679 <br /> LF787: rts <br /> <br /> ldy $E2 <br /> sec <br /> LF78B: lda $1800,Y <br /> sbc $1900,Y <br /> sta $1800,Y <br /> dey <br /> bpl LF78B <br /> bcs LF7A5 <br /> lda $1700,Y <br /> sbc #$00 <br /> sta $1700,Y <br /> dey <br /> jmp $2697 <br /> LF7A5: rts <br /> <br /> ldy #$00 <br /> lda $1800,Y <br /> cmp $1900,Y <br /> beq LF7B1 <br /> LF7B0: rts <br /> <br /> LF7B1: cpy $E2 <br /> beq LF7B0 <br /> iny <br /> jmp $26A8 <br /> <br /> LF7B9: ; ($26B9) 7800 mode init<br /> ldx #$16 ; finally, back to something important<br /> stx INPTCTRL ; switch out bios and use reset vector<br /> txs ; on cart to start the game.<br /> SED <br /> jmp (CartResetVectorLo) <br /> <br /> ; Enable 2600 mode<br /> LF7C2: ; ($26C2) 2600 mode init<br /> lda #$02 ; Enable memory/bios<br /> sta INPTCTRL ; <br /> ldx #$7F<br /> LF7C8: lda LF7D4,X ; again, copy code to ram....<br /> sta $0480,X <br /> dex <br /> bpl LF7C8 <br /> jmp $0480 ; execute it<br /> <br /> ; code executed at $0480 (RIOT RAM)<br /> <br /> LF7D4: lda #$00 ; <br /> tax ; <br /> sta INPTCTRL ; Disable 7800 RAM<br /> LF7D9: sta RSYNC,X ; Clear the TIA<br /> inx ;<br /> cpx #$2A ;<br /> bne LF7D9 ;<br /> sta WSYNC ; wait for sync<br /> lda #$04 ;<br /> nop ;<br /> bmi LF80A <br /> ldx #$04 <br /> LF7E9: dex <br /> bpl LF7E9 <br /> txs <br /> sta $0110 <br /> jsr $04CB <br /> jsr $04CB <br /> sta RESP1 <br /> sta GRP0 <br /> sta GRP1 <br /> sta PF2 <br /> nop <br /> sta WSYNC <br /> lda #$00 <br /> nop <br /> bmi LF80A <br /> bit RSYNC <br /> bmi LF813 <br /> LF80A: lda #$02 <br /> sta COLUBK <br /> sta LF112 <br /> bne LF831 <br /> LF813: bit WSYNC <br /> bmi LF823 <br /> lda #$02 <br /> sta COLUP0 <br /> sta LF118 <br /> sta LF460 <br /> bne LF831 <br /> LF823: sta DPPH <br /> lda #$08 <br /> sta GRP0 <br /> jsr $04CB <br /> nop <br /> bit WSYNC <br /> bmi LF80A <br /> LF831: lda #$FD <br /> sta COLUPF <br /> jmp (CartResetVectorLo) ; And use the reset vector on the cart to start<br /> nop ; the 2600 game.<br /> <br /> ORG $F880<br /> <br /> LF880: lda #$1D ; this is called any time the self-test fails.<br /> sta INPTCTRL ; Eanble TIA/Cart/lock out INPTCTRL<br /> <br /> START: ; $F884 <br /> SEI ; BIOS entry point. Disable interrupts<br /> CLD ; Clear decimal flag<br /> lda #$02 ;<br /> LF888: sta INPTCTRL ; Enable 7800 RAM<br /> lda #$FB ;<br /> sta $F5 ;<br /> lda #$12 ;<br /> sta $F4 ; set nmi vector to FB12. (shares cleanup of irq)<br /> lda #$7F ;<br /> sta CTRL ; Turn off DMA<br /> lda #$00 ;<br /> sta BACKGRND ; Background color<br /> ldx #$05 ;<br /> LF89C: lda LF91D,X ; looks icky, but it's just a ram test<br /> ldy #$00 ;<br /> LF8A1: sta $2000,Y ;<br /> cmp $2000,Y ;<br /> bne LF8D0 ; Test failed<br /> sta $2100,Y ;<br /> cmp $2100,Y ;<br /> bne LF8D0 ; Test failed<br /> dey ;<br /> bne LF8A1 ;<br /> dex ;<br /> bpl LF89C ; and right down here, it passes<br /> lda #$43 ; Check RAM 0 mirror<br /> sta $2080 ; <br /> cmp $80 ; <br /> bne LF8CB ; make sure they match. If not, fail selftest.<br /> sta $2180 ; Check RAM 1 mirror<br /> cmp $0180 ; <br /> bne LF8CB ; make sure they match. If not, fail selftest.<br /> jmp LF938 ; continue selftest<br /> LF8CB: ldy #$04 ;<br /> jmp LF880 ; selftest fail.<br /> <br /> LF8D0: sta $1800 ; test store and compare<br /> cmp $1800 <br /> bne LF8E2 ; some kind of error code is being determined<br /> LF8D8: ldy #$01 <br /> jmp LF880 <br /> <br /> LF8DD: ldy #$02<br /> jmp $F880<br /> <br /> LF8E2: ldy #$03<br /> jmp LF880 <br /> <br /> LF8E7: lda #$00 ; this is a more comprehensive ram test than<br /> sta $F0 ; the first routine, and it is called after<br /> sta $F2 ; more of the selftest has completed.<br /> ldy #$07 <br /> STY $F4 <br /> LF8F1: lda LF923,Y <br /> sta $F1 <br /> lda LF92B,Y <br /> sta $F3 <br /> ldx #$05 <br /> LF8FD: lda LF91D,X <br /> LF900: ldy #$00 <br /> LF902: sta ($F0),Y <br /> cmp ($F0),Y <br /> bne LF8D8 <br /> sta ($F2),Y <br /> cmp ($F2),Y <br /> bne LF8DD <br /> dey <br /> bne LF902 <br /> dex <br /> bpl LF8FD <br /> dec $F4 <br /> ldy $F4 <br /> bpl LF8F1 <br /> jmp LFB17 ; ram test passed, so jump in here.<br /> <br /> ; ram test data<br /> LF91D: .byte $00,$FF,$55,$AA,$69,$0F<br /> LF923: .byte $22,$23,$24,$25,$26,$27,$22,$23<br /> LF92B: .byte $18,$19,$1A,$1B,$1C,$1D,$1E,$1F<br /> <br /> LF933: ldy #$00 ; local place for selftest fail branch target<br /> jmp LF880 <br /> <br /> ; 6502 CPU test<br /> <br /> LF938: lda #$AA ; test some flags and branches<br /> beq LF933 ; test failed<br /> bpl LF933 ; test failed<br /> bmi LF943 ; test passed<br /> jmp LF933 ; test failed<br /> LF943: bne LF948 ; test passed<br /> jmp LF933 ; test failed<br /> LF948: sta $AA ; store AA to 00AA<br /> cmp $AA ; compare it back<br /> bne LF933 ; if it doesn't match, selftest fail<br /> lda #$00 ; do some more flag tests<br /> bne LF933 ;<br /> bmi LF933 ;<br /> bpl LF959 ; test passed<br /> jmp LF933 ;<br /> LF959: beq LF95E ; test passed<br /> jmp LF933 ;<br /> LF95E: cmp #$00 ; test the compare instruction<br /> bne LF933 ;<br /> bcc LF933 ;<br /> bcs LF969 ; test passed, since they're equal<br /> jmp LF933 ;<br /> LF969: cmp #$01 ; compare it to 01<br /> bcs LF933 ;<br /> bcc LF972 ; A &lt; 01, so carry is clear<br /> jmp LF933 ;<br /> LF972: ldx #$55 ; test comparisons with the X register<br /> cpx #$56 ;<br /> beq LF933 ;<br /> stx $01AA ;<br /> cpx $01AA ;<br /> bne LF933 ;<br /> ldy $AA ; and with the Y register.<br /> cpy #$AB ;<br /> LF984: beq LF933 ;<br /> STY $0155 ; put some stuff in the stack area to test stack<br /> cpy $0155 ; and then access this data in many diffeent ways<br /> bne LF933 ;<br /> dex ;<br /> txs ;<br /> inx ;<br /> pla ;<br /> cmp #$AA ;<br /> bne LF9EB ;<br /> txa ;<br /> pha ;<br /> cpx $0155 ;<br /> bne LF9EB ;<br /> TYA ;<br /> cmp #$AA ;<br /> bne LF9EB ;<br /> tax ;<br /> lda $0100,X ;<br /> tay ;<br /> cpy #$55 ;<br /> bne LF9EB ;<br /> lda VSYNC,X ;<br /> cmp $AA ;<br /> bne LF9EB ;<br /> cmp #$AA ;<br /> bne LF9EB ;<br /> eor #$FF ;<br /> sta $0000,Y ;<br /> cmp $55 ;<br /> bne LF9EB ;<br /> cmp $0100,Y ;<br /> bne LF9EB ;<br /> cmp $20AB,X ;<br /> bne LF9EB ;<br /> lda #$20 ;<br /> sta $F1 ;<br /> lda #$CC ;<br /> sta $F0 ;<br /> sta ($46,X) ;<br /> cmp $CC ;<br /> bne LF9EB ;<br /> sta ($F0),Y ;<br /> cmp $2121 ;<br /> bne LF9EB ;<br /> lda #$EE ; test the indirect jump by setting up a jump<br /> sta $F0 ; to F9EE<br /> lda #$F9 ;<br /> sta $F1 ;<br /> jmp ($00F0) ; and do it.<br /> <br /> LF9E8: jmp $F9EB<br /> <br /> LF9EB: jmp LF933<br /> <br /> <br /> LF9EE: lda #$55 ; now test out the math functions.<br /> clc <br /> adc #$55 <br /> nop <br /> bcs LF9EB ; test addition.<br /> bpl LF9EB <br /> beq LF9EB <br /> cmp #$AA ; make sure it worked<br /> bne LF9EB <br /> adc #$55 ; test addition again.<br /> LFA00: nop <br /> bcc LF9EB <br /> bmi LF9EB <br /> bne LF9EB <br /> sbc #$55 ; test subtraction<br /> bcs LF9EB <br /> bpl LF9EB <br /> beq LF9EB <br /> cmp #$AB ; make sure it worked<br /> bne LF9EB <br /> clc <br /> sbc #$AA ; test subtraction again<br /> bcc LF9EB <br /> bmi LF9EB <br /> bne LF9EB <br /> lda #$FF ; set up a stack<br /> tax ; and do all kinds of stuff in it for tests<br /> inx <br /> bne LFA58 <br /> dex <br /> beq LFA58 <br /> bpl LFA58 <br /> cpx #$FF <br /> bne LFA58 <br /> tay <br /> iny <br /> bne LFA58 <br /> dey <br /> beq LFA58 <br /> iny <br /> bne LFA58 <br /> sta $F0 <br /> inc $F0 <br /> bne LFA58 <br /> cpy $F0 <br /> bne LFA58 <br /> dec $F0 <br /> beq LFA58 <br /> cmp $F0 <br /> bne LFA58 <br /> lda #$AA <br /> clc <br /> rol ; now we get onto the more complex math instrs<br /> rol<br /> rol<br /> cmp #$52 <br /> bne LFA58 ; make sure rotate left works.<br /> ror<br /> ror<br /> ror<br /> cmp #$AA <br /> beq LFA5B ; test rotate right<br /> LFA58: jmp LF933 ; fail!<br /> <br /> LFA5B: asl ; test arithmetic shift left<br /> bcc LFA58 <br /> asl <br /> bcs LFA58 <br /> asl <br /> cmp #$50 <br /> bne LFA58 <br /> eor #$05 <br /> lsr ; and logical shift right<br /> bcc LFA58 <br /> lsr <br /> bcs LFA58 <br /> lsr <br /> cmp #$0A <br /> bne LFA58 <br /> lda #$55 ; now test the ands and ors.<br /> ora #$1B <br /> cmp #$5F <br /> bne LFA58 <br /> and #$55 <br /> and #$1B <br /> cmp #$11 <br /> bne LFA58 <br /> ora #$55 <br /> eor #$1B ; and the eors<br /> cmp #$4E <br /> bne LFA58 <br /> jsr LFA91 ; test jump subroutine instruction<br /> jmp LFA58 ; if we return, fail<br /> <br /> LFA91: tsx <br /> cpx #$52 ; check stack pointer<br /> bne LFA58 ; fail if not right<br /> pla <br /> cmp #$8D <br /> bne LFA58 <br /> pla <br /> cmp #$FA <br /> bne LFA58 ; get the old return address off the stack<br /> lda #$F8 <br /> pha <br /> lda #$E6 <br /> pha ; and make our own<br /> rts ; and 'return' to F8E7<br /> <br /> jmp LFA58 ; another jump to catch a failure<br /> <br /> ; Interrupt routine NMI. <br /> <br /> LFAAA: txa ;Save A<br /> pha ; <br /> lda #$43 ;Setup control register <br /> sta CTRL ; <br /> ldx #$0F ; Handle the color scrolling in the FUJI <br /> lda $EF <br /> sta P0C2<br /> bit $F3 <br /> bvc LFAC0 <br /> bpl LFABE <br /> LFABC: sta MWSYNC ;Wait for 3 scanlines <br /> LFABE: sta MWSYNC ; <br /> LFAC0: sta MWSYNC ; <br /> sec <br /> sbc #$10 <br /> cmp #$10 <br /> bcs LFACB <br /> sbc #$0F <br /> LFACB: sta P0C2<br /> dex <br /> bpl LFABC ;Branch to do next section of fuji<br /> ldx #$40 ;set 160x2/160x4 mode<br /> stx CTRL ; <br /> and #$F0 ;<br /> ora #$0E ;set Palette 1 color 3<br /> sta P1C3 ;<br /> lda $EF ;<br /> and #$F0 ;<br /> ora #$06 ;set Palette 1 color 1<br /> sta P1C1 ;<br /> and #$F0 <br /> clc <br /> adc #$40 <br /> bcc LFAEB <br /> adc #$0F <br /> LFAEB: ora #$03 ;set Palette 1 color 2 <br /> sta P1C2 <br /> dec $F1 <br /> bpl LFB0C <br /> lda $F3 <br /> adc #$60 <br /> bcc LFB0A <br /> lda $EF <br /> clc <br /> adc #$10 <br /> bcc LFB02 <br /> adc #$0F <br /> LFB02: sta $EF <br /> lda $F2 <br /> sta $F1 <br /> lda #$00 <br /> LFB0A: sta $F3 <br /> LFB0C: lda #$02 <br /> sta $F0 <br /> pla <br /> tax <br /> pla <br /> rti <br /> <br /> LFB14: jmp LFB14 <br /> <br /> LFB17: ldx #$FF ; selftest has passed, start system init<br /> txs ; set up a stack<br /> lda #$00 ; Clear TIA/Maria registers<br /> tax ;<br /> LFB1D: sta $01,X ; ;<br /> inx ;<br /> cpx #$2C ;<br /> bne LFB1D ; <br /> lda #$02 ;<br /> sta INPTCTRL ; Enable 7800 RAM <br /> ldx #$00 ;<br /> stx BACKGRND ; Set background color <br /> LFB2C: lda LF400,X ; copy the authentication and title screen to <br /> sta $2300,X ; ram<br /> lda LF500,X ;<br /> sta $2400,X ;<br /> lda LF600,X ;<br /> sta $2500,X ;<br /> lda LF700,X ;<br /> sta $2600,X ;<br /> lda LF800,X ;<br /> sta $2700,X ;<br /> lda LFBBE,X ;<br /> sta $2200,X ;<br /> cpx #$00 ;<br /> bmi LFB7E ;<br /> lda LFC4B,X ;<br /> sta $1F84,X ;<br /> lda LFCC6,X ;<br /> sta $1984,X ;<br /> lda LFD3D,X ;<br /> sta $1A84,X ;<br /> lda LFDB4,X ;<br /> sta $1B84,X ;<br /> lda LFE18,X ;<br /> sta $1C84,X ;<br /> lda LFE57,X ;<br /> sta $1D84,X ;<br /> lda LFE96,X ;<br /> sta $1E84,X ;<br /> LFB7E: dex ;<br /> bne LFB2C ;<br /> jmp $2306 ; and execute it<br /> <br /> ;Start display of Atari logo<br /> <br /> LFB84: lda CartKeyStartPage ; Read ROM start byte from cart<br /> and #$04 ; Is rom start greater then $4000?<br /> beq LFBBD ; Branch if not<br /> lda #$03 <br /> sta $F1 <br /> sta $F2 <br /> lda #$49 <br /> sta $EF <br /> lda #$66 ;Palette 1 Color 1<br /> sta P1C1 ;<br /> lda #$56 ;Palette 1 Color 2<br /> sta P1C2 ;<br /> lda #$2E ;Palette 1 Color 3<br /> sta P1C3 ;<br /> lda #$AA ;Set NMI vector to FAAA<br /> sta $F4 ;<br /> lda #$FA ;<br /> sta $F5 ;<br /> LFBA9: bit MSTAT ;Check VBLANK status<br /> bmi LFBA9 ;Wait till end of VBLANK<br /> LFBAD: bit MSTAT ;Check BLANK status<br /> bpl LFBAD ;Wait for start of next VBLANK<br /> lda #$84 ;Set Display list pointer to $1f84<br /> sta DPPL ;<br /> lda #$1F ;<br /> sta DPPH ;<br /> lda #$43 ;Maria mode = DMA on/320A or 320C<br /> sta CTRL ;<br /> LFBBD: rts ;<br /> <br /> ; Graphics and Display List Data<br /> <br /> LFBBE: ;$2200 Display Lists<br /> <br /> .byte $84,$1F,$19,$BB ;$2200 Blank space<br /> .byte $00,$00<br /> <br /> .byte $84,$40,$19,$1F,$BB ;$2206 First DL on screen<br /> .byte $00,$00<br /> <br /> .byte $85,$1C,$19,$4A ;$220D Blank space before Fuji<br /> .byte $00,$00<br /> <br /> .byte $89,$1C,$19,$4A ;$2213 Fuji line 1<br /> .byte $00,$00<br /> <br /> .byte $8D,$1C,$19,$48 ;$2219 Fuji line 2<br /> .byte $00,$00<br /> <br /> .byte $91,$1B,$19,$46 ;$221F Fuji line 3<br /> .byte $00,$00<br /> <br /> .byte $96,$19,$19,$42 ;$2225 Fuji line 4<br /> .byte $00,$00<br /> <br /> .byte $9D,$17,$19,$3E ;$222B Fuji line 5<br /> .byte $00,$00<br /> <br /> .byte $A6,$17,$19,$3E ;$2231 Fuji line 6<br /> .byte $00,$00<br /> <br /> .byte $AF,$2C,$1C,$00 ;$2237 Start of Atari<br /> .byte $AF,$2C,$1C,$50 ; and between lines<br /> .byte $00,$00<br /> <br /> .byte $AF,$2C,$1D,$00 ;$2241 End of Atari<br /> .byte $AF,$2C,$1D,$50 <br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$19,$28 ;$224B Atari line 1<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$19,$28 ;$2251 Atari line 2<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$19,$28 ;$2257 Atari line 3<br /> .byte $00,$00<br /> <br /> .byte $E8,$2D,$19,$28 ;$225D Atari line 4<br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$1A,$28 ;$2263 Atari line 5<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$1A,$28 ;$2269 Atari line 6<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$1A,$28 ;$226F Atari line 7<br /> .byte $00,$00<br /> <br /> .byte $E8,$2D,$1A,$28 ;$2275 Atari line 8<br /> .byte $00,$00<br /> <br /> .byte $AF,$2D,$1B,$28 ;$227B Atari line 9<br /> .byte $00,$00<br /> <br /> .byte $C2,$2D,$1B,$28 ;$2281 Atari line 10<br /> .byte $00,$00<br /> <br /> .byte $D5,$2D,$1B,$28 ;$2287 Atari line 11<br /> .byte $00,$00<br /> <br /> ; $1F84 Display List List<br /> <br /> LFC4B: .byte $0F,$22,$06 ;Blank space<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $03,$22,$00 ;<br /> .byte $85,$22,$0D ;DLI<br /> .byte $05,$22,$13 ;Draw Fuji<br /> .byte $05,$22,$19 ;<br /> .byte $05,$22,$1F ;<br /> .byte $05,$22,$25 ;<br /> .byte $05,$22,$2B ;<br /> .byte $05,$22,$31 ;<br /> .byte $0F,$22,$00 ;Blank area<br /> .byte $01,$22,$37 ;Draw &quot;ATARI&quot;<br /> .byte $00,$22,$4B ;Line 1 <br /> .byte $02,$22,$37<br /> .byte $00,$22,$51 ;Line 2<br /> .byte $02,$22,$37<br /> .byte $00,$22,$57 ;Line 3<br /> .byte $02,$22,$37<br /> .byte $00,$22,$5D ;Line 4<br /> .byte $02,$22,$37<br /> .byte $00,$22,$63 ;Line 5<br /> .byte $02,$22,$37<br /> .byte $00,$22,$69 ;Line 6<br /> .byte $02,$22,$37<br /> .byte $00,$22,$6F ;Line 7<br /> .byte $02,$22,$37<br /> .byte $00,$22,$75 ;Line 8<br /> .byte $02,$22,$37<br /> .byte $00,$22,$7B ;Line 9<br /> .byte $02,$22,$37<br /> .byte $00,$22,$81 ;Line 10<br /> .byte $02,$22,$37<br /> .byte $00,$22,$87 ;Line 11<br /> .byte $01,$22,$41<br /> .byte $0F,$22,$00 ;Blank Space<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> .byte $0F,$22,$00 ;<br /> <br /> LFCC6<br /> .byte $00,$7c,$7f,$8f,$80,$fc,$7f,$8f,$c0,$1f,$87,$f8,$7e,$0f,$e0,$7f<br /> LFCD6<br /> .byte $81,$fc,$07,$ff,$80,$7f,$80,$7f,$f8,$1f,$ff,$f0,$00,$7f,$80,$03<br /> LFCE6<br /> .byte $ff,$fe,$1f,$00,$00,$00,$7f,$80,$00,$00,$3e,$00,$00,$0c,$00,$3f<br /> LFCF6<br /> .byte $ff,$ff,$ff,$f0,$00,$c0,$00,$00,$3f,$ff,$ff,$00,$03,$fc,$00,$00<br /> LFD06<br /> .byte $3f,$00,$3f,$ff,$ff,$ff,$f0,$03,$f0,$00,$00,$3f,$ff,$ff,$fc,$03<br /> LFD16<br /> .byte $fc,$00,$00,$ff,$c0,$00,$03,$ff,$00,$00,$0f,$fc,$00,$00,$3f,$f0<br /> LFD26<br /> .byte $03,$ff,$c3,$fc,$00,$03,$ff,$f0,$00,$03,$ff,$00,$00,$3f,$ff,$00<br /> LFD36<br /> .byte $00,$3f,$f0,$00,$3f,$c3,$fc,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80<br /> LFD46<br /> .byte $1f,$87,$f8,$7e,$0f,$f0,$7f,$83,$fc,$01,$ff,$80,$7f,$80,$7f,$e0<br /> LFD56<br /> .byte $1f,$ff,$f8,$00,$7f,$80,$07,$ff,$fe,$1f,$f0,$00,$00,$7f,$80,$00<br /> LFD66<br /> .byte $03,$fe,$00,$0f,$f3,$fc,$00,$03,$ff,$00,$00,$ff,$3f,$c0,$00,$3f<br /> LFD76<br /> .byte $f0,$00,$ff,$c3,$fc,$00,$3f,$c0,$ff,$00,$03,$ff,$00,$03,$fc,$0f<br /> LFD86<br /> .byte $f0,$00,$3f,$f0,$3f,$fc,$03,$fc,$00,$ff,$00,$3f,$c0,$03,$ff,$00<br /> LFD96<br /> .byte $0f,$f0,$03,$fc,$00,$3f,$f0,$ff,$c0,$03,$fc,$03,$ff,$ff,$ff,$f0<br /> LFDA6<br /> .byte $03,$ff,$00,$3f,$ff,$ff,$ff,$00,$3f,$f0,$3f,$f0,$03,$fc,$00,$7c<br /> LFDB6<br /> .byte $7f,$8f,$80,$7c,$7f,$8f,$80,$1f,$87,$f8,$7e,$07,$f0,$7f,$83,$f8<br /> LFDC6<br /> .byte $00,$ff,$c0,$7f,$80,$ff,$c0,$1f,$ff,$fc,$00,$7f,$80,$0f,$ff,$fe<br /> LFDD6<br /> .byte $1f,$fc,$00,$00,$7f,$80,$00,$0f,$fe,$0f,$ff,$ff,$ff,$fc,$03,$ff<br /> LFDE6<br /> .byte $00,$ff,$ff,$ff,$ff,$c0,$3f,$f0,$0f,$fc,$03,$fc,$3f,$f0,$00,$03<br /> LFDF6<br /> .byte $ff,$03,$ff,$03,$ff,$00,$00,$3f,$f0,$3f<br /> LFE00<br /> .byte $f0,$03,$ff,$03,$fc,$ff<br /> LFE06<br /> .byte $c0,$00,$00,$ff,$c3,$ff,$0f,$fc,$00,$00,$0f,$fc,$3f,$f0,$00,$ff<br /> LFE16<br /> .byte $c3,$fc,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$87,$f8,$7c,$07<br /> LFE26<br /> .byte $f0,$7f,$83,$f8,$00,$7f,$c0,$7f,$80,$ff,$80,$1f,$ff,$fe,$00,$7f<br /> LFE36<br /> .byte $80,$1f,$ff,$fe,$1f,$ff,$00,$00,$7f,$80,$00,$3f,$fe,$55,$55,$55<br /> LFE46<br /> .byte $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55<br /> LFE56<br /> .byte $55,$00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$c7,$f8,$fc,$03,$f0<br /> LFE66<br /> .byte $7f,$83,$f0,$00,$3f,$e0,$7f,$81,$ff,$00,$01,$ff,$fe,$00,$7f,$80<br /> LFE76<br /> .byte $1f,$ff,$e0,$1f,$ff,$c0,$00,$7f,$80,$00,$ff,$fe,$aa,$aa,$aa,$aa<br /> LFE86<br /> .byte $aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa,$aa<br /> LFE96<br /> .byte $00,$7c,$7f,$8f,$80,$7c,$7f,$8f,$80,$0f,$c7,$f8,$fc,$03,$f8,$7f<br /> LFEA6<br /> .byte $87,$f0,$00,$1f,$e0,$7f,$81,$fe,$00,$00,$1f,$ff,$00,$7f,$80,$3f<br /> LFEB6<br /> .byte $fe,$00,$1f,$ff,$e0,$00,$7f,$80,$01,$ff,$fe,$55,$55,$55,$55,$55<br /> LFEC6<br /> .byte $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$09<br /> LFED6<br /> .byte $ca,$c9,$c6,$b4,$12,$08,$1b,$60,$58,$81,$4b,$86,$01,$d8,$bf,$d9<br /> LFEE6<br /> .byte $25,$a0,$7b,$dc,$32,$79,$84,$3b,$7c,$bc,$2f,$e2,$e2,$fa,$8d,$0a<br /> LFEF6<br /> .byte $00,$3b,$c5,$ec,$af,$2d,$8a,$cd,$06,$93<br /> LFF00<br /> .byte $6a,$a5,$14,$46,$77,$c4<br /> LFF06<br /> .byte $6a,$b2,$53,$36,$ef,$8c,$ce,$0c,$a2,$68,$71,$d3,$73,$e8,$f7,$6d<br /> LFF16<br /> .byte $06,$b5,$20,$ef,$23,$47,$0c,$51,$55,$c8,$fe,$f4,$58,$c4,$3f,$20<br /> LFF26<br /> .byte $a7,$67,$38,$b0,$76,$e2,$c4,$d8,$05,$63,$f8,$3c,$58,$3b,$2d,$22<br /> LFF36<br /> .byte $cc,$88,$b3,$71,$8f,$1d,$80,$0a,$87,$bd,$a1,$59,$23,$e9,$70,$e2<br /> LFF46<br /> .byte $d3,$ec,$46,$68,$80,$42,$39,$ea,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF56<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF66<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF76<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF86<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFF96<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFA6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFB6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFC6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFD6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> LFFE6<br /> .byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff<br /> <br /> <br /> <br /> LFD3D = $FD3D<br /> LFDB4 = $FDB4<br /> LFDD5 = $FDD5<br /> LFE18 = $FE18<br /> LFE57 = $FE57 <br /> LFE84 = $FE84<br /> LFE96 = $FE96<br /> LFED5 = $FED5<br /> LFF00 = $FF00<br /> <br /> GccCopyright<br /> .byte $47,$43,$43,$28,$43,$29 ; 'GCC(C)'<br /> .byte $31,$39,$38,$34,$2D,$F7 ; '1984-'<br /> <br /> ; Classic 6502 vectors. Called Cart* because they often<br /> ; are referenced when the game cart is switched in.<br /> <br /> CartNMIVectorLo<br /> .byte $00,$F0 ; system vector - nmi<br /> CartResetVectorLo<br /> .word START ; F884<br /> CartIRQVectorLo<br /> .byte $33,$F9 ; system vector - irq<br /> <br /> <br /> &lt;/pre&gt;</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1255 2025-07-20T17:00:34Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In reverse chronological order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:7800_keyboard_programming.pdf|7800_keyboard_programming.pdf]] ===<br /> ''GCC's guide to programming the planned 7800 Prosystem keyboard peripheral. (June 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_ntsc_bios_source_code.pdf|7800_ntsc_bios_source_code.pdf]] ===<br /> ''A rough scan of the 7800's NTSC BIOS source code. (April 1984)''<br /> <br /> * '''Note 1:''' If you want this information for development purposes, you might wish to check out the [[7800_NTSC_BIOS]] page, which can build with modern assemblers.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. (??? 1984)''<br /> * '''Note 1:''' If you want this information for development purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era.<br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:7800_ntsc_bios_source_code.pdf&diff=1254 2025-07-20T16:53:31Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1253 2025-07-20T16:46:52Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In reverse chronological order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:7800_keyboard_programming.pdf|7800_keyboard_programming.pdf]] ===<br /> ''GCC's guide to programming the planned 7800 Prosystem keyboard peripheral. (June 1984)'''<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:7800_keyboard_programming.pdf&diff=1252 2025-07-20T16:42:43Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1251 2025-07-20T16:40:12Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In reverse chronological order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> ---<br /> <br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1250 2025-07-20T16:38:25Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In reverse chronological order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> ---<br /> <br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1249 2025-07-20T16:35:34Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> ---<br /> <br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1248 2025-07-20T16:30:58Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers, covering items like game options and attract modes. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1247 2025-07-20T16:29:27Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:Gcc1702b_maria_specs.pdf|Gcc1702b_maria_specs.pdf]] ===<br /> ''The Maria Chip Specification acceptance form, meant for sign-off by VCC, GCC, and Atari. (March 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:Gcc1702b_maria_specs.pdf&diff=1246 2025-07-20T16:26:05Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1245 2025-07-20T16:23:17Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_standards.pdf|7800_standards.pdf]] ===<br /> ''Atari's game development standards for programmers. (October 1987)<br /> <br /> ---<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:7800_standards.pdf&diff=1244 2025-07-20T16:21:03Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1243 2025-07-20T16:16:47Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]] ===<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1242 2025-07-20T16:16:17Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:7800_software.pdf|7800_software.pdf]]<br /> ''The 7800 Software Guide covers most programming aspects about the 7800. If you want this information for non-historic purposes, check out the [[7800_Software_Guide]] page instead, which has supplementary information and corrections from the modern era. (??? 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna https://7800.8bitdev.org/index.php?title=File:7800_software.pdf&diff=1241 2025-07-20T16:11:32Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=File:3600_software_guide.pdf&diff=1240 2025-07-20T16:07:48Z

<p>MSaarna: </p> <hr /> <div></div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1239 2025-07-20T16:06:45Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1238 2025-07-20T16:05:24Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip. (February 1984)''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip.''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna https://7800.8bitdev.org/index.php?title=Historic_Documents&diff=1237 2025-07-20T16:04:04Z

<p>MSaarna: </p> <hr /> <div>== Historic Technical Documents ==<br /> <br /> This collection of historical documents centers on the Atari 7800 and its hardware, with many originating from the late Atari historian Curt Vendel. Some materials were publicly available through his Atari Museum website, while others have been preserved from his private archives and are now being shared more widely.<br /> <br /> In no particular order:<br /> <br /> === [[Media:7800_Maria_Specs.pdf|7800_Maria_Specs.pdf]] ===<br /> ''A five-page document outlining Maria's technical specs and architecture. This appears to be a high-level introduction to the Maria chip for customers. (October 1984)''<br /> <br /> * '''Note 1:''' Page 1 mentions a version of Maria (number 1722) intended for 680X0 series processors.<br /> * '''Note 2:''' Page 5 notes that the CTRL register's test/forbidden DMA mode “Does not assert HALT,” a detail not known to be documented elsewhere.<br /> <br /> ---<br /> <br /> === [[Media:TIA-Maria_Gate-Level_Logic_Diagrams.pdf|TIA-Maria_Gate-Level_Logic_Diagrams.pdf]] ===<br /> ''This document contains gate level diagrams for the different sections of the planned TIA-Maria hybrid chip. (April 1984)''<br /> <br /> ---<br /> <br /> === [[Media:GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip|GCC_MARIA_Chip_Layout_and_Netlist_Artifacts.zip]] ===<br /> ''The files in this archive appear to represent layout and mask preparation data from various development stages and regional variants of the MARIA chip, including what may be NTSC and PAL configurations. (August 1983)''<br /> * '''Note 1:''' While some files use the `.GDS` extension, only the &quot;example.gds&quot; file conforms to the standard GDSII (Calma Stream) layout format. See the contained README.txt for more information.<br /> <br /> ---<br /> <br /> === [[Media:3600_software_guide.pdf|3600_software_guide.pdf]] ===<br /> ''A document covering programming the 7800, before the 3600 was renamed to the 7800. (October 1983)''<br /> <br /> ---<br /> <br /> === [[Media:Minnie_Subsystem_Top-Level_Specification_-_GCC-1730_(MGspec_19840221_sjg).pdf|Minnie Subsystem Top-Level Specification – GCC-1730]] ===<br /> ''The top-level specification for the planned &quot;Minnie&quot; in-cart sound chip.''<br /> <br /> → See: [[The 7800 Minnie sound chip]]<br /> <br /> ---<br /> <br /> === [[Media:MiniGumby_Sound_Synthesis_System,_Analog_Output_Section_Specification_-_GCC_1730_(analog_output_spec_19840203_sjg).pdf|MiniGumby Sound Synthesis – Analog Output Section Specification – GCC-1730]] ===<br /> ''The analog output section specification for the same planned &quot;Minnie&quot; chip.''<br /> <br /> → See: [[The 7800 Minnie sound chip]]</div>

MSaarna