MORE LINES.ASM
FILE INFORMATION
FILENAME(S): MORE LINES.ASM
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 01:13:05
APPEARS ON: 1 disk(s)
FILE HASH
00ff95e5bc1bde532ee095cc4f29266877bb4d6e1453b4ea71b19a82423e1a3d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10303 SEITE B | MORE LINES.ASM | PRG | C64er | 21 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 3C 1D 3C 64 00 CF 52 47 20 24 31 33 30 30 20 |.<.<d..RG $1300 |
00000010: 3B 53 54 41 52 54 20 3D 20 34 38 36 34 00 3B 3C |;START = 4864.;<|
00000020: 6E 00 CA 4D 50 20 49 4E 49 54 20 20 3B 41 45 4E |n..MP INIT ;AEN|
00000030: 44 45 52 20 45 44 49 54 4F 52 2E 00 5A 3C 78 00 |DER EDITOR..Z<x.|
00000040: CA 4D 50 20 4C 49 4E 45 20 20 3B 57 41 48 4C 45 |.MP LINE ;WAHLE|
00000050: 20 23 20 5A 45 49 4C 45 4E 2E 00 7B 3C 82 00 CA | # ZEILEN..{<...|
00000060: 4D 50 20 4B 41 52 53 45 54 3B 4D 41 43 48 20 5A |MP KARSET;MACH Z|
00000070: 45 49 43 48 45 4E 53 41 54 5A 2E 00 88 3C 8C 00 |EICHENSATZ...<..|
00000080: 49 4E 49 54 20 53 45 49 00 A7 3C 96 00 CC 44 41 |INIT SEI..<...DA|
00000090: 20 23 24 32 30 20 20 3B 53 45 54 5A 45 20 56 41 | #$20 ;SETZE VA|
000000A0: 52 49 41 42 4C 45 4E 00 C1 3C A0 00 D3 54 41 20 |RIABLEN..<...TA |
000000B0: 24 33 30 20 20 20 3B 53 54 41 52 54 20 4E 41 43 |$30 ;START NAC|
000000C0: 48 00 D7 3C AA 00 D3 54 41 20 24 33 32 20 20 20 |H..<...TA $32 |
000000D0: 3B 24 32 30 30 30 2E 00 E3 3C B4 00 D3 54 41 20 |;$2000...<...TA |
000000E0: 24 33 34 00 F0 3C BE 00 CC 44 59 20 23 24 30 30 |$34..<...DY #$00|
000000F0: 00 FC 3C C8 00 D3 54 59 20 24 32 46 00 08 3D D2 |..<...TY $2F..=.|
00000100: 00 D3 54 59 20 24 33 31 00 14 3D DC 00 D3 54 59 |..TY $31..=...TY|
00000110: 20 24 33 33 00 20 3D E6 00 D3 54 59 20 24 46 42 | $33. =...TY $FB|
00000120: 00 2C 3D F0 00 D3 54 59 20 24 46 44 00 39 3D FA |.,=...TY $FD.9=.|
00000130: 00 CC 44 41 20 23 24 43 30 00 45 3D 04 01 D3 54 |..DA #$C0.E=...T|
00000140: 41 20 24 46 43 00 51 3D 0E 01 D3 54 41 20 24 46 |A $FC.Q=...TA $F|
00000150: 45 00 69 3D 18 01 D3 54 41 20 24 46 46 30 33 20 |E.i=...TA $FF03 |
00000160: 3B 49 AD 4F 20 41 55 53 2E 00 85 3D 22 01 CC 44 |;I.O AUS...="..D|
00000170: 58 20 23 24 33 46 20 20 3B 4B 4F 50 49 45 52 20 |X #$3F ;KOPIER |
00000180: 24 43 30 30 30 00 9F 3D 2C 01 CA 53 52 20 43 4F |$C000..=,..SR CO|
00000190: 50 59 43 20 3B 42 49 53 20 24 46 45 46 46 2E 00 |PYC ;BIS $FEFF..|
000001A0: BB 3D 36 01 CC 44 59 20 23 24 30 35 20 20 3B 4B |.=6..DY #$05 ;K|
000001B0: 4F 50 49 45 52 20 24 46 46 30 35 00 D4 3D 40 01 |OPIER $FF05..=@.|
000001C0: CA 53 52 20 43 4F 50 59 42 20 3B 42 49 53 20 24 |.SR COPYB ;BIS $|
000001D0: 46 46 46 46 00 F2 3D 4A 01 CC 44 58 20 23 24 30 |FFFF..=J..DX #$0|
000001E0: 31 20 20 20 3B 41 45 4E 44 45 52 20 4B 45 52 4E |1 ;AENDER KERN|
000001F0: 41 4C 00 09 3E 54 01 4C 32 20 4C 44 41 20 4E 45 |AL..>T.L2 LDA NE|
00000200: 57 31 2C 58 20 3B 55 4E 44 00 28 3E 5E 01 D3 54 |W1,X ;UND.(>^..T|
00000210: 41 20 24 43 31 35 46 2C 58 3B 42 41 53 49 43 20 |A $C15F,X;BASIC |
00000220: 56 45 43 54 4F 52 53 2E 00 38 3E 68 01 D3 54 41 |VECTORS..8>h..TA|
00000230: 20 24 43 34 34 44 2C 58 00 47 3E 72 01 CC 44 41 | $C44D,X.G>r..DA|
00000240: 20 4E 45 57 32 2C 58 00 57 3E 7C 01 D3 54 41 20 | NEW2,X.W>|..TA |
00000250: 24 43 31 36 39 2C 58 00 67 3E 86 01 D3 54 41 20 |$C169,X.g>...TA |
00000260: 24 43 34 35 33 2C 58 00 76 3E 90 01 CC 44 41 20 |$C453,X.v>...DA |
00000270: 4E 45 57 33 2C 58 00 86 3E 9A 01 D3 54 41 20 24 |NEW3,X..>...TA $|
00000280: 43 41 33 37 2C 58 00 95 3E A4 01 CC 44 41 20 4E |CA37,X..>...DA N|
00000290: 45 57 34 2C 58 00 A5 3E AE 01 D3 54 41 20 24 43 |EW4,X..>...TA $C|
000002A0: 42 37 41 2C 58 00 B5 3E B8 01 D3 54 41 20 24 43 |B7A,X..>...TA $C|
000002B0: 42 38 42 2C 58 00 C5 3E C2 01 D3 54 41 20 24 43 |B8B,X..>...TA $C|
000002C0: 42 38 45 2C 58 00 D5 3E CC 01 D3 54 41 20 24 43 |B8E,X..>...TA $C|
000002D0: 42 39 42 2C 58 00 E4 3E D6 01 CC 44 41 20 4E 45 |B9B,X..>...DA NE|
000002E0: 57 35 2C 58 00 FD 3E E0 01 D3 54 41 20 24 30 33 |W5,X..>...TA $03|
000002F0: 32 34 2C 58 20 3B 45 49 4E 46 55 48 52 00 0C 3F |24,X ;EINFUHR..?|
00000300: EA 01 CC 44 41 20 4E 45 57 36 2C 58 00 25 3F F4 |...DA NEW6,X.%?.|
00000310: 01 D3 54 41 20 24 30 33 32 36 2C 58 20 3B 41 55 |..TA $0326,X ;AU|
00000320: 53 46 55 48 52 00 34 3F FE 01 CC 44 41 20 4E 45 |SFUHR.4?...DA NE|
00000330: 57 37 2C 58 00 4C 3F 08 02 D3 54 41 20 24 30 33 |W7,X.L?...TA $03|
00000340: 33 41 2C 58 20 3B 54 41 53 54 45 4E 00 5B 3F 12 |3A,X ;TASTEN.[?.|
00000350: 02 CC 44 41 20 4E 45 57 38 2C 58 00 79 3F 1C 02 |..DA NEW8,X.y?..|
00000360: D3 54 41 20 24 30 33 30 32 2C 58 20 3B 42 41 53 |.TA $0302,X ;BAS|
00000370: 49 43 20 5A 45 49 4C 45 4E 00 88 3F 26 02 CC 44 |IC ZEILEN..?&..D|
00000380: 41 20 4E 45 57 39 2C 58 00 A8 3F 30 02 D3 54 41 |A NEW9,X..?0..TA|
00000390: 20 24 30 33 30 38 2C 58 20 3B 42 41 53 49 43 20 | $0308,X ;BASIC |
000003A0: 42 45 46 45 48 4C 45 4E 00 B0 3F 3A 02 C4 45 58 |BEFEHLEN..?:..EX|
000003B0: 00 BB 3F 44 02 C2 50 4C 20 4C 32 00 C8 3F 4E 02 |..?D..PL L2..?N.|
000003C0: CC 44 41 20 23 24 46 46 00 D6 3F 58 02 D3 54 41 |.DA #$FF..?X..TA|
000003D0: 20 24 43 31 36 43 00 E4 3F 62 02 D3 54 41 20 24 | $C16C..?b..TA $|
000003E0: 43 31 38 37 00 F2 3F 6C 02 D3 54 41 20 24 43 34 |C187..?l..TA $C4|
000003F0: 35 36 00 00 40 76 02 D3 54 41 20 24 43 34 38 39 |56..@v..TA $C489|
00000400: 00 0E 40 80 02 D3 54 41 20 24 43 35 32 32 00 28 |..@...TA $C522.(|
00000410: 40 8A 02 CC 44 41 20 23 24 32 30 20 20 20 20 3B |@...DA #$20 ;|
00000420: 33 32 AC 38 3D 32 35 36 00 46 40 94 02 D3 54 41 |32.8=256.F@...TA|
00000430: 20 24 43 41 33 35 20 20 20 3B 4C 49 4E 4B 20 5A | $CA35 ;LINK Z|
00000440: 45 49 4C 45 4E 2E 00 5E 40 9E 02 CC 44 41 20 23 |EILEN..^@...DA #|
00000450: 24 43 43 20 20 20 20 3B 4B 4F 50 49 45 52 00 76 |$CC ;KOPIER.v|
00000460: 40 A8 02 D3 54 41 20 24 46 42 20 20 20 20 20 3B |@...TA $FB ;|
00000470: 57 49 4E 44 4F 57 00 90 40 B2 02 CC 44 41 20 23 |WINDOW..@...DA #|
00000480: 24 37 32 20 20 20 20 3B 52 4F 55 54 49 4E 45 2E |$72 ;ROUTINE.|
00000490: 00 A1 40 BC 02 CC 44 58 20 23 B3 57 49 4E 44 4F |..@...DX #.WINDO|
000004A0: 57 00 B2 40 C6 02 CC 44 59 20 23 B1 57 49 4E 44 |W..@...DY #.WIND|
000004B0: 4F 57 00 C0 40 D0 02 CA 53 52 20 43 4F 50 59 41 |OW..@...SR COPYA|
000004C0: 00 D8 40 DA 02 CC 44 41 20 23 24 44 37 20 20 20 |..@...DA #$D7 |
000004D0: 20 3B 4B 4F 50 49 45 52 00 EE 40 E4 02 D3 54 41 | ;KOPIER..@...TA|
000004E0: 20 24 46 42 20 20 20 20 20 3B 43 48 41 52 00 08 | $FB ;CHAR..|
000004F0: 41 EE 02 CC 44 41 20 23 24 36 37 20 20 20 20 3B |A...DA #$67 ;|
00000500: 52 4F 55 54 49 4E 45 2E 00 17 41 F8 02 CC 44 58 |ROUTINE...A...DX|
00000510: 20 23 B3 43 48 41 52 00 26 41 02 03 CC 44 59 20 | #.CHAR.&A...DY |
00000520: 23 B1 43 48 41 52 00 34 41 0C 03 CA 53 52 20 43 |#.CHAR.4A...SR C|
00000530: 4F 50 59 41 00 4C 41 16 03 CC 44 41 20 23 B3 52 |OPYA.LA...DA #.R|
00000540: 50 4C 4F 54 20 3B 41 45 4E 44 45 52 00 62 41 20 |PLOT ;AENDER.bA |
00000550: 03 D3 54 41 20 43 48 41 52 AA 24 36 32 3B 43 48 |..TA CHAR.$62;CH|
00000560: 41 52 00 7B 41 2A 03 CC 44 41 20 23 B1 52 50 4C |AR.{A*..DA #.RPL|
00000570: 4F 54 20 3B 52 4F 55 54 49 4E 45 00 94 41 34 03 |OT ;ROUTINE..A4.|
00000580: D3 54 41 20 43 48 41 52 AA 24 36 33 3B 53 4F 20 |.TA CHAR.$63;SO |
00000590: 44 41 53 53 00 AE 41 3E 03 CC 44 41 20 23 B3 52 |DASS..A>..DA #.R|
000005A0: 41 4D 20 20 20 3B 44 45 4E 20 4E 45 55 45 00 CA |AM ;DEN NEUE..|
000005B0: 41 48 03 D3 54 41 20 43 48 41 52 AA 24 37 39 3B |AH..TA CHAR.$79;|
000005C0: 52 41 4D AB 4B 45 52 4E 41 4C 00 E8 41 52 03 CC |RAM.KERNAL..AR..|
000005D0: 44 41 20 23 B1 52 41 4D 20 20 20 3B 41 4E 47 45 |DA #.RAM ;ANGE|
000005E0: 53 50 52 4F 43 48 45 4E 00 FF 41 5C 03 D3 54 41 |SPROCHEN..A\..TA|
000005F0: 20 43 48 41 52 AA 24 37 41 3B 57 49 52 44 2E 00 | CHAR.$7A;WIRD..|
00000600: 0C 42 66 03 CC 44 41 20 23 24 34 43 00 1D 42 70 |.Bf..DA #$4C..Bp|
00000610: 03 D3 54 41 20 43 48 41 52 AA 24 38 43 00 2A 42 |..TA CHAR.$8C.*B|
00000620: 7A 03 CC 44 41 20 23 24 36 33 00 3B 42 84 03 D3 |z..DA #$63.;B...|
00000630: 54 41 20 43 48 41 52 AA 24 38 44 00 48 42 8E 03 |TA CHAR.$8D.HB..|
00000640: CC 44 41 20 23 24 36 38 00 59 42 98 03 D3 54 41 |.DA #$68.YB...TA|
00000650: 20 43 48 41 52 AA 24 38 45 00 71 42 A2 03 CC 44 | CHAR.$8E.qB...D|
00000660: 41 20 23 24 43 35 20 20 20 20 3B 4B 4F 50 49 45 |A #$C5 ;KOPIE|
00000670: 52 00 85 42 AC 03 D3 54 41 20 24 46 42 20 20 20 |R..B...TA $FB |
00000680: 20 20 3B 49 46 00 9E 42 B6 03 CC 44 41 20 23 24 | ;IF..B...DA #$|
00000690: 35 32 20 20 20 20 3B 52 4F 55 54 49 4E 45 00 AB |52 ;ROUTINE..|
000006A0: 42 C0 03 CC 44 58 20 23 B3 49 46 00 B8 42 CA 03 |B...DX #.IF..B..|
000006B0: CC 44 59 20 23 B1 49 46 00 C6 42 D4 03 CA 53 52 |.DY #.IF..B...SR|
000006C0: 20 43 4F 50 59 41 00 D3 42 DE 03 CC 44 41 20 23 | COPYA..B...DA #|
000006D0: 24 32 43 00 ED 42 E8 03 D3 54 41 20 49 46 AA 24 |$2C..B...TA IF.$|
000006E0: 32 45 20 20 3B 42 45 49 20 4E 45 55 45 00 04 43 |2E ;BEI NEUE..C|
000006F0: F2 03 CC 44 41 20 23 B3 4E 45 57 43 4F 32 3B 42 |...DA #.NEWCO2;B|
00000700: 41 53 49 43 00 1E 43 FC 03 D3 54 41 20 49 46 AA |ASIC..C...TA IF.|
00000710: 24 35 39 20 20 3B 42 45 46 45 48 4C 45 4E 00 39 |$59 ;BEFEHLEN.9|
00000720: 43 06 04 CC 44 41 20 23 B1 4E 45 57 43 4F 32 3B |C...DA #.NEWCO2;|
00000730: 4D 55 53 53 20 41 55 43 48 00 51 43 10 04 D3 54 |MUSS AUCH.QC...T|
00000740: 41 20 49 46 AA 24 35 41 20 20 3B 44 49 45 20 49 |A IF.$5A ;DIE I|
00000750: 46 00 6A 43 1A 04 CC 44 41 20 23 24 34 43 20 20 |F.jC...DA #$4C |
00000760: 20 20 3B 52 4F 55 54 49 4E 45 00 85 43 24 04 D3 | ;ROUTINE..C$..|
00000770: 54 41 20 49 46 AA 24 35 42 20 20 3B 47 45 41 45 |TA IF.$5B ;GEAE|
00000780: 4E 44 45 52 54 00 9E 43 2E 04 CC 44 41 20 23 24 |NDERT..C...DA #$|
00000790: 39 44 20 20 20 20 3B 57 45 52 44 45 4E 2E 00 AD |9D ;WERDEN...|
000007A0: 43 38 04 D3 54 41 20 49 46 AA 24 35 43 00 BA 43 |C8..TA IF.$5C..C|
000007B0: 42 04 CC 44 41 20 23 24 35 32 00 C9 43 4C 04 D3 |B..DA #$52..CL..|
000007C0: 54 41 20 49 46 AA 24 35 44 00 E9 43 56 04 CA 53 |TA IF.$5D..CV..S|
000007D0: 52 20 54 41 42 4C 45 53 20 3B 5A 45 49 4C 45 4E |R TABLES ;ZEILEN|
000007E0: 41 44 44 52 45 53 53 45 2E 00 01 44 60 04 CC 44 |ADDRESSE...D`..D|
000007F0: 41 20 23 24 30 30 20 20 20 3B 52 4F 4D 20 45 49 |A #$00 ;ROM EI|
00000800: 4E 00 0F 44 6A 04 D3 54 41 20 24 46 46 30 30 00 |N..Dj..TA $FF00.|
00000810: 29 44 74 04 CC 44 41 20 23 24 30 36 20 20 20 3B |)Dt..DA #$06 ;|
00000820: 42 49 53 20 24 32 30 30 30 00 46 44 7E 04 D3 54 |BIS $2000.FD~..T|
00000830: 41 20 24 44 35 30 36 20 20 3B 42 41 4E 4B 31 3D |A $D506 ;BANK1=|
00000840: 42 41 4E 4B 30 2E 00 62 44 88 04 CC 44 58 20 23 |BANK0..bD...DX #|
00000850: 24 30 36 20 20 20 3B 48 4F 4C 45 20 41 4E 5A 41 |$06 ;HOLE ANZA|
00000860: 48 4C 00 7A 44 92 04 CA 53 52 20 24 43 44 44 41 |HL.zD...SR $CDDA|
00000870: 20 20 3B 5A 45 49 4C 45 4E 2E 00 82 44 9C 04 C3 | ;ZEILEN...D...|
00000880: 4C 49 00 A0 44 A6 04 4C 49 4E 45 20 4C 44 58 20 |LI..D..LINE LDX |
00000890: 23 24 30 36 20 20 20 20 20 20 3B 53 45 54 5A 45 |#$06 ;SETZE|
000008A0: 00 BA 44 B0 04 CA 53 52 20 24 43 44 43 43 20 20 |..D...SR $CDCC |
000008B0: 20 20 20 3B 53 43 48 49 52 4D 00 D1 44 BA 04 D3 | ;SCHIRM..D...|
000008C0: 54 41 20 57 49 4E 44 4F 57 AA 24 31 34 3B 55 4E |TA WINDOW.$14;UN|
000008D0: 44 00 EB 44 C4 04 D3 54 41 20 57 49 4E 44 4F 57 |D..D...TA WINDOW|
000008E0: AA 24 33 33 3B 57 49 4E 44 4F 57 00 05 45 CE 04 |.$33;WINDOW..E..|
000008F0: D4 41 59 20 20 20 20 20 20 20 20 20 20 20 3B 5A |.AY ;Z|
00000900: 55 20 44 45 4D 00 1D 45 D8 04 C4 45 59 20 20 20 |U DEM..E...EY |
00000910: 20 20 20 20 20 20 20 20 3B 4E 45 55 45 00 37 45 | ;NEUE.7E|
00000920: E2 04 D3 54 59 20 24 45 44 20 20 20 20 20 20 20 |...TY $ED |
00000930: 3B 41 4E 5A 41 48 4C 00 52 45 EC 04 CA 53 52 20 |;ANZAHL.RE...SR |
00000940: 52 41 4D 20 20 20 20 20 20 20 3B 5A 45 49 4C 45 |RAM ;ZEILE|
00000950: 4E 2E 00 60 45 F6 04 CA 53 52 20 24 43 41 32 34 |N..`E...SR $CA24|
00000960: 00 7C 45 00 05 CA 4D 50 20 24 41 38 34 35 20 20 |.|E...MP $A845 |
00000970: 20 20 20 3B 52 4F 4D 20 45 49 4E 2E 00 9C 45 0A | ;ROM EIN...E.|
00000980: 05 52 41 4D 20 50 48 41 20 20 20 20 20 20 20 20 |.RAM PHA |
00000990: 20 20 20 3B 52 41 4D 20 45 49 4E 2E 00 A9 45 14 | ;RAM EIN...E.|
000009A0: 05 CC 44 41 20 23 24 33 30 00 B7 45 1E 05 CA 4D |..DA #$30..E...M|
000009B0: 50 20 24 41 38 34 38 00 D7 45 28 05 49 4E 20 4A |P $A848..E(.IN J|
000009C0: 53 52 20 52 41 4D 20 20 20 20 3B 49 4E 50 55 54 |SR RAM ;INPUT|
000009D0: AB 56 45 43 54 4F 52 00 F7 45 32 05 CA 53 52 20 |.VECTOR..E2..SR |
000009E0: 24 45 46 30 36 20 20 3B 5A 45 49 47 54 20 4A 45 |$EF06 ;ZEIGT JE|
000009F0: 54 5A 54 20 41 55 46 00 13 46 3C 05 CA 4D 50 20 |TZT AUF..F<..MP |
00000A00: 24 41 38 34 35 20 20 3B 52 41 4D AB 4B 45 52 4E |$A845 ;RAM.KERN|
00000A10: 41 4C 2E 00 30 46 46 05 4F 55 54 20 4A 53 52 20 |AL..0FF.OUT JSR |
00000A20: 52 41 4D 20 20 20 20 3B 4E 45 55 45 20 52 41 4D |RAM ;NEUE RAM|
00000A30: 00 4F 46 50 05 CA 53 52 20 24 45 46 37 39 20 20 |.OFP..SR $EF79 |
00000A40: 3B 4F 55 54 50 55 54 AB 56 45 43 54 4F 52 2E 00 |;OUTPUT.VECTOR..|
00000A50: 5D 46 5A 05 CA 4D 50 20 24 41 38 34 35 00 7D 46 |]FZ..MP $A845.}F|
00000A60: 64 05 4B 41 52 20 4A 53 52 20 52 41 4D 20 20 20 |d.KAR JSR RAM |
00000A70: 20 3B 54 41 53 54 45 4E AB 52 4F 55 54 00 98 46 | ;TASTEN.ROUT..F|
00000A80: 6E 05 CA 53 52 20 24 43 35 45 31 20 20 3B 4E 55 |n..SR $C5E1 ;NU|
00000A90: 54 5A 54 20 41 55 43 48 00 B6 46 78 05 CA 4D 50 |TZT AUCH..Fx..MP|
00000AA0: 20 24 41 38 34 35 20 20 3B 44 41 53 20 4E 45 55 | $A845 ;DAS NEU|
00000AB0: 45 20 52 41 4D 2E 00 D7 46 82 05 4E 45 57 31 20 |E RAM...F..NEW1 |
00000AC0: 44 41 54 20 54 45 58 54 4C 20 20 3B 4E 45 55 45 |DAT TEXTL ;NEUE|
00000AD0: 20 44 41 54 41 27 53 00 F4 46 8C 05 4E 45 57 32 | DATA'S..F..NEW2|
00000AE0: 20 44 41 54 20 54 45 58 54 48 20 20 3B 46 55 52 | DAT TEXTH ;FUR|
00000AF0: 20 44 45 4E 00 15 47 96 05 4E 45 57 33 20 44 41 | DEN..G..NEW3 DA|
00000B00: 54 20 4C 49 4E 4B AB 31 20 3B 52 41 4D AB 45 44 |T LINK.1 ;RAM.ED|
00000B10: 49 54 4F 52 2E 00 27 47 A0 05 4E 45 57 34 20 44 |ITOR..'G..NEW4 D|
00000B20: 41 54 20 4C 49 4E 4B 00 37 47 AA 05 4E 45 57 35 |AT LINK.7G..NEW5|
00000B30: 20 44 41 54 20 49 4E 00 48 47 B4 05 4E 45 57 36 | DAT IN.HG..NEW6|
00000B40: 20 44 41 54 20 4F 55 54 00 59 47 BE 05 4E 45 57 | DAT OUT.YG..NEW|
00000B50: 37 20 44 41 54 20 4B 41 52 00 6D 47 C8 05 4E 45 |7 DAT KAR.mG..NE|
00000B60: 57 38 20 44 41 54 20 4E 45 57 42 41 53 00 81 47 |W8 DAT NEWBAS..G|
00000B70: D2 05 4E 45 57 39 20 44 41 54 20 4E 45 57 43 4F |..NEW9 DAT NEWCO|
00000B80: 4D 00 A5 47 DC 05 4E 45 57 42 41 53 20 4C 44 58 |M..G..NEWBAS LDX|
00000B90: 20 23 24 46 46 20 20 3B 42 41 53 49 43 20 5A 45 | #$FF ;BASIC ZE|
00000BA0: 49 4C 45 4E AB 00 C0 47 E6 05 D3 54 58 20 24 33 |ILEN...G...TX $3|
00000BB0: 43 20 20 20 3B 4C 45 53 45 20 56 45 43 54 4F 52 |C ;LESE VECTOR|
00000BC0: 00 D8 47 F0 05 CA 53 52 20 24 34 46 39 33 20 3B |..G...SR $4F93 ;|
00000BD0: 47 45 41 4E 44 45 52 54 00 F3 47 FA 05 D3 54 58 |GEANDERT..G...TX|
00000BE0: 20 24 33 44 20 20 20 3B 53 4F 20 44 41 53 20 41 | $3D ;SO DAS A|
00000BF0: 55 43 48 00 12 48 04 06 D3 54 59 20 24 33 45 20 |UCH..H...TY $3E |
00000C00: 20 20 3B 44 49 52 45 4B 54 20 45 49 4E 47 41 42 | ;DIREKT EINGAB|
00000C10: 45 4E 00 2A 48 0E 06 CA 53 52 20 24 30 33 38 30 |EN.*H...SR $0380|
00000C20: 20 3B 4D 49 54 20 4E 45 55 45 00 49 48 18 06 D4 | ;MIT NEUE.IH...|
00000C30: 41 58 20 20 20 20 20 20 20 3B 42 45 46 45 48 4C |AX ;BEFEHL|
00000C40: 45 4E 20 45 52 4B 41 4E 54 00 60 48 22 06 C2 45 |EN ERKANT.`H"..E|
00000C50: 51 20 4E 45 57 42 41 53 3B 57 45 52 44 45 4E 2E |Q NEWBAS;WERDEN.|
00000C60: 00 6F 48 2C 06 C2 43 43 20 4E 55 4D 42 45 52 00 |.oH,..CC NUMBER.|
00000C70: 7D 48 36 06 CA 53 52 20 24 34 33 30 41 00 8B 48 |}H6..SR $430A..H|
00000C80: 40 06 CA 53 52 20 24 30 33 38 36 00 A8 48 4A 06 |@..SR $0386..HJ.|
00000C90: CA 4D 50 20 4E 45 57 43 4F 31 3B 44 45 52 20 41 |.MP NEWCO1;DER A|
00000CA0: 4E 44 45 52 55 4E 47 2E 00 BD 48 54 06 4E 55 4D |NDERUNG...HT.NUM|
00000CB0: 42 45 52 20 4A 4D 50 20 24 34 44 45 32 00 D2 48 |BER JMP $4DE2..H|
00000CC0: 5E 06 4E 45 57 43 4F 4D 20 4A 53 52 20 24 30 33 |^.NEWCOM JSR $03|
00000CD0: 38 30 00 E8 48 68 06 4E 45 57 43 4F 31 20 4A 53 |80..Hh.NEWCO1 JS|
00000CE0: 52 20 4E 45 57 43 4F 32 00 F6 48 72 06 CA 4D 50 |R NEWCO2..Hr..MP|
00000CF0: 20 24 34 41 46 36 00 1B 49 7C 06 4E 45 57 43 4F | $4AF6..I|.NEWCO|
00000D00: 32 20 43 4D 50 20 23 24 38 42 20 20 3B 4E 45 55 |2 CMP #$8B ;NEU|
00000D10: 45 20 49 46 AB 42 45 46 45 48 4C 00 27 49 86 06 |E IF.BEFEHL.'I..|
00000D20: C2 45 51 20 4E 49 46 00 47 49 90 06 C3 4D 50 20 |.EQ NIF.GI...MP |
00000D30: 23 24 45 30 20 20 3B 4E 45 55 45 20 43 48 41 52 |#$E0 ;NEUE CHAR|
00000D40: AB 42 45 46 45 48 4C 00 55 49 9A 06 C2 45 51 20 |.BEFEHL.UI...EQ |
00000D50: 4E 43 48 41 52 00 74 49 A4 06 C3 4D 50 20 23 24 |NCHAR.tI...MP #$|
00000D60: 46 45 20 20 3B 45 49 4E 20 24 46 45 20 42 45 46 |FE ;EIN $FE BEF|
00000D70: 45 48 4C 3F 00 82 49 AE 06 C2 45 51 20 4E 57 49 |EHL?..I...EQ NWI|
00000D80: 4E 31 00 A0 49 B8 06 CA 4D 50 20 24 35 33 31 41 |N1..I...MP $531A|
00000D90: 20 3B 41 4C 54 45 20 42 45 46 45 48 4C 45 4E 2E | ;ALTE BEFEHLEN.|
00000DA0: 00 B4 49 C2 06 4E 57 49 4E 31 20 4A 53 52 20 24 |..I..NWIN1 JSR $|
00000DB0: 30 33 38 30 00 D0 49 CC 06 C3 4D 50 20 23 24 31 |0380..I...MP #$1|
00000DC0: 41 20 20 3B 43 4F 44 45 20 24 46 45 AA 24 31 41 |A ;CODE $FE.$1A|
00000DD0: 00 EE 49 D6 06 C2 45 51 20 4E 57 49 4E 32 20 3B |..I...EQ NWIN2 ;|
00000DE0: 3D 57 49 4E 44 4F 57 AB 42 45 46 45 48 4C 00 FC |=WINDOW.BEFEHL..|
00000DF0: 49 E0 06 CA 53 52 20 24 30 33 38 36 00 1C 4A EA |I...SR $0386..J.|
00000E00: 06 CA 4D 50 20 24 34 42 39 37 20 3B 41 4C 54 45 |..MP $4B97 ;ALTE|
00000E10: 20 24 46 45 AB 42 45 46 45 48 4C 45 00 3A 4A F4 | $FE.BEFEHLE.:J.|
00000E20: 06 4E 57 49 4E 32 20 4A 53 52 20 24 30 33 38 30 |.NWIN2 JSR $0380|
00000E30: 20 3B 44 41 53 20 4E 45 55 45 00 58 4A FE 06 CA | ;DAS NEUE.XJ...|
00000E40: 4D 50 20 57 49 4E 44 4F 57 3B 57 49 4E 44 4F 57 |MP WINDOW;WINDOW|
00000E50: AB 42 45 46 45 48 4C 2E 00 76 4A 08 07 4E 43 48 |.BEFEHL..vJ..NCH|
00000E60: 41 52 20 4A 53 52 20 24 30 33 38 30 20 3B 44 41 |AR JSR $0380 ;DA|
00000E70: 53 20 4E 45 55 45 00 92 4A 12 07 CA 4D 50 20 43 |S NEUE..J...MP C|
00000E80: 48 41 52 20 20 3B 43 48 41 52 AB 42 45 46 45 48 |HAR ;CHAR.BEFEH|
00000E90: 4C 2E 00 AE 4A 1C 07 4E 49 46 20 4A 53 52 20 24 |L...J..NIF JSR $|
00000EA0: 30 33 38 30 20 3B 44 41 53 20 4E 45 55 45 00 C8 |0380 ;DAS NEUE..|
00000EB0: 4A 26 07 CA 4D 50 20 49 46 20 20 20 20 3B 49 46 |J&..MP IF ;IF|
00000EC0: AB 42 45 46 45 48 4C 2E 00 E9 4A 30 07 52 50 4C |.BEFEHL...J0.RPL|
00000ED0: 4F 54 20 4A 53 52 20 52 41 4D 20 20 20 3B 50 4C |OT JSR RAM ;PL|
00000EE0: 4F 54 AB 56 45 43 54 4F 52 00 08 4B 3A 07 CA 4D |OT.VECTOR..K:..M|
00000EF0: 50 20 24 46 46 46 30 20 3B 4E 55 54 5A 54 20 41 |P $FFF0 ;NUTZT A|
00000F00: 55 43 48 20 52 41 4D 2E 00 28 4B 44 07 43 4F 50 |UCH RAM..(KD.COP|
00000F10: 59 41 20 53 54 41 20 24 46 43 20 20 20 3B 53 45 |YA STA $FC ;SE|
00000F20: 54 5A 45 20 43 4F 50 59 00 42 4B 4E 07 D3 54 58 |TZE COPY.BKN..TX|
00000F30: 20 24 46 44 20 20 20 3B 41 44 44 52 45 53 53 45 | $FD ;ADDRESSE|
00000F40: 4E 2E 00 4E 4B 58 07 D3 54 59 20 24 46 45 00 5B |N..NKX..TY $FE.[|
00000F50: 4B 62 07 CC 44 59 20 23 24 30 30 00 79 4B 6C 07 |Kb..DY #$00.yKl.|
00000F60: 43 4F 50 59 42 20 4C 44 58 20 23 24 30 31 20 20 |COPYB LDX #$01 |
00000F70: 20 3B 31 20 42 4C 4F 43 4B 00 96 4B 76 07 43 4F | ;1 BLOCK..Kv.CO|
00000F80: 50 59 43 20 4C 44 41 20 28 24 46 42 29 2C 59 3B |PYC LDA ($FB),Y;|
00000F90: 4B 4F 50 49 45 52 00 B1 4B 80 07 D3 54 41 20 28 |KOPIER..K...TA (|
00000FA0: 24 46 44 29 2C 59 3B 58 20 42 4C 4F 43 4B 45 4E |$FD),Y;X BLOCKEN|
00000FB0: 2E 00 B9 4B 8A 07 C9 4E 59 00 C7 4B 94 07 C2 4E |...K...NY..K...N|
00000FC0: 45 20 43 4F 50 59 43 00 D3 4B 9E 07 C9 4E 43 20 |E COPYC..K...NC |
00000FD0: 24 46 43 00 DF 4B A8 07 C9 4E 43 20 24 46 45 00 |$FC..K...NC $FE.|
00000FE0: E7 4B B2 07 C4 45 58 00 F5 4B BC 07 C2 4E 45 20 |.K...EX..K...NE |
00000FF0: 43 4F 50 59 43 00 FD 4B C6 07 D2 54 53 00 1B 4C |COPYC..K...TS..L|
00001000: D0 07 54 41 42 4C 45 53 20 4C 44 58 20 23 24 30 |..TABLES LDX #$0|
00001010: 30 20 20 20 3B 45 52 5A 45 55 47 00 34 4C DA 07 |0 ;ERZEUG.4L..|
00001020: D4 58 41 20 20 20 20 20 20 20 20 3B 54 41 42 45 |.XA ;TABE|
00001030: 4C 4C 45 4E 00 4C 4C E4 07 D4 41 59 20 20 20 20 |LLEN.LL...AY |
00001040: 20 20 20 20 3B 4D 49 54 20 44 45 4E 00 6E 4C EE | ;MIT DEN.nL.|
00001050: 07 54 41 42 31 20 50 48 41 20 20 20 20 20 20 20 |.TAB1 PHA |
00001060: 20 3B 4C 4F 57 20 55 4E 44 20 48 49 47 48 00 88 | ;LOW UND HIGH..|
00001070: 4C F8 07 D4 59 41 20 20 20 20 20 20 20 20 3B 41 |L...YA ;A|
00001080: 44 44 52 45 53 53 45 4E 00 A6 4C 02 08 D3 54 41 |DDRESSEN..L...TA|
00001090: 20 54 45 58 54 48 2C 58 3B 56 4F 4E 20 44 45 4D | TEXTH,X;VON DEM|
000010A0: 20 53 54 41 52 54 00 C1 4C 0C 08 D0 4C 41 20 20 | START..L...LA |
000010B0: 20 20 20 20 20 20 3B 56 4F 4E 20 42 49 53 20 5A | ;VON BIS Z|
000010C0: 55 00 DD 4C 16 08 D3 54 41 20 54 45 58 54 4C 2C |U..L...TA TEXTL,|
000010D0: 58 3B 32 35 36 20 5A 45 49 4C 45 4E 2E 00 E5 4C |X;256 ZEILEN...L|
000010E0: 20 08 C3 4C 43 00 F2 4C 2A 08 C1 44 43 20 23 24 | ..LC..L*..DC #$|
000010F0: 32 38 00 FF 4C 34 08 C2 43 43 20 54 41 42 32 00 |28..L4..CC TAB2.|
00001100: 07 4D 3E 08 C9 4E 59 00 14 4D 48 08 54 41 42 32 |.M>..NY..MH.TAB2|
00001110: 20 49 4E 58 00 21 4D 52 08 C2 4E 45 20 54 41 42 | INX.!MR..NE TAB|
00001120: 31 00 29 4D 5C 08 D2 54 53 00 3C 4D 66 08 4B 41 |1.)M\..TS.<Mf.KA|
00001130: 52 53 45 54 20 53 54 41 20 24 46 42 00 5B 4D 70 |RSET STA $FB.[Mp|
00001140: 08 C3 4D 50 20 23 24 31 31 3B 54 45 53 54 20 5A |..MP #$11;TEST Z|
00001150: 45 49 43 48 45 4E 4C 41 4E 47 45 00 68 4D 7A 08 |EICHENLANGE.hMz.|
00001160: C2 43 43 20 4B 41 52 31 00 81 4D 84 08 CC 44 41 |.CC KAR1..M...DA|
00001170: 20 23 24 32 30 3B AA 33 32 20 49 46 20 4C B1 31 | #$20;.32 IF L.1|
00001180: 36 00 8D 4D 8E 08 C4 41 54 20 24 32 43 00 AC 4D |6..M...AT $2C..M|
00001190: 98 08 4B 41 52 31 20 4C 44 41 20 23 24 31 30 3B |..KAR1 LDA #$10;|
000011A0: AA 31 36 20 49 46 20 4C B3 3D 31 36 00 B4 4D A2 |.16 IF L.=16..M.|
000011B0: 08 D3 45 43 00 CE 4D AC 08 D3 42 43 20 24 46 42 |..EC..M...BC $FB|
000011C0: 20 3B 41 4E 5A 41 48 4C 20 4C 45 45 52 45 00 E7 | ;ANZAHL LEERE..|
000011D0: 4D B6 08 D3 54 41 20 24 46 44 20 3B 50 49 58 45 |M...TA $FD ;PIXE|
000011E0: 4C 5A 45 49 4C 45 2E 00 05 4E C0 08 CC 44 41 20 |LZEILE...N...DA |
000011F0: 24 46 42 20 3B 37 AB 4C 20 4D 4F 44 20 38 20 4B |$FB ;7.L MOD 8 K|
00001200: 41 52 42 59 54 00 22 4E CA 08 C1 4E 44 20 23 24 |ARBYT."N...ND #$|
00001210: 30 37 3B 4E 49 43 48 54 20 4B 4F 50 49 45 52 45 |07;NICHT KOPIERE|
00001220: 4E 2E 00 2F 4E D4 08 C5 4F 52 20 23 24 30 37 00 |N../N...OR #$07.|
00001230: 3B 4E DE 08 D3 54 41 20 24 46 43 00 50 4E E8 08 |;N...TA $FC.PN..|
00001240: CC 53 52 20 24 46 42 20 3B 4C 41 4E 47 45 AD 38 |.SR $FB ;LANGE.8|
00001250: 00 5C 4E F2 08 CC 53 52 20 24 46 42 00 68 4E FC |.\N...SR $FB.hN.|
00001260: 08 CC 53 52 20 24 46 42 00 87 4E 06 09 CC 44 41 |..SR $FB..N...DA|
00001270: 20 23 24 30 30 20 20 20 20 3B 53 54 41 52 54 20 | #$00 ;START |
00001280: 5A 45 49 43 48 45 4E 00 A5 4E 10 09 D3 54 41 20 |ZEICHEN..N...TA |
00001290: 53 4F 55 52 43 45 AA 31 3B 53 41 54 5A 20 49 4D |SOURCE.1;SATZ IM|
000012A0: 20 52 4F 4D 2E 00 B2 4E 1A 09 CC 44 41 20 23 24 | ROM...N...DA #$|
000012B0: 44 30 00 C3 4E 24 09 D3 54 41 20 53 4F 55 52 43 |D0..N$..TA SOURC|
000012C0: 45 AA 32 00 E7 4E 2E 09 4B 41 52 32 20 4C 44 41 |E.2..N..KAR2 LDA|
000012D0: 20 23 24 31 46 20 20 20 3B 56 44 43 20 44 41 54 | #$1F ;VDC DAT|
000012E0: 41 52 45 47 20 33 31 00 07 4F 38 09 D3 54 41 20 |AREG 31..O8..TA |
000012F0: 24 44 36 30 30 20 20 3B 5A 55 4D 20 44 41 54 41 |$D600 ;ZUM DATA|
00001300: 20 41 4E 44 45 52 4E 00 13 4F 42 09 CC 44 41 20 | ANDERN..OB..DA |
00001310: 24 46 43 00 1F 4F 4C 09 D3 54 41 20 24 46 45 00 |$FC..OL..TA $FE.|
00001320: 2B 4F 56 09 C9 4E 43 20 24 46 45 00 38 4F 60 09 |+OV..NC $FE.8O`.|
00001330: CC 44 59 20 23 24 30 30 00 5D 4F 6A 09 4B 41 52 |.DY #$00.]Oj.KAR|
00001340: 33 20 53 54 41 20 24 46 46 30 33 20 20 3B 5A 45 |3 STA $FF03 ;ZE|
00001350: 49 43 48 45 4E 52 4F 4D 20 45 49 4E 2E 00 7F 4F |ICHENROM EIN...O|
00001360: 74 09 53 4F 55 52 43 45 20 4C 44 41 20 24 44 30 |t.SOURCE LDA $D0|
00001370: 30 30 2C 59 3B 48 4F 4C 45 20 42 59 54 45 2E 00 |00,Y;HOLE BYTE..|
00001380: 98 4F 7E 09 CC 44 58 20 23 24 30 30 20 20 20 3B |.O~..DX #$00 ;|
00001390: 49 AD 4F 20 45 49 4E 2E 00 A6 4F 88 09 D3 54 58 |I.O EIN...O...TX|
000013A0: 20 24 46 46 30 30 00 B2 4F 92 09 CC 44 58 20 24 | $FF00..O...DX $|
000013B0: 46 42 00 BF 4F 9C 09 C2 4E 45 20 4B 41 52 34 00 |FB..O...NE KAR4.|
000013C0: D9 4F A6 09 CA 53 52 20 24 43 44 43 46 20 20 3B |.O...SR $CDCF ;|
000013D0: 53 45 54 5A 20 42 59 54 45 00 F9 4F B0 09 C4 45 |SETZ BYTE..O...E|
000013E0: 43 20 24 46 45 20 20 20 20 3B 42 59 54 45 20 57 |C $FE ;BYTE W|
000013F0: 45 47 4C 41 53 53 45 4E 3F 00 14 50 BA 09 C2 4D |EGLASSEN?..P...M|
00001400: 49 20 4B 41 52 35 20 20 20 3B 4A 55 4D 50 20 3D |I KAR5 ;JUMP =|
00001410: 20 4E 4F 2E 00 34 50 C4 09 C9 4E 59 20 20 20 20 | NO..4P...NY |
00001420: 20 20 20 20 3B 42 59 54 45 20 57 45 47 4C 41 53 | ;BYTE WEGLAS|
00001430: 53 45 4E 2E 00 41 50 CE 09 C2 4E 45 20 4B 41 52 |SEN..AP...NE KAR|
00001440: 35 00 62 50 D8 09 4B 41 52 34 20 4A 53 52 20 24 |5.bP..KAR4 JSR $|
00001450: 43 44 43 46 20 20 3B 42 59 54 45 20 58 20 4D 41 |CDCF ;BYTE X MA|
00001460: 48 4C 00 7C 50 E2 09 C4 45 58 20 20 20 20 20 20 |HL.|P...EX |
00001470: 20 20 3B 4B 4F 50 49 45 52 45 4E 2E 00 89 50 EC | ;KOPIEREN...P.|
00001480: 09 C2 4E 45 20 4B 41 52 34 00 A9 50 F6 09 C4 45 |..NE KAR4..P...E|
00001490: 43 20 24 46 45 20 20 20 3B 53 45 54 5A 20 45 58 |C $FE ;SETZ EX|
000014A0: 54 52 41 20 42 59 54 45 3F 00 C4 50 00 0A C2 50 |TRA BYTE?..P...P|
000014B0: 4C 20 4B 41 52 35 20 20 20 3B 4E 4F 20 3D 20 4A |L KAR5 ;NO = J|
000014C0: 55 4D 50 2E 00 E4 50 0A 0A CA 53 52 20 24 43 44 |UMP...P...SR $CD|
000014D0: 43 46 20 20 3B 53 45 54 5A 20 45 58 54 52 41 20 |CF ;SETZ EXTRA |
000014E0: 42 59 54 45 00 F1 50 14 0A 4B 41 52 35 20 49 4E |BYTE..P..KAR5 IN|
000014F0: 59 00 0C 51 1E 0A C3 50 59 20 23 24 30 38 20 20 |Y..Q...PY #$08 |
00001500: 20 3B 41 4C 4C 45 20 42 59 54 45 53 00 24 51 28 | ;ALLE BYTES.$Q(|
00001510: 0A C2 4E 45 20 4B 41 52 33 20 20 20 3B 46 45 52 |..NE KAR3 ;FER|
00001520: 54 49 47 3F 00 30 51 32 0A CC 44 59 20 24 46 44 |TIG?.0Q2..DY $FD|
00001530: 00 3D 51 3C 0A C2 45 51 20 4B 41 52 36 00 59 51 |.=Q<..EQ KAR6.YQ|
00001540: 46 0A CC 44 41 20 23 24 30 30 20 20 20 3B 53 45 |F..DA #$00 ;SE|
00001550: 54 5A 20 59 20 4D 41 48 4C 00 74 51 50 0A CA 53 |TZ Y MAHL.tQP..S|
00001560: 52 20 24 43 44 43 41 20 20 3B 4C 45 45 52 20 42 |R $CDCA ;LEER B|
00001570: 59 54 45 2E 00 7C 51 5A 0A C4 45 59 00 89 51 64 |YTE..|QZ..EY..Qd|
00001580: 0A C2 45 51 20 4B 41 52 36 00 91 51 6E 0A D4 59 |..EQ KAR6..Qn..Y|
00001590: 41 00 9E 51 78 0A CC 44 58 20 23 24 31 45 00 AC |A..Qx..DX #$1E..|
000015A0: 51 82 0A CA 53 52 20 24 43 44 43 43 00 D0 51 8C |Q...SR $CDCC..Q.|
000015B0: 0A 4B 41 52 36 20 4C 44 41 20 23 24 30 38 20 20 |.KAR6 LDA #$08 |
000015C0: 20 20 3B 53 45 54 5A 45 20 50 4F 49 4E 54 45 52 | ;SETZE POINTER|
000015D0: 00 E8 51 96 0A C3 4C 43 20 20 20 20 20 20 20 20 |..Q...LC |
000015E0: 20 3B 5A 55 20 44 45 4D 00 02 52 A0 0A C1 44 43 | ;ZU DEM..R...DC|
000015F0: 20 53 4F 55 52 43 45 AA 31 3B 4E 41 43 48 53 54 | SOURCE.1;NACHST|
00001600: 45 4E 00 1C 52 AA 0A D3 54 41 20 53 4F 55 52 43 |EN..R...TA SOURC|
00001610: 45 AA 31 3B 5A 45 49 43 48 45 4E 2E 00 2D 52 B4 |E.1;ZEICHEN..-R.|
00001620: 0A CC 44 41 20 53 4F 55 52 43 45 AA 32 00 3A 52 |..DA SOURCE.2.:R|
00001630: BE 0A C1 44 43 20 23 24 30 30 00 4B 52 C8 0A D3 |...DC #$00.KR...|
00001640: 54 41 20 53 4F 55 52 43 45 AA 32 00 69 52 D2 0A |TA SOURCE.2.iR..|
00001650: C3 4D 50 20 23 24 45 30 20 20 20 20 3B 41 4C 4C |.MP #$E0 ;ALL|
00001660: 45 20 5A 45 49 43 48 45 4E 00 88 52 DC 0A C2 4E |E ZEICHEN..R...N|
00001670: 45 20 4B 41 52 32 20 20 20 20 3B 53 43 48 4F 4E |E KAR2 ;SCHON|
00001680: 20 46 45 52 54 49 47 3F 00 90 52 E6 0A D2 54 53 | FERTIG?..R...TS|
00001690: 00 A2 52 F0 0A 54 45 58 54 4C 20 44 41 54 20 24 |..R..TEXTL DAT $|
000016A0: 30 30 00 BA 52 FA 0A 54 45 58 54 48 20 44 45 46 |00..R..TEXTH DEF|
000016B0: 20 54 45 58 54 4C AA 32 35 36 00 D1 52 04 0B 4C | TEXTL.256..R..L|
000016C0: 49 4E 4B 20 44 45 46 20 54 45 58 54 48 AA 32 35 |INK DEF TEXTH.25|
000016D0: 36 00 E8 52 0E 0B 57 49 4E 44 4F 57 20 44 45 46 |6..R..WINDOW DEF|
000016E0: 20 4C 49 4E 4B AA 33 32 00 00 53 18 0B 43 48 41 | LINK.32..S..CHA|
000016F0: 52 20 44 45 46 20 57 49 4E 44 4F 57 AA 24 36 39 |R DEF WINDOW.$69|
00001700: 00 14 53 22 0B 49 46 20 44 45 46 20 43 48 41 52 |..S".IF DEF CHAR|
00001710: AA 24 38 46 00 00 00 |.$8F... |
.<.<D.ORG $1300 ;START = 4864.;<N.JMP IN
IT ;AENDER EDITOR..Z<X.JMP LINE ;WAHLE
# ZEILEN..{<..JMP KARSET;MACH ZEICHENSA
TZ...<..INIT SEI..<..LDA #$20 ;SETZE VA
RIABLEN.A< .STA $30 ;START NACH.W<..ST
A $32 ;$2000...<..STA $34..<..LDY #$00
..<H.STY $2F..=R.STY $31..=..STY $33. =.
.STY $FB.,=..STY $FD.9=..LDA #$C0.E=..ST
A $FC.Q=..STA $FE.I=..STA $FF03 ;I.O AUS
...=".LDX #$3F ;KOPIER $C000..=,.JSR CO
PYC ;BIS $FEFF...=6.LDY #$05 ;KOPIER $F
F05.T=@.JSR COPYB ;BIS $FFFF..=J.LDX #$0
1 ;AENDER KERNAL..>T.L2 LDA NEW1,X ;UN
D.(>^.STA $C15F,X;BASIC VECTORS..8>H.STA
$C44D,X.G>R.LDA NEW2,X.W>|.STA $C169,X.
G>..STA $C453,X.V>..LDA NEW3,X..>..STA $
CA37,X..>..LDA NEW4,X..>..STA $CB7A,X..>
..STA $CB8B,X.E>B.STA $CB8E,X.U>L.STA $C
B9B,X..>V.LDA NEW5,X..>..STA $0324,X ;EI
NFUHR..?..LDA NEW6,X.%?..STA $0326,X ;AU
SFUHR.4?..LDA NEW7,X.L?..STA $033A,X ;TA
STEN.[?..LDA NEW8,X.Y?..STA $0302,X ;BAS
IC ZEILEN..?&.LDA NEW9,X..?0.STA $0308,X
;BASIC BEFEHLEN..?:.DEX..?D.BPL L2.H?N.
LDA #$FF.V?X.STA $C16C..?B.STA $C187..?L
.STA $C456..@V.STA $C489..@..STA $C522.(
@..LDA #$20 ;32.8=256.F@..STA $CA35
;LINK ZEILEN..^@..LDA #$CC ;KOPIER.V
@..STA $FB ;WINDOW..@..LDA #$72 ;
ROUTINE...@..LDX #.WINDOW..@F.LDY #.WIND
OW..@P.JSR COPYA.X@Z.LDA #$D7 ;KOPIER
..@..STA $FB ;CHAR..A..LDA #$67 ;
ROUTINE...A..LDX #.CHAR.&A..LDY #.CHAR.4
A..JSR COPYA.LA..LDA #.RPLOT ;AENDER.BA
.STA CHAR.$62;CHAR.{A*.LDA #.RPLOT ;ROUT
INE..A4.STA CHAR.$63;SO DASS..A>.LDA #.R
AM ;DEN NEUE.JAH.STA CHAR.$79;RAM.KERN
AL..AR.LDA #.RAM ;ANGESPROCHEN..A\.STA
CHAR.$7A;WIRD...BF.LDA #$4C..BP.STA CHA
R.$8C.*BZ.LDA #$63.;B..STA CHAR.$8D.HB..
LDA #$68.YB..STA CHAR.$8E.QB..LDA #$C5
;KOPIER..B..STA $FB ;IF..B..LDA #$
52 ;ROUTINE..B..LDX #.IF..BJ.LDY #.IF
.FBT.JSR COPYA.SB..LDA #$2C..B..STA IF.$
2E ;BEI NEUE..C..LDA #.NEWCO2;BASIC..C.
.STA IF.$59 ;BEFEHLEN.9C..LDA #.NEWCO2;
MUSS AUCH.QC..STA IF.$5A ;DIE IF.JC..LD
A #$4C ;ROUTINE..C$.STA IF.$5B ;GEAE
NDERT..C..LDA #$9D ;WERDEN...C8.STA I
F.$5C..CB.LDA #$52.ICL.STA IF.$5D..CV.JS
R TABLES ;ZEILENADDRESSE...D`.LDA #$00
;ROM EIN..DJ.STA $FF00.)DT.LDA #$06 ;
BIS $2000.FD~.STA $D506 ;BANK1=BANK0..B
D..LDX #$06 ;HOLE ANZAHL.ZD..JSR $CDDA
;ZEILEN...D..CLI. D..LINE LDX #$06
;SETZE..D..JSR $CDCC ;SCHIRM.QD..S
TA WINDOW.$14;UND..DD.STA WINDOW.$33;WIN
DOW..EN.TAY ;ZU DEM..EX.DEY
;NEUE.7E..STY $ED ;ANZAHL.
RE..JSR RAM ;ZEILEN..`E..JSR $CA24
.|E..JMP $A845 ;ROM EIN...E..RAM PHA
;RAM EIN...E..LDA #$30..E..JM
P $A848.WE(.IN JSR RAM ;INPUT.VECTOR.
.E2.JSR $EF06 ;ZEIGT JETZT AUF..F<.JMP
$A845 ;RAM.KERNAL..0FF.OUT JSR RAM ;
NEUE RAM.OFP.JSR $EF79 ;OUTPUT.VECTOR..
]FZ.JMP $A845.}FD.KAR JSR RAM ;TASTEN
.ROUT..FN.JSR $C5E1 ;NUTZT AUCH..FX.JMP
$A845 ;DAS NEUE RAM..WF..NEW1 DAT TEXT
L ;NEUE DATA'S..F..NEW2 DAT TEXTH ;FUR
DEN..G..NEW3 DAT LINK.1 ;RAM.EDITOR..'G
.NEW4 DAT LINK.7G..NEW5 DAT IN.HG..NEW6
DAT OUT.YG..NEW7 DAT KAR.MGH.NEW8 DAT N
EWBAS..GR.NEW9 DAT NEWCOM..G..NEWBAS LDX
#$FF ;BASIC ZEILEN...G..STX $3C ;LES
E VECTOR.XG..JSR $4F93 ;GEANDERT..G..STX
$3D ;SO DAS AUCH..H..STY $3E ;DIREK
T EINGABEN.*H..JSR $0380 ;MIT NEUE.IH..T
AX ;BEFEHLEN ERKANT.`H".BEQ NEWBAS
;WERDEN..OH,.BCC NUMBER.}H6.JSR $430A..H
@.JSR $0386..HJ.JMP NEWCO1;DER ANDERUNG.
..HT.NUMBER JMP $4DE2.RH^.NEWCOM JSR $03
80..HH.NEWCO1 JSR NEWCO2..HR.JMP $4AF6..
I|.NEWCO2 CMP #$8B ;NEUE IF.BEFEHL.'I..
BEQ NIF.GI..CMP #$E0 ;NEUE CHAR.BEFEHL.
UI..BEQ NCHAR.TI..CMP #$FE ;EIN $FE BEF
EHL?..I..BEQ NWIN1. I..JMP $531A ;ALTE B
EFEHLEN...IB.NWIN1 JSR $0380.PIL.CMP #$1
A ;CODE $FE.$1A..IV.BEQ NWIN2 ;=WINDOW.
BEFEHL..I..JSR $0386..J..JMP $4B97 ;ALTE
$FE.BEFEHLE.:J..NWIN2 JSR $0380 ;DAS NE
UE.XJ..JMP WINDOW;WINDOW.BEFEHL..VJ..NCH
AR JSR $0380 ;DAS NEUE..J..JMP CHAR ;CH
AR.BEFEHL...J..NIF JSR $0380 ;DAS NEUE.H
J&.JMP IF ;IF.BEFEHL...J0.RPLOT JSR R
AM ;PLOT.VECTOR..K:.JMP $FFF0 ;NUTZT A
UCH RAM..(KD.COPYA STA $FC ;SETZE COPY
.BKN.STX $FD ;ADDRESSEN..NKX.STY $FE.[
KB.LDY #$00.YKL.COPYB LDX #$01 ;1 BLOC
K..KV.COPYC LDA ($FB),Y;KOPIER..K..STA (
$FD),Y;X BLOCKEN...K..INY.GK..BNE COPYC.
SK..INC $FC..K..INC $FE..K..DEX..K..BNE
COPYC..KF.RTS..LP.TABLES LDX #$00 ;ERZ
EUG.4LZ.TXA ;TABELLEN.LL..TAY
;MIT DEN.NL..TAB1 PHA ;LOW UN
D HIGH..L..TYA ;ADDRESSEN..L..STA
TEXTH,X;VON DEM START.AL..PLA ;V
ON BIS ZU..L..STA TEXTL,X;256 ZEILEN...L
.CLC..L*.ADC #$28..L4.BCC TAB2..M>.INY.
.MH.TAB2 INX.!MR.BNE TAB1.)M\.RTS.<MF.KA
RSET STA $FB.[MP.CMP #$11;TEST ZEICHENLA
NGE.HMZ.BCC KAR1..M..LDA #$20;.32 IF L.1
6..M..DAT $2C..M..KAR1 LDA #$10;.16 IF L
.=16..M..SEC.NM..SBC $FB ;ANZAHL LEERE..
M..STA $FD ;PIXELZEILE...N..LDA $FB ;7.L
MOD 8 KARBYT."NJ.AND #$07;NICHT KOPIERE
N../NT.EOR #$07.;N..STA $FC.PN..LSR $FB
;LANGE.8.\N..LSR $FB.HN..LSR $FB..N..LDA
#$00 ;START ZEICHEN..N..STA SOURCE.1
;SATZ IM ROM...N..LDA #$D0.CN$.STA SOURC
E.2..N..KAR2 LDA #$1F ;VDC DATAREG 31.
.O8.STA $D600 ;ZUM DATA ANDERN..OB.LDA
$FC..OL.STA $FE.+OV.INC $FE.8O`.LDY #$00
.]OJ.KAR3 STA $FF03 ;ZEICHENROM EIN..O
T.SOURCE LDA $D000,Y;HOLE BYTE...O~.LDX
#$00 ;I.O EIN...O..STX $FF00..O..LDX $
FB..O..BNE KAR4.YO..JSR $CDCF ;SETZ BYT
E..O..DEC $FE ;BYTE WEGLASSEN?..P..BM
I KAR5 ;JUMP = NO..4PD.INY ;BYT
E WEGLASSEN..APN.BNE KAR5.BPX.KAR4 JSR $
CDCF ;BYTE X MAHL.|P..DEX ;KOPIE
REN...P..BNE KAR4..P..DEC $FE ;SETZ EX
TRA BYTE?.DP..BPL KAR5 ;NO = JUMP...P.
.JSR $CDCF ;SETZ EXTRA BYTE..P..KAR5 IN
Y..Q..CPY #$08 ;ALLE BYTES.$Q(.BNE KAR
3 ;FERTIG?.0Q2.LDY $FD.=Q<.BEQ KAR6.YQ
F.LDA #$00 ;SETZ Y MAHL.TQP.JSR $CDCA
;LEER BYTE..|QZ.DEY..QD.BEQ KAR6..QN.TY
A..QX.LDX #$1E..Q..JSR $CDCC.PQ..KAR6 LD
A #$08 ;SETZE POINTER..Q..CLC
;ZU DEM..R .ADC SOURCE.1;NACHSTEN..R..S
TA SOURCE.1;ZEICHEN..-R..LDA SOURCE.2.:R
..ADC #$00.KRH.STA SOURCE.2.IRR.CMP #$E0
;ALLE ZEICHEN..R..BNE KAR2 ;SCHON
FERTIG?..R..RTS..R..TEXTL DAT $00..R..T
EXTH DEF TEXTL.256.QR..LINK DEF TEXTH.25
6..R..WINDOW DEF LINK.32..S..CHAR DEF WI
NDOW.$69..S".IF DEF CHAR.$8F...
> CLICK IMAGE PREVIEW FOR FULL MODAL