SPLIT-SCREEN.SRC
FILE INFORMATION
FILENAME(S): SPLIT-SCREEN.SRC
FILE TYPE(S): PRG
FILE SIZE: 28.2K
FIRST SEEN: 2025-11-02 16:39:49
APPEARS ON: 2 disk(s)
FILE HASH
1fb8cf23bdfb783af00cb920e3cd2f554a7df1c6f9eb307fda0a83b5019c4d21
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15827 SEITE C | SPLIT-SCREEN.SRC | PRG | Treasure Chest - Plattfuss | 17 | 0 | DOWNLOAD FILE |
| 15827 SEITE C | SPLIT-SCREEN.SRC | PRG | C64er, Treasure Chest - ralf | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 64 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(.d.;*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 6E 00 3B 2A 2A |********.O.n.;**|
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.|
00000050: 76 08 78 00 3B 2A 2A 2A 20 20 20 20 20 20 20 20 |v.x.;*** |
00000060: 20 20 CB 55 52 53 20 20 20 20 20 20 20 20 20 20 | .URS |
00000070: 20 20 20 2A 2A 2A 00 9D 08 82 00 3B 2A 2A 2A 20 | ***.....;*** |
00000080: DA 41 55 42 45 52 45 49 45 4E 20 4D 49 54 20 C7 |.AUBEREIEN MIT .|
00000090: 52 41 46 49 4B 20 55 4E 44 20 2A 2A 2A 00 C4 08 |RAFIK UND ***...|
000000A0: 8C 00 3B 2A 2A 2A 20 20 20 20 20 20 20 20 20 C1 |..;*** .|
000000B0: 53 53 45 4D 42 4C 45 52 20 20 20 20 20 20 20 20 |SSEMBLER |
000000C0: 20 2A 2A 2A 00 EB 08 96 00 3B 2A 2A 2A 20 20 20 | ***.....;*** |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 2A 2A 2A 00 12 09 A0 00 | ***.....|
000000F0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 00 39 09 AA 00 3B 2A 2A 2A 20 20 20 20 20 |**.9...;*** |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 2A 2A 2A 00 60 09 B4 00 3B 2A | ***.`...;*|
00000140: 2A 2A 20 C2 41 53 49 43 2D C5 52 57 45 49 54 45 |** .ASIC-.RWEITE|
00000150: 52 55 4E 47 20 20 20 20 20 20 20 20 20 2A 2A 2A |RUNG ***|
00000160: 00 87 09 BE 00 3B 2A 2A 2A 20 D3 50 4C 49 54 2D |.....;*** .PLIT-|
00000170: D3 43 52 45 45 4E 20 20 20 20 20 20 20 20 20 20 |.CREEN |
00000180: 20 20 20 20 2A 2A 2A 00 AE 09 C8 00 3B 2A 2A 2A | ***.....;***|
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 D5 | ***..|
000001B0: 09 D2 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...;************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 00 FC 09 DC 00 3B 2A 2A 2A 20 20 |*****.....;*** |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 23 0A E6 | ***.#..|
00000200: 00 3B 2A 2A 2A 20 28 C3 29 20 31 39 38 38 20 42 |.;*** (.) 1988 B|
00000210: 59 20 D4 48 4F 4D 41 53 20 CC 49 50 50 20 20 20 |Y .HOMAS .IPP |
00000220: 2A 2A 2A 00 4A 0A F0 00 3B 2A 2A 2A 20 38 30 30 |***.J...;*** 800|
00000230: 30 20 CD 55 45 4E 43 48 45 4E 20 38 32 20 20 20 |0 .UENCHEN 82 |
00000240: 20 20 20 20 20 20 20 2A 2A 2A 00 71 0A FA 00 3B | ***.q...;|
00000250: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00000270: 2A 00 98 0A 04 01 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.....;*********|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 0A 0E 01 3B 00 A9 |********.....;..|
000002A0: 0A 18 01 AA 24 43 30 30 30 00 B4 0A 22 01 B7 24 |....$C000..."..$|
000002B0: 43 30 30 30 00 BA 0A 2C 01 3B 00 E1 0A 36 01 3B |C000...,.;...6.;|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002E0: 2A 00 08 0B 40 01 3B 2A 2A 2A 20 20 C2 41 53 49 |*...@.;*** .ASI|
000002F0: 43 2D C5 52 57 45 49 54 45 52 55 4E 47 20 20 20 |C-.RWEITERUNG |
00000300: 20 20 20 20 20 2A 2A 2A 00 2F 0B 4A 01 3B 2A 2A | ***./.J.;**|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000330: 35 0B 54 01 3B 00 4B 0B 5E 01 3B 2A 2A 2A 20 20 |5.T.;.K.^.;*** |
00000340: CC 41 42 45 4C 53 20 20 2A 2A 2A 00 51 0B 68 01 |.ABELS ***.Q.h.|
00000350: 3B 00 73 0B 72 01 A3 43 48 52 47 45 54 3D 24 30 |;.s.r..CHRGET=$0|
00000360: 30 37 33 3B 20 43 48 52 47 45 54 2D D2 4F 55 54 |073; CHRGET-.OUT|
00000370: 49 4E 45 00 95 0B 7C 01 A3 43 48 52 47 4F 54 3D |INE...|..CHRGOT=|
00000380: 24 30 30 37 39 3B 20 43 48 52 47 4F 54 2D D2 4F |$0079; CHRGOT-.O|
00000390: 55 54 49 4E 45 00 B6 0B 86 01 A3 54 58 54 50 54 |UTINE......TXTPT|
000003A0: 52 3D 24 30 30 37 41 3B 20 43 48 52 47 45 54 2D |R=$007A; CHRGET-|
000003B0: DA 45 49 47 45 52 00 BC 0B 90 01 3B 00 E8 0B 9A |.EIGER.....;....|
000003C0: 01 A3 49 47 4F 4E 45 3D 24 30 33 30 38 3B 20 D6 |..IGONE=$0308; .|
000003D0: 45 4B 54 4F 52 20 5A 55 4D 20 D2 4F 55 54 49 4E |EKTOR ZUM .OUTIN|
000003E0: 45 4E 41 55 46 52 55 46 00 11 0C A4 01 A3 47 4F |ENAUFRUF......GO|
000003F0: 4E 45 31 3D 24 41 37 45 34 3B 20 41 4C 54 45 52 |NE1=$A7E4; ALTER|
00000400: 20 C9 4E 48 41 4C 54 20 56 4F 4E 20 C9 47 4F 4E | .NHALT VON .GON|
00000410: 45 00 41 0C AE 01 A3 49 4E 54 45 4E 44 3D 24 41 |E.A....INTEND=$A|
00000420: 37 45 37 3B 20 C5 4E 44 45 20 44 45 52 20 C9 4E |7E7; .NDE DER .N|
00000430: 54 45 52 50 52 45 54 45 52 53 43 48 4C 45 49 46 |TERPRETERSCHLEIF|
00000440: 45 00 47 0C B8 01 3B 00 6E 0C C2 01 3B 2A 2A 2A |E.G...;.n...;***|
00000450: 20 20 C5 52 57 45 49 54 45 52 55 4E 47 20 45 49 | .RWEITERUNG EI|
00000460: 4E 53 43 48 41 4C 54 45 4E 20 20 2A 2A 2A 00 74 |NSCHALTEN ***.t|
00000470: 0C CC 01 3B 00 A5 0C D6 01 20 CA 23 24 46 46 3B |...;..... .#$FF;|
00000480: 20 D3 50 45 49 43 48 45 52 47 52 45 4E 5A 45 20 | .PEICHERGRENZE |
00000490: 41 55 46 20 24 37 46 46 46 20 48 45 52 41 42 53 |AUF $7FFF HERABS|
000004A0: 45 54 5A 45 4E 00 C1 0C E0 01 20 D2 24 33 37 3B |ETZEN..... .$37;|
000004B0: 20 4C 53 42 20 D3 50 45 49 43 48 45 52 45 4E 44 | LSB .PEICHEREND|
000004C0: 45 00 CC 0C EA 01 20 CA 23 24 37 46 00 E8 0C F4 |E..... .#$7F....|
000004D0: 01 20 D2 24 33 38 3B 20 4D 53 42 20 D3 50 45 49 |. .$38; MSB .PEI|
000004E0: 43 48 45 52 45 4E 44 45 00 EE 0C FE 01 3B 00 17 |CHERENDE.....;..|
000004F0: 0D 08 02 20 CA 23 3C 28 53 54 41 52 54 29 3B 20 |... .#<(START); |
00000500: 4C 53 42 20 44 45 52 20 45 49 47 45 4E 45 4E 20 |LSB DER EIGENEN |
00000510: D2 4F 55 54 49 4E 45 00 38 0D 12 02 20 D2 49 47 |.OUTINE.8... .IG|
00000520: 4F 4E 45 3B 20 49 4E 20 D6 45 4B 54 4F 52 20 53 |ONE; IN .EKTOR S|
00000530: 43 48 52 45 49 42 45 4E 00 61 0D 1C 02 20 CA 23 |CHREIBEN.a... .#|
00000540: 3E 28 53 54 41 52 54 29 3B 20 4D 53 42 20 44 45 |>(START); MSB DE|
00000550: 52 20 45 49 47 45 4E 45 4E 20 D2 4F 55 54 49 4E |R EIGENEN .OUTIN|
00000560: 45 00 84 0D 26 02 20 D2 49 47 4F 4E 45 2B 31 3B |E...&. .IGONE+1;|
00000570: 20 49 4E 20 D6 45 4B 54 4F 52 20 53 43 48 52 45 | IN .EKTOR SCHRE|
00000580: 49 42 45 4E 00 8A 0D 30 02 3B 00 A8 0D 3A 02 20 |IBEN...0.;...:. |
00000590: E3 3B 20 D2 55 45 43 4B 53 50 52 55 4E 47 20 49 |.; .UECKSPRUNG I|
000005A0: 4E 53 20 C2 41 53 49 43 00 AE 0D 44 02 3B 00 D5 |NS .ASIC...D.;..|
000005B0: 0D 4E 02 3B 2A 2A 2A 20 20 C5 52 57 45 49 54 45 |.N.;*** .RWEITE|
000005C0: 52 55 4E 47 20 41 55 53 53 43 48 41 4C 54 45 4E |RUNG AUSSCHALTEN|
000005D0: 20 20 2A 2A 2A 00 DB 0D 58 02 3B 00 14 0E 62 02 | ***...X.;...b.|
000005E0: 41 55 53 20 CA 23 3C 28 47 4F 4E 45 31 29 3B 20 |AUS .#<(GONE1); |
000005F0: D6 45 4B 54 4F 52 20 41 55 46 20 CE 4F 52 4D 41 |.EKTOR AUF .ORMA|
00000600: 4C 57 45 52 54 20 5A 55 52 55 45 43 4B 53 54 45 |LWERT ZURUECKSTE|
00000610: 4C 4C 45 4E 00 25 0E 6C 02 20 D2 49 47 4F 4E 45 |LLEN.%.l. .IGONE|
00000620: 3B 20 4C 53 42 00 35 0E 76 02 20 CA 23 3E 28 47 |; LSB.5.v. .#>(G|
00000630: 4F 4E 45 31 29 00 47 0E 80 02 20 D2 49 47 4F 4E |ONE1).G... .IGON|
00000640: 45 2B 31 3B 4D 53 42 00 4D 0E 8A 02 3B 00 62 0E |E+1;MSB.M...;.b.|
00000650: 94 02 20 E3 3B 20 D2 4F 55 54 49 4E 45 4E 45 4E |.. .; .OUTINENEN|
00000660: 44 45 00 68 0E 9E 02 3B 00 95 0E A8 02 3B 2A 2A |DE.h...;.....;**|
00000670: 2A 20 20 45 52 57 45 49 54 45 52 54 45 20 C9 4E |* ERWEITERTE .N|
00000680: 54 45 52 50 52 45 54 45 52 53 43 48 4C 45 49 46 |TERPRETERSCHLEIF|
00000690: 45 20 2A 2A 2A 00 9B 0E B2 02 3B 00 BC 0E BC 02 |E ***.....;.....|
000006A0: 53 54 41 52 54 20 D6 43 48 52 47 45 54 3B 20 DA |START .CHRGET; .|
000006B0: 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 C2 0E C6 |EICHEN HOLEN....|
000006C0: 02 3B 00 DA 0E D0 02 20 C4 23 24 36 30 3B 20 C2 |.;..... .#$60; .|
000006D0: 55 43 48 53 54 41 42 45 20 3F 00 F4 0E DA 02 20 |UCHSTABE ?..... |
000006E0: F5 45 4E 44 45 3B 20 3D 3E 20 C2 41 53 49 43 2D |.ENDE; => .ASIC-|
000006F0: C3 4F 44 45 00 0E 0F E4 02 20 C4 23 24 34 31 3B |.ODE..... .#$41;|
00000700: 20 C2 55 43 48 53 54 41 42 45 20 C1 20 3F 00 2B | .UCHSTABE . ?.+|
00000710: 0F EE 02 20 F4 45 4E 44 45 3B 20 3D 3E 20 D3 4F |... .ENDE; => .O|
00000720: 4E 44 45 52 5A 45 49 43 48 45 4E 00 31 0F F8 02 |NDERZEICHEN.1...|
00000730: 3B 00 4A 0F 02 03 20 D2 41 4B 4B 55 3B 20 C1 4B |;.J... .AKKU; .K|
00000740: 4B 55 20 53 49 43 48 45 52 4E 00 50 0F 0C 03 3B |KU SICHERN.P...;|
00000750: 00 5B 0F 16 03 20 C2 23 24 30 30 00 83 0F 20 03 |.[... .#$00... .|
00000760: 20 D3 42 45 46 4E 52 3B 20 C2 45 46 45 48 4C 53 | .BEFNR; .EFEHLS|
00000770: 4E 55 4D 4D 45 52 20 41 55 46 20 30 20 53 45 54 |NUMMER AUF 0 SET|
00000780: 5A 45 4E 00 89 0F 2A 03 3B 00 B5 0F 34 03 45 52 |ZEN...*.;...4.ER|
00000790: 57 31 20 C3 23 24 30 30 3B 20 C2 41 53 49 43 54 |W1 .#$00; .ASICT|
000007A0: 45 58 54 49 4E 44 45 58 20 41 55 46 20 30 20 53 |EXTINDEX AUF 0 S|
000007B0: 45 54 5A 45 4E 00 D3 0F 3E 03 20 C9 42 45 46 4E |ETZEN...>. .BEFN|
000007C0: 52 3B 20 C2 45 46 45 48 4C 53 4E 55 4D 4D 45 52 |R; .EFEHLSNUMMER|
000007D0: 20 2B 31 00 04 10 48 03 20 CA 42 45 46 54 41 42 | +1...H. .BEFTAB|
000007E0: 2C 58 3B 20 DA 45 49 43 48 45 4E 20 41 55 53 20 |,X; .EICHEN AUS |
000007F0: C2 45 46 45 48 4C 53 54 41 42 45 4C 4C 45 20 48 |.EFEHLSTABELLE H|
00000800: 4F 4C 45 4E 00 22 10 52 03 20 F6 45 52 57 32 3B |OLEN.".R. .ERW2;|
00000810: 20 4B 45 49 4E 20 D4 52 45 4E 4E 5A 45 49 43 48 | KEIN .RENNZEICH|
00000820: 45 4E 00 39 10 5C 03 20 CA 41 4B 4B 55 3B 20 C1 |EN.9.\. .AKKU; .|
00000830: 4B 4B 55 20 48 4F 4C 45 4E 00 5B 10 66 03 45 4E |KKU HOLEN.[.f.EN|
00000840: 44 45 20 D6 43 48 52 47 4F 54 3B 20 43 48 52 47 |DE .CHRGOT; CHRG|
00000850: 4F 54 20 41 55 46 52 55 46 45 4E 00 83 10 70 03 |OT AUFRUFEN...p.|
00000860: 20 D5 49 4E 54 45 4E 44 3B 20 5A 55 52 55 45 43 | .INTEND; ZURUEC|
00000870: 4B 20 49 4E 53 20 4E 4F 52 4D 41 4C 45 20 C2 41 |K INS NORMALE .A|
00000880: 53 49 43 00 89 10 7A 03 3B 00 A7 10 84 03 3B 2A |SIC...z.;.....;*|
00000890: 2A 2A 20 20 C1 44 52 45 53 53 45 20 53 55 43 48 |** .DRESSE SUCH|
000008A0: 45 4E 20 20 2A 2A 2A 00 AD 10 8E 03 3B 00 DB 10 |EN ***.....;...|
000008B0: 98 03 45 52 57 32 20 C4 28 54 58 54 50 54 52 29 |..ERW2 .(TXTPTR)|
000008C0: 2C 59 3B 20 D6 45 52 47 4C 45 49 43 48 20 4D 49 |,Y; .ERGLEICH MI|
000008D0: 54 20 C2 41 53 49 43 54 45 58 54 00 03 11 A2 03 |T .ASICTEXT.....|
000008E0: 20 F6 4F 56 52 44 3B 20 55 4E 47 4C 45 49 43 48 | .OVRD; UNGLEICH|
000008F0: 20 2D 3E 20 D2 45 53 54 20 55 45 42 45 52 4C 45 | -> .EST UEBERLE|
00000900: 53 45 4E 00 1E 11 AC 03 20 ED 3B 20 C2 41 53 49 |SEN..... .; .ASI|
00000910: 43 54 45 58 54 49 4E 44 45 58 20 2B 20 31 00 3C |CTEXTINDEX + 1.<|
00000920: 11 B6 03 20 EF 3B 20 C2 45 46 45 48 4C 53 54 41 |... .; .EFEHLSTA|
00000930: 42 2E 2D C9 4E 44 45 58 20 2B 20 31 00 64 11 C0 |B.-.NDEX + 1.d..|
00000940: 03 20 CA 42 45 46 54 41 42 2C 58 3B 20 4E 41 45 |. .BEFTAB,X; NAE|
00000950: 43 48 53 54 45 53 20 DA 45 49 43 48 45 4E 20 48 |CHSTES .EICHEN H|
00000960: 4F 4C 45 4E 00 7B 11 CA 03 20 F6 45 52 57 32 3B |OLEN.{... .ERW2;|
00000970: 20 3D 3E 20 50 52 55 45 46 45 4E 00 81 11 D4 03 | => PRUEFEN.....|
00000980: 3B 00 87 11 DE 03 3B 00 8E 11 E8 03 20 E5 00 BD |;.....;..... ...|
00000990: 11 F2 03 20 D9 3B 20 C2 45 46 45 48 4C 53 49 4E |... .; .EFEHLSIN|
000009A0: 44 45 58 20 55 4D 20 C2 45 46 45 48 4C 53 4C 41 |DEX UM .EFEHLSLA|
000009B0: 45 4E 47 45 20 45 52 48 4F 45 48 45 4E 00 CA 11 |ENGE ERHOEHEN...|
000009C0: FC 03 20 C5 54 58 54 50 54 52 00 D7 11 06 04 20 |.. .TXTPTR..... |
000009D0: D2 54 58 54 50 54 52 00 EF 11 10 04 20 F4 45 52 |.TXTPTR..... .ER|
000009E0: 57 33 3B 20 D5 45 42 45 52 54 52 41 47 20 3F 00 |W3; .EBERTRAG ?.|
000009F0: 0C 12 1A 04 20 C9 54 58 54 50 54 52 2B 31 3B 20 |.... .TXTPTR+1; |
00000A00: 4D 53 42 20 45 52 48 4F 45 48 45 4E 00 12 12 24 |MSB ERHOEHEN...$|
00000A10: 04 3B 00 3C 12 2E 04 45 52 57 33 20 CA 42 45 46 |.;.<...ERW3 .BEF|
00000A20: 4E 52 3B 20 C2 45 46 45 48 4C 53 4E 55 4D 4D 45 |NR; .EFEHLSNUMME|
00000A30: 52 20 56 45 52 44 4F 50 50 45 4C 4E 00 43 12 38 |R VERDOPPELN.C.8|
00000A40: 04 20 CB 00 66 12 42 04 20 D8 3B 20 41 4C 53 20 |. ..f.B. .; ALS |
00000A50: C9 4E 44 45 58 20 49 4E 20 D3 50 52 55 4E 47 54 |.NDEX IN .PRUNGT|
00000A60: 41 42 45 4C 4C 45 00 81 12 4C 04 20 CA 53 50 52 |ABELLE...L. .SPR|
00000A70: 54 41 42 31 2C 58 3B 20 4C 53 42 20 4C 45 53 45 |TAB1,X; LSB LESE|
00000A80: 4E 00 9F 12 56 04 20 D2 53 50 52 55 4E 47 2B 31 |N...V. .SPRUNG+1|
00000A90: 3B 20 4C 53 42 20 53 43 48 52 45 49 42 45 4E 00 |; LSB SCHREIBEN.|
00000AA0: BA 12 60 04 20 CA 53 50 52 54 41 42 32 2C 58 3B |..`. .SPRTAB2,X;|
00000AB0: 20 4D 53 42 20 4C 45 53 45 4E 00 D8 12 6A 04 20 | MSB LESEN...j. |
00000AC0: D2 53 50 52 55 4E 47 2B 32 3B 20 4D 53 42 20 53 |.SPRUNG+2; MSB S|
00000AD0: 43 48 52 45 49 42 45 4E 00 DE 12 74 04 3B 00 F7 |CHREIBEN...t.;..|
00000AE0: 12 7E 04 53 50 52 55 4E 47 20 D6 24 46 46 46 46 |.~.SPRUNG .$FFFF|
00000AF0: 3B 20 C4 55 4D 4D 59 00 FD 12 88 04 3B 00 1B 13 |; .UMMY.....;...|
00000B00: 92 04 20 D5 45 4E 44 45 3B 20 5A 55 52 55 45 43 |.. .ENDE; ZURUEC|
00000B10: 4B 20 49 4E 53 20 C2 41 53 49 43 00 21 13 9C 04 |K INS .ASIC.!...|
00000B20: 3B 00 4E 13 A6 04 3B 2A 2A 2A 20 20 52 45 53 54 |;.N...;*** REST|
00000B30: 4C 2E 20 C2 45 46 45 48 4C 53 54 45 58 54 20 55 |L. .EFEHLSTEXT U|
00000B40: 45 42 45 52 4C 45 53 45 4E 20 20 2A 2A 2A 00 54 |EBERLESEN ***.T|
00000B50: 13 B0 04 3B 00 76 13 BA 04 4F 56 52 44 20 EF 3B |...;.v...OVRD .;|
00000B60: 20 C2 45 46 45 48 4C 53 54 41 42 2E 2D C9 4E 44 | .EFEHLSTAB.-.ND|
00000B70: 45 58 20 2B 20 31 00 9E 13 C4 04 20 CA 42 45 46 |EX + 1..... .BEF|
00000B80: 54 41 42 2C 58 3B 20 4E 41 45 43 48 53 54 45 53 |TAB,X; NAECHSTES|
00000B90: 20 DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 BF | .EICHEN HOLEN..|
00000BA0: 13 CE 04 20 F6 4F 56 52 44 3B 20 3D 3E 20 4B 45 |... .OVRD; => KE|
00000BB0: 49 4E 20 D4 52 45 4E 4E 5A 45 49 43 48 45 4E 00 |IN .RENNZEICHEN.|
00000BC0: DB 13 D8 04 20 EF 3B 20 C2 45 46 45 48 4C 53 54 |.... .; .EFEHLST|
00000BD0: 41 42 2E 2D C9 4E 44 45 58 2B 31 00 F8 13 E2 04 |AB.-.NDEX+1.....|
00000BE0: 20 D5 45 52 57 31 3B 20 4E 41 45 43 48 53 54 45 | .ERW1; NAECHSTE|
00000BF0: 52 20 C2 45 46 45 48 4C 00 FE 13 EC 04 3B 00 27 |R .EFEHL.....;.'|
00000C00: 14 F6 04 3B 2A 2A 2A 20 20 D4 41 42 45 4C 4C 45 |...;*** .ABELLE|
00000C10: 4E 20 46 55 45 52 20 C5 52 57 45 49 54 45 52 55 |N FUER .RWEITERU|
00000C20: 4E 47 20 20 2A 2A 2A 00 2D 14 00 05 3B 00 4A 14 |NG ***.-...;.J.|
00000C30: 0A 05 3B 2A 2A 2A 20 20 D3 50 52 55 4E 47 54 41 |..;*** .PRUNGTA|
00000C40: 42 45 4C 4C 45 20 20 2A 2A 2A 00 50 14 14 05 3B |BELLE ***.P...;|
00000C50: 00 61 14 1E 05 53 50 52 54 41 42 31 20 A5 24 45 |.a...SPRTAB1 .$E|
00000C60: 37 00 72 14 28 05 53 50 52 54 41 42 32 20 A5 24 |7.r.(.SPRTAB2 .$|
00000C70: 41 37 00 7C 14 32 05 20 A6 41 55 53 00 85 14 3C |A7.|.2. .AUS...<|
00000C80: 05 20 A6 49 52 00 8E 14 46 05 20 A6 49 41 00 97 |. .IR...F. .IA..|
00000C90: 14 50 05 20 A6 47 4C 00 A0 14 5A 05 20 A6 53 50 |.P. .GL...Z. .SP|
00000CA0: 00 A9 14 64 05 20 A6 45 50 00 B2 14 6E 05 20 A6 |...d. .EP...n. .|
00000CB0: 4C 4E 00 BB 14 78 05 20 A6 43 50 00 C4 14 82 05 |LN...x. .CP.....|
00000CC0: 20 A6 48 43 00 CD 14 8C 05 20 A6 53 41 00 D6 14 | .HC..... .SA...|
00000CD0: 96 05 20 A6 4C 4F 00 E4 14 A0 05 20 A5 24 30 30 |.. .LO..... .$00|
00000CE0: 2C 24 30 30 00 EA 14 AA 05 3B 00 08 15 B4 05 3B |,$00.....;.....;|
00000CF0: 2A 2A 2A 20 20 C2 45 46 45 48 4C 53 54 41 42 45 |*** .EFEHLSTABE|
00000D00: 4C 4C 45 20 20 2A 2A 2A 00 0E 15 BE 05 3B 00 1F |LLE ***.....;..|
00000D10: 15 C8 05 42 45 46 54 41 42 20 A8 22 4F 46 46 00 |...BEFTAB ."OFF.|
00000D20: 29 15 D2 05 20 A5 24 30 30 00 34 15 DC 05 20 A8 |)... .$00.4... .|
00000D30: 22 49 52 51 00 3E 15 E6 05 20 A5 24 30 30 00 4A |"IRQ.>... .$00.J|
00000D40: 15 F0 05 20 A8 22 54 45 58 54 00 54 15 FA 05 20 |... ."TEXT.T... |
00000D50: A5 24 30 30 00 5F 15 04 06 20 A8 22 47 43 4C 00 |.$00._... ."GCL.|
00000D60: 69 15 0E 06 20 A5 24 30 30 00 74 15 18 06 20 A8 |i... .$00.t... .|
00000D70: 22 53 45 54 00 7E 15 22 06 20 A5 24 30 30 00 8B |"SET.~.". .$00..|
00000D80: 15 2C 06 20 A8 22 45 52 41 53 45 00 95 15 36 06 |.,. ."ERASE...6.|
00000D90: 20 A5 24 30 30 00 A1 15 40 06 20 A8 22 4C 49 4E | .$00...@. ."LIN|
00000DA0: 45 00 AB 15 4A 06 20 A5 24 30 30 00 B7 15 54 06 |E...J. .$00...T.|
00000DB0: 20 A8 22 43 48 41 52 00 C1 15 5E 06 20 A5 24 30 | ."CHAR...^. .$0|
00000DC0: 30 00 CB 15 68 06 20 A8 22 48 43 00 D5 15 72 06 |0...h. ."HC...r.|
00000DD0: 20 A5 24 30 30 00 DF 15 7C 06 20 A8 22 53 41 00 | .$00...|. ."SA.|
00000DE0: E9 15 86 06 20 A5 24 30 30 00 F3 15 90 06 20 A8 |.... .$00..... .|
00000DF0: 22 4C 4F 00 01 16 9A 06 20 A5 24 30 30 2C 24 30 |"LO..... .$00,$0|
00000E00: 30 00 07 16 A4 06 3B 00 22 16 AE 06 3B 2A 2A 2A |0.....;."...;***|
00000E10: 20 20 C8 49 4C 46 53 5A 45 4C 4C 45 4E 20 20 2A | .ILFSZELLEN *|
00000E20: 2A 2A 00 28 16 B8 06 3B 00 36 16 C2 06 41 4B 4B |**.(...;.6...AKK|
00000E30: 55 20 A5 24 30 30 00 45 16 CC 06 42 45 46 4E 52 |U .$00.E...BEFNR|
00000E40: 20 A5 24 30 30 00 4B 16 D6 06 3B 00 72 16 D0 07 | .$00.K...;.r...|
00000E50: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E70: 2A 2A 00 99 16 DA 07 3B 2A 2A 2A 20 20 D2 41 53 |**.....;*** .AS|
00000E80: 54 45 52 5A 45 49 4C 45 4E 49 4E 54 45 52 52 55 |TERZEILENINTERRU|
00000E90: 50 54 20 20 20 20 2A 2A 2A 00 C0 16 E4 07 3B 2A |PT ***.....;*|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EC0: 00 C6 16 EE 07 3B 00 E4 16 F8 07 3B 2A 2A 2A 20 |.....;.....;*** |
00000ED0: 20 CC 41 42 45 4C 53 3A 20 C7 52 41 46 49 4B 20 | .ABELS: .RAFIK |
00000EE0: 20 2A 2A 2A 00 EA 16 02 08 3B 00 0A 17 0C 08 A3 | ***.....;......|
00000EF0: 56 31 3D 24 44 30 31 31 3B 20 C1 44 52 2E 20 C7 |V1=$D011; .DR. .|
00000F00: 52 41 46 49 4B 4D 4F 44 55 53 00 27 17 16 08 A3 |RAFIKMODUS.'....|
00000F10: 56 32 3D 24 44 30 31 38 3B 20 C1 44 52 2E 20 D6 |V2=$D018; .DR. .|
00000F20: 49 44 45 4F 52 41 4D 00 45 17 20 08 A3 43 49 41 |IDEORAM.E. ..CIA|
00000F30: 3D 24 44 44 30 30 3B 20 31 36 CB 2D D3 45 4C 45 |=$DD00; 16.-.ELE|
00000F40: 43 54 49 4F 4E 00 70 17 2A 08 A3 43 4C 52 53 43 |CTION.p.*..CLRSC|
00000F50: 52 3D 24 45 35 34 34 3B 20 D4 45 58 54 42 49 4C |R=$E544; .EXTBIL|
00000F60: 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E |DSCHIRM LOESCHEN|
00000F70: 00 91 17 34 08 A3 43 55 52 53 4F 52 3D 24 45 35 |...4..CURSOR=$E5|
00000F80: 31 30 3B 20 C3 55 52 53 4F 52 20 53 45 54 5A 45 |10; .URSOR SETZE|
00000F90: 4E 00 BA 17 3E 08 A3 58 43 55 52 3D 24 30 30 44 |N...>..XCUR=$00D|
00000FA0: 33 3B 20 58 2D CB 4F 4F 52 44 49 4E 41 54 45 20 |3; X-.OORDINATE |
00000FB0: 44 45 53 20 C3 55 52 53 4F 52 00 E3 17 48 08 A3 |DES .URSOR...H..|
00000FC0: 59 43 55 52 3D 24 30 30 44 36 3B 20 59 2D CB 4F |YCUR=$00D6; Y-.O|
00000FD0: 4F 52 44 49 4E 41 54 45 20 44 45 53 20 C3 55 52 |ORDINATE DES .UR|
00000FE0: 53 4F 52 00 0C 18 52 08 A3 48 45 4C 50 31 3D 24 |SOR...R..HELP1=$|
00000FF0: 30 30 46 41 3B 20 DA 45 52 4F 50 41 47 45 53 50 |00FA; .EROPAGESP|
00001000: 45 49 43 48 45 52 53 54 45 4C 4C 45 00 35 18 5C |EICHERSTELLE.5.\|
00001010: 08 A3 48 45 4C 50 32 3D 24 30 30 46 42 3B 20 DA |..HELP2=$00FB; .|
00001020: 45 52 4F 50 41 47 45 53 50 45 49 43 48 45 52 53 |EROPAGESPEICHERS|
00001030: 54 45 4C 4C 45 00 56 18 66 08 A3 42 49 54 4D 41 |TELLE.V.f..BITMA|
00001040: 50 3D 24 38 30 30 30 3B 20 C2 49 54 4D 41 50 41 |P=$8000; .ITMAPA|
00001050: 44 52 45 53 53 45 00 7B 18 70 08 A3 56 49 44 45 |DRESSE.{.p..VIDE|
00001060: 4F 52 41 4D 3D 24 41 30 30 30 3B 20 D6 49 44 45 |ORAM=$A000; .IDE|
00001070: 4F 52 41 4D 41 44 52 45 53 53 45 00 81 18 7A 08 |ORAMADRESSE...z.|
00001080: 3B 00 C9 18 84 08 3B 2A 2A 2A 20 20 CD 41 4B 52 |;.....;*** .AKR|
00001090: 4F 53 3A 20 C7 52 41 46 49 4B 20 45 49 4E 2F 41 |OS: .RAFIK EIN/A|
000010A0: 55 53 2C 20 D6 49 44 45 4F 52 41 4D 20 4C 4F 45 |US, .IDEORAM LOE|
000010B0: 53 43 48 45 4E 2C 20 C3 55 52 53 4F 52 20 53 45 |SCHEN, .URSOR SE|
000010C0: 54 5A 45 4E 20 20 2A 2A 2A 00 CF 18 8E 08 3B 00 |TZEN ***.....;.|
000010D0: EC 18 98 08 A1 47 52 41 3B 20 C7 52 41 46 49 4B |.....GRA; .RAFIK|
000010E0: 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 10 19 A2 | EINSCHALTEN....|
000010F0: 08 20 CA 23 24 33 42 3B 20 C2 49 54 4D 41 50 4D |. .#$3B; .ITMAPM|
00001100: 4F 44 55 53 20 45 49 4E 53 43 48 41 4C 54 45 4E |ODUS EINSCHALTEN|
00001110: 00 19 19 AC 08 20 D2 56 31 00 3A 19 B6 08 20 CA |..... .V1.:... .|
00001120: 23 24 38 30 3B 20 D6 49 44 45 4F 52 41 4D 20 53 |#$80; .IDEORAM S|
00001130: 45 4C 45 43 54 49 45 52 45 4E 00 43 19 C0 08 20 |ELECTIEREN.C... |
00001140: D2 56 32 00 67 19 CA 08 20 CA 23 24 30 31 3B 20 |.V2.g... .#$01; |
00001150: 31 36 CB 2D C2 45 52 45 49 43 48 20 53 45 4C 45 |16.-.EREICH SELE|
00001160: 43 54 49 45 52 45 4E 00 71 19 D4 08 20 D2 43 49 |CTIEREN.q... .CI|
00001170: 41 00 77 19 DE 08 A2 00 7D 19 E8 08 3B 00 9A 19 |A.w.....}...;...|
00001180: F2 08 A1 54 58 54 3B 20 C7 52 41 46 49 4B 20 41 |...TXT; .RAFIK A|
00001190: 55 53 53 43 48 41 4C 54 45 4E 00 BE 19 FC 08 20 |USSCHALTEN..... |
000011A0: CA 23 24 31 42 3B 20 C2 49 54 4D 41 50 4D 4F 44 |.#$1B; .ITMAPMOD|
000011B0: 55 53 20 41 55 53 53 43 48 41 4C 54 45 4E 00 C7 |US AUSSCHALTEN..|
000011C0: 19 06 09 20 D2 56 31 00 EA 19 10 09 20 CA 23 24 |... .V1..... .#$|
000011D0: 31 35 3B 20 D6 49 44 45 4F 52 41 4D 20 5A 55 52 |15; .IDEORAM ZUR|
000011E0: 55 45 43 4B 53 45 54 5A 45 4E 00 F3 19 1A 09 20 |UECKSETZEN..... |
000011F0: D2 56 32 00 17 1A 24 09 20 CA 23 24 30 33 3B 20 |.V2...$. .#$03; |
00001200: 31 36 CB 2D C2 45 52 45 49 43 48 20 53 45 4C 45 |16.-.EREICH SELE|
00001210: 43 54 49 45 52 45 4E 00 21 1A 2E 09 20 D2 43 49 |CTIEREN.!... .CI|
00001220: 41 00 27 1A 38 09 A2 00 2D 1A 42 09 3B 00 4A 1A |A.'.8...-.B.;.J.|
00001230: 4C 09 A1 56 52 41 4D 3B 20 D6 49 44 45 4F 52 41 |L..VRAM; .IDEORA|
00001240: 4D 20 4C 4F 45 53 43 48 45 4E 00 63 1A 56 09 20 |M LOESCHEN.c.V. |
00001250: CA 23 32 30 38 3B 20 D6 49 44 45 4F 52 41 4D 57 |.#208; .IDEORAMW|
00001260: 45 52 54 00 69 1A 60 09 3B 00 A8 1A 6A 09 20 C3 |ERT.i.`.;...j. .|
00001270: 23 3E 28 56 49 44 45 4F 52 41 4D 29 3B 20 D3 54 |#>(VIDEORAM); .T|
00001280: 41 52 54 41 44 52 45 53 53 45 20 44 45 53 20 D6 |ARTADRESSE DES .|
00001290: 49 44 45 4F 52 41 4D 53 20 49 4E 20 DA D0 20 53 |IDEORAMS IN .. S|
000012A0: 43 48 52 45 49 42 45 4E 00 B9 1A 74 09 20 D4 48 |CHREIBEN...t. .H|
000012B0: 45 4C 50 32 3B 20 4D 53 42 00 CC 1A 7E 09 20 C3 |ELP2; MSB...~. .|
000012C0: 23 3C 28 56 49 44 45 4F 52 41 4D 29 00 DD 1A 88 |#<(VIDEORAM)....|
000012D0: 09 20 D4 48 45 4C 50 31 3B 20 4C 53 42 00 06 1B |. .HELP1; LSB...|
000012E0: 92 09 20 C2 23 24 30 34 3B 20 C9 4E 44 45 58 20 |.. .#$04; .NDEX |
000012F0: 46 55 45 52 20 41 45 55 53 53 45 52 45 20 D3 43 |FUER AEUSSERE .C|
00001300: 48 4C 45 49 46 45 00 42 1B 9C 09 56 4C 31 20 D2 |HLEIFE.B...VL1 .|
00001310: 28 48 45 4C 50 31 29 2C 59 3B 20 C2 59 54 45 20 |(HELP1),Y; .YTE |
00001320: 49 4D 20 D6 49 44 45 4F 52 41 4D 20 4D 49 54 20 |IM .IDEORAM MIT |
00001330: 32 30 38 20 55 45 42 45 52 53 43 48 52 45 49 42 |208 UEBERSCHREIB|
00001340: 45 4E 00 6A 1B A6 09 20 ED 3B 20 D9 20 2B 20 31 |EN.j... .; . + 1|
00001350: 20 3B 20 49 4E 4E 45 52 45 20 D3 43 48 4C 45 49 | ; INNERE .CHLEI|
00001360: 46 45 20 32 35 36 20 4D 41 4C 00 7D 1B B0 09 20 |FE 256 MAL.}... |
00001370: F6 56 4C 31 3B 20 3D 3E 20 D9 3C 3E 30 00 A7 1B |.VL1; => .<>0...|
00001380: BA 09 20 C9 48 45 4C 50 32 3B 20 4D 53 42 20 44 |.. .HELP2; MSB D|
00001390: 45 52 20 D6 49 44 45 4F 52 41 4D 50 4F 53 49 54 |ER .IDEORAMPOSIT|
000013A0: 49 4F 4E 20 2B 20 31 00 CE 1B C4 09 20 EE 3B 20 |ION + 1..... .; |
000013B0: 41 45 55 53 53 45 52 45 52 20 D3 43 48 4C 45 49 |AEUSSERER .CHLEI|
000013C0: 46 45 4E 5A 41 45 48 4C 45 52 20 2D 20 31 00 E1 |FENZAEHLER - 1..|
000013D0: 1B CE 09 20 F6 56 4C 31 3B 20 3D 3E 20 D8 3C 3E |... .VL1; => .<>|
000013E0: 30 00 E7 1B D8 09 A2 00 ED 1B E2 09 3B 00 F6 1B |0...........;...|
000013F0: EC 09 A1 43 55 52 00 0B 1C F6 09 20 CA 23 31 32 |...CUR..... .#12|
00001400: 3B 20 31 32 2E 20 DA 45 49 4C 45 00 27 1C 00 0A |; 12. .EILE.'...|
00001410: 20 D2 59 43 55 52 3B 20 49 4E 20 DA D0 20 53 43 | .YCUR; IN .. SC|
00001420: 48 52 45 49 42 45 4E 00 3D 1C 0A 0A 20 CA 23 24 |HREIBEN.=... .#$|
00001430: 30 30 3B 20 30 2E 20 D3 50 41 4C 54 45 00 59 1C |00; 0. .PALTE.Y.|
00001440: 14 0A 20 D2 58 43 55 52 3B 20 49 4E 20 DA D0 20 |.. .XCUR; IN .. |
00001450: 53 43 48 52 45 49 42 45 4E 00 86 1C 1E 0A 20 D5 |SCHREIBEN..... .|
00001460: 43 55 52 53 4F 52 3B 20 C3 55 52 53 4F 52 20 53 |CURSOR; .URSOR S|
00001470: 45 54 5A 45 4E 20 55 4E 44 20 D2 4F 55 54 49 4E |ETZEN UND .OUTIN|
00001480: 45 4E 45 4E 44 45 00 8C 1C 28 0A A2 00 92 1C 32 |ENENDE...(.....2|
00001490: 0A 3B 00 BE 1C 3C 0A 3B 2A 2A 2A 20 20 CC 41 42 |.;...<.;*** .AB|
000014A0: 45 4C 3A 20 D2 41 53 54 45 52 5A 45 49 4C 45 4E |EL: .ASTERZEILEN|
000014B0: 49 4E 54 45 52 52 55 50 54 20 20 2A 2A 2A 00 C4 |INTERRUPT ***..|
000014C0: 1C 46 0A 3B 00 DF 1C 50 0A A3 49 52 51 3D 24 30 |.F.;...P..IRQ=$0|
000014D0: 33 31 34 3B 20 C9 D2 D1 2D D6 45 4B 54 4F 52 00 |314; ...-.EKTOR.|
000014E0: 20 1D 5A 0A A3 52 41 53 54 45 52 3D 24 44 30 31 | .Z..RASTER=$D01|
000014F0: 32 3B 20 D2 41 53 54 45 52 5A 45 49 4C 45 4E 20 |2; .ASTERZEILEN |
00001500: D2 45 47 49 53 54 45 52 3B 20 4D 53 42 20 28 37 |.EGISTER; MSB (7|
00001510: 2E C2 49 54 29 20 3D 20 52 41 53 54 45 52 2D 31 |..IT) = RASTER-1|
00001520: 00 4B 1D 64 0A A3 52 49 52 51 45 4E 3D 24 44 30 |.K.d..RIRQEN=$D0|
00001530: 31 41 3B 20 D6 C9 C3 2D C9 D2 D1 20 C5 4E 41 42 |1A; ...-... .NAB|
00001540: 4C 45 20 D2 45 47 49 53 54 45 52 00 77 1D 6E 0A |LE .EGISTER.w.n.|
00001550: A3 52 45 51 49 52 51 3D 24 44 30 31 39 3B 20 D6 |.REQIRQ=$D019; .|
00001560: C9 C3 2D C9 D2 D1 20 D2 45 51 55 45 53 54 20 D2 |..-... .EQUEST .|
00001570: 45 47 49 53 54 45 52 00 A5 1D 78 0A A3 43 49 41 |EGISTER...x..CIA|
00001580: 49 52 51 3D 24 44 43 30 44 3B 20 C3 C9 C1 31 20 |IRQ=$DC0D; ...1 |
00001590: C9 D2 D1 20 CB 4F 4E 54 52 4F 4C 4C 20 D2 45 47 |... .ONTROLL .EG|
000015A0: 49 53 54 45 52 00 C8 1D 82 0A A3 43 4E 54 49 52 |ISTER......CNTIR|
000015B0: 51 3D 24 45 41 33 31 3B 20 C3 C9 C1 20 C9 D2 D1 |Q=$EA31; ... ...|
000015C0: 20 D2 4F 55 54 49 4E 45 00 F9 1D 8C 0A A3 45 4E | .OUTINE......EN|
000015D0: 44 49 52 51 3D 24 45 41 38 31 3B 20 C5 4E 44 45 |DIRQ=$EA81; .NDE|
000015E0: 20 44 45 52 20 4E 4F 52 4D 41 4C 45 4E 20 C9 D2 | DER NORMALEN ..|
000015F0: D1 20 D2 4F 55 54 49 4E 45 00 FF 1D 96 0A 3B 00 |. .OUTINE.....;.|
00001600: 35 1E A0 0A 3B 2A 2A 2A 20 20 C9 4E 49 54 3A 20 |5...;*** .NIT: |
00001610: D6 45 4B 54 4F 52 45 4E 20 56 45 52 42 49 45 47 |.EKTOREN VERBIEG|
00001620: 45 4E 2C 20 C9 D2 D1 20 5A 55 4C 41 53 53 45 4E |EN, ... ZULASSEN|
00001630: 20 20 2A 2A 2A 00 3B 1E AA 0A 3B 00 57 1E B4 0A | ***.;...;.W...|
00001640: 49 52 20 E8 3B 20 C9 4E 54 45 52 52 55 50 54 20 |IR .; .NTERRUPT |
00001650: 53 50 45 52 52 45 4E 00 5D 1E BE 0A 3B 00 9C 1E |SPERREN.]...;...|
00001660: C8 0A 20 CA 23 3C 28 4D 41 49 4E 49 52 51 29 3B |.. .#<(MAINIRQ);|
00001670: 20 C9 D2 D1 2D D6 45 4B 54 4F 52 20 41 55 46 20 | ...-.EKTOR AUF |
00001680: 45 49 47 45 4E 45 20 C9 D2 D1 20 D2 4F 55 54 49 |EIGENE ... .OUTI|
00001690: 4E 45 20 56 45 52 42 49 45 47 45 4E 00 AB 1E D2 |NE VERBIEGEN....|
000016A0: 0A 20 D2 49 52 51 3B 20 4C 53 42 00 BD 1E DC 0A |. .IRQ; LSB.....|
000016B0: 20 CA 23 3E 28 4D 41 49 4E 49 52 51 29 00 CE 1E | .#>(MAINIRQ)...|
000016C0: E6 0A 20 D2 49 52 51 2B 31 3B 20 4D 53 42 00 D4 |.. .IRQ+1; MSB..|
000016D0: 1E F0 0A 3B 00 10 1F FA 0A 20 CA 23 24 30 30 3B |...;..... .#$00;|
000016E0: 20 D2 41 53 54 45 52 5A 45 49 4C 45 20 30 20 28 | .ASTERZEILE 0 (|
000016F0: 4F 42 45 52 48 41 4C 42 20 44 45 53 20 C2 49 4C |OBERHALB DES .IL|
00001700: 44 53 43 48 49 52 4D 46 45 4E 53 54 45 52 53 29 |DSCHIRMFENSTERS)|
00001710: 00 34 1F 04 0B 20 D2 52 41 53 54 45 52 3B 20 49 |.4... .RASTER; I|
00001720: 4E 20 D2 45 47 49 53 54 45 52 20 53 43 48 52 45 |N .EGISTER SCHRE|
00001730: 49 42 45 4E 00 59 1F 0E 0B 20 CA 52 41 53 54 45 |IBEN.Y... .RASTE|
00001740: 52 2D 31 3B 20 4D 53 42 20 28 37 2E C2 49 54 29 |R-1; MSB (7..IT)|
00001750: 20 4C 4F 45 53 43 48 45 4E 00 64 1F 18 0B 20 C6 | LOESCHEN.d... .|
00001760: 23 24 37 46 00 73 1F 22 0B 20 D2 52 41 53 54 45 |#$7F.s.". .RASTE|
00001770: 52 2D 31 00 79 1F 2C 0B 3B 00 9F 1F 36 0B 20 CA |R-1.y.,.;...6. .|
00001780: 23 25 31 30 30 30 30 30 30 31 3B 20 D2 41 53 54 |#%10000001; .AST|
00001790: 45 52 20 C9 D2 D1 20 5A 55 4C 41 53 53 45 4E 00 |ER ... ZULASSEN.|
000017A0: AC 1F 40 0B 20 D2 52 49 52 51 45 4E 00 B2 1F 4A |..@. .RIRQEN...J|
000017B0: 0B 3B 00 CC 1F 54 0B 20 CA 23 31 32 38 3B 20 54 |.;...T. .#128; T|
000017C0: 49 4D 45 52 2D 49 52 51 20 41 55 53 00 D8 1F 5E |IMER-IRQ AUS...^|
000017D0: 0B 20 D2 24 44 43 30 45 00 DE 1F 68 0B 3B 00 00 |. .$DC0E...h.;..|
000017E0: 20 7C 0B 20 E7 3B 20 C9 4E 54 45 52 52 55 50 54 | |. .; .NTERRUPT|
000017F0: 20 57 49 45 44 45 52 20 5A 55 4C 41 53 53 45 4E | WIEDER ZULASSEN|
00001800: 00 06 20 86 0B 3B 00 44 20 90 0B 3B 2A 2A 2A 20 |.. ..;.D ..;*** |
00001810: C2 49 4C 44 53 43 48 49 52 4D 20 55 4E 44 20 D6 |.ILDSCHIRM UND .|
00001820: 49 44 45 4F 52 41 4D 20 4C 4F 45 53 43 48 45 4E |IDEORAM LOESCHEN|
00001830: 2C 20 C3 55 52 53 4F 52 20 53 45 54 5A 45 4E 20 |, .URSOR SETZEN |
00001840: 20 2A 2A 2A 00 4A 20 9A 0B 3B 00 70 20 A4 0B 20 | ***.J ..;.p .. |
00001850: D6 43 4C 52 53 43 52 3B 20 D4 45 58 54 42 49 4C |.CLRSCR; .EXTBIL|
00001860: 44 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E |DSCHIRM LOESCHEN|
00001870: 00 8D 20 AE 0B 20 56 52 41 4D 3B 20 D6 49 44 45 |.. .. VRAM; .IDE|
00001880: 4F 52 41 4D 20 4C 4F 45 53 43 48 45 4E 00 A5 20 |ORAM LOESCHEN.. |
00001890: B8 0B 20 43 55 52 3B 20 C3 55 52 53 4F 52 20 53 |.. CUR; .URSOR S|
000018A0: 45 54 5A 45 4E 00 AB 20 C2 0B 3B 00 D2 20 CC 0B |ETZEN.. ..;.. ..|
000018B0: 3B 2A 2A 2A 20 20 56 45 52 41 45 4E 44 45 52 54 |;*** VERAENDERT|
000018C0: 45 20 C9 D2 D1 2D D2 4F 55 54 49 4E 45 20 20 2A |E ...-.OUTINE *|
000018D0: 2A 2A 00 D8 20 D6 0B 3B 00 F9 20 E0 0B 4D 41 49 |**.. ..;.. ..MAI|
000018E0: 4E 49 52 51 20 E8 3B 20 C9 4E 54 45 52 52 55 50 |NIRQ .; .NTERRUP|
000018F0: 54 20 53 50 45 52 52 45 4E 00 1E 21 EA 0B 20 CA |T SPERREN..!.. .|
00001900: 52 45 51 49 52 51 3B 20 C9 D2 D1 20 56 4F 4E 20 |REQIRQ; ... VON |
00001910: D2 41 53 54 45 52 53 54 52 41 48 4C 20 3F 00 53 |.ASTERSTRAHL ?.S|
00001920: 21 F4 0B 20 D2 52 45 51 49 52 51 3B 20 D2 45 47 |!.. .REQIRQ; .EG|
00001930: 49 53 54 45 52 20 5A 55 52 55 45 43 4B 53 43 48 |ISTER ZURUECKSCH|
00001940: 52 45 49 42 45 4E 20 55 4E 44 20 4C 4F 45 53 43 |REIBEN UND LOESC|
00001950: 48 45 4E 00 7B 21 FE 0B 20 F1 52 41 53 54 45 52 |HEN.{!.. .RASTER|
00001960: 49 52 51 3B 20 5A 55 52 20 D2 41 53 54 45 52 20 |IRQ; ZUR .ASTER |
00001970: C9 D2 D1 20 D2 4F 55 54 49 4E 45 00 AD 21 08 0C |... .OUTINE..!..|
00001980: 20 CA 43 49 41 49 52 51 3B 20 4C 4F 45 53 43 48 | .CIAIRQ; LOESCH|
00001990: 45 4E 20 44 45 53 20 C3 C9 C1 31 20 CB 4F 4E 54 |EN DES ...1 .ONT|
000019A0: 52 4F 4C 4C 20 D2 45 47 49 53 54 45 52 00 CF 21 |ROLL .EGISTER..!|
000019B0: 12 0C 20 E7 3B 20 C9 4E 54 45 52 52 55 50 54 20 |.. .; .NTERRUPT |
000019C0: 57 49 45 44 45 52 20 5A 55 4C 41 53 53 45 4E 00 |WIEDER ZULASSEN.|
000019D0: FF 21 1C 0C 20 D5 45 4E 44 49 52 51 3B 20 5A 55 |.!.. .ENDIRQ; ZU|
000019E0: 4D 20 C5 4E 44 45 20 44 45 52 20 4E 4F 52 4D 41 |M .NDE DER NORMA|
000019F0: 4C 45 4E 20 C9 D2 D1 20 D2 4F 55 54 49 4E 45 00 |LEN ... .OUTINE.|
00001A00: 05 22 26 0C 3B 00 27 22 30 0C 3B 2A 2A 2A 20 20 |."&.;.'"0.;*** |
00001A10: D2 41 53 54 45 52 20 C9 D2 D1 20 D2 4F 55 54 49 |.ASTER ... .OUTI|
00001A20: 4E 45 20 20 2A 2A 2A 00 2D 22 3A 0C 3B 00 50 22 |NE ***.-":.;.P"|
00001A30: 44 0C 52 41 53 54 45 52 49 52 51 20 E8 3B 20 C9 |D.RASTERIRQ .; .|
00001A40: 4E 54 45 52 52 55 50 54 20 53 50 45 52 52 45 4E |NTERRUPT SPERREN|
00001A50: 00 7D 22 4E 0C 20 CA 52 41 53 54 45 52 3B 20 D2 |.}"N. .RASTER; .|
00001A60: 41 53 54 45 52 5A 45 49 4C 45 4E 2D D2 45 47 49 |ASTERZEILEN-.EGI|
00001A70: 53 54 45 52 20 41 55 53 4C 45 53 45 4E 00 9B 22 |STER AUSLESEN.."|
00001A80: 62 0C 20 F6 54 45 58 54 46 45 3B 20 3D 3E 20 52 |b. .TEXTFE; => R|
00001A90: 41 53 54 45 52 20 3D 20 24 39 31 00 A1 22 6C 0C |ASTER = $91.."l.|
00001AA0: 3B 00 BE 22 76 0C 20 47 52 41 3B 20 C7 52 41 46 |;.."v. GRA; .RAF|
00001AB0: 49 4B 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 C4 |IK EINSCHALTEN..|
00001AC0: 22 80 0C 3B 00 F7 22 8A 0C 20 CA 23 24 39 31 3B |"..;..".. .#$91;|
00001AD0: 20 31 34 35 2E 20 D2 41 53 54 45 52 5A 45 49 4C | 145. .ASTERZEIL|
00001AE0: 45 2C 20 D5 4D 53 43 48 41 4C 54 55 4E 47 20 41 |E, .MSCHALTUNG A|
00001AF0: 55 46 20 D4 45 58 54 00 1B 23 94 0C 20 D2 52 41 |UF .EXT..#.. .RA|
00001B00: 53 54 45 52 3B 20 49 4E 20 D2 45 47 49 53 54 45 |STER; IN .EGISTE|
00001B10: 52 20 53 43 48 52 45 49 42 45 4E 00 40 23 9E 0C |R SCHREIBEN.@#..|
00001B20: 20 CA 52 41 53 54 45 52 2D 31 3B 20 4D 53 42 20 | .RASTER-1; MSB |
00001B30: 28 37 2E C2 49 54 29 A0 4C 4F 45 53 43 48 45 4E |(7..IT).LOESCHEN|
00001B40: 00 4B 23 A8 0C 20 C6 23 24 37 46 00 5A 23 B2 0C |.K#.. .#$7F.Z#..|
00001B50: 20 D2 52 41 53 54 45 52 2D 31 00 60 23 BC 0C 3B | .RASTER-1.`#..;|
00001B60: 00 82 23 C6 0C 20 E7 3B 20 C9 4E 54 45 52 52 55 |..#.. .; .NTERRU|
00001B70: 50 54 20 57 49 45 44 45 52 20 5A 55 4C 41 53 53 |PT WIEDER ZULASS|
00001B80: 45 4E 00 A4 23 D0 0C 20 D5 43 4E 54 49 52 51 3B |EN..#.. .CNTIRQ;|
00001B90: 20 5A 55 52 20 C3 C9 C1 20 C9 D2 D1 20 D2 4F 55 | ZUR ... ... .OU|
00001BA0: 54 49 4E 45 00 AA 23 DA 0C 3B 00 EC 23 E4 0C 54 |TINE..#..;..#..T|
00001BB0: 45 58 54 46 45 20 C2 23 24 30 37 3B 20 D7 41 52 |EXTFE .#$07; .AR|
00001BC0: 54 45 53 43 48 4C 45 49 46 45 2C 20 42 49 53 20 |TESCHLEIFE, BIS |
00001BD0: 44 45 52 20 D2 41 53 54 45 52 53 54 52 41 48 4C |DER .ASTERSTRAHL|
00001BE0: 20 49 4D 20 D2 41 4E 44 20 49 53 54 00 FA 23 EE | IM .AND IST..#.|
00001BF0: 0C 49 52 51 57 41 49 54 20 E4 00 01 24 F8 0C 20 |.IRQWAIT ...$.. |
00001C00: EE 00 0F 24 02 0D 20 F6 49 52 51 57 41 49 54 00 |...$.. .IRQWAIT.|
00001C10: 15 24 0C 0D 3B 00 4E 24 16 0D 20 54 58 54 3B 20 |.$..;.N$.. TXT; |
00001C20: C7 52 41 46 49 4B 20 41 55 53 53 43 48 41 4C 54 |.RAFIK AUSSCHALT|
00001C30: 45 4E 2C 20 D4 45 58 54 42 49 4C 44 53 43 48 49 |EN, .EXTBILDSCHI|
00001C40: 52 4D 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 54 |RM EINSCHALTEN.T|
00001C50: 24 20 0D 3B 00 81 24 2A 0D 20 CA 23 24 30 30 3B |$ .;..$*. .#$00;|
00001C60: 20 30 2E 20 DA 45 49 4C 45 2C 20 D5 4D 53 43 48 | 0. .EILE, .MSCH|
00001C70: 41 4C 54 55 4E 47 20 41 55 46 20 C7 52 41 46 49 |ALTUNG AUF .RAFI|
00001C80: 4B 00 A5 24 34 0D 20 D2 52 41 53 54 45 52 3B 20 |K..$4. .RASTER; |
00001C90: 49 4E 20 D2 45 47 49 53 54 45 52 20 53 43 48 52 |IN .EGISTER SCHR|
00001CA0: 45 49 42 45 4E 00 CA 24 3E 0D 20 CA 52 41 53 54 |EIBEN..$>. .RAST|
00001CB0: 45 52 2D 31 3B 20 4D 53 42 20 28 37 2E C2 49 54 |ER-1; MSB (7..IT|
00001CC0: 29 20 4C 4F 45 53 43 48 45 4E 00 D5 24 48 0D 20 |) LOESCHEN..$H. |
00001CD0: C6 23 24 37 46 00 E4 24 52 0D 20 D2 52 41 53 54 |.#$7F..$R. .RAST|
00001CE0: 45 52 2D 31 00 EA 24 5C 0D 3B 00 0C 25 66 0D 20 |ER-1..$\.;..%f. |
00001CF0: E7 3B 20 C9 4E 54 45 52 52 55 50 54 20 57 49 45 |.; .NTERRUPT WIE|
00001D00: 44 45 52 20 5A 55 4C 41 53 53 45 4E 00 33 25 70 |DER ZULASSEN.3%p|
00001D10: 0D 20 D5 45 4E 44 49 52 51 3B 20 5A 55 4D 20 C5 |. .ENDIRQ; ZUM .|
00001D20: 4E 44 45 20 44 45 52 20 C9 D2 D1 2D D2 4F 55 54 |NDE DER ...-.OUT|
00001D30: 49 4E 45 00 39 25 7A 0D 3B 00 71 25 84 0D 3B 2A |INE.9%z.;.q%..;*|
00001D40: 2A 2A 20 20 D2 41 53 54 45 52 5A 45 49 4C 45 4E |** .ASTERZEILEN|
00001D50: 49 4E 54 45 52 52 55 50 54 20 57 49 45 44 45 52 |INTERRUPT WIEDER|
00001D60: 20 41 55 53 53 43 48 41 4C 54 45 4E 20 20 2A 2A | AUSSCHALTEN **|
00001D70: 2A 00 77 25 8E 0D 3B 00 93 25 98 0D 49 41 20 E8 |*.w%..;..%..IA .|
00001D80: 3B 20 C9 4E 54 45 52 52 55 50 54 20 53 50 45 52 |; .NTERRUPT SPER|
00001D90: 52 45 4E 00 99 25 9D 0D 3B 00 BC 25 A2 0D 20 CA |REN..%..;..%.. .|
00001DA0: 23 24 30 30 3B 20 D2 41 53 54 45 52 20 C9 D2 D1 |#$00; .ASTER ...|
00001DB0: 20 41 55 53 53 43 48 41 4C 54 45 4E 00 E0 25 AC | AUSSCHALTEN..%.|
00001DC0: 0D 20 D2 52 49 52 51 45 4E 3B 20 49 4E 20 D2 45 |. .RIRQEN; IN .E|
00001DD0: 47 49 53 54 45 52 20 53 43 48 52 45 49 42 45 4E |GISTER SCHREIBEN|
00001DE0: 00 E6 25 B6 0D 3B 00 15 26 C0 0D 20 CA 23 3C 28 |..%..;..&.. .#<(|
00001DF0: 43 4E 54 49 52 51 29 3B 20 C9 D2 D1 2D D6 45 4B |CNTIRQ); ...-.EK|
00001E00: 54 4F 52 20 57 49 45 44 45 52 20 48 45 52 53 54 |TOR WIEDER HERST|
00001E10: 45 4C 4C 45 4E 00 24 26 CA 0D 20 D2 49 52 51 3B |ELLEN.$&.. .IRQ;|
00001E20: 20 4C 53 42 00 35 26 D4 0D 20 CA 23 3E 28 43 4E | LSB.5&.. .#>(CN|
00001E30: 54 49 52 51 29 00 46 26 DE 0D 20 D2 49 52 51 2B |TIRQ).F&.. .IRQ+|
00001E40: 31 3B 20 4D 53 42 00 4C 26 E8 0D 3B 00 64 26 F2 |1; MSB.L&..;.d&.|
00001E50: 0D 20 CA 23 31 3B 20 54 49 4D 45 52 2D 49 52 51 |. .#1; TIMER-IRQ|
00001E60: 20 45 49 4E 00 70 26 FC 0D 20 D2 24 44 43 30 45 | EIN.p&.. .$DC0E|
00001E70: 00 76 26 06 0E 3B 00 B0 26 10 0E 20 54 58 54 3B |.v&..;..&.. TXT;|
00001E80: 20 C7 52 41 46 49 4B 20 41 55 53 53 43 48 41 4C | .RAFIK AUSSCHAL|
00001E90: 54 45 4E 2C 20 D4 45 58 54 42 49 4C 44 53 43 48 |TEN, .EXTBILDSCH|
00001EA0: 49 52 4D 20 45 49 4E 53 43 48 41 4C 45 54 45 4E |IRM EINSCHALETEN|
00001EB0: 00 B6 26 1A 0E 3B 00 D8 26 24 0E 20 E7 3B 20 C9 |..&..;..&$. .; .|
00001EC0: 4E 54 45 52 52 55 50 54 20 57 49 45 44 45 52 20 |NTERRUPT WIEDER |
00001ED0: 5A 55 4C 41 53 53 45 4E 00 ED 26 2E 0E 20 E3 3B |ZULASSEN..&.. .;|
00001EE0: 20 D2 4F 55 54 49 4E 45 4E 45 4E 44 45 00 F3 26 | .OUTINENENDE..&|
00001EF0: 38 0E 3B 00 1A 27 A0 0F 3B 2A 2A 2A 2A 2A 2A 2A |8.;..'..;*******|
00001F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 27 AA 0F 3B |**********.A'..;|
00001F20: 2A 2A 2A 20 20 C7 52 41 46 49 4B 20 4C 4F 45 53 |*** .RAFIK LOES|
00001F30: 43 48 45 4E 20 20 20 20 20 20 20 20 20 20 2A 2A |CHEN **|
00001F40: 2A 00 68 27 B4 0F 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.h'..;*********|
00001F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F60: 2A 2A 2A 2A 2A 2A 2A 2A 00 6E 27 BE 0F 3B 00 A0 |********.n'..;..|
00001F70: 27 C8 0F 47 4C 20 CA 23 3E 28 42 49 54 4D 41 50 |'..GL .#>(BITMAP|
00001F80: 29 3B 20 C2 49 54 4D 41 50 41 44 52 45 53 53 45 |); .ITMAPADRESSE|
00001F90: 20 49 4E 20 DA D0 20 53 43 48 52 45 49 42 45 4E | IN .. SCHREIBEN|
00001FA0: 00 B1 27 D2 0F 20 D2 48 45 4C 50 32 3B 20 4D 53 |..'.. .HELP2; MS|
00001FB0: 42 00 C2 27 DC 0F 20 CA 23 3C 28 42 49 54 4D 41 |B..'.. .#<(BITMA|
00001FC0: 50 29 00 D3 27 E6 0F 20 D2 48 45 4C 50 31 3B 20 |P)..'.. .HELP1; |
00001FD0: 4C 53 42 00 D9 27 F0 0F 3B 00 06 28 FA 0F 20 C2 |LSB..'..;..(.. .|
00001FE0: 23 24 32 30 3B 20 41 45 55 53 53 45 52 45 52 20 |#$20; AEUSSERER |
00001FF0: D3 43 48 4C 45 49 46 45 4E 49 4E 44 45 58 2C 20 |.CHLEIFENINDEX, |
00002000: 33 32 20 4D 41 4C 00 37 28 04 10 47 4C 32 20 DA |32 MAL.7(..GL2 .|
00002010: 3B 20 49 4E 4E 45 52 45 52 20 D3 43 48 4C 45 49 |; INNERER .CHLEI|
00002020: 46 45 4E 49 4E 44 45 58 20 D9 20 41 55 46 20 30 |FENINDEX . AUF 0|
00002030: 20 53 45 54 5A 45 4E 00 68 28 0E 10 47 4C 31 20 | SETZEN.h(..GL1 |
00002040: D2 28 48 45 4C 50 31 29 2C 59 3B 20 CE 55 4C 4C |.(HELP1),Y; .ULL|
00002050: 42 59 54 45 20 49 4E 20 C2 49 54 4D 41 50 20 53 |BYTE IN .ITMAP S|
00002060: 43 48 52 45 49 42 45 4E 00 87 28 18 10 20 ED 3B |CHREIBEN..(.. .;|
00002070: 20 D9 20 2B 20 31 2C 20 49 4E 4E 45 52 45 20 D3 | . + 1, INNERE .|
00002080: 43 48 4C 45 49 46 45 00 9A 28 22 10 20 F6 47 4C |CHLEIFE..(". .GL|
00002090: 31 3B 20 3D 3E 20 D9 3C 3E 30 00 C7 28 2C 10 20 |1; => .<>0..(,. |
000020A0: C9 48 45 4C 50 32 3B 20 4D 53 42 20 44 45 52 20 |.HELP2; MSB DER |
000020B0: C2 49 54 4D 41 50 50 4F 53 49 54 49 4F 4E 20 45 |.ITMAPPOSITION E|
000020C0: 52 48 4F 45 48 45 4E 00 E8 28 36 10 20 EE 3B 20 |RHOEHEN..(6. .; |
000020D0: D8 20 2D 20 31 2C 20 41 45 55 53 53 45 52 45 20 |. - 1, AEUSSERE |
000020E0: D3 43 48 4C 45 49 46 45 00 FB 28 40 10 20 F6 47 |.CHLEIFE..(@. .G|
000020F0: 4C 32 3B 20 3D 3E 20 D8 3C 3E 30 00 01 29 4A 10 |L2; => .<>0..)J.|
00002100: 3B 00 2E 29 54 10 20 E3 3B 20 3D 3E 20 D8 3D 30 |;..)T. .; => .=0|
00002110: 2C 20 33 32 2A 32 35 36 20 D3 43 48 4C 45 49 46 |, 32*256 .CHLEIF|
00002120: 45 4E 44 55 52 43 48 4C 41 45 55 46 45 2C 00 59 |ENDURCHLAEUFE,.Y|
00002130: 29 5E 10 3B 20 20 20 20 20 20 20 20 20 20 20 20 |)^.; |
00002140: 20 20 20 20 20 20 20 29 20 20 20 20 20 D2 4F 55 | ) .OU|
00002150: 54 49 4E 45 4E 45 4E 44 45 00 5F 29 68 10 3B 00 |TINENENDE._)h.;.|
00002160: 86 29 88 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.)..;***********|
00002170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002180: 2A 2A 2A 2A 2A 2A 00 AD 29 92 13 3B 2A 2A 2A 20 |******..)..;*** |
00002190: 20 D3 45 54 20 D0 4F 49 4E 54 2C 20 C5 52 41 53 | .ET .OINT, .RAS|
000021A0: 45 20 D0 4F 49 4E 54 20 20 20 2A 2A 2A 00 D4 29 |E .OINT ***..)|
000021B0: 9C 13 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
000021C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021D0: 2A 2A 2A 2A 00 DA 29 A6 13 3B 00 F0 29 B0 13 3B |****..)..;..)..;|
000021E0: 2A 2A 2A 20 20 CC 41 42 45 4C 53 20 20 2A 2A 2A |*** .ABELS ***|
000021F0: 00 F6 29 BA 13 3B 00 15 2A C4 13 A3 42 41 4C 3D |..)..;..*...BAL=|
00002200: 24 46 39 3B 20 C2 59 54 45 2D C1 44 52 45 53 53 |$F9; .YTE-.DRESS|
00002210: 45 20 4C 4F 57 00 35 2A CE 13 A3 42 41 48 3D 24 |E LOW.5*...BAH=$|
00002220: 46 41 3B 20 C2 59 54 45 2D C1 44 52 45 53 53 45 |FA; .YTE-.DRESSE|
00002230: 20 48 49 47 48 00 52 2A D8 13 A3 59 57 45 52 54 | HIGH.R*...YWERT|
00002240: 3D 24 46 42 3B 20 59 2D CB 4F 4F 52 44 49 4E 41 |=$FB; Y-.OORDINA|
00002250: 54 45 00 74 2A E2 13 A3 58 57 45 52 54 4C 3D 24 |TE.t*...XWERTL=$|
00002260: 31 34 3B 20 58 2D CB 4F 4F 52 44 49 4E 41 54 45 |14; X-.OORDINATE|
00002270: 20 4C 4F 57 00 97 2A EC 13 A3 58 57 45 52 54 48 | LOW..*...XWERTH|
00002280: 3D 24 31 35 3B 20 58 2D CB 4F 4F 52 44 49 4E 41 |=$15; X-.OORDINA|
00002290: 54 45 20 48 49 47 48 00 C9 2A F6 13 A3 43 48 4B |TE HIGH..*...CHK|
000022A0: 43 4F 4D 3D 24 41 45 46 44 3B 20 41 55 46 20 CB |COM=$AEFD; AUF .|
000022B0: 4F 4D 4D 41 20 49 4D 20 C2 41 53 49 43 54 45 58 |OMMA IM .ASICTEX|
000022C0: 54 20 50 52 55 45 46 45 4E 00 00 2B 00 14 A3 47 |T PRUEFEN..+...G|
000022D0: 45 54 50 41 52 3D 24 42 37 45 42 3B 20 48 4F 4C |ETPAR=$B7EB; HOL|
000022E0: 54 20 31 36 2D C2 49 54 20 49 4E 54 45 47 45 52 |T 16-.IT INTEGER|
000022F0: 20 D7 45 52 54 20 49 4E 20 24 31 34 2F 24 31 35 | .ERT IN $14/$15|
00002300: 00 43 2B 0A 14 3B 20 20 20 20 20 20 20 20 20 20 |.C+..; |
00002310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 | U|
00002320: 4E 44 20 38 2D C2 49 54 20 49 4E 54 45 47 45 52 |ND 8-.IT INTEGER|
00002330: 20 D7 45 52 54 20 49 4E 20 D8 2D D2 45 47 49 53 | .ERT IN .-.EGIS|
00002340: 54 45 52 00 49 2B 14 14 3B 00 6A 2B 1E 14 3B 2A |TER.I+..;.j+..;*|
00002350: 2A 2A 20 20 CD 41 4B 52 4F 3A 20 C2 45 52 45 43 |** .AKRO: .EREC|
00002360: 48 4E 55 4E 47 20 20 2A 2A 2A 00 70 2B 28 14 3B |HNUNG ***.p+(.;|
00002370: 00 AA 2B 32 14 A1 43 41 4C 43 3B 20 C2 45 52 45 |..+2..CALC; .ERE|
00002380: 43 48 4E 55 4E 47 53 54 45 49 4C 20 46 55 45 52 |CHNUNGSTEIL FUER|
00002390: 20 D3 45 54 20 D0 4F 49 4E 54 20 55 4E 44 20 C5 | .ET .OINT UND .|
000023A0: 52 41 53 45 20 D0 4F 49 4E 54 00 C3 2B 3C 14 20 |RASE .OINT..+<. |
000023B0: CA 23 24 30 30 3B 20 42 41 4C 20 4C 4F 45 53 43 |.#$00; BAL LOESC|
000023C0: 48 45 4E 00 CD 2B 46 14 20 D2 42 41 4C 00 D3 2B |HEN..+F. .BAL..+|
000023D0: 50 14 3B 00 EA 2B 5A 14 20 CA 59 57 45 52 54 3B |P.;..+Z. .YWERT;|
000023E0: 20 59 20 49 4E 20 C1 4B 4B 55 00 F8 2B 64 14 20 | Y IN .KKU..+d. |
000023F0: CD 3B 20 5B 59 2F 38 5D 00 FF 2B 6E 14 20 CD 00 |.; [Y/8]..+n. ..|
00002400: 06 2C 78 14 20 CD 00 0C 2C 82 14 3B 00 35 2C 8C |.,x. ...,..;.5,.|
00002410: 14 20 D2 42 41 48 3B 20 C1 4B 4B 55 28 5B 59 2F |. .BAH; .KKU([Y/|
00002420: 38 5D 29 2A 35 20 3D 20 C1 4B 4B 55 2A 34 20 2B |8])*5 = .KKU*4 +|
00002430: 20 C1 4B 4B 55 00 3C 2C 96 14 20 CB 00 43 2C A0 | .KKU.<,.. ..C,.|
00002440: 14 20 CB 00 4D 2C AA 14 20 C5 42 41 48 00 53 2C |. ..M,.. .BAH.S,|
00002450: B4 14 3B 00 79 2C BE 14 20 CD 3B 20 C1 4B 4B 55 |..;.y,.. .; .KKU|
00002460: 28 35 2A 5B 59 2F 38 5D 29 2A 36 34 20 3D 20 C1 |(5*[Y/8])*64 = .|
00002470: 4B 4B 55 2A 32 35 36 2F 34 00 AC 2C C8 14 20 D0 |KKU*256/4..,.. .|
00002480: 42 41 4C 3B 20 3D 3E 20 4D 53 42 20 2D 3E 20 4C |BAL; => MSB -> L|
00002490: 53 42 20 55 4E 44 20 31 36 2D C2 49 54 20 C4 49 |SB UND 16-.IT .I|
000024A0: 56 49 53 49 4F 4E 20 4D 49 54 20 34 00 B3 2C D2 |VISION MIT 4..,.|
000024B0: 14 20 CD 00 BD 2C DC 14 20 D0 42 41 4C 00 C3 2C |. ...,.. .BAL..,|
000024C0: E6 14 3B 00 EA 2C F0 14 20 C5 23 3E 28 42 49 54 |..;..,.. .#>(BIT|
000024D0: 4D 41 50 29 3B 20 C2 49 54 4D 41 50 20 48 49 4E |MAP); .ITMAP HIN|
000024E0: 5A 55 41 44 44 49 45 52 45 4E 00 15 2D FA 14 20 |ZUADDIEREN..-.. |
000024F0: D2 42 41 48 3B 20 C1 4B 4B 55 28 33 32 30 2A 5B |.BAH; .KKU(320*[|
00002500: 59 2F 38 5D 2B 24 38 30 30 30 29 20 53 50 45 49 |Y/8]+$8000) SPEI|
00002510: 43 48 45 52 4E 00 1B 2D 04 15 3B 00 30 2D 0E 15 |CHERN..-..;.0-..|
00002520: 20 CA 58 57 45 52 54 4C 3B 20 4C 53 42 28 58 29 | .XWERTL; LSB(X)|
00002530: 00 44 2D 18 15 20 C6 23 24 46 38 3B 20 5B 58 2F |.D-.. .#$F8; [X/|
00002540: 38 5D 2A 38 00 4A 2D 22 15 3B 00 66 2D 2C 15 20 |8]*8.J-".;.f-,. |
00002550: C5 42 41 4C 3B 20 31 36 2D C2 49 54 20 C1 44 44 |.BAL; 16-.IT .DD|
00002560: 49 54 49 4F 4E 3A 00 89 2D 36 15 20 D2 42 41 4C |ITION:..-6. .BAL|
00002570: 3B 20 C1 4B 4B 55 28 5B 58 2F 38 5D 2A 38 29 20 |; .KKU([X/8]*8) |
00002580: 2B 20 42 41 4C 2F 42 41 48 00 9E 2D 40 15 20 CA |+ BAL/BAH..-@. .|
00002590: 58 57 45 52 54 48 3B 20 4D 53 42 28 58 29 00 C8 |XWERTH; MSB(X)..|
000025A0: 2D 4A 15 20 C5 42 41 48 3B 20 57 49 52 44 20 55 |-J. .BAH; WIRD U|
000025B0: 4E 56 45 52 41 45 4E 44 45 52 54 20 48 49 4E 5A |NVERAENDERT HINZ|
000025C0: 55 41 44 44 49 45 52 54 00 D2 2D 54 15 20 D2 42 |UADDIERT..-T. .B|
000025D0: 41 48 00 D8 2D 5E 15 3B 00 06 2E 68 15 20 CA 59 |AH..-^.;...h. .Y|
000025E0: 57 45 52 54 3B 20 59 2D 5B 59 2F 38 5D 2A 38 2C |WERT; Y-[Y/8]*8,|
000025F0: 20 D2 45 53 54 20 44 45 52 20 C4 49 56 49 53 49 | .EST DER .IVISI|
00002600: 4F 4E 20 59 2F 38 00 11 2E 72 15 20 C6 23 24 30 |ON Y/8...r. .#$0|
00002610: 37 00 17 2E 7C 15 3B 00 38 2E 86 15 20 DA 3B 20 |7...|.;.8... .; |
00002620: 41 4C 53 20 C9 4E 44 45 58 20 49 4E 20 D9 20 56 |ALS .NDEX IN . V|
00002630: 45 52 57 45 4E 44 45 4E 00 3E 2E 90 15 3B 00 53 |ERWENDEN.>...;.S|
00002640: 2E 9A 15 20 CA 58 57 45 52 54 4C 3B 20 4C 53 42 |... .XWERTL; LSB|
00002650: 28 58 29 00 7C 2E A4 15 20 C6 23 24 30 37 3B 20 |(X).|... .#$07; |
00002660: 58 2D 5B 58 2F 38 5D 2A 38 2C 20 45 52 47 49 42 |X-[X/8]*8, ERGIB|
00002670: 54 20 C2 49 54 2D CE 55 4D 4D 45 52 00 82 2E AE |T .IT-.UMMER....|
00002680: 15 3B 00 A3 2E B8 15 20 D8 3B 20 41 4C 53 20 C9 |.;..... .; ALS .|
00002690: 4E 44 45 58 20 49 4E 20 D8 20 56 45 52 57 45 4E |NDEX IN . VERWEN|
000026A0: 44 45 4E 00 A9 2E C2 15 A2 00 AF 2E CC 15 3B 00 |DEN...........;.|
000026B0: C8 2E D6 15 3B 2A 2A 2A 20 20 D3 45 54 20 D0 4F |....;*** .ET .O|
000026C0: 49 4E 54 20 20 2A 2A 2A 00 CE 2E E0 15 3B 00 F0 |INT ***.....;..|
000026D0: 2E EA 15 53 50 20 D6 43 48 4B 43 4F 4D 3B 20 41 |...SP .CHKCOM; A|
000026E0: 55 46 20 CB 4F 4D 4D 41 20 50 52 55 45 46 45 4E |UF .OMMA PRUEFEN|
000026F0: 00 0C 2F F4 15 20 D6 47 45 54 50 41 52 3B 20 58 |../.. .GETPAR; X|
00002700: 20 55 4E 44 20 59 20 48 4F 4C 45 4E 00 2E 2F FE | UND Y HOLEN../.|
00002710: 15 20 D3 59 57 45 52 54 3B 20 D8 28 58 29 20 49 |. .YWERT; .(X) I|
00002720: 4E 20 DA D0 20 53 43 48 52 45 49 42 45 4E 00 34 |N .. SCHREIBEN.4|
00002730: 2F 08 16 3B 00 59 2F 12 16 53 45 54 20 43 41 4C |/..;.Y/..SET CAL|
00002740: 43 3B 20 C2 59 54 45 20 55 4E 44 20 C2 49 54 20 |C; .YTE UND .IT |
00002750: 45 52 52 45 43 48 4E 45 4E 00 5F 2F 1C 16 3B 00 |ERRECHNEN._/..;.|
00002760: 84 2F 26 16 20 CA 50 4F 54 31 2C 58 3B 20 C2 59 |./&. .POT1,X; .Y|
00002770: 54 45 20 41 55 53 20 D4 41 42 45 4C 4C 45 20 4C |TE AUS .ABELLE L|
00002780: 45 53 45 4E 00 B3 2F 30 16 20 CE 28 42 41 4C 29 |ESEN../0. .(BAL)|
00002790: 2C 59 3B 20 C2 59 54 45 20 4D 49 54 20 C7 52 41 |,Y; .YTE MIT .RA|
000027A0: 46 49 4B 42 59 54 45 20 56 45 52 4B 4E 55 45 50 |FIKBYTE VERKNUEP|
000027B0: 46 45 4E 00 E5 2F 3A 16 20 D2 28 42 41 4C 29 2C |FEN../:. .(BAL),|
000027C0: 59 3B 20 56 45 52 4B 4E 55 45 50 46 54 45 53 20 |Y; VERKNUEPFTES |
000027D0: C2 59 54 45 20 5A 55 52 55 45 43 4B 53 43 48 52 |.YTE ZURUECKSCHR|
000027E0: 45 49 42 45 4E 00 EB 2F 44 16 3B 00 00 30 4E 16 |EIBEN../D.;..0N.|
000027F0: 20 E3 3B 20 D2 4F 55 54 49 4E 45 4E 45 4E 44 45 | .; .OUTINENENDE|
00002800: 00 06 30 58 16 3B 00 2E 30 62 16 3B 2A 2A 2A 20 |..0X.;..0b.;*** |
00002810: 20 D4 41 42 45 4C 4C 45 20 44 45 52 20 32 45 52 | .ABELLE DER 2ER|
00002820: 20 D0 4F 54 45 4E 5A 45 4E 20 20 2A 2A 2A 00 34 | .OTENZEN ***.4|
00002830: 30 6C 16 3B 00 4E 30 76 16 50 4F 54 31 20 A5 24 |0l.;.N0v.POT1 .$|
00002840: 38 30 2C 24 34 30 2C 24 32 30 2C 24 31 30 00 64 |80,$40,$20,$10.d|
00002850: 30 80 16 20 A5 24 30 38 2C 24 30 34 2C 24 30 32 |0.. .$08,$04,$02|
00002860: 2C 24 30 31 00 6A 30 8A 16 3B 00 70 30 94 16 3B |,$01.j0..;.p0..;|
00002870: 00 8B 30 9E 16 3B 2A 2A 2A 20 20 C5 52 41 53 45 |..0..;*** .RASE|
00002880: 20 D0 4F 49 4E 54 20 20 2A 2A 2A 00 91 30 A8 16 | .OINT ***..0..|
00002890: 3B 00 B3 30 B2 16 45 50 20 D6 43 48 4B 43 4F 4D |;..0..EP .CHKCOM|
000028A0: 3B 20 41 55 46 20 CB 4F 4D 4D 41 20 50 52 55 45 |; AUF .OMMA PRUE|
000028B0: 46 45 4E 00 CF 30 BC 16 20 D6 47 45 54 50 41 52 |FEN..0.. .GETPAR|
000028C0: 3B 20 58 20 55 4E 44 20 59 20 48 4F 4C 45 4E 00 |; X UND Y HOLEN.|
000028D0: F1 30 C6 16 20 D3 59 57 45 52 54 3B 20 D8 28 58 |.0.. .YWERT; .(X|
000028E0: 29 20 49 4E 20 DA D0 20 53 43 48 52 45 49 42 45 |) IN .. SCHREIBE|
000028F0: 4E 00 F7 30 D0 16 3B 00 19 31 DA 16 20 43 41 4C |N..0..;..1.. CAL|
00002900: 43 3B 20 C2 59 54 45 20 55 4E 44 20 C2 49 54 20 |C; .YTE UND .IT |
00002910: 45 52 52 45 43 48 4E 45 4E 00 1F 31 E4 16 3B 00 |ERRECHNEN..1..;.|
00002920: 44 31 EE 16 20 CA 50 4F 54 32 2C 58 3B 20 C2 59 |D1.. .POT2,X; .Y|
00002930: 54 45 20 41 55 53 20 D4 41 42 45 4C 4C 45 20 4C |TE AUS .ABELLE L|
00002940: 45 53 45 4E 00 73 31 F8 16 20 C6 28 42 41 4C 29 |ESEN.s1.. .(BAL)|
00002950: 2C 59 3B 20 C2 59 54 45 20 4D 49 54 20 C7 52 41 |,Y; .YTE MIT .RA|
00002960: 46 49 4B 42 59 54 45 20 56 45 52 4B 4E 55 45 50 |FIKBYTE VERKNUEP|
00002970: 46 45 4E 00 A5 31 02 17 20 D2 28 42 41 4C 29 2C |FEN..1.. .(BAL),|
00002980: 59 3B 20 56 45 52 4B 4E 55 45 50 46 54 45 53 20 |Y; VERKNUEPFTES |
00002990: C2 59 54 45 20 5A 55 52 55 45 43 4B 53 43 48 52 |.YTE ZURUECKSCHR|
000029A0: 45 49 42 45 4E 00 AB 31 0C 17 3B 00 C0 31 16 17 |EIBEN..1..;..1..|
000029B0: 20 E3 3B 20 D2 4F 55 54 49 4E 45 4E 45 4E 44 45 | .; .OUTINENENDE|
000029C0: 00 C6 31 20 17 3B 00 FF 31 2A 17 3B 2A 2A 2A 20 |..1 .;..1*.;*** |
000029D0: 20 D4 41 42 45 4C 4C 45 20 4D 49 54 20 44 45 4E | .ABELLE MIT DEN|
000029E0: 20 49 4E 56 45 52 54 49 45 52 54 45 4E 20 32 45 | INVERTIERTEN 2E|
000029F0: 52 20 D0 4F 54 45 4E 5A 45 4E 20 20 2A 2A 2A 00 |R .OTENZEN ***.|
00002A00: 05 32 34 17 3B 00 1F 32 3E 17 50 4F 54 32 20 A5 |.24.;..2>.POT2 .|
00002A10: 24 37 46 2C 24 42 46 2C 24 44 46 2C 24 45 46 00 |$7F,$BF,$DF,$EF.|
00002A20: 35 32 48 17 20 A5 24 46 37 2C 24 46 42 2C 24 46 |52H. .$F7,$FB,$F|
00002A30: 44 2C 24 46 45 00 3B 32 52 17 3B 00 62 32 58 1B |D,$FE.;2R.;.b2X.|
00002A40: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00002A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002A60: 2A 2A 00 89 32 62 1B 3B 2A 2A 2A 20 20 CC 49 4E |**..2b.;*** .IN|
00002A70: 45 2D D2 4F 55 54 49 4E 45 20 20 20 20 20 20 20 |E-.OUTINE |
00002A80: 20 20 20 20 20 20 2A 2A 2A 00 B0 32 6C 1B 3B 2A | ***..2l.;*|
00002A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002AB0: 00 B6 32 76 1B 3B 00 D5 32 80 1B 3B 2A 2A 2A 20 |..2v.;..2..;*** |
00002AC0: 20 D0 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E | .ARAMETER HOLEN|
00002AD0: 20 20 2A 2A 2A 00 DB 32 8A 1B 3B 00 FD 32 94 1B | ***..2..;..2..|
00002AE0: 4C 4E 20 D6 43 48 4B 43 4F 4D 3B 20 41 55 46 20 |LN .CHKCOM; AUF |
00002AF0: CB 4F 4D 4D 41 20 50 52 55 45 46 45 4E 00 1B 33 |.OMMA PRUEFEN..3|
00002B00: 9E 1B 20 D6 47 45 54 50 41 52 3B 20 58 31 20 55 |.. .GETPAR; X1 U|
00002B10: 4E 44 20 59 31 20 48 4F 4C 45 4E 00 21 33 A8 1B |ND Y1 HOLEN.!3..|
00002B20: 3B 00 3F 33 B2 1B 20 D3 59 57 45 52 54 3B 20 59 |;.?3.. .YWERT; Y|
00002B30: 31 20 49 4E 20 DA D0 20 41 42 4C 45 47 45 4E 00 |1 IN .. ABLEGEN.|
00002B40: 52 33 BC 1B 20 CA 24 31 34 3B 20 4C 53 42 28 58 |R3.. .$14; LSB(X|
00002B50: 31 29 00 6F 33 C6 1B 20 D2 58 31 4C 3B 20 5A 57 |1).o3.. .X1L; ZW|
00002B60: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 |ISCHENSPEICHERN.|
00002B70: 82 33 D0 1B 20 CA 24 31 35 3B 20 4D 53 42 28 58 |.3.. .$15; MSB(X|
00002B80: 31 29 00 9F 33 DA 1B 20 D2 58 31 48 3B 20 5A 57 |1)..3.. .X1H; ZW|
00002B90: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 |ISCHENSPEICHERN.|
00002BA0: A5 33 E4 1B 3B 00 C5 33 EE 1B 20 D6 43 48 4B 43 |.3..;..3.. .CHKC|
00002BB0: 4F 4D 3B 20 41 55 46 20 CB 4F 4D 4D 41 20 50 52 |OM; AUF .OMMA PR|
00002BC0: 55 45 46 45 4E 00 E3 33 F8 1B 20 D6 47 45 54 50 |UEFEN..3.. .GETP|
00002BD0: 41 52 3B 20 58 32 20 55 4E 44 20 59 32 20 48 4F |AR; X2 UND Y2 HO|
00002BE0: 4C 45 4E 00 E9 33 02 1C 3B 00 00 34 0C 1C 20 D3 |LEN..3..;..4.. .|
00002BF0: 59 32 3B 20 59 32 20 53 50 45 49 43 48 45 52 4E |Y2; Y2 SPEICHERN|
00002C00: 00 13 34 16 1C 20 CA 24 31 34 3B 20 4C 53 42 28 |..4.. .$14; LSB(|
00002C10: 58 32 29 00 28 34 20 1C 20 D2 58 32 4C 3B 20 53 |X2).(4 . .X2L; S|
00002C20: 50 45 49 43 48 45 52 4E 00 3B 34 2A 1C 20 CA 24 |PEICHERN.;4*. .$|
00002C30: 31 35 3B 20 4D 53 42 28 58 32 29 00 50 34 34 1C |15; MSB(X2).P44.|
00002C40: 20 D2 58 32 48 3B 20 53 50 45 49 43 48 45 52 4E | .X2H; SPEICHERN|
00002C50: 00 56 34 3E 1C 3B 00 8D 34 48 1C 20 CA 58 31 4C |.V4>.;..4H. .X1L|
00002C60: 3B 20 5A 57 49 53 43 48 45 4E 47 45 53 50 45 49 |; ZWISCHENGESPEI|
00002C70: 43 48 45 52 54 45 52 20 58 31 2D D7 45 52 54 20 |CHERTER X1-.ERT |
00002C80: 49 4E 20 DA D0 20 41 42 4C 45 47 45 4E 00 9F 34 |IN .. ABLEGEN..4|
00002C90: 52 1C 20 D2 58 57 45 52 54 4C 3B 20 4C 53 42 00 |R. .XWERTL; LSB.|
00002CA0: A9 34 5C 1C 20 CA 58 31 48 00 BB 34 66 1C 20 D2 |.4\. .X1H..4f. .|
00002CB0: 58 57 45 52 54 48 3B 20 4D 53 42 00 C1 34 70 1C |XWERTH; MSB..4p.|
00002CC0: 3B 00 DF 34 7A 1C 20 EA 3B 20 C4 45 5A 49 4D 41 |;..4z. .; .EZIMA|
00002CD0: 4C 4D 4F 44 55 53 20 4C 4F 45 53 43 48 45 4E 00 |LMODUS LOESCHEN.|
00002CE0: E5 34 84 1C 3B 00 0E 35 8E 1C 3B 2A 2A 2A 20 20 |.4..;..5..;*** |
00002CF0: C2 45 47 49 4E 4E 20 44 45 52 20 D3 54 52 55 4B |.EGINN DER .TRUK|
00002D00: 54 55 52 49 45 52 55 4E 47 20 20 2A 2A 2A 00 14 |TURIERUNG ***..|
00002D10: 35 98 1C 3B 00 3B 35 A2 1C 3B 2D 2D 2D 2D 2D 2D |5..;.;5..;------|
00002D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 41 35 AC 1C |-----------.A5..|
00002D40: 3B 00 56 35 B6 1C 20 E6 3B 20 44 58 20 3D 20 58 |;.V5.. .; DX = X|
00002D50: 32 20 2D 20 58 31 00 69 35 C0 1C 20 CA 58 32 4C |2 - X1.i5.. .X2L|
00002D60: 3B 20 4C 53 42 28 58 32 29 00 85 35 CA 1C 20 D1 |; LSB(X2)..5.. .|
00002D70: 58 57 45 52 54 4C 3B 20 4D 49 4E 55 53 20 4C 53 |XWERTL; MINUS LS|
00002D80: 42 28 58 31 29 00 9E 35 D4 1C 20 D2 44 58 3B 20 |B(X1)..5.. .DX; |
00002D90: C5 52 47 45 42 4E 49 53 20 49 4E 20 44 58 00 B1 |.RGEBNIS IN DX..|
00002DA0: 35 DE 1C 20 CA 58 32 48 3B 20 4D 53 42 28 58 32 |5.. .X2H; MSB(X2|
00002DB0: 29 00 CD 35 E8 1C 20 D1 58 57 45 52 54 48 3B 20 |)..5.. .XWERTH; |
00002DC0: 4D 49 4E 55 53 20 4D 53 42 28 58 31 29 00 F6 35 |MINUS MSB(X1)..5|
00002DD0: F2 1C 20 D2 44 58 2B 31 3B 20 C5 52 47 45 42 4E |.. .DX+1; .RGEBN|
00002DE0: 49 53 20 49 4E 20 44 58 2B 31 20 28 C8 49 47 48 |IS IN DX+1 (.IGH|
00002DF0: 2D C2 59 54 45 29 00 FC 35 FC 1C 3B 00 23 36 06 |-.YTE)..5..;.#6.|
00002E00: 1D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00002E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E20: 2D 2D 2D 00 29 36 10 1D 3B 00 61 36 1A 1D 20 F0 |---.)6..;.a6.. .|
00002E30: 4C 49 4E 45 31 3B 20 3D 3E 20 44 58 20 3E 20 30 |LINE1; => DX > 0|
00002E40: 2C 20 37 2E 20 C2 49 54 20 44 45 53 20 4D 53 42 |, 7. .IT DES MSB|
00002E50: 20 49 53 54 20 45 4E 54 53 43 48 45 49 44 45 4E | IST ENTSCHEIDEN|
00002E60: 44 00 67 36 24 1D 3B 00 8E 36 2E 1D 3B 2D 2D 2D |D.g6$.;..6..;---|
00002E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 94 |--------------..|
00002E90: 36 38 1D 3B 00 B7 36 42 1D 20 C8 23 24 46 46 3B |68.;..6B. .#$FF;|
00002EA0: 20 44 58 20 3D 20 2D 44 58 20 3D 20 4E 4F 54 28 | DX = -DX = NOT(|
00002EB0: 44 58 29 20 2B 20 31 00 DB 36 4C 1D 20 D2 44 58 |DX) + 1..6L. .DX|
00002EC0: 2B 31 3B 20 4E 4F 54 28 4D 53 42 28 44 58 29 29 |+1; NOT(MSB(DX))|
00002ED0: 2C 20 53 50 45 49 43 48 45 52 4E 00 E4 36 56 1D |, SPEICHERN..6V.|
00002EE0: 20 CA 44 58 00 FD 36 60 1D 20 C8 23 24 46 46 3B | .DX..6`. .#$FF;|
00002EF0: 20 4E 4F 54 28 4C 53 42 28 44 58 29 29 00 10 37 | NOT(LSB(DX))..7|
00002F00: 6A 1D 20 E5 3B 20 31 20 41 44 44 49 45 52 45 4E |j. .; 1 ADDIEREN|
00002F10: 00 32 37 74 1D 20 C5 23 24 30 31 3B 20 4C 53 42 |.27t. .#$01; LSB|
00002F20: 28 44 58 29 20 3D 20 4C 53 42 28 44 58 29 20 2B |(DX) = LSB(DX) +|
00002F30: 20 31 00 3B 37 7E 1D 20 D2 44 58 00 5C 37 88 1D | 1.;7~. .DX.\7..|
00002F40: 20 F4 4E 4F 54 49 4E 43 31 3B 20 3D 3E 20 4B 45 | .NOTINC1; => KE|
00002F50: 49 4E 20 D5 45 42 45 52 54 52 41 47 00 8C 37 92 |IN .EBERTRAG..7.|
00002F60: 1D 20 C9 44 58 2B 31 3B 20 42 45 49 20 D5 45 42 |. .DX+1; BEI .EB|
00002F70: 45 52 54 52 41 47 3A 20 4D 53 42 28 44 58 29 20 |ERTRAG: MSB(DX) |
00002F80: 3D 20 4D 53 42 28 44 58 29 20 2B 31 00 92 37 9C |= MSB(DX) +1..7.|
00002F90: 1D 3B 00 B7 37 A6 1D 4E 4F 54 49 4E 43 31 20 CA |.;..7..NOTINC1 .|
00002FA0: 23 24 46 46 3B 20 58 41 44 44 20 3D 20 2D 31 20 |#$FF; XADD = -1 |
00002FB0: 3D 20 24 46 46 46 46 00 C7 37 B0 1D 20 D2 58 41 |= $FFFF..7.. .XA|
00002FC0: 44 44 3B 20 4C 53 42 00 D9 37 BA 1D 20 D2 58 41 |DD; LSB..7.. .XA|
00002FD0: 44 44 2B 31 3B 20 4D 53 42 00 FA 37 C4 1D 20 D5 |DD+1; MSB..7.. .|
00002FE0: 4C 49 4E 45 32 3B 20 5A 55 4D 20 4E 41 45 43 48 |LINE2; ZUM NAECH|
00002FF0: 53 54 45 4E 20 C2 4C 4F 43 4B 00 00 38 CE 1D 3B |STEN .LOCK..8..;|
00003000: 00 27 38 D8 1D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.'8..;----------|
00003010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003020: 2D 2D 2D 2D 2D 2D 2D 00 2D 38 E2 1D 3B 00 50 38 |-------.-8..;.P8|
00003030: EC 1D 4C 49 4E 45 31 20 CA 23 24 30 31 3B 20 58 |..LINE1 .#$01; X|
00003040: 41 44 44 20 3D 20 2B 31 20 3D 20 24 30 30 30 31 |ADD = +1 = $0001|
00003050: 00 60 38 F6 1D 20 D2 58 41 44 44 3B 20 4C 53 42 |.`8.. .XADD; LSB|
00003060: 00 6B 38 00 1E 20 CA 23 24 30 30 00 7D 38 0A 1E |.k8.. .#$00.}8..|
00003070: 20 D2 58 41 44 44 2B 31 3B 20 4D 53 42 00 83 38 | .XADD+1; MSB..8|
00003080: 14 1E 3B 00 AA 38 1E 1E 3B 2D 2D 2D 2D 2D 2D 2D |..;..8..;-------|
00003090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000030A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B0 38 28 1E 3B |----------..8(.;|
000030B0: 00 CE 38 32 1E 4C 49 4E 45 32 20 CA 44 58 2B 31 |..82.LINE2 .DX+1|
000030C0: 3B 20 49 53 54 20 44 58 20 3D 20 30 20 3F 00 E6 |; IST DX = 0 ?..|
000030D0: 38 3C 1E 20 F6 4C 49 4E 45 33 3B 20 3D 3E 20 44 |8<. .LINE3; => D|
000030E0: 58 20 3C 3E 20 30 00 EF 38 46 1E 20 CA 44 58 00 |X <> 0..8F. .DX.|
000030F0: 07 39 50 1E 20 F6 4C 49 4E 45 33 3B 20 3D 3E 20 |.9P. .LINE3; => |
00003100: 44 58 20 3C 3E 20 30 00 0D 39 5A 1E 3B 00 34 39 |DX <> 0..9Z.;.49|
00003110: 64 1E 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |d.;-------------|
00003120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003130: 2D 2D 2D 2D 00 3A 39 6E 1E 3B 00 55 39 78 1E 20 |----.:9n.;.U9x. |
00003140: CA 23 24 30 30 3B 20 52 45 53 54 20 3D 20 30 20 |.#$00; REST = 0 |
00003150: 3D 20 24 30 30 00 65 39 82 1E 20 D2 52 45 53 54 |= $00.e9.. .REST|
00003160: 3B 20 4C 53 42 00 77 39 8C 1E 20 D2 52 45 53 54 |; LSB.w9.. .REST|
00003170: 2B 31 3B 20 4D 53 42 00 98 39 96 1E 20 D5 4C 49 |+1; MSB..9.. .LI|
00003180: 4E 45 34 3B 20 5A 55 4D 20 4E 41 45 43 48 53 54 |NE4; ZUM NAECHST|
00003190: 45 4E 20 C2 4C 4F 43 4B 00 9E 39 A0 1E 3B 00 C5 |EN .LOCK..9..;..|
000031A0: 39 AA 1E 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |9..;------------|
000031B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000031C0: 2D 2D 2D 2D 2D 00 CB 39 B4 1E 3B 00 EE 39 BE 1E |-----..9..;..9..|
000031D0: 4C 49 4E 45 33 20 CA 23 24 46 46 3B 20 52 45 53 |LINE3 .#$FF; RES|
000031E0: 54 20 3D 20 2D 31 20 3D 20 24 46 46 46 46 00 FE |T = -1 = $FFFF..|
000031F0: 39 C8 1E 20 D2 52 45 53 54 3B 20 4C 53 42 00 10 |9.. .REST; LSB..|
00003200: 3A D2 1E 20 D2 52 45 53 54 2B 31 3B 20 4D 53 42 |:.. .REST+1; MSB|
00003210: 00 16 3A DC 1E 3B 00 3D 3A E6 1E 3B 2D 2D 2D 2D |..:..;.=:..;----|
00003220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 43 3A |-------------.C:|
00003240: F0 1E 3B 00 5D 3A FA 1E 4C 49 4E 45 34 20 E6 3B |..;.]:..LINE4 .;|
00003250: 20 44 59 20 3D 20 59 32 20 2D 20 59 31 00 6F 3A | DY = Y2 - Y1.o:|
00003260: 04 1F 20 CA 59 32 3B 20 4C 53 42 28 59 32 29 00 |.. .Y2; LSB(Y2).|
00003270: 88 3A 0E 1F 20 D1 59 57 45 52 54 3B 20 4D 49 4E |.:.. .YWERT; MIN|
00003280: 55 53 20 59 57 45 52 54 00 9C 3A 18 1F 20 D2 44 |US YWERT..:.. .D|
00003290: 59 3B 20 53 50 45 49 43 48 45 52 4E 00 B4 3A 22 |Y; SPEICHERN..:"|
000032A0: 1F 20 CA 23 24 30 30 3B 20 4D 53 42 28 59 32 29 |. .#$00; MSB(Y2)|
000032B0: 20 3D 20 30 00 C8 3A 2C 1F 20 D1 23 24 30 30 3B | = 0..:,. .#$00;|
000032C0: 20 4D 49 4E 55 53 20 30 00 DE 3A 36 1F 20 D2 44 | MINUS 0..:6. .D|
000032D0: 59 2B 31 3B 20 53 50 45 49 43 48 45 52 4E 00 E4 |Y+1; SPEICHERN..|
000032E0: 3A 40 1F 3B 00 0B 3B 4A 1F 3B 2D 2D 2D 2D 2D 2D |:@.;..;J.;------|
000032F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 11 3B 54 1F |-----------..;T.|
00003310: 3B 00 49 3B 5E 1F 20 F0 4C 49 4E 45 35 3B 20 3D |;.I;^. .LINE5; =|
00003320: 3E 20 44 59 20 3E 20 30 20 3B 20 37 2E C2 49 54 |> DY > 0 ; 7..IT|
00003330: 20 44 45 53 20 4D 53 42 20 49 53 54 20 45 4E 54 | DES MSB IST ENT|
00003340: 53 43 48 45 49 44 45 4E 54 00 4F 3B 68 1F 3B 00 |SCHEIDENT.O;h.;.|
00003350: 76 3B 72 1F 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |v;r.;-----------|
00003360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003370: 2D 2D 2D 2D 2D 2D 00 7C 3B 7C 1F 3B 00 9F 3B 86 |------.|;|.;..;.|
00003380: 1F 20 C8 23 24 46 46 3B 20 44 59 20 3D 20 2D 44 |. .#$FF; DY = -D|
00003390: 59 20 3D 20 4E 4F 54 28 44 59 29 20 2B 20 31 00 |Y = NOT(DY) + 1.|
000033A0: C3 3B 90 1F 20 D2 44 59 2B 31 3B 20 4E 4F 54 28 |.;.. .DY+1; NOT(|
000033B0: 4D 53 42 28 44 59 29 29 2C 20 53 50 45 49 43 48 |MSB(DY)), SPEICH|
000033C0: 45 52 4E 00 CC 3B 9A 1F 20 CA 44 59 00 E5 3B A4 |ERN..;.. .DY..;.|
000033D0: 1F 20 C8 23 24 46 46 3B 20 4E 4F 54 28 4C 53 42 |. .#$FF; NOT(LSB|
000033E0: 28 44 59 29 29 00 F8 3B AE 1F 20 E5 3B 20 31 20 |(DY))..;.. .; 1 |
000033F0: 41 44 44 49 45 52 45 4E 00 04 3C B8 1F 20 C5 23 |ADDIEREN..<.. .#|
00003400: 24 30 31 3B 00 18 3C C2 1F 20 D2 44 59 3B 20 53 |$01;..<.. .DY; S|
00003410: 50 45 49 43 48 45 52 4E 00 39 3C CC 1F 20 F4 4E |PEICHERN.9<.. .N|
00003420: 4F 54 49 4E 43 32 3B 20 3D 3E 20 4B 45 49 4E 20 |OTINC2; => KEIN |
00003430: D5 45 42 45 52 54 52 41 47 00 68 3C D6 1F 20 C9 |.EBERTRAG.h<.. .|
00003440: 44 59 2B 31 3B 20 D5 45 42 45 52 54 52 41 47 20 |DY+1; .EBERTRAG |
00003450: 3D 3E 20 4D 53 42 28 44 59 29 20 3D 20 4D 53 42 |=> MSB(DY) = MSB|
00003460: 28 44 59 29 20 2B 20 31 00 6E 3C E0 1F 3B 00 91 |(DY) + 1.n<..;..|
00003470: 3C EA 1F 4E 4F 54 49 4E 43 32 20 CA 23 24 46 46 |<..NOTINC2 .#$FF|
00003480: 3B 20 59 41 44 44 20 3D 20 2D 31 20 3D 20 24 46 |; YADD = -1 = $F|
00003490: 46 00 A7 3C F4 1F 20 D2 59 41 44 44 3B 20 53 50 |F..<.. .YADD; SP|
000034A0: 45 49 43 48 45 52 4E 00 C8 3C FE 1F 20 D5 4C 49 |EICHERN..<.. .LI|
000034B0: 4E 45 36 3B 20 5A 55 4D 20 4E 41 45 43 48 53 54 |NE6; ZUM NAECHST|
000034C0: 45 4E 20 C2 4C 4F 43 4B 00 CE 3C 08 20 3B 00 F5 |EN .LOCK..<. ;..|
000034D0: 3C 12 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |<. ;------------|
000034E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000034F0: 2D 2D 2D 2D 2D 00 FB 3C 1C 20 3B 00 16 3D 26 20 |-----..<. ;..=& |
00003500: 4C 49 4E 45 35 20 CA 23 24 30 31 3B 20 59 41 44 |LINE5 .#$01; YAD|
00003510: 44 20 3D 20 2B 31 00 2C 3D 30 20 20 D2 59 41 44 |D = +1.,=0 .YAD|
00003520: 44 3B 41 53 50 45 49 43 48 45 52 4E 00 32 3D 3A |D;ASPEICHERN.2=:|
00003530: 20 3B 00 59 3D 44 20 3B 2D 2D 2D 2D 2D 2D 2D 2D | ;.Y=D ;--------|
00003540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 5F 3D 4E 20 3B 00 |---------._=N ;.|
00003560: 7E 3D 58 20 4C 49 4E 45 36 20 CA 44 59 2B 31 3B |~=X LINE6 .DY+1;|
00003570: 20 49 53 54 20 44 58 20 3E 20 44 59 20 3F 00 98 | IST DX > DY ?..|
00003580: 3D 62 20 20 C4 44 58 2B 31 3B 20 4D 53 42 20 D6 |=b .DX+1; MSB .|
00003590: 45 52 47 4C 45 49 43 48 00 B0 3D 6C 20 20 F4 4C |ERGLEICH..=l .L|
000035A0: 49 4E 45 37 3B 20 3D 3E 20 44 58 20 3E 20 44 59 |INE7; => DX > DY|
000035B0: 00 B9 3D 76 20 20 CA 44 59 00 D1 3D 80 20 20 C4 |..=v .DY..=. .|
000035C0: 44 58 3B 20 4C 53 42 20 D6 45 52 47 4C 45 49 43 |DX; LSB .ERGLEIC|
000035D0: 48 00 E9 3D 8A 20 20 F4 4C 49 4E 45 37 3B 20 3D |H..=. .LINE7; =|
000035E0: 3E 20 44 58 20 3E 20 44 59 00 EF 3D 94 20 3B 00 |> DX > DY..=. ;.|
000035F0: 16 3E 9E 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.>. ;-----------|
00003600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003610: 2D 2D 2D 2D 2D 2D 00 1C 3E A8 20 3B 00 37 3E B2 |------..>. ;.7>.|
00003620: 20 20 CA 23 24 46 46 3B 20 4C 49 4E 20 3D 20 2D | .#$FF; LIN = -|
00003630: 31 20 3D 20 24 46 46 00 4C 3E BC 20 20 D2 4C 49 |1 = $FF.L>. .LI|
00003640: 4E 3B 20 53 50 45 49 43 48 45 52 4E 00 6D 3E C6 |N; SPEICHERN.m>.|
00003650: 20 20 D5 4C 49 4E 45 38 3B 20 5A 55 4D 20 4E 41 | .LINE8; ZUM NA|
00003660: 45 43 48 53 54 45 4E 20 C2 4C 4F 43 4B 00 73 3E |ECHSTEN .LOCK.s>|
00003670: D0 20 3B 00 9A 3E DA 20 3B 2D 2D 2D 2D 2D 2D 2D |. ;..>. ;-------|
00003680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A0 3E E4 20 3B |----------..>. ;|
000036A0: 00 C0 3E EE 20 4C 49 4E 45 37 20 CA 23 24 30 31 |..>. LINE7 .#$01|
000036B0: 3B 20 4C 49 4E 20 3D 20 2B 31 20 3D 20 24 30 31 |; LIN = +1 = $01|
000036C0: 00 D5 3E F8 20 20 D2 4C 49 4E 3B 20 53 50 45 49 |..>. .LIN; SPEI|
000036D0: 43 48 45 52 4E 00 DB 3E 02 21 3B 00 02 3F 0C 21 |CHERN..>.!;..?.!|
000036E0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------|
000036F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003700: 2D 2D 00 08 3F 16 21 3B 00 25 3F 20 21 4C 49 4E |--..?.!;.%? !LIN|
00003710: 45 38 20 D6 53 45 54 3B 20 D0 55 4E 4B 54 20 53 |E8 .SET; .UNKT S|
00003720: 45 54 5A 45 4E 00 2B 3F 2A 21 3B 00 52 3F 34 21 |ETZEN.+?*!;.R?4!|
00003730: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------|
00003740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003750: 2D 2D 00 58 3F 3E 21 3B 00 78 3F 48 21 4C 49 4E |--.X?>!;.x?H!LIN|
00003760: 45 39 20 CA 59 57 45 52 54 3B 20 49 53 54 20 59 |E9 .YWERT; IST Y|
00003770: 31 20 3D 20 59 32 20 3F 00 8E 3F 52 21 20 C4 59 |1 = Y2 ?..?R! .Y|
00003780: 32 3B 20 56 45 52 47 4C 45 49 43 48 45 4E 00 A8 |2; VERGLEICHEN..|
00003790: 3F 5C 21 20 F6 4C 49 4E 45 31 30 3B 20 3D 3E 20 |?\! .LINE10; => |
000037A0: 59 31 20 3C 3E 20 59 32 00 C4 3F 66 21 20 CA 58 |Y1 <> Y2..?f! .X|
000037B0: 57 45 52 54 4C 3B 20 49 53 54 20 58 31 20 3D 20 |WERTL; IST X1 = |
000037C0: 58 32 20 3F 00 EF 3F 70 21 20 C4 58 32 4C 3B 20 |X2 ?..?p! .X2L; |
000037D0: 4C 53 42 28 58 31 29 20 4D 49 54 20 4C 53 42 28 |LSB(X1) MIT LSB(|
000037E0: 58 32 29 20 56 45 52 47 4C 45 49 43 48 45 4E 00 |X2) VERGLEICHEN.|
000037F0: 09 40 7A 21 20 F6 4C 49 4E 45 31 30 3B 20 3D 3E |.@z! .LINE10; =>|
00003800: 20 58 31 20 3C 3E 20 58 32 00 16 40 84 21 20 CA | X1 <> X2..@.! .|
00003810: 58 57 45 52 54 48 00 41 40 8E 21 20 C4 58 32 48 |XWERTH.A@.! .X2H|
00003820: 3B 20 4D 53 42 28 58 31 29 20 4D 49 54 20 4D 53 |; MSB(X1) MIT MS|
00003830: 42 28 58 32 29 20 56 45 52 47 4C 45 49 43 48 45 |B(X2) VERGLEICHE|
00003840: 4E 00 5B 40 98 21 20 F6 4C 49 4E 45 31 30 3B 20 |N.[@.! .LINE10; |
00003850: 3D 3E 20 58 31 20 3C 3E 20 58 32 00 61 40 A2 21 |=> X1 <> X2.a@.!|
00003860: 3B 00 88 40 AC 21 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |;..@.!;---------|
00003870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003880: 2D 2D 2D 2D 2D 2D 2D 2D 00 8E 40 B6 21 3B 00 B2 |--------..@.!;..|
00003890: 40 C0 21 20 E3 3B 20 59 31 20 3D 20 59 32 20 55 |@.! .; Y1 = Y2 U|
000038A0: 4E 44 20 58 31 20 3D 20 58 32 20 3D 3E 20 C5 4E |ND X1 = X2 => .N|
000038B0: 44 45 00 B8 40 CA 21 3B 00 DF 40 D4 21 3B 2D 2D |DE..@.!;..@.!;--|
000038C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000038D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000038E0: E5 40 DE 21 3B 00 14 41 E8 21 4C 49 4E 45 31 30 |.@.!;..A.!LINE10|
000038F0: 20 CA 52 45 53 54 2B 31 3B 20 4D 53 42 28 52 45 | .REST+1; MSB(RE|
00003900: 53 54 29 20 2C 20 49 53 54 20 52 45 53 54 20 3C |ST) , IST REST <|
00003910: 20 30 20 3F 00 47 41 F2 21 20 F1 5A 57 45 49 47 | 0 ?.GA.! .ZWEIG|
00003920: 31 3B 20 3D 3E 20 37 2E C2 49 54 20 44 45 53 20 |1; => 7..IT DES |
00003930: 4D 53 42 20 47 45 53 45 54 5A 54 20 3D 3E 20 52 |MSB GESETZT => R|
00003940: 45 53 54 20 3C 20 30 00 4D 41 FC 21 3B 00 74 41 |EST < 0.MA.!;.tA|
00003950: 06 22 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.";-------------|
00003960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003970: 2D 2D 2D 2D 00 7A 41 10 22 3B 00 A6 41 1A 22 5A |----.zA.";..A."Z|
00003980: 57 45 49 47 32 20 E6 3B 20 52 45 53 54 20 3E 3D |WEIG2 .; REST >=|
00003990: 20 30 20 3D 3E A0 52 45 53 54 20 3D 20 52 45 53 | 0 =>.REST = RES|
000039A0: 54 20 2D 20 44 58 00 BC 41 24 22 20 CA 52 45 53 |T - DX..A$" .RES|
000039B0: 54 3B 20 4C 53 42 28 52 45 53 54 29 00 D4 41 2E |T; LSB(REST)..A.|
000039C0: 22 20 D1 44 58 3B 20 4D 49 4E 55 53 20 4C 53 42 |" .DX; MINUS LSB|
000039D0: 28 44 58 29 00 EA 41 38 22 20 D2 52 45 53 54 3B |(DX)..A8" .REST;|
000039E0: 20 53 50 45 49 43 48 45 52 4E 00 02 42 42 22 20 | SPEICHERN..BB" |
000039F0: CA 52 45 53 54 2B 31 3B 20 4D 53 42 28 52 45 53 |.REST+1; MSB(RES|
00003A00: 54 29 00 1C 42 4C 22 20 D1 44 58 2B 31 3B 20 4D |T)..BL" .DX+1; M|
00003A10: 49 4E 55 53 20 4D 53 42 28 44 58 29 00 34 42 56 |INUS MSB(DX).4BV|
00003A20: 22 20 D2 52 45 53 54 2B 31 3B 20 53 50 45 49 43 |" .REST+1; SPEIC|
00003A30: 48 45 52 4E 00 3A 42 60 22 3B 00 51 42 6A 22 20 |HERN.:B`";.QBj" |
00003A40: E5 3B 20 59 31 20 3D 20 59 31 20 2B 20 59 41 44 |.; Y1 = Y1 + YAD|
00003A50: 44 00 61 42 74 22 20 CA 59 57 45 52 54 3B 20 59 |D.aBt" .YWERT; Y|
00003A60: 31 00 7B 42 7E 22 20 C5 59 41 44 44 3B 20 59 41 |1.{B~" .YADD; YA|
00003A70: 44 44 20 41 44 44 49 45 52 45 4E 00 92 42 88 22 |DD ADDIEREN..B."|
00003A80: 20 D2 59 57 45 52 54 3B 20 53 50 45 49 43 48 45 | .YWERT; SPEICHE|
00003A90: 52 4E 00 98 42 92 22 3B 00 BF 42 9C 22 3B 2D 2D |RN..B.";..B.";--|
00003AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00003AC0: C5 42 A6 22 3B 00 DE 42 B0 22 20 CA 4C 49 4E 3B |.B.";..B." .LIN;|
00003AD0: 20 49 53 54 20 4C 49 4E 20 3E 20 30 20 3F 00 06 | IST LIN > 0 ?..|
00003AE0: 43 BA 22 20 F1 4C 49 4E 45 38 3B 20 3D 3E 20 4C |C." .LINE8; => L|
00003AF0: 49 4E 20 3C 20 30 20 3D 3E 20 D0 55 4E 4B 54 20 |IN < 0 => .UNKT |
00003B00: 53 45 54 5A 45 4E 00 20 43 C4 22 20 D5 4C 49 4E |SETZEN. C." .LIN|
00003B10: 45 39 3B 20 3D 3E 20 4C 49 4E 45 20 3D 3E 20 30 |E9; => LINE => 0|
00003B20: 00 26 43 CE 22 3B 00 4D 43 D8 22 3B 2D 2D 2D 2D |.&C.";.MC.";----|
00003B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 53 43 |-------------.SC|
00003B50: E2 22 3B 00 72 43 EC 22 5A 57 45 49 47 31 20 E5 |.";.rC."ZWEIG1 .|
00003B60: 3B 20 52 45 53 54 20 3D 20 52 45 53 54 20 2B 20 |; REST = REST + |
00003B70: 44 59 00 88 43 F6 22 20 CA 52 45 53 54 3B 20 4C |DY..C." .REST; L|
00003B80: 53 42 28 52 45 53 54 29 00 A3 43 00 23 20 C5 44 |SB(REST)..C.# .D|
00003B90: 59 3B 20 4C 53 42 28 44 59 29 20 41 44 44 49 45 |Y; LSB(DY) ADDIE|
00003BA0: 52 45 4E 00 B9 43 0A 23 20 D2 52 45 53 54 3B 20 |REN..C.# .REST; |
00003BB0: 53 50 45 49 43 48 45 52 4E 00 D1 43 14 23 20 CA |SPEICHERN..C.# .|
00003BC0: 52 45 53 54 2B 31 3B 20 4D 53 42 28 52 45 53 54 |REST+1; MSB(REST|
00003BD0: 29 00 EE 43 1E 23 20 C5 44 59 2B 31 3B 20 4D 53 |)..C.# .DY+1; MS|
00003BE0: 42 28 44 59 29 20 41 44 44 49 45 52 45 4E 00 06 |B(DY) ADDIEREN..|
00003BF0: 44 28 23 20 D2 52 45 53 54 2B 31 3B 20 53 50 45 |D(# .REST+1; SPE|
00003C00: 49 43 48 45 52 4E 00 0C 44 32 23 3B 00 23 44 3C |ICHERN..D2#;.#D<|
00003C10: 23 20 E5 3B 20 58 31 20 3D 20 58 31 20 2B 20 58 |# .; X1 = X1 + X|
00003C20: 41 44 44 00 39 44 46 23 20 CA 58 57 45 52 54 4C |ADD.9DF# .XWERTL|
00003C30: 3B 20 4C 53 42 28 58 31 29 00 58 44 50 23 20 C5 |; LSB(X1).XDP# .|
00003C40: 58 41 44 44 3B 20 4C 53 42 28 58 41 44 44 29 20 |XADD; LSB(XADD) |
00003C50: 41 44 44 49 45 52 45 4E 00 70 44 5A 23 20 D2 58 |ADDIEREN.pDZ# .X|
00003C60: 57 45 52 54 4C 3B 20 53 50 45 49 43 48 45 52 4E |WERTL; SPEICHERN|
00003C70: 00 86 44 64 23 20 CA 58 57 45 52 54 48 3B 20 4D |..Dd# .XWERTH; M|
00003C80: 53 42 28 58 31 29 00 A7 44 6E 23 20 C5 58 41 44 |SB(X1)..Dn# .XAD|
00003C90: 44 2B 31 3B 20 4D 53 42 28 58 41 44 44 29 20 41 |D+1; MSB(XADD) A|
00003CA0: 44 44 49 45 52 45 4E 00 BF 44 78 23 20 D2 58 57 |DDIEREN..Dx# .XW|
00003CB0: 45 52 54 48 3B 20 53 50 45 49 43 48 45 52 4E 00 |ERTH; SPEICHERN.|
00003CC0: C5 44 82 23 3B 00 EC 44 8C 23 3B 2D 2D 2D 2D 2D |.D.#;..D.#;-----|
00003CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 F2 44 96 |------------..D.|
00003CF0: 23 3B 00 0B 45 A0 23 20 CA 4C 49 4E 3B 20 49 53 |#;..E.# .LIN; IS|
00003D00: 54 20 4C 49 4E 20 3C 20 30 20 3F 00 23 45 AA 23 |T LIN < 0 ?.#E.#|
00003D10: 20 F1 4C 49 4E 45 39 3B 20 3D 3E 20 4C 49 4E 20 | .LINE9; => LIN |
00003D20: 3C 20 30 00 49 45 B4 23 20 D5 4C 49 4E 45 38 3B |< 0.IE.# .LINE8;|
00003D30: 20 3D 3E 20 4C 49 4E 20 3E 3D 20 30 20 3D 3E 20 | => LIN >= 0 => |
00003D40: 53 45 54 20 50 4F 49 4E 54 00 4F 45 BE 23 3B 00 |SET POINT.OE.#;.|
00003D50: 76 45 C8 23 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |vE.#;-----------|
00003D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003D70: 2D 2D 2D 2D 2D 2D 00 7C 45 D2 23 3B 00 9C 45 DC |------.|E.#;..E.|
00003D80: 23 3B 2A 2A 2A 20 20 D3 50 45 49 43 48 45 52 41 |#;*** .PEICHERA|
00003D90: 44 52 45 53 53 45 4E 20 20 2A 2A 2A 00 A2 45 E6 |DRESSEN ***..E.|
00003DA0: 23 3B 00 C9 45 F0 23 58 31 4C 20 A5 24 30 30 3B |#;..E.#X1L .$00;|
00003DB0: 20 4C 53 42 28 58 31 29 20 DA 57 49 53 43 48 45 | LSB(X1) .WISCHE|
00003DC0: 4E 53 50 45 49 43 48 45 52 00 F0 45 FA 23 58 31 |NSPEICHER..E.#X1|
00003DD0: 48 20 A5 24 30 30 3B 20 4D 53 42 28 58 31 29 20 |H .$00; MSB(X1) |
00003DE0: DA 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 |.WISCHENSPEICHER|
00003DF0: 00 11 46 04 24 59 31 20 A5 24 30 30 3B 20 59 31 |..F.$Y1 .$00; Y1|
00003E00: 20 DA 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 | .WISCHENSPEICHE|
00003E10: 52 00 27 46 0E 24 58 32 4C 20 A5 24 30 30 3B 20 |R.'F.$X2L .$00; |
00003E20: 4C 53 42 28 58 32 29 00 3D 46 18 24 58 32 48 20 |LSB(X2).=F.$X2H |
00003E30: A5 24 30 30 3B 20 4D 53 42 28 58 32 29 00 4D 46 |.$00; MSB(X2).MF|
00003E40: 22 24 59 32 20 A5 24 30 30 3B 20 59 32 00 65 46 |"$Y2 .$00; Y2.eF|
00003E50: 2C 24 52 45 53 54 20 A5 24 30 30 2C 24 30 30 3B |,$REST .$00,$00;|
00003E60: 20 D2 45 53 54 00 82 46 36 24 4C 49 4E 20 A5 24 | .EST..F6$LIN .$|
00003E70: 30 30 2C 24 30 30 3B 20 DA 45 49 47 45 52 20 4C |00,$00; .EIGER L|
00003E80: 49 4E 00 A0 46 40 24 44 58 20 A5 24 30 30 2C 24 |IN..F@$DX .$00,$|
00003E90: 30 30 3B 20 44 58 20 3D 20 58 32 20 2D 20 58 31 |00; DX = X2 - X1|
00003EA0: 00 BE 46 4A 24 44 59 20 A5 24 30 30 2C 24 30 30 |..FJ$DY .$00,$00|
00003EB0: 3B 20 44 59 20 3D 20 59 32 20 2D 20 59 31 00 DF |; DY = Y2 - Y1..|
00003EC0: 46 54 24 58 41 44 44 20 A5 24 30 30 2C 24 30 30 |FT$XADD .$00,$00|
00003ED0: 3B 20 58 20 53 54 45 50 3A 20 2B 31 2F 2D 31 00 |; X STEP: +1/-1.|
00003EE0: 00 47 5E 24 59 41 44 44 20 A5 24 30 30 2C 24 30 |.G^$YADD .$00,$0|
00003EF0: 30 3B 20 59 20 53 54 45 50 3A 20 2B 31 2F 2D 31 |0; Y STEP: +1/-1|
00003F00: 00 06 47 68 24 3B 00 2D 47 10 27 3B 2A 2A 2A 2A |..Gh$;.-G.';****|
00003F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 47 |*************.TG|
00003F30: 1A 27 3B 2A 2A 2A 20 20 C3 48 41 52 20 20 20 20 |.';*** .HAR |
00003F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F50: 20 2A 2A 2A 00 7B 47 24 27 3B 2A 2A 2A 2A 2A 2A | ***.{G$';******|
00003F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 47 2E 27 |***********..G.'|
00003F80: 3B 00 97 47 38 27 3B 2A 2A 2A 20 20 CC 41 42 45 |;..G8';*** .ABE|
00003F90: 4C 53 20 20 2A 2A 2A 00 9D 47 42 27 3B 00 C6 47 |LS ***..GB';..G|
00003FA0: 4C 27 A3 45 52 52 4F 52 3D 24 41 34 33 37 3B 20 |L'.ERROR=$A437; |
00003FB0: C6 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 41 55 |.EHLERMELDUNG AU|
00003FC0: 53 47 45 42 45 4E 00 ED 47 56 27 A3 46 52 4D 45 |SGEBEN..GV'.FRME|
00003FD0: 56 4C 3D 24 41 44 39 45 3B 20 C2 41 53 49 43 41 |VL=$AD9E; .ASICA|
00003FE0: 55 53 44 52 55 43 4B 20 48 4F 4C 45 4E 00 11 48 |USDRUCK HOLEN..H|
00003FF0: 60 27 A3 45 52 45 53 54 52 3D 24 42 36 41 33 3B |`'.ERESTR=$B6A3;|
00004000: 20 D3 54 52 49 4E 47 56 45 52 57 41 4C 54 55 4E | .TRINGVERWALTUN|
00004010: 47 00 4F 48 6A 27 A3 47 45 54 42 59 54 3D 24 42 |G.OHj'.GETBYT=$B|
00004020: 37 39 45 3B 20 4C 49 45 53 54 20 38 2D C2 49 54 |79E; LIEST 8-.IT|
00004030: 20 49 4E 54 45 47 45 52 20 D7 45 52 54 20 56 4F | INTEGER .ERT VO|
00004040: 4E 20 C2 41 53 49 43 54 45 58 54 20 45 49 4E 00 |N .ASICTEXT EIN.|
00004050: 82 48 74 27 A3 43 48 41 52 48 49 3D 24 44 38 3B |.Ht'.CHARHI=$D8;|
00004060: 20 48 49 47 48 2D C2 59 54 45 20 44 45 53 20 DA | HIGH-.YTE DES .|
00004070: 45 49 43 48 45 4E 53 41 54 5A 53 50 45 49 43 48 |EICHENSATZSPEICH|
00004080: 45 52 00 88 48 7E 27 3B 00 AE 48 88 27 3B 2A 2A |ER..H~';..H.';**|
00004090: 2A 20 20 C6 45 48 4C 45 52 4D 45 4C 44 55 4E 47 |* .EHLERMELDUNG|
000040A0: 20 41 55 53 47 45 42 45 4E 20 20 2A 2A 2A 00 B4 | AUSGEBEN ***..|
000040B0: 48 92 27 3B 00 D7 48 9C 27 49 4C 4C 45 52 52 20 |H.';..H.'ILLERR |
000040C0: C2 23 31 34 3B 20 C6 45 48 4C 45 52 4E 55 4D 4D |.#14; .EHLERNUMM|
000040D0: 45 52 20 49 4E 20 D8 00 13 49 A6 27 20 D5 45 52 |ER IN ...I.' .ER|
000040E0: 52 4F 52 3B 20 C6 45 48 4C 45 52 4D 45 4C 44 55 |ROR; .EHLERMELDU|
000040F0: 4E 47 20 41 55 53 47 45 42 45 4E 3A 20 C9 4C 4C |NG AUSGEBEN: .LL|
00004100: 45 47 41 4C 20 D1 55 41 4E 54 49 54 59 20 C5 52 |EGAL .UANTITY .R|
00004110: 52 4F 52 00 19 49 B0 27 3B 00 38 49 BA 27 3B 2A |ROR..I.';.8I.';*|
00004120: 2A 2A 20 20 D0 41 52 41 4D 45 54 45 52 20 48 4F |** .ARAMETER HO|
00004130: 4C 45 4E 20 20 2A 2A 2A 00 3E 49 C4 27 3B 00 67 |LEN ***.>I.';.g|
00004140: 49 CE 27 3B 2A 2A 2A 20 20 DA 45 49 4C 45 20 41 |I.';*** .EILE A|
00004150: 55 53 20 C2 41 53 49 43 54 45 58 54 20 48 4F 4C |US .ASICTEXT HOL|
00004160: 45 4E 20 20 2A 2A 2A 00 6D 49 D8 27 3B 00 8F 49 |EN ***.mI.';..I|
00004170: E2 27 43 50 20 D6 43 48 4B 43 4F 4D 3B 20 41 55 |.'CP .CHKCOM; AU|
00004180: 46 20 CB 4F 4D 4D 41 20 50 52 55 45 46 45 4E 00 |F .OMMA PRUEFEN.|
00004190: B0 49 EC 27 20 D6 47 45 54 42 59 54 3B 20 DA 45 |.I.' .GETBYT; .E|
000041A0: 49 4C 45 20 4E 41 43 48 20 D8 20 48 4F 4C 45 4E |ILE NACH . HOLEN|
000041B0: 00 D4 49 F6 27 20 C0 23 31 33 3B 20 41 55 46 20 |..I.' .#13; AUF |
000041C0: DA 55 4C 41 53 53 49 47 4B 45 49 54 20 50 52 55 |.ULASSIGKEIT PRU|
000041D0: 45 46 45 4E 00 FA 49 00 28 20 F5 49 4C 4C 45 52 |EFEN..I.( .ILLER|
000041E0: 52 3B 20 3D 3E 20 DA 45 49 4C 45 20 3E 3D 20 31 |R; => .EILE >= 1|
000041F0: 33 20 3D 3E 20 C5 52 52 4F 52 00 11 4A 0A 28 20 |3 => .RROR..J.( |
00004200: D3 5A 45 49 4C 45 3B 20 53 50 45 49 43 48 45 52 |.ZEILE; SPEICHER|
00004210: 4E 00 17 4A 14 28 3B 00 41 4A 1E 28 3B 2A 2A 2A |N..J.(;.AJ.(;***|
00004220: 20 20 D3 50 41 4C 54 45 20 41 55 53 20 C2 41 53 | .PALTE AUS .AS|
00004230: 49 43 54 45 58 54 20 48 4F 4C 45 4E 20 20 2A 2A |ICTEXT HOLEN **|
00004240: 2A 00 47 4A 28 28 3B 00 67 4A 32 28 20 D6 43 48 |*.GJ((;.gJ2( .CH|
00004250: 4B 43 4F 4D 3B 20 41 55 46 20 CB 4F 4D 4D 41 20 |KCOM; AUF .OMMA |
00004260: 50 52 55 45 46 45 4E 00 89 4A 3C 28 20 D6 47 45 |PRUEFEN..J<( .GE|
00004270: 54 42 59 54 3B 20 D3 50 41 4C 54 45 20 4E 41 43 |TBYT; .PALTE NAC|
00004280: 48 20 D8 20 48 4F 4C 45 4E 00 AE 4A 46 28 20 C0 |H . HOLEN..JF( .|
00004290: 23 34 30 3B 20 41 55 46 20 DA 55 4C 41 45 53 53 |#40; AUF .ULAESS|
000042A0: 49 47 4B 45 49 54 20 50 52 55 45 46 45 4E 00 D5 |IGKEIT PRUEFEN..|
000042B0: 4A 50 28 20 F5 49 4C 4C 45 52 52 3B 20 3D 3E 20 |JP( .ILLERR; => |
000042C0: D3 50 41 4C 54 45 20 3E 3D 20 34 30 20 3D 3E 20 |.PALTE >= 40 => |
000042D0: C5 52 52 4F 52 00 ED 4A 5A 28 20 D3 53 50 41 4C |.RROR..JZ( .SPAL|
000042E0: 54 45 3B 20 53 50 45 49 43 48 45 52 4E 00 F3 4A |TE; SPEICHERN..J|
000042F0: 64 28 3B 00 1D 4B 6E 28 3B 2A 2A 2A 20 20 D3 54 |d(;..Kn(;*** .T|
00004300: 52 49 4E 47 20 41 55 46 20 C2 41 53 49 43 54 45 |RING AUF .ASICTE|
00004310: 58 54 20 48 4F 4C 45 4E 20 20 2A 2A 2A 00 23 4B |XT HOLEN ***.#K|
00004320: 78 28 3B 00 43 4B 82 28 20 D6 43 48 4B 43 4F 4D |x(;.CK.( .CHKCOM|
00004330: 3B 20 41 55 46 20 CB 4F 4D 4D 41 20 50 52 55 45 |; AUF .OMMA PRUE|
00004340: 46 45 4E 00 6C 4B 8C 28 20 D6 46 52 4D 45 56 4C |FEN.lK.( .FRMEVL|
00004350: 3B 20 D3 54 52 49 4E 47 20 41 55 53 20 C2 41 53 |; .TRING AUS .AS|
00004360: 49 43 54 45 58 54 20 48 4F 4C 45 4E 00 8B 4B 96 |ICTEXT HOLEN..K.|
00004370: 28 20 D6 45 52 45 53 54 52 3B 20 D3 54 52 49 4E |( .ERESTR; .TRIN|
00004380: 47 56 45 52 57 41 4C 54 55 4E 47 00 B5 4B 9B 28 |GVERWALTUNG..K.(|
00004390: 20 F7 49 4C 4C 45 52 52 3B 20 D3 54 52 49 4E 47 | .ILLERR; .TRING|
000043A0: 4C 41 45 4E 47 45 20 3D 20 30 20 3F 20 3D 3E 20 |LAENGE = 0 ? => |
000043B0: C5 52 52 4F 52 00 DA 4B A0 28 20 D2 53 54 52 4C |.RROR..K.( .STRL|
000043C0: 45 4E 3B 20 D3 54 52 49 4E 47 4C 41 45 4E 47 45 |EN; .TRINGLAENGE|
000043D0: 20 53 50 45 49 43 48 45 52 4E 00 FB 4B AA 28 20 | SPEICHERN..K.( |
000043E0: CA 24 32 32 3B 20 4C 53 42 20 44 45 52 20 D3 54 |.$22; LSB DER .T|
000043F0: 52 49 4E 47 41 44 52 45 53 53 45 00 14 4C B4 28 |RINGADRESSE..L.(|
00004400: 20 D2 43 48 41 52 33 2B 31 3B 20 53 50 45 49 43 | .CHAR3+1; SPEIC|
00004410: 48 45 52 4E 00 35 4C BE 28 20 CA 24 32 33 3B 20 |HERN.5L.( .$23; |
00004420: 4D 53 42 20 44 45 52 20 D3 54 52 49 4E 47 41 44 |MSB DER .TRINGAD|
00004430: 52 45 53 53 45 00 4E 4C C8 28 20 D2 43 48 41 52 |RESSE.NL.( .CHAR|
00004440: 33 2B 32 3B 20 53 50 45 49 43 48 45 52 4E 00 54 |3+2; SPEICHERN.T|
00004450: 4C D2 28 3B 00 80 4C DC 28 3B 2A 2A 2A 20 20 D2 |L.(;..L.(;*** .|
00004460: 49 43 48 54 55 4E 47 20 41 55 53 20 C2 41 53 49 |ICHTUNG AUS .ASI|
00004470: 43 54 45 58 54 20 48 4F 4C 45 4E 20 20 2A 2A 2A |CTEXT HOLEN ***|
00004480: 00 86 4C E6 28 3B 00 A6 4C F0 28 20 D6 43 48 4B |..L.(;..L.( .CHK|
00004490: 43 4F 4D 3B 20 41 55 46 20 CB 4F 4D 4D 41 20 50 |COM; AUF .OMMA P|
000044A0: 52 55 45 46 45 4E 00 C7 4C FA 28 20 D6 47 45 54 |RUEFEN..L.( .GET|
000044B0: 42 59 54 3B 20 D2 49 43 48 55 4E 47 20 49 4E 20 |BYT; .ICHUNG IN |
000044C0: D8 20 48 4F 4C 45 4E 00 CD 4C 04 29 3B 00 EF 4C |. HOLEN..L.);..L|
000044D0: 0E 29 3B 2A 2A 2A 20 20 D2 49 43 48 54 55 4E 47 |.);*** .ICHTUNG|
000044E0: 20 41 55 53 57 45 52 54 45 4E 20 20 2A 2A 2A 00 | AUSWERTEN ***.|
000044F0: F5 4C 18 29 3B 00 26 4D 22 29 3B 20 20 20 20 20 |.L.);.&M"); |
00004500: 20 20 20 20 43 50 58 20 23 24 30 30 20 20 20 20 | CPX #$00 |
00004510: 20 20 3B 20 49 53 54 20 D2 49 43 48 54 55 4E 47 | ; IST .ICHTUNG|
00004520: 20 3D 20 30 20 3F 00 47 4D 2C 29 20 F7 57 41 41 | = 0 ?.GM,) .WAA|
00004530: 47 52 45 43 48 54 3B 20 3D 3E 20 D2 49 43 48 54 |GRECHT; => .ICHT|
00004540: 55 4E 47 20 3D 20 30 00 4D 4D 36 29 3B 00 87 4D |UNG = 0.MM6);..M|
00004550: 40 29 20 CA 23 24 34 30 3B 20 D2 49 43 48 54 55 |@) .#$40; .ICHTU|
00004560: 4E 47 20 53 45 4E 4B 52 45 43 48 54 3A 20 C9 4E |NG SENKRECHT: .N|
00004570: 4B 52 45 4D 45 4E 54 20 49 53 54 20 24 30 31 34 |KREMENT IST $014|
00004580: 30 20 3D 20 33 32 30 00 A3 4D 4A 29 20 D2 49 4E |0 = 320..MJ) .IN|
00004590: 43 52 45 4D 3B 20 4C 53 42 20 53 50 45 49 43 48 |CREM; LSB SPEICH|
000045A0: 45 52 4E 00 AE 4D 54 29 20 CA 23 24 30 31 00 CC |ERN..MT) .#$01..|
000045B0: 4D 5E 29 20 D2 49 4E 43 52 45 4D 2B 31 3B 20 4D |M^) .INCREM+1; M|
000045C0: 53 42 20 53 50 45 49 43 48 45 52 4E 00 EF 4D 68 |SB SPEICHERN..Mh|
000045D0: 29 20 D5 43 48 41 52 31 3B 20 57 45 49 54 45 52 |) .CHAR1; WEITER|
000045E0: 20 5A 55 52 20 C2 45 52 45 43 48 4E 55 4E 47 00 | ZUR .ERECHNUNG.|
000045F0: F5 4D 72 29 3B 00 3D 4E 7C 29 57 41 41 47 52 45 |.Mr);.=N|)WAAGRE|
00004600: 43 48 54 20 D3 49 4E 43 52 45 4D 2B 31 3B 20 D2 |CHT .INCREM+1; .|
00004610: 49 43 48 54 55 4E 47 20 57 41 41 47 52 45 43 48 |ICHTUNG WAAGRECH|
00004620: 54 3A 20 C9 4E 4B 52 45 4D 45 4E 54 20 3D 20 24 |T: .NKREMENT = $|
00004630: 30 30 30 38 20 3D 20 38 3B 20 4D 53 42 00 4D 4E |0008 = 8; MSB.MN|
00004640: 86 29 20 CA 23 24 30 38 3B 20 4C 53 42 00 65 4E |.) .#$08; LSB.eN|
00004650: 90 29 20 D2 49 4E 43 52 45 4D 3B 20 53 50 45 49 |.) .INCREM; SPEI|
00004660: 43 48 45 52 4E 00 6B 4E 9A 29 3B 00 9A 4E A4 29 |CHERN.kN.);..N.)|
00004670: 3B 2A 2A 2A 20 20 D0 4F 53 49 54 49 4F 4E 20 49 |;*** .OSITION I|
00004680: 4E 20 44 45 52 20 C2 49 54 4D 41 50 20 42 45 52 |N DER .ITMAP BER|
00004690: 45 43 48 4E 45 4E 20 2A 2A 2A 00 A0 4E AE 29 3B |ECHNEN ***..N.);|
000046A0: 00 BB 4E B8 29 3B 2A 2A 2A 20 20 DA 45 49 4C 45 |..N.);*** .EILE|
000046B0: 20 2A 20 33 32 30 20 20 2A 2A 2A 00 C1 4E C2 29 | * 320 ***..N.)|
000046C0: 3B 00 E2 4E CC 29 43 48 41 52 31 20 CA 23 24 30 |;..N.)CHAR1 .#$0|
000046D0: 30 3B 20 4C 53 42 28 48 50 4F 49 4E 54 29 20 3D |0; LSB(HPOINT) =|
000046E0: 20 30 00 FC 4E D6 29 20 D2 48 50 4F 49 4E 54 2B | 0..N.) .HPOINT+|
000046F0: 31 3B 20 53 50 45 49 43 48 45 52 4E 00 02 4F E0 |1; SPEICHERN..O.|
00004700: 29 3B 00 39 4F EA 29 20 CA 5A 45 49 4C 45 3B 20 |);.9O.) .ZEILE; |
00004710: DA 45 49 4C 45 20 49 4E 20 C1 4B 4B 55 3B 20 C1 |.EILE IN .KKU; .|
00004720: 4B 4B 55 28 5A 45 49 4C 45 29 2A 35 3D C1 4B 4B |KKU(ZEILE)*5=.KK|
00004730: 55 2A 34 2B DA 45 49 4C 45 00 45 4F F4 29 20 CB |U*4+.EILE.EO.) .|
00004740: 3B 20 2A 20 32 00 51 4F FE 29 20 CB 3B 20 2A 20 |; * 2.QO.) .; * |
00004750: 32 00 66 4F 08 2A 20 C5 5A 45 49 4C 45 3B 20 2B |2.fO.* .ZEILE; +|
00004760: 20 DA 45 49 4C 45 00 6C 4F 12 2A 3B 00 92 4F 1C | .EILE.lO.*;..O.|
00004770: 2A 20 CD 3B 20 C1 4B 4B 55 28 35 2A DA 45 49 4C |* .; .KKU(5*.EIL|
00004780: 45 29 2A 36 34 20 3D 20 C1 4B 4B 55 2A 32 35 36 |E)*64 = .KKU*256|
00004790: 2F 34 00 CA 4F 26 2A 20 D0 48 50 4F 49 4E 54 2B |/4..O&* .HPOINT+|
000047A0: 31 3B 20 3D 3E 20 4C 53 42 20 2D 3E 20 4D 53 42 |1; => LSB -> MSB|
000047B0: 20 55 4E 44 20 31 36 2D C2 49 54 20 C4 49 56 49 | UND 16-.IT .IVI|
000047C0: 53 49 4F 4E 20 4D 49 54 20 34 00 D1 4F 30 2A 20 |SION MIT 4..O0* |
000047D0: CD 00 E0 4F 3A 2A 20 D0 48 50 4F 49 4E 54 2B 31 |...O:* .HPOINT+1|
000047E0: 00 09 50 44 2A 20 C5 23 3E 28 42 49 54 4D 41 50 |..PD* .#>(BITMAP|
000047F0: 29 3B 20 C1 4B 4B 55 28 33 32 30 2A DA 45 49 4C |); .KKU(320*.EIL|
00004800: 45 29 2B C2 49 54 4D 41 50 00 18 50 4E 2A 20 D2 |E)+.ITMAP..PN* .|
00004810: 48 50 4F 49 4E 54 2B 32 00 1E 50 58 2A 3B 00 41 |HPOINT+2..PX*;.A|
00004820: 50 62 2A 3B 2A 2A 2A 20 20 D3 50 41 4C 54 45 20 |Pb*;*** .PALTE |
00004830: 2A 20 38 20 2B 20 C8 50 4F 49 4E 54 20 20 2A 2A |* 8 + .POINT **|
00004840: 2A 00 47 50 6C 2A 3B 00 6A 50 76 2A 20 CA 53 50 |*.GPl*;.jPv* .SP|
00004850: 41 4C 54 45 3B 20 D3 50 41 4C 54 45 20 49 4E 20 |ALTE; .PALTE IN |
00004860: C1 4B 4B 55 20 48 4F 4C 45 4E 00 76 50 80 2A 20 |.KKU HOLEN.vP.* |
00004870: CB 3B 20 2A 20 32 00 82 50 8A 2A 20 CB 3B 20 2A |.; * 2..P.* .; *|
00004880: 20 32 00 8E 50 94 2A 20 CB 3B 20 2A 20 32 00 AB | 2..P.* .; * 2..|
00004890: 50 9E 2A 20 F4 41 44 44 53 50 41 4C 54 45 3B 20 |P.* .ADDSPALTE; |
000048A0: D5 45 42 45 52 54 52 41 47 20 3F 00 CB 50 A8 2A |.EBERTRAG ?..P.*|
000048B0: 20 C9 48 50 4F 49 4E 54 2B 32 3B 20 4D 53 42 28 | .HPOINT+2; MSB(|
000048C0: 48 50 4F 49 4E 54 29 20 2B 20 31 00 E6 50 AD 2A |HPOINT) + 1..P.*|
000048D0: 20 E5 3B 20 D5 45 42 45 52 54 52 41 47 20 4C 4F | .; .EBERTRAG LO|
000048E0: 45 53 43 48 45 4E 00 26 51 B2 2A 41 44 44 53 50 |ESCHEN.&Q.*ADDSP|
000048F0: 41 4C 54 45 20 C5 48 50 4F 49 4E 54 2B 31 3B 20 |ALTE .HPOINT+1; |
00004900: 4C 53 42 28 48 50 4F 49 4E 54 29 20 3D 20 4C 53 |LSB(HPOINT) = LS|
00004910: 42 28 48 50 4F 49 4E 54 29 20 2B 20 D3 50 41 4C |B(HPOINT) + .PAL|
00004920: 54 45 20 2A 20 38 00 40 51 BC 2A 20 D2 48 50 4F |TE * 8.@Q.* .HPO|
00004930: 49 4E 54 2B 31 3B 20 53 50 45 49 43 48 45 52 4E |INT+1; SPEICHERN|
00004940: 00 5D 51 C6 2A 20 F4 43 48 41 4E 47 45 53 54 52 |.]Q.* .CHANGESTR|
00004950: 3B 20 D5 45 42 45 52 54 52 41 47 20 3F 00 7D 51 |; .EBERTRAG ?.}Q|
00004960: D0 2A 20 C9 48 50 4F 49 4E 54 2B 32 3B 20 4D 53 |.* .HPOINT+2; MS|
00004970: 42 28 48 50 4F 49 4E 54 29 20 2B 20 31 00 83 51 |B(HPOINT) + 1..Q|
00004980: DA 2A 3B 00 AE 51 E4 2A 3B 2A 2A 2A 20 20 D3 54 |.*;..Q.*;*** .T|
00004990: 52 49 4E 47 20 41 55 53 4C 45 53 45 4E 20 55 4E |RING AUSLESEN UN|
000049A0: 44 20 57 41 4E 44 45 4C 4E 20 20 2A 2A 2A 00 B4 |D WANDELN ***..|
000049B0: 51 EE 2A 3B 00 D3 51 F8 2A 43 48 41 4E 47 45 53 |Q.*;..Q.*CHANGES|
000049C0: 54 52 20 C3 23 24 30 30 3B 20 C9 4E 44 45 58 20 |TR .#$00; .NDEX |
000049D0: 3D 20 30 00 F1 51 02 2B 53 54 52 4C 4F 4F 50 20 |= 0..Q.+STRLOOP |
000049E0: D4 49 4E 44 45 58 3B 20 53 50 45 49 43 48 45 52 |.INDEX; SPEICHER|
000049F0: 4E 00 F7 51 0C 2B 3B 00 2D 52 16 2B 43 48 41 52 |N..Q.+;.-R.+CHAR|
00004A00: 33 20 CA 24 46 46 46 46 2C 59 3B 20 59 2D 54 45 |3 .$FFFF,Y; Y-TE|
00004A10: 53 20 DA 45 49 43 48 45 4E 20 56 4F 4E 20 D3 54 |S .EICHEN VON .T|
00004A20: 52 49 4E 47 20 41 55 53 4C 45 53 45 4E 00 33 52 |RING AUSLESEN.3R|
00004A30: 20 2B 3B 00 51 52 2A 2B 3B 2A 2A 2A 20 20 D3 54 | +;.QR*+;*** .T|
00004A40: 52 49 4E 47 20 57 41 4E 44 45 4C 4E 20 20 2A 2A |RING WANDELN **|
00004A50: 2A 00 57 52 34 2B 3B 00 72 52 3E 2B 20 F1 43 48 |*.WR4+;.rR>+ .CH|
00004A60: 41 52 35 3B 20 DA 45 49 43 48 45 4E 20 3E 20 31 |AR5; .EICHEN > 1|
00004A70: 32 38 00 95 52 48 2B 20 C4 23 33 32 3B 20 3C 20 |28..RH+ .#32; < |
00004A80: 33 32 20 3F 20 4F 44 45 52 20 3D 20 3C D3 50 41 |32 ? ODER = <.PA|
00004A90: 43 45 3E 20 3F 00 C1 52 52 2B 20 F7 43 48 41 52 |CE> ?..RR+ .CHAR|
00004AA0: 36 3B 20 3C D3 50 41 43 45 3E 20 2D 3E 20 42 4C |6; <.PACE> -> BL|
00004AB0: 45 49 42 54 20 55 4E 56 45 52 41 45 4E 44 45 52 |EIBT UNVERAENDER|
00004AC0: 54 00 EA 52 66 2B 20 F4 4E 45 58 54 59 3B 20 D3 |T..Rf+ .NEXTY; .|
00004AD0: 54 45 55 45 52 5A 45 49 43 48 45 4E 20 55 45 42 |TEUERZEICHEN UEB|
00004AE0: 45 52 53 50 52 49 4E 47 45 4E 00 12 53 70 2B 43 |ERSPRINGEN..Sp+C|
00004AF0: 48 41 52 31 31 20 C4 23 36 34 3B 20 3C 20 36 34 |HAR11 .#64; < 64|
00004B00: 20 3B 20 D3 4F 4E 44 45 52 5A 45 49 43 48 45 4E | ; .ONDERZEICHEN|
00004B10: 20 3F 00 42 53 7A 2B 20 F4 43 48 41 52 36 3B 20 | ?.BSz+ .CHAR6; |
00004B20: D3 4F 4E 44 45 52 5A 45 49 43 48 45 4E 20 42 4C |.ONDERZEICHEN BL|
00004B30: 45 49 42 45 4E 20 55 4E 56 45 52 41 45 4E 44 45 |EIBEN UNVERAENDE|
00004B40: 52 54 00 65 53 84 2B 20 C4 23 39 36 3B 20 3C 20 |RT.eS.+ .#96; < |
00004B50: 39 36 20 3B 20 CB 4C 45 49 4E 42 55 43 48 53 54 |96 ; .LEINBUCHST|
00004B60: 41 42 45 20 3F 00 99 53 8E 2B 20 F5 43 48 41 52 |ABE ?..S.+ .CHAR|
00004B70: 34 3B 20 39 36 20 3D 3C 20 DA 45 49 43 48 45 4E |4; 96 =< .EICHEN|
00004B80: 20 3C 20 31 32 38 20 3D 3E 20 35 2E 20 C2 49 54 | < 128 => 5. .IT|
00004B90: 20 4C 4F 45 53 43 48 45 4E 00 CE 53 98 2B 20 C6 | LOESCHEN..S.+ .|
00004BA0: 23 25 31 30 31 31 31 31 31 31 3B 20 36 2E 20 C2 |#%10111111; 6. .|
00004BB0: 49 54 20 4C 4F 45 53 43 48 45 4E 2C 20 44 41 20 |IT LOESCHEN, DA |
00004BC0: CB 4C 45 49 4E 42 55 43 48 53 54 41 42 45 00 E8 |.LEINBUCHSTABE..|
00004BD0: 53 A2 2B 20 D5 43 48 41 52 36 3B 20 57 45 49 54 |S.+ .CHAR6; WEIT|
00004BE0: 45 52 4D 41 43 48 45 4E 00 22 54 AC 2B 43 48 41 |ERMACHEN."T.+CHA|
00004BF0: 52 34 20 C6 23 25 31 31 30 31 31 31 31 31 3B 20 |R4 .#%11011111; |
00004C00: 35 2E 20 C2 49 54 20 4C 4F 45 53 43 48 45 4E 2C |5. .IT LOESCHEN,|
00004C10: 20 44 41 20 C7 52 4F 53 53 42 55 43 48 53 54 41 | DA .ROSSBUCHSTA|
00004C20: 42 45 00 3C 54 B6 2B 20 D5 43 48 41 52 36 3B 20 |BE.<T.+ .CHAR6; |
00004C30: 57 45 49 54 45 52 4D 41 43 48 45 4E 00 65 54 C0 |WEITERMACHEN.eT.|
00004C40: 2B 43 48 41 52 35 20 C4 23 31 36 30 3B 20 3C 20 |+CHAR5 .#160; < |
00004C50: 31 36 30 20 3F 20 D3 54 45 55 45 52 5A 45 49 43 |160 ? .TEUERZEIC|
00004C60: 48 45 4E 20 3F 00 8E 54 CA 2B 20 F4 4E 45 58 54 |HEN ?..T.+ .NEXT|
00004C70: 59 3B 20 D3 54 45 55 45 52 5A 45 49 43 48 45 4E |Y; .TEUERZEICHEN|
00004C80: 20 55 45 42 45 52 53 50 52 49 4E 47 45 4E 00 BD | UEBERSPRINGEN..|
00004C90: 54 D4 2B 20 F7 43 48 41 52 36 3B 20 3C 32 2E 20 |T.+ .CHAR6; <2. |
00004CA0: D3 50 41 43 45 3E 20 2D 3E 20 42 4C 45 49 42 54 |.PACE> -> BLEIBT|
00004CB0: 20 55 4E 56 45 52 41 45 4E 44 45 52 54 00 E1 54 | UNVERAENDERT..T|
00004CC0: DE 2B 20 C4 23 31 39 32 3B 20 3C 20 31 39 32 20 |.+ .#192; < 192 |
00004CD0: 3F 20 C7 52 41 46 49 4B 5A 45 49 43 48 45 4E 20 |? .RAFIKZEICHEN |
00004CE0: 3F 00 FD 54 E8 2B 20 F5 43 48 41 52 37 3B 20 C4 |?..T.+ .CHAR7; .|
00004CF0: 4F 50 50 45 4C 42 45 4C 45 47 55 4E 47 00 26 55 |OPPELBELEGUNG.&U|
00004D00: F2 2B 20 C8 23 25 31 31 30 30 30 30 30 30 3B 20 |.+ .#%11000000; |
00004D10: 36 2E 20 55 4E 44 20 37 2E 20 C2 49 54 20 55 4D |6. UND 7. .IT UM|
00004D20: 4B 45 48 52 45 4E 00 40 55 FC 2B 20 D5 43 48 41 |KEHREN.@U.+ .CHA|
00004D30: 52 36 3B 20 57 45 49 54 45 52 4D 41 43 48 45 4E |R6; WEITERMACHEN|
00004D40: 00 7B 55 06 2C 43 48 41 52 37 20 C4 23 32 32 34 |.{U.,CHAR7 .#224|
00004D50: 3B 20 3D 3C 20 32 32 34 20 3F 20 C7 52 4F 53 53 |; =< 224 ? .ROSS|
00004D60: 42 55 43 48 53 54 41 42 45 4E 20 28 C4 4F 50 50 |BUCHSTABEN (.OPP|
00004D70: 45 4C 42 45 4C 45 47 55 4E 47 29 00 93 55 10 2C |ELBELEGUNG)..U.,|
00004D80: 20 F7 43 48 41 52 39 3B 20 3C 33 2E 20 D3 50 41 | .CHAR9; <3. .PA|
00004D90: 43 45 3E 00 B5 55 24 2C 20 C6 23 25 30 31 31 31 |CE>..U$, .#%0111|
00004DA0: 31 31 31 31 3B 20 37 2E 20 C2 49 54 20 4C 4F 45 |1111; 7. .IT LOE|
00004DB0: 53 43 48 45 4E 00 E7 55 38 2C 20 C4 23 31 32 37 |SCHEN..U8, .#127|
00004DC0: 3B 20 C3 4F 44 45 20 3D 20 32 35 35 20 28 3D 31 |; .ODE = 255 (=1|
00004DD0: 32 37 20 44 41 20 37 2E 20 C2 49 54 20 47 45 4C |27 DA 7. .IT GEL|
00004DE0: 4F 45 53 43 48 54 29 00 FB 55 42 2C 20 F6 43 48 |OESCHT)..UB, .CH|
00004DF0: 41 52 36 3B 20 57 45 49 54 45 52 00 10 56 4C 2C |AR6; WEITER..VL,|
00004E00: 20 CA 23 39 34 3B 20 32 35 35 20 2D 3E 20 39 34 | .#94; 255 -> 94|
00004E10: 00 39 56 56 2C 20 D5 43 48 41 52 36 3B 20 C7 52 |.9VV, .CHAR6; .R|
00004E20: 41 46 49 4B 5A 45 49 43 48 45 4E 2C 20 57 45 49 |AFIKZEICHEN, WEI|
00004E30: 54 45 52 4D 41 43 48 45 4E 00 54 56 60 2C 43 48 |TERMACHEN.TV`,CH|
00004E40: 41 52 39 20 CA 23 33 32 3B 20 3C 33 2E 20 D3 50 |AR9 .#32; <3. .P|
00004E50: 41 43 45 3E 00 5A 56 79 2C 3B 00 88 56 7E 2C 3B |ACE>.ZVy,;..V~,;|
00004E60: 2A 2A 2A 20 20 C3 48 41 52 20 50 4F 49 4E 54 45 |*** .HAR POINTE|
00004E70: 52 20 49 4D 20 DA D3 C1 20 42 45 52 45 43 48 45 |R IM ... BERECHE|
00004E80: 4E 45 4E 20 20 2A 2A 2A 00 8E 56 88 2C 3B 00 AF |NEN ***..V.,;..|
00004E90: 56 92 2C 43 48 41 52 36 20 C2 23 24 30 30 3B 20 |V.,CHAR6 .#$00; |
00004EA0: 4D 53 42 28 4D 56 43 48 41 52 29 20 3D 20 30 00 |MSB(MVCHAR) = 0.|
00004EB0: C9 56 9C 2C 20 D3 4D 56 43 48 41 52 2B 32 3B 20 |.V., .MVCHAR+2; |
00004EC0: 53 50 45 49 43 48 45 52 4E 00 CF 56 A6 2C 3B 00 |SPEICHERN..V.,;.|
00004ED0: E2 56 B0 2C 20 CB 3B 20 4D 56 43 48 41 52 20 2A |.V., .; MVCHAR *|
00004EE0: 20 38 00 F1 56 BA 2C 20 CF 4D 56 43 48 41 52 2B | 8..V., .MVCHAR+|
00004EF0: 32 00 F8 56 C4 2C 20 CB 00 07 57 CE 2C 20 CF 4D |2..V., ...W., .M|
00004F00: 56 43 48 41 52 2B 32 00 0E 57 D8 2C 20 CB 00 3F |VCHAR+2..W., ..?|
00004F10: 57 E2 2C 20 CF 4D 56 43 48 41 52 2B 32 3B 20 47 |W., .MVCHAR+2; G|
00004F20: 4C 45 49 43 48 5A 45 49 54 49 47 20 C3 41 52 52 |LEICHZEITIG .ARR|
00004F30: 59 2D C6 4C 41 47 20 4C 4F 45 53 43 48 45 4E 00 |Y-.LAG LOESCHEN.|
00004F40: 5D 57 EC 2C 20 D2 4D 56 43 48 41 52 2B 31 3B 20 |]W., .MVCHAR+1; |
00004F50: 4C 53 42 20 53 50 45 49 43 48 45 52 4E 00 82 57 |LSB SPEICHERN..W|
00004F60: F6 2C 20 CA 23 43 48 41 52 48 49 3B 20 4D 53 42 |., .#CHARHI; MSB|
00004F70: 20 56 4F 4E 20 C3 48 41 52 41 43 54 45 52 2D D2 | VON .HARACTER-.|
00004F80: CF CD 00 9B 57 00 2D 20 C5 4D 56 43 48 41 52 2B |....W.- .MVCHAR+|
00004F90: 32 3B 20 41 44 44 49 45 52 45 4E 00 B9 57 0A 2D |2; ADDIEREN..W.-|
00004FA0: 20 D2 4D 56 43 48 41 52 2B 32 3B 20 4D 53 42 20 | .MVCHAR+2; MSB |
00004FB0: 53 50 45 49 43 48 45 52 4E 00 BF 57 14 2D 3B 00 |SPEICHERN..W.-;.|
00004FC0: F2 57 1E 2D 3B 2A 2A 2A 20 20 DA 45 49 43 48 45 |.W.-;*** .EICHE|
00004FD0: 4E 20 41 55 53 20 DA D3 C1 20 49 4E 20 C2 49 54 |N AUS ... IN .IT|
00004FE0: 4D 41 50 20 53 43 48 52 45 49 42 45 4E 20 20 2A |MAP SCHREIBEN *|
00004FF0: 2A 2A 00 F8 57 28 2D 3B 00 12 58 32 2D 20 E8 3B |**..W(-;..X2- .;|
00005000: 20 C9 4E 54 45 52 52 55 50 54 20 53 50 45 52 52 | .NTERRUPT SPERR|
00005010: 45 4E 00 34 58 3C 2D 20 CA 24 30 31 3B 20 D0 52 |EN.4X<- .$01; .R|
00005020: 4F 5A 45 53 53 4F 52 50 4F 52 54 20 41 55 53 4C |OZESSORPORT AUSL|
00005030: 45 53 45 4E 00 54 58 46 2D 20 D2 50 52 4F 43 45 |ESEN.TXF- .PROCE|
00005040: 53 53 4F 52 3B 20 C9 4E 48 41 4C 54 20 53 49 43 |SSOR; .NHALT SIC|
00005050: 48 45 52 4E 00 82 58 50 2D 20 C6 23 25 31 31 31 |HERN..XP- .#%111|
00005060: 31 31 30 31 31 3B 20 DA D3 C1 2D D2 CF CD 20 5A |11011; ...-... Z|
00005070: 55 4D 20 CC 45 53 45 4E 20 46 52 45 49 47 45 42 |UM .ESEN FREIGEB|
00005080: 45 4E 00 9E 58 5A 2D 20 D2 24 30 31 3B 20 5A 55 |EN..XZ- .$01; ZU|
00005090: 52 55 45 43 4B 53 43 48 52 45 49 42 45 4E 00 A4 |RUECKSCHREIBEN..|
000050A0: 58 64 2D 3B 00 D2 58 6E 2D 20 C3 23 24 30 37 3B |Xd-;..Xn- .#$07;|
000050B0: 20 C9 4E 44 45 58 20 46 55 45 52 20 38 20 D3 43 | .NDEX FUER 8 .C|
000050C0: 48 4C 45 49 46 45 4E 44 55 52 43 48 4C 41 45 55 |HLEIFENDURCHLAEU|
000050D0: 46 45 00 01 59 78 2D 4D 56 43 48 41 52 20 CA 24 |FE..Yx-MVCHAR .$|
000050E0: 46 46 46 46 2C 59 3B 20 C2 59 54 45 20 41 55 53 |FFFF,Y; .YTE AUS|
000050F0: 20 DA D3 C1 2D D2 CF CD A0 41 55 53 4C 45 53 45 | ...-....AUSLESE|
00005100: 4E 00 2F 59 82 2D 48 50 4F 49 4E 54 20 D2 24 46 |N./Y.-HPOINT .$F|
00005110: 46 46 46 2C 59 3B 20 C2 59 54 45 20 49 4E 20 C2 |FFF,Y; .YTE IN .|
00005120: 49 54 4D 41 50 20 53 43 48 52 45 49 42 45 4E 00 |ITMAP SCHREIBEN.|
00005130: 4A 59 8C 2D 20 EC 3B 20 C9 4E 44 45 58 20 45 52 |JY.- .; .NDEX ER|
00005140: 4E 49 45 44 52 49 45 47 45 4E 00 83 59 96 2D 20 |NIEDRIEGEN..Y.- |
00005150: F0 4D 56 43 48 41 52 3B 20 53 43 48 4F 4E 20 46 |.MVCHAR; SCHON F|
00005160: 45 52 54 49 47 20 3F 20 3D 3E 20 CE 45 49 4E 2C |ERTIG ? => .EIN,|
00005170: 20 D3 50 52 55 4E 47 20 4E 41 43 48 20 4D 56 43 | .PRUNG NACH MVC|
00005180: 48 41 52 00 89 59 A0 2D 3B 00 C2 59 AA 2D 20 CA |HAR..Y.-;..Y.- .|
00005190: 50 52 4F 43 45 53 53 4F 52 3B 20 41 4C 54 45 4E |PROCESSOR; ALTEN|
000051A0: 20 D0 52 4F 5A 45 53 53 4F 52 50 4F 52 54 5A 55 | .ROZESSORPORTZU|
000051B0: 53 54 41 4E 44 20 57 49 45 44 45 52 20 48 4F 4C |STAND WIEDER HOL|
000051C0: 45 4E 00 D7 59 B4 2D 20 D2 24 30 31 3B 20 53 50 |EN..Y.- .$01; SP|
000051D0: 45 49 43 48 45 52 4E 00 FA 59 BE 2D 20 E7 3B 20 |EICHERN..Y.- .; |
000051E0: C9 4E 54 45 52 52 55 50 54 20 57 49 45 44 45 52 |.NTERRUPT WIEDER|
000051F0: 20 46 52 45 49 47 45 42 45 4E 00 00 5A C8 2D 3B | FREIGEBEN..Z.-;|
00005200: 00 2C 5A D2 2D 3B 2A 2A 2A 20 20 C2 49 54 4D 41 |.,Z.-;*** .ITMA|
00005210: 50 20 55 4D 20 C9 4E 4B 52 45 4D 45 4E 54 20 45 |P UM .NKREMENT E|
00005220: 52 48 4F 45 48 45 4E 20 20 2A 2A 2A 00 32 5A DC |RHOEHEN ***.2Z.|
00005230: 2D 3B 00 4D 5A E6 2D 20 E5 3B 20 48 50 4F 49 4E |-;.MZ.- .; HPOIN|
00005240: 54 20 2B 20 49 4E 43 52 45 4D 45 4E 54 00 61 5A |T + INCREMENT.aZ|
00005250: F0 2D 20 CA 48 50 4F 49 4E 54 2B 31 3B 20 4C 53 |.- .HPOINT+1; LS|
00005260: 42 00 78 5A FA 2D 20 C5 49 4E 43 52 45 4D 3B 20 |B.xZ.- .INCREM; |
00005270: 41 44 44 49 45 52 45 4E 00 92 5A 04 2E 20 D2 48 |ADDIEREN..Z.. .H|
00005280: 50 4F 49 4E 54 2B 31 3B 20 53 50 45 49 43 48 45 |POINT+1; SPEICHE|
00005290: 52 4E 00 A6 5A 0E 2E 20 CA 48 50 4F 49 4E 54 2B |RN..Z.. .HPOINT+|
000052A0: 32 3B 20 4D 53 42 00 BF 5A 18 2E 20 C5 49 4E 43 |2; MSB..Z.. .INC|
000052B0: 52 45 4D 2B 31 3B 20 41 44 44 49 45 52 45 4E 00 |REM+1; ADDIEREN.|
000052C0: D9 5A 22 2E 20 D2 48 50 4F 49 4E 54 2B 32 3B 20 |.Z". .HPOINT+2; |
000052D0: 53 50 45 49 43 48 45 52 4E 00 DF 5A 2C 2E 3B 00 |SPEICHERN..Z,.;.|
000052E0: FC 5A 36 2E 4E 45 58 54 59 20 C3 49 4E 44 45 58 |.Z6.NEXTY .INDEX|
000052F0: 3B 20 C9 4E 44 45 58 20 49 4E 20 D9 00 08 5B 40 |; .NDEX IN ...[@|
00005300: 2E 20 ED 3B 20 2B 20 31 00 35 5B 4A 2E 20 C1 53 |. .; + 1.5[J. .S|
00005310: 54 52 4C 45 4E 3B 20 49 53 54 20 C9 4E 44 45 58 |TRLEN; IST .NDEX|
00005320: 20 53 43 48 4F 4E 20 D3 54 52 49 4E 47 4C 41 45 | SCHON .TRINGLAE|
00005330: 4E 47 45 20 3F 00 69 5B 54 2E 20 F7 43 48 41 52 |NGE ?.i[T. .CHAR|
00005340: 45 4E 44 3B 20 C9 4E 44 45 58 20 3D 20 D3 54 52 |END; .NDEX = .TR|
00005350: 49 4E 47 4C 41 45 4E 47 45 20 3D 3E 20 D2 4F 55 |INGLAENGE => .OU|
00005360: 54 49 4E 45 4E 45 4E 44 45 00 90 5B 5E 2E 20 D5 |TINENENDE..[^. .|
00005370: 53 54 52 4C 4F 4F 50 3B 20 3D 3E 20 C9 4E 44 45 |STRLOOP; => .NDE|
00005380: 58 20 3C 20 D3 54 52 49 4E 47 4C 41 45 4E 47 45 |X < .TRINGLAENGE|
00005390: 00 96 5B 68 2E 3B 00 CA 5B 72 2E 43 48 41 52 45 |..[h.;..[r.CHARE|
000053A0: 4E 44 20 E3 3B 20 C9 4E 44 45 58 20 3D 20 D3 54 |ND .; .NDEX = .T|
000053B0: 52 49 4E 47 4C 41 45 4E 47 45 20 3D 3E 20 D2 4F |RINGLAENGE => .O|
000053C0: 55 54 49 4E 45 4E 45 4E 44 45 00 D0 5B 7C 2E 3B |UTINENENDE..[|.;|
000053D0: 00 EB 5B 86 2E 3B 2A 2A 2A 20 20 C8 49 4C 46 53 |..[..;*** .ILFS|
000053E0: 5A 45 4C 4C 45 4E 20 20 2A 2A 2A 00 F1 5B 90 2E |ZELLEN ***..[..|
000053F0: 3B 00 07 5C 9A 2E 5A 45 49 4C 45 20 A5 24 30 30 |;..\..ZEILE .$00|
00005400: 3B 20 DA 45 49 4C 45 00 1F 5C A4 2E 53 50 41 4C |; .EILE..\..SPAL|
00005410: 54 45 20 A5 24 30 30 3B 20 D3 50 41 4C 54 45 00 |TE .$00; .PALTE.|
00005420: 3D 5C AE 2E 53 54 52 4C 45 4E 20 A5 24 30 30 3B |=\..STRLEN .$00;|
00005430: 20 D3 54 52 49 4E 47 4C 41 45 4E 47 45 00 53 5C | .TRINGLAENGE.S\|
00005440: B8 2E 49 4E 44 45 58 20 A5 24 30 30 3B 20 C9 4E |..INDEX .$00; .N|
00005450: 44 45 58 00 72 5C C2 2E 49 4E 43 52 45 4D 20 A5 |DEX.r\..INCREM .|
00005460: 24 30 30 2C 24 30 30 3B 20 C9 4E 43 52 45 4D 45 |$00,$00; .NCREME|
00005470: 4E 54 00 9B 5C CC 2E 50 52 4F 43 45 53 53 4F 52 |NT..\..PROCESSOR|
00005480: 20 A5 24 30 30 3B 20 D0 52 4F 5A 45 53 53 4F 52 | .$00; .ROZESSOR|
00005490: 50 4F 52 54 5A 55 53 54 41 4E 44 00 A1 5C D6 2E |PORTZUSTAND..\..|
000054A0: 3B 00 B9 5C E0 2E 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |;..\..;*********|
000054B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D1 5C EA 2E 3B 2A |*********..\..;*|
000054C0: 2A 2A 20 20 C8 41 52 44 43 4F 50 59 20 20 2A 2A |** .ARDCOPY **|
000054D0: 2A 00 E9 5C F4 2E 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..\..;*********|
000054E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EF 5C FE 2E 3B 00 |*********..\..;.|
000054F0: 05 5D 08 2F 3B 2A 2A 2A 20 20 CC 41 42 45 4C 53 |.]./;*** .ABELS|
00005500: 20 20 2A 2A 2A 00 0B 5D 12 2F 3B 00 33 5D 1C 2F | ***..]./;.3]./|
00005510: A3 53 45 54 46 4C 53 3D 24 46 46 42 41 3B 20 C6 |.SETFLS=$FFBA; .|
00005520: 49 4C 45 50 41 52 41 4D 45 54 45 52 20 53 45 54 |ILEPARAMETER SET|
00005530: 5A 45 4E 00 53 5D 26 2F A3 4F 50 45 4E 3D 24 46 |ZEN.S]&/.OPEN=$F|
00005540: 46 43 30 3B 20 C6 49 4C 45 20 45 52 4F 45 46 46 |FC0; .ILE EROEFF|
00005550: 4E 45 4E 00 75 5D 30 2F A3 43 4C 4F 53 45 3D 24 |NEN.u]0/.CLOSE=$|
00005560: 46 46 43 33 3B 20 C6 49 4C 45 20 53 43 48 4C 49 |FFC3; .ILE SCHLI|
00005570: 45 53 53 45 4E 00 96 5D 3A 2F A3 43 48 4B 4F 55 |ESSEN..]:/.CHKOU|
00005580: 54 3D 24 46 46 43 39 3B 20 C3 CD C4 2D CD 4F 44 |T=$FFC9; ...-.OD|
00005590: 55 53 20 45 49 4E 00 B6 5D 44 2F A3 43 4C 52 43 |US EIN..]D/.CLRC|
000055A0: 48 3D 24 46 46 43 43 3B 20 C3 CD C4 2D CD 4F 44 |H=$FFCC; ...-.OD|
000055B0: 55 53 20 41 55 53 00 D9 5D 4E 2F A3 50 52 49 4E |US AUS..]N/.PRIN|
000055C0: 54 3D 24 46 46 44 32 3B 20 DA 45 49 43 48 45 4E |T=$FFD2; .EICHEN|
000055D0: 20 41 55 53 47 45 42 45 4E 00 DF 5D 58 2F 3B 00 | AUSGEBEN..]X/;.|
000055E0: F5 5D 62 2F 3B 2A 2A 2A 20 20 CD 41 4B 52 4F 53 |.]b/;*** .AKROS|
000055F0: 20 20 2A 2A 2A 00 FB 5D 6C 2F 3B 00 1E 5E 76 2F | ***..]l/;..^v/|
00005600: A1 45 53 43 3B 20 C5 D3 C3 2D D3 45 51 55 45 4E |.ESC; ...-.EQUEN|
00005610: 5A 20 55 45 42 45 52 4D 49 54 54 45 4C 4E 00 36 |Z UEBERMITTELN.6|
00005620: 5E 80 2F 20 CA 23 24 31 42 3B 20 C5 D3 C3 2D D3 |^./ .#$1B; ...-.|
00005630: 45 51 55 45 4E 5A 00 5E 5E 8A 2F 20 D6 50 52 49 |EQUENZ.^^./ .PRI|
00005640: 4E 54 3B 20 DA 45 49 43 48 45 4E 20 5A 55 4D 20 |NT; .EICHEN ZUM |
00005650: C4 52 55 43 4B 45 52 20 53 45 4E 44 45 4E 00 64 |.RUCKER SENDEN.d|
00005660: 5E 94 2F A2 00 6A 5E 9E 2F 3B 00 8B 5E A8 2F A1 |^./..j^./;..^./.|
00005670: 43 52 3B 20 C3 D2 2D D3 45 51 55 45 4E 5A 20 55 |CR; ..-.EQUENZ U|
00005680: 45 42 45 52 4D 49 54 54 45 4C 4E 00 A2 5E B2 2F |EBERMITTELN..^./|
00005690: 20 CA 23 24 30 44 3B 20 C3 D2 2D D3 45 51 55 45 | .#$0D; ..-.EQUE|
000056A0: 4E 5A 00 CB 5E BC 2F 20 D6 50 52 49 4E 54 3B 20 |NZ..^./ .PRINT; |
000056B0: DA 45 49 43 48 45 4E 20 5A 55 4D 20 20 C4 52 55 |.EICHEN ZUM .RU|
000056C0: 43 4B 45 52 20 53 45 4E 44 45 4E 00 D1 5E C6 2F |CKER SENDEN..^./|
000056D0: A2 00 D7 5E D0 2F 3B 00 F9 5E DA 2F A1 49 4E 49 |...^./;..^./.INI|
000056E0: 54 3B 20 C4 52 55 43 4B 45 52 20 49 4E 49 54 49 |T; .RUCKER INITI|
000056F0: 41 4C 49 53 49 45 52 45 4E 00 1B 5F E4 2F 20 45 |ALISIEREN.._./ E|
00005700: 53 43 3B 20 C5 D3 C3 20 40 20 3B 20 32 37 20 36 |SC; ... @ ; 27 6|
00005710: 34 20 3B 20 24 31 42 20 24 34 30 00 29 5F EE 2F |4 ; $1B $40.)_./|
00005720: 20 CA 23 24 34 30 3B 20 40 00 51 5F F8 2F 20 D6 | .#$40; @.Q_./ .|
00005730: 50 52 49 4E 54 3B 20 DA 45 49 43 48 45 4E 20 5A |PRINT; .EICHEN Z|
00005740: 55 4D 20 C4 52 55 43 4B 45 52 20 53 45 4E 44 45 |UM .RUCKER SENDE|
00005750: 4E 00 59 5F 02 30 20 43 52 00 5F 5F 0C 30 A2 00 |N.Y_.0 CR.__.0..|
00005760: 65 5F 16 30 3B 00 87 5F 20 30 3B 2A 2A 2A 20 20 |e_.0;.._ 0;*** |
00005770: CF D0 C5 CE 20 34 2C 34 2C 31 20 3A 20 C3 CD C4 |.... 4,4,1 : ...|
00005780: 20 34 20 20 2A 2A 2A 00 8D 5F 2A 30 3B 00 AF 5F | 4 ***.._*0;.._|
00005790: 34 30 48 43 20 CA 23 24 30 34 3B 20 4C 4F 47 49 |40HC .#$04; LOGI|
000057A0: 53 43 48 45 20 C6 49 4C 45 4E 55 4D 4D 45 52 00 |SCHE .ILENUMMER.|
000057B0: D9 5F 3E 30 20 C2 23 24 30 34 3B 20 C7 45 52 41 |._>0 .#$04; .ERA|
000057C0: 45 54 45 41 44 52 45 53 53 45 20 34 20 46 55 45 |ETEADRESSE 4 FUE|
000057D0: 52 20 C4 52 55 43 4B 45 52 00 09 60 48 30 20 C3 |R .RUCKER..`H0 .|
000057E0: 23 24 30 31 3B 20 D3 45 4B 55 4E 44 41 45 52 41 |#$01; .EKUNDAERA|
000057F0: 44 52 45 53 53 45 20 31 20 46 55 45 52 20 CC 49 |DRESSE 1 FUER .I|
00005800: 4E 45 41 52 4B 41 4E 41 4C 00 2C 60 52 30 20 D6 |NEARKANAL.,`R0 .|
00005810: 53 45 54 46 4C 53 3B 20 C6 49 4C 45 50 41 52 41 |SETFLS; .ILEPARA|
00005820: 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 47 60 5C |METER SETZEN.G`\|
00005830: 30 20 D6 4F 50 45 4E 3B 20 C6 49 4C 45 20 45 52 |0 .OPEN; .ILE ER|
00005840: 4F 45 46 46 4E 45 4E 00 67 60 66 30 20 C2 23 24 |OEFFNEN.g`f0 .#$|
00005850: 30 34 3B 20 4C 4F 47 49 53 43 48 45 20 C6 49 4C |04; LOGISCHE .IL|
00005860: 45 4E 55 4D 4D 45 52 00 8F 60 70 30 20 D6 43 48 |ENUMMER..`p0 .CH|
00005870: 4B 4F 55 54 3B 20 C3 4F 4D 4D 55 4E 49 43 41 54 |KOUT; .OMMUNICAT|
00005880: 49 4F 4E 4E 20 44 49 52 45 43 54 20 45 49 4E 00 |IONN DIRECT EIN.|
00005890: 95 60 7A 30 3B 00 BC 60 84 30 3B 2A 2A 2A 20 20 |.`z0;..`.0;*** |
000058A0: C5 D3 C3 20 40 2C 20 C5 D3 C3 20 33 20 4E 2C 20 |... @, ... 3 N, |
000058B0: C5 D3 C3 20 4C 20 4E 20 20 2A 2A 2A 00 C2 60 8E |... L N ***..`.|
000058C0: 30 3B 00 EB 60 98 30 20 49 4E 49 54 3B 20 C5 D3 |0;..`.0 INIT; ..|
000058D0: C3 20 40 2C 20 C4 52 55 43 4B 45 52 20 49 4E 49 |. @, .RUCKER INI|
000058E0: 54 49 41 4C 49 53 49 45 52 45 4E 00 F1 60 A2 30 |TIALISIEREN..`.0|
000058F0: 3B 00 2C 61 AC 30 20 45 53 43 3B 20 C5 D3 C3 20 |;.,a.0 ESC; ... |
00005900: 33 20 4E 20 28 4E 20 3D 20 32 34 29 2C 20 DA 45 |3 N (N = 24), .E|
00005910: 49 4C 45 4E 56 4F 52 53 43 48 55 42 20 41 55 46 |ILENVORSCHUB AUF|
00005920: 20 32 34 2F 32 31 36 20 DA 4F 4C 4C 00 3C 61 B6 | 24/216 .OLL.<a.|
00005930: 30 20 CA 23 24 33 33 3B 20 27 33 27 00 68 61 C0 |0 .#$33; '3'.ha.|
00005940: 30 20 D6 50 52 49 4E 54 3B 20 DA 45 49 43 48 45 |0 .PRINT; .EICHE|
00005950: 4E 20 27 33 27 20 5A 55 4D 20 C4 52 55 43 4B 45 |N '3' ZUM .RUCKE|
00005960: 52 20 53 45 4E 44 45 4E 00 81 61 CA 30 20 CA 23 |R SENDEN..a.0 .#|
00005970: 24 31 38 3B 20 4E 20 3D 20 24 31 38 20 3D 20 32 |$18; N = $18 = 2|
00005980: 34 00 AA 61 D4 30 20 D6 50 52 49 4E 54 3B 20 C3 |4..a.0 .PRINT; .|
00005990: C8 D2 24 28 32 34 29 20 5A 55 4D 20 C4 52 55 43 |..$(24) ZUM .RUC|
000059A0: 4B 45 52 20 53 45 4E 44 45 4E 00 B2 61 DE 30 20 |KER SENDEN..a.0 |
000059B0: 43 52 00 B8 61 E8 30 3B 00 EE 61 F2 30 20 45 53 |CR..a.0;..a.0 ES|
000059C0: 43 3B 20 C5 D3 C3 20 4C 20 4E 20 28 4E 20 3D 20 |C; ... L N (N = |
000059D0: 31 32 29 2C 20 4C 49 4E 4B 45 52 20 D2 41 4E 44 |12), LINKER .AND|
000059E0: 20 42 45 49 20 31 32 20 53 45 54 5A 45 4E 00 FE | BEI 12 SETZEN..|
000059F0: 61 FC 30 20 CA 23 24 36 43 3B 20 27 4C 27 00 2A |a.0 .#$6C; 'L'.*|
00005A00: 62 06 31 20 D6 50 52 49 4E 54 3B 20 DA 45 49 43 |b.1 .PRINT; .EIC|
00005A10: 48 45 4E 20 27 4C 27 20 5A 55 4D 20 C4 52 55 43 |HEN 'L' ZUM .RUC|
00005A20: 4B 45 52 20 53 45 4E 44 45 4E 00 43 62 10 31 20 |KER SENDEN.Cb.1 |
00005A30: CA 23 24 30 43 3B 20 4E 20 3D 20 24 30 43 20 3D |.#$0C; N = $0C =|
00005A40: 20 31 32 00 6C 62 1A 31 20 D6 50 52 49 4E 54 3B | 12.lb.1 .PRINT;|
00005A50: 20 C3 C8 D2 24 28 31 32 29 20 5A 55 4D 20 C4 52 | ...$(12) ZUM .R|
00005A60: 55 43 4B 45 52 20 53 45 4E 44 45 4E 00 74 62 24 |UCKER SENDEN.tb$|
00005A70: 31 20 43 52 00 7A 62 2E 31 3B 00 AA 62 38 31 3B |1 CR.zb.1;..b81;|
00005A80: 2A 2A 2A 20 20 D2 4F 55 54 49 4E 45 4E 56 41 52 |*** .OUTINENVAR|
00005A90: 49 41 42 4C 45 4E 20 49 4E 49 54 49 41 4C 49 53 |IABLEN INITIALIS|
00005AA0: 49 45 52 45 4E 20 20 2A 2A 2A 00 B0 62 42 31 3B |IEREN ***..bB1;|
00005AB0: 00 E3 62 4C 31 20 CA 23 3C 28 42 49 54 4D 41 50 |..bL1 .#<(BITMAP|
00005AC0: 29 3B 20 C2 49 54 4D 41 50 41 44 52 45 53 53 45 |); .ITMAPADRESSE|
00005AD0: 20 49 4D 20 C4 55 4D 4D 59 20 53 43 48 52 45 49 | IM .UMMY SCHREI|
00005AE0: 42 45 4E 00 F6 62 56 31 20 D2 44 55 4D 4D 59 2B |BEN..bV1 .DUMMY+|
00005AF0: 31 3B 20 4C 53 42 00 07 63 60 31 20 CA 23 3E 28 |1; LSB..c`1 .#>(|
00005B00: 42 49 54 4D 41 50 29 00 1A 63 6A 31 20 D2 44 55 |BITMAP)..cj1 .DU|
00005B10: 4D 4D 59 2B 32 3B 20 4D 53 42 00 20 63 74 31 3B |MMY+2; MSB. ct1;|
00005B20: 00 36 63 7E 31 20 CA 23 24 30 43 3B 20 31 32 20 |.6c~1 .#$0C; 12 |
00005B30: DA 45 49 4C 45 4E 00 4C 63 88 31 20 D2 4C 49 4E |.EILEN.Lc.1 .LIN|
00005B40: 45 3B 20 53 50 45 49 43 48 45 52 4E 00 52 63 92 |E; SPEICHERN.Rc.|
00005B50: 31 3B 00 81 63 9C 31 3B 2A 2A 2A 20 20 C7 52 41 |1;..c.1;*** .RA|
00005B60: 46 49 4B 20 45 49 4E 53 43 48 41 4C 54 45 4E 3A |FIK EINSCHALTEN:|
00005B70: 20 C5 D3 C3 20 CC 20 4E 31 20 4E 32 20 20 2A 2A | ... . N1 N2 **|
00005B80: 2A 00 87 63 A6 31 3B 00 96 63 B0 31 4C 4E 4C 4F |*..c.1;..c.1LNLO|
00005B90: 4F 50 20 45 53 43 00 A6 63 BA 31 20 CA 23 24 34 |OP ESC..c.1 .#$4|
00005BA0: 43 3B 20 27 CC 27 00 D2 63 C4 31 20 D6 50 52 49 |C; '.'..c.1 .PRI|
00005BB0: 4E 54 3B 20 DA 45 49 43 48 45 4E 20 27 CC 27 20 |NT; .EICHEN '.' |
00005BC0: 5A 55 4D 20 C4 52 55 43 4B 45 52 20 53 45 4E 44 |ZUM .RUCKER SEND|
00005BD0: 45 4E 00 F3 63 CE 31 20 CA 23 24 38 30 3B 20 4E |EN..c.1 .#$80; N|
00005BE0: 31 20 3D 20 24 38 30 20 3D 20 31 32 38 20 3D 20 |1 = $80 = 128 = |
00005BF0: 4C 53 42 00 1D 64 D8 31 20 D6 50 52 49 4E 54 3B |LSB..d.1 .PRINT;|
00005C00: 20 C3 C8 D2 24 28 31 32 38 29 20 5A 55 4D 20 C4 | ...$(128) ZUM .|
00005C10: 52 55 43 4B 45 52 20 53 45 4E 44 45 4E 00 3E 64 |RUCKER SENDEN.>d|
00005C20: E2 31 20 CA 23 24 30 32 3B 20 4E 32 20 3D 20 24 |.1 .#$02; N2 = $|
00005C30: 30 32 20 3D 20 20 20 32 20 3D 20 4D 53 42 00 66 |02 = 2 = MSB.f|
00005C40: 64 EC 31 20 D6 50 52 49 4E 54 3B 20 C3 C8 D2 24 |d.1 .PRINT; ...$|
00005C50: 28 32 29 A0 5A 55 4D 20 C4 52 55 43 4B 45 52 20 |(2).ZUM .RUCKER |
00005C60: 53 45 4E 44 45 4E 00 6C 64 F6 31 3B 00 87 64 00 |SENDEN.ld.1;..d.|
00005C70: 32 3B 2A 2A 2A 20 20 C2 4C 4F 43 4B 20 49 4E 44 |2;*** .LOCK IND|
00005C80: 45 58 20 20 2A 2A 2A 00 8D 64 0A 32 3B 00 A3 64 |EX ***..d.2;..d|
00005C90: 14 32 20 CA 23 34 30 3B 20 34 30 20 C2 4C 4F 45 |.2 .#40; 40 .LOE|
00005CA0: 43 4B 45 00 BA 64 1E 32 20 D2 42 4C 4F 43 4B 3B |CKE..d.2 .BLOCK;|
00005CB0: 20 53 50 45 49 43 48 45 52 4E 00 C0 64 28 32 3B | SPEICHERN..d(2;|
00005CC0: 00 E9 64 32 32 3B 2A 2A 2A 20 20 45 49 4E 20 38 |..d22;*** EIN 8|
00005CD0: 2D C2 59 54 45 20 C2 4C 4F 43 4B 20 53 50 45 49 |-.YTE .LOCK SPEI|
00005CE0: 47 45 4C 4E 20 20 2A 2A 2A 00 EF 64 3C 32 3B 00 |GELN ***..d<2;.|
00005CF0: 0F 65 46 32 42 4B 4C 4F 4F 50 20 C3 23 24 30 30 |.eF2BKLOOP .#$00|
00005D00: 3B 20 C2 4C 4F 43 4B 53 43 48 4C 45 49 46 45 00 |; .LOCKSCHLEIFE.|
00005D10: 1F 65 50 32 54 55 52 4E 31 20 C2 23 24 30 30 00 |.eP2TURN1 .#$00.|
00005D20: 4F 65 5A 32 44 55 4D 4D 59 20 CA 24 46 46 46 46 |OeZ2DUMMY .$FFFF|
00005D30: 2C 59 3B 20 C2 49 54 4D 41 50 42 59 54 45 20 49 |,Y; .ITMAPBYTE I|
00005D40: 4E 20 C1 4B 4B 55 20 45 49 4E 4C 45 53 45 4E 00 |N .KKU EINLESEN.|
00005D50: 78 65 64 32 54 55 52 4E 32 20 CB 3B 20 C2 49 54 |xed2TURN2 .; .IT|
00005D60: 20 41 55 53 20 C2 49 54 4D 41 50 42 59 54 45 20 | AUS .ITMAPBYTE |
00005D70: 41 55 53 4C 45 53 45 4E 00 A5 65 6E 32 20 CF 43 |AUSLESEN..en2 .C|
00005D80: 48 52 2C 58 3B 20 C2 49 54 20 49 4E 20 C4 52 55 |HR,X; .IT IN .RU|
00005D90: 43 4B 45 52 42 59 54 45 20 52 45 49 4E 53 43 48 |CKERBYTE REINSCH|
00005DA0: 49 45 42 45 4E 00 AC 65 78 32 20 EF 00 C8 65 82 |IEBEN..ex2 ...e.|
00005DB0: 32 20 C0 23 24 30 38 3B 20 49 53 54 20 D8 20 53 |2 .#$08; IST . S|
00005DC0: 43 48 4F 4E 20 38 20 3F 00 06 66 8C 32 20 F6 54 |CHON 8 ?..f.2 .T|
00005DD0: 55 52 4E 32 3B 20 3D 3E 20 D8 20 3C 3E 20 38 20 |URN2; => . <> 8 |
00005DE0: 3D 3E 20 C2 49 54 4D 41 50 42 59 54 45 53 20 4E |=> .ITMAPBYTES N|
00005DF0: 4F 43 48 20 4E 49 43 48 54 20 41 42 47 45 41 52 |OCH NICHT ABGEAR|
00005E00: 42 45 49 54 45 54 00 0D 66 96 32 20 ED 00 29 66 |BEITET..f.2 ..)f|
00005E10: A0 32 20 C1 23 24 30 38 3B 20 49 53 54 20 D9 20 |.2 .#$08; IST . |
00005E20: 53 43 48 4F 4E 20 38 20 3F 00 61 66 AA 32 20 F6 |SCHON 8 ?.af.2 .|
00005E30: 54 55 52 4E 31 3B 20 3D 3E 20 D9 3C 3E 20 38 20 |TURN1; => .<> 8 |
00005E40: 3D 3E 20 C4 52 55 43 4B 45 52 42 59 54 45 53 20 |=> .RUCKERBYTES |
00005E50: 4E 4F 43 48 20 4E 49 43 48 54 20 46 45 52 54 49 |NOCH NICHT FERTI|
00005E60: 47 00 67 66 B4 32 3B 00 8B 66 BE 32 3B 2A 2A 2A |G.gf.2;..f.2;***|
00005E70: 20 20 38 2D C2 59 54 45 20 C2 4C 4F 43 4B 20 44 | 8-.YTE .LOCK D|
00005E80: 52 55 43 4B 45 4E 20 20 2A 2A 2A 00 91 66 C8 32 |RUCKEN ***..f.2|
00005E90: 3B 00 B0 66 D2 32 20 C2 23 24 30 30 3B 20 C9 4E |;..f.2 .#$00; .N|
00005EA0: 44 45 58 20 41 55 46 20 30 20 53 45 54 5A 45 4E |DEX AUF 0 SETZEN|
00005EB0: 00 DB 66 DC 32 50 52 4E 54 20 CA 43 48 52 2C 58 |..f.2PRNT .CHR,X|
00005EC0: 3B 20 58 2D 54 45 53 20 C4 52 55 43 4B 45 52 42 |; X-TES .RUCKERB|
00005ED0: 59 54 45 20 49 4E 20 C1 4B 4B 55 00 F5 66 E6 32 |YTE IN .KKU..f.2|
00005EE0: 20 D6 50 52 49 4E 54 3B 20 C2 59 54 45 20 44 52 | .PRINT; .YTE DR|
00005EF0: 55 43 4B 45 4E 00 0F 67 F0 32 20 D6 50 52 49 4E |UCKEN..g.2 .PRIN|
00005F00: 54 3B 20 C2 59 54 45 20 44 52 55 43 4B 45 4E 00 |T; .YTE DRUCKEN.|
00005F10: 26 67 FA 32 20 EF 3B 20 C9 4E 44 45 58 20 45 52 |&g.2 .; .NDEX ER|
00005F20: 48 4F 45 48 45 4E 00 42 67 04 33 20 C0 23 24 30 |HOEHEN.Bg.3 .#$0|
00005F30: 38 3B 20 49 53 54 20 D8 20 53 43 48 4F 4E 20 38 |8; IST . SCHON 8|
00005F40: 20 3F 00 72 67 0E 33 20 F6 50 52 4E 54 3B 20 3D | ?.rg.3 .PRNT; =|
00005F50: 3E 20 D8 20 3C 3E 20 38 20 3D 3E 20 4E 41 45 43 |> . <> 8 => NAEC|
00005F60: 48 53 54 45 53 20 C2 59 54 45 20 44 52 55 43 4B |HSTES .YTE DRUCK|
00005F70: 45 4E 00 78 67 18 33 3B 00 9E 67 22 33 3B 2A 2A |EN.xg.3;..g"3;**|
00005F80: 2A 20 20 D3 43 48 4C 45 49 46 45 4E 46 4F 52 54 |* .CHLEIFENFORT|
00005F90: 53 43 48 41 4C 54 55 4E 47 20 20 2A 2A 2A 00 A4 |SCHALTUNG ***..|
00005FA0: 67 2C 33 3B 00 BB 67 36 33 20 E5 3B 20 C2 49 54 |g,3;..g63 .; .IT|
00005FB0: 4D 41 50 42 59 54 45 20 2B 20 38 00 CE 67 40 33 |MAPBYTE + 8..g@3|
00005FC0: 20 CA 44 55 4D 4D 59 2B 31 3B 20 4C 53 42 00 E5 | .DUMMY+1; LSB..|
00005FD0: 67 4A 33 20 C5 23 24 30 38 3B 20 38 20 41 44 44 |gJ3 .#$08; 8 ADD|
00005FE0: 49 45 52 45 4E 00 FE 67 54 33 20 D2 44 55 4D 4D |IEREN..gT3 .DUMM|
00005FF0: 59 2B 31 3B 20 53 50 45 49 43 48 45 52 4E 00 1B |Y+1; SPEICHERN..|
00006000: 68 5E 33 20 F4 4E 4F 54 49 4E 43 3B 20 4B 45 49 |h^3 .NOTINC; KEI|
00006010: 4E 20 D5 45 42 45 52 54 52 41 47 00 47 68 68 33 |N .EBERTRAG.Ghh3|
00006020: 20 C9 44 55 4D 4D 59 2B 32 3B 20 3D 3E 20 D5 45 | .DUMMY+2; => .E|
00006030: 42 45 52 54 52 41 47 2C 20 4D 53 42 28 44 55 4D |BERTRAG, MSB(DUM|
00006040: 4D 59 29 20 2B 20 31 00 4D 68 72 33 3B 00 72 68 |MY) + 1.Mhr3;.rh|
00006050: 7C 33 4E 4F 54 49 4E 43 20 C7 42 4C 4F 43 4B 3B ||3NOTINC .BLOCK;|
00006060: 20 42 4C 4F 43 4B 20 3D 20 42 4C 4F 43 4B 20 2D | BLOCK = BLOCK -|
00006070: 20 31 00 A2 68 86 33 20 F6 42 4B 4C 4F 4F 50 3B | 1..h.3 .BKLOOP;|
00006080: 20 49 53 54 20 C2 4C 4F 43 4B 20 53 43 48 4F 4E | IST .LOCK SCHON|
00006090: 20 30 20 3F 20 3D 3E 20 C2 4C 4F 43 4B 20 3C 3E | 0 ? => .LOCK <>|
000060A0: 20 30 00 A8 68 90 33 3B 00 C1 68 9A 33 3B 2A 2A | 0..h.3;..h.3;**|
000060B0: 2A 20 20 C3 D2 20 53 45 4E 44 45 4E 20 20 2A 2A |* .. SENDEN **|
000060C0: 2A 00 C7 68 A4 33 3B 00 CF 68 AE 33 20 43 52 00 |*..h.3;..h.3 CR.|
000060D0: D5 68 B8 33 3B 00 FB 68 C2 33 3B 2A 2A 2A 20 20 |.h.3;..h.3;*** |
000060E0: D3 43 48 4C 45 49 46 45 4E 46 4F 52 54 53 43 48 |.CHLEIFENFORTSCH|
000060F0: 41 4C 54 55 4E 47 20 20 2A 2A 2A 00 01 69 CC 33 |ALTUNG ***..i.3|
00006100: 3B 00 1D 69 D6 33 20 C7 4C 49 4E 45 3B 20 4C 49 |;..i.3 .LINE; LI|
00006110: 4E 45 20 3D 20 4C 49 4E 45 20 2D 20 31 00 4B 69 |NE = LINE - 1.Ki|
00006120: E0 33 20 F6 4C 4E 4C 4F 4F 50 3B 20 49 53 54 20 |.3 .LNLOOP; IST |
00006130: CC 49 4E 45 20 53 43 48 4F 4E 20 30 20 3F 20 3D |.INE SCHON 0 ? =|
00006140: 3E 20 CC 49 4E 45 20 3C 3E 20 30 00 51 69 EA 33 |> .INE <> 0.Qi.3|
00006150: 3B 00 75 69 F4 33 3B 2A 2A 2A 20 20 CE CF D4 28 |;.ui.3;*** ...(|
00006160: C3 CD C4 20 34 29 20 3A 20 C3 CC CF D3 C5 20 34 |... 4) : ..... 4|
00006170: 20 20 2A 2A 2A 00 7B 69 FE 33 3B 00 9D 69 08 34 | ***.{i.3;..i.4|
00006180: 20 49 4E 49 54 3B 20 C4 52 55 43 4B 45 52 20 49 | INIT; .RUCKER I|
00006190: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 C3 69 |NITIALISIEREN..i|
000061A0: 12 34 20 D6 43 4C 52 43 48 3B 20 C3 4F 4D 4D 55 |.4 .CLRCH; .OMMU|
000061B0: 4E 49 43 41 54 49 4F 4E 20 44 49 52 45 43 54 20 |NICATION DIRECT |
000061C0: 41 55 53 00 E3 69 1C 34 20 CA 23 24 30 34 3B 20 |AUS..i.4 .#$04; |
000061D0: 4C 4F 47 49 53 43 48 45 20 C6 49 4C 45 4E 55 4D |LOGISCHE .ILENUM|
000061E0: 4D 45 52 00 00 6A 26 34 20 D6 43 4C 4F 53 45 3B |MER..j&4 .CLOSE;|
000061F0: 20 C6 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E | .ILE SCHLIESSEN|
00006200: 00 06 6A 30 34 3B 00 1B 6A 3A 34 20 E3 3B 20 D2 |..j04;..j:4 .; .|
00006210: 4F 55 54 49 4E 45 4E 45 4E 44 45 00 21 6A 44 34 |OUTINENENDE.!jD4|
00006220: 3B 00 3C 6A 4E 34 3B 2A 2A 2A 20 20 C8 49 4C 46 |;.<jN4;*** .ILF|
00006230: 53 5A 45 4C 4C 45 4E 20 20 2A 2A 2A 00 42 6A 58 |SZELLEN ***.BjX|
00006240: 34 3B 00 69 6A 62 34 43 48 52 20 A5 24 30 30 2C |4;.ijb4CHR .$00,|
00006250: 24 30 30 2C 24 30 30 2C 24 30 30 3B 20 C4 52 55 |$00,$00,$00; .RU|
00006260: 43 4B 45 52 42 59 54 45 53 00 7F 6A 6C 34 20 A5 |CKERBYTES..jl4 .|
00006270: 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 00 |$00,$00,$00,$00.|
00006280: 9A 6A 76 34 42 4C 4F 43 4B 20 A5 24 30 30 3B 20 |.jv4BLOCK .$00; |
00006290: C2 4C 4F 43 4B 49 4E 44 45 58 00 B3 6A 80 34 4C |.LOCKINDEX..j.4L|
000062A0: 49 4E 45 20 A5 24 30 30 3B 20 CC 49 4E 45 49 4E |INE .$00; .INEIN|
000062B0: 44 45 58 00 B9 6A 8A 34 3B 00 D5 6A B0 36 3B 2A |DEX..j.4;..j.6;*|
000062C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000062D0: 2A 2A 2A 2A 2A 00 F1 6A BA 36 3B 2A 2A 2A 20 20 |*****..j.6;*** |
000062E0: D3 41 56 45 2D D2 4F 55 54 49 4E 45 20 20 2A 2A |.AVE-.OUTINE **|
000062F0: 2A 00 0D 6B C4 36 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*..k.6;*********|
00006300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 13 6B |*************..k|
00006310: CE 36 3B 00 29 6B D8 36 3B 2A 2A 2A 20 20 CC 41 |.6;.)k.6;*** .A|
00006320: 42 45 4C 53 20 20 2A 2A 2A 00 2F 6B E2 36 3B 00 |BELS ***./k.6;.|
00006330: 5E 6B EC 36 A3 4C 49 53 54 45 4E 3D 24 46 46 42 |^k.6.LISTEN=$FFB|
00006340: 31 3B 20 C6 4C 4F 50 50 59 20 5A 55 4D 20 C5 4D |1; .LOPPY ZUM .M|
00006350: 50 46 41 4E 47 20 53 43 48 41 4C 54 45 4E 00 8E |PFANG SCHALTEN..|
00006360: 6B F6 36 A3 53 41 4C 49 53 54 3D 24 46 46 39 33 |k.6.SALIST=$FF93|
00006370: 3B 20 D3 45 4B 55 4E 44 41 45 52 41 44 52 45 53 |; .EKUNDAERADRES|
00006380: 53 45 20 46 55 45 52 20 CC C9 D3 D4 C5 CE 00 B2 |SE FUER ........|
00006390: 6B 00 37 A3 43 4C 53 46 49 4C 45 3D 24 46 36 34 |k.7.CLSFILE=$F64|
000063A0: 32 3B 20 C6 49 4C 45 20 53 43 48 4C 49 45 53 53 |2; .ILE SCHLIESS|
000063B0: 45 4E 00 E3 6B 0A 37 A3 53 45 4E 44 4E 4D 3D 24 |EN..k.7.SENDNM=$|
000063C0: 46 33 44 35 3B 20 C6 49 4C 45 4E 41 4D 45 20 46 |F3D5; .ILENAME F|
000063D0: 55 45 52 20 CC C9 D3 D4 C5 CE 20 55 4E 44 20 D4 |UER ...... UND .|
000063E0: C1 CC CB 00 16 6C 14 37 A3 49 45 43 4F 55 54 3D |.....l.7.IECOUT=|
000063F0: 24 46 46 41 38 3B 20 C2 59 54 45 20 41 55 46 20 |$FFA8; .YTE AUF |
00006400: 53 45 52 49 45 4C 4C 45 4D 20 C2 55 53 20 41 55 |SERIELLEM .US AU|
00006410: 53 47 45 42 45 4E 00 1C 6C 1E 37 3B 00 4F 6C 28 |SGEBEN..l.7;.Ol(|
00006420: 37 A3 41 44 52 45 53 53 31 3D 24 46 41 3B 20 DA |7.ADRESS1=$FA; .|
00006430: D0 2D D3 50 45 49 43 48 45 52 20 46 55 45 52 20 |.-.PEICHER FUER |
00006440: 4C 53 42 28 C2 49 54 4D 41 50 42 59 54 45 29 00 |LSB(.ITMAPBYTE).|
00006450: 82 6C 32 37 A3 41 44 52 45 53 53 32 3D 24 46 42 |.l27.ADRESS2=$FB|
00006460: 3B 20 DA D0 2D D3 50 45 49 43 48 45 52 20 46 55 |; ..-.PEICHER FU|
00006470: 45 52 20 4D 53 42 28 C2 49 54 4D 41 50 42 59 54 |ER MSB(.ITMAPBYT|
00006480: 45 29 00 97 6C 3C 37 3B 2A 2A 2A 20 20 CD 41 4B |E)..l<7;*** .AK|
00006490: 52 4F 20 20 2A 2A 2A 00 9D 6C 46 37 3B 00 C2 6C |RO ***..lF7;..l|
000064A0: 50 37 A1 46 49 4C 45 4E 41 4D 45 3B 20 C6 49 4C |P7.FILENAME; .IL|
000064B0: 45 4E 41 4D 45 20 55 45 42 45 52 4D 49 54 54 45 |ENAME UEBERMITTE|
000064C0: 4C 4E 00 E2 6C 5A 37 20 D6 43 48 4B 43 4F 4D 3B |LN..lZ7 .CHKCOM;|
000064D0: 20 41 55 46 20 CB 4F 4D 4D 41 20 50 52 55 45 46 | AUF .OMMA PRUEF|
000064E0: 45 4E 00 FD 6C 64 37 20 D6 46 52 4D 45 56 4C 3B |EN..ld7 .FRMEVL;|
000064F0: 20 D3 54 52 49 4E 47 20 48 4F 4C 45 4E 00 1B 6D | .TRING HOLEN..m|
00006500: 6E 37 20 D6 45 52 45 53 54 52 3B 20 D3 52 54 49 |n7 .ERESTR; .RTI|
00006510: 4E 47 56 45 52 57 41 4C 54 45 4E 00 21 6D 78 37 |NGVERWALTEN.!mx7|
00006520: 3B 00 46 6D 82 37 20 D2 24 42 37 3B 20 C6 49 4C |;.Fm.7 .$B7; .IL|
00006530: 45 4E 41 4D 45 4E 4C 41 45 4E 47 45 20 53 50 45 |ENAMENLAENGE SPE|
00006540: 49 43 48 45 52 4E 00 73 6D 8C 37 20 CA 24 32 32 |ICHERN.sm.7 .$22|
00006550: 3B 20 4C 53 42 20 44 45 52 20 C1 44 52 45 53 53 |; LSB DER .DRESS|
00006560: 45 20 41 55 46 20 44 45 4E 20 C6 49 4C 45 4E 41 |E AUF DEN .ILENA|
00006570: 4D 45 4E 00 A2 6D 96 37 20 D2 24 42 42 3B 20 49 |MEN..m.7 .$BB; I|
00006580: 4E 20 DA D0 2D DA 45 49 47 45 52 20 41 55 46 20 |N ..-.EIGER AUF |
00006590: C6 49 4C 45 4E 41 4D 45 20 53 50 45 49 43 48 45 |.ILENAME SPEICHE|
000065A0: 52 4E 00 B1 6D A0 37 20 CA 24 32 33 3B 20 4D 53 |RN..m.7 .$23; MS|
000065B0: 42 00 E0 6D AA 37 20 D2 24 42 43 3B 20 49 4E 20 |B..m.7 .$BC; IN |
000065C0: DA D0 2D DA 45 49 47 45 52 20 41 55 46 20 C6 49 |..-.EIGER AUF .I|
000065D0: 4C 45 4E 41 4D 45 20 53 50 45 49 43 48 45 52 4E |LENAME SPEICHERN|
000065E0: 00 E6 6D B4 37 A2 00 EC 6D BE 37 3B 00 0A 6E C8 |..m.7...m.7;..n.|
000065F0: 37 3B 2A 2A 2A 20 20 C6 49 4C 45 20 45 52 4F 45 |7;*** .ILE EROE|
00006600: 46 46 4E 45 4E 20 20 2A 2A 2A 00 10 6E D2 37 3B |FFNEN ***..n.7;|
00006610: 00 37 6E DC 37 53 41 20 46 49 4C 45 4E 41 4D 45 |.7n.7SA FILENAME|
00006620: 3B 20 C6 49 4C 45 4E 41 4D 45 20 55 45 42 45 52 |; .ILENAME UEBER|
00006630: 4D 49 54 54 45 4C 4E 00 3D 6E E6 37 3B 00 58 6E |MITTELN.=n.7;.Xn|
00006640: F0 37 20 CA 23 24 30 38 3B 20 C7 45 52 41 45 54 |.7 .#$08; .ERAET|
00006650: 45 41 44 52 45 53 53 45 00 83 6E FA 37 20 D2 24 |EADRESSE..n.7 .$|
00006660: 42 41 3B 20 DA D0 2D DA 45 49 47 45 52 20 46 55 |BA; ..-.EIGER FU|
00006670: 45 52 20 41 4B 54 55 45 4C 4C 45 53 20 C7 45 52 |ER AKTUELLES .ER|
00006680: 41 45 54 00 B7 6E 04 38 20 CA 23 24 36 31 3B 20 |AET..n.8 .#$61; |
00006690: D3 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 45 |.EKUNDAERADRESSE|
000066A0: 20 31 20 46 55 45 52 20 D3 50 45 49 43 48 45 52 | 1 FUER .PEICHER|
000066B0: 4E 20 2B 20 24 36 30 00 EB 6E 0E 38 20 D2 24 42 |N + $60..n.8 .$B|
000066C0: 39 3B 20 DA D0 2D DA 45 49 47 45 52 20 46 55 45 |9; ..-.EIGER FUE|
000066D0: 52 20 41 4B 54 55 45 4C 4C 45 20 D3 45 4B 55 4E |R AKTUELLE .EKUN|
000066E0: 44 41 45 52 41 44 52 45 53 53 45 00 F1 6E 18 38 |DAERADRESSE..n.8|
000066F0: 3B 00 0F 6F 22 38 20 D6 53 45 4E 44 4E 4D 3B 20 |;..o"8 .SENDNM; |
00006700: C6 49 4C 45 4E 41 4D 45 20 53 45 4E 44 45 4E 00 |.ILENAME SENDEN.|
00006710: 15 6F 2C 38 3B 00 2F 6F 36 38 20 CA 24 42 41 3B |.o,8;./o68 .$BA;|
00006720: 20 C7 45 52 41 45 54 45 41 44 52 45 53 53 45 00 | .ERAETEADRESSE.|
00006730: 4B 6F 40 38 20 D6 4C 49 53 54 45 4E 3B 20 CC 49 |Ko@8 .LISTEN; .I|
00006740: 53 54 45 4E 20 53 45 4E 44 45 4E 00 67 6F 4A 38 |STEN SENDEN.goJ8|
00006750: 20 CA 24 42 39 3B 20 D3 45 4B 55 4E 44 41 45 52 | .$B9; .EKUNDAER|
00006760: 41 44 52 45 53 53 45 00 8D 6F 54 38 20 D6 53 41 |ADRESSE..oT8 .SA|
00006770: 4C 49 53 54 3B 20 D3 45 4B 55 4E 44 41 45 52 41 |LIST; .EKUNDAERA|
00006780: 44 52 45 53 53 45 20 53 45 4E 44 45 4E 00 93 6F |DRESSE SENDEN..o|
00006790: 5E 38 3B 00 B8 6F 68 38 3B 2A 2A 2A 20 20 D0 52 |^8;..oh8;*** .R|
000067A0: 4F 47 52 41 4D 4D 41 44 52 45 53 53 45 20 24 38 |OGRAMMADRESSE $8|
000067B0: 30 30 30 20 20 2A 2A 2A 00 BE 6F 72 38 3B 00 DC |000 ***..or8;..|
000067C0: 6F 7C 38 20 CA 23 3C 28 42 49 54 4D 41 50 29 3B |o|8 .#<(BITMAP);|
000067D0: 20 4C 53 42 28 42 49 54 4D 41 50 29 00 FB 6F 81 | LSB(BITMAP)..o.|
000067E0: 38 20 D2 41 44 52 45 53 53 31 3B 20 49 4E 20 DA |8 .ADRESS1; IN .|
000067F0: D0 20 53 43 48 52 45 49 42 45 4E 00 24 70 86 38 |. SCHREIBEN.$p.8|
00006800: 20 D6 49 45 43 4F 55 54 3B 20 41 55 46 20 53 45 | .IECOUT; AUF SE|
00006810: 52 49 45 4C 4C 45 4E 20 C2 55 53 20 41 55 53 47 |RIELLEN .US AUSG|
00006820: 45 42 45 4E 00 42 70 90 38 20 CA 23 3E 28 42 49 |EBEN.Bp.8 .#>(BI|
00006830: 54 4D 41 50 29 3B 20 4D 53 42 28 42 49 54 4D 41 |TMAP); MSB(BITMA|
00006840: 50 29 00 61 70 95 38 20 D2 41 44 52 45 53 53 32 |P).ap.8 .ADRESS2|
00006850: 3B 20 49 4E 20 DA D0 20 53 43 48 52 45 49 42 45 |; IN .. SCHREIBE|
00006860: 4E 00 8A 70 9A 38 20 D6 49 45 43 4F 55 54 3B 20 |N..p.8 .IECOUT; |
00006870: 41 55 46 20 53 45 52 49 45 4C 4C 45 4E 20 C2 55 |AUF SERIELLEN .U|
00006880: 53 20 41 55 53 47 45 42 45 4E 00 90 70 A4 38 3B |S AUSGEBEN..p.8;|
00006890: 00 B0 70 AE 38 3B 2A 2A 2A 20 20 C2 49 54 4D 41 |..p.8;*** .ITMA|
000068A0: 50 20 53 50 45 49 43 48 45 52 4E 20 20 2A 2A 2A |P SPEICHERN ***|
000068B0: 00 B6 70 B8 38 3B 00 DE 70 F4 38 20 C2 23 24 30 |..p.8;..p.8 .#$0|
000068C0: 46 3B 20 24 30 46 30 30 20 C2 49 54 4D 41 50 42 |F; $0F00 .ITMAPB|
000068D0: 59 54 45 53 20 53 50 45 49 43 48 45 52 4E 00 FF |YTES SPEICHERN..|
000068E0: 70 FE 38 53 41 56 45 32 20 C3 23 24 30 30 3B 20 |p.8SAVE2 .#$00; |
000068F0: 49 4E 4E 45 52 45 20 D3 43 48 4C 45 49 46 45 00 |INNERE .CHLEIFE.|
00006900: 30 71 08 39 53 41 56 45 31 20 CA 28 41 44 52 45 |0q.9SAVE1 .(ADRE|
00006910: 53 53 31 29 2C 59 3B 20 C2 49 54 4D 41 50 42 59 |SS1),Y; .ITMAPBY|
00006920: 54 45 20 49 4E 20 C1 4B 4B 55 20 48 4F 4C 45 4E |TE IN .KKU HOLEN|
00006930: 00 59 71 12 39 20 D6 49 45 43 4F 55 54 3B 20 41 |.Yq.9 .IECOUT; A|
00006940: 55 46 20 53 45 52 49 45 4C 4C 45 4E 20 C2 55 53 |UF SERIELLEN .US|
00006950: 20 41 55 53 47 45 42 45 4E 00 60 71 1C 39 20 ED | AUSGEBEN.`q.9 .|
00006960: 00 8A 71 26 39 20 F6 53 41 56 45 31 3B 20 53 43 |..q&9 .SAVE1; SC|
00006970: 48 4F 4E 20 32 35 36 20 C2 59 54 45 53 20 41 55 |HON 256 .YTES AU|
00006980: 53 47 45 47 45 42 45 4E 20 3F 00 AF 71 30 39 20 |SGEGEBEN ?..q09 |
00006990: C9 41 44 52 45 53 53 32 3B 20 41 44 52 45 53 53 |.ADRESS2; ADRESS|
000069A0: 32 20 3D 20 41 44 52 45 53 53 32 20 2B 20 31 00 |2 = ADRESS2 + 1.|
000069B0: E1 71 3A 39 20 EE 3B 20 41 45 55 53 53 45 52 45 |.q:9 .; AEUSSERE|
000069C0: 4E 20 D3 43 48 4C 45 49 46 45 4E 49 4E 44 45 58 |N .CHLEIFENINDEX|
000069D0: 20 55 4D 20 31 20 45 52 4E 49 45 44 52 49 47 45 | UM 1 ERNIEDRIGE|
000069E0: 4E 00 0F 72 44 39 20 F6 53 41 56 45 32 3B 20 53 |N..rD9 .SAVE2; S|
000069F0: 43 48 4F 4E 20 24 30 46 30 30 20 C2 59 54 45 53 |CHON $0F00 .YTES|
00006A00: 20 41 42 47 45 53 50 45 49 43 48 45 52 54 3F 00 | ABGESPEICHERT?.|
00006A10: 15 72 4E 39 3B 00 34 72 58 39 3B 2A 2A 2A 20 20 |.rN9;.4rX9;*** |
00006A20: C6 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E 20 |.ILE SCHLIESSEN |
00006A30: 20 2A 2A 2A 00 3A 72 62 39 3B 00 59 72 6C 39 20 | ***.:rb9;.Yrl9 |
00006A40: D6 43 4C 53 46 49 4C 45 3B 20 C6 49 4C 45 20 53 |.CLSFILE; .ILE S|
00006A50: 43 48 4C 49 45 53 53 45 4E 00 5F 72 76 39 3B 00 |CHLIESSEN._rv9;.|
00006A60: 74 72 80 39 20 E3 3B 20 D2 4F 55 54 49 4E 45 4E |tr.9 .; .OUTINEN|
00006A70: 45 4E 44 45 00 7A 72 8A 39 3B 00 96 72 98 3A 3B |ENDE.zr.9;..r.:;|
00006A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006A90: 2A 2A 2A 2A 2A 2A 00 B2 72 A2 3A 3B 2A 2A 2A 20 |******..r.:;*** |
00006AA0: 20 CC 4F 41 44 2D D2 4F 55 54 49 4E 45 20 20 2A | .OAD-.OUTINE *|
00006AB0: 2A 2A 00 CE 72 AC 3A 3B 2A 2A 2A 2A 2A 2A 2A 2A |**..r.:;********|
00006AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D4 |**************..|
00006AD0: 72 B6 3A 3B 00 EA 72 C0 3A 3B 2A 2A 2A 20 20 CC |r.:;..r.:;*** .|
00006AE0: 41 42 45 4C 53 20 20 2A 2A 2A 00 F0 72 CA 3A 3B |ABELS ***..r.:;|
00006AF0: 00 0D 73 D4 3A A3 54 41 4C 4B 3D 24 46 46 42 34 |..s.:.TALK=$FFB4|
00006B00: 3B 20 D4 C1 CC CB 20 53 45 4E 44 45 4E 00 42 73 |; .... SENDEN.Bs|
00006B10: DE 3A A3 53 41 54 41 4C 4B 3D 24 46 46 39 36 3B |.:.SATALK=$FF96;|
00006B20: 20 D3 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 | .EKUNDAERADRESS|
00006B30: 45 20 46 55 45 52 20 D4 C1 CC CB A0 53 45 4E 44 |E FUER .....SEND|
00006B40: 45 4E 00 74 73 E8 3A A3 49 45 43 49 4E 3D 24 46 |EN.ts.:.IECIN=$F|
00006B50: 46 41 35 3B 20 DA 45 49 43 48 45 4E 20 56 4F 4E |FA5; .EICHEN VON|
00006B60: 20 53 45 52 49 45 4C 4C 45 4E 20 C2 55 53 20 48 | SERIELLEN .US H|
00006B70: 4F 4C 45 4E 00 93 73 F2 3A A3 53 54 41 54 55 53 |OLEN..s.:.STATUS|
00006B80: 3D 24 39 30 3B 20 D3 54 41 54 55 53 42 59 54 45 |=$90; .TATUSBYTE|
00006B90: 20 D3 D4 00 99 73 FC 3A 3B 00 B7 73 06 3B 3B 2A | ....s.:;..s.;;*|
00006BA0: 2A 2A 20 20 C6 49 4C 45 20 45 52 4F 45 46 46 4E |** .ILE EROEFFN|
00006BB0: 45 4E 20 20 2A 2A 2A 00 BD 73 10 3B 3B 00 E3 73 |EN ***..s.;;..s|
00006BC0: 1A 3B 4C 4F 20 46 49 4C 45 4E 41 4D 45 3B 20 C6 |.;LO FILENAME; .|
00006BD0: 49 4C 4E 41 4D 45 20 55 45 42 45 52 4D 49 54 54 |ILNAME UEBERMITT|
00006BE0: 45 4C 4E 00 E9 73 24 3B 3B 00 04 74 2E 3B 20 CA |ELN..s$;;..t.; .|
00006BF0: 23 24 30 38 3B 20 C7 45 52 41 45 54 45 41 44 52 |#$08; .ERAETEADR|
00006C00: 45 53 53 45 00 30 74 38 3B 20 D2 24 42 41 3B 20 |ESSE.0t8; .$BA; |
00006C10: DA D0 2D DA 45 49 47 45 52 20 46 55 45 52 20 41 |..-.EIGER FUER A|
00006C20: 4B 54 55 45 4C 4C 45 53 20 C7 45 52 45 41 45 54 |KTUELLES .EREAET|
00006C30: 00 55 74 42 3B 20 CA 23 24 36 30 3B 20 D3 45 4B |.UtB; .#$60; .EK|
00006C40: 55 4E 44 41 45 52 41 44 52 45 53 53 45 20 30 20 |UNDAERADRESSE 0 |
00006C50: 2B 20 24 36 30 00 89 74 4C 3B 20 D2 24 42 39 3B |+ $60..tL; .$B9;|
00006C60: 20 DA D0 2D DA 45 49 47 45 52 20 46 55 45 52 20 | ..-.EIGER FUER |
00006C70: 41 4B 54 55 45 4C 4C 45 20 D3 45 4B 55 4E 44 41 |AKTUELLE .EKUNDA|
00006C80: 45 52 41 44 52 45 53 53 45 00 8F 74 56 3B 3B 00 |ERADRESSE..tV;;.|
00006C90: AE 74 60 3B 20 D6 53 45 4E 44 4E 4D 3B 20 C6 49 |.t`; .SENDNM; .I|
00006CA0: 4C 45 4E 41 4D 45 4E 20 53 45 4E 44 45 4E 00 B4 |LENAMEN SENDEN..|
00006CB0: 74 6A 3B 3B 00 CE 74 74 3B 20 CA 24 42 41 3B 20 |tj;;..tt; .$BA; |
00006CC0: C7 45 52 41 45 54 45 41 44 52 45 53 53 45 00 E6 |.ERAETEADRESSE..|
00006CD0: 74 7E 3B 20 D6 54 41 4C 4B 3B 20 D4 41 4C 4B 20 |t~; .TALK; .ALK |
00006CE0: 53 45 4E 44 45 4E 00 02 75 88 3B 20 CA 24 42 39 |SENDEN..u.; .$B9|
00006CF0: 3B 20 D3 45 4B 55 4E 44 41 45 52 41 44 52 45 53 |; .EKUNDAERADRES|
00006D00: 53 45 00 32 75 92 3B 20 D6 53 41 54 41 4C 4B 3B |SE.2u.; .SATALK;|
00006D10: 20 D3 45 4B 55 4E 44 41 45 52 41 44 52 45 53 53 | .EKUNDAERADRESS|
00006D20: 45 20 46 55 45 52 20 D4 41 4C 4B 20 53 45 4E 44 |E FUER .ALK SEND|
00006D30: 45 4E 00 38 75 9C 3B 3B 00 62 75 A6 3B 3B 2A 2A |EN.8u.;;.bu.;;**|
00006D40: 2A 20 20 D0 52 4F 47 52 41 4D 4D 41 44 52 45 53 |* .ROGRAMMADRES|
00006D50: 53 45 20 55 45 42 45 52 4C 45 53 45 4E 20 20 2A |SE UEBERLESEN *|
00006D60: 2A 2A 00 68 75 B0 3B 3B 00 95 75 BA 3B 20 D6 49 |**.hu.;;..u.; .I|
00006D70: 45 43 49 4E 3B 20 C2 59 54 45 20 56 4F 4E 20 53 |ECIN; .YTE VON S|
00006D80: 45 52 49 45 4C 4C 45 4E 20 C2 55 53 20 45 49 4E |ERIELLEN .US EIN|
00006D90: 4C 45 53 45 4E 00 C2 75 C4 3B 20 D6 49 45 43 49 |LESEN..u.; .IECI|
00006DA0: 4E 3B 20 C2 59 54 45 20 56 4F 4E 20 53 45 52 49 |N; .YTE VON SERI|
00006DB0: 45 4C 4C 45 4E 20 C2 55 53 20 45 49 4E 4C 45 53 |ELLEN .US EINLES|
00006DC0: 45 4E 00 C8 75 CE 3B 3B 00 E7 75 D8 3B 3B 2A 2A |EN..u.;;..u.;;**|
00006DD0: 2A 20 20 C2 49 54 4D 41 50 20 45 49 4E 4C 45 53 |* .ITMAP EINLES|
00006DE0: 45 4E 20 20 2A 2A 2A 00 ED 75 E2 3B 3B 00 1D 76 |EN ***..u.;;..v|
00006DF0: EC 3B 20 CA 23 3C 28 42 49 54 4D 41 50 29 3B 20 |.; .#<(BITMAP); |
00006E00: C2 49 54 4D 41 50 41 44 52 45 53 53 45 20 49 4E |.ITMAPADRESSE IN|
00006E10: 20 DA D0 20 53 43 48 52 45 49 42 45 4E 00 30 76 | .. SCHREIBEN.0v|
00006E20: F6 3B 20 D2 41 44 52 45 53 53 31 3B 20 4C 53 42 |.; .ADRESS1; LSB|
00006E30: 00 41 76 00 3C 20 CA 23 3E 28 42 49 54 4D 41 50 |.Av.< .#>(BITMAP|
00006E40: 29 00 54 76 0A 3C 20 D2 41 44 52 45 53 53 32 3B |).Tv.< .ADRESS2;|
00006E50: 20 4D 53 42 00 5A 76 14 3C 3B 00 90 76 1E 3C 20 | MSB.Zv.<;..v.< |
00006E60: C2 23 24 30 46 3B 20 41 45 55 53 53 45 52 45 4E |.#$0F; AEUSSEREN|
00006E70: 20 D3 43 48 4C 45 49 46 45 4E 5A 41 45 48 4C 45 | .CHLEIFENZAEHLE|
00006E80: 52 20 41 55 46 20 24 30 46 20 53 45 54 5A 45 4E |R AUF $0F SETZEN|
00006E90: 00 C4 76 28 3C 20 C3 23 24 30 30 3B 20 49 4E 4E |..v(< .#$00; INN|
00006EA0: 45 52 45 4E 20 D3 43 48 4C 45 49 46 45 4E 5A 41 |EREN .CHLEIFENZA|
00006EB0: 45 48 4C 45 52 20 41 55 46 20 24 30 30 20 53 45 |EHLER AUF $00 SE|
00006EC0: 54 5A 45 4E 00 F6 76 32 3C 4C 4F 41 44 31 20 D6 |TZEN..v2<LOAD1 .|
00006ED0: 49 45 43 49 4E 3B 20 C2 59 54 45 20 56 4F 4E 20 |IECIN; .YTE VON |
00006EE0: 53 45 52 49 45 4C 4C 45 4E 20 C2 55 53 20 45 49 |SERIELLEN .US EI|
00006EF0: 4E 4C 45 53 45 4E 00 22 77 3C 3C 20 D2 28 41 44 |NLESEN."w<< .(AD|
00006F00: 52 45 53 53 31 29 2C 59 3B 20 C2 59 54 45 20 49 |RESS1),Y; .YTE I|
00006F10: 4E 20 C2 49 54 4D 41 50 20 53 43 48 52 45 49 42 |N .ITMAP SCHREIB|
00006F20: 45 4E 00 47 77 46 3C 20 CA 53 54 41 54 55 53 3B |EN.GwF< .STATUS;|
00006F30: 20 D3 54 41 54 55 53 42 59 54 45 20 D3 D4 20 45 | .TATUSBYTE .. E|
00006F40: 49 4E 4C 45 53 45 4E 00 69 77 50 3C 20 F6 4C 4F |INLESEN.iwP< .LO|
00006F50: 41 44 32 3B 20 3D 3E 20 C5 CF C6 20 28 C5 4E 44 |AD2; => ... (.ND|
00006F60: 20 4F 46 20 C6 49 4C 45 29 00 70 77 5A 3C 20 ED | OF .ILE).pwZ< .|
00006F70: 00 A7 77 64 3C 20 F6 4C 4F 41 44 31 3B 20 49 53 |..wd< .LOAD1; IS|
00006F80: 54 20 49 4E 4E 45 52 45 20 D3 43 48 4C 45 49 46 |T INNERE .CHLEIF|
00006F90: 45 4E 20 53 43 48 4F 4E 20 41 42 47 45 41 44 52 |EN SCHON ABGEADR|
00006FA0: 45 49 54 45 54 20 3F 00 D4 77 6E 3C 20 C9 41 44 |EITET ?..wn< .AD|
00006FB0: 52 45 53 53 32 3B 20 4D 53 42 28 41 44 52 45 53 |RESS2; MSB(ADRES|
00006FC0: 53 29 20 3D 20 4D 53 42 28 41 44 52 45 53 53 29 |S) = MSB(ADRESS)|
00006FD0: 20 2B 20 31 00 DB 77 78 3C 20 EE 00 19 78 82 3C | + 1..wx< ...x.<|
00006FE0: 20 F6 4C 4F 41 44 31 3B 20 53 43 48 4F 4E 20 41 | .LOAD1; SCHON A|
00006FF0: 4C 4C 45 20 C2 59 54 45 53 20 45 49 4E 47 45 4C |LLE .YTES EINGEL|
00007000: 45 53 45 4E 20 3F 20 28 2D 3E 20 4C 4F 41 44 31 |ESEN ? (-> LOAD1|
00007010: 2C 20 44 41 20 59 3D 30 29 00 1F 78 8C 3C 3B 00 |, DA Y=0)..x.<;.|
00007020: 3E 78 96 3C 3B 2A 2A 2A 20 20 C6 49 4C 45 20 53 |>x.<;*** .ILE S|
00007030: 43 48 4C 49 45 53 53 45 4E 20 20 2A 2A 2A 00 44 |CHLIESSEN ***.D|
00007040: 78 A0 3C 3B 00 68 78 AA 3C 4C 4F 41 44 32 20 D6 |x.<;.hx.<LOAD2 .|
00007050: 43 4C 53 46 49 4C 45 3B 20 C6 49 4C 45 20 53 43 |CLSFILE; .ILE SC|
00007060: 48 4C 49 45 53 53 45 4E 00 6E 78 B4 3C 3B 00 83 |HLIESSEN.nx.<;..|
00007070: 78 BE 3C 20 E3 3B 20 D2 4F 55 54 49 4E 45 4E 45 |x.< .; .OUTINENE|
00007080: 4E 44 45 00 89 78 C8 3C 3B 00 AE 78 D2 3C 3B 2A |NDE..x.<;..x.<;*|
00007090: 2A 2A 20 20 C5 4E 44 45 20 44 45 53 20 D3 4F 55 |** .NDE DES .OU|
000070A0: 52 43 45 54 45 58 54 45 53 20 20 2A 2A 2A 00 B4 |RCETEXTES ***..|
000070B0: 78 DC 3C 3B 00 00 00 |x.<;... |
..(.D.;*********************************
.O.N.;*** ***.
V.X.;*** KURS ***..
...;*** ZAUBEREIEN MIT GRAFIK UND ***.D.
..;*** ASSEMBLER ***....
.;*** ***... .
;*********************************.9...;
*** ***.`...;*
** BASIC-ERWEITERUNG ***.....;**
* SPLIT-SCREEN ***...H.;***
***.U.R.;****
*****************************.....;***
***.#...;*** (C
) 1988 BY THOMAS LIPP ***.J...;*** 800
0 MUENCHEN 82 ***.Q...;***
***.....;*********
************************.....;......$C00
0..."..$C000...,.;...6.;****************
*****************...@.;*** BASIC-ERWEIT
ERUNG ***./.J.;******************
***************.5.T.;.K.^.;*** LABELS
***.Q.H.;.S.R..CHRGET=$0073; CHRGET-ROUT
INE...|..CHRGOT=$0079; CHRGOT-ROUTINE...
...TXTPTR=$007A; CHRGET-ZEIGER.....;....
..IGONE=$0308; VEKTOR ZUM ROUTINENAUFRUF
......GONE1=$A7E4; ALTER INHALT VON IGON
E.A....INTEND=$A7E7; ENDE DER INTERPRETE
RSCHLEIFE.G...;.N.B.;*** ERWEITERUNG EI
NSCHALTEN ***.T.L.;...V. J#$FF; SPEICHE
RGRENZE AUF $7FFF HERABSETZEN.A... R$37;
LSB SPEICHERENDE.L... J#$7F..... R$38;
MSB SPEICHERENDE.....;..... J#<(START);
LSB DER EIGENEN ROUTINE.8... RIGONE; IN
VEKTOR SCHREIBEN.A... J#>(START); MSB DE
R EIGENEN ROUTINE...&. RIGONE+1; IN VEKT
OR SCHREIBEN...0.;...:. .; RUECKSPRUNG I
NS BASIC...D.;.U.N.;*** ERWEITERUNG AUS
SCHALTEN ***...X.;...B.AUS J#<(GONE1);
VEKTOR AUF NORMALWERT ZURUECKSTELLEN.%.L
. RIGONE; LSB.5.V. J#>(GONE1).G... RIGON
E+1;MSB.M...;.B... .; ROUTINENENDE.H...;
.....;*** ERWEITERTE INTERPRETERSCHLEIF
E ***.....;.....START VCHRGET; ZEICHEN H
OLEN.B.F.;.Z.P. D#$60; BUCHSTABE ?...Z.
.ENDE; => BASIC-CODE..... D#$41; BUCHSTA
BE A ?.+... .ENDE; => SONDERZEICHEN.1...
;.J... RAKKU; AKKU SICHERN.P...;.[... B#
$00... . SBEFNR; BEFEHLSNUMMER AUF 0 SET
ZEN...*.;...4.ERW1 C#$00; BASICTEXTINDEX
AUF 0 SETZEN.S.>. IBEFNR; BEFEHLSNUMMER
+1...H. JBEFTAB,X; ZEICHEN AUS BEFEHLST
ABELLE HOLEN.".R. .ERW2; KEIN TRENNZEICH
EN.9.\. JAKKU; AKKU HOLEN.[.F.ENDE VCHRG
OT; CHRGOT AUFRUFEN...P. UINTEND; ZURUEC
K INS NORMALE BASIC...Z.;.....;*** ADRE
SSE SUCHEN ***.....;.....ERW2 D(TXTPTR)
,Y; VERGLEICH MIT BASICTEXT..... .OVRD;
UNGLEICH -> REST UEBERLESEN..... .; BASI
CTEXTINDEX + 1.<... .; BEFEHLSTAB.-INDEX
+ 1.D... JBEFTAB,X; NAECHSTES ZEICHEN H
OLEN.{.J. .ERW2; => PRUEFEN...T.;.....;.
.... ...... Y; BEFEHLSINDEX UM BEFEHLSLA
ENGE ERHOEHEN.J... ETXTPTR.W... RTXTPTR.
.... .ERW3; UEBERTRAG ?..... ITXTPTR+1;
MSB ERHOEHEN...$.;.<...ERW3 JBEFNR; BEFE
HLSNUMMER VERDOPPELN.C.8. K.F.B. X; ALS
INDEX IN SPRUNGTABELLE...L. JSPRTAB1,X;
LSB LESEN...V. RSPRUNG+1; LSB SCHREIBEN.
..`. JSPRTAB2,X; MSB LESEN.X.J. RSPRUNG+
2; MSB SCHREIBEN...T.;...~.SPRUNG V$FFFF
; DUMMY.....;..... UENDE; ZURUECK INS BA
SIC.!...;.N...;*** RESTL. BEFEHLSTEXT U
EBERLESEN ***.T...;.V...OVRD .; BEFEHLS
TAB.-INDEX + 1...D. JBEFTAB,X; NAECHSTES
ZEICHEN HOLEN...N. .OVRD; => KEIN TRENN
ZEICHEN...X. .; BEFEHLSTAB.-INDEX+1.....
UERW1; NAECHSTER BEFEHL.....;.'...;***
TABELLEN FUER ERWEITERUNG ***.-...;.J.
..;*** SPRUNGTABELLE ***.P...;.A...SPR
TAB1 .$E7.R.(.SPRTAB2 .$A7.|.2. .AUS...<
. .IR...F. .IA...P. .GL. .Z. .SP...D. .E
P...N. .LN...X. .CP.D... .HC.M... .SA.V.
.. .LO... . .$00,$00.....;.....;*** BEF
EHLSTABELLE ***.....;...H.BEFTAB ."OFF.
).R. .$00.4... ."IRQ.>... .$00.J... ."TE
XT.T... .$00._... ."GCL.I... .$00.T... .
"SET.~.". .$00...,. ."ERASE...6. .$00...
@. ."LINE...J. .$00...T. ."CHAR.A.^. .$0
0.K.H. ."HC.U.R. .$00...|. ."SA..... .$0
0..... ."LO..... .$00,$00.....;."...;***
HILFSZELLEN ***.(...;.6.B.AKKU .$00.E
.L.BEFNR .$00.K.V.;.R.P.;***************
******************...Z.;*** RASTERZEILE
NINTERRUPT ***.....;*****************
****************.F...;.....;*** LABELS:
GRAFIK ***.....;......V1=$D011; ADR. G
RAFIKMODUS.'....V2=$D018; ADR. VIDEORAM.
E. ..CIA=$DD00; 16K-SELECTION.P.*..CLRSC
R=$E544; TEXTBILDSCHIRM LOESCHEN...4..CU
RSOR=$E510; CURSOR SETZEN...>..XCUR=$00D
3; X-KOORDINATE DES CURSOR...H..YCUR=$00
D6; Y-KOORDINATE DES CURSOR...R..HELP1=$
00FA; ZEROPAGESPEICHERSTELLE.5.\..HELP2=
$00FB; ZEROPAGESPEICHERSTELLE.V.F..BITMA
P=$8000; BITMAPADRESSE.{.P..VIDEORAM=$A0
00; VIDEORAMADRESSE...Z.;.I...;*** MAKR
OS: GRAFIK EIN/AUS, VIDEORAM LOESCHEN, C
URSOR SETZEN ***.O...;......GRA; GRAFIK
EINSCHALTEN..... J#$3B; BITMAPMODUS EIN
SCHALTEN..... RV1.:... J#$80; VIDEORAM S
ELECTIEREN.C... RV2.G.J. J#$01; 16K-BERE
ICH SELECTIEREN.Q.T. RCIA.W.....}...;...
...TXT; GRAFIK AUSSCHALTEN..... J#$1B; B
ITMAPMODUS AUSSCHALTEN.G... RV1..... J#$
15; VIDEORAM ZURUECKSETZEN..... RV2...$.
J#$03; 16K-BEREICH SELECTIEREN.!... RCI
A.'.8...-.B.;.J.L..VRAM; VIDEORAM LOESCH
EN.C.V. J#208; VIDEORAMWERT.I.`.;...J. C
#>(VIDEORAM); STARTADRESSE DES VIDEORAMS
IN ZP SCHREIBEN...T. THELP2; MSB.L.~. C
#<(VIDEORAM)..... THELP1; LSB..... B#$04
; INDEX FUER AEUSSERE SCHLEIFE.B...VL1 R
(HELP1),Y; BYTE IM VIDEORAM MIT 208 UEBE
RSCHREIBEN.J... .; Y + 1 ; INNERE SCHLEI
FE 256 MAL.}... .VL1; => Y<>0..... IHELP
2; MSB DER VIDEORAMPOSITION + 1.N.D. .;
AEUSSERER SCHLEIFENZAEHLER - 1...N. .VL1
; => X<>0...X.......;......CUR..... J#12
; 12. ZEILE.'... RYCUR; IN ZP SCHREIBEN.
=... J#$00; 0. SPALTE.Y... RXCUR; IN ZP
SCHREIBEN..... UCURSOR; CURSOR SETZEN UN
D ROUTINENENDE...(.....2.;...<.;*** LAB
EL: RASTERZEILENINTERRUPT ***.D.F.;...P
..IRQ=$0314; IRQ-VEKTOR. .Z..RASTER=$D01
2; RASTERZEILEN REGISTER; MSB (7.BIT) =
RASTER-1.K.D..RIRQEN=$D01A; VIC-IRQ ENAB
LE REGISTER.W.N..REQIRQ=$D019; VIC-IRQ R
EQUEST REGISTER...X..CIAIRQ=$DC0D; CIA1
IRQ KONTROLL REGISTER.H....CNTIRQ=$EA31;
CIA IRQ ROUTINE......ENDIRQ=$EA81; ENDE
DER NORMALEN IRQ ROUTINE.....;.5. .;***
INIT: VEKTOREN VERBIEGEN, IRQ ZULASSEN
***.;...;.W...IR .; INTERRUPT SPERREN.
]...;...H. J#<(MAINIRQ); IRQ-VEKTOR AUF
EIGENE IRQ ROUTINE VERBIEGEN...R. RIRQ;
LSB..... J#>(MAINIRQ).N... RIRQ+1; MSB.T
...;..... J#$00; RASTERZEILE 0 (OBERHALB
DES BILDSCHIRMFENSTERS).4... RRASTER; I
N REGISTER SCHREIBEN.Y... JRASTER-1; MSB
(7.BIT) LOESCHEN.D... F#$7F.S.". RRASTE
R-1.Y.,.;...6. J#%10000001; RASTER IRQ Z
ULASSEN...@. RRIRQEN...J.;.L.T. J#128; T
IMER-IRQ AUS.X.^. R$DC0E...H.;.. |. .; I
NTERRUPT WIEDER ZULASSEN.. ..;.D ..;***
BILDSCHIRM UND VIDEORAM LOESCHEN, CURSOR
SETZEN ***.J ..;.P .. VCLRSCR; TEXTBIL
DSCHIRM LOESCHEN.. .. VRAM; VIDEORAM LOE
SCHEN.. .. CUR; CURSOR SETZEN.. B.;.R L.
;*** VERAENDERTE IRQ-ROUTINE ***.X V.;
.. ..MAINIRQ .; INTERRUPT SPERREN..!.. J
REQIRQ; IRQ VON RASTERSTRAHL ?.S!.. RREQ
IRQ; REGISTER ZURUECKSCHREIBEN UND LOESC
HEN.{!.. .RASTERIRQ; ZUR RASTER IRQ ROUT
INE..!.. JCIAIRQ; LOESCHEN DES CIA1 KONT
ROLL REGISTER.O!.. .; INTERRUPT WIEDER Z
ULASSEN..!.. UENDIRQ; ZUM ENDE DER NORMA
LEN IRQ ROUTINE.."&.;.'"0.;*** RASTER I
RQ ROUTINE ***.-":.;.P"D.RASTERIRQ .; I
NTERRUPT SPERREN.}"N. JRASTER; RASTERZEI
LEN-REGISTER AUSLESEN.."B. .TEXTFE; => R
ASTER = $91.."L.;.."V. GRA; GRAFIK EINSC
HALTEN.D"..;..".. J#$91; 145. RASTERZEIL
E, UMSCHALTUNG AUF TEXT..#.. RRASTER; IN
REGISTER SCHREIBEN.@#.. JRASTER-1; MSB
(7.BIT) LOESCHEN.K#.. F#$7F.Z#.. RRASTER
-1.`#..;..#F. .; INTERRUPT WIEDER ZULASS
EN..#P. UCNTIRQ; ZUR CIA IRQ ROUTINE..#Z
.;..#..TEXTFE B#$07; WARTESCHLEIFE, BIS
DER RASTERSTRAHL IM RAND IST..#..IRQWAIT
...$.. ...$.. .IRQWAIT..$..;.N$.. TXT;
GRAFIK AUSSCHALTEN, TEXTBILDSCHIRM EINSC
HALTEN.T$ .;..$*. J#$00; 0. ZEILE, UMSCH
ALTUNG AUF GRAFIK..$4. RRASTER; IN REGIS
TER SCHREIBEN.J$>. JRASTER-1; MSB (7.BIT
) LOESCHEN.U$H. F#$7F..$R. RRASTER-1..$\
.;..%F. .; INTERRUPT WIEDER ZULASSEN.3%P
. UENDIRQ; ZUM ENDE DER IRQ-ROUTINE.9%Z.
;.Q%..;*** RASTERZEILENINTERRUPT WIEDER
AUSSCHALTEN ***.W%..;..%..IA .; INTERR
UPT SPERREN..%..;..%.. J#$00; RASTER IRQ
AUSSCHALTEN..%.. RRIRQEN; IN REGISTER S
CHREIBEN..%..;..&.. J#<(CNTIRQ); IRQ-VEK
TOR WIEDER HERSTELLEN.$&J. RIRQ; LSB.5&T
. J#>(CNTIRQ).F&.. RIRQ+1; MSB.L&..;.D&.
. J#1; TIMER-IRQ EIN.P&.. R$DC0E.V&..;..
&.. TXT; GRAFIK AUSSCHALTEN, TEXTBILDSCH
IRM EINSCHALETEN..&..;.X&$. .; INTERRUPT
WIEDER ZULASSEN..&.. .; ROUTINENENDE..&
8.;..' .;*******************************
**.A'..;*** GRAFIK LOESCHEN **
*.H'..;*********************************
.N'..;. 'H.GL J#>(BITMAP); BITMAPADRESSE
IN ZP SCHREIBEN..'R. RHELP2; MSB.B'.. J
#<(BITMAP).S'.. RHELP1; LSB.Y'..;..(.. B
#$20; AEUSSERER SCHLEIFENINDEX, 32 MAL.7
(..GL2 Z; INNERER SCHLEIFENINDEX Y AUF 0
SETZEN.H(..GL1 R(HELP1),Y; NULLBYTE IN
BITMAP SCHREIBEN..(.. .; Y + 1, INNERE S
CHLEIFE..(". .GL1; => Y<>0.G(,. IHELP2;
MSB DER BITMAPPOSITION ERHOEHEN..(6. .;
X - 1, AEUSSERE SCHLEIFE..(@. .GL2; => X
<>0..)J.;..)T. .; => X=0, 32*256 SCHLEIF
ENDURCHLAEUFE,.Y)^.; )
ROUTINENENDE._)H.;..)..;***********
**********************..)..;*** SET POI
NT, ERASE POINT ***.T)..;*************
********************.Z)..;..)..;*** LAB
ELS ***..)..;..*D..BAL=$F9; BYTE-ADRESS
E LOW.5*N..BAH=$FA; BYTE-ADRESSE HIGH.R*
X..YWERT=$FB; Y-KOORDINATE.T*...XWERTL=$
14; X-KOORDINATE LOW..*...XWERTH=$15; X-
KOORDINATE HIGH.I*...CHKCOM=$AEFD; AUF K
OMMA IM BASICTEXT PRUEFEN..+...GETPAR=$B
7EB; HOLT 16-BIT INTEGER WERT IN $14/$15
.C+..; UND 8-BIT
INTEGER WERT IN X-REGISTER.I+..;.J+..;*
** MAKRO: BERECHNUNG ***.P+(.;..+2..CA
LC; BERECHNUNGSTEIL FUER SET POINT UND E
RASE POINT.C+<. J#$00; BAL LOESCHEN.M+F.
RBAL.S+P.;..+Z. JYWERT; Y IN AKKU..+D.
M; [Y/8]..+N. M..,X. M..,..;.5,.. RBAH;
AKKU([Y/8])*5 = AKKU*4 + AKKU.<,.. K.C,
. K.M,.. EBAH.S,..;.Y,.. M; AKKU(5*[Y/8]
)*64 = AKKU*256/4..,H. PBAL; => MSB -> L
SB UND 16-BIT DIVISION MIT 4..,R. M..,..
PBAL.C,..;..,.. E#>(BITMAP); BITMAP HIN
ZUADDIEREN..-.. RBAH; AKKU(320*[Y/8]+$80
00) SPEICHERN..-..;.0-.. JXWERTL; LSB(X)
.D-.. F#$F8; [X/8]*8.J-".;.F-,. EBAL; 16
-BIT ADDITION:..-6. RBAL; AKKU([X/8]*8)
+ BAL/BAH..-@. JXWERTH; MSB(X).H-J. EBAH
; WIRD UNVERAENDERT HINZUADDIERT.R-T. RB
AH.X-^.;...H. JYWERT; Y-[Y/8]*8, REST DE
R DIVISION Y/8...R. F#$07...|.;.8... Z;
ALS INDEX IN Y VERWENDEN.>...;.S... JXWE
RTL; LSB(X).|... F#$07; X-[X/8]*8, ERGIB
T BIT-NUMMER.....;..... X; ALS INDEX IN
X VERWENDEN...B.....L.;.H.V.;*** SET PO
INT ***.N...;.....SP VCHKCOM; AUF KOMMA
PRUEFEN../.. VGETPAR; X UND Y HOLEN../.
. SYWERT; X(X) IN ZP SCHREIBEN.4/..;.Y/.
.SET CALC; BYTE UND BIT ERRECHNEN._/..;.
./&. JPOT1,X; BYTE AUS TABELLE LESEN../0
. N(BAL),Y; BYTE MIT GRAFIKBYTE VERKNUEP
FEN../:. R(BAL),Y; VERKNUEPFTES BYTE ZUR
UECKSCHREIBEN../D.;..0N. .; ROUTINENENDE
..0X.;..0B.;*** TABELLE DER 2ER POTENZE
N ***.40L.;.N0V.POT1 .$80,$40,$20,$10.D
0.. .$08,$04,$02,$01.J0..;.P0..;..0..;**
* ERASE POINT ***..0..;..0..EP VCHKCOM
; AUF KOMMA PRUEFEN.O0.. VGETPAR; X UND
Y HOLEN..0F. SYWERT; X(X) IN ZP SCHREIBE
N..0P.;..1Z. CALC; BYTE UND BIT ERRECHNE
N..1..;.D1.. JPOT2,X; BYTE AUS TABELLE L
ESEN.S1.. F(BAL),Y; BYTE MIT GRAFIKBYTE
VERKNUEPFEN..1.. R(BAL),Y; VERKNUEPFTES
BYTE ZURUECKSCHREIBEN..1..;..1.. .; ROUT
INENENDE.F1 .;..1*.;*** TABELLE MIT DEN
INVERTIERTEN 2ER POTENZEN ***..24.;..2
>.POT2 .$7F,$BF,$DF,$EF.52H. .$F7,$FB,$F
D,$FE.;2R.;.B2X.;***********************
**********..2B.;*** LINE-ROUTINE
***..2L.;*************************
********..2V.;.U2..;*** PARAMETER HOLEN
***..2..;..2..LN VCHKCOM; AUF KOMMA PR
UEFEN..3.. VGETPAR; X1 UND Y1 HOLEN.!3..
;.?3.. SYWERT; Y1 IN ZP ABLEGEN.R3.. J$1
4; LSB(X1).O3F. RX1L; ZWISCHENSPEICHERN.
.3P. J$15; MSB(X1)..3Z. RX1H; ZWISCHENSP
EICHERN..3..;.E3.. VCHKCOM; AUF KOMMA PR
UEFEN..3.. VGETPAR; X2 UND Y2 HOLEN..3..
;..4.. SY2; Y2 SPEICHERN..4.. J$14; LSB(
X2).(4 . RX2L; SPEICHERN.;4*. J$15; MSB(
X2).P44. RX2H; SPEICHERN.V4>.;..4H. JX1L
; ZWISCHENGESPEICHERTER X1-WERT IN ZP AB
LEGEN..4R. RXWERTL; LSB..4\. JX1H..4F. R
XWERTH; MSB.A4P.;..4Z. .; DEZIMALMODUS L
OESCHEN..4..;..5..;*** BEGINN DER STRUK
TURIERUNG ***..5..;.;5..;--------------
-------------------.A5..;.V5.. .; DX = X
2 - X1.I5.. JX2L; LSB(X2)..5J. QXWERTL;
MINUS LSB(X1)..5T. RDX; ERGEBNIS IN DX..
5.. JX2H; MSB(X2).M5.. QXWERTH; MINUS MS
B(X1)..5.. RDX+1; ERGEBNIS IN DX+1 (HIGH
-BYTE)..5..;.#6..;----------------------
-----------.)6..;.A6.. .LINE1; => DX > 0
, 7. BIT DES MSB IST ENTSCHEIDEND.G6$.;.
.6..;---------------------------------..
68.;..6B. H#$FF; DX = -DX = NOT(DX) + 1.
.6L. RDX+1; NOT(MSB(DX)), SPEICHERN..6V.
JDX..6`. H#$FF; NOT(LSB(DX))..7J. .; 1
ADDIEREN.27T. E#$01; LSB(DX) = LSB(DX) +
1.;7~. RDX.\7.. .NOTINC1; => KEIN UEBER
TRAG..7.. IDX+1; BEI UEBERTRAG: MSB(DX)
= MSB(DX) +1..7..;..7..NOTINC1 J#$FF; XA
DD = -1 = $FFFF.G7.. RXADD; LSB.Y7.. RXA
DD+1; MSB..7D. ULINE2; ZUM NAECHSTEN BLO
CK..8N.;.'8X.;--------------------------
-------.-8..;.P8..LINE1 J#$01; XADD = +1
= $0001.`8.. RXADD; LSB.K8.. J#$00.}8..
RXADD+1; MSB..8..;..8..;---------------
------------------..8(.;.N82.LINE2 JDX+1
; IST DX = 0 ?..8<. .LINE3; => DX <> 0..
8F. JDX..9P. .LINE3; => DX <> 0..9Z.;.49
D.;---------------------------------.:9N
.;.U9X. J#$00; REST = 0 = $00.E9.. RREST
; LSB.W9.. RREST+1; MSB..9.. ULINE4; ZUM
NAECHSTEN BLOCK..9 .;.E9..;------------
---------------------.K9..;..9..LINE3 J#
$FF; REST = -1 = $FFFF..9H. RREST; LSB..
:R. RREST+1; MSB..:..;.=:..;------------
---------------------.C:..;.]:..LINE4 .;
DY = Y2 - Y1.O:.. JY2; LSB(Y2)..:.. QYW
ERT; MINUS YWERT..:.. RDY; SPEICHERN..:"
. J#$00; MSB(Y2) = 0.H:,. Q#$00; MINUS 0
..:6. RDY+1; SPEICHERN..:@.;..;J.;------
---------------------------..;T.;.I;^. .
LINE5; => DY > 0 ; 7.BIT DES MSB IST ENT
SCHEIDENT.O;H.;.V;R.;-------------------
--------------.|;|.;..;.. H#$FF; DY = -D
Y = NOT(DY) + 1.C;.. RDY+1; NOT(MSB(DY))
, SPEICHERN.L;.. JDY..;.. H#$FF; NOT(LSB
(DY))..;.. .; 1 ADDIEREN..<.. E#$01;..<B
. RDY; SPEICHERN.9<L. .NOTINC2; => KEIN
UEBERTRAG.H<V. IDY+1; UEBERTRAG => MSB(D
Y) = MSB(DY) + 1.N<..;..<..NOTINC2 J#$FF
; YADD = -1 = $FF..<.. RYADD; SPEICHERN.
H<.. ULINE6; ZUM NAECHSTEN BLOCK.N<. ;..
<. ;---------------------------------..<
. ;..=& LINE5 J#$01; YADD = +1.,=0 RYAD
D;ASPEICHERN.2=: ;.Y=D ;----------------
-----------------._=N ;.~=X LINE6 JDY+1;
IST DX > DY ?..=B DDX+1; MSB VERGLEICH
..=L .LINE7; => DX > DY..=V JDY.Q=. D
DX; LSB VERGLEICH..=. .LINE7; => DX > D
Y..=. ;..>. ;---------------------------
------..>. ;.7>. J#$FF; LIN = -1 = $FF.
L>. RLIN; SPEICHERN.M>F ULINE8; ZUM NA
ECHSTEN BLOCK.S>P ;..>Z ;---------------
------------------. >. ;..>. LINE7 J#$01
; LIN = +1 = $01.U>. RLIN; SPEICHERN..>
.!;..?.!;-------------------------------
--..?.!;.%? !LINE8 VSET; PUNKT SETZEN.+?
*!;.R?4!;-------------------------------
--.X?>!;.X?H!LINE9 JYWERT; IST Y1 = Y2 ?
..?R! DY2; VERGLEICHEN..?\! .LINE10; =>
Y1 <> Y2.D?F! JXWERTL; IST X1 = X2 ?..?P
! DX2L; LSB(X1) MIT LSB(X2) VERGLEICHEN.
.@Z! .LINE10; => X1 <> X2..@.! JXWERTH.A
@.! DX2H; MSB(X1) MIT MSB(X2) VERGLEICHE
N.[@.! .LINE10; => X1 <> X2.A@.!;..@.!;-
--------------------------------..@.!;..
@.! .; Y1 = Y2 UND X1 = X2 => ENDE..@J!;
..@T!;---------------------------------.
.@.!;..A.!LINE10 JREST+1; MSB(REST) , IS
T REST < 0 ?.GA.! .ZWEIG1; => 7.BIT DES
MSB GESETZT => REST < 0.MA.!;.TA.";-----
----------------------------.ZA.";..A."Z
WEIG2 .; REST >= 0 => REST = REST - DX..
A$" JREST; LSB(REST).TA." QDX; MINUS LSB
(DX)..A8" RREST; SPEICHERN..BB" JREST+1;
MSB(REST)..BL" QDX+1; MINUS MSB(DX).4BV
" RREST+1; SPEICHERN.:B`";.QBJ" .; Y1 =
Y1 + YADD.ABT" JYWERT; Y1.{B~" EYADD; YA
DD ADDIEREN..B." RYWERT; SPEICHERN..B.";
..B.";---------------------------------.
EB.";..B." JLIN; IST LIN > 0 ?..C." .LIN
E8; => LIN < 0 => PUNKT SETZEN. CD" ULIN
E9; => LINE => 0.&CN";.MCX";------------
---------------------.SC.";.RC."ZWEIG1 .
; REST = REST + DY..C." JREST; LSB(REST)
..C.# EDY; LSB(DY) ADDIEREN..C.# RREST;
SPEICHERN.QC.# JREST+1; MSB(REST)..C.# E
DY+1; MSB(DY) ADDIEREN..D(# RREST+1; SPE
ICHERN..D2#;.#D<# .; X1 = X1 + XADD.9DF#
JXWERTL; LSB(X1).XDP# EXADD; LSB(XADD)
ADDIEREN.PDZ# RXWERTL; SPEICHERN..DD# JX
WERTH; MSB(X1)..DN# EXADD+1; MSB(XADD) A
DDIEREN..DX# RXWERTH; SPEICHERN.ED.#;..D
.#;---------------------------------..D.
#;..E # JLIN; IST LIN < 0 ?.#E.# .LINE9;
=> LIN < 0.IE.# ULINE8; => LIN >= 0 =>
SET POINT.OE.#;.VEH#;-------------------
--------------.|ER#;..E.#;*** SPEICHERA
DRESSEN ***..E.#;.IE.#X1L .$00; LSB(X1)
ZWISCHENSPEICHER..E.#X1H .$00; MSB(X1)
ZWISCHENSPEICHER..F.$Y1 .$00; Y1 ZWISCHE
NSPEICHER.'F.$X2L .$00; LSB(X2).=F.$X2H
.$00; MSB(X2).MF"$Y2 .$00; Y2.EF,$REST .
$00,$00; REST..F6$LIN .$00,$00; ZEIGER L
IN. F@$DX .$00,$00; DX = X2 - X1..FJ$DY
.$00,$00; DY = Y2 - Y1..FT$XADD .$00,$00
; X STEP: +1/-1..G^$YADD .$00,$00; Y STE
P: +1/-1..GH$;.-G.';********************
*************.TG.';*** CHAR
***.{G$';**********************
***********..G.';..G8';*** LABELS ***.
.GB';.FGL'.ERROR=$A437; FEHLERMELDUNG AU
SGEBEN..GV'.FRMEVL=$AD9E; BASICAUSDRUCK
HOLEN..H`'.ERESTR=$B6A3; STRINGVERWALTUN
G.OHJ'.GETBYT=$B79E; LIEST 8-BIT INTEGER
WERT VON BASICTEXT EIN..HT'.CHARHI=$D8;
HIGH-BYTE DES ZEICHENSATZSPEICHER..H~';
..H.';*** FEHLERMELDUNG AUSGEBEN ***..
H.';.WH.'ILLERR B#14; FEHLERNUMMER IN X.
.I.' UERROR; FEHLERMELDUNG AUSGEBEN: ILL
EGAL QUANTITY ERROR..I.';.8I.';*** PARA
METER HOLEN ***.>ID';.GIN';*** ZEILE A
US BASICTEXT HOLEN ***.MIX';..I.'CP VCH
KCOM; AUF KOMMA PRUEFEN..I.' VGETBYT; ZE
ILE NACH X HOLEN.TI.' .#13; AUF ZULASSIG
KEIT PRUEFEN..I.( .ILLERR; => ZEILE >= 1
3 => ERROR..J.( SZEILE; SPEICHERN..J.(;.
AJ.(;*** SPALTE AUS BASICTEXT HOLEN **
*.GJ((;.GJ2( VCHKCOM; AUF KOMMA PRUEFEN.
.J<( VGETBYT; SPALTE NACH X HOLEN..JF( .
#40; AUF ZULAESSIGKEIT PRUEFEN.UJP( .ILL
ERR; => SPALTE >= 40 => ERROR..JZ( SSPAL
TE; SPEICHERN..JD(;..KN(;*** STRING AUF
BASICTEXT HOLEN ***.#KX(;.CK.( VCHKCOM
; AUF KOMMA PRUEFEN.LK.( VFRMEVL; STRING
AUS BASICTEXT HOLEN..K.( VERESTR; STRIN
GVERWALTUNG..K.( .ILLERR; STRINGLAENGE =
0 ? => ERROR.ZK ( RSTRLEN; STRINGLAENGE
SPEICHERN..K.( J$22; LSB DER STRINGADRE
SSE..L.( RCHAR3+1; SPEICHERN.5L.( J$23;
MSB DER STRINGADRESSE.NLH( RCHAR3+2; SPE
ICHERN.TLR(;..L.(;*** RICHTUNG AUS BASI
CTEXT HOLEN ***..L.(;..L.( VCHKCOM; AUF
KOMMA PRUEFEN.GL.( VGETBYT; RICHUNG IN
X HOLEN.ML.);..L.);*** RICHTUNG AUSWERT
EN ***..L.);.&M"); CPX #$00
; IST RICHTUNG = 0 ?.GM,) .WAAGRECHT;
=> RICHTUNG = 0.MM6);..M@) J#$40; RICHTU
NG SENKRECHT: INKREMENT IST $0140 = 320.
.MJ) RINCREM; LSB SPEICHERN..MT) J#$01.L
M^) RINCREM+1; MSB SPEICHERN..MH) UCHAR1
; WEITER ZUR BERECHNUNG..MR);.=N|)WAAGRE
CHT SINCREM+1; RICHTUNG WAAGRECHT: INKRE
MENT = $0008 = 8; MSB.MN.) J#$08; LSB.EN
.) RINCREM; SPEICHERN.KN.);..N.);*** PO
SITION IN DER BITMAP BERECHNEN ***. N.);
..N.);*** ZEILE * 320 ***.ANB);..NL)CH
AR1 J#$00; LSB(HPOINT) = 0..NV) RHPOINT+
1; SPEICHERN..O.);.9O.) JZEILE; ZEILE IN
AKKU; AKKU(ZEILE)*5=AKKU*4+ZEILE.EO.) K
; * 2.QO.) K; * 2.FO.* EZEILE; + ZEILE.L
O.*;..O.* M; AKKU(5*ZEILE)*64 = AKKU*256
/4.JO&* PHPOINT+1; => LSB -> MSB UND 16-
BIT DIVISION MIT 4.QO0* M..O:* PHPOINT+1
..PD* E#>(BITMAP); AKKU(320*ZEILE)+BITMA
P..PN* RHPOINT+2..PX*;.APB*;*** SPALTE
* 8 + HPOINT ***.GPL*;.JPV* JSPALTE; SP
ALTE IN AKKU HOLEN.VP.* K; * 2..P.* K; *
2..P.* K; * 2..P.* .ADDSPALTE; UEBERTRA
G ?.KP.* IHPOINT+2; MSB(HPOINT) + 1..P.*
.; UEBERTRAG LOESCHEN.&Q.*ADDSPALTE EHP
OINT+1; LSB(HPOINT) = LSB(HPOINT) + SPAL
TE * 8.@Q.* RHPOINT+1; SPEICHERN.]QF* .C
HANGESTR; UEBERTRAG ?.}QP* IHPOINT+2; MS
B(HPOINT) + 1..QZ*;..Q.*;*** STRING AUS
LESEN UND WANDELN ***..Q.*;.SQ.*CHANGES
TR C#$00; INDEX = 0..Q.+STRLOOP TINDEX;
SPEICHERN..Q.+;.-R.+CHAR3 J$FFFF,Y; Y-TE
S ZEICHEN VON STRING AUSLESEN.3R +;.QR*+
;*** STRING WANDELN ***.WR4+;.RR>+ .CH
AR5; ZEICHEN > 128..RH+ D#32; < 32 ? ODE
R = <SPACE> ?.ARR+ .CHAR6; <SPACE> -> BL
EIBT UNVERAENDERT..RF+ .NEXTY; STEUERZEI
CHEN UEBERSPRINGEN..SP+CHAR11 D#64; < 64
; SONDERZEICHEN ?.BSZ+ .CHAR6; SONDERZE
ICHEN BLEIBEN UNVERAENDERT.ES.+ D#96; <
96 ; KLEINBUCHSTABE ?..S.+ .CHAR4; 96 =<
ZEICHEN < 128 => 5. BIT LOESCHEN.NS.+ F
#%10111111; 6. BIT LOESCHEN, DA KLEINBUC
HSTABE..S.+ UCHAR6; WEITERMACHEN."T.+CHA
R4 F#%11011111; 5. BIT LOESCHEN, DA GROS
SBUCHSTABE.<T.+ UCHAR6; WEITERMACHEN.ET.
+CHAR5 D#160; < 160 ? STEUERZEICHEN ?..T
J+ .NEXTY; STEUERZEICHEN UEBERSPRINGEN..
TT+ .CHAR6; <2. SPACE> -> BLEIBT UNVERAE
NDERT..T.+ D#192; < 192 ? GRAFIKZEICHEN
?..T.+ .CHAR7; DOPPELBELEGUNG.&U.+ H#%11
000000; 6. UND 7. BIT UMKEHREN.@U.+ UCHA
R6; WEITERMACHEN.{U.,CHAR7 D#224; =< 224
? GROSSBUCHSTABEN (DOPPELBELEGUNG)..U.,
.CHAR9; <3. SPACE>..U$, F#%01111111; 7.
BIT LOESCHEN..U8, D#127; CODE = 255 (=1
27 DA 7. BIT GELOESCHT)..UB, .CHAR6; WEI
TER..VL, J#94; 255 -> 94.9VV, UCHAR6; GR
AFIKZEICHEN, WEITERMACHEN.TV`,CHAR9 J#32
; <3. SPACE>.ZVY,;..V~,;*** CHAR POINTE
R IM ZSA BERECHENEN ***..V.,;..V.,CHAR6
B#$00; MSB(MVCHAR) = 0.IV., SMVCHAR+2;
SPEICHERN.OV.,;..V., K; MVCHAR * 8..V.,
OMVCHAR+2..VD, K..WN, OMVCHAR+2..WX, K.?
W., OMVCHAR+2; GLEICHZEITIG CARRY-FLAG L
OESCHEN.]W., RMVCHAR+1; LSB SPEICHERN..W
., J#CHARHI; MSB VON CHARACTER-ROM..W.-
EMVCHAR+2; ADDIEREN..W.- RMVCHAR+2; MSB
SPEICHERN..W.-;..W.-;*** ZEICHEN AUS ZS
A IN BITMAP SCHREIBEN ***..W(-;..X2- .;
INTERRUPT SPERREN.4X<- J$01; PROZESSORP
ORT AUSLESEN.TXF- RPROCESSOR; INHALT SIC
HERN..XP- F#%11111011; ZSA-ROM ZUM LESEN
FREIGEBEN..XZ- R$01; ZURUECKSCHREIBEN..
XD-;.RXN- C#$07; INDEX FUER 8 SCHLEIFEND
URCHLAEUFE..YX-MVCHAR J$FFFF,Y; BYTE AUS
ZSA-ROM AUSLESEN./Y.-HPOINT R$FFFF,Y; B
YTE IN BITMAP SCHREIBEN.JY.- .; INDEX ER
NIEDRIEGEN..Y.- .MVCHAR; SCHON FERTIG ?
=> NEIN, SPRUNG NACH MVCHAR..Y -;.BY.- J
PROCESSOR; ALTEN PROZESSORPORTZUSTAND WI
EDER HOLEN.WY.- R$01; SPEICHERN..Y.- .;
INTERRUPT WIEDER FREIGEBEN..ZH-;.,ZR-;**
* BITMAP UM INKREMENT ERHOEHEN ***.2Z.
-;.MZ.- .; HPOINT + INCREMENT.AZ.- JHPOI
NT+1; LSB.XZ.- EINCREM; ADDIEREN..Z.. RH
POINT+1; SPEICHERN..Z.. JHPOINT+2; MSB..
Z.. EINCREM+1; ADDIEREN.YZ". RHPOINT+2;
SPEICHERN..Z,.;..Z6.NEXTY CINDEX; INDEX
IN Y..[@. .; + 1.5[J. ASTRLEN; IST INDEX
SCHON STRINGLAENGE ?.I[T. .CHAREND; IND
EX = STRINGLAENGE => ROUTINENENDE..[^. U
STRLOOP; => INDEX < STRINGLAENGE..[H.;.J
[R.CHAREND .; INDEX = STRINGLAENGE => RO
UTINENENDE.P[|.;..[..;*** HILFSZELLEN
***..[..;..\..ZEILE .$00; ZEILE..\..SPAL
TE .$00; SPALTE.=\..STRLEN .$00; STRINGL
AENGE.S\..INDEX .$00; INDEX.R\B.INCREM .
$00,$00; INCREMENT..\L.PROCESSOR .$00; P
ROZESSORPORTZUSTAND..\V.;..\..;*********
*********.Q\..;*** HARDCOPY ***..\..;*
*****************..\..;..]./;*** LABELS
***..]./;.3]./.SETFLS=$FFBA; FILEPARAM
ETER SETZEN.S]&/.OPEN=$FFC0; FILE EROEFF
NEN.U]0/.CLOSE=$FFC3; FILE SCHLIESSEN..]
:/.CHKOUT=$FFC9; CMD-MODUS EIN..]D/.CLRC
H=$FFCC; CMD-MODUS AUS.Y]N/.PRINT=$FFD2;
ZEICHEN AUSGEBEN..]X/;..]B/;*** MAKROS
***..]L/;..^V/.ESC; ESC-SEQUENZ UEBERM
ITTELN.6^./ J#$1B; ESC-SEQUENZ.^^./ VPRI
NT; ZEICHEN ZUM DRUCKER SENDEN.D^./..J^.
/;..^./.CR; CR-SEQUENZ UEBERMITTELN..^./
J#$0D; CR-SEQUENZ.K^./ VPRINT; ZEICHEN
ZUM DRUCKER SENDEN.Q^F/..W^P/;..^Z/.INI
T; DRUCKER INITIALISIEREN.._./ ESC; ESC
@ ; 27 64 ; $1B $40.)_./ J#$40; @.Q_./ V
PRINT; ZEICHEN ZUM DRUCKER SENDEN.Y_.0 C
R.__.0..E_.0;.._ 0;*** OPEN 4,4,1 : CMD
4 ***.._*0;.._40HC J#$04; LOGISCHE FIL
ENUMMER.Y_>0 B#$04; GERAETEADRESSE 4 FUE
R DRUCKER..`H0 C#$01; SEKUNDAERADRESSE 1
FUER LINEARKANAL.,`R0 VSETFLS; FILEPARA
METER SETZEN.G`\0 VOPEN; FILE EROEFFNEN.
G`F0 B#$04; LOGISCHE FILENUMMER..`P0 VCH
KOUT; COMMUNICATIONN DIRECT EIN..`Z0;..`
.0;*** ESC @, ESC 3 N, ESC L N ***.B`.
0;..`.0 INIT; ESC @, DRUCKER INITIALISIE
REN..`.0;.,A.0 ESC; ESC 3 N (N = 24), ZE
ILENVORSCHUB AUF 24/216 ZOLL.<A.0 J#$33;
'3'.HA.0 VPRINT; ZEICHEN '3' ZUM DRUCKE
R SENDEN..AJ0 J#$18; N = $18 = 24..AT0 V
PRINT; CHR$(24) ZUM DRUCKER SENDEN..A.0
CR..A.0;..A.0 ESC; ESC L N (N = 12), LIN
KER RAND BEI 12 SETZEN..A.0 J#$6C; 'L'.*
B.1 VPRINT; ZEICHEN 'L' ZUM DRUCKER SEND
EN.CB.1 J#$0C; N = $0C = 12.LB.1 VPRINT;
CHR$(12) ZUM DRUCKER SENDEN.TB$1 CR.ZB.
1;..B81;*** ROUTINENVARIABLEN INITIALIS
IEREN ***..BB1;..BL1 J#<(BITMAP); BITMA
PADRESSE IM DUMMY SCHREIBEN..BV1 RDUMMY+
1; LSB..C`1 J#>(BITMAP)..CJ1 RDUMMY+2; M
SB. CT1;.6C~1 J#$0C; 12 ZEILEN.LC.1 RLIN
E; SPEICHERN.RC.1;..C.1;*** GRAFIK EINS
CHALTEN: ESC L N1 N2 ***..C.1;..C.1LNLO
OP ESC..C.1 J#$4C; 'L'.RCD1 VPRINT; ZEIC
HEN 'L' ZUM DRUCKER SENDEN..CN1 J#$80; N
1 = $80 = 128 = LSB..DX1 VPRINT; CHR$(12
8) ZUM DRUCKER SENDEN.>D.1 J#$02; N2 = $
02 = 2 = MSB.FD.1 VPRINT; CHR$(2) ZUM
DRUCKER SENDEN.LD.1;..D.2;*** BLOCK IND
EX ***..D.2;..D.2 J#40; 40 BLOECKE..D.2
RBLOCK; SPEICHERN..D(2;..D22;*** EIN 8
-BYTE BLOCK SPEIGELN ***..D<2;..EF2BKLO
OP C#$00; BLOCKSCHLEIFE..EP2TURN1 B#$00.
OEZ2DUMMY J$FFFF,Y; BITMAPBYTE IN AKKU E
INLESEN.XED2TURN2 K; BIT AUS BITMAPBYTE
AUSLESEN..EN2 OCHR,X; BIT IN DRUCKERBYTE
REINSCHIEBEN..EX2 ..HE.2 .#$08; IST X S
CHON 8 ?..F.2 .TURN2; => X <> 8 => BITMA
PBYTES NOCH NICHT ABGEARBEITET..F.2 ..)F
2 A#$08; IST Y SCHON 8 ?.AF.2 .TURN1; =
> Y<> 8 => DRUCKERBYTES NOCH NICHT FERTI
G.GF.2;..F.2;*** 8-BYTE BLOCK DRUCKEN
***..FH2;..FR2 B#$00; INDEX AUF 0 SETZEN
..F.2PRNT JCHR,X; X-TES DRUCKERBYTE IN A
KKU..F.2 VPRINT; BYTE DRUCKEN..G.2 VPRIN
T; BYTE DRUCKEN.&G.2 .; INDEX ERHOEHEN.B
G.3 .#$08; IST X SCHON 8 ?.RG.3 .PRNT; =
> X <> 8 => NAECHSTES BYTE DRUCKEN.XG.3;
..G"3;*** SCHLEIFENFORTSCHALTUNG ***..
G,3;..G63 .; BITMAPBYTE + 8.NG@3 JDUMMY+
1; LSB..GJ3 E#$08; 8 ADDIEREN..GT3 RDUMM
Y+1; SPEICHERN..H^3 .NOTINC; KEIN UEBERT
RAG.GHH3 IDUMMY+2; => UEBERTRAG, MSB(DUM
MY) + 1.MHR3;.RH|3NOTINC GBLOCK; BLOCK =
BLOCK - 1..H.3 .BKLOOP; IST BLOCK SCHON
0 ? => BLOCK <> 0..H.3;.AH.3;*** CR SE
NDEN ***.GH.3;.OH.3 CR.UH.3;..HB3;***
SCHLEIFENFORTSCHALTUNG ***..IL3;..IV3 G
LINE; LINE = LINE - 1.KI.3 .LNLOOP; IST
LINE SCHON 0 ? => LINE <> 0.QI.3;.UI.3;*
** NOT(CMD 4) : CLOSE 4 ***.{I.3;..I.4
INIT; DRUCKER INITIALISIEREN.CI.4 VCLRC
H; COMMUNICATION DIRECT AUS..I.4 J#$04;
LOGISCHE FILENUMMER..J&4 VCLOSE; FILE SC
HLIESSEN..J04;..J:4 .; ROUTINENENDE.!JD4
;.<JN4;*** HILFSZELLEN ***.BJX4;.IJB4C
HR .$00,$00,$00,$00; DRUCKERBYTES.JL4 .
$00,$00,$00,$00..JV4BLOCK .$00; BLOCKIND
EX..J.4LINE .$00; LINEINDEX..J.4;.UJ.6;*
*********************..J.6;*** SAVE-ROU
TINE ***..KD6;**********************..K
N6;.)KX6;*** LABELS ***./K.6;.^K.6.LIS
TEN=$FFB1; FLOPPY ZUM EMPFANG SCHALTEN..
K.6.SALIST=$FF93; SEKUNDAERADRESSE FUER
LISTEN..K.7.CLSFILE=$F642; FILE SCHLIESS
EN..K.7.SENDNM=$F3D5; FILENAME FUER LIST
EN UND TALK..L.7.IECOUT=$FFA8; BYTE AUF
SERIELLEM BUS AUSGEBEN..L.7;.OL(7.ADRESS
1=$FA; ZP-SPEICHER FUER LSB(BITMAPBYTE).
.L27.ADRESS2=$FB; ZP-SPEICHER FUER MSB(B
ITMAPBYTE)..L<7;*** MAKRO ***..LF7;.BL
P7.FILENAME; FILENAME UEBERMITTELN..LZ7
VCHKCOM; AUF KOMMA PRUEFEN..LD7 VFRMEVL;
STRING HOLEN..MN7 VERESTR; SRTINGVERWAL
TEN.!MX7;.FM.7 R$B7; FILENAMENLAENGE SPE
ICHERN.SM.7 J$22; LSB DER ADRESSE AUF DE
N FILENAMEN..M.7 R$BB; IN ZP-ZEIGER AUF
FILENAME SPEICHERN..M 7 J$23; MSB..M.7 R
$BC; IN ZP-ZEIGER AUF FILENAME SPEICHERN
..M.7...M.7;..NH7;*** FILE EROEFFNEN *
**..NR7;.7N.7SA FILENAME; FILENAME UEBER
MITTELN.=N.7;.XN.7 J#$08; GERAETEADRESSE
..N.7 R$BA; ZP-ZEIGER FUER AKTUELLES GER
AET..N.8 J#$61; SEKUNDAERADRESSE 1 FUER
SPEICHERN + $60..N.8 R$B9; ZP-ZEIGER FUE
R AKTUELLE SEKUNDAERADRESSE..N.8;..O"8 V
SENDNM; FILENAME SENDEN..O,8;./O68 J$BA;
GERAETEADRESSE.KO@8 VLISTEN; LISTEN SEN
DEN.GOJ8 J$B9; SEKUNDAERADRESSE..OT8 VSA
LIST; SEKUNDAERADRESSE SENDEN..O^8;..OH8
;*** PROGRAMMADRESSE $8000 ***..OR8;..
O|8 J#<(BITMAP); LSB(BITMAP)..O.8 RADRES
S1; IN ZP SCHREIBEN.$P.8 VIECOUT; AUF SE
RIELLEN BUS AUSGEBEN.BP.8 J#>(BITMAP); M
SB(BITMAP).AP.8 RADRESS2; IN ZP SCHREIBE
N..P.8 VIECOUT; AUF SERIELLEN BUS AUSGEB
EN..P.8;..P.8;*** BITMAP SPEICHERN ***
..P.8;..P.8 B#$0F; $0F00 BITMAPBYTES SPE
ICHERN..P.8SAVE2 C#$00; INNERE SCHLEIFE.
0Q.9SAVE1 J(ADRESS1),Y; BITMAPBYTE IN AK
KU HOLEN.YQ.9 VIECOUT; AUF SERIELLEN BUS
AUSGEBEN.`Q.9 ...Q&9 .SAVE1; SCHON 256
BYTES AUSGEGEBEN ?..Q09 IADRESS2; ADRESS
2 = ADRESS2 + 1..Q:9 .; AEUSSEREN SCHLEI
FENINDEX UM 1 ERNIEDRIGEN..RD9 .SAVE2; S
CHON $0F00 BYTES ABGESPEICHERT?..RN9;.4R
X9;*** FILE SCHLIESSEN ***.:RB9;.YRL9
VCLSFILE; FILE SCHLIESSEN._RV9;.TR.9 .;
ROUTINENENDE.ZR.9;..R.:;****************
******..R.:;*** LOAD-ROUTINE ***.NR.:;
**********************.TR.:;..R.:;*** L
ABELS ***..RJ:;..ST:.TALK=$FFB4; TALK S
ENDEN.BS.:.SATALK=$FF96; SEKUNDAERADRESS
E FUER TALK SENDEN.TS.:.IECIN=$FFA5; ZEI
CHEN VON SERIELLEN BUS HOLEN..S.:.STATUS
=$90; STATUSBYTE ST..S.:;..S.;;*** FILE
EROEFFNEN ***..S.;;..S.;LO FILENAME; F
ILNAME UEBERMITTELN..S$;;..T.; J#$08; GE
RAETEADRESSE.0T8; R$BA; ZP-ZEIGER FUER A
KTUELLES GEREAET.UTB; J#$60; SEKUNDAERAD
RESSE 0 + $60..TL; R$B9; ZP-ZEIGER FUER
AKTUELLE SEKUNDAERADRESSE..TV;;..T`; VSE
NDNM; FILENAMEN SENDEN..TJ;;.NTT; J$BA;
GERAETEADRESSE..T~; VTALK; TALK SENDEN..
U.; J$B9; SEKUNDAERADRESSE.2U.; VSATALK;
SEKUNDAERADRESSE FUER TALK SENDEN.8U.;;
.BU.;;*** PROGRAMMADRESSE UEBERLESEN *
**.HU.;;..U.; VIECIN; BYTE VON SERIELLEN
BUS EINLESEN.BUD; VIECIN; BYTE VON SERI
ELLEN BUS EINLESEN.HUN;;..UX;;*** BITMA
P EINLESEN ***..U.;;..V.; J#<(BITMAP);
BITMAPADRESSE IN ZP SCHREIBEN.0V.; RADRE
SS1; LSB.AV.< J#>(BITMAP).TV.< RADRESS2;
MSB.ZV.<;..V.< B#$0F; AEUSSEREN SCHLEIF
ENZAEHLER AUF $0F SETZEN.DV(< C#$00; INN
EREN SCHLEIFENZAEHLER AUF $00 SETZEN..V2
<LOAD1 VIECIN; BYTE VON SERIELLEN BUS EI
NLESEN."W<< R(ADRESS1),Y; BYTE IN BITMAP
SCHREIBEN.GWF< JSTATUS; STATUSBYTE ST E
INLESEN.IWP< .LOAD2; => EOF (END OF FILE
).PWZ< ...WD< .LOAD1; IST INNERE SCHLEIF
EN SCHON ABGEADREITET ?.TWN< IADRESS2; M
SB(ADRESS) = MSB(ADRESS) + 1..WX< ...X.<
.LOAD1; SCHON ALLE BYTES EINGELESEN ? (
-> LOAD1, DA Y=0)..X.<;.>X.<;*** FILE S
CHLIESSEN ***.DX <;.HX.<LOAD2 VCLSFILE;
FILE SCHLIESSEN.NX.<;..X.< .; ROUTINENE
NDE..XH<;..XR<;*** ENDE DES SOURCETEXTE
S ***..X.<;...
> CLICK IMAGE PREVIEW FOR FULL MODAL