A
FILE INFORMATION
FILENAME(S): A
FILE TYPE(S): DEL
FILE SIZE: 9.5K
FIRST SEEN: 2025-12-02 00:15:44
APPEARS ON: 1 disk(s)
FILE HASH
a16f38ba8dcd2050d57ebd9a82bbea094e34d3246eed30a82dc65e7a9f10f84a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MUSIC BY CHRIS | A | DEL | Maestro | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |.;``````````````| 00000010: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000020: 60 60 60 60 60 60 60 60 60 0D 3B 20 56 4E 33 31 |`````````.; VN31| 00000030: 20 49 4E 54 52 4F 20 56 30 2E 31 20 32 37 2F 31 | INTRO V0.1 27/1| 00000040: 30 2F 39 38 20 43 41 53 45 2F 43 41 42 41 4E 41 |0/98 CASE/CABANA| 00000050: 20 3B 0D 20 20 20 20 20 20 20 20 20 3B 50 41 52 | ;. ;PAR| 00000060: 54 20 32 0D 4D 55 53 49 43 49 4E 49 54 20 3D 20 |T 2.MUSICINIT = | 00000070: 24 31 30 30 30 0D 4D 55 53 49 43 50 4C 41 59 20 |$1000.MUSICPLAY | 00000080: 3D 20 24 31 30 30 33 0D 42 49 54 53 43 52 20 20 |= $1003.BITSCR | 00000090: 20 3D 20 24 34 32 30 30 0D 42 49 54 43 4F 4C 20 | = $4200.BITCOL | 000000A0: 20 20 3D 20 24 34 30 30 30 0D 53 43 52 4C 20 20 | = $4000.SCRL | 000000B0: 20 20 20 3D 20 24 41 41 0D 53 43 52 53 20 20 20 | = $AA.SCRS | 000000C0: 20 20 3D 20 53 43 52 4C 2B 33 32 37 37 30 0D 43 | = SCRL+32770.C| 000000D0: 4F 4C 4C 20 20 20 20 20 3D 20 53 43 52 53 2B 33 |OLL = SCRS+3| 000000E0: 32 37 37 30 0D 43 4F 4C 53 20 20 20 20 20 3D 20 |2770.COLS = | 000000F0: 43 4F 4C 4C 2B 33 32 37 37 30 0D 42 43 20 20 20 |COLL+32770.BC | 00000100: 20 20 20 20 3D 20 33 32 37 36 38 0D 53 50 53 49 | = 32768.SPSI| 00000110: 4E 55 53 20 20 3D 20 24 34 45 30 30 0D 53 50 54 |NUS = $4E00.SPT| 00000120: 58 54 20 20 20 20 3D 20 24 35 34 30 30 0D 3B 60 |XT = $5400.;`| 00000130: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000140: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000150: 60 60 60 60 60 60 0D 20 20 20 20 20 20 20 20 20 |``````. | 00000160: 2A 3D 20 24 30 42 30 30 0D 20 20 20 20 20 20 20 |*= $0B00. | 00000170: 20 20 4C 44 58 20 23 24 30 30 0D 20 20 20 20 20 | LDX #$00. | 00000180: 20 20 20 20 4C 44 41 20 23 42 43 0D 5A 41 50 20 | LDA #BC.ZAP | 00000190: 20 20 20 20 20 53 54 41 20 24 30 34 30 30 2C 58 | STA $0400,X| 000001A0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 |. STA $0| 000001B0: 35 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |500,X. S| 000001C0: 54 41 20 24 30 36 30 30 2C 58 0D 20 20 20 20 20 |TA $0600,X. | 000001D0: 20 20 20 20 53 54 41 20 24 30 37 30 30 2C 58 0D | STA $0700,X.| 000001E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 38 | STA $D8| 000001F0: 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |00,X. ST| 00000200: 41 20 24 44 39 30 30 2C 58 0D 20 20 20 20 20 20 |A $D900,X. | 00000210: 20 20 20 53 54 41 20 24 44 41 30 30 2C 58 0D 20 | STA $DA00,X. | 00000220: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 42 30 | STA $DB0| 00000230: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 44 45 58 |0,X. DEX| 00000240: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 5A 41 |. BNE ZA| 00000250: 50 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |P.. LDX | 00000260: 23 33 32 38 30 37 0D 20 20 20 20 20 20 20 20 20 |#32807. | 00000270: 53 54 58 20 58 43 4F 55 4E 54 0D 20 20 20 20 20 |STX XCOUNT. | 00000280: 20 20 20 20 4C 44 41 20 23 33 32 37 39 32 0D 20 | LDA #32792. | 00000290: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 000002A0: 38 0D 0D 20 20 20 20 20 20 20 20 20 3B C0 C0 20 |8.. ;.. | 000002B0: 52 45 4D 4F 56 45 20 49 4E 20 46 49 4E 41 4C 20 |REMOVE IN FINAL | 000002C0: 56 45 52 53 49 4F 4E 0D 20 20 20 20 20 20 20 20 |VERSION. | 000002D0: 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 | LDA #$00. | 000002E0: 20 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 | STA $D020. | 000002F0: 20 20 20 20 20 20 53 54 41 20 24 44 30 41 31 0D | STA $D0A1.| 00000300: 20 20 20 20 20 20 20 20 20 54 41 58 0D 20 20 20 | TAX. | 00000310: 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 | TAY. | 00000320: 20 20 20 4A 53 52 20 4D 55 53 49 43 49 4E 49 54 | JSR MUSICINIT| 00000330: 0D 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 |. SEI. | 00000340: 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 46 0D | LDA #$2F.| 00000350: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 33 | LDY #$3| 00000360: 35 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |5. STA $| 00000370: 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |00. STY | 00000380: 24 30 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$01. LDA| 00000390: 20 23 24 37 46 0D 20 20 20 20 20 20 20 20 20 53 | #$7F. S| 000003A0: 54 41 20 24 44 43 30 44 0D 20 20 20 20 20 20 20 |TA $DC0D. | 000003B0: 20 20 4C 44 41 20 24 44 43 30 44 0D 20 20 20 20 | LDA $DC0D. | 000003C0: 20 20 20 20 20 4C 44 41 20 23 24 38 31 0D 20 20 | LDA #$81. | 000003D0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 41 | STA $D01A| 000003E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C |. LDA #<| 000003F0: 52 45 53 54 4F 52 45 0D 20 20 20 20 20 20 20 20 |RESTORE. | 00000400: 20 4C 44 59 20 23 3E 52 45 53 54 4F 52 45 0D 20 | LDY #>RESTORE. | 00000410: 20 20 20 20 20 20 20 20 53 54 41 20 24 46 46 46 | STA $FFF| 00000420: 41 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 24 |A. STY $| 00000430: 46 46 46 42 0D 20 20 20 20 20 20 20 20 20 4C 44 |FFFB. LD| 00000440: 41 20 23 24 30 31 0D 20 20 20 20 20 20 20 20 20 |A #$01. | 00000450: 53 54 41 20 24 44 30 31 32 0D 20 20 20 20 20 20 |STA $D012. | 00000460: 20 20 20 4C 44 41 20 23 3C 42 49 52 51 31 0D 20 | LDA #<BIRQ1. | 00000470: 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 42 49 | LDY #>BI| 00000480: 52 51 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |RQ1. STA| 00000490: 20 24 46 46 46 45 0D 20 20 20 20 20 20 20 20 20 | $FFFE. | 000004A0: 53 54 59 20 24 46 46 46 46 0D 20 20 20 20 20 20 |STY $FFFF. | 000004B0: 20 20 20 43 4C 49 0D 0D 20 20 20 20 20 20 20 20 | CLI.. | 000004C0: 20 4A 53 52 20 53 45 54 44 59 53 50 0D 20 20 20 | JSR SETDYSP. | 000004D0: 20 20 20 20 20 20 4A 53 52 20 50 4C 4F 54 4F 4E | JSR PLOTON| 000004E0: 0D 57 41 49 54 20 20 20 20 20 4A 4D 50 20 57 41 |.WAIT JMP WA| 000004F0: 49 54 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |IT.. LDA| 00000500: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 | #$00. S| 00000510: 54 41 20 58 43 4F 55 4E 54 0D 0D 57 48 57 20 20 |TA XCOUNT..WHW | 00000520: 20 20 20 20 4C 44 41 20 24 44 43 30 31 0D 20 20 | LDA $DC01. | 00000530: 20 20 20 20 20 20 20 41 4E 44 20 23 24 31 30 0D | AND #$10.| 00000540: 20 20 20 20 20 20 20 20 20 42 4E 45 20 57 48 57 | BNE WHW| 00000550: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 50 4C |. JSR PL| 00000560: 4F 54 4F 46 46 0D 57 41 49 54 31 20 20 20 20 4A |OTOFF.WAIT1 J| 00000570: 4D 50 20 57 41 49 54 31 0D 3B 60 60 60 60 60 60 |MP WAIT1.;``````| 00000580: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000590: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000005A0: 60 0D 52 45 53 54 4F 52 45 20 20 3B 52 54 49 0D |`.RESTORE ;RTI.| 000005B0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 39 30 | JMP $90| 000005C0: 30 30 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 |00.;````````````| 000005D0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000005E0: 60 60 60 60 60 60 60 60 60 60 60 0D 42 59 54 45 |```````````.BYTE| 000005F0: 30 20 20 20 20 4C 44 58 20 23 24 46 46 0D 20 20 |0 LDX #$FF. | 00000600: 20 20 20 20 20 20 20 4C 44 59 20 23 24 46 46 0D | LDY #$FF.| 00000610: 20 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 | DEY. | 00000620: 20 20 20 20 20 20 42 4E 45 20 2A 2D 33 32 37 36 | BNE *-3276| 00000630: 39 0D 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 |9. DEX. | 00000640: 20 20 20 20 20 20 20 20 42 4E 45 20 42 59 54 45 | BNE BYTE| 00000650: 30 2B 33 32 37 37 30 0D 20 20 20 20 20 20 20 20 |0+32770. | 00000660: 20 52 54 53 0D 3B 60 60 60 60 60 60 60 60 60 60 | RTS.;``````````| 00000670: E0 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |.```````````````| 00000680: 60 60 60 60 60 60 60 60 60 60 60 60 60 0D 49 52 |`````````````.IR| 00000690: 51 50 52 4F 43 45 53 53 0D 20 20 20 20 20 20 20 |QPROCESS. | 000006A0: 20 20 53 54 58 20 24 44 30 31 32 0D 20 20 20 20 | STX $D012. | 000006B0: 20 20 20 20 20 53 54 41 20 24 46 46 46 45 0D 20 | STA $FFFE. | 000006C0: 20 20 20 20 20 20 20 20 53 54 59 20 24 46 46 46 | STY $FFF| 000006D0: 46 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 41 |F. LDA A| 000006E0: 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 4C 44 |BYTE. LD| 000006F0: 58 20 58 42 59 54 45 0D 20 20 20 20 20 20 20 20 |X XBYTE. | 00000700: 20 4C 44 59 20 59 42 0D 20 20 20 20 20 20 20 20 | LDY YB. | 00000710: 20 52 54 49 0D 3B 60 60 60 60 60 60 60 60 60 60 | RTI.;``````````| 00000720: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000730: 60 60 60 60 60 60 60 60 60 60 60 60 60 0D 42 49 |`````````````.BI| 00000740: 52 51 31 20 20 20 20 53 54 41 20 41 42 59 54 45 |RQ1 STA ABYTE| 00000750: 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 58 42 |. STX XB| 00000760: 59 54 45 0D 20 20 20 20 20 20 20 20 20 53 54 59 |YTE. STY| 00000770: 20 59 42 0D 20 20 20 20 20 20 20 20 20 41 53 4C | YB. ASL| 00000780: 20 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 20 | $D019. | 00000790: 4C 44 41 20 23 24 31 42 0D 20 20 20 20 20 20 20 |LDA #$1B. | 000007A0: 20 20 53 54 41 20 24 44 30 31 31 0D 20 20 20 20 | STA $D011. | 000007B0: 20 20 20 20 20 4C 44 58 20 23 24 33 32 0D 20 20 | LDX #$32. | 000007C0: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 49 4E 49 | LDA #<INI| 000007D0: 54 53 50 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |TSP. LDY| 000007E0: 20 23 3E 49 4E 49 54 53 50 0D 20 20 20 20 20 20 | #>INITSP. | 000007F0: 20 20 20 4A 4D 50 20 49 52 51 50 52 4F 43 45 53 | JMP IRQPROCES| 00000800: 53 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 60 |S.;`````````````| 00000810: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000820: 60 60 60 60 60 60 60 60 60 60 0D 49 4E 49 54 53 |``````````.INITS| 00000830: 50 20 20 20 53 54 41 20 41 42 59 54 45 0D 20 20 |P STA ABYTE. | 00000840: 20 20 20 20 20 20 20 53 54 58 20 58 42 59 54 45 | STX XBYTE| 00000850: 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 59 42 |. STY YB| 00000860: 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 24 44 |. ASL $D| 00000870: 30 31 39 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |019. LDA| 00000880: 20 23 24 31 42 0D 20 20 20 20 20 20 20 20 20 53 | #$1B. S| 00000890: 54 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 |TA $D011. | 000008A0: 20 20 4A 53 52 20 44 59 53 50 0D 20 20 20 20 20 | JSR DYSP. | 000008B0: 20 20 20 20 4C 44 58 20 23 24 36 38 0D 20 20 20 | LDX #$68. | 000008C0: 20 20 20 20 20 20 4C 44 41 20 23 3C 42 49 52 51 | LDA #<BIRQ| 000008D0: 33 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |3. LDY #| 000008E0: 3E 42 49 52 51 33 0D 20 20 20 20 20 20 20 20 20 |>BIRQ3. | 000008F0: 4A 4D 50 20 49 52 51 50 52 4F 43 45 53 53 0D 3B |JMP IRQPROCESS.;| 00000900: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000910: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000920: 60 60 60 60 60 60 60 0D 42 49 52 51 33 20 20 20 |```````.BIRQ3 | 00000930: 20 53 54 41 20 41 42 59 54 45 0D 20 20 20 20 20 | STA ABYTE. | 00000940: 20 20 20 20 53 54 58 20 58 42 59 54 45 0D 20 20 | STX XBYTE. | 00000950: 20 20 20 20 20 20 20 53 54 59 20 59 42 0D 20 20 | STY YB. | 00000960: 20 20 20 20 20 20 20 41 53 4C 20 24 44 30 31 39 | ASL $D019| 00000970: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 25 |. LDA #%| 00000980: 30 30 30 30 30 30 30 30 0D 20 20 20 20 20 20 20 |00000000. | 00000990: 20 20 53 54 41 20 24 44 30 31 35 0D 20 20 20 20 | STA $D015. | 000009A0: 20 20 20 20 20 4C 44 41 20 23 24 33 42 0D 20 20 | LDA #$3B. | 000009B0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 31 | STA $D011| 000009C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 33 |. LDA #3| 000009D0: 32 39 38 34 0D 20 20 20 20 20 20 20 20 20 53 54 |2984. ST| 000009E0: 41 20 24 44 30 31 36 0D 20 20 20 20 20 20 20 20 |A $D016. | 000009F0: 20 4C 44 41 20 23 33 32 37 39 32 0D 20 20 20 20 | LDA #32792. | 00000A00: 20 20 20 20 20 53 54 41 20 24 44 30 31 38 0D 20 | STA $D018. | 00000A10: 20 20 20 20 20 20 20 20 4A 53 52 20 24 31 30 30 | JSR $100| 00000A20: 33 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |3. LDX #| 00000A30: 24 43 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$C0. LDA| 00000A40: 20 23 3C 42 49 52 51 34 0D 20 20 20 20 20 20 20 | #<BIRQ4. | 00000A50: 20 20 4C 44 59 20 23 3E 42 49 52 51 34 0D 20 20 | LDY #>BIRQ4. | 00000A60: 20 20 20 20 20 20 20 4A 4D 50 20 49 52 51 50 52 | JMP IRQPR| 00000A70: 4F 43 45 53 53 0D 3B 60 60 60 60 60 60 60 60 60 |OCESS.;`````````| 00000A80: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000A90: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 0D 42 |``````````````.B| 00000AA0: 49 52 51 34 20 20 20 20 53 54 41 20 41 42 59 54 |IRQ4 STA ABYT| 00000AB0: 45 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 58 |E. STX X| 00000AC0: 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 53 54 |BYTE. ST| 00000AD0: 59 20 59 42 0D 20 20 20 20 20 20 20 20 20 41 53 |Y YB. AS| 00000AE0: 4C 20 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 |L $D019. | 00000AF0: 20 4C 44 41 20 23 24 31 42 0D 20 20 20 20 20 20 | LDA #$1B. | 00000B00: 20 20 20 53 54 41 20 24 44 30 31 31 0D 20 20 20 | STA $D011. | 00000B10: 20 20 20 20 20 20 4C 44 41 20 23 33 32 39 36 38 | LDA #32968| 00000B20: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000B30: 30 31 36 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |016. LDA| 00000B40: 20 23 25 31 31 31 31 31 31 31 31 0D 20 20 20 20 | #%11111111. | 00000B50: 20 20 20 20 20 53 54 41 20 24 44 30 31 35 0D 20 | STA $D015. | 00000B60: 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 46 38 | LDX #$F8| 00000B70: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C |. LDA #<| 00000B80: 59 42 59 54 45 0D 20 20 20 20 20 20 20 20 20 4C |YBYTE. L| 00000B90: 44 59 20 23 3E 59 42 59 54 45 0D 20 20 20 20 20 |DY #>YBYTE. | 00000BA0: 20 20 20 20 4A 4D 50 20 49 52 51 50 52 4F 43 45 | JMP IRQPROCE| 00000BB0: 53 53 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 |SS.;````````````| 00000BC0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000BD0: 60 60 60 60 60 60 60 60 60 60 60 0D 59 42 59 54 |```````````.YBYT| 00000BE0: 45 20 20 20 20 53 54 41 20 41 42 59 54 45 0D 20 |E STA ABYTE. | 00000BF0: 20 20 20 20 20 20 20 20 53 54 58 20 58 42 59 54 | STX XBYT| 00000C00: 45 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 20 |E. STY | 00000C10: 10 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 24 |.. ASL $| 00000C20: 44 30 31 39 0D 0D 20 20 20 20 20 20 20 20 20 4C |D019.. L| 00000C30: 44 41 20 23 24 31 33 0D 20 20 20 20 20 20 20 20 |DA #$13. | 00000C40: 20 53 54 41 20 24 44 30 31 31 0D 0D 20 20 20 20 | STA $D011.. | 00000C50: 20 20 20 20 20 4C 44 58 20 23 24 30 31 0D 20 20 | LDX #$01. | 00000C60: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 42 49 52 | LDA #<BIR| 00000C70: 51 31 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |Q1. LDY | 00000C80: 23 3E 42 49 52 51 31 0D 20 20 20 20 20 20 20 20 |#>BIRQ1. | 00000C90: 20 4A 4D 50 20 49 52 51 50 52 4F 43 45 53 53 0D | JMP IRQPROCESS.| 00000CA0: 3B 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |;```````````````| 00000CB0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000CC0: 60 60 60 60 60 60 60 60 0D 0D 0D 0D 0D 0D 3B 60 |````````......;`| 00000CD0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000CE0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000CF0: 60 60 60 60 60 60 0D 20 20 20 20 20 20 20 20 20 |``````. | 00000D00: 3B 50 4C 4F 54 4F 4E 3D 42 49 54 4D 41 50 4F 4E |;PLOTON=BITMAPON| 00000D10: 0D 20 20 20 20 20 20 20 20 20 3B 50 4C 4F 54 54 |. ;PLOTT| 00000D20: 4F 46 46 3D 42 49 54 4D 41 50 4F 46 46 0D 20 20 |OFF=BITMAPOFF. | 00000D30: 20 20 20 20 20 20 20 3B 44 59 53 50 3D 44 59 53 | ;DYSP=DYS| 00000D40: 50 0D 20 20 20 20 20 20 20 20 20 3B 49 4E 49 54 |P. ;INIT| 00000D50: 53 50 52 3D 53 50 54 49 54 45 20 53 45 54 55 50 |SPR=SPTITE SETUP| 00000D60: 0D 3B 60 60 E0 60 60 60 60 60 60 60 60 60 60 60 |.;``.```````````| 00000D70: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000D80: 60 60 60 60 60 60 60 60 60 0D 50 4C 4F 54 4F 4E |`````````.PLOTON| 00000D90: 20 20 20 4C 44 41 20 59 43 4F 55 4E 54 0D 20 20 | LDA YCOUNT. | 00000DA0: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00000DB0: 20 20 20 20 53 42 43 20 23 24 30 34 0D 20 20 20 | SBC #$04. | 00000DC0: 20 20 20 20 20 20 41 4E 44 20 23 24 30 37 0D 20 | AND #$07. | 00000DD0: 20 20 20 20 20 20 20 20 53 54 41 20 59 43 4F 55 | STA YCOU| 00000DE0: 4E 54 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 |NT. BCC | 00000DF0: 50 4C 4F 54 4F 4E 31 0D 20 20 20 20 20 20 20 20 |PLOTON1. | 00000E00: 20 52 54 53 0D 50 4C 4F 54 4F 4E 31 20 20 4C 44 | RTS.PLOTON1 LD| 00000E10: 58 20 58 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 |X XCOUNT. | 00000E20: 20 20 42 4D 49 20 50 4C 4F 54 4F 4E 33 0D 20 20 | BMI PLOTON3. | 00000E30: 20 20 20 20 20 20 20 4A 53 52 20 50 4C 4F 54 43 | JSR PLOTC| 00000E40: 4F 4C 55 4D 4E 0D 20 20 20 20 20 20 20 20 20 44 |OLUMN. D| 00000E50: 45 43 20 58 43 4F 55 4E 54 0D 20 20 20 20 20 20 |EC XCOUNT. | 00000E60: 20 20 20 4C 44 58 20 23 24 31 30 0D 50 4C 4F 54 | LDX #$10.PLOT| 00000E70: 4F 4E 32 20 20 4C 44 59 20 23 24 46 46 0D 20 20 |ON2 LDY #$FF. | 00000E80: 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 | DEY. | 00000E90: 20 20 20 20 42 4E 45 20 2A 2D 33 32 37 36 39 0D | BNE *-32769.| 00000EA0: 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 | DEX. | 00000EB0: 20 20 20 20 20 20 42 4E 45 20 50 4C 4F 54 4F 4E | BNE PLOTON| 00000EC0: 32 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 50 |2. JMP P| 00000ED0: 4C 4F 54 4F 4E 31 0D 50 4C 4F 54 4F 4E 33 20 20 |LOTON1.PLOTON3 | 00000EE0: 4C 44 41 20 23 24 41 44 0D 20 20 20 20 20 20 20 |LDA #$AD. | 00000EF0: 20 20 53 54 41 20 57 41 49 54 0D 20 20 20 20 20 | STA WAIT. | 00000F00: 20 20 20 20 52 54 53 0D 3B 60 60 60 60 60 60 60 | RTS.;```````| 00000F10: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000F20: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000F30: 0D 50 4C 4F 54 4F 46 46 20 20 4C 44 41 20 59 43 |.PLOTOFF LDA YC| 00000F40: 4F 55 4E 54 0D 20 20 20 20 20 20 20 20 20 53 45 |OUNT. SE| 00000F50: 43 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 23 |C. SBC #| 00000F60: 24 30 34 0D 20 20 20 20 20 20 20 20 20 41 4E 44 |$04. AND| 00000F70: 20 23 24 30 37 0D 20 20 20 20 20 20 20 20 20 53 | #$07. S| 00000F80: 54 41 20 59 43 4F 55 4E 54 0D 20 20 20 20 20 20 |TA YCOUNT. | 00000F90: 20 20 20 42 43 43 20 50 4C 4F 54 4F 46 46 31 0D | BCC PLOTOFF1.| 00000FA0: 20 20 20 20 20 20 20 20 20 52 54 53 0D 50 4C 4F | RTS.PLO| 00000FB0: 54 4F 46 46 31 20 4C 44 59 20 23 50 4C 4F 54 43 |TOFF1 LDY #PLOTC| 00000FC0: 4F 4C 55 4D 4E 0D 20 20 20 20 20 20 20 20 20 4C |OLUMN. L| 00000FD0: 44 58 20 58 43 4F 55 4E 54 0D 20 20 20 20 20 20 |DX XCOUNT. | 00000FE0: 20 20 20 43 50 58 20 23 33 32 38 30 38 0D 20 20 | CPX #32808. | 00000FF0: 20 20 20 20 20 20 20 42 45 51 20 50 4C 4F 54 4F | BEQ PLOTO| 00001000: 46 46 33 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |FF3. INC| 00001010: 20 58 43 4F 55 4E 54 0D 20 20 20 20 20 20 20 20 | XCOUNT. | 00001020: 20 4C 44 58 20 23 24 31 30 0D 50 4C 4F 54 4F 46 | LDX #$10.PLOTOF| 00001030: 46 32 20 4C 44 59 20 23 24 46 46 0D 20 20 20 20 |F2 LDY #$FF. | 00001040: 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 | DEY. | 00001050: 20 20 42 4E 45 20 2A 2D 33 32 37 36 39 0D 20 20 | BNE *-32769. | 00001060: 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 | DEX. | 00001070: 20 20 20 20 42 4E 45 20 50 4C 4F 54 4F 46 46 32 | BNE PLOTOFF2| 00001080: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 50 4C |. JMP PL| 00001090: 4F 54 4F 46 46 31 0D 50 4C 4F 54 4F 46 46 33 20 |OTOFF1.PLOTOFF3 | 000010A0: 4C 44 41 20 23 24 41 44 0D 20 20 20 20 20 20 20 |LDA #$AD. | 000010B0: 20 20 53 54 41 20 57 41 49 54 31 0D 20 20 20 20 | STA WAIT1. | 000010C0: 20 20 20 20 20 52 54 53 0D 3B 60 60 60 60 60 60 | RTS.;``````| 000010D0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000010E0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000010F0: 60 0D 50 4C 4F 54 43 4F 4C 55 4D 4E 0D 20 20 20 |`.PLOTCOLUMN. | 00001100: 20 20 20 20 20 20 4C 44 58 20 23 3C 24 30 34 30 | LDX #<$040| 00001110: 30 2B 28 33 32 38 30 38 2A 33 32 37 37 35 29 0D |0+(32808*32775).| 00001120: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 24 | LDY #>$| 00001130: 30 34 30 30 2B 28 33 32 38 30 38 2A 33 32 37 37 |0400+(32808*3277| 00001140: 35 29 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |5). STX | 00001150: 53 43 52 53 0D 20 20 20 20 20 20 20 20 20 53 54 |SCRS. ST| 00001160: 59 20 53 43 52 53 2B 33 32 37 36 39 0D 20 20 20 |Y SCRS+32769. | 00001170: 20 20 20 20 20 20 4C 44 58 20 23 3C 42 49 54 53 | LDX #<BITS| 00001180: 43 52 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |CR. LDY | 00001190: 23 3E 42 49 54 53 43 52 0D 20 20 20 20 20 20 20 |#>BITSCR. | 000011A0: 20 20 53 54 58 20 53 43 52 4C 0D 20 20 20 20 20 | STX SCRL. | 000011B0: 20 20 20 20 53 54 59 20 53 43 52 4C 2B 33 32 37 | STY SCRL+327| 000011C0: 36 39 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |69. LDX | 000011D0: 23 3C 24 44 38 30 30 2B 28 33 32 38 30 38 2A 33 |#<$D800+(32808*3| 000011E0: 32 37 37 35 29 0D 20 20 20 20 20 20 20 20 20 4C |2775). L| 000011F0: 44 59 20 23 3E 24 44 38 30 30 2B 28 33 32 38 30 |DY #>$D800+(3280| 00001200: 38 2A 33 32 37 37 35 29 0D 20 20 20 20 20 20 20 |8*32775). | 00001210: 20 20 53 54 58 20 43 4F 4C 53 0D 20 20 20 20 20 | STX COLS. | 00001220: 20 20 20 20 53 54 59 20 43 4F 4C 53 2B 33 32 37 | STY COLS+327| 00001230: 36 39 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |69. LDX | 00001240: 23 3C 42 49 54 43 4F 4C 0D 20 20 20 20 20 20 20 |#<BITCOL. | 00001250: 20 20 4C 44 59 20 23 3E 42 49 54 43 4F 4C 0D 20 | LDY #>BITCOL. | 00001260: 20 20 20 20 20 20 20 20 53 54 58 20 43 4F 4C 4C | STX COLL| 00001270: 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 43 4F |. STY CO| 00001280: 4C 4C 2B 33 32 37 36 39 0D 20 20 20 20 20 20 20 |LL+32769. | 00001290: 20 20 4C 44 58 20 23 33 32 37 37 36 3B 48 45 49 | LDX #32776;HEI| 000012A0: 47 48 54 20 54 4F 20 50 4C 4F 54 0D 4F 54 31 20 |GHT TO PLOT.OT1 | 000012B0: 20 20 20 20 20 4C 44 59 20 58 43 4F 55 4E 54 0D | LDY XCOUNT.| 000012C0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 53 43 | LDA (SC| 000012D0: 52 4C 29 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |RL),Y. S| 000012E0: 54 41 20 28 53 43 52 53 29 2C 59 0D 20 20 20 20 |TA (SCRS),Y. | 000012F0: 20 20 20 20 20 4C 44 41 20 28 43 4F 4C 4C 29 2C | LDA (COLL),| 00001300: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 28 |Y. STA (| 00001310: 43 4F 4C 53 29 2C 59 0D 20 20 20 20 20 20 20 20 |COLS),Y. | 00001320: 3B 4C 44 41 20 23 42 43 0D 20 20 20 20 20 20 20 |;LDA #BC. | 00001330: 20 3B 53 54 41 20 28 53 43 52 4C 29 2C 59 0D 20 | ;STA (SCRL),Y. | 00001340: 20 20 20 20 20 20 20 3B 53 54 41 20 28 43 4F 4C | ;STA (COL| 00001350: 4C 29 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |L),Y. LD| 00001360: 41 20 53 43 52 4C 0D 20 20 20 20 20 20 20 20 20 |A SCRL. | 00001370: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00001380: 20 23 33 32 38 30 38 0D 20 20 20 20 20 20 20 20 | #32808. | 00001390: 20 53 54 41 20 53 43 52 4C 0D 20 20 20 20 20 20 | STA SCRL. | 000013A0: 20 20 20 42 43 43 20 53 4B 49 50 31 0D 20 20 20 | BCC SKIP1. | 000013B0: 20 20 20 20 20 20 49 4E 43 20 53 43 52 4C 2B 33 | INC SCRL+3| 000013C0: 32 37 36 39 0D 53 4B 49 50 31 20 20 20 20 4C 44 |2769.SKIP1 LD| 000013D0: 41 20 53 43 52 53 0D 20 20 20 20 20 20 20 20 20 |A SCRS. | 000013E0: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 000013F0: 20 23 33 32 38 30 38 0D 20 20 20 20 20 20 20 20 | #32808. | 00001400: 20 53 54 41 20 53 43 52 53 0D 20 20 20 20 20 20 | STA SCRS. | 00001410: 20 20 20 42 43 43 20 53 4B 49 50 32 0D 20 20 20 | BCC SKIP2. | 00001420: 20 20 20 20 20 20 49 4E 43 20 53 43 52 53 2B 33 | INC SCRS+3| 00001430: 32 37 36 39 0D 53 4B 49 50 32 20 20 20 20 4C 44 |2769.SKIP2 LD| 00001440: 41 20 43 4F 4C 4C 0D 20 20 20 20 20 20 20 20 20 |A COLL. | 00001450: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00001460: 20 23 33 32 38 30 38 0D 20 20 20 20 20 20 20 20 | #32808. | 00001470: 20 53 54 41 20 43 4F 4C 4C 0D 20 20 20 20 20 20 | STA COLL. | 00001480: 20 20 20 42 43 43 20 53 4B 49 50 33 0D 20 20 20 | BCC SKIP3. | 00001490: 20 20 20 20 20 20 49 4E 43 20 43 4F 4C 4C 2B 33 | INC COLL+3| 000014A0: 32 37 36 39 0D 53 4B 49 50 33 20 20 20 20 4C 44 |2769.SKIP3 LD| 000014B0: 41 20 43 4F 4C 53 0D 20 20 20 20 20 20 20 20 20 |A COLS. | 000014C0: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 000014D0: 20 23 33 32 38 30 38 0D 20 20 20 20 20 20 20 20 | #32808. | 000014E0: 20 53 54 41 20 43 4F 4C 53 0D 20 20 20 20 20 20 | STA COLS. | 000014F0: 20 20 20 42 43 43 20 53 4B 49 50 34 0D 20 20 20 | BCC SKIP4. | 00001500: 20 20 20 20 20 20 49 4E 43 20 43 4F 4C 53 2B 33 | INC COLS+3| 00001510: 32 37 36 39 0D 53 4B 49 50 34 20 20 20 20 44 45 |2769.SKIP4 DE| 00001520: 58 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 4F |X. BPL O| 00001530: 54 31 0D 50 4C 4F 54 31 42 20 20 20 52 54 53 0D |T1.PLOT1B RTS.| 00001540: 3B 60 60 60 60 60 E0 60 60 60 60 60 60 60 60 60 |;`````.`````````| 00001550: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00001560: 60 60 60 60 60 60 60 60 0D 44 59 53 50 20 20 20 |````````.DYSP | 00001570: 20 20 4C 44 41 20 44 59 53 50 42 59 54 45 0D 20 | LDA DYSPBYTE. | 00001580: 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 | SEC. | 00001590: 20 20 20 20 20 53 42 43 20 23 24 30 32 0D 20 20 | SBC #$02. | 000015A0: 20 20 20 20 20 20 20 42 43 43 20 44 59 53 50 32 | BCC DYSP2| 000015B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 59 |. STA DY| 000015C0: 53 50 42 59 54 45 0D 44 59 53 50 42 59 54 45 20 |SPBYTE.DYSPBYTE | 000015D0: 3D 20 2A 2B 33 32 37 36 39 0D 4D 4F 56 45 44 59 |= *+32769.MOVEDY| 000015E0: 53 50 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 |SP LDA #$00. | 000015F0: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 | CLC. | 00001600: 20 20 53 54 41 20 24 44 30 30 30 0D 20 20 20 20 | STA $D000. | 00001610: 20 20 20 20 20 52 4F 52 20 24 44 30 31 30 0D 20 | ROR $D010. | 00001620: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 00001630: 20 20 20 20 20 41 44 43 20 23 24 32 42 0D 20 20 | ADC #$2B. | 00001640: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 30 32 | STA $D002| 00001650: 0D 20 20 20 20 20 20 20 20 20 52 4F 52 20 24 44 |. ROR $D| 00001660: 30 31 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |010. LDA| 00001670: 20 24 44 30 30 30 0D 20 20 20 20 20 20 20 20 20 | $D000. | 00001680: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00001690: 20 23 24 35 36 0D 20 20 20 20 20 20 20 20 20 53 | #$56. S| 000016A0: 54 41 20 24 44 30 30 34 0D 20 20 20 20 20 20 20 |TA $D004. | 000016B0: 20 20 52 4F 52 20 24 44 30 31 30 0D 20 20 20 20 | ROR $D010. | 000016C0: 20 20 20 20 20 4C 44 41 20 24 44 30 30 30 0D 20 | LDA $D000. | 000016D0: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 000016E0: 20 20 20 20 20 41 44 43 20 23 24 38 31 0D 20 20 | ADC #$81. | 000016F0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 30 36 | STA $D006| 00001700: 0D 20 20 20 20 20 20 20 20 20 52 4F 52 20 24 44 |. ROR $D| 00001710: 30 31 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |010. LDA| 00001720: 20 24 44 30 30 30 0D 20 20 20 20 20 20 20 20 20 | $D000. | 00001730: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00001740: 20 23 24 41 43 0D 20 20 20 20 20 20 20 20 20 53 | #$AC. S| 00001750: 54 41 20 24 44 30 30 38 0D 20 20 20 20 20 20 20 |TA $D008. | 00001760: 20 20 52 4F 52 20 24 44 30 31 30 0D 20 20 20 20 | ROR $D010. | 00001770: 20 20 20 20 20 4C 44 41 20 24 44 30 30 30 0D 20 | LDA $D000. | 00001780: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 00001790: 20 20 20 20 20 41 44 43 20 23 24 44 37 0D 20 20 | ADC #$D7. | 000017A0: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 30 41 | STA $D00A| 000017B0: 0D 20 20 20 20 20 20 20 20 20 52 4F 52 20 24 44 |. ROR $D| 000017C0: 30 31 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |010. LDA| 000017D0: 20 24 44 30 30 30 0D 20 20 20 20 20 20 20 20 20 | $D000. | 000017E0: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 000017F0: 20 23 24 30 32 0D 20 20 20 20 20 20 20 20 20 53 | #$02. S| 00001800: 54 41 20 24 44 30 38 43 0D 20 20 20 20 20 20 20 |TA $D08C. | 00001810: 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 20 52 | SEC. R| 00001820: 4F 52 20 24 44 30 31 30 0D 20 20 20 20 20 20 20 |OR $D010. | 00001830: 20 20 4C 44 41 20 24 44 30 30 30 0D 20 20 20 20 | LDA $D000. | 00001840: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 | CLC. | 00001850: 20 20 41 44 43 20 23 24 32 44 0D 20 20 20 20 20 | ADC #$2D. | 00001860: 20 20 20 20 53 54 41 20 24 44 30 30 45 0D 20 20 | STA $D00E. | 00001870: 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 | SEC. | 00001880: 20 20 20 20 52 4F 52 20 24 44 30 31 30 0D 20 20 | ROR $D010. | 00001890: 20 20 20 20 20 20 20 4A 4D 50 20 53 45 54 4E 45 | JMP SETNE| 000018A0: 58 54 0D 44 59 53 50 32 20 20 20 20 43 4C 43 0D |XT.DYSP2 CLC.| 000018B0: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 32 | ADC #$2| 000018C0: 42 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |B. STA D| 000018D0: 59 53 50 42 59 54 45 0D 0D 20 20 20 20 20 20 20 |YSPBYTE.. | 000018E0: 20 20 4C 44 59 20 23 24 30 30 0D 4D 56 50 4F 49 | LDY #$00.MVPOI| 000018F0: 4E 54 20 20 4C 44 41 20 24 30 37 46 39 2C 59 0D |NT LDA $07F9,Y.| 00001900: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 37 | STA $07| 00001910: 46 38 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E |F8,Y. IN| 00001920: 59 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 23 |Y. CPY #| 00001930: 24 30 37 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |$07. BNE| 00001940: 20 4D 56 50 4F 49 4E 54 0D 0D 20 20 20 20 20 20 | MVPOINT.. | 00001950: 20 20 20 4C 44 41 20 53 45 54 32 0D 20 20 20 20 | LDA SET2. | 00001960: 20 20 20 20 20 53 54 41 20 53 45 54 31 0D 20 20 | STA SET1. | 00001970: 20 20 20 20 20 20 20 4C 44 41 20 53 45 54 33 0D | LDA SET3.| 00001980: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 45 54 | STA SET| 00001990: 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |2. LDA S| 000019A0: 45 54 34 0D 20 20 20 20 20 20 20 20 20 53 54 41 |ET4. STA| 000019B0: 20 53 45 54 33 0D 20 20 20 20 20 20 20 20 20 4C | SET3. L| 000019C0: 44 41 20 53 45 54 35 0D 20 20 20 20 20 20 20 20 |DA SET5. | 000019D0: 20 53 54 41 20 53 45 54 34 0D 20 20 20 20 20 20 | STA SET4. | 000019E0: 20 20 20 4C 44 41 20 53 45 54 36 0D 20 20 20 20 | LDA SET6. | 000019F0: 20 20 20 20 20 53 54 41 20 53 45 54 35 0D 20 20 | STA SET5. | 00001A00: 20 20 20 20 20 20 20 4C 44 41 20 53 45 54 37 0D | LDA SET7.| 00001A10: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 45 54 | STA SET| 00001A20: 36 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |6. LDA S| 00001A30: 45 54 38 0D 20 20 20 20 20 20 20 20 20 53 54 41 |ET8. STA| 00001A40: 20 53 45 54 37 0D 20 20 20 20 20 20 20 20 20 43 | SET7. C| 00001A50: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 00001A60: 23 24 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 |#$20. ST| 00001A70: 41 20 53 45 54 38 0D 0D 54 45 58 54 48 49 20 20 |A SET8..TEXTHI | 00001A80: 20 3D 20 2A 2B 33 32 37 37 30 0D 54 45 58 54 4C | = *+32770.TEXTL| 00001A90: 4F 20 20 20 3D 20 2A 2B 33 32 37 36 39 0D 52 45 |O = *+32769.RE| 00001AA0: 41 44 4E 45 58 54 20 4C 44 41 20 24 33 30 30 30 |ADNEXT LDA $3000| 00001AB0: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 49 4E |. BEQ IN| 00001AC0: 49 54 54 45 58 54 0D 0D 20 20 20 20 20 20 20 20 |ITTEXT.. | 00001AD0: 20 43 4D 50 20 23 24 32 30 0D 20 20 20 20 20 20 | CMP #$20. | 00001AE0: 20 20 20 42 4E 45 20 53 45 54 53 50 52 0D 20 20 | BNE SETSPR. | 00001AF0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D | LDA #$00.| 00001B00: 53 45 54 53 50 52 20 20 20 43 4C 43 0D 20 20 20 |SETSPR CLC. | 00001B10: 20 20 20 20 20 20 41 44 43 20 23 28 24 33 34 30 | ADC #($340| 00001B20: 30 2F 33 32 38 33 32 29 0D 20 20 20 20 20 20 20 |0/32832). | 00001B30: 20 20 53 54 41 20 24 30 37 46 46 0D 0D 20 20 20 | STA $07FF.. | 00001B40: 20 20 20 20 20 20 4C 44 41 20 54 45 58 54 4C 4F | LDA TEXTLO| 00001B50: 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 |. CLC. | 00001B60: 20 20 20 20 20 20 20 41 44 43 20 23 24 30 31 0D | ADC #$01.| 00001B70: 20 20 20 20 20 20 20 20 20 53 54 41 20 54 45 58 | STA TEX| 00001B80: 54 4C 4F 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |TLO. LDA| 00001B90: 20 54 45 58 54 48 49 0D 20 20 20 20 20 20 20 20 | TEXTHI. | 00001BA0: 20 41 44 43 20 23 24 30 30 0D 20 20 20 20 20 20 | ADC #$00. | 00001BB0: 20 20 20 53 54 41 20 54 45 58 54 48 49 0D 20 20 | STA TEXTHI. | 00001BC0: 20 20 20 20 20 20 20 4A 4D 50 20 4D 4F 56 45 44 | JMP MOVED| 00001BD0: 59 53 50 0D 3B 60 60 60 60 60 60 60 60 60 60 60 |YSP.;```````````| 00001BE0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00001BF0: 60 60 60 60 60 60 60 60 60 60 60 60 0D 49 4E 49 |````````````.INI| 00001C00: 54 54 45 58 54 20 4C 44 58 20 23 24 30 30 0D 20 |TTEXT LDX #$00. | 00001C10: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 35 30 | LDY #$50| 00001C20: 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 54 45 |. STX TE| 00001C30: 58 54 4C 4F 0D 20 20 20 20 20 20 20 20 20 53 54 |XTLO. ST| 00001C40: 59 20 54 45 58 54 48 49 0D 20 20 20 20 20 20 20 |Y TEXTHI. | 00001C50: 20 20 4A 4D 50 20 52 45 41 44 4E 45 58 54 0D 3B | JMP READNEXT.;| 00001C60: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00001C70: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00001C80: 60 60 60 60 60 60 60 0D 53 45 54 31 20 20 20 20 |```````.SET1 | 00001C90: 20 3D 20 2A 2B 33 32 37 36 39 0D 53 45 54 4E 45 | = *+32769.SETNE| 00001CA0: 58 54 20 20 4C 44 59 20 23 24 36 32 0D 20 20 20 |XT LDY #$62. | 00001CB0: 20 20 20 20 20 20 4C 44 41 20 53 50 53 49 4E 55 | LDA SPSINU| 00001CC0: 53 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |S,Y. LSR| 00001CD0: 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 | A. LSR | 00001CE0: 41 0D 20 20 20 20 20 20 20 20 3B 4C 53 52 20 41 |A. ;LSR A| 00001CF0: 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 |. CLC. | 00001D00: 20 20 20 20 20 20 20 41 44 43 20 58 4F 46 46 0D | ADC XOFF.| 00001D10: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00001D20: 30 31 0D 53 45 54 32 20 20 20 20 20 3D 20 2A 2B |01.SET2 = *+| 00001D30: 33 32 37 36 39 0D 20 20 20 20 20 20 20 20 20 4C |32769. L| 00001D40: 44 59 20 23 24 38 32 0D 20 20 20 20 20 20 20 20 |DY #$82. | 00001D50: 20 4C 44 41 20 53 50 53 49 4E 55 53 2C 59 0D 20 | LDA SPSINUS,Y. | 00001D60: 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 | LSR A. | 00001D70: 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 | LSR A. | 00001D80: 20 20 20 20 20 3B 4C 53 52 20 41 0D 20 20 20 20 | ;LSR A. | 00001D90: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 | CLC. | 00001DA0: 20 20 41 44 43 20 58 4F 46 46 0D 20 20 20 20 20 | ADC XOFF. | 00001DB0: 20 20 20 20 53 54 41 20 24 44 30 30 33 0D 53 45 | STA $D003.SE| 00001DC0: 54 33 20 20 20 20 20 3D 20 2A 2B 33 32 37 36 39 |T3 = *+32769| 00001DD0: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 |. LDY #$| 00001DE0: 41 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |A2. LDA | 00001DF0: 53 50 53 49 4E 55 53 2C 59 0D 20 20 20 20 20 20 |SPSINUS,Y. | 00001E00: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 00001E10: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | LSR A. | 00001E20: 3B 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 |;LSR A. | 00001E30: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00001E40: 20 58 4F 46 46 0D 20 20 20 20 20 20 20 20 20 53 | XOFF. S| 00001E50: 54 41 20 24 44 30 30 35 0D 53 45 54 34 20 20 20 |TA $D005.SET4 | 00001E60: 20 20 3D 20 2A 2B 33 32 37 36 39 0D 20 20 20 20 | = *+32769. | 00001E70: 20 20 20 20 20 4C 44 59 20 23 24 43 32 0D 20 20 | LDY #$C2. | 00001E80: 20 20 20 20 20 20 20 4C 44 41 20 53 50 53 49 4E | LDA SPSIN| 00001E90: 55 53 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 53 |US,Y. LS| 00001EA0: 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |R A. LSR| 00001EB0: 20 41 0D 20 20 20 20 20 20 20 20 3B 4C 53 52 20 | A. ;LSR | 00001EC0: 41 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |A. CLC. | 00001ED0: 20 20 20 20 20 20 20 20 41 44 43 20 58 4F 46 46 | ADC XOFF| 00001EE0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00001EF0: 30 30 37 0D 53 45 54 35 20 20 20 20 20 3D 20 2A |007.SET5 = *| 00001F00: 2B 33 32 37 36 39 0D 20 20 20 20 20 20 20 20 20 |+32769. | 00001F10: 4C 44 59 20 23 24 45 32 0D 20 20 20 20 20 20 20 |LDY #$E2. | 00001F20: 20 20 4C 44 41 20 53 50 53 49 4E 55 53 2C 59 0D | LDA SPSINUS,Y.| 00001F30: 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 | LSR A. | 00001F40: 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 | LSR A. | 00001F50: 20 20 20 20 20 20 3B 4C 53 52 20 41 0D 20 20 20 | ;LSR A. | 00001F60: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00001F70: 20 20 20 41 44 43 20 58 4F 46 46 0D 20 20 20 20 | ADC XOFF. | 00001F80: 20 20 20 20 20 53 54 41 20 24 44 30 30 39 0D 53 | STA $D009.S| 00001F90: 45 54 36 20 20 20 20 20 3D 20 2A 2B 33 32 37 36 |ET6 = *+3276| 00001FA0: 39 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |9. LDY #| 00001FB0: 24 30 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$02. LDA| 00001FC0: 20 53 50 53 49 4E 55 53 2C 59 0D 20 20 20 20 20 | SPSINUS,Y. | 00001FD0: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 00001FE0: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 00001FF0: 20 3B 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | ;LSR A. | 00002000: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 00002010: 43 20 58 4F 46 46 0D 20 20 20 20 20 20 20 20 20 |C XOFF. | 00002020: 53 54 41 20 24 44 30 30 42 0D 53 45 54 37 20 20 |STA $D00B.SET7 | 00002030: 20 20 20 3D 20 2A 2B 33 32 37 36 39 0D 20 20 20 | = *+32769. | 00002040: 20 20 20 20 20 20 4C 44 59 20 23 24 32 32 0D 20 | LDY #$22. | 00002050: 20 20 20 20 20 20 20 20 4C 44 41 20 53 50 53 49 | LDA SPSI| 00002060: 4E 55 53 2C 59 0D 20 20 20 20 20 20 20 20 20 4C |NUS,Y. L| 00002070: 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 |SR A. LS| 00002080: 52 20 41 0D 20 20 20 20 20 20 20 20 3B 4C 53 52 |R A. ;LSR| 00002090: 20 41 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D | A. CLC.| 000020A0: 20 20 20 20 20 20 20 20 20 41 44 43 20 58 4F 46 | ADC XOF| 000020B0: 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |F. STA $| 000020C0: 44 30 30 44 0D 53 45 54 38 20 20 20 20 20 3D 20 |D00D.SET8 = | 000020D0: 2A 2B 33 32 37 36 39 0D 20 20 20 20 20 20 20 20 |*+32769. | 000020E0: 20 4C 44 59 20 23 24 34 32 0D 20 20 20 20 20 20 | LDY #$42. | 000020F0: 20 20 20 4C 44 41 20 53 50 53 49 4E 55 53 2C 59 | LDA SPSINUS,Y| 00002100: 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D |. LSR A.| 00002110: 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 | LSR A. | 00002120: 20 20 20 20 20 20 20 3B 4C 53 52 20 41 0D 20 20 | ;LSR A. | 00002130: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00002140: 20 20 20 20 41 44 43 20 58 4F 46 46 0D 20 20 20 | ADC XOFF. | 00002150: 20 20 20 20 20 20 53 54 41 20 24 44 30 30 46 0D | STA $D00F.| 00002160: 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 45 54 | LDA SET| 00002170: 31 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |1. CLC. | 00002180: 20 20 20 20 20 20 20 20 41 44 43 20 02 08 7F 0D | ADC ....| 00002190: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 45 54 | STA SET| 000021A0: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |1. LDA S| 000021B0: 45 54 32 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |ET2. CLC| 000021C0: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 53 49 |. ADC SI| 000021D0: 4E 4F 46 46 0D 20 20 20 20 20 20 20 20 20 53 54 |NOFF. ST| 000021E0: 41 20 53 45 54 32 0D 20 20 20 20 20 20 20 20 20 |A SET2. | 000021F0: 4C 44 41 20 53 45 54 33 0D 20 20 20 20 20 20 20 |LDA SET3. | 00002200: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 00002210: 44 43 20 53 49 4E 4F 46 46 0D 20 20 20 20 20 20 |DC SINOFF. | 00002220: 20 20 20 53 54 41 20 53 45 54 33 0D 20 20 20 20 | STA SET3. | 00002230: 20 20 20 20 20 4C 44 41 20 53 45 54 34 0D 20 20 | LDA SET4. | 00002240: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00002250: 20 20 20 20 41 44 43 20 53 49 4E 4F 46 46 0D 20 | ADC SINOFF. | 00002260: 20 20 20 20 20 20 20 20 53 54 41 20 53 45 54 34 | STA SET4| 00002270: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 45 |. LDA SE| 00002280: 54 35 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |T5. CLC.| 00002290: 20 20 20 20 20 20 20 20 20 41 44 43 20 53 49 4E | ADC SIN| 000022A0: 4F 46 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 |OFF. STA| 000022B0: 20 53 45 54 35 0D 20 20 20 20 20 20 20 20 20 4C | SET5. L| 000022C0: 44 41 20 53 45 54 36 0D 20 20 20 20 20 20 20 20 |DA SET6. | 000022D0: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 000022E0: 43 20 53 49 4E 4F 46 46 0D 20 20 20 20 20 20 20 |C SINOFF. | 000022F0: 20 20 53 54 41 20 53 45 54 36 0D 20 20 20 20 20 | STA SET6. | 00002300: 20 20 20 20 4C 44 41 20 53 45 54 37 0D 20 20 20 | LDA SET7. | 00002310: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00002320: 20 20 20 41 44 43 20 53 49 4E 4F 46 46 0D 20 20 | ADC SINOFF. | 00002330: 20 20 20 20 20 20 20 53 54 41 20 53 45 54 37 0D | STA SET7.| 00002340: 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 45 54 | LDA SET| 00002350: 38 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |8. CLC. | 00002360: 20 20 20 20 20 20 20 20 41 44 43 20 53 49 4E 4F | ADC SINO| 00002370: 46 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |FF. STA | 00002380: 53 45 54 38 0D 20 20 20 20 20 20 20 20 20 52 54 |SET8. RT| 00002390: 53 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 60 |S.;`````````````| 000023A0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000023B0: 60 60 60 60 60 60 60 60 60 60 0D 53 45 54 44 59 |``````````.SETDY| 000023C0: 53 50 20 20 4C 44 41 20 23 25 31 31 31 31 31 31 |SP LDA #%111111| 000023D0: 31 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |11. STA | 000023E0: 24 44 30 31 35 0D 20 20 20 20 20 20 20 20 20 4C |$D015. L| 000023F0: 44 41 20 23 25 31 31 31 31 31 31 31 31 0D 20 20 |DA #%11111111. | 00002400: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 43 | STA $D01C| 00002410: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 |. LDY #$| 00002420: 30 37 0D 53 45 54 53 50 20 20 20 20 4C 44 41 20 |07.SETSP LDA | 00002430: 23 28 24 33 34 30 30 2F 33 32 38 33 32 29 0D 20 |#($3400/32832). | 00002440: 20 20 20 20 20 20 20 20 53 54 41 20 32 30 34 30 | STA 2040| 00002450: 2C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,Y. LDA | 00002460: 23 24 30 45 0D 20 20 20 20 20 20 20 20 20 53 54 |#$0E. ST| 00002470: 41 20 24 44 30 32 37 2C 59 0D 20 20 20 20 20 20 |A $D027,Y. | 00002480: 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 20 | DEY. | 00002490: 42 50 4C 20 53 45 54 53 50 0D 20 20 20 20 20 20 |BPL SETSP. | 000024A0: 20 20 20 4C 44 41 20 23 24 30 46 0D 20 20 20 20 | LDA #$0F. | 000024B0: 20 20 20 20 20 53 54 41 20 24 44 30 32 36 0D 20 | STA $D026. | 000024C0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 36 | LDA #$06| 000024D0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000024E0: 30 32 35 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |025. LDX| 000024F0: 20 23 3C 53 50 54 58 54 0D 20 20 20 20 20 20 20 | #<SPTXT. | 00002500: 20 20 4C 44 59 20 23 3E 53 50 54 58 54 0D 20 20 | LDY #>SPTXT. | 00002510: 20 20 20 20 20 20 20 53 54 58 20 54 45 58 54 4C | STX TEXTL| 00002520: 4F 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 54 |O. STY T| 00002530: 45 58 54 48 49 0D 20 20 20 20 20 20 20 20 20 52 |EXTHI. R| 00002540: 54 53 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 |TS.;````````````| 00002550: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00002560: 60 60 60 60 60 60 60 60 60 60 60 0D 41 42 59 54 |```````````.ABYT| 00002570: 45 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 58 |E .BYTE $00.X| 00002580: 42 59 54 45 20 20 20 20 2E 42 59 54 45 20 24 30 |BYTE .BYTE $0| 00002590: 30 0D 59 42 20 20 20 20 20 20 20 2E 42 59 54 45 |0.YB .BYTE| 000025A0: 20 24 30 30 0D 50 4C 4F 54 31 43 20 20 20 2E 42 | $00.PLOT1C .B| 000025B0: 59 54 45 20 24 30 30 0D 58 43 4F 55 4E 54 20 20 |YTE $00.XCOUNT | 000025C0: 20 2E 42 59 54 45 20 24 30 30 0D 59 43 4F 55 4E | .BYTE $00.YCOUN| 000025D0: 54 20 20 20 2E 42 59 54 45 20 24 30 30 0D 58 4F |T .BYTE $00.XO| 000025E0: 46 46 20 20 20 20 20 2E 42 59 54 45 20 24 41 37 |FF .BYTE $A7| 000025F0: 0D 53 49 4E 4F 46 46 20 20 20 2E 42 59 54 45 20 |.SINOFF .BYTE | 00002600: 24 30 36 0D 3B 60 60 60 60 60 60 60 60 60 60 60 |$06.;```````````| 00002610: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00002620: 60 60 60 60 60 60 60 60 60 60 60 60 0D 0D |````````````.. |
.;``````````````````````````````````````
`.; VN31 INTRO V0.1 27/10/98 CASE/CABANA
;. ;PART 2.MUSICINIT = $1000.MU
SICPLAY = $1003.BITSCR = $4200.BITCOL
= $4000.SCRL = $AA.SCRS = SCRL
+32770.COLL = SCRS+32770.COLS =
COLL+32770.BC = 32768.SPSINUS = $
4E00.SPTXT = $5400.;`````````````````
``````````````````````. *= $0B00
. LDX #$00. LDA #BC.ZAP
STA $0400,X. STA $0500,X.
STA $0600,X. STA $0700,X.
STA $D800,X. STA $D900,
X. STA $DA00,X. STA $DB0
0,X. DEX. BNE ZAP..
LDX #32807. STX XCOUNT.
LDA #32792. STA $D018..
;.. REMOVE IN FINAL VERSION.
LDA #$00. STA $D020. ST
A $D0A1. TAX. TAY.
JSR MUSICINIT. SEI. L
DA #$2F. LDY #$35. STA $
00. STY $01. LDA #$7F.
STA $DC0D. LDA $DC0D.
LDA #$81. STA $D01A.
LDA #<RESTORE. LDY #>RESTORE.
STA $FFFA. STY $FFFB.
LDA #$01. STA $D012.
LDA #<BIRQ1. LDY #>BIRQ1.
STA $FFFE. STY $FFFF.
CLI.. JSR SETDYSP. JS
R PLOTON.WAIT JMP WAIT.. LDA
#$00. STA XCOUNT..WHW LDA
$DC01. AND #$10. BNE WHW
. JSR PLOTOFF.WAIT1 JMP WAIT1
.;``````````````````````````````````````
`.RESTORE ;RTI. JMP $9000.;````
```````````````````````````````````.BYTE
0 LDX #$FF. LDY #$FF.
DEY. BNE *-32769. DEX.
BNE BYTE0+32770. RTS.;``
````````.````````````````````````````.IR
QPROCESS. STX $D012. STA
$FFFE. STY $FFFF. LDA A
BYTE. LDX XBYTE. LDY YB.
RTI.;``````````````````````````
`````````````.BIRQ1 STA ABYTE.
STX XBYTE. STY YB. ASL
$D019. LDA #$1B. STA $D
011. LDX #$32. LDA #<INI
TSP. LDY #>INITSP. JMP I
RQPROCESS.;`````````````````````````````
``````````.INITSP STA ABYTE. S
TX XBYTE. STY YB. ASL $D
019. LDA #$1B. STA $D011
. JSR DYSP. LDX #$68.
LDA #<BIRQ3. LDY #>BIRQ3.
JMP IRQPROCESS.;````````````````
```````````````````````.BIRQ3 STA ABY
TE. STX XBYTE. STY YB.
ASL $D019. LDA #%00000000
. STA $D015. LDA #$3B.
STA $D011. LDA #32984.
STA $D016. LDA #32792.
STA $D018. JSR $1003.
LDX #$C0. LDA #<BIRQ4.
LDY #>BIRQ4. JMP IRQPROCESS.;`
``````````````````````````````````````.B
IRQ4 STA ABYTE. STX XBYTE.
STY YB. ASL $D019.
LDA #$1B. STA $D011. LD
A #32968. STA $D016. LDA
#%11111111. STA $D015.
LDX #$F8. LDA #<YBYTE. L
DY #>YBYTE. JMP IRQPROCESS.;````
```````````````````````````````````.YBYT
E STA ABYTE. STX XBYTE.
STY .. ASL $D019.. L
DA #$13. STA $D011.. LDX
#$01. LDA #<BIRQ1. LDY
#>BIRQ1. JMP IRQPROCESS.;```````
````````````````````````````````......;`
``````````````````````````````````````.
;PLOTON=BITMAPON. ;PLOTT
OFF=BITMAPOFF. ;DYSP=DYSP.
;INITSPR=SPTITE SETUP.;``.```````````
`````````````````````````.PLOTON LDA Y
COUNT. SEC. SBC #$04.
AND #$07. STA YCOUNT.
BCC PLOTON1. RTS.PLOTON1 LD
X XCOUNT. BMI PLOTON3. J
SR PLOTCOLUMN. DEC XCOUNT.
LDX #$10.PLOTON2 LDY #$FF. D
EY. BNE *-32769. DEX.
BNE PLOTON2. JMP PLOTON1.P
LOTON3 LDA #$AD. STA WAIT.
RTS.;```````````````````````````````
````````.PLOTOFF LDA YCOUNT. SE
C. SBC #$04. AND #$07.
STA YCOUNT. BCC PLOTOFF1.
RTS.PLOTOFF1 LDY #PLOTCOLUMN.
LDX XCOUNT. CPX #32808.
BEQ PLOTOFF3. INC XCOUNT.
LDX #$10.PLOTOFF2 LDY #$FF.
DEY. BNE *-32769. D
EX. BNE PLOTOFF2. JMP PL
OTOFF1.PLOTOFF3 LDA #$AD. STA WA
IT1. RTS.;``````````````````````
`````````````````.PLOTCOLUMN. LD
X #<$0400+(32808*32775). LDY #>$
0400+(32808*32775). STX SCRS.
STY SCRS+32769. LDX #<BITS
CR. LDY #>BITSCR. STX SC
RL. STY SCRL+32769. LDX
#<$D800+(32808*32775). LDY #>$D8
00+(32808*32775). STX COLS.
STY COLS+32769. LDX #<BITCOL
. LDY #>BITCOL. STX COLL
. STY COLL+32769. LDX #3
2776;HEIGHT TO PLOT.OT1 LDY XCOUNT.
LDA (SCRL),Y. STA (SCRS
),Y. LDA (COLL),Y. STA (
COLS),Y. ;LDA #BC. ;STA (S
CRL),Y. ;STA (COLL),Y. LD
A SCRL. CLC. ADC #32808.
STA SCRL. BCC SKIP1.
INC SCRL+32769.SKIP1 LDA SCRS.
CLC. ADC #32808.
STA SCRS. BCC SKIP2. IN
C SCRS+32769.SKIP2 LDA COLL.
CLC. ADC #32808. STA COL
L. BCC SKIP3. INC COLL+3
2769.SKIP3 LDA COLS. CLC.
ADC #32808. STA COLS.
BCC SKIP4. INC COLS+32769.SKI
P4 DEX. BPL OT1.PLOT1B RTS.
;`````.`````````````````````````````````
.DYSP LDA DYSPBYTE. SEC.
SBC #$02. BCC DYSP2.
STA DYSPBYTE.DYSPBYTE = *+32769.MOVEDY
SP LDA #$00. CLC. STA $D
000. ROR $D010. CLC.
ADC #$2B. STA $D002.
ROR $D010. LDA $D000.
CLC. ADC #$56. STA $D004
. ROR $D010. LDA $D000.
CLC. ADC #$81. S
TA $D006. ROR $D010. LDA
$D000. CLC. ADC #$AC.
STA $D008. ROR $D010.
LDA $D000. CLC. ADC
#$D7. STA $D00A. ROR $D
010. LDA $D000. CLC.
ADC #$02. STA $D08C.
SEC. ROR $D010. LDA $D
000. CLC. ADC #$2D.
STA $D00E. SEC. ROR
$D010. JMP SETNEXT.DYSP2 CLC.
ADC #$2B. STA DYSPBYTE.
. LDY #$00.MVPOINT LDA $07F9,Y.
STA $07F8,Y. INY.
CPY #$07. BNE MVPOINT..
LDA SET2. STA SET1. L
DA SET3. STA SET2. LDA S
ET4. STA SET3. LDA SET5.
STA SET4. LDA SET6.
STA SET5. LDA SET7.
STA SET6. LDA SET8. STA
SET7. CLC. ADC #$20.
STA SET8..TEXTHI = *+32770.TEXTL
O = *+32769.READNEXT LDA $3000.
BEQ INITTEXT.. CMP #$20.
BNE SETSPR. LDA #$00.SETSPR
CLC. ADC #($3400/32832).
STA $07FF.. LDA TEXTLO.
CLC. ADC #$01. STA TEX
TLO. LDA TEXTHI. ADC #$0
0. STA TEXTHI. JMP MOVED
YSP.;```````````````````````````````````
````.INITTEXT LDX #$00. LDY #$50
. STX TEXTLO. STY TEXTHI
. JMP READNEXT.;````````````````
```````````````````````.SET1 = *+327
69.SETNEXT LDY #$62. LDA SPSINU
S,Y. LSR A. LSR A.
;LSR A. CLC. ADC XOFF.
STA $D001.SET2 = *+32769.
LDY #$82. LDA SPSINUS,Y.
LSR A. LSR A. ;LS
R A. CLC. ADC XOFF.
STA $D003.SET3 = *+32769.
LDY #$A2. LDA SPSINUS,Y.
LSR A. LSR A. ;LSR A.
CLC. ADC XOFF. S
TA $D005.SET4 = *+32769. LDY
#$C2. LDA SPSINUS,Y. LS
R A. LSR A. ;LSR A.
CLC. ADC XOFF. STA $D
007.SET5 = *+32769. LDY #$E2
. LDA SPSINUS,Y. LSR A.
LSR A. ;LSR A. CL
C. ADC XOFF. STA $D009.S
ET6 = *+32769. LDY #$02.
LDA SPSINUS,Y. LSR A.
LSR A. ;LSR A. CLC.
ADC XOFF. STA $D00B.SET7
= *+32769. LDY #$22.
LDA SPSINUS,Y. LSR A. LS
R A. ;LSR A. CLC.
ADC XOFF. STA $D00D.SET8 =
*+32769. LDY #$42. LDA S
PSINUS,Y. LSR A. LSR A.
;LSR A. CLC. ADC
XOFF. STA $D00F. LDA SET
1. CLC. ADC ...
STA SET1. LDA SET2. CLC
. ADC SINOFF. STA SET2.
LDA SET3. CLC. A
DC SINOFF. STA SET3. LDA
SET4. CLC. ADC SINOFF.
STA SET4. LDA SET5.
CLC. ADC SINOFF. STA
SET5. LDA SET6. CLC.
ADC SINOFF. STA SET6.
LDA SET7. CLC. ADC S
INOFF. STA SET7. LDA SET
8. CLC. ADC SINOFF.
STA SET8. RTS.;`````````````
``````````````````````````.SETDYSP LDA
#%11111111. STA $D015. L
DA #%11111111. STA $D01C.
LDY #$07.SETSP LDA #($3400/32832).
STA 2040,Y. LDA #$0E.
STA $D027,Y. DEY.
BPL SETSP. LDA #$0F. STA
$D026. LDA #$06. STA $D
025. LDX #<SPTXT. LDY #>
SPTXT. STX TEXTLO. STY T
EXTHI. RTS.;````````````````````
```````````````````.ABYTE .BYTE $00.X
BYTE .BYTE $00.YB .BYTE $00.PLO
T1C .BYTE $00.XCOUNT .BYTE $00.YCOUN
T .BYTE $00.XOFF .BYTE $A7.SINOFF
.BYTE $06.;```````````````````````````
````````````..
> CLICK IMAGE PREVIEW FOR FULL MODAL