ASSEMBLER
FILE INFORMATION
FILENAME(S): ASSEMBLER
FILE TYPE(S): SEQ
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-02 23:21:29
APPEARS ON: 1 disk(s)
FILE HASH
9ee00aad01353c0863ffc10c9cac4754715265c74a50fedd77df2107eccf14c9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DD | ASSEMBLER | SEQ | swasti, dinkel | 35 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 0D 3B 20 D2 41 53 54 45 52 49 4E 54 45 52 |**.; .ASTERINTER| 00000030: 52 55 50 54 20 28 42 55 4E 54 45 52 20 D2 41 48 |RUPT (BUNTER .AH| 00000040: 4D 45 4E 29 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |MEN).; *********| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 0D 3B 20 D0 52 |*********.;.; .R| 00000070: 4F 47 52 41 4D 4D 2D D6 41 52 49 41 42 4C 45 4E |OGRAMM-.ARIABLEN| 00000080: 0D 3B 0D 3A 56 49 43 52 41 53 48 20 20 3D 20 35 |.;.:VICRASH = 5| 00000090: 33 32 36 35 20 3B 20 D6 C9 C3 2D D2 45 47 2E 20 |3265 ; ...-.EG. | 000000A0: 31 37 0D 3A 56 49 43 52 41 53 4C 20 20 3D 20 35 |17.:VICRASL = 5| 000000B0: 33 32 36 36 20 3B 20 D6 C9 C3 2D D2 45 47 2E 20 |3266 ; ...-.EG. | 000000C0: 31 38 0D 3A 56 49 43 4D 41 53 4B 20 20 3D 20 35 |18.:VICMASK = 5| 000000D0: 33 32 37 34 20 3B 20 D6 C9 C3 2D D2 45 47 2E 20 |3274 ; ...-.EG. | 000000E0: 32 36 0D 3A 56 49 43 53 49 47 4E 20 20 3D 20 35 |26.:VICSIGN = 5| 000000F0: 33 32 37 33 20 3B 20 D6 C9 C3 2D D2 45 47 2E 20 |3273 ; ...-.EG. | 00000100: 32 35 0D 3A 48 47 43 4F 4C 4F 52 20 20 3D 20 35 |25.:HGCOLOR = 5| 00000110: 33 32 38 30 20 3B 20 D2 41 48 4D 45 4E 46 41 52 |3280 ; .AHMENFAR| 00000120: 42 45 0D 3B 0D 3A 56 45 43 54 4F 52 20 20 20 3D |BE.;.:VECTOR =| 00000130: 20 24 30 33 31 34 20 3B 20 C9 D2 D1 2D D6 45 4B | $0314 ; ...-.EK| 00000140: 54 4F 52 0D 3A 49 52 51 41 4C 54 20 20 20 3D 20 |TOR.:IRQALT = | 00000150: 24 45 41 33 31 20 3B 20 41 4C 54 45 20 C9 D2 D1 |$EA31 ; ALTE ...| 00000160: 2D D2 4F 55 54 49 4E 45 0D 3A 49 52 51 4E 45 55 |-.OUTINE.:IRQNEU| 00000170: 20 20 20 3D 20 24 45 41 38 31 20 3B 20 D2 45 53 | = $EA81 ; .ES| 00000180: 54 20 C9 D2 D1 2D D2 4F 55 54 49 4E 45 0D 3A 43 |T ...-.OUTINE.:C| 00000190: 49 41 49 52 51 20 20 20 3D 20 24 44 43 30 44 20 |IAIRQ = $DC0D | 000001A0: 3B 20 C3 C9 C1 23 31 2D D2 45 47 49 53 54 45 52 |; ...#1-.EGISTER| 000001B0: 0D 3B 0D 4F 52 47 20 24 36 30 30 30 0D 0D 20 20 |.;.ORG $6000.. | 000001C0: 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 20 20 | SEI. | 000001D0: 20 20 20 20 20 20 4C 44 41 20 23 3C 53 54 41 52 | LDA #<STAR| 000001E0: 54 20 20 3B 20 C9 D2 D1 2D D6 45 4B 54 4F 52 0D |T ; ...-.EKTOR.| 000001F0: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E | LDY #>| 00000200: 53 54 41 52 54 20 20 3B 20 41 55 46 20 45 49 47 |START ; AUF EIG| 00000210: 45 4E 45 4E 0D 20 20 20 20 20 20 20 20 20 20 53 |ENEN. S| 00000220: 54 41 20 56 45 43 54 4F 52 20 20 20 3B 20 D3 54 |TA VECTOR ; .T| 00000230: 41 52 54 20 4C 45 47 45 4E 0D 20 20 20 20 20 20 |ART LEGEN. | 00000240: 20 20 20 20 53 54 59 20 56 45 43 54 4F 52 2B 31 | STY VECTOR+1| 00000250: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 |. LDA V| 00000260: 49 43 52 41 53 48 20 20 3B 20 D2 41 53 54 45 52 |ICRASH ; .ASTER| 00000270: 5A 45 49 4C 45 2D D2 45 47 2E 0D 20 20 20 20 20 |ZEILE-.EG.. | 00000280: 20 20 20 20 20 41 4E 44 20 23 24 37 46 20 20 20 | AND #$7F | 00000290: 20 20 3B 20 28 31 32 37 29 20 C2 49 54 20 37 20 | ; (127) .IT 7 | 000002A0: 3D 20 30 0D 20 20 20 20 20 20 20 20 20 20 53 54 |= 0. ST| 000002B0: 41 20 56 49 43 52 41 53 48 0D 20 20 20 20 20 20 |A VICRASH. | 000002C0: 20 20 20 20 4C 44 41 20 23 24 30 31 0D 20 20 20 | LDA #$01. | 000002D0: 20 20 20 20 20 20 20 53 54 41 20 56 49 43 4D 41 | STA VICMA| 000002E0: 53 4B 20 20 3B 20 C9 D2 D1 46 52 45 49 47 45 42 |SK ; ...FREIGEB| 000002F0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 43 4C 49 |EN. CLI| 00000300: 0D 20 20 20 20 20 20 20 20 20 20 52 54 53 0D 3B |. RTS.;| 00000310: 0D 3A 53 54 41 52 54 20 20 20 20 4C 44 41 20 56 |.:START LDA V| 00000320: 49 47 53 49 47 4E 20 20 3B 20 D6 C9 C3 2D D2 45 |IGSIGN ; ...-.E| 00000330: 47 2E 20 32 35 0D 20 20 20 20 20 20 20 20 20 20 |G. 25. | 00000340: 53 54 41 20 56 49 47 53 49 47 4E 20 20 3B 20 4C |STA VIGSIGN ; L| 00000350: 4F 45 53 43 48 45 4E 0D 20 20 20 20 20 20 20 20 |OESCHEN. | 00000360: 20 20 42 4D 49 20 41 52 42 45 49 54 20 20 20 3B | BMI ARBEIT ;| 00000370: 20 C9 4E 54 45 52 52 55 50 54 20 C2 49 54 20 37 | .NTERRUPT .IT 7| 00000380: 3F 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |?. LDA | 00000390: 43 49 41 49 52 51 0D 20 20 20 20 20 20 20 20 20 |CIAIRQ. | 000003A0: 20 43 4C 49 20 20 20 20 20 20 20 20 20 20 3B 20 | CLI ; | 000003B0: 4E 45 49 4E 20 2D 20 5A 55 52 20 41 4C 54 45 4E |NEIN - ZUR ALTEN| 000003C0: 0D 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 49 |. JMP I| 000003D0: 52 51 41 4C 54 20 20 20 3B 20 C9 D2 D1 2D D2 4F |RQALT ; ...-.O| 000003E0: 55 54 49 4E 45 0D 3B 0D 3A 41 52 42 45 49 54 20 |UTINE.;.:ARBEIT | 000003F0: 20 20 4C 44 41 20 56 49 43 52 41 53 4C 20 20 3B | LDA VICRASL ;| 00000400: 20 D2 41 53 54 45 52 2D D2 45 47 2E 20 4C 41 44 | .ASTER-.EG. LAD| 00000410: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 43 4D 50 |EN. CMP| 00000420: 20 23 24 46 38 20 20 20 20 20 3B 20 32 34 38 2E | #$F8 ; 248.| 00000430: 20 DA 45 49 4C 45 20 28 C1 55 53 4C 4F 45 53 45 | .EILE (.USLOESE| 00000440: 52 29 0D 20 20 20 20 20 20 20 20 20 20 42 43 53 |R). BCS| 00000450: 20 55 4E 54 45 4E 20 20 20 20 3B 20 42 45 49 20 | UNTEN ; BEI | 00000460: 32 35 2E 20 DA 45 49 4C 45 0D 20 20 20 20 20 20 |25. .EILE. | 00000470: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00000480: 20 20 41 44 43 20 23 24 30 34 20 20 20 20 20 3B | ADC #$04 ;| 00000490: 20 D3 54 52 45 49 46 45 4E 42 52 45 49 54 45 0D | .TREIFENBREITE.| 000004A0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 56 49 | STA VI| 000004B0: 43 52 41 53 4C 20 20 3B 20 D2 45 47 2E 20 5A 52 |CRASL ; .EG. ZR| 000004C0: 55 45 43 4B 53 43 48 52 45 49 42 45 4E 0D 20 20 |UECKSCHREIBEN. | 000004D0: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 33 | LDY #$03| 000004E0: 0D 3A 57 41 52 54 45 4E 20 20 20 44 45 59 20 20 |.:WARTEN DEY | 000004F0: 20 20 20 20 20 20 20 20 3B 20 D7 41 52 54 45 53 | ; .ARTES| 00000500: 43 48 4C 45 49 46 45 0D 20 20 20 20 20 20 20 20 |CHLEIFE. | 00000510: 20 20 42 4E 45 20 57 41 52 54 45 4E 0D 20 20 20 | BNE WARTEN. | 00000520: 20 20 20 20 20 20 20 49 4E 43 20 48 47 43 4F 4C | INC HGCOL| 00000530: 4F 52 20 20 3B 20 D2 41 48 4D 45 4E 46 41 52 42 |OR ; .AHMENFARB| 00000540: 45 20 45 52 48 4F 45 48 45 4E 0D 20 20 20 20 20 |E ERHOEHEN. | 00000550: 20 20 20 20 20 4A 4D 50 20 49 52 51 4E 45 55 0D | JMP IRQNEU.| 00000560: 3A 55 4E 54 45 4E 20 20 20 20 4C 44 41 20 23 24 |:UNTEN LDA #$| 00000570: 30 30 20 20 20 20 20 3B 20 D2 41 48 4D 45 4E 20 |00 ; .AHMEN | 00000580: 57 49 45 44 45 52 20 53 43 48 57 41 52 5A 0D 20 |WIEDER SCHWARZ. | 00000590: 20 20 20 20 20 20 20 20 20 53 54 41 20 48 47 43 | STA HGC| 000005A0: 4F 4C 4F 52 0D 20 20 20 20 20 20 20 20 20 20 4C |OLOR. L| 000005B0: 44 41 20 23 24 33 32 20 20 20 20 20 3B 20 31 2E |DA #$32 ; 1.| 000005C0: 20 DA 45 49 4C 45 41 4C 53 20 C9 D2 D1 2D C1 55 | .EILEALS ...-.U| 000005D0: 53 4C 4F 45 53 45 52 0D 20 20 20 20 20 20 20 20 |SLOESER. | 000005E0: 20 20 53 54 41 20 56 49 43 52 41 53 4C 0D 3A 45 | STA VICRASL.:E| 000005F0: 4E 44 45 20 20 20 20 20 4A 4D 50 20 49 52 51 4E |NDE JMP IRQN| 00000600: 45 55 20 20 20 3B 20 D2 45 53 54 2D C9 D2 D1 20 |EU ; .EST-... | 00000610: 41 42 41 52 42 45 49 54 45 4E 0D 0D 3B 20 2A 2A |ABARBEITEN..; **| 00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000640: 0D 3B 20 D3 50 52 49 54 45 2D CB 4F 4C 4C 49 53 |.; .PRITE-.OLLIS| 00000650: 49 4F 4E 45 4E 20 49 4D 20 C9 4E 54 45 52 52 55 |IONEN IM .NTERRU| 00000660: 50 54 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |PT.; ***********| 00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000680: 2A 2A 2A 2A 2A 2A 2A 0D 3B 0D 3B 20 D0 52 4F 47 |*******.;.; .ROG| 00000690: 52 41 4D 4D 2D D6 41 52 49 41 42 4C 45 4E 0D 3B |RAMM-.ARIABLEN.;| 000006A0: 0D 3A 56 49 43 4D 41 53 4B 20 20 3D 20 35 33 32 |.:VICMASK = 532| 000006B0: 37 34 20 3B 20 D6 C9 C3 2D D2 45 47 2E 20 32 36 |74 ; ...-.EG. 26| 000006C0: 0D 3A 56 49 43 53 49 47 4E 20 20 3D 20 35 33 32 |.:VICSIGN = 532| 000006D0: 37 33 20 3B 20 D6 C9 C3 2D D2 45 47 2E 20 32 35 |73 ; ...-.EG. 25| 000006E0: 0D 3A 56 49 43 4B 4F 4C 4C 20 20 3D 20 35 33 32 |.:VICKOLL = 532| 000006F0: 37 38 20 3B 20 D6 C9 C3 2D D2 45 47 2E 20 33 30 |78 ; ...-.EG. 30| 00000700: 0D 3A 48 47 43 4F 4C 4F 52 20 20 3D 20 35 33 32 |.:HGCOLOR = 532| 00000710: 38 30 20 3B 20 D2 41 48 4D 45 4E 46 41 52 42 45 |80 ; .AHMENFARBE| 00000720: 0D 3B 0D 3A 56 45 43 54 4F 52 20 20 20 3D 20 24 |.;.:VECTOR = $| 00000730: 30 33 31 34 20 3B 20 C9 D2 D1 2D D6 45 4B 54 4F |0314 ; ...-.EKTO| 00000740: 52 0D 3A 49 52 51 41 4C 54 20 20 20 3D 20 24 45 |R.:IRQALT = $E| 00000750: 41 33 31 20 3B 20 41 4C 54 45 20 C9 D2 D1 2D D2 |A31 ; ALTE ...-.| 00000760: 4F 55 54 49 4E 45 0D 3A 49 52 51 4E 45 55 20 20 |OUTINE.:IRQNEU | 00000770: 20 3D 20 24 45 41 38 31 20 3B 20 D2 45 53 54 20 | = $EA81 ; .EST | 00000780: C9 D2 D1 2D D2 4F 55 54 49 4E 45 0D 3A 43 49 41 |...-.OUTINE.:CIA| 00000790: 49 52 51 20 20 20 3D 20 24 44 43 30 44 20 3B 20 |IRQ = $DC0D ; | 000007A0: C3 C9 C1 23 31 2D D2 45 47 49 53 54 45 52 0D 3B |...#1-.EGISTER.;| 000007B0: 0D 4F 52 47 20 24 36 32 30 30 0D 3B 0D 20 20 20 |.ORG $6200.;. | 000007C0: 20 20 20 20 20 20 20 53 45 49 0D 20 20 20 20 20 | SEI. | 000007D0: 20 20 20 20 20 4C 44 41 20 23 3C 53 54 41 52 54 | LDA #<START| 000007E0: 20 20 3B 20 C9 D2 D1 2D D6 45 4B 54 4F 52 0D 20 | ; ...-.EKTOR. | 000007F0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 53 | LDY #>S| 00000800: 54 41 52 54 20 20 3B 20 41 55 46 20 45 49 47 45 |TART ; AUF EIGE| 00000810: 4E 45 4E 0D 20 20 20 20 20 20 20 20 20 20 53 54 |NEN. ST| 00000820: 41 20 56 45 43 54 4F 52 20 20 20 3B 20 D3 54 41 |A VECTOR ; .TA| 00000830: 52 54 20 4C 45 47 45 4E 0D 20 20 20 20 20 20 20 |RT LEGEN. | 00000840: 20 20 20 53 54 59 20 56 45 43 54 4F 52 2B 31 0D | STY VECTOR+1.| 00000850: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 | LDA #$| 00000860: 30 34 20 20 20 20 20 3B 20 D3 50 52 49 54 45 2D |04 ; .PRITE-| 00000870: CB 4F 4C 4C 2E 0D 20 20 20 20 20 20 20 20 20 20 |.OLL.. | 00000880: 53 54 41 20 56 49 43 4D 41 53 4B 20 20 3B 20 42 |STA VICMASK ; B| 00000890: 49 54 20 32 0D 20 20 20 20 20 20 20 20 20 20 43 |IT 2. C| 000008A0: 4C 49 0D 20 20 20 20 20 20 20 20 20 20 52 54 53 |LI. RTS| 000008B0: 0D 3B 0D 3A 53 54 41 52 54 20 20 20 20 4C 44 41 |.;.:START LDA| 000008C0: 20 56 49 47 53 49 47 4E 20 20 3B 20 D6 C9 C3 2D | VIGSIGN ; ...-| 000008D0: D2 45 47 2E 20 32 35 0D 20 20 20 20 20 20 20 20 |.EG. 25. | 000008E0: 20 20 53 54 41 20 56 49 47 53 49 47 4E 20 20 3B | STA VIGSIGN ;| 000008F0: 20 4C 4F 45 53 43 48 45 4E 0D 20 20 20 20 20 20 | LOESCHEN. | 00000900: 20 20 20 20 42 4D 49 20 41 52 42 45 49 54 20 20 | BMI ARBEIT | 00000910: 20 3B 20 C9 4E 54 45 52 52 55 50 54 20 C2 49 54 | ; .NTERRUPT .IT| 00000920: 20 37 3F 0D 20 20 20 20 20 20 20 20 20 20 4C 44 | 7?. LD| 00000930: 41 20 43 49 41 49 52 51 0D 20 20 20 20 20 20 20 |A CIAIRQ. | 00000940: 20 20 20 43 4C 49 20 20 20 20 20 20 20 20 20 20 | CLI | 00000950: 3B 20 4E 45 49 4E 20 2D 20 5A 55 52 20 41 4C 54 |; NEIN - ZUR ALT| 00000960: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4A 4D 50 |EN. JMP| 00000970: 20 49 52 51 41 4C 54 20 20 20 3B 20 C9 D2 D1 2D | IRQALT ; ...-| 00000980: D2 4F 55 54 49 4E 45 0D 3B 0D 3A 41 52 42 45 49 |.OUTINE.;.:ARBEI| 00000990: 54 20 20 20 49 4E 43 20 48 47 43 4F 4C 4F 52 20 |T INC HGCOLOR | 000009A0: 20 3B 20 D2 41 48 4D 45 4E 46 41 52 42 45 20 45 | ; .AHMENFARBE E| 000009B0: 52 48 4F 45 48 45 4E 0D 20 20 20 20 20 20 20 20 |RHOEHEN. | 000009C0: 20 20 4C 44 41 20 56 49 43 4B 4F 4C 4C 20 20 3B | LDA VICKOLL ;| 000009D0: 20 CB 4F 4C 4C 2E 2D D2 45 47 2E 20 4C 4F 45 53 | .OLL.-.EG. LOES| 000009E0: 43 48 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4A |CHEN. J| 000009F0: 4D 50 20 49 52 51 4E 45 55 0D 0D 0D 20 |MP IRQNEU... |
**********************************.; RAS
TERINTERRUPT (BUNTER RAHMEN).; *********
*************************.;.; PROGRAMM-V
ARIABLEN.;.:VICRASH = 53265 ; VIC-REG.
17.:VICRASL = 53266 ; VIC-REG. 18.:VICM
ASK = 53274 ; VIC-REG. 26.:VICSIGN = 5
3273 ; VIC-REG. 25.:HGCOLOR = 53280 ; R
AHMENFARBE.;.:VECTOR = $0314 ; IRQ-VEK
TOR.:IRQALT = $EA31 ; ALTE IRQ-ROUTINE
.:IRQNEU = $EA81 ; REST IRQ-ROUTINE.:C
IAIRQ = $DC0D ; CIA#1-REGISTER.;.ORG $
6000.. SEI. LDA #<STAR
T ; IRQ-VEKTOR. LDY #>START ;
AUF EIGENEN. STA VECTOR ; ST
ART LEGEN. STY VECTOR+1.
LDA VICRASH ; RASTERZEILE-REG..
AND #$7F ; (127) BIT 7 = 0.
STA VICRASH. LDA #$01.
STA VICMASK ; IRQFREIGEBEN.
CLI. RTS.;.:START LDA V
IGSIGN ; VIC-REG. 25. STA VIGS
IGN ; LOESCHEN. BMI ARBEIT ;
INTERRUPT BIT 7?. LDA CIAIRQ.
CLI ; NEIN - ZUR ALTEN
. JMP IRQALT ; IRQ-ROUTINE.;.
:ARBEIT LDA VICRASL ; RASTER-REG. LAD
EN. CMP #$F8 ; 248. ZEILE (
AUSLOESER). BCS UNTEN ; BEI
25. ZEILE. CLC. ADC #$
04 ; STREIFENBREITE. STA VI
CRASL ; REG. ZRUECKSCHREIBEN.
LDY #$03.:WARTEN DEY ; WARTES
CHLEIFE. BNE WARTEN. I
NC HGCOLOR ; RAHMENFARBE ERHOEHEN.
JMP IRQNEU.:UNTEN LDA #$00 ;
RAHMEN WIEDER SCHWARZ. STA HGC
OLOR. LDA #$32 ; 1. ZEILEAL
S IRQ-AUSLOESER. STA VICRASL.:E
NDE JMP IRQNEU ; REST-IRQ ABARBEIT
EN..; **********************************
.; SPRITE-KOLLISIONEN IM INTERRUPT.; ***
*******************************.;.; PROG
RAMM-VARIABLEN.;.:VICMASK = 53274 ; VIC
-REG. 26.:VICSIGN = 53273 ; VIC-REG. 25
.:VICKOLL = 53278 ; VIC-REG. 30.:HGCOLO
R = 53280 ; RAHMENFARBE.;.:VECTOR = $
0314 ; IRQ-VEKTOR.:IRQALT = $EA31 ; AL
TE IRQ-ROUTINE.:IRQNEU = $EA81 ; REST
IRQ-ROUTINE.:CIAIRQ = $DC0D ; CIA#1-RE
GISTER.;.ORG $6200.;. SEI.
LDA #<START ; IRQ-VEKTOR.
LDY #>START ; AUF EIGENEN. ST
A VECTOR ; START LEGEN. STY V
ECTOR+1. LDA #$04 ; SPRITE-
KOLL.. STA VICMASK ; BIT 2.
CLI. RTS.;.:START LDA
VIGSIGN ; VIC-REG. 25. STA VI
GSIGN ; LOESCHEN. BMI ARBEIT
; INTERRUPT BIT 7?. LDA CIAIRQ
. CLI ; NEIN - ZUR ALT
EN. JMP IRQALT ; IRQ-ROUTINE.
;.:ARBEIT INC HGCOLOR ; RAHMENFARBE E
RHOEHEN. LDA VICKOLL ; KOLL.-R
EG. LOESCHEN. JMP IRQNEU...
> CLICK IMAGE PREVIEW FOR FULL MODAL