SRC.SHADEB-INTT4
FILE INFORMATION
FILENAME(S): SRC.SHADEB-INTT4
FILE TYPE(S): PRG
FILE SIZE: 7.3K
FIRST SEEN: 2025-10-20 00:34:38
APPEARS ON: 1 disk(s)
FILE HASH
e6870ef78124a555426172a730b19c09b84b0d03adade76802643e3455c51892
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK | SRC.SHADEB-INTT4 | PRG | Robin Albicker | 17 | 1 | 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 42 |I.5$.. LDA#$00.B|
00000460: 24 13 01 20 53 54 41 46 4C 41 47 00 57 24 18 01 |$.. STAFLAG.W$..|
00000470: 46 4C 41 47 57 41 49 54 20 43 4D 50 46 4C 41 47 |FLAGWAIT CMPFLAG|
00000480: 00 68 24 22 01 20 42 45 51 46 4C 41 47 57 41 49 |.h$". BEQFLAGWAI|
00000490: 54 00 6E 24 58 02 3B 00 8D 24 59 02 3B 20 43 41 |T.n$X.;..$Y.; CA|
000004A0: 4C 43 55 4C 41 54 49 4F 4E 53 20 46 4F 52 20 46 |LCULATIONS FOR F|
000004B0: 52 41 4D 45 20 31 00 93 24 5A 02 3B 00 AA 24 67 |RAME 1..$Z.;..$g|
000004C0: 02 43 41 4C 43 53 20 4C 44 58 4F 42 4A 56 45 43 |.CALCS LDXOBJVEC|
000004D0: 31 2B 31 00 B3 24 6C 02 20 49 4E 58 00 C0 24 76 |1+1..$l. INX..$v|
000004E0: 02 20 43 50 58 23 24 35 30 00 D0 24 80 02 20 42 |. CPX#$50..$.. B|
000004F0: 4E 45 53 54 4F 42 4A 48 49 00 DD 24 8A 02 20 4C |NESTOBJHI..$.. L|
00000500: 44 58 23 24 34 38 00 F6 24 94 02 53 54 4F 42 4A |DX#$48..$..STOBJ|
00000510: 48 49 20 53 54 58 4F 42 4A 56 45 43 31 2B 31 00 |HI STXOBJVEC1+1.|
00000520: 0B 25 9E 02 4C 44 59 53 54 20 4C 44 41 59 53 49 |.%..LDYST LDAYSI|
00000530: 4E 54 41 42 00 18 25 A8 02 20 41 4E 44 23 24 46 |NTAB..%.. AND#$F|
00000540: 38 00 21 25 B2 02 20 54 41 58 00 30 25 BC 02 20 |8.!%.. TAX.0%.. |
00000550: 4C 44 41 59 54 41 42 2C 58 00 40 25 C6 02 20 53 |LDAYTAB,X.@%.. S|
00000560: 54 41 42 49 54 56 45 43 31 00 51 25 D0 02 20 4C |TABITVEC1.Q%.. L|
00000570: 44 41 59 54 41 42 2B 31 2C 58 00 63 25 DA 02 20 |DAYTAB+1,X.c%.. |
00000580: 53 54 41 42 49 54 56 45 43 31 2B 31 00 78 25 E4 |STABITVEC1+1.x%.|
00000590: 02 4C 44 58 53 54 20 4C 44 41 58 53 49 4E 54 41 |.LDXST LDAXSINTA|
000005A0: 42 00 81 25 EE 02 20 41 53 4C 00 90 25 F8 02 20 |B..%.. ASL..%.. |
000005B0: 42 43 43 53 54 58 50 4F 53 00 A2 25 02 03 20 49 |BCCSTXPOS..%.. I|
000005C0: 4E 43 42 49 54 56 45 43 31 2B 31 00 AB 25 0C 03 |NCBITVEC1+1..%..|
000005D0: 20 43 4C 43 00 BA 25 16 03 53 54 58 50 4F 53 20 | CLC..%..STXPOS |
000005E0: 54 41 58 00 C7 25 20 03 20 41 4E 44 23 24 46 38 |TAX..% . AND#$F8|
000005F0: 00 D0 25 2A 03 20 43 4C 43 00 E0 25 34 03 20 41 |..%*. CLC..%4. A|
00000600: 44 43 42 49 54 56 45 43 31 00 F2 25 3E 03 20 42 |DCBITVEC1..%>. B|
00000610: 43 43 53 54 42 49 54 56 45 43 31 00 FB 25 48 03 |CCSTBITVEC1..%H.|
00000620: 20 43 4C 43 00 0D 26 52 03 20 49 4E 43 42 49 54 | CLC..&R. INCBIT|
00000630: 56 45 43 31 2B 31 00 26 26 5C 03 53 54 42 49 54 |VEC1+1.&&\.STBIT|
00000640: 56 45 43 31 20 53 54 41 42 49 54 56 45 43 31 00 |VEC1 STABITVEC1.|
00000650: 33 26 66 03 20 4C 44 59 23 24 37 46 00 4E 26 70 |3&f. LDY#$7F.N&p|
00000660: 03 43 4F 50 59 4F 42 4A 20 4C 44 41 28 4F 42 4A |.COPYOBJ LDA(OBJ|
00000670: 56 45 43 31 29 2C 59 00 60 26 7A 03 20 53 54 41 |VEC1),Y.`&z. STA|
00000680: 4F 42 4A 44 41 54 31 2C 59 00 69 26 84 03 20 44 |OBJDAT1,Y.i&.. D|
00000690: 45 59 00 79 26 8E 03 20 42 50 4C 43 4F 50 59 4F |EY.y&.. BPLCOPYO|
000006A0: 42 4A 00 82 26 98 03 20 54 58 41 00 8F 26 A2 03 |BJ..&.. TXA..&..|
000006B0: 20 41 4E 44 23 24 30 37 00 9D 26 AC 03 20 42 45 | AND#$07..&.. BE|
000006C0: 51 59 53 4F 46 54 00 A6 26 B6 03 20 54 41 59 00 |QYSOFT..&.. TAY.|
000006D0: B8 26 C0 03 58 53 4F 46 54 20 4C 44 58 23 24 30 |.&..XSOFT LDX#$0|
000006E0: 30 00 C1 26 CA 03 20 43 4C 43 00 D3 26 D4 03 20 |0..&.. CLC..&.. |
000006F0: 52 4F 52 4F 42 4A 44 41 54 31 2C 58 00 E9 26 DE |ROROBJDAT1,X..&.|
00000700: 03 20 52 4F 52 4F 42 4A 44 41 54 31 2B 24 32 30 |. ROROBJDAT1+$20|
00000710: 2C 58 00 FF 26 E8 03 20 52 4F 52 4F 42 4A 44 41 |,X..&.. ROROBJDA|
00000720: 54 31 2B 24 34 30 2C 58 00 15 27 F2 03 20 52 4F |T1+$40,X..'.. RO|
00000730: 52 4F 42 4A 44 41 54 31 2B 24 36 30 2C 58 00 1E |ROBJDAT1+$60,X..|
00000740: 27 FC 03 20 49 4E 58 00 2B 27 06 04 20 43 50 58 |'.. INX.+'.. CPX|
00000750: 23 24 31 38 00 3B 27 10 04 20 42 4E 45 58 53 4F |#$18.;'.. BNEXSO|
00000760: 46 54 2B 32 00 44 27 1A 04 20 44 45 59 00 52 27 |FT+2.D'.. DEY.R'|
00000770: 24 04 20 42 4E 45 58 53 4F 46 54 00 67 27 2E 04 |$. BNEXSOFT.g'..|
00000780: 59 53 4F 46 54 20 4C 44 41 59 53 49 4E 54 41 42 |YSOFT LDAYSINTAB|
00000790: 00 74 27 38 04 20 41 4E 44 23 24 30 37 00 84 27 |.t'8. AND#$07..'|
000007A0: 42 04 20 42 45 51 45 4E 44 43 44 2B 32 00 94 27 |B. BEQENDCD+2..'|
000007B0: 4C 04 20 53 54 41 53 54 4F 44 31 2B 31 00 9D 27 |L. STASTOD1+1..'|
000007C0: 56 04 20 54 41 59 00 AA 27 60 04 20 4C 44 58 23 |V. TAY..'`. LDX#|
000007D0: 24 37 37 00 C2 27 6A 04 4D 4F 56 42 59 54 20 4C |$77..'j.MOVBYT L|
000007E0: 44 41 4F 42 4A 44 41 54 31 2C 58 00 D9 27 74 04 |DAOBJDAT1,X..'t.|
000007F0: 53 54 4F 44 31 20 53 54 41 4F 42 4A 44 41 54 31 |STOD1 STAOBJDAT1|
00000800: 2C 58 00 E2 27 7E 04 20 44 45 58 00 F1 27 88 04 |,X..'~. DEX..'..|
00000810: 20 42 50 4C 4D 4F 56 42 59 54 00 FE 27 92 04 20 | BPLMOVBYT..'.. |
00000820: 4C 44 41 23 24 30 30 00 07 28 9C 04 20 44 45 59 |LDA#$00..(.. DEY|
00000830: 00 1F 28 A6 04 43 4C 53 54 42 59 20 53 54 41 4F |..(..CLSTBY STAO|
00000840: 42 4A 44 41 54 31 2C 59 00 28 28 B0 04 20 44 45 |BJDAT1,Y.((.. DE|
00000850: 59 00 3C 28 BA 04 45 4E 44 43 44 20 42 50 4C 43 |Y.<(..ENDCD BPLC|
00000860: 4C 53 54 42 59 00 48 28 C4 04 2E 45 51 20 42 3D |LSTBY.H(...EQ B=|
00000870: 30 00 5E 28 CE 04 20 4C 44 41 42 49 54 56 45 43 |0.^(.. LDABITVEC|
00000880: 31 2B 31 2B 42 2A 32 00 74 28 D8 04 20 53 54 41 |1+1+B*2.t(.. STA|
00000890: 42 49 54 56 45 43 31 2B 33 2B 42 2A 32 00 88 28 |BITVEC1+3+B*2..(|
000008A0: E2 04 20 4C 44 41 42 49 54 56 45 43 31 2B 42 2A |.. LDABITVEC1+B*|
000008B0: 32 00 91 28 EC 04 20 43 4C 43 00 9E 28 F6 04 20 |2..(.. CLC..(.. |
000008C0: 41 44 43 23 24 34 30 00 AE 28 00 05 2E 42 59 20 |ADC#$40..(...BY |
000008D0: 24 39 30 2C 24 30 33 00 B7 28 0A 05 20 43 4C 43 |$90,$03..(.. CLC|
000008E0: 00 CD 28 14 05 20 49 4E 43 42 49 54 56 45 43 31 |..(.. INCBITVEC1|
000008F0: 2B 42 2A 32 2B 33 00 E3 28 1E 05 20 53 54 41 42 |+B*2+3..(.. STAB|
00000900: 49 54 56 45 43 31 2B 42 2A 32 2B 32 00 F9 28 28 |ITVEC1+B*2+2..((|
00000910: 05 20 49 4E 43 42 49 54 56 45 43 31 2B 42 2A 32 |. INCBITVEC1+B*2|
00000920: 2B 33 00 07 29 32 05 2E 45 51 20 42 3D 42 2B 31 |+3..)2..EQ B=B+1|
00000930: 00 17 29 3C 05 2E 49 46 20 42 20 21 3C 21 20 33 |..)<..IF B !<! 3|
00000940: 00 24 29 46 05 2E 47 4F 20 31 32 33 30 00 2C 29 |.$)F..GO 1230.,)|
00000950: 50 05 2E 45 49 00 35 29 5A 05 20 43 4C 43 00 42 |P..EI.5)Z. CLC.B|
00000960: 29 64 05 20 4C 44 59 23 24 30 30 00 50 29 6E 05 |)d. LDY#$00.P)n.|
00000970: 2E 45 51 20 43 20 3D 20 30 00 5D 29 78 05 20 4C |.EQ C = 0.])x. L|
00000980: 44 58 23 24 30 30 00 6B 29 82 05 2E 45 51 20 42 |DX#$00.k)...EQ B|
00000990: 20 3D 20 30 00 83 29 8C 05 20 4C 44 41 28 42 49 | = 0..).. LDA(BI|
000009A0: 54 56 45 43 31 2B 42 2A 32 29 2C 59 00 9B 29 96 |TVEC1+B*2),Y..).|
000009B0: 05 20 53 54 41 4F 42 4A 44 41 54 32 2B 42 2A 24 |. STAOBJDAT2+B*$|
000009C0: 32 30 2C 59 00 B8 29 A0 05 20 4F 52 41 4F 42 4A |20,Y..).. ORAOBJ|
000009D0: 44 41 54 31 2B 43 2A 24 32 30 2B 42 2A 24 38 2C |DAT1+C*$20+B*$8,|
000009E0: 58 00 C5 29 AA 05 20 53 54 41 48 52 45 47 00 DD |X..).. STAHREG..|
000009F0: 29 B4 05 20 4C 44 41 28 42 49 54 56 45 43 31 2B |).. LDA(BITVEC1+|
00000A00: 42 2A 32 29 2C 59 00 FA 29 BE 05 20 41 4E 44 4F |B*2),Y..).. ANDO|
00000A10: 42 4A 44 41 54 31 2B 43 2A 24 32 30 2B 42 2A 24 |BJDAT1+C*$20+B*$|
00000A20: 38 2C 58 00 09 2A C8 05 20 53 54 41 48 52 45 47 |8,X..*.. STAHREG|
00000A30: 2B 31 00 12 2A D2 05 20 41 53 4C 00 21 2A DC 05 |+1..*.. ASL.!*..|
00000A40: 20 4F 52 41 48 52 45 47 2B 31 00 2E 2A E6 05 20 | ORAHREG+1..*.. |
00000A50: 45 4F 52 48 52 45 47 00 46 2A F0 05 20 53 54 41 |EORHREG.F*.. STA|
00000A60: 28 42 49 54 56 45 43 31 2B 42 2A 32 29 2C 59 00 |(BITVEC1+B*2),Y.|
00000A70: 56 2A FA 05 2E 45 51 20 42 20 3D 20 42 2B 31 00 |V*...EQ B = B+1.|
00000A80: 66 2A 04 06 2E 49 46 20 42 20 21 3C 21 20 34 00 |f*...IF B !<! 4.|
00000A90: 73 2A 0E 06 2E 47 4F 20 31 34 32 30 00 7B 2A 18 |s*...GO 1420.{*.|
00000AA0: 06 2E 45 49 00 84 2A 22 06 20 49 4E 58 00 8D 2A |..EI..*". INX..*|
00000AB0: 2C 06 20 49 4E 59 00 9A 2A 36 06 20 43 50 58 23 |,. INY..*6. CPX#|
00000AC0: 24 30 38 00 AA 2A 40 06 2E 42 59 20 24 46 30 2C |$08..*@..BY $F0,|
00000AD0: 24 30 33 00 B8 2A 4A 06 20 4A 4D 50 24 46 46 46 |$03..*J. JMP$FFF|
00000AE0: 46 00 C8 2A 54 06 2E 45 51 20 43 20 3D 20 43 2B |F..*T..EQ C = C+|
00000AF0: 31 00 D8 2A 5E 06 2E 49 46 20 43 20 21 3C 21 20 |1..*^..IF C !<! |
00000B00: 34 00 E5 2A 68 06 2E 47 4F 20 31 34 30 30 00 ED |4..*h..GO 1400..|
00000B10: 2A 72 06 2E 45 49 00 FA 2A 77 06 20 4C 44 41 23 |*r..EI..*w. LDA#|
00000B20: 24 30 30 00 08 2B 78 06 20 53 54 41 24 44 30 32 |$00..+x. STA$D02|
00000B30: 30 00 0E 2B 7C 06 3B 00 2D 2B 7D 06 3B 20 43 41 |0..+|.;.-+}.; CA|
00000B40: 4C 43 55 4C 41 54 49 4F 4E 53 20 46 4F 52 20 46 |LCULATIONS FOR F|
00000B50: 52 41 4D 45 20 32 00 33 2B 7E 06 3B 00 3C 2B D6 |RAME 2.3+~.;.<+.|
00000B60: 06 20 43 4C 43 00 50 2B E0 06 54 53 54 42 50 4C |. CLC.P+..TSTBPL|
00000B70: 32 20 4C 44 59 23 24 31 46 00 5C 2B EA 06 2E 45 |2 LDY#$1F.\+...E|
00000B80: 51 20 42 3D 30 00 74 2B F4 06 20 4C 44 41 4F 42 |Q B=0.t+.. LDAOB|
00000B90: 4A 44 41 54 32 2B 42 2A 24 32 30 2C 59 00 81 2B |JDAT2+B*$20,Y..+|
00000BA0: FE 06 20 41 4E 44 23 24 35 35 00 8E 2B 08 07 20 |.. AND#$55..+.. |
00000BB0: 53 54 41 48 52 45 47 00 A6 2B 12 07 20 4C 44 41 |STAHREG..+.. LDA|
00000BC0: 4F 42 4A 44 41 54 32 2B 42 2A 24 32 30 2C 59 00 |OBJDAT2+B*$20,Y.|
00000BD0: B3 2B 1C 07 20 41 4E 44 23 24 41 41 00 BC 2B 26 |.+.. AND#$AA..+&|
00000BE0: 07 20 4C 53 52 00 C9 2B 30 07 20 41 4E 44 48 52 |. LSR..+0. ANDHR|
00000BF0: 45 47 00 E1 2B 3A 07 20 53 54 41 4F 42 4A 44 41 |EG..+:. STAOBJDA|
00000C00: 54 31 2B 42 2A 24 32 30 2C 59 00 EF 2B 44 07 2E |T1+B*$20,Y..+D..|
00000C10: 45 51 20 42 3D 42 2B 31 00 FF 2B 4E 07 2E 49 46 |EQ B=B+1..+N..IF|
00000C20: 20 42 20 21 3C 21 20 34 00 0C 2C 58 07 2E 47 4F | B !<! 4..,X..GO|
00000C30: 20 31 37 38 30 00 14 2C 62 07 2E 45 49 00 1D 2C | 1780..,b..EI..,|
00000C40: 6C 07 20 44 45 59 00 2F 2C 76 07 20 42 50 4C 54 |l. DEY./,v. BPLT|
00000C50: 53 54 42 50 4C 32 2B 32 00 38 2C 80 07 20 43 4C |STBPL2+2.8,.. CL|
00000C60: 43 00 44 2C 8A 07 2E 45 51 20 42 3D 30 00 4D 2C |C.D,...EQ B=0.M,|
00000C70: 94 07 20 4E 4F 50 00 63 2C 9E 07 20 4C 44 41 42 |.. NOP.c,.. LDAB|
00000C80: 49 54 56 45 43 31 2B 31 2B 42 2A 32 00 70 2C A8 |ITVEC1+1+B*2.p,.|
00000C90: 07 20 41 44 43 23 24 34 30 00 86 2C B2 07 20 53 |. ADC#$40..,.. S|
00000CA0: 54 41 42 49 54 56 45 43 31 2B 31 2B 42 2A 32 00 |TABITVEC1+1+B*2.|
00000CB0: 94 2C BC 07 2E 45 51 20 42 3D 42 2B 31 00 A4 2C |.,...EQ B=B+1..,|
00000CC0: C6 07 2E 49 46 20 42 20 21 3C 21 20 34 00 B1 2C |...IF B !<! 4..,|
00000CD0: D0 07 2E 47 4F 20 31 39 34 30 00 B9 2C DA 07 2E |...GO 1940..,...|
00000CE0: 45 49 00 C2 2C E4 07 20 43 4C 43 00 D7 2C EE 07 |EI..,.. CLC..,..|
00000CF0: 53 48 41 44 45 46 52 32 20 4C 44 59 23 24 31 46 |SHADEFR2 LDY#$1F|
00000D00: 00 E3 2C F8 07 2E 45 51 20 42 3D 30 00 FB 2C 02 |..,...EQ B=0..,.|
00000D10: 08 20 4C 44 41 28 42 49 54 56 45 43 31 2B 42 2A |. LDA(BITVEC1+B*|
00000D20: 32 29 2C 59 00 13 2D 0C 08 20 4F 52 41 4F 42 4A |2),Y..-.. ORAOBJ|
00000D30: 44 41 54 31 2B 42 2A 24 32 30 2C 59 00 20 2D 16 |DAT1+B*$20,Y. -.|
00000D40: 08 20 53 54 41 48 52 45 47 00 38 2D 20 08 20 4C |. STAHREG.8- . L|
00000D50: 44 41 28 42 49 54 56 45 43 31 2B 42 2A 32 29 2C |DA(BITVEC1+B*2),|
00000D60: 59 00 50 2D 2A 08 20 41 4E 44 4F 42 4A 44 41 54 |Y.P-*. ANDOBJDAT|
00000D70: 31 2B 42 2A 24 32 30 2C 59 00 5F 2D 34 08 20 53 |1+B*$20,Y._-4. S|
00000D80: 54 41 48 52 45 47 2B 31 00 68 2D 3E 08 20 41 53 |TAHREG+1.h->. AS|
00000D90: 4C 00 77 2D 48 08 20 4F 52 41 48 52 45 47 2B 31 |L.w-H. ORAHREG+1|
00000DA0: 00 84 2D 52 08 20 45 4F 52 48 52 45 47 00 9C 2D |..-R. EORHREG..-|
00000DB0: 5C 08 20 53 54 41 28 42 49 54 56 45 43 31 2B 42 |\. STA(BITVEC1+B|
00000DC0: 2A 32 29 2C 59 00 AC 2D 66 08 2E 45 51 20 42 20 |*2),Y..-f..EQ B |
00000DD0: 3D 20 42 2B 31 00 BC 2D 70 08 2E 49 46 20 42 20 |= B+1..-p..IF B |
00000DE0: 21 3C 21 20 34 00 C9 2D 7A 08 2E 47 4F 20 32 30 |!<! 4..-z..GO 20|
00000DF0: 35 30 00 D1 2D 84 08 2E 45 49 00 DA 2D 8E 08 20 |50..-...EI..-.. |
00000E00: 44 45 59 00 ED 2D 98 08 20 42 50 4C 53 48 41 44 |DEY..-.. BPLSHAD|
00000E10: 45 46 52 32 2B 32 00 F3 2D 9D 08 3B 00 15 2E 9E |EFR2+2..-..;....|
00000E20: 08 3B 20 45 4E 44 20 4F 46 20 46 52 41 4D 45 20 |.; END OF FRAME |
00000E30: 32 20 41 4E 44 20 41 44 44 20 53 49 4E 45 00 1B |2 AND ADD SINE..|
00000E40: 2E 9F 08 3B 00 2B 2E A2 08 20 4C 44 41 4C 44 58 |...;.+... LDALDX|
00000E50: 53 54 2B 31 00 34 2E A4 08 20 43 4C 43 00 44 2E |ST+1.4... CLC.D.|
00000E60: A6 08 20 41 44 43 41 44 44 52 45 47 31 00 51 2E |.. ADCADDREG1.Q.|
00000E70: A8 08 20 42 43 43 53 54 58 58 00 5A 2E AA 08 20 |.. BCCSTXX.Z... |
00000E80: 43 4C 43 00 6A 2E AC 08 20 49 4E 43 4C 44 58 53 |CLC.j... INCLDXS|
00000E90: 54 2B 32 00 7E 2E AE 08 53 54 58 58 20 53 54 41 |T+2.~...STXX STA|
00000EA0: 4C 44 58 53 54 2B 31 00 8E 2E B0 08 20 4C 44 41 |LDXST+1..... LDA|
00000EB0: 4C 44 59 53 54 2B 31 00 9E 2E B2 08 20 41 44 43 |LDYST+1..... ADC|
00000EC0: 41 44 44 52 45 47 32 00 AB 2E B4 08 20 42 43 43 |ADDREG2..... BCC|
00000ED0: 53 54 59 59 00 B4 2E B6 08 20 43 4C 43 00 C4 2E |STYY..... CLC...|
00000EE0: B8 08 20 49 4E 43 4C 44 59 53 54 2B 32 00 D4 2E |.. INCLDYST+2...|
00000EF0: BA 08 20 49 4E 43 59 53 4F 46 54 2B 32 00 E8 2E |.. INCYSOFT+2...|
00000F00: BC 08 53 54 59 59 20 53 54 41 4C 44 59 53 54 2B |..STYY STALDYST+|
00000F10: 31 00 F8 2E BE 08 20 53 54 41 59 53 4F 46 54 2B |1..... STAYSOFT+|
00000F20: 31 00 0D 2F 06 09 45 4E 44 46 52 20 4C 44 41 4C |1../..ENDFR LDAL|
00000F30: 44 58 53 54 2B 32 00 1A 2F 10 09 20 43 4D 50 23 |DXST+2../.. CMP#|
00000F40: 24 32 38 00 29 2F 1A 09 20 42 4E 45 45 4E 44 46 |$28.)/.. BNEENDF|
00000F50: 52 32 00 36 2F 24 09 20 4C 44 41 23 24 30 30 00 |R2.6/$. LDA#$00.|
00000F60: 46 2F 2E 09 20 53 54 41 4C 44 58 53 54 2B 31 00 |F/.. STALDXST+1.|
00000F70: 56 2F 38 09 20 53 54 41 4C 44 59 53 54 2B 31 00 |V/8. STALDYST+1.|
00000F80: 66 2F 42 09 20 53 54 41 59 53 4F 46 54 2B 31 00 |f/B. STAYSOFT+1.|
00000F90: 73 2F 4C 09 20 4C 44 41 23 24 32 30 00 83 2F 56 |s/L. LDA#$20../V|
00000FA0: 09 20 53 54 41 4C 44 58 53 54 2B 32 00 90 2F 60 |. STALDXST+2../`|
00000FB0: 09 20 4C 44 41 23 24 32 38 00 A0 2F 6A 09 20 53 |. LDA#$28../j. S|
00000FC0: 54 41 4C 44 59 53 54 2B 32 00 B0 2F 74 09 20 53 |TALDYST+2../t. S|
00000FD0: 54 41 59 53 4F 46 54 2B 32 00 C4 2F 7E 09 45 4E |TAYSOFT+2../~.EN|
00000FE0: 44 46 52 32 20 4A 4D 50 43 41 4C 43 53 00 D7 2F |DFR2 JMPCALCS../|
00000FF0: 88 09 57 41 49 54 32 20 4A 4D 50 57 41 49 54 32 |..WAIT2 JMPWAIT2|
00001000: 00 EC 2F B8 0B 46 41 44 45 49 52 51 20 44 45 43 |../..FADEIRQ DEC|
00001010: 24 44 30 31 39 00 F9 2F BD 0B 20 4C 44 58 23 24 |$D019../.. LDX#$|
00001020: 30 30 00 0F 30 C2 0B 4E 43 4F 4C 20 4C 44 41 43 |00..0..NCOL LDAC|
00001030: 4F 4C 52 41 4D 32 2C 58 00 1C 30 C7 0B 20 43 4D |OLRAM2,X..0.. CM|
00001040: 50 48 52 45 47 00 2A 30 CC 0B 20 42 4E 45 43 46 |PHREG.*0.. BNECF|
00001050: 41 44 45 00 3C 30 D1 0B 20 4C 44 41 4C 4F 47 4F |ADE.<0.. LDALOGO|
00001060: 43 4F 4C 2C 58 00 4E 30 D6 0B 20 53 54 41 43 4F |COL,X.N0.. STACO|
00001070: 4C 52 41 4D 31 2C 58 00 5F 30 E0 0B 20 4C 44 41 |LRAM1,X._0.. LDA|
00001080: 4C 4F 47 4F 44 38 2C 58 00 6F 30 E5 0B 20 53 54 |LOGOD8,X.o0.. ST|
00001090: 41 24 44 38 30 30 2C 58 00 8A 30 EA 0B 43 46 41 |A$D800,X..0..CFA|
000010A0: 44 45 20 4C 44 41 43 4F 4C 52 41 4D 32 2B 24 42 |DE LDACOLRAM2+$B|
000010B0: 34 2C 58 00 97 30 EF 0B 20 43 4D 50 48 52 45 47 |4,X..0.. CMPHREG|
000010C0: 00 A5 30 F4 0B 20 42 4E 45 45 46 41 44 45 00 BB |..0.. BNEEFADE..|
000010D0: 30 F9 0B 20 4C 44 41 4C 4F 47 4F 43 4F 4C 2B 24 |0.. LDALOGOCOL+$|
000010E0: 42 34 2C 58 00 D1 30 FE 0B 20 53 54 41 43 4F 4C |B4,X..0.. STACOL|
000010F0: 52 41 4D 31 2B 24 42 34 2C 58 00 E6 30 08 0C 20 |RAM1+$B4,X..0.. |
00001100: 4C 44 41 4C 4F 47 4F 44 38 2B 24 42 34 2C 58 00 |LDALOGOD8+$B4,X.|
00001110: F6 30 0D 0C 20 53 54 41 24 44 38 42 34 2C 58 00 |.0.. STA$D8B4,X.|
00001120: 04 31 12 0C 45 46 41 44 45 20 49 4E 58 00 11 31 |.1..EFADE INX..1|
00001130: 14 0C 20 43 50 58 23 24 42 34 00 1E 31 17 0C 20 |.. CPX#$B4..1.. |
00001140: 42 4E 45 4E 43 4F 4C 00 2B 31 1C 0C 20 49 4E 43 |BNENCOL.+1.. INC|
00001150: 48 52 45 47 00 38 31 21 0C 20 4C 44 41 48 52 45 |HREG.81!. LDAHRE|
00001160: 47 00 45 31 26 0C 20 43 4D 50 23 24 38 30 00 52 |G.E1&. CMP#$80.R|
00001170: 31 2B 0C 20 42 4E 45 45 49 52 51 00 5F 31 2D 0C |1+. BNEEIRQ._1-.|
00001180: 20 4C 44 41 23 24 33 32 00 6D 31 2E 0C 20 53 54 | LDA#$32.m1.. ST|
00001190: 41 24 44 30 31 32 00 81 31 30 0C 20 4C 44 41 23 |A$D012..10. LDA#|
000011A0: 3C 28 4C 4F 47 4F 49 52 51 29 00 95 31 35 0C 20 |<(LOGOIRQ)..15. |
000011B0: 4C 44 58 23 3E 28 4C 4F 47 4F 49 52 51 29 00 A3 |LDX#>(LOGOIRQ)..|
000011C0: 31 3A 0C 20 53 54 41 24 30 33 31 34 00 B1 31 3F |1:. STA$0314..1?|
000011D0: 0C 20 53 54 58 24 30 33 31 35 00 C2 31 44 0C 45 |. STX$0315..1D.E|
000011E0: 49 52 51 20 4C 44 41 23 24 46 46 00 CF 31 49 0C |IRQ LDA#$FF..1I.|
000011F0: 20 53 54 41 46 4C 41 47 00 DD 31 4E 0C 20 4A 4D | STAFLAG..1N. JM|
00001200: 50 24 46 45 42 43 00 F1 31 80 0C 4F 55 54 49 52 |P$FEBC..1..OUTIR|
00001210: 51 20 44 45 43 24 44 30 31 39 00 FE 31 85 0C 20 |Q DEC$D019..1.. |
00001220: 4C 44 58 23 24 30 30 00 15 32 8A 0C 4E 4E 43 4F |LDX#$00..2..NNCO|
00001230: 4C 20 4C 44 41 43 4F 4C 52 41 4D 32 2C 58 00 22 |L LDACOLRAM2,X."|
00001240: 32 8F 0C 20 43 4D 50 48 52 45 47 00 31 32 94 0C |2.. CMPHREG.12..|
00001250: 20 42 4E 45 43 43 46 41 44 45 00 3E 32 99 0C 20 | BNECCFADE.>2.. |
00001260: 4C 44 41 23 24 30 30 00 50 32 9E 0C 20 53 54 41 |LDA#$00.P2.. STA|
00001270: 43 4F 4C 52 41 4D 31 2C 58 00 60 32 AD 0C 20 53 |COLRAM1,X.`2.. S|
00001280: 54 41 24 44 38 30 30 2C 58 00 7C 32 B2 0C 43 43 |TA$D800,X.|2..CC|
00001290: 46 41 44 45 20 4C 44 41 43 4F 4C 52 41 4D 32 2B |FADE LDACOLRAM2+|
000012A0: 24 42 34 2C 58 00 89 32 B7 0C 20 43 4D 50 48 52 |$B4,X..2.. CMPHR|
000012B0: 45 47 00 98 32 BC 0C 20 42 4E 45 45 45 46 41 44 |EG..2.. BNEEEFAD|
000012C0: 45 00 A5 32 C1 0C 20 4C 44 41 23 24 30 30 00 BB |E..2.. LDA#$00..|
000012D0: 32 C6 0C 20 53 54 41 43 4F 4C 52 41 4D 31 2B 24 |2.. STACOLRAM1+$|
000012E0: 42 34 2C 58 00 CB 32 D5 0C 20 53 54 41 24 44 38 |B4,X..2.. STA$D8|
000012F0: 42 34 2C 58 00 DA 32 DA 0C 45 45 46 41 44 45 20 |B4,X..2..EEFADE |
00001300: 49 4E 58 00 E7 32 DC 0C 20 43 50 58 23 24 42 34 |INX..2.. CPX#$B4|
00001310: 00 F5 32 DF 0C 20 42 4E 45 4E 4E 43 4F 4C 00 02 |..2.. BNENNCOL..|
00001320: 33 E4 0C 20 44 45 43 48 52 45 47 00 0F 33 E9 0C |3.. DECHREG..3..|
00001330: 20 4C 44 41 48 52 45 47 00 1C 33 EE 0C 20 43 4D | LDAHREG..3.. CM|
00001340: 50 23 24 30 30 00 2A 33 F3 0C 20 42 4E 45 45 45 |P#$00.*3.. BNEEE|
00001350: 49 52 51 00 37 33 F5 0C 20 4C 44 41 23 24 37 41 |IRQ.73.. LDA#$7A|
00001360: 00 45 33 F6 0C 20 53 54 41 24 44 30 31 32 00 52 |.E3.. STA$D012.R|
00001370: 33 F8 0C 20 4C 44 41 23 24 33 31 00 5F 33 FD 0C |3.. LDA#$31._3..|
00001380: 20 4C 44 58 23 24 45 41 00 6D 33 02 0D 20 53 54 | LDX#$EA.m3.. ST|
00001390: 41 24 30 33 31 34 00 7B 33 07 0D 20 53 54 58 24 |A$0314.{3.. STX$|
000013A0: 30 33 31 35 00 8E 33 11 0D 45 45 49 52 51 20 4A |0315..3..EEIRQ J|
000013B0: 4D 50 24 46 45 42 43 00 A2 33 AC 0D 46 52 41 4D |MP$FEBC..3..FRAM|
000013C0: 45 31 20 44 45 43 24 44 30 31 39 00 B0 33 B1 0D |E1 DEC$D019..3..|
000013D0: 20 4C 44 41 24 44 44 30 30 00 BD 33 B6 0D 20 41 | LDA$DD00..3.. A|
000013E0: 4E 44 23 24 46 43 00 CA 33 BB 0D 20 4F 52 41 23 |ND#$FC..3.. ORA#|
000013F0: 24 30 31 00 D8 33 C0 0D 20 53 54 41 24 44 44 30 |$01..3.. STA$DD0|
00001400: 30 00 E5 33 C5 0D 20 4C 44 41 23 24 44 38 00 F3 |0..3.. LDA#$D8..|
00001410: 33 CA 0D 20 53 54 41 24 44 30 31 36 00 00 34 CB |3.. STA$D016..4.|
00001420: 0D 20 4C 44 41 23 24 33 32 00 0E 34 CC 0D 20 53 |. LDA#$32..4.. S|
00001430: 54 41 24 44 30 31 32 00 22 34 CF 0D 20 4C 44 41 |TA$D012."4.. LDA|
00001440: 23 3C 28 4C 4F 47 4F 49 52 51 29 00 36 34 D4 0D |#<(LOGOIRQ).64..|
00001450: 20 4C 44 58 23 3E 28 4C 4F 47 4F 49 52 51 29 00 | LDX#>(LOGOIRQ).|
00001460: 44 34 D9 0D 20 53 54 41 24 30 33 31 34 00 52 34 |D4.. STA$0314.R4|
00001470: DE 0D 20 53 54 58 24 30 33 31 35 00 65 34 DF 0D |.. STX$0315.e4..|
00001480: 20 4C 44 41 23 3C 28 46 52 41 4D 45 32 29 00 78 | LDA#<(FRAME2).x|
00001490: 34 E0 0D 20 4C 44 58 23 3E 28 46 52 41 4D 45 32 |4.. LDX#>(FRAME2|
000014A0: 29 00 89 34 E1 0D 20 53 54 41 4E 58 54 46 52 4C |)..4.. STANXTFRL|
000014B0: 2B 31 00 9A 34 E2 0D 20 53 54 58 4E 58 54 46 52 |+1..4.. STXNXTFR|
000014C0: 48 2B 31 00 A8 34 ED 0D 20 4A 4D 50 24 46 45 42 |H+1..4.. JMP$FEB|
000014D0: 43 00 BC 34 74 0E 46 52 41 4D 45 32 20 44 45 43 |C..4t.FRAME2 DEC|
000014E0: 24 44 30 31 39 00 CA 34 79 0E 20 4C 44 41 24 44 |$D019..4y. LDA$D|
000014F0: 44 30 30 00 D7 34 7E 0E 20 41 4E 44 23 24 46 43 |D00..4~. AND#$FC|
00001500: 00 E4 34 83 0E 20 4F 52 41 23 24 30 32 00 F2 34 |..4.. ORA#$02..4|
00001510: 88 0E 20 53 54 41 24 44 44 30 30 00 FF 34 8D 0E |.. STA$DD00..4..|
00001520: 20 4C 44 41 23 24 44 39 00 0D 35 92 0E 20 53 54 | LDA#$D9..5.. ST|
00001530: 41 24 44 30 31 36 00 1A 35 93 0E 20 4C 44 41 23 |A$D016..5.. LDA#|
00001540: 24 33 32 00 28 35 94 0E 20 53 54 41 24 44 30 31 |$32.(5.. STA$D01|
00001550: 32 00 3C 35 97 0E 20 4C 44 41 23 3C 28 4C 4F 47 |2.<5.. LDA#<(LOG|
00001560: 4F 49 52 51 29 00 50 35 9C 0E 20 4C 44 58 23 3E |OIRQ).P5.. LDX#>|
00001570: 28 4C 4F 47 4F 49 52 51 29 00 5E 35 A1 0E 20 53 |(LOGOIRQ).^5.. S|
00001580: 54 41 24 30 33 31 34 00 6C 35 A6 0E 20 53 54 58 |TA$0314.l5.. STX|
00001590: 24 30 33 31 35 00 7F 35 A7 0E 20 4C 44 41 23 3C |$0315..5.. LDA#<|
000015A0: 28 46 52 41 4D 45 31 29 00 92 35 A8 0E 20 4C 44 |(FRAME1)..5.. LD|
000015B0: 58 23 3E 28 46 52 41 4D 45 31 29 00 A3 35 A9 0E |X#>(FRAME1)..5..|
000015C0: 20 53 54 41 4E 58 54 46 52 4C 2B 31 00 B4 35 AA | STANXTFRL+1..5.|
000015D0: 0E 20 53 54 58 4E 58 54 46 52 48 2B 31 00 C2 35 |. STXNXTFRH+1..5|
000015E0: B5 0E 20 4A 4D 50 24 46 45 42 43 00 D7 35 D8 0E |.. JMP$FEBC..5..|
000015F0: 4C 4F 47 4F 49 52 51 20 44 45 43 24 44 30 31 39 |LOGOIRQ DEC$D019|
00001600: 00 E4 35 D9 0E 20 4C 44 41 23 24 30 32 00 F2 35 |..5.. LDA#$02..5|
00001610: DA 0E 20 53 54 41 24 44 30 32 30 00 00 36 DD 0E |.. STA$D020..6..|
00001620: 20 4C 44 41 24 44 44 30 30 00 0D 36 E2 0E 20 41 | LDA$DD00..6.. A|
00001630: 4E 44 23 24 46 43 00 1A 36 E7 0E 20 4F 52 41 23 |ND#$FC..6.. ORA#|
00001640: 24 30 32 00 28 36 EC 0E 20 53 54 41 24 44 44 30 |$02.(6.. STA$DD0|
00001650: 30 00 35 36 F1 0E 20 4C 44 41 23 24 44 38 00 43 |0.56.. LDA#$D8.C|
00001660: 36 F6 0E 20 53 54 41 24 44 30 31 36 00 50 36 FB |6.. STA$D016.P6.|
00001670: 0E 20 4C 44 41 23 24 37 41 00 5E 36 00 0F 20 53 |. LDA#$7A.^6.. S|
00001680: 54 41 24 44 30 31 32 00 77 36 05 0F 4E 58 54 46 |TA$D012.w6..NXTF|
00001690: 52 4C 20 4C 44 41 23 3C 28 46 52 41 4D 45 31 29 |RL LDA#<(FRAME1)|
000016A0: 00 90 36 0A 0F 4E 58 54 46 52 48 20 4C 44 58 23 |..6..NXTFRH LDX#|
000016B0: 3E 28 46 52 41 4D 45 31 29 00 9E 36 0F 0F 20 53 |>(FRAME1)..6.. S|
000016C0: 54 41 24 30 33 31 34 00 AC 36 14 0F 20 53 54 58 |TA$0314..6.. STX|
000016D0: 24 30 33 31 35 00 BA 36 19 0F 20 4A 4D 50 24 46 |$0315..6.. JMP$F|
000016E0: 45 42 43 00 CE 36 A6 13 49 4E 49 54 56 41 4C 20 |EBC..6..INITVAL |
000016F0: 4C 44 41 23 24 30 30 00 E0 36 AB 13 20 53 54 41 |LDA#$00..6.. STA|
00001700: 53 54 59 54 41 42 31 2B 31 00 F0 36 B0 13 20 53 |STYTAB1+1..6.. S|
00001710: 54 41 4F 42 4A 56 45 43 31 00 FD 36 B5 13 20 4C |TAOBJVEC1..6.. L|
00001720: 44 41 23 24 30 31 00 0F 37 BA 13 20 53 54 41 53 |DA#$01..7.. STAS|
00001730: 54 59 54 41 42 32 2B 31 00 1D 37 BF 13 20 4C 44 |TYTAB2+1..7.. LD|
00001740: 41 24 44 43 30 34 00 2D 37 C4 13 20 53 54 41 4C |A$DC04.-7.. STAL|
00001750: 44 58 53 54 2B 31 00 3B 37 C5 13 20 4C 44 41 24 |DXST+1.;7.. LDA$|
00001760: 44 43 30 34 00 4B 37 C6 13 20 53 54 41 41 44 44 |DC04.K7.. STAADD|
00001770: 52 45 47 31 00 58 37 D8 13 20 4C 44 41 23 24 34 |REG1.X7.. LDA#$4|
00001780: 37 00 6A 37 DD 13 20 53 54 41 4F 42 4A 56 45 43 |7.j7.. STAOBJVEC|
00001790: 31 2B 31 00 77 37 E2 13 20 4C 44 41 23 24 30 30 |1+1.w7.. LDA#$00|
000017A0: 00 85 37 E7 13 20 53 54 41 24 44 30 32 30 00 93 |..7.. STA$D020..|
000017B0: 37 EC 13 20 53 54 41 24 44 30 32 31 00 A0 37 F1 |7.. STA$D021..7.|
000017C0: 13 20 4C 44 41 23 24 32 30 00 B0 37 F6 13 20 53 |. LDA#$20..7.. S|
000017D0: 54 41 4C 44 58 53 54 2B 32 00 BD 37 FB 13 20 4C |TALDXST+2..7.. L|
000017E0: 44 41 23 24 32 38 00 CD 37 00 14 20 53 54 41 4C |DA#$28..7.. STAL|
000017F0: 44 59 53 54 2B 32 00 DD 37 05 14 20 53 54 41 59 |DYST+2..7.. STAY|
00001800: 53 4F 46 54 2B 32 00 EB 37 0A 14 20 4C 44 41 24 |SOFT+2..7.. LDA$|
00001810: 44 43 30 34 00 FB 37 0F 14 20 53 54 41 41 44 44 |DC04..7.. STAADD|
00001820: 52 45 47 32 00 09 38 14 14 20 4C 44 41 24 44 43 |REG2..8.. LDA$DC|
00001830: 30 34 00 19 38 19 14 20 53 54 41 59 53 4F 46 54 |04..8.. STAYSOFT|
00001840: 2B 31 00 29 38 1E 14 20 53 54 41 4C 44 59 53 54 |+1.)8.. STALDYST|
00001850: 2B 31 00 32 38 28 14 20 52 54 53 00 48 38 7C 15 |+1.28(. RTS.H8|.|
00001860: 43 4C 52 42 49 54 4D 41 50 20 4C 44 41 23 24 30 |CLRBITMAP LDA#$0|
00001870: 30 00 51 38 81 15 20 54 41 58 00 5D 38 86 15 2E |0.Q8.. TAX.]8...|
00001880: 45 51 20 4E 3D 30 00 7B 38 A9 15 20 53 54 41 42 |EQ N=0.{8.. STAB|
00001890: 49 54 4D 41 50 31 2B 24 42 34 30 2B 4E 2A 24 31 |ITMAP1+$B40+N*$1|
000018A0: 30 30 2C 58 00 99 38 AE 15 20 53 54 41 42 49 54 |00,X..8.. STABIT|
000018B0: 4D 41 50 32 2B 24 42 34 30 2B 4E 2A 24 31 30 30 |MAP2+$B40+N*$100|
000018C0: 2C 58 00 A7 38 B3 15 2E 45 51 20 4E 3D 4E 2B 31 |,X..8...EQ N=N+1|
000018D0: 00 B9 38 B8 15 2E 49 46 20 4E 20 21 3C 21 20 24 |..8...IF N !<! $|
000018E0: 31 34 00 C6 38 BD 15 2E 47 4F 20 35 35 34 35 00 |14..8...GO 5545.|
000018F0: CE 38 C2 15 2E 45 49 00 D7 38 C7 15 20 49 4E 58 |.8...EI..8.. INX|
00001900: 00 EB 38 CC 15 20 42 4E 45 43 4C 52 42 49 54 4D |..8.. BNECLRBITM|
00001910: 41 50 2B 33 00 FF 38 D1 15 53 45 54 4C 4F 47 4F |AP+3..8..SETLOGO|
00001920: 20 4C 44 58 23 24 30 30 00 0B 39 DB 15 2E 45 51 | LDX#$00..9...EQ|
00001930: 20 4E 3D 30 00 22 39 08 16 20 4C 44 41 4C 4F 47 | N=0."9.. LDALOG|
00001940: 4F 42 4D 2B 4E 2A 24 42 34 2C 58 00 3A 39 0D 16 |OBM+N*$B4,X.:9..|
00001950: 20 53 54 41 42 49 54 4D 41 50 31 2B 4E 2A 24 42 | STABITMAP1+N*$B|
00001960: 34 2C 58 00 48 39 12 16 2E 45 51 20 4E 3D 4E 2B |4,X.H9...EQ N=N+|
00001970: 31 00 5A 39 17 16 2E 49 46 20 4E 20 21 3C 21 20 |1.Z9...IF N !<! |
00001980: 24 31 30 00 67 39 1C 16 2E 47 4F 20 35 36 34 30 |$10.g9...GO 5640|
00001990: 00 6F 39 1D 16 2E 45 49 00 78 39 21 16 20 49 4E |.o9...EI.x9!. IN|
000019A0: 58 00 85 39 23 16 20 43 50 58 23 24 42 34 00 97 |X..9#. CPX#$B4..|
000019B0: 39 26 16 20 42 4E 45 53 45 54 4C 4F 47 4F 2B 32 |9&. BNESETLOGO+2|
000019C0: 00 A0 39 5D 16 20 52 54 53 00 B3 39 62 16 53 45 |..9]. RTS..9b.SE|
000019D0: 54 43 4F 4C 20 4C 44 58 23 24 30 30 00 C1 39 67 |TCOL LDX#$00..9g|
000019E0: 16 20 4C 44 41 23 43 4F 4C 31 00 CD 39 68 16 2E |. LDA#COL1..9h..|
000019F0: 45 51 20 4E 3D 30 00 EA 39 6C 16 20 53 54 41 43 |EQ N=0..9l. STAC|
00001A00: 4F 4C 52 41 4D 31 2B 24 31 36 38 2B 4E 2A 24 41 |OLRAM1+$168+N*$A|
00001A10: 30 2C 58 00 F8 39 6D 16 2E 45 51 20 4E 3D 4E 2B |0,X..9m..EQ N=N+|
00001A20: 31 00 08 3A 6E 16 2E 49 46 20 4E 20 21 3C 21 20 |1..:n..IF N !<! |
00001A30: 34 00 15 3A 6F 16 2E 47 4F 20 35 37 34 30 00 1D |4..:o..GO 5740..|
00001A40: 3A 70 16 2E 45 49 00 2B 3A 71 16 20 4C 44 41 23 |:p..EI.+:q. LDA#|
00001A50: 43 4F 4C 32 00 37 3A 72 16 2E 45 51 20 4E 3D 30 |COL2.7:r..EQ N=0|
00001A60: 00 54 3A 76 16 20 53 54 41 43 4F 4C 52 41 4D 32 |.T:v. STACOLRAM2|
00001A70: 2B 24 31 36 38 2B 4E 2A 24 41 30 2C 58 00 62 3A |+$168+N*$A0,X.b:|
00001A80: 77 16 2E 45 51 20 4E 3D 4E 2B 31 00 72 3A 78 16 |w..EQ N=N+1.r:x.|
00001A90: 2E 49 46 20 4E 20 21 3C 21 20 34 00 7F 3A 79 16 |.IF N !<! 4..:y.|
00001AA0: 2E 47 4F 20 35 37 35 30 00 87 3A 7A 16 2E 45 49 |.GO 5750..:z..EI|
00001AB0: 00 95 3A 7B 16 20 4C 44 41 23 52 43 4F 4C 00 A1 |..:{. LDA#RCOL..|
00001AC0: 3A 7C 16 2E 45 51 20 4E 3D 30 00 B7 3A 80 16 20 |:|..EQ N=0..:.. |
00001AD0: 53 54 41 24 44 39 36 38 2B 4E 2A 24 41 30 2C 58 |STA$D968+N*$A0,X|
00001AE0: 00 C5 3A 85 16 2E 45 51 20 4E 3D 4E 2B 31 00 D5 |..:...EQ N=N+1..|
00001AF0: 3A 8A 16 2E 49 46 20 4E 20 21 3C 21 20 34 00 E2 |:...IF N !<! 4..|
00001B00: 3A 8F 16 2E 47 4F 20 35 37 36 30 00 EA 3A 94 16 |:...GO 5760..:..|
00001B10: 2E 45 49 00 F3 3A 99 16 20 49 4E 58 00 00 3B 9B |.EI..:.. INX..;.|
00001B20: 16 20 43 50 58 23 24 38 30 00 11 3B 9E 16 20 42 |. CPX#$80..;.. B|
00001B30: 4E 45 53 45 54 43 4F 4C 2B 32 00 23 3B A3 16 42 |NESETCOL+2.#;..B|
00001B40: 4C 43 4F 4C 20 4C 44 41 23 24 30 30 00 2C 3B A8 |LCOL LDA#$00.,;.|
00001B50: 16 20 54 41 58 00 3E 3B AD 16 20 53 54 41 43 4F |. TAX.>;.. STACO|
00001B60: 4C 52 41 4D 31 2C 58 00 4E 3B AE 16 20 53 54 41 |LRAM1,X.N;.. STA|
00001B70: 24 44 38 30 30 2C 58 00 64 3B B2 16 20 53 54 41 |$D800,X.d;.. STA|
00001B80: 43 4F 4C 52 41 4D 31 2B 24 42 34 2C 58 00 74 3B |COLRAM1+$B4,X.t;|
00001B90: B3 16 20 53 54 41 24 44 38 42 34 2C 58 00 7D 3B |.. STA$D8B4,X.};|
00001BA0: B7 16 20 49 4E 58 00 8A 3B BC 16 20 43 50 58 23 |.. INX..;.. CPX#|
00001BB0: 24 42 34 00 9A 3B C1 16 20 42 4E 45 42 4C 43 4F |$B4..;.. BNEBLCO|
00001BC0: 4C 2B 33 00 A3 3B DF 16 20 52 54 53 00 B6 3B 70 |L+3..;.. RTS..;p|
00001BD0: 17 4D 41 4B 45 59 54 20 4C 44 41 23 24 31 39 00 |.MAKEYT LDA#$19.|
00001BE0: C3 3B 7A 17 20 53 54 41 48 52 45 47 00 D0 3B 84 |.;z. STAHREG..;.|
00001BF0: 17 20 4C 44 59 23 24 30 30 00 DD 3B 8E 17 20 4C |. LDY#$00..;.. L|
00001C00: 44 58 23 24 36 30 00 EE 3B 98 17 43 52 45 41 54 |DX#$60..;..CREAT|
00001C10: 45 59 54 20 43 4C 43 00 02 3C A2 17 53 54 59 54 |EYT CLC..<..STYT|
00001C20: 41 42 31 20 53 54 59 59 54 41 42 00 18 3C AC 17 |AB1 STYYTAB..<..|
00001C30: 53 54 59 54 41 42 32 20 53 54 58 59 54 41 42 2B |STYTAB2 STXYTAB+|
00001C40: 31 00 21 3C B6 17 20 54 59 41 00 2E 3C C0 17 20 |1.!<.. TYA..<.. |
00001C50: 41 44 43 23 24 34 30 00 3C 3C CA 17 20 42 43 43 |ADC#$40.<<.. BCC|
00001C60: 4E 4F 49 4E 58 00 45 3C D4 17 20 43 4C 43 00 4E |NOINX.E<.. CLC.N|
00001C70: 3C DE 17 20 49 4E 58 00 5C 3C E8 17 4E 4F 49 4E |<.. INX.\<..NOIN|
00001C80: 58 20 54 41 59 00 65 3C F2 17 20 49 4E 58 00 77 |X TAY.e<.. INX.w|
00001C90: 3C FC 17 20 4C 44 41 53 54 59 54 41 42 31 2B 31 |<.. LDASTYTAB1+1|
00001CA0: 00 80 3C 06 18 20 43 4C 43 00 8D 3C 10 18 20 41 |..<.. CLC..<.. A|
00001CB0: 44 43 23 24 30 38 00 9F 3C 1A 18 20 53 54 41 53 |DC#$08..<.. STAS|
00001CC0: 54 59 54 41 42 31 2B 31 00 A8 3C 24 18 20 43 4C |TYTAB1+1..<$. CL|
00001CD0: 43 00 B5 3C 2E 18 20 41 44 43 23 24 30 31 00 C7 |C..<.. ADC#$01..|
00001CE0: 3C 38 18 20 53 54 41 53 54 59 54 41 42 32 2B 31 |<8. STASTYTAB2+1|
00001CF0: 00 D4 3C 42 18 20 44 45 43 48 52 45 47 00 E5 3C |..<B. DECHREG..<|
00001D00: 4C 18 20 42 4E 45 43 52 45 41 54 45 59 54 00 EE |L. BNECREATEYT..|
00001D10: 3C 56 18 20 52 54 53 00 F6 3C 60 18 2E 45 4E 00 |<V. RTS..<`..EN.|
00001D20: 00 00 |.. |
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.B
$.. STAFLAG.W$..FLAGWAIT CMPFLAG.H$". BE
QFLAGWAIT.N$X.;..$Y.; CALCULATIONS FOR F
RAME 1..$Z.;..$G.CALCS LDXOBJVEC1+1..$L.
INX..$V. CPX#$50.P$.. BNESTOBJHI..$.. L
DX#$48..$..STOBJHI STXOBJVEC1+1..%..LDYS
T LDAYSINTAB..%.. AND#$F8.!%.. TAX.0%..
LDAYTAB,X.@%F. STABITVEC1.Q%P. LDAYTAB+1
,X.C%Z. STABITVEC1+1.X%..LDXST LDAXSINTA
B..%.. ASL..%.. BCCSTXPOS..%.. INCBITVEC
1+1..%.. CLC..%..STXPOS TAX.G% . AND#$F8
.P%*. CLC..%4. ADCBITVEC1..%>. BCCSTBITV
EC1..%H. CLC..&R. INCBITVEC1+1.&&\.STBIT
VEC1 STABITVEC1.3&F. LDY#$7F.N&P.COPYOBJ
LDA(OBJVEC1),Y.`&Z. STAOBJDAT1,Y.I&.. D
EY.Y&.. BPLCOPYOBJ..&.. TXA..&.. AND#$07
..&.. BEQYSOFT..&.. TAY..&..XSOFT LDX#$0
0.A&J. CLC.S&T. ROROBJDAT1,X..&.. ROROBJ
DAT1+$20,X..&.. ROROBJDAT1+$40,X..'.. RO
ROBJDAT1+$60,X..'.. INX.+'.. CPX#$18.;'.
. BNEXSOFT+2.D'.. DEY.R'$. BNEXSOFT.G'..
YSOFT LDAYSINTAB.T'8. AND#$07..'B. BEQEN
DCD+2..'L. STASTOD1+1..'V. TAY..'`. LDX#
$77.B'J.MOVBYT LDAOBJDAT1,X.Y'T.STOD1 ST
AOBJDAT1,X..'~. DEX..'.. BPLMOVBYT..'..
LDA#$00..(.. DEY..(..CLSTBY STAOBJDAT1,Y
.((.. DEY.<(..ENDCD BPLCLSTBY.H(D..EQ B=
0.^(N. LDABITVEC1+1+B*2.T(X. STABITVEC1+
3+B*2..(.. LDABITVEC1+B*2..(.. CLC..(..
ADC#$40..(...BY $90,$03..(.. CLC.M(.. IN
CBITVEC1+B*2+3..(.. STABITVEC1+B*2+2..((
. INCBITVEC1+B*2+3..)2..EQ B=B+1..)<..IF
B !<! 3.$)F..GO 1230.,)P..EI.5)Z. CLC.B
)D. LDY#$00.P)N..EQ C = 0.])X. LDX#$00.K
)...EQ B = 0..).. LDA(BITVEC1+B*2),Y..).
. STAOBJDAT2+B*$20,Y..) . ORAOBJDAT1+C*$
20+B*$8,X.E).. STAHREG..).. LDA(BITVEC1+
B*2),Y..).. ANDOBJDAT1+C*$20+B*$8,X..*H.
STAHREG+1..*R. ASL.!*.. ORAHREG+1..*..
EORHREG.F*.. STA(BITVEC1+B*2),Y.V*...EQ
B = B+1.F*...IF B !<! 4.S*...GO 1420.{*.
..EI..*". INX..*,. INY..*6. CPX#$08..*@.
.BY $F0,$03..*J. JMP$FFFF.H*T..EQ C = C+
1.X*^..IF C !<! 4..*H..GO 1400..*R..EI..
*W. LDA#$00..+X. STA$D020..+|.;.-+}.; CA
LCULATIONS FOR FRAME 2.3+~.;.<+V. CLC.P+
..TSTBPL2 LDY#$1F.\+...EQ B=0.T+.. LDAOB
JDAT2+B*$20,Y..+.. AND#$55..+.. STAHREG.
.+.. LDAOBJDAT2+B*$20,Y..+.. AND#$AA..+&
. LSR.I+0. ANDHREG..+:. STAOBJDAT1+B*$20
,Y..+D..EQ B=B+1..+N..IF B !<! 4..,X..GO
1780..,B..EI..,L. DEY./,V. BPLTSTBPL2+2
.8,.. CLC.D,...EQ B=0.M,.. NOP.C,.. LDAB
ITVEC1+1+B*2.P,.. ADC#$40..,.. STABITVEC
1+1+B*2..,...EQ B=B+1..,F..IF B !<! 4..,
P..GO 1940..,Z..EI.B,.. CLC.W,..SHADEFR2
LDY#$1F..,...EQ B=0..,.. LDA(BITVEC1+B*
2),Y..-.. ORAOBJDAT1+B*$20,Y. -.. STAHRE
G.8- . LDA(BITVEC1+B*2),Y.P-*. ANDOBJDAT
1+B*$20,Y._-4. STAHREG+1.H->. ASL.W-H. O
RAHREG+1..-R. EORHREG..-\. STA(BITVEC1+B
*2),Y..-F..EQ B = B+1..-P..IF B !<! 4.I-
Z..GO 2050.Q-...EI.Z-.. DEY..-.. BPLSHAD
EFR2+2..-..;.....; END OF FRAME 2 AND AD
D SINE.....;.+... LDALDXST+1.4... CLC.D.
.. ADCADDREG1.Q... BCCSTXX.Z... CLC.J...
INCLDXST+2.~...STXX STALDXST+1..... LDA
LDYST+1..... ADCADDREG2..... BCCSTYY....
. CLC.D... INCLDYST+2.T... INCYSOFT+2...
..STYY STALDYST+1..... STAYSOFT+1../..EN
DFR LDALDXST+2../.. CMP#$28.)/.. BNEENDF
R2.6/$. LDA#$00.F/.. STALDXST+1.V/8. STA
LDYST+1.F/B. STAYSOFT+1.S/L. LDA#$20../V
. STALDXST+2../`. LDA#$28. /J. STALDYST+
2../T. STAYSOFT+2.D/~.ENDFR2 JMPCALCS.W/
..WAIT2 JMPWAIT2../..FADEIRQ DEC$D019../
.. LDX#$00..0B.NCOL LDACOLRAM2,X..0G. CM
PHREG.*0L. BNECFADE.<0Q. LDALOGOCOL,X.N0
V. STACOLRAM1,X._0.. LDALOGOD8,X.O0.. ST
A$D800,X..0..CFADE LDACOLRAM2+$B4,X..0..
CMPHREG..0.. BNEEFADE..0.. LDALOGOCOL+$
B4,X.Q0.. STACOLRAM1+$B4,X..0.. LDALOGOD
8+$B4,X..0.. STA$D8B4,X..1..EFADE INX..1
.. CPX#$B4..1.. BNENCOL.+1.. INCHREG.81!
. LDAHREG.E1&. CMP#$80.R1+. BNEEIRQ._1-.
LDA#$32.M1.. STA$D012..10. LDA#<(LOGOIR
Q)..15. LDX#>(LOGOIRQ)..1:. STA$0314..1?
. STX$0315.B1D.EIRQ LDA#$FF.O1I. STAFLAG
..1N. JMP$FEBC..1..OUTIRQ DEC$D019..1..
LDX#$00..2..NNCOL LDACOLRAM2,X."2.. CMPH
REG.12.. BNECCFADE.>2.. LDA#$00.P2.. STA
COLRAM1,X.`2.. STA$D800,X.|2..CCFADE LDA
COLRAM2+$B4,X..2.. CMPHREG..2.. BNEEEFAD
E..2A. LDA#$00..2F. STACOLRAM1+$B4,X.K2U
. STA$D8B4,X.Z2Z.EEFADE INX..2.. CPX#$B4
..2.. BNENNCOL..3.. DECHREG..3.. LDAHREG
..3.. CMP#$00.*3.. BNEEEIRQ.73.. LDA#$7A
.E3.. STA$D012.R3.. LDA#$31._3.. LDX#$EA
.M3.. STA$0314.{3.. STX$0315..3..EEIRQ J
MP$FEBC..3..FRAME1 DEC$D019..3.. LDA$DD0
0..3.. AND#$FC.J3.. ORA#$01.X3.. STA$DD0
0..3E. LDA#$D8..3J. STA$D016..4K. LDA#$3
2..4L. STA$D012."4O. LDA#<(LOGOIRQ).64T.
LDX#>(LOGOIRQ).D4Y. STA$0314.R4.. STX$0
315.E4.. LDA#<(FRAME2).X4.. LDX#>(FRAME2
)..4.. STANXTFRL+1..4.. STXNXTFRH+1..4..
JMP$FEBC..4T.FRAME2 DEC$D019.J4Y. LDA$D
D00.W4~. AND#$FC..4.. ORA#$02..4.. STA$D
D00..4.. LDA#$D9..5.. STA$D016..5.. LDA#
$32.(5.. STA$D012.<5.. LDA#<(LOGOIRQ).P5
.. LDX#>(LOGOIRQ).^5.. STA$0314.L5.. STX
$0315.5.. LDA#<(FRAME1)..5.. LDX#>(FRAM
E1)..5.. STANXTFRL+1..5.. STXNXTFRH+1.B5
.. JMP$FEBC.W5X.LOGOIRQ DEC$D019..5Y. LD
A#$02..5Z. STA$D020..6.. LDA$DD00..6.. A
ND#$FC..6.. ORA#$02.(6.. STA$DD00.56.. L
DA#$D8.C6.. STA$D016.P6.. LDA#$7A.^6.. S
TA$D012.W6..NXTFRL LDA#<(FRAME1)..6..NXT
FRH LDX#>(FRAME1)..6.. STA$0314..6.. STX
$0315..6.. JMP$FEBC.N6..INITVAL LDA#$00.
.6.. STASTYTAB1+1..6.. STAOBJVEC1..6.. L
DA#$01..7.. STASTYTAB2+1..7.. LDA$DC04.-
7D. STALDXST+1.;7E. LDA$DC04.K7F. STAADD
REG1.X7X. LDA#$47.J7.. STAOBJVEC1+1.W7..
LDA#$00..7.. STA$D020..7.. STA$D021. 7.
. LDA#$20..7.. STALDXST+2..7.. LDA#$28.M
7.. STALDYST+2..7.. STAYSOFT+2..7.. LDA$
DC04..7.. STAADDREG2..8.. LDA$DC04..8..
STAYSOFT+1.)8.. STALDYST+1.28(. RTS.H8|.
CLRBITMAP LDA#$00.Q8.. TAX.]8...EQ N=0.{
8.. STABITMAP1+$B40+N*$100,X..8.. STABIT
MAP2+$B40+N*$100,X..8...EQ N=N+1..8...IF
N !<! $14.F8...GO 5545.N8B..EI.W8G. INX
..8L. BNECLRBITMAP+3..8Q.SETLOGO LDX#$00
..9...EQ N=0."9.. LDALOGOBM+N*$B4,X.:9..
STABITMAP1+N*$B4,X.H9...EQ N=N+1.Z9...I
F N !<! $10.G9...GO 5640.O9...EI.X9!. IN
X..9#. CPX#$B4..9&. BNESETLOGO+2. 9]. RT
S..9B.SETCOL LDX#$00.A9G. LDA#COL1.M9H..
EQ N=0..9L. STACOLRAM1+$168+N*$A0,X..9M.
.EQ N=N+1..:N..IF N !<! 4..:O..GO 5740..
:P..EI.+:Q. LDA#COL2.7:R..EQ N=0.T:V. ST
ACOLRAM2+$168+N*$A0,X.B:W..EQ N=N+1.R:X.
.IF N !<! 4.:Y..GO 5750..:Z..EI..:{. LD
A#RCOL..:|..EQ N=0..:.. STA$D968+N*$A0,X
.E:...EQ N=N+1.U:...IF N !<! 4..:...GO 5
760..:...EI..:.. INX..;.. CPX#$80..;.. B
NESETCOL+2.#;..BLCOL LDA#$00.,;.. TAX.>;
.. STACOLRAM1,X.N;.. STA$D800,X.D;.. STA
COLRAM1+$B4,X.T;.. STA$D8B4,X.};.. INX..
;.. CPX#$B4..;A. BNEBLCOL+3..;.. RTS..;P
.MAKEYT LDA#$19.C;Z. STAHREG.P;.. LDY#$0
0..;.. LDX#$60..;..CREATEYT CLC..<..STYT
AB1 STYYTAB..<..STYTAB2 STXYTAB+1.!<.. T
YA..<.. ADC#$40.<<J. BCCNOINX.E<T. CLC.N
<.. INX.\<..NOINX TAY.E<.. INX.W<.. LDAS
TYTAB1+1..<.. CLC..<.. ADC#$08..<.. STAS
TYTAB1+1..<$. CLC..<.. ADC#$01.G<8. STAS
TYTAB2+1.T<B. DECHREG..<L. BNECREATEYT..
<V. RTS..<`..EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL