00000000: 00 40 C4 49 45 53 45 20 D2 4F 55 54 49 4E 45 20 |.@.IESE .OUTINE |
00000010: 49 53 54 20 20 46 41 53 54 20 20 47 85 4E 5A 4C |IST FAST G.NZL|
00000020: 49 43 48 20 20 41 55 53 20 20 44 45 4D 20 20 4E |ICH AUS DEM N|
00000030: 4F 52 4D 41 4C 45 4E C2 45 54 52 49 45 42 53 53 |ORMALEN.ETRIEBSS|
00000040: 59 53 54 45 4D 20 87 42 45 52 4E 4F 4D 4D 45 4E |YSTEM .BERNOMMEN|
00000050: 2E 20 20 C4 45 52 20 20 45 49 4E 5A 49 47 45 20 |. .ER EINZIGE |
00000060: 20 D5 4E 54 45 52 53 43 48 49 45 44 49 53 54 20 | .NTERSCHIEDIST |
00000070: 48 49 45 52 20 44 49 45 20 DA 45 49 4C 45 20 39 |HIER DIE .EILE 9|
00000080: 39 30 2E 20 20 CE 41 43 48 44 45 4D 20 20 44 41 |90. .ACHDEM DA|
00000090: 53 20 20 C2 45 54 52 49 45 42 53 53 59 53 54 45 |S .ETRIEBSSYSTE|
000000A0: 4D 41 4C 4C 45 20 D6 45 4B 54 4F 52 45 4E 20 57 |MALLE .EKTOREN W|
000000B0: 49 45 44 45 52 20 49 4E 20 44 45 4E 20 CF 52 49 |IEDER IN DEN .RI|
000000C0: 47 49 4E 41 4C 5A 55 53 54 41 4E 44 20 20 56 45 |GINALZUSTAND VE|
000000D0: 52 53 45 54 5A 54 48 41 54 2C 20 4D 87 53 53 45 |RSETZTHAT, M.SSE|
000000E0: 4E 20 57 49 52 20 48 49 45 52 20 57 49 45 44 45 |N WIR HIER WIEDE|
000000F0: 52 20 44 45 4E 20 D6 49 52 55 53 20 49 4E 49 54 |R DEN .IRUS INIT|
00000100: 49 41 4C 49 53 49 45 52 45 4E 2E C5 53 20 57 49 |IALISIEREN..S WI|
00000110: 52 44 20 48 49 45 52 20 4E 49 43 48 54 20 41 55 |RD HIER NICHT AU|
00000120: 46 20 C9 CE C9 D4 20 47 45 53 50 52 55 4E 47 45 |F .... GESPRUNGE|
00000130: 4E 2C 20 20 53 4F 4E 44 45 52 4E 20 20 41 55 46 |N, SONDERN AUF|
00000140: C9 CE C9 D4 32 2C 20 44 41 20 4A 41 20 44 45 52 |....2, DA JA DER|
00000150: 20 DA 85 48 4C 45 52 20 46 87 52 20 44 49 45 20 | ..HLER F.R DIE |
00000160: C1 4E 5A 41 48 4C 20 44 45 52 20 53 43 48 4F 4E |.NZAHL DER SCHON|
00000170: 20 20 47 45 2D 4D 41 43 48 54 45 4E 20 CB 4F 50 | GE-MACHTEN .OP|
00000180: 49 45 4E 20 4E 49 43 48 54 20 4E 45 55 20 47 45 |IEN NICHT NEU GE|
00000190: 53 45 54 5A 54 20 57 45 52 44 45 4E 20 53 4F 4C |SETZT WERDEN SOL|
000001A0: 4C 2E 20 20 20 20 20 20 20 20 D6 4F 52 20 45 49 |L. .OR EI|
000001B0: 4E 45 4D 20 D2 C5 D3 C5 D4 20 42 52 41 55 43 48 |NEM ..... BRAUCH|
000001C0: 54 20 53 49 43 48 20 55 4E 53 45 52 20 D6 49 52 |T SICH UNSER .IR|
000001D0: 55 53 20 20 41 4C 53 4F 20 20 4E 49 43 48 54 4D |US ALSO NICHTM|
000001E0: 45 48 52 20 5A 55 20 46 87 52 43 48 54 45 4E 2E |EHR ZU F.RCHTEN.|
000001F0: 20 D7 41 53 20 49 48 4D 20 4A 45 54 5A 54 20 4E | .AS IHM JETZT N|
00000200: 4F 43 48 20 5A 55 53 54 4F 88 45 4E 20 4B 86 4E |OCH ZUSTO.EN K.N|
00000210: 4E 54 45 2C 57 85 52 45 20 45 49 4E 20 C4 52 55 |NTE,W.RE EIN .RU|
00000220: 43 4B 20 41 55 46 20 44 49 45 20 D2 D5 CE 2F D3 |CK AUF DIE .../.|
00000230: D4 CF D0 2D D2 C5 D3 D4 CF D2 C5 2D D4 41 53 54 |...-.......-.AST|
00000240: 45 4E 2E 20 20 20 20 20 20 C4 49 45 53 45 20 CB |EN. .IESE .|
00000250: 4F 4D 42 49 4E 41 54 49 4F 4E 20 48 41 42 45 4E |OMBINATION HABEN|
00000260: 20 57 49 52 20 41 42 45 52 20 53 43 48 4F 4E 20 | WIR ABER SCHON |
00000270: 20 4D 49 54 20 20 41 42 47 45 46 41 4E 2D 47 45 | MIT ABGEFAN-GE|
00000280: 4E 2C 20 4E 85 4D 4C 49 43 48 20 45 42 45 4E 46 |N, N.MLICH EBENF|
00000290: 41 4C 4C 53 20 44 55 52 43 48 20 44 49 45 20 20 |ALLS DURCH DIE |
000002A0: C3 C2 CD 38 30 2D CB 45 4E 4E 55 4E 47 2E 20 20 |...80-.ENNUNG. |
000002B0: C9 53 54 44 49 45 53 45 20 56 4F 52 48 41 4E 44 |.STDIESE VORHAND|
000002C0: 45 4E 2C 20 53 4F 20 57 49 52 44 20 87 42 45 52 |EN, SO WIRD .BER|
000002D0: 20 44 45 4E 20 D6 45 4B 54 4F 52 20 20 24 38 30 | DEN .EKTOR $80|
000002E0: 30 32 2F 24 38 30 30 33 47 45 53 50 52 55 4E 47 |02/$8003GESPRUNG|
000002F0: 45 4E 2C 20 44 45 52 20 4E 41 54 87 52 4C 49 43 |EN, DER NAT.RLIC|
00000300: 48 20 45 42 45 4E 46 41 4C 4C 53 20 49 4E 20 20 |H EBENFALLS IN |
00000310: 55 4E 53 45 52 20 20 D6 49 52 55 53 2D 50 52 4F |UNSER .IRUS-PRO|
00000320: 47 52 41 4D 4D 20 5A 45 49 47 54 2E 20 D5 4E 44 |GRAMM ZEIGT. .ND|
00000330: 20 5A 57 41 52 20 20 41 55 46 20 20 44 49 45 20 | ZWAR AUF DIE |
00000340: 20 D2 4F 55 54 49 4E 45 2C 20 20 44 49 45 20 20 | .OUTINE, DIE |
00000350: 41 42 DA 45 49 4C 45 20 38 34 30 20 49 4D 20 D1 |AB.EILE 840 IM .|
00000360: 55 45 4C 4C 49 53 54 49 4E 47 20 53 54 45 48 54 |UELLISTING STEHT|
00000370: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 38 34 30 20 | 840 |
000003C0: 20 2D 52 45 53 54 4F 52 45 20 20 4A 53 52 20 24 | -RESTORE JSR $|
000003D0: 46 44 31 35 20 20 20 20 20 20 20 20 20 20 20 20 |FD15 |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 38 35 30 20 20 2D 20 20 20 20 20 20 20 20 20 | 850 - |
00000400: 4A 53 52 20 24 46 44 41 33 20 20 20 20 20 20 20 |JSR $FDA3 |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 38 36 30 20 20 2D 20 20 20 20 | 860 - |
00000430: 20 20 20 20 20 4A 53 52 20 24 45 35 31 38 20 20 | JSR $E518 |
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 38 37 30 20 20 | 870 |
00000460: 2D 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 4E |- JSR IN|
00000470: 49 54 32 20 20 20 20 20 20 20 20 20 20 20 20 20 |IT2 |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 38 38 30 20 20 2D 20 20 20 20 20 20 20 20 20 4A |880 - J|
000004A0: 4D 50 20 28 24 41 30 30 32 29 20 20 20 20 20 20 |MP ($A002) |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 | |
.@DIESE ROUTINE IST FAST G.NZLICH AUS
DEM NORMALENBETRIEBSSYSTEM .BERNOMMEN
. DER EINZIGE UNTERSCHIEDIST HIER DIE
ZEILE 990. NACHDEM DAS BETRIEBSSYSTE
MALLE VEKTOREN WIEDER IN DEN ORIGINALZUS
TAND VERSETZTHAT, M.SSEN WIR HIER WIEDE
R DEN VIRUS INITIALISIEREN.ES WIRD HIER
NICHT AUF INIT GESPRUNGEN, SONDERN AUF
INIT2, DA JA DER Z.HLER F.R DIE ANZAHL D
ER SCHON GE-MACHTEN KOPIEN NICHT NEU GE
SETZT WERDEN SOLL. VOR EINEM RESE
T BRAUCHT SICH UNSER VIRUS ALSO NICHTM
EHR ZU F.RCHTEN. WAS IHM JETZT NOCH ZUST
O.EN K.NNTE,W.RE EIN DRUCK AUF DIE RUN/S
TOP-RESTORE-TASTEN. DIESE KOMBINATI
ON HABEN WIR ABER SCHON MIT ABGEFAN-GE
N, N.MLICH EBENFALLS DURCH DIE CBM80-KE
NNUNG. ISTDIESE VORHANDEN, SO WIRD .BER
DEN VEKTOR $8002/$8003GESPRUNGEN, DER
NAT.RLICH EBENFALLS IN UNSER VIRUS-PRO
GRAMM ZEIGT. UND ZWAR AUF DIE ROUTINE
, DIE ABZEILE 840 IM QUELLISTING STEHT
:
840
-RESTORE JSR $FD15
850 - JSR $FDA3
860 - JSR
$E518 870
- JSR INIT2
880 - JMP ($A002)
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL