00000000: 00 40 C9 4E 20 44 49 45 53 45 4E 20 5A 57 45 49 |.@.N DIESEN ZWEI|
00000010: 20 DA 45 49 4C 45 4E 20 57 49 52 44 20 44 45 52 | .EILEN WIRD DER|
00000020: 20 DA 85 48 4C 45 52 20 46 87 52 20 44 49 45 20 | ..HLER F.R DIE |
00000030: 20 C1 4E 5A 41 48 4C 44 45 52 20 42 49 53 48 45 | .NZAHLDER BISHE|
00000040: 52 20 47 45 4D 41 43 48 54 45 4E 20 CB 4F 50 49 |R GEMACHTEN .OPI|
00000050: 45 4E 20 44 45 53 20 D6 49 52 55 53 20 41 55 46 |EN DES .IRUS AUF|
00000060: 20 31 20 20 47 45 53 45 54 5A 54 2E C4 49 45 53 | 1 GESETZT..IES|
00000070: 45 52 20 DA 85 48 4C 45 52 20 49 53 54 20 45 49 |ER ..HLER IST EI|
00000080: 4E 20 20 45 49 4E 5A 45 4C 4E 45 53 20 20 C2 59 |N EINZELNES .Y|
00000090: 54 45 20 20 49 4D 20 20 D1 55 45 4C 4C 54 45 58 |TE IM .UELLTEX|
000000A0: 54 28 42 45 49 20 DA 45 49 4C 45 20 32 32 30 33 |T(BEI .EILE 2203|
000000B0: 29 2C 20 44 41 53 20 4A 45 44 45 53 4D 41 4C 2C |), DAS JEDESMAL,|
000000C0: 20 57 45 4E 4E 20 53 49 43 48 20 20 44 45 52 20 | WENN SICH DER |
000000D0: 20 D6 49 52 55 53 45 52 46 4F 4C 47 52 45 49 43 | .IRUSERFOLGREIC|
000000E0: 48 20 4B 4F 50 49 45 52 54 20 48 41 54 20 55 4D |H KOPIERT HAT UM|
000000F0: 20 31 20 45 52 48 86 48 54 20 57 49 52 44 2E 20 | 1 ERH.HT WIRD. |
00000100: CE 41 43 48 20 20 4A 45 44 45 52 CB 4F 50 49 45 |.ACH JEDER.OPIE|
00000110: 20 50 52 87 46 54 20 44 49 45 20 20 D3 41 56 45 | PR.FT DIE .AVE|
00000120: 52 4F 55 54 49 4E 45 20 20 4E 85 4D 4C 49 43 48 |ROUTINE N.MLICH|
00000130: 2C 20 20 4F 42 20 20 53 49 43 48 20 20 44 45 52 |, OB SICH DER|
00000140: D6 49 52 55 53 20 53 43 48 4F 4E 20 41 43 48 54 |.IRUS SCHON ACHT|
00000150: 20 4D 41 4C 20 4B 4F 50 49 45 52 54 20 20 48 41 | MAL KOPIERT HA|
00000160: 54 2E 20 20 D3 4F 4C 4C 54 45 20 20 44 49 45 53 |T. .OLLTE DIES|
00000170: 20 20 44 45 52 C6 41 4C 4C 20 53 45 49 4E 2C 20 | DER.ALL SEIN, |
00000180: 44 41 4E 4E 20 57 49 52 44 20 5A 55 20 44 45 52 |DANN WIRD ZU DER|
00000190: 20 20 42 45 52 45 49 54 53 20 20 45 52 57 85 48 | BEREITS ERW.H|
000001A0: 4E 54 45 4E 20 20 C7 41 47 2D 52 4F 55 54 49 4E |NTEN .AG-ROUTIN|
000001B0: 45 20 56 45 52 5A 57 45 49 47 54 2C 20 44 49 45 |E VERZWEIGT, DIE|
000001C0: 20 41 42 20 20 DA 45 49 4C 45 20 20 35 30 36 30 | AB .EILE 5060|
000001D0: 20 20 53 54 45 48 54 2E 20 20 C4 49 45 53 45 D2 | STEHT. .IESE.|
000001E0: 4F 55 54 49 4E 45 20 4C 85 88 54 20 45 52 53 54 |OUTINE L..T ERST|
000001F0: 20 45 49 4E 45 20 4B 4C 45 49 4E 45 20 D3 50 52 | EINE KLEINE .PR|
00000200: 49 54 45 41 4E 49 4D 41 54 49 4F 4E 20 20 41 42 |ITEANIMATION AB|
00000210: 4C 41 55 2D 46 45 4E 20 55 4E 44 20 54 45 49 4C |LAU-FEN UND TEIL|
00000220: 54 20 44 45 4D 20 56 45 52 44 55 54 5A 54 45 4E |T DEM VERDUTZTEN|
00000230: 20 20 C3 36 34 2D C2 45 53 49 54 5A 45 52 20 20 | .64-.ESITZER |
00000240: 44 41 4E 4E 20 20 44 49 45 C5 58 49 53 54 45 4E |DANN DIE.XISTEN|
00000250: 5A 20 44 45 53 20 D6 49 52 55 53 20 4D 49 54 2E |Z DES .IRUS MIT.|
00000260: 20 C8 49 45 52 20 45 49 4E 20 C1 55 53 5A 55 47 | .IER EIN .USZUG|
00000270: 20 41 55 53 20 44 45 52 20 D3 41 56 45 2D 52 4F | AUS DER .AVE-RO|
00000280: 55 54 49 4E 45 3A 20 20 20 20 20 20 20 20 20 20 |UTINE: |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 32 38 31 30 20 2D 20 20 | 2810 - |
000002F0: 20 20 20 20 20 20 20 20 4A 53 52 20 53 41 56 45 | JSR SAVE|
00000300: 43 4F 4E 54 20 20 20 20 20 20 20 20 20 20 20 20 |CONT |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 38 31 | 281|
00000320: 32 20 2D 20 20 20 20 20 20 20 20 20 20 4A 53 52 |2 - JSR|
00000330: 20 53 41 56 45 45 52 52 4F 52 20 20 20 20 20 20 | SAVEERROR |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 32 38 32 30 20 2D 3B 20 20 20 20 20 20 20 | 2820 -; |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000380: 20 20 20 20 20 20 20 32 38 33 30 20 2D 20 20 20 | 2830 - |
00000390: 20 20 20 20 20 20 20 41 53 4C 20 43 4F 50 59 20 | ASL COPY |
000003A0: 20 20 20 3B 43 4F 50 59 20 4C 49 4E 4B 53 52 4F | ;COPY LINKSRO|
000003B0: 54 49 45 52 45 4E 20 20 20 20 20 20 32 38 34 30 |TIEREN 2840|
000003C0: 20 2D 20 20 20 20 20 20 20 20 20 20 42 43 53 20 | - BCS |
000003D0: 47 41 47 20 20 20 20 20 3B C3 41 52 52 59 20 47 |GAG ;.ARRY G|
000003E0: 45 53 45 54 5A 54 2C 20 44 41 4E 4E 20 C7 41 47 |ESETZT, DANN .AG|
000003F0: 20 32 38 35 30 20 2D 20 20 20 20 20 20 20 20 20 | 2850 - |
00000400: 20 52 54 53 20 20 20 20 20 20 20 20 20 3B 4E 4F | RTS ;NO|
00000410: 43 48 20 4E 49 43 48 54 20 38 20 4D 41 4C 20 4B |CH NICHT 8 MAL K|
00000420: 4F 50 49 45 52 54 20 20 20 20 20 20 20 20 20 20 |OPIERT |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 | |
.@IN DIESEN ZWEI ZEILEN WIRD DER Z.HLER
F.R DIE ANZAHLDER BISHER GEMACHTEN KOPI
EN DES VIRUS AUF 1 GESETZT.DIESER Z.HLE
R IST EIN EINZELNES BYTE IM QUELLTEX
T(BEI ZEILE 2203), DAS JEDESMAL, WENN SI
CH DER VIRUSERFOLGREICH KOPIERT HAT UM
1 ERH.HT WIRD. NACH JEDERKOPIE PR.FT D
IE SAVEROUTINE N.MLICH, OB SICH DER
VIRUS SCHON ACHT MAL KOPIERT HAT. SOLL
TE DIES DERFALL SEIN, DANN WIRD ZU DER
BEREITS ERW.HNTEN GAG-ROUTINE VERZWE
IGT, DIE AB ZEILE 5060 STEHT. DIESER
OUTINE L..T ERST EINE KLEINE SPRITEANIMA
TION ABLAU-FEN UND TEILT DEM VERDUTZTEN
C64-BESITZER DANN DIEEXISTENZ DES VI
RUS MIT. HIER EIN AUSZUG AUS DER SAVE-RO
UTINE:
2810 -
JSR SAVECONT 281
2 - JSR SAVEERROR
2820 -;
2830 - A
SL COPY ;COPY LINKSROTIEREN 2840
- BCS GAG ;CARRY GESETZT,
DANN GAG 2850 - RTS ;NO
CH NICHT 8 MAL KOPIERT
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL