DEMO ASS 3
FILE INFORMATION
FILENAME(S): DEMO ASS 3
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 19:47:36
APPEARS ON: 1 disk(s)
FILE HASH
8e9497fe77fa7b77bafada97764d911055b8b6039b09b5f29149ee6ed8f43931
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RHYTHM KING C | DEMO ASS 3 | PRG | Curtcool, Frank | 13 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 0A 00 9E 20 28 39 AC 34 30 39 36 29 |....... (9.4096)| 00000010: 00 1E 08 14 00 2E 4F 50 54 20 4E 2C 4F 4F 00 2B |......OPT N,OO.+| 00000020: 08 1E 00 AC B2 20 24 34 30 30 30 00 39 08 28 00 |..... $4000.9.(.| 00000030: 54 45 58 54 20 B2 24 46 42 00 46 08 32 00 54 45 |TEXT .$FB.F.2.TE| 00000040: 4D 20 B2 24 46 44 00 4C 08 3C 00 3B 00 52 08 46 |M .$FD.L.<.;.R.F| 00000050: 00 3B 00 58 08 50 00 3B 00 5E 08 5A 00 3B 00 66 |.;.X.P.;.^.Z.;.f| 00000060: 08 64 00 53 45 49 00 7D 08 6E 00 4C 44 41 20 23 |.d.SEI.}.n.LDA #| 00000070: 24 37 46 3A 53 54 41 20 24 44 43 30 44 00 A7 08 |$7F:STA $DC0D...| 00000080: 78 00 4C 44 41 20 23 B3 49 31 3A 53 54 41 20 24 |x.LDA #.I1:STA $| 00000090: 30 33 31 34 3A 4C 44 41 20 23 B1 49 31 3A 53 54 |0314:LDA #.I1:ST| 000000A0: 41 20 24 30 33 31 35 00 D1 08 82 00 4C 44 41 20 |A $0315.....LDA | 000000B0: 23 24 30 31 3A 53 54 41 20 24 44 30 31 41 3A 4C |#$01:STA $D01A:L| 000000C0: 44 41 20 23 24 30 35 3A 53 54 41 20 24 44 30 31 |DA #$05:STA $D01| 000000D0: 32 00 FB 08 8C 00 4C 44 41 20 23 24 31 42 3A 53 |2.....LDA #$1B:S| 000000E0: 54 41 20 24 44 30 31 31 3A 4C 44 41 20 23 24 34 |TA $D011:LDA #$4| 000000F0: 30 3A 53 54 41 20 24 43 33 32 45 00 25 09 96 00 |0:STA $C32E.%...| 00000100: 4C 44 41 20 23 24 30 30 3A 53 54 41 20 54 45 58 |LDA #$00:STA TEX| 00000110: 54 3A 4C 44 41 20 23 24 36 30 3A 53 54 41 20 54 |T:LDA #$60:STA T| 00000120: 45 58 54 AA 31 00 46 09 A0 00 4C 44 41 20 23 24 |EXT.1.F...LDA #$| 00000130: 39 33 3A 4A 53 52 20 24 46 46 44 32 3A 4A 53 52 |93:JSR $FFD2:JSR| 00000140: 20 24 34 35 30 30 00 5C 09 AA 00 43 4C 49 3A 48 | $4500.\...CLI:H| 00000150: 4F 4C 44 20 4A 4D 50 20 48 4F 4C 44 00 76 09 E8 |OLD JMP HOLD.v..| 00000160: 03 49 31 20 4C 44 41 20 23 24 31 42 3A 53 54 41 |.I1 LDA #$1B:STA| 00000170: 20 24 44 30 31 31 00 A6 09 F2 03 4C 44 41 20 23 | $D011.....LDA #| 00000180: 24 37 36 3A 53 54 41 20 24 30 31 3A 4A 53 52 20 |$76:STA $01:JSR | 00000190: 24 42 44 45 34 3A 4C 44 41 20 23 24 37 37 3A 53 |$BDE4:LDA #$77:S| 000001A0: 54 41 20 24 30 31 00 D0 09 FC 03 4C 44 41 20 23 |TA $01.....LDA #| 000001B0: B3 49 32 3A 53 54 41 20 24 30 33 31 34 3A 4C 44 |.I2:STA $0314:LD| 000001C0: 41 20 23 B1 49 32 3A 53 54 41 20 24 30 33 31 35 |A #.I2:STA $0315| 000001D0: 00 04 0A 06 04 4C 44 41 20 23 24 30 31 3A 53 54 |.....LDA #$01:ST| 000001E0: 41 20 24 44 30 31 39 3A 4C 44 41 20 23 24 33 37 |A $D019:LDA #$37| 000001F0: 3A 53 54 41 20 24 44 30 31 32 3A 4A 4D 50 20 24 |:STA $D012:JMP $| 00000200: 46 45 42 43 00 24 0A D0 07 49 32 20 4C 44 58 20 |FEBC.$...I2 LDX | 00000210: 23 24 30 36 3A 49 32 41 20 44 45 58 3A 42 50 4C |#$06:I2A DEX:BPL| 00000220: 20 49 32 41 00 45 0A DA 07 4C 44 41 20 23 24 30 | I2A.E...LDA #$0| 00000230: 37 3A 53 54 41 20 24 44 30 32 30 3A 53 54 41 20 |7:STA $D020:STA | 00000240: 24 44 30 32 31 00 78 0A E4 07 4C 44 58 20 23 24 |$D021.x...LDX #$| 00000250: 30 45 3A 49 32 42 20 4C 44 41 20 43 B0 31 2C 58 |0E:I2B LDA C.1,X| 00000260: 3A 53 54 41 20 24 44 30 30 30 2C 58 3A 44 45 58 |:STA $D000,X:DEX| 00000270: 3A 42 50 4C 20 49 32 42 00 9E 0A F8 07 4C 44 41 |:BPL I2B.....LDA| 00000280: 20 23 24 45 44 3A 4C 44 58 20 23 24 30 30 3A 49 | #$ED:LDX #$00:I| 00000290: 32 43 20 53 54 41 20 24 30 37 46 38 2C 58 00 E5 |2C STA $07F8,X..| 000002A0: 0A 02 08 4C 44 41 20 23 24 30 32 3A 53 54 41 20 |...LDA #$02:STA | 000002B0: 24 44 30 32 37 2C 58 3A 4C 44 41 20 24 30 37 46 |$D027,X:LDA $07F| 000002C0: 38 2C 58 3A 43 4C 43 3A 41 44 43 20 23 24 30 31 |8,X:CLC:ADC #$01| 000002D0: 3A 49 4E 58 3A 43 50 58 20 23 24 30 37 3A 42 43 |:INX:CPX #$07:BC| 000002E0: 43 20 49 32 43 00 23 0B 0C 08 4C 44 41 20 23 24 |C I2C.#...LDA #$| 000002F0: 30 30 3A 53 54 41 20 24 44 30 31 37 3A 53 54 41 |00:STA $D017:STA| 00000300: 20 24 44 30 31 44 3A 53 54 41 20 24 44 30 31 30 | $D01D:STA $D010| 00000310: 3A 4C 44 41 20 23 24 37 46 3A 53 54 41 20 24 44 |:LDA #$7F:STA $D| 00000320: 30 31 35 00 4D 0B 16 08 4C 44 41 20 23 B3 49 33 |015.M...LDA #.I3| 00000330: 3A 53 54 41 20 24 30 33 31 34 3A 4C 44 41 20 23 |:STA $0314:LDA #| 00000340: B1 49 33 3A 53 54 41 20 24 30 33 31 35 00 81 0B |.I3:STA $0315...| 00000350: 20 08 4C 44 41 20 23 24 30 31 3A 53 54 41 20 24 | .LDA #$01:STA $| 00000360: 44 30 31 39 3A 4C 44 41 20 23 24 35 32 3A 53 54 |D019:LDA #$52:ST| 00000370: 41 20 24 44 30 31 32 3A 4A 4D 50 20 24 46 45 42 |A $D012:JMP $FEB| 00000380: 43 00 B7 0B B8 0B 49 33 20 4C 44 58 20 23 24 30 |C.....I3 LDX #$0| 00000390: 38 3A 49 33 41 20 4C 44 41 20 43 B0 32 2C 58 3A |8:I3A LDA C.2,X:| 000003A0: 53 54 41 20 24 44 30 30 30 2C 58 3A 44 45 58 3A |STA $D000,X:DEX:| 000003B0: 42 43 43 20 49 33 41 00 FF 0B C2 0B 4C 44 41 20 |BCC I3A.....LDA | 000003C0: 23 24 46 34 3A 4C 44 58 20 23 24 30 30 3A 49 33 |#$F4:LDX #$00:I3| 000003D0: 42 20 53 54 41 20 24 30 37 46 38 2C 58 3A 43 4C |B STA $07F8,X:CL| 000003E0: 43 3A 41 44 43 20 23 24 30 31 3A 49 4E 58 3A 43 |C:ADC #$01:INX:C| 000003F0: 50 58 20 23 24 30 34 3A 42 43 43 20 49 33 42 00 |PX #$04:BCC I3B.| 00000400: 16 0C CC 0B 4C 44 41 20 23 24 30 46 3A 53 54 41 |....LDA #$0F:STA| 00000410: 20 24 44 30 31 35 00 40 0C D6 0B 4C 44 41 20 23 | $D015.@...LDA #| 00000420: B3 49 34 3A 53 54 41 20 24 30 33 31 34 3A 4C 44 |.I4:STA $0314:LD| 00000430: 41 20 23 B1 49 34 3A 53 54 41 20 24 30 33 31 35 |A #.I4:STA $0315| 00000440: 00 74 0C E0 0B 4C 44 41 20 23 24 30 31 3A 53 54 |.t...LDA #$01:ST| 00000450: 41 20 24 44 30 31 39 3A 4C 44 41 20 23 24 37 30 |A $D019:LDA #$70| 00000460: 3A 53 54 41 20 24 44 30 31 32 3A 4A 4D 50 20 24 |:STA $D012:JMP $| 00000470: 46 45 42 43 00 B2 0C AC 0D 43 B0 31 20 2E 42 59 |FEBC.....C.1 .BY| 00000480: 54 20 31 30 35 2C 36 30 2C 31 32 38 2C 36 30 2C |T 105,60,128,60,| 00000490: 31 34 38 2C 36 30 2C 31 37 30 2C 36 30 2C 31 39 |148,60,170,60,19| 000004A0: 34 2C 36 30 2C 32 31 36 2C 36 30 2C 32 34 30 2C |4,60,216,60,240,| 000004B0: 36 30 00 DB 0C B6 0D 43 B0 32 20 2E 42 59 54 20 |60.....C.2 .BYT | 000004C0: 31 33 39 2C 38 35 2C 31 36 34 2C 38 35 2C 31 38 |139,85,164,85,18| 000004D0: 36 2C 38 35 2C 32 31 30 2C 38 35 00 FB 0C A0 0F |6,85,210,85.....| 000004E0: 49 34 20 4C 44 58 20 23 24 30 36 3A 49 34 41 20 |I4 LDX #$06:I4A | 000004F0: 44 45 58 3A 42 50 4C 20 49 34 41 00 2E 0D AA 0F |DEX:BPL I4A.....| 00000500: 4C 44 41 20 23 24 30 30 3A 53 54 41 20 24 44 30 |LDA #$00:STA $D0| 00000510: 32 30 3A 53 54 41 20 24 44 30 32 31 3A 4C 44 58 |20:STA $D021:LDX| 00000520: 20 23 24 30 30 3A 4C 44 41 20 23 24 32 39 00 68 | #$00:LDA #$29.h| 00000530: 0D B4 0F 49 34 42 20 53 54 41 20 24 44 30 30 30 |...I4B STA $D000| 00000540: 2C 58 3A 43 4C 43 3A 41 44 43 20 23 24 33 30 3A |,X:CLC:ADC #$30:| 00000550: 49 4E 58 3A 49 4E 58 3A 43 50 58 20 23 24 31 30 |INX:INX:CPX #$10| 00000560: 3A 42 43 43 20 49 34 42 00 B1 0D BE 0F 4C 44 41 |:BCC I4B.....LDA| 00000570: 20 23 24 46 46 3A 53 54 41 20 24 44 30 30 31 3A | #$FF:STA $D001:| 00000580: 53 54 41 20 24 44 30 30 33 3A 53 54 41 20 24 44 |STA $D003:STA $D| 00000590: 30 30 35 3A 53 54 41 20 24 44 30 30 37 3A 53 54 |005:STA $D007:ST| 000005A0: 41 20 24 44 30 30 39 3A 53 54 41 20 24 44 30 30 |A $D009:STA $D00| 000005B0: 42 00 C9 0D C8 0F 53 54 41 20 24 44 30 30 44 3A |B.....STA $D00D:| 000005C0: 53 54 41 20 24 44 30 30 46 00 F3 0D D2 0F 4C 44 |STA $D00F.....LD| 000005D0: 41 20 23 24 46 31 3A 53 54 41 20 24 44 30 30 30 |A #$F1:STA $D000| 000005E0: 3A 4C 44 41 20 23 24 43 31 3A 53 54 41 20 24 44 |:LDA #$C1:STA $D| 000005F0: 30 31 30 00 3B 0E DC 0F 4C 44 41 20 23 24 46 38 |010.;...LDA #$F8| 00000600: 3A 4C 44 58 20 23 24 30 30 3A 49 34 43 20 53 54 |:LDX #$00:I4C ST| 00000610: 41 20 24 30 37 46 38 2C 58 3A 43 4C 43 3A 41 44 |A $07F8,X:CLC:AD| 00000620: 43 20 23 24 30 31 3A 49 4E 58 3A 43 50 58 20 23 |C #$01:INX:CPX #| 00000630: 24 30 38 3A 42 43 43 20 49 34 43 00 76 0E E6 0F |$08:BCC I4C.v...| 00000640: 4C 44 41 20 23 24 30 37 3A 4C 44 58 20 23 24 30 |LDA #$07:LDX #$0| 00000650: 30 3A 49 34 44 20 53 54 41 20 24 44 30 32 37 2C |0:I4D STA $D027,| 00000660: 58 3A 49 4E 58 3A 43 50 58 20 23 24 30 38 3A 42 |X:INX:CPX #$08:B| 00000670: 43 43 20 49 34 44 00 97 0E F0 0F 4C 44 41 20 23 |CC I4D.....LDA #| 00000680: 24 46 46 3A 53 54 41 20 24 44 30 31 44 3A 53 54 |$FF:STA $D01D:ST| 00000690: 41 20 24 44 30 31 35 00 C1 0E FA 0F 4C 44 41 20 |A $D015.....LDA | 000006A0: 23 B3 49 35 3A 53 54 41 20 24 30 33 31 34 3A 4C |#.I5:STA $0314:L| 000006B0: 44 41 20 23 B1 49 35 3A 53 54 41 20 24 30 33 31 |DA #.I5:STA $031| 000006C0: 35 00 F5 0E 04 10 4C 44 41 20 23 24 30 31 3A 53 |5.....LDA #$01:S| 000006D0: 54 41 20 24 44 30 31 39 3A 4C 44 41 20 23 24 39 |TA $D019:LDA #$9| 000006E0: 30 3A 53 54 41 20 24 44 30 31 32 3A 4A 4D 50 20 |0:STA $D012:JMP | 000006F0: 24 46 45 42 43 00 07 0F 88 13 49 35 20 4A 53 52 |$FEBC.....I5 JSR| 00000700: 20 53 43 52 4F 4C 4C 00 31 0F 92 13 4C 44 41 20 | SCROLL.1...LDA | 00000710: 23 B3 49 37 3A 53 54 41 20 24 30 33 31 34 3A 4C |#.I7:STA $0314:L| 00000720: 44 41 20 23 B1 49 37 3A 53 54 41 20 24 30 33 31 |DA #.I7:STA $031| 00000730: 35 00 65 0F 9C 13 4C 44 41 20 23 24 30 31 3A 53 |5.e...LDA #$01:S| 00000740: 54 41 20 24 44 30 31 39 3A 4C 44 41 20 23 24 46 |TA $D019:LDA #$F| 00000750: 39 3A 53 54 41 20 24 44 30 31 32 3A 4A 4D 50 20 |9:STA $D012:JMP | 00000760: 24 46 45 42 43 00 9E 0F EC 13 53 43 52 4F 4C 4C |$FEBC.....SCROLL| 00000770: 20 44 45 43 20 43 4F 55 4E 54 3A 42 50 4C 20 53 | DEC COUNT:BPL S| 00000780: 43 31 3A 4C 44 41 20 23 24 30 37 3A 53 54 41 20 |C1:LDA #$07:STA | 00000790: 43 4F 55 4E 54 3A 4A 53 52 20 50 4C 41 43 00 D0 |COUNT:JSR PLAC..| 000007A0: 0F F6 13 53 43 31 20 4C 44 58 20 23 24 33 30 3A |...SC1 LDX #$30:| 000007B0: 4C 44 59 20 23 24 30 37 3A 53 43 32 20 4C 44 41 |LDY #$07:SC2 LDA| 000007C0: 20 83 2C 59 3A 41 53 4C 3A 53 54 41 20 83 2C 59 | .,Y:ASL:STA .,Y| 000007D0: 00 F8 0F 00 14 52 4F 4C 20 24 33 46 43 32 2C 58 |.....ROL $3FC2,X| 000007E0: 3A 52 4F 4C 20 24 33 46 43 31 2C 58 3A 52 4F 4C |:ROL $3FC1,X:ROL| 000007F0: 20 24 33 46 43 30 2C 58 00 20 10 0A 14 52 4F 4C | $3FC0,X. ...ROL| 00000800: 20 24 33 46 38 32 2C 58 3A 52 4F 4C 20 24 33 46 | $3F82,X:ROL $3F| 00000810: 38 31 2C 58 3A 52 4F 4C 20 24 33 46 38 30 2C 58 |81,X:ROL $3F80,X| 00000820: 00 48 10 14 14 52 4F 4C 20 24 33 46 34 32 2C 58 |.H...ROL $3F42,X| 00000830: 3A 52 4F 4C 20 24 33 46 34 31 2C 58 3A 52 4F 4C |:ROL $3F41,X:ROL| 00000840: 20 24 33 46 34 30 2C 58 00 70 10 1E 14 52 4F 4C | $3F40,X.p...ROL| 00000850: 20 24 33 46 30 32 2C 58 3A 52 4F 4C 20 24 33 46 | $3F02,X:ROL $3F| 00000860: 30 31 2C 58 3A 52 4F 4C 20 24 33 46 30 30 2C 58 |01,X:ROL $3F00,X| 00000870: 00 98 10 28 14 52 4F 4C 20 24 33 45 43 32 2C 58 |...(.ROL $3EC2,X| 00000880: 3A 52 4F 4C 20 24 33 45 43 31 2C 58 3A 52 4F 4C |:ROL $3EC1,X:ROL| 00000890: 20 24 33 45 43 30 2C 58 00 C0 10 32 14 52 4F 4C | $3EC0,X...2.ROL| 000008A0: 20 24 33 45 38 32 2C 58 3A 52 4F 4C 20 24 33 45 | $3E82,X:ROL $3E| 000008B0: 38 31 2C 58 3A 52 4F 4C 20 24 33 45 38 30 2C 58 |81,X:ROL $3E80,X| 000008C0: 00 E8 10 3C 14 52 4F 4C 20 24 33 45 34 32 2C 58 |...<.ROL $3E42,X| 000008D0: 3A 52 4F 4C 20 24 33 45 34 31 2C 58 3A 52 4F 4C |:ROL $3E41,X:ROL| 000008E0: 20 24 33 45 34 30 2C 58 00 10 11 46 14 52 4F 4C | $3E40,X...F.ROL| 000008F0: 20 24 33 45 30 32 2C 58 3A 52 4F 4C 20 24 33 45 | $3E02,X:ROL $3E| 00000900: 30 31 2C 58 3A 52 4F 4C 20 24 33 45 30 30 2C 58 |01,X:ROL $3E00,X| 00000910: 00 3C 11 50 14 44 45 58 3A 44 45 58 3A 44 45 58 |.<.P.DEX:DEX:DEX| 00000920: 3A 44 45 58 3A 44 45 58 3A 44 45 58 3A 44 45 59 |:DEX:DEX:DEX:DEY| 00000930: 3A 42 50 4C 20 53 43 32 3A 52 54 53 00 6D 11 B4 |:BPL SC2:RTS.m..| 00000940: 14 50 4C 41 43 20 4C 44 59 20 23 24 30 30 3A 4C |.PLAC LDY #$00:L| 00000950: 44 41 20 28 54 45 58 54 29 2C 59 3A 53 54 41 20 |DA (TEXT),Y:STA | 00000960: 54 45 4D 3A 53 54 59 20 54 45 4D AA 31 00 83 11 |TEM:STY TEM.1...| 00000970: BE 14 41 53 4C 20 54 45 4D 3A 52 4F 4C 20 54 45 |..ASL TEM:ROL TE| 00000980: 4D AA 31 00 99 11 C8 14 41 53 4C 20 54 45 4D 3A |M.1.....ASL TEM:| 00000990: 52 4F 4C 20 54 45 4D AA 31 00 AF 11 D2 14 41 53 |ROL TEM.1.....AS| 000009A0: 4C 20 54 45 4D 3A 52 4F 4C 20 54 45 4D AA 31 00 |L TEM:ROL TEM.1.| 000009B0: DD 11 DC 14 4C 44 41 20 54 45 4D AA 31 3A 43 4C |....LDA TEM.1:CL| 000009C0: 43 3A 41 44 43 20 23 24 37 30 3A 53 54 41 20 54 |C:ADC #$70:STA T| 000009D0: 45 4D AA 31 3A 4C 44 59 20 23 24 30 37 00 05 12 |EM.1:LDY #$07...| 000009E0: E6 14 50 4C 31 20 4C 44 41 20 28 54 45 4D 29 2C |..PL1 LDA (TEM),| 000009F0: 59 3A 53 54 41 20 83 2C 59 3A 44 45 59 3A 42 50 |Y:STA .,Y:DEY:BP| 00000A00: 4C 20 50 4C 31 00 4B 12 F0 14 4C 44 41 20 54 45 |L PL1.K...LDA TE| 00000A10: 58 54 3A 43 4C 43 3A 41 44 43 20 23 24 30 31 3A |XT:CLC:ADC #$01:| 00000A20: 53 54 41 20 54 45 58 54 3A 4C 44 41 20 54 45 58 |STA TEXT:LDA TEX| 00000A30: 54 AA 31 3A 41 44 43 20 23 24 30 30 3A 53 54 41 |T.1:ADC #$00:STA| 00000A40: 20 54 45 58 54 AA 31 3A 49 4E 59 00 8A 12 FA 14 | TEXT.1:INY.....| 00000A50: 4C 44 41 20 28 54 45 58 54 29 2C 59 3A 43 4D 50 |LDA (TEXT),Y:CMP| 00000A60: 20 23 24 46 46 3A 42 4E 45 20 50 4C 32 3A 53 54 | #$FF:BNE PL2:ST| 00000A70: 59 20 54 45 58 54 3A 4C 44 41 20 23 24 36 30 3A |Y TEXT:LDA #$60:| 00000A80: 53 54 41 20 54 45 58 54 AA 31 00 96 12 04 15 50 |STA TEXT.1.....P| 00000A90: 4C 32 20 52 54 53 00 A7 12 7C 15 43 4F 55 4E 54 |L2 RTS...|.COUNT| 00000AA0: 20 2C 42 59 54 20 30 00 C2 12 86 15 83 20 2E 42 | ,BYT 0...... .B| 00000AB0: 59 54 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |YT 0,0,0,0,0,0,0| 00000AC0: 2C 30 00 00 00 |,0... |
....... (9.4096)......OPT N,OO.+..... $4 000.9.(.TEXT .$FB.F.2.TEM .$FD.L.<.;.R.F .;.X.P.;.^.Z.;.F.D.SEI.}.N.LDA #$7F:STA $DC0D...X.LDA #.I1:STA $0314:LDA #.I1:ST A $0315.Q...LDA #$01:STA $D01A:LDA #$05: STA $D012.....LDA #$1B:STA $D011:LDA #$4 0:STA $C32E.%...LDA #$00:STA TEXT:LDA #$ 60:STA TEXT.1.F. .LDA #$93:JSR $FFD2:JSR $4500.\...CLI:HOLD JMP HOLD.V...I1 LDA #$1B:STA $D011.....LDA #$76:STA $01:JSR $BDE4:LDA #$77:STA $01.P...LDA #.I2:STA $0314:LDA #.I2:STA $0315.....LDA #$01:ST A $D019:LDA #$37:STA $D012:JMP $FEBC.$.P .I2 LDX #$06:I2A DEX:BPL I2A.E.Z.LDA #$0 7:STA $D020:STA $D021.X...LDX #$0E:I2B L DA C.1,X:STA $D000,X:DEX:BPL I2B.....LDA #$ED:LDX #$00:I2C STA $07F8,X.....LDA # $02:STA $D027,X:LDA $07F8,X:CLC:ADC #$01 :INX:CPX #$07:BCC I2C.#...LDA #$00:STA $ D017:STA $D01D:STA $D010:LDA #$7F:STA $D 015.M...LDA #.I3:STA $0314:LDA #.I3:STA $0315... .LDA #$01:STA $D019:LDA #$52:ST A $D012:JMP $FEBC.....I3 LDX #$08:I3A LD A C.2,X:STA $D000,X:DEX:BCC I3A...B.LDA #$F4:LDX #$00:I3B STA $07F8,X:CLC:ADC #$ 01:INX:CPX #$04:BCC I3B...L.LDA #$0F:STA $D015.@.V.LDA #.I4:STA $0314:LDA #.I4:S TA $0315.T...LDA #$01:STA $D019:LDA #$70 :STA $D012:JMP $FEBC.....C.1 .BYT 105,60 ,128,60,148,60,170,60,194,60,216,60,240, 60.....C.2 .BYT 139,85,164,85,186,85,210 ,85... .I4 LDX #$06:I4A DEX:BPL I4A..... LDA #$00:STA $D020:STA $D021:LDX #$00:LD A #$29.H...I4B STA $D000,X:CLC:ADC #$30: INX:INX:CPX #$10:BCC I4B.....LDA #$FF:ST A $D001:STA $D003:STA $D005:STA $D007:ST A $D009:STA $D00B.I.H.STA $D00D:STA $D00 F...R.LDA #$F1:STA $D000:LDA #$C1:STA $D 010.;...LDA #$F8:LDX #$00:I4C STA $07F8, X:CLC:ADC #$01:INX:CPX #$08:BCC I4C.V... LDA #$07:LDX #$00:I4D STA $D027,X:INX:CP X #$08:BCC I4D.....LDA #$FF:STA $D01D:ST A $D015.A...LDA #.I5:STA $0314:LDA #.I5: STA $0315.....LDA #$01:STA $D019:LDA #$9 0:STA $D012:JMP $FEBC.....I5 JSR SCROLL. 1...LDA #.I7:STA $0314:LDA #.I7:STA $031 5.E...LDA #$01:STA $D019:LDA #$F9:STA $D 012:JMP $FEBC.....SCROLL DEC COUNT:BPL S C1:LDA #$07:STA COUNT:JSR PLAC.P...SC1 L DX #$30:LDY #$07:SC2 LDA .,Y:ASL:STA .,Y .....ROL $3FC2,X:ROL $3FC1,X:ROL $3FC0,X . ...ROL $3F82,X:ROL $3F81,X:ROL $3F80,X .H...ROL $3F42,X:ROL $3F41,X:ROL $3F40,X .P...ROL $3F02,X:ROL $3F01,X:ROL $3F00,X ...(.ROL $3EC2,X:ROL $3EC1,X:ROL $3EC0,X ...2.ROL $3E82,X:ROL $3E81,X:ROL $3E80,X ...<.ROL $3E42,X:ROL $3E41,X:ROL $3E40,X ...F.ROL $3E02,X:ROL $3E01,X:ROL $3E00,X .<.P.DEX:DEX:DEX:DEX:DEX:DEX:DEY:BPL SC2 :RTS.M...PLAC LDY #$00:LDA (TEXT),Y:STA TEM:STY TEM.1.....ASL TEM:ROL TEM.1...H. ASL TEM:ROL TEM.1...R.ASL TEM:ROL TEM.1. ....LDA TEM.1:CLC:ADC #$70:STA TEM.1:LDY #$07.....PL1 LDA (TEM),Y:STA .,Y:DEY:BP L PL1.K...LDA TEXT:CLC:ADC #$01:STA TEXT :LDA TEXT.1:ADC #$00:STA TEXT.1:INY..... LDA (TEXT),Y:CMP #$FF:BNE PL2:STY TEXT:L DA #$60:STA TEXT.1.....PL2 RTS...|.COUNT ,BYT 0.B.... .BYT 0,0,0,0,0,0,0,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL