SMON+SRC
FILE INFORMATION
FILENAME(S): SMON+SRC
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 5 disk(s)
FILE HASH
e03a23f73cc369762ede82f7e851b2ddd84e0a32cc10fff70a62e5b7d2aee8b6
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | SMON+SRC | PRG | Treasure Chest - ToGuMi | 14 | 0 | DOWNLOAD FILE |
| SONDERHEFT ASS | SMON+SRC | PRG | C64er | 14 | 0 | DOWNLOAD FILE |
| EINSTEIGER PAKET | SMON+SRC | PRG | C64er | 14 | 3 | DOWNLOAD FILE |
| 15835 SEITE A | SMON+SRC | PRG | C64er | 11 | 9 | DOWNLOAD FILE |
| SONDERHEFT ASS | SMON+SRC | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 9E 39 AC 34 30 39 36 00 19 08 |....d..9.4096...|
00000010: 6E 00 2E 4F 50 54 20 4F 4F 00 1F 08 82 00 3B 00 |n..OPT OO.....;.|
00000020: 34 08 8C 00 3B 20 21 53 4D 91 AB 45 52 57 45 49 |4...; !SM..ERWEI|
00000030: 54 45 8A 47 00 52 08 96 00 3B 20 45 52 57 45 49 |TE.G.R...; ERWEI|
00000040: 54 45 52 54 20 53 4D 91 20 55 4D 20 46 4F 4C 47 |TERT SM. UM FOLG|
00000050: 80 45 00 72 08 A0 00 3B 20 42 45 46 45 48 4C 45 |.E.r...; BEFEHLE|
00000060: 20 20 20 AB 20 48 20 41 44 52 31 20 28 41 44 52 | . H ADR1 (ADR|
00000070: 32 29 00 92 08 AA 00 3B 20 20 20 20 20 20 20 20 |2).....; |
00000080: 20 20 20 AB 20 5A 20 41 44 52 31 20 28 41 44 52 | . Z ADR1 (ADR|
00000090: 32 29 00 B2 08 B4 00 3B 20 20 20 20 20 20 20 20 |2).....; |
000000A0: 20 20 20 AB 20 4E 20 41 44 52 31 20 28 41 44 52 | . N ADR1 (ADR|
000000B0: 32 29 00 D2 08 BE 00 3B 20 20 20 20 20 20 20 20 |2).....; |
000000C0: 20 20 20 AB 20 55 20 41 44 52 31 20 28 41 44 52 | . U ADR1 (ADR|
000000D0: 32 29 00 F1 08 C8 00 3B 20 20 20 20 20 20 20 20 |2).....; |
000000E0: 20 20 20 AB 20 45 20 41 44 52 31 20 20 41 44 52 | . E ADR1 ADR|
000000F0: 32 00 0A 09 D2 00 3B 20 20 20 20 20 20 20 20 20 |2.....; |
00000100: 20 20 AB 20 59 20 42 59 54 45 00 23 09 DC 00 3B | . Y BYTE.#...;|
00000110: 20 20 20 20 20 20 20 20 20 20 20 AB 20 51 20 41 | . Q A|
00000120: 44 52 31 00 37 09 E6 00 3B 20 20 20 20 20 20 20 |DR1.7...; |
00000130: 20 20 20 20 AB 20 4A 00 3D 09 F0 00 3B 00 61 09 | . J.=...;.a.|
00000140: FA 00 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
00000150: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000160: AB 00 6B 09 04 01 3B 20 27 48 27 00 71 09 0E 01 |..k...; 'H'.q...|
00000170: 3B 00 95 09 18 01 3B 20 20 20 20 20 42 49 4C 44 |;.....; BILD|
00000180: 45 54 20 4A 45 57 45 49 4C 53 20 44 52 45 49 20 |ET JEWEILS DREI |
00000190: 42 59 54 45 53 00 B8 09 22 01 3B 20 20 20 20 20 |BYTES...".; |
000001A0: 49 4E 20 42 49 4E 41 45 52 44 41 52 53 54 45 4C |IN BINAERDARSTEL|
000001B0: 4C 55 4E 47 20 41 42 2E 00 D6 09 2C 01 3B 20 20 |LUNG AB....,.; |
000001C0: 20 20 20 28 46 55 45 52 20 53 50 52 49 54 45 AB | (FUER SPRITE.|
000001D0: 44 41 54 45 4E 29 00 FA 09 36 01 3B AB AB AB AB |DATEN)...6.;....|
000001E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000001F0: AB AB AB AB AB AB AB AB AB AB 00 0E 0A 40 01 3B |.............@.;|
00000200: 20 27 5A 27 20 28 5A 45 49 43 48 45 4E 29 00 14 | 'Z' (ZEICHEN)..|
00000210: 0A 4A 01 3B 00 36 0A 54 01 3B 20 20 20 20 20 42 |.J.;.6.T.; B|
00000220: 49 4C 44 45 54 20 4A 45 57 45 49 4C 53 20 45 49 |ILDET JEWEILS EI|
00000230: 4E 20 42 59 54 45 00 59 0A 5E 01 3B 20 20 20 20 |N BYTE.Y.^.; |
00000240: 20 49 4E 20 42 49 4E 41 45 52 44 41 52 53 54 45 | IN BINAERDARSTE|
00000250: 4C 4C 55 4E 47 20 41 42 2E 00 7A 0A 68 01 3B 20 |LLUNG AB..z.h.; |
00000260: 20 20 20 20 28 46 55 45 52 20 43 48 41 52 41 43 | (FUER CHARAC|
00000270: 54 45 52 AB 44 41 54 45 4E 29 00 9E 0A 72 01 3B |TER.DATEN)...r.;|
00000280: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000290: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 B0 |................|
000002A0: 0A 7C 01 3B 20 27 4E 27 20 28 4E B0 4D 41 4C 29 |.|.; 'N' (N.MAL)|
000002B0: 00 B6 0A 86 01 3B 00 DA 0A 90 01 3B 20 20 20 20 |.....;.....; |
000002C0: 20 42 49 4C 44 45 54 20 33 32 20 42 59 54 45 53 | BILDET 32 BYTES|
000002D0: 20 41 4C 53 20 42 49 4C 44 AB 00 FC 0A 9A 01 3B | ALS BILD......;|
000002E0: 20 20 20 20 20 53 43 48 49 52 4D AB 43 4F 44 45 | SCHIRM.CODE|
000002F0: 20 41 42 2E 28 AA 20 41 44 52 21 29 00 20 0B A4 | AB.(. ADR!). ..|
00000300: 01 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00000310: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000320: 00 37 0B AE 01 3B 20 27 55 27 20 28 55 45 42 45 |.7...; 'U' (UEBE|
00000330: 52 53 49 43 48 54 29 00 3D 0B B8 01 3B 00 61 0B |RSICHT).=...;.a.|
00000340: C2 01 3B 20 20 20 20 20 42 49 4C 44 45 54 20 34 |..; BILDET 4|
00000350: 30 20 42 59 54 45 53 20 41 4C 53 20 42 49 4C 44 |0 BYTES ALS BILD|
00000360: AB 00 82 0B CC 01 3B 20 20 20 20 20 53 43 48 49 |......; SCHI|
00000370: 52 4D AB 43 4F 44 45 20 41 42 2E 20 20 20 20 20 |RM.CODE AB. |
00000380: 20 20 00 A6 0B D6 01 3B AB AB AB AB AB AB AB AB | .....;........|
00000390: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000003A0: AB AB AB AB AB AB 00 B8 0B E0 01 3B 20 27 45 27 |...........; 'E'|
000003B0: 20 28 45 52 41 53 45 29 00 BE 0B EA 01 3B 00 DF | (ERASE).....;..|
000003C0: 0B F4 01 3B 20 20 20 20 20 46 55 45 4C 4C 54 20 |...; FUELLT |
000003D0: 42 45 52 45 49 43 48 20 56 91 20 41 44 52 31 00 |BEREICH V. ADR1.|
000003E0: FB 0B FE 01 3B 20 20 20 20 20 42 49 53 20 41 44 |....; BIS AD|
000003F0: 52 32 20 4D 49 54 20 24 30 30 2E 00 1F 0C 08 02 |R2 MIT $00......|
00000400: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000410: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
00000420: 29 0C 12 02 3B 20 27 59 27 00 2F 0C 1C 02 3B 00 |)...; 'Y'./...;.|
00000430: 4A 0C 26 02 3B 20 20 20 20 20 53 43 48 52 45 49 |J.&.; SCHREI|
00000440: 42 54 20 53 4D 91 20 41 55 46 00 60 0C 30 02 3B |BT SM. AUF.`.0.;|
00000450: 20 20 20 20 20 24 42 59 54 45 30 30 20 55 4D 2E | $BYTE00 UM.|
00000460: 00 84 0C 3A 02 3B AB AB AB AB AB AB AB AB AB AB |...:.;..........|
00000470: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000480: AB AB AB AB 00 8E 0C 44 02 3B 20 27 51 27 00 94 |.......D.; 'Q'..|
00000490: 0C 4E 02 3B 00 B2 0C 58 02 3B 20 20 20 20 20 4B |.N.;...X.; K|
000004A0: 4F 50 49 45 52 54 20 5A 45 49 43 48 45 4E 53 41 |OPIERT ZEICHENSA|
000004B0: 54 5A 00 C7 0C 62 02 3B 20 20 20 20 20 4E 41 43 |TZ...b.; NAC|
000004C0: 48 20 41 44 52 31 2E 00 EB 0C 6C 02 3B AB AB AB |H ADR1....l.;...|
000004D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000004E0: AB AB AB AB AB AB AB AB AB AB AB 00 F5 0C 76 02 |..............v.|
000004F0: 3B 20 27 4A 27 00 FB 0C 80 02 3B 00 19 0D 8A 02 |; 'J'.....;.....|
00000500: 3B 20 20 20 20 20 48 4F 4C 54 20 88 5A 54 45 4E |; HOLT .ZTEN|
00000510: 20 41 55 53 47 41 42 45 AB 00 3A 0D 94 02 3B 20 | AUSGABE..:...; |
00000520: 20 20 20 20 42 45 46 45 48 4C 20 28 48 2C 5A 2C | BEFEHL (H,Z,|
00000530: 4E 2C 55 2C 4B 2C 4D 2C 44 29 00 4D 0D 9E 02 3B |N,U,K,M,D).M...;|
00000540: 20 20 20 20 20 5A 55 52 55 45 43 4B 2E 00 71 0D | ZURUECK..q.|
00000550: A8 02 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
00000560: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000570: AB 00 77 0D B2 02 3B 00 9C 0D BC 02 53 20 B2 20 |..w...;.....S . |
00000580: 24 43 30 30 30 20 20 20 20 20 20 3B 42 41 53 49 |$C000 ;BASI|
00000590: 53 41 44 52 45 53 53 45 20 53 4D 91 00 A2 0D C6 |SADRESSE SM.....|
000005A0: 02 3B 00 C4 0D D0 02 48 43 48 20 20 20 20 20 20 |.;.....HCH |
000005B0: B2 22 28 22 20 20 3B 48 49 44 44 45 4E 20 43 4F |."(" ;HIDDEN CO|
000005C0: 4D 4D AF 53 00 D6 0D DA 02 48 43 5A 20 20 20 20 |MM.S.....HCZ |
000005D0: 20 20 B2 22 29 22 00 E8 0D E4 02 48 43 4E 20 20 | .")".....HCN |
000005E0: 20 20 20 20 B2 22 21 22 00 EE 0D EE 02 3B 00 00 | ."!".....;..|
000005F0: 0E F8 02 46 4C 41 47 20 20 20 20 20 B2 24 41 41 |...FLAG .$AA|
00000600: 00 12 0E 02 03 54 45 4D 50 20 20 20 20 20 B2 24 |.....TEMP .$|
00000610: 41 42 00 24 0E 0C 03 50 43 4C 20 20 20 20 20 20 |AB.$...PCL |
00000620: B2 24 46 42 00 36 0E 16 03 50 43 48 20 20 20 20 |.$FB.6...PCH |
00000630: 20 20 B2 24 46 43 00 48 0E 20 03 48 49 4E 49 42 | .$FC.H. .HINIB|
00000640: 42 4C 45 20 B2 24 46 46 00 4E 0E 2A 03 3B 00 61 |BLE .$FF.N.*.;.a|
00000650: 0E 34 03 9D 53 20 20 20 20 20 B2 53 AA 24 30 32 |.4..S .S.$02|
00000660: 42 00 74 0E 3E 03 A1 31 32 41 44 52 20 B2 53 AA |B.t.>..12ADR .S.|
00000670: 24 32 36 34 00 87 0E 48 03 A1 32 41 44 52 20 20 |$264...H..2ADR |
00000680: B2 53 AA 24 32 37 41 00 9A 0E 52 03 A1 41 44 52 |.S.$27A...R..ADR|
00000690: 31 20 20 B2 53 AA 24 32 37 45 00 AD 0E 5C 03 A1 |1 .S.$27E...\..|
000006A0: 42 59 54 20 20 20 B2 53 AA 24 32 38 44 00 C2 0E |BYT .S.$28D...|
000006B0: 66 03 53 4B 49 50 53 50 41 43 20 B2 53 AA 24 32 |f.SKIPSPAC .S.$2|
000006C0: 42 38 00 D5 0E 70 03 A1 52 45 54 20 20 20 B2 53 |B8...p..RET .S|
000006D0: AA 24 32 43 32 00 E8 0E 7A 03 A1 43 48 52 45 52 |.$2C2...z..CHRER|
000006E0: 20 B2 53 AA 24 32 43 41 00 FC 0E 84 03 45 52 52 | .S.$2CA.....ERR|
000006F0: B0 20 20 20 20 B2 53 AA 24 32 44 31 00 11 0F 8E |. .S.$2D1....|
00000700: 03 45 58 45 43 55 54 45 20 20 B2 53 AA 24 32 44 |.EXECUTE .S.$2D|
00000710: 36 00 23 0F 98 03 9D 53 A4 52 45 20 B2 53 AA 24 |6.#....S.RE .S.$|
00000720: 32 46 46 00 38 0F A2 03 43 48 41 52 52 45 54 20 |2FF.8...CHARRET |
00000730: 20 B2 53 AA 24 33 34 30 00 48 0F AC 03 8E 20 20 | .S.$340.H.... |
00000740: 20 B2 53 AA 24 33 35 31 00 5D 0F B6 03 48 45 58 | .S.$351.]...HEX|
00000750: 4F 55 54 20 20 20 B2 53 AA 24 33 32 33 00 72 0F |OUT .S.$323.r.|
00000760: C0 03 50 43 49 4E 43 20 20 20 20 B2 53 AA 24 33 |..PCINC .S.$3|
00000770: 36 37 00 85 0F CA 03 C6 49 49 34 20 20 20 B2 53 |67......II4 .S|
00000780: AA 24 34 34 46 00 98 0F D4 03 C6 49 49 35 20 20 |.$44F......II5 |
00000790: 20 B2 53 AA 24 34 35 36 00 AA 0F DE 03 9A 49 4E | .S.$456......IN|
000007A0: 20 20 20 B2 53 AA 24 34 35 44 00 BF 0F E8 03 4F | .S.$45D.....O|
000007B0: 43 43 55 50 59 20 20 20 B2 53 AA 24 39 43 37 00 |CCUPY .S.$9C7.|
000007C0: D2 0F F2 03 3B AB AB AB AB AB AB AB AB AB AB AB |....;...........|
000007D0: AB AB 00 DE 0F F3 03 AC B2 20 53 AA 33 38 00 09 |......... S.38..|
000007E0: 10 F4 03 2E 42 59 54 45 20 30 30 20 20 20 20 20 |....BYTE 00 |
000007F0: 20 3B 41 4C 54 45 4E 20 5A AB 42 45 46 45 48 4C | ;ALTEN Z.BEFEHL|
00000800: 20 4C 4F 45 53 43 48 45 4E 00 0F 10 F5 03 3B 00 | LOESCHEN.....;.|
00000810: 1C 10 FC 03 AC B2 20 53 AA 24 36 31 00 22 10 06 |...... S.$61."..|
00000820: 04 3B 00 36 10 10 04 48 9D 54 41 42 20 2E C6 20 |.;.6...H.TAB .. |
00000830: 22 27 3A 3B 2C 22 00 4C 10 1A 04 2E 42 59 54 45 |"':;,".L....BYTE|
00000840: 20 48 43 48 2C 48 43 5A 2C 48 43 4E 00 52 10 24 | HCH,HCZ,HCN.R.$|
00000850: 04 3B 00 5F 10 2E 04 AC B2 53 AA 24 32 45 33 00 |.;._.....S.$2E3.|
00000860: 65 10 38 04 3B 00 83 10 42 04 4C 44 58 20 23 36 |e.8.;...B.LDX #6|
00000870: 20 20 20 20 20 20 20 20 3B 5A 45 49 C3 41 4E 46 | ;ZEI.ANF|
00000880: 41 4E 47 00 96 10 4C 04 46 31 20 43 4D 50 20 48 |ANG...L.F1 CMP H|
00000890: 9D 54 41 42 2C 58 00 A4 10 56 04 42 45 51 20 45 |.TAB,X...V.BEQ E|
000008A0: 58 45 43 31 00 AC 10 60 04 44 45 58 00 B7 10 6A |XEC1...`.DEX...j|
000008B0: 04 42 50 4C 20 46 31 00 C4 10 74 04 4C 44 41 20 |.BPL F1...t.LDA |
000008C0: 23 22 2E 22 00 D2 10 7E 04 4A 53 52 20 24 46 46 |#"."...~.JSR $FF|
000008D0: 44 32 00 D8 10 88 04 3B 00 EE 10 92 04 45 58 45 |D2.....;.....EXE|
000008E0: 43 31 20 4A 53 52 20 A1 43 48 52 45 52 52 00 FB |C1 JSR .CHRERR..|
000008F0: 10 9C 04 43 4D 50 20 23 22 2E 22 00 09 11 A6 04 |...CMP #".".....|
00000900: 42 45 51 20 45 58 45 43 31 00 19 11 B0 04 4A 4D |BEQ EXEC1.....JM|
00000910: 50 20 4C 49 4E 53 A4 52 45 00 2D 11 BA 04 57 45 |P LINS.RE.-...WE|
00000920: 49 54 45 52 20 4A 4D 50 20 4D B0 45 9D 00 33 11 |ITER JMP M.E..3.|
00000930: C4 04 3B 00 56 11 CE 04 AC B2 53 AA 24 33 30 44 |..;.V.....S.$30D|
00000940: 20 20 20 20 20 20 3B 57 45 49 54 45 52 45 20 42 | ;WEITERE B|
00000950: 45 46 45 48 4C 45 00 5C 11 D8 04 3B 00 6B 11 E2 |EFEHLE.\...;.k..|
00000960: 04 42 45 51 20 57 45 49 54 45 52 00 71 11 EC 04 |.BEQ WEITER.q...|
00000970: 3B 00 92 11 F6 04 AC B2 53 AA 24 45 30 39 20 20 |;.......S.$E09 |
00000980: 20 20 20 20 3B 4E 45 55 45 20 52 4F 55 54 49 4E | ;NEUE ROUTIN|
00000990: 45 4E 00 98 11 00 05 3B 00 AB 11 0A 05 3B AB AB |EN.....;.....;..|
000009A0: AB AB AB AB AB AB AB AB AB AB AB 00 B1 11 14 05 |................|
000009B0: 3B 00 CE 11 1E 05 5A 9D 20 4C 44 41 20 23 24 38 |;.....Z. LDA #$8|
000009C0: 30 20 3B 46 4C 41 47 20 53 45 54 5A 45 4E 00 DC |0 ;FLAG SETZEN..|
000009D0: 11 28 05 2E 42 59 54 45 20 24 32 43 00 E2 11 32 |.(..BYTE $2C...2|
000009E0: 05 3B 00 F0 11 3C 05 48 9D 20 4C 44 41 20 23 30 |.;...<.H. LDA #0|
000009F0: 00 FD 11 46 05 53 54 41 20 54 45 4D 50 00 1E 12 |...F.STA TEMP...|
00000A00: 50 05 4A 53 52 20 A1 31 32 41 44 52 20 20 3B 53 |P.JSR .12ADR ;S|
00000A10: 54 41 52 54 AD 80 AB 41 44 52 45 53 53 45 00 24 |TART...ADRESSE.$|
00000A20: 12 5A 05 3B 00 34 12 64 05 4C 31 20 42 49 54 20 |.Z.;.4.d.L1 BIT |
00000A30: 54 45 4D 50 00 3F 12 6E 05 42 50 4C 20 57 38 00 |TEMP.?.n.BPL W8.|
00000A40: 5F 12 78 05 4C 44 58 20 23 48 43 5A 20 20 20 20 |_.x.LDX #HCZ |
00000A50: 20 20 3B 48 49 44 44 45 4E 20 43 4F 4D 4D AF 00 | ;HIDDEN COMM..|
00000A60: 7B 12 82 05 2E 42 59 54 45 20 24 32 43 20 20 20 |{....BYTE $2C |
00000A70: 20 20 3B 41 55 53 47 45 42 45 4E 00 8B 12 8C 05 | ;AUSGEBEN.....|
00000A80: 57 38 20 4C 44 58 20 23 48 43 48 00 9B 12 96 05 |W8 LDX #HCH.....|
00000A90: 4A 53 52 20 43 48 41 52 52 45 54 00 BA 12 A0 05 |JSR CHARRET.....|
00000AA0: 4A 53 52 20 48 45 58 4F 55 54 20 20 20 20 3B 50 |JSR HEXOUT ;P|
00000AB0: 43 20 41 55 53 47 45 42 45 4E 00 D6 12 AA 05 4C |C AUSGEBEN.....L|
00000AC0: 44 59 20 23 36 20 20 20 20 20 20 20 20 3B 53 50 |DY #6 ;SP|
00000AD0: 41 4C 54 45 20 36 00 DC 12 B4 05 3B 00 EA 12 BE |ALTE 6.....;....|
00000AE0: 05 4C 32 20 4C 44 58 20 23 30 00 FA 12 C8 05 4C |.L2 LDX #0.....L|
00000AF0: 44 41 20 28 50 43 4C 2C 58 29 00 00 13 D2 05 3B |DA (PCL,X).....;|
00000B00: 00 0B 13 DC 05 4C 33 20 41 53 4C 00 2A 13 E6 05 |.....L3 ASL.*...|
00000B10: 50 48 41 20 20 20 20 20 20 20 20 20 20 20 3B 42 |PHA ;B|
00000B20: 59 54 45 20 4D 45 52 4B 45 4E 00 4B 13 F0 05 42 |YTE MERKEN.K...B|
00000B30: 43 53 20 42 49 54 53 45 54 20 20 20 20 3B 42 49 |CS BITSET ;BI|
00000B40: 54 B2 31 2C 20 44 41 4E 4E 20 AC 00 6C 13 FA 05 |T.1, DANN ..l...|
00000B50: 4C 44 41 20 23 22 2E 22 20 20 20 20 20 20 3B 42 |LDA #"." ;B|
00000B60: 49 54 B2 30 2C 20 44 41 4E 4E 20 2E 00 88 13 04 |IT.0, DANN .....|
00000B70: 06 2E 42 59 54 45 20 24 32 43 20 20 20 20 20 3B |..BYTE $2C ;|
00000B80: 41 55 53 47 45 42 45 4E 00 9C 13 0E 06 42 49 54 |AUSGEBEN.....BIT|
00000B90: 53 45 54 20 4C 44 41 20 23 22 2A 22 00 AC 13 18 |SET LDA #"*"....|
00000BA0: 06 53 54 41 20 28 24 44 31 29 2C 59 00 B9 13 22 |.STA ($D1),Y..."|
00000BB0: 06 4C 44 41 20 24 32 38 36 00 C9 13 2C 06 53 54 |.LDA $286...,.ST|
00000BC0: 41 20 28 24 46 33 29 2C 59 00 CF 13 36 06 3B 00 |A ($F3),Y...6.;.|
00000BD0: F2 13 40 06 50 4C 41 20 20 20 20 20 20 20 20 20 |..@.PLA |
00000BE0: 20 20 3B 42 59 54 45 20 5A 55 52 55 45 43 4B 48 | ;BYTE ZURUECKH|
00000BF0: 4F C3 00 12 14 4A 06 49 4E 59 20 20 20 20 20 20 |O....J.INY |
00000C00: 20 20 20 20 20 3B 43 55 52 53 B0 20 57 45 49 54 | ;CURS. WEIT|
00000C10: 45 52 00 34 14 54 06 49 4E 58 20 20 20 20 20 20 |ER.4.T.INX |
00000C20: 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 53 20 | ;NAECHSTES |
00000C30: 42 59 54 45 00 4D 14 5E 06 43 50 58 20 23 38 20 |BYTE.M.^.CPX #8 |
00000C40: 20 20 20 20 20 20 20 3B 38 20 42 49 54 00 74 14 | ;8 BIT.t.|
00000C50: 68 06 42 4E 45 20 4C 33 20 20 20 20 20 20 20 20 |h.BNE L3 |
00000C60: 3B 42 59 54 45 20 57 45 49 54 45 52 53 43 48 49 |;BYTE WEITERSCHI|
00000C70: 45 42 45 4E 00 7A 14 72 06 3B 00 9E 14 7C 06 4A |EBEN.z.r.;...|.J|
00000C80: 53 52 20 50 43 49 4E 43 20 20 20 20 20 3B 5A 41 |SR PCINC ;ZA|
00000C90: 45 48 4C 45 52 20 45 52 48 4F 45 48 45 4E 00 C3 |EHLER ERHOEHEN..|
00000CA0: 14 86 06 42 49 54 20 54 45 4D 50 20 20 20 20 20 |...BIT TEMP |
00000CB0: 20 3B 46 4C 41 47 20 46 55 45 52 20 31 AC 38 20 | ;FLAG FUER 1.8 |
00000CC0: 42 49 54 00 E3 14 90 06 42 4D 49 20 57 39 20 20 |BIT.....BMI W9 |
00000CD0: 20 20 20 20 20 20 3B 5A 45 49 4C 45 20 46 45 52 | ;ZEILE FER|
00000CE0: 54 49 47 00 FE 14 9A 06 43 50 59 20 23 33 30 20 |TIG.....CPY #30 |
00000CF0: 20 20 20 20 20 20 3B 33 20 42 59 54 45 53 00 09 | ;3 BYTES..|
00000D00: 15 A4 06 42 43 43 20 4C 32 00 28 15 AE 06 57 39 |...BCC L2.(...W9|
00000D10: 20 4A 53 52 20 9A 49 4E 20 3B 54 41 53 54 45 4E | JSR .IN ;TASTEN|
00000D20: AB 41 42 46 52 41 47 45 00 33 15 B8 06 42 43 43 |.ABFRAGE.3...BCC|
00000D30: 20 4C 31 00 3B 15 C2 06 52 54 53 00 41 15 CC 06 | L1.;...RTS.A...|
00000D40: 3B 00 54 15 D6 06 3B AB AB AB AB AB AB AB AB AB |;.T...;.........|
00000D50: AB AB AB AB 00 5A 15 E0 06 3B 00 6B 15 EA 06 5A |.....Z...;.k...Z|
00000D60: 9D 48 20 20 20 4C 44 59 20 23 38 00 85 15 F4 06 |.H LDY #8.....|
00000D70: 2E 42 59 54 45 20 24 32 43 20 20 20 20 20 3B 31 |.BYTE $2C ;1|
00000D80: 20 42 59 54 45 00 8B 15 FE 06 3B 00 A3 15 08 07 | BYTE.....;.....|
00000D90: 48 9D 48 20 4C 44 59 20 23 32 34 20 3B 33 20 42 |H.H LDY #24 ;3 B|
00000DA0: 59 54 45 00 B1 15 12 07 4A 53 52 20 A1 41 44 52 |YTE.....JSR .ADR|
00000DB0: 31 00 D6 15 1C 07 4A 53 52 20 53 4B 49 50 53 50 |1.....JSR SKIPSP|
00000DC0: 41 43 45 20 3B 53 50 41 43 45 53 20 55 45 42 45 |ACE ;SPACES UEBE|
00000DD0: 52 4C 45 53 45 4E 00 E4 15 26 07 41 31 20 4C 44 |RLESEN...&.A1 LD|
00000DE0: 58 20 23 38 00 EF 15 30 07 4C 44 41 20 23 30 00 |X #8...0.LDA #0.|
00000DF0: FC 15 3A 07 53 54 41 20 46 4C 41 47 00 02 16 44 |..:.STA FLAG...D|
00000E00: 07 3B 00 15 16 4E 07 41 32 20 4A 53 52 20 A1 43 |.;...N.A2 JSR .C|
00000E10: 48 52 45 52 52 00 33 16 58 07 43 4D 50 20 23 22 |HRERR.3.X.CMP #"|
00000E20: 2E 22 20 20 20 20 20 20 3B 2E 20 B2 B1 20 42 49 |." ;. .. BI|
00000E30: 54 B2 30 00 51 16 62 07 42 45 51 20 42 49 54 30 |T.0.Q.b.BEQ BIT0|
00000E40: 20 20 20 20 20 20 3B AC 20 B2 B1 20 42 49 54 B2 | ;. .. BIT.|
00000E50: 31 00 5E 16 6C 07 43 4D 50 20 23 22 2A 22 00 6B |1.^.l.CMP #"*".k|
00000E60: 16 76 07 42 45 51 20 42 49 54 31 00 8C 16 80 07 |.v.BEQ BIT1.....|
00000E70: 45 52 52 31 20 4A 4D 50 20 45 52 52 B0 20 3B AF |ERR1 JMP ERR. ;.|
00000E80: 45 52 45 53 20 5A 45 49 43 48 45 4E 00 92 16 8A |ERES ZEICHEN....|
00000E90: 07 3B 00 9F 16 94 07 42 49 54 30 20 43 4C 43 00 |.;.....BIT0 CLC.|
00000EA0: B1 16 9E 07 42 49 54 31 20 52 4F 4C 20 46 4C 41 |....BIT1 ROL FLA|
00000EB0: 47 00 B9 16 A8 07 44 45 59 00 D1 16 B2 07 44 45 |G.....DEY.....DE|
00000EC0: 58 20 20 20 20 20 20 20 20 20 20 20 3B 42 59 54 |X ;BYT|
00000ED0: 45 00 F6 16 BC 07 42 4E 45 20 41 32 20 20 20 20 |E.....BNE A2 |
00000EE0: 20 20 20 20 3B 4E 4F 43 48 20 4E 49 43 48 54 20 | ;NOCH NICHT |
00000EF0: 46 45 52 54 49 47 00 FC 16 C6 07 3B 00 1B 17 D0 |FERTIG.....;....|
00000F00: 07 4C 44 41 20 46 4C 41 47 20 20 20 20 20 20 3B |.LDA FLAG ;|
00000F10: 49 4E 20 53 50 45 49 43 48 45 52 00 38 17 DA 07 |IN SPEICHER.8...|
00000F20: 53 54 41 20 28 50 43 4C 2C 58 29 20 20 20 3B 53 |STA (PCL,X) ;S|
00000F30: 43 48 52 45 49 42 45 4E 00 48 17 E4 07 43 4D 50 |CHREIBEN.H...CMP|
00000F40: 20 28 50 43 4C 2C 58 29 00 55 17 EE 07 42 4E 45 | (PCL,X).U...BNE|
00000F50: 20 45 52 52 31 00 63 17 F8 07 4A 53 52 20 50 43 | ERR1.c...JSR PC|
00000F60: 49 4E 43 00 69 17 02 08 3B 00 74 17 0C 08 43 50 |INC.i...;.t...CP|
00000F70: 59 20 23 30 00 99 17 16 08 42 4E 45 20 41 31 20 |Y #0.....BNE A1 |
00000F80: 20 20 20 20 20 20 20 3B 4E 4F 43 48 20 4E 49 43 | ;NOCH NIC|
00000F90: 48 54 20 46 45 52 54 49 47 00 A1 17 20 08 52 54 |HT FERTIG... .RT|
00000FA0: 53 00 A7 17 2A 08 3B 00 BA 17 34 08 3B AB AB AB |S...*.;...4.;...|
00000FB0: AB AB AB AB AB AB AB AB AB AB 00 C0 17 3E 08 3B |.............>.;|
00000FC0: 00 D0 17 48 08 4E 9D 20 4C 44 41 20 23 24 38 30 |...H.N. LDA #$80|
00000FD0: 00 DE 17 52 08 2E 42 59 54 45 20 24 32 43 00 EC |...R..BYTE $2C..|
00000FE0: 17 5C 08 55 9D 20 4C 44 41 20 23 30 00 F9 17 66 |.\.U. LDA #0...f|
00000FF0: 08 53 54 41 20 54 45 4D 50 00 08 18 70 08 4A 53 |.STA TEMP...p.JS|
00001000: 52 20 A1 31 32 41 44 52 00 0E 18 7A 08 3B 00 1B |R .12ADR...z.;..|
00001010: 18 84 08 4C 35 20 4A 53 52 20 8E 00 28 18 8E 08 |...L5 JSR ..(...|
00001020: 42 49 54 20 54 45 4D 50 00 32 18 98 08 42 50 4C |BIT TEMP.2...BPL|
00001030: 20 55 00 52 18 A2 08 4C 44 41 20 23 48 43 4E 20 | U.R...LDA #HCN |
00001040: 20 20 20 20 20 3B 48 49 44 44 45 4E 20 43 4F 4D | ;HIDDEN COM|
00001050: 4D AF 00 60 18 AC 08 4A 53 52 20 24 46 46 44 32 |M..`...JSR $FFD2|
00001060: 00 6F 18 B6 08 4A 53 52 20 48 45 58 4F 55 54 00 |.o...JSR HEXOUT.|
00001070: 8B 18 C0 08 4C 44 59 20 23 38 20 20 20 20 20 20 |....LDY #8 |
00001080: 20 20 3B 53 50 41 4C 54 45 20 38 00 99 18 CA 08 | ;SPALTE 8.....|
00001090: 2E 42 59 54 45 20 24 32 43 00 9F 18 D4 08 3B 00 |.BYTE $2C.....;.|
000010A0: BB 18 DE 08 55 20 4C 44 59 20 23 30 20 20 20 20 |....U LDY #0 |
000010B0: 20 20 3B 53 50 41 4C 54 45 20 30 00 C6 18 E8 08 | ;SPALTE 0.....|
000010C0: 4C 44 58 20 23 30 00 CC 18 F2 08 3B 00 DF 18 FC |LDX #0.....;....|
000010D0: 08 4C 34 20 4C 44 41 20 28 50 43 4C 2C 58 29 00 |.L4 LDA (PCL,X).|
000010E0: 04 19 06 09 4A 53 52 20 C6 49 49 34 20 20 20 20 |....JSR .II4 |
000010F0: 3B 41 4C 53 20 42 49 4C 44 53 43 48 49 52 4D AB |;ALS BILDSCHIRM.|
00001100: 43 4F 44 45 00 20 19 10 09 42 4E 45 20 4C 34 20 |CODE. ...BNE L4 |
00001110: 20 20 20 20 20 20 20 3B 41 55 53 47 45 42 45 4E | ;AUSGEBEN|
00001120: 00 26 19 1A 09 3B 00 32 19 24 09 4A 53 52 20 9A |.&...;.2.$.JSR .|
00001130: 49 4E 00 54 19 2E 09 42 43 43 20 4C 35 20 20 20 |IN.T...BCC L5 |
00001140: 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 20 5A | ;NAECHSTE Z|
00001150: 45 49 4C 45 00 5C 19 38 09 52 54 53 00 6F 19 42 |EILE.\.8.RTS.o.B|
00001160: 09 3B AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |.;..............|
00001170: 81 19 4C 09 4E 9D 48 20 4A 53 52 20 A1 41 44 52 |..L.N.H JSR .ADR|
00001180: 31 00 8C 19 56 09 4C 44 58 20 23 30 00 A8 19 60 |1...V.LDX #0...`|
00001190: 09 4C 44 59 20 23 38 20 20 20 20 20 20 20 20 3B |.LDY #8 ;|
000011A0: 53 50 41 4C 54 45 20 38 00 BB 19 6A 09 43 31 20 |SPALTE 8...j.C1 |
000011B0: 4C 44 41 20 28 24 44 31 29 2C 59 00 DA 19 74 09 |LDA ($D1),Y...t.|
000011C0: 53 54 41 20 28 50 43 4C 2C 58 29 20 20 20 3B 49 |STA (PCL,X) ;I|
000011D0: 4E 20 53 50 45 49 43 48 45 52 00 F7 19 7E 09 43 |N SPEICHER...~.C|
000011E0: 4D 50 20 28 50 43 4C 2C 58 29 20 20 20 3B 53 43 |MP (PCL,X) ;SC|
000011F0: 48 52 45 49 42 45 4E 00 04 1A 88 09 42 4E 45 20 |HREIBEN.....BNE |
00001200: 45 52 52 31 00 21 1A 92 09 4A 53 52 20 C6 49 49 |ERR1.!...JSR .II|
00001210: 35 20 20 20 20 3B 50 43 20 45 52 48 4F 45 48 45 |5 ;PC ERHOEHE|
00001220: 4E 00 2C 1A 9C 09 42 43 43 20 43 31 00 4C 1A A6 |N.,...BCC C1.L..|
00001230: 09 52 54 53 20 20 20 20 20 20 20 20 20 20 20 3B |.RTS ;|
00001240: 5A 45 49 4C 45 20 46 45 52 54 49 47 00 52 1A B0 |ZEILE FERTIG.R..|
00001250: 09 3B 00 65 1A BA 09 3B AB AB AB AB AB AB AB AB |.;.e...;........|
00001260: AB AB AB AB AB 00 6B 1A C4 09 3B 00 7B 1A CE 09 |......k...;.{...|
00001270: 59 9D 20 4A 53 52 20 A1 42 59 54 00 8C 1A D8 09 |Y. JSR .BYT.....|
00001280: AF 20 23 25 31 31 31 31 30 30 30 30 00 AE 1A E2 |. #%11110000....|
00001290: 09 53 54 41 20 48 49 4E 49 42 42 4C 45 20 20 3B |.STA HINIBBLE ;|
000012A0: 4E 45 55 45 52 20 34 4B AB 42 4C 4F 43 4B 00 D1 |NEUER 4K.BLOCK..|
000012B0: 1A EC 09 4A 53 52 20 53 45 54 50 54 52 20 20 20 |...JSR SETPTR |
000012C0: 20 3B 41 44 52 45 53 53 45 4E 20 53 45 54 5A 45 | ;ADRESSEN SETZE|
000012D0: 4E 00 ED 1A F6 09 4A 53 52 20 24 37 39 44 36 20 |N.....JSR $79D6 |
000012E0: 20 20 20 20 3B 57 AB 42 45 46 45 48 4C 00 F3 1A | ;W.BEFEHL...|
000012F0: 00 0A 3B 00 02 1B 0A 0A 4A 53 52 20 53 45 54 50 |..;.....JSR SETP|
00001300: 54 52 00 22 1B 14 0A 4C 44 41 20 23 24 31 34 20 |TR."...LDA #$14 |
00001310: 20 20 20 20 20 3B 42 45 52 45 49 43 48 20 4F 48 | ;BEREICH OH|
00001320: 4E 45 00 3C 1B 1E 0A 53 54 41 20 24 46 42 20 20 |NE.<...STA $FB |
00001330: 20 20 20 20 20 3B 54 41 42 45 4C C3 00 47 1B 28 | ;TABEL..G.(|
00001340: 0A 4C 44 41 20 23 32 00 57 1B 32 0A B0 41 20 48 |.LDA #2.W.2..A H|
00001350: 49 4E 49 42 42 4C 45 00 63 1B 3C 0A 53 54 41 20 |INIBBLE.c.<.STA |
00001360: 24 46 43 00 71 1B 46 0A 4C 44 41 20 23 B3 A2 9D |$FC.q.F.LDA #...|
00001370: 53 00 7D 1B 50 0A 53 54 41 20 24 46 44 00 93 1B |S.}.P.STA $FD...|
00001380: 5A 0A 4C 44 41 20 23 28 A2 9D 53 B1 38 20 26 20 |Z.LDA #(..S.8 & |
00001390: 24 46 29 00 A3 1B 64 0A B0 41 20 48 49 4E 49 42 |$F)...d..A HINIB|
000013A0: 42 4C 45 00 AF 1B 6E 0A 53 54 41 20 24 46 45 00 |BLE...n.STA $FE.|
000013B0: CB 1B 78 0A 4A 53 52 20 24 37 41 36 38 20 20 20 |..x.JSR $7A68 |
000013C0: 20 20 3B 56 AB 42 45 46 45 48 4C 00 D1 1B 82 0A | ;V.BEFEHL.....|
000013D0: 3B 00 F1 1B 8C 0A 4C 44 59 20 23 30 20 20 20 20 |;.....LDY #0 |
000013E0: 20 20 20 20 3B 4C 41 44 45 AB 42 45 46 45 48 4C | ;LADE.BEFEHL|
000013F0: 45 00 0D 1C 96 0A 4C 44 58 20 23 31 33 20 20 20 |E.....LDX #13 |
00001400: 20 20 20 20 3B 41 4E 50 41 53 53 45 4E 00 21 1C | ;ANPASSEN.!.|
00001410: A0 0A 44 33 20 4C 44 41 20 43 48 41 4E 47 45 2C |..D3 LDA CHANGE,|
00001420: 58 00 31 1C AA 0A B0 41 20 48 49 4E 49 42 42 4C |X.1....A HINIBBL|
00001430: 45 00 57 1C B4 0A 53 54 41 20 50 43 48 20 20 20 |E.W...STA PCH |
00001440: 20 20 20 20 3B 41 44 52 45 53 53 45 20 41 4C 53 | ;ADRESSE ALS|
00001450: 20 5A 45 49 47 45 52 00 5F 1C BE 0A 44 45 58 00 | ZEIGER._...DEX.|
00001460: 70 1C C8 0A 4C 44 41 20 43 48 41 4E 47 45 2C 58 |p...LDA CHANGE,X|
00001470: 00 7C 1C D2 0A 53 54 41 20 50 43 4C 00 8C 1C DC |.|...STA PCL....|
00001480: 0A 4C 44 41 20 28 50 43 4C 29 2C 59 00 9D 1C E6 |.LDA (PCL),Y....|
00001490: 0A AF 20 23 25 30 30 30 30 31 31 31 31 00 AD 1C |.. #%00001111...|
000014A0: F0 0A B0 41 20 48 49 4E 49 42 42 4C 45 00 BD 1C |...A HINIBBLE...|
000014B0: FA 0A 53 54 41 20 28 50 43 4C 29 2C 59 00 C5 1C |..STA (PCL),Y...|
000014C0: 04 0B 44 45 58 00 D0 1C 0E 0B 42 50 4C 20 44 33 |..DEX.....BPL D3|
000014D0: 00 D6 1C 18 0B 3B 00 F2 1C 22 0B 4C 44 41 20 23 |.....;...".LDA #|
000014E0: B3 9D 53 20 20 20 20 3B 5A 45 49 47 45 52 20 41 |..S ;ZEIGER A|
000014F0: 55 46 00 15 1D 2C 0B 53 54 41 20 50 43 4C 20 20 |UF...,.STA PCL |
00001500: 20 20 20 20 20 3B 42 45 46 45 48 4C 53 41 44 52 | ;BEFEHLSADR|
00001510: 45 53 53 45 4E 00 2A 1D 36 0B 4C 44 41 20 23 28 |ESSEN.*.6.LDA #(|
00001520: 9D 53 B1 38 20 26 20 24 46 29 00 3A 1D 40 0B B0 |.S.8 & $F).:.@..|
00001530: 41 20 48 49 4E 49 42 42 4C 45 00 46 1D 4A 0B 53 |A HINIBBLE.F.J.S|
00001540: 54 41 20 50 43 48 00 4C 1D 54 0B 3B 00 58 1D 5E |TA PCH.L.T.;.X.^|
00001550: 0B 4C 44 59 20 23 35 33 00 6B 1D 68 0B 44 31 20 |.LDY #53.k.h.D1 |
00001560: 4C 44 41 20 28 50 43 4C 29 2C 59 00 7C 1D 72 0B |LDA (PCL),Y.|.r.|
00001570: AF 20 23 25 30 30 30 30 31 31 31 31 00 96 1D 7C |. #%00001111...||
00001580: 0B B0 41 20 48 49 4E 49 42 42 4C 45 20 20 3B 48 |..A HINIBBLE ;H|
00001590: 49 42 59 54 45 53 00 B4 1D 86 0B 53 54 41 20 28 |IBYTES.....STA (|
000015A0: 50 43 4C 29 2C 59 20 20 20 3B 41 4E 47 4C 45 49 |PCL),Y ;ANGLEI|
000015B0: 43 48 45 4E 00 BF 1D 90 0B 57 31 20 44 45 59 00 |CHEN.....W1 DEY.|
000015C0: C7 1D 9A 0B 44 45 59 00 D2 1D A4 0B 42 50 4C 20 |....DEY.....BPL |
000015D0: 44 31 00 D8 1D AE 0B 3B 00 F9 1D B8 0B 4C 44 41 |D1.....;.....LDA|
000015E0: 20 23 B3 A2 41 44 52 20 20 3B 5A 45 49 47 45 52 | #..ADR ;ZEIGER|
000015F0: 20 41 55 46 20 4E 45 55 45 00 1C 1E C2 0B 53 54 | AUF NEUE.....ST|
00001600: 41 20 50 43 4C 20 20 20 20 20 20 20 3B 42 45 46 |A PCL ;BEF|
00001610: 45 48 4C 53 41 44 52 45 53 53 45 4E 00 33 1E CC |EHLSADRESSEN.3..|
00001620: 0B 4C 44 41 20 23 28 A2 41 44 52 B1 38 20 26 20 |.LDA #(.ADR.8 & |
00001630: 24 46 29 00 43 1E D6 0B B0 41 20 48 49 4E 49 42 |$F).C....A HINIB|
00001640: 42 4C 45 00 4F 1E E0 0B 53 54 41 20 50 43 48 00 |BLE.O...STA PCH.|
00001650: 55 1E EA 0B 3B 00 6A 1E F4 0B 4C 44 59 20 23 54 |U...;.j...LDY #T|
00001660: 41 42 80 AB A2 41 44 52 AB 31 00 7D 1E FE 0B 44 |AB...ADR.1.}...D|
00001670: 32 20 4C 44 41 20 28 50 43 4C 29 2C 59 00 8E 1E |2 LDA (PCL),Y...|
00001680: 08 0C AF 20 23 25 30 30 30 30 31 31 31 31 00 A8 |... #%00001111..|
00001690: 1E 12 0C B0 41 20 48 49 4E 49 42 42 4C 45 20 20 |....A HINIBBLE |
000016A0: 3B 48 49 42 59 54 45 53 00 C6 1E 1C 0C 53 54 41 |;HIBYTES.....STA|
000016B0: 20 28 50 43 4C 29 2C 59 20 20 20 3B 41 4E 47 4C | (PCL),Y ;ANGL|
000016C0: 45 49 43 48 45 4E 00 CE 1E 26 0C 44 45 59 00 D6 |EICHEN...&.DEY..|
000016D0: 1E 30 0C 44 45 59 00 E1 1E 3A 0C 42 50 4C 20 44 |.0.DEY...:.BPL D|
000016E0: 32 00 E9 1E 44 0C 52 54 53 00 EF 1E 4E 0C 3B 00 |2...D.RTS...N.;.|
000016F0: F5 1E 58 0C 3B 00 0D 1F 62 0C 53 45 54 50 54 52 |..X.;...b.SETPTR|
00001700: 20 4C 44 41 20 48 49 4E 49 42 42 4C 45 00 2F 1F | LDA HINIBBLE./.|
00001710: 6C 0C 53 54 41 20 24 41 39 20 20 20 20 20 20 20 |l.STA $A9 |
00001720: 3B 4E 45 55 45 52 20 53 54 41 52 54 20 48 49 00 |;NEUER START HI.|
00001730: 3B 1F 76 0C 4A 53 52 20 A1 48 49 00 47 1F 80 0C |;.v.JSR .HI.G...|
00001740: A1 48 49 20 50 4C 41 00 4F 1F 8A 0C 50 4C 41 00 |.HI PLA.O...PLA.|
00001750: 60 1F 94 0C AF 20 23 25 31 31 31 31 30 30 30 30 |`.... #%11110000|
00001760: 00 82 1F 9E 0C 53 54 41 20 24 41 35 20 20 20 20 |.....STA $A5 |
00001770: 20 20 20 3B 41 4C 54 45 52 20 53 54 41 52 54 20 | ;ALTER START |
00001780: 48 49 00 8A 1F A8 0C 43 4C 43 00 97 1F B2 0C 41 |HI.....CLC.....A|
00001790: 44 43 20 23 24 31 30 00 B6 1F BC 0C 53 54 41 20 |DC #$10.....STA |
000017A0: 24 41 37 20 20 20 20 20 20 20 3B 41 4C 54 45 53 |$A7 ;ALTES|
000017B0: 20 80 45 20 48 49 00 BC 1F C6 0C 3B 00 E1 1F D0 | .E HI.....;....|
000017C0: 0C 4C 44 41 20 23 30 20 20 20 20 20 20 20 20 3B |.LDA #0 ;|
000017D0: 4C 4F AB 42 59 54 45 53 20 4C 4F 45 53 43 48 45 |LO.BYTES LOESCHE|
000017E0: 4E 00 ED 1F DA 0C 53 54 41 20 24 41 34 00 F9 1F |N.....STA $A4...|
000017F0: E4 0C 53 54 41 20 24 41 36 00 05 20 EE 0C 53 54 |..STA $A6.. ..ST|
00001800: 41 20 24 41 38 00 0D 20 F8 0C 52 54 53 00 13 20 |A $A8.. ..RTS.. |
00001810: 02 0D 3B 00 22 20 0C 0D 3B AB AB AB AB AB AB AB |..;." ..;.......|
00001820: AB AB 00 28 20 16 0D 3B 00 39 20 20 0D 45 9D 20 |...( ..;.9 .E. |
00001830: 4A 53 52 20 A1 32 41 44 52 00 44 20 2A 0D 4C 44 |JSR .2ADR.D *.LD|
00001840: 41 20 23 30 00 53 20 34 0D 4A 4D 50 20 4F 43 43 |A #0.S 4.JMP OCC|
00001850: 55 50 59 00 59 20 3E 0D 3B 00 68 20 48 0D 3B AB |UPY.Y >.;.h H.;.|
00001860: AB AB AB AB AB AB AB AB 00 6E 20 52 0D 3B 00 7F |.........n R.;..|
00001870: 20 5C 0D 51 9D 20 4A 53 52 20 A1 41 44 52 31 00 | \.Q. JSR .ADR1.|
00001880: 8A 20 66 0D 4C 44 59 20 23 30 00 A8 20 70 0D 4C |. f.LDY #0.. p.L|
00001890: 44 41 20 23 24 44 30 20 20 20 20 20 20 3B 5A 45 |DA #$D0 ;ZE|
000018A0: 49 47 45 52 20 41 55 46 00 C6 20 7A 0D 53 54 59 |IGER AUF.. z.STY|
000018B0: 20 24 46 44 20 20 20 20 20 20 20 3B 5A 45 49 43 | $FD ;ZEIC|
000018C0: 48 45 4E 52 4F 4D 00 D2 20 84 0D 53 54 41 20 24 |HENROM.. ..STA $|
000018D0: 46 45 00 D8 20 8E 0D 3B 00 E0 20 98 0D 53 45 49 |FE.. ..;.. ..SEI|
000018E0: 00 00 21 A2 0D 4C 44 41 20 23 25 30 31 31 20 20 |..!..LDA #%011 |
000018F0: 20 20 20 3B 52 4F 4D 20 45 49 4E 42 C3 44 45 4E | ;ROM EINB.DEN|
00001900: 00 0A 21 AC 0D 53 54 41 20 31 00 2C 21 B6 0D 4C |..!..STA 1.,!..L|
00001910: 44 58 20 23 31 36 20 20 20 20 20 20 20 3B 34 4B |DX #16 ;4K|
00001920: 20 55 45 42 45 52 54 52 41 47 45 4E 00 3F 21 C0 | UEBERTRAGEN.?!.|
00001930: 0D 45 31 20 4C 44 41 20 28 24 46 44 29 2C 59 00 |.E1 LDA ($FD),Y.|
00001940: 4F 21 CA 0D 53 54 41 20 28 50 43 4C 29 2C 59 00 |O!..STA (PCL),Y.|
00001950: 57 21 D4 0D 49 4E 59 00 62 21 DE 0D 42 4E 45 20 |W!..INY.b!..BNE |
00001960: 45 31 00 6E 21 E8 0D 49 4E 43 20 50 43 48 00 7A |E1.n!..INC PCH.z|
00001970: 21 F2 0D 49 4E 43 20 24 46 45 00 82 21 FC 0D 44 |!..INC $FE..!..D|
00001980: 45 58 00 8D 21 06 0E 42 4E 45 20 45 31 00 B1 21 |EX..!..BNE E1..!|
00001990: 10 0E 4C 44 41 20 23 24 32 37 20 20 20 20 20 20 |..LDA #$27 |
000019A0: 3B 4E B0 4D 41 4C 45 49 4E 53 54 45 4C 4C 55 4E |;N.MALEINSTELLUN|
000019B0: 47 00 BB 21 1A 0E 53 54 41 20 31 00 C3 21 24 0E |G..!..STA 1..!$.|
000019C0: 43 4C 49 00 CB 21 2E 0E 52 54 53 00 D1 21 38 0E |CLI..!..RTS..!8.|
000019D0: 3B 00 E0 21 42 0E 3B AB AB AB AB AB AB AB AB AB |;..!B.;.........|
000019E0: 00 E6 21 4C 0E 3B 00 06 22 56 0E 4C 49 4E 53 A4 |..!L.;.."V.LINS.|
000019F0: 52 45 20 50 48 41 20 20 3B 42 45 46 45 48 4C 20 |RE PHA ;BEFEHL |
00001A00: 4D 45 52 4B 45 4E 00 13 22 60 0E 43 4D 50 20 23 |MERKEN.."`.CMP #|
00001A10: 22 4A 22 00 20 22 6A 0E 42 4E 45 20 53 A4 52 45 |"J". "j.BNE S.RE|
00001A20: 00 26 22 74 0E 3B 00 32 22 7E 0E 4C 44 59 20 23 |.&"t.;.2"~.LDY #|
00001A30: 33 39 00 45 22 88 0E 47 31 20 4C 44 41 20 24 30 |39.E"..G1 LDA $0|
00001A40: 32 30 30 2C 59 00 62 22 92 0E 53 54 41 20 28 24 |200,Y.b"..STA ($|
00001A50: 44 31 29 2C 59 20 20 20 3B 5A 45 49 4C 45 20 41 |D1),Y ;ZEILE A|
00001A60: 55 46 00 80 22 9C 0E 44 45 59 20 20 20 20 20 20 |UF.."..DEY |
00001A70: 20 20 20 20 20 3B 42 49 4C 44 53 43 48 49 52 4D | ;BILDSCHIRM|
00001A80: 00 9D 22 A6 0E 42 50 4C 20 47 31 20 20 20 20 20 |.."..BPL G1 |
00001A90: 20 20 20 3B 53 43 48 52 45 49 42 45 4E 00 A5 22 | ;SCHREIBEN.."|
00001AA0: B0 0E 50 4C 41 00 C5 22 BA 0E 44 45 43 20 24 44 |..PLA.."..DEC $D|
00001AB0: 36 20 20 20 20 20 20 20 3B 43 55 52 53 B0 20 31 |6 ;CURS. 1|
00001AC0: 20 48 4F 43 48 00 D5 22 C4 0E 4A 4D 50 20 45 58 | HOCH.."..JMP EX|
00001AD0: 45 43 55 54 45 00 DB 22 CE 0E 3B 00 EB 22 D8 0E |ECUTE.."..;.."..|
00001AE0: 53 A4 52 45 20 4C 44 59 20 23 36 00 FE 22 E2 0E |S.RE LDY #6.."..|
00001AF0: 47 33 20 43 4D 50 20 4F 55 54 9D 53 2C 59 00 09 |G3 CMP OUT.S,Y..|
00001B00: 23 EC 0E 42 4E 45 20 57 33 00 0F 23 F6 0E 3B 00 |#..BNE W3..#..;.|
00001B10: 1F 23 00 0F 4F 4B 31 20 4C 44 59 20 23 33 39 00 |.#..OK1 LDY #39.|
00001B20: 32 23 0A 0F 47 32 20 4C 44 41 20 28 24 44 31 29 |2#..G2 LDA ($D1)|
00001B30: 2C 59 00 53 23 14 0F 53 54 41 20 24 30 32 30 30 |,Y.S#..STA $0200|
00001B40: 2C 59 20 20 20 3B 5A 45 49 4C 45 20 4E 55 52 20 |,Y ;ZEILE NUR |
00001B50: 42 45 49 00 74 23 1E 0F 44 45 59 20 20 20 20 20 |BEI.t#..DEY |
00001B60: 20 20 20 20 20 20 3B 48 2C 5A 2C 4E 2C 55 2C 4B | ;H,Z,N,U,K|
00001B70: 2C 4D 2C 44 00 91 23 28 0F 42 50 4C 20 47 32 20 |,M,D..#(.BPL G2 |
00001B80: 20 20 20 20 20 20 20 3B 53 50 45 49 43 48 45 52 | ;SPEICHER|
00001B90: 4E 00 97 23 32 0F 3B 00 A2 23 3C 0F 57 33 20 44 |N..#2.;..#<.W3 D|
00001BA0: 45 59 00 AD 23 46 0F 42 50 4C 20 47 33 00 D0 23 |EY..#F.BPL G3..#|
00001BB0: 50 0F 53 54 80 20 50 4C 41 20 20 20 20 20 3B 42 |P.ST. PLA ;B|
00001BC0: 45 46 45 48 4C 20 5A 55 52 55 45 43 4B 48 4F C3 |EFEHL ZURUECKHO.|
00001BD0: 00 DE 23 5A 0F 4A 4D 50 20 9D 53 A4 52 45 00 E4 |..#Z.JMP .S.RE..|
00001BE0: 23 64 0F 3B 00 F3 23 6E 0F 3B AA AA AA AA AA AA |#d.;..#n.;......|
00001BF0: AA AA AA 00 F9 23 78 0F 3B 00 12 24 82 0F 4D B0 |.....#x.;..$..M.|
00001C00: 45 9D 20 4C 44 58 20 23 A2 41 44 52 AB A2 9D 53 |E. LDX #.ADR...S|
00001C10: AB 33 00 25 24 8C 0F 42 31 20 43 4D 50 20 A2 9D |.3.%$..B1 CMP ..|
00001C20: 53 AB 31 2C 58 00 33 24 96 0F 42 45 51 20 46 4F |S.1,X.3$..BEQ FO|
00001C30: 55 4E 44 00 3B 24 A0 0F 44 45 58 00 46 24 AA 0F |UND.;$..DEX.F$..|
00001C40: 42 4E 45 20 42 31 00 53 24 B4 0F 4A 4D 50 20 45 |BNE B1.S$..JMP E|
00001C50: 52 52 B0 00 59 24 BE 0F 3B 00 6E 24 C8 0F 46 4F |RR..Y$..;.n$..FO|
00001C60: 55 4E 44 20 4A 53 52 20 9D 45 58 45 43 32 00 7E |UND JSR .EXEC2.~|
00001C70: 24 D2 0F 4A 4D 50 20 45 58 45 43 55 54 45 00 84 |$..JMP EXECUTE..|
00001C80: 24 DC 0F 3B 00 93 24 E6 0F 9D 45 58 45 43 32 20 |$..;..$...EXEC2 |
00001C90: 54 58 41 00 9B 24 F0 0F 41 53 4C 00 A3 24 FA 0F |TXA..$..ASL..$..|
00001CA0: 54 41 58 00 B4 24 04 10 4C 44 41 20 A2 41 44 52 |TAX..$..LDA .ADR|
00001CB0: AB 31 2C 58 00 BC 24 0E 10 50 48 41 00 CD 24 18 |.1,X..$..PHA..$.|
00001CC0: 10 4C 44 41 20 A2 41 44 52 AB 32 2C 58 00 D5 24 |.LDA .ADR.2,X..$|
00001CD0: 22 10 50 48 41 00 DD 24 2C 10 52 54 53 00 E3 24 |".PHA..$,.RTS..$|
00001CE0: 36 10 3B 00 FD 24 40 10 A2 9D 53 20 2E 42 59 54 |6.;..$@...S .BYT|
00001CF0: 45 20 48 43 48 2C 48 43 5A 2C 48 43 4E 00 0A 25 |E HCH,HCZ,HCN..%|
00001D00: 4A 10 2E C6 20 22 45 59 51 22 00 21 25 54 10 4F |J... "EYQ".!%T.O|
00001D10: 55 54 9D 53 20 2E C6 20 22 48 5A 4E 55 44 4B 4D |UT.S .. "HZNUDKM|
00001D20: 22 00 27 25 5E 10 3B 00 3B 25 68 10 A2 41 44 52 |".'%^.;.;%h..ADR|
00001D30: 20 2E 57 B0 44 20 48 9D 48 AB 31 00 4A 25 72 10 | .W.D H.H.1.J%r.|
00001D40: 2E 57 B0 44 20 5A 9D 48 AB 31 00 59 25 7C 10 2E |.W.D Z.H.1.Y%|..|
00001D50: 57 B0 44 20 4E 9D 48 AB 31 00 76 25 86 10 2E 57 |W.D N.H.1.v%...W|
00001D60: B0 44 20 45 9D AB 31 20 20 20 20 20 20 20 20 20 |.D E..1 |
00001D70: 20 20 20 20 3B 45 00 93 25 90 10 2E 57 B0 44 20 | ;E..%...W.D |
00001D80: 59 9D AB 31 20 20 20 20 20 20 20 20 20 20 20 20 |Y..1 |
00001D90: 20 3B 59 00 B0 25 9A 10 2E 57 B0 44 20 51 9D AB | ;Y..%...W.D Q..|
00001DA0: 31 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 51 |1 ;Q|
00001DB0: 00 CD 25 A4 10 2E 57 B0 44 20 48 9D AB 31 20 20 |..%...W.D H..1 |
00001DC0: 20 20 20 20 20 20 20 20 20 20 20 3B 21 00 EA 25 | ;!..%|
00001DD0: AE 10 2E 57 B0 44 20 5A 9D AB 31 20 20 20 20 20 |...W.D Z..1 |
00001DE0: 20 20 20 20 20 20 20 20 3B 5A 00 07 26 B8 10 2E | ;Z..&...|
00001DF0: 57 B0 44 20 4E 9D AB 31 20 20 20 20 20 20 20 20 |W.D N..1 |
00001E00: 20 20 20 20 20 3B 4E 00 24 26 C2 10 2E 57 B0 44 | ;N.$&...W.D|
00001E10: 20 55 9D AB 31 20 20 20 20 20 20 20 20 20 20 20 | U..1 |
00001E20: 20 20 3B 55 00 31 26 CC 10 54 41 42 80 20 B2 20 | ;U.1&..TAB. . |
00001E30: AC 00 37 26 D6 10 3B 00 4F 26 E0 10 43 48 41 4E |..7&..;.O&..CHAN|
00001E40: 47 45 20 2E 57 B0 44 20 24 30 30 30 35 AA 31 00 |GE .W.D $0005.1.|
00001E50: 60 26 EA 10 2E 57 B0 44 20 24 30 33 38 36 AA 31 |`&...W.D $0386.1|
00001E60: 00 71 26 F4 10 2E 57 B0 44 20 24 30 43 32 43 AA |.q&...W.D $0C2C.|
00001E70: 31 00 82 26 FE 10 2E 57 B0 44 20 24 30 43 35 42 |1..&...W.D $0C5B|
00001E80: AA 31 00 93 26 08 11 2E 57 B0 44 20 24 30 43 46 |.1..&...W.D $0CF|
00001E90: 34 AA 31 00 A4 26 12 11 2E 57 B0 44 20 24 30 44 |4.1..&...W.D $0D|
00001EA0: 41 31 AA 31 00 B5 26 1C 11 2E 57 B0 44 20 24 30 |A1.1..&...W.D $0|
00001EB0: 45 30 33 AA 31 00 00 00 |E03.1... |
....D..9.4096...N..OPT OO.....;.4...; !S
M..ERWEITE.G.R...; ERWEITERT SM. UM FOLG
.E.R. .; BEFEHLE . H ADR1 (ADR2).....;
. Z ADR1 (ADR2).....;
. N ADR1 (ADR2).R...; . U A
DR1 (ADR2)...H.; . E ADR1 ADR
2...R.; . Y BYTE.#...;
. Q ADR1.7...; . J.=...;.A.
..;...............................K...;
'H'.Q...;.....; BILDET JEWEILS DREI
BYTES...".; IN BINAERDARSTELLUNG AB.
.V.,.; (FUER SPRITE.DATEN)...6.;....
.............................@.; 'Z' (ZE
ICHEN)...J.;.6.T.; BILDET JEWEILS EI
N BYTE.Y.^.; IN BINAERDARSTELLUNG AB
..Z.H.; (FUER CHARACTER.DATEN)...R.;
.................................|.; 'N'
(N.MAL).....;.Z...; BILDET 32 BYTES
ALS BILD......; SCHIRM.CODE AB.(. A
DR!). ...;..............................
.7...; 'U' (UEBERSICHT).=...;.A.B.;
BILDET 40 BYTES ALS BILD....L.; SCHI
RM.CODE AB. ...V.;................
...................; 'E' (ERASE).....;..
...; FUELLT BEREICH V. ADR1.....;
BIS ADR2 MIT $00......;...............
................)...; 'Y'./...;.J.&.;
SCHREIBT SM. AUF.`.0.; $BYTE00 UM.
...:.;.................................D
.; 'Q'...N.;...X.; KOPIERT ZEICHENSA
TZ.G.B.; NACH ADR1....L.;...........
......................V.; 'J'.....;.....
; HOLT .ZTEN AUSGABE..:...; BEFE
HL (H,Z,N,U,K,M,D).M...; ZURUECK..Q.
..;...............................W...;.
....S . $C000 ;BASISADRESSE SM....F
.;.D.P.HCH ."(" ;HIDDEN COMM.S.V.Z
.HCZ .")".....HCN ."!".....;..
...FLAG .$AA.....TEMP .$AB.$...P
CL .$FB.6...PCH .$FC.H. .HINIB
BLE .$FF.N.*.;.A.4..S .S.$02B.T.>..1
2ADR .S.$264...H..2ADR .S.$27A...R..ADR
1 .S.$27E...\..BYT .S.$28D.B.F.SKIPSP
AC .S.$2B8.U.P..RET .S.$2C2...Z..CHRER
.S.$2CA.....ERR. .S.$2D1.....EXECUTE
.S.$2D6.#....S.RE .S.$2FF.8...CHARRET
.S.$340.H.... .S.$351.]...HEXOUT .S
.$323.R...PCINC .S.$367...J.FII4 .S
.$44F...T.FII5 .S.$456......IN .S.$4
5D.....OCCUPY .S.$9C7.R...;...........
......... S.38......BYTE 00 ;ALTEN
Z.BEFEHL LOESCHEN.....;....... S.$61."..
.;.6...H.TAB .F "':;,".L....BYTE HCH,HCZ
,HCN.R.$.;._.....S.$2E3.E.8.;...B.LDX #6
;ZEICANFANG...L.F1 CMP H.TAB,X..
.V.BEQ EXEC1...`.DEX...J.BPL F1.D.T.LDA
#".".R.~.JSR $FFD2.X...;.....EXEC1 JSR .
CHRERR.....CMP #".".....BEQ EXEC1.....JM
P LINS.RE.-...WEITER JMP M.E..3.D.;.V.N.
..S.$30D ;WEITERE BEFEHLE.\.X.;.K..
.BEQ WEITER.Q...;.......S.$E09 ;NEU
E ROUTINEN.....;.....;..................
;.N...Z. LDA #$80 ;FLAG SETZEN...(..BYTE
$2C...2.;...<.H. LDA #0...F.STA TEMP...
P.JSR .12ADR ;START...ADRESSE.$.Z.;.4.D
.L1 BIT TEMP.?.N.BPL W8._.X.LDX #HCZ
;HIDDEN COMM..{....BYTE $2C ;AUSGE
BEN.....W8 LDX #HCH.....JSR CHARRET... .
JSR HEXOUT ;PC AUSGEBEN.V...LDY #6
;SPALTE 6.....;.....L2 LDX #0...H.L
DA (PCL,X)...R.;.....L3 ASL.*...PHA
;BYTE MERKEN.K...BCS BITSET ;BI
T.1, DANN ..L...LDA #"." ;BIT.0, DA
NN .......BYTE $2C ;AUSGEBEN.....BIT
SET LDA #"*".....STA ($D1),Y...".LDA $28
6.I.,.STA ($F3),Y.O.6.;...@.PLA
;BYTE ZURUECKHOC...J.INY ;CU
RS. WEITER.4.T.INX ;NAECHSTES
BYTE.M.^.CPX #8 ;8 BIT.T.H.BNE L3
;BYTE WEITERSCHIEBEN.Z.R.;...|.J
SR PCINC ;ZAEHLER ERHOEHEN.C...BIT T
EMP ;FLAG FUER 1.8 BIT.....BMI W9
;ZEILE FERTIG.....CPY #30 ;3
BYTES.....BCC L2.(...W9 JSR .IN ;TASTEN
.ABFRAGE.3...BCC L1.;.B.RTS.A.L.;.T.V.;.
.............Z...;.K...Z.H LDY #8.....
.BYTE $2C ;1 BYTE.....;.....H.H LDY
#24 ;3 BYTE.....JSR .ADR1.V...JSR SKIPSP
ACE ;SPACES UEBERLESEN...&.A1 LDX #8...0
.LDA #0...:.STA FLAG...D.;...N.A2 JSR .C
HRERR.3.X.CMP #"." ;. .. BIT.0.Q.B.
BEQ BIT0 ;. .. BIT.1.^.L.CMP #"*".K
.V.BEQ BIT1.....ERR1 JMP ERR. ;.ERES ZEI
CHEN.....;.....BIT0 CLC.....BIT1 ROL FLA
G.....DEY.Q...DEX ;BYTE.....BN
E A2 ;NOCH NICHT FERTIG...F.;...P
.LDA FLAG ;IN SPEICHER.8.Z.STA (PCL
,X) ;SCHREIBEN.H...CMP (PCL,X).U...BNE
ERR1.C...JSR PCINC.I...;.T...CPY #0....
.BNE A1 ;NOCH NICHT FERTIG... .RT
S...*.;...4.;................>.;.P.H.N.
LDA #$80...R..BYTE $2C...\.U. LDA #0...F
.STA TEMP...P.JSR .12ADR...Z.;.....L5 JS
R ..(...BIT TEMP.2...BPL U.R...LDA #HCN
;HIDDEN COMM..`...JSR $FFD2.O...JSR
HEXOUT.....LDY #8 ;SPALTE 8...J.
.BYTE $2C...T.;.....U LDY #0 ;SPALT
E 0.F...LDX #0.L...;.....L4 LDA (PCL,X).
....JSR FII4 ;ALS BILDSCHIRM.CODE. ..
.BNE L4 ;AUSGEBEN.&...;.2.$.JSR .
IN.T...BCC L5 ;NAECHSTE ZEILE.\.8
.RTS.O.B.;................L.N.H JSR .ADR
1...V.LDX #0...`.LDY #8 ;SPALTE 8
...J.C1 LDA ($D1),Y.Z.T.STA (PCL,X) ;I
N SPEICHER...~.CMP (PCL,X) ;SCHREIBEN.
....BNE ERR1.!...JSR FII5 ;PC ERHOEHE
N.,...BCC C1.L...RTS ;ZEILE FE
RTIG.R...;.E...;..............K.D.;.{.N.
Y. JSR .BYT...X.. #%11110000.....STA HIN
IBBLE ;NEUER 4K.BLOCK.Q...JSR SETPTR
;ADRESSEN SETZEN.....JSR $79D6 ;W.B
EFEHL.....;.....JSR SETPTR."...LDA #$14
;BEREICH OHNE.<...STA $FB ;TA
BELC.G.(.LDA #2.W.2..A HINIBBLE.C.<.STA
$FC.Q.F.LDA #...S.}.P.STA $FD...Z.LDA #(
..S.8 & $F)...D..A HINIBBLE...N.STA $FE.
K.X.JSR $7A68 ;V.BEFEHL.Q...;.....LD
Y #0 ;LADE.BEFEHLE.....LDX #13
;ANPASSEN.!. .D3 LDA CHANGE,X.1....A
HINIBBLE.W...STA PCH ;ADRESSE ALS
ZEIGER._...DEX.P.H.LDA CHANGE,X.|.R.STA
PCL.....LDA (PCL),Y...... #%00001111...
...A HINIBBLE.....STA (PCL),Y.E...DEX.P.
..BPL D3.V...;...".LDA #..S ;ZEIGER A
UF...,.STA PCL ;BEFEHLSADRESSEN.*.
6.LDA #(.S.8 & $F).:.@..A HINIBBLE.F.J.S
TA PCH.L.T.;.X.^.LDY #53.K.H.D1 LDA (PCL
),Y.|.R.. #%00001111...|..A HINIBBLE ;H
IBYTES.....STA (PCL),Y ;ANGLEICHEN....
.W1 DEY.G...DEY.R...BPL D1.X...;.....LDA
#..ADR ;ZEIGER AUF NEUE...B.STA PCL
;BEFEHLSADRESSEN.3.L.LDA #(.ADR.8 &
$F).C.V..A HINIBBLE.O...STA PCH.U...;.J.
..LDY #TAB...ADR.1.}...D2 LDA (PCL),Y...
... #%00001111......A HINIBBLE ;HIBYTES
.F...STA (PCL),Y ;ANGLEICHEN.N.&.DEY.V
.0.DEY...:.BPL D2...D.RTS...N.;...X.;...
B.SETPTR LDA HINIBBLE./.L.STA $A9
;NEUER START HI.;.V.JSR .HI.G....HI PLA.
O...PLA.`.... #%11110000.....STA $A5
;ALTER START HI.....CLC.....ADC #$10.
....STA $A7 ;ALTES .E HI...F.;...P
.LDA #0 ;LO.BYTES LOESCHEN...Z.ST
A $A4.....STA $A6.. ..STA $A8.. ..RTS..
..;." ..;..........( ..;.9 .E. JSR .2AD
R.D *.LDA #0.S 4.JMP OCCUPY.Y >.;.H H.;.
.........N R.;. \.Q. JSR .ADR1.. F.LDY
#0.. P.LDA #$D0 ;ZEIGER AUF.F Z.STY
$FD ;ZEICHENROM.R ..STA $FE.X ..;
.. ..SEI..!..LDA #%011 ;ROM EINBCDEN
..!..STA 1.,!..LDX #16 ;4K UEBERTR
AGEN.?!..E1 LDA ($FD),Y.O!J.STA (PCL),Y.
W!T.INY.B!..BNE E1.N!..INC PCH.Z!..INC $
FE..!..DEX..!..BNE E1..!..LDA #$27
;N.MALEINSTELLUNG..!..STA 1.C!$.CLI.K!..
RTS.Q!8.;..!B.;...........!L.;.."V.LINS.
RE PHA ;BEFEHL MERKEN.."`.CMP #"J". "J.
BNE S.RE.&"T.;.2"~.LDY #39.E"..G1 LDA $0
200,Y.B"..STA ($D1),Y ;ZEILE AUF.."..D
EY ;BILDSCHIRM.."..BPL G1
;SCHREIBEN.."..PLA.E"..DEC $D6
;CURS. 1 HOCH.U"D.JMP EXECUTE.."N.;.."X.
S.RE LDY #6.."..G3 CMP OUT.S,Y..#..BNE W
3..#..;..#..OK1 LDY #39.2#..G2 LDA ($D1)
,Y.S#..STA $0200,Y ;ZEILE NUR BEI.T#..
DEY ;H,Z,N,U,K,M,D..#(.BPL G2
;SPEICHERN..#2.;..#<.W3 DEY..#F.B
PL G3.P#P.ST. PLA ;BEFEHL ZURUECKHOC
..#Z.JMP .S.RE..#D.;..#N.;...........#X.
;..$..M.E. LDX #.ADR...S.3.%$..B1 CMP ..
S.1,X.3$..BEQ FOUND.;$ .DEX.F$..BNE B1.S
$..JMP ERR..Y$..;.N$H.FOUND JSR .EXEC2.~
$R.JMP EXECUTE..$..;..$...EXEC2 TXA..$..
ASL..$..TAX..$..LDA .ADR.1,X..$..PHA.M$.
.LDA .ADR.2,X.U$".PHA..$,.RTS..$6.;..$@.
..S .BYTE HCH,HCZ,HCN..%J..F "EYQ".!%T.O
UT.S .F "HZNUDKM".'%^.;.;%H..ADR .W.D H.
H.1.J%R..W.D Z.H.1.Y%|..W.D N.H.1.V%...W
.D E..1 ;E..%...W.D Y..1
;Y..%...W.D Q..1 ;Q
.M%...W.D H..1 ;!..%...W.D Z
..1 ;Z..&...W.D N..1
;N.$&B..W.D U..1 ;U.1&L
.TAB. . ..7&V.;.O&..CHANGE .W.D $0005.1.
`&...W.D $0386.1.Q&...W.D $0C2C.1..&...W
.D $0C5B.1..&...W.D $0CF4.1..&...W.D $0D
A1.1..&...W.D $0E03.1...
> CLICK IMAGE PREVIEW FOR FULL MODAL