SRC.EDITOR
FILE INFORMATION
FILENAME(S): SRC.EDITOR
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 01:13:08
APPEARS ON: 1 disk(s)
FILE HASH
33a4a3bfcd99ba16a4fb7d8837804326f5e7ccee9e57bed91fb3803aa05bbeda
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15830 SEITE B | SRC.EDITOR | PRG | C64er, DuncanTwain | 31 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 64 00 20 2E 42 41 24 43 30 30 30 00 |....d. .BA$C000.|
00000010: 3F 08 6E 00 20 2E 45 51 4E 41 4D 45 20 3D 38 32 |?.n. .EQNAME =82|
00000020: 38 20 3B 20 46 49 4C 45 4E 41 4D 45 20 46 55 45 |8 ; FILENAME FUE|
00000030: 52 20 4C 4F 41 44 20 55 4E 44 20 53 41 56 45 00 |R LOAD UND SAVE.|
00000040: 63 08 78 00 20 4A 53 52 24 45 35 34 34 20 3B 20 |c.x. JSR$E544 ; |
00000050: 42 49 4C 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 |BILDSCHIRM LOESC|
00000060: 48 45 4E 00 8C 08 82 00 20 4A 53 52 4C 49 4E 45 |HEN..... JSRLINE|
00000070: 20 20 3B 20 42 45 47 52 45 4E 5A 55 4E 47 53 4C | ; BEGRENZUNGSL|
00000080: 49 4E 49 45 4E 20 5A 49 45 48 45 4E 00 B6 08 8C |INIEN ZIEHEN....|
00000090: 00 20 4C 44 41 23 30 20 20 20 20 3B 20 41 4E 46 |. LDA#0 ; ANF|
000000A0: 41 4E 47 53 41 44 52 45 53 53 45 20 44 45 52 20 |ANGSADRESSE DER |
000000B0: 47 52 41 46 49 4B 00 C1 08 96 00 20 53 54 41 36 |GRAFIK..... STA6|
000000C0: 35 00 D7 08 A0 00 20 4C 44 41 23 24 37 30 20 20 |5..... LDA#$70 |
000000D0: 3B 20 24 37 30 30 30 00 E2 08 AA 00 20 53 54 41 |; $7000..... STA|
000000E0: 36 36 00 03 09 B4 00 20 4C 44 41 23 3C 28 31 31 |66..... LDA#<(11|
000000F0: 34 34 29 3B 20 43 55 52 53 4F 52 50 4F 53 49 54 |44); CURSORPOSIT|
00000100: 49 4F 4E 00 0E 09 BE 00 20 53 54 41 36 37 00 1F |ION..... STA67..|
00000110: 09 C8 00 20 4C 44 41 23 3E 28 31 31 34 34 29 00 |... LDA#>(1144).|
00000120: 2A 09 D2 00 20 53 54 41 36 38 00 54 09 DC 00 20 |*... STA68.T... |
00000130: 4A 53 52 52 41 4D 53 43 52 3B 20 47 52 41 46 49 |JSRRAMSCR; GRAFI|
00000140: 4B 20 41 55 46 20 53 43 48 49 52 4D 20 42 52 49 |K AUF SCHIRM BRI|
00000150: 4E 47 45 4E 00 70 09 E6 00 42 45 47 49 4E 20 43 |NGEN.p...BEGIN C|
00000160: 4C 43 3B 20 53 45 54 5A 45 20 43 55 52 53 4F 52 |LC; SETZE CURSOR|
00000170: 00 88 09 F0 00 20 4C 44 58 23 33 20 20 20 20 3B |..... LDX#3 ;|
00000180: 20 5A 45 49 4C 45 20 33 00 A1 09 FA 00 20 4C 44 | ZEILE 3..... LD|
00000190: 59 23 30 20 20 20 20 3B 20 53 50 41 4C 54 45 20 |Y#0 ; SPALTE |
000001A0: 30 00 B6 09 04 01 20 4A 53 52 24 46 46 46 30 20 |0..... JSR$FFF0 |
000001B0: 3B 20 50 4C 4F 54 00 C7 09 0E 01 20 4C 44 41 23 |; PLOT..... LDA#|
000001C0: 3C 28 31 31 34 34 29 00 D3 09 18 01 20 53 54 41 |<(1144)..... STA|
000001D0: 24 41 37 00 E4 09 22 01 20 4C 44 41 23 3E 28 31 |$A7...". LDA#>(1|
000001E0: 31 34 34 29 00 F0 09 2C 01 20 53 54 41 24 41 38 |144)...,. STA$A8|
000001F0: 00 16 0A 36 01 4C 4F 4F 50 36 20 4A 53 52 49 4E |...6.LOOP6 JSRIN|
00000200: 56 45 52 53 20 3B 20 43 55 52 53 4F 52 20 41 4E |VERS ; CURSOR AN|
00000210: 5A 45 49 47 45 4E 00 38 0A 40 01 4C 4F 4F 50 35 |ZEIGEN.8.@.LOOP5|
00000220: 20 4A 53 52 24 46 46 45 34 20 20 3B 20 54 41 53 | JSR$FFE4 ; TAS|
00000230: 54 45 20 48 4F 4C 45 4E 00 54 0A 4A 01 20 43 4D |TE HOLEN.T.J. CM|
00000240: 50 23 30 20 20 20 20 3B 20 4B 45 49 4E 45 20 54 |P#0 ; KEINE T|
00000250: 41 53 54 45 00 79 0A 54 01 20 42 45 51 4C 4F 4F |ASTE.y.T. BEQLOO|
00000260: 50 35 20 3B 20 4A 41 2C 20 57 45 49 54 45 52 20 |P5 ; JA, WEITER |
00000270: 56 45 52 53 55 43 48 45 4E 00 9C 0A 5E 01 20 43 |VERSUCHEN...^. C|
00000280: 4D 50 23 31 33 20 20 20 3B 20 57 41 52 20 45 53 |MP#13 ; WAR ES|
00000290: 20 45 54 57 41 20 52 45 54 55 52 4E 00 BB 0A 68 | ETWA RETURN...h|
000002A0: 01 20 42 45 51 4C 4F 4F 50 35 20 3B 20 4A 41 2C |. BEQLOOP5 ; JA,|
000002B0: 20 49 47 4E 4F 52 49 45 52 45 4E 00 D9 0A 72 01 | IGNORIEREN...r.|
000002C0: 20 43 4D 50 23 31 34 38 20 20 3B 20 45 42 45 4E | CMP#148 ; EBEN|
000002D0: 53 4F 20 49 4E 53 45 52 54 00 E7 0A 7C 01 20 42 |SO INSERT...|. B|
000002E0: 45 51 4C 4F 4F 50 35 00 00 0B 86 01 20 43 4D 50 |EQLOOP5..... CMP|
000002F0: 23 31 39 20 20 20 3B 20 55 4E 44 20 48 4F 4D 45 |#19 ; UND HOME|
00000300: 00 0E 0B 90 01 20 42 45 51 4C 4F 4F 50 35 00 2E |..... BEQLOOP5..|
00000310: 0B 92 01 20 43 4D 50 23 31 34 37 20 20 3B 20 55 |... CMP#147 ; U|
00000320: 4E 44 20 53 43 52 45 45 4E 43 4C 45 41 52 00 3C |ND SCREENCLEAR.<|
00000330: 0B 94 01 20 42 45 51 4C 4F 4F 50 35 00 59 0B 9A |... BEQLOOP5.Y..|
00000340: 01 20 50 48 41 20 20 20 20 20 20 3B 20 54 41 53 |. PHA ; TAS|
00000350: 54 45 20 4D 45 52 4B 45 4E 00 74 0B A4 01 20 4A |TE MERKEN.t... J|
00000360: 53 52 49 4E 56 45 52 53 3B 20 43 55 52 53 4F 52 |SRINVERS; CURSOR|
00000370: 20 41 55 53 00 8A 0B AE 01 20 50 4C 41 20 20 20 | AUS..... PLA |
00000380: 20 20 20 3B 20 54 41 53 54 45 00 9F 0B B8 01 20 | ; TASTE..... |
00000390: 43 4D 50 23 33 20 20 20 20 3B 20 53 54 4F 50 00 |CMP#3 ; STOP.|
000003A0: B2 0B C2 01 20 42 45 51 4D 45 4E 55 45 20 3B 20 |.... BEQMENUE ; |
000003B0: 4A 41 00 CF 0B CC 01 20 50 48 41 20 20 20 20 20 |JA..... PHA |
000003C0: 20 3B 20 54 41 53 54 45 20 4D 45 52 4B 45 4E 00 | ; TASTE MERKEN.|
000003D0: F3 0B D6 01 20 4A 53 52 24 46 46 44 32 20 3B 20 |.... JSR$FFD2 ; |
000003E0: 41 53 43 49 49 20 43 4F 44 45 20 41 55 53 47 45 |ASCII CODE AUSGE|
000003F0: 42 45 4E 00 16 0C E0 01 20 50 4C 41 20 20 20 20 |BEN..... PLA |
00000400: 20 20 3B 20 54 41 53 54 45 20 5A 55 52 55 45 43 | ; TASTE ZURUEC|
00000410: 4B 48 4F 4C 45 4E 00 4A 0C E2 01 3B 20 5A 45 49 |KHOLEN.J...; ZEI|
00000420: 4C 45 4E 20 34 38 30 20 55 4E 44 20 34 36 30 20 |LEN 480 UND 460 |
00000430: 45 49 47 45 4E 54 4C 49 43 48 20 4E 49 43 48 54 |EIGENTLICH NICHT|
00000440: 20 4E 4F 54 57 45 4E 44 49 47 00 61 0C EA 01 20 | NOTWENDIG.a... |
00000450: 43 4D 50 23 31 38 20 20 20 3B 20 52 56 53 20 41 |CMP#18 ; RVS A|
00000460: 4E 00 81 0C F4 01 20 42 45 51 4C 4F 4F 50 36 20 |N..... BEQLOOP6 |
00000470: 3B 20 4A 41 2C 20 49 4E 56 45 52 54 49 45 52 45 |; JA, INVERTIERE|
00000480: 4E 00 99 0C FE 01 20 43 4D 50 23 31 34 36 20 20 |N..... CMP#146 |
00000490: 3B 20 52 56 53 20 4F 46 46 00 B8 0C 08 02 20 42 |; RVS OFF..... B|
000004A0: 45 51 4C 4F 4F 50 36 20 3B 20 4A 41 2C 20 57 49 |EQLOOP6 ; JA, WI|
000004B0: 45 20 47 45 48 41 42 54 00 D9 0C 12 02 20 4A 53 |E GEHABT..... JS|
000004C0: 52 43 55 52 53 20 20 3B 20 43 55 52 53 4F 52 42 |RCURS ; CURSORB|
000004D0: 45 48 41 4E 44 4C 55 4E 47 00 F9 0C 1C 02 20 4A |EHANDLUNG..... J|
000004E0: 4D 50 4C 4F 4F 50 35 20 3B 20 57 45 49 54 45 52 |MPLOOP5 ; WEITER|
000004F0: 20 57 49 45 20 4F 42 45 4E 00 1E 0D 26 02 4D 45 | WIE OBEN...&.ME|
00000500: 4E 55 45 20 4A 53 52 53 43 52 52 41 4D 20 3B 20 |NUE JSRSCRRAM ; |
00000510: 53 43 48 49 52 4D 20 2D 2D 3E 20 52 41 4D 00 40 |SCHIRM --> RAM.@|
00000520: 0D 30 02 53 43 52 4F 4C 4C 20 4A 53 52 24 46 46 |.0.SCROLL JSR$FF|
00000530: 45 34 20 3B 20 54 41 53 54 45 20 48 4F 4C 45 4E |E4 ; TASTE HOLEN|
00000540: 00 5D 0D 3A 02 20 43 4D 50 23 22 1D 22 20 3B 20 |.].:. CMP#"." ; |
00000550: 43 55 52 53 4F 52 20 52 45 43 48 54 53 00 6B 0D |CURSOR RECHTS.k.|
00000560: 44 02 20 42 4E 45 47 4F 4F 4E 34 00 90 0D 4E 02 |D. BNEGOON4...N.|
00000570: 20 4C 44 41 36 36 20 20 20 3B 20 52 45 43 48 54 | LDA66 ; RECHT|
00000580: 45 52 20 52 41 4E 44 20 45 52 52 45 49 43 48 54 |ER RAND ERREICHT|
00000590: 00 9D 0D 58 02 20 43 4D 50 23 24 37 31 00 BD 0D |...X. CMP#$71...|
000005A0: 62 02 20 42 4E 45 52 45 43 48 54 53 20 3B 20 4E |b. BNERECHTS ; N|
000005B0: 45 49 4E 2C 20 53 43 52 4F 4C 4C 45 4E 00 C8 0D |EIN, SCROLLEN...|
000005C0: 6C 02 20 4C 44 41 36 35 00 ED 0D 76 02 20 43 4D |l. LDA65...v. CM|
000005D0: 50 23 24 44 38 20 20 20 3B 20 4A 41 2C 20 4E 49 |P#$D8 ; JA, NI|
000005E0: 43 48 54 20 53 43 48 52 4F 4C 4C 45 4E 00 FC 0D |CHT SCHROLLEN...|
000005F0: 80 02 20 42 45 51 53 43 52 4F 4C 4C 00 0D 0E 8A |.. BEQSCROLL....|
00000600: 02 52 45 43 48 54 53 20 4C 44 41 36 35 00 16 0E |.RECHTS LDA65...|
00000610: 94 02 20 43 4C 43 00 3D 0E 9E 02 20 41 44 43 23 |.. CLC.=... ADC#|
00000620: 31 20 20 20 20 20 3B 20 5A 45 49 47 45 52 20 49 |1 ; ZEIGER I|
00000630: 4E 43 52 45 4D 45 4E 54 49 45 52 45 4E 00 48 0E |NCREMENTIEREN.H.|
00000640: A8 02 20 53 54 41 36 35 00 53 0E B2 02 20 4C 44 |.. STA65.S... LD|
00000650: 41 36 36 00 5E 0E BC 02 20 41 44 43 23 30 00 8E |A66.^... ADC#0..|
00000660: 0E C6 02 20 53 54 41 36 36 20 20 20 20 20 3B 20 |... STA66 ; |
00000670: 53 45 48 52 20 55 4D 53 54 41 45 4E 44 4C 49 43 |SEHR UMSTAENDLIC|
00000680: 48 20 50 52 4F 47 52 41 4D 4D 49 45 52 54 00 B1 |H PROGRAMMIERT..|
00000690: 0E D0 02 20 4A 53 52 52 41 4D 53 43 52 20 3B 20 |... JSRRAMSCR ; |
000006A0: 47 52 41 46 49 4B 20 2D 2D 3E 20 53 43 48 49 52 |GRAFIK --> SCHIR|
000006B0: 4D 00 C9 0E DA 02 20 4A 4D 50 53 43 52 4F 4C 4C |M..... JMPSCROLL|
000006C0: 20 3B 20 57 45 49 54 45 52 00 EA 0E E4 02 47 4F | ; WEITER.....GO|
000006D0: 4F 4E 34 20 43 4D 50 23 22 9D 22 20 3B 20 43 55 |ON4 CMP#"." ; CU|
000006E0: 52 53 4F 52 20 4C 49 4E 4B 53 00 F8 0E EE 02 20 |RSOR LINKS..... |
000006F0: 42 4E 45 47 4F 4F 4E 35 00 1E 0F F8 02 20 4C 44 |BNEGOON5..... LD|
00000700: 41 36 36 20 20 20 20 20 3B 20 4C 49 4E 4B 45 52 |A66 ; LINKER|
00000710: 20 52 41 4E 44 20 45 52 52 45 49 43 48 54 00 2B | RAND ERREICHT.+|
00000720: 0F 02 03 20 43 4D 50 23 24 37 30 00 39 0F 0C 03 |... CMP#$70.9...|
00000730: 20 42 4E 45 4C 49 4E 4B 53 00 5E 0F 16 03 20 4C | BNELINKS.^... L|
00000740: 44 41 36 35 20 20 20 20 20 3B 20 4A 41 2C 20 4E |DA65 ; JA, N|
00000750: 49 43 48 54 20 53 43 48 52 4F 4C 4C 45 4E 00 7E |ICHT SCHROLLEN.~|
00000760: 0F 20 03 20 42 45 51 53 43 52 4F 4C 4C 20 3B 20 |. . BEQSCROLL ; |
00000770: 4E 45 49 4E 2C 20 53 43 52 4F 4C 4C 45 4E 00 8E |NEIN, SCROLLEN..|
00000780: 0F 2A 03 4C 49 4E 4B 53 20 4C 44 41 36 35 00 AA |.*.LINKS LDA65..|
00000790: 0F 34 03 20 53 45 43 20 20 20 20 20 20 20 3B 20 |.4. SEC ; |
000007A0: 31 20 41 42 5A 49 45 48 45 4E 00 B5 0F 3E 03 20 |1 ABZIEHEN...>. |
000007B0: 53 42 43 23 31 00 C0 0F 48 03 20 53 54 41 36 35 |SBC#1...H. STA65|
000007C0: 00 CB 0F 52 03 20 4C 44 41 36 36 00 D6 0F 5C 03 |...R. LDA66...\.|
000007D0: 20 53 42 43 23 30 00 E1 0F 66 03 20 53 54 41 36 | SBC#0...f. STA6|
000007E0: 36 00 04 10 70 03 20 4A 53 52 52 41 4D 53 43 52 |6...p. JSRRAMSCR|
000007F0: 20 3B 20 47 52 41 46 49 4B 20 2D 2D 3E 20 53 43 | ; GRAFIK --> SC|
00000800: 48 49 52 4D 00 13 10 7A 03 20 4A 4D 50 53 43 52 |HIRM...z. JMPSCR|
00000810: 4F 4C 4C 00 2A 10 84 03 47 4F 4F 4E 35 20 43 4D |OLL.*...GOON5 CM|
00000820: 50 23 38 31 20 3B 20 22 51 22 00 44 10 8E 03 20 |P#81 ; "Q".D... |
00000830: 42 4E 45 47 4F 4F 4E 36 20 20 3B 20 4A 41 2C 20 |BNEGOON6 ; JA, |
00000840: 51 55 49 54 00 6D 10 98 03 20 4A 53 52 36 35 34 |QUIT.m... JSR654|
00000850: 30 39 20 20 3B 20 43 49 4E 54 20 28 56 49 43 20 |09 ; CINT (VIC |
00000860: 52 55 45 43 4B 53 54 45 4C 4C 45 4E 29 00 8F 10 |RUECKSTELLEN)...|
00000870: 9A 03 20 4A 4D 50 24 45 33 38 35 20 20 3B 20 27 |.. JMP$E385 ; '|
00000880: 4F 4B 27 2C 20 52 45 41 44 59 20 28 4E 48 29 00 |OK', READY (NH).|
00000890: A6 10 A2 03 47 4F 4F 4E 36 20 43 4D 50 23 33 20 |....GOON6 CMP#3 |
000008A0: 3B 20 53 54 4F 50 00 BC 10 AC 03 20 42 4E 45 47 |; STOP..... BNEG|
000008B0: 4F 4F 4E 37 20 20 3B 20 4E 45 49 4E 00 D6 10 B6 |OON7 ; NEIN....|
000008C0: 03 20 4A 4D 50 42 45 47 49 4E 20 20 3B 20 56 4F |. JMPBEGIN ; VO|
000008D0: 4E 20 56 4F 52 4E 00 EE 10 C0 03 47 4F 4F 4E 37 |N VORN.....GOON7|
000008E0: 20 43 4D 50 23 31 39 20 3B 20 48 4F 4D 45 00 FC | CMP#19 ; HOME..|
000008F0: 10 CA 03 20 42 4E 45 47 4F 4F 4E 38 00 13 11 D4 |... BNEGOON8....|
00000900: 03 20 4C 44 41 23 30 20 20 20 20 20 3B 20 24 37 |. LDA#0 ; $7|
00000910: 30 30 30 00 3A 11 DE 03 20 53 54 41 36 35 20 20 |000.:... STA65 |
00000920: 20 20 20 3B 20 41 4C 53 20 5A 45 49 47 45 52 20 | ; ALS ZEIGER |
00000930: 41 55 46 20 47 52 41 46 49 4B 00 4F 11 E8 03 20 |AUF GRAFIK.O... |
00000940: 4C 44 41 23 24 37 30 20 20 3B 20 48 49 47 48 00 |LDA#$70 ; HIGH.|
00000950: 5A 11 F2 03 20 53 54 41 36 36 00 7A 11 FC 03 20 |Z... STA66.z... |
00000960: 4A 53 52 52 41 4D 53 43 52 20 3B 20 52 41 4D 20 |JSRRAMSCR ; RAM |
00000970: 2D 2D 3E 20 53 43 48 49 52 4D 00 A0 11 06 04 20 |--> SCHIRM..... |
00000980: 4A 4D 50 53 43 52 4F 4C 4C 20 3B 20 57 45 49 4C |JMPSCROLL ; WEIL|
00000990: 27 53 20 53 4F 20 53 43 48 4F 45 4E 20 57 41 52 |'S SO SCHOEN WAR|
000009A0: 00 B7 11 10 04 47 4F 4F 4E 38 20 43 4D 50 23 37 |.....GOON8 CMP#7|
000009B0: 36 20 3B 20 27 4C 27 00 C5 11 1A 04 20 42 4E 45 |6 ; 'L'..... BNE|
000009C0: 47 4F 4F 4E 39 00 DF 11 24 04 20 4A 53 52 4C 4F |GOON9...$. JSRLO|
000009D0: 41 44 20 20 20 20 20 20 3B 20 4C 41 44 45 4E 00 |AD ; LADEN.|
000009E0: EE 11 2E 04 20 4A 4D 50 53 43 52 4F 4C 4C 00 05 |.... JMPSCROLL..|
000009F0: 12 38 04 47 4F 4F 4E 39 20 43 4D 50 23 38 33 20 |.8.GOON9 CMP#83 |
00000A00: 3B 20 27 53 27 00 14 12 42 04 20 42 4E 45 47 4F |; 'S'...B. BNEGO|
00000A10: 4F 4E 31 30 00 34 12 4C 04 20 4A 53 52 53 41 56 |ON10.4.L. JSRSAV|
00000A20: 45 20 20 20 20 20 20 3B 20 52 55 4E 54 45 52 53 |E ; RUNTERS|
00000A30: 41 56 45 4E 00 43 12 56 04 20 4A 4D 50 53 43 52 |AVEN.C.V. JMPSCR|
00000A40: 4F 4C 4C 00 5C 12 60 04 47 4F 4F 4E 31 30 20 43 |OLL.\.`.GOON10 C|
00000A50: 4D 50 23 31 34 37 20 3B 20 43 4C 52 00 6B 12 6A |MP#147 ; CLR.k.j|
00000A60: 04 20 42 4E 45 47 4F 4F 4E 31 31 00 8F 12 74 04 |. BNEGOON11...t.|
00000A70: 20 4A 53 52 43 4C 52 53 43 52 20 20 20 20 3B 20 | JSRCLRSCR ; |
00000A80: 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E 00 |SCHIRM LOESCHEN.|
00000A90: 9E 12 7E 04 20 4A 4D 50 53 43 52 4F 4C 4C 00 B6 |..~. JMPSCROLL..|
00000AA0: 12 88 04 47 4F 4F 4E 31 31 20 43 4D 50 23 38 34 |...GOON11 CMP#84|
00000AB0: 20 3B 20 27 54 27 00 D6 12 92 04 20 42 45 51 44 | ; 'T'..... BEQD|
00000AC0: 4F 49 54 20 20 20 20 20 20 3B 20 4A 41 2C 20 54 |OIT ; JA, T|
00000AD0: 4F 47 47 45 4C 4E 00 E5 12 9C 04 20 4A 4D 50 47 |OGGELN..... JMPG|
00000AE0: 4F 4F 4E 31 32 00 02 13 A6 04 44 4F 49 54 20 4C |OON12.....DOIT L|
00000AF0: 44 41 35 33 32 37 32 20 3B 20 56 49 43 20 2B 20 |DA53272 ; VIC + |
00000B00: 32 34 00 0E 13 B0 04 20 45 4F 52 23 31 32 00 1C |24..... EOR#12..|
00000B10: 13 BA 04 20 53 54 41 35 33 32 37 32 00 2B 13 C4 |... STA53272.+..|
00000B20: 04 20 4A 4D 50 53 43 52 4F 4C 4C 00 43 13 CE 04 |. JMPSCROLL.C...|
00000B30: 47 4F 4F 4E 31 32 20 43 4D 50 23 37 37 20 3B 20 |GOON12 CMP#77 ; |
00000B40: 27 4D 27 00 6E 13 D8 04 20 42 45 51 44 4F 49 54 |'M'.n... BEQDOIT|
00000B50: 32 20 20 20 20 20 20 3B 20 57 41 52 55 4D 20 53 |2 ; WARUM S|
00000B60: 4F 20 55 4D 53 54 41 45 4E 44 4C 49 43 48 00 7D |O UMSTAENDLICH.}|
00000B70: 13 E2 04 20 4A 4D 50 47 4F 4F 4E 31 33 00 9D 13 |... JMPGOON13...|
00000B80: EC 04 44 4F 49 54 32 20 4C 44 41 35 33 32 37 30 |..DOIT2 LDA53270|
00000B90: 20 3B 20 4D 55 4C 54 49 43 4F 4C 4F 52 00 A9 13 | ; MULTICOLOR...|
00000BA0: F6 04 20 45 4F 52 23 31 36 00 CA 13 00 05 20 53 |.. EOR#16..... S|
00000BB0: 54 41 35 33 32 37 30 20 20 20 20 20 20 20 3B 20 |TA53270 ; |
00000BC0: 55 4D 53 43 48 41 4C 54 45 4E 00 D9 13 0A 05 20 |UMSCHALTEN..... |
00000BD0: 4A 4D 50 53 43 52 4F 4C 4C 00 EB 13 14 05 47 4F |JMPSCROLL.....GO|
00000BE0: 4F 4E 31 33 20 43 4D 50 23 22 31 00 F9 13 1E 05 |ON13 CMP#"1.....|
00000BF0: 20 42 45 51 44 4F 49 54 33 00 08 14 28 05 20 4A | BEQDOIT3...(. J|
00000C00: 4D 50 47 4F 4F 4E 31 34 00 28 14 32 05 44 4F 49 |MPGOON14.(.2.DOI|
00000C10: 54 33 20 4A 53 52 43 4F 4C 47 45 54 20 3B 20 46 |T3 JSRCOLGET ; F|
00000C20: 41 52 42 54 41 53 54 45 00 52 14 3C 05 20 4A 53 |ARBTASTE.R.<. JS|
00000C30: 52 52 41 4D 43 4F 4C 20 20 20 20 20 20 3B 20 5A |RRAMCOL ; Z|
00000C40: 45 49 43 48 45 4E 46 41 52 42 45 20 53 45 54 5A |EICHENFARBE SETZ|
00000C50: 45 4E 00 61 14 46 05 20 4A 4D 50 53 43 52 4F 4C |EN.a.F. JMPSCROL|
00000C60: 4C 00 73 14 50 05 47 4F 4F 4E 31 34 20 43 4D 50 |L.s.P.GOON14 CMP|
00000C70: 23 22 32 00 81 14 5A 05 20 42 45 51 44 4F 49 54 |#"2...Z. BEQDOIT|
00000C80: 34 00 90 14 64 05 20 4A 4D 50 47 4F 4F 4E 31 35 |4...d. JMPGOON15|
00000C90: 00 B0 14 6E 05 44 4F 49 54 34 20 4A 53 52 43 4F |...n.DOIT4 JSRCO|
00000CA0: 4C 47 45 54 20 3B 20 46 41 52 42 54 41 53 54 45 |LGET ; FARBTASTE|
00000CB0: 00 CE 14 78 05 20 53 54 58 24 44 30 32 31 20 20 |...x. STX$D021 |
00000CC0: 20 20 20 20 20 20 3B 20 53 45 54 5A 45 4E 00 DD | ; SETZEN..|
00000CD0: 14 82 05 20 4A 4D 50 53 43 52 4F 4C 4C 00 EF 14 |... JMPSCROLL...|
00000CE0: 8C 05 47 4F 4F 4E 31 35 20 43 4D 50 23 22 33 00 |..GOON15 CMP#"3.|
00000CF0: FD 14 96 05 20 42 45 51 44 4F 49 54 35 00 0C 15 |.... BEQDOIT5...|
00000D00: A0 05 20 4A 4D 50 47 4F 4F 4E 31 36 00 2C 15 AA |.. JMPGOON16.,..|
00000D10: 05 44 4F 49 54 35 20 4A 53 52 43 4F 4C 47 45 54 |.DOIT5 JSRCOLGET|
00000D20: 20 3B 20 46 41 52 42 54 41 53 54 45 00 3A 15 B4 | ; FARBTASTE.:..|
00000D30: 05 20 53 54 58 24 44 30 32 32 00 49 15 BE 05 20 |. STX$D022.I... |
00000D40: 4A 4D 50 53 43 52 4F 4C 4C 00 5B 15 C8 05 47 4F |JMPSCROLL.[...GO|
00000D50: 4F 4E 31 36 20 43 4D 50 23 22 34 00 69 15 D2 05 |ON16 CMP#"4.i...|
00000D60: 20 42 45 51 44 4F 49 54 36 00 8F 15 DC 05 20 4A | BEQDOIT6..... J|
00000D70: 4D 50 53 43 52 4F 4C 4C 20 20 20 20 20 20 20 3B |MPSCROLL ;|
00000D80: 20 49 4C 4C 45 47 41 4C 45 20 54 41 53 54 45 00 | ILLEGALE TASTE.|
00000D90: AF 15 E6 05 44 4F 49 54 36 20 4A 53 52 43 4F 4C |....DOIT6 JSRCOL|
00000DA0: 47 45 54 20 3B 20 46 41 52 42 54 41 53 54 45 00 |GET ; FARBTASTE.|
00000DB0: BD 15 F0 05 20 53 54 58 24 44 30 32 33 00 CC 15 |.... STX$D023...|
00000DC0: FA 05 20 4A 4D 50 53 43 52 4F 4C 4C 00 E9 15 04 |.. JMPSCROLL....|
00000DD0: 06 52 41 4D 53 43 52 20 4C 44 58 23 30 20 3B 20 |.RAMSCR LDX#0 ; |
00000DE0: 31 33 20 5A 45 49 4C 45 4E 00 07 16 0E 06 4C 4F |13 ZEILEN.....LO|
00000DF0: 4F 50 31 20 4C 44 59 23 30 20 20 3B 20 34 30 20 |OP1 LDY#0 ; 40 |
00000E00: 5A 45 49 43 48 45 4E 00 1B 16 18 06 4C 4F 4F 50 |ZEICHEN.....LOOP|
00000E10: 32 20 4C 44 41 28 36 35 29 2C 59 00 42 16 22 06 |2 LDA(65),Y.B.".|
00000E20: 20 53 54 41 28 36 37 29 2C 59 20 20 20 20 3B 20 | STA(67),Y ; |
00000E30: 52 41 4D 20 2D 2D 3E 20 42 49 4C 44 53 43 48 49 |RAM --> BILDSCHI|
00000E40: 52 4D 00 4B 16 2C 06 20 49 4E 59 00 57 16 36 06 |RM.K.,. INY.W.6.|
00000E50: 20 43 50 59 23 34 30 00 65 16 40 06 20 42 4E 45 | CPY#40.e.@. BNE|
00000E60: 4C 4F 4F 50 32 00 70 16 4A 06 20 49 4E 43 36 36 |LOOP2.p.J. INC66|
00000E70: 00 7B 16 54 06 20 49 4E 43 36 36 00 86 16 5E 06 |.{.T. INC66...^.|
00000E80: 20 4C 44 41 36 37 00 8F 16 68 06 20 43 4C 43 00 | LDA67...h. CLC.|
00000E90: 9B 16 72 06 20 41 44 43 23 34 30 00 A6 16 7C 06 |..r. ADC#40...|.|
00000EA0: 20 53 54 41 36 37 00 B1 16 86 06 20 4C 44 41 36 | STA67..... LDA6|
00000EB0: 38 00 BC 16 90 06 20 41 44 43 23 30 00 C7 16 9A |8..... ADC#0....|
00000EC0: 06 20 53 54 41 36 38 00 D0 16 A4 06 20 49 4E 58 |. STA68..... INX|
00000ED0: 00 F4 16 AE 06 20 43 50 58 23 31 33 20 20 20 20 |..... CPX#13 |
00000EE0: 20 3B 20 53 43 48 4F 4E 20 41 4C 4C 45 20 5A 45 | ; SCHON ALLE ZE|
00000EF0: 49 4C 45 4E 00 02 17 B8 06 20 42 4E 45 4C 4F 4F |ILEN..... BNELOO|
00000F00: 50 31 00 0D 17 C2 06 20 4C 44 41 36 36 00 16 17 |P1..... LDA66...|
00000F10: CC 06 20 53 45 43 00 22 17 D6 06 20 53 42 43 23 |.. SEC."... SBC#|
00000F20: 32 36 00 2D 17 E0 06 20 53 54 41 36 36 00 56 17 |26.-... STA66.V.|
00000F30: EA 06 20 4C 44 41 23 3C 28 31 31 34 34 29 20 20 |.. LDA#<(1144) |
00000F40: 3B 20 50 4F 49 4E 54 45 52 20 52 45 53 54 41 55 |; POINTER RESTAU|
00000F50: 52 49 45 52 45 4E 00 61 17 F4 06 20 53 54 41 36 |RIEREN.a... STA6|
00000F60: 37 00 72 17 FE 06 20 4C 44 41 23 3E 28 31 31 34 |7.r... LDA#>(114|
00000F70: 34 29 00 7D 17 08 07 20 53 54 41 36 38 00 86 17 |4).}... STA68...|
00000F80: 12 07 20 52 54 53 00 A3 17 1C 07 53 43 52 52 41 |.. RTS.....SCRRA|
00000F90: 4D 20 4C 44 58 23 30 20 3B 20 31 33 20 5A 45 49 |M LDX#0 ; 13 ZEI|
00000FA0: 4C 45 4E 00 C2 17 26 07 4C 4F 4F 50 31 41 20 4C |LEN...&.LOOP1A L|
00000FB0: 44 59 23 30 20 20 3B 20 34 30 20 5A 45 49 43 48 |DY#0 ; 40 ZEICH|
00000FC0: 45 4E 00 D7 17 30 07 4C 4F 4F 50 32 41 20 4C 44 |EN...0.LOOP2A LD|
00000FD0: 41 28 36 37 29 2C 59 00 FE 17 3A 07 20 53 54 41 |A(67),Y...:. STA|
00000FE0: 28 36 35 29 2C 59 20 20 20 20 3B 20 52 41 4D 20 |(65),Y ; RAM |
00000FF0: 2D 2D 3E 20 42 49 4C 44 53 43 48 49 52 4D 00 07 |--> BILDSCHIRM..|
00001000: 18 44 07 20 49 4E 59 00 13 18 4E 07 20 43 50 59 |.D. INY...N. CPY|
00001010: 23 34 30 00 22 18 58 07 20 42 4E 45 4C 4F 4F 50 |#40.".X. BNELOOP|
00001020: 32 41 00 2D 18 62 07 20 49 4E 43 36 36 00 38 18 |2A.-.b. INC66.8.|
00001030: 6C 07 20 49 4E 43 36 36 00 43 18 76 07 20 4C 44 |l. INC66.C.v. LD|
00001040: 41 36 37 00 4C 18 80 07 20 43 4C 43 00 58 18 8A |A67.L... CLC.X..|
00001050: 07 20 41 44 43 23 34 30 00 63 18 94 07 20 53 54 |. ADC#40.c... ST|
00001060: 41 36 37 00 6E 18 9E 07 20 4C 44 41 36 38 00 79 |A67.n... LDA68.y|
00001070: 18 A8 07 20 41 44 43 23 30 00 84 18 B2 07 20 53 |... ADC#0..... S|
00001080: 54 41 36 38 00 8D 18 BC 07 20 49 4E 58 00 B1 18 |TA68..... INX...|
00001090: C6 07 20 43 50 58 23 31 33 20 20 20 20 20 3B 20 |.. CPX#13 ; |
000010A0: 53 43 48 4F 4E 20 41 4C 4C 45 20 5A 45 49 4C 45 |SCHON ALLE ZEILE|
000010B0: 4E 00 C0 18 D0 07 20 42 4E 45 4C 4F 4F 50 31 41 |N..... BNELOOP1A|
000010C0: 00 CB 18 DA 07 20 4C 44 41 36 36 00 D4 18 E4 07 |..... LDA66.....|
000010D0: 20 53 45 43 00 E0 18 EE 07 20 53 42 43 23 32 36 | SEC..... SBC#26|
000010E0: 00 EB 18 F8 07 20 53 54 41 36 36 00 14 19 02 08 |..... STA66.....|
000010F0: 20 4C 44 41 23 3C 28 31 31 34 34 29 20 20 3B 20 | LDA#<(1144) ; |
00001100: 50 4F 49 4E 54 45 52 20 52 45 53 54 41 55 52 49 |POINTER RESTAURI|
00001110: 45 52 45 4E 00 1F 19 0C 08 20 53 54 41 36 37 00 |EREN..... STA67.|
00001120: 30 19 16 08 20 4C 44 41 23 3E 28 31 31 34 34 29 |0... LDA#>(1144)|
00001130: 00 3B 19 20 08 20 53 54 41 36 38 00 44 19 2A 08 |.;. . STA68.D.*.|
00001140: 20 52 54 53 00 61 19 34 08 43 55 52 53 20 43 4D | RTS.a.4.CURS CM|
00001150: 50 23 31 34 35 20 3B 20 43 55 52 53 4F 52 20 55 |P#145 ; CURSOR U|
00001160: 50 00 75 19 3E 08 20 42 4E 45 47 4F 4F 4E 20 3B |P.u.>. BNEGOON ;|
00001170: 20 4E 45 49 4E 00 81 19 48 08 20 4C 44 41 24 41 | NEIN...H. LDA$A|
00001180: 37 00 99 19 52 08 20 53 45 43 20 20 20 20 20 3B |7...R. SEC ;|
00001190: 20 55 4E 4E 4F 45 54 49 47 00 B8 19 5C 08 20 53 | UNNOETIG...\. S|
000011A0: 42 43 23 34 30 20 20 3B 20 45 49 4E 45 20 5A 45 |BC#40 ; EINE ZE|
000011B0: 49 4C 45 20 52 41 55 46 00 C4 19 66 08 20 53 54 |ILE RAUF...f. ST|
000011C0: 41 24 41 37 00 D0 19 70 08 20 4C 44 41 24 41 38 |A$A7...p. LDA$A8|
000011D0: 00 DB 19 7A 08 20 53 42 43 23 30 00 E7 19 84 08 |...z. SBC#0.....|
000011E0: 20 53 54 41 24 41 38 00 FD 19 8E 08 20 4A 4D 50 | STA$A8..... JMP|
000011F0: 45 58 49 54 20 3B 20 46 45 52 54 49 47 00 1B 1A |EXIT ; FERTIG...|
00001200: 98 08 47 4F 4F 4E 20 43 4D 50 23 31 37 20 3B 20 |..GOON CMP#17 ; |
00001210: 43 55 52 53 4F 52 20 44 4F 57 4E 00 30 1A A2 08 |CURSOR DOWN.0...|
00001220: 20 42 4E 45 47 4F 4F 4E 32 20 3B 20 4E 45 49 4E | BNEGOON2 ; NEIN|
00001230: 00 51 1A AC 08 20 4C 44 41 24 41 37 20 20 3B 20 |.Q... LDA$A7 ; |
00001240: 45 49 4E 45 20 5A 45 49 4C 45 20 52 55 4E 54 45 |EINE ZEILE RUNTE|
00001250: 52 00 5A 1A B6 08 20 43 4C 43 00 8D 1A C0 08 20 |R.Z... CLC..... |
00001260: 41 44 43 23 34 30 20 20 3B 20 53 54 41 54 54 20 |ADC#40 ; STATT |
00001270: 43 4C 43 2F 41 44 43 20 23 34 30 20 47 45 48 54 |CLC/ADC #40 GEHT|
00001280: 20 41 55 43 48 20 41 44 43 20 23 33 39 00 99 1A | AUCH ADC #39...|
00001290: CA 08 20 53 54 41 24 41 37 00 A5 1A D4 08 20 4C |.. STA$A7..... L|
000012A0: 44 41 24 41 38 00 BD 1A DE 08 20 41 44 43 23 30 |DA$A8..... ADC#0|
000012B0: 20 20 20 3B 20 48 49 47 48 42 59 54 45 00 C9 1A | ; HIGHBYTE...|
000012C0: E8 08 20 53 54 41 24 41 38 00 D6 1A F2 08 20 4A |.. STA$A8..... J|
000012D0: 4D 50 45 58 49 54 00 F6 1A FC 08 47 4F 4F 4E 32 |MPEXIT.....GOON2|
000012E0: 20 43 4D 50 23 31 35 37 20 3B 20 43 55 52 53 4F | CMP#157 ; CURSO|
000012F0: 52 20 4C 45 46 54 00 1F 1B 06 09 20 42 45 51 42 |R LEFT..... BEQB|
00001300: 41 43 4B 20 3B 20 4A 41 2C 20 45 49 4E 45 4E 20 |ACK ; JA, EINEN |
00001310: 53 43 48 52 49 54 54 20 5A 55 52 55 45 43 4B 00 |SCHRITT ZURUECK.|
00001320: 35 1B 10 09 20 43 4D 50 23 32 30 20 20 3B 20 44 |5... CMP#20 ; D|
00001330: 45 4C 45 54 45 00 53 1B 1A 09 20 42 4E 45 47 4F |ELETE.S... BNEGO|
00001340: 4F 4E 33 3B 20 57 49 52 4B 54 20 57 49 45 20 4C |ON3; WIRKT WIE L|
00001350: 45 46 54 00 63 1B 24 09 42 41 43 4B 20 4C 44 41 |EFT.c.$.BACK LDA|
00001360: 24 41 37 00 9D 1B 2E 09 20 53 45 43 20 20 20 20 |$A7..... SEC |
00001370: 20 3B 20 55 4E 4E 4F 45 54 49 47 20 28 43 41 52 | ; UNNOETIG (CAR|
00001380: 52 59 20 49 4D 4D 45 52 20 47 45 53 45 54 5A 54 |RY IMMER GESETZT|
00001390: 20 56 4F 4E 20 43 4D 50 20 23 32 30 29 00 C0 1B | VON CMP #20)...|
000013A0: 38 09 20 53 42 43 23 31 20 20 20 3B 20 45 49 4E |8. SBC#1 ; EIN|
000013B0: 45 20 53 50 41 4C 54 45 20 5A 55 52 55 45 43 4B |E SPALTE ZURUECK|
000013C0: 00 CC 1B 42 09 20 53 54 41 24 41 37 00 D8 1B 4C |...B. STA$A7...L|
000013D0: 09 20 4C 44 41 24 41 38 00 E3 1B 56 09 20 53 42 |. LDA$A8...V. SB|
000013E0: 43 23 30 00 EF 1B 60 09 20 53 54 41 24 41 38 00 |C#0...`. STA$A8.|
000013F0: FC 1B 6A 09 20 4A 4D 50 45 58 49 54 00 0D 1C 74 |..j. JMPEXIT...t|
00001400: 09 47 4F 4F 4E 33 20 4C 44 41 24 41 37 00 5A 1C |.GOON3 LDA$A7.Z.|
00001410: 7E 09 20 43 4C 43 20 20 20 20 20 3B 20 53 54 41 |~. CLC ; STA|
00001420: 54 54 20 43 4C 43 2F 41 44 43 20 23 31 20 47 45 |TT CLC/ADC #1 GE|
00001430: 48 54 20 41 55 43 48 20 4B 55 45 52 5A 45 52 20 |HT AUCH KUERZER |
00001440: 41 44 43 20 23 30 20 28 43 41 52 52 59 20 49 53 |ADC #0 (CARRY IS|
00001450: 54 20 47 45 53 45 54 5A 54 29 00 79 1C 88 09 20 |T GESETZT).y... |
00001460: 41 44 43 23 31 20 20 20 3B 20 45 49 4E 45 20 53 |ADC#1 ; EINE S|
00001470: 50 41 4C 54 45 20 56 4F 52 00 85 1C 92 09 20 53 |PALTE VOR..... S|
00001480: 54 41 24 41 37 00 91 1C 9C 09 20 4C 44 41 24 41 |TA$A7..... LDA$A|
00001490: 38 00 9C 1C A6 09 20 41 44 43 23 30 00 A8 1C B0 |8..... ADC#0....|
000014A0: 09 20 53 54 41 24 41 38 00 BB 1C BA 09 45 58 49 |. STA$A8.....EXI|
000014B0: 54 20 4A 4D 50 49 4E 56 45 52 53 00 DD 1C C4 09 |T JMPINVERS.....|
000014C0: 20 4E 4F 50 20 20 20 20 20 3B 20 54 49 4D 49 4E | NOP ; TIMIN|
000014D0: 47 20 2D 20 46 55 45 4C 4C 42 59 54 45 00 11 1D |G - FUELLBYTE...|
000014E0: CE 09 49 4E 56 45 52 53 20 4C 44 59 23 30 20 3B |..INVERS LDY#0 ;|
000014F0: 20 5A 45 49 43 48 45 4E 20 55 4E 54 45 52 20 43 | ZEICHEN UNTER C|
00001500: 55 52 53 4F 52 20 49 4E 56 45 52 54 49 45 52 45 |URSOR INVERTIERE|
00001510: 4E 00 33 1D D8 09 20 4C 44 41 28 24 41 37 29 2C |N.3... LDA($A7),|
00001520: 59 20 20 20 3B 20 5A 45 49 43 48 45 4E 20 48 4F |Y ; ZEICHEN HO|
00001530: 4C 45 4E 00 51 1D E2 09 20 45 4F 52 23 31 32 38 |LEN.Q... EOR#128|
00001540: 20 3B 20 42 49 54 20 37 20 52 4F 54 49 45 52 45 | ; BIT 7 ROTIERE|
00001550: 4E 00 81 1D EC 09 20 53 54 41 28 24 41 37 29 2C |N..... STA($A7),|
00001560: 59 20 20 20 3B 20 4A 45 54 5A 54 20 57 45 49 53 |Y ; JETZT WEIS|
00001570: 53 20 45 53 20 41 55 43 48 20 44 45 52 20 43 36 |S ES AUCH DER C6|
00001580: 34 00 99 1D F6 09 20 52 54 53 20 20 20 20 20 3B |4..... RTS ;|
00001590: 20 54 53 43 48 55 45 53 53 00 B9 1D 00 0A 53 45 | TSCHUESS.....SE|
000015A0: 54 4E 41 4D 45 20 43 4C 43 3B 20 43 55 52 53 4F |TNAME CLC; CURSO|
000015B0: 52 50 4F 53 49 54 49 4F 4E 00 D3 1D 0A 0A 20 4C |RPOSITION..... L|
000015C0: 44 58 23 31 20 20 20 20 20 20 3B 20 5A 45 49 4C |DX#1 ; ZEIL|
000015D0: 45 20 31 00 EE 1D 14 0A 20 4C 44 59 23 31 20 20 |E 1..... LDY#1 |
000015E0: 20 20 20 20 3B 20 53 50 41 4C 54 45 20 31 00 07 | ; SPALTE 1..|
000015F0: 1E 1E 0A 20 4A 53 52 24 46 46 46 30 20 20 20 3B |... JSR$FFF0 ;|
00001600: 20 53 45 54 5A 45 4E 00 2A 1E 28 0A 20 4C 44 41 | SETZEN.*.(. LDA|
00001610: 23 30 20 20 20 20 20 20 3B 20 27 40 27 20 41 4E |#0 ; '@' AN|
00001620: 20 50 4F 53 2E 20 31 30 36 34 00 60 1E 32 0A 20 | POS. 1064.`.2. |
00001630: 53 54 41 31 30 36 34 20 20 20 20 3B 20 46 55 4E |STA1064 ; FUN|
00001640: 4B 54 49 4F 4E 49 45 52 54 20 4E 49 43 48 54 20 |KTIONIERT NICHT |
00001650: 41 55 46 20 41 4C 54 45 4E 20 36 34 27 45 52 4E |AUF ALTEN 64'ERN|
00001660: 00 7F 1E 37 0A 20 53 54 41 31 35 37 20 20 20 20 |...7. STA157 |
00001670: 20 3B 20 54 52 49 43 4B 20 21 20 28 4E 48 29 00 | ; TRICK ! (NH).|
00001680: 8A 1E 3C 0A 20 4C 44 58 23 30 00 A5 1E 46 0A 4C |..<. LDX#0...F.L|
00001690: 4F 4F 50 4E 20 4A 53 52 24 46 46 43 46 20 3B 20 |OOPN JSR$FFCF ; |
000016A0: 49 4E 50 55 54 00 BA 1E 50 0A 20 43 4D 50 23 31 |INPUT...P. CMP#1|
000016B0: 33 20 20 20 20 20 3B 20 43 52 00 C6 1E 5A 0A 20 |3 ; CR...Z. |
000016C0: 42 45 51 45 4E 44 00 E2 1E 64 0A 20 53 54 41 4E |BEQEND...d. STAN|
000016D0: 41 4D 45 2C 58 20 20 3B 20 53 50 45 49 43 48 45 |AME,X ; SPEICHE|
000016E0: 52 4E 00 EB 1E 6E 0A 20 49 4E 58 00 F9 1E 78 0A |RN...n. INX...x.|
000016F0: 20 4A 4D 50 4C 4F 4F 50 4E 00 11 1F 82 0A 45 4E | JMPLOOPN.....EN|
00001700: 44 20 54 58 41 20 20 20 20 3B 20 4C 41 45 4E 47 |D TXA ; LAENG|
00001710: 45 00 22 1F 8C 0A 20 4C 44 58 23 3C 28 4E 41 4D |E."... LDX#<(NAM|
00001720: 45 29 00 33 1F 96 0A 20 4C 44 59 23 3E 28 4E 41 |E).3... LDY#>(NA|
00001730: 4D 45 29 00 4F 1F A0 0A 20 4A 4D 50 24 46 46 42 |ME).O... JMP$FFB|
00001740: 44 20 20 20 3B 20 41 4E 20 4B 45 52 4E 41 4C 00 |D ; AN KERNAL.|
00001750: 7E 1F B4 0A 4C 4F 41 44 20 4C 44 41 23 31 20 3B |~...LOAD LDA#1 ;|
00001760: 20 44 49 53 4B 50 41 52 41 4D 45 54 45 52 20 2D | DISKPARAMETER -|
00001770: 20 41 42 53 4F 4C 55 54 20 4C 41 44 45 4E 00 97 | ABSOLUT LADEN..|
00001780: 1F BE 0A 20 4C 44 58 23 38 20 20 20 20 20 20 3B |... LDX#8 ;|
00001790: 20 46 4C 4F 50 50 59 00 BD 1F C8 0A 20 4C 44 59 | FLOPPY..... LDY|
000017A0: 23 30 20 20 20 20 20 20 3B 20 4D 4F 44 49 46 49 |#0 ; MODIFI|
000017B0: 4B 41 54 49 4F 4E 20 56 4F 4E 20 4E 48 00 CB 1F |KATION VON NH...|
000017C0: D2 0A 20 4A 53 52 24 46 46 42 41 00 E8 1F DC 0A |.. JSR$FFBA.....|
000017D0: 20 4A 53 52 53 45 54 4E 41 4D 45 20 3B 20 4E 41 | JSRSETNAME ; NA|
000017E0: 4D 45 20 48 4F 4C 45 4E 00 04 20 E6 0A 20 4C 44 |ME HOLEN.. .. LD|
000017F0: 41 23 30 20 20 20 20 20 20 3B 20 4C 4F 41 44 2D |A#0 ; LOAD-|
00001800: 46 4C 41 47 00 22 20 E8 0A 20 4C 44 58 23 30 20 |FLAG." .. LDX#0 |
00001810: 20 20 20 20 20 3B 20 41 44 52 45 53 53 45 20 4C | ; ADRESSE L|
00001820: 4F 57 00 4E 20 EA 0A 20 4C 44 59 23 24 37 30 20 |OW.N .. LDY#$70 |
00001830: 20 20 20 3B 20 55 4E 44 20 48 49 47 48 20 28 5A | ; UND HIGH (Z|
00001840: 55 52 20 53 49 43 48 45 52 48 45 49 54 29 00 79 |UR SICHERHEIT).y|
00001850: 20 F0 0A 20 4A 53 52 24 46 46 44 35 20 20 20 3B | .. JSR$FFD5 ;|
00001860: 20 4C 4F 41 44 2D 52 4F 55 54 49 4E 45 20 28 53 | LOAD-ROUTINE (S|
00001870: 45 4B 2E 41 44 52 20 30 29 00 96 20 FA 0A 20 42 |EK.ADR 0).. .. B|
00001880: 43 43 4F 4B 20 20 20 20 20 20 3B 20 4C 41 44 45 |CCOK ; LADE|
00001890: 46 45 48 4C 45 52 00 AB 20 04 0B 20 4C 44 41 23 |FEHLER.. .. LDA#|
000018A0: 32 20 20 20 20 20 20 3B 20 4A 41 00 CD 20 0E 0B |2 ; JA.. ..|
000018B0: 20 53 54 41 24 44 30 32 30 20 20 20 3B 20 52 41 | STA$D020 ; RA|
000018C0: 48 4D 45 4E 46 41 52 42 45 20 52 4F 54 00 D6 20 |HMENFARBE ROT.. |
000018D0: 18 0B 20 52 54 53 00 EF 20 22 0B 4F 4B 20 4A 53 |.. RTS.. ".OK JS|
000018E0: 52 24 45 35 34 34 20 3B 20 53 43 4E 43 4C 52 00 |R$E544 ; SCNCLR.|
000018F0: 0B 21 2C 0B 20 4A 53 52 4C 49 4E 45 20 20 20 20 |.!,. JSRLINE |
00001900: 20 3B 20 57 49 45 20 4F 42 45 4E 00 1A 21 36 0B | ; WIE OBEN..!6.|
00001910: 20 4A 53 52 52 41 4D 53 43 52 00 23 21 40 0B 20 | JSRRAMSCR.#!@. |
00001920: 52 54 53 00 32 21 4A 0B 53 41 56 45 20 4C 44 41 |RTS.2!J.SAVE LDA|
00001930: 23 31 00 3D 21 54 0B 20 4C 44 58 23 38 00 46 21 |#1.=!T. LDX#8.F!|
00001940: 5E 0B 20 54 41 59 00 54 21 68 0B 20 4A 53 52 24 |^. TAY.T!h. JSR$|
00001950: 46 46 42 41 00 64 21 72 0B 20 4A 53 52 53 45 54 |FFBA.d!r. JSRSET|
00001960: 4E 41 4D 45 00 6F 21 7C 0B 20 4C 44 41 23 30 00 |NAME.o!|. LDA#0.|
00001970: 7C 21 86 0B 20 4C 44 58 23 24 37 30 00 88 21 90 ||!.. LDX#$70..!.|
00001980: 0B 20 53 54 41 24 46 42 00 94 21 9A 0B 20 53 54 |. STA$FB..!.. ST|
00001990: 58 24 46 43 00 A1 21 A4 0B 20 4C 44 41 23 24 46 |X$FC..!.. LDA#$F|
000019A0: 42 00 BC 21 AE 0B 20 4C 44 58 23 3C 28 33 35 33 |B..!.. LDX#<(353|
000019B0: 32 38 29 20 3B 20 45 4E 44 41 44 52 00 CE 21 B8 |28) ; ENDADR..!.|
000019C0: 0B 20 4C 44 59 23 3E 28 33 35 33 32 38 29 00 E4 |. LDY#>(35328)..|
000019D0: 21 C2 0B 20 4A 53 52 24 46 46 44 38 20 20 3B 20 |!.. JSR$FFD8 ; |
000019E0: 53 41 56 45 00 F2 21 CC 0B 20 4A 53 52 24 45 35 |SAVE..!.. JSR$E5|
000019F0: 34 34 00 0E 22 D6 0B 20 4A 53 52 4C 49 4E 45 20 |44..".. JSRLINE |
00001A00: 20 20 3B 20 53 49 45 48 45 20 4F 42 45 4E 00 2E | ; SIEHE OBEN..|
00001A10: 22 E0 0B 20 4A 53 52 52 41 4D 53 43 52 20 3B 20 |".. JSRRAMSCR ; |
00001A20: 52 41 4D 20 2D 2D 3E 20 53 43 48 49 52 4D 00 37 |RAM --> SCHIRM.7|
00001A30: 22 EA 0B 20 52 54 53 00 46 22 F4 0B 4C 49 4E 45 |".. RTS.F"..LINE|
00001A40: 20 4C 44 59 23 30 00 58 22 FE 0B 4C 4F 4F 50 42 | LDY#0.X"..LOOPB|
00001A50: 20 4C 44 41 23 31 32 31 00 6E 22 08 0C 20 53 54 | LDA#121.n".. ST|
00001A60: 41 31 31 30 34 2C 59 20 3B 20 4F 42 45 4E 00 7B |A1104,Y ; OBEN.{|
00001A70: 22 12 0C 20 4C 44 41 23 31 32 30 00 92 22 1C 0C |".. LDA#120.."..|
00001A80: 20 53 54 41 31 36 36 34 2C 59 20 3B 20 55 4E 54 | STA1664,Y ; UNT|
00001A90: 45 4E 00 9B 22 26 0C 20 49 4E 59 00 A7 22 30 0C |EN.."&. INY.."0.|
00001AA0: 20 43 50 59 23 34 30 00 B5 22 3A 0C 20 42 4E 45 | CPY#40..":. BNE|
00001AB0: 4C 4F 4F 50 42 00 CE 22 44 0C 20 52 54 53 20 20 |LOOPB.."D. RTS |
00001AC0: 20 20 20 20 20 3B 20 46 45 52 54 49 43 48 00 EC | ; FERTICH..|
00001AD0: 22 4E 0C 43 4C 52 53 43 52 20 4C 44 59 23 30 20 |"N.CLRSCR LDY#0 |
00001AE0: 3B 20 41 55 53 53 43 48 4E 49 54 54 00 05 23 58 |; AUSSCHNITT..#X|
00001AF0: 0C 20 4C 44 41 23 33 32 20 20 20 20 20 20 3B 20 |. LDA#32 ; |
00001B00: 53 50 41 43 45 00 19 23 62 0C 4C 4F 4F 50 43 20 |SPACE..#b.LOOPC |
00001B10: 53 54 41 31 31 34 34 2C 59 00 28 23 6C 0C 20 53 |STA1144,Y.(#l. S|
00001B20: 54 41 31 32 37 34 2C 59 00 37 23 76 0C 20 53 54 |TA1274,Y.7#v. ST|
00001B30: 41 31 34 30 34 2C 59 00 46 23 80 0C 20 53 54 41 |A1404,Y.F#.. STA|
00001B40: 31 35 33 34 2C 59 00 4F 23 8A 0C 20 49 4E 59 00 |1534,Y.O#.. INY.|
00001B50: 5C 23 94 0C 20 43 50 59 23 31 33 30 00 6A 23 9E |\#.. CPY#130.j#.|
00001B60: 0C 20 42 4E 45 4C 4F 4F 50 43 00 91 23 A8 0C 20 |. BNELOOPC..#.. |
00001B70: 4A 53 52 53 43 52 52 41 4D 20 20 3B 20 41 55 43 |JSRSCRRAM ; AUC|
00001B80: 48 20 49 4D 20 52 41 4D 20 4C 4F 45 53 43 48 45 |H IM RAM LOESCHE|
00001B90: 4E 00 9A 23 B2 0C 20 52 54 53 00 AB 23 BC 0C 43 |N..#.. RTS..#..C|
00001BA0: 4F 4C 47 45 54 20 4C 44 58 23 30 00 BC 23 C6 0C |OLGET LDX#0..#..|
00001BB0: 52 4C 41 20 53 54 58 24 44 30 32 30 00 CF 23 D0 |RLA STX$D020..#.|
00001BC0: 0C 20 54 58 41 3B 20 58 20 4D 45 52 4B 45 4E 00 |. TXA; X MERKEN.|
00001BD0: D8 23 DA 0C 20 50 48 41 00 E6 23 E4 0C 20 4A 53 |.#.. PHA..#.. JS|
00001BE0: 52 24 46 46 45 34 00 FD 23 EE 0C 20 54 41 59 3B |R$FFE4..#.. TAY;|
00001BF0: 20 54 41 53 54 45 20 4E 41 43 48 20 59 00 06 24 | TASTE NACH Y..$|
00001C00: F8 0C 20 50 4C 41 00 21 24 02 0D 20 54 41 58 3B |.. PLA.!$.. TAX;|
00001C10: 20 46 41 52 42 45 20 52 55 45 43 4B 48 4F 4C 45 | FARBE RUECKHOLE|
00001C20: 4E 00 37 24 0C 0D 20 54 59 41 3B 20 54 41 53 54 |N.7$.. TYA; TAST|
00001C30: 45 20 2D 2D 3E 20 41 00 4C 24 16 0D 20 43 4D 50 |E --> A.L$.. CMP|
00001C40: 23 31 33 20 3B 20 52 45 54 55 52 4E 00 5D 24 20 |#13 ; RETURN.]$ |
00001C50: 0D 20 42 4E 45 43 4F 4C 4C 4F 50 50 32 00 72 24 |. BNECOLLOPP2.r$|
00001C60: 2A 0D 20 52 54 53 3B 20 46 41 52 42 45 20 49 4E |*. RTS; FARBE IN|
00001C70: 20 58 00 8B 24 34 0D 43 4F 4C 4C 4F 50 50 32 20 | X..$4.COLLOPP2 |
00001C80: 43 4D 50 23 34 33 3B 20 27 2B 27 00 96 24 3E 0D |CMP#43; '+'..$>.|
00001C90: 20 42 4E 45 43 33 00 9F 24 48 0D 20 49 4E 58 00 | BNEC3..$H. INX.|
00001CA0: AB 24 52 0D 20 4A 4D 50 52 4C 41 00 BF 24 5C 0D |.$R. JMPRLA..$\.|
00001CB0: 43 33 20 43 4D 50 23 34 35 20 3B 20 27 2D 27 00 |C3 CMP#45 ; '-'.|
00001CC0: DC 24 66 0D 20 42 4E 45 52 4C 41 20 3B 20 49 4C |.$f. BNERLA ; IL|
00001CD0: 4C 45 47 41 4C 45 20 54 41 53 54 45 00 E5 24 70 |LEGALE TASTE..$p|
00001CE0: 0D 20 44 45 58 00 F1 24 7A 0D 20 4A 4D 50 52 4C |. DEX..$z. JMPRL|
00001CF0: 41 00 02 25 84 0D 52 41 4D 43 4F 4C 20 4C 44 59 |A..%..RAMCOL LDY|
00001D00: 23 30 00 15 25 8E 0D 20 54 58 41 3B 20 46 41 52 |#0..%.. TXA; FAR|
00001D10: 42 57 45 52 54 00 28 25 98 0D 4E 53 53 20 53 54 |BWERT.(%..NSS ST|
00001D20: 41 35 35 34 31 36 2C 59 00 38 25 A2 0D 20 53 54 |A55416,Y.8%.. ST|
00001D30: 41 35 35 35 34 36 2C 59 00 52 25 AC 0D 20 53 54 |A55546,Y.R%.. ST|
00001D40: 41 35 35 36 37 36 2C 59 20 3B 20 46 41 52 42 52 |A55676,Y ; FARBR|
00001D50: 41 4D 00 62 25 B6 0D 20 53 54 41 35 35 38 30 36 |AM.b%.. STA55806|
00001D60: 2C 59 00 6B 25 C0 0D 20 49 4E 59 00 78 25 CA 0D |,Y.k%.. INY.x%..|
00001D70: 20 43 50 59 23 31 33 30 00 84 25 D4 0D 20 42 43 | CPY#130..%.. BC|
00001D80: 43 4E 53 53 00 93 25 DE 0D 20 52 54 53 3B 20 46 |CNSS..%.. RTS; F|
00001D90: 49 4E 49 00 B1 25 E8 0D 3B 20 53 49 45 20 48 41 |INI..%..; SIE HA|
00001DA0: 42 45 4E 27 53 20 47 45 53 43 48 41 46 46 54 20 |BEN'S GESCHAFFT |
00001DB0: 21 00 00 00 |!... |
....D. .BA$C000.?.N. .EQNAME =828 ; FILE
NAME FUER LOAD UND SAVE.C.X. JSR$E544 ;
BILDSCHIRM LOESCHEN..... JSRLINE ; BEGR
ENZUNGSLINIEN ZIEHEN..... LDA#0 ; ANF
ANGSADRESSE DER GRAFIK.A... STA65.W. . L
DA#$70 ; $7000..... STA66..... LDA#<(11
44); CURSORPOSITION..... STA67...H. LDA#
>(1144).*.R. STA68.T... JSRRAMSCR; GRAFI
K AUF SCHIRM BRINGEN.P...BEGIN CLC; SETZ
E CURSOR..... LDX#3 ; ZEILE 3..... LD
Y#0 ; SPALTE 0..... JSR$FFF0 ; PLOT.G
... LDA#<(1144).S... STA$A7...". LDA#>(1
144)...,. STA$A8...6.LOOP6 JSRINVERS ; C
URSOR ANZEIGEN.8.@.LOOP5 JSR$FFE4 ; TAS
TE HOLEN.T.J. CMP#0 ; KEINE TASTE.Y.T
. BEQLOOP5 ; JA, WEITER VERSUCHEN...^. C
MP#13 ; WAR ES ETWA RETURN...H. BEQLOO
P5 ; JA, IGNORIEREN.Y.R. CMP#148 ; EBEN
SO INSERT...|. BEQLOOP5..... CMP#19 ;
UND HOME..... BEQLOOP5..... CMP#147 ; U
ND SCREENCLEAR.<... BEQLOOP5.Y... PHA
; TASTE MERKEN.T... JSRINVERS; CURSOR
AUS..... PLA ; TASTE..... CMP#3
; STOP...B. BEQMENUE ; JA.O.L. PHA
; TASTE MERKEN...V. JSR$FFD2 ; ASCII CO
DE AUSGEBEN..... PLA ; TASTE ZURUEC
KHOLEN.J...; ZEILEN 480 UND 460 EIGENTLI
CH NICHT NOTWENDIG.A... CMP#18 ; RVS A
N..... BEQLOOP6 ; JA, INVERTIEREN..... C
MP#146 ; RVS OFF..... BEQLOOP6 ; JA, WI
E GEHABT.Y... JSRCURS ; CURSORBEHANDLUN
G..... JMPLOOP5 ; WEITER WIE OBEN...&.ME
NUE JSRSCRRAM ; SCHIRM --> RAM.@.0.SCROL
L JSR$FFE4 ; TASTE HOLEN.].:. CMP#"." ;
CURSOR RECHTS.K.D. BNEGOON4...N. LDA66
; RECHTER RAND ERREICHT...X. CMP#$71...
B. BNERECHTS ; NEIN, SCROLLEN.H.L. LDA65
...V. CMP#$D8 ; JA, NICHT SCHROLLEN...
.. BEQSCROLL.....RECHTS LDA65..... CLC.=
... ADC#1 ; ZEIGER INCREMENTIEREN.H.
.. STA65.S... LDA66.^... ADC#0...F. STA6
6 ; SEHR UMSTAENDLICH PROGRAMMIERT..
.P. JSRRAMSCR ; GRAFIK --> SCHIRM.I.Z. J
MPSCROLL ; WEITER.....GOON4 CMP#"." ; CU
RSOR LINKS..... BNEGOON5..... LDA66
; LINKER RAND ERREICHT.+... CMP#$70.9...
BNELINKS.^... LDA65 ; JA, NICHT SCH
ROLLEN.~. . BEQSCROLL ; NEIN, SCROLLEN..
.*.LINKS LDA65...4. SEC ; 1 ABZIEH
EN...>. SBC#1...H. STA65.K.R. LDA66.V.\.
SBC#0...F. STA66...P. JSRRAMSCR ; GRAFI
K --> SCHIRM...Z. JMPSCROLL.*...GOON5 CM
P#81 ; "Q".D... BNEGOON6 ; JA, QUIT.M..
. JSR65409 ; CINT (VIC RUECKSTELLEN)...
.. JMP$E385 ; 'OK', READY (NH).....GOON
6 CMP#3 ; STOP..... BNEGOON7 ; NEIN.V..
. JMPBEGIN ; VON VORN.....GOON7 CMP#19
; HOME...J. BNEGOON8...T. LDA#0 ; $7
000.:... STA65 ; ALS ZEIGER AUF GRAF
IK.O... LDA#$70 ; HIGH.Z... STA66.Z...
JSRRAMSCR ; RAM --> SCHIRM. ... JMPSCROL
L ; WEIL'S SO SCHOEN WAR.....GOON8 CMP#7
6 ; 'L'.E... BNEGOON9...$. JSRLOAD
; LADEN..... JMPSCROLL...8.GOON9 CMP#83
; 'S'...B. BNEGOON10.4.L. JSRSAVE ;
RUNTERSAVEN.C.V. JMPSCROLL.\.`.GOON10 C
MP#147 ; CLR.K.J. BNEGOON11...T. JSRCLRS
CR ; SCHIRM LOESCHEN...~. JMPSCROLL..
...GOON11 CMP#84 ; 'T'.V... BEQDOIT
; JA, TOGGELN..... JMPGOON12.....DOIT L
DA53272 ; VIC + 24..... EOR#12..... STA5
3272.+.D. JMPSCROLL.C.N.GOON12 CMP#77 ;
'M'.N.X. BEQDOIT2 ; WARUM SO UMSTAE
NDLICH.}... JMPGOON13.....DOIT2 LDA53270
; MULTICOLOR..... EOR#16.J... STA53270
; UMSCHALTEN.Y... JMPSCROLL.....GO
ON13 CMP#"1..... BEQDOIT3...(. JMPGOON14
.(.2.DOIT3 JSRCOLGET ; FARBTASTE.R.<. JS
RRAMCOL ; ZEICHENFARBE SETZEN.A.F.
JMPSCROLL.S.P.GOON14 CMP#"2...Z. BEQDOIT
4...D. JMPGOON15...N.DOIT4 JSRCOLGET ; F
ARBTASTE.N.X. STX$D021 ; SETZEN..
... JMPSCROLL.....GOON15 CMP#"3..... BEQ
DOIT5... . JMPGOON16.,...DOIT5 JSRCOLGET
; FARBTASTE.:... STX$D022.I... JMPSCROL
L.[.H.GOON16 CMP#"4.I.R. BEQDOIT6..... J
MPSCROLL ; ILLEGALE TASTE.....DOIT
6 JSRCOLGET ; FARBTASTE..... STX$D023.L.
.. JMPSCROLL.....RAMSCR LDX#0 ; 13 ZEILE
N.....LOOP1 LDY#0 ; 40 ZEICHEN.....LOOP
2 LDA(65),Y.B.". STA(67),Y ; RAM -->
BILDSCHIRM.K.,. INY.W.6. CPY#40.E.@. BNE
LOOP2.P.J. INC66.{.T. INC66...^. LDA67..
.H. CLC...R. ADC#40...|. STA67..... LDA6
8..... ADC#0.G... STA68.P... INX..... CP
X#13 ; SCHON ALLE ZEILEN..... BNELOO
P1...B. LDA66...L. SEC.".V. SBC#26.-...
STA66.V... LDA#<(1144) ; POINTER RESTAU
RIEREN.A... STA67.R... LDA#>(1144).}...
STA68..... RTS.....SCRRAM LDX#0 ; 13 ZEI
LEN.B.&.LOOP1A LDY#0 ; 40 ZEICHEN.W.0.L
OOP2A LDA(67),Y...:. STA(65),Y ; RAM
--> BILDSCHIRM...D. INY...N. CPY#40.".X.
BNELOOP2A.-.B. INC66.8.L. INC66.C.V. LD
A67.L... CLC.X... ADC#40.C... STA67.N...
LDA68.Y... ADC#0..... STA68..... INX...
F. CPX#13 ; SCHON ALLE ZEILEN...P. B
NELOOP1A.K.Z. LDA66.T... SEC..... SBC#26
..... STA66..... LDA#<(1144) ; POINTER
RESTAURIEREN..... STA67.0... LDA#>(1144)
.;. . STA68.D.*. RTS.A.4.CURS CMP#145 ;
CURSOR UP.U.>. BNEGOON ; NEIN...H. LDA$A
7...R. SEC ; UNNOETIG...\. SBC#40 ;
EINE ZEILE RAUF.D.F. STA$A7.P.P. LDA$A8
...Z. SBC#0..... STA$A8..... JMPEXIT ; F
ERTIG.....GOON CMP#17 ; CURSOR DOWN.0...
BNEGOON2 ; NEIN.Q... LDA$A7 ; EINE ZEI
LE RUNTER.Z... CLC..... ADC#40 ; STATT
CLC/ADC #40 GEHT AUCH ADC #39...J. STA$A
7...T. LDA$A8..... ADC#0 ; HIGHBYTE.I.
.. STA$A8.V... JMPEXIT.....GOON2 CMP#157
; CURSOR LEFT..... BEQBACK ; JA, EINEN
SCHRITT ZURUECK.5... CMP#20 ; DELETE.S.
.. BNEGOON3; WIRKT WIE LEFT.C.$.BACK LDA
$A7..... SEC ; UNNOETIG (CARRY IMMER
GESETZT VON CMP #20)...8. SBC#1 ; EIN
E SPALTE ZURUECK.L.B. STA$A7.X.L. LDA$A8
...V. SBC#0...`. STA$A8...J. JMPEXIT...T
.GOON3 LDA$A7.Z.~. CLC ; STATT CLC/A
DC #1 GEHT AUCH KUERZER ADC #0 (CARRY IS
T GESETZT).Y... ADC#1 ; EINE SPALTE VO
R..... STA$A7..... LDA$A8..... ADC#0....
. STA$A8.....EXIT JMPINVERS...D. NOP
; TIMING - FUELLBYTE...N.INVERS LDY#0 ;
ZEICHEN UNTER CURSOR INVERTIEREN.3.X. L
DA($A7),Y ; ZEICHEN HOLEN.Q... EOR#128
; BIT 7 ROTIEREN..... STA($A7),Y ; JE
TZT WEISS ES AUCH DER C64..... RTS ;
TSCHUESS.....SETNAME CLC; CURSORPOSITIO
N.S... LDX#1 ; ZEILE 1..... LDY#1
; SPALTE 1..... JSR$FFF0 ; SETZEN.
*.(. LDA#0 ; '@' AN POS. 1064.`.2.
STA1064 ; FUNKTIONIERT NICHT AUF ALTE
N 64'ERN..7. STA157 ; TRICK ! (NH).
..<. LDX#0...F.LOOPN JSR$FFCF ; INPUT...
P. CMP#13 ; CR.F.Z. BEQEND...D. STAN
AME,X ; SPEICHERN...N. INX...X. JMPLOOP
N.....END TXA ; LAENGE."... LDX#<(NAM
E).3... LDY#>(NAME).O. . JMP$FFBD ; AN
KERNAL.~...LOAD LDA#1 ; DISKPARAMETER -
ABSOLUT LADEN..... LDX#8 ; FLOPPY.
..H. LDY#0 ; MODIFIKATION VON NH.K.
R. JSR$FFBA..... JSRSETNAME ; NAME HOLEN
.. .. LDA#0 ; LOAD-FLAG." .. LDX#0
; ADRESSE LOW.N .. LDY#$70 ; UND
HIGH (ZUR SICHERHEIT).Y .. JSR$FFD5 ;
LOAD-ROUTINE (SEK.ADR 0).. .. BCCOK
; LADEFEHLER.. .. LDA#2 ; JA.M ..
STA$D020 ; RAHMENFARBE ROT.V .. RTS..
".OK JSR$E544 ; SCNCLR..!,. JSRLINE
; WIE OBEN..!6. JSRRAMSCR.#!@. RTS.2!J.
SAVE LDA#1.=!T. LDX#8.F!^. TAY.T!H. JSR$
FFBA.D!R. JSRSETNAME.O!|. LDA#0.|!.. LDX
#$70..!.. STA$FB..!.. STX$FC..!.. LDA#$F
B..!.. LDX#<(35328) ; ENDADR.N!.. LDY#>(
35328)..!B. JSR$FFD8 ; SAVE..!L. JSR$E5
44.."V. JSRLINE ; SIEHE OBEN..".. JSRR
AMSCR ; RAM --> SCHIRM.7".. RTS.F"..LINE
LDY#0.X"..LOOPB LDA#121.N".. STA1104,Y
; OBEN.{".. LDA#120..".. STA1664,Y ; UNT
EN.."&. INY.."0. CPY#40..":. BNELOOPB.N"
D. RTS ; FERTICH.."N.CLRSCR LDY#0
; AUSSCHNITT..#X. LDA#32 ; SPACE..#
B.LOOPC STA1144,Y.(#L. STA1274,Y.7#V. ST
A1404,Y.F#.. STA1534,Y.O#.. INY.\#.. CPY
#130.J#.. BNELOOPC..#.. JSRSCRRAM ; AUC
H IM RAM LOESCHEN..#.. RTS..#..COLGET LD
X#0..#F.RLA STX$D020.O#P. TXA; X MERKEN.
X#Z. PHA..#.. JSR$FFE4..#.. TAY; TASTE N
ACH Y..$.. PLA.!$.. TAX; FARBE RUECKHOLE
N.7$.. TYA; TASTE --> A.L$.. CMP#13 ; RE
TURN.]$ . BNECOLLOPP2.R$*. RTS; FARBE IN
X..$4.COLLOPP2 CMP#43; '+'..$>. BNEC3..
$H. INX..$R. JMPRLA..$\.C3 CMP#45 ; '-'.
.$F. BNERLA ; ILLEGALE TASTE..$P. DEX..$
Z. JMPRLA..%..RAMCOL LDY#0..%.. TXA; FAR
BWERT.(%..NSS STA55416,Y.8%.. STA55546,Y
.R%.. STA55676,Y ; FARBRAM.B%.. STA55806
,Y.K%.. INY.X%J. CPY#130..%T. BCCNSS..%.
. RTS; FINI..%..; SIE HABEN'S GESCHAFFT
!...
> CLICK IMAGE PREVIEW FOR FULL MODAL