ESCOS.SRC
FILE INFORMATION
FILENAME(S): ESCOS.SRC
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-11-30 01:12:58
APPEARS ON: 1 disk(s)
FILE HASH
2ea61f09b97cc36f826bd22c9b637398d0f20f8e1f4c96fadbaad7da1aed03e2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10207 | ESCOS.SRC | PRG | C64er | 12 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 E8 03 8F 20 4F 50 45 4E 31 2C 38 2C |....... OPEN1,8,|
00000010: 31 2C 22 4F 3A 45 53 43 4F 53 2E 4F 42 4A 22 00 |1,"O:ESCOS.OBJ".|
00000020: 2C 08 FC 03 9E 20 39 AC 34 30 39 36 00 32 08 10 |,.... 9.4096.2..|
00000030: 04 3B 00 40 08 24 04 2E 4F 50 54 20 50 2C 4F 4F |.;.@.$..OPT P,OO|
00000040: 00 46 08 38 04 3B 00 53 08 4C 04 AC B2 20 24 38 |.F.8.;.S.L... $8|
00000050: 30 30 30 00 59 08 60 04 3B 00 9A 08 74 04 3B 20 |000.Y.`.;...t.; |
00000060: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000070: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000080: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000090: AC AC AC AC AC AC AC AC AC AC 00 D4 08 88 04 3B |...............;|
000000A0: 20 AC 20 BD AF 45 44 20 53 50 52 49 54 45 53 20 | . ..ED SPRITES |
000000B0: 9A 52 4F 4C 4C 45 44 20 53 43 52 45 45 4E 20 42 |.ROLLED SCREEN B|
000000C0: 59 20 4D 2E 20 53 41 43 48 53 20 49 4E 20 31 39 |Y M. SACHS IN 19|
000000D0: 39 32 20 AC 00 15 09 9C 04 3B 20 AC AC AC AC AC |92 ......; .....|
000000E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000000F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000100: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000110: AC AC AC AC AC 00 1B 09 B0 04 3B 00 3F 09 C4 04 |..........;.?...|
00000120: 3B 20 42 45 4E 55 54 5A 54 45 20 56 45 4B A4 52 |; BENUTZTE VEK.R|
00000130: 45 4E 20 55 4E 44 20 41 44 52 45 53 53 45 4E 00 |EN UND ADRESSEN.|
00000140: 45 09 D8 04 3B 00 66 09 EC 04 4E 4D 49 56 45 4B |E...;.f...NMIVEK|
00000150: 20 20 20 B2 20 24 46 46 46 41 20 3B 20 4E 4D 49 | . $FFFA ; NMI|
00000160: AB 56 45 4B A4 52 00 87 09 00 05 49 52 51 56 45 |.VEK.R.....IRQVE|
00000170: 4B 20 20 20 B2 20 24 46 46 46 45 20 3B 20 49 52 |K . $FFFE ; IR|
00000180: 51 AB 56 45 4B A4 52 00 BD 09 14 05 49 43 52 20 |Q.VEK.R.....ICR |
00000190: 20 20 20 20 20 B2 20 24 44 43 30 45 20 3B 20 B5 | . $DC0E ; .|
000001A0: 45 52 52 55 50 54 20 9A 52 4F 4C 20 52 45 47 49 |ERRUPT .ROL REGI|
000001B0: 53 54 45 52 20 44 45 52 20 43 49 41 31 00 ED 09 |STER DER CIA1...|
000001C0: 28 05 43 52 41 20 20 20 20 20 20 B2 20 24 44 43 |(.CRA . $DC|
000001D0: 30 44 20 3B 20 9A 52 4F 4C 20 52 45 47 49 53 54 |0D ; .ROL REGIST|
000001E0: 45 52 20 41 20 44 45 52 20 43 49 41 31 00 19 0A |ER A DER CIA1...|
000001F0: 3C 05 56 49 43 20 20 20 20 20 20 B2 20 24 44 30 |<.VIC . $D0|
00000200: 30 30 20 3B 20 42 41 53 49 53 41 44 52 45 53 53 |00 ; BASISADRESS|
00000210: 45 20 44 45 53 20 56 49 43 00 59 0A 50 05 56 49 |E DES VIC.Y.P.VI|
00000220: 43 B9 20 20 20 B2 20 24 44 44 30 30 20 3B 20 41 |C. . $DD00 ; A|
00000230: 44 52 45 53 53 42 45 52 45 49 43 48 20 44 45 53 |DRESSBEREICH DES|
00000240: 20 56 49 43 20 57 49 52 44 20 48 49 45 52 20 46 | VIC WIRD HIER F|
00000250: 45 53 54 47 45 4C 45 47 54 00 98 0A 64 05 53 50 |ESTGELEGT...d.SP|
00000260: 4F B5 30 31 20 B2 20 24 43 37 46 38 20 3B 20 53 |O.01 . $C7F8 ; S|
00000270: 50 52 49 54 45 AB 50 4F B5 45 52 20 46 55 45 52 |PRITE.PO.ER FUER|
00000280: 20 44 49 45 20 45 52 53 54 45 4E 20 41 43 48 54 | DIE ERSTEN ACHT|
00000290: 20 53 50 52 49 54 45 53 00 D8 0A 78 05 53 50 4F | SPRITES...x.SPO|
000002A0: B5 30 32 20 B2 20 24 43 42 46 38 20 3B 20 53 50 |.02 . $CBF8 ; SP|
000002B0: 52 49 54 45 AB 50 4F B5 45 52 20 46 55 45 52 20 |RITE.PO.ER FUER |
000002C0: 44 49 45 20 5A 57 45 49 54 45 4E 20 41 43 48 54 |DIE ZWEITEN ACHT|
000002D0: 20 53 50 52 49 54 45 53 00 18 0B 8C 05 53 50 4F | SPRITES.....SPO|
000002E0: B5 30 33 20 B2 20 24 43 46 46 38 20 3B 20 53 50 |.03 . $CFF8 ; SP|
000002F0: 52 49 54 45 AB 50 4F B5 45 52 20 46 55 45 52 20 |RITE.PO.ER FUER |
00000300: 44 49 45 20 44 52 49 54 54 45 4E 20 41 43 48 54 |DIE DRITTEN ACHT|
00000310: 20 53 50 52 49 54 45 53 00 58 0B A0 05 53 50 4F | SPRITES.X...SPO|
00000320: B5 30 34 20 B2 20 24 44 33 46 38 20 3B 20 53 50 |.04 . $D3F8 ; SP|
00000330: 52 49 54 45 AB 50 4F B5 45 52 20 46 55 45 52 20 |RITE.PO.ER FUER |
00000340: 44 49 45 20 56 49 45 52 54 45 4E 20 41 43 48 54 |DIE VIERTEN ACHT|
00000350: 20 53 50 52 49 54 45 53 00 99 0B B4 05 53 50 4F | SPRITES.....SPO|
00000360: B5 30 35 20 B2 20 24 44 37 46 38 20 3B 20 53 50 |.05 . $D7F8 ; SP|
00000370: 52 49 54 45 AB 50 4F B5 45 52 20 46 55 45 52 20 |RITE.PO.ER FUER |
00000380: 44 49 45 20 46 55 45 4E 46 54 45 4E 20 41 43 48 |DIE FUENFTEN ACH|
00000390: 54 20 53 50 52 49 54 45 53 00 DA 0B C8 05 53 50 |T SPRITES.....SP|
000003A0: 4F B5 30 36 20 B2 20 24 44 42 46 38 20 3B 20 53 |O.06 . $DBF8 ; S|
000003B0: 50 52 49 54 45 AB 50 4F B5 45 52 20 46 55 45 52 |PRITE.PO.ER FUER|
000003C0: 20 44 49 45 20 53 45 43 48 53 54 45 4E 20 41 43 | DIE SECHSTEN AC|
000003D0: 48 54 20 53 50 52 49 54 45 53 00 0A 0C DC 05 53 |HT SPRITES.....S|
000003E0: 54 52 45 47 31 20 20 20 B2 20 24 44 30 31 31 20 |TREG1 . $D011 |
000003F0: 3B 20 53 54 45 55 45 52 52 45 47 49 53 54 45 52 |; STEUERREGISTER|
00000400: 20 31 20 44 45 53 20 56 49 43 00 4C 0C F0 05 53 | 1 DES VIC.L...S|
00000410: 54 52 45 47 32 20 20 20 B2 20 24 44 30 31 36 20 |TREG2 . $D016 |
00000420: 3B 20 53 54 45 55 45 52 52 45 47 49 53 54 45 52 |; STEUERREGISTER|
00000430: 20 32 20 44 45 53 20 56 49 43 20 28 53 43 52 4F | 2 DES VIC (SCRO|
00000440: 4C 4C 20 52 45 47 49 53 54 45 52 29 00 7C 0C 04 |LL REGISTER).|..|
00000450: 06 49 52 52 20 20 20 20 20 20 B2 20 24 44 30 31 |.IRR . $D01|
00000460: 39 20 3B 20 B5 45 52 52 55 50 54 20 52 45 51 55 |9 ; .ERRUPT REQU|
00000470: 45 53 54 20 52 45 47 49 53 54 45 52 00 AD 0C 18 |EST REGISTER....|
00000480: 06 45 58 54 45 52 49 B0 20 B2 20 24 44 30 32 31 |.EXTERI. . $D021|
00000490: 20 3B 20 45 58 54 45 52 49 B0 20 43 4F 4C B0 20 | ; EXTERI. COL. |
000004A0: 28 52 41 48 4D 45 4E 46 41 52 42 45 29 00 F2 0C |(RAHMENFARBE)...|
000004B0: 2C 06 42 41 53 49 53 20 20 20 20 B2 20 24 44 30 |,.BASIS . $D0|
000004C0: 31 38 20 3B 20 42 41 53 49 53 41 44 52 45 53 53 |18 ; BASISADRESS|
000004D0: 45 20 56 91 20 5A 45 49 43 48 45 4E 47 45 4E 45 |E V. ZEICHENGENE|
000004E0: 52 41 A4 52 20 55 4E 44 20 56 49 44 45 4F 20 52 |RA.R UND VIDEO R|
000004F0: 41 4D 00 37 0D 40 06 43 50 55 50 B0 54 20 20 B2 |AM.7.@.CPUP.T .|
00000500: 20 24 30 31 20 20 20 3B 20 48 49 45 52 20 57 49 | $01 ; HIER WI|
00000510: 52 44 20 46 45 53 54 47 45 4C 45 47 54 20 4F 42 |RD FESTGELEGT OB|
00000520: 20 52 4F 4D 20 4F 44 45 52 20 52 41 4D 20 41 4B | ROM ODER RAM AK|
00000530: 54 49 56 20 49 53 54 00 73 0D 54 06 4B 4F 54 41 |TIV IST.s.T.KOTA|
00000540: 42 31 20 20 20 B2 20 24 33 30 30 30 20 3B 20 54 |B1 . $3000 ; T|
00000550: 41 42 45 4C 4C 45 20 4D 49 54 20 5A 45 49 47 45 |ABELLE MIT ZEIGE|
00000560: 52 4E 20 41 55 46 20 56 49 43 AB 41 44 52 45 53 |RN AUF VIC.ADRES|
00000570: 53 45 4E 00 AF 0D 68 06 4B 4F 54 41 42 32 20 20 |SEN...h.KOTAB2 |
00000580: 20 B2 20 24 33 31 30 30 20 3B 20 54 41 42 45 4C | . $3100 ; TABEL|
00000590: 4C 45 20 4D 49 54 20 57 45 52 54 45 4E 20 46 55 |LE MIT WERTEN FU|
000005A0: 45 52 20 56 49 43 AB 41 44 52 45 53 53 45 4E 00 |ER VIC.ADRESSEN.|
000005B0: D7 0D 7C 06 42 4C 4F 43 4B 20 20 20 20 B2 20 24 |..|.BLOCK . $|
000005C0: 45 30 30 30 20 3B 20 53 50 52 49 54 45 AB 42 4C |E000 ; SPRITE.BL|
000005D0: 4F 43 4B 20 24 38 30 00 DD 0D 90 06 3B 00 2B 0E |OCK $80.....;.+.|
000005E0: A4 06 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC |..; ............|
000005F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000600: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000610: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000620: AC AC AC AC AC AC AC AC AC AC AC 00 31 0E B8 06 |............1...|
00000630: 3B 00 63 0E CC 06 3B 20 47 45 4E 45 52 49 45 8A |;.c...; GENERIE.|
00000640: 47 20 44 45 52 20 48 49 4C 46 53 54 41 42 45 4C |G DER HILFSTABEL|
00000650: C3 20 4B 4F 54 41 42 31 20 55 4E 44 20 4B 4F 54 |. KOTAB1 UND KOT|
00000660: 41 42 32 00 69 0E E0 06 3B 00 7F 0E F4 06 3A 20 |AB2.i...;.....: |
00000670: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 00 | LDY #$00.|
00000680: 90 0E 08 07 3A 20 20 20 20 20 20 20 20 54 59 41 |....: TYA|
00000690: 00 AA 0E 1C 07 43 4C 45 41 52 20 20 20 20 53 54 |.....CLEAR ST|
000006A0: 41 20 4B 4F 54 41 42 31 2C 59 00 C4 0E 30 07 3A |A KOTAB1,Y...0.:|
000006B0: 20 20 20 20 20 20 20 20 53 54 41 20 4B 4F 54 41 | STA KOTA|
000006C0: 42 32 2C 59 00 D5 0E 44 07 3A 20 20 20 20 20 20 |B2,Y...D.: |
000006D0: 20 20 49 4E 59 00 EC 0E 58 07 3A 20 20 20 20 20 | INY...X.: |
000006E0: 20 20 20 42 4E 45 20 43 4C 45 41 52 00 FD 0E 6C | BNE CLEAR...l|
000006F0: 07 3A 20 20 20 20 20 20 20 20 43 4C 43 00 13 0F |.: CLC...|
00000700: 80 07 3A 20 20 20 20 20 20 20 20 4C 44 58 20 23 |..: LDX #|
00000710: 24 30 36 00 29 0F 94 07 3A 20 20 20 20 20 20 20 |$06.)...: |
00000720: 20 4C 44 59 20 23 24 30 30 00 3F 0F A8 07 4C 4F | LDY #$00.?...LO|
00000730: 4F 50 32 20 20 20 20 4C 44 41 20 23 24 30 31 00 |OP2 LDA #$01.|
00000740: 50 0F BC 07 4C 4F 4F 50 31 20 20 20 20 49 4E 59 |P...LOOP1 INY|
00000750: 00 6A 0F D0 07 3A 20 20 20 20 20 20 20 20 53 54 |.j...: ST|
00000760: 41 20 4B 4F 54 41 42 31 2C 59 00 7B 0F E4 07 3A |A KOTAB1,Y.{...:|
00000770: 20 20 20 20 20 20 20 20 50 48 41 00 91 0F F8 07 | PHA.....|
00000780: 3A 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 |: LDA #$2|
00000790: 41 00 AB 0F 0C 08 3A 20 20 20 20 20 20 20 20 53 |A.....: S|
000007A0: 54 41 20 4B 4F 54 41 42 32 2C 59 00 BC 0F 20 08 |TA KOTAB2,Y... .|
000007B0: 3A 20 20 20 20 20 20 20 20 50 4C 41 00 D2 0F 34 |: PLA...4|
000007C0: 08 3A 20 20 20 20 20 20 20 20 41 44 43 20 23 24 |.: ADC #$|
000007D0: 30 32 00 E8 0F 48 08 3A 20 20 20 20 20 20 20 20 |02...H.: |
000007E0: 43 4D 50 20 23 24 31 31 00 FF 0F 5C 08 3A 20 20 |CMP #$11...\.: |
000007F0: 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 31 00 | BNE LOOP1.|
00000800: 10 10 70 08 3A 20 20 20 20 20 20 20 20 54 59 41 |..p.: TYA|
00000810: 00 26 10 84 08 3A 20 20 20 20 20 20 20 20 41 44 |.&...: AD|
00000820: 43 20 23 24 31 46 00 37 10 98 08 3A 20 20 20 20 |C #$1F.7...: |
00000830: 20 20 20 20 54 41 59 00 4D 10 AC 08 3A 20 20 20 | TAY.M...: |
00000840: 20 20 20 20 20 4C 44 41 20 23 24 31 38 00 67 10 | LDA #$18.g.|
00000850: C0 08 3A 20 20 20 20 20 20 20 20 53 54 41 20 4B |..: STA K|
00000860: 4F 54 41 42 31 2C 59 00 7D 10 D4 08 3A 20 20 20 |OTAB1,Y.}...: |
00000870: 20 20 20 20 20 4C 44 41 20 23 24 31 30 00 97 10 | LDA #$10...|
00000880: E8 08 3A 20 20 20 20 20 20 20 20 53 54 41 20 4B |..: STA K|
00000890: 4F 54 41 42 32 2C 59 00 A8 10 FC 08 3A 20 20 20 |OTAB2,Y.....: |
000008A0: 20 20 20 20 20 49 4E 59 00 B9 10 10 09 3A 20 20 | INY.....: |
000008B0: 20 20 20 20 20 20 49 4E 59 00 CA 10 24 09 3A 20 | INY...$.: |
000008C0: 20 20 20 20 20 20 20 44 45 58 00 E1 10 38 09 3A | DEX...8.:|
000008D0: 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 | BNE LOOP|
000008E0: 32 00 F7 10 4C 09 3A 20 20 20 20 20 20 20 20 4C |2...L.: L|
000008F0: 44 41 20 23 24 31 31 00 13 11 60 09 3A 20 20 20 |DA #$11...`.: |
00000900: 20 20 20 20 20 53 54 41 20 4B 4F 54 41 42 31 AA | STA KOTAB1.|
00000910: 24 31 45 00 2F 11 74 09 3A 20 20 20 20 20 20 20 |$1E./.t.: |
00000920: 20 53 54 41 20 4B 4F 54 41 42 31 AA 24 45 34 00 | STA KOTAB1.$E4.|
00000930: 45 11 88 09 3A 20 20 20 20 20 20 20 20 4C 44 41 |E...: LDA|
00000940: 20 23 24 31 30 00 61 11 9C 09 3A 20 20 20 20 20 | #$10.a...: |
00000950: 20 20 20 53 54 41 20 4B 4F 54 41 42 32 AA 24 31 | STA KOTAB2.$1|
00000960: 45 00 77 11 B0 09 3A 20 20 20 20 20 20 20 20 4C |E.w...: L|
00000970: 44 41 20 23 24 38 38 00 93 11 C4 09 3A 20 20 20 |DA #$88.....: |
00000980: 20 20 20 20 20 53 54 41 20 4B 4F 54 41 42 32 AA | STA KOTAB2.|
00000990: 24 45 34 00 99 11 D8 09 3B 00 B9 11 EC 09 3B 20 |$E4.....;.....; |
000009A0: B5 45 52 52 55 50 54 52 4F 55 54 49 4E 45 20 56 |.ERRUPTROUTINE V|
000009B0: B0 42 45 52 45 49 54 45 4E 00 BF 11 00 0A 3B 00 |.BEREITEN.....;.|
000009C0: ED 11 14 0A 3A 20 20 20 20 20 20 20 20 53 45 49 |....: SEI|
000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 B5 45 | ; .E|
000009E0: 52 52 55 50 54 20 53 50 45 52 52 45 4E 00 1F 12 |RRUPT SPERREN...|
000009F0: 28 0A 3A 20 20 20 20 20 20 20 20 4C 44 41 20 23 |(.: LDA #|
00000A00: 24 33 35 20 20 20 20 20 20 20 3B 20 4B 45 52 4E |$35 ; KERN|
00000A10: 41 4C 20 52 41 4D 20 45 49 4E 42 C3 44 45 4E 00 |AL RAM EINB.DEN.|
00000A20: 37 12 3C 0A 3A 20 20 20 20 20 20 20 20 53 54 41 |7.<.: STA|
00000A30: 20 43 50 55 50 B0 54 00 72 12 50 0A 3A 20 20 20 | CPUP.T.r.P.: |
00000A40: 20 20 20 20 20 4C 44 58 20 23 B3 A2 4E 4D 49 20 | LDX #..NMI |
00000A50: 20 20 3B 20 4E 4D 49 AB 56 45 4B A4 52 20 41 55 | ; NMI.VEK.R AU|
00000A60: 46 20 A2 4E 4D 49 20 27 56 45 52 42 49 45 47 45 |F .NMI 'VERBIEGE|
00000A70: 4E 27 00 AC 12 64 0A 3A 20 20 20 20 20 20 20 20 |N'...d.: |
00000A80: 4C 44 59 20 23 B1 A2 4E 4D 49 20 20 20 3B 20 44 |LDY #..NMI ; D|
00000A90: 49 45 4E 54 20 4E 55 52 20 44 41 5A 55 20 55 4D |IENT NUR DAZU UM|
00000AA0: 20 44 49 45 20 8C AB 54 41 53 54 45 00 DC 12 78 | DIE ..TASTE...x|
00000AB0: 0A 3A 20 20 20 20 20 20 20 20 53 54 58 20 4E 4D |.: STX NM|
00000AC0: 49 56 45 4B 20 20 20 20 20 3B 20 5A 55 20 4E 45 |IVEK ; ZU NE|
00000AD0: 55 54 52 41 4C 49 53 49 45 52 45 4E 00 F6 12 8C |UTRALISIEREN....|
00000AE0: 0A 3A 20 20 20 20 20 20 20 20 53 54 59 20 4E 4D |.: STY NM|
00000AF0: 49 56 45 4B AA 31 00 31 13 A0 0A 3A 20 20 20 20 |IVEK.1.1...: |
00000B00: 20 20 20 20 4C 44 58 20 23 B3 A2 49 52 51 20 20 | LDX #..IRQ |
00000B10: 20 3B 20 49 52 51 AB 56 45 4B A4 52 20 41 55 46 | ; IRQ.VEK.R AUF|
00000B20: 20 A2 49 52 51 20 27 56 45 52 42 49 45 47 45 4E | .IRQ 'VERBIEGEN|
00000B30: 27 00 49 13 B4 0A 3A 20 20 20 20 20 20 20 20 4C |'.I...: L|
00000B40: 44 59 20 23 B1 A2 49 52 51 00 61 13 C8 0A 3A 20 |DY #..IRQ.a...: |
00000B50: 20 20 20 20 20 20 20 53 54 58 20 49 52 51 56 45 | STX IRQVE|
00000B60: 4B 00 7B 13 DC 0A 3A 20 20 20 20 20 20 20 20 53 |K.{...: S|
00000B70: 54 59 20 49 52 51 56 45 4B AA 31 00 91 13 F0 0A |TY IRQVEK.1.....|
00000B80: 3A 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 |: LDA #$0|
00000B90: 30 00 A6 13 04 0B 3A 20 20 20 20 20 20 20 20 53 |0.....: S|
00000BA0: 54 41 20 49 43 52 00 E3 13 18 0B 3A 20 20 20 20 |TA ICR.....: |
00000BB0: 20 20 20 20 53 54 41 20 43 52 41 20 20 20 20 20 | STA CRA |
00000BC0: 20 20 20 3B 20 B5 45 52 52 55 50 54 20 44 55 52 | ; .ERRUPT DUR|
00000BD0: 43 48 20 54 49 4D 45 52 20 56 45 52 48 49 4E 44 |CH TIMER VERHIND|
00000BE0: 45 52 4E 00 26 14 2C 0B 3A 20 20 20 20 20 20 20 |ERN.&.,.: |
00000BF0: 20 53 54 41 20 56 49 43 B9 20 20 20 20 20 3B 20 | STA VIC. ; |
00000C00: 41 44 52 45 53 53 42 45 52 45 49 43 48 20 44 45 |ADRESSBEREICH DE|
00000C10: 53 20 56 49 43 20 4E 41 43 48 20 24 43 30 30 30 |S VIC NACH $C000|
00000C20: AB 24 46 46 46 46 00 2C 14 40 0B 3B 00 57 14 54 |.$FFFF.,.@.;.W.T|
00000C30: 0B 3B 20 56 49 43 20 4D 49 54 20 45 4E 54 53 50 |.; VIC MIT ENTSP|
00000C40: 52 45 43 48 80 45 4E 20 57 45 52 54 45 4E 20 56 |RECH.EN WERTEN V|
00000C50: 45 52 53 B0 47 45 4E 00 5D 14 68 0B 3B 00 73 14 |ERS.GEN.].h.;.s.|
00000C60: 7C 0B 3A 20 20 20 20 20 20 20 20 4C 44 58 20 23 ||.: LDX #|
00000C70: 24 32 45 00 8D 14 90 0B 56 49 43 53 45 54 20 20 |$2E.....VICSET |
00000C80: 20 4C 44 41 20 56 49 43 C5 55 45 2C 58 00 A4 14 | LDA VIC.UE,X...|
00000C90: A4 0B 3A 20 20 20 20 20 20 20 20 53 54 41 20 56 |..: STA V|
00000CA0: 49 43 2C 58 00 B5 14 B8 0B 3A 20 20 20 20 20 20 |IC,X.....: |
00000CB0: 20 20 44 45 58 00 CD 14 CC 0B 3A 20 20 20 20 20 | DEX.....: |
00000CC0: 20 20 20 42 50 4C 20 56 49 43 53 45 54 00 D3 14 | BPL VICSET...|
00000CD0: E0 0B 3B 00 EC 14 F4 0B 3B 20 53 50 52 49 54 45 |..;.....; SPRITE|
00000CE0: 50 4F B5 45 52 20 53 45 54 5A 45 4E 00 F2 14 08 |PO.ER SETZEN....|
00000CF0: 0C 3B 00 08 15 1C 0C 3A 20 20 20 20 20 20 20 20 |.;.....: |
00000D00: 4C 44 59 20 23 24 30 37 00 20 15 30 0C 53 45 54 |LDY #$07. .0.SET|
00000D10: 50 4F B5 20 4C 44 41 20 B9 54 41 42 30 31 2C 59 |PO. LDA .TAB01,Y|
00000D20: 00 3A 15 44 0C 3A 20 20 20 20 20 20 20 20 53 54 |.:.D.: ST|
00000D30: 41 20 53 50 4F B5 30 31 2C 59 00 54 15 58 0C 3A |A SPO.01,Y.T.X.:|
00000D40: 20 20 20 20 20 20 20 20 4C 44 41 20 B9 54 41 42 | LDA .TAB|
00000D50: 30 32 2C 59 00 6E 15 6C 0C 3A 20 20 20 20 20 20 |02,Y.n.l.: |
00000D60: 20 20 53 54 41 20 53 50 4F B5 30 32 2C 59 00 88 | STA SPO.02,Y..|
00000D70: 15 80 0C 3A 20 20 20 20 20 20 20 20 4C 44 41 20 |...: LDA |
00000D80: B9 54 41 42 30 33 2C 59 00 A2 15 94 0C 3A 20 20 |.TAB03,Y.....: |
00000D90: 20 20 20 20 20 20 53 54 41 20 53 50 4F B5 30 33 | STA SPO.03|
00000DA0: 2C 59 00 D4 15 A8 0C 3A 20 20 20 20 20 20 20 20 |,Y.....: |
00000DB0: 44 45 43 20 43 50 55 50 B0 54 20 20 20 20 3B 20 |DEC CPUP.T ; |
00000DC0: 49 AD 4F 20 42 45 52 45 49 43 48 20 41 55 53 42 |I.O BEREICH AUSB|
00000DD0: C3 44 45 4E 00 03 16 BC 0C 3A 20 20 20 20 20 20 |.DEN.....: |
00000DE0: 20 20 4C 44 41 20 B9 54 41 42 30 34 2C 59 20 3B | LDA .TAB04,Y ;|
00000DF0: 20 44 41 20 44 49 45 20 53 50 52 49 54 45 50 4F | DA DIE SPRITEPO|
00000E00: B5 45 52 00 2D 16 D0 0C 3A 20 20 20 20 20 20 20 |.ER.-...: |
00000E10: 20 53 54 41 20 53 50 4F B5 30 34 2C 59 20 3B 20 | STA SPO.04,Y ; |
00000E20: 53 50 4F B5 30 34 AB 53 50 4F B5 30 36 00 62 16 |SPO.04.SPO.06.b.|
00000E30: E4 0C 3A 20 20 20 20 20 20 20 20 4C 44 41 20 B9 |..: LDA .|
00000E40: 54 41 42 30 35 2C 59 20 3B 20 49 4E 20 44 49 45 |TAB05,Y ; IN DIE|
00000E50: 53 45 4D 20 42 45 52 45 49 43 48 20 4C 49 45 47 |SEM BEREICH LIEG|
00000E60: 45 4E 00 7C 16 F8 0C 3A 20 20 20 20 20 20 20 20 |EN.|...: |
00000E70: 53 54 41 20 53 50 4F B5 30 35 2C 59 00 96 16 0C |STA SPO.05,Y....|
00000E80: 0D 3A 20 20 20 20 20 20 20 20 4C 44 41 20 B9 54 |.: LDA .T|
00000E90: 41 42 30 36 2C 59 00 B0 16 20 0D 3A 20 20 20 20 |AB06,Y... .: |
00000EA0: 20 20 20 20 53 54 41 20 53 50 4F B5 30 36 2C 59 | STA SPO.06,Y|
00000EB0: 00 E9 16 34 0D 3A 20 20 20 20 20 20 20 20 49 4E |...4.: IN|
00000EC0: 43 20 43 50 55 50 B0 54 20 20 20 20 3B 20 49 AD |C CPUP.T ; I.|
00000ED0: 4F 20 42 45 52 45 49 43 48 20 57 49 45 44 45 52 |O BEREICH WIEDER|
00000EE0: 20 45 49 4E 42 C3 44 45 4E 00 FA 16 48 0D 3A 20 | EINB.DEN...H.: |
00000EF0: 20 20 20 20 20 20 20 44 45 59 00 12 17 5C 0D 3A | DEY...\.:|
00000F00: 20 20 20 20 20 20 20 20 42 50 4C 20 53 45 54 50 | BPL SETP|
00000F10: 4F B5 00 18 17 70 0D 3B 00 4A 17 84 0D 3B 20 53 |O....p.;.J...; S|
00000F20: 50 52 49 54 45 44 41 54 45 4E 20 4E 41 43 48 20 |PRITEDATEN NACH |
00000F30: 24 45 30 30 30 20 4B 4F 50 49 45 52 45 4E 20 28 |$E000 KOPIEREN (|
00000F40: 42 4C 4F 43 4B 20 24 38 30 29 00 50 17 98 0D 3B |BLOCK $80).P...;|
00000F50: 00 66 17 AC 0D 3A 20 20 20 20 20 20 20 20 4C 44 |.f...: LD|
00000F60: 59 20 23 24 33 46 00 80 17 C0 0D 4C 41 42 45 4C |Y #$3F.....LABEL|
00000F70: 35 20 20 20 4C 44 41 20 53 50 52 49 54 45 2C 59 |5 LDA SPRITE,Y|
00000F80: 00 99 17 D4 0D 3A 20 20 20 20 20 20 20 20 53 54 |.....: ST|
00000F90: 41 20 42 4C 4F 43 4B 2C 59 00 AA 17 E8 0D 3A 20 |A BLOCK,Y.....: |
00000FA0: 20 20 20 20 20 20 20 44 45 59 00 C2 17 FC 0D 3A | DEY.....:|
00000FB0: 20 20 20 20 20 20 20 20 42 50 4C 20 4C 41 42 45 | BPL LABE|
00000FC0: 4C 35 00 C8 17 10 0E 3B 00 FD 17 24 0E 3A 20 20 |L5.....;...$.: |
00000FD0: 20 20 20 20 20 20 43 4C 49 20 20 20 20 20 20 20 | CLI |
00000FE0: 20 20 20 20 20 3B 20 B5 45 52 52 55 50 54 20 57 | ; .ERRUPT W|
00000FF0: 49 45 44 45 52 20 B8 49 47 45 42 45 4E 00 37 18 |IEDER .IGEBEN.7.|
00001000: 38 0E 3A 20 20 20 20 20 20 20 20 4C 44 59 20 23 |8.: LDY #|
00001010: 24 30 30 20 20 20 20 20 20 20 3B 20 55 4E 44 20 |$00 ; UND |
00001020: 49 4E 20 80 4C 4F 53 53 43 48 4C 45 8B 45 20 53 |IN .LOSSCHLE.E S|
00001030: 50 52 49 4E 47 45 4E 00 79 18 4C 0E 3A 20 20 20 |PRINGEN.y.L.: |
00001040: 20 20 20 20 20 4C 44 58 20 23 24 30 30 20 20 20 | LDX #$00 |
00001050: 20 20 20 20 3B 20 55 4D 20 44 41 53 20 54 49 4D | ; UM DAS TIM|
00001060: 49 4E 47 20 44 45 53 20 B5 45 52 52 55 50 54 50 |ING DES .ERRUPTP|
00001070: 52 4F 47 52 41 4D 4D 45 53 00 A3 18 60 0E 80 4C |ROGRAMMES...`..L|
00001080: 45 53 53 20 20 4A 4D 50 20 80 4C 45 53 53 20 20 |ESS JMP .LESS |
00001090: 20 20 3B 20 4E 49 43 48 54 20 5A 55 20 53 A4 45 | ; NICHT ZU S.E|
000010A0: 52 45 4E 00 A9 18 74 0E 3B 00 F7 18 88 0E 3B 20 |REN...t.;.....; |
000010B0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000010C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000010D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000010E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000010F0: AC AC AC AC AC AC AC 00 45 19 9C 0E 3B 20 AC AC |........E...; ..|
00001100: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001110: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001120: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001130: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001140: AC AC AC AC AC 00 4B 19 B0 0E 3B 00 7E 19 C4 0E |......K...;.~...|
00001150: 3B 20 48 49 45 52 20 42 45 47 49 4E 4E 54 20 44 |; HIER BEGINNT D|
00001160: 41 53 20 45 49 47 45 4E 54 4C 49 43 48 45 20 B5 |AS EIGENTLICHE .|
00001170: 45 52 52 55 50 54 50 52 4F 47 52 41 4D 4D 00 84 |ERRUPTPROGRAMM..|
00001180: 19 D8 0E 3B 00 A7 19 EC 0E A2 49 52 51 20 20 20 |...;......IRQ |
00001190: 42 49 54 20 24 30 30 20 20 20 20 20 20 20 20 3B |BIT $00 ;|
000011A0: 20 54 49 4D 49 4E 47 00 CC 19 00 0F 3A 20 20 20 | TIMING.....: |
000011B0: 20 20 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 | NOP |
000011C0: 20 20 20 20 3B 20 54 49 4D 49 4E 47 00 EE 19 14 | ; TIMING....|
000011D0: 0F 82 20 20 20 20 20 4E 4F 50 20 20 20 20 20 20 |.. NOP |
000011E0: 20 20 20 20 20 20 3B 20 54 49 4D 49 4E 47 00 13 | ; TIMING..|
000011F0: 1A 28 0F 3A 20 20 20 20 20 20 20 20 43 4C 43 20 |.(.: CLC |
00001200: 20 20 20 20 20 20 20 20 20 20 20 3B 20 54 49 4D | ; TIM|
00001210: 49 4E 47 00 38 1A 3C 0F 3A 20 20 20 20 20 20 20 |ING.8.<.: |
00001220: 20 42 49 54 20 24 30 30 20 20 20 20 20 20 20 20 | BIT $00 |
00001230: 3B 20 54 49 4D 49 4E 47 00 67 1A 50 0F 3A 20 20 |; TIMING.g.P.: |
00001240: 20 20 20 20 20 20 4C 44 58 20 4B 4F 54 41 42 31 | LDX KOTAB1|
00001250: 2C 59 20 20 20 3B 20 56 49 43 AB 41 44 52 45 53 |,Y ; VIC.ADRES|
00001260: 53 45 4E 20 48 4F C3 00 93 1A 64 0F 3A 20 20 20 |SEN HO....d.: |
00001270: 20 20 20 20 20 53 54 58 20 45 58 45 43 55 54 45 | STX EXECUTE|
00001280: AA 31 20 20 3B 20 55 4E 44 20 B6 50 45 49 43 48 |.1 ; UND .PEICH|
00001290: 45 52 4E 00 C4 1A 78 0F 3A 20 20 20 20 20 20 20 |ERN...x.: |
000012A0: 20 4C 44 41 20 56 49 43 2C 58 20 20 20 20 20 20 | LDA VIC,X |
000012B0: 3B 20 41 4C 54 45 20 56 49 43 AB 57 45 52 54 45 |; ALTE VIC.WERTE|
000012C0: 20 48 4F C3 00 F9 1A 8C 0F 3A 20 20 20 20 20 20 | HO......: |
000012D0: 20 20 41 44 43 20 4B 4F 54 41 42 32 2C 59 20 20 | ADC KOTAB2,Y |
000012E0: 20 3B 20 55 4E 44 20 4E 45 55 45 20 44 41 5A 55 | ; UND NEUE DAZU|
000012F0: 20 41 44 44 49 45 52 45 4E 00 30 1B A0 0F 3A 20 | ADDIEREN.0...: |
00001300: 20 20 20 20 20 20 20 44 45 43 20 53 54 52 45 47 | DEC STREG|
00001310: 32 20 20 20 20 20 3B 20 53 43 52 4F 4C 4C AB 52 |2 ; SCROLL.R|
00001320: 45 47 49 53 54 45 52 20 53 43 48 41 4C 54 45 4E |EGISTER SCHALTEN|
00001330: 00 63 1B B4 0F 45 58 45 43 55 54 45 20 20 53 54 |.c...EXECUTE ST|
00001340: 41 20 56 49 43 20 20 20 20 20 20 20 20 3B 20 4E |A VIC ; N|
00001350: 45 55 45 20 57 45 52 54 45 20 B6 50 45 49 43 48 |EUE WERTE .PEICH|
00001360: 45 52 4E 00 9A 1B C8 0F 3A 20 20 20 20 20 20 20 |ERN.....: |
00001370: 20 49 4E 43 20 53 54 52 45 47 32 20 20 20 20 20 | INC STREG2 |
00001380: 3B 20 53 43 52 4F 4C 4C AB 52 45 47 49 53 54 45 |; SCROLL.REGISTE|
00001390: 52 20 53 43 48 41 4C 54 45 4E 00 BF 1B DC 0F 3A |R SCHALTEN.....:|
000013A0: 20 20 20 20 20 20 20 20 4E 4F 50 20 20 20 20 20 | NOP |
000013B0: 20 20 20 20 20 20 20 3B 20 54 49 4D 49 4E 47 00 | ; TIMING.|
000013C0: F3 1B F0 0F 3A 20 20 20 20 20 20 20 20 49 4E 59 |....: INY|
000013D0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 43 | ; SC|
000013E0: 48 91 20 41 4C 4C 45 20 57 45 52 54 45 20 44 55 |H. ALLE WERTE DU|
000013F0: 52 43 48 00 21 1C 04 10 3A 20 20 20 20 20 20 20 |RCH.!...: |
00001400: 20 42 4E 45 20 82 20 20 20 20 20 20 20 3B 20 4E | BNE . ; N|
00001410: 45 49 4E 2C 20 44 41 4E 4E 20 5A 55 52 55 45 43 |EIN, DANN ZURUEC|
00001420: 4B 00 27 1C 18 10 3B 00 3D 1C 2C 10 3A 20 20 20 |K.'...;.=.,.: |
00001430: 20 20 20 20 20 4C 44 58 20 23 24 30 31 00 76 1C | LDX #$01.v.|
00001440: 40 10 3A 20 20 20 20 20 20 20 20 4C 44 41 20 23 |@.: LDA #|
00001450: 24 31 33 20 20 20 20 20 20 20 3B 20 53 50 52 49 |$13 ; SPRI|
00001460: 54 45 20 59 AB 4B 4F B0 44 49 4E 41 54 45 4E 20 |TE Y.KO.DINATEN |
00001470: 57 49 45 44 45 52 00 A9 1C 54 10 4F 4C 44 B9 20 |WIEDER...T.OLD. |
00001480: 20 20 53 54 41 20 56 49 43 2C 58 20 20 20 20 20 | STA VIC,X |
00001490: 20 3B 20 41 55 46 20 41 4E 46 41 4E 47 53 57 45 | ; AUF ANFANGSWE|
000014A0: 52 54 20 53 45 54 5A 45 4E 00 BA 1C 68 10 3A 20 |RT SETZEN...h.: |
000014B0: 20 20 20 20 20 20 20 49 4E 58 00 CB 1C 7C 10 3A | INX...|.:|
000014C0: 20 20 20 20 20 20 20 20 49 4E 58 00 FB 1C 90 10 | INX.....|
000014D0: 3A 20 20 20 20 20 20 20 20 43 50 58 20 23 24 31 |: CPX #$1|
000014E0: 31 20 20 20 20 20 20 20 3B 20 53 43 48 91 20 41 |1 ; SCH. A|
000014F0: 4C 4C 45 20 53 50 52 49 54 45 53 00 2A 1D A4 10 |LLE SPRITES.*...|
00001500: 3A 20 20 20 20 20 20 20 20 42 4E 45 20 4F 4C 44 |: BNE OLD|
00001510: B9 20 20 20 20 20 3B 20 4E 45 49 4E 2C 20 44 41 |. ; NEIN, DA|
00001520: 4E 4E 20 5A 55 52 55 45 43 4B 00 40 1D B8 10 3A |NN ZURUECK.@...:|
00001530: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 31 | LDA #$01|
00001540: 00 6F 1D CC 10 3A 20 20 20 20 20 20 20 20 53 54 |.o...: ST|
00001550: 41 20 49 52 52 20 20 20 20 20 20 20 20 3B 20 B5 |A IRR ; .|
00001560: 45 52 52 55 50 54 20 4C 4F 45 53 43 48 45 4E 00 |ERRUPT LOESCHEN.|
00001570: 85 1D E0 10 3A 20 20 20 20 20 20 20 20 4C 44 41 |....: LDA|
00001580: 20 23 24 30 38 00 BD 1D F4 10 3A 20 20 20 20 20 | #$08.....: |
00001590: 20 20 20 53 54 41 20 53 54 52 45 47 31 20 20 20 | STA STREG1 |
000015A0: 20 20 3B 20 55 50 AB 44 4F 57 4E 20 42 B0 44 45 | ; UP.DOWN B.DE|
000015B0: 52 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 D3 1D |R EINSCHALTEN...|
000015C0: 08 11 3A 20 20 20 20 20 20 20 20 4C 44 41 20 23 |..: LDA #|
000015D0: 24 31 30 00 15 1E 1C 11 3A 20 20 20 20 20 20 20 |$10.....: |
000015E0: 20 53 54 41 20 42 41 53 49 53 20 20 20 20 20 20 | STA BASIS |
000015F0: 3B 20 42 41 53 49 53 41 44 52 45 53 53 45 20 57 |; BASISADRESSE W|
00001600: 49 45 44 45 52 20 41 55 46 20 41 4E 46 41 4E 47 |IEDER AUF ANFANG|
00001610: 53 57 45 52 54 00 4A 1E 30 11 3A 20 20 20 20 20 |SWERT.J.0.: |
00001620: 20 20 20 53 54 41 20 45 58 54 45 52 49 B0 20 20 | STA EXTERI. |
00001630: 20 3B 20 52 41 48 4D 45 4E 46 41 52 42 45 20 41 | ; RAHMENFARBE A|
00001640: 55 46 20 53 43 48 57 41 52 5A 00 75 1E 44 11 A2 |UF SCHWARZ.u.D..|
00001650: 4E 4D 49 20 20 20 52 54 49 20 20 20 20 20 20 20 |NMI RTI |
00001660: 20 20 20 20 20 3B 20 8E 20 46 52 4F 4D 20 B5 45 | ; . FROM .E|
00001670: 52 52 55 50 54 00 7B 1E 58 11 3B 00 C9 1E 6C 11 |RRUPT.{.X.;...l.|
00001680: 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC |; ..............|
00001690: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000016A0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000016B0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000016C0: AC AC AC AC AC AC AC AC AC 00 17 1F 80 11 3B 20 |..............; |
000016D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000016E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000016F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001700: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001710: AC AC AC AC AC AC AC 00 1D 1F 94 11 3B 00 46 1F |............;.F.|
00001720: A8 11 3B 20 41 42 20 48 49 45 52 20 46 4F 4C 47 |..; AB HIER FOLG|
00001730: 45 4E 20 44 49 45 20 42 45 4E 55 54 5A 54 45 4E |EN DIE BENUTZTEN|
00001740: 20 57 45 52 54 45 00 4C 1F BC 11 3B 00 6D 1F D0 | WERTE.L...;.m..|
00001750: 11 56 49 43 C5 55 45 20 2E 42 59 54 45 20 24 46 |.VIC.UE .BYTE $F|
00001760: 30 2C 24 31 33 2C 24 32 38 2C 24 31 33 00 A4 1F |0,$13,$28,$13...|
00001770: E4 11 3A 20 20 20 20 20 20 20 20 2E 42 59 54 45 |..: .BYTE|
00001780: 20 24 35 38 2C 24 31 33 2C 24 38 38 2C 24 31 33 | $58,$13,$88,$13|
00001790: 20 3B 20 53 50 52 49 54 45 20 4B 4F B0 44 49 4E | ; SPRITE KO.DIN|
000017A0: 41 54 45 4E 00 C7 1F F8 11 3A 20 20 20 20 20 20 |ATEN.....: |
000017B0: 20 20 2E 42 59 54 45 20 24 42 38 2C 24 31 33 2C | .BYTE $B8,$13,|
000017C0: 24 45 38 2C 24 31 33 00 EA 1F 0C 12 3A 20 20 20 |$E8,$13.....: |
000017D0: 20 20 20 20 20 2E 42 59 54 45 20 24 31 38 2C 24 | .BYTE $18,$|
000017E0: 31 33 2C 24 34 38 2C 24 31 33 00 31 20 20 12 3A |13,$48,$13.1 .:|
000017F0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 43 | .BYTE $C|
00001800: 31 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |1 ; |
00001810: 4D 53 42 20 46 55 45 52 20 58 AB 4B 4F B0 44 49 |MSB FUER X.KO.DI|
00001820: 4E 41 54 45 4E 20 44 45 52 20 53 50 52 49 54 45 |NATEN DER SPRITE|
00001830: 53 00 67 20 34 12 3A 20 20 20 20 20 20 20 20 2E |S.g 4.: .|
00001840: 42 59 54 45 20 24 30 38 20 20 20 20 20 20 20 20 |BYTE $08 |
00001850: 20 20 20 20 20 3B 20 53 54 45 55 45 52 52 45 47 | ; STEUERREG|
00001860: 49 53 54 45 52 20 31 00 A8 20 48 12 3A 20 20 20 |ISTER 1.. H.: |
00001870: 20 20 20 20 20 2E 42 59 54 45 20 24 31 34 20 20 | .BYTE $14 |
00001880: 20 20 20 20 20 20 20 20 20 20 20 3B 20 B5 45 52 | ; .ER|
00001890: 52 55 50 54 20 42 45 49 20 52 41 53 54 45 52 5A |RUPT BEI RASTERZ|
000018A0: 45 49 4C 45 20 24 31 34 00 E5 20 5C 12 3A 20 20 |EILE $14.. \.: |
000018B0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 20 | .BYTE $00 |
000018C0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 58 AB | ; X.|
000018D0: 57 45 52 54 20 28 4C 49 47 48 54 50 45 4E 53 54 |WERT (LIGHTPENST|
000018E0: 52 4F 42 45 29 00 34 21 70 12 3A 20 20 20 20 20 |ROBE).4!p.: |
000018F0: 20 20 20 2E 42 59 54 45 20 24 30 30 20 20 20 20 | .BYTE $00 |
00001900: 20 20 20 20 20 20 20 20 20 3B 20 44 41 53 53 45 | ; DASSE|
00001910: 4C 42 45 20 46 55 45 52 20 59 AB 57 45 52 54 20 |LBE FUER Y.WERT |
00001920: 28 48 49 45 52 20 4E 49 43 48 54 20 42 45 4E 55 |(HIER NICHT BENU|
00001930: 54 5A 54 29 00 72 21 84 12 3A 20 20 20 20 20 20 |TZT).r!..: |
00001940: 20 20 2E 42 59 54 45 20 24 46 46 20 20 20 20 20 | .BYTE $FF |
00001950: 20 20 20 20 20 20 20 20 3B 20 41 4C 4C 45 20 53 | ; ALLE S|
00001960: 50 52 49 54 45 53 20 45 49 4E 53 43 48 41 4C 54 |PRITES EINSCHALT|
00001970: 45 4E 00 B8 21 98 12 3A 20 20 20 20 20 20 20 20 |EN..!..: |
00001980: 2E 42 59 54 45 20 24 30 38 20 20 20 20 20 20 20 |.BYTE $08 |
00001990: 20 20 20 20 20 20 3B 20 53 54 45 55 45 52 52 45 | ; STEUERRE|
000019A0: 47 49 53 54 45 52 20 32 20 28 55 50 AB 44 4F 57 |GISTER 2 (UP.DOW|
000019B0: 4E 20 42 B0 44 45 52 29 00 F4 21 AC 12 3A 20 20 |N B.DER)..!..: |
000019C0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 46 20 | .BYTE $FF |
000019D0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 50 | ; SP|
000019E0: 52 49 54 45 BD AF 20 49 4E 20 58 AB 52 49 43 48 |RITE.. IN X.RICH|
000019F0: 54 55 4E 47 00 41 22 C0 12 3A 20 20 20 20 20 20 |TUNG.A"..: |
00001A00: 20 20 2E 42 59 54 45 20 24 31 30 20 20 20 20 20 | .BYTE $10 |
00001A10: 20 20 20 20 20 20 20 20 3B 20 42 41 53 49 53 41 | ; BASISA|
00001A20: 44 52 45 53 53 45 20 56 91 20 5A 45 49 43 48 45 |DRESSE V. ZEICHE|
00001A30: 4E 47 2E 20 55 4E 44 20 56 49 44 45 4F 20 52 41 |NG. UND VIDEO RA|
00001A40: 4D 00 7F 22 D4 12 3A 20 20 20 20 20 20 20 20 2E |M.."..: .|
00001A50: 42 59 54 45 20 24 30 30 20 20 20 20 20 20 20 20 |BYTE $00 |
00001A60: 20 20 20 20 20 3B 20 B5 45 52 52 55 50 54 20 52 | ; .ERRUPT R|
00001A70: 45 51 55 45 53 54 20 52 45 47 49 53 54 45 52 00 |EQUEST REGISTER.|
00001A80: BA 22 E8 12 3A 20 20 20 20 20 20 20 20 2E 42 59 |."..: .BY|
00001A90: 54 45 20 24 30 31 20 20 20 20 20 20 20 20 20 20 |TE $01 |
00001AA0: 20 20 20 3B 20 B5 45 52 52 55 50 54 20 4D 41 53 | ; .ERRUPT MAS|
00001AB0: 4B 20 52 45 47 49 53 54 45 52 00 FB 22 FC 12 3A |K REGISTER.."..:|
00001AC0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0|
00001AD0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |0 ; |
00001AE0: 53 50 52 49 54 45 AB 42 41 43 4B 47 52 4F 55 4E |SPRITE.BACKGROUN|
00001AF0: 44 AB 50 52 49 B0 49 54 41 45 54 00 3B 23 10 13 |D.PRI.ITAET.;#..|
00001B00: 3A 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 |: .BYTE $|
00001B10: 46 46 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |FF ;|
00001B20: 20 4D 55 4C 54 49 43 4F 4C B0 4D 4F 44 45 20 46 | MULTICOL.MODE F|
00001B30: 55 45 52 20 53 50 52 49 54 45 53 00 77 23 24 13 |UER SPRITES.w#$.|
00001B40: 3A 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 |: .BYTE $|
00001B50: 46 46 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |FF ;|
00001B60: 20 53 50 52 49 54 45 BD AF 20 49 4E 20 59 AB 52 | SPRITE.. IN Y.R|
00001B70: 49 43 48 54 55 4E 47 00 B3 23 38 13 3A 20 20 20 |ICHTUNG..#8.: |
00001B80: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 20 20 | .BYTE $00 |
00001B90: 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 50 52 | ; SPR|
00001BA0: 49 54 45 AB 53 50 52 49 54 45 AB 4B 4F 4C 4C 49 |ITE.SPRITE.KOLLI|
00001BB0: 53 49 91 00 F3 23 4C 13 3A 20 20 20 20 20 20 20 |SI...#L.: |
00001BC0: 20 2E 42 59 54 45 20 24 30 30 20 20 20 20 20 20 | .BYTE $00 |
00001BD0: 20 20 20 20 20 20 20 3B 20 53 50 52 49 54 45 AB | ; SPRITE.|
00001BE0: 42 41 43 4B 47 52 4F 55 4E 44 AB 4B 4F 4C 4C 49 |BACKGROUND.KOLLI|
00001BF0: 53 49 91 00 32 24 60 13 3A 20 20 20 20 20 20 20 |SI..2$`.: |
00001C00: 20 2E 42 59 54 45 20 24 30 30 20 20 20 20 20 20 | .BYTE $00 |
00001C10: 20 20 20 20 20 20 20 3B 20 45 58 54 45 52 49 B0 | ; EXTERI.|
00001C20: 43 4F 4C B0 20 28 52 41 48 4D 45 4E 46 41 52 42 |COL. (RAHMENFARB|
00001C30: 45 29 00 75 24 74 13 3A 20 20 20 20 20 20 20 20 |E).u$t.: |
00001C40: 2E 42 59 54 45 20 24 30 30 20 20 20 20 20 20 20 |.BYTE $00 |
00001C50: 20 20 20 20 20 20 3B 20 42 41 43 4B 47 52 4F 55 | ; BACKGROU|
00001C60: 4E 44 43 4F 4C B0 20 28 48 B5 45 52 47 8A 44 46 |NDCOL. (H.ERG.DF|
00001C70: 41 52 42 45 29 00 AB 24 88 13 3A 20 20 20 20 20 |ARBE)..$..: |
00001C80: 20 20 20 2E 42 59 54 45 20 24 30 30 20 20 20 20 | .BYTE $00 |
00001C90: 20 20 20 20 20 20 20 20 20 3B 20 42 41 43 4B 47 | ; BACKG|
00001CA0: 52 4F 55 4E 44 43 4F 4C B0 20 31 00 E1 24 9C 13 |ROUNDCOL. 1..$..|
00001CB0: 3A 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 |: .BYTE $|
00001CC0: 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |00 ;|
00001CD0: 20 42 41 43 4B 47 52 4F 55 4E 44 43 4F 4C B0 20 | BACKGROUNDCOL. |
00001CE0: 32 00 17 25 B0 13 3A 20 20 20 20 20 20 20 20 2E |2..%..: .|
00001CF0: 42 59 54 45 20 24 30 30 20 20 20 20 20 20 20 20 |BYTE $00 |
00001D00: 20 20 20 20 20 3B 20 42 41 43 4B 47 52 4F 55 4E | ; BACKGROUN|
00001D10: 44 43 4F 4C B0 20 33 00 4E 25 C4 13 3A 20 20 20 |DCOL. 3.N%..: |
00001D20: 20 20 20 20 20 2E 42 59 54 45 20 24 30 41 20 20 | .BYTE $0A |
00001D30: 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 50 52 | ; SPR|
00001D40: 49 54 45 4D 55 4C 54 49 43 4F 4C B0 20 30 00 85 |ITEMULTICOL. 0..|
00001D50: 25 D8 13 3A 20 20 20 20 20 20 20 20 2E 42 59 54 |%..: .BYT|
00001D60: 45 20 24 30 45 20 20 20 20 20 20 20 20 20 20 20 |E $0E |
00001D70: 20 20 3B 20 53 50 52 49 54 45 4D 55 4C 54 49 43 | ; SPRITEMULTIC|
00001D80: 4F 4C B0 20 31 00 B8 25 EC 13 3A 20 20 20 20 20 |OL. 1..%..: |
00001D90: 20 20 20 2E 42 59 54 45 20 24 30 37 2C 24 30 37 | .BYTE $07,$07|
00001DA0: 2C 24 30 37 2C 24 30 37 20 3B 20 43 4F 4C B0 20 |,$07,$07 ; COL. |
00001DB0: 53 50 52 49 54 45 20 30 00 EA 25 00 14 3A 20 20 |SPRITE 0..%..: |
00001DC0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 37 2C | .BYTE $07,|
00001DD0: 24 30 37 2C 24 30 37 2C 24 30 37 20 3B 20 42 49 |$07,$07,$07 ; BI|
00001DE0: 53 20 53 50 52 49 54 45 20 37 00 F0 25 14 14 3B |S SPRITE 7..%..;|
00001DF0: 00 11 26 28 14 3B 20 57 45 52 54 45 20 46 55 45 |..&(.; WERTE FUE|
00001E00: 52 20 44 49 45 20 53 50 52 49 54 45 50 4F B5 45 |R DIE SPRITEPO.E|
00001E10: 52 00 17 26 3C 14 3B 00 48 26 50 14 B9 54 41 42 |R..&<.;.H&P..TAB|
00001E20: 30 31 20 2E 42 59 54 45 20 24 38 30 2C 24 38 30 |01 .BYTE $80,$80|
00001E30: 2C 24 38 30 2C 24 38 30 2C 24 38 30 2C 24 38 30 |,$80,$80,$80,$80|
00001E40: 2C 24 38 30 2C 24 38 30 00 79 26 64 14 B9 54 41 |,$80,$80.y&d..TA|
00001E50: 42 30 32 20 2E 42 59 54 45 20 24 38 30 2C 24 38 |B02 .BYTE $80,$8|
00001E60: 30 2C 24 38 30 2C 24 38 30 2C 24 38 30 2C 24 38 |0,$80,$80,$80,$8|
00001E70: 30 2C 24 38 30 2C 24 38 30 00 AA 26 78 14 B9 54 |0,$80,$80..&x..T|
00001E80: 41 42 30 33 20 2E 42 59 54 45 20 24 38 30 2C 24 |AB03 .BYTE $80,$|
00001E90: 38 30 2C 24 38 30 2C 24 38 30 2C 24 38 30 2C 24 |80,$80,$80,$80,$|
00001EA0: 38 30 2C 24 38 30 2C 24 38 30 00 DB 26 8C 14 B9 |80,$80,$80..&...|
00001EB0: 54 41 42 30 34 20 2E 42 59 54 45 20 24 38 30 2C |TAB04 .BYTE $80,|
00001EC0: 24 38 30 2C 24 38 30 2C 24 38 30 2C 24 38 30 2C |$80,$80,$80,$80,|
00001ED0: 24 38 30 2C 24 38 30 2C 24 38 30 00 0C 27 A0 14 |$80,$80,$80..'..|
00001EE0: B9 54 41 42 30 35 20 2E 42 59 54 45 20 24 38 30 |.TAB05 .BYTE $80|
00001EF0: 2C 24 38 30 2C 24 38 30 2C 24 38 30 2C 24 38 30 |,$80,$80,$80,$80|
00001F00: 2C 24 38 30 2C 24 38 30 2C 24 38 30 00 3D 27 B4 |,$80,$80,$80.='.|
00001F10: 14 B9 54 41 42 30 36 20 2E 42 59 54 45 20 24 38 |..TAB06 .BYTE $8|
00001F20: 30 2C 24 38 30 2C 24 38 30 2C 24 38 30 2C 24 38 |0,$80,$80,$80,$8|
00001F30: 30 2C 24 38 30 2C 24 38 30 2C 24 38 30 00 43 27 |0,$80,$80,$80.C'|
00001F40: C8 14 3B 00 5B 27 DC 14 3B 20 44 41 54 45 4E 20 |..;.['..; DATEN |
00001F50: 46 55 45 52 20 53 50 52 49 54 45 00 61 27 F0 14 |FUER SPRITE.a'..|
00001F60: 3B 00 94 27 04 15 53 50 52 49 54 45 20 20 20 2E |;..'..SPRITE .|
00001F70: 42 59 54 45 20 24 30 30 2C 24 30 30 2C 24 30 30 |BYTE $00,$00,$00|
00001F80: 2C 24 32 37 2C 24 36 44 2C 24 45 43 2C 24 33 39 |,$27,$6D,$EC,$39|
00001F90: 2C 24 44 42 00 C7 27 18 15 3A 20 20 20 20 20 20 |,$DB..'..: |
00001FA0: 20 20 2E 42 59 54 45 20 24 42 38 2C 24 31 45 2C | .BYTE $B8,$1E,|
00001FB0: 24 37 36 2C 24 36 34 2C 24 33 37 2C 24 39 39 2C |$76,$64,$37,$99,|
00001FC0: 24 44 43 2C 24 32 45 00 FA 27 2C 15 3A 20 20 20 |$DC,$2E..',.: |
00001FD0: 20 20 20 20 20 2E 42 59 54 45 20 24 36 36 2C 24 | .BYTE $66,$|
00001FE0: 37 34 2C 24 31 39 2C 24 39 44 2C 24 39 38 2C 24 |74,$19,$9D,$98,$|
00001FF0: 32 36 2C 24 37 37 2C 24 36 43 00 2D 28 40 15 3A |26,$77,$6C.-(@.:|
00002000: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 33 | .BYTE $3|
00002010: 39 2C 24 39 39 2C 24 39 38 2C 24 32 37 2C 24 36 |9,$99,$98,$27,$6|
00002020: 45 2C 24 45 34 2C 24 33 39 2C 24 44 42 00 60 28 |E,$E4,$39,$DB.`(|
00002030: 54 15 3A 20 20 20 20 20 20 20 20 2E 42 59 54 45 |T.: .BYTE|
00002040: 20 24 39 43 2C 24 31 45 2C 24 36 36 2C 24 37 34 | $9C,$1E,$66,$74|
00002050: 2C 24 33 37 2C 24 39 44 2C 24 45 43 2C 24 31 45 |,$37,$9D,$EC,$1E|
00002060: 00 93 28 68 15 3A 20 20 20 20 20 20 20 20 2E 42 |..(h.: .B|
00002070: 59 54 45 20 24 45 37 2C 24 42 38 2C 24 33 39 2C |YTE $E7,$B8,$39,|
00002080: 24 39 39 2C 24 45 43 2C 24 32 37 2C 24 37 36 2C |$99,$EC,$27,$76,|
00002090: 24 37 34 00 C6 28 7C 15 3A 20 20 20 20 20 20 20 |$74..(|.: |
000020A0: 20 2E 42 59 54 45 20 24 31 39 2C 24 44 44 2C 24 | .BYTE $19,$DD,$|
000020B0: 39 38 2C 24 32 45 2C 24 37 36 2C 24 45 43 2C 24 |98,$2E,$76,$EC,$|
000020C0: 31 42 2C 24 39 42 00 F5 28 90 15 3A 20 20 20 20 |1B,$9B..(..: |
000020D0: 20 20 20 20 2E 42 59 54 45 20 24 37 34 2C 24 33 | .BYTE $74,$3|
000020E0: 36 2C 24 36 44 2C 24 44 43 2C 24 30 30 2C 24 30 |6,$6D,$DC,$00,$0|
000020F0: 30 2C 24 30 30 00 05 29 A4 15 3A 20 20 20 20 20 |0,$00..)..: |
00002100: 20 20 20 2E 80 00 12 29 B8 15 8F 20 43 4C 4F 53 | ....)... CLOS|
00002110: 45 31 00 00 00 |E1... |
....... OPEN1,8,1,"O:ESCOS.OBJ".,.... 9.
4096.2...;.@.$..OPT P,OO.F.8.;.S.L... $8
000.Y.`.;...T.; ........................
...................................T...;
. ..ED SPRITES .ROLLED SCREEN BY M. SAC
HS IN 1992 ......; .....................
........................................
..;.?.D.; BENUTZTE VEK.REN UND ADRESSEN.
E.X.;.F...NMIVEK . $FFFA ; NMI.VEK.R..
...IRQVEK . $FFFE ; IRQ.VEK.R.....ICR
. $DC0E ; .ERRUPT .ROL REGISTER DER
CIA1...(.CRA . $DC0D ; .ROL REGIST
ER A DER CIA1...<.VIC . $D000 ; BAS
ISADRESSE DES VIC.Y.P.VIC. . $DD00 ; A
DRESSBEREICH DES VIC WIRD HIER FESTGELEG
T...D.SPO.01 . $C7F8 ; SPRITE.PO.ER FUER
DIE ERSTEN ACHT SPRITES.X.X.SPO.02 . $C
BF8 ; SPRITE.PO.ER FUER DIE ZWEITEN ACHT
SPRITES.....SPO.03 . $CFF8 ; SPRITE.PO.
ER FUER DIE DRITTEN ACHT SPRITES.X. .SPO
.04 . $D3F8 ; SPRITE.PO.ER FUER DIE VIER
TEN ACHT SPRITES.....SPO.05 . $D7F8 ; SP
RITE.PO.ER FUER DIE FUENFTEN ACHT SPRITE
S.Z.H.SPO.06 . $DBF8 ; SPRITE.PO.ER FUER
DIE SECHSTEN ACHT SPRITES.....STREG1
. $D011 ; STEUERREGISTER 1 DES VIC.L...S
TREG2 . $D016 ; STEUERREGISTER 2 DES V
IC (SCROLL REGISTER).|...IRR . $D01
9 ; .ERRUPT REQUEST REGISTER.....EXTERI.
. $D021 ; EXTERI. COL. (RAHMENFARBE)...
,.BASIS . $D018 ; BASISADRESSE V. ZEI
CHENGENERA.R UND VIDEO RAM.7.@.CPUP.T .
$01 ; HIER WIRD FESTGELEGT OB ROM ODE
R RAM AKTIV IST.S.T.KOTAB1 . $3000 ; T
ABELLE MIT ZEIGERN AUF VIC.ADRESSEN...H.
KOTAB2 . $3100 ; TABELLE MIT WERTEN FU
ER VIC.ADRESSEN.W.|.BLOCK . $E000 ; S
PRITE.BLOCK $80.....;.+...; ............
........................................
....................1...;.C.L.; GENERIE.
G DER HILFSTABELC KOTAB1 UND KOTAB2.I...
;....: LDY #$00.....: TYA
.....CLEAR STA KOTAB1,Y.D.0.:
STA KOTAB2,Y.U.D.: INY...X.:
BNE CLEAR...L.: CLC.....:
LDX #$06.)...: LDY #$00.?...LO
OP2 LDA #$01.P...LOOP1 INY.J.P.:
STA KOTAB1,Y.{...: PHA.....
: LDA #$2A.....: STA KOTAB
2,Y... .: PLA.R.4.: ADC #$
02...H.: CMP #$11...\.: BN
E LOOP1...P.: TYA.&...: AD
C #$1F.7...: TAY.M...: LDA
#$18.G...: STA KOTAB1,Y.}.T.:
LDA #$10.....: STA KOTAB2,Y.
....: INY.....: INY.J.$.:
DEX...8.: BNE LOOP2...L.:
LDA #$11...`.: STA KOTAB1.
$1E./.T.: STA KOTAB1.$E4.E...:
LDA #$10.A...: STA KOTAB2.$1
E.W...: LDA #$88...D.: STA
KOTAB2.$E4...X.;.....; .ERRUPTROUTINE V
.BEREITEN.....;.....: SEI
; .ERRUPT SPERREN...(.: LDA #
$35 ; KERNAL RAM EINBCDEN.7.<.:
STA CPUP.T.R.P.: LDX #..NMI
; NMI.VEK.R AUF .NMI 'VERBIEGEN'...D.:
LDY #..NMI ; DIENT NUR DAZU UM
DIE ..TASTE...X.: STX NMIVEK
; ZU NEUTRALISIEREN.....: STY NM
IVEK.1.1. .: LDX #..IRQ ; IRQ.V
EK.R AUF .IRQ 'VERBIEGEN'.I...: L
DY #..IRQ.A.H.: STX IRQVEK.{...:
STY IRQVEK.1.....: LDA #$0
0.....: STA ICR.....: STA
CRA ; .ERRUPT DURCH TIMER VERHIND
ERN.&.,.: STA VIC. ; ADRESSBE
REICH DES VIC NACH $C000.$FFFF.,.@.;.W.T
.; VIC MIT ENTSPRECH.EN WERTEN VERS.GEN.
].H.;.S.|.: LDX #$2E.....VICSET
LDA VICEUE,X.....: STA VIC,X....
.: DEX.M.L.: BPL VICSET.S.
..;.....; SPRITEPO.ER SETZEN.....;.....:
LDY #$07. .0.SETPO. LDA .TAB01,Y
.:.D.: STA SPO.01,Y.T.X.:
LDA .TAB02,Y.N.L.: STA SPO.02,Y..
...: LDA .TAB03,Y.....: ST
A SPO.03,Y.T...: DEC CPUP.T ;
I.O BEREICH AUSBCDEN.....: LDA .T
AB04,Y ; DA DIE SPRITEPO.ER.-.P.:
STA SPO.04,Y ; SPO.04.SPO.06.B...:
LDA .TAB05,Y ; IN DIESEM BEREICH LIEG
EN.|...: STA SPO.05,Y.....:
LDA .TAB06,Y... .: STA SPO.06,Y
...4.: INC CPUP.T ; I.O BEREIC
H WIEDER EINBCDEN...H.: DEY...\.:
BPL SETPO....P.;.J...; SPRITEDAT
EN NACH $E000 KOPIEREN (BLOCK $80).P...;
.F...: LDY #$3F.....LABEL5 LDA
SPRITE,Y...T.: STA BLOCK,Y.....:
DEY.B...: BPL LABEL5.H...;
...$.: CLI ; .ERRUPT W
IEDER .IGEBEN.7.8.: LDY #$00
; UND IN .LOSSCHLE.E SPRINGEN.Y.L.:
LDX #$00 ; UM DAS TIMING DES
.ERRUPTPROGRAMMES...`..LESS JMP .LESS
; NICHT ZU S.EREN...T.;.....; ........
........................................
........................E...; ..........
........................................
......................K...;.~.D.; HIER B
EGINNT DAS EIGENTLICHE .ERRUPTPROGRAMM..
.X.;......IRQ BIT $00 ; TIMING.
L...: NOP ; TIMING....
.. NOP ; TIMING...(.:
CLC ; TIMING.8.<.:
BIT $00 ; TIMING.G.P.: LD
X KOTAB1,Y ; VIC.ADRESSEN HOC...D.:
STX EXECUTE.1 ; UND .PEICHERN.D.X.
: LDA VIC,X ; ALTE VIC.WERTE
HOC.....: ADC KOTAB2,Y ; UND N
EUE DAZU ADDIEREN.0. .: DEC STREG
2 ; SCROLL.REGISTER SCHALTEN.C...EXE
CUTE STA VIC ; NEUE WERTE .PEICH
ERN...H.: INC STREG2 ; SCROLL
.REGISTER SCHALTEN.....: NOP
; TIMING.....: INY
; SCH. ALLE WERTE DURCH.!...:
BNE . ; NEIN, DANN ZURUECK.'...;.
=.,.: LDX #$01.V.@.: LDA #
$13 ; SPRITE Y.KO.DINATEN WIEDER..
.T.OLD. STA VIC,X ; AUF ANFANGSWE
RT SETZEN...H.: INX.K.|.:
INX.....: CPX #$11 ; SCH. A
LLE SPRITES.*...: BNE OLD. ;
NEIN, DANN ZURUECK.@...: LDA #$01
.O.L.: STA IRR ; .ERRUPT L
OESCHEN.....: LDA #$08.....:
STA STREG1 ; UP.DOWN B.DER EINSCH
ALTEN.S...: LDA #$10.....:
STA BASIS ; BASISADRESSE WIEDER AU
F ANFANGSWERT.J.0.: STA EXTERI.
; RAHMENFARBE AUF SCHWARZ.U.D..NMI RT
I ; . FROM .ERRUPT.{.X.;.I.L.
; ......................................
......................................;
........................................
....................................;.F.
..; AB HIER FOLGEN DIE BENUTZTEN WERTE.L
...;.M.P.VICEUE .BYTE $F0,$13,$28,$13...
..: .BYTE $58,$13,$88,$13 ; SPRIT
E KO.DINATEN.G...: .BYTE $B8,$13,
$E8,$13.....: .BYTE $18,$13,$48,$
13.1 .: .BYTE $C1 ;
MSB FUER X.KO.DINATEN DER SPRITES.G 4.:
.BYTE $08 ; STEUERREG
ISTER 1.. H.: .BYTE $14
; .ERRUPT BEI RASTERZEILE $14.. \.:
.BYTE $00 ; X.WERT (LI
GHTPENSTROBE).4!P.: .BYTE $00
; DASSELBE FUER Y.WERT (HIER NI
CHT BENUTZT).R!..: .BYTE $FF
; ALLE SPRITES EINSCHALTEN..!..:
.BYTE $08 ; STEUERRE
GISTER 2 (UP.DOWN B.DER)..!..: .B
YTE $FF ; SPRITE.. IN X.RICH
TUNG.A"..: .BYTE $10
; BASISADRESSE V. ZEICHENG. UND VIDEO RA
M."T.: .BYTE $00 ; .
ERRUPT REQUEST REGISTER.."..: .BY
TE $01 ; .ERRUPT MASK REGIST
ER.."..: .BYTE $00 ;
SPRITE.BACKGROUND.PRI.ITAET.;#..:
.BYTE $FF ; MULTICOL.MODE F
UER SPRITES.W#$.: .BYTE $FF
; SPRITE.. IN Y.RICHTUNG..#8.:
.BYTE $00 ; SPRITE.SPRI
TE.KOLLISI...#L.: .BYTE $00
; SPRITE.BACKGROUND.KOLLISI..2$`.
: .BYTE $00 ; EXTERI.
COL. (RAHMENFARBE).U$T.: .BYTE $0
0 ; BACKGROUNDCOL. (H.ERG.DF
ARBE)..$..: .BYTE $00
; BACKGROUNDCOL. 1..$..: .BYTE $
00 ; BACKGROUNDCOL. 2..%..:
.BYTE $00 ; BACKGROUN
DCOL. 3.N%D.: .BYTE $0A
; SPRITEMULTICOL. 0..%X.: .BYT
E $0E ; SPRITEMULTICOL. 1..%
..: .BYTE $07,$07,$07,$07 ; COL.
SPRITE 0..%..: .BYTE $07,$07,$07,
$07 ; BIS SPRITE 7..%..;..&(.; WERTE FUE
R DIE SPRITEPO.ER..&<.;.H&P..TAB01 .BYTE
$80,$80,$80,$80,$80,$80,$80,$80.Y&D..TA
B02 .BYTE $80,$80,$80,$80,$80,$80,$80,$8
0..&X..TAB03 .BYTE $80,$80,$80,$80,$80,$
80,$80,$80..&...TAB04 .BYTE $80,$80,$80,
$80,$80,$80,$80,$80..' ..TAB05 .BYTE $80
,$80,$80,$80,$80,$80,$80,$80.='...TAB06
.BYTE $80,$80,$80,$80,$80,$80,$80,$80.C'
H.;.['..; DATEN FUER SPRITE.A'..;..'..SP
RITE .BYTE $00,$00,$00,$27,$6D,$EC,$39
,$DB.G'..: .BYTE $B8,$1E,$76,$64,
$37,$99,$DC,$2E..',.: .BYTE $66,$
74,$19,$9D,$98,$26,$77,$6C.-(@.:
.BYTE $39,$99,$98,$27,$6E,$E4,$39,$DB.`(
T.: .BYTE $9C,$1E,$66,$74,$37,$9D
,$EC,$1E..(H.: .BYTE $E7,$B8,$39,
$99,$EC,$27,$76,$74.F(|.: .BYTE $
19,$DD,$98,$2E,$76,$EC,$1B,$9B..(..:
.BYTE $74,$36,$6D,$DC,$00,$00,$00..)
..: ....)... CLOSE1...
> CLICK IMAGE PREVIEW FOR FULL MODAL