SRC.SHADEB-INTT3
FILE INFORMATION
FILENAME(S): SRC.SHADEB-INTT3
FILE TYPE(S): PRG
FILE SIZE: 7.3K
FIRST SEEN: 2025-10-20 00:34:38
APPEARS ON: 1 disk(s)
FILE HASH
4ad15e52522b7349c7a05125a8b69b81a1efbaa503c0e8942ef506e1d90da6ce
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK | SRC.SHADEB-INTT3 | PRG | Robin Albicker | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F8 1F 01 00 3B 4F 42 20 22 40 3A 4F 42 4A |......;OB "@:OBJ|
00000010: 2E 53 48 41 44 45 42 2D 49 4E 54 54 2C 50 2C 57 |.SHADEB-INTT,P,W|
00000020: 22 00 FE 1F 04 00 3B 00 14 20 05 00 3B 56 41 52 |".....;.. ..;VAR|
00000030: 49 41 42 4C 45 20 53 45 54 54 49 4E 47 00 1A 20 |IABLE SETTING.. |
00000040: 06 00 3B 00 35 20 0A 00 2E 45 51 20 4F 42 4A 56 |..;.5 ...EQ OBJV|
00000050: 45 43 31 20 20 20 20 3D 20 24 20 20 33 41 00 50 |EC1 = $ 3A.P|
00000060: 20 0C 00 2E 45 51 20 4C 4F 47 4F 42 4D 20 20 20 | ...EQ LOGOBM |
00000070: 20 20 3D 20 24 33 30 30 30 00 6B 20 0E 00 2E 45 | = $3000.k ...E|
00000080: 51 20 4C 4F 47 4F 43 4F 4C 20 20 20 20 3D 20 24 |Q LOGOCOL = $|
00000090: 33 42 34 30 00 86 20 10 00 2E 45 51 20 4C 4F 47 |3B40.. ...EQ LOG|
000000A0: 4F 44 38 20 20 20 20 20 3D 20 24 33 43 41 38 00 |OD8 = $3CA8.|
000000B0: A1 20 12 00 2E 45 51 20 42 49 54 56 45 43 31 20 |. ...EQ BITVEC1 |
000000C0: 20 20 20 3D 20 24 20 20 33 43 00 BC 20 14 00 2E | = $ 3C.. ...|
000000D0: 45 51 20 42 49 54 4D 41 50 31 20 20 20 20 3D 20 |EQ BITMAP1 = |
000000E0: 24 36 30 30 30 00 D7 20 18 00 2E 45 51 20 42 49 |$6000.. ...EQ BI|
000000F0: 54 4D 41 50 32 20 20 20 20 3D 20 24 41 30 30 30 |TMAP2 = $A000|
00000100: 00 F2 20 1A 00 2E 45 51 20 43 4F 4C 52 41 4D 31 |.. ...EQ COLRAM1|
00000110: 20 20 20 20 3D 20 24 34 30 30 30 00 0D 21 1B 00 | = $4000..!..|
00000120: 2E 45 51 20 43 4F 4C 52 41 4D 32 20 20 20 20 3D |.EQ COLRAM2 =|
00000130: 20 24 38 30 30 30 00 28 21 1C 00 2E 45 51 20 4F | $8000.(!...EQ O|
00000140: 42 4A 44 41 54 31 20 20 20 20 3D 20 24 35 30 30 |BJDAT1 = $500|
00000150: 30 00 43 21 1D 00 2E 45 51 20 4F 42 4A 44 41 54 |0.C!...EQ OBJDAT|
00000160: 32 20 20 20 20 3D 20 24 35 31 30 30 00 5E 21 1E |2 = $5100.^!.|
00000170: 00 2E 45 51 20 43 4F 4C 31 20 20 20 20 20 20 20 |..EQ COL1 |
00000180: 3D 20 24 20 20 42 43 00 79 21 20 00 2E 45 51 20 |= $ BC.y! ..EQ |
00000190: 43 4F 4C 32 20 20 20 20 20 20 20 3D 20 24 20 20 |COL2 = $ |
000001A0: 42 43 00 94 21 22 00 2E 45 51 20 52 43 4F 4C 20 |BC..!"..EQ RCOL |
000001B0: 20 20 20 20 20 20 3D 20 24 20 20 20 46 00 AF 21 | = $ F..!|
000001C0: 24 00 2E 45 51 20 48 52 45 47 20 20 20 20 20 20 |$..EQ HREG |
000001D0: 20 3D 20 24 20 20 34 38 00 CA 21 26 00 2E 45 51 | = $ 48..!&..EQ|
000001E0: 20 58 53 49 4E 54 41 42 20 20 20 20 3D 20 24 32 | XSINTAB = $2|
000001F0: 30 30 30 00 E5 21 28 00 2E 45 51 20 59 53 49 4E |000..!(..EQ YSIN|
00000200: 54 41 42 20 20 20 20 3D 20 24 32 38 30 30 00 00 |TAB = $2800..|
00000210: 22 2A 00 2E 45 51 20 59 54 41 42 20 20 20 20 20 |"*..EQ YTAB |
00000220: 20 20 3D 20 24 31 37 30 30 00 1B 22 2C 00 2E 45 | = $1700..",..E|
00000230: 51 20 41 44 44 52 45 47 31 20 20 20 20 3D 20 24 |Q ADDREG1 = $|
00000240: 20 20 34 39 00 36 22 2E 00 2E 45 51 20 41 44 44 | 49.6"...EQ ADD|
00000250: 52 45 47 32 20 20 20 20 3D 20 24 20 20 34 41 00 |REG2 = $ 4A.|
00000260: 51 22 30 00 2E 45 51 20 46 4C 41 47 20 20 20 20 |Q"0..EQ FLAG |
00000270: 20 20 20 3D 20 24 20 20 34 42 00 57 22 64 00 3B | = $ 4B.W"d.;|
00000280: 00 73 22 65 00 3B 20 49 4E 49 54 20 4C 4F 47 4F |.s"e.; INIT LOGO|
00000290: 2D 46 41 44 45 2D 49 4E 2D 49 52 51 00 79 22 66 |-FADE-IN-IRQ.y"f|
000002A0: 00 3B 00 87 22 69 00 2E 42 41 20 24 43 30 30 30 |.;.."i..BA $C000|
000002B0: 00 94 22 78 00 20 4C 44 41 23 24 33 36 00 A0 22 |.."x. LDA#$36.."|
000002C0: 82 00 20 53 54 41 24 30 31 00 B0 22 87 00 20 4A |.. STA$01..".. J|
000002D0: 53 52 49 4E 49 54 56 41 4C 00 C2 22 8C 00 20 4A |SRINITVAL..".. J|
000002E0: 53 52 43 4C 52 42 49 54 4D 41 50 00 D1 22 91 00 |SRCLRBITMAP.."..|
000002F0: 20 4A 53 52 53 45 54 43 4F 4C 00 E0 22 96 00 20 | JSRSETCOL..".. |
00000300: 4A 53 52 4D 41 4B 45 59 54 00 E9 22 97 00 20 53 |JSRMAKEYT..".. S|
00000310: 45 49 00 F6 22 9B 00 20 4C 44 41 23 24 33 42 00 |EI..".. LDA#$3B.|
00000320: 04 23 A0 00 20 53 54 41 24 44 30 31 31 00 11 23 |.#.. STA$D011..#|
00000330: A5 00 20 4C 44 41 23 24 44 38 00 1F 23 AA 00 20 |.. LDA#$D8..#.. |
00000340: 53 54 41 24 44 30 31 36 00 2C 23 AF 00 20 4C 44 |STA$D016.,#.. LD|
00000350: 41 23 24 30 44 00 3A 23 B4 00 20 53 54 41 24 44 |A#$0D.:#.. STA$D|
00000360: 30 31 38 00 47 23 B9 00 20 4C 44 41 23 24 37 46 |018.G#.. LDA#$7F|
00000370: 00 55 23 BE 00 20 53 54 41 24 44 43 30 44 00 62 |.U#.. STA$DC0D.b|
00000380: 23 C3 00 20 4C 44 41 23 24 38 31 00 70 23 C8 00 |#.. LDA#$81.p#..|
00000390: 20 53 54 41 24 44 30 31 41 00 7D 23 CD 00 20 4C | STA$D01A.}#.. L|
000003A0: 44 41 23 24 37 41 00 8B 23 D2 00 20 53 54 41 24 |DA#$7A..#.. STA$|
000003B0: 44 30 31 32 00 9F 23 D7 00 20 4C 44 41 23 3C 28 |D012..#.. LDA#<(|
000003C0: 46 41 44 45 49 52 51 29 00 B3 23 DC 00 20 4C 44 |FADEIRQ)..#.. LD|
000003D0: 58 23 3E 28 46 41 44 45 49 52 51 29 00 C1 23 E1 |X#>(FADEIRQ)..#.|
000003E0: 00 20 53 54 41 24 30 33 31 34 00 CF 23 E6 00 20 |. STA$0314..#.. |
000003F0: 53 54 58 24 30 33 31 35 00 DC 23 FB 00 20 4C 44 |STX$0315..#.. LD|
00000400: 41 23 24 30 30 00 E9 23 FC 00 20 53 54 41 48 52 |A#$00..#.. STAHR|
00000410: 45 47 00 F7 23 FE 00 20 4C 44 41 24 44 44 30 30 |EG..#.. LDA$DD00|
00000420: 00 04 24 00 01 20 41 4E 44 23 24 46 43 00 11 24 |..$.. AND#$FC..$|
00000430: 02 01 20 4F 52 41 23 24 30 32 00 1F 24 04 01 20 |.. ORA#$02..$.. |
00000440: 53 54 41 24 44 44 30 30 00 28 24 09 01 20 43 4C |STA$DD00.($.. CL|
00000450: 49 00 35 24 0E 01 20 4C 44 41 23 24 30 30 00 4A |I.5$.. LDA#$00.J|
00000460: 24 18 01 46 4C 41 47 57 41 49 54 20 43 4D 50 46 |$..FLAGWAIT CMPF|
00000470: 4C 41 47 00 5B 24 22 01 20 42 4E 45 46 4C 41 47 |LAG.[$". BNEFLAG|
00000480: 57 41 49 54 00 61 24 58 02 3B 00 80 24 59 02 3B |WAIT.a$X.;..$Y.;|
00000490: 20 43 41 4C 43 55 4C 41 54 49 4F 4E 53 20 46 4F | CALCULATIONS FO|
000004A0: 52 20 46 52 41 4D 45 20 31 00 86 24 5A 02 3B 00 |R FRAME 1..$Z.;.|
000004B0: 9D 24 67 02 43 41 4C 43 53 20 4C 44 58 4F 42 4A |.$g.CALCS LDXOBJ|
000004C0: 56 45 43 31 2B 31 00 A6 24 6C 02 20 49 4E 58 00 |VEC1+1..$l. INX.|
000004D0: B3 24 76 02 20 43 50 58 23 24 35 30 00 C3 24 80 |.$v. CPX#$50..$.|
000004E0: 02 20 42 4E 45 53 54 4F 42 4A 48 49 00 D0 24 8A |. BNESTOBJHI..$.|
000004F0: 02 20 4C 44 58 23 24 34 38 00 E9 24 94 02 53 54 |. LDX#$48..$..ST|
00000500: 4F 42 4A 48 49 20 53 54 58 4F 42 4A 56 45 43 31 |OBJHI STXOBJVEC1|
00000510: 2B 31 00 FE 24 9E 02 4C 44 59 53 54 20 4C 44 41 |+1..$..LDYST LDA|
00000520: 59 53 49 4E 54 41 42 00 0B 25 A8 02 20 41 4E 44 |YSINTAB..%.. AND|
00000530: 23 24 46 38 00 14 25 B2 02 20 54 41 58 00 23 25 |#$F8..%.. TAX.#%|
00000540: BC 02 20 4C 44 41 59 54 41 42 2C 58 00 33 25 C6 |.. LDAYTAB,X.3%.|
00000550: 02 20 53 54 41 42 49 54 56 45 43 31 00 44 25 D0 |. STABITVEC1.D%.|
00000560: 02 20 4C 44 41 59 54 41 42 2B 31 2C 58 00 56 25 |. LDAYTAB+1,X.V%|
00000570: DA 02 20 53 54 41 42 49 54 56 45 43 31 2B 31 00 |.. STABITVEC1+1.|
00000580: 6B 25 E4 02 4C 44 58 53 54 20 4C 44 41 58 53 49 |k%..LDXST LDAXSI|
00000590: 4E 54 41 42 00 74 25 EE 02 20 41 53 4C 00 83 25 |NTAB.t%.. ASL..%|
000005A0: F8 02 20 42 43 43 53 54 58 50 4F 53 00 95 25 02 |.. BCCSTXPOS..%.|
000005B0: 03 20 49 4E 43 42 49 54 56 45 43 31 2B 31 00 9E |. INCBITVEC1+1..|
000005C0: 25 0C 03 20 43 4C 43 00 AD 25 16 03 53 54 58 50 |%.. CLC..%..STXP|
000005D0: 4F 53 20 54 41 58 00 BA 25 20 03 20 41 4E 44 23 |OS TAX..% . AND#|
000005E0: 24 46 38 00 C3 25 2A 03 20 43 4C 43 00 D3 25 34 |$F8..%*. CLC..%4|
000005F0: 03 20 41 44 43 42 49 54 56 45 43 31 00 E5 25 3E |. ADCBITVEC1..%>|
00000600: 03 20 42 43 43 53 54 42 49 54 56 45 43 31 00 EE |. BCCSTBITVEC1..|
00000610: 25 48 03 20 43 4C 43 00 00 26 52 03 20 49 4E 43 |%H. CLC..&R. INC|
00000620: 42 49 54 56 45 43 31 2B 31 00 19 26 5C 03 53 54 |BITVEC1+1..&\.ST|
00000630: 42 49 54 56 45 43 31 20 53 54 41 42 49 54 56 45 |BITVEC1 STABITVE|
00000640: 43 31 00 26 26 66 03 20 4C 44 59 23 24 37 46 00 |C1.&&f. LDY#$7F.|
00000650: 41 26 70 03 43 4F 50 59 4F 42 4A 20 4C 44 41 28 |A&p.COPYOBJ LDA(|
00000660: 4F 42 4A 56 45 43 31 29 2C 59 00 53 26 7A 03 20 |OBJVEC1),Y.S&z. |
00000670: 53 54 41 4F 42 4A 44 41 54 31 2C 59 00 5C 26 84 |STAOBJDAT1,Y.\&.|
00000680: 03 20 44 45 59 00 6C 26 8E 03 20 42 50 4C 43 4F |. DEY.l&.. BPLCO|
00000690: 50 59 4F 42 4A 00 75 26 98 03 20 54 58 41 00 82 |PYOBJ.u&.. TXA..|
000006A0: 26 A2 03 20 41 4E 44 23 24 30 37 00 90 26 AC 03 |&.. AND#$07..&..|
000006B0: 20 42 45 51 59 53 4F 46 54 00 99 26 B6 03 20 54 | BEQYSOFT..&.. T|
000006C0: 41 59 00 AB 26 C0 03 58 53 4F 46 54 20 4C 44 58 |AY..&..XSOFT LDX|
000006D0: 23 24 30 30 00 B4 26 CA 03 20 43 4C 43 00 C6 26 |#$00..&.. CLC..&|
000006E0: D4 03 20 52 4F 52 4F 42 4A 44 41 54 31 2C 58 00 |.. ROROBJDAT1,X.|
000006F0: DC 26 DE 03 20 52 4F 52 4F 42 4A 44 41 54 31 2B |.&.. ROROBJDAT1+|
00000700: 24 32 30 2C 58 00 F2 26 E8 03 20 52 4F 52 4F 42 |$20,X..&.. ROROB|
00000710: 4A 44 41 54 31 2B 24 34 30 2C 58 00 08 27 F2 03 |JDAT1+$40,X..'..|
00000720: 20 52 4F 52 4F 42 4A 44 41 54 31 2B 24 36 30 2C | ROROBJDAT1+$60,|
00000730: 58 00 11 27 FC 03 20 49 4E 58 00 1E 27 06 04 20 |X..'.. INX..'.. |
00000740: 43 50 58 23 24 31 38 00 2E 27 10 04 20 42 4E 45 |CPX#$18..'.. BNE|
00000750: 58 53 4F 46 54 2B 32 00 37 27 1A 04 20 44 45 59 |XSOFT+2.7'.. DEY|
00000760: 00 45 27 24 04 20 42 4E 45 58 53 4F 46 54 00 5A |.E'$. BNEXSOFT.Z|
00000770: 27 2E 04 59 53 4F 46 54 20 4C 44 41 59 53 49 4E |'..YSOFT LDAYSIN|
00000780: 54 41 42 00 67 27 38 04 20 41 4E 44 23 24 30 37 |TAB.g'8. AND#$07|
00000790: 00 77 27 42 04 20 42 45 51 45 4E 44 43 44 2B 32 |.w'B. BEQENDCD+2|
000007A0: 00 87 27 4C 04 20 53 54 41 53 54 4F 44 31 2B 31 |..'L. STASTOD1+1|
000007B0: 00 90 27 56 04 20 54 41 59 00 9D 27 60 04 20 4C |..'V. TAY..'`. L|
000007C0: 44 58 23 24 37 37 00 B5 27 6A 04 4D 4F 56 42 59 |DX#$77..'j.MOVBY|
000007D0: 54 20 4C 44 41 4F 42 4A 44 41 54 31 2C 58 00 CC |T LDAOBJDAT1,X..|
000007E0: 27 74 04 53 54 4F 44 31 20 53 54 41 4F 42 4A 44 |'t.STOD1 STAOBJD|
000007F0: 41 54 31 2C 58 00 D5 27 7E 04 20 44 45 58 00 E4 |AT1,X..'~. DEX..|
00000800: 27 88 04 20 42 50 4C 4D 4F 56 42 59 54 00 F1 27 |'.. BPLMOVBYT..'|
00000810: 92 04 20 4C 44 41 23 24 30 30 00 FA 27 9C 04 20 |.. LDA#$00..'.. |
00000820: 44 45 59 00 12 28 A6 04 43 4C 53 54 42 59 20 53 |DEY..(..CLSTBY S|
00000830: 54 41 4F 42 4A 44 41 54 31 2C 59 00 1B 28 B0 04 |TAOBJDAT1,Y..(..|
00000840: 20 44 45 59 00 2F 28 BA 04 45 4E 44 43 44 20 42 | DEY./(..ENDCD B|
00000850: 50 4C 43 4C 53 54 42 59 00 3B 28 C4 04 2E 45 51 |PLCLSTBY.;(...EQ|
00000860: 20 42 3D 30 00 51 28 CE 04 20 4C 44 41 42 49 54 | B=0.Q(.. LDABIT|
00000870: 56 45 43 31 2B 31 2B 42 2A 32 00 67 28 D8 04 20 |VEC1+1+B*2.g(.. |
00000880: 53 54 41 42 49 54 56 45 43 31 2B 33 2B 42 2A 32 |STABITVEC1+3+B*2|
00000890: 00 7B 28 E2 04 20 4C 44 41 42 49 54 56 45 43 31 |.{(.. LDABITVEC1|
000008A0: 2B 42 2A 32 00 84 28 EC 04 20 43 4C 43 00 91 28 |+B*2..(.. CLC..(|
000008B0: F6 04 20 41 44 43 23 24 34 30 00 A1 28 00 05 2E |.. ADC#$40..(...|
000008C0: 42 59 20 24 39 30 2C 24 30 33 00 AA 28 0A 05 20 |BY $90,$03..(.. |
000008D0: 43 4C 43 00 C0 28 14 05 20 49 4E 43 42 49 54 56 |CLC..(.. INCBITV|
000008E0: 45 43 31 2B 42 2A 32 2B 33 00 D6 28 1E 05 20 53 |EC1+B*2+3..(.. S|
000008F0: 54 41 42 49 54 56 45 43 31 2B 42 2A 32 2B 32 00 |TABITVEC1+B*2+2.|
00000900: EC 28 28 05 20 49 4E 43 42 49 54 56 45 43 31 2B |.((. INCBITVEC1+|
00000910: 42 2A 32 2B 33 00 FA 28 32 05 2E 45 51 20 42 3D |B*2+3..(2..EQ B=|
00000920: 42 2B 31 00 0A 29 3C 05 2E 49 46 20 42 20 21 3C |B+1..)<..IF B !<|
00000930: 21 20 33 00 17 29 46 05 2E 47 4F 20 31 32 33 30 |! 3..)F..GO 1230|
00000940: 00 1F 29 50 05 2E 45 49 00 28 29 5A 05 20 43 4C |..)P..EI.()Z. CL|
00000950: 43 00 35 29 64 05 20 4C 44 59 23 24 30 30 00 43 |C.5)d. LDY#$00.C|
00000960: 29 6E 05 2E 45 51 20 43 20 3D 20 30 00 50 29 78 |)n..EQ C = 0.P)x|
00000970: 05 20 4C 44 58 23 24 30 30 00 5E 29 82 05 2E 45 |. LDX#$00.^)...E|
00000980: 51 20 42 20 3D 20 30 00 76 29 8C 05 20 4C 44 41 |Q B = 0.v).. LDA|
00000990: 28 42 49 54 56 45 43 31 2B 42 2A 32 29 2C 59 00 |(BITVEC1+B*2),Y.|
000009A0: 8E 29 96 05 20 53 54 41 4F 42 4A 44 41 54 32 2B |.).. STAOBJDAT2+|
000009B0: 42 2A 24 32 30 2C 59 00 AB 29 A0 05 20 4F 52 41 |B*$20,Y..).. ORA|
000009C0: 4F 42 4A 44 41 54 31 2B 43 2A 24 32 30 2B 42 2A |OBJDAT1+C*$20+B*|
000009D0: 24 38 2C 58 00 B8 29 AA 05 20 53 54 41 48 52 45 |$8,X..).. STAHRE|
000009E0: 47 00 D0 29 B4 05 20 4C 44 41 28 42 49 54 56 45 |G..).. LDA(BITVE|
000009F0: 43 31 2B 42 2A 32 29 2C 59 00 ED 29 BE 05 20 41 |C1+B*2),Y..).. A|
00000A00: 4E 44 4F 42 4A 44 41 54 31 2B 43 2A 24 32 30 2B |NDOBJDAT1+C*$20+|
00000A10: 42 2A 24 38 2C 58 00 FC 29 C8 05 20 53 54 41 48 |B*$8,X..).. STAH|
00000A20: 52 45 47 2B 31 00 05 2A D2 05 20 41 53 4C 00 14 |REG+1..*.. ASL..|
00000A30: 2A DC 05 20 4F 52 41 48 52 45 47 2B 31 00 21 2A |*.. ORAHREG+1.!*|
00000A40: E6 05 20 45 4F 52 48 52 45 47 00 39 2A F0 05 20 |.. EORHREG.9*.. |
00000A50: 53 54 41 28 42 49 54 56 45 43 31 2B 42 2A 32 29 |STA(BITVEC1+B*2)|
00000A60: 2C 59 00 49 2A FA 05 2E 45 51 20 42 20 3D 20 42 |,Y.I*...EQ B = B|
00000A70: 2B 31 00 59 2A 04 06 2E 49 46 20 42 20 21 3C 21 |+1.Y*...IF B !<!|
00000A80: 20 34 00 66 2A 0E 06 2E 47 4F 20 31 34 32 30 00 | 4.f*...GO 1420.|
00000A90: 6E 2A 18 06 2E 45 49 00 77 2A 22 06 20 49 4E 58 |n*...EI.w*". INX|
00000AA0: 00 80 2A 2C 06 20 49 4E 59 00 8D 2A 36 06 20 43 |..*,. INY..*6. C|
00000AB0: 50 58 23 24 30 38 00 9D 2A 40 06 2E 42 59 20 24 |PX#$08..*@..BY $|
00000AC0: 46 30 2C 24 30 33 00 AB 2A 4A 06 20 4A 4D 50 24 |F0,$03..*J. JMP$|
00000AD0: 46 46 46 46 00 BB 2A 54 06 2E 45 51 20 43 20 3D |FFFF..*T..EQ C =|
00000AE0: 20 43 2B 31 00 CB 2A 5E 06 2E 49 46 20 43 20 21 | C+1..*^..IF C !|
00000AF0: 3C 21 20 34 00 D8 2A 68 06 2E 47 4F 20 31 34 30 |<! 4..*h..GO 140|
00000B00: 30 00 E0 2A 72 06 2E 45 49 00 ED 2A 77 06 20 4C |0..*r..EI..*w. L|
00000B10: 44 41 23 24 30 30 00 FB 2A 78 06 20 53 54 41 24 |DA#$00..*x. STA$|
00000B20: 44 30 32 30 00 01 2B 7C 06 3B 00 20 2B 7D 06 3B |D020..+|.;. +}.;|
00000B30: 20 43 41 4C 43 55 4C 41 54 49 4F 4E 53 20 46 4F | CALCULATIONS FO|
00000B40: 52 20 46 52 41 4D 45 20 32 00 26 2B 7E 06 3B 00 |R FRAME 2.&+~.;.|
00000B50: 2F 2B D6 06 20 43 4C 43 00 43 2B E0 06 54 53 54 |/+.. CLC.C+..TST|
00000B60: 42 50 4C 32 20 4C 44 59 23 24 31 46 00 4F 2B EA |BPL2 LDY#$1F.O+.|
00000B70: 06 2E 45 51 20 42 3D 30 00 67 2B F4 06 20 4C 44 |..EQ B=0.g+.. LD|
00000B80: 41 4F 42 4A 44 41 54 32 2B 42 2A 24 32 30 2C 59 |AOBJDAT2+B*$20,Y|
00000B90: 00 74 2B FE 06 20 41 4E 44 23 24 35 35 00 81 2B |.t+.. AND#$55..+|
00000BA0: 08 07 20 53 54 41 48 52 45 47 00 99 2B 12 07 20 |.. STAHREG..+.. |
00000BB0: 4C 44 41 4F 42 4A 44 41 54 32 2B 42 2A 24 32 30 |LDAOBJDAT2+B*$20|
00000BC0: 2C 59 00 A6 2B 1C 07 20 41 4E 44 23 24 41 41 00 |,Y..+.. AND#$AA.|
00000BD0: AF 2B 26 07 20 4C 53 52 00 BC 2B 30 07 20 41 4E |.+&. LSR..+0. AN|
00000BE0: 44 48 52 45 47 00 D4 2B 3A 07 20 53 54 41 4F 42 |DHREG..+:. STAOB|
00000BF0: 4A 44 41 54 31 2B 42 2A 24 32 30 2C 59 00 E2 2B |JDAT1+B*$20,Y..+|
00000C00: 44 07 2E 45 51 20 42 3D 42 2B 31 00 F2 2B 4E 07 |D..EQ B=B+1..+N.|
00000C10: 2E 49 46 20 42 20 21 3C 21 20 34 00 FF 2B 58 07 |.IF B !<! 4..+X.|
00000C20: 2E 47 4F 20 31 37 38 30 00 07 2C 62 07 2E 45 49 |.GO 1780..,b..EI|
00000C30: 00 10 2C 6C 07 20 44 45 59 00 22 2C 76 07 20 42 |..,l. DEY.",v. B|
00000C40: 50 4C 54 53 54 42 50 4C 32 2B 32 00 2B 2C 80 07 |PLTSTBPL2+2.+,..|
00000C50: 20 43 4C 43 00 37 2C 8A 07 2E 45 51 20 42 3D 30 | CLC.7,...EQ B=0|
00000C60: 00 40 2C 94 07 20 4E 4F 50 00 56 2C 9E 07 20 4C |.@,.. NOP.V,.. L|
00000C70: 44 41 42 49 54 56 45 43 31 2B 31 2B 42 2A 32 00 |DABITVEC1+1+B*2.|
00000C80: 63 2C A8 07 20 41 44 43 23 24 34 30 00 79 2C B2 |c,.. ADC#$40.y,.|
00000C90: 07 20 53 54 41 42 49 54 56 45 43 31 2B 31 2B 42 |. STABITVEC1+1+B|
00000CA0: 2A 32 00 87 2C BC 07 2E 45 51 20 42 3D 42 2B 31 |*2..,...EQ B=B+1|
00000CB0: 00 97 2C C6 07 2E 49 46 20 42 20 21 3C 21 20 34 |..,...IF B !<! 4|
00000CC0: 00 A4 2C D0 07 2E 47 4F 20 31 39 34 30 00 AC 2C |..,...GO 1940..,|
00000CD0: DA 07 2E 45 49 00 B5 2C E4 07 20 43 4C 43 00 CA |...EI..,.. CLC..|
00000CE0: 2C EE 07 53 48 41 44 45 46 52 32 20 4C 44 59 23 |,..SHADEFR2 LDY#|
00000CF0: 24 31 46 00 D6 2C F8 07 2E 45 51 20 42 3D 30 00 |$1F..,...EQ B=0.|
00000D00: EE 2C 02 08 20 4C 44 41 28 42 49 54 56 45 43 31 |.,.. LDA(BITVEC1|
00000D10: 2B 42 2A 32 29 2C 59 00 06 2D 0C 08 20 4F 52 41 |+B*2),Y..-.. ORA|
00000D20: 4F 42 4A 44 41 54 31 2B 42 2A 24 32 30 2C 59 00 |OBJDAT1+B*$20,Y.|
00000D30: 13 2D 16 08 20 53 54 41 48 52 45 47 00 2B 2D 20 |.-.. STAHREG.+- |
00000D40: 08 20 4C 44 41 28 42 49 54 56 45 43 31 2B 42 2A |. LDA(BITVEC1+B*|
00000D50: 32 29 2C 59 00 43 2D 2A 08 20 41 4E 44 4F 42 4A |2),Y.C-*. ANDOBJ|
00000D60: 44 41 54 31 2B 42 2A 24 32 30 2C 59 00 52 2D 34 |DAT1+B*$20,Y.R-4|
00000D70: 08 20 53 54 41 48 52 45 47 2B 31 00 5B 2D 3E 08 |. STAHREG+1.[->.|
00000D80: 20 41 53 4C 00 6A 2D 48 08 20 4F 52 41 48 52 45 | ASL.j-H. ORAHRE|
00000D90: 47 2B 31 00 77 2D 52 08 20 45 4F 52 48 52 45 47 |G+1.w-R. EORHREG|
00000DA0: 00 8F 2D 5C 08 20 53 54 41 28 42 49 54 56 45 43 |..-\. STA(BITVEC|
00000DB0: 31 2B 42 2A 32 29 2C 59 00 9F 2D 66 08 2E 45 51 |1+B*2),Y..-f..EQ|
00000DC0: 20 42 20 3D 20 42 2B 31 00 AF 2D 70 08 2E 49 46 | B = B+1..-p..IF|
00000DD0: 20 42 20 21 3C 21 20 34 00 BC 2D 7A 08 2E 47 4F | B !<! 4..-z..GO|
00000DE0: 20 32 30 35 30 00 C4 2D 84 08 2E 45 49 00 CD 2D | 2050..-...EI..-|
00000DF0: 8E 08 20 44 45 59 00 E0 2D 98 08 20 42 50 4C 53 |.. DEY..-.. BPLS|
00000E00: 48 41 44 45 46 52 32 2B 32 00 E6 2D 9D 08 3B 00 |HADEFR2+2..-..;.|
00000E10: 08 2E 9E 08 3B 20 45 4E 44 20 4F 46 20 46 52 41 |....; END OF FRA|
00000E20: 4D 45 20 32 20 41 4E 44 20 41 44 44 20 53 49 4E |ME 2 AND ADD SIN|
00000E30: 45 00 0E 2E 9F 08 3B 00 1E 2E A2 08 20 4C 44 41 |E.....;..... LDA|
00000E40: 4C 44 58 53 54 2B 31 00 27 2E A4 08 20 43 4C 43 |LDXST+1.'... CLC|
00000E50: 00 37 2E A6 08 20 41 44 43 41 44 44 52 45 47 31 |.7... ADCADDREG1|
00000E60: 00 44 2E A8 08 20 42 43 43 53 54 58 58 00 4D 2E |.D... BCCSTXX.M.|
00000E70: AA 08 20 43 4C 43 00 5D 2E AC 08 20 49 4E 43 4C |.. CLC.]... INCL|
00000E80: 44 58 53 54 2B 32 00 71 2E AE 08 53 54 58 58 20 |DXST+2.q...STXX |
00000E90: 53 54 41 4C 44 58 53 54 2B 31 00 81 2E B0 08 20 |STALDXST+1..... |
00000EA0: 4C 44 41 4C 44 59 53 54 2B 31 00 91 2E B2 08 20 |LDALDYST+1..... |
00000EB0: 41 44 43 41 44 44 52 45 47 32 00 9E 2E B4 08 20 |ADCADDREG2..... |
00000EC0: 42 43 43 53 54 59 59 00 A7 2E B6 08 20 43 4C 43 |BCCSTYY..... CLC|
00000ED0: 00 B7 2E B8 08 20 49 4E 43 4C 44 59 53 54 2B 32 |..... INCLDYST+2|
00000EE0: 00 C7 2E BA 08 20 49 4E 43 59 53 4F 46 54 2B 32 |..... INCYSOFT+2|
00000EF0: 00 DB 2E BC 08 53 54 59 59 20 53 54 41 4C 44 59 |.....STYY STALDY|
00000F00: 53 54 2B 31 00 EB 2E BE 08 20 53 54 41 59 53 4F |ST+1..... STAYSO|
00000F10: 46 54 2B 31 00 00 2F 06 09 45 4E 44 46 52 20 4C |FT+1../..ENDFR L|
00000F20: 44 41 4C 44 58 53 54 2B 32 00 0D 2F 10 09 20 43 |DALDXST+2../.. C|
00000F30: 4D 50 23 24 32 38 00 1C 2F 1A 09 20 42 4E 45 45 |MP#$28../.. BNEE|
00000F40: 4E 44 46 52 32 00 29 2F 24 09 20 4C 44 41 23 24 |NDFR2.)/$. LDA#$|
00000F50: 30 30 00 39 2F 2E 09 20 53 54 41 4C 44 58 53 54 |00.9/.. STALDXST|
00000F60: 2B 31 00 49 2F 38 09 20 53 54 41 4C 44 59 53 54 |+1.I/8. STALDYST|
00000F70: 2B 31 00 59 2F 42 09 20 53 54 41 59 53 4F 46 54 |+1.Y/B. STAYSOFT|
00000F80: 2B 31 00 66 2F 4C 09 20 4C 44 41 23 24 32 30 00 |+1.f/L. LDA#$20.|
00000F90: 76 2F 56 09 20 53 54 41 4C 44 58 53 54 2B 32 00 |v/V. STALDXST+2.|
00000FA0: 83 2F 60 09 20 4C 44 41 23 24 32 38 00 93 2F 6A |./`. LDA#$28../j|
00000FB0: 09 20 53 54 41 4C 44 59 53 54 2B 32 00 A3 2F 74 |. STALDYST+2../t|
00000FC0: 09 20 53 54 41 59 53 4F 46 54 2B 32 00 B7 2F 7E |. STAYSOFT+2../~|
00000FD0: 09 45 4E 44 46 52 32 20 4A 4D 50 43 41 4C 43 53 |.ENDFR2 JMPCALCS|
00000FE0: 00 CA 2F 88 09 57 41 49 54 32 20 4A 4D 50 57 41 |../..WAIT2 JMPWA|
00000FF0: 49 54 32 00 DF 2F B8 0B 46 41 44 45 49 52 51 20 |IT2../..FADEIRQ |
00001000: 44 45 43 24 44 30 31 39 00 EC 2F BD 0B 20 4C 44 |DEC$D019../.. LD|
00001010: 58 23 24 30 30 00 02 30 C2 0B 4E 43 4F 4C 20 4C |X#$00..0..NCOL L|
00001020: 44 41 43 4F 4C 52 41 4D 32 2C 58 00 0F 30 C7 0B |DACOLRAM2,X..0..|
00001030: 20 43 4D 50 48 52 45 47 00 1D 30 CC 0B 20 42 4E | CMPHREG..0.. BN|
00001040: 45 43 46 41 44 45 00 2F 30 D1 0B 20 4C 44 41 4C |ECFADE./0.. LDAL|
00001050: 4F 47 4F 43 4F 4C 2C 58 00 41 30 D6 0B 20 53 54 |OGOCOL,X.A0.. ST|
00001060: 41 43 4F 4C 52 41 4D 31 2C 58 00 52 30 E0 0B 20 |ACOLRAM1,X.R0.. |
00001070: 4C 44 41 4C 4F 47 4F 44 38 2C 58 00 62 30 E5 0B |LDALOGOD8,X.b0..|
00001080: 20 53 54 41 24 44 38 30 30 2C 58 00 7D 30 EA 0B | STA$D800,X.}0..|
00001090: 43 46 41 44 45 20 4C 44 41 43 4F 4C 52 41 4D 32 |CFADE LDACOLRAM2|
000010A0: 2B 24 42 34 2C 58 00 8A 30 EF 0B 20 43 4D 50 48 |+$B4,X..0.. CMPH|
000010B0: 52 45 47 00 98 30 F4 0B 20 42 4E 45 45 46 41 44 |REG..0.. BNEEFAD|
000010C0: 45 00 AE 30 F9 0B 20 4C 44 41 4C 4F 47 4F 43 4F |E..0.. LDALOGOCO|
000010D0: 4C 2B 24 42 34 2C 58 00 C4 30 FE 0B 20 53 54 41 |L+$B4,X..0.. STA|
000010E0: 43 4F 4C 52 41 4D 31 2B 24 42 34 2C 58 00 D9 30 |COLRAM1+$B4,X..0|
000010F0: 08 0C 20 4C 44 41 4C 4F 47 4F 44 38 2B 24 42 34 |.. LDALOGOD8+$B4|
00001100: 2C 58 00 E9 30 0D 0C 20 53 54 41 24 44 38 42 34 |,X..0.. STA$D8B4|
00001110: 2C 58 00 F7 30 12 0C 45 46 41 44 45 20 49 4E 58 |,X..0..EFADE INX|
00001120: 00 04 31 14 0C 20 43 50 58 23 24 42 34 00 11 31 |..1.. CPX#$B4..1|
00001130: 17 0C 20 42 4E 45 4E 43 4F 4C 00 1E 31 1C 0C 20 |.. BNENCOL..1.. |
00001140: 49 4E 43 48 52 45 47 00 2B 31 21 0C 20 4C 44 41 |INCHREG.+1!. LDA|
00001150: 48 52 45 47 00 38 31 26 0C 20 43 4D 50 23 24 38 |HREG.81&. CMP#$8|
00001160: 30 00 45 31 2B 0C 20 42 4E 45 45 49 52 51 00 52 |0.E1+. BNEEIRQ.R|
00001170: 31 2D 0C 20 4C 44 41 23 24 33 32 00 60 31 2E 0C |1-. LDA#$32.`1..|
00001180: 20 53 54 41 24 44 30 31 32 00 74 31 30 0C 20 4C | STA$D012.t10. L|
00001190: 44 41 23 3C 28 4C 4F 47 4F 49 52 51 29 00 88 31 |DA#<(LOGOIRQ)..1|
000011A0: 35 0C 20 4C 44 58 23 3E 28 4C 4F 47 4F 49 52 51 |5. LDX#>(LOGOIRQ|
000011B0: 29 00 96 31 3A 0C 20 53 54 41 24 30 33 31 34 00 |)..1:. STA$0314.|
000011C0: A4 31 3F 0C 20 53 54 58 24 30 33 31 35 00 B5 31 |.1?. STX$0315..1|
000011D0: 44 0C 45 49 52 51 20 4C 44 41 23 24 46 46 00 C2 |D.EIRQ LDA#$FF..|
000011E0: 31 49 0C 20 53 54 41 46 4C 41 47 00 D0 31 4E 0C |1I. STAFLAG..1N.|
000011F0: 20 4A 4D 50 24 46 45 42 43 00 E4 31 80 0C 4F 55 | JMP$FEBC..1..OU|
00001200: 54 49 52 51 20 44 45 43 24 44 30 31 39 00 F1 31 |TIRQ DEC$D019..1|
00001210: 85 0C 20 4C 44 58 23 24 30 30 00 08 32 8A 0C 4E |.. LDX#$00..2..N|
00001220: 4E 43 4F 4C 20 4C 44 41 43 4F 4C 52 41 4D 32 2C |NCOL LDACOLRAM2,|
00001230: 58 00 15 32 8F 0C 20 43 4D 50 48 52 45 47 00 24 |X..2.. CMPHREG.$|
00001240: 32 94 0C 20 42 4E 45 43 43 46 41 44 45 00 31 32 |2.. BNECCFADE.12|
00001250: 99 0C 20 4C 44 41 23 24 30 30 00 43 32 9E 0C 20 |.. LDA#$00.C2.. |
00001260: 53 54 41 43 4F 4C 52 41 4D 31 2C 58 00 53 32 AD |STACOLRAM1,X.S2.|
00001270: 0C 20 53 54 41 24 44 38 30 30 2C 58 00 6F 32 B2 |. STA$D800,X.o2.|
00001280: 0C 43 43 46 41 44 45 20 4C 44 41 43 4F 4C 52 41 |.CCFADE LDACOLRA|
00001290: 4D 32 2B 24 42 34 2C 58 00 7C 32 B7 0C 20 43 4D |M2+$B4,X.|2.. CM|
000012A0: 50 48 52 45 47 00 8B 32 BC 0C 20 42 4E 45 45 45 |PHREG..2.. BNEEE|
000012B0: 46 41 44 45 00 98 32 C1 0C 20 4C 44 41 23 24 30 |FADE..2.. LDA#$0|
000012C0: 30 00 AE 32 C6 0C 20 53 54 41 43 4F 4C 52 41 4D |0..2.. STACOLRAM|
000012D0: 31 2B 24 42 34 2C 58 00 BE 32 D5 0C 20 53 54 41 |1+$B4,X..2.. STA|
000012E0: 24 44 38 42 34 2C 58 00 CD 32 DA 0C 45 45 46 41 |$D8B4,X..2..EEFA|
000012F0: 44 45 20 49 4E 58 00 DA 32 DC 0C 20 43 50 58 23 |DE INX..2.. CPX#|
00001300: 24 42 34 00 E8 32 DF 0C 20 42 4E 45 4E 4E 43 4F |$B4..2.. BNENNCO|
00001310: 4C 00 F5 32 E4 0C 20 44 45 43 48 52 45 47 00 02 |L..2.. DECHREG..|
00001320: 33 E9 0C 20 4C 44 41 48 52 45 47 00 0F 33 EE 0C |3.. LDAHREG..3..|
00001330: 20 43 4D 50 23 24 30 30 00 1D 33 F3 0C 20 42 4E | CMP#$00..3.. BN|
00001340: 45 45 45 49 52 51 00 2A 33 F5 0C 20 4C 44 41 23 |EEEIRQ.*3.. LDA#|
00001350: 24 37 41 00 38 33 F6 0C 20 53 54 41 24 44 30 31 |$7A.83.. STA$D01|
00001360: 32 00 45 33 F8 0C 20 4C 44 41 23 24 33 31 00 52 |2.E3.. LDA#$31.R|
00001370: 33 FD 0C 20 4C 44 58 23 24 45 41 00 60 33 02 0D |3.. LDX#$EA.`3..|
00001380: 20 53 54 41 24 30 33 31 34 00 6E 33 07 0D 20 53 | STA$0314.n3.. S|
00001390: 54 58 24 30 33 31 35 00 81 33 11 0D 45 45 49 52 |TX$0315..3..EEIR|
000013A0: 51 20 4A 4D 50 24 46 45 42 43 00 95 33 AC 0D 46 |Q JMP$FEBC..3..F|
000013B0: 52 41 4D 45 31 20 44 45 43 24 44 30 31 39 00 A3 |RAME1 DEC$D019..|
000013C0: 33 B1 0D 20 4C 44 41 24 44 44 30 30 00 B0 33 B6 |3.. LDA$DD00..3.|
000013D0: 0D 20 41 4E 44 23 24 46 43 00 BD 33 BB 0D 20 4F |. AND#$FC..3.. O|
000013E0: 52 41 23 24 30 31 00 CB 33 C0 0D 20 53 54 41 24 |RA#$01..3.. STA$|
000013F0: 44 44 30 30 00 D8 33 C5 0D 20 4C 44 41 23 24 44 |DD00..3.. LDA#$D|
00001400: 38 00 E6 33 CA 0D 20 53 54 41 24 44 30 31 36 00 |8..3.. STA$D016.|
00001410: F3 33 CB 0D 20 4C 44 41 23 24 33 32 00 01 34 CC |.3.. LDA#$32..4.|
00001420: 0D 20 53 54 41 24 44 30 31 32 00 15 34 CF 0D 20 |. STA$D012..4.. |
00001430: 4C 44 41 23 3C 28 4C 4F 47 4F 49 52 51 29 00 29 |LDA#<(LOGOIRQ).)|
00001440: 34 D4 0D 20 4C 44 58 23 3E 28 4C 4F 47 4F 49 52 |4.. LDX#>(LOGOIR|
00001450: 51 29 00 37 34 D9 0D 20 53 54 41 24 30 33 31 34 |Q).74.. STA$0314|
00001460: 00 45 34 DE 0D 20 53 54 58 24 30 33 31 35 00 58 |.E4.. STX$0315.X|
00001470: 34 DF 0D 20 4C 44 41 23 3C 28 46 52 41 4D 45 32 |4.. LDA#<(FRAME2|
00001480: 29 00 6B 34 E0 0D 20 4C 44 58 23 3E 28 46 52 41 |).k4.. LDX#>(FRA|
00001490: 4D 45 32 29 00 7C 34 E1 0D 20 53 54 41 4E 58 54 |ME2).|4.. STANXT|
000014A0: 46 52 4C 2B 31 00 8D 34 E2 0D 20 53 54 58 4E 58 |FRL+1..4.. STXNX|
000014B0: 54 46 52 48 2B 31 00 9B 34 ED 0D 20 4A 4D 50 24 |TFRH+1..4.. JMP$|
000014C0: 46 45 42 43 00 AF 34 74 0E 46 52 41 4D 45 32 20 |FEBC..4t.FRAME2 |
000014D0: 44 45 43 24 44 30 31 39 00 BD 34 79 0E 20 4C 44 |DEC$D019..4y. LD|
000014E0: 41 24 44 44 30 30 00 CA 34 7E 0E 20 41 4E 44 23 |A$DD00..4~. AND#|
000014F0: 24 46 43 00 D7 34 83 0E 20 4F 52 41 23 24 30 32 |$FC..4.. ORA#$02|
00001500: 00 E5 34 88 0E 20 53 54 41 24 44 44 30 30 00 F2 |..4.. STA$DD00..|
00001510: 34 8D 0E 20 4C 44 41 23 24 44 39 00 00 35 92 0E |4.. LDA#$D9..5..|
00001520: 20 53 54 41 24 44 30 31 36 00 0D 35 93 0E 20 4C | STA$D016..5.. L|
00001530: 44 41 23 24 33 32 00 1B 35 94 0E 20 53 54 41 24 |DA#$32..5.. STA$|
00001540: 44 30 31 32 00 2F 35 97 0E 20 4C 44 41 23 3C 28 |D012./5.. LDA#<(|
00001550: 4C 4F 47 4F 49 52 51 29 00 43 35 9C 0E 20 4C 44 |LOGOIRQ).C5.. LD|
00001560: 58 23 3E 28 4C 4F 47 4F 49 52 51 29 00 51 35 A1 |X#>(LOGOIRQ).Q5.|
00001570: 0E 20 53 54 41 24 30 33 31 34 00 5F 35 A6 0E 20 |. STA$0314._5.. |
00001580: 53 54 58 24 30 33 31 35 00 72 35 A7 0E 20 4C 44 |STX$0315.r5.. LD|
00001590: 41 23 3C 28 46 52 41 4D 45 31 29 00 85 35 A8 0E |A#<(FRAME1)..5..|
000015A0: 20 4C 44 58 23 3E 28 46 52 41 4D 45 31 29 00 96 | LDX#>(FRAME1)..|
000015B0: 35 A9 0E 20 53 54 41 4E 58 54 46 52 4C 2B 31 00 |5.. STANXTFRL+1.|
000015C0: A7 35 AA 0E 20 53 54 58 4E 58 54 46 52 48 2B 31 |.5.. STXNXTFRH+1|
000015D0: 00 B5 35 B5 0E 20 4A 4D 50 24 46 45 42 43 00 CA |..5.. JMP$FEBC..|
000015E0: 35 D8 0E 4C 4F 47 4F 49 52 51 20 44 45 43 24 44 |5..LOGOIRQ DEC$D|
000015F0: 30 31 39 00 D7 35 D9 0E 20 4C 44 41 23 24 30 32 |019..5.. LDA#$02|
00001600: 00 E5 35 DA 0E 20 53 54 41 24 44 30 32 30 00 F3 |..5.. STA$D020..|
00001610: 35 DD 0E 20 4C 44 41 24 44 44 30 30 00 00 36 E2 |5.. LDA$DD00..6.|
00001620: 0E 20 41 4E 44 23 24 46 43 00 0D 36 E7 0E 20 4F |. AND#$FC..6.. O|
00001630: 52 41 23 24 30 32 00 1B 36 EC 0E 20 53 54 41 24 |RA#$02..6.. STA$|
00001640: 44 44 30 30 00 28 36 F1 0E 20 4C 44 41 23 24 44 |DD00.(6.. LDA#$D|
00001650: 38 00 36 36 F6 0E 20 53 54 41 24 44 30 31 36 00 |8.66.. STA$D016.|
00001660: 43 36 FB 0E 20 4C 44 41 23 24 37 41 00 51 36 00 |C6.. LDA#$7A.Q6.|
00001670: 0F 20 53 54 41 24 44 30 31 32 00 6A 36 05 0F 4E |. STA$D012.j6..N|
00001680: 58 54 46 52 4C 20 4C 44 41 23 3C 28 46 52 41 4D |XTFRL LDA#<(FRAM|
00001690: 45 31 29 00 83 36 0A 0F 4E 58 54 46 52 48 20 4C |E1)..6..NXTFRH L|
000016A0: 44 58 23 3E 28 46 52 41 4D 45 31 29 00 91 36 0F |DX#>(FRAME1)..6.|
000016B0: 0F 20 53 54 41 24 30 33 31 34 00 9F 36 14 0F 20 |. STA$0314..6.. |
000016C0: 53 54 58 24 30 33 31 35 00 AD 36 19 0F 20 4A 4D |STX$0315..6.. JM|
000016D0: 50 24 46 45 42 43 00 C1 36 A6 13 49 4E 49 54 56 |P$FEBC..6..INITV|
000016E0: 41 4C 20 4C 44 41 23 24 30 30 00 D3 36 AB 13 20 |AL LDA#$00..6.. |
000016F0: 53 54 41 53 54 59 54 41 42 31 2B 31 00 E3 36 B0 |STASTYTAB1+1..6.|
00001700: 13 20 53 54 41 4F 42 4A 56 45 43 31 00 F0 36 B5 |. STAOBJVEC1..6.|
00001710: 13 20 4C 44 41 23 24 30 31 00 02 37 BA 13 20 53 |. LDA#$01..7.. S|
00001720: 54 41 53 54 59 54 41 42 32 2B 31 00 10 37 BF 13 |TASTYTAB2+1..7..|
00001730: 20 4C 44 41 24 44 43 30 34 00 20 37 C4 13 20 53 | LDA$DC04. 7.. S|
00001740: 54 41 4C 44 58 53 54 2B 31 00 2E 37 C5 13 20 4C |TALDXST+1..7.. L|
00001750: 44 41 24 44 43 30 34 00 3E 37 C6 13 20 53 54 41 |DA$DC04.>7.. STA|
00001760: 41 44 44 52 45 47 31 00 4B 37 D8 13 20 4C 44 41 |ADDREG1.K7.. LDA|
00001770: 23 24 34 37 00 5D 37 DD 13 20 53 54 41 4F 42 4A |#$47.]7.. STAOBJ|
00001780: 56 45 43 31 2B 31 00 6A 37 E2 13 20 4C 44 41 23 |VEC1+1.j7.. LDA#|
00001790: 24 30 30 00 78 37 E7 13 20 53 54 41 24 44 30 32 |$00.x7.. STA$D02|
000017A0: 30 00 86 37 EC 13 20 53 54 41 24 44 30 32 31 00 |0..7.. STA$D021.|
000017B0: 93 37 F1 13 20 4C 44 41 23 24 32 30 00 A3 37 F6 |.7.. LDA#$20..7.|
000017C0: 13 20 53 54 41 4C 44 58 53 54 2B 32 00 B0 37 FB |. STALDXST+2..7.|
000017D0: 13 20 4C 44 41 23 24 32 38 00 C0 37 00 14 20 53 |. LDA#$28..7.. S|
000017E0: 54 41 4C 44 59 53 54 2B 32 00 D0 37 05 14 20 53 |TALDYST+2..7.. S|
000017F0: 54 41 59 53 4F 46 54 2B 32 00 DE 37 0A 14 20 4C |TAYSOFT+2..7.. L|
00001800: 44 41 24 44 43 30 34 00 EE 37 0F 14 20 53 54 41 |DA$DC04..7.. STA|
00001810: 41 44 44 52 45 47 32 00 FC 37 14 14 20 4C 44 41 |ADDREG2..7.. LDA|
00001820: 24 44 43 30 34 00 0C 38 19 14 20 53 54 41 59 53 |$DC04..8.. STAYS|
00001830: 4F 46 54 2B 31 00 1C 38 1E 14 20 53 54 41 4C 44 |OFT+1..8.. STALD|
00001840: 59 53 54 2B 31 00 25 38 28 14 20 52 54 53 00 3B |YST+1.%8(. RTS.;|
00001850: 38 7C 15 43 4C 52 42 49 54 4D 41 50 20 4C 44 41 |8|.CLRBITMAP LDA|
00001860: 23 24 30 30 00 44 38 81 15 20 54 41 58 00 50 38 |#$00.D8.. TAX.P8|
00001870: 86 15 2E 45 51 20 4E 3D 30 00 6E 38 A9 15 20 53 |...EQ N=0.n8.. S|
00001880: 54 41 42 49 54 4D 41 50 31 2B 24 42 34 30 2B 4E |TABITMAP1+$B40+N|
00001890: 2A 24 31 30 30 2C 58 00 8C 38 AE 15 20 53 54 41 |*$100,X..8.. STA|
000018A0: 42 49 54 4D 41 50 32 2B 24 42 34 30 2B 4E 2A 24 |BITMAP2+$B40+N*$|
000018B0: 31 30 30 2C 58 00 9A 38 B3 15 2E 45 51 20 4E 3D |100,X..8...EQ N=|
000018C0: 4E 2B 31 00 AC 38 B8 15 2E 49 46 20 4E 20 21 3C |N+1..8...IF N !<|
000018D0: 21 20 24 31 34 00 B9 38 BD 15 2E 47 4F 20 35 35 |! $14..8...GO 55|
000018E0: 34 35 00 C1 38 C2 15 2E 45 49 00 CA 38 C7 15 20 |45..8...EI..8.. |
000018F0: 49 4E 58 00 DE 38 CC 15 20 42 4E 45 43 4C 52 42 |INX..8.. BNECLRB|
00001900: 49 54 4D 41 50 2B 33 00 F2 38 D1 15 53 45 54 4C |ITMAP+3..8..SETL|
00001910: 4F 47 4F 20 4C 44 58 23 24 30 30 00 FE 38 DB 15 |OGO LDX#$00..8..|
00001920: 2E 45 51 20 4E 3D 30 00 15 39 08 16 20 4C 44 41 |.EQ N=0..9.. LDA|
00001930: 4C 4F 47 4F 42 4D 2B 4E 2A 24 42 34 2C 58 00 2D |LOGOBM+N*$B4,X.-|
00001940: 39 0D 16 20 53 54 41 42 49 54 4D 41 50 31 2B 4E |9.. STABITMAP1+N|
00001950: 2A 24 42 34 2C 58 00 3B 39 12 16 2E 45 51 20 4E |*$B4,X.;9...EQ N|
00001960: 3D 4E 2B 31 00 4D 39 17 16 2E 49 46 20 4E 20 21 |=N+1.M9...IF N !|
00001970: 3C 21 20 24 31 30 00 5A 39 1C 16 2E 47 4F 20 35 |<! $10.Z9...GO 5|
00001980: 36 34 30 00 62 39 1D 16 2E 45 49 00 6B 39 21 16 |640.b9...EI.k9!.|
00001990: 20 49 4E 58 00 78 39 23 16 20 43 50 58 23 24 42 | INX.x9#. CPX#$B|
000019A0: 34 00 8A 39 26 16 20 42 4E 45 53 45 54 4C 4F 47 |4..9&. BNESETLOG|
000019B0: 4F 2B 32 00 93 39 5D 16 20 52 54 53 00 A6 39 62 |O+2..9]. RTS..9b|
000019C0: 16 53 45 54 43 4F 4C 20 4C 44 58 23 24 30 30 00 |.SETCOL LDX#$00.|
000019D0: B4 39 67 16 20 4C 44 41 23 43 4F 4C 31 00 C0 39 |.9g. LDA#COL1..9|
000019E0: 68 16 2E 45 51 20 4E 3D 30 00 DD 39 6C 16 20 53 |h..EQ N=0..9l. S|
000019F0: 54 41 43 4F 4C 52 41 4D 31 2B 24 31 36 38 2B 4E |TACOLRAM1+$168+N|
00001A00: 2A 24 41 30 2C 58 00 EB 39 6D 16 2E 45 51 20 4E |*$A0,X..9m..EQ N|
00001A10: 3D 4E 2B 31 00 FB 39 6E 16 2E 49 46 20 4E 20 21 |=N+1..9n..IF N !|
00001A20: 3C 21 20 34 00 08 3A 6F 16 2E 47 4F 20 35 37 34 |<! 4..:o..GO 574|
00001A30: 30 00 10 3A 70 16 2E 45 49 00 1E 3A 71 16 20 4C |0..:p..EI..:q. L|
00001A40: 44 41 23 43 4F 4C 32 00 2A 3A 72 16 2E 45 51 20 |DA#COL2.*:r..EQ |
00001A50: 4E 3D 30 00 47 3A 76 16 20 53 54 41 43 4F 4C 52 |N=0.G:v. STACOLR|
00001A60: 41 4D 32 2B 24 31 36 38 2B 4E 2A 24 41 30 2C 58 |AM2+$168+N*$A0,X|
00001A70: 00 55 3A 77 16 2E 45 51 20 4E 3D 4E 2B 31 00 65 |.U:w..EQ N=N+1.e|
00001A80: 3A 78 16 2E 49 46 20 4E 20 21 3C 21 20 34 00 72 |:x..IF N !<! 4.r|
00001A90: 3A 79 16 2E 47 4F 20 35 37 35 30 00 7A 3A 7A 16 |:y..GO 5750.z:z.|
00001AA0: 2E 45 49 00 88 3A 7B 16 20 4C 44 41 23 52 43 4F |.EI..:{. LDA#RCO|
00001AB0: 4C 00 94 3A 7C 16 2E 45 51 20 4E 3D 30 00 AA 3A |L..:|..EQ N=0..:|
00001AC0: 80 16 20 53 54 41 24 44 39 36 38 2B 4E 2A 24 41 |.. STA$D968+N*$A|
00001AD0: 30 2C 58 00 B8 3A 85 16 2E 45 51 20 4E 3D 4E 2B |0,X..:...EQ N=N+|
00001AE0: 31 00 C8 3A 8A 16 2E 49 46 20 4E 20 21 3C 21 20 |1..:...IF N !<! |
00001AF0: 34 00 D5 3A 8F 16 2E 47 4F 20 35 37 36 30 00 DD |4..:...GO 5760..|
00001B00: 3A 94 16 2E 45 49 00 E6 3A 99 16 20 49 4E 58 00 |:...EI..:.. INX.|
00001B10: F3 3A 9B 16 20 43 50 58 23 24 38 30 00 04 3B 9E |.:.. CPX#$80..;.|
00001B20: 16 20 42 4E 45 53 45 54 43 4F 4C 2B 32 00 16 3B |. BNESETCOL+2..;|
00001B30: A3 16 42 4C 43 4F 4C 20 4C 44 41 23 24 30 30 00 |..BLCOL LDA#$00.|
00001B40: 1F 3B A8 16 20 54 41 58 00 31 3B AD 16 20 53 54 |.;.. TAX.1;.. ST|
00001B50: 41 43 4F 4C 52 41 4D 31 2C 58 00 41 3B AE 16 20 |ACOLRAM1,X.A;.. |
00001B60: 53 54 41 24 44 38 30 30 2C 58 00 57 3B B2 16 20 |STA$D800,X.W;.. |
00001B70: 53 54 41 43 4F 4C 52 41 4D 31 2B 24 42 34 2C 58 |STACOLRAM1+$B4,X|
00001B80: 00 67 3B B3 16 20 53 54 41 24 44 38 42 34 2C 58 |.g;.. STA$D8B4,X|
00001B90: 00 70 3B B7 16 20 49 4E 58 00 7D 3B BC 16 20 43 |.p;.. INX.};.. C|
00001BA0: 50 58 23 24 42 34 00 8D 3B C1 16 20 42 4E 45 42 |PX#$B4..;.. BNEB|
00001BB0: 4C 43 4F 4C 2B 33 00 96 3B DF 16 20 52 54 53 00 |LCOL+3..;.. RTS.|
00001BC0: A9 3B 70 17 4D 41 4B 45 59 54 20 4C 44 41 23 24 |.;p.MAKEYT LDA#$|
00001BD0: 31 39 00 B6 3B 7A 17 20 53 54 41 48 52 45 47 00 |19..;z. STAHREG.|
00001BE0: C3 3B 84 17 20 4C 44 59 23 24 30 30 00 D0 3B 8E |.;.. LDY#$00..;.|
00001BF0: 17 20 4C 44 58 23 24 36 30 00 E1 3B 98 17 43 52 |. LDX#$60..;..CR|
00001C00: 45 41 54 45 59 54 20 43 4C 43 00 F5 3B A2 17 53 |EATEYT CLC..;..S|
00001C10: 54 59 54 41 42 31 20 53 54 59 59 54 41 42 00 0B |TYTAB1 STYYTAB..|
00001C20: 3C AC 17 53 54 59 54 41 42 32 20 53 54 58 59 54 |<..STYTAB2 STXYT|
00001C30: 41 42 2B 31 00 14 3C B6 17 20 54 59 41 00 21 3C |AB+1..<.. TYA.!<|
00001C40: C0 17 20 41 44 43 23 24 34 30 00 2F 3C CA 17 20 |.. ADC#$40./<.. |
00001C50: 42 43 43 4E 4F 49 4E 58 00 38 3C D4 17 20 43 4C |BCCNOINX.8<.. CL|
00001C60: 43 00 41 3C DE 17 20 49 4E 58 00 4F 3C E8 17 4E |C.A<.. INX.O<..N|
00001C70: 4F 49 4E 58 20 54 41 59 00 58 3C F2 17 20 49 4E |OINX TAY.X<.. IN|
00001C80: 58 00 6A 3C FC 17 20 4C 44 41 53 54 59 54 41 42 |X.j<.. LDASTYTAB|
00001C90: 31 2B 31 00 73 3C 06 18 20 43 4C 43 00 80 3C 10 |1+1.s<.. CLC..<.|
00001CA0: 18 20 41 44 43 23 24 30 38 00 92 3C 1A 18 20 53 |. ADC#$08..<.. S|
00001CB0: 54 41 53 54 59 54 41 42 31 2B 31 00 9B 3C 24 18 |TASTYTAB1+1..<$.|
00001CC0: 20 43 4C 43 00 A8 3C 2E 18 20 41 44 43 23 24 30 | CLC..<.. ADC#$0|
00001CD0: 31 00 BA 3C 38 18 20 53 54 41 53 54 59 54 41 42 |1..<8. STASTYTAB|
00001CE0: 32 2B 31 00 C7 3C 42 18 20 44 45 43 48 52 45 47 |2+1..<B. DECHREG|
00001CF0: 00 D8 3C 4C 18 20 42 4E 45 43 52 45 41 54 45 59 |..<L. BNECREATEY|
00001D00: 54 00 E1 3C 56 18 20 52 54 53 00 E9 3C 60 18 2E |T..<V. RTS..<`..|
00001D10: 45 4E 00 00 00 |EN... |
X.....;OB "@:OBJ.SHADEB-INTT,P,W".....;.
. ..;VARIABLE SETTING.. ..;.5 ...EQ OBJV
EC1 = $ 3A.P ...EQ LOGOBM = $300
0.K ...EQ LOGOCOL = $3B40.. ...EQ LOG
OD8 = $3CA8.. ...EQ BITVEC1 = $
3C.. ...EQ BITMAP1 = $6000.W ...EQ BI
TMAP2 = $A000.. ...EQ COLRAM1 = $4
000..!...EQ COLRAM2 = $8000.(!...EQ O
BJDAT1 = $5000.C!...EQ OBJDAT2 = $
5100.^!...EQ COL1 = $ BC.Y! ..EQ
COL2 = $ BC..!"..EQ RCOL =
$ F..!$..EQ HREG = $ 48.J!&..EQ
XSINTAB = $2000..!(..EQ YSINTAB =
$2800.."*..EQ YTAB = $1700..",..E
Q ADDREG1 = $ 49.6"...EQ ADDREG2
= $ 4A.Q"0..EQ FLAG = $ 4B.W"D.;
.S"E.; INIT LOGO-FADE-IN-IRQ.Y"F.;.."I..
BA $C000.."X. LDA#$36. ".. STA$01..".. J
SRINITVAL.B".. JSRCLRBITMAP.Q".. JSRSETC
OL..".. JSRMAKEYT..".. SEI..".. LDA#$3B.
.# . STA$D011..#.. LDA#$D8..#.. STA$D016
.,#.. LDA#$0D.:#.. STA$D018.G#.. LDA#$7F
.U#.. STA$DC0D.B#C. LDA#$81.P#H. STA$D01
A.}#M. LDA#$7A..#R. STA$D012..#W. LDA#<(
FADEIRQ)..#.. LDX#>(FADEIRQ).A#.. STA$03
14.O#.. STX$0315..#.. LDA#$00..#.. STAHR
EG..#.. LDA$DD00..$.. AND#$FC..$.. ORA#$
02..$.. STA$DD00.($.. CLI.5$.. LDA#$00.J
$..FLAGWAIT CMPFLAG.[$". BNEFLAGWAIT.A$X
.;..$Y.; CALCULATIONS FOR FRAME 1..$Z.;.
.$G.CALCS LDXOBJVEC1+1..$L. INX..$V. CPX
#$50.C$.. BNESTOBJHI.P$.. LDX#$48..$..ST
OBJHI STXOBJVEC1+1..$..LDYST LDAYSINTAB.
.%.. AND#$F8..%.. TAX.#%.. LDAYTAB,X.3%F
. STABITVEC1.D%P. LDAYTAB+1,X.V%Z. STABI
TVEC1+1.K%..LDXST LDAXSINTAB.T%.. ASL..%
.. BCCSTXPOS..%.. INCBITVEC1+1..%.. CLC.
.%..STXPOS TAX..% . AND#$F8.C%*. CLC.S%4
. ADCBITVEC1..%>. BCCSTBITVEC1..%H. CLC.
.&R. INCBITVEC1+1..&\.STBITVEC1 STABITVE
C1.&&F. LDY#$7F.A&P.COPYOBJ LDA(OBJVEC1)
,Y.S&Z. STAOBJDAT1,Y.\&.. DEY.L&.. BPLCO
PYOBJ.U&.. TXA..&.. AND#$07..&.. BEQYSOF
T..&.. TAY..&..XSOFT LDX#$00..&J. CLC.F&
T. ROROBJDAT1,X..&.. ROROBJDAT1+$20,X..&
.. ROROBJDAT1+$40,X..'.. ROROBJDAT1+$60,
X..'.. INX..'.. CPX#$18..'.. BNEXSOFT+2.
7'.. DEY.E'$. BNEXSOFT.Z'..YSOFT LDAYSIN
TAB.G'8. AND#$07.W'B. BEQENDCD+2..'L. ST
ASTOD1+1..'V. TAY..'`. LDX#$77..'J.MOVBY
T LDAOBJDAT1,X.L'T.STOD1 STAOBJDAT1,X.U'
~. DEX..'.. BPLMOVBYT..'.. LDA#$00..'..
DEY..(..CLSTBY STAOBJDAT1,Y..(.. DEY./(.
.ENDCD BPLCLSTBY.;(D..EQ B=0.Q(N. LDABIT
VEC1+1+B*2.G(X. STABITVEC1+3+B*2.{(.. LD
ABITVEC1+B*2..(.. CLC..(.. ADC#$40..(...
BY $90,$03..(.. CLC..(.. INCBITVEC1+B*2+
3.V(.. STABITVEC1+B*2+2..((. INCBITVEC1+
B*2+3..(2..EQ B=B+1..)<..IF B !<! 3..)F.
.GO 1230..)P..EI.()Z. CLC.5)D. LDY#$00.C
)N..EQ C = 0.P)X. LDX#$00.^)...EQ B = 0.
V).. LDA(BITVEC1+B*2),Y..).. STAOBJDAT2+
B*$20,Y..) . ORAOBJDAT1+C*$20+B*$8,X..).
. STAHREG.P).. LDA(BITVEC1+B*2),Y..).. A
NDOBJDAT1+C*$20+B*$8,X..)H. STAHREG+1..*
R. ASL..*.. ORAHREG+1.!*.. EORHREG.9*..
STA(BITVEC1+B*2),Y.I*...EQ B = B+1.Y*...
IF B !<! 4.F*...GO 1420.N*...EI.W*". INX
..*,. INY..*6. CPX#$08..*@..BY $F0,$03..
*J. JMP$FFFF..*T..EQ C = C+1.K*^..IF C !
<! 4.X*H..GO 1400..*R..EI..*W. LDA#$00..
*X. STA$D020..+|.;. +}.; CALCULATIONS FO
R FRAME 2.&+~.;./+V. CLC.C+..TSTBPL2 LDY
#$1F.O+...EQ B=0.G+.. LDAOBJDAT2+B*$20,Y
.T+.. AND#$55..+.. STAHREG..+.. LDAOBJDA
T2+B*$20,Y..+.. AND#$AA..+&. LSR..+0. AN
DHREG.T+:. STAOBJDAT1+B*$20,Y..+D..EQ B=
B+1..+N..IF B !<! 4..+X..GO 1780..,B..EI
..,L. DEY.",V. BPLTSTBPL2+2.+,.. CLC.7,.
..EQ B=0.@,.. NOP.V,.. LDABITVEC1+1+B*2.
C,.. ADC#$40.Y,.. STABITVEC1+1+B*2..,...
EQ B=B+1..,F..IF B !<! 4..,P..GO 1940..,
Z..EI..,.. CLC.J,..SHADEFR2 LDY#$1F.V,..
.EQ B=0..,.. LDA(BITVEC1+B*2),Y..-.. ORA
OBJDAT1+B*$20,Y..-.. STAHREG.+- . LDA(BI
TVEC1+B*2),Y.C-*. ANDOBJDAT1+B*$20,Y.R-4
. STAHREG+1.[->. ASL.J-H. ORAHREG+1.W-R.
EORHREG..-\. STA(BITVEC1+B*2),Y..-F..EQ
B = B+1..-P..IF B !<! 4..-Z..GO 2050.D-
...EI.M-.. DEY..-.. BPLSHADEFR2+2..-..;.
....; END OF FRAME 2 AND ADD SINE.....;.
.... LDALDXST+1.'... CLC.7... ADCADDREG1
.D... BCCSTXX.M... CLC.]... INCLDXST+2.Q
...STXX STALDXST+1..... LDALDYST+1.....
ADCADDREG2..... BCCSTYY..... CLC..... IN
CLDYST+2.G... INCYSOFT+2.....STYY STALDY
ST+1..... STAYSOFT+1../..ENDFR LDALDXST+
2../.. CMP#$28../.. BNEENDFR2.)/$. LDA#$
00.9/.. STALDXST+1.I/8. STALDYST+1.Y/B.
STAYSOFT+1.F/L. LDA#$20.V/V. STALDXST+2.
./`. LDA#$28../J. STALDYST+2../T. STAYSO
FT+2../~.ENDFR2 JMPCALCS.J/..WAIT2 JMPWA
IT2../..FADEIRQ DEC$D019../.. LDX#$00..0
B.NCOL LDACOLRAM2,X..0G. CMPHREG..0L. BN
ECFADE./0Q. LDALOGOCOL,X.A0V. STACOLRAM1
,X.R0.. LDALOGOD8,X.B0.. STA$D800,X.}0..
CFADE LDACOLRAM2+$B4,X..0.. CMPHREG..0..
BNEEFADE..0.. LDALOGOCOL+$B4,X.D0.. STA
COLRAM1+$B4,X.Y0.. LDALOGOD8+$B4,X..0..
STA$D8B4,X..0..EFADE INX..1.. CPX#$B4..1
.. BNENCOL..1.. INCHREG.+1!. LDAHREG.81&
. CMP#$80.E1+. BNEEIRQ.R1-. LDA#$32.`1..
STA$D012.T10. LDA#<(LOGOIRQ)..15. LDX#>
(LOGOIRQ)..1:. STA$0314..1?. STX$0315..1
D.EIRQ LDA#$FF.B1I. STAFLAG.P1N. JMP$FEB
C..1..OUTIRQ DEC$D019..1.. LDX#$00..2..N
NCOL LDACOLRAM2,X..2.. CMPHREG.$2.. BNEC
CFADE.12.. LDA#$00.C2.. STACOLRAM1,X.S2.
. STA$D800,X.O2..CCFADE LDACOLRAM2+$B4,X
.|2.. CMPHREG..2.. BNEEEFADE..2A. LDA#$0
0..2F. STACOLRAM1+$B4,X..2U. STA$D8B4,X.
M2Z.EEFADE INX.Z2.. CPX#$B4..2.. BNENNCO
L..2.. DECHREG..3.. LDAHREG..3.. CMP#$00
..3.. BNEEEIRQ.*3.. LDA#$7A.83.. STA$D01
2.E3.. LDA#$31.R3.. LDX#$EA.`3.. STA$031
4.N3.. STX$0315..3..EEIRQ JMP$FEBC..3..F
RAME1 DEC$D019..3.. LDA$DD00..3.. AND#$F
C..3.. ORA#$01.K3.. STA$DD00.X3E. LDA#$D
8..3J. STA$D016..3K. LDA#$32..4L. STA$D0
12..4O. LDA#<(LOGOIRQ).)4T. LDX#>(LOGOIR
Q).74Y. STA$0314.E4.. STX$0315.X4.. LDA#
<(FRAME2).K4.. LDX#>(FRAME2).|4.. STANXT
FRL+1..4.. STXNXTFRH+1..4.. JMP$FEBC..4T
.FRAME2 DEC$D019..4Y. LDA$DD00.J4~. AND#
$FC.W4.. ORA#$02..4.. STA$DD00..4.. LDA#
$D9..5.. STA$D016..5.. LDA#$32..5.. STA$
D012./5.. LDA#<(LOGOIRQ).C5.. LDX#>(LOGO
IRQ).Q5.. STA$0314._5.. STX$0315.R5.. LD
A#<(FRAME1)..5.. LDX#>(FRAME1)..5.. STAN
XTFRL+1..5.. STXNXTFRH+1..5.. JMP$FEBC.J
5X.LOGOIRQ DEC$D019.W5Y. LDA#$02..5Z. ST
A$D020..5.. LDA$DD00..6.. AND#$FC..6.. O
RA#$02..6.. STA$DD00.(6.. LDA#$D8.66.. S
TA$D016.C6.. LDA#$7A.Q6.. STA$D012.J6..N
XTFRL LDA#<(FRAME1)..6..NXTFRH LDX#>(FRA
ME1)..6.. STA$0314..6.. STX$0315..6.. JM
P$FEBC.A6..INITVAL LDA#$00.S6.. STASTYTA
B1+1..6.. STAOBJVEC1..6.. LDA#$01..7.. S
TASTYTAB2+1..7.. LDA$DC04. 7D. STALDXST+
1..7E. LDA$DC04.>7F. STAADDREG1.K7X. LDA
#$47.]7.. STAOBJVEC1+1.J7.. LDA#$00.X7..
STA$D020..7.. STA$D021..7.. LDA#$20..7.
. STALDXST+2..7.. LDA#$28..7.. STALDYST+
2.P7.. STAYSOFT+2..7.. LDA$DC04..7.. STA
ADDREG2..7.. LDA$DC04..8.. STAYSOFT+1..8
.. STALDYST+1.%8(. RTS.;8|.CLRBITMAP LDA
#$00.D8.. TAX.P8...EQ N=0.N8.. STABITMAP
1+$B40+N*$100,X..8.. STABITMAP2+$B40+N*$
100,X..8...EQ N=N+1..8...IF N !<! $14..8
...GO 5545.A8B..EI.J8G. INX..8L. BNECLRB
ITMAP+3..8Q.SETLOGO LDX#$00..8...EQ N=0.
.9.. LDALOGOBM+N*$B4,X.-9.. STABITMAP1+N
*$B4,X.;9...EQ N=N+1.M9...IF N !<! $10.Z
9...GO 5640.B9...EI.K9!. INX.X9#. CPX#$B
4..9&. BNESETLOGO+2..9]. RTS..9B.SETCOL
LDX#$00..9G. LDA#COL1..9H..EQ N=0..9L. S
TACOLRAM1+$168+N*$A0,X..9M..EQ N=N+1..9N
..IF N !<! 4..:O..GO 5740..:P..EI..:Q. L
DA#COL2.*:R..EQ N=0.G:V. STACOLRAM2+$168
+N*$A0,X.U:W..EQ N=N+1.E:X..IF N !<! 4.R
:Y..GO 5750.Z:Z..EI..:{. LDA#RCOL..:|..E
Q N=0..:.. STA$D968+N*$A0,X..:...EQ N=N+
1.H:...IF N !<! 4.U:...GO 5760..:...EI..
:.. INX..:.. CPX#$80..;.. BNESETCOL+2..;
..BLCOL LDA#$00..;.. TAX.1;.. STACOLRAM1
,X.A;.. STA$D800,X.W;.. STACOLRAM1+$B4,X
.G;.. STA$D8B4,X.P;.. INX.};.. CPX#$B4..
;A. BNEBLCOL+3..;.. RTS..;P.MAKEYT LDA#$
19..;Z. STAHREG.C;.. LDY#$00.P;.. LDX#$6
0..;..CREATEYT CLC..;..STYTAB1 STYYTAB..
<..STYTAB2 STXYTAB+1..<.. TYA.!<.. ADC#$
40./<J. BCCNOINX.8<T. CLC.A<.. INX.O<..N
OINX TAY.X<.. INX.J<.. LDASTYTAB1+1.S<..
CLC..<.. ADC#$08..<.. STASTYTAB1+1..<$.
CLC..<.. ADC#$01..<8. STASTYTAB2+1.G<B.
DECHREG.X<L. BNECREATEYT..<V. RTS..<`..
EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL