00000000: 00 40 C4 49 45 53 45 20 D2 4F 55 54 49 4E 45 20 |.@.IESE .OUTINE |
00000010: 54 55 54 20 4E 49 43 48 54 53 20 41 4E 44 45 52 |TUT NICHTS ANDER|
00000020: 45 53 2C 20 41 4C 53 20 44 41 53 20 20 C6 49 4C |ES, ALS DAS .IL|
00000030: 45 2C 20 20 44 41 88 55 4E 53 45 52 20 D6 49 52 |E, DA.UNSER .IR|
00000040: 55 53 20 49 4E 46 49 5A 49 45 52 45 4E 20 53 4F |US INFIZIEREN SO|
00000050: 4C 4C 2C 20 56 4F 4E 20 C4 49 53 4B 45 54 54 45 |LL, VON .ISKETTE|
00000060: 20 5A 55 20 4C 86 53 43 48 45 4E 2C 55 4D 20 44 | ZU L.SCHEN,UM D|
00000070: 41 53 20 49 4E 46 49 5A 49 45 52 54 45 20 47 4C |AS INFIZIERTE GL|
00000080: 45 49 43 48 20 44 41 4E 41 43 48 20 20 57 49 45 |EICH DANACH WIE|
00000090: 44 45 52 20 20 44 52 41 55 46 53 43 48 52 45 49 |DER DRAUFSCHREI|
000000A0: 2D 42 45 4E 20 5A 55 20 4B 86 4E 4E 45 4E 2E 20 |-BEN ZU K.NNEN. |
000000B0: C4 49 45 53 20 46 55 4E 4B 54 49 4F 4E 49 45 52 |.IES FUNKTIONIER|
000000C0: 54 20 44 45 4E 4B 42 41 52 20 45 49 4E 46 41 43 |T DENKBAR EINFAC|
000000D0: 48 3A 20 D7 49 45 57 49 52 20 4A 41 20 57 49 53 |H: .IEWIR JA WIS|
000000E0: 53 45 4E 2C 20 57 87 52 44 45 20 49 4E 20 C2 41 |SEN, W.RDE IN .A|
000000F0: 53 49 43 20 20 44 49 45 20 20 C2 45 46 45 48 4C |SIC DIE .EFEHL|
00000100: 53 46 4F 4C 47 45 20 20 5A 55 4D CC 86 53 43 48 |SFOLGE ZUM..SCH|
00000110: 45 4E 20 45 49 4E 45 53 20 C6 49 4C 45 53 20 41 |EN EINES .ILES A|
00000120: 55 46 20 C4 49 53 4B 45 54 54 45 20 46 4F 4C 47 |UF .ISKETTE FOLG|
00000130: 45 4E 44 45 52 4D 41 88 45 4E 20 20 41 55 53 2D |ENDERMA.EN AUS-|
00000140: 53 45 48 45 4E 3A 20 20 20 20 20 20 20 20 20 20 |SEHEN: |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 CF D0 C5 CE 20 31 | .... 1|
000001B0: 2C 38 2C 31 35 2C 22 D3 3A C6 C9 CC C5 CE C1 CD |,8,15,".:.......|
000001C0: C5 22 20 3A 20 C3 CC CF D3 C5 20 31 20 20 20 20 |." : ..... 1 |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 D5 4E 44 20 47 45 4E 41 55 20 44 41 | .ND GENAU DA|
00000220: 53 20 54 55 4E 20 57 49 52 20 41 55 43 48 20 49 |S TUN WIR AUCH I|
00000230: 4E 20 C1 53 53 45 4D 42 4C 45 52 2E 20 20 D7 49 |N .SSEMBLER. .I|
00000240: 52 20 20 86 46 46 4E 45 4E 45 49 4E 20 C6 49 4C |R .FFNENEIN .IL|
00000250: 45 20 4D 49 54 20 44 45 4E 20 D0 41 52 41 4D 45 |E MIT DEN .ARAME|
00000260: 54 45 52 4E 3A 20 20 20 20 20 20 20 20 20 20 20 |TERN: |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
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 CC 4F 47 49 53 43 48 45 20 C6 49 4C 45 | .OGISCHE .ILE|
000002C0: 4E 55 4D 4D 45 52 20 3D 20 31 20 20 20 20 20 20 |NUMMER = 1 |
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 C7 45 52 85 54 45 41 44 | .ER.TEAD|
000002F0: 52 45 53 53 45 20 20 20 20 20 20 20 3D 20 38 20 |RESSE = 8 |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 CB 41 4E | .AN|
00000320: 41 4C 4E 55 4D 4D 45 52 20 20 20 20 20 20 20 20 |ALNUMMER |
00000330: 20 3D 20 31 35 20 28 3D C2 45 46 45 48 4C 53 4B | = 15 (=.EFEHLSK|
00000340: 41 4E 41 4C 29 20 20 20 20 20 20 20 20 20 20 20 |ANAL) |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
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 D7 49 45 20 44 49 45 53 45 | .IE DIESE|
00000390: 20 D0 41 52 41 4D 45 54 45 52 20 44 41 4E 4E 20 | .ARAMETER DANN |
000003A0: 87 42 45 52 47 45 42 45 4E 20 57 45 52 44 45 4E |.BERGEBEN WERDEN|
000003B0: 2C 20 57 49 53 53 45 4E 20 57 49 52 41 55 43 48 |, WISSEN WIRAUCH|
000003C0: 20 53 43 48 4F 4E 2C 20 4E 85 4D 4C 49 43 48 20 | SCHON, N.MLICH |
000003D0: 4D 49 54 20 44 45 52 20 D3 C5 D4 D0 C1 D2 2D D2 |MIT DER ......-.|
000003E0: 4F 55 54 49 4E 45 20 49 4D 20 D2 CF CD 20 44 45 |OUTINE IM ... DE|
000003F0: 53 C3 36 34 2E 20 D7 45 49 54 45 52 20 47 45 48 |S.64. .EITER GEH|
00000400: 54 20 45 53 20 4D 49 54 20 44 45 52 20 8B 42 45 |T ES MIT DER .BE|
00000410: 52 47 41 42 45 20 44 45 53 20 20 C6 49 4C 45 4E |RGABE DES .ILEN|
00000420: 41 4D 45 4E 53 2E C8 49 45 52 20 49 53 54 20 41 |AMENS..IER IST A|
00000430: 4C 4C 45 52 44 49 4E 47 53 20 5A 55 20 42 45 41 |LLERDINGS ZU BEA|
00000440: 43 48 54 45 4E 2C 20 44 41 88 20 20 5A 55 52 20 |CHTEN, DA. ZUR |
00000450: 20 CC 85 4E 47 45 20 20 44 45 53 C6 49 4C 45 4E | ..NGE DES.ILEN|
00000460: 41 4D 45 4E 53 20 32 20 41 44 44 49 45 52 54 20 |AMENS 2 ADDIERT |
00000470: 57 45 52 44 45 4E 20 4D 55 88 2C 20 44 41 20 44 |WERDEN MU., DA D|
00000480: 45 52 20 CE 41 4D 45 20 41 55 46 47 52 55 4E 44 |ER .AME AUFGRUND|
00000490: 44 45 53 20 56 4F 52 41 4E 47 45 53 54 45 4C 4C |DES VORANGESTELL|
000004A0: 54 45 4E 20 22 D3 3A 22 20 55 4D 20 32 20 20 DA |TEN ".:" UM 2 .|
000004B0: 45 49 43 48 45 4E 20 20 4C 85 4E 47 45 52 20 20 |EICHEN L.NGER |
000004C0: 57 49 52 44 2E |WIRD. |
.@DIESE ROUTINE TUT NICHTS ANDERES, ALS
DAS FILE, DA.UNSER VIRUS INFIZIEREN SO
LL, VON DISKETTE ZU L.SCHEN,UM DAS INFIZ
IERTE GLEICH DANACH WIEDER DRAUFSCHREI
-BEN ZU K.NNEN. DIES FUNKTIONIERT DENKBA
R EINFACH: WIEWIR JA WISSEN, W.RDE IN BA
SIC DIE BEFEHLSFOLGE ZUML.SCHEN EINES
FILES AUF DISKETTE FOLGENDERMA.EN AUS-
SEHEN:
OPEN 1,8,15,"S
:FILENAME" : CLOSE 1
UND GENAU DAS TUN WIR AUCH I
N ASSEMBLER. WIR .FFNENEIN FILE MIT DE
N PARAMETERN:
LOGISCHE FILENUMMER = 1
GER.TEADRESSE
= 8 KAN
ALNUMMER = 15 (=BEFEHLSKANAL)
WIE DIESE PARAMET
ER DANN .BERGEBEN WERDEN, WISSEN WIRAUCH
SCHON, N.MLICH MIT DER SETPAR-ROUTINE I
M ROM DESC64. WEITER GEHT ES MIT DER .BE
RGABE DES FILENAMENS.HIER IST ALLERDING
S ZU BEACHTEN, DA. ZUR L.NGE DESFILEN
AMENS 2 ADDIERT WERDEN MU., DA DER NAME
AUFGRUNDDES VORANGESTELLTEN "S:" UM 2 Z
EICHEN L.NGER WIRD.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL